5
FILE INFORMATION
FILENAME(S): 5
FILE TYPE(S): PRG
FILE SIZE: 6.4K
FIRST SEEN: 2025-11-30 20:31:01
APPEARS ON: 1 disk(s)
FILE HASH
d9d3d58a7cb3c99b44a81ddab1814e143aaf471e965f24637062e2ed92b4e2de
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 5 | PRG | Curtcool, Nigel | 7 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0D 20 20 20 20 20 20 20 20 20 2A 3D 20 24 |... *= $| 00000010: 31 30 30 30 0D 0D 0D 0D 0D 0D 54 45 58 54 31 20 |1000......TEXT1 | 00000020: 20 20 20 3D 20 24 30 34 30 30 20 20 20 3B 50 4C | = $0400 ;PL| 00000030: 41 43 45 20 54 45 58 54 0D 0D 4C 49 4E 45 31 20 |ACE TEXT..LINE1 | 00000040: 20 20 20 3D 20 32 30 20 20 20 20 20 20 3B 4C 49 | = 20 ;LI| 00000050: 4E 45 20 54 4F 20 45 44 49 54 20 54 45 58 54 0D |NE TO EDIT TEXT.| 00000060: 0D 43 4F 4C 4F 52 31 31 20 20 3D 20 37 20 20 20 |.COLOR11 = 7 | 00000070: 20 20 20 20 3B 4C 49 4E 45 20 43 4F 4C 4F 55 52 | ;LINE COLOUR| 00000080: 0D 0D 43 4F 4C 4F 52 32 31 20 20 3D 20 31 20 20 |..COLOR21 = 1 | 00000090: 20 20 20 20 20 3B 43 55 52 53 4F 52 20 43 4F 4C | ;CURSOR COL| 000000A0: 4F 55 52 0D 0D 53 54 41 52 54 54 31 20 20 3D 20 |OUR..STARTT1 = | 000000B0: 24 33 45 20 20 20 20 20 3B 53 54 41 52 54 4D 41 |$3E ;STARTMA| 000000C0: 52 4B 20 27 3E 27 0D 53 4C 55 54 54 31 20 20 20 |RK '>'.SLUTT1 | 000000D0: 3D 20 24 33 43 20 20 20 20 20 3B 45 4E 44 20 20 |= $3C ;END | 000000E0: 4D 41 52 4B 20 27 3C 27 0D 0D 53 4C 55 54 54 31 |MARK '<'..SLUTT1| 000000F0: 45 47 4E 20 3D 20 30 20 20 20 20 20 20 3B 45 4E |EGN = 0 ;EN| 00000100: 44 20 42 59 54 45 20 28 30 2F 5A 45 52 4F 29 0D |D BYTE (0/ZERO).| 00000110: 0D 53 43 52 4F 4C 4C 31 20 20 3D 20 2A 0D 20 20 |.SCROLL1 = *. | 00000120: 20 20 20 20 20 20 20 4C 44 41 20 23 24 31 45 0D | LDA #$1E.| 00000130: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 34 | STA $04| 00000140: 30 30 2B 32 30 2B 28 34 30 2A 4C 49 4E 45 31 29 |00+20+(40*LINE1)| 00000150: 2B 34 30 0D 20 20 20 20 20 20 20 20 20 4C 44 59 |+40. LDY| 00000160: 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 4C | #$00. L| 00000170: 44 41 20 23 43 4F 4C 4F 52 31 31 0D 42 42 42 32 |DA #COLOR11.BBB2| 00000180: 30 30 20 20 20 53 54 41 20 24 44 38 30 30 2B 28 |00 STA $D800+(| 00000190: 34 30 2A 4C 49 4E 45 31 29 2C 59 0D 20 20 20 20 |40*LINE1),Y. | 000001A0: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 | INY. | 000001B0: 20 20 43 50 59 20 23 34 30 0D 20 20 20 20 20 20 | CPY #40. | 000001C0: 20 20 20 42 4E 45 20 42 42 42 32 30 30 0D 20 20 | BNE BBB200. | 000001D0: 20 20 20 20 20 20 20 4C 44 41 20 23 43 4F 4C 4F | LDA #COLO| 000001E0: 52 32 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 |R21. STA| 000001F0: 20 24 44 38 30 30 2B 28 34 30 2A 4C 49 4E 45 31 | $D800+(40*LINE1| 00000200: 29 2B 32 30 0D 20 20 20 20 20 20 20 20 20 53 54 |)+20. ST| 00000210: 41 20 24 44 38 30 30 2B 28 34 30 2A 4C 49 4E 45 |A $D800+(40*LINE| 00000220: 31 29 2B 36 30 0D 0D 0D 0D 20 20 20 20 20 20 20 |1)+60.... | 00000230: 20 20 4C 44 41 20 23 3C 54 45 58 54 31 0D 20 20 | LDA #<TEXT1. | 00000240: 20 20 20 20 20 20 20 53 54 41 20 24 46 45 0D 20 | STA $FE. | 00000250: 20 20 20 20 20 20 20 20 53 54 41 20 42 42 42 31 | STA BBB1| 00000260: 30 30 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |00. LDA | 00000270: 23 3E 54 45 58 54 31 0D 20 20 20 20 20 20 20 20 |#>TEXT1. | 00000280: 20 53 54 41 20 24 46 46 0D 20 20 20 20 20 20 20 | STA $FF. | 00000290: 20 20 53 54 41 20 42 42 42 31 30 30 2B 31 0D 20 | STA BBB100+1. | 000002A0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 | LDA #$00| 000002B0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 000002C0: 30 32 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 |020. STA| 000002D0: 20 24 44 30 32 31 0D 20 20 20 20 20 20 20 20 20 | $D021. | 000002E0: 4C 44 41 20 23 53 4C 55 54 54 31 0D 20 20 20 20 |LDA #SLUTT1. | 000002F0: 20 20 20 20 20 53 54 41 20 54 45 58 54 31 0D 20 | STA TEXT1. | 00000300: 20 20 20 20 20 20 20 20 4C 44 41 20 23 53 54 41 | LDA #STA| 00000310: 52 54 54 31 0D 20 20 20 20 20 20 20 20 20 53 54 |RTT1. ST| 00000320: 41 20 54 45 58 54 31 2D 31 0D 0D 20 20 20 20 20 |A TEXT1-1.. | 00000330: 20 20 20 20 4A 53 52 20 41 53 45 54 53 43 4C 0D | JSR ASETSCL.| 00000340: 0D 0D 42 42 42 20 20 20 20 20 20 4A 53 52 20 24 |..BBB JSR $| 00000350: 46 46 45 34 0D 20 20 20 20 20 20 20 20 20 42 45 |FFE4. BE| 00000360: 51 20 42 42 42 0D 20 20 20 20 20 20 20 20 20 43 |Q BBB. C| 00000370: 4D 50 20 23 22 1D 22 0D 20 20 20 20 20 20 20 20 |MP #".". | 00000380: 20 42 45 51 20 42 42 42 31 34 0D 20 20 20 20 20 | BEQ BBB14. | 00000390: 20 20 20 20 43 4D 50 20 23 22 86 22 0D 20 20 20 | CMP #".". | 000003A0: 20 20 20 20 20 20 42 45 51 20 42 42 42 37 37 0D | BEQ BBB77.| 000003B0: 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 30 | CMP #$0| 000003C0: 44 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 53 |D. BEQ S| 000003D0: 4C 55 54 0D 20 20 20 20 20 20 20 20 20 43 4D 50 |LUT. CMP| 000003E0: 20 23 22 9D 22 0D 20 20 20 20 20 20 20 20 20 42 | #".". B| 000003F0: 45 51 20 42 42 42 31 32 0D 20 20 20 20 20 20 20 |EQ BBB12. | 00000400: 20 20 43 4D 50 20 23 22 14 22 0D 20 20 20 20 20 | CMP #".". | 00000410: 20 20 20 20 42 45 51 20 42 42 42 32 30 31 0D 20 | BEQ BBB201. | 00000420: 20 20 20 20 20 20 20 20 43 4D 50 20 23 22 94 22 | CMP #"."| 00000430: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 42 42 |. BEQ BB| 00000440: 42 32 30 32 0D 20 20 20 20 20 20 20 20 20 43 4D |B202. CM| 00000450: 50 20 23 22 85 22 0D 20 20 20 20 20 20 20 20 20 |P #".". | 00000460: 42 45 51 20 42 42 42 35 36 30 0D 20 20 20 20 20 |BEQ BBB560. | 00000470: 20 20 20 20 43 4D 50 20 23 31 39 33 0D 20 20 20 | CMP #193. | 00000480: 20 20 20 20 20 20 42 43 53 20 42 42 42 33 0D 20 | BCS BBB3. | 00000490: 20 20 20 20 20 20 20 20 43 4D 50 20 23 31 36 31 | CMP #161| 000004A0: 0D 20 20 20 20 20 20 20 20 20 42 43 53 20 42 42 |. BCS BB| 000004B0: 42 31 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 |B1. CMP | 000004C0: 23 31 32 38 0D 20 20 20 20 20 20 20 20 20 42 43 |#128. BC| 000004D0: 53 20 42 42 42 0D 20 20 20 20 20 20 20 20 20 43 |S BBB. C| 000004E0: 4D 50 20 23 36 34 0D 20 20 20 20 20 20 20 20 20 |MP #64. | 000004F0: 42 43 53 20 42 42 42 34 0D 20 20 20 20 20 20 20 |BCS BBB4. | 00000500: 20 20 43 4D 50 20 23 33 32 0D 20 20 20 20 20 20 | CMP #32. | 00000510: 20 20 20 42 43 43 20 42 42 42 0D 42 42 42 32 20 | BCC BBB.BBB2 | 00000520: 20 20 20 20 4A 4D 50 20 42 42 42 35 0D 0D 42 42 | JMP BBB5..BB| 00000530: 42 37 37 20 20 20 20 4A 4D 50 20 42 42 42 39 39 |B77 JMP BBB99| 00000540: 38 0D 42 42 42 35 36 30 20 20 20 4A 4D 50 20 42 |8.BBB560 JMP B| 00000550: 42 42 36 31 35 0D 42 42 42 32 30 31 20 20 20 4A |BB615.BBB201 J| 00000560: 4D 50 20 42 42 42 33 30 31 0D 42 42 42 32 30 32 |MP BBB301.BBB202| 00000570: 20 20 20 4A 4D 50 20 42 42 42 33 30 32 0D 0D 53 | JMP BBB302..S| 00000580: 4C 55 54 20 20 20 20 20 4C 44 59 20 23 24 30 30 |LUT LDY #$00| 00000590: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 42 42 |. LDA BB| 000005A0: 42 31 30 30 0D 20 20 20 20 20 20 20 20 20 53 54 |B100. ST| 000005B0: 41 20 24 46 45 0D 20 20 20 20 20 20 20 20 20 4C |A $FE. L| 000005C0: 44 41 20 42 42 42 31 30 30 2B 31 0D 20 20 20 20 |DA BBB100+1. | 000005D0: 20 20 20 20 20 53 54 41 20 24 46 46 0D 20 20 20 | STA $FF. | 000005E0: 20 20 20 20 20 20 4C 44 41 20 23 53 4C 55 54 54 | LDA #SLUTT| 000005F0: 31 45 47 4E 0D 20 20 20 20 20 20 20 20 20 53 54 |1EGN. ST| 00000600: 41 20 28 24 46 45 29 2C 59 0D 20 20 20 20 20 20 |A ($FE),Y. | 00000610: 20 20 20 52 54 53 0D 0D 42 42 42 31 20 20 20 20 | RTS..BBB1 | 00000620: 20 53 45 43 0D 20 20 20 20 20 20 20 20 20 53 42 | SEC. SB| 00000630: 43 20 23 31 36 31 2D 39 37 0D 20 20 20 20 20 20 |C #161-97. | 00000640: 20 20 20 4A 4D 50 20 42 42 42 32 0D 0D 42 42 42 | JMP BBB2..BBB| 00000650: 33 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 |3 SEC. | 00000660: 20 20 20 53 42 43 20 23 31 32 38 0D 20 20 20 20 | SBC #128. | 00000670: 20 20 20 20 20 4A 4D 50 20 42 42 42 32 0D 0D 42 | JMP BBB2..B| 00000680: 42 42 34 20 20 20 20 20 53 45 43 0D 20 20 20 20 |BB4 SEC. | 00000690: 20 20 20 20 20 53 42 43 20 23 24 34 30 0D 20 20 | SBC #$40. | 000006A0: 20 20 20 20 20 20 20 4A 4D 50 20 42 42 42 32 0D | JMP BBB2.| 000006B0: 0D 42 42 42 31 32 20 20 20 20 4A 4D 50 20 42 42 |.BBB12 JMP BB| 000006C0: 42 31 33 0D 0D 42 42 42 31 34 20 20 20 20 4A 4D |B13..BBB14 JM| 000006D0: 50 20 42 42 42 31 35 0D 0D 0D 42 42 42 35 0D 20 |P BBB15...BBB5. | 000006E0: 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 30 | LDY #$00| 000006F0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 28 24 |. STA ($| 00000700: 46 45 29 2C 59 0D 0D 20 20 20 20 20 20 20 20 20 |FE),Y.. | 00000710: 4C 44 41 20 42 42 42 31 30 30 2B 31 0D 20 20 20 |LDA BBB100+1. | 00000720: 20 20 20 20 20 20 53 54 41 20 24 46 44 0D 20 20 | STA $FD. | 00000730: 20 20 20 20 20 20 20 4C 44 41 20 42 42 42 31 30 | LDA BBB10| 00000740: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |0. STA $| 00000750: 46 43 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |FC. LDY | 00000760: 23 24 30 31 0D 20 20 20 20 20 20 20 20 20 4C 44 |#$01. LD| 00000770: 41 20 23 53 4C 55 54 54 31 0D 20 20 20 20 20 20 |A #SLUTT1. | 00000780: 20 20 20 53 54 41 20 28 24 46 43 29 2C 59 0D 20 | STA ($FC),Y. | 00000790: 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 32 | LDY #$02| 000007A0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |. LDA #$| 000007B0: 32 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |20. STA | 000007C0: 28 24 46 43 29 2C 59 0D 0D 0D 0D 20 20 20 20 20 |($FC),Y.... | 000007D0: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 | CLC. | 000007E0: 20 4C 44 41 20 24 46 45 0D 20 20 20 20 20 20 20 | LDA $FE. | 000007F0: 20 20 41 44 43 20 23 31 0D 20 20 20 20 20 20 20 | ADC #1. | 00000800: 20 20 53 54 41 20 24 46 45 0D 20 20 20 20 20 20 | STA $FE. | 00000810: 20 20 20 4C 44 41 20 24 46 46 0D 20 20 20 20 20 | LDA $FF. | 00000820: 20 20 20 20 41 44 43 20 23 30 0D 20 20 20 20 20 | ADC #0. | 00000830: 20 20 20 20 53 54 41 20 24 46 46 0D 20 20 20 20 | STA $FF. | 00000840: 20 20 20 20 20 4C 44 41 20 24 46 46 0D 20 20 20 | LDA $FF. | 00000850: 20 20 20 20 20 20 43 4D 50 20 42 42 42 31 30 30 | CMP BBB100| 00000860: 2B 31 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 |+1. BEQ | 00000870: 42 42 42 32 33 0D 20 20 20 20 20 20 20 20 20 42 |BBB23. B| 00000880: 43 53 20 42 42 42 32 32 0D 42 42 42 32 31 20 20 |CS BBB22.BBB21 | 00000890: 20 20 4A 53 52 20 41 53 45 54 53 43 4C 0D 20 20 | JSR ASETSCL. | 000008A0: 20 20 20 20 20 20 20 4A 4D 50 20 42 42 42 0D 0D | JMP BBB..| 000008B0: 42 42 42 32 32 20 20 20 20 4C 44 41 20 24 46 45 |BBB22 LDA $FE| 000008C0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 42 42 |. STA BB| 000008D0: 42 31 30 30 0D 20 20 20 20 20 20 20 20 20 4C 44 |B100. LD| 000008E0: 41 20 24 46 46 0D 20 20 20 20 20 20 20 20 20 53 |A $FF. S| 000008F0: 54 41 20 42 42 42 31 30 30 2B 31 0D 20 20 20 20 |TA BBB100+1. | 00000900: 20 20 20 20 20 4A 4D 50 20 42 42 42 32 31 0D 0D | JMP BBB21..| 00000910: 42 42 42 32 33 20 20 20 20 4C 44 41 20 24 46 45 |BBB23 LDA $FE| 00000920: 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 42 42 |. CMP BB| 00000930: 42 31 30 30 0D 20 20 20 20 20 20 20 20 20 42 43 |B100. BC| 00000940: 53 20 42 42 42 32 32 0D 20 20 20 20 20 20 20 20 |S BBB22. | 00000950: 20 4A 4D 50 20 42 42 42 32 31 0D 0D 0D 0D 42 42 | JMP BBB21....BB| 00000960: 42 31 33 20 20 20 20 4C 44 41 20 24 46 46 0D 20 |B13 LDA $FF. | 00000970: 20 20 20 20 20 20 20 20 43 4D 50 20 23 3E 54 45 | CMP #>TE| 00000980: 58 54 31 0D 20 20 20 20 20 20 20 20 20 42 4E 45 |XT1. BNE| 00000990: 20 42 42 42 31 36 0D 20 20 20 20 20 20 20 20 20 | BBB16. | 000009A0: 4C 44 41 20 24 46 45 0D 20 20 20 20 20 20 20 20 |LDA $FE. | 000009B0: 20 43 4D 50 20 23 3C 54 45 58 54 31 0D 20 20 20 | CMP #<TEXT1. | 000009C0: 20 20 20 20 20 20 42 45 51 20 42 42 42 31 37 0D | BEQ BBB17.| 000009D0: 42 42 42 31 36 20 20 20 20 53 45 43 0D 20 20 20 |BBB16 SEC. | 000009E0: 20 20 20 20 20 20 4C 44 41 20 24 46 45 0D 20 20 | LDA $FE. | 000009F0: 20 20 20 20 20 20 20 53 42 43 20 23 31 0D 20 20 | SBC #1. | 00000A00: 20 20 20 20 20 20 20 53 54 41 20 24 46 45 0D 20 | STA $FE. | 00000A10: 20 20 20 20 20 20 20 20 4C 44 41 20 24 46 46 0D | LDA $FF.| 00000A20: 20 20 20 20 20 20 20 20 20 53 42 43 20 23 30 0D | SBC #0.| 00000A30: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 46 46 | STA $FF| 00000A40: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 41 53 |. JSR AS| 00000A50: 45 54 53 43 4C 0D 20 20 20 20 20 20 20 20 20 4A |ETSCL. J| 00000A60: 4D 50 20 42 42 42 0D 0D 42 42 42 31 37 20 20 20 |MP BBB..BBB17 | 00000A70: 20 4A 4D 50 20 42 42 42 0D 0D 42 42 42 31 35 20 | JMP BBB..BBB15 | 00000A80: 20 20 20 4C 44 41 20 24 46 46 0D 20 20 20 20 20 | LDA $FF. | 00000A90: 20 20 20 20 43 4D 50 20 42 42 42 31 30 30 2B 31 | CMP BBB100+1| 00000AA0: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 42 42 |. BNE BB| 00000AB0: 42 32 30 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |B20. LDA| 00000AC0: 20 24 46 45 0D 20 20 20 20 20 20 20 20 20 43 4D | $FE. CM| 00000AD0: 50 20 42 42 42 31 30 30 0D 20 20 20 20 20 20 20 |P BBB100. | 00000AE0: 20 20 42 45 51 20 42 42 42 31 37 0D 42 42 42 32 | BEQ BBB17.BBB2| 00000AF0: 30 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 |0 CLC. | 00000B00: 20 20 4C 44 41 20 24 46 45 0D 20 20 20 20 20 20 | LDA $FE. | 00000B10: 20 20 20 41 44 43 20 23 31 0D 20 20 20 20 20 20 | ADC #1. | 00000B20: 20 20 20 53 54 41 20 24 46 45 0D 20 20 20 20 20 | STA $FE. | 00000B30: 20 20 20 20 4C 44 41 20 24 46 46 0D 20 20 20 20 | LDA $FF. | 00000B40: 20 20 20 20 20 41 44 43 20 23 30 0D 20 20 20 20 | ADC #0. | 00000B50: 20 20 20 20 20 53 54 41 20 24 46 46 0D 20 20 20 | STA $FF. | 00000B60: 20 20 20 20 20 20 4A 53 52 20 41 53 45 54 53 43 | JSR ASETSC| 00000B70: 4C 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 42 |L. JMP B| 00000B80: 42 42 0D 0D 0D 42 42 42 35 35 30 20 20 20 2E 42 |BB...BBB550 .B| 00000B90: 59 54 45 20 30 0D 0D 42 42 42 35 31 35 20 20 20 |YTE 0..BBB515 | 00000BA0: 20 20 20 20 20 20 20 20 20 20 20 3B 48 45 52 0D | ;HER.| 00000BB0: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 42 42 42 | JMP BBB| 00000BC0: 36 31 35 0D 0D 42 42 42 31 30 30 0D 20 20 20 20 |615..BBB100. | 00000BD0: 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 2C 24 | .BYTE $00,$| 00000BE0: 30 30 0D 0D 0D 0D 41 53 45 54 53 43 4C 20 20 3D |00....ASETSCL =| 00000BF0: 20 2A 0D 20 20 20 20 20 20 20 20 20 53 45 43 0D | *. SEC.| 00000C00: 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 46 45 | LDA $FE| 00000C10: 0D 20 20 20 20 20 20 20 20 20 53 42 43 20 23 32 |. SBC #2| 00000C20: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |0. STA $| 00000C30: 46 45 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |FE. LDA | 00000C40: 24 46 46 0D 20 20 20 20 20 20 20 20 20 53 42 43 |$FF. SBC| 00000C50: 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 | #0. STA| 00000C60: 20 24 46 46 0D 20 20 20 20 20 20 20 20 20 4C 44 | $FF. LD| 00000C70: 59 20 23 24 30 30 0D 42 42 42 37 20 20 20 20 20 |Y #$00.BBB7 | 00000C80: 4C 44 41 20 28 24 46 45 29 2C 59 0D 0D 20 20 20 |LDA ($FE),Y.. | 00000C90: 20 20 20 20 20 20 53 54 41 20 24 30 34 30 30 2B | STA $0400+| 00000CA0: 28 4C 49 4E 45 31 2A 34 30 29 2C 59 0D 20 20 20 |(LINE1*40),Y. | 00000CB0: 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 | INY. | 00000CC0: 20 20 20 43 50 59 20 23 34 30 0D 20 20 20 20 20 | CPY #40. | 00000CD0: 20 20 20 20 42 4E 45 20 42 42 42 37 0D 20 20 20 | BNE BBB7. | 00000CE0: 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 | CLC. | 00000CF0: 20 20 20 4C 44 41 20 24 46 45 0D 20 20 20 20 20 | LDA $FE. | 00000D00: 20 20 20 20 41 44 43 20 23 32 30 0D 20 20 20 20 | ADC #20. | 00000D10: 20 20 20 20 20 53 54 41 20 24 46 45 0D 20 20 20 | STA $FE. | 00000D20: 20 20 20 20 20 20 4C 44 41 20 24 46 46 0D 20 20 | LDA $FF. | 00000D30: 20 20 20 20 20 20 20 41 44 43 20 23 30 0D 20 20 | ADC #0. | 00000D40: 20 20 20 20 20 20 20 53 54 41 20 24 46 46 0D 20 | STA $FF. | 00000D50: 20 20 20 20 20 20 20 20 52 54 53 0D 42 42 42 34 | RTS.BBB4| 00000D60: 30 31 20 20 20 4A 4D 50 20 42 42 42 0D 0D 42 42 |01 JMP BBB..BB| 00000D70: 42 34 30 30 0D 20 20 20 20 20 20 20 20 20 4C 44 |B400. LD| 00000D80: 41 20 24 46 46 0D 20 20 20 20 20 20 20 20 20 43 |A $FF. C| 00000D90: 4D 50 20 23 3E 54 45 58 54 31 0D 20 20 20 20 20 |MP #>TEXT1. | 00000DA0: 20 20 20 20 42 45 51 20 42 42 42 34 30 31 0D 20 | BEQ BBB401. | 00000DB0: 20 20 20 20 20 20 20 20 4A 4D 50 20 42 42 42 34 | JMP BBB4| 00000DC0: 30 32 0D 42 42 42 33 30 31 0D 20 20 20 20 20 20 |02.BBB301. | 00000DD0: 20 20 20 4C 44 41 20 24 46 45 0D 20 20 20 20 20 | LDA $FE. | 00000DE0: 20 20 20 20 43 4D 50 20 23 3C 54 45 58 54 31 0D | CMP #<TEXT1.| 00000DF0: 20 20 20 20 20 20 20 20 20 42 45 51 20 42 42 42 | BEQ BBB| 00000E00: 34 30 30 0D 42 42 42 34 30 32 0D 20 20 20 20 20 |400.BBB402. | 00000E10: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 | CLC. | 00000E20: 20 4C 44 41 20 42 42 42 31 30 30 0D 20 20 20 20 | LDA BBB100. | 00000E30: 20 20 20 20 20 41 44 43 20 23 31 0D 20 20 20 20 | ADC #1. | 00000E40: 20 20 20 20 20 53 54 41 20 42 42 42 31 30 30 0D | STA BBB100.| 00000E50: 20 20 20 20 20 20 20 20 20 4C 44 41 20 42 42 42 | LDA BBB| 00000E60: 31 30 30 2B 31 0D 20 20 20 20 20 20 20 20 20 41 |100+1. A| 00000E70: 44 43 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 |DC #0. S| 00000E80: 54 41 20 42 42 42 31 30 30 2B 31 0D 0D 20 20 20 |TA BBB100+1.. | 00000E90: 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 | SEC. | 00000EA0: 20 20 20 4C 44 41 20 24 46 45 0D 20 20 20 20 20 | LDA $FE. | 00000EB0: 20 20 20 20 53 42 43 20 23 31 0D 20 20 20 20 20 | SBC #1. | 00000EC0: 20 20 20 20 53 54 41 20 24 46 45 0D 20 20 20 20 | STA $FE. | 00000ED0: 20 20 20 20 20 4C 44 41 20 24 46 46 0D 20 20 20 | LDA $FF. | 00000EE0: 20 20 20 20 20 20 53 42 43 20 23 30 0D 20 20 20 | SBC #0. | 00000EF0: 20 20 20 20 20 20 53 54 41 20 24 46 46 0D 0D 0D | STA $FF...| 00000F00: 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 46 45 | LDA $FE| 00000F10: 0D 20 20 20 20 20 20 20 20 20 50 48 41 0D 20 20 |. PHA. | 00000F20: 20 20 20 20 20 20 20 4C 44 41 20 24 46 46 0D 20 | LDA $FF. | 00000F30: 20 20 20 20 20 20 20 20 50 48 41 0D 41 41 41 31 | PHA.AAA1| 00000F40: 30 30 30 20 20 4C 44 59 20 23 24 30 31 0D 20 20 |000 LDY #$01. | 00000F50: 20 20 20 20 20 20 20 4C 44 41 20 28 24 46 45 29 | LDA ($FE)| 00000F60: 2C 59 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |,Y. LDY | 00000F70: 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 53 54 |#$00. ST| 00000F80: 41 20 28 24 46 45 29 2C 59 0D 20 20 20 20 20 20 |A ($FE),Y. | 00000F90: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 | CLC. | 00000FA0: 4C 44 41 20 24 46 45 0D 20 20 20 20 20 20 20 20 |LDA $FE. | 00000FB0: 20 41 44 43 20 23 31 0D 20 20 20 20 20 20 20 20 | ADC #1. | 00000FC0: 20 53 54 41 20 24 46 45 0D 20 20 20 20 20 20 20 | STA $FE. | 00000FD0: 20 20 4C 44 41 20 24 46 46 0D 20 20 20 20 20 20 | LDA $FF. | 00000FE0: 20 20 20 41 44 43 20 23 30 0D 20 20 20 20 20 20 | ADC #0. | 00000FF0: 20 20 20 53 54 41 20 24 46 46 0D 20 20 20 20 20 | STA $FF. | 00001000: 20 20 20 20 43 4D 50 20 42 42 42 31 30 30 2B 31 | CMP BBB100+1| 00001010: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 42 42 |. BEQ BB| 00001020: 42 31 30 31 0D 20 20 20 20 20 20 20 20 20 4A 4D |B101. JM| 00001030: 50 20 41 41 41 31 30 30 30 0D 0D 42 42 42 31 30 |P AAA1000..BBB10| 00001040: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 |1. LDA $| 00001050: 46 45 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 |FE. CMP | 00001060: 42 42 42 31 30 30 0D 20 20 20 20 20 20 20 20 20 |BBB100. | 00001070: 42 4E 45 20 41 41 41 31 30 30 30 0D 0D 0D 20 20 |BNE AAA1000... | 00001080: 20 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 | PLA. | 00001090: 20 20 20 20 53 54 41 20 24 46 46 0D 20 20 20 20 | STA $FF. | 000010A0: 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 20 | PLA. | 000010B0: 20 20 53 54 41 20 24 46 45 0D 0D 20 20 20 20 20 | STA $FE.. | 000010C0: 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 20 20 | SEC. | 000010D0: 20 4C 44 41 20 42 42 42 31 30 30 0D 20 20 20 20 | LDA BBB100. | 000010E0: 20 20 20 20 20 53 42 43 20 23 32 0D 20 20 20 20 | SBC #2. | 000010F0: 20 20 20 20 20 53 54 41 20 42 42 42 31 30 30 0D | STA BBB100.| 00001100: 20 20 20 20 20 20 20 20 20 4C 44 41 20 42 42 42 | LDA BBB| 00001110: 31 30 30 2B 31 0D 20 20 20 20 20 20 20 20 20 53 |100+1. S| 00001120: 42 43 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 |BC #0. S| 00001130: 54 41 20 42 42 42 31 30 30 2B 31 0D 0D 0D 20 20 |TA BBB100+1... | 00001140: 20 20 20 20 20 20 20 4C 44 41 20 42 42 42 31 30 | LDA BBB10| 00001150: 30 2B 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 |0+1. STA| 00001160: 20 24 46 44 0D 20 20 20 20 20 20 20 20 20 4C 44 | $FD. LD| 00001170: 41 20 42 42 42 31 30 30 0D 20 20 20 20 20 20 20 |A BBB100. | 00001180: 20 20 53 54 41 20 24 46 43 0D 20 20 20 20 20 20 | STA $FC. | 00001190: 20 20 20 4C 44 59 20 23 24 30 30 0D 20 20 20 20 | LDY #$00. | 000011A0: 20 20 20 20 20 4C 44 41 20 23 53 4C 55 54 54 31 | LDA #SLUTT1| 000011B0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 28 24 |. STA ($| 000011C0: 46 43 29 2C 59 0D 20 20 20 20 20 20 20 20 20 4C |FC),Y. L| 000011D0: 44 59 20 23 24 30 32 0D 20 20 20 20 20 20 20 20 |DY #$02. | 000011E0: 20 4C 44 41 20 23 24 32 30 0D 20 20 20 20 20 20 | LDA #$20. | 000011F0: 20 20 20 53 54 41 20 28 24 46 43 29 2C 59 0D 0D | STA ($FC),Y..| 00001200: 20 20 20 20 20 20 20 20 20 4A 53 52 20 41 53 45 | JSR ASE| 00001210: 54 53 43 4C 0D 0D 20 20 20 20 20 20 20 20 20 4A |TSCL.. J| 00001220: 4D 50 20 42 42 42 0D 0D 0D 42 42 42 33 30 32 0D |MP BBB...BBB302.| 00001230: 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 46 45 | LDA $FE| 00001240: 0D 20 20 20 20 20 20 20 20 20 50 48 41 0D 20 20 |. PHA. | 00001250: 20 20 20 20 20 20 20 4C 44 41 20 24 46 46 0D 20 | LDA $FF. | 00001260: 20 20 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 | PHA. | 00001270: 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 20 | SEC. | 00001280: 20 20 4C 44 41 20 24 46 45 0D 20 20 20 20 20 20 | LDA $FE. | 00001290: 20 20 20 53 42 43 20 23 31 0D 20 20 20 20 20 20 | SBC #1. | 000012A0: 20 20 20 53 54 41 20 24 46 45 0D 20 20 20 20 20 | STA $FE. | 000012B0: 20 20 20 20 4C 44 41 20 24 46 46 0D 20 20 20 20 | LDA $FF. | 000012C0: 20 20 20 20 20 53 42 43 20 23 30 0D 20 20 20 20 | SBC #0. | 000012D0: 20 20 20 20 20 53 54 41 20 24 46 46 0D 0D 20 20 | STA $FF.. | 000012E0: 20 20 20 20 20 20 20 4C 44 41 20 42 42 42 31 30 | LDA BBB10| 000012F0: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |0. STA $| 00001300: 46 43 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |FC. LDA | 00001310: 42 42 42 31 30 30 2B 31 0D 20 20 20 20 20 20 20 |BBB100+1. | 00001320: 20 20 53 54 41 20 24 46 44 0D 42 42 42 34 30 35 | STA $FD.BBB405| 00001330: 20 20 20 4C 44 59 20 23 24 30 30 0D 20 20 20 20 | LDY #$00. | 00001340: 20 20 20 20 20 4C 44 41 20 28 24 46 43 29 2C 59 | LDA ($FC),Y| 00001350: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 |. LDY #$| 00001360: 30 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |01. STA | 00001370: 28 24 46 43 29 2C 59 0D 20 20 20 20 20 20 20 20 |($FC),Y. | 00001380: 20 53 45 43 0D 20 20 20 20 20 20 20 20 20 4C 44 | SEC. LD| 00001390: 41 20 24 46 43 0D 20 20 20 20 20 20 20 20 20 53 |A $FC. S| 000013A0: 42 43 20 23 31 0D 20 20 20 20 20 20 20 20 20 53 |BC #1. S| 000013B0: 54 41 20 24 46 43 0D 20 20 20 20 20 20 20 20 20 |TA $FC. | 000013C0: 4C 44 41 20 24 46 44 0D 20 20 20 20 20 20 20 20 |LDA $FD. | 000013D0: 20 53 42 43 20 23 30 0D 20 20 20 20 20 20 20 20 | SBC #0. | 000013E0: 20 53 54 41 20 24 46 44 0D 20 20 20 20 20 20 20 | STA $FD. | 000013F0: 20 20 4C 44 41 20 24 46 43 0D 20 20 20 20 20 20 | LDA $FC. | 00001400: 20 20 20 43 4D 50 20 24 46 45 0D 20 20 20 20 20 | CMP $FE. | 00001410: 20 20 20 20 42 45 51 20 42 42 42 34 30 34 0D 20 | BEQ BBB404. | 00001420: 20 20 20 20 20 20 20 20 4A 4D 50 20 42 42 42 34 | JMP BBB4| 00001430: 30 35 0D 0D 0D 0D 0D 42 42 42 34 30 34 20 20 20 |05.....BBB404 | 00001440: 4C 44 41 20 24 46 44 0D 20 20 20 20 20 20 20 20 |LDA $FD. | 00001450: 20 43 4D 50 20 24 46 46 0D 20 20 20 20 20 20 20 | CMP $FF. | 00001460: 20 20 42 4E 45 20 42 42 42 34 30 35 0D 0D 20 20 | BNE BBB405.. | 00001470: 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 | CLC. | 00001480: 20 20 20 20 4C 44 41 20 42 42 42 31 30 30 0D 20 | LDA BBB100. | 00001490: 20 20 20 20 20 20 20 20 41 44 43 20 23 31 0D 20 | ADC #1. | 000014A0: 20 20 20 20 20 20 20 20 53 54 41 20 42 42 42 31 | STA BBB1| 000014B0: 30 30 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |00. LDA | 000014C0: 42 42 42 31 30 30 2B 31 0D 20 20 20 20 20 20 20 |BBB100+1. | 000014D0: 20 20 41 44 43 20 23 30 0D 20 20 20 20 20 20 20 | ADC #0. | 000014E0: 20 20 53 54 41 20 42 42 42 31 30 30 2B 31 0D 20 | STA BBB100+1. | 000014F0: 20 20 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 | PLA. | 00001500: 20 20 20 20 20 53 54 41 20 24 46 46 0D 20 20 20 | STA $FF. | 00001510: 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 | PLA. | 00001520: 20 20 20 53 54 41 20 24 46 45 0D 0D 20 20 20 20 | STA $FE.. | 00001530: 20 20 20 20 20 4C 44 59 20 23 24 30 30 0D 20 20 | LDY #$00. | 00001540: 20 20 20 20 20 20 20 4C 44 41 20 23 24 32 30 0D | LDA #$20.| 00001550: 20 20 20 20 20 20 20 20 20 53 54 41 20 28 24 46 | STA ($F| 00001560: 45 29 2C 59 0D 0D 20 20 20 20 20 20 20 20 20 4A |E),Y.. J| 00001570: 53 52 20 41 53 45 54 53 43 4C 0D 20 20 20 20 20 |SR ASETSCL. | 00001580: 20 20 20 20 4A 4D 50 20 42 42 42 0D 0D 42 42 42 | JMP BBB..BBB| 00001590: 36 31 35 20 20 20 4C 44 58 20 23 24 46 34 0D 20 |615 LDX #$F4. | 000015A0: 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 30 | LDY #$00| 000015B0: 0D 42 42 42 39 30 30 20 20 20 49 4E 59 0D 20 20 |.BBB900 INY. | 000015C0: 20 20 20 20 20 20 20 42 4E 45 20 42 42 42 39 30 | BNE BBB90| 000015D0: 30 0D 20 20 20 20 20 20 20 20 20 49 4E 58 0D 20 |0. INX. | 000015E0: 20 20 20 20 20 20 20 20 42 4E 45 20 42 42 42 39 | BNE BBB9| 000015F0: 30 30 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 |00. JMP | 00001600: 42 42 42 31 35 41 0D 42 42 42 31 35 42 0D 20 20 |BBB15A.BBB15B. | 00001610: 20 20 20 20 20 20 20 4C 44 41 20 24 43 35 0D 20 | LDA $C5. | 00001620: 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 30 34 | CMP #$04| 00001630: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 42 42 |. BEQ BB| 00001640: 42 36 31 35 0D 42 42 42 31 37 41 20 20 20 4A 4D |B615.BBB17A JM| 00001650: 50 20 42 42 42 0D 0D 0D 0D 42 42 42 31 35 41 20 |P BBB....BBB15A | 00001660: 20 20 4C 44 41 20 24 46 46 0D 20 20 20 20 20 20 | LDA $FF. | 00001670: 20 20 20 43 4D 50 20 42 42 42 31 30 30 2B 31 0D | CMP BBB100+1.| 00001680: 20 20 20 20 20 20 20 20 20 42 4E 45 20 42 42 42 | BNE BBB| 00001690: 32 30 41 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |20A. LDA| 000016A0: 20 24 46 45 0D 20 20 20 20 20 20 20 20 20 43 4D | $FE. CM| 000016B0: 50 20 42 42 42 31 30 30 0D 20 20 20 20 20 20 20 |P BBB100. | 000016C0: 20 20 42 45 51 20 42 42 42 31 37 41 0D 42 42 42 | BEQ BBB17A.BBB| 000016D0: 32 30 41 20 20 20 43 4C 43 0D 20 20 20 20 20 20 |20A CLC. | 000016E0: 20 20 20 4C 44 41 20 24 46 45 0D 20 20 20 20 20 | LDA $FE. | 000016F0: 20 20 20 20 41 44 43 20 23 31 0D 20 20 20 20 20 | ADC #1. | 00001700: 20 20 20 20 53 54 41 20 24 46 45 0D 20 20 20 20 | STA $FE. | 00001710: 20 20 20 20 20 4C 44 41 20 24 46 46 0D 20 20 20 | LDA $FF. | 00001720: 20 20 20 20 20 20 41 44 43 20 23 30 0D 20 20 20 | ADC #0. | 00001730: 20 20 20 20 20 20 53 54 41 20 24 46 46 0D 20 20 | STA $FF. | 00001740: 20 20 20 20 20 20 20 4A 53 52 20 41 53 45 54 53 | JSR ASETS| 00001750: 43 4C 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 |CL. JMP | 00001760: 42 42 42 31 35 42 0D 0D 0D 0D 42 42 42 31 35 41 |BBB15B....BBB15A| 00001770: 45 0D 42 42 42 31 33 54 20 20 20 4C 44 41 20 24 |E.BBB13T LDA $| 00001780: 46 46 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 |FF. CMP | 00001790: 23 3E 54 45 58 54 31 0D 20 20 20 20 20 20 20 20 |#>TEXT1. | 000017A0: 20 42 4E 45 20 42 42 42 31 36 54 0D 20 20 20 20 | BNE BBB16T. | 000017B0: 20 20 20 20 20 4C 44 41 20 24 46 45 0D 20 20 20 | LDA $FE. | 000017C0: 20 20 20 20 20 20 43 4D 50 20 23 3C 54 45 58 54 | CMP #<TEXT| 000017D0: 31 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 42 |1. BEQ B| 000017E0: 42 42 31 37 54 0D 42 42 42 31 36 54 20 20 20 53 |BB17T.BBB16T S| 000017F0: 45 43 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |EC. LDA | 00001800: 24 46 45 0D 20 20 20 20 20 20 20 20 20 53 42 43 |$FE. SBC| 00001810: 20 23 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 | #1. STA| 00001820: 20 24 46 45 0D 20 20 20 20 20 20 20 20 20 4C 44 | $FE. LD| 00001830: 41 20 24 46 46 0D 20 20 20 20 20 20 20 20 20 53 |A $FF. S| 00001840: 42 43 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 |BC #0. S| 00001850: 54 41 20 24 46 46 0D 20 20 20 20 20 20 20 20 20 |TA $FF. | 00001860: 4A 53 52 20 41 53 45 54 53 43 4C 0D 20 20 20 20 |JSR ASETSCL. | 00001870: 20 20 20 20 20 4A 4D 50 20 42 42 42 39 39 39 0D | JMP BBB999.| 00001880: 0D 42 42 42 31 37 54 20 20 20 4A 4D 50 20 42 42 |.BBB17T JMP BB| 00001890: 42 0D 0D 42 42 42 39 39 38 0D 42 42 42 36 31 35 |B..BBB998.BBB615| 000018A0: 45 20 20 4C 44 58 20 23 24 46 34 0D 20 20 20 20 |E LDX #$F4. | 000018B0: 20 20 20 20 20 4C 44 59 20 23 24 30 30 0D 42 42 | LDY #$00.BB| 000018C0: 42 39 30 30 45 20 20 49 4E 59 0D 20 20 20 20 20 |B900E INY. | 000018D0: 20 20 20 20 42 4E 45 20 42 42 42 39 30 30 45 0D | BNE BBB900E.| 000018E0: 20 20 20 20 20 20 20 20 20 49 4E 58 0D 20 20 20 | INX. | 000018F0: 20 20 20 20 20 20 42 4E 45 20 42 42 42 39 30 30 | BNE BBB900| 00001900: 45 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 42 |E. JMP B| 00001910: 42 42 31 35 41 45 0D 42 42 42 39 39 39 0D 42 42 |BB15AE.BBB999.BB| 00001920: 42 31 35 42 45 0D 20 20 20 20 20 20 20 20 20 4C |B15BE. L| 00001930: 44 41 20 24 43 35 0D 20 20 20 20 20 20 20 20 20 |DA $C5. | 00001940: 43 4D 50 20 23 24 30 35 0D 20 20 20 20 20 20 20 |CMP #$05. | 00001950: 20 20 42 45 51 20 42 42 42 36 31 35 45 0D 42 42 | BEQ BBB615E.BB| 00001960: 42 31 37 41 45 20 20 4A 4D 50 20 42 42 42 0D 0D |B17AE JMP BBB..|
... *= $1000......TEXT1 = $04
00 ;PLACE TEXT..LINE1 = 20 ;LI
NE TO EDIT TEXT..COLOR11 = 7 ;LIN
E COLOUR..COLOR21 = 1 ;CURSOR COL
OUR..STARTT1 = $3E ;STARTMARK '>'.S
LUTT1 = $3C ;END MARK '<'..SLUTT1
EGN = 0 ;END BYTE (0/ZERO)..SCROLL1
= *. LDA #$1E. STA $04
00+20+(40*LINE1)+40. LDY #$00.
LDA #COLOR11.BBB200 STA $D800+(
40*LINE1),Y. INY. CPY #4
0. BNE BBB200. LDA #COLO
R21. STA $D800+(40*LINE1)+20.
STA $D800+(40*LINE1)+60....
LDA #<TEXT1. STA $FE.
STA BBB100. LDA #>TEXT1.
STA $FF. STA BBB100+1.
LDA #$00. STA $D020. STA
$D021. LDA #SLUTT1. STA
TEXT1. LDA #STARTT1. ST
A TEXT1-1.. JSR ASETSCL...BBB
JSR $FFE4. BEQ BBB. C
MP #".". BEQ BBB14. CMP
#".". BEQ BBB77. CMP #$0
D. BEQ SLUT. CMP #".".
BEQ BBB12. CMP #".".
BEQ BBB201. CMP #".".
BEQ BBB202. CMP #".".
BEQ BBB560. CMP #193. BC
S BBB3. CMP #161. BCS BB
B1. CMP #128. BCS BBB.
CMP #64. BCS BBB4.
CMP #32. BCC BBB.BBB2 JMP
BBB5..BBB77 JMP BBB998.BBB560 JMP B
BB615.BBB201 JMP BBB301.BBB202 JMP B
BB302..SLUT LDY #$00. LDA BB
B100. STA $FE. LDA BBB10
0+1. STA $FF. LDA #SLUTT
1EGN. STA ($FE),Y. RTS..
BBB1 SEC. SBC #161-97.
JMP BBB2..BBB3 SEC. SBC #
128. JMP BBB2..BBB4 SEC.
SBC #$40. JMP BBB2..BBB12
JMP BBB13..BBB14 JMP BBB15...BBB5.
LDY #$00. STA ($FE),Y..
LDA BBB100+1. STA $FD.
LDA BBB100. STA $FC.
LDY #$01. LDA #SLUTT1.
STA ($FC),Y. LDY #$02.
LDA #$20. STA ($FC),Y....
CLC. LDA $FE. ADC #1
. STA $FE. LDA $FF.
ADC #0. STA $FF. LDA
$FF. CMP BBB100+1. BEQ
BBB23. BCS BBB22.BBB21 JSR AS
ETSCL. JMP BBB..BBB22 LDA $FE
. STA BBB100. LDA $FF.
STA BBB100+1. JMP BBB21..
BBB23 LDA $FE. CMP BBB100.
BCS BBB22. JMP BBB21....BB
B13 LDA $FF. CMP #>TEXT1.
BNE BBB16. LDA $FE.
CMP #<TEXT1. BEQ BBB17.BBB16
SEC. LDA $FE. SBC #1.
STA $FE. LDA $FF.
SBC #0. STA $FF. JSR AS
ETSCL. JMP BBB..BBB17 JMP BBB
..BBB15 LDA $FF. CMP BBB100+1
. BNE BBB20. LDA $FE.
CMP BBB100. BEQ BBB17.BBB2
0 CLC. LDA $FE. ADC #
1. STA $FE. LDA $FF.
ADC #0. STA $FF. JS
R ASETSCL. JMP BBB...BBB550 .B
YTE 0..BBB515 ;HER.
JMP BBB615..BBB100. .BYTE $00,$
00....ASETSCL = *. SEC.
LDA $FE. SBC #20. STA $
FE. LDA $FF. SBC #0.
STA $FF. LDY #$00.BBB7
LDA ($FE),Y.. STA $0400+(LINE1*4
0),Y. INY. CPY #40.
BNE BBB7. CLC. LDA $
FE. ADC #20. STA $FE.
LDA $FF. ADC #0. S
TA $FF. RTS.BBB401 JMP BBB..BB
B400. LDA $FF. CMP #>TEX
T1. BEQ BBB401. JMP BBB4
02.BBB301. LDA $FE. CMP
#<TEXT1. BEQ BBB400.BBB402.
CLC. LDA BBB100. ADC
#1. STA BBB100. LDA BBB
100+1. ADC #0. STA BBB10
0+1.. SEC. LDA $FE.
SBC #1. STA $FE. LDA
$FF. SBC #0. STA $FF...
LDA $FE. PHA. L
DA $FF. PHA.AAA1000 LDY #$01.
LDA ($FE),Y. LDY #$00.
STA ($FE),Y. CLC.
LDA $FE. ADC #1. STA $FE
. LDA $FF. ADC #0.
STA $FF. CMP BBB100+1.
BEQ BBB101. JMP AAA1000..BBB10
1. LDA $FE. CMP BBB100.
BNE AAA1000... PLA.
STA $FF. PLA. STA $F
E.. SEC. LDA BBB100.
SBC #2. STA BBB100.
LDA BBB100+1. SBC #0. S
TA BBB100+1... LDA BBB100+1.
STA $FD. LDA BBB100.
STA $FC. LDY #$00. LDA
#SLUTT1. STA ($FC),Y. L
DY #$02. LDA #$20. STA (
$FC),Y.. JSR ASETSCL.. J
MP BBB...BBB302. LDA $FE.
PHA. LDA $FF. PHA.
SEC. LDA $FE. SBC #
1. STA $FE. LDA $FF.
SBC #0. STA $FF.. L
DA BBB100. STA $FC. LDA
BBB100+1. STA $FD.BBB405 LDY #
$00. LDA ($FC),Y. LDY #$
01. STA ($FC),Y. SEC.
LDA $FC. SBC #1. S
TA $FC. LDA $FD. SBC #0.
STA $FD. LDA $FC.
CMP $FE. BEQ BBB404.
JMP BBB405.....BBB404 LDA $FD.
CMP $FF. BNE BBB405.. C
LC. LDA BBB100. ADC #1.
STA BBB100. LDA BBB100+1
. ADC #0. STA BBB100+1.
PLA. STA $FF. PL
A. STA $FE.. LDY #$00.
LDA #$20. STA ($FE),Y..
JSR ASETSCL. JMP BBB..BBB
615 LDX #$F4. LDY #$00.BBB900
INY. BNE BBB900. INX.
BNE BBB900. JMP BBB15A.B
BB15B. LDA $C5. CMP #$04
. BEQ BBB615.BBB17A JMP BBB...
.BBB15A LDA $FF. CMP BBB100+1.
BNE BBB20A. LDA $FE.
CMP BBB100. BEQ BBB17A.BBB
20A CLC. LDA $FE. ADC
#1. STA $FE. LDA $FF.
ADC #0. STA $FF. J
SR ASETSCL. JMP BBB15B....BBB15A
E.BBB13T LDA $FF. CMP #>TEXT1.
BNE BBB16T. LDA $FE.
CMP #<TEXT1. BEQ BBB17T.BB
B16T SEC. LDA $FE. SBC
#1. STA $FE. LDA $FF.
SBC #0. STA $FF.
JSR ASETSCL. JMP BBB999..BBB17T
JMP BBB..BBB998.BBB615E LDX #$F4.
LDY #$00.BBB900E INY. BNE
BBB900E. INX. BNE BBB900
E. JMP BBB15AE.BBB999.BBB15BE.
LDA $C5. CMP #$05.
BEQ BBB615E.BBB17AE JMP BBB..
> CLICK IMAGE PREVIEW FOR FULL MODAL