10 RTCLOK = $12 20 ATRACT = $4D 30 VVBLKD = $0224 40 SDMCTL = $022F 50 SDLSTL = $0230 60 SDLSTH = $0231 70 GPRIOR = $026F 80 HPOSP0 = $D000 90 HPOSP1 = $D001 0100 HPOSP2 = $D002 0110 HPOSP3 = $D003 0120 HPOSM0 = $D004 0130 HPOSM1 = $D005 0140 HPOSM2 = $D006 0150 HPOSM3 = $D007 0160 SIZEP0 = $D008 0170 SIZEP1 = $D009 0180 SIZEP2 = $D00A 0190 SIZEP3 = $D00B 0200 SIZEM = $D00C 0210 COLPM0 = $D012 0220 COLPM1 = $D013 0230 COLPM2 = $D014 0240 COLPM3 = $D015 0250 COLPF1 = $D019 0260 HSCROL = $D404 0270 PMBASE = $D407 0280 NMIEN = $D40E 0290 XITVBV = $E462 0300 GRACTL = $D01D 0310 PMBAS = $8800 0320 ;--------------------- 0330 *= $674F 0340 START 0350 LDA # PMBAS 0380 STA $CC 0390 LDX #$08 0400 LOOP1 LDY #$00 0410 LOOP2 LDA #$00 0420 STA ($CB),Y 0430 INY 0440 CPY #$FF 0450 BNE LOOP2 0460 INC $CC 0470 DEX 0480 BNE LOOP1 0490 LDA # VBI 0520 STA VVBLKD+1 ;$0225 0530 LDA #$3A 0540 STA SDMCTL ;$022F 0550 LDA #$03 0560 STA GRACTL ;$D01D 0570 LDA # >PMBAS 0580 STA PMBASE ;$D407 0590 LDA #$01 0600 STA SIZEP0 ;$D008 0610 STA SIZEP1 ;$D009 0620 STA SIZEP2 ;$D00A 0630 STA SIZEP3 ;$D00B 0640 LDA #$55 0650 STA SIZEM ;$D00C 0660 LDA #$11 0670 STA GPRIOR ;$026F 0680 CLI 0690 RTS 0700 VBI LDA #$00 0710 STA ATRACT ;$004D 0720 LDA RTCLOK+2 ;$0014 0730 AND #$03 0740 CMP #$02 0750 BEQ L0010 ;$6820 0760 INC L0011 ;$68E1 0770 L0010 LDA L0011 ;$68E1 0780 STA HPOSP0 ;$D000 0790 CLC 0800 ADC #$1A 0810 STA HPOSP1 ;$D001 0820 CLC 0830 ADC #$1A 0840 STA HPOSP2 ;$D002 0850 CLC 0860 ADC #$1A 0870 STA HPOSP3 ;$D003 0880 CLC 0890 ADC #$26 0900 SEC 0910 STA HPOSM0 ;$D004 0920 SBC #$04 0930 STA HPOSM1 ;$D005 0940 SBC #$04 0950 STA HPOSM2 ;$D006 0960 SBC #$04 0970 STA HPOSM3 ;$D007 0980 JSR L0012 ;$686C 0990 LDA L0013 ;$68E0 1000 SEC 1010 SBC #$15 1020 CMP #$EB 1030 BEQ L0014 ;$6861 1040 STA L0013 ;$68E0 1050 JMP L0015 ;$6866 1060 L0014 LDA #$BD 1070 STA L0013 ;$68E0 1080 L0015 JSR L0016 ;$687A 1090 JMP XITVBV ;$E462 1100 L0012 DEC L0017 ;$68E3 1110 BEQ L0018 ;$6879 1120 PLA 1130 PLA 1140 JSR L0019 ;$687F 1150 JMP XITVBV ;$E462 1160 L0018 RTS 1170 L0016 LDA #$06 1180 STA L0017 ;$68E3 1190 L0019 LDA RTCLOK+2 ;$0014 1200 AND #$01 1210 CMP #$01 1220 BNE L0020 ;$688A 1230 DEC L0021 ;$68E2 1240 L0020 LDY L0021 ;$68E2 1250 LDX L0013 ;$68E0 1260 LDA DATA1,X ;$68E5 1270 STA COLPM0 ;$D012 1280 LDA DATA2,X ;$69B7 1290 STA COLPM1 ;$D013 1300 LDA DATA3,X ;$6A89 1310 STA COLPM2 ;$D014 1320 LDA DATA4,X ;$6B5B 1330 STA COLPM3 ;$D015 1340 LDA DATA5,X ;$6C2D 1350 STA COLPF1 ;$D019 1360 INX 1370 L0036 INC L0030 ;$68DF 1380 LDA DATA1,X ;$68E5 1390 STA PMBAS+1024,Y ;$8C00 1400 LDA DATA2,X ;$69B7 1410 STA PMBAS+1280,Y ;$8D00 1420 LDA DATA3,X ;$6A89 1430 STA PMBAS+1536,Y ;$8E00 1440 LDA DATA4,X ;$6B5B 1450 STA PMBAS+1792,Y ;$8F00 1460 LDA DATA5,X ;$6C2D 1470 STA PMBAS+768,Y ;$8B00 1480 INX 1490 INY 1500 LDA L0030 ;$68DF 1510 CMP #$14 1520 BNE L0036 ;$68AF 1530 LDA #$00 1540 STA L0030 ;$68DF 1550 RTS 1560 *= $02E2 1570 .WORD START 1580 ;-------------------------- 1590 L0011 .BYTE $40 1600 L0013 .BYTE $D2 1610 L0017 .BYTE $01 1620 L0021 .BYTE $80 1630 L0030 .BYTE $00 1640 DATA1 = $68E5 1650 DATA2 = $69B7 1660 DATA3 = $6A89 1670 DATA4 = $6B5B 1680 DATA5 = $6C2D