Visible Computer v1.0
Emulation Item Preview
Share or Embed This Item
Visible Computer v1.0
Notes
Disk info for Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do:
File Name: a2_Visible_Computer_v1.0_1982_12_12__cr_Reset_Vector/Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 56832
Used Space (bytes): 86528
Physical Size (KB): 140
Free Space (KB): 55
Used Space (KB): 84
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 222
Used Sectors: 338
Tracks On Disk: 35
Sectors On Disk: 16
Disk directory for Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do:
a2_Visible_Computer_v1.0_1982_12_12__cr_Reset_Vector/Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do DISK VOLUME #254
B 058 STARTUP
A 084 VC
B 020 TABLE+HRCG
B 002 PROG1
B 002 PROG2
B 002 PROG3
B 002 PROG4
B 002 PROG5
B 002 PROG6
B 002 PROG7
B 002 PROG8
B 006 PROG9
B 006 PROG10
B 006 PROG11
B 006 PROG12
B 002 PROG13
B 002 PROG14
B 002 PROG15
B 002 PROG16
B 002 PROG17
B 002 PROG18
B 002 PROG19
B 003 PROG20
B 004 PROG21
B 002 PROG22
B 004 PROG23
B 004 BEEPASKETCH
B 003 BEEPASKETCHPROG
B 003 BEEP-A-SKETCH
B 003 BEEP-A-SKETCHPROG
B 002 CLEARPROG
B 002 ORGANPROG
B 002 REVERSEPROG
B 003 SKETCHPROG
B 005 SORTPROG
B 002 PROGXX
B 008 ZEROES
B 008 ZEROS
DOS 3.3 format; 56,832 bytes free; 86,528 bytes used.
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/CLEARPROG.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 20 04 08 00 A9 00 A8 85 FA A9 20 85 FB A9 00 91 ...).(. z) .{)..
$000010 FA C8 D0 F9 E6 FB A5 FB C9 40 D0 F1 60 00 00 00 zHPyf{%{ I@Pq`...
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/ORGANPROG.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 20 0E 08 C9 9B D0 01 60 20 17 08 4C 00 08 AD 00 ..I.P.` ..L..-.
$000010 C0 10 FB 2C 10 C0 60 A0 80 AA CA D0 FD 2C 30 C0 @.{,.@` .*JP},0@
$000020 88 D0 F6 60 00 00 00 00 00 00 00 00 00 00 00 00 .Pv`.... ........
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/PROG1.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 A9 33 00 00 .. .. .. .. .. .. .. .. .. .. .. .. )3..
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/PROG12.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 6C 00 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 l....... ........
$000010 A9 00 8D 00 0A A9 09 8D 01 0A 4C 00 08 00 00 00 )....).. ..L.....
$000020 00 00 00 00 00 00 00 00 00 4F 4F 54 20 50 52 4F ........ .OOT PRO
$000030 A9 14 48 A9 23 48 68 A8 68 AA 60 00 00 00 00 00 ).H)#Hh( h*`.....
$000040 00 00 00 00 20 28 43 29 20 31 39 38 32 00 65 08 .... (C) 1982.e.
$000050 08 00 B2 20 53 4F 46 54 57 41 52 45 20 4D 41 53 ..2 SOFT WARE MAS
$000060 54 45 52 53 00 83 08 09 00 B2 20 33 33 33 30 20 TERS.... .2 3330
$000070 48 49 4C 4C 43 52 4F 46 54 2F 53 55 49 54 45 20 HILLCROF T/SUITE
$000080 4C 90 08 00 00 00 00 00 00 00 00 55 53 54 4F 4E L....... ...USTON
$000090 4C 00 0B 00 00 00 00 00 00 00 00 00 35 37 00 A5 L....... ....57.%
$0000A0 08 0B 00 3A 00 AB 08 0C 00 3A 00 C3 08 0F 00 B9 ...:.+.. .:.C...9
$0000B0 33 37 31 38 2C 30 3A B2 20 53 57 41 50 20 46 4C 3718,0:2 SWAP FL
$0000C0 41 47 00 0D 09 14 00 B9 31 30 31 30 2C 39 36 3A AG.....9 1010,96:
$0000D0 B9 31 30 31 31 2C 31 34 3A AD E2 28 C9 33 29 D0 91011,14 :-b(I3)P
$0000E0 32 35 30 C4 8C C9 31 31 36 39 3A B2 20 53 45 54 250D.I11 69:2 SET
$0000F0 20 52 45 53 45 54 20 56 45 43 54 4F 52 3B 20 41 RESET V ECTOR; A
$000100 AD 30 C0 4C 00 09 00 00 00 00 49 58 00 30 09 1E -0@L.... ..IX.0..
$000110 00 B9 31 30 30 38 2C 36 38 3A B9 31 30 30 39 2C .91008,6 8:91009,
$000120 31 34 3A B2 20 42 52 4B 20 56 45 43 54 4F 52 00 14:2 BRK VECTOR.
$000130 5E 09 2D 00 89 3A 97 3A A2 39 3A 96 37 3A BA 22 ^.-..:.: "9:.7::"
$000140 54 48 45 20 56 49 53 49 42 4C 45 20 43 4F 4D 50 THE VISI BLE COMP
$000150 55 54 45 52 3A 20 36 35 30 32 22 3A BA 00 86 09 UTER: 65 02"::...
$000160 32 00 BA 3A BA 3A 96 31 31 3A BA 22 43 4F 50 59 2.::::.1 1::"COPY
$000170 52 49 47 48 54 20 28 43 29 20 31 39 38 32 22 3A RIGHT (C ) 1982":
$000180 BA 3A BA 3A BA 00 A2 09 37 00 96 31 32 3A BA 22 :::::.". 7..12::"
$000190 53 4F 46 54 57 41 52 45 20 4D 41 53 54 45 52 53 SOFTWARE MASTERS
$0001A0 22 00 C5 09 3C 00 96 38 3A BA 22 33 33 33 30 20 ".E.<..8 ::"3330
$0001B0 48 49 4C 4C 43 52 4F 46 54 20 20 53 55 49 54 45 HILLCROF T SUITE
$0001C0 20 42 42 22 00 E5 09 41 00 96 31 30 3A BA 22 48 BB".e.A ..10::"H
$0001D0 4F 55 53 54 4F 4E 2C 20 54 45 58 41 53 20 37 37 OUSTON, TEXAS 77
$0001E0 30 35 37 22 00 F3 09 43 00 B9 C9 31 36 33 36 38 057".s.C .9I16368
$0001F0 2C 30 00 01 0A 46 00 81 5A D0 31 C1 31 30 30 30 ,0...F.. ZP1A1000
$000200 10 08 C0 4C 00 0A 00 00 00 00 00 00 00 00 00 CF ..@L.... .......O
$000210 31 32 37 C4 31 30 30 00 1F 0A 50 00 82 5A 00 37 127D100. ..P..Z.7
$000220 0A 64 00 97 3A A2 31 38 3A BA 22 4C 4F 41 44 49 .d..:"18 ::"LOADI
$000230 4E 47 2E 2E 2E 22 00 44 0A 6E 00 B9 31 36 33 38 NG...".D .n.91638
$000240 34 2C 30 00 5A 0A 82 00 BA E7 28 34 29 22 4D 41 4,0.Z... :g(4)"MA
$000250 58 46 49 4C 45 53 20 31 22 00 76 0A 8C 00 BA E7 XFILES 1 ".v...:g
$000260 28 34 29 22 42 4C 4F 41 44 20 54 41 42 4C 45 2B (4)"BLOA D TABLE+
$000270 48 52 43 47 22 00 8B 0A 91 00 B9 31 36 33 38 34 HRCG"... ..916384
$000280 2C 30 3A B9 31 30 34 2C 36 34 00 9D 0A 96 00 BA ,0:9104, 64.....:
$000290 E7 28 34 29 22 52 55 4E 20 56 43 22 00 00 00 5A g(4)"RUN VC"...Z
$0002A0 00 87 40 00 00 00 3A 00 B4 0A 5E 01 AD 54 42 C4 ..@...:. 4.^.-TBD
$0002B0 33 36 30 00 CB 0A 63 01 B9 36 2C 4E 3A 8C 44 42 360.K.c. 96,N:.DB
$0002C0 25 3A 4E 24 D0 42 42 24 3A B1 00 02 0B 68 01 B9 %:N$PBB$ :1...h.9
$0002D0 36 2C C2 41 28 4E 29 3A 8C 44 42 25 3A 4E 24 D0 6,BA(N): .DB%:N$P
$0002E0 42 42 24 C8 22 20 22 3A B9 36 2C C2 42 28 4E 29 BB$H" ": 96,BB(N)
$0002F0 3A 8C 44 42 25 3A 4E 24 D0 4E 24 C8 42 42 24 3A :.DB%:N$ PN$HBB$:
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/PROG13.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 18 A9 02 69 04 38 A9 02 69 04 00 00 00 00 00 00 .).i.8). i.......
$000010 00 00 00 00 00 2C 5A 3A 82 00 55 08 01 00 49 D0 .....,Z: ..U...IP
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/PROG14.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 18 A5 00 65 02 85 04 A5 01 65 03 85 05 00 00 00 .%.e...% .e......
$000010 00 00 00 00 00 00 00 00 82 00 55 08 01 00 49 D0 ........ ..U...IP
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/PROG15.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 38 A9 07 E9 02 18 A9 07 E9 02 A9 14 E9 22 00 00 8).i..). i.).i"..
$000010 00 00 00 00 00 00 00 00 00 00 55 08 01 00 49 D0 ........ ..U...IP
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/PROG16.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 38 A5 00 E5 02 85 04 A5 01 E5 03 85 05 00 00 00 8%.e...% .e......
$000010 00 00 00 00 00 00 00 00 00 00 55 08 01 00 49 D0 ........ ..U...IP
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/PROG18.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 A2 00 A4 00 38 98 E5 01 B0 05 86 02 84 03 00 A8 ".$.8.e. 0......(
$000010 E8 4C 05 08 00 00 00 00 00 00 00 00 00 00 00 00 hL...... ........
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/PROG19.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 20 08 08 C9 9B D0 F9 00 AD 00 C0 10 FB AE 10 C0 ..I.Py. -.@.{..@
$000010 60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 `....... ........
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/PROG2.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 A9 66 85 43 00 00 00 00 00 00 00 00 00 37 35 3A )f.C.... .....75:
$000010 4C 45 20 43 4F 4D 50 55 54 45 52 3A 20 36 35 30 LE COMPU TER: 650
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/PROG22.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 A2 00 BD 00 09 9D 00 0A E8 E0 10 D0 F5 00 00 00 ".=..... h`.Pu...
$000010 00 00 00 00 00 00 00 00 00 00 00 08 8D FE 08 AE ........ .....~..
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/PROG23.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 A2 00 BD F0 09 95 F0 E8 E0 18 D0 F6 00 00 00 00 ".=p..ph `.Pv....
$000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 AE ........ ........
$000020 56 49 53 49 42 4C 45 20 43 4F 4D 50 55 54 45 52 VISIBLE COMPUTER
$000030 3A 20 36 35 30 32 00 4A 08 78 00 B2 20 42 4F 4F : 6502.J .x.2 BOO
$000040 54 20 50 52 4F 47 52 41 4D 00 63 08 82 00 B2 20 T PROGRA M.c...2
$000050 43 4F 50 59 52 49 47 48 54 20 28 43 29 20 31 39 COPYRIGH T (C) 19
$000060 38 32 00 7A 08 8C 00 B2 20 53 4F 46 54 57 41 52 82.z...2 SOFTWAR
$000070 45 20 4D 41 53 54 45 52 53 00 98 08 96 00 B2 20 E MASTER S.....2
$000080 33 33 33 30 20 48 49 4C 4C 43 52 4F 46 54 2F 53 3330 HIL LCROFT/S
$000090 55 49 54 45 20 42 42 00 B4 08 A0 00 B2 20 48 4F UITE BB. 4. .2 HO
$0000A0 55 53 54 4F 4E 2C 20 54 45 58 41 53 20 20 37 37 USTON, T EXAS 77
$0000B0 30 35 37 00 BA 08 AA 00 3A 00 C0 08 B4 00 3A 00 057.:.*. :.@.4.:.
$0000C0 EE 08 C8 00 89 3A 97 3A A2 39 3A 96 37 3A BA 22 n.H..:.: "9:.7::"
$0000D0 54 48 45 20 56 49 53 49 42 4C 45 20 43 4F 4D 50 THE VISI BLE COMP
$0000E0 55 54 45 52 3A 20 36 35 30 32 22 3A BA 00 16 09 UTER: 65 02"::...
$0000F0 D2 00 BA 3A BA 3A 96 31 31 3A BA 22 43 4F 50 59 R.::::.1 1::"COPY
$000100 52 49 47 48 54 20 28 43 29 20 31 39 38 32 22 3A RIGHT (C ) 1982":
$000110 BA 3A BA 3A BA 00 32 09 DC 00 96 31 32 3A BA 22 :::::.2. \..12::"
$000120 53 4F 46 54 57 41 52 45 20 4D 41 53 54 45 52 53 SOFTWARE MASTERS
$000130 22 00 3A 09 E1 00 BA 3A BA 00 5D 09 E6 00 96 38 ".:.a.:: :.].f..8
$000140 3A BA 22 33 33 33 30 20 48 49 4C 4C 43 52 4F 46 ::"3330 HILLCROF
$000150 54 20 20 53 55 49 54 45 20 42 42 22 00 7D 09 F0 T SUITE BB".}.p
$000160 00 96 31 30 3A BA 22 48 4F 55 53 54 4F 4E 2C 20 ..10::"H OUSTON,
$000170 54 45 58 41 53 20 37 37 30 35 37 22 00 8B 09 FA TEXAS 77 057"...z
$000180 00 B9 C9 31 36 33 36 38 2C 30 00 99 09 04 01 81 .9I16368 ,0......
$000190 5A D0 31 C1 31 30 30 30 00 B0 09 0E 01 AD E2 28 ZP1A1000 .0...-b(
$0001A0 C9 31 36 33 38 34 29 CF 31 32 37 C4 32 39 30 00 I16384)O 127D290.
$0001B0 B7 09 18 01 82 5A 00 D9 09 22 01 97 3A A2 31 38 7....Z.Y ."..:"18
$0001C0 3A BA 22 4C 4F 41 44 49 4E 47 2E 2E 2E 22 3B 3A ::"LOADI NG...";:
$0001D0 9F 3A BA 22 2A 22 3A 9D 00 E6 09 2C 01 B9 31 36 .::"*":. .f.,.916
$0001E0 33 38 34 2C 30 00 FC 09 36 01 BA E7 28 34 29 22 384,0.|. 6.:g(4)"
$0001F0 01 03 05 07 09 0B 0D 0F 11 13 15 17 19 1B 1D 1F ........ ........
$000200 21 23 25 27 29 2B 2D 2F 31 41 44 20 54 41 42 4C !#%')+-/ 1AD TABL
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/PROG5.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 38 F8 78 18 D8 58 B8 A9 00 A2 14 A9 80 A0 00 00 8xx.XX8) .".). ..
$000010 00 10 08 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/PROG6.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 A2 04 38 18 CA D0 FB 00 00 00 00 00 00 00 00 3A ".8.JP{. .......:
$000010 4C 10 08 00 00 00 00 00 00 00 00 00 00 00 00 00 L....... ........
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/PROG7.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 A5 33 00 00 00 00 00 00 00 00 00 00 00 00 00 3A %3...... .......:
$000010 4C 10 08 00 00 00 00 00 00 00 00 00 00 00 00 00 L....... ........
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/PROG8.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 AD 1C 0B AD 30 C0 00 00 00 00 00 00 00 00 00 3A -..-0@.. .......:
$000010 4C 10 08 00 00 00 00 00 00 00 00 00 00 00 00 00 L....... ........
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/PROG9.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 4C 00 09 00 00 00 00 00 00 00 00 00 00 00 00 00 L....... ........
$000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000020 32 00 35 08 06 00 B2 20 42 4F 4F 54 20 50 52 4F 2.5...2 BOOT PRO
$000030 47 52 41 4D 00 4E 08 07 00 B2 20 43 4F 50 59 52 GRAM.N.. .2 COPYR
$000040 49 47 48 54 20 28 43 29 20 31 39 38 32 00 65 08 IGHT (C) 1982.e.
$000050 08 00 B2 20 53 4F 46 54 57 41 52 45 20 4D 41 53 ..2 SOFT WARE MAS
$000060 54 45 52 53 00 83 08 09 00 B2 20 33 33 33 30 20 TERS.... .2 3330
$000070 48 49 4C 4C 43 52 4F 46 54 2F 53 55 49 54 45 20 HILLCROF T/SUITE
$000080 4C 90 08 00 00 00 00 00 00 00 00 55 53 54 4F 4E L....... ...USTON
$000090 4C 00 0B 00 00 00 00 00 00 00 00 00 35 37 00 A5 L....... ....57.%
$0000A0 08 0B 00 3A 00 AB 08 0C 00 3A 00 C3 08 0F 00 B9 ...:.+.. .:.C...9
$0000B0 33 37 31 38 2C 30 3A B2 20 53 57 41 50 20 46 4C 3718,0:2 SWAP FL
$0000C0 41 47 00 0D 09 14 00 B9 31 30 31 30 2C 39 36 3A AG.....9 1010,96:
$0000D0 B9 31 30 31 31 2C 31 34 3A AD E2 28 C9 33 29 D0 91011,14 :-b(I3)P
$0000E0 32 35 30 C4 8C C9 31 31 36 39 3A B2 20 53 45 54 250D.I11 69:2 SET
$0000F0 20 52 45 53 45 54 20 56 45 43 54 4F 52 3B 20 41 RESET V ECTOR; A
$000100 4C 80 08 00 00 00 00 00 00 00 49 58 00 30 09 1E L....... ..IX.0..
$000110 00 B9 31 30 30 38 2C 36 38 3A B9 31 30 30 39 2C .91008,6 8:91009,
$000120 31 34 3A B2 20 42 52 4B 20 56 45 43 54 4F 52 00 14:2 BRK VECTOR.
$000130 5E 09 2D 00 89 3A 97 3A A2 39 3A 96 37 3A BA 22 ^.-..:.: "9:.7::"
$000140 54 48 45 20 56 49 53 49 42 4C 45 20 43 4F 4D 50 THE VISI BLE COMP
$000150 55 54 45 52 3A 20 36 35 30 32 22 3A BA 00 86 09 UTER: 65 02"::...
$000160 32 00 BA 3A BA 3A 96 31 31 3A BA 22 43 4F 50 59 2.::::.1 1::"COPY
$000170 52 49 47 48 54 20 28 43 29 20 31 39 38 32 22 3A RIGHT (C ) 1982":
$000180 BA 3A BA 3A BA 00 A2 09 37 00 96 31 32 3A BA 22 :::::.". 7..12::"
$000190 53 4F 46 54 57 41 52 45 20 4D 41 53 54 45 52 53 SOFTWARE MASTERS
$0001A0 22 00 C5 09 3C 00 96 38 3A BA 22 33 33 33 30 20 ".E.<..8 ::"3330
$0001B0 48 49 4C 4C 43 52 4F 46 54 20 20 53 55 49 54 45 HILLCROF T SUITE
$0001C0 20 42 42 22 00 E5 09 41 00 96 31 30 3A BA 22 48 BB".e.A ..10::"H
$0001D0 4F 55 53 54 4F 4E 2C 20 54 45 58 41 53 20 37 37 OUSTON, TEXAS 77
$0001E0 30 35 37 22 00 F3 09 43 00 B9 C9 31 36 33 36 38 057".s.C .9I16368
$0001F0 2C 30 00 01 0A 46 00 81 5A D0 31 C1 31 30 30 30 ,0...F.. ZP1A1000
$000200 00 18 0A 4B 00 AD E2 28 C9 31 36 33 38 34 29 CF ...K.-b( I16384)O
$000210 31 32 37 C4 31 30 30 00 1F 0A 50 00 82 5A 00 37 127D100. ..P..Z.7
$000220 0A 64 00 97 3A A2 31 38 3A BA 22 4C 4F 41 44 49 .d..:"18 ::"LOADI
$000230 4E 47 2E 2E 2E 22 00 44 0A 6E 00 B9 31 36 33 38 NG...".D .n.91638
$000240 34 2C 30 00 5A 0A 82 00 BA E7 28 34 29 22 4D 41 4,0.Z... :g(4)"MA
$000250 58 46 49 4C 45 53 20 31 22 00 76 0A 8C 00 BA E7 XFILES 1 ".v...:g
$000260 28 34 29 22 42 4C 4F 41 44 20 54 41 42 4C 45 2B (4)"BLOA D TABLE+
$000270 48 52 43 47 22 00 8B 0A 91 00 B9 31 36 33 38 34 HRCG"... ..916384
$000280 2C 30 3A B9 31 30 34 2C 36 34 00 9D 0A 96 00 BA ,0:9104, 64.....:
$000290 E7 28 34 29 22 52 55 4E 20 56 43 22 00 00 00 5A g(4)"RUN VC"...Z
$0002A0 00 87 40 00 00 00 3A 00 B4 0A 5E 01 AD 54 42 C4 ..@...:. 4.^.-TBD
$0002B0 33 36 30 00 CB 0A 63 01 B9 36 2C 4E 3A 8C 44 42 360.K.c. 96,N:.DB
$0002C0 25 3A 4E 24 D0 42 42 24 3A B1 00 02 0B 68 01 B9 %:N$PBB$ :1...h.9
$0002D0 36 2C C2 41 28 4E 29 3A 8C 44 42 25 3A 4E 24 D0 6,BA(N): .DB%:N$P
$0002E0 42 42 24 C8 22 20 22 3A B9 36 2C C2 42 28 4E 29 BB$H" ": 96,BB(N)
$0002F0 3A 8C 44 42 25 3A 4E 24 D0 4E 24 C8 42 42 24 3A :.DB%:N$ PN$HBB$:
$000300 4C 00 0B 00 00 00 00 00 00 00 00 00 00 00 00 4E L....... .......N
$000310 29 3A AD 54 42 C4 5A D0 35 00 36 0B 7C 01 AD E3 ):-TBDZP 5.6.|.-c
$000320 28 4E 24 29 D1 5A C4 4E 24 D0 22 30 22 C8 4E 24 (N$)QZDN $P"0"HN$
$000330 3A AB 33 38 30 00 3C 0B 81 01 B1 00 47 0B 90 01 :+380.<. ..1.G...
$000340 AD C6 53 53 C4 B1 00 6D 0B 9A 01 A2 35 3A 96 32 -FSSD1.m ..."5:.2
$000350 3A BA 49 24 41 24 22 31 22 E7 28 31 31 29 5A 31 ::I$A$"1 "g(11)Z1
$000360 24 41 24 22 30 22 4E 4D 24 43 41 24 00 AD 0B A4 $A$"0"NM $CA$.-.$
$000370 01 5A D0 E2 28 4B 42 29 3A AD 5A CF 51 31 CD 5A .ZPb(KB) :-ZOQ1MZ
$000380 D1 CF 31 35 35 CD 28 5A D1 31 37 37 CE 5A CF 31 QO155M(Z Q177NZO1
$000390 38 35 29 CE 53 53 D0 33 C4 B9 4B 53 2C 46 3A B0 85)NSSP3 D9KS,F:0
$0003A0 31 31 30 30 3A B2 50 41 55 53 45 20 00 B3 0B AE 1100:2PA USE .3..
$0003B0 01 B1 00 CD 0B F4 01 AD 53 53 C4 A2 35 3A 96 32 .1.M.t.- SSD"5:.2
$0003C0 3A BA 49 24 51 32 24 4E 4D 24 3A B1 00 D3 0B FE ::I$Q2$N M$:1.S.~
$0003D0 01 B1 00 D9 0B DF 03 3A 00 E6 0B E0 03 B2 44 49 .1.Y._.: .f.`.2DI
$0003E0 53 50 20 52 31 00 EC 0B E1 03 3A 00 FA 0B E8 03 SP R1.l. a.:.z.h.
$0003F0 AD C6 53 53 C4 31 30 34 30 00 03 0C EA 03 BA 59 -FSSD104 0...j.:Y
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/PROGXX.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 18 A5 00 65 01 4C 00 08 00 00 00 00 00 00 00 00 .%.e.L.. ........
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/VC.bas:
0 ONERR GOTO 40000
1 REM FP
2 POKE 1010,96: POKE 1011,14: IF PEEK( -3) = 250 THEN CALL -1169
3 :
5 REM TVC 1.0
7 REM 12DEC82
9 :
30 GOTO 10000
90 :
92 REM N$.2.N
96 :
100 ER = F:Z2 = LEN(N$):N = F: IF NOT Z2 THEN ER = T: RETURN
105 ON BASE +1 GOSUB 130,190,235: IF N >QC AND ER < >2 THEN ER = 3
110 RETURN
130 IF Z2 >5 THEN Z2 = 5
140 FOR Z = T TO Z2:Z$ = MID$ (N$,Z,T):Z3 = ASC(Z$): IF Z3 <48 OR Z3 >70 OR (Z3 >57 AND Z3 <65) THEN ER = 2:Z = Z2: GOTO 165
150 IF Z3 <64 THEN Z3 = VAL(Z$): GOTO 160
155 Z3 = Z3 -55
160 N = N +(Z3 *(16 ^(Z2 -Z)))
165 NEXT Z: RETURN
190 FOR Z = T TO Z2:Z$ = MID$ (N$,Z,1): IF Z$ < >"0" AND Z$ < >"1" THEN ER = 2
205 IF Z$ = "1" THEN N = N +(2 ^(Z2 -Z))
210 NEXT Z: RETURN
235 FOR Z = 1 TO Z2
240 Z$ = MID$ (N$,Z,T):Z3 = ASC(Z$)
245 IF Z3 <48 OR Z3 >57 THEN ER = 2
250 NEXT Z
255 N = VAL(N$): RETURN
260 :
292 REM N.2.N$
294 :
300 ER = F:N$ = ""
305 IF N >QC OR N Q3 THEN TB = T
315 ON BASE +1 GOSUB 325,350,375:TB = F: RETURN
325 IF TB THEN 335
330 POKE 6,N: CALL DH%:N$ = HH$: RETURN
335 POKE 6, FN A(N): CALL DH%:N$ = HH$ +"": POKE 6, FN B(N): CALL DH%:N$ = N$ +HH$: RETURN
345 :
350 IF TB THEN 360
355 POKE 6,N: CALL DB%:N$ = BB$: RETURN
360 POKE 6, FN A(N): CALL DB%:N$ = BB$ +" ": POKE 6, FN B(N): CALL DB%:N$ = N$ +BB$: RETURN
375 Z = 3:N$ = STR$(N): IF TB THEN Z = 5
380 IF LEN(N$) Q1 AND Z < >155 AND (Z <177 OR Z >185) OR SS = 3 THEN POKE KS,F: GOSUB 1100: REM PAUSE
430 RETURN
500 IF SS THEN VTAB 5: HTAB 2: PRINT I$Q2$NM$: RETURN
510 RETURN
991 :
992 REM DISP R1
993 :
1000 IF NOT CA AND NOT SS THEN 1040
1002 PRINT Y$;
1003 IF WND AND (R1 <4 OR (R1 >8 AND R1 < >10)) THEN 1040
1005 X = X%(DM(R1),R1):Y = Y%(R1):BASE = DM(R1):N = R(R1): IF R1 >9 THEN TB = T
1008 GOSUB 300: VTAB Y
1010 FOR Z = 1 TO 2: HTAB X: PRINT I$N$NM$;
1015 GOSUB 1250: HTAB X: PRINT N$;: GOSUB 1250
1018 NEXT
1020 Z = PEEK(KB): IF Z >176 AND Z <186 THEN POKE KS,F:XX = 25 *(Z -177)
1040 RETURN
1070 :
1100 VTAB 20: HTAB 29: PRINT I$" PAUSED "NM$;
1105 Z = PEEK(KB): IF Z 8 AND R1 < >10)) THEN RETURN
1203 X = X%(DM(R1),R1):Y = Y%(R1):Z = XO%(R1 >9,DM(R1))
1205 Y = ((Y -T) *8) -2:X = ((X -T) *7) -3
1210 HPLOT X,Y TO X +Z,Y TO X +Z,Y +10 TO X,Y +10 TO X,Y
1220 RETURN
1250 FOR II = 1 TO XX: NEXT : RETURN
1300 FOR Z1 = 1 TO 6:Z = PEEK(SP): NEXT : RETURN
1302 :
1304 REM BLNK BIT D
1306 :
1310 Z1$ = "TEST FLAG": GOSUB 400: IF NOT SS THEN RETURN
1311 Z$ = MID$ ("CZIDB VN",D +1,T)
1313 IF D >3 THEN X = 38 -D
1315 IF D <4 THEN X = 39 -D
1316 PRINT CHR$(12);
1317 FOR Z2 = 1 TO 4
1320 HTAB X: VTAB 1: PRINT Z$;
1322 IF NOT PV THEN GOSUB 1300
1325 HTAB X: VTAB 1: PRINT I$Z$NM$;
1328 NEXT : PRINT CA$: GOSUB 500: RETURN
1340 :
1342 REM DISP R2
1344 :
1350 TMP = R1:R1 = R2: GOSUB 1000:R1 = TMP: RETURN
1390 :
1400 IF R1 >12 THEN ON R1 -12 GOSUB 1420,1430,1440,1450: RETURN : REM 16 BIT SOURCE
1410 ON R2 -12 GOSUB 1460,1470,1480,1490: RETURN : REM 16 BIT DEST.
1415 :
1420 R1 = 10: GOSUB 1000:R(R2) = FN B(R(10)): GOSUB 1350: RETURN
1430 R1 = 10: GOSUB 1000:R(R2) = FN A(R(10)): GOSUB 1350: RETURN
1440 R1 = 11: GOSUB 1000:R(R2) = FN B(R(11)): GOSUB 1350: RETURN
1450 R1 = 11: GOSUB 1000:R(R2) = FN A(R(11)): GOSUB 1350: RETURN
1460 GOSUB 1000:R(10) = FN A(R(10)) *Q4 +R(R1):R1 = 10: GOSUB 1000: RETURN
1470 GOSUB 1000:R(10) = FN B(R(10)) +(R(R1) *Q4):R1 = 10: GOSUB 1000: RETURN
1480 GOSUB 1000:R(11) = FN A(R(11)) *Q4 +R(R1):R1 = 11: GOSUB 1000: RETURN
1490 GOSUB 1000:R(11) = FN B(R(11)) +R(R1) *Q4:R1 = 11: GOSUB 1000: RETURN
1491 :
1492 REM TRX
1494 :
1500 Z1$ = "T: " +R$(R1) +"->" +R$(R2): GOSUB 400
1510 IF R1 >12 OR R2 >12 THEN GOSUB 1400: GOTO 1530: REM 16BIT REGS
1520 GOSUB 1000:R(R2) = R(R1): IF R1 = 8 AND R2 = 11 THEN R(11) = R(11) +Q4
1525 GOSUB 1350
1530 GOSUB 500: RETURN
1545 :
1550 Z1$ = "INC: " +R$(R1): GOSUB 400
1560 R(R1) = R(R1) +T: IF R(R1) = Z1 THEN R(R1) = F
1570 GOSUB 1000: GOSUB 500: RETURN
1590 :
1592 REM SIMP INC
1594 :
1600 Z1 = Q4: GOTO 1550
1640 :
1642 REM SIMP DEC
1644 :
1650 Z1$ = "DEC: " +R$(R1): GOSUB 400:R(R1) = R(R1) -T: IF R(R1) Q1 THEN P(7) = T
3025 GOSUB 2800: RETURN
3040 :
3042 REM BUFF.2.PC
3044 :
3050 R1 = 1:R2 = 14: GOSUB 1500:R1 = 2:R2 = 13: GOSUB 1500: RETURN
3090 :
3092 REM BUFF.2.AD
3094 :
3100 R1 = 1:R2 = 16: GOSUB 1500:R1 = 2:R2 = 15: GOSUB 1500: RETURN
3140 :
3142 REM PC.2.ADD
3144 :
3150 R1 = 10:R2 = 11: GOSUB 1500: RETURN
3190 :
3392 REM R1+R2->R3
3394 :
3400 Z1$ = "CALC ADDR": GOSUB 400: GOSUB 1000: GOSUB 1350
3410 R(R3) = R(R1) +R(R2)
3420 IF R(R3) >Q3 THEN R(R3) = R(R3) -Q4
3430 R1 = R3: GOSUB 1000
3440 GOSUB 500: RETURN
3490 :
3492 REM R1+R2->R1
3494 :
3500 Z1$ = "CALC ADDR": GOSUB 400: GOSUB 1350
3510 R(R1) = R(R1) +R(R2): IF R(R1) >QC THEN R(R1) = R(R1) -QD
3520 GOSUB 1000: GOSUB 500: RETURN
3590 :
3592 REM MASTR SHFTS
3594 :
3600 Z1$ = "COMPUTE": GOSUB 400
3605 POKE 6,R(D): POKE 8,R(5): POKE 9,C
3610 CALL SH%: REM SHIFTS.OBJ
3620 R(D) = PEEK(6):R(5) = PEEK(8)
3640 R1 = D: GOSUB 1000: GOSUB 2900
3650 RETURN
3690 :
3692 REM INC.DEC.MASTR
3694 :
3700 R1 = D: ON C +1 GOSUB 1650,1600: REM DEC, INC
3710 GOSUB 3000: REM FLAGSTEST
3720 RETURN
3790 :
3792 REM R(R1)=R2
3794 :
3800 R(R1) = R2: GOSUB 1000: RETURN
3990 :
3992 REM BIG 6
3994 :
4000 IF B < >4 THEN GOSUB 2000: REM READ,UNLESS STORE
4010 IF B = 1 OR B = 5 THEN Z1$ = "COMPUTE": GOSUB 400
4012 ON B GOSUB 4100,4200,4250,4300,4350,4450
4015 REM MATH,SHFTS,LOADS,STORES,COMPARES,INCS/DECS
4018 IF SS THEN GOSUB 500
4020 GOSUB 1800: REM INC.PC
4030 RETURN
4090 :
4092 REM MATH
4094 :
4100 POKE 6,R(1): POKE 7,R(4): POKE 8,R(5): POKE 9,C
4110 CALL MA%: REM MATH.OBJ
4120 R(4) = PEEK(7):R(5) = PEEK(8)
4130 IF B <6 THEN R1 = 4: GOSUB 1000: REM REDISP.ACC UNLESS BIT TEST
4140 GOSUB 2900: REM R.2.P
4150 RETURN
4190 :
4192 REM SHIFT
4194 :
4200 D = 1: GOSUB 3600: GOSUB 2200: RETURN
4240 :
4242 REM LOADS
4244 :
4250 R1 = 1:R2 = D: GOSUB 1500: GOSUB 3000: RETURN
4290 :
4292 REM STORES
4294 :
4300 R1 = D:R2 = 1: GOSUB 1500: GOSUB 2200: RETURN
4340 :
4342 REM COMPARES
4344 :
4350 P(0) = T:P(1) = F:P(7) = F
4360 R1 = 1: GOSUB 1000:R1 = D: GOSUB 1000
4370 Z = R(D) -R(1)
4380 IF Z = Q2 THEN P(7) = T: REM SET N
4400 IF Z = F THEN P(1) = T: REM SET Z
4410 GOSUB 2800: RETURN : REM R.2.P
4440 :
4442 REM INC/DEC
4444 :
4450 GOSUB 3700: GOSUB 2200: RETURN : REM INC/DEC,WRITE
4475 :
4492 REM READ MV
4494 :
4500 IF AD 53247 THEN MV = PEEK(AD): RETURN
4530 MV = F: IF AD = KB OR AD = KS OR AD = 49252 OR AD = 49253 THEN MV = PEEK(AD)
4535 IF AD = SP THEN GOSUB 1300
4540 RETURN
4590 :
4592 REM WRITE MV
4594 :
4600 IF AD 1023) THEN POKE AD,MV: GOTO 4649
4620 IF AD >8191 AND AD <16384 THEN POKE AD,MV: GOTO 4649
4625 IF AD = SP THEN GOSUB 1300
4630 RETURN
4649 IF WND < >1 THEN RETURN
4650 Y = AD -LC: IF Y > = F AND Y <8 THEN X = 7: GOSUB 9600: REM PRINT.MV
4660 Y = AD -RC: IF Y > = F AND Y <8 THEN X = 27: GOSUB 9600
4670 RETURN
4980 :
4983 REM ADDRS MODES
4990 :
4992 REM IMMED
4994 :
5000 GOTO 4010: REM BIG 6.ALT
5190 :
5192 REM ABS
5194 :
5200 IF B >6 THEN ON B -6 GOTO 5300,5350: REM JMP,JSR
5220 GOSUB 3100: REM BUFF.2.ADD
5230 GOTO 4000: REM BIG.6
5290 :
5292 REM JMP
5294 :
5300 GOSUB 3050: RETURN : REM BUFF2PC
5340 :
5342 REM JSR
5344 :
5350 GOSUB 1800: GOSUB 3150: GOSUB 2000: GOSUB 1820: GOSUB 1800
5355 D = 14: GOSUB 2700:D = 13: GOSUB 2700: REM INC,PUSH MSB,LSB
5360 GOSUB 3150: GOSUB 2000: REM 3RD BYTE OF JSR
5365 GOSUB 3050: RETURN : REM BUFF.2.PC
5490 :
5492 REM ZP
5494 :
5500 R1 = 1:R2 = 11: GOSUB 1500
5530 GOTO 4000: REM BIG.6
5590 :
5592 REM ACCUM
5594 :
5600 D = 4: GOSUB 3600: GOSUB 1800: RETURN : REM SHFTS,INC PC
5990 :
5992 REM IMPLIED
5994 :
6000 ON B GOSUB 6100,6200,6600,6400,6500,6300,6700,6710,6800
6010 REM SET/CLR,TRX,NOP,PUSH,PULL,DEC/INCS/,RTI,RTS,BRK
6020 :
6030 IF B <9 THEN GOSUB 1800
6040 RETURN
6090 :
6092 REM SETS/CLEARS
6094 :
6100 P(D) = C: GOSUB 2800: REM P.2.R
6110 RETURN
6190 :
6192 REM TRANSFERS
6194 :
6200 R1 = C:R2 = D: GOSUB 1500
6210 IF D < >8 THEN GOSUB 3000: REM FLAGSTEST
6220 RETURN
6290 :
6292 REM INCS/DECS
6294 :
6300 GOSUB 3700: RETURN
6390 :
6392 REM PUSH
6394 :
6400 GOSUB 2700: RETURN : REM PUSH
6490 :
6492 REM PULL
6494 :
6500 GOSUB 2600: REM PULL
6510 IF D = 4 THEN GOSUB 3000: RETURN : REM FLAGSTEST
6520 REM ELSE WE PULLED P
6530 GOSUB 2900: REM R.2.P
6540 RETURN
6590 :
6592 REM NOP
6594 :
6600 RETURN
6690 :
6692 REM RTI/RTS
6694 :
6700 D = 5: GOSUB 2600: GOSUB 2900: REM PULL P
6705 :
6710 D = 13: GOSUB 2600:D = 14: GOSUB 2600: RETURN : REM PULL PCL,PCH
6790 :
6792 REM BRK
6794 :
6800 IF NOT PV THEN BF = T: GOSUB 1300: RETURN
6805 D = 14: GOSUB 2700:D = 13: GOSUB 2700: REM PUSH PC
6810 D = 5: GOSUB 2700: REM PUSH P
6820 R(11) = QC -1:R1 = 11: GOSUB 1000: REM ADD=65534, AND BLINK IT
6840 GOSUB 2000: GOSUB 1820: REM READ,ROLLUP
6850 GOSUB 1750: GOSUB 2000: REM INC.ADD,READ
6860 GOSUB 3050: REM BUFF.2.PC
6870 RETURN
6880 :
6990 :
6992 REM (IND,X)
6994 :
7000 R1 = 1:R2 = 7:R3 = 11: GOSUB 3400: REM R1+R2 --> R3
7030 GOSUB 2000: GOSUB 1820: REM RD/RLUP
7050 R1 = 11: GOSUB 1600: REM SIM.INC
7060 GOSUB 2000: GOSUB 3100: GOTO 4000: REM RD/BUFF.AD/BIG6
7190 :
7192 REM (IND),Y
7194 :
7200 R1 = 1:R2 = 11: GOSUB 1500
7230 GOSUB 2000: GOSUB 1820: REM READ,ROLLUP
7240 R1 = 11: GOSUB 1600: REM INC
7250 GOSUB 2000: REM READ
7260 GOSUB 3100: REM BUFF.2.ADD
7270 R1 = 11:R2 = 6: GOSUB 3500: REM R1+R2 --> R1
7280 GOTO 4000: REM BIG 6
7390 :
7392 REM ZP,X
7394 :
7400 R1 = 1:R2 = 7:R3 = 11: GOSUB 3400: REM R1+R2 --> R3
7430 GOTO 4000: REM BIG 6
7590 :
7592 REM ABS,X
7594 :
7600 GOSUB 3100: REM BUFF.2.ADD
7620 R1 = 11:R2 = 7: GOSUB 3500: REM R1+R2 --> R1
7630 GOTO 4000: REM BIG 6
7690 :
7692 REM ABS,Y
7694 :
7700 GOSUB 3100: REM BUFF.2.ADD
7720 R1 = 11:R2 = 6: GOSUB 3500: REM R1+R2-->R1
7730 GOTO 4000: REM BIG 6
7790 :
7792 REM REL
7794 :
7800 GOSUB 1310: REM BLINK.BIT.D
7830 R(10) = R(10) +T
7900 :
7910 IF P(D) = C THEN R(10) = D2: REM FROM DISASS.
7920 R1 = 10: GOSUB 1000: RETURN
7990 :
7992 REM (IND)
7994 :
8000 GOSUB 3100: GOSUB 2000: GOSUB 1820
8010 Z = FN A(R(11)):Z1 = FN B(R(11)):Z1 = Z1 +T
8020 IF Z1 >Q3 THEN Z1 = F
8030 R(11) = Z *Q4 +Z1:R1 = 11: GOSUB 1000: REM COPY 6502 BUG
8040 GOSUB 2000: GOSUB 3050: RETURN
8090 :
8092 REM ZP,Y
8094 :
8100 R1 = 1:R2 = 6:R3 = 11: GOSUB 3400: REM R1+R2 --> R3
8130 GOTO 4000: REM BIG 6
8140 :
9004 REM CPU STAT
9006 :
9010 PRINT Y$;: HTAB 2: VTAB 3: PRINT V$: VTAB 5: HTAB 11: PRINT W$;: RETURN
9012 :
9044 REM MONITOR COM
9046 :
9050 POKE 32,0: POKE 33,40: POKE 34,23: POKE 25,24: RETURN
9055 :
9292 REM DISP LC
9294 :
9300 FOR AD = LC TO LC +7
9310 GOSUB 9500: REM AD.2.N$
9320 Y = AD -LC: VTAB 9 +Y: HTAB 2: PRINT I$N$NM$":";
9330 GOSUB 4500: REM MV.FROM.AD
9340 X = 7: GOSUB 9600: REM PRINT.MV
9350 NEXT AD: RETURN
9390 :
9392 REM DISP RC
9394 :
9400 FOR AD = RC TO RC +7: GOSUB 9500
9410 Y = AD -RC: VTAB 9 +Y: HTAB 22: PRINT I$N$NM$":";
9420 GOSUB 4500:X = 27: GOSUB 9600: REM MV.FROM.AD; PLOT MV
9430 NEXT AD: RETURN
9490 :
9492 REM AD.2.N$
9494 :
9500 IF AD >QC THEN AD = AD -QD
9510 N = AD:TB = T:BASE = RB: IF BASE = 1 THEN BASE = 0
9520 GOSUB 300: RETURN
9590 :
9592 REM PRINT MV
9594 :
9600 N = MV:BASE = RB: GOSUB 300: PRINT Y$;: VTAB 9 +Y: HTAB X +(RB = 2): PRINT N$;: RETURN
9620 :
9692 REM PRINTER
9694 :
9700 IF NOT PR THEN RETURN
9710 PR# 1: PRINT CHR$(9)"80N";
9720 PRINT : PRINT IN$
9730 R1 = 4: GOSUB 9805:Z$ = "A=" +N$:R1 = 7: GOSUB 9805:Z$ = Z$ +" X=" +N$:R1 = 6: GOSUB 9805:Z$ = Z$ +" Y=" +N$:R1 = 5: GOSUB 9805:Z$ = Z$ +" P=" +N$:R1 = 8: GOSUB 9805:Z$ = Z$ +" S=" +N$
9800 PRINT Z$: CALL 4610: PRINT CHR$(12): RETURN
9805 BASE = DM(R1):N = R(R1): GOSUB 300: RETURN
9810 :
9820 REM IN$ PRINTER
9830 :
9850 PRINT Y$;: VTAB 18: HTAB 2: PRINT V$: VTAB 22: HTAB 26: PRINT W$;: PRINT : PRINT I$ LEFT$(IN$,4)NM$ RIGHT$(IN$, LEN(IN$) -4)Y$;: RETURN
9900 PRINT Y$;: VTAB 18: HTAB 2: PRINT V$: VTAB 22: HTAB 26: PRINT W$;: PRINT : PRINT IN$Y$;: RETURN
9980 :
9990 :
9992 REM MAIN PROG
9994 :
10000 GOSUB 20000: REM INIT
10005 GOSUB 19000: REM DRW SCRN
10010 GOSUB 12500:Z = PEEK(KB): IF Z < >27 AND Z < >155 AND SS <2 AND NOT BF THEN 10020
10015 BF = F:CA = T: GOSUB 9010: PRINT CL$: POKE KS,F: GOSUB 12990: REM ENTER MON
10020 GOSUB 10300: REM FETCH NEXT INST
10025 :
10030 ON A +1 GOSUB 10800,5000,5200,5500,5600,6000,7000,7200,7400,7600,7700,7800,8000,8100
10040 :
10045 GOSUB 9850: GOSUB 9700: REM PRINT IN$'S
10050 GOTO 10010
10060 :
10290 :
10292 REM NXT INST
10294 :
10300 Z = FRE(0)
10302 IF SS THEN GOSUB 9010: PRINT K$I$A$"1"CL$" FETCH"Y$A$"0"NM$CA$
10320 GOSUB 3150: GOSUB 2000: REM PC.2.AD,READ
10330 R1 = 1:R2 = 3: GOSUB 1500
10348 IF SS THEN HTAB 2: VTAB 3: PRINT K$I$A$"1";O$(E)" "AM$(A)A$"0"NM$CA$
10360 IF E = 29 THEN RETURN : REM JSR
10370 IF AM%(A) >1 THEN GOSUB 1800: GOSUB 3150: GOSUB 2000: REM INC,PC.2.ADDRESS,READ
10380 IF AM%(A) = 3 THEN GOSUB 1820: GOSUB 1800: GOSUB 3150: GOSUB 2000: REM ROLLUP,INC,PC.2.AD,READ
10390 :
10400 RETURN
10790 :
10800 ER = 12: GOSUB 13700: POP : GOTO 10015
10990 :
10992 REM DISSASSEMBLE
10994 :
11000 N = D1:TB = T:BASE = 0: GOSUB 300
11010 IN$ = N$ +":"
11020 GOSUB 11500:IN$ = IN$ +Z$
11030 A = PEEK(7168 +Z):B = PEEK(7424 +Z):C = PEEK(7680 +Z):D = PEEK(7936 +Z):E = PEEK(6912 +Z)
11040 :
11050 ON AM%(A) GOSUB 11100,11200,11300
11060 :
11070 D1 = D1 +T: IF D1 >QC THEN D1 = F
11080 RETURN : REM D1 POINTS TO NEXT INSTRU.
11090 :
11100 IN$ = IN$ +" " +O$(E): RETURN
11190 :
11200 D1 = D1 +T: GOSUB 11500
11210 IN$ = IN$ +" " +Z$ +" " +O$(E)
11220 OP$ = "$" +Z$
11230 IF A = 11 THEN GOSUB 11600: REM BRANCH
11240 IF A = 1 THEN OP$ = "#" +OP$
11250 IF A = 6 THEN OP$ = "(" +OP$ +",X)"
11255 IF A = 7 THEN OP$ = "(" +OP$ +"),Y"
11260 IF A = 8 THEN OP$ = OP$ +",X"
11265 IF A = 13 THEN OP$ = OP$ +",Y"
11268 IN$ = IN$ +" " +OP$
11270 RETURN
11290 :
11300 D1 = D1 +T: GOSUB 11500:D1$ = Z$ +""
11310 D1 = D1 +T: GOSUB 11500
11320 IN$ = IN$ +" " +D1$ +" " +Z$ +" " +O$(E)
11330 OP$ = "$" +Z$ +D1$
11340 IF A = 9 THEN OP$ = OP$ +",X"
11350 IF A = 10 THEN OP$ = OP$ +",Y"
11360 IF A = 12 THEN OP$ = "(" +OP$ +")"
11370 IN$ = IN$ +" " +OP$: RETURN
11490 :
11500 IF D1 >QC THEN D1 = F
11510 AD = D1: GOSUB 4500:N = MV
11520 BASE = 0: GOSUB 300:Z$ = N$:Z = MV: RETURN
11590 :
11600 IF Z >Q1 THEN Z = Z -Q4: REM NEG BR
11610 D2 = D1 +Z +T: REM D2 WILL BE NEW PC IF THIS BR. SUCEEDS
11620 IF D2 >QC THEN D2 = D2 -QD
11630 IF D2 36 THEN 12010
12040 P$ = P$ +Z$:Z1 = Z1 +T: PRINT Z$;: GOTO 12010
12100 IF NOT Z1 THEN RETURN
12110 IF Z1 = T THEN Z1 = F:P$ = "": PRINT Z1$;: RETURN
12120 Z1 = Z1 -T:P$ = LEFT$(P$,Z1): PRINT Z1$;: RETURN
12490 :
12500 D1 = R(10): GOSUB 11000: PRINT Y$I$;
12510 VTAB 22: HTAB 29: PRINT Q2$;: HTAB 29
12520 PRINT RIGHT$(IN$, LEN(IN$) -14)NM$: RETURN
12890 :
12892 REM MONITOR
12894 :
12990 IF NOT SS THEN SS = T: FOR R1 = 4 TO 8: GOSUB 1000: NEXT :R1 = 10: GOSUB 1000:SS = F
13000 P$ = "#":Z = FRE(0): GOSUB 13600
13010 POKE KS,F: GOSUB 12000: IF P$ = "" THEN GOSUB 9050: PRINT CL$Y$;:CA = F: RETURN
13015 PRINT Y$;
13020 GOSUB 13100: GOSUB 13400: REM PARSES
13030 IF NOT CMD THEN ER = T: GOSUB 13700: GOTO 13000
13040 :
13050 ON CMD GOSUB 13800,13900,14000,14200,14300,15000,14500,16000,14550,14600,19000,14800,14900,11810,50000,15500,18000,18200,18500,17000,17500
13060 :
13080 :
13085 GOTO 13000
13086 :
13100 P1$ = "":P2$ = "":P3$ = ""
13110 Z = 0:Z1 = LEN(P$)
13120 GOSUB 13350: IF Z$ = " " THEN 13120
13160 P1$ = Z$
13170 GOSUB 13350: IF Z$ = " " THEN 13210
13180 P1$ = P1$ +Z$: GOTO 13170
13210 GOSUB 13350: IF Z$ = " " THEN 13210
13220 P2$ = Z$
13230 GOSUB 13350: IF Z$ = " " THEN 13270
13240 P2$ = P2$ +Z$: GOTO 13230
13270 GOSUB 13350: IF Z$ = " " THEN 13270
13280 P3$ = Z$
13290 GOSUB 13350: IF Z$ = " " THEN RETURN
13300 P3$ = P3$ +Z$: GOTO 13290
13310 :
13350 Z = Z +T: IF Z >Z1 THEN POP : RETURN
13360 Z$ = MID$ (P$,Z,T): RETURN
13390 :
13392 REM 2ND PARSE
13394 :
13400 CMD = F: FOR Z = 1 TO 19
13410 IF P1$ = MC$(Z) THEN CMD = Z
13420 NEXT : IF CMD THEN RETURN
13430 :
13440 FOR Z = 1 TO 12: IF P1$ = R$(Z) THEN CMD = 20:P1 = Z
13450 NEXT : IF CMD THEN RETURN : REM WAS REG
13460 :
13470 N$ = P1$:BASE = MB: GOSUB 100
13480 IF NOT ER THEN CMD = 21:P1 = N: REM AD
13490 RETURN
13590 :
13592 REM DISP PRMPT
13594 :
13600 GOSUB 9050: PRINT CL$P$" "V$;: RETURN
13690 :
13692 REM ER
13694 :
13700 FOR Z2 = 1 TO 5: GOSUB 1300: NEXT
13709 PRINT Y$;: VTAB 20: HTAB 29: PRINT CHR$(19)ER$(ER)CA$
13710 FOR II = 1 TO 2000: NEXT : VTAB 20: HTAB 29: PRINT Q2$: RETURN
13790 :
13792 REM BLOAD
13794 :
13800 Z$ = ",A$800": IF P3$ = "P3" THEN Z$ = ",A$300"
13801 IF P3$ = "P2" THEN Z$ = ",A$200"
13802 IF P2$ = "" THEN ER = 1: GOTO 13700
13820 VTAB 20: PRINT D$"BLOAD"P2$Z$
13830 IF PEEK(3584) < >32 OR PEEK(3585) < >16 OR PEEK(3586) < >14 THEN PR# 6: PRINT :OVERFLOW
13850 GOSUB 12500: IF WND = 1 THEN GOSUB 9300: GOSUB 9400
13860 RETURN
13890 :
13892 REM BSAVE
13894 :
13900 IF NOT PV THEN ER = 14: GOTO 13700
13901 Z$ = ",A$800,L$400": IF P3$ = "P3" THEN Z$ = ",A$300,L$C0"
13902 IF P2$ = "" THEN ER = 1: GOTO 13700
13904 IF P3$ = "P2" THEN Z$ = ",A$200,L$100"
13910 VTAB 20: PRINT D$"SOREN"P2$Z$
13920 RETURN
13992 REM BSE CHNG
13994 :
14000 Z1 = 0: FOR Z = 1 TO 12: IF P2$ = R$(Z) THEN Z1 = Z
14010 NEXT : FOR Z = 10 TO 12: IF P2$ = RX$(Z) THEN Z1 = Z +3
14020 NEXT : IF NOT Z1 THEN ER = 1: GOTO 13700: REM BASE ER
14030 :
14040 BASE = 9: REM FLAG VAL!
14050 FOR Z = 0 TO 2: IF P3$ = RX$(Z) THEN BASE = Z
14060 NEXT : IF BA = 9 THEN ER = 2: GOTO 13700
14070 :
14080 IF Z1 <13 THEN R1 = Z1: GOSUB 19850: RETURN : REM NEW BASE,R1
14090 ON Z1 -12 GOSUB 19800,14130,14150: RETURN : REM ALL,MEM,MON
14100 :
14130 RB = BASE: IF WND = 1 THEN GOSUB 19450
14135 RETURN
14140 :
14150 MB = BASE: GOSUB 19600: RETURN
14190 :
14192 REM STEP
14194 :
14200 N = VAL(P2$): IF N >3 THEN ER = 3: GOTO 13700
14210 SS = N: GOSUB 19600: RETURN
14290 :
14292 REM GO
14294 :
14300 IF NOT PV THEN ER = 14: GOTO 13700
14305 IF E < >29 THEN ER = 10: GOTO 13700
14310 VTAB 20: HTAB 29: PRINT I$" 6502 MODE "NM$
14320 POKE RG%,R(4): POKE RG% +1,R(7): POKE 3718, NOT ZP: REM AX,ZP FLG
14330 POKE RG% +2,R(6): POKE RG% +3,R(5): REM Y,P
14335 AD = R(10) +1: GOSUB 4500: POKE PC%,MV
14340 AD = AD +1: GOSUB 4500: POKE PC% +1,MV
14352 CALL GO%: POKE 3718,F
14370 R(10) = R(10) +3
14384 R(4) = PEEK(RG%):R(7) = PEEK(RG% +1)
14387 R(6) = PEEK(RG% +2):R(5) = PEEK(RG% +3)
14390 FOR R1 = 4 TO 8: GOSUB 1000: NEXT :R1 = 10: GOSUB 1000
14400 GOSUB 9850: GOSUB 9700:D1 = R(10): GOSUB 11000
14410 VTAB 20: HTAB 29: PRINT Q2$: GOSUB 12500: RETURN
14490 :
14492 REM PRINT
14494 :
14500 IF P2$ = "ON" THEN PR = T: GOSUB 19600: RETURN
14510 PR = F: GOSUB 19600: RETURN
14540 :
14542 REM WINDOW
14544 :
14550 FOR Z = 1 TO 3: IF P2$ = RX$(6 +Z) THEN WND = Z
14560 NEXT : IF WND THEN WND = WND -T: GOSUB 19400: RETURN
14570 ER = 1: GOTO 13700
14590 :
14592 REM ERASE
14594 :
14600 PRINT Y$CL$;: RETURN
14790 :
14792 REM LC
14794 :
14800 N$ = P2$:BASE = MB: GOSUB 100: IF ER THEN 13700
14810 LC = N: IF LC >(QD -8) THEN LC = QD -8
14820 IF WND = 1 THEN GOSUB 9300
14830 RETURN
14890 :
14892 REM RC
14894 :
14900 N$ = P2$:BASE = MB: GOSUB 100: IF ER THEN 13700
14950 RC = N: IF RC >(QD -8) THEN RC = QD -8
14960 IF WND = 1 THEN GOSUB 9400
14970 RETURN
14990 :
14992 REM CALC
14994 :
15000 P1 = 0:CB = MB
15010 BASE = CB:N = P1: GOSUB 300
15020 P$ = I$ +"<" +RX$(CB) +">" +"" +NM$
15030 GOSUB 13600: REM DISP P$
15040 PRINT N$;: HTAB 1
15050 HTAB 1: GET Z$:Z = ASC(Z$): IF Z = 27 THEN PRINT Y$;: HTAB 1: PRINT E$;: RETURN
15060 IF Z = 8 THEN CB = F: GOTO 15010
15065 IF Z = 2 THEN CB = T: GOTO 15010
15070 IF Z = 4 THEN CB = 2: GOTO 15010
15075 IF Z <32 THEN 15010
15080 PRINT Z$E$;:P$ = Z$
15085 GOSUB 12005: GOSUB 13100: REM INPUT P$,PARSE
15090 :
15095 N$ = P1$:BASE = CB: GOSUB 100: IF ER THEN GOSUB 13700: GOTO 15010
15100 P1 = N: IF P2$ = "" THEN 15010
15105 P2 = F: FOR Z = 1 TO 4: IF P2$ = RX$(Z +2) THEN P2 = Z
15110 NEXT : IF NOT P2 THEN 15010
15120 N$ = P3$:BASE = CB: GOSUB 100: IF ER THEN GOSUB 13700: GOTO 15010
15130 P3 = N
15180 ON P2 GOTO 15190,15200,15210,15220
15185 :
15190 P1 = P1 +P3: GOTO 15240
15200 P1 = P1 -P3: GOTO 15240
15210 P1 = P1 *P3: GOTO 15240
15220 IF P3 = 0 THEN ER = 11: GOSUB 13700: GOTO 15010
15230 P1 = INT(P1/P3)
15235 :
15240 IF P1 >QC OR P1 < -(2 ^15) THEN P1 = F:ER = 3: GOSUB 13700: GOTO 15010
15250 IF P1 " +NM$
16040 P$ = P$ +" " +N$: GOSUB 4500
16050 N = MV:BASE = MB: GOSUB 300:P$ = P$ +"=" +N$ +":"
16060 GOSUB 13600: HTAB 1: GET Z$:Z = ASC(Z$)
16065 IF Z = 8 THEN GOTO 16300
16070 IF Z = 27 THEN RETURN
16075 IF Z = 13 OR Z = 21 THEN GOTO 16200
16080 IF Z <32 THEN P$ = "": GOTO 16100
16090 PRINT Z$;:P$ = Z$
16100 GOSUB 12005: IF P$ = "" THEN GOTO 16200
16110 N$ = P$:BASE = MB: GOSUB 100: IF N >Q3 THEN ER = 3
16120 IF ER THEN GOSUB 13700: GOTO 16020
16130 MV = N: GOSUB 4600: IF AD > = R(10) AND AD Q3 THEN ER = 2: GOTO 13700
17020 R1 = P1:R(R1) = N: IF R1 = 5 THEN TJ = T: GOSUB 2900:TJ = F: REM CRUDE PTCH FOR MSG BLCK
17030 GOSUB 1000: IF R1 = 10 THEN GOSUB 12500
17040 RETURN
17490 :
17492 REM LOAD MEM
17494 :
17500 IF P2$ = "L" THEN LI = P1: GOTO 11810
17505 BASE = MB:N$ = P2$: GOSUB 100
17510 IF ER THEN 13700
17520 IF N >Q3 THEN ER = 3: GOTO 13700
17530 AD = P1:MV = N: GOSUB 4600: REM WRITE MV.2.AD
17535 IF AD > = R(10) AND AD 253 THEN RETURN
18510 Z = Z +2:R(8) = Z
18520 R(10) = ( PEEK(Q8 +Q4 +Z) *Q4) + PEEK(Q8 +Q4 +Z -1) +1
18530 R1 = 10: GOSUB 1000:R1 = 8: GOSUB 1000: GOSUB 12500: RETURN
18990 :
18992 REM DRW SCRN
18994 :
19000 CALL 4610: PRINT CL$;: HGR : POKE -16302,F: HCOLOR= 3: POKE KS,F
19010 GOSUB 19100: REM BOXES
19020 GOSUB 19250: REM TOP 1/3
19030 FT = T: GOSUB 19400: REM WND
19040 FT = F: GOSUB 19600: HPLOT 196,135 TO 272,135: HPLOT 196,167 TO 272,167
19050 RETURN
19090 :
19100 PRINT CHR$(12)I$Q$" VISIBLE COMPUTER: 6502 NV B DIZC "NM$CA$
19110 HPLOT 273,4 TO 279,4 TO 279,177 TO 0,177 TO 0,4 TO 7,4
19120 HPLOT 3,13 TO 87,13 TO 87,42 TO 3,42 TO 3,13: HPLOT 6,15 TO 84,15 TO 84,40 TO 6,40 TO 6,15
19130 HPLOT 0,133 TO 279,133: HPLOT 190,133 TO 190,177
19150 RETURN
19240 :
19242 REM TOP
19244 :
19250 PRINT Y$I$;:Z = 25:Z$ = Q1$
19260 VTAB 3: HTAB Z: PRINT "Y P"
19265 HTAB Z: PRINT Z$: HTAB Z: PRINT "X S": HTAB Z: PRINT Z$
19270 HTAB Z: PRINT "PC A"NM$
19275 HCOLOR= 3: FOR Z = 14 TO 15: HPLOT 168,Z TO 202,Z: NEXT
19280 FOR R1 = 4 TO 8: GOSUB 19700: NEXT
19290 R1 = 10: GOSUB 19700: RETURN
19390 :
19392 REM WND
19394 :
19400 ON WND +1 GOSUB 19500,19450,19420: RETURN
19410 :
19420 GOSUB 19470: HCOLOR= 3: GOSUB 19460: RETURN
19440 :
19445 REM CLR,DRW RAM
19450 GOSUB 19420: GOSUB 9300: GOSUB 9400: RETURN
19460 HPLOT 3,61 TO 276,61 TO 276,131 TO 3,131 TO 3,61: RETURN
19470 HCOLOR= F: FOR Z = 59 TO 131: HPLOT 3,Z TO 277,Z: NEXT : RETURN
19490 :
19492 REM CPU
19494 :
19500 IF NOT FT THEN GOSUB 19470
19505 FT = F:Z = 25: PRINT Y$;: VTAB 8:Z$ = Q1$: HTAB Z: PRINT I$Z$
19510 HTAB Z: PRINT " IR": HTAB Z: PRINT "AD ": HTAB Z: PRINT " DB"
19520 HTAB Z: PRINT Z$: HTAB Z: PRINT " DL": HCOLOR= 3: HPLOT 168,104 TO 202,104
19530 VTAB 16: HTAB Z: PRINT " MEM "NM$
19535 HCOLOR= 3: FOR Z = 118 TO 119: HPLOT 168,Z TO 202,Z: NEXT : HPLOT 168,128 TO 202,128
19540 FOR R1 = 1 TO 3: GOSUB 19700: NEXT : FOR R1 = 11 TO 12: GOSUB 19700: NEXT :R1 = 9: GOSUB 19700
19550 RETURN
19588 :
19590 REM MON STATUS
19592 :
19600 VTAB 18: HTAB 29: PRINT I$SS" "RX$(MB)" "Q1$;
19605 IF ZP THEN HTAB 35: PRINT "Z";
19608 IF PV THEN HTAB 37: PRINT "M";
19610 IF PR THEN HTAB 39: PRINT "P"
19615 PRINT NM$;: GOSUB 12500: RETURN
19700 BASE = DM(R1): GOSUB 19850: RETURN
19790 :
19792 REM NEW BASE/ALL REG
19794 :
19800 FOR R1 = 1 TO 12: GOSUB 19850: NEXT : RETURN
19840 :
19842 REM NEW BASE/R1
19844 :
19850 HCOLOR= F: GOSUB 1200: PRINT Y$;
19855 Z$ = " ":Z = DM(R1): REM OLD BSE
19860 IF Z = 1 THEN Z$ = " "
19870 IF Z = 2 THEN Z$ = " "
19875 IF R1 >9 THEN Z$ = Z$ +Z$: IF Z = 2 THEN Z$ = " "
19880 X = X%(Z,R1):Y = Y%(R1)
19885 IF WND AND (R1 <4 OR (R1 >8 AND R1 < >10)) THEN 19900
19890 HTAB X: VTAB Y: PRINT Z$;: REM CLEAR OLD SPOT
19900 DM(R1) = BASE: GOSUB 1000: HCOLOR= 3: GOSUB 1200: RETURN
19940 :
19942 REM DRAW REG
19944 :
19950 FOR R1 = 1 TO 12: GOSUB 1000: NEXT : RETURN
19991 :
19992 REM INIT
19994 :
20000 HOME : VTAB 18: PRINT "INITIALIZING..."
20040 BB$ = "1011 0000":HH$ = "00": REM 1ST
20080 :
20090 REM INIT FOR SPEED
20100 :
20110 Z = T = F = N = Z1 = Z2 = R1 = R2 = ER = BA = AD = Z3 = D1 = X = Y = R3
20120 N$ = Z$:Z1$ = IN$:E$ = CHR$(5)
20125 D$ = CHR$(13) + CHR$(4):I$ = CHR$(9):A$ = CHR$(1):NM$ = CHR$(14):CL$ = CHR$(16):Q$ = CHR$(17):O$ = CHR$(15):Y$ = CHR$(25)
20128 V$ = CHR$(22):W$ = CHR$(23):K$ = CHR$(11)
20130 :
20160 DEF FN A(Z) = INT(Z/Q4): REM MSB
20170 DEF FN B(Z) = Z -( FN A(Z) *Q4): REM LSB
20180 :
20190 REM CONSTANTS
20200 :
20210 Q1 = 127:Q2 = 128:Q3 = 255:Q4 = 256:T = 1:Q5 = 512:Q8 = 3072:QC = 65535:QD = 65536
20240 Q1$ = " ":Q2$ = " "
20260 :
20270 DH% = 6770:DB% = 6802:MA% = 6656:SH% = 6725:P2% = 6851:R2% = 6832:AN% = 6880:RG% = 3712:PC% = 3591:GO% = 3584
20350 REM I/O
20360 :
20370 KB = 49152:KS = 49168:SP = 49200
20390 :
20420 DIM P(7): REM P REG BITS
20430 DIM R(12): REM REGS
20440 DIM DM(12): REM REG DISP MODE
20450 DIM X%(2,12),Y%(12): REM REG COOR
20455 DIM XO%(1,2): REM BX LENGTH,EACH DM&BASE
20460 DIM AM$(13): REM ADD.MODE NAMES
20465 DIM AM%(19): REM #BYTES,EA.AM+DOS ER CODES
20470 DIM O$(56): REM OPCODES
20480 DIM R$(16): REM REG NAMES
20500 DIM MC$(19): REM MON.CMDS
20510 DIM RX$(12): REM MISC.
20515 DIM ER$(15): REM ER MSG
20520 :
20540 :
20550 FOR Z = 1 TO 12: FOR Z1 = 0 TO 2: READ X%(Z1,Z): NEXT : NEXT
20560 FOR Z = 1 TO 12: READ Y%(Z): NEXT
20565 FOR Z = 0 TO 1: FOR Z1 = 0 TO 2: READ XO%(Z,Z1): NEXT : NEXT
20570 FOR Z = 0 TO 13: READ AM$(Z): NEXT
20575 FOR Z = 0 TO 19: READ AM%(Z): NEXT
20580 FOR Z = 0 TO 56: READ O$(Z): NEXT
20590 FOR Z = 1 TO 16: READ R$(Z): NEXT
20610 FOR Z = 1 TO 19: READ MC$(Z): NEXT
20620 FOR Z = 0 TO 12: READ RX$(Z): NEXT
20625 FOR Z = 1 TO 15: READ ER$(Z): NEXT
20630 :
20640 REM INIT CPU
20650 :
20660 R(8) = Q3: REM S=$FF
20670 R(5) = 48:P(4) = 1:P(5) = 1:DM(5) = 1: REM P=$30,DM=BIN
20680 R(10) = 2048: REM PC= $0800
20685 :
20690 REM INIT MON
20700 :
20710 LC = 2048:RC = 0:MB = 0:RB = 0:WND = 0:PR = 0
20715 SS = 2:CA$ = CHR$(12):PV = F:ZP = F
20720 :
20730 CALL PEEK(40222) + PEEK(40223) *Q4 +1
20740 IC = T: RETURN : REM TO MAIN PROG
29994 :
30000 DATA 31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,22,15,21,22,15,21,31,31,31,31,31,31,20,5,19,20,5,19,20,5,19
30040 :
30050 REM Y COOR.
30060 :
30070 DATA 13,11,9,7,3,3,5,5,16,7,10,16
30090 :
30092 REM BOX LENGTHS
30094 :
30095 DATA 19,68,26,33,138,40
30110 :
30120 DATA INVLD,IMMED,ABS,ZP,ACCUM,IMPLD,"(IND,X)","(IND),Y","ZP,X","ABS,X","ABS,Y",REL,(IND),"ZP,Y"
30152 :
30154 REM #BYTES,EA.AM+DOS ER CODES
30156 :
30158 DATA 1,2,3,2,1,1,2,2,2,3,3,2,3,2,9,6,10,4,8,13
30162 :
30190 DATA ???,ADC,AND,ASL,BCC,BCS,BEQ,BIT,BMI,BNE,BPL,BRK,BVC,BVS,CLC,CLD,CLI,CLV,CMP,CPX,CPY,DEC,DEX,DEY,EOR,INC,INX,INY,JMP,JSR,LDA,LDX,LDY,LSR,NOP,ORA,PHA,PHP,PLA,PLP,ROL,ROR,RTI,RTS,SBC,SEC,SED,SEI,STA,STX,STY,TAX,TAY,TSX,TXA,TXS,TYA
30340 :
30350 REM REG NAMES
30360 :
30370 DATA DL,DB,IR,A,P,Y,X,S,MEMD,PC,AD,MEMA,PCL,PCH,ADL,ADH
30390 :
30450 REM CMDS
30460 :
30470 DATA BLOAD,BSAVE,BASE,STEP,GO,CALC,PRINTER,EDIT,WINDOW,ERASE,RESTORE,LC,RC,L,BOOT,CASE,MASTER,ZP,POP
30500 :
30510 REM MISC
30520 :
30530 DATA HEX,BIN,DEC,+,-,*,/,CLOSE,MEM,OPEN,ALL,MEM,MON
30540 :
30550 REM ER MSGS
30560 :
30570 DATA COMMAND,BASE,RANGE,DISK FULL,NO FILE,FILE LOCK,W.PROTECT,I/O,MISMATCH,NOT JSR,DIV BY 0,BAD OPCODE,OVERFLOW,NOT MASTER,"BREAK "
39990 :
39992 REM ER
39994 :
40000 POKE 3718,0:ER = F:Z1 = PEEK(222)
40010 FOR Z = 14 TO 19: IF AM%(Z) = Z1 THEN ER = Z -10
40020 NEXT : IF ER = 9 THEN PRINT D$"MAXFILES1"
40025 IF ER THEN CALL 54915: GOSUB 13700: GOTO 10015
40030 IF Z1 = 20 THEN 42000: REM RST
40040 IF Z1 = 21 THEN 60000: REM BRK
40050 IF Z1 = 255 THEN 42000
40060 Z$ = "ER#" + STR$(Z1) +" " + STR$(Q4 * PEEK(219) + PEEK(218)): GOTO 55000
42000 CALL 54915: IF IC THEN GOSUB 19000: GOTO 10015
42010 RUN
45000 END
50000 PR# 6
55000 VTAB 20: HTAB 29: PRINT ""Z$
55010 VTAB 24: PRINT " TO REBOOT ";: GET Z$
55020 PR# 6: PRINT
60000 ER = 15: GOSUB 13700
60010 R(10) = PEEK(3716) +Q4 * PEEK(3717): GOSUB 14384
60020 CALL 54915: GOTO 10015
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/ZEROES.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000050 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000070 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000090 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000110 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000130 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000150 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000170 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000190 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0001A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0001B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0001C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0001D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0001E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0001F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000210 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000230 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000250 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000270 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000290 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0002A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0002B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0002C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0002D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0002E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0002F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000310 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000330 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000350 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000370 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000390 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0003A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0003B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0003C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0003D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0003E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0003F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000410 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000430 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000450 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000460 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000470 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000490 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0004A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0004B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0004C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0004D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0004E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0004F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000510 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000530 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000550 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000570 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000590 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0005A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0005B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0005C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0005D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0005E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0005F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
** END **
Text found in Visible_Computer_v1.0_1982_12_12___cr_Reset_Vector.do/ZEROS.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000050 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000070 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000090 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000110 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000130 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000150 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000170 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000190 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0001A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0001B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0001C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0001D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0001E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0001F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000210 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000230 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000250 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000270 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000290 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0002A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0002B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0002C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0002D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0002E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0002F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000310 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000330 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000350 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000370 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000390 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0003A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0003B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0003C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0003D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0003E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0003F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000410 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000430 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000450 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000460 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000470 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000490 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0004A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0004B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0004C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0004D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0004E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0004F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000510 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000530 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000550 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000570 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000590 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0005A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0005B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0005C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0005D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0005E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0005F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
** END **
- Addeddate
- 2014-06-11 23:17:57
- Emulator
- apple2e
- Emulator_ext
- do
- Identifier
- a2_Visible_Computer_v1.0_1982_12_12__cr_Reset_Vector
- Scanner
- Internet Archive Python library 0.6.5
comment
Reviews
1,925 Views
4 Favorites
DOWNLOAD OPTIONS
IN COLLECTIONS
Apple II Library: Applications Software Library The Software Library: Apple Computer The Emulation StationUploaded by Jason Scott on