Home » Personal collection » Commodore disks » disk47a_unlabelled.d64 » main 17.4.95
main 17.4.95
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Personal collection » Commodore disks » disk47a_unlabelled.d64 |
Filename: | main 17.4.95 |
Read OK: | ✔ |
File size: | 11A3 bytes |
Load address: | 0801 |
Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Commodore disks » disk12b2_driving_games_3.d64 » main 17.4.95
- Personal collection » Commodore disks » disk47a_unlabelled.d64 » main 17.4.95
File contents
10 ; CRYSTAL LIGHT - MAIN PROGRAM 20 ; BY DOMINIC FORD 30 ; DECEMBER '94 - 40 *=$C000 1000 ; VARIABLES 1005 DEAD=$CF40 1010 CLOCK=$CF41 1020 EFDAT=$CF42 1030 NWAIT=$CF43 1040 MHI=$3F 1050 VDAT=$BC01 1060 DATA=$CF45 1070 ;XP=$CF44 1080 ;YP=$CF47 1090 MEMS=$41 1100 XP=$22 1105 YP=$23 1110 BT=$CF48 1120 XPS=$CF49 1130 YPS=$CF4A 1140 ;MEMRS=$CF4B 1150 ;XPTL=$CF4C 1160 DALL=$CF4D 1170 XSSTE=$CF4E 1180 YSSTE=$CF4F 1190 COLCH=$CF50 1200 SCRNO=$CF51 1210 ASTORE=$CF52 1220 XSTORE=$CF53 1230 YSTORE=$CF54 1240 IRQCONT=$CF55 1250 ILSTATE=$CF57 2000 ; MUSIC ROUTINES 2005 MUSON SEI 2010 LDA #<MDATAPLAY 2020 STA IRQCONT 2030 LDA #>MDATAPLAY 2040 STA IRQCONT+1 2050 LDA DATA 2060 STA MHI+1 2070 LDA DATA+1 2080 STA MHI 2090 LDA #$00 2100 STA NWAIT 2110 JSR SCNCLRUP 2120 CLI 2130 RTS 2140 MUSOFF SEI 2150 LDA #$31 2160 STA IRQCONT 2170 LDA #$EA 2180 STA IRQCONT+1 2190 CLI 2200 RTS 2210 MDATAPLAY JSR STACK 2220 LDA NWAIT 2230 BEQ READ 2240 JMP $EA31 2250 READ LDY #$00 2260 LDA (MHI),Y 2270 AND #$01 2280 BEQ CONTMA 2290 LDA #$07 2300 CONTMA TAX 2310 LDA (MHI),Y 2320 LSR A 2330 STA NWAIT 2340 CMP #$06 2350 BNE MRCONT 2360 LDA VDAT,X 2370 STA $D404,X 2380 TAY 2390 INY 2400 TYA 2410 STA $D404,X 2420 JSR DESTACK 2430 JMP $EA31 2440 STACK STA ASTORE 2450 STX XSTORE 2460 STY YSTORE 2490 RTS 2500 DESTACK JSR EFFECTS 2510 UNSTACK LDA ASTORE 2520 LDX XSTORE 2530 LDY YSTORE 2560 RTS 2570 MRCONT INY 2580 LDA (MHI),Y 2590 STA $D400,X 2600 INY 2610 LDA (MHI),Y 2620 STA $D401,X 2630 JSR DESTACK 2640 JMP $EA31 2650 SCNCLRUP LDX VDAT 2660 INX 2670 STX $D404 2680 LDX VDAT+7 2690 INX 2700 STX $D40B 2710 RTS 2720 EFFECTSON SEI 2730 LDA #<EFFONLY 2740 STA $0314 2750 LDA #>EFFONLY 2760 STA $0315 2770 CLI 2780 RTS 2790 EFFONLY JSR STACK 2800 JSR DESTACK 2810 JMP $EA31 3000 ; MAIN GAME LOOP 3005 MAIN LDA #$00 3010 STA DEAD 3020 STA EFDAT 3030 JSR MUSON 3040 JSR FULLSDISP 3050 LDA $A2 3060 CLC 3070 ADC CLOCK 3080 STA CLOCK 3090 MAINLOP JSR YOU 3100 JSR MONSTERS 3110 JSR PANEL 3120 LDA DEAD 3130 BNE GAMEOVER 3140 LDA CLOCK 3150 TRLOP CMP $A2 3160 BCC TRLOP 3170 CLC 3180 ADC #$03 3190 STA CLOCK 3200 JMP MAINLOP 3210 GAMEOVER JSR GAMEND 4000 ; GRAPHIC ROUTINES 4005 DISPBLOCK JSR STACK 4007 JSR INITDB 4010 LDX YPS 4020 YPLOPD CPX #$00 4030 BEQ YPDCNT 4040 DEX 4050 LDA MEMS 4060 CLC 4070 ADC #$50 4082 STA MEMS 4090 BCC YPLOPD 4100 INC MEMS+1 4110 JMP YPLOPD 4120 YPDCNT LDA XPS 4130 ASL A 4140 CLC 4150 ADC MEMS 4160 STA MEMS 4170 BCC XPCNT 4180 INC MEMS+1 4310 XPCNT LDA (XP),Y 4320 STA BT 4325 LDX COLCH 4330 ASL A 4335 BNE COLOUR 4340 STA (MEMS),Y 4343 LDX DALL 4346 BNE CHARCONA 4350 CLC 4360 ADC #$01 4370 INY 4380 STA (MEMS),Y 4390 CLC 4400 ADC #$1F 4410 LDY #$28 4420 CHARCONA STA (MEMS),Y 4423 LDX DALL 4426 BNE COLCONB 4430 CLC 4440 ADC #$01 4450 INY 4460 STA (MEMS),Y 4465 JMP UNSTACK 4470 COLOUR LDA MEMS+1 4480 CLC 4490 ADC #$54 4500 STA MEMS+1 4510 LDY #$00 4520 LDA BT 4530 STA (MEMS),Y 4533 LDX DALL 4536 BNE COLCONA 4540 INY 4550 STA (MEMS),Y 4560 LDY #$28 4570 COLCONA STA (MEMS),Y 4573 LDX DALL 4576 BNE COLCONB 4580 INY 4590 STA (MEMS),Y 4600 COLCOMB JMP UNSTACK 4610 INITDB LDA #$04 ; CHANGE TO #$98 4620 STA MEMS+1 4630 LDY #$00 4640 STY MEMS 4650 RST RTS 5000 ; SCROLLING ROUTINES 5010 LSCROLL JSR STACK 5020 LDX XSSTE 5030 INX 5040 TXA 5050 AND #$07 5060 STA XSSTE 5070 CLC 5080 ADC #$10 5090 STA $D016 5100 CMP #$14 5110 BEQ LSCRSCL 5140 CMP #$10 5150 BNE RST 5160 LDX SCRNO 5170 INX 5172 LDA $D018 5175 AND #$15 5177 STA $D018 5180 TXA 5190 AND #$01 5200 STA SCRNO 5210 ASL A 5220 ASL A 5230 ASL A 5240 ASL A 5250 CLC 5260 ADC #$60 5280 ORA $D018 5290 STA $D018 5300 LDA #$01 5310 STA $FB 5320 LDY #$00 5330 STY $FD 5340 LDA $D8 5350 STA $FC 5360 STA $FE 5362 LDA #$01 5365 STA DALL 5370 JSR SCLDISP 5380 LSLOP LDA ($FB),Y 5390 STA ($FD),Y 5400 INY 5410 BNE LSLOP 5420 INC $FC 5430 INC $FE 5440 LDA $FC 5450 CMP #$DC 5460 BNE LSLOP 5470 LDX SCRNO 5480 INX 5490 TXA 5500 AND #$01 5510 STA SCRNO 5512 LDA #$00 5515 STA DALL 5520 JSR SCLDISP 5530 JMP UNSTACK 5540 SCLDISP LDA SCRNO 5550 BEQ SCLDG 5560 RTS 5570 SCLDG LDX #$00 5580 LDA DALL 5590 BNE SCLDBF 5600 SCLDAT STX YPS 5610 LDA #$13 5620 STA XPS 5630 JSR DISPBLOCK 5640 INX 5650 CPX #$0A 5660 BNE SCLDAT 5670 RTS 5680 SCLDBF STX YPS 5690 LDA #$00 5700 STA XPS 5710 JSR DISPBLOCK 5720 INX 5730 CPX #$0A 5740 BNE SCLDBF 5750 RTS 9000 ; INTERLACING ROUTINES 9010 ILACEON SEI 9020 LDA #<INTERLACE 9030 STA $0314 9040 LDA #>INTERLACE 9050 STA $0315 9060 CLI 9070 RTS 9080 ILACEOFF SEI 9090 LDA #<ILACEQUIT 9100 STA $0314 9110 LDA #>ILACEQUIT 9120 STA $0315 9130 LDA #$64 9140 STA $D018 9150 CLI 9160 RTS 9170 INTERLACE LDA ILSTATE 9180 BEQ INZERO 9190 LDA #$00 9200 STA ILSTATE 9210 LDA #$62 9220 STA $D018 9230 LDA #$15 9240 STA $D016 9250 ILACEQUIT JMP (IRQCONT) 9260 INZERO INC ILSTATE 9270 LDA #$60 9280 STA $D018 9290 LDA #$14 9300 STA $D016 9310 JMP (IRQCONT) 10000 ; TEMP ROUTINES 10001 EFFECTS NOP 10002 FULLSDISP NOP 10003 YOU NOP 10004 MONSTERS NOP 10005 PANEL NOP 10006 GAMEND NOP
$ ; CRYSTAL LIGHT � MAIN PROGRAM : ; BY DOMINIC FORD O ; DECEMBER '94 - [( ��$C000 k�; VARIABLES z�DEAD�$CF40 ��CLOCK�$CF41 ��EFDAT�$CF42 �N��$CF43 �MHI�$3F �VDAT�$BC01 �$�=$CF45 �.;XP�$CF44 �8;YP�$CF47 �BMEMS�$41 LXP�$22 QYP�$23 VBT�$CF48 ( `XPS�$CF49 6 jYPS�$CF4A G t;MEMRS�$CF4B W ~;XPTL�$CF4C f �DALL�$CF4D v �XSSTE�$CF4E � �YSSTE�$CF4F � �COLCH�$CF50 � �SCRNO�$CF51 � �AS�RE�$CF52 � �XS�RE�$CF53 � �YS�RE�$CF54 � �IRQ��$CF55 � �ILSTATE�$CF57 �; MUSIC ROUTINES �MUS� SEI * �LDA #�M�PLAY 7 �STA IRQ� H �LDA #�M�PLAY W �STA IRQ��1 a LDA � o STA MHI�1 { LDA �+1 � STA MHI � *LDA #$00 � 4STA N� � >JSR �UP � HCLI � RRTS � \MUSOFF SEI � fLDA #$31 � pSTA IRQ� � zLDA #$EA �STA IRQ��1 �CLI �RTS %�M�PLAY JSR STACK 0�LDA N� :�BEQ � H�JMP $EA31 W�� LDY #$00 g�LDA (MHI),Y r�� #$01 ~�BEQ �MA ��LDA #$07 ���MA TAX � LDA (MHI),Y � LSR A � STA N� �$ CMP #$06 �. BNE MR� �8 LDA VDAT,X �B STA $D404,X �L TAY V INY ` TYA j STA $D404,X ,t JSR DESTACK :~ JMP $EA31 N� STACK STA AS�RE \� STX XS�RE j� STY YS�RE r� RTS �� DESTACK JSR EFFECTS �� UNSTACK LDA AS�RE �� LDX XS�RE �� LDY YS�RE � RTS � MR� INY � LDA (MHI),Y � STA $D400,X �( INY 2 LDA (MHI),Y < STA $D401,X ( F JSR DESTACK 6 P JMP $EA31 G Z �UP LDX VDAT O d INX ] n STX $D404 l x LDX VDAT�7 t � INX � � STX $D40B � � RTS � � EFFECTS� SEI � � LDA #�EFF�LY � � STA $0314 � � LDA #�EFF�LY � � STA $0315 � � CLI � � RTS � � EFF�LY JSR STACK � JSR DESTACK � JMP $EA31 1�; MAIN GAME LOOP C�MAIN LDA #$00 P�STA DEAD ^�STA EFDAT k�JSR MUS� }�JSR FULLSDISP ��LDA $A2 ��CLC ��ADC CLOCK �STA CLOCK �MAINLOP JSR YOU �JSR M�STERS �&JSR PANEL �0LDA DEAD �:BNE GAMEOVER DLDA CLOCK NTRLOP CMP $A2 +XBCC TRLOP 3bCLC @lADC #$03 NvSTA CLOCK ^�JMP MAINLOP t�GAMEOVER JSR GAM� ��; GRAPHIC ROUTINES ��DISPBLOCK JSR STACK ��JSR INITDB ��LDX YPS ��YPLOPD CPX #$00 ��BEQ YPDCNT ��DEX ��LDA MEMS ��CLC �ADC #$50 �STA MEMS '�BCC YPLOPD 6INC MEMS�1 EJMP YPLOPD XYPDCNT LDA XPS b"ASL A j,CLC w6ADC MEMS �@STA MEMS �JBCC XPCNT �TINC MEMS�1 ��XPCNT LDA (XP),Y ��STA BT ��LDX COLCH ��ASL A ��BNE COLOUR ��STA (MEMS),Y �LDX DALL �BNE CHARC�A �CLC +ADC #$01 3INY DSTA (MEMS),Y L&CLC Y0ADC #$1F f:LDY #$28 DCHARC�A STA (MEMS),Y �GLDX DALL �JBNE COLC�B �NCLC �XADC #$01 �bINY �lSTA (MEMS),Y �qJMP UNSTACK �vCOLOUR LDA MEMS�1 ��CLC �ADC #$54 �STA MEMS�1 �LDY #$00 +�LDA BT <�STA (MEMS),Y I�LDX DALL X�BNE COLC�A `�INY q�STA (MEMS),Y ~�LDY #$28 ��COLC�A STA (MEMS),Y ��LDX DALL ��BNE COLC�B ��INY ��STA (MEMS),Y ��COLCOMB JMP UNSTACK INITDB LDA #$04 ; CHANGE � #$98 STA MEMS�1 #LDY #$00 0 STY MEMS <*RST RTS U�; SCROLLING ROUTINES k�LSCROLL JSR STACK y�LDX XSSTE ��INX ��TXA ��� #$07 ��STA XSSTE ��CLC ��ADC #$10 ��STA $D016 ��CMP #$14 ��BEQ LSCRSCL �CMP #$10 �BNE RST (LDX SCRNO 2INX 4LDA $D018 *7� #$15 89STA $D018 @<TXA KF� #$01 YPSTA SCRNO cZASL A mdASL A wnASL A �xASL A ��CLC ��ADC #$60 ���A $D018 ��STA $D018 ��LDA #$01 ��STA $FB ��LDY #$00 ��STY $FD ��LDA $D8 ��STA $FC �STA $FE �LDA #$01 !�STA DALL 1�JSR SCLDISP GLSLOP LDA ($FB),Y WSTA ($FD),Y _INY m"BNE LSLOP y,INC $FC �6INC $FE �@LDA $FC �JCMP #$DC �TBNE LSLOP �^LDX SCRNO �hINX �rTXA �|� #$01 ��STA SCRNO ��LDA #$00 ��STA DALL �JSR SCLDISP �JMP UNSTACK 3�SCLDISP LDA SCRNO A�BEQ SCLDG I�RTS \�SCLDG LDX #$00 i�LDA DALL x�BNE SCLDBF ��SCLDAT STX YPS ��LDA #$13 ��STA XPS ��JSR DISPBLOCK �INX �CPX #$0A �BNE SCLDAT �&RTS �0SCLDBF STX YPS :LDA #$00 DSTA XPS NJSR DISPBLOCK (XINX 5bCPX #$0A DlBNE SCLDBF LvRTS g(#; INTERLACING ROUTINES v2#ILACE� SEI �<#LDA #��ERLACE �F#STA $0314 �P#LDA #��ERLACE �Z#STA $0315 �d#CLI �n#RTS �x#ILACEOFF SEI ��#LDA #�ILACEQUIT ��#STA $0314 �#LDA #�ILACEQUIT �#STA $0315 (�#LDA #$64 6�#STA $D018 >�#CLI F�#RTS ^�#�ERLACE LDA ILSTATE m�#BEQ INZERO z�#LDA #$00 ��#STA ILSTATE ��#LDA #$62 �$STA $D018 �$LDA #$15 �$STA $D016 �"$ILACEQUIT JMP (IRQ�) �,$INZERO INC ILSTATE �6$LDA #$60 @$STA $D018 J$LDA #$14 &T$STA $D016 5^$JMP (IRQ�) I'; TEMP ROUTINES Y'EFFECTS NOP k'FULLSDISP NOP w'YOU NOP �'M�STERS NOP �'PANEL NOP �'GAM� NOP
$HJ@; crystal light . main program@:HT@; by dominic ford@oH.@; december '94 -@[H(@..$c000@KH.C; variables@ZH.Cdead.$cf40@.H.Cclock.$cf41@.H.Cefdat.$cf42@.HFDn..$cf43@.HPDmhi.$3f@.HZDvdat.$bc01@.H$D.=$cf45@.H.D;xp.$cf44@.H8D;yp.$cf47@.HbDmems.$41@BIlDxp.$22@MIqDyp.$23@ZIvDbt.$cf48@(I.Dxps.$cf49@6IJDyps.$cf4a@gITD;memrs.$cf4b@wI.D;xptl.$cf4c@FI.Ddall.$cf4d@VI.Dxsste.$cf4e@.I.Dysste.$cf4f@.I.Dcolch.$cf50@.I.Dscrno.$cf51@.I.Das.re.$cf52@.I.Dxs.re.$cf53@.I.Dys.re.$cf54@.I.Dirq..$cf55@.I.Dilstate.$cf57@LJ.G; music routines@YJ.Gmus. sei@*J.Glda #.m.play@7J.Gsta irq.@hJ.Glda #.m.play@wJ.Gsta irq..1@AJBHlda .@OJLHsta mhi.1@.JVHlda .+1@.J Hsta mhi@.J*Hlda #$00@.J4Hsta n.@.J>Hjsr .up@.JhHcli@.JrHrts@.J£Hmusoff sei@.JFHlda #$31@.JPHsta irq.@.JZHlda #$ea@@K.Hsta irq..1@HK.Hcli@PK.Hrts@%K.Hm.play jsr stack@0K.Hlda n.@:K.Hbeq .@hK.Hjmp $ea31@wK.H. ldy #$00@GK.Hlda (mhi),y@RK.H. #$01@.K.Hbeq .ma@.K.Hlda #$07@.K.H.ma tax@.KFIlda (mhi),y@.KPIlsr a@.KZIsta n.@.K$Icmp #$06@.K.Ibne mr.@.K8Ilda vdat,x@.KbIsta $d404,x@.KlItay@DLvIiny@LL.Itya@£LJIsta $d404,x@,LTIjsr destack@:L.Ijmp $ea31@nL.Istack sta as.re@£L.Istx xs.re@JL.Isty ys.re@RL.Irts@.L.Idestack jsr effects@.L.Iunstack lda as.re@.L.Ildx xs.re@.L.Ildy ys.re@.L@Jrts@.LJJmr. iny@.LTJlda (mhi),y@.L.Jsta $d400,x@.L(Jiny@HM2Jlda (mhi),y@XM<Jsta $d401,x@(MfJjsr destack@6MpJjmp $ea31@gMzJ.up ldx vdat@oMDJinx@]MNJstx $d404@LMXJldx vdat.7@TM.Jinx@.M.Jstx $d40b@.M.Jrts@.M.Jeffects. sei@.M.Jlda #.eff.ly@.M.Jsta $0314@.M.Jlda #.eff.ly@.M.Jsta $0315@.M.Jcli@.M.Jrts@.M.Jeff.ly jsr stack@NN.Jjsr destack@£N.Jjmp $ea31@1N.K; main game loop@cN.Kmain lda #$00@pN.Ksta dead@.N.Ksta efdat@KN.Kjsr mus.@.N.Kjsr fullsdisp@.N.Klda $a2@.N.Kclc@.N.Kadc clock@.NHLsta clock@.NRLmainlop jsr you@.N£Ljsr m.sters@.N&Ljsr panel@.N0Llda dead@.N:Lbne gameover@KOdLlda clock@]OnLtrlop cmp $a2@+OxLbcc trlop@3OBLclc@@OLLadc #$03@nOVLsta clock@.O.Ljmp mainlop@TO.Lgameover jsr gam.@.O.O; graphic routines@.O.Odispblock jsr stack@.O.Ojsr initdb@.O.Oldx yps@.O.Oyplopd cpx #$00@.O.Obeq ypdcnt@.O.Odex@.O.Olda mems@.O.Oclc@KP.Oadc #$50@XP.Osta mems@'P.Obcc yplopd@6PDPinc mems.1@ePNPjmp yplopd@xPXPypdcnt lda xps@BP"Pasl a@JP,Pclc@WP6Padc mems@.P@Psta mems@.PjPbcc xpcnt@.PtPinc mems.1@.P.Pxpcnt lda (xp),y@.P.Psta bt@.P.Pldx colch@.P.Pasl a@.P.Pbne colour@.P.Psta (mems),y@FQ.Pldx dall@VQ.Pbne charc.a@.Q.Pclc@+QHQadc #$01@3QRQiny@dQ£Qsta (mems),y@lQ&Qclc@yQ0Qadc #$1f@FQ:Qldy #$28@.QdQcharc.a sta (mems),y@.QgQldx dall@.QjQbne colc.b@.QnQclc@.QxQadc #$01@.QBQiny@.QLQsta (mems),y@.QQQjmp unstack@.QVQcolour lda mems.1@.Q.Qclc@DR.Qadc #$54@SR.Qsta mems.1@ R.Qldy #$00@+R.Qlda bt@<R.Qsta (mems),y@iR.Qldx dall@xR.Qbne colc.a@.R.Qiny@QR.Qsta (mems),y@.R.Qldy #$28@.R.Qcolc.a sta (mems),y@.R.Qldx dall@.R.Qbne colc.b@.R.Qiny@.R.Qsta (mems),y@.R.Qcolcomb jmp unstack@GSBRinitdb lda #$04 ; change . #$98@VSLRsta mems.1@#SVRldy #$00@0S Rsty mems@<S*Rrst rts@uS.S; scrolling routines@KS.Slscroll jsr stack@YS.Sldx xsste@.S.Sinx@.S.Stxa@.S.S. #$07@.S.Ssta xsste@.S.Sclc@.S.Sadc #$10@.S.Ssta $d016@.S.Scmp #$14@.S.Sbeq lscrscl@.STTcmp #$10@.S.Tbne rst@IT(Tldx scrno@QT2Tinx@.T4Tlda $d018@*T7T. #$15@8T9Tsta $d018@@T<Ttxa@kTfT. #$01@yTpTsta scrno@CTzTasl a@MTDTasl a@WTNTasl a@.TXTasl a@.T.Tclc@.T.Tadc #$60@.T.T.a $d018@.T.Tsta $d018@.T.Tlda #$01@.T.Tsta $fb@.T.Tldy #$00@.T.Tsty $fd@.T.Tlda $d8@.T.Tsta $fc@GU.Tsta $fe@TU.Tlda #$01@!U.Tsta dall@1U.Tjsr scldisp@gUDUlslop lda ($fb),y@wUNUsta ($fd),y@.UXUiny@MU"Ubne lslop@YU,Uinc $fc@.U6Uinc $fe@.U@Ulda $fc@.UjUcmp #$dc@.UtUbne lslop@.U.Uldx scrno@.UHUinx@.URUtxa@.U.U. #$01@.U.Usta scrno@.U.Ulda #$00@.U.Usta dall@MV.Ujsr scldisp@]V.Ujmp unstack@3V.Uscldisp lda scrno@aV.Ubeq scldg@iV.Urts@£V.Uscldg ldx #$00@IV.Ulda dall@XV.Ubne scldbf@.V.Uscldat stx yps@.V.Ulda #$13@.V.Usta xps@.V.Ujsr dispblock@.VHVinx@.VRVcpx #$0a@.V£Vbne scldat@.V&Vrts@.V0Vscldbf stx yps@BW:Vlda #$00@NWdVsta xps@ WnVjsr dispblock@(WxVinx@5WBVcpx #$0a@dWLVbne scldbf@lWVVrts@GW(#; interlacing routines@VW2#ilace. sei@.W<#lda #..erlace@.Wf#sta $0314@.Wp#lda #..erlace@.Wz#sta $0315@.WD#cli@.WN#rts@.WX#ilaceoff sei@.W.#lda #.ilacequit@.W.#sta $0314@MX.#lda #.ilacequit@[X.#sta $0315@(X.#lda #$64@6X.#sta $d018@>X.#cli@fX.#rts@.X.#.erlace lda ilstate@MX.#beq inzero@ZX.#lda #$00@.X.#sta ilstate@.X.#lda #$62@.XD$sta $d018@.XN$lda #$15@.XX$sta $d016@.X"$ilacequit jmp (irq.)@.X,$inzero inc ilstate@.X6$lda #$60@KY@$sta $d018@XYj$lda #$14@&Yt$sta $d016@5Y.$jmp (irq.)@iYP'; temp routines@yYQ'effects nop@KYR'fullsdisp nop@WYS'you nop@.YT'm.sters nop@.YU'panel nop@.YV'gam. nop@@@
00000000 24 08 0a 00 3b 20 43 52 59 53 54 41 4c 20 4c 49 |$...; CRYSTAL LI| 00000010 47 48 54 20 ab 20 4d 41 49 4e 20 50 52 4f 47 52 |GHT . MAIN PROGR| 00000020 41 4d 00 3a 08 14 00 3b 20 42 59 20 44 4f 4d 49 |AM.:...; BY DOMI| 00000030 4e 49 43 20 46 4f 52 44 00 4f 08 1e 00 3b 20 44 |NIC FORD.O...; D| 00000040 45 43 45 4d 42 45 52 20 27 39 34 20 2d 00 5b 08 |ECEMBER '94 -.[.| 00000050 28 00 ac b2 24 43 30 30 30 00 6b 08 e8 03 3b 20 |(...$C000.k...; | 00000060 56 41 52 49 41 42 4c 45 53 00 7a 08 ed 03 44 45 |VARIABLES.z...DE| 00000070 41 44 b2 24 43 46 34 30 00 8a 08 f2 03 43 4c 4f |AD.$CF40.....CLO| 00000080 43 4b b2 24 43 46 34 31 00 9a 08 fc 03 45 46 44 |CK.$CF41.....EFD| 00000090 41 54 b2 24 43 46 34 32 00 a7 08 06 04 4e 92 b2 |AT.$CF42.....N..| 000000a0 24 43 46 34 33 00 b3 08 10 04 4d 48 49 b2 24 33 |$CF43.....MHI.$3| 000000b0 46 00 c2 08 1a 04 56 44 41 54 b2 24 42 43 30 31 |F.....VDAT.$BC01| 000000c0 00 ce 08 24 04 83 3d 24 43 46 34 35 00 dc 08 2e |...$..=$CF45....| 000000d0 04 3b 58 50 b2 24 43 46 34 34 00 ea 08 38 04 3b |.;XP.$CF44...8.;| 000000e0 59 50 b2 24 43 46 34 37 00 f7 08 42 04 4d 45 4d |YP.$CF47...B.MEM| 000000f0 53 b2 24 34 31 00 02 09 4c 04 58 50 b2 24 32 32 |S.$41...L.XP.$22| 00000100 00 0d 09 51 04 59 50 b2 24 32 33 00 1a 09 56 04 |...Q.YP.$23...V.| 00000110 42 54 b2 24 43 46 34 38 00 28 09 60 04 58 50 53 |BT.$CF48.(.`.XPS| 00000120 b2 24 43 46 34 39 00 36 09 6a 04 59 50 53 b2 24 |.$CF49.6.j.YPS.$| 00000130 43 46 34 41 00 47 09 74 04 3b 4d 45 4d 52 53 b2 |CF4A.G.t.;MEMRS.| 00000140 24 43 46 34 42 00 57 09 7e 04 3b 58 50 54 4c b2 |$CF4B.W.~.;XPTL.| 00000150 24 43 46 34 43 00 66 09 88 04 44 41 4c 4c b2 24 |$CF4C.f...DALL.$| 00000160 43 46 34 44 00 76 09 92 04 58 53 53 54 45 b2 24 |CF4D.v...XSSTE.$| 00000170 43 46 34 45 00 86 09 9c 04 59 53 53 54 45 b2 24 |CF4E.....YSSTE.$| 00000180 43 46 34 46 00 96 09 a6 04 43 4f 4c 43 48 b2 24 |CF4F.....COLCH.$| 00000190 43 46 35 30 00 a6 09 b0 04 53 43 52 4e 4f b2 24 |CF50.....SCRNO.$| 000001a0 43 46 35 31 00 b6 09 ba 04 41 53 a4 52 45 b2 24 |CF51.....AS.RE.$| 000001b0 43 46 35 32 00 c6 09 c4 04 58 53 a4 52 45 b2 24 |CF52.....XS.RE.$| 000001c0 43 46 35 33 00 d6 09 ce 04 59 53 a4 52 45 b2 24 |CF53.....YS.RE.$| 000001d0 43 46 35 34 00 e5 09 d8 04 49 52 51 9a b2 24 43 |CF54.....IRQ..$C| 000001e0 46 35 35 00 f7 09 e2 04 49 4c 53 54 41 54 45 b2 |F55.....ILSTATE.| 000001f0 24 43 46 35 37 00 0c 0a d0 07 3b 20 4d 55 53 49 |$CF57.....; MUSI| 00000200 43 20 52 4f 55 54 49 4e 45 53 00 19 0a d5 07 4d |C ROUTINES.....M| 00000210 55 53 91 20 53 45 49 00 2a 0a da 07 4c 44 41 20 |US. SEI.*...LDA | 00000220 23 b3 4d 83 50 4c 41 59 00 37 0a e4 07 53 54 41 |#.M.PLAY.7...STA| 00000230 20 49 52 51 9a 00 48 0a ee 07 4c 44 41 20 23 b1 | IRQ..H...LDA #.| 00000240 4d 83 50 4c 41 59 00 57 0a f8 07 53 54 41 20 49 |M.PLAY.W...STA I| 00000250 52 51 9a aa 31 00 61 0a 02 08 4c 44 41 20 83 00 |RQ..1.a...LDA ..| 00000260 6f 0a 0c 08 53 54 41 20 4d 48 49 aa 31 00 7b 0a |o...STA MHI.1.{.| 00000270 16 08 4c 44 41 20 83 2b 31 00 87 0a 20 08 53 54 |..LDA .+1... .ST| 00000280 41 20 4d 48 49 00 94 0a 2a 08 4c 44 41 20 23 24 |A MHI...*.LDA #$| 00000290 30 30 00 9f 0a 34 08 53 54 41 20 4e 92 00 ab 0a |00...4.STA N....| 000002a0 3e 08 4a 53 52 20 e8 55 50 00 b3 0a 48 08 43 4c |>.JSR .UP...H.CL| 000002b0 49 00 bb 0a 52 08 52 54 53 00 ca 0a 5c 08 4d 55 |I...R.RTS...\.MU| 000002c0 53 4f 46 46 20 53 45 49 00 d7 0a 66 08 4c 44 41 |SOFF SEI...f.LDA| 000002d0 20 23 24 33 31 00 e4 0a 70 08 53 54 41 20 49 52 | #$31...p.STA IR| 000002e0 51 9a 00 f1 0a 7a 08 4c 44 41 20 23 24 45 41 00 |Q....z.LDA #$EA.| 000002f0 00 0b 84 08 53 54 41 20 49 52 51 9a aa 31 00 08 |....STA IRQ..1..| 00000300 0b 8e 08 43 4c 49 00 10 0b 98 08 52 54 53 00 25 |...CLI.....RTS.%| 00000310 0b a2 08 4d 83 50 4c 41 59 20 4a 53 52 20 53 54 |...M.PLAY JSR ST| 00000320 41 43 4b 00 30 0b ac 08 4c 44 41 20 4e 92 00 3a |ACK.0...LDA N..:| 00000330 0b b6 08 42 45 51 20 87 00 48 0b c0 08 4a 4d 50 |...BEQ ..H...JMP| 00000340 20 24 45 41 33 31 00 57 0b ca 08 87 20 4c 44 59 | $EA31.W.... LDY| 00000350 20 23 24 30 30 00 67 0b d4 08 4c 44 41 20 28 4d | #$00.g...LDA (M| 00000360 48 49 29 2c 59 00 72 0b de 08 af 20 23 24 30 31 |HI),Y.r.... #$01| 00000370 00 7e 0b e8 08 42 45 51 20 9a 4d 41 00 8b 0b f2 |.~...BEQ .MA....| 00000380 08 4c 44 41 20 23 24 30 37 00 97 0b fc 08 9a 4d |.LDA #$07......M| 00000390 41 20 54 41 58 00 a7 0b 06 09 4c 44 41 20 28 4d |A TAX.....LDA (M| 000003a0 48 49 29 2c 59 00 b1 0b 10 09 4c 53 52 20 41 00 |HI),Y.....LSR A.| 000003b0 bc 0b 1a 09 53 54 41 20 4e 92 00 c9 0b 24 09 43 |....STA N....$.C| 000003c0 4d 50 20 23 24 30 36 00 d5 0b 2e 09 42 4e 45 20 |MP #$06.....BNE | 000003d0 4d 52 9a 00 e4 0b 38 09 4c 44 41 20 56 44 41 54 |MR....8.LDA VDAT| 000003e0 2c 58 00 f4 0b 42 09 53 54 41 20 24 44 34 30 34 |,X...B.STA $D404| 000003f0 2c 58 00 fc 0b 4c 09 54 41 59 00 04 0c 56 09 49 |,X...L.TAY...V.I| 00000400 4e 59 00 0c 0c 60 09 54 59 41 00 1c 0c 6a 09 53 |NY...`.TYA...j.S| 00000410 54 41 20 24 44 34 30 34 2c 58 00 2c 0c 74 09 4a |TA $D404,X.,.t.J| 00000420 53 52 20 44 45 53 54 41 43 4b 00 3a 0c 7e 09 4a |SR DESTACK.:.~.J| 00000430 4d 50 20 24 45 41 33 31 00 4e 0c 88 09 53 54 41 |MP $EA31.N...STA| 00000440 43 4b 20 53 54 41 20 41 53 a4 52 45 00 5c 0c 92 |CK STA AS.RE.\..| 00000450 09 53 54 58 20 58 53 a4 52 45 00 6a 0c 9c 09 53 |.STX XS.RE.j...S| 00000460 54 59 20 59 53 a4 52 45 00 72 0c ba 09 52 54 53 |TY YS.RE.r...RTS| 00000470 00 8a 0c c4 09 44 45 53 54 41 43 4b 20 4a 53 52 |.....DESTACK JSR| 00000480 20 45 46 46 45 43 54 53 00 a0 0c ce 09 55 4e 53 | EFFECTS.....UNS| 00000490 54 41 43 4b 20 4c 44 41 20 41 53 a4 52 45 00 ae |TACK LDA AS.RE..| 000004a0 0c d8 09 4c 44 58 20 58 53 a4 52 45 00 bc 0c e2 |...LDX XS.RE....| 000004b0 09 4c 44 59 20 59 53 a4 52 45 00 c4 0c 00 0a 52 |.LDY YS.RE.....R| 000004c0 54 53 00 d0 0c 0a 0a 4d 52 9a 20 49 4e 59 00 e0 |TS.....MR. INY..| 000004d0 0c 14 0a 4c 44 41 20 28 4d 48 49 29 2c 59 00 f0 |...LDA (MHI),Y..| 000004e0 0c 1e 0a 53 54 41 20 24 44 34 30 30 2c 58 00 f8 |...STA $D400,X..| 000004f0 0c 28 0a 49 4e 59 00 08 0d 32 0a 4c 44 41 20 28 |.(.INY...2.LDA (| 00000500 4d 48 49 29 2c 59 00 18 0d 3c 0a 53 54 41 20 24 |MHI),Y...<.STA $| 00000510 44 34 30 31 2c 58 00 28 0d 46 0a 4a 53 52 20 44 |D401,X.(.F.JSR D| 00000520 45 53 54 41 43 4b 00 36 0d 50 0a 4a 4d 50 20 24 |ESTACK.6.P.JMP $| 00000530 45 41 33 31 00 47 0d 5a 0a e8 55 50 20 4c 44 58 |EA31.G.Z..UP LDX| 00000540 20 56 44 41 54 00 4f 0d 64 0a 49 4e 58 00 5d 0d | VDAT.O.d.INX.].| 00000550 6e 0a 53 54 58 20 24 44 34 30 34 00 6c 0d 78 0a |n.STX $D404.l.x.| 00000560 4c 44 58 20 56 44 41 54 aa 37 00 74 0d 82 0a 49 |LDX VDAT.7.t...I| 00000570 4e 58 00 82 0d 8c 0a 53 54 58 20 24 44 34 30 42 |NX.....STX $D40B| 00000580 00 8a 0d 96 0a 52 54 53 00 9b 0d a0 0a 45 46 46 |.....RTS.....EFF| 00000590 45 43 54 53 91 20 53 45 49 00 ac 0d aa 0a 4c 44 |ECTS. SEI.....LD| 000005a0 41 20 23 b3 45 46 46 91 4c 59 00 ba 0d b4 0a 53 |A #.EFF.LY.....S| 000005b0 54 41 20 24 30 33 31 34 00 cb 0d be 0a 4c 44 41 |TA $0314.....LDA| 000005c0 20 23 b1 45 46 46 91 4c 59 00 d9 0d c8 0a 53 54 | #.EFF.LY.....ST| 000005d0 41 20 24 30 33 31 35 00 e1 0d d2 0a 43 4c 49 00 |A $0315.....CLI.| 000005e0 e9 0d dc 0a 52 54 53 00 fe 0d e6 0a 45 46 46 91 |....RTS.....EFF.| 000005f0 4c 59 20 4a 53 52 20 53 54 41 43 4b 00 0e 0e f0 |LY JSR STACK....| 00000600 0a 4a 53 52 20 44 45 53 54 41 43 4b 00 1c 0e fa |.JSR DESTACK....| 00000610 0a 4a 4d 50 20 24 45 41 33 31 00 31 0e b8 0b 3b |.JMP $EA31.1...;| 00000620 20 4d 41 49 4e 20 47 41 4d 45 20 4c 4f 4f 50 00 | MAIN GAME LOOP.| 00000630 43 0e bd 0b 4d 41 49 4e 20 4c 44 41 20 23 24 30 |C...MAIN LDA #$0| 00000640 30 00 50 0e c2 0b 53 54 41 20 44 45 41 44 00 5e |0.P...STA DEAD.^| 00000650 0e cc 0b 53 54 41 20 45 46 44 41 54 00 6b 0e d6 |...STA EFDAT.k..| 00000660 0b 4a 53 52 20 4d 55 53 91 00 7d 0e e0 0b 4a 53 |.JSR MUS..}...JS| 00000670 52 20 46 55 4c 4c 53 44 49 53 50 00 89 0e ea 0b |R FULLSDISP.....| 00000680 4c 44 41 20 24 41 32 00 91 0e f4 0b 43 4c 43 00 |LDA $A2.....CLC.| 00000690 9f 0e fe 0b 41 44 43 20 43 4c 4f 43 4b 00 ad 0e |....ADC CLOCK...| 000006a0 08 0c 53 54 41 20 43 4c 4f 43 4b 00 c1 0e 12 0c |..STA CLOCK.....| 000006b0 4d 41 49 4e 4c 4f 50 20 4a 53 52 20 59 4f 55 00 |MAINLOP JSR YOU.| 000006c0 d1 0e 1c 0c 4a 53 52 20 4d 91 53 54 45 52 53 00 |....JSR M.STERS.| 000006d0 df 0e 26 0c 4a 53 52 20 50 41 4e 45 4c 00 ec 0e |..&.JSR PANEL...| 000006e0 30 0c 4c 44 41 20 44 45 41 44 00 fd 0e 3a 0c 42 |0.LDA DEAD...:.B| 000006f0 4e 45 20 47 41 4d 45 4f 56 45 52 00 0b 0f 44 0c |NE GAMEOVER...D.| 00000700 4c 44 41 20 43 4c 4f 43 4b 00 1d 0f 4e 0c 54 52 |LDA CLOCK...N.TR| 00000710 4c 4f 50 20 43 4d 50 20 24 41 32 00 2b 0f 58 0c |LOP CMP $A2.+.X.| 00000720 42 43 43 20 54 52 4c 4f 50 00 33 0f 62 0c 43 4c |BCC TRLOP.3.b.CL| 00000730 43 00 40 0f 6c 0c 41 44 43 20 23 24 30 33 00 4e |C.@.l.ADC #$03.N| 00000740 0f 76 0c 53 54 41 20 43 4c 4f 43 4b 00 5e 0f 80 |.v.STA CLOCK.^..| 00000750 0c 4a 4d 50 20 4d 41 49 4e 4c 4f 50 00 74 0f 8a |.JMP MAINLOP.t..| 00000760 0c 47 41 4d 45 4f 56 45 52 20 4a 53 52 20 47 41 |.GAMEOVER JSR GA| 00000770 4d 80 00 8b 0f a0 0f 3b 20 47 52 41 50 48 49 43 |M......; GRAPHIC| 00000780 20 52 4f 55 54 49 4e 45 53 00 a3 0f a5 0f 44 49 | ROUTINES.....DI| 00000790 53 50 42 4c 4f 43 4b 20 4a 53 52 20 53 54 41 43 |SPBLOCK JSR STAC| 000007a0 4b 00 b2 0f a7 0f 4a 53 52 20 49 4e 49 54 44 42 |K.....JSR INITDB| 000007b0 00 be 0f aa 0f 4c 44 58 20 59 50 53 00 d2 0f b4 |.....LDX YPS....| 000007c0 0f 59 50 4c 4f 50 44 20 43 50 58 20 23 24 30 30 |.YPLOPD CPX #$00| 000007d0 00 e1 0f be 0f 42 45 51 20 59 50 44 43 4e 54 00 |.....BEQ YPDCNT.| 000007e0 e9 0f c8 0f 44 45 58 00 f6 0f d2 0f 4c 44 41 20 |....DEX.....LDA | 000007f0 4d 45 4d 53 00 fe 0f dc 0f 43 4c 43 00 0b 10 e6 |MEMS.....CLC....| 00000800 0f 41 44 43 20 23 24 35 30 00 18 10 f2 0f 53 54 |.ADC #$50.....ST| 00000810 41 20 4d 45 4d 53 00 27 10 fa 0f 42 43 43 20 59 |A MEMS.'...BCC Y| 00000820 50 4c 4f 50 44 00 36 10 04 10 49 4e 43 20 4d 45 |PLOPD.6...INC ME| 00000830 4d 53 aa 31 00 45 10 0e 10 4a 4d 50 20 59 50 4c |MS.1.E...JMP YPL| 00000840 4f 50 44 00 58 10 18 10 59 50 44 43 4e 54 20 4c |OPD.X...YPDCNT L| 00000850 44 41 20 58 50 53 00 62 10 22 10 41 53 4c 20 41 |DA XPS.b.".ASL A| 00000860 00 6a 10 2c 10 43 4c 43 00 77 10 36 10 41 44 43 |.j.,.CLC.w.6.ADC| 00000870 20 4d 45 4d 53 00 84 10 40 10 53 54 41 20 4d 45 | MEMS...@.STA ME| 00000880 4d 53 00 92 10 4a 10 42 43 43 20 58 50 43 4e 54 |MS...J.BCC XPCNT| 00000890 00 a1 10 54 10 49 4e 43 20 4d 45 4d 53 aa 31 00 |...T.INC MEMS.1.| 000008a0 b6 10 d6 10 58 50 43 4e 54 20 4c 44 41 20 28 58 |....XPCNT LDA (X| 000008b0 50 29 2c 59 00 c1 10 e0 10 53 54 41 20 42 54 00 |P),Y.....STA BT.| 000008c0 cf 10 e5 10 4c 44 58 20 43 4f 4c 43 48 00 d9 10 |....LDX COLCH...| 000008d0 ea 10 41 53 4c 20 41 00 e8 10 ef 10 42 4e 45 20 |..ASL A.....BNE | 000008e0 43 4f 4c 4f 55 52 00 f9 10 f4 10 53 54 41 20 28 |COLOUR.....STA (| 000008f0 4d 45 4d 53 29 2c 59 00 06 11 f7 10 4c 44 58 20 |MEMS),Y.....LDX | 00000900 44 41 4c 4c 00 16 11 fa 10 42 4e 45 20 43 48 41 |DALL.....BNE CHA| 00000910 52 43 91 41 00 1e 11 fe 10 43 4c 43 00 2b 11 08 |RC.A.....CLC.+..| 00000920 11 41 44 43 20 23 24 30 31 00 33 11 12 11 49 4e |.ADC #$01.3...IN| 00000930 59 00 44 11 1c 11 53 54 41 20 28 4d 45 4d 53 29 |Y.D...STA (MEMS)| 00000940 2c 59 00 4c 11 26 11 43 4c 43 00 59 11 30 11 41 |,Y.L.&.CLC.Y.0.A| 00000950 44 43 20 23 24 31 46 00 66 11 3a 11 4c 44 59 20 |DC #$1F.f.:.LDY | 00000960 23 24 32 38 00 7f 11 44 11 43 48 41 52 43 91 41 |#$28...D.CHARC.A| 00000970 20 53 54 41 20 28 4d 45 4d 53 29 2c 59 00 8c 11 | STA (MEMS),Y...| 00000980 47 11 4c 44 58 20 44 41 4c 4c 00 9b 11 4a 11 42 |G.LDX DALL...J.B| 00000990 4e 45 20 43 4f 4c 43 91 42 00 a3 11 4e 11 43 4c |NE COLC.B...N.CL| 000009a0 43 00 b0 11 58 11 41 44 43 20 23 24 30 31 00 b8 |C...X.ADC #$01..| 000009b0 11 62 11 49 4e 59 00 c9 11 6c 11 53 54 41 20 28 |.b.INY...l.STA (| 000009c0 4d 45 4d 53 29 2c 59 00 d9 11 71 11 4a 4d 50 20 |MEMS),Y...q.JMP | 000009d0 55 4e 53 54 41 43 4b 00 ef 11 76 11 43 4f 4c 4f |UNSTACK...v.COLO| 000009e0 55 52 20 4c 44 41 20 4d 45 4d 53 aa 31 00 f7 11 |UR LDA MEMS.1...| 000009f0 80 11 43 4c 43 00 04 12 8a 11 41 44 43 20 23 24 |..CLC.....ADC #$| 00000a00 35 34 00 13 12 94 11 53 54 41 20 4d 45 4d 53 aa |54.....STA MEMS.| 00000a10 31 00 20 12 9e 11 4c 44 59 20 23 24 30 30 00 2b |1. ...LDY #$00.+| 00000a20 12 a8 11 4c 44 41 20 42 54 00 3c 12 b2 11 53 54 |...LDA BT.<...ST| 00000a30 41 20 28 4d 45 4d 53 29 2c 59 00 49 12 b5 11 4c |A (MEMS),Y.I...L| 00000a40 44 58 20 44 41 4c 4c 00 58 12 b8 11 42 4e 45 20 |DX DALL.X...BNE | 00000a50 43 4f 4c 43 91 41 00 60 12 bc 11 49 4e 59 00 71 |COLC.A.`...INY.q| 00000a60 12 c6 11 53 54 41 20 28 4d 45 4d 53 29 2c 59 00 |...STA (MEMS),Y.| 00000a70 7e 12 d0 11 4c 44 59 20 23 24 32 38 00 96 12 da |~...LDY #$28....| 00000a80 11 43 4f 4c 43 91 41 20 53 54 41 20 28 4d 45 4d |.COLC.A STA (MEM| 00000a90 53 29 2c 59 00 a3 12 dd 11 4c 44 58 20 44 41 4c |S),Y.....LDX DAL| 00000aa0 4c 00 b2 12 e0 11 42 4e 45 20 43 4f 4c 43 91 42 |L.....BNE COLC.B| 00000ab0 00 ba 12 e4 11 49 4e 59 00 cb 12 ee 11 53 54 41 |.....INY.....STA| 00000ac0 20 28 4d 45 4d 53 29 2c 59 00 e3 12 f8 11 43 4f | (MEMS),Y.....CO| 00000ad0 4c 43 4f 4d 42 20 4a 4d 50 20 55 4e 53 54 41 43 |LCOMB JMP UNSTAC| 00000ae0 4b 00 07 13 02 12 49 4e 49 54 44 42 20 4c 44 41 |K.....INITDB LDA| 00000af0 20 23 24 30 34 20 3b 20 43 48 41 4e 47 45 20 a4 | #$04 ; CHANGE .| 00000b00 20 23 24 39 38 00 16 13 0c 12 53 54 41 20 4d 45 | #$98.....STA ME| 00000b10 4d 53 aa 31 00 23 13 16 12 4c 44 59 20 23 24 30 |MS.1.#...LDY #$0| 00000b20 30 00 30 13 20 12 53 54 59 20 4d 45 4d 53 00 3c |0.0. .STY MEMS.<| 00000b30 13 2a 12 52 53 54 20 52 54 53 00 55 13 88 13 3b |.*.RST RTS.U...;| 00000b40 20 53 43 52 4f 4c 4c 49 4e 47 20 52 4f 55 54 49 | SCROLLING ROUTI| 00000b50 4e 45 53 00 6b 13 92 13 4c 53 43 52 4f 4c 4c 20 |NES.k...LSCROLL | 00000b60 4a 53 52 20 53 54 41 43 4b 00 79 13 9c 13 4c 44 |JSR STACK.y...LD| 00000b70 58 20 58 53 53 54 45 00 81 13 a6 13 49 4e 58 00 |X XSSTE.....INX.| 00000b80 89 13 b0 13 54 58 41 00 94 13 ba 13 af 20 23 24 |....TXA...... #$| 00000b90 30 37 00 a2 13 c4 13 53 54 41 20 58 53 53 54 45 |07.....STA XSSTE| 00000ba0 00 aa 13 ce 13 43 4c 43 00 b7 13 d8 13 41 44 43 |.....CLC.....ADC| 00000bb0 20 23 24 31 30 00 c5 13 e2 13 53 54 41 20 24 44 | #$10.....STA $D| 00000bc0 30 31 36 00 d2 13 ec 13 43 4d 50 20 23 24 31 34 |016.....CMP #$14| 00000bd0 00 e2 13 f6 13 42 45 51 20 4c 53 43 52 53 43 4c |.....BEQ LSCRSCL| 00000be0 00 ef 13 14 14 43 4d 50 20 23 24 31 30 00 fb 13 |.....CMP #$10...| 00000bf0 1e 14 42 4e 45 20 52 53 54 00 09 14 28 14 4c 44 |..BNE RST...(.LD| 00000c00 58 20 53 43 52 4e 4f 00 11 14 32 14 49 4e 58 00 |X SCRNO...2.INX.| 00000c10 1f 14 34 14 4c 44 41 20 24 44 30 31 38 00 2a 14 |..4.LDA $D018.*.| 00000c20 37 14 af 20 23 24 31 35 00 38 14 39 14 53 54 41 |7.. #$15.8.9.STA| 00000c30 20 24 44 30 31 38 00 40 14 3c 14 54 58 41 00 4b | $D018.@.<.TXA.K| 00000c40 14 46 14 af 20 23 24 30 31 00 59 14 50 14 53 54 |.F.. #$01.Y.P.ST| 00000c50 41 20 53 43 52 4e 4f 00 63 14 5a 14 41 53 4c 20 |A SCRNO.c.Z.ASL | 00000c60 41 00 6d 14 64 14 41 53 4c 20 41 00 77 14 6e 14 |A.m.d.ASL A.w.n.| 00000c70 41 53 4c 20 41 00 81 14 78 14 41 53 4c 20 41 00 |ASL A...x.ASL A.| 00000c80 89 14 82 14 43 4c 43 00 96 14 8c 14 41 44 43 20 |....CLC.....ADC | 00000c90 23 24 36 30 00 a3 14 a0 14 b0 41 20 24 44 30 31 |#$60......A $D01| 00000ca0 38 00 b1 14 aa 14 53 54 41 20 24 44 30 31 38 00 |8.....STA $D018.| 00000cb0 be 14 b4 14 4c 44 41 20 23 24 30 31 00 ca 14 be |....LDA #$01....| 00000cc0 14 53 54 41 20 24 46 42 00 d7 14 c8 14 4c 44 59 |.STA $FB.....LDY| 00000cd0 20 23 24 30 30 00 e3 14 d2 14 53 54 59 20 24 46 | #$00.....STY $F| 00000ce0 44 00 ef 14 dc 14 4c 44 41 20 24 44 38 00 fb 14 |D.....LDA $D8...| 00000cf0 e6 14 53 54 41 20 24 46 43 00 07 15 f0 14 53 54 |..STA $FC.....ST| 00000d00 41 20 24 46 45 00 14 15 f2 14 4c 44 41 20 23 24 |A $FE.....LDA #$| 00000d10 30 31 00 21 15 f5 14 53 54 41 20 44 41 4c 4c 00 |01.!...STA DALL.| 00000d20 31 15 fa 14 4a 53 52 20 53 43 4c 44 49 53 50 00 |1...JSR SCLDISP.| 00000d30 47 15 04 15 4c 53 4c 4f 50 20 4c 44 41 20 28 24 |G...LSLOP LDA ($| 00000d40 46 42 29 2c 59 00 57 15 0e 15 53 54 41 20 28 24 |FB),Y.W...STA ($| 00000d50 46 44 29 2c 59 00 5f 15 18 15 49 4e 59 00 6d 15 |FD),Y._...INY.m.| 00000d60 22 15 42 4e 45 20 4c 53 4c 4f 50 00 79 15 2c 15 |".BNE LSLOP.y.,.| 00000d70 49 4e 43 20 24 46 43 00 85 15 36 15 49 4e 43 20 |INC $FC...6.INC | 00000d80 24 46 45 00 91 15 40 15 4c 44 41 20 24 46 43 00 |$FE...@.LDA $FC.| 00000d90 9e 15 4a 15 43 4d 50 20 23 24 44 43 00 ac 15 54 |..J.CMP #$DC...T| 00000da0 15 42 4e 45 20 4c 53 4c 4f 50 00 ba 15 5e 15 4c |.BNE LSLOP...^.L| 00000db0 44 58 20 53 43 52 4e 4f 00 c2 15 68 15 49 4e 58 |DX SCRNO...h.INX| 00000dc0 00 ca 15 72 15 54 58 41 00 d5 15 7c 15 af 20 23 |...r.TXA...|.. #| 00000dd0 24 30 31 00 e3 15 86 15 53 54 41 20 53 43 52 4e |$01.....STA SCRN| 00000de0 4f 00 f0 15 88 15 4c 44 41 20 23 24 30 30 00 fd |O.....LDA #$00..| 00000df0 15 8b 15 53 54 41 20 44 41 4c 4c 00 0d 16 90 15 |...STA DALL.....| 00000e00 4a 53 52 20 53 43 4c 44 49 53 50 00 1d 16 9a 15 |JSR SCLDISP.....| 00000e10 4a 4d 50 20 55 4e 53 54 41 43 4b 00 33 16 a4 15 |JMP UNSTACK.3...| 00000e20 53 43 4c 44 49 53 50 20 4c 44 41 20 53 43 52 4e |SCLDISP LDA SCRN| 00000e30 4f 00 41 16 ae 15 42 45 51 20 53 43 4c 44 47 00 |O.A...BEQ SCLDG.| 00000e40 49 16 b8 15 52 54 53 00 5c 16 c2 15 53 43 4c 44 |I...RTS.\...SCLD| 00000e50 47 20 4c 44 58 20 23 24 30 30 00 69 16 cc 15 4c |G LDX #$00.i...L| 00000e60 44 41 20 44 41 4c 4c 00 78 16 d6 15 42 4e 45 20 |DA DALL.x...BNE | 00000e70 53 43 4c 44 42 46 00 8b 16 e0 15 53 43 4c 44 41 |SCLDBF.....SCLDA| 00000e80 54 20 53 54 58 20 59 50 53 00 98 16 ea 15 4c 44 |T STX YPS.....LD| 00000e90 41 20 23 24 31 33 00 a4 16 f4 15 53 54 41 20 58 |A #$13.....STA X| 00000ea0 50 53 00 b6 16 fe 15 4a 53 52 20 44 49 53 50 42 |PS.....JSR DISPB| 00000eb0 4c 4f 43 4b 00 be 16 08 16 49 4e 58 00 cb 16 12 |LOCK.....INX....| 00000ec0 16 43 50 58 20 23 24 30 41 00 da 16 1c 16 42 4e |.CPX #$0A.....BN| 00000ed0 45 20 53 43 4c 44 41 54 00 e2 16 26 16 52 54 53 |E SCLDAT...&.RTS| 00000ee0 00 f5 16 30 16 53 43 4c 44 42 46 20 53 54 58 20 |...0.SCLDBF STX | 00000ef0 59 50 53 00 02 17 3a 16 4c 44 41 20 23 24 30 30 |YPS...:.LDA #$00| 00000f00 00 0e 17 44 16 53 54 41 20 58 50 53 00 20 17 4e |...D.STA XPS. .N| 00000f10 16 4a 53 52 20 44 49 53 50 42 4c 4f 43 4b 00 28 |.JSR DISPBLOCK.(| 00000f20 17 58 16 49 4e 58 00 35 17 62 16 43 50 58 20 23 |.X.INX.5.b.CPX #| 00000f30 24 30 41 00 44 17 6c 16 42 4e 45 20 53 43 4c 44 |$0A.D.l.BNE SCLD| 00000f40 42 46 00 4c 17 76 16 52 54 53 00 67 17 28 23 3b |BF.L.v.RTS.g.(#;| 00000f50 20 49 4e 54 45 52 4c 41 43 49 4e 47 20 52 4f 55 | INTERLACING ROU| 00000f60 54 49 4e 45 53 00 76 17 32 23 49 4c 41 43 45 91 |TINES.v.2#ILACE.| 00000f70 20 53 45 49 00 88 17 3c 23 4c 44 41 20 23 b3 b5 | SEI...<#LDA #..| 00000f80 45 52 4c 41 43 45 00 96 17 46 23 53 54 41 20 24 |ERLACE...F#STA $| 00000f90 30 33 31 34 00 a8 17 50 23 4c 44 41 20 23 b1 b5 |0314...P#LDA #..| 00000fa0 45 52 4c 41 43 45 00 b6 17 5a 23 53 54 41 20 24 |ERLACE...Z#STA $| 00000fb0 30 33 31 35 00 be 17 64 23 43 4c 49 00 c6 17 6e |0315...d#CLI...n| 00000fc0 23 52 54 53 00 d7 17 78 23 49 4c 41 43 45 4f 46 |#RTS...x#ILACEOF| 00000fd0 46 20 53 45 49 00 eb 17 82 23 4c 44 41 20 23 b3 |F SEI....#LDA #.| 00000fe0 49 4c 41 43 45 51 55 49 54 00 f9 17 8c 23 53 54 |ILACEQUIT....#ST| 00000ff0 41 20 24 30 33 31 34 00 0d 18 96 23 4c 44 41 20 |A $0314....#LDA | 00001000 23 b1 49 4c 41 43 45 51 55 49 54 00 1b 18 a0 23 |#.ILACEQUIT....#| 00001010 53 54 41 20 24 30 33 31 35 00 28 18 aa 23 4c 44 |STA $0315.(..#LD| 00001020 41 20 23 24 36 34 00 36 18 b4 23 53 54 41 20 24 |A #$64.6..#STA $| 00001030 44 30 31 38 00 3e 18 be 23 43 4c 49 00 46 18 c8 |D018.>..#CLI.F..| 00001040 23 52 54 53 00 5e 18 d2 23 b5 45 52 4c 41 43 45 |#RTS.^..#.ERLACE| 00001050 20 4c 44 41 20 49 4c 53 54 41 54 45 00 6d 18 dc | LDA ILSTATE.m..| 00001060 23 42 45 51 20 49 4e 5a 45 52 4f 00 7a 18 e6 23 |#BEQ INZERO.z..#| 00001070 4c 44 41 20 23 24 30 30 00 8a 18 f0 23 53 54 41 |LDA #$00....#STA| 00001080 20 49 4c 53 54 41 54 45 00 97 18 fa 23 4c 44 41 | ILSTATE....#LDA| 00001090 20 23 24 36 32 00 a5 18 04 24 53 54 41 20 24 44 | #$62....$STA $D| 000010a0 30 31 38 00 b2 18 0e 24 4c 44 41 20 23 24 31 35 |018....$LDA #$15| 000010b0 00 c0 18 18 24 53 54 41 20 24 44 30 31 36 00 d9 |....$STA $D016..| 000010c0 18 22 24 49 4c 41 43 45 51 55 49 54 20 4a 4d 50 |."$ILACEQUIT JMP| 000010d0 20 28 49 52 51 9a 29 00 f0 18 2c 24 49 4e 5a 45 | (IRQ.)...,$INZE| 000010e0 52 4f 20 49 4e 43 20 49 4c 53 54 41 54 45 00 fd |RO INC ILSTATE..| 000010f0 18 36 24 4c 44 41 20 23 24 36 30 00 0b 19 40 24 |.6$LDA #$60...@$| 00001100 53 54 41 20 24 44 30 31 38 00 18 19 4a 24 4c 44 |STA $D018...J$LD| 00001110 41 20 23 24 31 34 00 26 19 54 24 53 54 41 20 24 |A #$14.&.T$STA $| 00001120 44 30 31 36 00 35 19 5e 24 4a 4d 50 20 28 49 52 |D016.5.^$JMP (IR| 00001130 51 9a 29 00 49 19 10 27 3b 20 54 45 4d 50 20 52 |Q.).I..'; TEMP R| 00001140 4f 55 54 49 4e 45 53 00 59 19 11 27 45 46 46 45 |OUTINES.Y..'EFFE| 00001150 43 54 53 20 4e 4f 50 00 6b 19 12 27 46 55 4c 4c |CTS NOP.k..'FULL| 00001160 53 44 49 53 50 20 4e 4f 50 00 77 19 13 27 59 4f |SDISP NOP.w..'YO| 00001170 55 20 4e 4f 50 00 87 19 14 27 4d 91 53 54 45 52 |U NOP....'M.STER| 00001180 53 20 4e 4f 50 00 95 19 15 27 50 41 4e 45 4c 20 |S NOP....'PANEL | 00001190 4e 4f 50 00 a2 19 16 27 47 41 4d 80 20 4e 4f 50 |NOP....'GAM. NOP| 000011a0 00 00 00 |...| 000011a3