Home » Personal collection » Commodore disks » disk47a_unlabelled.d64 » main 15.4.95

main 15.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 15.4.95
Read OK:
File size: 1083 bytes
Load address: 0801
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

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 XPR=$CF44
  1080 YPR=$CF47
  1090 MEMS=$41
  1100 MEMR=$22
  1110 BT=$CF48
  1120 XPS=$CF49
  1130 YPS=$CF4A
  1140 MEMRS=$CF4B
  1150 ;XPTL=$CF4C
  1160 ;YPTL=$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
  4190 XPCNT LDA MEMRS
  4200 STA MEMR+1
  4210 LDA #$00
  4220 LDX YPR
  4230 DBYLOP BEQ YPCNT
  4240 CLC
  4250 ADC #$14
  4260 DEX
  4270 JMP DBYLOP
  4280 YPCNT CLC
  4290 ADC XPR
  4300 STA MEMR
  4310 LDA (MEMR),Y
  4320 STA BT
  4325 LDX COLCH
  4330 ASL A
  4335 BNE COLOUR
  4340 STA (MEMS),Y
  4350 CLC
  4360 ADC #$01
  4370 INY
  4380 STA (MEMS),Y
  4390 CLC
  4400 ADC #$1F
  4410 LDY #$28
  4420 STA (MEMS),Y
  4430 CLC
  4440 ADC #$01
  4450 INY
  4460 STA (MEMS),Y
  4465 JMP STACK
  4470 COLOUR LDA MEMS+1
  4480 CLC
  4490 ADC #$54
  4500 STA MEMS+1
  4510 LDY #$00
  4520 LDA BT
  4530 STA (MEMS),Y
  4540 INY
  4550 STA (MEMS),Y
  4560 LDY #$28
  4570 STA (MEMS),Y
  4580 INY
  4590 STA (MEMS),Y
  4600 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
  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
  5520 JSR SCLDISP
  5530 JMP UNSTACK
  5540 SCLDISP LDA SCRNO
  5550 BEQ SCLDG
  5560 RTS
  5570 SCLDG
  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 FORDO; DECEMBER '94 -[(��$C000k�; VARIABLESz�DEAD�$CF40��CLOCK�$CF41��EFDAT�$CF42�N��$CF43�MHI�$3F�VDAT�$BC01�$�=$CF45�.XPR�$CF44�8YPR�$CF47�BMEMS�$41	LMEMR�$22	VBT�$CF48	`XPS�$CF49-	jYPS�$CF4A=	tMEMRS�$CF4BM	~;XPTL�$CF4C]	�;YPTL�$CF4Dm	�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.
