MOVE80F

FILE INFORMATION

FILENAME(S): MOVE80F

FILE TYPE(S): PRG

FILE SIZE: 2.5K

FIRST SEEN: 2025-11-30 16:45:36

APPEARS ON: 1 disk(s)

FILE HASH

5c99cb85fcf9214279e3be9f94dfaa44d405a84caf87db9275db9edf18b42afa

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TALENTED RULERZ	MOVE80F	PRG	High Voltage Complete C64 Collection	26	4	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1B 08 64 00 9F 32  2C 38 2C 31 2C 22 30 3A  |....d..2,8,1,"0:|
00000010: 4D 4F 56 45 38 30 46 2E  4D 4C 22 00 24 08 6E 00  |MOVE80F.ML".$.n.|
00000020: 9E 37 30 30 00 32 08 78  00 2E 4F 50 54 20 50 2C  |.700.2.x..OPT P,|
00000030: 4F 32 00 3E 08 82 00 AC  B2 24 39 45 33 34 00 66  |O2.>.....$9E34.f|
00000040: 08 87 00 3B AC AC AC 20  50 52 4F 54 45 43 54 20  |...;... PROTECT |
00000050: 4D 4C 20 46 52 4F 4D 20  42 41 53 49 43 20 56 41  |ML FROM BASIC VA|
00000060: 52 53 20 AC AC AC 00 8C  08 8C 00 50 52 54 43 54  |RS ........PRTCT|
00000070: 20 4C 44 41 20 23 B3 50  52 54 43 54 AB 31 3A 4C  | LDA #.PRTCT.1:L|
00000080: 44 58 20 23 B1 50 52 54  43 54 AB 31 00 A8 08 96  |DX #.PRTCT.1....|
00000090: 00 3A 20 20 20 20 20 53  54 41 20 35 35 3A 53 54  |.:     STA 55:ST|
000000A0: 58 20 35 36 3A 52 54 53  00 CE 08 9B 00 3B AC AC  |X 56:RTS.....;..|
000000B0: AC 20 41 43 54 55 41 4C  20 43 4F 44 45 20 81 20  |. ACTUAL CODE . |
000000C0: 54 52 41 4E 53 46 45 52  53 20 20 AC AC AC 00 F2  |TRANSFERS  .....|
000000D0: 08 9C 00 3B AC AC AC 20  A1 20 50 41 52 41 4D 45  |...;... . PARAME|
000000E0: 54 45 52 53 20 46 52 4F  4D 20 9E 20 20 20 20 AC  |TERS FROM .    .|
000000F0: AC AC 00 1A 09 9D 00 3B  AC AC AC 20 20 20 20 20  |.......;...     |
00000100: 20 20 20 20 20 53 59 4E  54 41 58 20 B2 20 20 20  |     SYNTAX .   |
00000110: 20 20 20 20 20 20 20 AC  AC AC 00 40 09 9E 00 3B  |       ....@...;|
00000120: AC AC AC 20 9E 34 30 35  30 39 2C 4D 4F 44 45 2C  |... .40509,MODE,|
00000130: 56 44 43 2C 41 44 2C 4C  45 20 20 20 20 AC AC AC  |VDC,AD,LE    ...|
00000140: 00 65 09 A0 00 49 53 54  52 54 20 4A 53 52 20 46  |.e...ISTRT JSR F|
00000150: 41 53 54 30 3A 4A 53 52  20 B5 58 50 3A 43 4D 50  |AST0:JSR .XP:CMP|
00000160: 20 23 24 30 30 00 8C 09  A5 00 3A 20 20 20 20 20  | #$00.....:     |
00000170: 42 4E 45 20 45 52 52 4A  50 3A 53 54 58 20 52 57  |BNE ERRJP:STX RW|
00000180: 46 4C 47 3A 43 50 58 20  23 24 30 30 00 B0 09 AA  |FLG:CPX #$00....|
00000190: 00 3A 20 20 20 20 20 42  4E 45 20 49 53 54 30 31  |.:     BNE IST01|
000001A0: 3A 4A 53 52 20 B5 58 50  3A 53 54 58 20 43 43 43  |:JSR .XP:STX CCC|
000001B0: 00 D4 09 B4 00 3A 20 20  20 20 20 53 54 41 20 43  |.....:     STA C|
000001C0: 43 43 AA 31 3A 4A 53 52  20 B5 58 50 3A 53 54 58  |CC.1:JSR .XP:STX|
000001D0: 20 41 41 41 00 F2 09 BE  00 3A 20 20 20 20 20 53  | AAA.....:     S|
000001E0: 54 41 20 41 41 41 AA 31  3A 4A 4D 50 20 49 53 54  |TA AAA.1:JMP IST|
000001F0: 30 32 00 18 0A C3 00 3B  AC AC AC 20 53 59 4E 54  |02.....;... SYNT|
00000200: 41 58 20 45 52 52 B0 20  8B 20 52 57 46 4C 47 B1  |AX ERR. . RWFLG.|
00000210: 32 35 35 20 20 AC AC AC  00 2C 0A D2 00 45 52 52  |255  ....,...ERR|
00000220: 4A 50 20 4A 4D 50 20 24  41 46 30 38 00 50 0A DC  |JP JMP $AF08.P..|
00000230: 00 49 53 54 30 31 20 4A  53 52 20 B5 58 50 3A 53  |.IST01 JSR .XP:S|
00000240: 54 58 20 41 41 41 3A 53  54 41 20 41 41 41 AA 31  |TX AAA:STA AAA.1|
00000250: 00 74 0A E6 00 3A 20 20  20 20 20 4A 53 52 20 B5  |.t...:     JSR .|
00000260: 58 50 3A 53 54 58 20 43  43 43 3A 53 54 41 20 43  |XP:STX CCC:STA C|
00000270: 43 43 AA 31 00 98 0A F0  00 49 53 54 30 32 20 4A  |CC.1.....IST02 J|
00000280: 53 52 20 B5 58 50 3A 53  54 58 20 42 42 42 3A 53  |SR .XP:STX BBB:S|
00000290: 54 41 20 42 42 42 AA 31  00 C0 0A FA 00 3A 20 20  |TA BBB.1.....:  |
000002A0: 20 20 20 4C 44 41 20 42  42 42 3A 4C 44 58 20 42  |   LDA BBB:LDX B|
000002B0: 42 42 AA 31 3A 43 4C 43  3A 41 44 43 20 41 41 41  |BB.1:CLC:ADC AAA|
000002C0: 00 E4 0A 04 01 3A 20 20  20 20 20 54 41 59 3A 54  |.....:     TAY:T|
000002D0: 58 41 3A 41 44 43 20 41  41 41 AA 31 3A 54 41 58  |XA:ADC AAA.1:TAX|
000002E0: 3A 54 59 41 00 00 0B 0E  01 3A 20 20 20 20 20 53  |:TYA.....:     S|
000002F0: 54 41 20 42 42 42 3A 53  54 58 20 42 42 42 AA 31  |TA BBB:STX BBB.1|
00000300: 00 24 0B 18 01 53 54 41  52 54 20 4C 44 41 20 41  |.$...START LDA A|
00000310: 41 41 3A 4C 44 58 20 41  41 41 AA 31 3A 4A 4D 50  |AA:LDX AAA.1:JMP|
00000320: 20 A1 44 41 00 48 0B 22  01 43 48 4B 30 31 20 4C  | .DA.H.".CHK01 L|
00000330: 44 41 20 44 44 44 3A 4C  44 58 20 44 44 44 AA 31  |DA DDD:LDX DDD.1|
00000340: 3A 53 54 41 20 24 32 32  00 6C 0B 2C 01 3A 20 20  |:STA $22.l.,.:  |
00000350: 20 20 20 53 54 58 20 24  32 33 3A 4C 44 41 20 42  |   STX $23:LDA B|
00000360: 42 42 3A 4C 44 58 20 42  42 42 AA 31 00 92 0B 36  |BB:LDX BBB.1...6|
00000370: 01 3A 20 20 20 20 20 43  50 58 20 24 32 33 3A 42  |.:     CPX $23:B|
00000380: 45 51 20 43 48 4B 30 32  3A 42 43 53 20 41 44 44  |EQ CHK02:BCS ADD|
00000390: 30 31 00 A6 0B 40 01 3A  20 20 20 20 20 42 43 43  |01...@.:     BCC|
000003A0: 20 4A 45 58 49 54 00 CC  0B 4A 01 43 48 4B 30 32  | JEXIT...J.CHK02|
000003B0: 20 43 4D 50 20 24 32 32  3A 42 45 51 20 4A 45 58  | CMP $22:BEQ JEX|
000003C0: 49 54 3A 42 43 53 20 41  44 44 30 31 00 F1 0B 54  |IT:BCS ADD01...T|
000003D0: 01 4A 45 58 49 54 20 4C  44 41 20 52 57 46 4C 47  |.JEXIT LDA RWFLG|
000003E0: 3A 43 4D 50 20 23 33 3A  42 4E 45 20 52 45 58 49  |:CMP #3:BNE REXI|
000003F0: 54 00 05 0C 5E 01 3A 20  20 20 20 20 4A 4D 50 20  |T...^.:     JMP |
00000400: 46 49 58 30 31 00 19 0C  68 01 52 45 58 49 54 20  |FIX01...h.REXIT |
00000410: 4A 4D 50 20 46 49 58 30  32 00 3F 0C 72 01 41 44  |JMP FIX02.?.r.AD|
00000420: 44 30 31 20 4C 44 41 20  44 44 44 3A 4C 44 58 20  |D01 LDA DDD:LDX |
00000430: 44 44 44 AA 31 3A 4A 53  52 20 41 44 44 30 32 00  |DDD.1:JSR ADD02.|
00000440: 63 0C 7C 01 A1 44 41 20  53 54 41 20 44 44 44 3A  |c.|..DA STA DDD:|
00000450: 53 54 58 20 44 44 44 AA  31 3A 4C 44 41 20 52 57  |STX DDD.1:LDA RW|
00000460: 46 4C 47 00 82 0C 86 01  3A 20 20 20 20 20 43 4D  |FLG.....:     CM|
00000470: 50 20 23 31 3A 42 45 51  20 9A 31 3A 43 4D 50 20  |P #1:BEQ .1:CMP |
00000480: 23 33 00 96 0C 90 01 3A  20 20 20 20 20 42 4E 45  |#3.....:     BNE|
00000490: 20 50 55 54 44 41 00 B4  0C 9A 01 9A 31 20 4A 53  | PUTDA......1 JS|
000004A0: 52 20 A1 44 30 3A 53 54  41 20 83 31 3A 4C 44 41  |R .D0:STA .1:LDA|
000004B0: 20 43 43 43 00 D8 0C A4  01 3A 20 20 20 20 20 4C  | CCC.....:     L|
000004C0: 44 58 20 43 43 43 AA 31  3A 53 54 41 20 24 32 32  |DX CCC.1:STA $22|
000004D0: 3A 53 54 58 20 24 32 33  00 FC 0C AE 01 3A 20 20  |:STX $23.....:  |
000004E0: 20 20 20 4C 44 41 20 83  31 3A 4C 44 59 20 23 30  |   LDA .1:LDY #0|
000004F0: 3A 53 54 41 20 28 24 32  32 29 2C 59 00 10 0D B8  |:STA ($22),Y....|
00000500: 01 3A 20 20 20 20 20 4A  4D 50 20 44 41 58 49 54  |.:     JMP DAXIT|
00000510: 00 34 0D C2 01 50 55 54  44 41 20 4C 44 41 20 44  |.4...PUTDA LDA D|
00000520: 44 44 3A 4C 44 58 20 44  44 44 AA 31 3A 53 54 41  |DD:LDX DDD.1:STA|
00000530: 20 24 32 32 00 54 0D CC  01 3A 20 20 20 20 20 53  | $22.T...:     S|
00000540: 54 58 20 24 32 33 3A 4C  44 58 20 23 30 3A 4C 44  |TX $23:LDX #0:LD|
00000550: 59 20 23 30 00 79 0D D6  01 3A 20 20 20 20 20 4C  |Y #0.y...:     L|
00000560: 44 41 20 28 24 32 32 29  2C 59 3A 53 54 41 20 83  |DA ($22),Y:STA .|
00000570: 31 3A 4C 44 41 20 43 43  43 00 97 0D E0 01 3A 20  |1:LDA CCC.....: |
00000580: 20 20 20 20 4C 44 58 20  43 43 43 AA 31 3A 4A 53  |    LDX CCC.1:JS|
00000590: 52 20 50 55 54 44 30 00  B5 0D EA 01 44 41 58 49  |R PUTD0.....DAXI|
000005A0: 54 20 4A 53 52 20 41 44  44 43 43 3A 4A 4D 50 20  |T JSR ADDCC:JMP |
000005B0: 43 48 4B 30 31 00 D2 0D  F4 01 41 44 44 30 32 20  |CHK01.....ADD02 |
000005C0: 43 4C 43 3A 41 44 43 20  23 31 3A 54 41 59 3A 54  |CLC:ADC #1:TAY:T|
000005D0: 58 41 00 EF 0D FE 01 3A  20 20 20 20 20 41 44 43  |XA.....:     ADC|
000005E0: 20 23 30 3A 54 41 58 3A  54 59 41 3A 52 54 53 00  | #0:TAX:TYA:RTS.|
000005F0: 0E 0E 08 02 97 31 20 4A  53 52 20 C2 32 3A 4A 53  |.....1 JSR .2:JS|
00000600: 52 20 53 45 54 4C 4F 3A  4C 44 41 20 83 31 00 26  |R SETLO:LDA .1.&|
00000610: 0E 12 02 3A 20 20 20 20  20 53 54 41 20 24 44 36  |...:     STA $D6|
00000620: 30 31 3A 52 54 53 00 45  0E 1C 02 92 31 20 4C 44  |01:RTS.E....1 LD|
00000630: 41 20 24 44 36 30 30 3A  AF 20 23 24 38 30 3A 42  |A $D600:. #$80:B|
00000640: 45 51 20 92 31 00 53 0E  26 02 3A 20 20 20 20 20  |EQ .1.S.&.:     |
00000650: 52 54 53 00 72 0E 30 02  C2 31 20 4A 53 52 20 C2  |RTS.r.0..1 JSR .|
00000660: 32 3A 4A 53 52 20 92 31  3A 4A 53 52 20 53 45 54  |2:JSR .1:JSR SET|
00000670: 4C 4F 00 8A 0E 3A 02 3A  20 20 20 20 20 4C 44 41  |LO...:.:     LDA|
00000680: 20 24 44 36 30 31 3A 52  54 53 00 AE 0E 44 02 53  | $D601:RTS...D.S|
00000690: 45 54 4C 4F 20 4C 44 41  20 83 32 3A 53 54 41 20  |ETLO LDA .2:STA |
000006A0: 24 44 36 30 31 3A 4C 44  41 20 23 24 31 46 00 C6  |$D601:LDA #$1F..|
000006B0: 0E 4E 02 3A 20 20 20 20  20 4A 53 52 20 53 54 44  |.N.:     JSR STD|
000006C0: 36 30 3A 52 54 53 00 E7  0E 58 02 C2 32 20 4C 44  |60:RTS...X..2 LD|
000006D0: 41 20 23 24 31 32 3A 4A  53 52 20 53 54 44 36 30  |A #$12:JSR STD60|
000006E0: 3A 4C 44 41 20 83 33 00  0E 0F 62 02 3A 20 20 20  |:LDA .3...b.:   |
000006F0: 20 20 53 54 41 20 24 44  36 30 31 3A 4C 44 41 20  |  STA $D601:LDA |
00000700: 23 24 31 33 3A 53 54 41  20 24 44 36 30 30 00 1C  |#$13:STA $D600..|
00000710: 0F 6C 02 3A 20 20 20 20  20 52 54 53 00 3D 0F 76  |.l.:     RTS.=.v|
00000720: 02 A1 44 30 20 4C 44 41  20 44 44 44 3A 4C 44 58  |..D0 LDA DDD:LDX|
00000730: 20 44 44 44 AA 31 3A 53  54 41 20 83 32 00 59 0F  | DDD.1:STA .2.Y.|
00000740: 80 02 3A 20 20 20 20 20  53 54 58 20 83 33 3A 4A  |..:     STX .3:J|
00000750: 53 52 20 C2 31 3A 52 54  53 00 78 0F 8A 02 50 55  |SR .1:RTS.x...PU|
00000760: 54 44 30 20 53 54 41 20  83 32 3A 53 54 58 20 83  |TD0 STA .2:STX .|
00000770: 33 3A 4A 53 52 20 97 31  00 86 0F 94 02 3A 20 20  |3:JSR .1.....:  |
00000780: 20 20 20 52 54 53 00 AC  0F 9E 02 B5 58 50 20 4A  |   RTS......XP J|
00000790: 53 52 20 24 41 45 46 44  3A 4A 53 52 20 24 41 44  |SR $AEFD:JSR $AD|
000007A0: 39 45 3A 4A 53 52 20 24  42 43 39 42 00 C4 0F A8  |9E:JSR $BC9B....|
000007B0: 02 4C 44 58 20 31 30 31  3A 4C 44 41 20 31 30 30  |.LDX 101:LDA 100|
000007C0: 3A 52 54 53 00 E3 0F B2  02 53 54 44 36 30 20 53  |:RTS.....STD60 S|
000007D0: 54 41 20 24 44 36 30 30  3A 4A 53 52 20 92 31 3A  |TA $D600:JSR .1:|
000007E0: 52 54 53 00 09 10 BC 02  41 44 44 43 43 20 4C 44  |RTS.....ADDCC LD|
000007F0: 41 20 43 43 43 3A 4C 44  58 20 43 43 43 AA 31 3A  |A CCC:LDX CCC.1:|
00000800: 4A 53 52 20 41 44 44 30  32 00 29 10 C6 02 3A 20  |JSR ADD02.)...: |
00000810: 20 20 20 20 53 54 41 20  43 43 43 3A 53 54 58 20  |    STA CCC:STX |
00000820: 43 43 43 AA 31 3A 52 54  53 00 4D 10 D0 02 46 49  |CCC.1:RTS.M...FI|
00000830: 58 30 31 20 4C 44 41 20  23 31 3A 53 54 41 20 32  |X01 LDA #1:STA 2|
00000840: 30 35 30 3A 4A 53 52 20  34 32 32 39 31 00 73 10  |050:JSR 42291.s.|
00000850: DA 02 3A 20 20 20 20 20  4C 44 41 20 33 34 3A 4C  |..:     LDA 34:L|
00000860: 44 58 20 33 35 3A 53 54  41 20 34 35 3A 53 54 58  |DX 35:STA 45:STX|
00000870: 20 34 36 00 8B 10 E4 02  46 49 58 30 32 20 4A 53  | 46.....FIX02 JS|
00000880: 52 20 53 4C 4F 57 30 3A  52 54 53 00 AE 10 E9 02  |R SLOW0:RTS.....|
00000890: 3B AC AC AC 20 42 4C 41  4E 4B 20 53 43 52 45 45  |;... BLANK SCREE|
000008A0: 4E 20 AF 20 89 20 46 41  53 54 20 AC AC AC 00 D2  |N . . FAST .....|
000008B0: 10 EE 02 46 41 53 54 30  20 4C 44 41 20 24 44 30  |...FAST0 LDA $D0|
000008C0: 31 31 3A AF 20 23 24 45  46 3A 4C 44 58 20 23 24  |11:. #$EF:LDX #$|
000008D0: 30 31 00 E0 10 F8 02 4A  4D 50 20 4D 4F 44 45 30  |01.....JMP MODE0|
000008E0: 00 03 11 FD 02 3B AC AC  AC 20 20 46 49 58 20 53  |.....;...  FIX S|
000008F0: 43 52 45 45 4E 20 AF 20  89 20 53 4C 4F 57 20 20  |CREEN . . SLOW  |
00000900: AC AC AC 00 28 11 02 03  53 4C 4F 57 30 20 4C 44  |....(...SLOW0 LD|
00000910: 41 20 24 44 30 31 31 3A  B0 41 20 23 24 31 30 3A  |A $D011:.A #$10:|
00000920: 4C 44 58 20 23 24 30 30  00 4A 11 0C 03 4D 4F 44  |LDX #$00.J...MOD|
00000930: 45 30 20 53 54 41 20 24  44 30 31 31 3A 53 54 58  |E0 STA $D011:STX|
00000940: 20 24 44 30 33 30 3A 52  54 53 00 5C 11 16 03 41  | $D030:RTS.\...A|
00000950: 41 41 20 2E 42 59 54 45  20 30 2C 30 00 6E 11 20  |AA .BYTE 0,0.n. |
00000960: 03 42 42 42 20 2E 42 59  54 45 20 30 2C 30 00 80  |.BBB .BYTE 0,0..|
00000970: 11 2A 03 43 43 43 20 2E  42 59 54 45 20 30 2C 30  |.*.CCC .BYTE 0,0|
00000980: 00 92 11 34 03 44 44 44  20 2E 42 59 54 45 20 30  |...4.DDD .BYTE 0|
00000990: 2C 30 00 A1 11 3E 03 83  31 20 2E 42 59 54 45 20  |,0...>..1 .BYTE |
000009A0: 30 00 B0 11 48 03 83 32  20 2E 42 59 54 45 20 30  |0...H..2 .BYTE 0|
000009B0: 00 BF 11 52 03 83 33 20  2E 42 59 54 45 20 30 00  |...R..3 .BYTE 0.|
000009C0: D1 11 5C 03 52 57 46 4C  47 20 2E 42 59 54 45 20  |..\.RWFLG .BYTE |
000009D0: 30 00 00 00                                       |0...            |

....D..2,8,1,"0:MOVE80F.ML".$.N..700.2.X
..OPT P,O2.>.....$9E34.F...;... PROTECT 
ML FROM BASIC VARS ........PRTCT LDA #.P
RTCT.1:LDX #.PRTCT.1.....:     STA 55:ST
X 56:RTS.N...;... ACTUAL CODE . TRANSFER
S  ........;... . PARAMETERS FROM .    .
.......;...          SYNTAX .          .
...@...;... .40509,MODE,VDC,AD,LE    ...
.E. .ISTRT JSR FAST0:JSR .XP:CMP #$00...
..:     BNE ERRJP:STX RWFLG:CPX #$00....
.:     BNE IST01:JSR .XP:STX CCC.T...:  
   STA CCC.1:JSR .XP:STX AAA.....:     S
TA AAA.1:JMP IST02...C.;... SYNTAX ERR. 
. RWFLG.255  ....,.R.ERRJP JMP $AF08.P..
.IST01 JSR .XP:STX AAA:STA AAA.1.T...:  
   JSR .XP:STX CCC:STA CCC.1.....IST02 J
SR .XP:STX BBB:STA BBB.1.....:     LDA B
BB:LDX BBB.1:CLC:ADC AAA.....:     TAY:T
XA:ADC AAA.1:TAX:TYA.....:     STA BBB:S
TX BBB.1.$...START LDA AAA:LDX AAA.1:JMP
 .DA.H.".CHK01 LDA DDD:LDX DDD.1:STA $22
.L.,.:     STX $23:LDA BBB:LDX BBB.1...6
.:     CPX $23:BEQ CHK02:BCS ADD01...@.:
     BCC JEXIT.L.J.CHK02 CMP $22:BEQ JEX
IT:BCS ADD01...T.JEXIT LDA RWFLG:CMP #3:
BNE REXIT...^.:     JMP FIX01...H.REXIT 
JMP FIX02.?.R.ADD01 LDA DDD:LDX DDD.1:JS
R ADD02.C.|..DA STA DDD:STX DDD.1:LDA RW
FLG.....:     CMP #1:BEQ .1:CMP #3.....:
     BNE PUTDA......1 JSR .D0:STA .1:LDA
 CCC.X...:     LDX CCC.1:STA $22:STX $23
.....:     LDA .1:LDY #0:STA ($22),Y....
.:     JMP DAXIT.4.B.PUTDA LDA DDD:LDX D
DD.1:STA $22.T.L.:     STX $23:LDX #0:LD
Y #0.Y.V.:     LDA ($22),Y:STA .1:LDA CC
C.....:     LDX CCC.1:JSR PUTD0.....DAXI
T JSR ADDCC:JMP CHK01.R...ADD02 CLC:ADC 
#1:TAY:TXA.....:     ADC #0:TAX:TYA:RTS.
.....1 JSR B2:JSR SETLO:LDA .1.&...:    
 STA $D601:RTS.E....1 LDA $D600:. #$80:B
EQ .1.S.&.:     RTS.R.0.B1 JSR B2:JSR .1
:JSR SETLO...:.:     LDA $D601:RTS...D.S
ETLO LDA .2:STA $D601:LDA #$1F.F.N.:    
 JSR STD60:RTS...X.B2 LDA #$12:JSR STD60
:LDA .3...B.:     STA $D601:LDA #$13:STA
 $D600...L.:     RTS.=.V..D0 LDA DDD:LDX
 DDD.1:STA .2.Y...:     STX .3:JSR B1:RT
S.X...PUTD0 STA .2:STX .3:JSR .1.....:  
   RTS......XP JSR $AEFD:JSR $AD9E:JSR $
BC9B.D...LDX 101:LDA 100:RTS.....STD60 S
TA $D600:JSR .1:RTS.....ADDCC LDA CCC:LD
X CCC.1:JSR ADD02.).F.:     STA CCC:STX 
CCC.1:RTS.M.P.FIX01 LDA #1:STA 2050:JSR 
42291.S.Z.:     LDA 34:LDX 35:STA 45:STX
 46.....FIX02 JSR SLOW0:RTS.....;... BLA
NK SCREEN . . FAST ....R...FAST0 LDA $D0
11:. #$EF:LDX #$01.....JMP MODE0.....;..
.  FIX SCREEN . . SLOW  ....(...SLOW0 LD
A $D011:.A #$10:LDX #$00.J...MODE0 STA $
D011:STX $D030:RTS.\...AAA .BYTE 0,0.N. 
.BBB .BYTE 0,0...*.CCC .BYTE 0,0...4.DDD
 .BYTE 0,0...>..1 .BYTE 0...H..2 .BYTE 0
...R..3 .BYTE 0.Q.\.RWFLG .BYTE 0...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL