MR. ED.PAL
FILE INFORMATION
FILENAME(S): MR. ED.PAL
FILE TYPE(S): PRG
FILE SIZE: 10.4K
FIRST SEEN: 2025-11-30 21:12:48
APPEARS ON: 1 disk(s)
FILE HASH
c495768410abace3fdbc8717f8ce058a4ba62b6fcf6ca84a8cbd73983946145d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | MR. ED.PAL | PRG | DuncanTwain | 31 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 18 04 E8 03 8F 20 53 41 56 45 22 30 3A 45 |....... SAVE"0:E|
00000010: 44 2E 50 41 4C 22 2C 38 00 2E 04 F2 03 9F 20 38 |D.PAL",8...... 8|
00000020: 2C 38 2C 31 2C 22 30 3A 4D 52 2E 45 44 22 00 37 |,8,1,"0:MR.ED".7|
00000030: 04 FC 03 9E 37 30 30 00 43 04 06 04 2E 4F 50 54 |....700.C....OPT|
00000040: 20 4F 38 00 6C 04 10 04 3B 20 22 CD 52 2E 20 C5 | O8.l...; ".R. .|
00000050: 44 20 42 59 20 C3 48 52 49 53 20 CD 49 4C 4C 45 |D BY .HRIS .ILLE|
00000060: 52 20 CA 55 4C 2C 20 31 39 38 36 22 00 72 04 1A |R .UL, 1986".r..|
00000070: 04 3B 00 87 04 24 04 3B 20 AC AC AC 20 43 91 53 |.;...$.; ... C.S|
00000080: C0 54 53 20 AC AC AC 00 A4 04 2E 04 43 4F 4C 55 |.TS ........COLU|
00000090: 4D 4E 53 20 B2 34 30 3B 20 53 43 52 45 45 4E 20 |MNS .40; SCREEN |
000000A0: 53 49 5A 45 00 C3 04 38 04 4C 49 4E 45 53 49 5A |SIZE...8.LINESIZ|
000000B0: 45 20 B2 32 35 30 3B 20 4D 41 58 20 41 4C 4C 4F |E .250; MAX ALLO|
000000C0: 57 45 44 00 EA 04 42 04 53 43 52 45 45 4E 42 45 |WED...B.SCREENBE|
000000D0: 47 20 B2 31 30 32 34 AA 34 30 3B 20 A4 50 20 4F |G .1024.40; .P O|
000000E0: 46 20 54 45 58 54 20 53 43 52 00 0B 05 4C 04 53 |F TEXT SCR...L.S|
000000F0: 43 52 45 45 4E 80 20 B2 32 30 32 34 3B 20 80 20 |CREEN. .2024; . |
00000100: 4F 46 20 54 45 58 54 20 53 43 52 00 35 05 56 04 |OF TEXT SCR.5.V.|
00000110: 52 4F 57 53 20 B2 20 32 34 20 3B 20 53 43 52 45 |ROWS . 24 ; SCRE|
00000120: 45 4E 80 AB 53 43 52 45 45 4E 42 45 47 AD 43 4F |EN..SCREENBEG.CO|
00000130: 4C 55 4D 4E 53 00 3B 05 60 04 3B 00 56 05 6A 04 |LUMNS.;.`.;.V.j.|
00000140: 3B 20 AC AC AC 20 49 4D 50 B0 C0 54 20 4D 45 4D |; ... IMP..T MEM|
00000150: B0 59 20 AC AC AC 00 65 05 74 04 56 49 43 20 B2 |.Y ....e.t.VIC .|
00000160: 24 44 30 31 31 00 74 05 7E 04 42 4B 47 20 B2 35 |$D011.t.~.BKG .5|
00000170: 33 32 38 31 00 82 05 88 04 42 B0 20 B2 35 33 32 |3281.....B. .532|
00000180: 38 30 00 92 05 92 04 52 50 54 4B 45 59 20 B2 36 |80.....RPTKEY .6|
00000190: 35 30 00 A2 05 9C 04 49 43 8A 43 48 20 B2 24 33 |50.....IC.CH .$3|
000001A0: 30 34 00 AF 05 A6 04 85 20 20 B2 24 32 30 30 00 |04...... .$200.|
000001B0: B5 05 B0 04 3B 00 D0 05 BA 04 3B 20 AC AC AC 20 |....;.....; ... |
000001C0: 52 4F 4D 20 52 4F 55 54 49 4E 45 53 20 AC AC AC |ROM ROUTINES ...|
000001D0: 00 E3 05 C4 04 43 8A 43 48 53 52 56 20 B2 24 41 |.....C.CHSRV .$A|
000001E0: 35 37 43 00 F2 05 CE 04 A1 49 4E 20 B2 24 46 46 |57C......IN .$FF|
000001F0: 45 34 00 FF 05 D8 04 99 20 B2 24 46 46 44 32 00 |E4...... .$FFD2.|
00000200: 0D 06 E2 04 87 59 20 B2 24 45 33 37 42 00 21 06 |.....Y .$E37B.!.|
00000210: EC 04 43 4E 56 52 54 44 45 43 20 B2 24 42 44 43 |..CNVRTDEC .$BDC|
00000220: 44 00 27 06 F6 04 3B 00 3F 06 00 05 3B 20 AC AC |D.'...;.?...; ..|
00000230: AC 20 56 41 52 49 41 42 4C 45 53 20 AC AC AC 00 |. VARIABLES ....|
00000240: 47 06 0A 05 AC B2 32 00 53 06 14 05 56 41 52 53 |G.....2.S...VARS|
00000250: 20 B2 AC 00 72 06 1E 05 52 4F 57 20 AC B2 AC AA | ...r...ROW ....|
00000260: 31 3B 20 53 43 52 45 45 4E 20 52 4F 57 20 30 AB |1; SCREEN ROW 0.|
00000270: 32 34 00 91 06 28 05 43 4F 4C 20 AC B2 AC AA 31 |24...(.COL ....1|
00000280: 3B 20 53 43 52 45 45 4E 20 43 4F 4C 20 30 AB 33 |; SCREEN COL 0.3|
00000290: 39 00 B1 06 32 05 53 48 8B 54 20 AC B2 AC AA 31 |9...2.SH.T ....1|
000002A0: 3B 20 4F 46 46 20 53 43 52 45 45 4E 20 4C 45 46 |; OFF SCREEN LEF|
000002B0: 54 00 D3 06 3C 05 4C 49 4E 45 20 AC B2 AC AA 32 |T...<.LINE ....2|
000002C0: 3B 20 54 45 58 54 20 4C 49 4E 45 20 43 4F 55 4E |; TEXT LINE COUN|
000002D0: 54 45 52 00 F7 06 46 05 43 4E 54 20 AC B2 AC AA |TER...F.CNT ....|
000002E0: 31 3B 20 44 49 53 50 4C 41 59 20 4C 49 4E 45 20 |1; DISPLAY LINE |
000002F0: 43 4F 55 4E 54 45 52 00 14 07 50 05 4E 55 4D 20 |COUNTER...P.NUM |
00000300: AC B2 AC AA 31 3B 20 47 45 4E 45 52 41 4C 20 50 |....1; GENERAL P|
00000310: 55 52 B9 45 00 3A 07 5A 05 44 49 53 46 4C 47 20 |UR.E.:.Z.DISFLG |
00000320: AC B2 AC AA 31 3B 20 4E 45 47 41 54 49 56 45 B2 |....1; NEGATIVE.|
00000330: 4E 4F 20 44 49 53 50 4C 41 59 00 4D 07 64 05 56 |NO DISPLAY.M.d.V|
00000340: 41 52 4E 55 4D 20 B2 AC AB 56 41 52 53 00 53 07 |ARNUM ...VARS.S.|
00000350: 6E 05 3B 00 68 07 78 05 3B 20 AC AC AC 20 50 4F |n.;.h.x.; ... PO|
00000360: B5 45 52 53 20 AC AC AC 00 84 07 82 05 50 54 52 |.ERS ........PTR|
00000370: 20 20 B2 36 31 3B 20 55 54 49 4C 49 54 59 20 50 | .61; UTILITY P|
00000380: 4F B5 45 52 00 A8 07 8C 05 A4 50 20 20 B2 36 33 |O.ER......P .63|
00000390: 3B 20 A4 50 20 4C 49 4E 45 20 4F 46 20 54 45 58 |; .P LINE OF TEX|
000003A0: 54 20 57 49 4E 44 4F 57 00 C5 07 96 05 53 4F 42 |T WINDOW.....SOB|
000003B0: 20 20 B2 34 33 3B 20 53 54 41 52 54 20 4F 46 20 | .43; START OF |
000003C0: 42 41 53 49 43 00 E4 07 A0 05 45 4F 42 20 20 B2 |BASIC.....EOB .|
000003D0: 35 35 3B 20 80 20 4F 46 20 42 41 53 49 43 20 4D |55; . OF BASIC M|
000003E0: 45 4D B0 59 00 FA 07 AA 05 80 20 20 B2 34 35 3B |EM.Y...... .45;|
000003F0: 20 80 20 4F 46 20 54 45 58 54 00 1C 08 B4 05 54 | . OF TEXT.....T|
00000400: 58 54 20 20 B2 32 35 33 3B 20 43 55 52 52 45 4E |XT .253; CURREN|
00000410: 54 20 54 45 58 54 20 B9 49 54 49 91 00 40 08 BE |T TEXT .ITI..@..|
00000420: 05 53 43 52 20 20 B2 32 35 31 3B 20 43 55 52 52 |.SCR .251; CURR|
00000430: 45 4E 54 20 53 43 52 45 45 4E 20 B9 49 54 49 91 |ENT SCREEN .ITI.|
00000440: 00 46 08 C8 05 3B 00 66 08 D2 05 3B 20 AC AC AC |.F...;.f...; ...|
00000450: 20 42 45 47 49 4E 4E 49 4E 47 20 4F 46 20 43 4F | BEGINNING OF CO|
00000460: 44 45 20 AC AC AC 00 72 08 DC 05 AC B2 35 32 30 |DE ....r.....520|
00000470: 30 30 00 8C 08 E6 05 4C 44 41 20 23 31 32 38 3B |00.....LDA #128;|
00000480: 20 4B 45 59 53 20 52 45 50 45 41 54 00 9B 08 F0 | KEYS REPEAT....|
00000490: 05 53 54 41 20 52 50 54 4B 45 59 00 A1 08 FA 05 |.STA RPTKEY.....|
000004A0: 3B 00 C2 08 04 06 4C 44 41 20 23 B3 43 8A 43 48 |;.....LDA #.C.CH|
000004B0: 57 44 47 3B 20 57 45 44 47 45 20 81 20 42 41 53 |WDG; WEDGE . BAS|
000004C0: 49 43 00 D0 08 0E 06 53 54 41 20 49 43 8A 43 48 |IC.....STA IC.CH|
000004D0: 00 E2 08 18 06 4C 44 41 20 23 B1 43 8A 43 48 57 |.....LDA #.C.CHW|
000004E0: 44 47 00 F2 08 22 06 53 54 41 20 49 43 8A 43 48 |DG...".STA IC.CH|
000004F0: AA 31 00 F8 08 2C 06 3B 00 1A 09 36 06 3B 20 45 |.1...,.;...6.; E|
00000500: 4E 54 52 59 20 81 20 45 44 20 43 4F 4D 4D AF 20 |NTRY . ED COMM. |
00000510: 46 52 4F 4D 20 42 41 53 49 43 00 27 09 40 06 53 |FROM BASIC.'.@.S|
00000520: 54 41 52 54 20 B2 AC 00 32 09 4A 06 4C 44 41 20 |TART ...2.J.LDA |
00000530: 23 39 00 4A 09 54 06 53 54 41 20 56 49 43 3B 20 |#9.J.T.STA VIC; |
00000540: 53 43 52 45 45 4E 20 4F 46 46 00 50 09 5E 06 3B |SCREEN OFF.P.^.;|
00000550: 00 68 09 68 06 4C 44 58 20 23 36 3B 20 42 4C 55 |.h.h.LDX #6; BLU|
00000560: 45 20 53 43 52 45 45 4E 00 73 09 72 06 53 54 58 |E SCREEN.s.r.STX|
00000570: 20 42 B0 00 87 09 7C 06 4C 44 41 20 23 31 3B 20 | B....|.LDA #1; |
00000580: 57 48 49 54 45 20 99 00 93 09 86 06 53 54 41 20 |WHITE ......STA |
00000590: 42 4B 47 00 A8 09 90 06 4A 53 52 20 4D 45 53 53 |BKG.....JSR MESS|
000005A0: 41 47 45 3B 20 59 B2 30 00 C8 09 9A 06 2E 42 59 |AGE; Y.0......BY|
000005B0: 54 45 20 35 2C 20 31 34 37 2C 20 31 34 2C 20 38 |TE 5, 147, 14, 8|
000005C0: 2C 20 31 35 38 2C 20 30 00 D4 09 A4 06 53 54 58 |, 158, 0.....STX|
000005D0: 20 42 4B 47 00 DA 09 AE 06 3B 00 F0 09 B8 06 4C | BKG.....;.....L|
000005E0: 44 41 20 23 32 37 3B 20 53 43 52 45 45 4E 20 91 |DA #27; SCREEN .|
000005F0: 00 FC 09 C2 06 53 54 41 20 56 49 43 00 02 0A CC |.....STA VIC....|
00000600: 06 3B 00 12 0A D6 06 A4 50 4F 46 54 45 58 54 20 |.;......POFTEXT |
00000610: B2 AC 00 1D 0A E0 06 4C 44 41 20 23 30 00 3A 0A |.......LDA #0.:.|
00000620: EA 06 4C 44 58 20 23 56 41 52 4E 55 4D AB 31 3B |..LDX #VARNUM.1;|
00000630: 20 49 4E 49 54 20 56 41 52 53 00 40 0A F4 06 3B | INIT VARS.@...;|
00000640: 00 53 0A FE 06 42 31 20 20 53 54 41 20 56 41 52 |.S...B1 STA VAR|
00000650: 53 2C 58 00 5B 0A 08 07 44 45 58 00 66 0A 12 07 |S,X.[...DEX.f...|
00000660: 42 50 4C 20 42 31 00 6C 0A 1C 07 3B 00 7F 0A 26 |BPL B1.l...;...&|
00000670: 07 4A 53 52 20 49 4E 49 54 49 41 4C 49 5A 45 00 |.JSR INITIALIZE.|
00000680: 8E 0A 30 07 4A 53 52 20 57 49 4E 44 4F 57 00 94 |..0.JSR WINDOW..|
00000690: 0A 3A 07 3B 00 AD 0A 44 07 3B 20 4D 41 49 4E 20 |.:.;...D.; MAIN |
000006A0: 4B 45 59 20 53 43 41 4E 20 4C 4F 4F 50 00 C8 0A |KEY SCAN LOOP...|
000006B0: 4E 07 A1 4B 45 59 20 B2 AC 3B 20 41 4C 57 41 59 |N..KEY ..; ALWAY|
000006C0: 53 20 8E 20 48 45 52 45 00 DD 0A 58 07 4C 44 41 |S . HERE...X.LDA|
000006D0: 20 23 B1 A1 4B 45 59 AB 31 3A 50 48 41 00 F2 0A | #..KEY.1:PHA...|
000006E0: 62 07 4C 44 41 20 23 B3 A1 4B 45 59 AB 31 3A 50 |b.LDA #..KEY.1:P|
000006F0: 48 41 00 F8 0A 6C 07 3B 00 08 0B 76 07 4A 53 52 |HA...l.;...v.JSR|
00000700: 20 52 45 56 45 52 53 45 00 2B 0B 80 07 4A 53 52 | REVERSE.+...JSR|
00000710: 20 53 54 41 54 55 53 4C 49 4E 45 3B 20 4C 49 4E | STATUSLINE; LIN|
00000720: 45 2C 20 43 4F 4C 2C 20 4D 45 4D 00 31 0B 8A 07 |E, COL, MEM.1...|
00000730: 3B 00 41 0B 94 07 42 32 20 20 4A 53 52 20 A1 49 |;.A...B2 JSR .I|
00000740: 4E 00 4C 0B 9E 07 42 45 51 20 42 32 00 52 0B A8 |N.L...BEQ B2.R..|
00000750: 07 3B 00 67 0B B2 07 4A 53 52 20 52 45 56 45 52 |.;.g...JSR REVER|
00000760: 53 45 3B 20 59 B2 30 00 6D 0B BC 07 3B 00 84 0B |SE; Y.0.m...;...|
00000770: C6 07 3B 20 43 48 45 43 4B 20 43 4F 4D 4D AF 20 |..; CHECK COMM. |
00000780: 4B 45 59 53 00 99 0B D0 07 42 33 20 20 43 4D 50 |KEYS.....B3 CMP|
00000790: 20 43 4F 4D 4D AF 53 2C 59 00 BB 0B DA 07 42 45 | COMM.S,Y.....BE|
000007A0: 51 20 46 4F 55 4E 44 4B 45 59 3B 20 41 4C 53 4F |Q FOUNDKEY; ALSO|
000007B0: 20 53 45 54 53 20 43 41 52 52 59 00 CB 0B E4 07 | SETS CARRY.....|
000007C0: 49 4E 59 3A 49 4E 59 3A 49 4E 59 00 DD 0B EE 07 |INY:INY:INY.....|
000007D0: 43 50 59 20 23 43 4F 4D 4D AF 4E 55 4D 00 E8 0B |CPY #COMM.NUM...|
000007E0: F8 07 42 43 43 20 42 33 00 02 0C 02 08 42 43 53 |..BCC B3.....BCS|
000007F0: 20 50 55 54 3B 20 41 20 54 59 50 49 4E 47 20 4B | PUT; A TYPING K|
00000800: 45 59 00 08 0C 0C 08 3B 00 28 0C 16 08 46 4F 55 |EY.....;.(...FOU|
00000810: 4E 44 4B 45 59 20 B2 AC 3B 20 4A 55 4D 50 20 A4 |NDKEY ..; JUMP .|
00000820: 20 52 4F 55 54 49 4E 45 00 3F 0C 20 08 4C 44 41 | ROUTINE.?. .LDA|
00000830: 20 43 4F 4D 4D AF 53 AA 32 2C 59 3A 50 48 41 00 | COMM.S.2,Y:PHA.|
00000840: 56 0C 2A 08 4C 44 41 20 43 4F 4D 4D AF 53 AA 31 |V.*.LDA COMM.S.1|
00000850: 2C 59 3A 50 48 41 00 5E 0C 34 08 52 54 53 00 64 |,Y:PHA.^.4.RTS.d|
00000860: 0C 3E 08 3B 00 87 0C 48 08 3B 20 50 55 54 20 43 |.>.;...H.; PUT C|
00000870: 48 41 52 41 43 54 45 52 20 49 4E 20 54 45 58 54 |HARACTER IN TEXT|
00000880: 20 42 55 46 46 45 52 00 92 0C 52 08 50 55 54 20 | BUFFER...R.PUT |
00000890: B2 AC 00 A1 0C 5C 08 54 41 58 3B 20 94 20 4B 45 |.....\.TAX; . KE|
000008A0: 59 00 AD 0C 66 08 43 4D 50 20 23 31 33 00 B8 0C |Y...f.CMP #13...|
000008B0: 70 08 42 45 51 20 46 31 00 BE 0C 7A 08 3B 00 D4 |p.BEQ F1...z.;..|
000008C0: 0C 84 08 3B 20 53 45 45 20 8B 20 4C 49 4E 45 20 |...; SEE . LINE |
000008D0: 46 55 4C 4C 00 E1 0C 8E 08 4C 44 41 20 53 48 8B |FULL.....LDA SH.|
000008E0: 54 00 F6 0C 98 08 43 4D 50 20 23 4C 49 4E 45 53 |T.....CMP #LINES|
000008F0: 49 5A 45 AB 34 30 00 01 0D A2 08 42 4E 45 20 46 |IZE.40.....BNE F|
00000900: 31 00 0D 0D AC 08 4C 44 41 20 43 4F 4C 00 20 0D |1.....LDA COL. .|
00000910: B6 08 43 4D 50 20 23 43 4F 4C 55 4D 4E 53 AB 31 |..CMP #COLUMNS.1|
00000920: 00 2B 0D C0 08 42 45 51 20 52 31 00 31 0D CA 08 |.+...BEQ R1.1...|
00000930: 3B 00 50 0D D4 08 46 31 20 20 4A 53 52 20 54 45 |;.P...F1 JSR TE|
00000940: 53 54 B9 3B 20 41 52 45 20 57 45 20 41 54 20 80 |ST.; ARE WE AT .|
00000950: 00 5B 0D DE 08 42 43 43 20 46 32 00 61 0D E8 08 |.[...BCC F2.a...|
00000960: 3B 00 7F 0D F2 08 4A 53 52 20 50 53 48 80 3B 20 |;.....JSR PSH.; |
00000970: 4D 41 4B 45 20 52 4F 4F 4D 20 8B 20 43 41 4E 00 |MAKE ROOM . CAN.|
00000980: 98 0D FC 08 42 43 53 20 52 31 3B 20 4F 55 54 20 |....BCS R1; OUT |
00000990: 4F 46 20 4D 45 4D B0 59 00 9E 0D 06 09 3B 00 AE |OF MEM.Y.....;..|
000009A0: 0D 10 09 46 32 20 20 43 50 58 20 23 31 33 00 BB |...F2 CPX #13..|
000009B0: 0D 1A 09 42 45 51 20 43 52 45 54 00 C1 0D 24 09 |...BEQ CRET...$.|
000009C0: 3B 00 CC 0D 2E 09 4C 44 59 20 23 30 00 DC 0D 38 |;.....LDY #0...8|
000009D0: 09 4C 44 41 20 28 54 58 54 29 2C 59 00 FB 0D 42 |.LDA (TXT),Y...B|
000009E0: 09 43 4D 50 20 23 31 33 3B 20 80 20 4F 46 20 41 |.CMP #13; . OF A|
000009F0: 20 4C 49 4E 45 20 43 48 45 43 4B 00 06 0E 4C 09 | LINE CHECK...L.|
00000A00: 42 4E 45 20 46 33 00 15 0E 56 09 4A 53 52 20 49 |BNE F3...V.JSR I|
00000A10: 4E 53 45 52 54 00 21 0E 60 09 46 33 20 20 54 58 |NSERT.!.`.F3 TX|
00000A20: 41 00 31 0E 6A 09 53 54 41 20 28 54 58 54 29 2C |A.1.j.STA (TXT),|
00000A30: 59 00 40 0E 74 09 4A 53 52 20 43 4E 56 53 43 52 |Y.@.t.JSR CNVSCR|
00000A40: 00 50 0E 7E 09 53 54 41 20 28 53 43 52 29 2C 59 |.P.~.STA (SCR),Y|
00000A50: 00 56 0E 88 09 3B 00 70 0E 92 09 3B 20 43 55 52 |.V...;.p...; CUR|
00000A60: 53 B0 20 52 49 47 48 54 20 52 4F 55 54 49 4E 45 |S. RIGHT ROUTINE|
00000A70: 00 92 0E 9C 09 52 49 47 48 54 20 B2 AC 3B 20 43 |.....RIGHT ..; C|
00000A80: 55 52 53 B0 20 52 49 47 48 54 20 52 4F 55 54 49 |URS. RIGHT ROUTI|
00000A90: 4E 45 00 A3 0E A6 09 4A 53 52 20 46 49 4E 44 45 |NE.....JSR FINDE|
00000AA0: 4F 4C 4E 00 AB 0E B0 09 54 59 41 00 C1 0E BA 09 |OLN.....TYA.....|
00000AB0: 42 45 51 20 52 31 3B 20 41 4C 87 59 20 41 54 20 |BEQ R1; AL.Y AT |
00000AC0: 80 00 CD 0E C4 09 49 4E 43 20 54 58 54 00 D8 0E |......INC TXT...|
00000AD0: CE 09 42 4E 45 20 46 34 00 E6 0E D8 09 49 4E 43 |..BNE F4.....INC|
00000AE0: 20 54 58 54 AA 31 00 F5 0E E2 09 46 34 20 4C 44 | TXT.1.....F4 LD|
00000AF0: 41 20 43 4F 4C 00 08 0F EC 09 43 4D 50 20 23 43 |A COL.....CMP #C|
00000B00: 4F 4C 55 4D 4E 53 AB 31 00 13 0F F6 09 42 4E 45 |OLUMNS.1.....BNE|
00000B10: 20 46 35 00 19 0F 00 0A 3B 00 26 0F 0A 0A 49 4E | F5.....;.&...IN|
00000B20: 43 20 53 48 8B 54 00 35 0F 14 0A 4A 4D 50 20 57 |C SH.T.5...JMP W|
00000B30: 49 4E 44 4F 57 00 3B 0F 1E 0A 3B 00 4A 0F 28 0A |INDOW.;...;.J.(.|
00000B40: 46 35 20 49 4E 43 20 43 4F 4C 00 56 0F 32 0A 49 |F5 INC COL.V.2.I|
00000B50: 4E 43 20 53 43 52 00 61 0F 3C 0A 42 4E 45 20 52 |NC SCR.a.<.BNE R|
00000B60: 31 00 6F 0F 46 0A 49 4E 43 20 53 43 52 AA 31 00 |1.o.F.INC SCR.1.|
00000B70: 7A 0F 50 0A 52 31 20 52 54 53 00 80 0F 5A 0A 3B |z.P.R1 RTS...Z.;|
00000B80: 00 99 0F 64 0A 3B 20 43 55 52 53 B0 20 4C 45 46 |...d.; CURS. LEF|
00000B90: 54 20 52 4F 55 54 49 4E 45 00 B6 0F 6E 0A 42 34 |T ROUTINE...n.B4|
00000BA0: 20 44 45 43 20 53 48 8B 54 3B 20 53 43 52 4F 4C | DEC SH.T; SCROL|
00000BB0: 4C 20 4C 45 46 54 00 C5 0F 78 0A 4A 4D 50 20 57 |L LEFT...x.JMP W|
00000BC0: 49 4E 44 4F 57 00 CB 0F 82 0A 3B 00 D7 0F 8C 0A |INDOW.....;.....|
00000BD0: 4C 45 46 54 20 B2 AC 00 E3 0F 96 0A 4C 44 41 20 |LEFT .......LDA |
00000BE0: 43 4F 4C 00 FC 0F A0 0A B0 41 20 53 48 8B 54 3B |COL......A SH.T;|
00000BF0: 20 43 48 45 43 4B 20 B9 49 54 49 91 00 14 10 AA | CHECK .ITI.....|
00000C00: 0A 42 45 51 20 52 32 3B 20 43 41 4E 54 20 CB 20 |.BEQ R2; CANT . |
00000C10: 4C 45 46 54 00 23 10 B4 0A 4A 53 52 20 44 45 43 |LEFT.#...JSR DEC|
00000C20: 54 58 54 00 2F 10 BE 0A 4C 44 41 20 43 4F 4C 00 |TXT./...LDA COL.|
00000C30: 3A 10 C8 0A 42 45 51 20 42 34 00 46 10 D2 0A 44 |:...BEQ B4.F...D|
00000C40: 45 43 20 43 4F 4C 00 52 10 DC 0A 44 45 43 20 53 |EC COL.R...DEC S|
00000C50: 43 52 00 5E 10 E6 0A 4C 44 41 20 53 43 52 00 6B |CR.^...LDA SCR.k|
00000C60: 10 F0 0A 43 4D 50 20 23 24 46 46 00 76 10 FA 0A |...CMP #$FF.v...|
00000C70: 42 4E 45 20 46 36 00 84 10 04 0B 44 45 43 20 53 |BNE F6.....DEC S|
00000C80: 43 52 AA 31 00 93 10 0E 0B 46 36 20 53 54 41 20 |CR.1.....F6 STA |
00000C90: 53 43 52 00 9E 10 18 0B 52 32 20 52 54 53 00 A4 |SCR.....R2 RTS..|
00000CA0: 10 22 0B 3B 00 C4 10 2C 0B 3B 20 43 41 52 52 49 |.".;...,.; CARRI|
00000CB0: 41 47 45 20 8E 20 48 AF 4C 49 4E 47 20 52 4F 55 |AGE . H.LING ROU|
00000CC0: 54 49 4E 45 00 E1 10 36 0B 43 52 45 54 20 B2 AC |TINE...6.CRET ..|
00000CD0: 3B 20 48 AF 4C 45 20 43 41 52 52 49 41 47 45 20 |; H.LE CARRIAGE |
00000CE0: 8E 00 F2 10 40 0B 4A 53 52 20 46 49 4E 44 45 4F |....@.JSR FINDEO|
00000CF0: 4C 4E 00 00 11 4A 0B 54 58 41 3B 20 58 B2 31 33 |LN...J.TXA; X.13|
00000D00: 00 10 11 54 0B 53 54 41 20 28 54 58 54 29 2C 59 |...T.STA (TXT),Y|
00000D10: 00 16 11 5E 0B 3B 00 2F 11 68 0B 3B 20 43 55 52 |...^.;./.h.; CUR|
00000D20: 53 B0 20 44 4F 57 4E 20 52 4F 55 54 49 4E 45 00 |S. DOWN ROUTINE.|
00000D30: 3B 11 72 0B 44 4F 57 4E 20 B2 AC 00 4C 11 7C 0B |;.r.DOWN ...L.|.|
00000D40: 4A 53 52 20 46 49 4E 44 45 4F 4C 4E 00 54 11 86 |JSR FINDEOLN.T..|
00000D50: 0B 54 41 59 00 6F 11 90 0B 42 45 51 20 52 32 3B |.TAY.o...BEQ R2;|
00000D60: 20 41 4C 4C 87 59 20 41 54 20 42 4F 54 A4 4D 00 | ALL.Y AT BOT.M.|
00000D70: 90 11 9A 0B 4A 53 52 20 55 4E 53 48 8B 54 3B 20 |....JSR UNSH.T; |
00000D80: 41 4C 4C 20 54 48 45 20 57 41 59 20 4C 45 46 54 |ALL THE WAY LEFT|
00000D90: 00 A1 11 A4 0B 4A 53 52 20 46 49 4E 44 45 4F 4C |.....JSR FINDEOL|
00000DA0: 4E 00 AE 11 AE 0B 4A 53 52 20 41 44 44 59 00 BB |N.....JSR ADDY..|
00000DB0: 11 B8 0B 49 4E 43 20 4C 49 4E 45 00 C6 11 C2 0B |...INC LINE.....|
00000DC0: 42 4E 45 20 46 37 00 D5 11 CC 0B 49 4E 43 20 4C |BNE F7.....INC L|
00000DD0: 49 4E 45 AA 31 00 E4 11 D6 0B 46 37 20 4C 44 41 |INE.1.....F7 LDA|
00000DE0: 20 52 4F 57 00 04 12 E0 0B 43 4D 50 20 23 52 4F | ROW.....CMP #RO|
00000DF0: 57 53 AB 31 3B 20 4C 41 53 54 20 52 4F 57 20 43 |WS.1; LAST ROW C|
00000E00: 48 45 43 4B 00 0F 12 EA 0B 42 4E 45 20 46 38 00 |HECK.....BNE F8.|
00000E10: 2B 12 F4 0B 4A 4D 50 20 A4 50 44 4F 57 4E 3B 20 |+...JMP .PDOWN; |
00000E20: 53 43 52 4F 4C 4C 20 44 4F 57 4E 00 3A 12 FE 0B |SCROLL DOWN.:...|
00000E30: 46 38 20 49 4E 43 20 52 4F 57 00 40 12 08 0C 3B |F8 INC ROW.@...;|
00000E40: 00 4E 12 12 0C 41 44 44 52 4F 57 20 B2 AC 00 5A |.N...ADDROW ...Z|
00000E50: 12 1C 0C 4C 44 41 20 53 43 52 00 62 12 26 0C 43 |...LDA SCR.b.&.C|
00000E60: 4C 43 00 73 12 30 0C 41 44 43 20 23 43 4F 4C 55 |LC.s.0.ADC #COLU|
00000E70: 4D 4E 53 00 7E 12 3A 0C 42 43 43 20 46 39 00 8C |MNS.~.:.BCC F9..|
00000E80: 12 44 0C 49 4E 43 20 53 43 52 AA 31 00 9B 12 4E |.D.INC SCR.1...N|
00000E90: 0C 46 39 20 53 54 41 20 53 43 52 00 A3 12 58 0C |.F9 STA SCR...X.|
00000EA0: 52 54 53 00 A9 12 62 0C 3B 00 C0 12 6C 0C 3B 20 |RTS...b.;...l.; |
00000EB0: 43 55 52 53 B0 20 55 50 20 52 4F 55 54 49 4E 45 |CURS. UP ROUTINE|
00000EC0: 00 CA 12 76 0C 55 50 20 B2 AC 00 E4 12 80 0C 4C |...v.UP .......L|
00000ED0: 44 41 20 4C 49 4E 45 3B 20 43 48 45 43 4B 20 B9 |DA LINE; CHECK .|
00000EE0: 49 54 49 91 00 FF 12 8A 0C B0 41 20 4C 49 4E 45 |ITI.......A LINE|
00000EF0: AA 31 3B 20 43 48 45 43 4B 20 B9 49 54 49 91 00 |.1; CHECK .ITI..|
00000F00: 16 13 94 0C 42 45 51 20 52 33 3B 20 41 54 20 A4 |....BEQ R3; AT .|
00000F10: 50 20 41 4C 87 59 00 23 13 9E 0C 44 45 43 20 4C |P AL.Y.#...DEC L|
00000F20: 49 4E 45 00 30 13 A8 0C 4C 44 41 20 4C 49 4E 45 |INE.0...LDA LINE|
00000F30: 00 3D 13 B2 0C 43 4D 50 20 23 24 46 46 00 49 13 |.=...CMP #$FF.I.|
00000F40: BC 0C 42 4E 45 20 46 31 30 00 58 13 C6 0C 44 45 |..BNE F10.X...DE|
00000F50: 43 20 4C 49 4E 45 AA 31 00 68 13 D0 0C 46 31 30 |C LINE.1.h...F10|
00000F60: 20 4C 44 41 20 54 58 54 00 70 13 DA 0C 53 45 43 | LDA TXT.p...SEC|
00000F70: 00 7D 13 E4 0C 53 42 43 20 53 48 8B 54 00 89 13 |.}...SBC SH.T...|
00000F80: EE 0C 42 43 53 20 46 31 31 00 97 13 F8 0C 44 45 |..BCS F11.....DE|
00000F90: 43 20 54 58 54 AA 31 00 A7 13 02 0D 46 31 31 20 |C TXT.1.....F11 |
00000FA0: 53 54 41 20 54 58 54 00 C7 13 0C 0D 4A 53 52 20 |STA TXT.....JSR |
00000FB0: 55 4E 53 48 8B 54 3B 20 53 43 52 4F 4C 4C 20 46 |UNSH.T; SCROLL F|
00000FC0: 41 52 20 4C 45 46 54 00 D2 13 16 0D 4C 44 59 20 |AR LEFT.....LDY |
00000FD0: 23 31 00 DE 13 20 0D 53 54 59 20 4E 55 4D 00 E6 |#1... .STY NUM..|
00000FE0: 13 2A 0D 44 45 59 00 05 14 34 0D 42 35 20 4A 53 |.*.DEY...4.B5 JS|
00000FF0: 52 20 44 45 43 54 58 54 3B 20 CB 20 42 41 43 4B |R DECTXT; . BACK|
00001000: 20 32 20 43 52 00 15 14 3E 0D 4C 44 41 20 28 54 | 2 CR...>.LDA (T|
00001010: 58 54 29 2C 59 00 21 14 48 0D 42 45 51 20 46 31 |XT),Y.!.H.BEQ F1|
00001020: 32 00 2D 14 52 0D 43 4D 50 20 23 31 33 00 38 14 |2.-.R.CMP #13.8.|
00001030: 5C 0D 42 4E 45 20 42 35 00 44 14 66 0D 44 45 43 |\.BNE B5.D.f.DEC|
00001040: 20 4E 55 4D 00 4F 14 70 0D 42 50 4C 20 42 35 00 | NUM.O.p.BPL B5.|
00001050: 55 14 7A 0D 3B 00 75 14 84 0D 46 31 32 20 49 4E |U.z.;.u...F12 IN|
00001060: 43 20 54 58 54 3B 20 A7 20 81 57 41 52 44 20 31 |C TXT; . .WARD 1|
00001070: 20 43 48 41 52 00 81 14 8E 0D 42 4E 45 20 46 31 | CHAR.....BNE F1|
00001080: 33 00 8F 14 98 0D 49 4E 43 20 54 58 54 AA 31 00 |3.....INC TXT.1.|
00001090: B3 14 A2 0D 46 31 33 20 4C 44 41 20 52 4F 57 3B |....F13 LDA ROW;|
000010A0: 20 A4 50 20 4F 46 20 53 43 52 45 45 4E 20 43 48 | .P OF SCREEN CH|
000010B0: 45 43 4B 00 CB 14 AC 0D 42 45 51 20 A4 50 55 50 |ECK.....BEQ .PUP|
000010C0: 3B 20 53 43 52 4F 4C 4C 20 55 50 00 D1 14 B6 0D |; SCROLL UP.....|
000010D0: 3B 00 EF 14 C0 0D 44 45 43 20 52 4F 57 3B 20 45 |;.....DEC ROW; E|
000010E0: 4C 53 45 20 4D 4F 56 45 20 55 50 20 52 4F 57 00 |LSE MOVE UP ROW.|
000010F0: FB 14 CA 0D 4C 44 41 20 53 43 52 00 03 15 D4 0D |....LDA SCR.....|
00001100: 53 45 43 00 14 15 DE 0D 53 42 43 20 23 43 4F 4C |SEC.....SBC #COL|
00001110: 55 4D 4E 53 00 20 15 E8 0D 42 43 53 20 46 31 34 |UMNS. ...BCS F14|
00001120: 00 2E 15 F2 0D 44 45 43 20 53 43 52 AA 31 00 3E |.....DEC SCR.1.>|
00001130: 15 FC 0D 46 31 34 20 53 54 41 20 53 43 52 00 49 |...F14 STA SCR.I|
00001140: 15 06 0E 52 33 20 52 54 53 00 4F 15 10 0E 3B 00 |...R3 RTS.O...;.|
00001150: 64 15 1A 0E 3B 20 4D 4F 56 45 20 57 49 4E 44 4F |d...; MOVE WINDO|
00001160: 57 20 55 50 00 8A 15 24 0E A4 50 55 50 20 B2 AC |W UP...$..PUP ..|
00001170: 3B 20 4D 4F 56 45 20 54 45 58 54 20 57 49 4E 44 |; MOVE TEXT WIND|
00001180: 4F 57 20 55 50 20 4C 49 4E 45 00 97 15 2E 0E 4C |OW UP LINE.....L|
00001190: 44 59 20 23 24 46 46 00 A4 15 38 0E 44 45 43 20 |DY #$FF...8.DEC |
000011A0: A4 50 AA 31 00 AF 15 42 0E 42 36 20 44 45 59 00 |.P.1...B.B6 DEY.|
000011B0: BE 15 4C 0E 4C 44 41 20 28 A4 50 29 2C 59 00 CA |..L.LDA (.P),Y..|
000011C0: 15 56 0E 42 45 51 20 A2 A4 50 00 D6 15 60 0E 43 |.V.BEQ ..P...`.C|
000011D0: 4D 50 20 23 31 33 00 E1 15 6A 0E 42 4E 45 20 42 |MP #13...j.BNE B|
000011E0: 36 00 E7 15 74 0E 3B 00 04 16 7E 0E A2 A4 50 20 |6...t.;...~...P |
000011F0: B2 AC 3B 20 41 44 44 20 59 20 A4 20 A4 50 20 50 |..; ADD Y . .P P|
00001200: 4F B5 45 52 00 0C 16 88 0E 53 45 43 00 14 16 92 |O.ER.....SEC....|
00001210: 0E 54 59 41 00 1F 16 9C 0E 41 44 43 20 A4 50 00 |.TYA.....ADC .P.|
00001220: 2B 16 A6 0E 42 43 43 20 46 31 35 00 38 16 B0 0E |+...BCC F15.8...|
00001230: 49 4E 43 20 A4 50 AA 31 00 47 16 BA 0E 46 31 35 |INC .P.1.G...F15|
00001240: 20 53 54 41 20 A4 50 00 56 16 C4 0E 4A 4D 50 20 | STA .P.V...JMP |
00001250: 57 49 4E 44 4F 57 00 5C 16 CE 0E 3B 00 73 16 D8 |WINDOW.\...;.s..|
00001260: 0E 3B 20 4D 4F 56 45 20 57 49 4E 44 4F 57 20 44 |.; MOVE WINDOW D|
00001270: 4F 57 4E 00 98 16 E2 0E A4 50 44 4F 57 4E 20 B2 |OWN......PDOWN .|
00001280: AC 3B 20 4D 4F 56 45 20 57 49 4E 44 4F 57 20 44 |.; MOVE WINDOW D|
00001290: 4F 57 4E 20 4C 49 4E 45 00 A5 16 EC 0E 4C 44 59 |OWN LINE.....LDY|
000012A0: 20 23 24 46 46 00 B0 16 F6 0E 42 37 20 49 4E 59 | #$FF.....B7 INY|
000012B0: 00 BF 16 00 0F 4C 44 41 20 28 A4 50 29 2C 59 00 |.....LDA (.P),Y.|
000012C0: CB 16 0A 0F 42 45 51 20 A2 A4 50 00 D7 16 14 0F |....BEQ ..P.....|
000012D0: 43 4D 50 20 23 31 33 00 E2 16 1E 0F 42 4E 45 20 |CMP #13.....BNE |
000012E0: 42 37 00 EE 16 28 0F 42 45 51 20 A2 A4 50 00 F4 |B7...(.BEQ ..P..|
000012F0: 16 32 0F 3B 00 17 17 3C 0F 3B 20 49 4E 49 54 49 |.2.;...<.; INITI|
00001300: 41 4C 49 5A 45 20 81 20 53 54 41 52 54 20 4F 46 |ALIZE . START OF|
00001310: 20 A2 20 4C 49 4E 45 00 25 17 46 0F 55 4E 53 48 | . LINE.%.F.UNSH|
00001320: 8B 54 20 B2 AC 00 31 17 50 0F 4C 44 41 20 53 43 |.T ...1.P.LDA SC|
00001330: 52 00 39 17 5A 0F 53 45 43 00 45 17 64 0F 53 42 |R.9.Z.SEC.E.d.SB|
00001340: 43 20 43 4F 4C 00 51 17 6E 0F 42 43 53 20 46 31 |C COL.Q.n.BCS F1|
00001350: 36 00 5F 17 78 0F 44 45 43 20 53 43 52 AA 31 00 |6._.x.DEC SCR.1.|
00001360: 6F 17 82 0F 46 31 36 20 53 54 41 20 53 43 52 00 |o...F16 STA SCR.|
00001370: 75 17 8C 0F 3B 00 81 17 96 0F 4C 44 41 20 54 58 |u...;.....LDA TX|
00001380: 54 00 89 17 A0 0F 53 45 43 00 95 17 AA 0F 53 42 |T.....SEC.....SB|
00001390: 43 20 43 4F 4C 00 A1 17 B4 0F 42 43 53 20 46 31 |C COL.....BCS F1|
000013A0: 37 00 AF 17 BE 0F 44 45 43 20 54 58 54 AA 31 00 |7.....DEC TXT.1.|
000013B0: BF 17 C8 0F 46 31 37 20 53 54 41 20 54 58 54 00 |....F17 STA TXT.|
000013C0: C5 17 D2 0F 3B 00 D0 17 DC 0F 4C 44 41 20 23 30 |....;.....LDA #0|
000013D0: 00 DC 17 E6 0F 53 54 41 20 43 4F 4C 00 E9 17 F0 |.....STA COL....|
000013E0: 0F 53 54 41 20 53 48 8B 54 00 EF 17 FA 0F 3B 00 |.STA SH.T.....;.|
000013F0: 0F 18 04 10 3B 20 4D 4F 56 45 20 54 45 58 54 20 |....; MOVE TEXT |
00001400: A4 20 53 43 52 45 45 4E 20 57 49 4E 44 4F 57 00 |. SCREEN WINDOW.|
00001410: 1D 18 0E 10 57 49 4E 44 4F 57 20 B2 AC 00 3A 18 |....WINDOW ...:.|
00001420: 18 10 42 49 54 20 44 49 53 46 4C 47 3B 20 49 53 |..BIT DISFLG; IS|
00001430: 20 44 49 53 50 4C 41 59 20 91 00 49 18 22 10 42 | DISPLAY ..I.".B|
00001440: 4D 49 20 52 34 3B 20 4E 4F 00 4F 18 2C 10 3B 00 |MI R4; NO.O.,.;.|
00001450: 79 18 36 10 4C 44 41 20 23 52 4F 57 53 20 3B 20 |y.6.LDA #ROWS ; |
00001460: 53 43 52 45 45 4E 80 AB 53 43 52 45 45 4E 42 45 |SCREEN..SCREENBE|
00001470: 47 AD 43 4F 4C 55 4D 4E 53 00 85 18 40 10 53 54 |G.COLUMNS...@.ST|
00001480: 41 20 43 4E 54 00 8B 18 4A 10 3B 00 A7 18 54 10 |A CNT...J.;...T.|
00001490: 4C 44 41 20 54 58 54 AA 31 3A 50 48 41 3B 20 94 |LDA TXT.1:PHA; .|
000014A0: 20 50 4F B5 45 52 53 00 B7 18 5E 10 4C 44 41 20 | PO.ERS...^.LDA |
000014B0: 54 58 54 3A 50 48 41 00 C9 18 68 10 4C 44 41 20 |TXT:PHA...h.LDA |
000014C0: 53 43 52 AA 31 3A 50 48 41 00 D9 18 72 10 4C 44 |SCR.1:PHA...r.LD|
000014D0: 41 20 53 43 52 3A 50 48 41 00 DF 18 7C 10 3B 00 |A SCR:PHA...|.;.|
000014E0: FF 18 86 10 4C 44 41 20 A4 50 3A 53 54 41 20 54 |....LDA .P:STA T|
000014F0: 58 54 3B 20 49 4E 49 54 20 50 4F B5 45 52 53 00 |XT; INIT PO.ERS.|
00001500: 16 19 90 10 4C 44 41 20 A4 50 AA 31 3A 53 54 41 |....LDA .P.1:STA|
00001510: 20 54 58 54 AA 31 00 26 19 9A 10 4A 53 52 20 49 | TXT.1.&...JSR I|
00001520: 4E 49 54 53 43 52 00 2C 19 A4 10 3B 00 49 19 AE |NITSCR.,...;.I..|
00001530: 10 3B 20 50 52 4F 43 45 53 53 20 82 20 4C 49 4E |.; PROCESS . LIN|
00001540: 45 20 4F 46 20 54 45 58 54 00 56 19 B8 10 A2 4C |E OF TEXT.V....L|
00001550: 49 4E 45 20 B2 AC 00 63 19 C2 10 4C 44 59 20 23 |INE ...c...LDY #|
00001560: 24 46 46 00 78 19 CC 10 42 38 20 20 4A 53 52 20 |$FF.x...B8 JSR |
00001570: 54 45 53 54 45 4F 4C 4E 00 8A 19 D6 10 42 45 51 |TESTEOLN.....BEQ|
00001580: 20 4C 49 4E 45 42 4C 41 4E 4B 00 AA 19 E0 10 43 | LINEBLANK.....C|
00001590: 50 59 20 53 48 8B 54 3B 20 48 AF 4C 45 20 52 49 |PY SH.T; H.LE RI|
000015A0: 47 48 54 20 53 43 52 4F 4C 4C 00 B5 19 EA 10 42 |GHT SCROLL.....B|
000015B0: 43 43 20 42 38 00 BB 19 F4 10 3B 00 C3 19 FE 10 |CC B8.....;.....|
000015C0: 43 4C 43 00 E2 19 08 11 4A 53 52 20 41 44 44 59 |CLC.....JSR ADDY|
000015D0: AA 31 3B 20 55 50 44 41 54 45 20 54 58 54 20 50 |.1; UPDATE TXT P|
000015E0: 54 52 00 E8 19 12 11 3B 00 F5 19 1C 11 4C 44 59 |TR.....;.....LDY|
000015F0: 20 23 24 46 46 00 0A 1A 26 11 42 39 20 20 4A 53 | #$FF...&.B9 JS|
00001600: 52 20 54 45 53 54 45 4F 4C 4E 00 27 1A 30 11 42 |R TESTEOLN.'.0.B|
00001610: 45 51 20 52 45 53 54 42 4C 41 4E 4B 3B 20 80 20 |EQ RESTBLANK; . |
00001620: 4F 46 20 4C 49 4E 45 00 47 1A 3A 11 4A 53 52 20 |OF LINE.G.:.JSR |
00001630: 43 4E 56 53 43 52 3B 20 43 91 56 45 52 54 20 C6 |CNVSCR; C.VERT .|
00001640: 49 49 20 43 4F 44 45 00 65 1A 44 11 53 54 41 20 |II CODE.e.D.STA |
00001650: 28 53 43 52 29 2C 59 3B 20 50 55 54 20 91 20 53 |(SCR),Y; PUT . S|
00001660: 43 52 45 45 4E 00 78 1A 4E 11 43 50 59 20 23 43 |CREEN.x.N.CPY #C|
00001670: 4F 4C 55 4D 4E 53 AB 31 00 83 1A 58 11 42 43 43 |OLUMNS.1...X.BCC|
00001680: 20 42 39 00 89 1A 62 11 3B 00 A9 1A 6C 11 4A 53 | B9...b.;...l.JS|
00001690: 52 20 46 49 4E 44 45 4F 4C 4E AA 32 3B 20 44 91 |R FINDEOLN.2; D.|
000016A0: 54 20 49 4E 49 54 20 2E 59 00 C2 1A 76 11 4A 53 |T INIT .Y...v.JS|
000016B0: 52 20 41 44 44 59 3B 20 50 4F B5 20 82 20 4C 49 |R ADDY; PO. . LI|
000016C0: 4E 45 00 C8 1A 80 11 3B 00 D6 1A 8A 11 41 44 44 |NE.....;.....ADD|
000016D0: 53 43 52 20 B2 AC 00 F3 1A 94 11 4A 53 52 20 41 |SCR .......JSR A|
000016E0: 44 44 52 4F 57 3B 20 A4 20 53 43 52 45 45 4E 20 |DDROW; . SCREEN |
000016F0: 50 54 52 00 FF 1A 9E 11 44 45 43 20 43 4E 54 00 |PTR.....DEC CNT.|
00001700: 0D 1B A8 11 42 4E 45 20 A2 4C 49 4E 45 00 13 1B |....BNE .LINE...|
00001710: B2 11 3B 00 1F 1B BC 11 46 49 4E 49 20 B2 AC 00 |..;.....FINI ...|
00001720: 37 1B C6 11 50 4C 41 3A 53 54 41 20 53 43 52 3B |7...PLA:STA SCR;|
00001730: 20 8C 20 50 54 52 53 00 49 1B D0 11 50 4C 41 3A | . PTRS.I...PLA:|
00001740: 53 54 41 20 53 43 52 AA 31 00 59 1B DA 11 50 4C |STA SCR.1.Y...PL|
00001750: 41 3A 53 54 41 20 54 58 54 00 6B 1B E4 11 50 4C |A:STA TXT.k...PL|
00001760: 41 3A 53 54 41 20 54 58 54 AA 31 00 77 1B EE 11 |A:STA TXT.1.w...|
00001770: 52 34 20 20 52 54 53 00 7D 1B F8 11 3B 00 8E 1B |R4 RTS.}...;...|
00001780: 02 12 4C 49 4E 45 42 4C 41 4E 4B 20 B2 AC 00 9B |..LINEBLANK ....|
00001790: 1B 0C 12 4A 53 52 20 41 44 44 59 00 A6 1B 16 12 |...JSR ADDY.....|
000017A0: 4C 44 59 20 23 30 00 B2 1B 20 12 42 45 51 20 46 |LDY #0... .BEQ F|
000017B0: 31 38 00 C3 1B 2A 12 52 45 53 54 42 4C 41 4E 4B |18...*.RESTBLANK|
000017C0: 20 B2 AC 00 D0 1B 34 12 4A 53 52 20 41 44 44 59 | .....4.JSR ADDY|
000017D0: 00 E1 1B 3E 12 46 31 38 20 4C 44 41 20 23 22 20 |...>.F18 LDA #" |
000017E0: 22 00 F5 1B 48 12 42 31 30 20 53 54 41 20 28 53 |"...H.B10 STA (S|
000017F0: 43 52 29 2C 59 00 FD 1B 52 12 49 4E 59 00 0E 1C |CR),Y...R.INY...|
00001800: 5C 12 43 50 59 20 23 43 4F 4C 55 4D 4E 53 00 1A |\.CPY #COLUMNS..|
00001810: 1C 66 12 42 43 43 20 42 31 30 00 37 1C 70 12 42 |.f.BCC B10.7.p.B|
00001820: 43 53 20 41 44 44 53 43 52 3B 20 53 54 41 52 54 |CS ADDSCR; START|
00001830: 20 82 20 4C 49 4E 45 00 3D 1C 7A 12 3B 00 5B 1C | . LINE.=.z.;.[.|
00001840: 84 12 41 44 44 59 20 B2 AC 3B 20 41 44 44 20 59 |..ADDY ..; ADD Y|
00001850: 20 A4 20 54 45 58 54 20 50 54 52 00 63 1C 8E 12 | . TEXT PTR.c...|
00001860: 53 45 43 00 6B 1C 98 12 54 59 41 00 77 1C A2 12 |SEC.k...TYA.w...|
00001870: 41 44 43 20 54 58 54 00 83 1C AC 12 42 43 43 20 |ADC TXT.....BCC |
00001880: 46 31 39 00 91 1C B6 12 49 4E 43 20 54 58 54 AA |F19.....INC TXT.|
00001890: 31 00 A1 1C C0 12 46 31 39 20 53 54 41 20 54 58 |1.....F19 STA TX|
000018A0: 54 00 A9 1C CA 12 52 54 53 00 AF 1C D4 12 3B 00 |T.....RTS.....;.|
000018B0: CF 1C DE 12 44 45 43 54 58 54 20 B2 AC 3B 20 42 |....DECTXT ..; B|
000018C0: 41 43 4B 20 55 50 20 54 45 58 54 20 50 54 52 00 |ACK UP TEXT PTR.|
000018D0: DB 1C E8 12 44 45 43 20 54 58 54 00 E7 1C F2 12 |....DEC TXT.....|
000018E0: 4C 44 41 20 54 58 54 00 F4 1C FC 12 43 4D 50 20 |LDA TXT.....CMP |
000018F0: 23 24 46 46 00 00 1D 06 13 42 4E 45 20 46 32 30 |#$FF.....BNE F20|
00001900: 00 0E 1D 10 13 44 45 43 20 54 58 54 AA 31 00 1A |.....DEC TXT.1..|
00001910: 1D 1A 13 46 32 30 20 52 54 53 00 20 1D 24 13 3B |...F20 RTS. .$.;|
00001920: 00 3F 1D 2E 13 3B 20 43 91 56 45 52 54 20 C6 49 |.?...; C.VERT .I|
00001930: 49 20 A4 20 53 43 52 45 45 4E 20 43 4F 44 45 00 |I . SCREEN CODE.|
00001940: 4D 1D 38 13 43 4E 56 53 43 52 20 B2 AC 00 59 1D |M.8.CNVSCR ...Y.|
00001950: 42 13 45 B0 20 23 31 32 38 00 65 1D 4C 13 42 50 |B.E. #128.e.L.BP|
00001960: 4C 20 46 32 31 00 71 1D 56 13 45 B0 20 23 31 32 |L F21.q.V.E. #12|
00001970: 38 00 7D 1D 60 13 43 4D 50 20 23 36 34 00 89 1D |8.}.`.CMP #64...|
00001980: 6A 13 42 43 43 20 46 32 31 00 94 1D 74 13 45 B0 |j.BCC F21...t.E.|
00001990: 20 23 36 34 00 A0 1D 7E 13 46 32 31 20 52 54 53 | #64...~.F21 RTS|
000019A0: 00 A6 1D 88 13 3B 00 C9 1D 92 13 52 45 56 45 52 |.....;.....REVER|
000019B0: 53 45 20 B2 AC 3B 20 52 45 56 45 52 53 45 20 43 |SE ..; REVERSE C|
000019C0: 55 52 53 B0 20 43 48 41 52 00 D1 1D 9C 13 50 48 |URS. CHAR.....PH|
000019D0: 41 00 DC 1D A6 13 4C 44 59 20 23 30 00 EC 1D B0 |A.....LDY #0....|
000019E0: 13 4C 44 41 20 28 53 43 52 29 2C 59 00 F8 1D BA |.LDA (SCR),Y....|
000019F0: 13 45 B0 20 23 24 38 30 00 08 1E C4 13 53 54 41 |.E. #$80.....STA|
00001A00: 20 28 53 43 52 29 2C 59 00 10 1E CE 13 50 4C 41 | (SCR),Y.....PLA|
00001A10: 00 18 1E D8 13 52 54 53 00 1E 1E E2 13 3B 00 3F |.....RTS.....;.?|
00001A20: 1E EC 13 54 45 53 54 B9 20 B2 AC 3B 20 54 45 53 |...TEST. ..; TES|
00001A30: 54 20 B9 49 54 49 91 20 49 4E 20 54 45 58 54 00 |T .ITI. IN TEXT.|
00001A40: 4D 1E F6 13 4C 44 41 20 54 58 54 AA 31 00 59 1E |M...LDA TXT.1.Y.|
00001A50: 00 14 43 4D 50 20 80 AA 31 00 65 1E 0A 14 42 43 |..CMP ..1.e...BC|
00001A60: 43 20 46 32 32 00 71 1E 14 14 42 4E 45 20 46 32 |C F22.q...BNE F2|
00001A70: 32 00 7D 1E 1E 14 4C 44 41 20 54 58 54 00 87 1E |2.}...LDA TXT...|
00001A80: 28 14 43 4D 50 20 80 00 93 1E 32 14 46 32 32 20 |(.CMP ....2.F22 |
00001A90: 52 54 53 00 99 1E 3C 14 3B 00 B8 1E 46 14 49 4E |RTS...<.;...F.IN|
00001AA0: 53 45 52 54 20 B2 AC 3B 20 49 4E 53 45 52 54 20 |SERT ..; INSERT |
00001AB0: 91 45 20 53 50 41 43 45 00 C8 1E 50 14 4C 44 41 |.E SPACE...P.LDA|
00001AC0: 20 80 AA 31 3A 50 48 41 00 D6 1E 5A 14 4C 44 41 | ..1:PHA...Z.LDA|
00001AD0: 20 80 3A 50 48 41 00 E1 1E 64 14 4C 44 59 20 23 | .:PHA...d.LDY #|
00001AE0: 30 00 F3 1E 6E 14 42 31 31 20 4C 44 41 20 28 80 |0...n.B11 LDA (.|
00001AF0: 29 2C 59 00 FB 1E 78 14 49 4E 59 00 09 1F 82 14 |),Y...x.INY.....|
00001B00: 53 54 41 20 28 80 29 2C 59 00 11 1F 8C 14 44 45 |STA (.),Y.....DE|
00001B10: 59 00 1B 1F 96 14 44 45 43 20 80 00 25 1F A0 14 |Y.....DEC ..%...|
00001B20: 4C 44 41 20 80 00 32 1F AA 14 43 4D 50 20 23 24 |LDA ..2...CMP #$|
00001B30: 46 46 00 3E 1F B4 14 42 4E 45 20 46 32 33 00 4A |FF.>...BNE F23.J|
00001B40: 1F BE 14 44 45 43 20 80 AA 31 00 5C 1F C8 14 46 |...DEC ..1.\...F|
00001B50: 32 33 20 4A 53 52 20 54 45 53 54 B9 00 68 1F D2 |23 JSR TEST..h..|
00001B60: 14 42 43 43 20 42 31 31 00 74 1F DC 14 42 45 51 |.BCC B11.t...BEQ|
00001B70: 20 42 31 31 00 82 1F E6 14 50 4C 41 3A 53 54 41 | B11.....PLA:STA|
00001B80: 20 80 00 92 1F F0 14 50 4C 41 3A 53 54 41 20 80 | ......PLA:STA .|
00001B90: AA 31 00 98 1F FA 14 3B 00 B3 1F 04 15 50 53 48 |.1.....;.....PSH|
00001BA0: 80 20 B2 AC 3B 20 42 55 4D 50 20 80 20 50 54 52 |. ..; BUMP . PTR|
00001BB0: 20 55 50 00 BF 1F 0E 15 4C 44 41 20 80 AA 31 00 | UP.....LDA ..1.|
00001BC0: CD 1F 18 15 43 4D 50 20 45 4F 42 AA 31 00 D9 1F |....CMP EOB.1...|
00001BD0: 22 15 42 43 43 20 46 32 34 00 E3 1F 2C 15 4C 44 |".BCC F24...,.LD|
00001BE0: 41 20 80 00 EF 1F 36 15 43 4D 50 20 45 4F 42 00 |A ....6.CMP EOB.|
00001BF0: FA 1F 40 15 42 43 53 20 52 35 00 08 20 4A 15 46 |..@.BCS R5.. J.F|
00001C00: 32 34 20 49 4E 43 20 80 00 13 20 54 15 42 4E 45 |24 INC ... T.BNE|
00001C10: 20 52 35 00 1F 20 5E 15 49 4E 43 20 80 AA 31 00 | R5.. ^.INC ..1.|
00001C20: 2B 20 68 15 52 35 20 20 52 54 53 00 31 20 72 15 |+ h.R5 RTS.1 r.|
00001C30: 3B 00 40 20 7C 15 44 45 88 45 43 48 52 20 B2 AC |;.@ |.DE.ECHR ..|
00001C40: 00 4B 20 86 15 4C 44 41 20 23 31 00 57 20 90 15 |.K ..LDA #1.W ..|
00001C50: 53 54 41 20 4E 55 4D 00 67 20 9A 15 4A 53 52 20 |STA NUM.g ..JSR |
00001C60: 4C 45 46 54 3B 20 D2 00 8B 20 A4 15 44 45 88 45 |LEFT; ... ..DE.E|
00001C70: 20 B2 AC 3B 20 4E 55 4D 42 45 52 20 4F 46 20 43 | ..; NUMBER OF C|
00001C80: 48 41 52 53 20 49 4E 20 4E 55 4D 00 9D 20 AE 15 |HARS IN NUM.. ..|
00001C90: 4C 44 41 20 54 58 54 AA 31 3A 50 48 41 00 AD 20 |LDA TXT.1:PHA.. |
00001CA0: B8 15 4C 44 41 20 54 58 54 3A 50 48 41 00 BD 20 |..LDA TXT:PHA.. |
00001CB0: C2 15 42 31 32 20 4C 44 59 20 4E 55 4D 00 CD 20 |..B12 LDY NUM.. |
00001CC0: CC 15 4C 44 41 20 28 54 58 54 29 2C 59 00 D8 20 |..LDA (TXT),Y.. |
00001CD0: D6 15 4C 44 59 20 23 30 00 E8 20 E0 15 53 54 41 |..LDY #0.. ..STA|
00001CE0: 20 28 54 58 54 29 2C 59 00 F4 20 EA 15 49 4E 43 | (TXT),Y.. ..INC|
00001CF0: 20 54 58 54 00 00 21 F4 15 42 4E 45 20 46 32 35 | TXT..!..BNE F25|
00001D00: 00 0E 21 FE 15 49 4E 43 20 54 58 54 AA 31 00 20 |..!..INC TXT.1. |
00001D10: 21 08 16 46 32 35 20 4A 53 52 20 54 45 53 54 B9 |!..F25 JSR TEST.|
00001D20: 00 2C 21 12 16 42 43 43 20 42 31 32 00 38 21 1C |.,!..BCC B12.8!.|
00001D30: 16 42 45 51 20 42 31 32 00 48 21 26 16 50 4C 41 |.BEQ B12.H!&.PLA|
00001D40: 3A 53 54 41 20 54 58 54 00 5A 21 30 16 50 4C 41 |:STA TXT.Z!0.PLA|
00001D50: 3A 53 54 41 20 54 58 54 AA 31 00 68 21 3A 16 4A |:STA TXT.1.h!:.J|
00001D60: 53 52 20 54 45 53 54 B9 00 74 21 44 16 42 43 53 |SR TEST..t!D.BCS|
00001D70: 20 46 32 36 00 7E 21 4E 16 4C 44 41 20 80 00 86 | F26.~!N.LDA ...|
00001D80: 21 58 16 53 45 43 00 92 21 62 16 53 42 43 20 4E |!X.SEC..!b.SBC N|
00001D90: 55 4D 00 9C 21 6C 16 53 54 41 20 80 00 A8 21 76 |UM..!l.STA ...!v|
00001DA0: 16 42 43 53 20 46 32 36 00 B4 21 80 16 44 45 43 |.BCS F26..!..DEC|
00001DB0: 20 80 AA 31 00 C7 21 8A 16 46 32 36 20 4A 4D 50 | ..1..!..F26 JMP|
00001DC0: 20 57 49 4E 44 4F 57 00 CD 21 94 16 3B 00 EB 21 | WINDOW..!..;..!|
00001DD0: 9E 16 49 4E 53 45 52 54 4C 4E 20 B2 AC 3B 20 49 |..INSERTLN ..; I|
00001DE0: 4E 53 45 52 54 20 C7 28 31 33 29 00 FA 21 A8 16 |NSERT .(13)..!..|
00001DF0: 4A 53 52 20 49 4E 53 45 52 54 00 06 22 B2 16 4C |JSR INSERT.."..L|
00001E00: 44 41 20 23 31 33 00 12 22 BC 16 42 4E 45 20 46 |DA #13.."..BNE F|
00001E10: 32 37 00 18 22 C6 16 3B 00 36 22 D0 16 49 4E 53 |27.."..;.6"..INS|
00001E20: 52 54 53 50 43 20 B2 AC 3B 20 49 4E 53 45 52 54 |RTSPC ..; INSERT|
00001E30: 20 42 4C 41 4E 4B 00 45 22 DA 16 4A 53 52 20 49 | BLANK.E"..JSR I|
00001E40: 4E 53 45 52 54 00 52 22 E4 16 4C 44 41 20 23 22 |NSERT.R"..LDA #"|
00001E50: 20 22 00 66 22 EE 16 46 32 37 20 53 54 41 20 28 | ".f"..F27 STA (|
00001E60: 54 58 54 29 2C 59 00 75 22 F8 16 4A 4D 50 20 57 |TXT),Y.u"..JMP W|
00001E70: 49 4E 44 4F 57 00 7B 22 02 17 3B 00 94 22 0C 17 |INDOW.{"..;.."..|
00001E80: 44 45 88 45 4C 4E 20 B2 AC 3B 20 44 45 88 45 20 |DE.ELN ..; DE.E |
00001E90: 4C 49 4E 45 00 AF 22 16 17 52 B0 20 44 49 53 46 |LINE.."..R. DISF|
00001EA0: 4C 47 3B 20 44 49 53 50 4C 41 59 20 4F 46 46 00 |LG; DISPLAY OFF.|
00001EB0: C0 22 20 17 4A 53 52 20 46 49 4E 44 45 4F 4C 4E |." .JSR FINDEOLN|
00001EC0: 00 C8 22 2A 17 54 59 41 00 D4 22 34 17 42 4E 45 |.."*.TYA.."4.BNE|
00001ED0: 20 46 32 38 00 DC 22 3E 17 49 4E 59 00 EC 22 48 | F28..">.INY.."H|
00001EE0: 17 46 32 38 20 53 54 59 20 4E 55 4D 00 F9 22 52 |.F28 STY NUM.."R|
00001EF0: 17 4A 53 52 20 44 45 88 45 00 0B 23 5C 17 4A 4D |.JSR DE.E..#\.JM|
00001F00: 50 20 53 45 54 57 49 4E 44 4F 57 00 11 23 66 17 |P SETWINDOW..#f.|
00001F10: 3B 00 32 23 70 17 50 41 47 45 44 4F 57 4E 20 B2 |;.2#p.PAGEDOWN .|
00001F20: AC 3B 20 4C 91 47 20 53 43 52 4F 4C 4C 20 44 4F |.; L.G SCROLL DO|
00001F30: 57 4E 00 4C 23 7A 17 52 B0 20 44 49 53 46 4C 47 |WN.L#z.R. DISFLG|
00001F40: 3B 20 4E 4F 20 44 49 53 50 4C 41 59 00 66 23 84 |; NO DISPLAY.f#.|
00001F50: 17 4C 44 58 20 23 52 4F 57 53 AB 31 3B 20 32 33 |.LDX #ROWS.1; 23|
00001F60: 20 4C 49 4E 45 53 00 77 23 8E 17 42 31 33 20 4A | LINES.w#..B13 J|
00001F70: 53 52 20 44 4F 57 4E 00 7F 23 98 17 44 45 58 00 |SR DOWN..#..DEX.|
00001F80: 8B 23 A2 17 42 4E 45 20 42 31 33 00 9D 23 AC 17 |.#..BNE B13..#..|
00001F90: 42 45 51 20 53 45 54 57 49 4E 44 4F 57 00 A3 23 |BEQ SETWINDOW..#|
00001FA0: B6 17 3B 00 C0 23 C0 17 50 41 47 45 55 50 20 B2 |..;..#..PAGEUP .|
00001FB0: AC 3B 20 4C 91 47 20 53 43 52 4F 4C 4C 20 55 50 |.; L.G SCROLL UP|
00001FC0: 00 DA 23 CA 17 52 B0 20 44 49 53 46 4C 47 3B 20 |..#..R. DISFLG; |
00001FD0: 4E 4F 20 44 49 53 50 4C 41 59 00 F4 23 D4 17 4C |NO DISPLAY..#..L|
00001FE0: 44 58 20 23 52 4F 57 53 AB 31 3B 20 32 34 20 4C |DX #ROWS.1; 24 L|
00001FF0: 49 4E 45 53 00 03 24 DE 17 42 31 34 20 4A 53 52 |INES..$..B14 JSR|
00002000: 20 55 50 00 0B 24 E8 17 44 45 58 00 17 24 F2 17 | UP..$..DEX..$..|
00002010: 42 4E 45 20 42 31 34 00 29 24 FC 17 42 45 51 20 |BNE B14.)$..BEQ |
00002020: 53 45 54 57 49 4E 44 4F 57 00 2F 24 06 18 3B 00 |SETWINDOW./$..;.|
00002030: 3F 24 10 18 50 41 47 45 4C 45 46 54 20 B2 AC 00 |?$..PAGELEFT ...|
00002040: 4D 24 1A 18 52 B0 20 44 49 53 46 4C 47 00 60 24 |M$..R. DISFLG.`$|
00002050: 24 18 4C 44 58 20 23 43 4F 4C 55 4D 4E 53 AB 31 |$.LDX #COLUMNS.1|
00002060: 00 71 24 2E 18 42 31 35 20 4A 53 52 20 4C 45 46 |.q$..B15 JSR LEF|
00002070: 54 00 79 24 38 18 44 45 58 00 85 24 42 18 42 4E |T.y$8.DEX..$B.BN|
00002080: 45 20 42 31 35 00 97 24 4C 18 42 45 51 20 53 45 |E B15..$L.BEQ SE|
00002090: 54 57 49 4E 44 4F 57 00 9D 24 56 18 3B 00 BF 24 |TWINDOW..$V.;..$|
000020A0: 60 18 3B 20 53 43 52 4F 4C 4C 20 53 49 44 45 57 |`.; SCROLL SIDEW|
000020B0: 41 59 53 20 A4 20 80 20 4F 46 20 4C 49 4E 45 00 |AYS . . OF LINE.|
000020C0: D0 24 6A 18 50 41 47 45 52 49 47 48 54 20 B2 AC |.$j.PAGERIGHT ..|
000020D0: 00 EA 24 74 18 52 B0 20 44 49 53 46 4C 47 3B 20 |..$t.R. DISFLG; |
000020E0: 4E 4F 20 44 49 53 50 4C 41 59 00 FD 24 7E 18 4C |NO DISPLAY..$~.L|
000020F0: 44 58 20 23 43 4F 4C 55 4D 4E 53 AB 31 00 0F 25 |DX #COLUMNS.1..%|
00002100: 88 18 42 31 36 20 4A 53 52 20 52 49 47 48 54 00 |..B16 JSR RIGHT.|
00002110: 17 25 92 18 44 45 58 00 23 25 9C 18 42 4E 45 20 |.%..DEX.#%..BNE |
00002120: 42 31 36 00 34 25 A6 18 53 45 54 57 49 4E 44 4F |B16.4%..SETWINDO|
00002130: 57 20 B2 AC 00 43 25 B0 18 4C 53 52 20 44 49 53 |W ...C%..LSR DIS|
00002140: 46 4C 47 00 5B 25 BA 18 4A 4D 50 20 57 49 4E 44 |FLG.[%..JMP WIND|
00002150: 4F 57 3B 20 44 49 53 50 4C 41 59 00 61 25 C4 18 |OW; DISPLAY.a%..|
00002160: 3B 00 7F 25 CE 18 3B 20 53 45 54 20 59 B2 44 49 |;..%..; SET Y.DI|
00002170: 53 C0 43 45 20 A4 20 54 45 58 54 20 45 4F 4C 00 |S.CE . TEXT EOL.|
00002180: 8F 25 D8 18 46 49 4E 44 45 4F 4C 4E 20 B2 AC 00 |.%..FINDEOLN ...|
00002190: 9C 25 E2 18 4C 44 59 20 23 24 46 46 00 B1 25 EC |.%..LDY #$FF..%.|
000021A0: 18 42 31 37 20 4A 53 52 20 54 45 53 54 45 4F 4C |.B17 JSR TESTEOL|
000021B0: 4E 00 BD 25 F6 18 42 4E 45 20 42 31 37 00 C5 25 |N..%..BNE B17..%|
000021C0: 00 19 52 54 53 00 CB 25 0A 19 3B 00 DB 25 14 19 |..RTS..%..;..%..|
000021D0: 54 45 53 54 45 4F 4C 4E 20 B2 AC 00 E3 25 1E 19 |TESTEOLN ....%..|
000021E0: 49 4E 59 00 F0 25 28 19 43 50 59 20 23 24 46 46 |INY..%(.CPY #$FF|
000021F0: 00 FC 25 32 19 42 45 51 20 46 32 39 00 0C 26 3C |..%2.BEQ F29..&<|
00002200: 19 4C 44 41 20 28 54 58 54 29 2C 59 00 18 26 46 |.LDA (TXT),Y..&F|
00002210: 19 42 45 51 20 46 32 39 00 24 26 50 19 43 4D 50 |.BEQ F29.$&P.CMP|
00002220: 20 23 31 33 00 30 26 5A 19 46 32 39 20 52 54 53 | #13.0&Z.F29 RTS|
00002230: 00 36 26 64 19 3B 00 48 26 6E 19 49 4E 49 54 49 |.6&d.;.H&n.INITI|
00002240: 41 4C 49 5A 45 20 B2 AC 00 54 26 78 19 4C 44 41 |ALIZE ...T&x.LDA|
00002250: 20 53 4F 42 00 62 26 82 19 4C 44 58 20 53 4F 42 | SOB.b&..LDX SOB|
00002260: AA 31 00 6A 26 8C 19 43 4C 43 00 75 26 96 19 41 |.1.j&..CLC.u&..A|
00002270: 44 43 20 23 32 00 81 26 A0 19 42 43 43 20 46 33 |DC #2..&..BCC F3|
00002280: 30 00 89 26 AA 19 49 4E 58 00 99 26 B4 19 46 33 |0..&..INX..&..F3|
00002290: 30 20 53 54 41 20 54 58 54 00 A4 26 BE 19 53 54 |0 STA TXT..&..ST|
000022A0: 41 20 A4 50 00 B2 26 C8 19 53 54 58 20 54 58 54 |A .P..&..STX TXT|
000022B0: AA 31 00 BF 26 D2 19 53 54 58 20 A4 50 AA 31 00 |.1..&..STX .P.1.|
000022C0: D1 26 DC 19 4C 44 41 20 80 3A 53 54 41 20 50 54 |.&..LDA .:STA PT|
000022D0: 52 00 E7 26 E6 19 4C 44 41 20 80 AA 31 3A 53 54 |R..&..LDA ..1:ST|
000022E0: 41 20 50 54 52 AA 31 00 FE 26 F0 19 4C 44 59 20 |A PTR.1..&..LDY |
000022F0: 23 30 3B 20 46 49 4C 4C 20 5A 45 52 4F 53 00 06 |#0; FILL ZEROS..|
00002300: 27 FA 19 54 59 41 00 1A 27 04 1A 42 31 38 20 53 |'..TYA..'..B18 S|
00002310: 54 41 20 28 50 54 52 29 2C 59 00 26 27 0E 1A 49 |TA (PTR),Y.&'..I|
00002320: 4E 43 20 50 54 52 00 32 27 18 1A 42 4E 45 20 46 |NC PTR.2'..BNE F|
00002330: 33 31 00 40 27 22 1A 49 4E 43 20 50 54 52 AA 31 |31.@'".INC PTR.1|
00002340: 00 52 27 2C 1A 46 33 31 20 4C 44 58 20 50 54 52 |.R',.F31 LDX PTR|
00002350: AA 31 00 60 27 36 1A 43 50 58 20 45 4F 42 AA 31 |.1.`'6.CPX EOB.1|
00002360: 00 6C 27 40 1A 42 43 43 20 42 31 38 00 78 27 4A |.l'@.BCC B18.x'J|
00002370: 1A 4C 44 58 20 50 54 52 00 84 27 54 1A 43 50 58 |.LDX PTR..'T.CPX|
00002380: 20 45 4F 42 00 90 27 5E 1A 42 43 43 20 42 31 38 | EOB..'^.BCC B18|
00002390: 00 9F 27 68 1A 49 4E 49 54 53 43 52 20 B2 AC 00 |..'h.INITSCR ...|
000023A0: BB 27 72 1A 4C 44 41 20 23 B3 53 43 52 45 45 4E |.'r.LDA #.SCREEN|
000023B0: 42 45 47 3A 53 54 41 20 53 43 52 00 D9 27 7C 1A |BEG:STA SCR..'|.|
000023C0: 4C 44 41 20 23 B1 53 43 52 45 45 4E 42 45 47 3A |LDA #.SCREENBEG:|
000023D0: 53 54 41 20 53 43 52 AA 31 00 E1 27 86 1A 52 54 |STA SCR.1..'..RT|
000023E0: 53 00 E7 27 90 1A 3B 00 F9 27 9A 1A 53 54 41 54 |S..'..;..'..STAT|
000023F0: 55 53 4C 49 4E 45 20 B2 AC 00 09 28 A4 1A 4A 53 |USLINE ....(..JS|
00002400: 52 20 4D 45 53 53 41 47 45 00 1F 28 AE 1A 2E 42 |R MESSAGE..(...B|
00002410: 59 54 45 20 31 39 20 3B 20 28 48 4F 4D 45 29 00 |YTE 19 ; (HOME).|
00002420: 38 28 B8 1A 2E C6 20 22 C3 CF CC D5 CD CE 3A 22 |8(.... "......:"|
00002430: 3A 2E 42 59 54 45 20 30 00 45 28 C2 1A 4C 44 41 |:.BYTE 0.E(..LDA|
00002440: 20 53 48 8B 54 00 4D 28 CC 1A 53 45 43 00 59 28 | SH.T.M(..SEC.Y(|
00002450: D6 1A 41 44 43 20 43 4F 4C 00 61 28 E0 1A 54 41 |..ADC COL.a(..TA|
00002460: 58 00 6D 28 EA 1A 54 59 41 3B 20 B2 30 00 7E 28 |X.m(..TYA; .0.~(|
00002470: F4 1A 4A 53 52 20 43 4E 56 52 54 44 45 43 00 8E |..JSR CNVRTDEC..|
00002480: 28 FE 1A 4A 53 52 20 4D 45 53 53 41 47 45 00 A6 |(..JSR MESSAGE..|
00002490: 28 08 1B 2E C6 20 22 20 CC C9 CE C5 3A 22 3A 2E |(.... " ....:":.|
000024A0: 42 59 54 45 20 30 00 B5 28 12 1B 4C 44 59 20 4C |BYTE 0..(..LDY L|
000024B0: 49 4E 45 AA 31 00 C2 28 1C 1B 4C 44 58 20 4C 49 |INE.1..(..LDX LI|
000024C0: 4E 45 00 CA 28 26 1B 49 4E 58 00 D6 28 30 1B 42 |NE..(&.INX..(0.B|
000024D0: 4E 45 20 46 33 32 00 DE 28 3A 1B 49 4E 59 00 EA |NE F32..(:.INY..|
000024E0: 28 44 1B 46 33 32 20 54 59 41 00 FB 28 4E 1B 4A |(D.F32 TYA..(N.J|
000024F0: 53 52 20 43 4E 56 52 54 44 45 43 00 0B 29 58 1B |SR CNVRTDEC..)X.|
00002500: 4A 53 52 20 4D 45 53 53 41 47 45 00 23 29 62 1B |JSR MESSAGE.#)b.|
00002510: 2E C6 20 22 20 C6 D2 C5 C5 3A 22 3A 2E 42 59 54 |.. " ....:":.BYT|
00002520: 45 20 30 00 31 29 6C 1B 4C 44 41 20 45 4F 42 AA |E 0.1)l.LDA EOB.|
00002530: 31 00 39 29 76 1B 53 45 43 00 45 29 80 1B 53 42 |1.9)v.SEC.E)..SB|
00002540: 43 20 80 AA 31 00 4D 29 8A 1B 54 41 59 00 59 29 |C ..1.M)..TAY.Y)|
00002550: 94 1B 4C 44 41 20 45 4F 42 00 63 29 9E 1B 53 42 |..LDA EOB.c)..SB|
00002560: 43 20 80 00 6B 29 A8 1B 54 41 58 00 73 29 B2 1B |C ..k)..TAX.s)..|
00002570: 54 59 41 00 84 29 BC 1B 4A 53 52 20 43 4E 56 52 |TYA..)..JSR CNVR|
00002580: 54 44 45 43 00 94 29 C6 1B 4A 53 52 20 4D 45 53 |TDEC..)..JSR MES|
00002590: 53 41 47 45 00 B6 29 D0 1B 2E C6 20 22 20 20 20 |SAGE..).... " |
000025A0: 22 3A 2E 42 59 54 45 20 30 20 3B 20 33 20 28 53 |":.BYTE 0 ; 3 (S|
000025B0: 50 41 43 45 53 29 00 BE 29 DA 1B 52 54 53 00 C4 |PACES)..)..RTS..|
000025C0: 29 E4 1B 3B 00 DF 29 EE 1B 3B 20 99 20 49 4E 20 |)..;..)..; . IN |
000025D0: 53 4F 55 52 43 45 20 4D 45 53 53 41 47 45 53 00 |SOURCE MESSAGES.|
000025E0: EE 29 F8 1B 4D 45 53 53 41 47 45 20 B2 AC 00 F9 |.)..MESSAGE ....|
000025F0: 29 02 1C 4C 44 59 20 23 30 00 01 2A 0C 1C 50 4C |)..LDY #0..*..PL|
00002600: 41 00 0D 2A 16 1C 53 54 41 20 50 54 52 00 15 2A |A..*..STA PTR..*|
00002610: 20 1C 50 4C 41 00 23 2A 2A 1C 53 54 41 20 50 54 | .PLA.#**.STA PT|
00002620: 52 AA 31 00 33 2A 34 1C 42 31 39 20 49 4E 43 20 |R.1.3*4.B19 INC |
00002630: 50 54 52 00 3F 2A 3E 1C 42 4E 45 20 46 33 33 00 |PTR.?*>.BNE F33.|
00002640: 4D 2A 48 1C 49 4E 43 20 50 54 52 AA 31 00 61 2A |M*H.INC PTR.1.a*|
00002650: 52 1C 46 33 33 20 4C 44 41 20 28 50 54 52 29 2C |R.F33 LDA (PTR),|
00002660: 59 00 6D 2A 5C 1C 42 45 51 20 46 33 34 00 77 2A |Y.m*\.BEQ F34.w*|
00002670: 66 1C 4A 53 52 20 99 00 83 2A 70 1C 42 4E 45 20 |f.JSR ...*p.BNE |
00002680: 42 31 39 00 95 2A 7A 1C 46 33 34 20 4C 44 41 20 |B19..*z.F34 LDA |
00002690: 50 54 52 AA 31 00 9D 2A 84 1C 50 48 41 00 A9 2A |PTR.1..*..PHA..*|
000026A0: 8E 1C 4C 44 41 20 50 54 52 00 B1 2A 98 1C 50 48 |..LDA PTR..*..PH|
000026B0: 41 00 B9 2A A2 1C 52 54 53 00 BF 2A AC 1C 3B 00 |A..*..RTS..*..;.|
000026C0: DF 2A B6 1C 3B 20 57 45 44 47 45 20 81 20 45 44 |.*..; WEDGE . ED|
000026D0: 20 43 4F 4D 4D AF 20 49 4E 20 42 41 53 49 43 00 | COMM. IN BASIC.|
000026E0: 00 2B C0 1C 43 8A 43 48 57 44 47 20 B2 AC 3B 20 |.+..C.CHWDG ..; |
000026F0: 57 45 44 47 45 20 81 20 45 44 20 43 4F 4D 4D AF |WEDGE . ED COMM.|
00002700: 00 0A 2B CA 1C 4C 44 41 20 85 00 17 2B D4 1C 43 |..+..LDA ...+..C|
00002710: 4D 50 20 23 22 45 22 00 23 2B DE 1C 42 4E 45 20 |MP #"E".#+..BNE |
00002720: 46 33 35 00 2F 2B E8 1C 4C 44 41 20 85 AA 31 00 |F35./+..LDA ..1.|
00002730: 3C 2B F2 1C 43 4D 50 20 23 22 44 22 00 48 2B FC |<+..CMP #"D".H+.|
00002740: 1C 42 4E 45 20 46 33 35 00 63 2B 06 1D 4A 4D 50 |.BNE F35.c+..JMP|
00002750: 20 53 54 41 52 54 3B 20 43 41 4C 4C 20 4D 52 2E | START; CALL MR.|
00002760: 20 45 44 00 85 2B 10 1D 46 33 35 20 4A 4D 50 20 | ED..+..F35 JMP |
00002770: 43 8A 43 48 53 52 56 3B 20 50 41 53 53 20 A4 20 |C.CHSRV; PASS . |
00002780: 42 41 53 49 43 00 8B 2B 1A 1D 3B 00 9F 2B 24 1D |BASIC..+..;..+$.|
00002790: 3B 20 43 4F 4D 4D AF 20 45 4E 54 52 49 45 53 00 |; COMM. ENTRIES.|
000027A0: AD 2B 2E 1D 43 4F 4D 4D AF 53 20 B2 AC 00 D1 2B |.+..COMM.S ....+|
000027B0: 38 1D 2E 42 59 54 45 20 31 34 38 3A 2E 57 B0 44 |8..BYTE 148:.W.D|
000027C0: 20 49 4E 53 52 54 53 50 43 AB 31 3B 20 49 4E 53 | INSRTSPC.1; INS|
000027D0: 54 00 F2 2B 42 1D 2E 42 59 54 45 20 32 30 3A 2E |T..+B..BYTE 20:.|
000027E0: 57 B0 44 20 44 45 88 45 43 48 52 AB 31 3B 20 44 |W.D DE.ECHR.1; D|
000027F0: 45 4C 00 12 2C 4C 1D 2E 42 59 54 45 20 31 33 33 |EL..,L..BYTE 133|
00002800: 3A 2E 57 B0 44 20 44 45 88 45 4C 4E AB 31 3B 20 |:.W.D DE.ELN.1; |
00002810: 46 31 00 34 2C 56 1D 2E 42 59 54 45 20 31 33 37 |F1.4,V..BYTE 137|
00002820: 3A 2E 57 B0 44 20 49 4E 53 45 52 54 4C 4E AB 31 |:.W.D INSERTLN.1|
00002830: 3B 20 46 32 00 56 2C 60 1D 2E 42 59 54 45 20 31 |; F2.V,`..BYTE 1|
00002840: 33 34 3A 2E 57 B0 44 20 50 41 47 45 44 4F 57 4E |34:.W.D PAGEDOWN|
00002850: AB 31 3B 20 46 33 00 76 2C 6A 1D 2E 42 59 54 45 |.1; F3.v,j..BYTE|
00002860: 20 31 33 38 3A 2E 57 B0 44 20 50 41 47 45 55 50 | 138:.W.D PAGEUP|
00002870: AB 31 3B 20 46 34 00 99 2C 74 1D 2E 42 59 54 45 |.1; F4..,t..BYTE|
00002880: 20 31 33 35 3A 2E 57 B0 44 20 50 41 47 45 52 49 | 135:.W.D PAGERI|
00002890: 47 48 54 AB 31 3B 20 46 35 00 BB 2C 7E 1D 2E 42 |GHT.1; F5..,~..B|
000028A0: 59 54 45 20 31 33 39 3A 2E 57 B0 44 20 50 41 47 |YTE 139:.W.D PAG|
000028B0: 45 4C 45 46 54 AB 31 3B 20 46 36 00 D6 2C 88 1D |ELEFT.1; F6..,..|
000028C0: 2E 42 59 54 45 20 33 3A 2E 57 B0 44 20 87 59 AB |.BYTE 3:.W.D .Y.|
000028D0: 31 3B 20 8A 20 90 00 FE 2C 92 1D 2E 42 59 54 45 |1; . ...,...BYTE|
000028E0: 20 31 37 3A 2E 57 B0 44 20 44 4F 57 4E AB 31 20 | 17:.W.D DOWN.1 |
000028F0: 3B 20 28 43 55 52 53 B0 20 44 4F 57 4E 29 00 23 |; (CURS. DOWN).#|
00002900: 2D 9C 1D 2E 42 59 54 45 20 31 34 35 3A 2E 57 B0 |-...BYTE 145:.W.|
00002910: 44 20 55 50 AB 31 20 3B 20 28 43 55 52 53 B0 20 |D UP.1 ; (CURS. |
00002920: 55 50 29 00 4C 2D A6 1D 2E 42 59 54 45 20 31 35 |UP).L-...BYTE 15|
00002930: 37 3A 2E 57 B0 44 20 4C 45 46 54 AB 31 20 3B 20 |7:.W.D LEFT.1 ; |
00002940: 28 43 55 52 53 B0 20 4C 45 46 54 29 00 76 2D B0 |(CURS. LEFT).v-.|
00002950: 1D 2E 42 59 54 45 20 32 39 3A 2E 57 B0 44 20 52 |..BYTE 29:.W.D R|
00002960: 49 47 48 54 AB 31 20 3B 20 28 43 55 52 53 B0 20 |IGHT.1 ; (CURS. |
00002970: 52 49 47 48 54 29 00 8D 2D BA 1D 43 4F 4D 4D AF |RIGHT)..-..COMM.|
00002980: 4E 55 4D 20 B2 AC AB 43 4F 4D 4D AF 53 00 00 00 |NUM ...COMM.S...|
....... SAVE"0:ED.PAL",8...... 8,8,1,"0:
MR.ED".7....700.C....OPT O8.L...; "MR. E
D BY CHRIS MILLER JUL, 1986".R...;...$.;
... C.S.TS ........COLUMNS .40; SCREEN
SIZE.C.8.LINESIZE .250; MAX ALLOWED...B.
SCREENBEG .1024.40; .P OF TEXT SCR...L.S
CREEN. .2024; . OF TEXT SCR.5.V.ROWS . 2
4 ; SCREEN..SCREENBEG.COLUMNS.;.`.;.V.J.
; ... IMP..T MEM.Y ....E.T.VIC .$D011.T.
~.BKG .53281.....B. .53280.....RPTKEY .6
50.....IC.CH .$304...... .$200.....;.P.
..; ... ROM ROUTINES ......D.C.CHSRV .$A
57C...N..IN .$FFE4...X.. .$FFD2......Y .
$E37B.!...CNVRTDEC .$BDCD.'...;.?...; ..
. VARIABLES ....G.....2.S...VARS ...R...
ROW ....1; SCREEN ROW 0.24...(.COL ....1
; SCREEN COL 0.39...2.SH.T ....1; OFF SC
REEN LEFT.S.<.LINE ....2; TEXT LINE COUN
TER...F.CNT ....1; DISPLAY LINE COUNTER.
..P.NUM ....1; GENERAL PUR.E.:.Z.DISFLG
....1; NEGATIVE.NO DISPLAY.M.D.VARNUM ..
.VARS.S.N.;.H.X.; ... PO.ERS ........PTR
.61; UTILITY PO.ER......P .63; .P LIN
E OF TEXT WINDOW.E...SOB .43; START OF
BASIC... .EOB .55; . OF BASIC MEM.Y....
.. .45; . OF TEXT.....TXT .253; CURREN
T TEXT .ITI..@...SCR .251; CURRENT SCRE
EN .ITI..F.H.;.F.R.; ... BEGINNING OF CO
DE ....R.....52000.....LDA #128; KEYS RE
PEAT.....STA RPTKEY.....;.B...LDA #.C.CH
WDG; WEDGE . BASIC.P...STA IC.CH.....LDA
#.C.CHWDG...".STA IC.CH.1...,.;...6.; E
NTRY . ED COMM. FROM BASIC.'.@.START ...
2.J.LDA #9.J.T.STA VIC; SCREEN OFF.P.^.;
.H.H.LDX #6; BLUE SCREEN.S.R.STX B....|.
LDA #1; WHITE ......STA BKG.....JSR MESS
AGE; Y.0.H....BYTE 5, 147, 14, 8, 158, 0
.T...STX BKG.Z...;.....LDA #27; SCREEN .
...B.STA VIC...L.;...V..POFTEXT .......L
DA #0.:...LDX #VARNUM.1; INIT VARS.@...;
.S...B1 STA VARS,X.[...DEX.F...BPL B1.L
...;..&.JSR INITIALIZE...0.JSR WINDOW..
.:.;...D.; MAIN KEY SCAN LOOP.H.N..KEY .
.; ALWAYS . HERE...X.LDA #..KEY.1:PHA...
B.LDA #..KEY.1:PHA...L.;...V.JSR REVERSE
.+...JSR STATUSLINE; LINE, COL, MEM.1...
;.A...B2 JSR .IN.L...BEQ B2.R...;.G...J
SR REVERSE; Y.0.M...;...F.; CHECK COMM.
KEYS...P.B3 CMP COMM.S,Y...Z.BEQ FOUNDK
EY; ALSO SETS CARRY.K...INY:INY:INY.....
CPY #COMM.NUM.....BCC B3.....BCS PUT; A
TYPING KEY.....;.(...FOUNDKEY ..; JUMP .
ROUTINE.?. .LDA COMM.S.2,Y:PHA.V.*.LDA
COMM.S.1,Y:PHA.^.4.RTS.D.>.;...H.; PUT C
HARACTER IN TEXT BUFFER...R.PUT .....\.T
AX; . KEY...F.CMP #13...P.BEQ F1...Z.;.T
...; SEE . LINE FULL.....LDA SH.T.....CM
P #LINESIZE.40.....BNE F1.....LDA COL. .
..CMP #COLUMNS.1.+...BEQ R1.1.J.;.P.T.F1
JSR TEST.; ARE WE AT ..[...BCC F2.A...
;....JSR PSH.; MAKE ROOM . CAN.....BCS
R1; OUT OF MEM.Y.....;.....F2 CPX #13..
...BEQ CRET.A.$.;.L...LDY #0...8.LDA (TX
T),Y...B.CMP #13; . OF A LINE CHECK...L.
BNE F3...V.JSR INSERT.!.`.F3 TXA.1.J.ST
A (TXT),Y.@.T.JSR CNVSCR.P.~.STA (SCR),Y
.V...;.P...; CURS. RIGHT ROUTINE.....RIG
HT ..; CURS. RIGHT ROUTINE.....JSR FINDE
OLN.....TYA.A...BEQ R1; AL.Y AT ..M.D.IN
C TXT.X.N.BNE F4...X.INC TXT.1.....F4 LD
A COL.....CMP #COLUMNS.1.....BNE F5.....
;.&...INC SH.T.5...JMP WINDOW.;...;.J.(.
F5 INC COL.V.2.INC SCR.A.<.BNE R1.O.F.IN
C SCR.1.Z.P.R1 RTS...Z.;...D.; CURS. LEF
T ROUTINE...N.B4 DEC SH.T; SCROLL LEFT.E
.X.JMP WINDOW.K...;.W...LEFT .......LDA
COL... ..A SH.T; CHECK .ITI......BEQ R2;
CANT K LEFT.#...JSR DECTXT./...LDA COL.
:.H.BEQ B4.F.R.DEC COL.R...DEC SCR.^...L
DA SCR.K...CMP #$FF.V...BNE F6.....DEC S
CR.1.....F6 STA SCR.....R2 RTS...".;.D.,
.; CARRIAGE . H.LING ROUTINE...6.CRET ..
; H.LE CARRIAGE ....@.JSR FINDEOLN...J.T
XA; X.13...T.STA (TXT),Y...^.;./.H.; CUR
S. DOWN ROUTINE.;.R.DOWN ...L.|.JSR FIND
EOLN.T...TAY.O...BEQ R2; ALL.Y AT BOT.M.
....JSR UNSH.T; ALL THE WAY LEFT.....JSR
FINDEOLN.....JSR ADDY.....INC LINE.F.B.
BNE F7.U.L.INC LINE.1...V.F7 LDA ROW....
.CMP #ROWS.1; LAST ROW CHECK.....BNE F8.
+...JMP .PDOWN; SCROLL DOWN.:...F8 INC R
OW.@...;.N...ADDROW ...Z...LDA SCR.B.&.C
LC.S.0.ADC #COLUMNS.~.:.BCC F9...D.INC S
CR.1...N.F9 STA SCR...X.RTS...B.;...L.;
CURS. UP ROUTINE.J.V.UP .......LDA LINE;
CHECK .ITI.......A LINE.1; CHECK .ITI..
....BEQ R3; AT .P AL.Y.#...DEC LINE.0...
LDA LINE.=...CMP #$FF.I...BNE F10.X.F.DE
C LINE.1.H.P.F10 LDA TXT.P.Z.SEC.}...SBC
SH.T.....BCS F11.....DEC TXT.1.....F11
STA TXT.G...JSR UNSH.T; SCROLL FAR LEFT.
R...LDY #1... .STY NUM...*.DEY...4.B5 JS
R DECTXT; K BACK 2 CR...>.LDA (TXT),Y.!.
H.BEQ F12.-.R.CMP #13.8.\.BNE B5.D.F.DEC
NUM.O.P.BPL B5.U.Z.;.U...F12 INC TXT; .
.WARD 1 CHAR.....BNE F13.....INC TXT.1.
....F13 LDA ROW; .P OF SCREEN CHECK.K...
BEQ .PUP; SCROLL UP.Q...;.....DEC ROW; E
LSE MOVE UP ROW...J.LDA SCR...T.SEC.....
SBC #COLUMNS. ...BCS F14.....DEC SCR.1.>
...F14 STA SCR.I...R3 RTS.O...;.D...; MO
VE WINDOW UP...$..PUP ..; MOVE TEXT WIND
OW UP LINE.....LDY #$FF...8.DEC .P.1...B
.B6 DEY...L.LDA (.P),Y.J.V.BEQ ..P.V.`.C
MP #13...J.BNE B6...T.;...~...P ..; ADD
Y . .P PO.ER.....SEC.....TYA.....ADC .P.
+...BCC F15.8...INC .P.1.G...F15 STA .P.
V.D.JMP WINDOW.\.N.;.S.X.; MOVE WINDOW D
OWN......PDOWN ..; MOVE WINDOW DOWN LINE
.....LDY #$FF.....B7 INY.....LDA (.P),Y.
K...BEQ ..P.W...CMP #13.....BNE B7...(.B
EQ ..P...2.;...<.; INITIALIZE . START OF
. LINE.%.F.UNSH.T ...1.P.LDA SCR.9.Z.SE
C.E.D.SBC COL.Q.N.BCS F16._.X.DEC SCR.1.
O...F16 STA SCR.U...;.....LDA TXT... .SE
C.....SBC COL.....BCS F17.....DEC TXT.1.
..H.F17 STA TXT.E.R.;.P...LDA #0.....STA
COL.....STA SH.T.....;.....; MOVE TEXT
. SCREEN WINDOW.....WINDOW ...:...BIT DI
SFLG; IS DISPLAY ..I.".BMI R4; NO.O.,.;.
Y.6.LDA #ROWS ; SCREEN..SCREENBEG.COLUMN
S...@.STA CNT...J.;...T.LDA TXT.1:PHA; .
PO.ERS...^.LDA TXT:PHA.I.H.LDA SCR.1:PH
A.Y.R.LDA SCR:PHA...|.;.....LDA .P:STA T
XT; INIT PO.ERS.....LDA .P.1:STA TXT.1.&
...JSR INITSCR.,...;.I...; PROCESS . LIN
E OF TEXT.V....LINE ...C.B.LDY #$FF.X.L.
B8 JSR TESTEOLN...V.BEQ LINEBLANK.....C
PY SH.T; H.LE RIGHT SCROLL.....BCC B8...
..;.C...CLC.....JSR ADDY.1; UPDATE TXT P
TR.....;.....LDY #$FF...&.B9 JSR TESTEO
LN.'.0.BEQ RESTBLANK; . OF LINE.G.:.JSR
CNVSCR; C.VERT FII CODE.E.D.STA (SCR),Y;
PUT . SCREEN.X.N.CPY #COLUMNS.1...X.BCC
B9...B.;...L.JSR FINDEOLN.2; D.T INIT .
Y.B.V.JSR ADDY; PO. . LINE.H...;.V...ADD
SCR .......JSR ADDROW; . SCREEN PTR.....
DEC CNT.....BNE .LINE.....;.....FINI ...
7.F.PLA:STA SCR; . PTRS.I.P.PLA:STA SCR.
1.Y.Z.PLA:STA TXT.K...PLA:STA TXT.1.W...
R4 RTS.}...;.....LINEBLANK .......JSR A
DDY.....LDY #0... .BEQ F18.C.*.RESTBLANK
...P.4.JSR ADDY...>.F18 LDA #" "...H.B1
0 STA (SCR),Y...R.INY...\.CPY #COLUMNS..
.F.BCC B10.7.P.BCS ADDSCR; START . LINE.
=.Z.;.[...ADDY ..; ADD Y . TEXT PTR.C...
SEC.K...TYA.W...ADC TXT.....BCC F19.....
INC TXT.1.....F19 STA TXT...J.RTS...T.;.
O...DECTXT ..; BACK UP TEXT PTR.....DEC
TXT.....LDA TXT.....CMP #$FF.....BNE F20
.....DEC TXT.1.....F20 RTS. .$.;.?...; C
.VERT FII . SCREEN CODE.M.8.CNVSCR ...Y.
B.E. #128.E.L.BPL F21.Q.V.E. #128.}.`.CM
P #64...J.BCC F21...T.E. #64. .~.F21 RTS
.....;.I...REVERSE ..; REVERSE CURS. CHA
R.Q...PHA.....LDY #0.....LDA (SCR),Y....
.E. #$80...D.STA (SCR),Y...N.PLA...X.RTS
.....;.?...TEST. ..; TEST .ITI. IN TEXT.
M...LDA TXT.1.Y...CMP ..1.E...BCC F22.Q.
..BNE F22.}...LDA TXT...(.CMP ....2.F22
RTS...<.;...F.INSERT ..; INSERT .E SPACE
.H.P.LDA ..1:PHA.V.Z.LDA .:PHA...D.LDY #
0...N.B11 LDA (.),Y...X.INY.....STA (.),
Y.....DEY.....DEC ..%. .LDA ..2...CMP #$
FF.>...BNE F23.J...DEC ..1.\.H.F23 JSR T
EST..H.R.BCC B11.T...BEQ B11.....PLA:STA
......PLA:STA ..1.....;.....PSH. ..; BU
MP . PTR UP.....LDA ..1.M...CMP EOB.1.Y.
".BCC F24...,.LDA ....6.CMP EOB...@.BCS
R5.. J.F24 INC ... T.BNE R5.. ^.INC ..1.
+ H.R5 RTS.1 R.;.@ |.DE.ECHR ...K ..LDA
#1.W ..STA NUM.G ..JSR LEFT; R.. ..DE.E
..; NUMBER OF CHARS IN NUM.. ..LDA TXT.
1:PHA.. ..LDA TXT:PHA.. B.B12 LDY NUM.M
L.LDA (TXT),Y.X V.LDY #0.. ..STA (TXT),Y
.. ..INC TXT..!..BNE F25..!..INC TXT.1.
!..F25 JSR TEST..,!..BCC B12.8!..BEQ B12
.H!&.PLA:STA TXT.Z!0.PLA:STA TXT.1.H!:.J
SR TEST..T!D.BCS F26.~!N.LDA ...!X.SEC..
!B.SBC NUM..!L.STA ...!V.BCS F26..!..DEC
..1.G!..F26 JMP WINDOW.M!..;..!..INSERT
LN ..; INSERT G(13)..!..JSR INSERT.."..L
DA #13.."..BNE F27.."F.;.6"P.INSRTSPC ..
; INSERT BLANK.E"Z.JSR INSERT.R"..LDA #"
".F"..F27 STA (TXT),Y.U"..JMP WINDOW.{"
..;.."..DE.ELN ..; DE.E LINE.."..R. DISF
LG; DISPLAY OFF.." .JSR FINDEOLN.H"*.TYA
.T"4.BNE F28..">.INY.."H.F28 STY NUM.."R
.JSR DE.E..#\.JMP SETWINDOW..#F.;.2#P.PA
GEDOWN ..; L.G SCROLL DOWN.L#Z.R. DISFLG
; NO DISPLAY.F#..LDX #ROWS.1; 23 LINES.W
#..B13 JSR DOWN.#..DEX..#..BNE B13..#..
BEQ SETWINDOW..#..;..#..PAGEUP ..; L.G S
CROLL UP.Z#J.R. DISFLG; NO DISPLAY..#T.L
DX #ROWS.1; 24 LINES..$..B14 JSR UP..$..
DEX..$..BNE B14.)$..BEQ SETWINDOW./$..;.
?$..PAGELEFT ...M$..R. DISFLG.`$$.LDX #C
OLUMNS.1.Q$..B15 JSR LEFT.Y$8.DEX..$B.BN
E B15..$L.BEQ SETWINDOW..$V.;..$`.; SCRO
LL SIDEWAYS . . OF LINE.P$J.PAGERIGHT ..
..$T.R. DISFLG; NO DISPLAY..$~.LDX #COLU
MNS.1..%..B16 JSR RIGHT..%..DEX.#%..BNE
B16.4%..SETWINDOW ...C%..LSR DISFLG.[%..
JMP WINDOW; DISPLAY.A%D.;.%N.; SET Y.DI
S.CE . TEXT EOL..%X.FINDEOLN ....%..LDY
#$FF..%..B17 JSR TESTEOLN..%..BNE B17.E%
..RTS.K%..;..%..TESTEOLN ....%..INY..%(.
CPY #$FF..%2.BEQ F29..&<.LDA (TXT),Y..&F
.BEQ F29.$&P.CMP #13.0&Z.F29 RTS.6&D.;.H
&N.INITIALIZE ...T&X.LDA SOB.B&..LDX SOB
.1.J&..CLC.U&..ADC #2..& .BCC F30..&..IN
X..&..F30 STA TXT..&..STA .P..&H.STX TXT
.1..&R.STX .P.1.Q&..LDA .:STA PTR..&..LD
A ..1:STA PTR.1..&..LDY #0; FILL ZEROS..
'..TYA..'..B18 STA (PTR),Y.&'..INC PTR.2
'..BNE F31.@'".INC PTR.1.R',.F31 LDX PTR
.1.`'6.CPX EOB.1.L'@.BCC B18.X'J.LDX PTR
..'T.CPX EOB..'^.BCC B18..'H.INITSCR ...
.'R.LDA #.SCREENBEG:STA SCR.Y'|.LDA #.SC
REENBEG:STA SCR.1..'..RTS..'..;..'..STAT
USLINE ....(..JSR MESSAGE..(...BYTE 19 ;
(HOME).8(...F "COLUMN:":.BYTE 0.E(B.LDA
SH.T.M(L.SEC.Y(V.ADC COL.A(..TAX.M(..TY
A; .0.~(..JSR CNVRTDEC..(..JSR MESSAGE..
(...F " LINE:":.BYTE 0..(..LDY LINE.1.B(
..LDX LINE.J(&.INX.V(0.BNE F32..(:.INY..
(D.F32 TYA..(N.JSR CNVRTDEC..)X.JSR MESS
AGE.#)B..F " FREE:":.BYTE 0.1)L.LDA EOB.
1.9)V.SEC.E)..SBC ..1.M)..TAY.Y)..LDA EO
B.C)..SBC ..K)..TAX.S)..TYA..)..JSR CNVR
TDEC..)F.JSR MESSAGE..)P..F " ":.BYTE
0 ; 3 (SPACES)..)Z.RTS.D)..;..)..; . IN
SOURCE MESSAGES..)..MESSAGE ....)..LDY #
0..*..PLA..*..STA PTR..* .PLA.#**.STA PT
R.1.3*4.B19 INC PTR.?*>.BNE F33.M*H.INC
PTR.1.A*R.F33 LDA (PTR),Y.M*\.BEQ F34.W*
F.JSR ...*P.BNE B19..*Z.F34 LDA PTR.1..*
..PHA..*..LDA PTR..*..PHA..*..RTS..*..;.
.*..; WEDGE . ED COMM. IN BASIC..+..C.CH
WDG ..; WEDGE . ED COMM...+J.LDA ...+T.C
MP #"E".#+..BNE F35./+..LDA ..1.<+..CMP
#"D".H+..BNE F35.C+..JMP START; CALL MR.
ED..+..F35 JMP C.CHSRV; PASS . BASIC..+
..;..+$.; COMM. ENTRIES..+..COMM.S ...Q+
8..BYTE 148:.W.D INSRTSPC.1; INST..+B..B
YTE 20:.W.D DE.ECHR.1; DEL..,L..BYTE 133
:.W.D DE.ELN.1; F1.4,V..BYTE 137:.W.D IN
SERTLN.1; F2.V,`..BYTE 134:.W.D PAGEDOWN
.1; F3.V,J..BYTE 138:.W.D PAGEUP.1; F4..
,T..BYTE 135:.W.D PAGERIGHT.1; F5..,~..B
YTE 139:.W.D PAGELEFT.1; F6.V,...BYTE 3:
.W.D .Y.1; . ...,...BYTE 17:.W.D DOWN.1
; (CURS. DOWN).#-...BYTE 145:.W.D UP.1 ;
(CURS. UP).L-...BYTE 157:.W.D LEFT.1 ;
(CURS. LEFT).V-...BYTE 29:.W.D RIGHT.1 ;
(CURS. RIGHT)..-..COMM.NUM ...COMM.S...
> CLICK IMAGE PREVIEW FOR FULL MODAL