VT-52.V4
FILE INFORMATION
FILENAME(S): VT-52.V4
FILE TYPE(S): PRG
FILE SIZE: 6.7K
FIRST SEEN: 2025-12-01 01:48:19
APPEARS ON: 3 disk(s)
FILE HASH
d46d07f762a0060ec236462f56036bcfd47b039baa6751999c22fa2126cda385
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMAL 2 | VT-52.V4 | PRG | hedning, Mattias H00r | 23 | 9 | DOWNLOAD FILE |
| CCS COMAL 2 | VT-52.V4 | PRG | hedning, Mattias H00r | 23 | 10 | DOWNLOAD FILE |
| COMAL B | VT-52.V4 | PRG | hedning, Helsinborg | 23 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 6E 18 5E 19 94 1A 00 0A 13 00 20 53 41 56 45 20 |n.^....... SAVE |
00000010: 22 56 54 2D 35 32 2E 56 34 00 14 1C 00 20 56 54 |"VT-52.V4.... VT|
00000020: 2D 35 32 20 54 45 52 4D 49 4E 41 4C 20 45 4D 55 |-52 TERMINAL EMU|
00000030: 4C 41 54 4F 52 00 1E 17 00 20 44 45 4C 45 54 45 |LATOR.... DELETE|
00000040: 20 22 30 3A 56 54 2D 35 32 2E 56 32 00 28 04 00 | "0:VT-52.V2.(..|
00000050: 00 32 12 00 20 4A 4F 48 4E 20 48 2E 20 4D 43 43 |.2.. JOHN H. MCC|
00000060: 4F 59 00 3C 12 00 20 20 31 36 31 35 20 42 41 47 |OY.<.. 1615 BAG|
00000070: 57 45 4C 4C 00 46 1A 00 20 20 48 55 4E 54 53 56 |WELL.F.. HUNTSV|
00000080: 49 4C 4C 45 2C 20 54 58 20 37 37 33 34 30 00 50 |ILLE, TX 77340.P|
00000090: 13 00 20 20 28 34 30 39 29 32 39 35 2D 33 34 31 |.. (409)295-341|
000000A0: 30 00 5A 1F 00 20 20 4F 52 49 47 49 4E 41 4C 20 |0.Z.. ORIGINAL |
000000B0: 44 45 43 45 4D 42 45 52 20 33 2C 20 31 39 38 33 |DECEMBER 3, 1983|
000000C0: 00 64 22 00 20 20 43 4F 4D 41 4C 20 30 2E 31 34 |.d". COMAL 0.14|
000000D0: 20 46 45 42 52 55 41 52 59 20 31 38 2C 20 31 39 | FEBRUARY 18, 19|
000000E0: 38 34 00 6E 04 00 00 78 21 00 20 41 53 53 55 4D |84.n...x!. ASSUM|
000000F0: 45 53 20 54 45 52 4D 49 4E 41 4C 20 57 49 44 54 |ES TERMINAL WIDT|
00000100: 48 20 4F 46 20 33 39 00 82 1C 00 20 44 45 46 49 |H OF 39.... DEFI|
00000110: 4E 45 53 20 46 31 20 41 53 20 4C 49 4E 45 20 46 |NES F1 AS LINE F|
00000120: 45 45 44 00 8C 19 00 20 20 20 20 20 20 20 20 20 |EED.... |
00000130: 46 32 20 41 53 20 43 54 52 4C 20 54 00 96 16 00 |F2 AS CTRL T....|
00000140: 20 20 20 20 20 20 20 20 20 46 33 20 41 53 20 45 | F3 AS E|
00000150: 53 43 00 A0 19 00 20 20 20 20 20 20 20 20 20 46 |SC.... F|
00000160: 34 20 41 53 20 43 54 52 4C 20 51 00 AA 04 00 00 |4 AS CTRL Q.....|
00000170: B4 24 00 20 4F 4E 4C 59 20 4B 4E 4F 57 20 50 52 |.$. ONLY KNOW PR|
00000180: 4F 42 4C 45 4D 20 41 53 20 4F 46 20 32 2F 31 39 |OBLEM AS OF 2/19|
00000190: 2F 38 34 00 BE 24 00 20 20 57 48 45 4E 20 44 45 |/84..$. WHEN DE|
000001A0: 4C 45 54 49 4E 47 20 43 48 41 52 53 20 46 52 4F |LETING CHARS FRO|
000001B0: 4D 20 4D 55 4C 54 49 00 C8 24 00 20 20 4C 49 4E |M MULTI..$. LIN|
000001C0: 45 20 49 4E 50 55 54 20 54 4F 20 54 4F 50 53 2D |E INPUT TO TOPS-|
000001D0: 32 30 2C 20 50 52 4F 42 4C 45 4D 00 D2 24 00 20 |20, PROBLEM..$. |
000001E0: 20 4F 43 43 55 52 53 20 57 48 45 4E 20 43 48 41 | OCCURS WHEN CHA|
000001F0: 52 20 42 45 49 4E 47 20 44 45 4C 45 54 45 44 00 |R BEING DELETED.|
00000200: DC 22 00 20 20 49 53 20 46 49 52 53 54 20 43 48 |.". IS FIRST CH|
00000210: 41 52 20 4F 46 20 41 20 43 4F 4E 54 49 4E 55 45 |AR OF A CONTINUE|
00000220: 44 00 E6 22 00 20 20 4C 49 4E 45 2E 20 20 57 48 |D..". LINE. WH|
00000230: 45 4E 20 43 55 52 53 4F 52 20 49 53 20 42 41 43 |EN CURSOR IS BAC|
00000240: 4B 45 44 00 F0 21 00 20 20 55 50 20 54 4F 20 50 |KED..!. UP TO P|
00000250: 52 45 43 45 45 44 49 4E 47 20 4C 49 4E 45 20 49 |RECEEDING LINE I|
00000260: 54 20 49 53 00 FA 24 00 20 20 4F 4E 45 20 43 4F |T IS..$. ONE CO|
00000270: 4C 55 4D 4E 20 54 4F 20 52 49 47 48 54 20 4F 46 |LUMN TO RIGHT OF|
00000280: 20 43 4F 52 52 45 43 54 01 04 23 00 20 20 50 4F | CORRECT..#. PO|
00000290: 53 49 54 49 4F 4E 2E 20 20 55 53 45 20 43 54 52 |SITION. USE CTR|
000002A0: 4C 2F 52 20 54 4F 20 48 41 56 45 01 0E 1B 00 20 |L/R TO HAVE.... |
000002B0: 20 54 4F 50 53 2D 32 30 20 52 45 50 52 49 4E 54 | TOPS-20 REPRINT|
000002C0: 20 4C 49 4E 45 2E 01 18 04 00 01 22 23 00 20 4F | LINE......"#. O|
000002D0: 50 45 4E 20 4D 4F 44 45 4D 20 20 33 30 30 20 42 |PEN MODEM 300 B|
000002E0: 41 55 44 20 4E 4F 20 50 41 52 49 54 59 01 2C 11 |AUD NO PARITY.,.|
000002F0: DB 02 00 02 DC 03 01 36 DD 02 00 02 E2 DF 01 36 |.......6.......6|
00000300: 04 00 01 40 1C 8C 8F 2C 00 02 01 01 93 C5 00 20 |...@...,....... |
00000310: 44 55 4D 4D 59 20 56 41 52 49 41 42 4C 45 01 4A |DUMMY VARIABLE.J|
00000320: 24 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |$. |
00000330: 20 20 20 54 4F 20 50 52 4F 54 45 43 54 20 4D 41 | TO PROTECT MA|
00000340: 43 48 01 54 24 00 20 20 20 20 20 20 20 20 20 20 |CH.T$. |
00000350: 20 20 20 20 20 20 20 4C 41 4E 47 20 53 55 42 52 | LANG SUBR|
00000360: 4F 55 54 49 4E 45 01 5E 14 8C 8F 03 00 02 00 0F |OUTINE.^........|
00000370: 93 8F 04 00 02 00 01 93 94 C5 01 68 14 8C 8F 05 |...........h....|
00000380: 00 02 00 01 93 8F 06 00 02 00 01 93 94 C5 01 72 |...............r|
00000390: 18 8C 8F 07 00 02 00 01 93 8F 21 01 02 00 7F 92 |..........!.....|
000003A0: 02 00 01 93 94 C5 01 7C 19 09 03 03 03 54 58 54 |.......|.....TXT|
000003B0: 3C 07 08 02 00 00 3A 42 07 09 02 00 08 3A 42 01 |<.....:B.....:B.|
000003C0: 86 12 09 04 02 00 00 4B 3C 09 07 02 00 1B 4B 3C |.......K<.....K<|
000003D0: 42 01 90 19 00 20 5A 45 52 4F 20 50 41 47 45 20 |B.... ZERO PAGE |
000003E0: 57 4F 52 4B 20 53 50 41 43 45 01 9A 0E 07 0A 02 |WORK SPACE......|
000003F0: 00 FB 3A 00 20 24 46 42 01 A4 0E 07 0B 02 00 FC |..:. $FB........|
00000400: 3A 00 20 24 46 43 01 AE 0E 07 0C 02 00 FD 3A 00 |:. $FC........:.|
00000410: 20 24 46 44 01 B8 0E 07 0D 02 00 FE 3A 00 20 24 | $FD........:. $|
00000420: 46 45 01 C2 04 00 01 CC 0A 07 22 02 00 45 D8 3A |FE........"..E.:|
00000430: 01 D6 06 7F 0E 81 01 E0 06 04 08 46 01 EA 10 5F |...........F..._|
00000440: 02 00 0E 4B 02 00 93 4B 28 65 66 61 01 F4 04 00 |...K...K(efa....|
00000450: 01 FE 06 BF C0 C2 02 08 04 95 02 12 07 E7 04 0F |................|
00000460: E8 02 1C 09 07 10 04 0A D8 3A 02 26 0E 68 04 10 |.........:.&.h..|
00000470: 02 00 00 32 6A 7F 11 81 02 30 1D E4 02 00 CC E5 |...2j....0......|
00000480: 02 00 00 E6 00 20 4D 41 4B 45 20 43 52 53 52 20 |..... MAKE CRSR |
00000490: 46 4C 41 53 48 02 3A 07 09 06 F9 3C 02 44 0D 68 |FLASH.:....<.D.h|
000004A0: 06 06 06 04 33 6A 7F 12 81 02 4E 08 DA 4D 96 D0 |....3j....N..M..|
000004B0: 8A 02 58 18 E7 04 13 E8 00 20 4F 52 44 45 52 4C |..X...... ORDERL|
000004C0: 59 20 44 49 53 41 42 4C 45 02 62 10 5F 02 00 93 |Y DISABLE.b._...|
000004D0: 4B 02 00 8E 4B 28 65 66 61 02 6C 08 CF 02 00 02 |K...K(efa.l.....|
000004E0: D0 02 76 06 5F 60 61 02 80 1D 5F 03 14 54 59 50 |..v._`a..._..TYP|
000004F0: 45 20 52 55 4E 20 54 4F 20 43 4F 4E 54 49 4E 55 |E RUN TO CONTINU|
00000500: 45 65 60 61 02 8A 04 A0 02 94 04 00 02 9E 09 70 |Ee`a...........p|
00000510: 11 5E 8F 00 7B 02 A8 04 00 02 B2 18 E7 04 13 E8 |.^..{...........|
00000520: 00 20 4F 52 44 45 52 4C 59 20 44 49 53 41 42 4C |. ORDERLY DISABL|
00000530: 45 02 BC 09 A1 06 03 A3 B6 8B 02 C6 0F A4 5A 8F |E.............Z.|
00000540: 03 03 54 58 54 A6 A7 C1 8C 02 D0 09 A1 04 10 A2 |..TXT...........|
00000550: CE 8B 02 DA 12 A4 BD 8C 02 00 1B A5 A7 EF 8B 00 |................|
00000560: 20 45 53 43 02 E4 0F 09 03 03 07 45 53 43 20 53 | ESC.......ESC S|
00000570: 45 51 3C 02 EE 16 A4 BD 8C 02 00 07 A5 A7 0B 8C |EQ<.............|
00000580: 00 20 5E 47 20 42 45 4C 4C 02 F8 06 7F 14 81 03 |. ^G BELL.......|
00000590: 02 15 A4 BD 8C 02 00 09 A5 A7 32 8C 00 20 5E 49 |..........2.. ^I|
000005A0: 20 54 41 42 03 0C 06 04 09 46 03 16 06 5F 66 61 | TAB.....F..._fa|
000005B0: 03 20 06 04 08 46 03 2A 11 A4 BD 8C 02 00 0A A5 |. ...F.*........|
000005C0: A7 4E 8C 00 20 4C 46 03 34 0B 5F 02 00 11 4B 65 |.N.. LF.4._...Ke|
000005D0: 66 61 03 3E 11 A4 BD 8C 02 00 0D A5 A7 6F 8C 00 |fa.>.........o..|
000005E0: 20 43 52 03 48 10 5F 02 00 0D 4B 02 00 91 4B 28 | CR.H._...K...K(|
000005F0: 65 66 61 03 52 14 A4 BD 8C 02 00 22 A5 A7 AB 8C |efa.R......"....|
00000600: 00 20 51 55 4F 54 45 03 5C 0B 5F 02 00 22 4B 65 |. QUOTE.\._.."Ke|
00000610: 66 61 03 66 1D E4 02 00 D4 E5 02 00 00 E6 00 20 |fa.f........... |
00000620: 54 55 52 4E 20 4F 46 46 20 22 20 4D 4F 44 45 03 |TURN OFF " MODE.|
00000630: 70 06 A8 BD 8C 03 7A 0C 5F 0C 21 07 10 16 65 66 |p.....z._.!...ef|
00000640: 61 03 84 04 A9 03 8E 13 A4 5A 8F 03 07 45 53 43 |a........Z...ESC|
00000650: 20 53 45 51 A6 A7 41 8E 03 98 0B 09 03 03 03 54 | SEQ..A........T|
00000660: 58 54 3C 03 A2 1A 68 04 10 02 00 5A 30 69 0D 8D |XT<...h....Z0i..|
00000670: 00 20 20 43 4F 4E 56 45 52 54 20 4C 43 03 AC 14 |. CONVERT LC...|
00000680: 07 10 04 10 02 00 20 29 3A 00 20 20 54 4F 20 55 |...... ):. TO U|
00000690: 43 03 B6 04 6F 03 C0 09 09 05 04 10 4B 3C 03 CA |C...o.......K<..|
000006A0: 09 A1 06 05 A3 23 8D 03 D4 17 A4 3D 8E 03 01 42 |.....#.....=...B|
000006B0: A6 A7 44 8D 00 20 43 52 53 52 20 44 57 4E 03 DE |..D.. CRSR DWN..|
000006C0: 0A 5F 03 01 11 65 66 61 03 E8 18 A4 3D 8E 03 01 |._...efa....=...|
000006D0: 43 A6 A7 66 8D 00 20 43 52 53 52 20 52 47 48 54 |C..f.. CRSR RGHT|
000006E0: 03 F2 0A 5F 03 01 1D 65 66 61 03 FC 16 A4 3D 8E |..._...efa....=.|
000006F0: 03 01 41 A6 A7 86 8D 00 20 43 52 53 52 20 55 50 |..A..... CRSR UP|
00000700: 04 06 0A 5F 03 01 91 65 66 61 04 10 11 A4 3D 8E |..._...efa....=.|
00000710: 03 01 44 A6 A7 A1 8D 00 20 42 53 04 1A 0A 5F 03 |..D..... BS..._.|
00000720: 01 9D 65 66 61 04 24 16 A4 3D 8E 03 01 4B A6 A7 |..efa.$..=...K..|
00000730: BE 8D 00 20 43 4C 52 20 45 4F 4C 04 2E 07 E7 04 |... CLR EOL.....|
00000740: 15 E8 04 38 16 A4 3D 8E 03 01 4A A6 A7 DB 8D 00 |...8..=...J.....|
00000750: 20 43 4C 52 20 45 4F 46 04 42 07 E7 04 16 E8 04 | CLR EOF.B......|
00000760: 4C 13 A4 3D 8E 03 01 48 A6 A7 11 8E 00 20 48 4F |L..=...H..... HO|
00000770: 4D 45 04 56 0B E4 04 0B E5 02 00 00 E6 04 60 0B |ME.V..........`.|
00000780: E4 04 0C E5 02 00 00 E6 04 6A 07 E7 04 19 E8 04 |.........j......|
00000790: 74 06 5F 66 61 04 7E 16 A4 3D 8E 03 01 59 A6 A7 |t._fa.~..=...Y..|
000007A0: 37 8E 00 41 42 53 20 43 52 53 52 04 88 10 09 03 |7..ABS CRSR.....|
000007B0: 03 08 43 52 53 52 20 52 4F 57 3C 04 92 06 A8 3D |..CRSR ROW<....=|
000007C0: 8E 04 9C 04 A9 04 A6 14 A4 5A 8F 03 08 43 52 53 |.........Z...CRS|
000007D0: 52 20 52 4F 57 A6 A7 9B 8E 04 B0 0C 07 17 04 10 |R ROW...........|
000007E0: 02 00 20 26 3A 04 BA 0D 68 04 17 02 00 17 30 69 |.. &:...h.....0i|
000007F0: 81 8E 04 C4 13 09 03 03 0B 46 4C 55 53 48 20 43 |.........FLUSH C|
00000800: 48 41 52 53 3C 04 CE 06 6E 97 8E 04 D8 10 09 03 |HARS<...n.......|
00000810: 03 08 43 52 53 52 20 43 4F 4C 3C 04 E2 04 6F 04 |..CRSR COL<...o.|
00000820: EC 14 A4 5A 8F 03 08 43 52 53 52 20 43 4F 4C A6 |...Z...CRSR COL.|
00000830: A7 38 8F 04 F6 10 07 18 04 10 02 00 20 02 00 50 |.8.......... ..P|
00000840: 26 29 3A 05 00 0D 68 04 18 02 00 27 30 69 E2 8E |&):...h....'0i..|
00000850: 05 0A 0A 07 17 02 00 01 20 3A 05 14 0C 07 18 04 |........ :......|
00000860: 18 02 00 28 26 3A 05 1E 0F 6D FA 8E 04 18 02 00 |...(&:...m......|
00000870: 00 2A 69 FA 8E 05 28 09 07 18 02 00 00 3A 05 32 |.*i...(......:.2|
00000880: 04 6F 05 3C 0A E4 04 0B E5 04 17 E6 05 46 0A E4 |.o.<.........F..|
00000890: 04 0C E5 04 18 E6 05 50 07 E7 04 19 E8 05 5A 14 |.......P......Z.|
000008A0: 5F 66 61 00 20 46 4F 52 43 45 20 55 50 44 41 54 |_fa. FORCE UPDAT|
000008B0: 45 05 64 0B 09 03 03 03 54 58 54 3C 05 6E 17 A4 |E.d.....TXT<.n..|
000008C0: 5A 8F 03 0B 46 4C 55 53 48 20 43 48 41 52 53 A6 |Z...FLUSH CHARS.|
000008D0: A7 00 00 05 78 0B 09 03 03 03 54 58 54 3C 05 82 |....x.....TXT<..|
000008E0: 04 A9 05 8C 05 7D 11 05 96 04 00 05 A0 09 70 12 |.....}........p.|
000008F0: CE 91 00 7B 05 AA 09 07 1A 06 06 49 3A 05 B4 14 |...{.......I:...|
00000900: 68 04 1A 02 00 41 34 04 1A 02 00 5A 2E 38 69 9A |h....A4....Z.8i.|
00000910: 8F 05 BE 0D 09 06 04 1A 02 00 20 27 4B 3C 05 C8 |.......... 'K<..|
00000920: 16 6D BC 91 04 1A 02 00 C1 34 04 1A 02 00 DA 2E |.m.......4......|
00000930: 38 69 BD 8F 05 D2 0D 09 06 04 1A 02 00 80 29 4B |8i............)K|
00000940: 3C 05 DC 06 6E BC 91 05 E6 09 A1 04 1A A2 CC 8F |<...n...........|
00000950: 05 F0 1B A4 B8 91 02 00 94 A5 02 00 14 A5 A7 F1 |................|
00000960: 8F 00 20 49 4E 53 54 20 44 45 4C 05 FA 0A 09 06 |.. INST DEL.....|
00000970: 02 00 FF 4B 3C 06 04 19 A4 B8 91 02 00 85 A5 A7 |...K<...........|
00000980: 14 90 00 20 46 31 20 4D 41 4B 45 20 4C 46 06 0E |... F1 MAKE LF..|
00000990: 0A 09 06 02 00 0A 4B 3C 06 18 19 A4 B8 91 02 00 |......K<........|
000009A0: 86 A5 A7 37 90 00 20 46 33 20 4D 41 4B 45 20 5E |...7.. F3 MAKE ^|
000009B0: 54 06 22 0A 09 06 02 00 14 4B 3C 06 2C 1A A4 B8 |T."......K<.,...|
000009C0: 91 02 00 87 A5 A7 59 90 00 20 46 35 20 4D 41 4B |......Y.. F5 MAK|
000009D0: 45 20 45 53 43 06 36 08 09 06 06 07 3C 06 40 19 |E ESC.6.....<.@.|
000009E0: A4 B8 91 02 00 88 A5 A7 7C 90 00 20 46 37 20 4D |........|.. F7 M|
000009F0: 41 4B 45 20 5E 51 06 4A 0A 09 06 02 00 11 4B 3C |AKE ^Q.J......K<|
00000A00: 06 54 18 A4 B8 91 02 00 11 A5 A7 A0 90 00 20 43 |.T............ C|
00000A10: 52 53 52 20 44 4F 57 4E 06 5E 0C 09 06 06 07 03 |RSR DOWN.^......|
00000A20: 01 42 28 3C 06 68 19 A4 B8 91 02 00 1D A5 A7 C5 |.B(<.h..........|
00000A30: 90 00 20 43 52 53 52 20 52 49 47 48 54 06 72 0C |.. CRSR RIGHT.r.|
00000A40: 09 06 06 07 03 01 43 28 3C 06 7C 18 A4 B8 91 02 |......C(<.|.....|
00000A50: 00 9D A5 A7 E9 90 00 20 43 52 53 52 20 4C 45 46 |....... CRSR LEF|
00000A60: 54 06 86 0C 09 06 06 07 03 01 44 28 3C 06 90 16 |T.........D(<...|
00000A70: A4 B8 91 02 00 91 A5 A7 0B 91 00 20 43 52 53 52 |........... CRSR|
00000A80: 20 55 50 06 9A 0C 09 06 06 07 03 01 41 28 3C 06 | UP.........A(<.|
00000A90: A4 1C A4 B8 91 02 00 A0 A5 A7 31 91 00 20 53 48 |..........1.. SH|
00000AA0: 49 46 54 45 44 20 53 50 41 43 45 06 AE 0A 09 06 |IFTED SPACE.....|
00000AB0: 02 00 20 4B 3C 06 B8 1D A4 B8 91 02 00 8D A5 A7 |.. K<...........|
00000AC0: 58 91 00 20 53 48 49 46 54 45 44 20 52 45 54 55 |X.. SHIFTED RETU|
00000AD0: 52 4E 06 C2 0A 09 06 02 00 0D 4B 3C 06 CC 18 A4 |RN........K<....|
00000AE0: B8 91 02 00 C0 A5 A7 7A 91 00 20 53 48 49 46 54 |.......z.. SHIFT|
00000AF0: 45 44 20 2A 06 D6 0A 09 06 02 00 2A 4B 3C 06 E0 |ED *.......*K<..|
00000B00: 06 A8 B8 91 06 EA 1D 68 04 1A 02 00 5B 34 04 1A |.......h....[4..|
00000B10: 02 00 5F 2E 38 47 04 1A 02 00 40 2E 47 39 69 A6 |.._.8G....@.G9i.|
00000B20: 91 06 F4 09 09 06 04 1A 4B 3C 06 FE 06 6E B4 91 |........K<...n..|
00000B30: 07 08 08 09 06 06 04 3C 07 12 04 6F 07 1C 04 A9 |.......<...o....|
00000B40: 07 26 04 6F 07 30 0E 5F 02 00 02 C8 CB 06 06 65 |.&.o.0._.......e|
00000B50: 66 61 07 3A 05 7D 12 07 44 04 00 07 4E 09 70 0E |fa.:.}..D...N.p.|
00000B60: 45 9E 00 7B 07 58 19 00 20 42 55 49 4C 44 20 4D |E..{.X.. BUILD M|
00000B70: 41 43 48 20 4C 41 4E 47 20 53 55 42 53 07 62 11 |ACH LANG SUBS.b.|
00000B80: 07 1B 02 01 00 04 22 02 00 01 29 47 24 3A 07 6C |......"...)G$:.l|
00000B90: 16 82 1C 32 92 04 1B 02 00 09 27 84 04 1B 02 00 |...2......'.....|
00000BA0: AE 27 85 87 07 76 08 AF 07 1D B0 B3 07 80 0A E4 |.'...v..........|
00000BB0: 04 1C E5 04 1D E6 07 8A 07 8A 1C 0A 92 07 94 1D |................|
00000BC0: 00 20 43 4C 45 41 52 20 54 4F 20 45 4E 44 20 4F |. CLEAR TO END O|
00000BD0: 46 20 4C 49 4E 45 20 53 55 42 07 9E 0C 07 15 04 |F LINE SUB......|
00000BE0: 1B 02 00 09 27 3A 07 A8 1E AA AD 00 A9 AD 00 27 |....':.........'|
00000BF0: AB 80 92 00 20 20 20 20 30 30 39 20 4C 44 41 20 |.... 009 LDA |
00000C00: 23 24 32 38 07 B2 1A AA AD 00 38 AB 9A 92 00 20 |#$28......8.... |
00000C10: 20 20 20 20 20 20 20 30 31 31 20 53 45 43 07 BC | 011 SEC..|
00000C20: 1C AA AD 00 E5 AD 00 D3 AB B6 92 00 20 20 20 30 |............ 0|
00000C30: 31 32 20 53 42 43 20 24 44 33 07 C6 1E AA AD 00 |12 SBC $D3......|
00000C40: B0 AD 00 04 AB D4 92 00 20 20 20 20 20 30 31 34 |........ 014|
00000C50: 20 42 43 53 20 24 30 34 07 D0 1E AA AD 00 49 AD | BCS $04......I.|
00000C60: 00 FF AB F2 92 00 20 20 20 20 30 31 36 20 45 4F |...... 016 EO|
00000C70: 52 20 23 24 46 46 07 DA 1F AA AD 00 69 AD 00 01 |R #$FF......i...|
00000C80: AB 11 93 00 20 20 20 20 20 30 31 38 20 41 44 43 |.... 018 ADC|
00000C90: 20 23 24 30 31 07 E4 19 AA AD 00 AA AB 2A 93 00 | #$01........*..|
00000CA0: 20 20 20 20 20 20 20 30 32 30 20 54 41 58 07 EE | 020 TAX..|
00000CB0: 1E AA AD 00 A9 AD 00 20 AB 48 93 00 20 20 20 20 |....... .H.. |
00000CC0: 30 32 31 20 4C 44 41 20 23 24 32 30 07 F8 1C AA |021 LDA #$20....|
00000CD0: AD 00 A4 AD 00 D3 AB 64 93 00 20 20 20 30 32 33 |.......d.. 023|
00000CE0: 20 4C 44 59 20 24 44 33 08 02 20 AA AD 00 91 AD | LDY $D3.. .....|
00000CF0: 00 D1 AB 84 93 00 20 20 20 30 32 35 20 53 54 41 |...... 025 STA|
00000D00: 20 28 24 44 31 29 2C 59 08 0C 19 AA AD 00 C8 AB | ($D1),Y........|
00000D10: 9D 93 00 20 20 20 20 20 20 20 30 32 37 20 49 4E |... 027 IN|
00000D20: 59 08 16 19 AA AD 00 CA AB B6 93 00 20 20 20 20 |Y........... |
00000D30: 20 20 20 30 32 38 20 44 45 58 08 20 1E AA AD 00 | 028 DEX. ....|
00000D40: 10 AD 00 FA AB D4 93 00 20 20 20 20 30 32 39 20 |........ 029 |
00000D50: 42 50 4C 20 23 24 46 41 08 2A 1A AA AD 00 60 AB |BPL #$FA.*....`.|
00000D60: 16 94 00 20 20 20 20 20 20 20 20 30 33 31 20 52 |... 031 R|
00000D70: 54 53 08 34 1C 00 20 43 4C 52 20 54 4F 20 45 4E |TS.4.. CLR TO EN|
00000D80: 44 20 4F 46 20 46 52 41 4D 45 20 53 55 42 08 3E |D OF FRAME SUB.>|
00000D90: 0C 07 16 04 1B 02 00 20 27 3A 08 48 1B AA AD 00 |....... ':.H....|
00000DA0: A5 AD 00 D1 AB 31 94 00 20 20 30 33 32 20 4C 44 |.....1.. 032 LD|
00000DB0: 41 20 24 44 31 08 52 19 AA AD 00 18 AB 4A 94 00 |A $D1.R......J..|
00000DC0: 20 20 20 20 20 20 20 30 33 34 20 43 4C 43 08 5C | 034 CLC.\|
00000DD0: 1B AA AD 00 65 AD 00 D3 AB 65 94 00 20 20 30 33 |....e....e.. 03|
00000DE0: 35 20 41 44 43 20 24 44 33 08 66 1B AA AD 00 85 |5 ADC $D3.f.....|
00000DF0: AD 00 FB AB 80 94 00 20 20 30 33 37 20 53 54 41 |....... 037 STA|
00000E00: 20 24 46 42 08 70 1D AA AD 00 A9 AD 00 00 AB 9D | $FB.p..........|
00000E10: 94 00 20 20 20 20 30 33 39 20 4C 44 41 23 24 30 |.. 039 LDA#$0|
00000E20: 30 08 7A 1B AA AD 00 65 AD 00 D2 AB B8 94 00 20 |0.z....e....... |
00000E30: 20 30 34 31 20 41 44 43 20 24 44 32 08 84 1B AA | 041 ADC $D2....|
00000E40: AD 00 85 AD 00 FC AB D3 94 00 20 20 30 34 33 20 |.......... 043 |
00000E50: 53 54 41 20 24 46 43 08 8E 1E AA AD 00 A0 AD 00 |STA $FC.........|
00000E60: 00 AB F1 94 00 20 20 20 20 30 34 35 20 4C 44 59 |..... 045 LDY|
00000E70: 20 23 24 30 30 08 98 19 AA AD 00 18 AB 0A 95 00 | #$00...........|
00000E80: 20 20 20 20 20 20 20 30 34 37 20 43 4C 43 08 A2 | 047 CLC..|
00000E90: 1D AA AD 00 AD AD 00 88 AD 00 02 AB 27 95 00 30 |............'..0|
00000EA0: 34 38 20 4C 44 41 20 24 32 38 38 08 AC 1E AA AD |48 LDA $288.....|
00000EB0: 00 69 AD 00 03 AB 45 95 00 20 20 20 20 30 35 31 |.i....E.. 051|
00000EC0: 20 41 44 43 20 23 24 30 33 08 B6 19 AA AD 00 38 | ADC #$03......8|
00000ED0: AB 5E 95 00 20 20 20 20 20 20 20 30 35 33 20 53 |.^.. 053 S|
00000EE0: 45 43 08 C0 1B AA AD 00 E5 AD 00 FC AB 79 95 00 |EC...........y..|
00000EF0: 20 20 30 35 34 20 53 42 43 20 24 46 43 08 CA 1B | 054 SBC $FC...|
00000F00: AA AD 00 F0 AD 00 0D AB 94 95 00 20 20 20 30 35 |........... 05|
00000F10: 36 20 42 45 51 20 24 44 08 D4 1D AA AD 00 A9 AD |6 BEQ $D........|
00000F20: 00 20 AB B1 95 00 20 20 20 30 35 38 20 4C 44 41 |. .... 058 LDA|
00000F30: 20 23 24 32 30 08 DE 1F AA AD 00 91 AD 00 FB AB | #$20...........|
00000F40: D0 95 00 20 20 30 36 30 20 53 54 41 20 28 24 46 |... 060 STA ($F|
00000F50: 42 29 2C 59 08 E8 1B AA AD 00 E6 AD 00 FB AB EB |B),Y............|
00000F60: 95 00 20 20 30 36 32 20 49 4E 43 20 24 46 42 08 |.. 062 INC $FB.|
00000F70: F2 1B AA AD 00 D0 AD 00 FA AB 06 96 00 20 20 30 |............. 0|
00000F80: 36 34 20 42 4E 45 20 24 46 41 08 FC 1B AA AD 00 |64 BNE $FA......|
00000F90: E6 AD 00 FC AB 21 96 00 20 20 30 36 36 20 49 4E |.....!.. 066 IN|
00000FA0: 43 20 24 46 43 09 06 19 AA AD 00 38 AB 3A 96 00 |C $FC......8.:..|
00000FB0: 20 20 20 20 20 20 20 30 36 38 20 53 45 43 09 10 | 068 SEC..|
00000FC0: 1C AA AD 00 B0 AD 00 E8 AB 56 96 00 20 20 30 36 |.........V.. 06|
00000FD0: 39 20 42 43 53 20 23 24 45 38 09 1A 1C AA AD 00 |9 BCS #$E8......|
00000FE0: A9 AD 00 E7 AB 72 96 00 20 20 30 37 31 20 4C 44 |.....r.. 071 LD|
00000FF0: 41 20 23 24 45 37 09 24 19 AA AD 00 38 AB 8B 96 |A #$E7.$....8...|
00001000: 00 20 20 20 20 20 20 20 30 37 33 20 53 45 43 09 |. 073 SEC.|
00001010: 2E 1B AA AD 00 E5 AD 00 FB AB A6 96 00 20 20 30 |............. 0|
00001020: 37 34 20 53 42 43 20 24 46 42 09 38 18 AA AD 00 |74 SBC $FB.8....|
00001030: AA AB BE 96 00 20 20 20 20 20 20 30 37 36 20 54 |..... 076 T|
00001040: 41 58 09 42 1D AA AD 00 A9 AD 00 20 AB DB 96 00 |AX.B....... ....|
00001050: 20 20 20 30 37 37 20 4C 44 41 20 23 24 32 30 09 | 077 LDA #$20.|
00001060: 4C 1F AA AD 00 91 AD 00 FB AB FA 96 00 20 20 30 |L............ 0|
00001070: 37 39 20 53 54 41 20 28 24 46 42 29 2C 59 09 56 |79 STA ($FB),Y.V|
00001080: 18 AA AD 00 C8 AB 12 97 00 20 20 20 20 20 20 30 |......... 0|
00001090: 38 31 20 49 4E 59 09 60 18 AA AD 00 CA AB 2A 97 |81 INY.`......*.|
000010A0: 00 20 20 20 20 20 20 30 38 32 20 44 45 58 09 6A |. 082 DEX.j|
000010B0: 1C AA AD 00 D0 AD 00 FA AB 46 97 00 20 20 30 38 |.........F.. 08|
000010C0: 33 20 42 4E 45 20 23 24 46 41 09 74 19 AA AD 00 |3 BNE #$FA.t....|
000010D0: 60 AB 80 97 00 20 20 20 20 20 20 20 30 38 35 20 |`.... 085 |
000010E0: 52 54 53 09 7E 15 00 20 42 4C 41 4E 4B 20 43 55 |RTS.~.. BLANK CU|
000010F0: 52 53 4F 52 20 53 55 42 09 88 0C 07 13 04 1B 02 |RSOR SUB........|
00001100: 00 56 27 3A 09 92 1D AA AD 00 A9 AD 00 02 AB 9D |.V':............|
00001110: 97 00 20 20 20 30 38 36 20 4C 44 41 20 23 24 32 |.. 086 LDA #$2|
00001120: 30 09 9C 17 AA AD 00 78 AB B4 97 00 20 20 20 20 |0......x.... |
00001130: 20 30 38 38 20 53 45 49 09 A6 1A AA AD 00 85 AD | 088 SEI........|
00001140: 00 CC AB CE 97 00 20 30 38 39 20 53 54 41 20 24 |...... 089 STA $|
00001150: 43 43 09 B0 1A AA AD 00 85 AD 00 CD AB E8 97 00 |CC..............|
00001160: 20 30 39 31 20 53 54 41 20 24 43 44 09 BA 1A AA | 091 STA $CD....|
00001170: AD 00 A5 AD 00 CF AB 02 98 00 20 30 39 33 20 4C |.......... 093 L|
00001180: 44 41 20 24 43 46 09 C4 1B AA AD 00 F0 AD 00 1B |DA $CF..........|
00001190: AB 1D 98 00 20 20 30 39 35 20 42 45 51 20 24 31 |.... 095 BEQ $1|
000011A0: 42 09 CE 1D AA AD 00 A9 AD 00 00 AB 3A 98 00 20 |B...........:.. |
000011B0: 20 20 30 39 37 20 4C 44 41 20 23 24 30 30 09 D8 | 097 LDA #$00..|
000011C0: 1A AA AD 00 85 AD 00 CF AB 54 98 00 20 30 39 39 |.........T.. 099|
000011D0: 20 53 54 41 20 24 43 46 09 E2 1A AA AD 00 A5 AD | STA $CF........|
000011E0: 00 D1 AB 6E 98 00 20 31 30 31 20 4C 44 41 20 24 |...n.. 101 LDA $|
000011F0: 44 31 09 EC 1A AA AD 00 85 AD 00 F3 AB 88 98 00 |D1..............|
00001200: 20 31 30 33 20 53 54 41 20 24 46 33 09 F6 1A AA | 103 STA $F3....|
00001210: AD 00 A5 AD 00 D2 AB A2 98 00 20 31 30 35 20 4C |.......... 105 L|
00001220: 44 41 20 24 44 32 0A 00 1E AA AD 00 29 AD 00 03 |DA $D2......)...|
00001230: AB C0 98 00 20 20 20 20 31 30 37 20 41 4E 44 20 |.... 107 AND |
00001240: 23 24 30 33 0A 0A 1D AA AD 00 09 AD 00 D8 AB DD |#$03............|
00001250: 98 00 20 20 20 31 30 39 20 4F 52 41 20 23 24 44 |.. 109 ORA #$D|
00001260: 38 0A 14 1A AA AD 00 85 AD 00 F4 AB F7 98 00 20 |8.............. |
00001270: 31 31 31 20 53 54 41 20 24 46 34 0A 1E 1A AA AD |111 STA $F4.....|
00001280: 00 A5 AD 00 CE AB 11 99 00 20 31 31 33 20 4C 44 |......... 113 LD|
00001290: 41 20 24 43 45 0A 28 1A AA AD 00 A4 AD 00 D3 AB |A $CE.(.........|
000012A0: 2B 99 00 20 31 31 35 20 4C 44 59 20 24 44 33 0A |+.. 115 LDY $D3.|
000012B0: 32 1E AA AD 00 91 AD 00 D1 AB 49 99 00 20 31 31 |2.........I.. 11|
000012C0: 37 20 53 54 41 20 28 24 44 31 29 2C 59 0A 3C 1E |7 STA ($D1),Y.<.|
000012D0: AA AD 00 AD AD 00 87 AD 00 02 AB 67 99 00 31 31 |...........g..11|
000012E0: 39 20 4C 44 41 20 24 30 32 38 37 0A 46 1E AA AD |9 LDA $0287.F...|
000012F0: 00 91 AD 00 F3 AB 85 99 00 20 31 32 32 20 53 54 |......... 122 ST|
00001300: 41 20 28 24 46 33 29 2C 59 0A 50 18 AA AD 00 58 |A ($F3),Y.P....X|
00001310: AB 9D 99 00 20 20 20 20 20 20 31 32 34 20 43 4C |.... 124 CL|
00001320: 49 0A 5A 18 AA AD 00 60 AB 16 9A 00 20 20 20 20 |I.Z....`.... |
00001330: 20 20 31 32 35 20 52 54 53 0A 64 1C 00 20 47 45 | 125 RTS.d.. GE|
00001340: 54 20 42 59 54 45 20 46 52 4F 4D 20 4D 4F 44 45 |T BYTE FROM MODE|
00001350: 4D 20 53 55 42 0A 6E 1C 00 20 41 53 53 55 4D 45 |M SUB.n.. ASSUME|
00001360: 53 20 4D 4F 44 45 4D 20 49 53 20 46 49 4C 45 20 |S MODEM IS FILE |
00001370: 32 0A 78 1D 00 20 47 45 54 20 42 59 54 45 20 46 |2.x.. GET BYTE F|
00001380: 52 4F 4D 20 50 45 45 4B 28 41 52 45 47 29 0A 82 |ROM PEEK(AREG)..|
00001390: 0C 07 0F 04 1B 02 00 7E 27 3A 0A 8C 20 AA AD 00 |.......~':.. ...|
000013A0: A2 AD 00 02 AB 36 9A 00 20 20 20 20 20 20 31 32 |.....6.. 12|
000013B0: 36 20 4C 44 58 20 23 24 30 32 0A 96 1F AA AD 00 |6 LDX #$02......|
000013C0: 20 AD 00 C6 AD 00 FF AB 55 9A 00 20 31 32 38 20 | .......U.. 128 |
000013D0: 4A 53 52 20 24 46 46 43 36 0A A0 1F AA AD 00 20 |JSR $FFC6...... |
000013E0: AD 00 E4 AD 00 FF AB 74 9A 00 20 31 33 31 20 4A |.......t.. 131 J|
000013F0: 53 52 20 24 46 46 45 34 0A AA 1D AA AD 00 85 AD |SR $FFE4........|
00001400: 00 FB AB 91 9A 00 20 20 20 20 31 33 34 20 53 54 |...... 134 ST|
00001410: 41 20 24 46 42 0A B4 1F AA AD 00 20 AD 00 CC AD |A $FB...... ....|
00001420: 00 FF AB B0 9A 00 20 31 33 36 20 4A 53 52 20 24 |...... 136 JSR $|
00001430: 46 46 43 43 0A BE 1B AA AD 00 60 AB EF 9A 00 20 |FFCC......`.... |
00001440: 20 20 20 20 20 20 20 20 31 33 39 20 52 54 53 0A | 139 RTS.|
00001450: C8 18 00 20 50 4F 53 49 54 49 4F 4E 20 43 55 52 |... POSITION CUR|
00001460: 53 4F 52 20 53 55 42 0A D2 0C 07 19 04 1B 02 00 |SOR SUB.........|
00001470: 8C 27 3A 0A DC 1F AA AD 00 AD AD 00 88 AD 00 02 |.':.............|
00001480: AB 0E 9B 00 20 31 34 30 20 4C 44 41 20 24 30 32 |.... 140 LDA $02|
00001490: 38 38 0A E6 1F AA AD 00 09 AD 00 80 AB 2D 9B 00 |88...........-..|
000014A0: 20 20 20 20 20 31 34 33 20 4F 52 41 20 23 24 38 | 143 ORA #$8|
000014B0: 30 0A F0 19 AA AD 00 A8 AB 46 9B 00 20 20 20 20 |0........F.. |
000014C0: 20 20 20 31 34 35 20 54 41 59 0A FA 1F AA AD 00 | 145 TAY......|
000014D0: A9 AD 00 00 AB 65 9B 00 20 20 20 20 20 31 34 36 |.....e.. 146|
000014E0: 20 4C 44 41 20 23 24 30 30 0B 04 19 AA AD 00 AA | LDA #$00.......|
000014F0: AB 7E 9B 00 20 20 20 20 20 20 20 31 34 38 20 54 |.~.. 148 T|
00001500: 41 58 0B 0E 1E AA AD 00 94 AD 00 D9 AB 9C 9B 00 |AX..............|
00001510: 20 20 20 31 34 39 20 53 54 59 20 24 44 39 2C 58 | 149 STY $D9,X|
00001520: 0B 18 1A AA AD 00 18 AB B6 9B 00 20 20 20 20 20 |........... |
00001530: 20 20 20 31 35 31 20 43 4C 43 0B 22 1E AA AD 00 | 151 CLC."....|
00001540: 69 AD 00 28 AB D4 9B 00 20 20 20 20 31 35 32 20 |i..(.... 152 |
00001550: 41 44 43 20 23 24 32 38 0B 2C 1F AA AD 00 90 AD |ADC #$28.,......|
00001560: 00 01 AB F3 9B 00 20 20 20 20 20 31 35 34 20 42 |...... 154 B|
00001570: 43 43 20 23 24 30 31 0B 36 19 AA AD 00 C8 AB 0C |CC #$01.6.......|
00001580: 9C 00 20 20 20 20 20 20 20 31 35 36 20 49 4E 59 |.. 156 INY|
00001590: 0B 40 19 AA AD 00 E8 AB 25 9C 00 20 20 20 20 20 |.@......%.. |
000015A0: 20 20 31 35 37 20 49 4E 58 0B 4A 1E AA AD 00 E0 | 157 INX.J.....|
000015B0: AD 00 1A AB 43 9C 00 20 20 20 20 31 35 38 20 43 |....C.. 158 C|
000015C0: 50 58 20 23 24 31 41 0B 54 1D AA AD 00 D0 AD 00 |PX #$1A.T.......|
000015D0: F3 AB 60 9C 00 20 20 20 31 36 30 20 42 4E 45 20 |..`.. 160 BNE |
000015E0: 23 24 46 33 0B 5E 1D AA AD 00 A9 AD 00 FF AB 7D |#$F3.^.........}|
000015F0: 9C 00 20 20 20 31 36 32 20 4C 44 41 20 23 24 46 |.. 162 LDA #$F|
00001600: 46 0B 68 1E AA AD 00 95 AD 00 D9 AB 9B 9C 00 20 |F.h............ |
00001610: 20 20 31 36 34 20 53 54 41 20 24 44 39 2C 58 0B | 164 STA $D9,X.|
00001620: 72 1C AA AD 00 A6 AD 00 FC AB B7 9C 00 20 20 20 |r............ |
00001630: 31 36 36 20 4C 44 58 20 24 46 43 0B 7C 1C AA AD |166 LDX $FC.|...|
00001640: 00 A4 AD 00 FD AB D3 9C 00 20 20 20 31 36 38 20 |......... 168 |
00001650: 4C 44 59 20 24 46 44 0B 86 1A AA AD 00 18 AB ED |LDY $FD.........|
00001660: 9C 00 20 20 20 20 20 20 20 20 31 37 30 20 43 4C |.. 170 CL|
00001670: 43 0B 90 1E AA AD 00 20 AD 00 F0 AD 00 FF AB 0B |C...... ........|
00001680: 9D 00 31 37 31 20 4A 53 52 20 24 46 46 46 30 0B |..171 JSR $FFF0.|
00001690: 9A 1A AA AD 00 60 AB 00 00 00 20 20 20 20 20 20 |.....`.... |
000016A0: 20 20 31 37 34 20 52 54 53 0B A4 12 00 20 42 55 | 174 RTS.... BU|
000016B0: 49 4C 44 20 52 43 56 27 54 42 4C 0B AE 10 82 1E |ILD RCV'TBL.....|
000016C0: 52 9D 02 00 01 84 02 00 1F 85 87 0B B8 0B 0C 21 |R..............!|
000016D0: 07 1E 1C 06 04 3C 0B C2 07 8A 1E 37 9D 0B CC 10 |.....<.....7....|
000016E0: 82 1E 75 9D 02 00 20 84 02 00 40 85 87 0B D6 0C |..u... ...@.....|
000016F0: 0C 21 07 1E 1C 04 1E 4B 3C 0B E0 07 8A 1E 59 9D |.!.....K<.....Y.|
00001700: 0B EA 10 82 1E 9C 9D 02 00 41 84 02 00 5A 85 87 |.........A...Z..|
00001710: 0B F4 10 0C 21 07 1E 1C 04 1E 02 00 80 27 4B 3C |....!........'K<|
00001720: 0B FE 07 8A 1E 7C 9D 0C 08 10 82 1E BF 9D 02 00 |.....|..........|
00001730: 5B 84 02 00 5F 85 87 0C 12 0C 0C 21 07 1E 1C 04 |[..._......!....|
00001740: 1E 4B 3C 0C 1C 07 8A 1E A3 9D 0C 26 10 82 1E E6 |.K<........&....|
00001750: 9D 02 00 61 84 02 00 7A 85 87 0C 30 10 0C 21 07 |...a...z...0..!.|
00001760: 1E 1C 04 1E 02 00 20 29 4B 3C 0C 3A 07 8A 1E C6 |...... )K<.:....|
00001770: 9D 0C 44 10 82 1E 08 9E 02 00 7B 84 02 00 7F 85 |..D.......{.....|
00001780: 87 0C 4E 0B 0C 21 07 1E 1C 06 04 3C 0C 58 07 8A |..N..!.....<.X..|
00001790: 1E ED 9D 0C 62 0E 0C 21 02 00 08 19 02 00 9D 4B |....b..!.......K|
000017A0: 3C 0C 6C 0E 0C 21 02 00 0A 19 02 00 0A 4B 3C 0C |<.l..!.......K<.|
000017B0: 76 0E 0C 21 02 00 0D 19 02 00 0D 4B 3C 0C 80 0C |v..!.......K<...|
000017C0: 0C 21 02 00 60 19 06 04 3C 0C 8A 05 7D 0E 0C 94 |.!..`...<...}...|
000017D0: 09 70 14 EB 9E 00 7B 0C 9E 0F E4 01 90 54 01 00 |.p....{......T..|
000017E0: 00 E5 02 00 82 E6 0C A8 0F E4 01 90 54 04 00 00 |............T...|
000017F0: E5 02 00 15 E6 0C B2 0F E4 01 90 54 05 00 00 E5 |...........T....|
00001800: 02 00 09 E6 0C BC 1A E4 01 90 54 18 00 00 E5 02 |..........T.....|
00001810: 00 0F E6 00 53 45 54 20 56 4F 4C 55 4D 45 0C C6 |....SET VOLUME..|
00001820: 10 82 1E AA 9E 02 00 01 84 02 00 32 85 87 0C D0 |...........2....|
00001830: 07 8A 1E 9A 9E 0C DA 1C E4 01 90 54 18 00 00 E5 |...........T....|
00001840: 02 00 00 E6 00 20 53 48 55 54 20 49 54 20 4F 46 |..... SHUT IT OF|
00001850: 46 0C E4 0F E4 01 90 54 04 00 00 E5 02 00 00 E6 |F......T........|
00001860: 0C EE 0F E4 01 90 54 05 00 00 E5 02 00 00 E6 0C |......T.........|
00001870: F8 05 7D 14 00 00 00 00 00 00 00 00 00 00 12 E4 |..}.............|
00001880: AE 00 00 12 DF AE 00 00 12 DA AE 00 00 12 D5 AE |................|
00001890: 00 00 12 D0 AE 00 00 10 49 AC 00 00 10 44 AC 00 |........I....D..|
000018A0: 00 10 3F AC 00 00 10 3A AC 00 00 10 35 AC 00 00 |..?....:....5...|
000018B0: 10 30 AC 00 00 14 D7 91 00 00 10 0D AC 00 00 10 |.0..............|
000018C0: FE AB 00 00 14 87 8B 00 00 14 67 8F 00 00 10 12 |..........g.....|
000018D0: AC 00 00 14 4A 9E 00 00 10 1C AC 00 00 10 17 AC |....J...........|
000018E0: 00 00 00 00 00 00 00 00 00 00 00 00 10 08 AC 00 |................|
000018F0: 00 10 F9 AB 00 00 10 2B AC 00 00 10 26 AC 00 00 |.......+....&...|
00001900: 10 21 AC 00 00 10 03 AC 00 00 00 00 00 00 00 00 |.!..............|
00001910: 00 00 00 00 92 C9 AE 00 00 10 F7 AE 00 00 00 00 |................|
00001920: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001940: 00 00 00 00 00 00 00 00 00 00 00 12 FC AE 00 00 |................|
00001950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001960: 00 00 00 00 04 42 55 46 46 06 48 49 4D 45 4D 48 |.....BUFF.HIMEMH|
00001970: 05 53 54 41 54 45 03 4E 55 4C 06 52 27 43 48 41 |.STATE.NUL.R'CHA|
00001980: 52 06 53 27 43 48 41 52 04 45 53 43 50 05 4E 4F |R.S'CHAR.ESCP.NO|
00001990: 54 41 42 06 53 54 44 54 41 42 04 41 52 45 47 04 |TAB.STDTAB.AREG.|
000019A0: 58 52 45 47 04 59 52 45 47 05 46 4C 41 47 53 05 |XREG.YREG.FLAGS.|
000019B0: 53 45 54 55 50 08 47 45 54 27 42 59 54 45 06 52 |SETUP.GET'BYTE.R|
000019C0: 27 43 4F 44 45 0C 44 49 53 50 4C 41 59 27 43 48 |'CODE.DISPLAY'CH|
000019D0: 41 52 09 53 45 4E 44 27 43 48 41 52 0A 42 4C 41 |AR.SEND'CHAR.BLA|
000019E0: 4E 4B 27 43 52 53 52 04 42 45 45 50 07 43 4C 52 |NK'CRSR.BEEP.CLR|
000019F0: 27 45 4F 4C 07 43 4C 52 27 45 4F 46 08 43 52 53 |'EOL.CLR'EOF.CRS|
00001A00: 52 27 52 4F 57 08 43 52 53 52 27 43 4F 4C 08 50 |R'ROW.CRSR'COL.P|
00001A10: 4F 53 27 43 52 53 52 06 53 27 43 4F 44 45 05 42 |OS'CRSR.S'CODE.B|
00001A20: 45 47 49 4E 04 41 44 44 52 03 44 41 54 01 49 06 |EGIN.ADDR.DAT.I.|
00001A30: 4C 49 4C 49 53 54 05 4C 4C 49 53 54 07 52 43 56 |LILIST.LLIST.RCV|
00001A40: 27 54 42 4C 07 4D 45 4D 54 4F 50 48 07 44 45 4C |'TBL.MEMTOPH.DEL|
00001A50: 45 45 54 45 04 43 41 54 53 08 4C 49 53 54 31 32 |EETE.CATS.LIST12|
00001A60: 30 30 04 52 45 4E 55 04 43 41 54 45 05 43 41 54 |00.RENU.CATE.CAT|
00001A70: 53 45 02 46 46 04 43 4F 4E 54 05 4C 49 53 54 50 |SE.FF.CONT.LISTP|
00001A80: 03 53 55 42 03 4C 49 54 03 4C 53 54 07 43 41 54 |.SUB.LIT.LST.CAT|
00001A90: 41 4C 4F 47 04 43 41 54 30 00 00 |ALOG.CAT0.. |
N.^....... SAVE "VT-52.V4.... VT-52 TERM
INAL EMULATOR.... DELETE "0:VT-52.V2.(..
.2.. JOHN H. MCCOY.<.. 1615 BAGWELL.F..
HUNTSVILLE, TX 77340.P.. (409)295-341
0.Z.. ORIGINAL DECEMBER 3, 1983.D". CO
MAL 0.14 FEBRUARY 18, 1984.N...X!. ASSUM
ES TERMINAL WIDTH OF 39.... DEFINES F1 A
S LINE FEED.... F2 AS CTRL T....
F3 AS ESC. .. F4 AS CTR
L Q......$. ONLY KNOW PROBLEM AS OF 2/19
/84..$. WHEN DELETING CHARS FROM MULTI.
H$. LINE INPUT TO TOPS-20, PROBLEM.R$.
OCCURS WHEN CHAR BEING DELETED..". IS
FIRST CHAR OF A CONTINUED..". LINE. WH
EN CURSOR IS BACKED..!. UP TO PRECEEDIN
G LINE IT IS..$. ONE COLUMN TO RIGHT OF
CORRECT..#. POSITION. USE CTRL/R TO H
AVE.... TOPS-20 REPRINT LINE......"#. O
PEN MODEM 300 BAUD NO PARITY.,........6
.......6...@...,.....E. DUMMY VARIABLE.J
$. TO PROTECT MACH.T$.
LANG SUBROUTINE.^........
.........E.H.................E.R........
..!.........E.|.....TXT<.....:B.....:B.
.......K<.....K<B.... ZERO PAGE WORK SPA
CE........:. $FB........:. $FC........:.
$FD........:. $FE.B...L.."..EX:.V.....
...F..._...K...K(EFA.........B..........
........X:.&.H.....2J...0....L...... MA
KE CRSR FLASH.:....<.D.H....3J...N.ZM.P
..X...... ORDERLY DISABLE.B._...K...K(EF
A.L.O...P.V._`A..._..TYPE RUN TO CONTINU
EE`A... .......P.^..{............ ORDERL
Y DISABLE..........F..Z...TXT..A..P.....
N..Z............ ESC.......ESC SEQ<.....
......... ^G BELL................2.. ^I
TAB.....F..._FA. ...F.*.........N.. LF.
4._...KEFA.>.........O.. CR.H._...K...K(
EFA.R......"..... QUOTE.\._.."KEFA.F....
T...... TURN OFF " MODE.P.....Z._.!...EF
A........Z...ESC SEQ..A........TXT<...H.
...Z0I... CONVERT LC......... ):. TO U
C...O.......K<.J.....#..T..=...B..D.. CR
SR DWN..._...EFA....=...C..F.. CRSR RGHT
..._...EFA....=...A..... CRSR UP..._...E
FA....=...D..... BS..._...EFA.$..=...K..
... CLR EOL........8..=...J..... CLR EOF
.B......L..=...H..... HOME.V..........`.
.........J......T._FA.~..=...Y..7..ABS C
RSR.......CRSR ROW<....=.........Z...CRS
R ROW............. &:...H.....0I...D....
.FLUSH CHARS<.N.N...X.....CRSR COL<...O.
...Z...CRSR COL..8.......... ..P&):...H.
...'0I.......... :.........(&:...M......
.*I...(......:.2.O.<.........F.........P
......Z._FA. FORCE UPDATE.D.....TXT<.N..
Z...FLUSH CHARS.....X.....TXT<.......}..
.... .P.N..{.......I:...H....A4....Z.8I.
.......... 'K<.H.M......A4....Z.8I...R..
......)K<...N.........L.................
.. INST DEL........K<.............. F1 M
AKE LF........K<...........7.. F3 MAKE ^
T."......K<.,.........Y.. F5 MAKE ESC.6.
....<.@.........|.. F7 MAKE ^Q.J......K<
.T......... .. CRSR DOWN.^.......B(<.H..
.......E.. CRSR RIGHT.R.......C(<.|.....
....... CRSR LEFT.........D(<...........
... CRSR UP.........A(<........ ..1.. SH
IFTED SPACE....... K<...........X.. SHIF
TED RETURN.B......K<.L.........Z.. SHIFT
ED *.V.....*K<.........H....[4...._.8G..
..@.G9I.........K<...N.........<...O....
.&.O.0._...HK..EFA.:.}..D...N.P.E..{.X..
BUILD MACH LANG SUBS.B......."...)G$:.L
...2......'......'...V..................
......... CLEAR TO END OF LINE SUB......
....':.........'.... 009 LDA #$28....
..8.... 011 SEC.........S.... 0
12 SBC $D3.F.........T.. 014 BCS $04
.P....I....... 016 EOR #$FF.Z....I...
.... 018 ADC #$01........*.. 0
20 TAX......... .H.. 021 LDA #$20....
.....S.D.. 023 LDY $D3.. ......Q....
025 STA ($D1),Y......H.... 027 IN
Y......J.... 028 DEX. .........T..
029 BPL #$FA.*....`.... 031 R
TS.4.. CLR TO END OF FRAME SUB.>.......
':.H.......Q.1.. 032 LDA $D1.R......J..
034 CLC.\....E..S.E.. 035 ADC $D
3.F............ 037 STA $FB.P..........
.. 039 LDA#$00.Z....E..R.... 041 ADC
$D2...........S.. 043 STA $FC...... ..
..... 045 LDY #$00........... 0
47 CLC..............'..048 LDA $288.....
.I....E.. 051 ADC #$03......8.^..
053 SEC...........Y.. 054 SBC $FC.J.
........... 056 BEQ $D.T....... ....
058 LDA #$20...........P.. 060 STA ($F
B),Y.............. 062 INC $FB......P..
..... 064 BNE $FA...........!.. 066 IN
C $FC......8.:.. 068 SEC..........
.V.. 069 BCS #$E8...........R.. 071 LD
A #$E7.$....8.... 073 SEC.........
..... 074 SBC $FB.8......... 076 T
AX.B....... .... 077 LDA #$20.L.......
..... 079 STA ($FB),Y.V....H.... 0
81 INY.`....J.*.. 082 DEX.J....P...
.F.. 083 BNE #$FA.T....`.... 085
RTS.~.. BLANK CURSOR SUB.........V':....
.......... 086 LDA #$20......X....
088 SEI.........L.N.. 089 STA $CC......
...M.... 091 STA $CD.........O.... 093 L
DA $CF.D............ 095 BEQ $1B.N.....
....:.. 097 LDA #$00.X.......O.T.. 099
STA $CF.........Q.N.. 101 LDA $D1......
........ 103 STA $F3.........R.... 105 L
DA $D2......)....... 107 AND #$03....
.....X.... 109 ORA #$D8..............
111 STA $F4.........N.... 113 LDA $CE.(.
......S.+.. 115 LDY $D3.2.......Q.I.. 11
7 STA ($D1),Y.<............G..119 LDA $0
287.F............ 122 STA ($F3),Y.P....X
.... 124 CLI.Z....`.... 125 RT
S.D.. GET BYTE FROM MODEM SUB.N.. ASSUME
S MODEM IS FILE 2.X.. GET BYTE FROM PEEK
(AREG).........~':.. ........6.. 12
6 LDX #$02...... ..F....U.. 128 JSR $FFC
6. .... .......T.. 131 JSR $FFE4........
...... 134 STA $FB...... ..L....... 1
36 JSR $FFCC......`.... 139 RTS.
H.. POSITION CURSOR SUB.R........':.....
............ 140 LDA $0288...........-..
143 ORA #$80........F.. 145 T
AY...........E.. 146 LDA #$00.......
.~.. 148 TAX.........Y.... 149 S
TY $D9,X........... 151 CLC."....
I..(.T.. 152 ADC #$28.,............
154 BCC #$01.6....H.... 156 INY
.@......%.. 157 INX.J.........C..
158 CPX #$1A.T....P....`.. 160 BNE
#$F3.^.........}.. 162 LDA #$FF.H.....
..Y.... 164 STA $D9,X.R............
166 LDX $FC.|.........S.. 168 LDY $FD.
.......... 170 CLC...... ........
..171 JSR $FFF0......`.... 174 RT
S.... BUILD RCV'TBL.....R..............!
.....<.B...7..L...U... ...@...V..!.....K
<.....Y..........A...Z......!........'K<
.....|..........[..._......!.....K<.....
...&.......A...Z...0..!....... )K<.:...F
..D.......{......N..!.....<.X......B..!
.......K<.L..!.......K<.V..!.......K<...
.!..`...<...}....P....{......T..........
....T..............T..............T.....
....SET VOLUME.F...........2...P......Z.
...T......... SHUT IT OFF......T........
......T...........}.....................
.Z....U....P....I....D....?....:....5...
.0....W...................G.........J...
...............................+....&...
.!...................I..................
........................................
.....................BUFF.HIMEMH.STATE.N
UL.R'CHAR.S'CHAR.ESCP.NOTAB.STDTAB.AREG.
XREG.YREG.FLAGS.SETUP.GET'BYTE.R'CODE.DI
SPLAY'CHAR.SEND'CHAR.BLANK'CRSR.BEEP.CLR
'EOL.CLR'EOF.CRSR'ROW.CRSR'COL.POS'CRSR.
S'CODE.BEGIN.ADDR.DAT.I.LILIST.LLIST.RCV
'TBL.MEMTOPH.DELEETE.CATS.LIST1200.RENU.
CATE.CATSE.FF.CONT.LISTP.SUB.LIT.LST.CAT
ALOG.CAT0..
> CLICK IMAGE PREVIEW FOR FULL MODAL