MOVE80F.SRC
FILE INFORMATION
FILENAME(S): MOVE80F.SRC
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 16:45:36
APPEARS ON: 1 disk(s)
FILE HASH
e68393bf1e983db7ed9c9122d90d380620d0d2ce3a626e463a7d6f7499edc3c9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TALENTED RULERZ | MOVE80F.SRC | PRG | High Voltage Complete C64 Collection | 27 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 35 20 4F 50 45 4E 31 35 2C 38 2C 31 35 3A |..5 OPEN15,8,15:| 00000010: 4F 50 45 4E 32 2C 38 2C 32 2C 22 30 3A 4D 4F 56 |OPEN2,8,2,"0:MOV| 00000020: 45 38 30 46 2E 53 52 43 2C 53 2C 57 22 3A 43 4D |E80F.SRC,S,W":CM| 00000030: 44 32 3A 4C 49 53 54 3A 50 52 49 4E 54 23 32 3A |D2:LIST:PRINT#2:| 00000040: 43 4C 4F 53 45 32 0D 31 30 20 49 4E 50 55 54 23 |CLOSE2.10 INPUT#| 00000050: 31 35 2C 45 2C 45 24 2C 54 2C 53 3A 50 52 49 4E |15,E,E$,T,S:PRIN| 00000060: 54 45 2C 45 24 3B 54 3B 53 3A 45 4E 44 0D 31 30 |TE,E$;T;S:END.10| 00000070: 30 20 4F 50 45 4E 32 2C 38 2C 31 2C 22 30 3A 4D |0 OPEN2,8,1,"0:M| 00000080: 4F 56 45 38 30 46 2E 4D 4C 22 0D 31 31 30 20 53 |OVE80F.ML".110 S| 00000090: 59 53 37 30 30 0D 31 32 30 20 2E 4F 50 54 20 50 |YS700.120 .OPT P| 000000A0: 2C 4F 32 0D 31 33 30 20 2A 3D 24 39 45 33 34 0D |,O2.130 *=$9E34.| 000000B0: 31 33 35 20 3B 2A 2A 2A 20 50 52 4F 54 45 43 54 |135 ;*** PROTECT| 000000C0: 20 4D 4C 20 46 52 4F 4D 20 42 41 53 49 43 20 56 | ML FROM BASIC V| 000000D0: 41 52 53 20 2A 2A 2A 0D 31 34 30 20 50 52 54 43 |ARS ***.140 PRTC| 000000E0: 54 20 4C 44 41 20 23 3C 50 52 54 43 54 2D 31 3A |T LDA #<PRTCT-1:| 000000F0: 4C 44 58 20 23 3E 50 52 54 43 54 2D 31 0D 31 35 |LDX #>PRTCT-1.15| 00000100: 30 20 3A 20 20 20 20 20 53 54 41 20 35 35 3A 53 |0 : STA 55:S| 00000110: 54 58 20 35 36 3A 52 54 53 0D 31 35 35 20 3B 2A |TX 56:RTS.155 ;*| 00000120: 2A 2A 20 41 43 54 55 41 4C 20 43 4F 44 45 20 46 |** ACTUAL CODE F| 00000130: 4F 52 20 54 52 41 4E 53 46 45 52 53 20 20 2A 2A |OR TRANSFERS **| 00000140: 2A 0D 31 35 36 20 3B 2A 2A 2A 20 47 45 54 20 50 |*.156 ;*** GET P| 00000150: 41 52 41 4D 45 54 45 52 53 20 46 52 4F 4D 20 53 |ARAMETERS FROM S| 00000160: 59 53 20 20 20 20 2A 2A 2A 0D 31 35 37 20 3B 2A |YS ***.157 ;*| 00000170: 2A 2A 20 20 20 20 20 20 20 20 20 20 53 59 4E 54 |** SYNT| 00000180: 41 58 20 3D 20 20 20 20 20 20 20 20 20 20 2A 2A |AX = **| 00000190: 2A 0D 31 35 38 20 3B 2A 2A 2A 20 53 59 53 34 30 |*.158 ;*** SYS40| 000001A0: 35 30 39 2C 4D 4F 44 45 2C 56 44 43 2C 41 44 2C |509,MODE,VDC,AD,| 000001B0: 4C 45 20 20 20 20 2A 2A 2A 0D 31 36 30 20 49 53 |LE ***.160 IS| 000001C0: 54 52 54 20 4A 53 52 20 46 41 53 54 30 3A 4A 53 |TRT JSR FAST0:JS| 000001D0: 52 20 49 4E 54 58 50 3A 43 4D 50 20 23 24 30 30 |R INTXP:CMP #$00| 000001E0: 0D 31 36 35 20 3A 20 20 20 20 20 42 4E 45 20 45 |.165 : BNE E| 000001F0: 52 52 4A 50 3A 53 54 58 20 52 57 46 4C 47 3A 43 |RRJP:STX RWFLG:C| 00000200: 50 58 20 23 24 30 30 0D 31 37 30 20 3A 20 20 20 |PX #$00.170 : | 00000210: 20 20 42 4E 45 20 49 53 54 30 31 3A 4A 53 52 20 | BNE IST01:JSR | 00000220: 49 4E 54 58 50 3A 53 54 58 20 43 43 43 0D 31 38 |INTXP:STX CCC.18| 00000230: 30 20 3A 20 20 20 20 20 53 54 41 20 43 43 43 2B |0 : STA CCC+| 00000240: 31 3A 4A 53 52 20 49 4E 54 58 50 3A 53 54 58 20 |1:JSR INTXP:STX | 00000250: 41 41 41 0D 31 39 30 20 3A 20 20 20 20 20 53 54 |AAA.190 : ST| 00000260: 41 20 41 41 41 2B 31 3A 4A 4D 50 20 49 53 54 30 |A AAA+1:JMP IST0| 00000270: 32 0D 31 39 35 20 3B 2A 2A 2A 20 53 59 4E 54 41 |2.195 ;*** SYNTA| 00000280: 58 20 45 52 52 4F 52 20 49 46 20 52 57 46 4C 47 |X ERROR IF RWFLG| 00000290: 3E 32 35 35 20 20 2A 2A 2A 0D 32 31 30 20 45 52 |>255 ***.210 ER| 000002A0: 52 4A 50 20 4A 4D 50 20 24 41 46 30 38 0D 32 32 |RJP JMP $AF08.22| 000002B0: 30 20 49 53 54 30 31 20 4A 53 52 20 49 4E 54 58 |0 IST01 JSR INTX| 000002C0: 50 3A 53 54 58 20 41 41 41 3A 53 54 41 20 41 41 |P:STX AAA:STA AA| 000002D0: 41 2B 31 0D 32 33 30 20 3A 20 20 20 20 20 4A 53 |A+1.230 : JS| 000002E0: 52 20 49 4E 54 58 50 3A 53 54 58 20 43 43 43 3A |R INTXP:STX CCC:| 000002F0: 53 54 41 20 43 43 43 2B 31 0D 32 34 30 20 49 53 |STA CCC+1.240 IS| 00000300: 54 30 32 20 4A 53 52 20 49 4E 54 58 50 3A 53 54 |T02 JSR INTXP:ST| 00000310: 58 20 42 42 42 3A 53 54 41 20 42 42 42 2B 31 0D |X BBB:STA BBB+1.| 00000320: 32 35 30 20 3A 20 20 20 20 20 4C 44 41 20 42 42 |250 : LDA BB| 00000330: 42 3A 4C 44 58 20 42 42 42 2B 31 3A 43 4C 43 3A |B:LDX BBB+1:CLC:| 00000340: 41 44 43 20 41 41 41 0D 32 36 30 20 3A 20 20 20 |ADC AAA.260 : | 00000350: 20 20 54 41 59 3A 54 58 41 3A 41 44 43 20 41 41 | TAY:TXA:ADC AA| 00000360: 41 2B 31 3A 54 41 58 3A 54 59 41 0D 32 37 30 20 |A+1:TAX:TYA.270 | 00000370: 3A 20 20 20 20 20 53 54 41 20 42 42 42 3A 53 54 |: STA BBB:ST| 00000380: 58 20 42 42 42 2B 31 0D 32 38 30 20 53 54 41 52 |X BBB+1.280 STAR| 00000390: 54 20 4C 44 41 20 41 41 41 3A 4C 44 58 20 41 41 |T LDA AAA:LDX AA| 000003A0: 41 2B 31 3A 4A 4D 50 20 47 45 54 44 41 0D 32 39 |A+1:JMP GETDA.29| 000003B0: 30 20 43 48 4B 30 31 20 4C 44 41 20 44 44 44 3A |0 CHK01 LDA DDD:| 000003C0: 4C 44 58 20 44 44 44 2B 31 3A 53 54 41 20 24 32 |LDX DDD+1:STA $2| 000003D0: 32 0D 33 30 30 20 3A 20 20 20 20 20 53 54 58 20 |2.300 : STX | 000003E0: 24 32 33 3A 4C 44 41 20 42 42 42 3A 4C 44 58 20 |$23:LDA BBB:LDX | 000003F0: 42 42 42 2B 31 0D 33 31 30 20 3A 20 20 20 20 20 |BBB+1.310 : | 00000400: 43 50 58 20 24 32 33 3A 42 45 51 20 43 48 4B 30 |CPX $23:BEQ CHK0| 00000410: 32 3A 42 43 53 20 41 44 44 30 31 0D 33 32 30 20 |2:BCS ADD01.320 | 00000420: 3A 20 20 20 20 20 42 43 43 20 4A 45 58 49 54 0D |: BCC JEXIT.| 00000430: 33 33 30 20 43 48 4B 30 32 20 43 4D 50 20 24 32 |330 CHK02 CMP $2| 00000440: 32 3A 42 45 51 20 4A 45 58 49 54 3A 42 43 53 20 |2:BEQ JEXIT:BCS | 00000450: 41 44 44 30 31 0D 33 34 30 20 4A 45 58 49 54 20 |ADD01.340 JEXIT | 00000460: 4C 44 41 20 52 57 46 4C 47 3A 43 4D 50 20 23 33 |LDA RWFLG:CMP #3| 00000470: 3A 42 4E 45 20 52 45 58 49 54 0D 33 35 30 20 3A |:BNE REXIT.350 :| 00000480: 20 20 20 20 20 4A 4D 50 20 46 49 58 30 31 0D 33 | JMP FIX01.3| 00000490: 36 30 20 52 45 58 49 54 20 4A 4D 50 20 46 49 58 |60 REXIT JMP FIX| 000004A0: 30 32 0D 33 37 30 20 41 44 44 30 31 20 4C 44 41 |02.370 ADD01 LDA| 000004B0: 20 44 44 44 3A 4C 44 58 20 44 44 44 2B 31 3A 4A | DDD:LDX DDD+1:J| 000004C0: 53 52 20 41 44 44 30 32 0D 33 38 30 20 47 45 54 |SR ADD02.380 GET| 000004D0: 44 41 20 53 54 41 20 44 44 44 3A 53 54 58 20 44 |DA STA DDD:STX D| 000004E0: 44 44 2B 31 3A 4C 44 41 20 52 57 46 4C 47 0D 33 |DD+1:LDA RWFLG.3| 000004F0: 39 30 20 3A 20 20 20 20 20 43 4D 50 20 23 31 3A |90 : CMP #1:| 00000500: 42 45 51 20 43 4F 4E 54 31 3A 43 4D 50 20 23 33 |BEQ CONT1:CMP #3| 00000510: 0D 34 30 30 20 3A 20 20 20 20 20 42 4E 45 20 50 |.400 : BNE P| 00000520: 55 54 44 41 0D 34 31 30 20 43 4F 4E 54 31 20 4A |UTDA.410 CONT1 J| 00000530: 53 52 20 47 45 54 44 30 3A 53 54 41 20 44 41 54 |SR GETD0:STA DAT| 00000540: 41 31 3A 4C 44 41 20 43 43 43 0D 34 32 30 20 3A |A1:LDA CCC.420 :| 00000550: 20 20 20 20 20 4C 44 58 20 43 43 43 2B 31 3A 53 | LDX CCC+1:S| 00000560: 54 41 20 24 32 32 3A 53 54 58 20 24 32 33 0D 34 |TA $22:STX $23.4| 00000570: 33 30 20 3A 20 20 20 20 20 4C 44 41 20 44 41 54 |30 : LDA DAT| 00000580: 41 31 3A 4C 44 59 20 23 30 3A 53 54 41 20 28 24 |A1:LDY #0:STA ($| 00000590: 32 32 29 2C 59 0D 34 34 30 20 3A 20 20 20 20 20 |22),Y.440 : | 000005A0: 4A 4D 50 20 44 41 58 49 54 0D 34 35 30 20 50 55 |JMP DAXIT.450 PU| 000005B0: 54 44 41 20 4C 44 41 20 44 44 44 3A 4C 44 58 20 |TDA LDA DDD:LDX | 000005C0: 44 44 44 2B 31 3A 53 54 41 20 24 32 32 0D 34 36 |DDD+1:STA $22.46| 000005D0: 30 20 3A 20 20 20 20 20 53 54 58 20 24 32 33 3A |0 : STX $23:| 000005E0: 4C 44 58 20 23 30 3A 4C 44 59 20 23 30 0D 34 37 |LDX #0:LDY #0.47| 000005F0: 30 20 3A 20 20 20 20 20 4C 44 41 20 28 24 32 32 |0 : LDA ($22| 00000600: 29 2C 59 3A 53 54 41 20 44 41 54 41 31 3A 4C 44 |),Y:STA DATA1:LD| 00000610: 41 20 43 43 43 0D 34 38 30 20 3A 20 20 20 20 20 |A CCC.480 : | 00000620: 4C 44 58 20 43 43 43 2B 31 3A 4A 53 52 20 50 55 |LDX CCC+1:JSR PU| 00000630: 54 44 30 0D 34 39 30 20 44 41 58 49 54 20 4A 53 |TD0.490 DAXIT JS| 00000640: 52 20 41 44 44 43 43 3A 4A 4D 50 20 43 48 4B 30 |R ADDCC:JMP CHK0| 00000650: 31 0D 35 30 30 20 41 44 44 30 32 20 43 4C 43 3A |1.500 ADD02 CLC:| 00000660: 41 44 43 20 23 31 3A 54 41 59 3A 54 58 41 0D 35 |ADC #1:TAY:TXA.5| 00000670: 31 30 20 3A 20 20 20 20 20 41 44 43 20 23 30 3A |10 : ADC #0:| 00000680: 54 41 58 3A 54 59 41 3A 52 54 53 0D 35 32 30 20 |TAX:TYA:RTS.520 | 00000690: 50 4F 4B 45 31 20 4A 53 52 20 50 45 45 4B 32 3A |POKE1 JSR PEEK2:| 000006A0: 4A 53 52 20 53 45 54 4C 4F 3A 4C 44 41 20 44 41 |JSR SETLO:LDA DA| 000006B0: 54 41 31 0D 35 33 30 20 3A 20 20 20 20 20 53 54 |TA1.530 : ST| 000006C0: 41 20 24 44 36 30 31 3A 52 54 53 0D 35 34 30 20 |A $D601:RTS.540 | 000006D0: 57 41 49 54 31 20 4C 44 41 20 24 44 36 30 30 3A |WAIT1 LDA $D600:| 000006E0: 41 4E 44 20 23 24 38 30 3A 42 45 51 20 57 41 49 |AND #$80:BEQ WAI| 000006F0: 54 31 0D 35 35 30 20 3A 20 20 20 20 20 52 54 53 |T1.550 : RTS| 00000700: 0D 35 36 30 20 50 45 45 4B 31 20 4A 53 52 20 50 |.560 PEEK1 JSR P| 00000710: 45 45 4B 32 3A 4A 53 52 20 57 41 49 54 31 3A 4A |EEK2:JSR WAIT1:J| 00000720: 53 52 20 53 45 54 4C 4F 0D 35 37 30 20 3A 20 20 |SR SETLO.570 : | 00000730: 20 20 20 4C 44 41 20 24 44 36 30 31 3A 52 54 53 | LDA $D601:RTS| 00000740: 0D 35 38 30 20 53 45 54 4C 4F 20 4C 44 41 20 44 |.580 SETLO LDA D| 00000750: 41 54 41 32 3A 53 54 41 20 24 44 36 30 31 3A 4C |ATA2:STA $D601:L| 00000760: 44 41 20 23 24 31 46 0D 35 39 30 20 3A 20 20 20 |DA #$1F.590 : | 00000770: 20 20 4A 53 52 20 53 54 44 36 30 3A 52 54 53 0D | JSR STD60:RTS.| 00000780: 36 30 30 20 50 45 45 4B 32 20 4C 44 41 20 23 24 |600 PEEK2 LDA #$| 00000790: 31 32 3A 4A 53 52 20 53 54 44 36 30 3A 4C 44 41 |12:JSR STD60:LDA| 000007A0: 20 44 41 54 41 33 0D 36 31 30 20 3A 20 20 20 20 | DATA3.610 : | 000007B0: 20 53 54 41 20 24 44 36 30 31 3A 4C 44 41 20 23 | STA $D601:LDA #| 000007C0: 24 31 33 3A 53 54 41 20 24 44 36 30 30 0D 36 32 |$13:STA $D600.62| 000007D0: 30 20 3A 20 20 20 20 20 52 54 53 0D 36 33 30 20 |0 : RTS.630 | 000007E0: 47 45 54 44 30 20 4C 44 41 20 44 44 44 3A 4C 44 |GETD0 LDA DDD:LD| 000007F0: 58 20 44 44 44 2B 31 3A 53 54 41 20 44 41 54 41 |X DDD+1:STA DATA| 00000800: 32 0D 36 34 30 20 3A 20 20 20 20 20 53 54 58 20 |2.640 : STX | 00000810: 44 41 54 41 33 3A 4A 53 52 20 50 45 45 4B 31 3A |DATA3:JSR PEEK1:| 00000820: 52 54 53 0D 36 35 30 20 50 55 54 44 30 20 53 54 |RTS.650 PUTD0 ST| 00000830: 41 20 44 41 54 41 32 3A 53 54 58 20 44 41 54 41 |A DATA2:STX DATA| 00000840: 33 3A 4A 53 52 20 50 4F 4B 45 31 0D 36 36 30 20 |3:JSR POKE1.660 | 00000850: 3A 20 20 20 20 20 52 54 53 0D 36 37 30 20 49 4E |: RTS.670 IN| 00000860: 54 58 50 20 4A 53 52 20 24 41 45 46 44 3A 4A 53 |TXP JSR $AEFD:JS| 00000870: 52 20 24 41 44 39 45 3A 4A 53 52 20 24 42 43 39 |R $AD9E:JSR $BC9| 00000880: 42 0D 36 38 30 20 4C 44 58 20 31 30 31 3A 4C 44 |B.680 LDX 101:LD| 00000890: 41 20 31 30 30 3A 52 54 53 0D 36 39 30 20 53 54 |A 100:RTS.690 ST| 000008A0: 44 36 30 20 53 54 41 20 24 44 36 30 30 3A 4A 53 |D60 STA $D600:JS| 000008B0: 52 20 57 41 49 54 31 3A 52 54 53 0D 37 30 30 20 |R WAIT1:RTS.700 | 000008C0: 41 44 44 43 43 20 4C 44 41 20 43 43 43 3A 4C 44 |ADDCC LDA CCC:LD| 000008D0: 58 20 43 43 43 2B 31 3A 4A 53 52 20 41 44 44 30 |X CCC+1:JSR ADD0| 000008E0: 32 0D 37 31 30 20 3A 20 20 20 20 20 53 54 41 20 |2.710 : STA | 000008F0: 43 43 43 3A 53 54 58 20 43 43 43 2B 31 3A 52 54 |CCC:STX CCC+1:RT| 00000900: 53 0D 37 32 30 20 46 49 58 30 31 20 4C 44 41 20 |S.720 FIX01 LDA | 00000910: 23 31 3A 53 54 41 20 32 30 35 30 3A 4A 53 52 20 |#1:STA 2050:JSR | 00000920: 34 32 32 39 31 0D 37 33 30 20 3A 20 20 20 20 20 |42291.730 : | 00000930: 4C 44 41 20 33 34 3A 4C 44 58 20 33 35 3A 53 54 |LDA 34:LDX 35:ST| 00000940: 41 20 34 35 3A 53 54 58 20 34 36 0D 37 34 30 20 |A 45:STX 46.740 | 00000950: 46 49 58 30 32 20 4A 53 52 20 53 4C 4F 57 30 3A |FIX02 JSR SLOW0:| 00000960: 52 54 53 0D 37 34 35 20 3B 2A 2A 2A 20 42 4C 41 |RTS.745 ;*** BLA| 00000970: 4E 4B 20 53 43 52 45 45 4E 20 41 4E 44 20 47 4F |NK SCREEN AND GO| 00000980: 54 4F 20 46 41 53 54 20 2A 2A 2A 0D 37 35 30 20 |TO FAST ***.750 | 00000990: 46 41 53 54 30 20 4C 44 41 20 24 44 30 31 31 3A |FAST0 LDA $D011:| 000009A0: 41 4E 44 20 23 24 45 46 3A 4C 44 58 20 23 24 30 |AND #$EF:LDX #$0| 000009B0: 31 0D 37 36 30 20 4A 4D 50 20 4D 4F 44 45 30 0D |1.760 JMP MODE0.| 000009C0: 37 36 35 20 3B 2A 2A 2A 20 20 46 49 58 20 53 43 |765 ;*** FIX SC| 000009D0: 52 45 45 4E 20 41 4E 44 20 47 4F 54 4F 20 53 4C |REEN AND GOTO SL| 000009E0: 4F 57 20 20 2A 2A 2A 0D 37 37 30 20 53 4C 4F 57 |OW ***.770 SLOW| 000009F0: 30 20 4C 44 41 20 24 44 30 31 31 3A 4F 52 41 20 |0 LDA $D011:ORA | 00000A00: 23 24 31 30 3A 4C 44 58 20 23 24 30 30 0D 37 38 |#$10:LDX #$00.78| 00000A10: 30 20 4D 4F 44 45 30 20 53 54 41 20 24 44 30 31 |0 MODE0 STA $D01| 00000A20: 31 3A 53 54 58 20 24 44 30 33 30 3A 52 54 53 0D |1:STX $D030:RTS.| 00000A30: 37 39 30 20 41 41 41 20 2E 42 59 54 45 20 30 2C |790 AAA .BYTE 0,| 00000A40: 30 0D 38 30 30 20 42 42 42 20 2E 42 59 54 45 20 |0.800 BBB .BYTE | 00000A50: 30 2C 30 0D 38 31 30 20 43 43 43 20 2E 42 59 54 |0,0.810 CCC .BYT| 00000A60: 45 20 30 2C 30 0D 38 32 30 20 44 44 44 20 2E 42 |E 0,0.820 DDD .B| 00000A70: 59 54 45 20 30 2C 30 0D 38 33 30 20 44 41 54 41 |YTE 0,0.830 DATA| 00000A80: 31 20 2E 42 59 54 45 20 30 0D 38 34 30 20 44 41 |1 .BYTE 0.840 DA| 00000A90: 54 41 32 20 2E 42 59 54 45 20 30 0D 38 35 30 20 |TA2 .BYTE 0.850 | 00000AA0: 44 41 54 41 33 20 2E 42 59 54 45 20 30 0D 38 36 |DATA3 .BYTE 0.86| 00000AB0: 30 20 52 57 46 4C 47 20 2E 42 59 54 45 20 30 0D |0 RWFLG .BYTE 0.| 00000AC0: 0A 52 45 41 44 59 2E 0D 0A 0D |.READY.... |
..5 OPEN15,8,15:OPEN2,8,2,"0:MOVE80F.SRC
,S,W":CMD2:LIST:PRINT#2:CLOSE2.10 INPUT#
15,E,E$,T,S:PRINTE,E$;T;S:END.100 OPEN2,
8,1,"0:MOVE80F.ML".110 SYS700.120 .OPT P
,O2.130 *=$9E34.135 ;*** PROTECT ML FROM
BASIC VARS ***.140 PRTCT LDA #<PRTCT-1:
LDX #>PRTCT-1.150 : STA 55:STX 56:RT
S.155 ;*** ACTUAL CODE FOR TRANSFERS **
*.156 ;*** GET PARAMETERS FROM SYS **
*.157 ;*** SYNTAX = **
*.158 ;*** SYS40509,MODE,VDC,AD,LE **
*.160 ISTRT JSR FAST0:JSR INTXP:CMP #$00
.165 : BNE ERRJP:STX RWFLG:CPX #$00.
170 : BNE IST01:JSR INTXP:STX CCC.18
0 : STA CCC+1:JSR INTXP:STX AAA.190
: STA AAA+1:JMP IST02.195 ;*** SYNTA
X ERROR IF RWFLG>255 ***.210 ERRJP JMP
$AF08.220 IST01 JSR INTXP:STX AAA:STA AA
A+1.230 : JSR INTXP:STX CCC:STA CCC+
1.240 IST02 JSR INTXP:STX BBB:STA BBB+1.
250 : LDA BBB:LDX BBB+1:CLC:ADC AAA.
260 : TAY:TXA:ADC AAA+1:TAX:TYA.270
: STA BBB:STX BBB+1.280 START LDA AA
A:LDX AAA+1:JMP GETDA.290 CHK01 LDA DDD:
LDX DDD+1:STA $22.300 : STX $23:LDA
BBB:LDX BBB+1.310 : CPX $23:BEQ CHK0
2:BCS ADD01.320 : BCC JEXIT.330 CHK0
2 CMP $22:BEQ JEXIT:BCS ADD01.340 JEXIT
LDA RWFLG:CMP #3:BNE REXIT.350 : JMP
FIX01.360 REXIT JMP FIX02.370 ADD01 LDA
DDD:LDX DDD+1:JSR ADD02.380 GETDA STA D
DD:STX DDD+1:LDA RWFLG.390 : CMP #1:
BEQ CONT1:CMP #3.400 : BNE PUTDA.410
CONT1 JSR GETD0:STA DATA1:LDA CCC.420 :
LDX CCC+1:STA $22:STX $23.430 :
LDA DATA1:LDY #0:STA ($22),Y.440 :
JMP DAXIT.450 PUTDA LDA DDD:LDX DDD+1:ST
A $22.460 : STX $23:LDX #0:LDY #0.47
0 : LDA ($22),Y:STA DATA1:LDA CCC.48
0 : LDX CCC+1:JSR PUTD0.490 DAXIT JS
R ADDCC:JMP CHK01.500 ADD02 CLC:ADC #1:T
AY:TXA.510 : ADC #0:TAX:TYA:RTS.520
POKE1 JSR PEEK2:JSR SETLO:LDA DATA1.530
: STA $D601:RTS.540 WAIT1 LDA $D600:
AND #$80:BEQ WAIT1.550 : RTS.560 PEE
K1 JSR PEEK2:JSR WAIT1:JSR SETLO.570 :
LDA $D601:RTS.580 SETLO LDA DATA2:STA
$D601:LDA #$1F.590 : JSR STD60:RTS.
600 PEEK2 LDA #$12:JSR STD60:LDA DATA3.6
10 : STA $D601:LDA #$13:STA $D600.62
0 : RTS.630 GETD0 LDA DDD:LDX DDD+1:
STA DATA2.640 : STX DATA3:JSR PEEK1:
RTS.650 PUTD0 STA DATA2:STX DATA3:JSR PO
KE1.660 : RTS.670 INTXP JSR $AEFD:JS
R $AD9E:JSR $BC9B.680 LDX 101:LDA 100:RT
S.690 STD60 STA $D600:JSR WAIT1:RTS.700
ADDCC LDA CCC:LDX CCC+1:JSR ADD02.710 :
STA CCC:STX CCC+1:RTS.720 FIX01 LDA
#1:STA 2050:JSR 42291.730 : LDA 34:L
DX 35:STA 45:STX 46.740 FIX02 JSR SLOW0:
RTS.745 ;*** BLANK SCREEN AND GOTO FAST
***.750 FAST0 LDA $D011:AND #$EF:LDX #$0
1.760 JMP MODE0.765 ;*** FIX SCREEN AND
GOTO SLOW ***.770 SLOW0 LDA $D011:ORA
#$10:LDX #$00.780 MODE0 STA $D011:STX $D
030:RTS.790 AAA .BYTE 0,0.800 BBB .BYTE
0,0.810 CCC .BYTE 0,0.820 DDD .BYTE 0,0.
830 DATA1 .BYTE 0.840 DATA2 .BYTE 0.850
DATA3 .BYTE 0.860 RWFLG .BYTE 0..READY..
..
> CLICK IMAGE PREVIEW FOR FULL MODAL