�STA IRQ�?
�LDA #�M�PLAYN
�STA IRQ��1X
LDA �f
STA MHI�1r
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'�LDA N�1�BEQ �?�JMP $EA31N�� LDY #$00^�LDA (MHI),Yi�� #$01u�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 DESTACK1~	JMP $EA31E�	STACK STA AS�RES�	STX XS�REa�	STY YS�REi�	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-
P
JMP $EA31>
Z
�UP LDX VDATF
d
INXT
n
STX $D404c
x
LDX VDAT�7k
�
INXy
�
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(�; MAIN GAME LOOP:�MAIN LDA #$00G�STA DEADU�STA EFDATb�JSR MUS�t�JSR FULLSDISP��LDA $A2��CLC��ADC CLOCK�STA CLOCK�MAINLOP JSR YOU�JSR M�STERS�&JSR PANEL�0LDA DEAD�:BNE GAMEOVERDLDA CLOCKNTRLOP CMP $A2"XBCC TRLOP*bCLC7lADC #$03EvSTA CLOCKU�JMP MAINLOPk�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-INC MEMS�1<JMP YPLOPDOYPDCNT LDA XPSY"ASL Aa,CLCn6ADC MEMS{@STA MEMS�JBCC XPCNT�TINC MEMS�1�^XPCNT LDA MEMRS�hSTA MEMR�1�rLDA #$00�|LDX YPR��DBYLOP BEQ YPCNT��CLC��ADC #$14�DEX�JMP DBYLOP#�YPCNT CLC/�ADC XPR<�STA MEMRM�LDA (MEMR),YX�STA BTf�LDX COLCHp�ASL A�BNE COLOUR��STA (MEMS),Y��CLC�ADC #$01�INY�STA (MEMS),Y�&CLC�0ADC #$1F�:LDY #$28�DSTA (MEMS),Y�NCLCXADC #$01bINYlSTA (MEMS),Y-qJMP STACKCvCOLOUR LDA MEMS�1K�CLCX�ADC #$54g�STA MEMS�1t�LDY #$00�LDA BT��STA (MEMS),Y��INY��STA (MEMS),Y��LDY #$28��STA (MEMS),Y��INY��STA (MEMS),Y��JMP UNSTACKINITDB LDA #$04 ; CHANGE � #$98#STA MEMS�10LDY #$00= STY MEMSI*RST RTSb�; SCROLLING ROUTINESx�LSCROLL JSR STACK��LDX XSSTE��INX��TXA��� #$07��STA XSSTE��CLC��ADC #$10��STA $D016��CMP #$14��BEQ LSCRSCL�CMP #$10BNE RST(LDX SCRNO2INX,4LDA $D01877� #$15E9STA $D018M<TXAXF� #$01fPSTA SCRNOpZASL AzdASL A�nASL A�xASL A��CLC��ADC #$60���A $D018��STA $D018��LDA #$01��STA $FB��LDY #$00��STY $FD��LDA $D8�STA $FC�STA $FE$�JSR SCLDISP:LSLOP LDA ($FB),YJSTA ($FD),YRINY`"BNE LSLOPl,INC $FCx6INC $FE�@LDA $FC�JCMP #$DC�TBNE LSLOP�^LDX SCRNO�hINX�rTXA�|� #$01��STA SCRNO��JSR SCLDISP��JMP UNSTACK�SCLDISP LDA SCRNO�BEQ SCLDG"�RTS,�SCLDGG(#; INTERLACING ROUTINESV2#ILACE� SEIh<#LDA #��ERLACEvF#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�#STA $D018�#CLI&�#RTS>�#�ERLACE LDA ILSTATEM�#BEQ INZEROZ�#LDA #$00j�#STA ILSTATEw�#LDA #$62�$STA $D018�$LDA #$15�$STA $D016�"$ILACEQUIT JMP (IRQ�)�,$INZERO INC ILSTATE�6$LDA #$60�@$STA $D018�J$LDA #$14T$STA $D016^$JMP (IRQ�))'; TEMP ROUTINES9'EFFECTS NOPK'FULLSDISP NOPW'YOU NOPg'M�STERS NOPu'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.Dxpr.$cf44@.H8Dypr.$cf47@.HbDmems.$41@DIlDmemr.$22@QIvDbt.$cf48@.I.Dxps.$cf49@-IJDyps.$cf4a@=ITDmemrs.$cf4b@mI.D;xptl.$cf4c@]I.D;yptl.$cf4d@MI.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@CJ.G; music routines@PJ.Gmus. sei@!J.Glda #.m.play@.J.Gsta irq.@?J.Glda #.m.play@nJ.Gsta irq..1@xJBHlda .@FJLHsta mhi.1@RJVHlda .+1@.J Hsta mhi@.J*Hlda #$00@.J4Hsta n.@.J>Hjsr .up@.JhHcli@.JrHrts@.J£Hmusoff sei@.JFHlda #$31@.JPHsta irq.@.JZHlda #$ea@.J.Hsta irq..1@.J.Hcli@GK.Hrts@£K.Hm.play jsr stack@'K.Hlda n.@1K.Hbeq .@?K.Hjmp $ea31@nK.H. ldy #$00@.K.Hlda (mhi),y@IK.H. #$01@UK.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@.KvIiny@CL.Itya@SLJIsta $d404,x@#LTIjsr destack@1L.Ijmp $ea31@eL.Istack sta as.re@sL.Istx xs.re@AL.Isty ys.re@IL.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@.L2Jlda (mhi),y@OM<Jsta $d401,x@.MfJjsr destack@-MpJjmp $ea31@>MzJ.up ldx vdat@fMDJinx@tMNJstx $d404@CMXJldx vdat.7@KM.Jinx@YM.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@EN.Jjsr destack@SN.Jjmp $ea31@(N.K; main game loop@:N.Kmain lda #$00@gN.Ksta dead@uN.Ksta efdat@BN.Kjsr mus.@TN.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@BOdLlda clock@TOnLtrlop cmp $a2@"OxLbcc trlop@*OBLclc@7OLLadc #$03@eOVLsta clock@uO.Ljmp mainlop@KO.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@BP.Oadc #$50@OP.Osta mems@.P.Obcc yplopd@-PDPinc mems.1@<PNPjmp yplopd@oPXPypdcnt lda xps@yP"Pasl a@AP,Pclc@NP6Padc mems@.P@Psta mems@.PjPbcc xpcnt@.PtPinc mems.1@.P.Pxpcnt lda memrs@.PHPsta memr.1@.PRPlda #$00@.P.Pldx ypr@.P.Pdbylop beq ypcnt@.P.Pclc@.P.Padc #$14@FQ.Pdex@UQ.Pjmp dbylop@#Q.Pypcnt clc@/Q.Padc xpr@<Q.Psta memr@mQ.Plda (memr),y@xQ.Psta bt@FQ.Pldx colch@PQ.Pasl a@.Q.Pbne colour@.Q.Psta (mems),y@.Q.Pclc@.QHQadc #$01@.QRQiny@.Q£Qsta (mems),y@.Q&Qclc@.Q0Qadc #$1f@.Q:Qldy #$28@.QdQsta (mems),y@.QnQclc@FRxQadc #$01@NRBQiny@.RLQsta (mems),y@-RQQjmp stack@cRVQcolour lda mems.1@kR.Qclc@xR.Qadc #$54@GR.Qsta mems.1@TR.Qldy #$00@.R.Qlda bt@.R.Qsta (mems),y@.R.Qiny@.R.Qsta (mems),y@.R.Qldy #$28@.R.Qsta (mems),y@.R.Qiny@.R.Qsta (mems),y@.R.Qjmp unstack@TSBRinitdb lda #$04 ; change . #$98@#SLRsta mems.1@0SVRldy #$00@=S Rsty mems@iS*Rrst rts@BS.S; scrolling routines@XS.Slscroll jsr stack@.S.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@HT.Tbne rst@VT(Tldx scrno@.T2Tinx@,T4Tlda $d018@7T7T. #$15@eT9Tsta $d018@mT<Ttxa@xTfT. #$01@FTpTsta scrno@PTzTasl a@ZTDTasl a@.TNTasl 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@HU.Tsta $fc@TU.Tsta $fe@$U.Tjsr scldisp@:UDUlslop lda ($fb),y@jUNUsta ($fd),y@rUXUiny@.U"Ubne lslop@LU,Uinc $fc@XU6Uinc $fe@.U@Ulda $fc@.UjUcmp #$dc@.UtUbne lslop@.U.Uldx scrno@.UHUinx@.URUtxa@.U.U. #$01@.U.Usta scrno@.U.Ujsr scldisp@.U.Ujmp unstack@LV.Uscldisp lda scrno@ZV.Ubeq scldg@"V.Urts@,V.Uscldg@gV(#; interlacing routines@vV2#ilace. sei@HV<#lda #..erlace@VVf#sta $0314@.Vp#lda #..erlace@.Vz#sta $0315@.VD#cli@.VN#rts@.VX#ilaceoff sei@.V.#lda #.ilacequit@.V.#sta $0314@.V.#lda #.ilacequit@.V.#sta $0315@HW.#lda #$64@VW.#sta $d018@.W.#cli@&W.#rts@>W.#.erlace lda ilstate@mW.#beq inzero@zW.#lda #$00@JW.#sta ilstate@WW.#lda #$62@.WD$sta $d018@.WN$lda #$15@.WX$sta $d016@.W"$ilacequit jmp (irq.)@.W,$inzero inc ilstate@.W6$lda #$60@.W@$sta $d018@.Wj$lda #$14@FXt$sta $d016@UX.$jmp (irq.)@)XP'; temp routines@9XQ'effects nop@kXR'fullsdisp nop@wXS'you nop@GXT'm.sters nop@UXU'panel nop@.XV'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 58 50 52 b2 24 43 46  34 34 00 ea 08 38 04 59  |.XPR.$CF44...8.Y|
000000e0  50 52 b2 24 43 46 34 37  00 f7 08 42 04 4d 45 4d  |PR.$CF47...B.MEM|
000000f0  53 b2 24 34 31 00 04 09  4c 04 4d 45 4d 52 b2 24  |S.$41...L.MEMR.$|
00000100  32 32 00 11 09 56 04 42  54 b2 24 43 46 34 38 00  |22...V.BT.$CF48.|
00000110  1f 09 60 04 58 50 53 b2  24 43 46 34 39 00 2d 09  |..`.XPS.$CF49.-.|
00000120  6a 04 59 50 53 b2 24 43  46 34 41 00 3d 09 74 04  |j.YPS.$CF4A.=.t.|
00000130  4d 45 4d 52 53 b2 24 43  46 34 42 00 4d 09 7e 04  |MEMRS.$CF4B.M.~.|
00000140  3b 58 50 54 4c b2 24 43  46 34 43 00 5d 09 88 04  |;XPTL.$CF4C.]...|
00000150  3b 59 50 54 4c b2 24 43  46 34 44 00 6d 09 92 04  |;YPTL.$CF4D.m...|
00000160  58 53 53 54 45 b2 24 43  46 34 45 00 7d 09 9c 04  |XSSTE.$CF4E.}...|
00000170  59 53 53 54 45 b2 24 43  46 34 46 00 8d 09 a6 04  |YSSTE.$CF4F.....|
00000180  43 4f 4c 43 48 b2 24 43  46 35 30 00 9d 09 b0 04  |COLCH.$CF50.....|
00000190  53 43 52 4e 4f b2 24 43  46 35 31 00 ad 09 ba 04  |SCRNO.$CF51.....|
000001a0  41 53 a4 52 45 b2 24 43  46 35 32 00 bd 09 c4 04  |AS.RE.$CF52.....|
000001b0  58 53 a4 52 45 b2 24 43  46 35 33 00 cd 09 ce 04  |XS.RE.$CF53.....|
000001c0  59 53 a4 52 45 b2 24 43  46 35 34 00 dc 09 d8 04  |YS.RE.$CF54.....|
000001d0  49 52 51 9a b2 24 43 46  35 35 00 ee 09 e2 04 49  |IRQ..$CF55.....I|
000001e0  4c 53 54 41 54 45 b2 24  43 46 35 37 00 03 0a d0  |LSTATE.$CF57....|
000001f0  07 3b 20 4d 55 53 49 43  20 52 4f 55 54 49 4e 45  |.; MUSIC ROUTINE|
00000200  53 00 10 0a d5 07 4d 55  53 91 20 53 45 49 00 21  |S.....MUS. SEI.!|
00000210  0a da 07 4c 44 41 20 23  b3 4d 83 50 4c 41 59 00  |...LDA #.M.PLAY.|
00000220  2e 0a e4 07 53 54 41 20  49 52 51 9a 00 3f 0a ee  |....STA IRQ..?..|
00000230  07 4c 44 41 20 23 b1 4d  83 50 4c 41 59 00 4e 0a  |.LDA #.M.PLAY.N.|
00000240  f8 07 53 54 41 20 49 52  51 9a aa 31 00 58 0a 02  |..STA IRQ..1.X..|
00000250  08 4c 44 41 20 83 00 66  0a 0c 08 53 54 41 20 4d  |.LDA ..f...STA M|
00000260  48 49 aa 31 00 72 0a 16  08 4c 44 41 20 83 2b 31  |HI.1.r...LDA .+1|
00000270  00 7e 0a 20 08 53 54 41  20 4d 48 49 00 8b 0a 2a  |.~. .STA MHI...*|
00000280  08 4c 44 41 20 23 24 30  30 00 96 0a 34 08 53 54  |.LDA #$00...4.ST|
00000290  41 20 4e 92 00 a2 0a 3e  08 4a 53 52 20 e8 55 50  |A N....>.JSR .UP|
000002a0  00 aa 0a 48 08 43 4c 49  00 b2 0a 52 08 52 54 53  |...H.CLI...R.RTS|
000002b0  00 c1 0a 5c 08 4d 55 53  4f 46 46 20 53 45 49 00  |...\.MUSOFF SEI.|
000002c0  ce 0a 66 08 4c 44 41 20  23 24 33 31 00 db 0a 70  |..f.LDA #$31...p|
000002d0  08 53 54 41 20 49 52 51  9a 00 e8 0a 7a 08 4c 44  |.STA IRQ....z.LD|
000002e0  41 20 23 24 45 41 00 f7  0a 84 08 53 54 41 20 49  |A #$EA.....STA I|
000002f0  52 51 9a aa 31 00 ff 0a  8e 08 43 4c 49 00 07 0b  |RQ..1.....CLI...|
00000300  98 08 52 54 53 00 1c 0b  a2 08 4d 83 50 4c 41 59  |..RTS.....M.PLAY|
00000310  20 4a 53 52 20 53 54 41  43 4b 00 27 0b ac 08 4c  | JSR STACK.'...L|
00000320  44 41 20 4e 92 00 31 0b  b6 08 42 45 51 20 87 00  |DA N..1...BEQ ..|
00000330  3f 0b c0 08 4a 4d 50 20  24 45 41 33 31 00 4e 0b  |?...JMP $EA31.N.|
00000340  ca 08 87 20 4c 44 59 20  23 24 30 30 00 5e 0b d4  |... LDY #$00.^..|
00000350  08 4c 44 41 20 28 4d 48  49 29 2c 59 00 69 0b de  |.LDA (MHI),Y.i..|
00000360  08 af 20 23 24 30 31 00  75 0b e8 08 42 45 51 20  |.. #$01.u...BEQ |
00000370  9a 4d 41 00 82 0b f2 08  4c 44 41 20 23 24 30 37  |.MA.....LDA #$07|
00000380  00 8e 0b fc 08 9a 4d 41  20 54 41 58 00 9e 0b 06  |......MA TAX....|
00000390  09 4c 44 41 20 28 4d 48  49 29 2c 59 00 a8 0b 10  |.LDA (MHI),Y....|
000003a0  09 4c 53 52 20 41 00 b3  0b 1a 09 53 54 41 20 4e  |.LSR A.....STA N|
000003b0  92 00 c0 0b 24 09 43 4d  50 20 23 24 30 36 00 cc  |....$.CMP #$06..|
000003c0  0b 2e 09 42 4e 45 20 4d  52 9a 00 db 0b 38 09 4c  |...BNE MR....8.L|
000003d0  44 41 20 56 44 41 54 2c  58 00 eb 0b 42 09 53 54  |DA VDAT,X...B.ST|
000003e0  41 20 24 44 34 30 34 2c  58 00 f3 0b 4c 09 54 41  |A $D404,X...L.TA|
000003f0  59 00 fb 0b 56 09 49 4e  59 00 03 0c 60 09 54 59  |Y...V.INY...`.TY|
00000400  41 00 13 0c 6a 09 53 54  41 20 24 44 34 30 34 2c  |A...j.STA $D404,|
00000410  58 00 23 0c 74 09 4a 53  52 20 44 45 53 54 41 43  |X.#.t.JSR DESTAC|
00000420  4b 00 31 0c 7e 09 4a 4d  50 20 24 45 41 33 31 00  |K.1.~.JMP $EA31.|
00000430  45 0c 88 09 53 54 41 43  4b 20 53 54 41 20 41 53  |E...STACK STA AS|
00000440  a4 52 45 00 53 0c 92 09  53 54 58 20 58 53 a4 52  |.RE.S...STX XS.R|
00000450  45 00 61 0c 9c 09 53 54  59 20 59 53 a4 52 45 00  |E.a...STY YS.RE.|
00000460  69 0c ba 09 52 54 53 00  81 0c c4 09 44 45 53 54  |i...RTS.....DEST|
00000470  41 43 4b 20 4a 53 52 20  45 46 46 45 43 54 53 00  |ACK JSR EFFECTS.|
00000480  97 0c ce 09 55 4e 53 54  41 43 4b 20 4c 44 41 20  |....UNSTACK LDA |
00000490  41 53 a4 52 45 00 a5 0c  d8 09 4c 44 58 20 58 53  |AS.RE.....LDX XS|
000004a0  a4 52 45 00 b3 0c e2 09  4c 44 59 20 59 53 a4 52  |.RE.....LDY YS.R|
000004b0  45 00 bb 0c 00 0a 52 54  53 00 c7 0c 0a 0a 4d 52  |E.....RTS.....MR|
000004c0  9a 20 49 4e 59 00 d7 0c  14 0a 4c 44 41 20 28 4d  |. INY.....LDA (M|
000004d0  48 49 29 2c 59 00 e7 0c  1e 0a 53 54 41 20 24 44  |HI),Y.....STA $D|
000004e0  34 30 30 2c 58 00 ef 0c  28 0a 49 4e 59 00 ff 0c  |400,X...(.INY...|
000004f0  32 0a 4c 44 41 20 28 4d  48 49 29 2c 59 00 0f 0d  |2.LDA (MHI),Y...|
00000500  3c 0a 53 54 41 20 24 44  34 30 31 2c 58 00 1f 0d  |<.STA $D401,X...|
00000510  46 0a 4a 53 52 20 44 45  53 54 41 43 4b 00 2d 0d  |F.JSR DESTACK.-.|
00000520  50 0a 4a 4d 50 20 24 45  41 33 31 00 3e 0d 5a 0a  |P.JMP $EA31.>.Z.|
00000530  e8 55 50 20 4c 44 58 20  56 44 41 54 00 46 0d 64  |.UP LDX VDAT.F.d|
00000540  0a 49 4e 58 00 54 0d 6e  0a 53 54 58 20 24 44 34  |.INX.T.n.STX $D4|
00000550  30 34 00 63 0d 78 0a 4c  44 58 20 56 44 41 54 aa  |04.c.x.LDX VDAT.|
00000560  37 00 6b 0d 82 0a 49 4e  58 00 79 0d 8c 0a 53 54  |7.k...INX.y...ST|
00000570  58 20 24 44 34 30 42 00  81 0d 96 0a 52 54 53 00  |X $D40B.....RTS.|
00000580  92 0d a0 0a 45 46 46 45  43 54 53 91 20 53 45 49  |....EFFECTS. SEI|
00000590  00 a3 0d aa 0a 4c 44 41  20 23 b3 45 46 46 91 4c  |.....LDA #.EFF.L|
000005a0  59 00 b1 0d b4 0a 53 54  41 20 24 30 33 31 34 00  |Y.....STA $0314.|
000005b0  c2 0d be 0a 4c 44 41 20  23 b1 45 46 46 91 4c 59  |....LDA #.EFF.LY|
000005c0  00 d0 0d c8 0a 53 54 41  20 24 30 33 31 35 00 d8  |.....STA $0315..|
000005d0  0d d2 0a 43 4c 49 00 e0  0d dc 0a 52 54 53 00 f5  |...CLI.....RTS..|
000005e0  0d e6 0a 45 46 46 91 4c  59 20 4a 53 52 20 53 54  |...EFF.LY JSR ST|
000005f0  41 43 4b 00 05 0e f0 0a  4a 53 52 20 44 45 53 54  |ACK.....JSR DEST|
00000600  41 43 4b 00 13 0e fa 0a  4a 4d 50 20 24 45 41 33  |ACK.....JMP $EA3|
00000610  31 00 28 0e b8 0b 3b 20  4d 41 49 4e 20 47 41 4d  |1.(...; MAIN GAM|
00000620  45 20 4c 4f 4f 50 00 3a  0e bd 0b 4d 41 49 4e 20  |E LOOP.:...MAIN |
00000630  4c 44 41 20 23 24 30 30  00 47 0e c2 0b 53 54 41  |LDA #$00.G...STA|
00000640  20 44 45 41 44 00 55 0e  cc 0b 53 54 41 20 45 46  | DEAD.U...STA EF|
00000650  44 41 54 00 62 0e d6 0b  4a 53 52 20 4d 55 53 91  |DAT.b...JSR MUS.|
00000660  00 74 0e e0 0b 4a 53 52  20 46 55 4c 4c 53 44 49  |.t...JSR FULLSDI|
00000670  53 50 00 80 0e ea 0b 4c  44 41 20 24 41 32 00 88  |SP.....LDA $A2..|
00000680  0e f4 0b 43 4c 43 00 96  0e fe 0b 41 44 43 20 43  |...CLC.....ADC C|
00000690  4c 4f 43 4b 00 a4 0e 08  0c 53 54 41 20 43 4c 4f  |LOCK.....STA CLO|
000006a0  43 4b 00 b8 0e 12 0c 4d  41 49 4e 4c 4f 50 20 4a  |CK.....MAINLOP J|
000006b0  53 52 20 59 4f 55 00 c8  0e 1c 0c 4a 53 52 20 4d  |SR YOU.....JSR M|
000006c0  91 53 54 45 52 53 00 d6  0e 26 0c 4a 53 52 20 50  |.STERS...&.JSR P|
000006d0  41 4e 45 4c 00 e3 0e 30  0c 4c 44 41 20 44 45 41  |ANEL...0.LDA DEA|
000006e0  44 00 f4 0e 3a 0c 42 4e  45 20 47 41 4d 45 4f 56  |D...:.BNE GAMEOV|
000006f0  45 52 00 02 0f 44 0c 4c  44 41 20 43 4c 4f 43 4b  |ER...D.LDA CLOCK|
00000700  00 14 0f 4e 0c 54 52 4c  4f 50 20 43 4d 50 20 24  |...N.TRLOP CMP $|
00000710  41 32 00 22 0f 58 0c 42  43 43 20 54 52 4c 4f 50  |A2.".X.BCC TRLOP|
00000720  00 2a 0f 62 0c 43 4c 43  00 37 0f 6c 0c 41 44 43  |.*.b.CLC.7.l.ADC|
00000730  20 23 24 30 33 00 45 0f  76 0c 53 54 41 20 43 4c  | #$03.E.v.STA CL|
00000740  4f 43 4b 00 55 0f 80 0c  4a 4d 50 20 4d 41 49 4e  |OCK.U...JMP MAIN|
00000750  4c 4f 50 00 6b 0f 8a 0c  47 41 4d 45 4f 56 45 52  |LOP.k...GAMEOVER|
00000760  20 4a 53 52 20 47 41 4d  80 00 82 0f a0 0f 3b 20  | JSR GAM......; |
00000770  47 52 41 50 48 49 43 20  52 4f 55 54 49 4e 45 53  |GRAPHIC ROUTINES|
00000780  00 9a 0f a5 0f 44 49 53  50 42 4c 4f 43 4b 20 4a  |.....DISPBLOCK J|
00000790  53 52 20 53 54 41 43 4b  00 a9 0f a7 0f 4a 53 52  |SR STACK.....JSR|
000007a0  20 49 4e 49 54 44 42 00  b5 0f aa 0f 4c 44 58 20  | INITDB.....LDX |
000007b0  59 50 53 00 c9 0f b4 0f  59 50 4c 4f 50 44 20 43  |YPS.....YPLOPD C|
000007c0  50 58 20 23 24 30 30 00  d8 0f be 0f 42 45 51 20  |PX #$00.....BEQ |
000007d0  59 50 44 43 4e 54 00 e0  0f c8 0f 44 45 58 00 ed  |YPDCNT.....DEX..|
000007e0  0f d2 0f 4c 44 41 20 4d  45 4d 53 00 f5 0f dc 0f  |...LDA MEMS.....|
000007f0  43 4c 43 00 02 10 e6 0f  41 44 43 20 23 24 35 30  |CLC.....ADC #$50|
00000800  00 0f 10 f2 0f 53 54 41  20 4d 45 4d 53 00 1e 10  |.....STA MEMS...|
00000810  fa 0f 42 43 43 20 59 50  4c 4f 50 44 00 2d 10 04  |..BCC YPLOPD.-..|
00000820  10 49 4e 43 20 4d 45 4d  53 aa 31 00 3c 10 0e 10  |.INC MEMS.1.<...|
00000830  4a 4d 50 20 59 50 4c 4f  50 44 00 4f 10 18 10 59  |JMP YPLOPD.O...Y|
00000840  50 44 43 4e 54 20 4c 44  41 20 58 50 53 00 59 10  |PDCNT LDA XPS.Y.|
00000850  22 10 41 53 4c 20 41 00  61 10 2c 10 43 4c 43 00  |".ASL A.a.,.CLC.|
00000860  6e 10 36 10 41 44 43 20  4d 45 4d 53 00 7b 10 40  |n.6.ADC MEMS.{.@|
00000870  10 53 54 41 20 4d 45 4d  53 00 89 10 4a 10 42 43  |.STA MEMS...J.BC|
00000880  43 20 58 50 43 4e 54 00  98 10 54 10 49 4e 43 20  |C XPCNT...T.INC |
00000890  4d 45 4d 53 aa 31 00 ac  10 5e 10 58 50 43 4e 54  |MEMS.1...^.XPCNT|
000008a0  20 4c 44 41 20 4d 45 4d  52 53 00 bb 10 68 10 53  | LDA MEMRS...h.S|
000008b0  54 41 20 4d 45 4d 52 aa  31 00 c8 10 72 10 4c 44  |TA MEMR.1...r.LD|
000008c0  41 20 23 24 30 30 00 d4  10 7c 10 4c 44 58 20 59  |A #$00...|.LDX Y|
000008d0  50 52 00 e9 10 86 10 44  42 59 4c 4f 50 20 42 45  |PR.....DBYLOP BE|
000008e0  51 20 59 50 43 4e 54 00  f1 10 90 10 43 4c 43 00  |Q YPCNT.....CLC.|
000008f0  fe 10 9a 10 41 44 43 20  23 24 31 34 00 06 11 a4  |....ADC #$14....|
00000900  10 44 45 58 00 15 11 ae  10 4a 4d 50 20 44 42 59  |.DEX.....JMP DBY|
00000910  4c 4f 50 00 23 11 b8 10  59 50 43 4e 54 20 43 4c  |LOP.#...YPCNT CL|
00000920  43 00 2f 11 c2 10 41 44  43 20 58 50 52 00 3c 11  |C./...ADC XPR.<.|
00000930  cc 10 53 54 41 20 4d 45  4d 52 00 4d 11 d6 10 4c  |..STA MEMR.M...L|
00000940  44 41 20 28 4d 45 4d 52  29 2c 59 00 58 11 e0 10  |DA (MEMR),Y.X...|
00000950  53 54 41 20 42 54 00 66  11 e5 10 4c 44 58 20 43  |STA BT.f...LDX C|
00000960  4f 4c 43 48 00 70 11 ea  10 41 53 4c 20 41 00 7f  |OLCH.p...ASL A..|
00000970  11 ef 10 42 4e 45 20 43  4f 4c 4f 55 52 00 90 11  |...BNE COLOUR...|
00000980  f4 10 53 54 41 20 28 4d  45 4d 53 29 2c 59 00 98  |..STA (MEMS),Y..|
00000990  11 fe 10 43 4c 43 00 a5  11 08 11 41 44 43 20 23  |...CLC.....ADC #|
000009a0  24 30 31 00 ad 11 12 11  49 4e 59 00 be 11 1c 11  |$01.....INY.....|
000009b0  53 54 41 20 28 4d 45 4d  53 29 2c 59 00 c6 11 26  |STA (MEMS),Y...&|
000009c0  11 43 4c 43 00 d3 11 30  11 41 44 43 20 23 24 31  |.CLC...0.ADC #$1|
000009d0  46 00 e0 11 3a 11 4c 44  59 20 23 24 32 38 00 f1  |F...:.LDY #$28..|
000009e0  11 44 11 53 54 41 20 28  4d 45 4d 53 29 2c 59 00  |.D.STA (MEMS),Y.|
000009f0  f9 11 4e 11 43 4c 43 00  06 12 58 11 41 44 43 20  |..N.CLC...X.ADC |
00000a00  23 24 30 31 00 0e 12 62  11 49 4e 59 00 1f 12 6c  |#$01...b.INY...l|
00000a10  11 53 54 41 20 28 4d 45  4d 53 29 2c 59 00 2d 12  |.STA (MEMS),Y.-.|
00000a20  71 11 4a 4d 50 20 53 54  41 43 4b 00 43 12 76 11  |q.JMP STACK.C.v.|
00000a30  43 4f 4c 4f 55 52 20 4c  44 41 20 4d 45 4d 53 aa  |COLOUR LDA MEMS.|
00000a40  31 00 4b 12 80 11 43 4c  43 00 58 12 8a 11 41 44  |1.K...CLC.X...AD|
00000a50  43 20 23 24 35 34 00 67  12 94 11 53 54 41 20 4d  |C #$54.g...STA M|
00000a60  45 4d 53 aa 31 00 74 12  9e 11 4c 44 59 20 23 24  |EMS.1.t...LDY #$|
00000a70  30 30 00 7f 12 a8 11 4c  44 41 20 42 54 00 90 12  |00.....LDA BT...|
00000a80  b2 11 53 54 41 20 28 4d  45 4d 53 29 2c 59 00 98  |..STA (MEMS),Y..|
00000a90  12 bc 11 49 4e 59 00 a9  12 c6 11 53 54 41 20 28  |...INY.....STA (|
00000aa0  4d 45 4d 53 29 2c 59 00  b6 12 d0 11 4c 44 59 20  |MEMS),Y.....LDY |
00000ab0  23 24 32 38 00 c7 12 da  11 53 54 41 20 28 4d 45  |#$28.....STA (ME|
00000ac0  4d 53 29 2c 59 00 cf 12  e4 11 49 4e 59 00 e0 12  |MS),Y.....INY...|
00000ad0  ee 11 53 54 41 20 28 4d  45 4d 53 29 2c 59 00 f0  |..STA (MEMS),Y..|
00000ae0  12 f8 11 4a 4d 50 20 55  4e 53 54 41 43 4b 00 14  |...JMP UNSTACK..|
00000af0  13 02 12 49 4e 49 54 44  42 20 4c 44 41 20 23 24  |...INITDB LDA #$|
00000b00  30 34 20 3b 20 43 48 41  4e 47 45 20 a4 20 23 24  |04 ; CHANGE . #$|
00000b10  39 38 00 23 13 0c 12 53  54 41 20 4d 45 4d 53 aa  |98.#...STA MEMS.|
00000b20  31 00 30 13 16 12 4c 44  59 20 23 24 30 30 00 3d  |1.0...LDY #$00.=|
00000b30  13 20 12 53 54 59 20 4d  45 4d 53 00 49 13 2a 12  |. .STY MEMS.I.*.|
00000b40  52 53 54 20 52 54 53 00  62 13 88 13 3b 20 53 43  |RST RTS.b...; SC|
00000b50  52 4f 4c 4c 49 4e 47 20  52 4f 55 54 49 4e 45 53  |ROLLING ROUTINES|
00000b60  00 78 13 92 13 4c 53 43  52 4f 4c 4c 20 4a 53 52  |.x...LSCROLL JSR|
00000b70  20 53 54 41 43 4b 00 86  13 9c 13 4c 44 58 20 58  | STACK.....LDX X|
00000b80  53 53 54 45 00 8e 13 a6  13 49 4e 58 00 96 13 b0  |SSTE.....INX....|
00000b90  13 54 58 41 00 a1 13 ba  13 af 20 23 24 30 37 00  |.TXA...... #$07.|
00000ba0  af 13 c4 13 53 54 41 20  58 53 53 54 45 00 b7 13  |....STA XSSTE...|
00000bb0  ce 13 43 4c 43 00 c4 13  d8 13 41 44 43 20 23 24  |..CLC.....ADC #$|
00000bc0  31 30 00 d2 13 e2 13 53  54 41 20 24 44 30 31 36  |10.....STA $D016|
00000bd0  00 df 13 ec 13 43 4d 50  20 23 24 31 34 00 ef 13  |.....CMP #$14...|
00000be0  f6 13 42 45 51 20 4c 53  43 52 53 43 4c 00 fc 13  |..BEQ LSCRSCL...|
00000bf0  14 14 43 4d 50 20 23 24  31 30 00 08 14 1e 14 42  |..CMP #$10.....B|
00000c00  4e 45 20 52 53 54 00 16  14 28 14 4c 44 58 20 53  |NE RST...(.LDX S|
00000c10  43 52 4e 4f 00 1e 14 32  14 49 4e 58 00 2c 14 34  |CRNO...2.INX.,.4|
00000c20  14 4c 44 41 20 24 44 30  31 38 00 37 14 37 14 af  |.LDA $D018.7.7..|
00000c30  20 23 24 31 35 00 45 14  39 14 53 54 41 20 24 44  | #$15.E.9.STA $D|
00000c40  30 31 38 00 4d 14 3c 14  54 58 41 00 58 14 46 14  |018.M.<.TXA.X.F.|
00000c50  af 20 23 24 30 31 00 66  14 50 14 53 54 41 20 53  |. #$01.f.P.STA S|
00000c60  43 52 4e 4f 00 70 14 5a  14 41 53 4c 20 41 00 7a  |CRNO.p.Z.ASL A.z|
00000c70  14 64 14 41 53 4c 20 41  00 84 14 6e 14 41 53 4c  |.d.ASL A...n.ASL|
00000c80  20 41 00 8e 14 78 14 41  53 4c 20 41 00 96 14 82  | A...x.ASL A....|
00000c90  14 43 4c 43 00 a3 14 8c  14 41 44 43 20 23 24 36  |.CLC.....ADC #$6|
00000ca0  30 00 b0 14 a0 14 b0 41  20 24 44 30 31 38 00 be  |0......A $D018..|
00000cb0  14 aa 14 53 54 41 20 24  44 30 31 38 00 cb 14 b4  |...STA $D018....|
00000cc0  14 4c 44 41 20 23 24 30  31 00 d7 14 be 14 53 54  |.LDA #$01.....ST|
00000cd0  41 20 24 46 42 00 e4 14  c8 14 4c 44 59 20 23 24  |A $FB.....LDY #$|
00000ce0  30 30 00 f0 14 d2 14 53  54 59 20 24 46 44 00 fc  |00.....STY $FD..|
00000cf0  14 dc 14 4c 44 41 20 24  44 38 00 08 15 e6 14 53  |...LDA $D8.....S|
00000d00  54 41 20 24 46 43 00 14  15 f0 14 53 54 41 20 24  |TA $FC.....STA $|
00000d10  46 45 00 24 15 fa 14 4a  53 52 20 53 43 4c 44 49  |FE.$...JSR SCLDI|
00000d20  53 50 00 3a 15 04 15 4c  53 4c 4f 50 20 4c 44 41  |SP.:...LSLOP LDA|
00000d30  20 28 24 46 42 29 2c 59  00 4a 15 0e 15 53 54 41  | ($FB),Y.J...STA|
00000d40  20 28 24 46 44 29 2c 59  00 52 15 18 15 49 4e 59  | ($FD),Y.R...INY|
00000d50  00 60 15 22 15 42 4e 45  20 4c 53 4c 4f 50 00 6c  |.`.".BNE LSLOP.l|
00000d60  15 2c 15 49 4e 43 20 24  46 43 00 78 15 36 15 49  |.,.INC $FC.x.6.I|
00000d70  4e 43 20 24 46 45 00 84  15 40 15 4c 44 41 20 24  |NC $FE...@.LDA $|
00000d80  46 43 00 91 15 4a 15 43  4d 50 20 23 24 44 43 00  |FC...J.CMP #$DC.|
00000d90  9f 15 54 15 42 4e 45 20  4c 53 4c 4f 50 00 ad 15  |..T.BNE LSLOP...|
00000da0  5e 15 4c 44 58 20 53 43  52 4e 4f 00 b5 15 68 15  |^.LDX SCRNO...h.|
00000db0  49 4e 58 00 bd 15 72 15  54 58 41 00 c8 15 7c 15  |INX...r.TXA...|.|
00000dc0  af 20 23 24 30 31 00 d6  15 86 15 53 54 41 20 53  |. #$01.....STA S|
00000dd0  43 52 4e 4f 00 e6 15 90  15 4a 53 52 20 53 43 4c  |CRNO.....JSR SCL|
00000de0  44 49 53 50 00 f6 15 9a  15 4a 4d 50 20 55 4e 53  |DISP.....JMP UNS|
00000df0  54 41 43 4b 00 0c 16 a4  15 53 43 4c 44 49 53 50  |TACK.....SCLDISP|
00000e00  20 4c 44 41 20 53 43 52  4e 4f 00 1a 16 ae 15 42  | LDA SCRNO.....B|
00000e10  45 51 20 53 43 4c 44 47  00 22 16 b8 15 52 54 53  |EQ SCLDG."...RTS|
00000e20  00 2c 16 c2 15 53 43 4c  44 47 00 47 16 28 23 3b  |.,...SCLDG.G.(#;|
00000e30  20 49 4e 54 45 52 4c 41  43 49 4e 47 20 52 4f 55  | INTERLACING ROU|
00000e40  54 49 4e 45 53 00 56 16  32 23 49 4c 41 43 45 91  |TINES.V.2#ILACE.|
00000e50  20 53 45 49 00 68 16 3c  23 4c 44 41 20 23 b3 b5  | SEI.h.<#LDA #..|
00000e60  45 52 4c 41 43 45 00 76  16 46 23 53 54 41 20 24  |ERLACE.v.F#STA $|
00000e70  30 33 31 34 00 88 16 50  23 4c 44 41 20 23 b1 b5  |0314...P#LDA #..|
00000e80  45 52 4c 41 43 45 00 96  16 5a 23 53 54 41 20 24  |ERLACE...Z#STA $|
00000e90  30 33 31 35 00 9e 16 64  23 43 4c 49 00 a6 16 6e  |0315...d#CLI...n|
00000ea0  23 52 54 53 00 b7 16 78  23 49 4c 41 43 45 4f 46  |#RTS...x#ILACEOF|
00000eb0  46 20 53 45 49 00 cb 16  82 23 4c 44 41 20 23 b3  |F SEI....#LDA #.|
00000ec0  49 4c 41 43 45 51 55 49  54 00 d9 16 8c 23 53 54  |ILACEQUIT....#ST|
00000ed0  41 20 24 30 33 31 34 00  ed 16 96 23 4c 44 41 20  |A $0314....#LDA |
00000ee0  23 b1 49 4c 41 43 45 51  55 49 54 00 fb 16 a0 23  |#.ILACEQUIT....#|
00000ef0  53 54 41 20 24 30 33 31  35 00 08 17 aa 23 4c 44  |STA $0315....#LD|
00000f00  41 20 23 24 36 34 00 16  17 b4 23 53 54 41 20 24  |A #$64....#STA $|
00000f10  44 30 31 38 00 1e 17 be  23 43 4c 49 00 26 17 c8  |D018....#CLI.&..|
00000f20  23 52 54 53 00 3e 17 d2  23 b5 45 52 4c 41 43 45  |#RTS.>..#.ERLACE|
00000f30  20 4c 44 41 20 49 4c 53  54 41 54 45 00 4d 17 dc  | LDA ILSTATE.M..|
00000f40  23 42 45 51 20 49 4e 5a  45 52 4f 00 5a 17 e6 23  |#BEQ INZERO.Z..#|
00000f50  4c 44 41 20 23 24 30 30  00 6a 17 f0 23 53 54 41  |LDA #$00.j..#STA|
00000f60  20 49 4c 53 54 41 54 45  00 77 17 fa 23 4c 44 41  | ILSTATE.w..#LDA|
00000f70  20 23 24 36 32 00 85 17  04 24 53 54 41 20 24 44  | #$62....$STA $D|
00000f80  30 31 38 00 92 17 0e 24  4c 44 41 20 23 24 31 35  |018....$LDA #$15|
00000f90  00 a0 17 18 24 53 54 41  20 24 44 30 31 36 00 b9  |....$STA $D016..|
00000fa0  17 22 24 49 4c 41 43 45  51 55 49 54 20 4a 4d 50  |."$ILACEQUIT JMP|
00000fb0  20 28 49 52 51 9a 29 00  d0 17 2c 24 49 4e 5a 45  | (IRQ.)...,$INZE|
00000fc0  52 4f 20 49 4e 43 20 49  4c 53 54 41 54 45 00 dd  |RO INC ILSTATE..|
00000fd0  17 36 24 4c 44 41 20 23  24 36 30 00 eb 17 40 24  |.6$LDA #$60...@$|
00000fe0  53 54 41 20 24 44 30 31  38 00 f8 17 4a 24 4c 44  |STA $D018...J$LD|
00000ff0  41 20 23 24 31 34 00 06  18 54 24 53 54 41 20 24  |A #$14...T$STA $|
00001000  44 30 31 36 00 15 18 5e  24 4a 4d 50 20 28 49 52  |D016...^$JMP (IR|
00001010  51 9a 29 00 29 18 10 27  3b 20 54 45 4d 50 20 52  |Q.).)..'; TEMP R|
00001020  4f 55 54 49 4e 45 53 00  39 18 11 27 45 46 46 45  |OUTINES.9..'EFFE|
00001030  43 54 53 20 4e 4f 50 00  4b 18 12 27 46 55 4c 4c  |CTS NOP.K..'FULL|
00001040  53 44 49 53 50 20 4e 4f  50 00 57 18 13 27 59 4f  |SDISP NOP.W..'YO|
00001050  55 20 4e 4f 50 00 67 18  14 27 4d 91 53 54 45 52  |U NOP.g..'M.STER|
00001060  53 20 4e 4f 50 00 75 18  15 27 50 41 4e 45 4c 20  |S NOP.u..'PANEL |
00001070  4e 4f 50 00 82 18 16 27  47 41 4d 80 20 4e 4f 50  |NOP....'GAM. NOP|
00001080  00 00 00                                          |...|
00001083