$
; CRYSTAL LIGHT � MAIN PROGRAM:; BY DOMINIC FORDO; DECEMBER '94 -[(��$C000k�; VARIABLESz�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�$CF496	jYPS�$CF4AG	t;MEMRS�$CF4BW	~;XPTL�$CF4Cf	�DALL�$CF4Dv	�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�PLAY7
�STA IRQ�H
�LDA #�M�PLAYW
�STA IRQ��1a
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 STACK0�LDA N�:�BEQ �H�JMP $EA31W�� LDY #$00g�LDA (MHI),Yr�� #$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 $EA31N�	STACK STA AS�RE\�	STX XS�REj�	STY YS�REr�	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 DESTACK6
P
JMP $EA31G
Z
�UP LDX VDATO
d
INX]
n
STX $D404l
x
LDX VDAT�7t
�
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 $EA311�; MAIN GAME LOOPC�MAIN LDA #$00P�STA DEAD^�STA EFDATk�JSR MUS�}�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 TRLOP3bCLC@lADC #$03NvSTA CLOCK^�JMP MAINLOPt�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 YPLOPD6INC MEMS�1EJMP YPLOPDXYPDCNT LDA XPSb"ASL Aj,CLCw6ADC MEMS�@STA MEMS�JBCC XPCNT�TINC MEMS�1��XPCNT LDA (XP),Y��STA BT��ASL A��LDX COLCH��BNE COLOUR��STA (MEMS),Y�LDX DALL�BNE CHARC�A�CLC+ADC #$013INYDSTA (MEMS),YL&CLCY0ADC #$1Ff:LDY #$28DCHARC�A STA (MEMS),Y�GLDX DALL�JBNE COLC�B�NCLC�XADC #$01�bINY�lSTA (MEMS),Y�qJMP UNSTACK�vCOLOUR LDA MEMS�1��CLC�ADC #$3C�STA MEMS�1!�LDA SCRNO-�E� #$017�ASL AA�ASL AI�CLCX�ADC MEMS�1g�STA MEMS�1t�LDY #$00�LDA BT��STA (MEMS),Y��LDX DALL��BNE COLC�A��INY��STA (MEMS),Y��LDY #$28��COLC�A STA (MEMS),Y��LDX DALL�BNE COLC�B�INY�STA (MEMS),Y7�COLCOMB JMP UNSTACKLINITDB LDA SCRNOVASL A`ASL AhCLCu	ADC #$98�STA MEMS�1�LDY #$00� STY MEMS�*RST RTS��; LEFT SCROLLING ROUTINE��LSCROLL JSR STACK��LDX XSSTE��INX��TXA�� #$07�STA XSSTE�CLC)�ADC #$107�STA $D016D�CMP #$14T�BEQ LSCRSCLaCMP #$10mBNE RST{(LDX SCRNO�2INX�4LDA $D018�7� #$15�9STA $D018�<TXA�F� #$01�PSTA SCRNO�ZASL A�dASL A�nASL A�xASL A��CLC�ADC #$60��A $D018#�STA $D0180�LDA #$01<�STA $FBI�LDY #$00U�STY $FDb�LDA #$D8n�STA $FCz�STA $FE��LDA #$01��STA DALL��JSR SCLDISP�LSLOP LDA ($FB),Y�STA ($FD),Y�INY�"BNE LSLOP�,INC $FC�6INC $FE@LDA $FCJCMP #$DCTBNE LSLOP-^LDX SCRNO5hINX=rTXAH|� #$01V�STA SCRNOc�LDA #$00p�STA DALL��JSR SCLDISP��JMP UNSTACK��SCLDISP LDA SCRNO��BEQ SCLDG��RTS��SCLDG LDX #$01��STX COLCH��DEX��LDA DALL
�BNE SCLDBF�SCLDAT STX YPS!�LDA #$13-�STA XPS?�JSR DISPBLOCKGINXTCPX #$0AcBNE SCLDATk&RTS~0SCLDBF STX YPS�:LDA #$00�DSTA XPS�NJSR DISPBLOCK�XINX�bCPX #$0A�lBNE SCLDBF�vRTS��LSCRSCL LDA #$01��STA $FB�LDY #$00�STY $FD�LDA #$98(�STA $FC6�LDA SCRNO@�ASL AJ�ASL AR�CLC^�ADC $FCj�STA $FCv�E� #$04��STA $FE��LDA #$01��STA DALL��JSR BSCLDISP��LDY #$00��LSLOPB LDA ($FB),Y��STA ($FD),Y��INY�BNE LSLOPBINC $FCINC $FE LDA $FC'*� #$0364BNE LSLOPBD>LDX SCRNOLHINXTRTXA_\� #$01mfSTA SCRNOzpLDA #$00�zSTA DALL��JSR BSCLDISP��LDX SCRNO��INX��TXA��� #$01��STA SCRNO��JMP UNSTACK��BSCLDISP LDA SCRNO�BEQ BSCLDG
�RTS!�BSCLDG LDX #$00/�STX COLCH<�LDA DALLL�BNE BSCLDBF[�JMP SCLDATp�BSCLBF JMP SCLBF�(#; INTERLACING ROUTINES�2#ILACE� SEI�<#LDA #��ERLACE�F#STA $0314�P#LDA #��ERLACE�Z#STA $0315�d#CLI�n#RTS�x#ILACEOFF SEI�#LDA #�ILACEQUIT�#STA $03141�#LDA #�ILACEQUIT?�#STA $0315L�#LDA #$64Z�#STA $D018b�#CLIj�#RTS��#�ERLACE LDA ILSTATE��#BEQ INZERO��#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 #$14JT$STA $D016Y^$JMP (IRQ�)m'; TEMP ROUTINES}'EFFECTS NOP�'FULLSDISP NOP�'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.Pasl a@.P.Pldx colch@.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 #$3c@SR.Qsta mems.1@!R.Qlda scrno@-R.Qe. #$01@7R.Qasl a@aR.Qasl a@iR.Qclc@xR.Qadc mems.1@GR.Qsta mems.1@TR.Qldy #$00@.R.Qlda bt@.R.Qsta (mems),y@.R.Qldx dall@.R.Qbne colc.a@.R.Qiny@.R.Qsta (mems),y@.R.Qldy #$28@.R.Qcolc.a sta (mems),y@.R.Qldx dall@FS.Qbne colc.b@NS.Qiny@.S.Qsta (mems),y@7S.Qcolcomb jmp unstack@lSBRinitdb lda scrno@vSDRasl a@.SFRasl a@HSHRclc@USIRadc #$98@.SLRsta mems.1@.SVRldy #$00@.S Rsty mems@.S*Rrst rts@.S.S; left scrolling routine@.S.Slscroll jsr stack@.S.Sldx xsste@.S.Sinx@.S.Stxa@FT.S. #$07@TT.Ssta xsste@£T.Sclc@)T.Sadc #$10@7T.Ssta $d016@dT.Scmp #$14@tT.Sbeq lscrscl@ATTTcmp #$10@MT.Tbne rst@.T(Tldx scrno@.T2Tinx@.T4Tlda $d018@.T7T. #$15@.T9Tsta $d018@.T<Ttxa@.TfT. #$01@.TpTsta scrno@.TzTasl a@.TDTasl a@.TNTasl a@.TXTasl a@.T.Tclc@HU.Tadc #$60@UU.T.a $d018@#U.Tsta $d018@0U.Tlda #$01@<U.Tsta $fb@iU.Tldy #$00@uU.Tsty $fd@BU.Tlda #$d8@NU.Tsta $fc@ZU.Tsta $fe@.U.Tlda #$01@.U.Tsta dall@.U.Tjsr scldisp@.UDUlslop lda ($fb),y@.UNUsta ($fd),y@.UXUiny@.U"Ubne lslop@.U,Uinc $fc@.U6Uinc $fe@DV@Ulda $fc@QVjUcmp #$dc@.VtUbne lslop@-V.Uldx scrno@5VHUinx@=VRUtxa@hV.U. #$01@vV.Usta scrno@CV.Ulda #$00@PV.Usta dall@.V.Ujsr scldisp@.V.Ujmp unstack@.V.Uscldisp lda scrno@.V.Ubeq scldg@.V.Urts@.V.Uscldg ldx #$01@.V.Ustx colch@.V.Udex@.V.Ulda dall@AW.Ubne scldbf@TW.Uscldat stx yps@!W.Ulda #$13@-W.Usta xps@?W.Ujsr dispblock@gWHVinx@tWRVcpx #$0a@CW£Vbne scldat@KW&Vrts@.W0Vscldbf stx yps@.W:Vlda #$00@.WdVsta xps@.WnVjsr dispblock@.WxVinx@.WBVcpx #$0a@.WLVbne scldbf@.WVVrts@.W.Vlscrscl lda #$01@.W.Vsta $fb@CX.Vldy #$00@OX.Vsty $fd@£X.Vlda #$98@(X.Vsta $fc@6X.Vlda scrno@@X.Vasl a@jX.Vasl a@rX.Vclc@.X.Vadc $fc@JX.Vsta $fc@VX.Ve. #$04@.X.Vsta $fe@.X.Vlda #$01@.X.Vsta dall@.X.Vjsr bscldisp@.X.Vldy #$00@.X.Vlslopb lda ($fb),y@.X.Vsta ($fd),y@.X.Viny@.XBWbne lslopb@DYLWinc $fc@PYVWinc $fe@£Y Wlda $fc@'Y*W. #$03@6Y4Wbne lslopb@dY>Wldx scrno@lYhWinx@tYrWtxa@.Y£W. #$01@MYFWsta scrno@ZYPWlda #$00@.YZWsta dall@.Y.Wjsr bscldisp@.Y.Wldx scrno@.Y.Winx@.Y.Wtxa@.Y.W. #$01@.Y.Wsta scrno@.Y.Wjmp unstack@.Y.Wbscldisp lda scrno@EZ.Wbeq bscldg@MZ.Wrts@!Z.Wbscldg ldx #$00@/Z.Wstx colch@<Z.Wlda dall@lZ.Wbne bscldbf@[Z.Wjmp scldat@PZ.Wbsclbf jmp sclbf@.Z(#; interlacing routines@.Z2#ilace. sei@.Z<#lda #..erlace@.Zf#sta $0314@.Zp#lda #..erlace@.Zz#sta $0315@.ZD#cli@.ZN#rts@.ZX#ilaceoff sei@O[.#lda #.ilacequit@][.#sta $0314@1[.#lda #.ilacequit@?[.#sta $0315@l[.#lda #$64@z[.#sta $d018@B[.#cli@J[.#rts@.[.#.erlace lda ilstate@.[.#beq inzero@.[.#lda #$00@.[.#sta ilstate@.[.#lda #$62@.[D$sta $d018@.[N$lda #$15@.[X$sta $d016@.["$ilacequit jmp (irq.)@T£,$inzero inc ilstate@!£6$lda #$60@/£@$sta $d018@<£j$lda #$14@j£t$sta $d016@y£.$jmp (irq.)@M£P'; temp routines@.£Q'effects nop@.£R'fullsdisp nop@.£S'you nop@.£T'm.sters nop@.£U'panel nop@.£V'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  cb 10 e5 10 41 53 4c 20  41 00 d9 10 ea 10 4c 44  |....ASL A.....LD|
000008d0  58 20 43 4f 4c 43 48 00  e8 10 ef 10 42 4e 45 20  |X COLCH.....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  33 43 00 13 12 8c 11 53  54 41 20 4d 45 4d 53 aa  |3C.....STA MEMS.|
00000a10  31 00 21 12 8e 11 4c 44  41 20 53 43 52 4e 4f 00  |1.!...LDA SCRNO.|
00000a20  2d 12 8f 11 45 b0 20 23  24 30 31 00 37 12 90 11  |-...E. #$01.7...|
00000a30  41 53 4c 20 41 00 41 12  91 11 41 53 4c 20 41 00  |ASL A.A...ASL A.|
00000a40  49 12 92 11 43 4c 43 00  58 12 93 11 41 44 43 20  |I...CLC.X...ADC |
00000a50  4d 45 4d 53 aa 31 00 67  12 94 11 53 54 41 20 4d  |MEMS.1.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 9d  |..STA (MEMS),Y..|
00000a90  12 b5 11 4c 44 58 20 44  41 4c 4c 00 ac 12 b8 11  |...LDX DALL.....|
00000aa0  42 4e 45 20 43 4f 4c 43  91 41 00 b4 12 bc 11 49  |BNE COLC.A.....I|
00000ab0  4e 59 00 c5 12 c6 11 53  54 41 20 28 4d 45 4d 53  |NY.....STA (MEMS|
00000ac0  29 2c 59 00 d2 12 d0 11  4c 44 59 20 23 24 32 38  |),Y.....LDY #$28|
00000ad0  00 ea 12 da 11 43 4f 4c  43 91 41 20 53 54 41 20  |.....COLC.A STA |
00000ae0  28 4d 45 4d 53 29 2c 59  00 f7 12 dd 11 4c 44 58  |(MEMS),Y.....LDX|
00000af0  20 44 41 4c 4c 00 06 13  e0 11 42 4e 45 20 43 4f  | DALL.....BNE CO|
00000b00  4c 43 91 42 00 0e 13 e4  11 49 4e 59 00 1f 13 ee  |LC.B.....INY....|
00000b10  11 53 54 41 20 28 4d 45  4d 53 29 2c 59 00 37 13  |.STA (MEMS),Y.7.|
00000b20  f8 11 43 4f 4c 43 4f 4d  42 20 4a 4d 50 20 55 4e  |..COLCOMB JMP UN|
00000b30  53 54 41 43 4b 00 4c 13  02 12 49 4e 49 54 44 42  |STACK.L...INITDB|
00000b40  20 4c 44 41 20 53 43 52  4e 4f 00 56 13 04 12 41  | LDA SCRNO.V...A|
00000b50  53 4c 20 41 00 60 13 06  12 41 53 4c 20 41 00 68  |SL A.`...ASL A.h|
00000b60  13 08 12 43 4c 43 00 75  13 09 12 41 44 43 20 23  |...CLC.u...ADC #|
00000b70  24 39 38 00 84 13 0c 12  53 54 41 20 4d 45 4d 53  |$98.....STA MEMS|
00000b80  aa 31 00 91 13 16 12 4c  44 59 20 23 24 30 30 00  |.1.....LDY #$00.|
00000b90  9e 13 20 12 53 54 59 20  4d 45 4d 53 00 aa 13 2a  |.. .STY MEMS...*|
00000ba0  12 52 53 54 20 52 54 53  00 c7 13 88 13 3b 20 4c  |.RST RTS.....; L|
00000bb0  45 46 54 20 53 43 52 4f  4c 4c 49 4e 47 20 52 4f  |EFT SCROLLING RO|
00000bc0  55 54 49 4e 45 00 dd 13  92 13 4c 53 43 52 4f 4c  |UTINE.....LSCROL|
00000bd0  4c 20 4a 53 52 20 53 54  41 43 4b 00 eb 13 9c 13  |L JSR STACK.....|
00000be0  4c 44 58 20 58 53 53 54  45 00 f3 13 a6 13 49 4e  |LDX XSSTE.....IN|
00000bf0  58 00 fb 13 b0 13 54 58  41 00 06 14 ba 13 af 20  |X.....TXA...... |
00000c00  23 24 30 37 00 14 14 c4  13 53 54 41 20 58 53 53  |#$07.....STA XSS|
00000c10  54 45 00 1c 14 ce 13 43  4c 43 00 29 14 d8 13 41  |TE.....CLC.)...A|
00000c20  44 43 20 23 24 31 30 00  37 14 e2 13 53 54 41 20  |DC #$10.7...STA |
00000c30  24 44 30 31 36 00 44 14  ec 13 43 4d 50 20 23 24  |$D016.D...CMP #$|
00000c40  31 34 00 54 14 f6 13 42  45 51 20 4c 53 43 52 53  |14.T...BEQ LSCRS|
00000c50  43 4c 00 61 14 14 14 43  4d 50 20 23 24 31 30 00  |CL.a...CMP #$10.|
00000c60  6d 14 1e 14 42 4e 45 20  52 53 54 00 7b 14 28 14  |m...BNE RST.{.(.|
00000c70  4c 44 58 20 53 43 52 4e  4f 00 83 14 32 14 49 4e  |LDX SCRNO...2.IN|
00000c80  58 00 91 14 34 14 4c 44  41 20 24 44 30 31 38 00  |X...4.LDA $D018.|
00000c90  9c 14 37 14 af 20 23 24  31 35 00 aa 14 39 14 53  |..7.. #$15...9.S|
00000ca0  54 41 20 24 44 30 31 38  00 b2 14 3c 14 54 58 41  |TA $D018...<.TXA|
00000cb0  00 bd 14 46 14 af 20 23  24 30 31 00 cb 14 50 14  |...F.. #$01...P.|
00000cc0  53 54 41 20 53 43 52 4e  4f 00 d5 14 5a 14 41 53  |STA SCRNO...Z.AS|
00000cd0  4c 20 41 00 df 14 64 14  41 53 4c 20 41 00 e9 14  |L A...d.ASL A...|
00000ce0  6e 14 41 53 4c 20 41 00  f3 14 78 14 41 53 4c 20  |n.ASL A...x.ASL |
00000cf0  41 00 fb 14 82 14 43 4c  43 00 08 15 8c 14 41 44  |A.....CLC.....AD|
00000d00  43 20 23 24 36 30 00 15  15 a0 14 b0 41 20 24 44  |C #$60......A $D|
00000d10  30 31 38 00 23 15 aa 14  53 54 41 20 24 44 30 31  |018.#...STA $D01|
00000d20  38 00 30 15 b4 14 4c 44  41 20 23 24 30 31 00 3c  |8.0...LDA #$01.<|
00000d30  15 be 14 53 54 41 20 24  46 42 00 49 15 c8 14 4c  |...STA $FB.I...L|
00000d40  44 59 20 23 24 30 30 00  55 15 d2 14 53 54 59 20  |DY #$00.U...STY |
00000d50  24 46 44 00 62 15 dc 14  4c 44 41 20 23 24 44 38  |$FD.b...LDA #$D8|
00000d60  00 6e 15 e6 14 53 54 41  20 24 46 43 00 7a 15 f0  |.n...STA $FC.z..|
00000d70  14 53 54 41 20 24 46 45  00 87 15 f2 14 4c 44 41  |.STA $FE.....LDA|
00000d80  20 23 24 30 31 00 94 15  f5 14 53 54 41 20 44 41  | #$01.....STA DA|
00000d90  4c 4c 00 a4 15 fa 14 4a  53 52 20 53 43 4c 44 49  |LL.....JSR SCLDI|
00000da0  53 50 00 ba 15 04 15 4c  53 4c 4f 50 20 4c 44 41  |SP.....LSLOP LDA|
00000db0  20 28 24 46 42 29 2c 59  00 ca 15 0e 15 53 54 41  | ($FB),Y.....STA|
00000dc0  20 28 24 46 44 29 2c 59  00 d2 15 18 15 49 4e 59  | ($FD),Y.....INY|
00000dd0  00 e0 15 22 15 42 4e 45  20 4c 53 4c 4f 50 00 ec  |...".BNE LSLOP..|
00000de0  15 2c 15 49 4e 43 20 24  46 43 00 f8 15 36 15 49  |.,.INC $FC...6.I|
00000df0  4e 43 20 24 46 45 00 04  16 40 15 4c 44 41 20 24  |NC $FE...@.LDA $|
00000e00  46 43 00 11 16 4a 15 43  4d 50 20 23 24 44 43 00  |FC...J.CMP #$DC.|
00000e10  1f 16 54 15 42 4e 45 20  4c 53 4c 4f 50 00 2d 16  |..T.BNE LSLOP.-.|
00000e20  5e 15 4c 44 58 20 53 43  52 4e 4f 00 35 16 68 15  |^.LDX SCRNO.5.h.|
00000e30  49 4e 58 00 3d 16 72 15  54 58 41 00 48 16 7c 15  |INX.=.r.TXA.H.|.|
00000e40  af 20 23 24 30 31 00 56  16 86 15 53 54 41 20 53  |. #$01.V...STA S|
00000e50  43 52 4e 4f 00 63 16 88  15 4c 44 41 20 23 24 30  |CRNO.c...LDA #$0|
00000e60  30 00 70 16 8b 15 53 54  41 20 44 41 4c 4c 00 80  |0.p...STA DALL..|
00000e70  16 90 15 4a 53 52 20 53  43 4c 44 49 53 50 00 90  |...JSR SCLDISP..|
00000e80  16 9a 15 4a 4d 50 20 55  4e 53 54 41 43 4b 00 a6  |...JMP UNSTACK..|
00000e90  16 a4 15 53 43 4c 44 49  53 50 20 4c 44 41 20 53  |...SCLDISP LDA S|
00000ea0  43 52 4e 4f 00 b4 16 ae  15 42 45 51 20 53 43 4c  |CRNO.....BEQ SCL|
00000eb0  44 47 00 bc 16 b8 15 52  54 53 00 cf 16 bb 15 53  |DG.....RTS.....S|
00000ec0  43 4c 44 47 20 4c 44 58  20 23 24 30 31 00 dd 16  |CLDG LDX #$01...|
00000ed0  be 15 53 54 58 20 43 4f  4c 43 48 00 e5 16 c2 15  |..STX COLCH.....|
00000ee0  44 45 58 00 f2 16 cc 15  4c 44 41 20 44 41 4c 4c  |DEX.....LDA DALL|
00000ef0  00 01 17 d6 15 42 4e 45  20 53 43 4c 44 42 46 00  |.....BNE SCLDBF.|
00000f00  14 17 e0 15 53 43 4c 44  41 54 20 53 54 58 20 59  |....SCLDAT STX Y|
00000f10  50 53 00 21 17 ea 15 4c  44 41 20 23 24 31 33 00  |PS.!...LDA #$13.|
00000f20  2d 17 f4 15 53 54 41 20  58 50 53 00 3f 17 fe 15  |-...STA XPS.?...|
00000f30  4a 53 52 20 44 49 53 50  42 4c 4f 43 4b 00 47 17  |JSR DISPBLOCK.G.|
00000f40  08 16 49 4e 58 00 54 17  12 16 43 50 58 20 23 24  |..INX.T...CPX #$|
00000f50  30 41 00 63 17 1c 16 42  4e 45 20 53 43 4c 44 41  |0A.c...BNE SCLDA|
00000f60  54 00 6b 17 26 16 52 54  53 00 7e 17 30 16 53 43  |T.k.&.RTS.~.0.SC|
00000f70  4c 44 42 46 20 53 54 58  20 59 50 53 00 8b 17 3a  |LDBF STX YPS...:|
00000f80  16 4c 44 41 20 23 24 30  30 00 97 17 44 16 53 54  |.LDA #$00...D.ST|
00000f90  41 20 58 50 53 00 a9 17  4e 16 4a 53 52 20 44 49  |A XPS...N.JSR DI|
00000fa0  53 50 42 4c 4f 43 4b 00  b1 17 58 16 49 4e 58 00  |SPBLOCK...X.INX.|
00000fb0  be 17 62 16 43 50 58 20  23 24 30 41 00 cd 17 6c  |..b.CPX #$0A...l|
00000fc0  16 42 4e 45 20 53 43 4c  44 42 46 00 d5 17 76 16  |.BNE SCLDBF...v.|
00000fd0  52 54 53 00 ea 17 80 16  4c 53 43 52 53 43 4c 20  |RTS.....LSCRSCL |
00000fe0  4c 44 41 20 23 24 30 31  00 f6 17 8a 16 53 54 41  |LDA #$01.....STA|
00000ff0  20 24 46 42 00 03 18 94  16 4c 44 59 20 23 24 30  | $FB.....LDY #$0|
00001000  30 00 0f 18 9e 16 53 54  59 20 24 46 44 00 1c 18  |0.....STY $FD...|
00001010  a8 16 4c 44 41 20 23 24  39 38 00 28 18 aa 16 53  |..LDA #$98.(...S|
00001020  54 41 20 24 46 43 00 36  18 ac 16 4c 44 41 20 53  |TA $FC.6...LDA S|
00001030  43 52 4e 4f 00 40 18 ae  16 41 53 4c 20 41 00 4a  |CRNO.@...ASL A.J|
00001040  18 b0 16 41 53 4c 20 41  00 52 18 b2 16 43 4c 43  |...ASL A.R...CLC|
00001050  00 5e 18 b4 16 41 44 43  20 24 46 43 00 6a 18 b6  |.^...ADC $FC.j..|
00001060  16 53 54 41 20 24 46 43  00 76 18 b8 16 45 b0 20  |.STA $FC.v...E. |
00001070  23 24 30 34 00 82 18 ba  16 53 54 41 20 24 46 45  |#$04.....STA $FE|
00001080  00 8f 18 c6 16 4c 44 41  20 23 24 30 31 00 9c 18  |.....LDA #$01...|
00001090  d0 16 53 54 41 20 44 41  4c 4c 00 ad 18 da 16 4a  |..STA DALL.....J|
000010a0  53 52 20 42 53 43 4c 44  49 53 50 00 ba 18 df 16  |SR BSCLDISP.....|
000010b0  4c 44 59 20 23 24 30 30  00 d1 18 e4 16 4c 53 4c  |LDY #$00.....LSL|
000010c0  4f 50 42 20 4c 44 41 20  28 24 46 42 29 2c 59 00  |OPB LDA ($FB),Y.|
000010d0  e1 18 ee 16 53 54 41 20  28 24 46 44 29 2c 59 00  |....STA ($FD),Y.|
000010e0  e9 18 f8 16 49 4e 59 00  f8 18 02 17 42 4e 45 20  |....INY.....BNE |
000010f0  4c 53 4c 4f 50 42 00 04  19 0c 17 49 4e 43 20 24  |LSLOPB.....INC $|
00001100  46 43 00 10 19 16 17 49  4e 43 20 24 46 45 00 1c  |FC.....INC $FE..|
00001110  19 20 17 4c 44 41 20 24  46 43 00 27 19 2a 17 af  |. .LDA $FC.'.*..|
00001120  20 23 24 30 33 00 36 19  34 17 42 4e 45 20 4c 53  | #$03.6.4.BNE LS|
00001130  4c 4f 50 42 00 44 19 3e  17 4c 44 58 20 53 43 52  |LOPB.D.>.LDX SCR|
00001140  4e 4f 00 4c 19 48 17 49  4e 58 00 54 19 52 17 54  |NO.L.H.INX.T.R.T|
00001150  58 41 00 5f 19 5c 17 af  20 23 24 30 31 00 6d 19  |XA._.\.. #$01.m.|
00001160  66 17 53 54 41 20 53 43  52 4e 4f 00 7a 19 70 17  |f.STA SCRNO.z.p.|
00001170  4c 44 41 20 23 24 30 30  00 87 19 7a 17 53 54 41  |LDA #$00...z.STA|
00001180  20 44 41 4c 4c 00 98 19  84 17 4a 53 52 20 42 53  | DALL.....JSR BS|
00001190  43 4c 44 49 53 50 00 a6  19 86 17 4c 44 58 20 53  |CLDISP.....LDX S|
000011a0  43 52 4e 4f 00 ae 19 88  17 49 4e 58 00 b6 19 89  |CRNO.....INX....|
000011b0  17 54 58 41 00 c1 19 8a  17 af 20 23 24 30 31 00  |.TXA...... #$01.|
000011c0  cf 19 8c 17 53 54 41 20  53 43 52 4e 4f 00 df 19  |....STA SCRNO...|
000011d0  8e 17 4a 4d 50 20 55 4e  53 54 41 43 4b 00 f6 19  |..JMP UNSTACK...|
000011e0  98 17 42 53 43 4c 44 49  53 50 20 4c 44 41 20 53  |..BSCLDISP LDA S|
000011f0  43 52 4e 4f 00 05 1a a2  17 42 45 51 20 42 53 43  |CRNO.....BEQ BSC|
00001200  4c 44 47 00 0d 1a ac 17  52 54 53 00 21 1a b6 17  |LDG.....RTS.!...|
00001210  42 53 43 4c 44 47 20 4c  44 58 20 23 24 30 30 00  |BSCLDG LDX #$00.|
00001220  2f 1a c0 17 53 54 58 20  43 4f 4c 43 48 00 3c 1a  |/...STX COLCH.<.|
00001230  d4 17 4c 44 41 20 44 41  4c 4c 00 4c 1a de 17 42  |..LDA DALL.L...B|
00001240  4e 45 20 42 53 43 4c 44  42 46 00 5b 1a e8 17 4a  |NE BSCLDBF.[...J|
00001250  4d 50 20 53 43 4c 44 41  54 00 70 1a f2 17 42 53  |MP SCLDAT.p...BS|
00001260  43 4c 42 46 20 4a 4d 50  20 53 43 4c 42 46 00 8b  |CLBF JMP SCLBF..|
00001270  1a 28 23 3b 20 49 4e 54  45 52 4c 41 43 49 4e 47  |.(#; INTERLACING|
00001280  20 52 4f 55 54 49 4e 45  53 00 9a 1a 32 23 49 4c  | ROUTINES...2#IL|
00001290  41 43 45 91 20 53 45 49  00 ac 1a 3c 23 4c 44 41  |ACE. SEI...<#LDA|
000012a0  20 23 b3 b5 45 52 4c 41  43 45 00 ba 1a 46 23 53  | #..ERLACE...F#S|
000012b0  54 41 20 24 30 33 31 34  00 cc 1a 50 23 4c 44 41  |TA $0314...P#LDA|
000012c0  20 23 b1 b5 45 52 4c 41  43 45 00 da 1a 5a 23 53  | #..ERLACE...Z#S|
000012d0  54 41 20 24 30 33 31 35  00 e2 1a 64 23 43 4c 49  |TA $0315...d#CLI|
000012e0  00 ea 1a 6e 23 52 54 53  00 fb 1a 78 23 49 4c 41  |...n#RTS...x#ILA|
000012f0  43 45 4f 46 46 20 53 45  49 00 0f 1b 82 23 4c 44  |CEOFF SEI....#LD|
00001300  41 20 23 b3 49 4c 41 43  45 51 55 49 54 00 1d 1b  |A #.ILACEQUIT...|
00001310  8c 23 53 54 41 20 24 30  33 31 34 00 31 1b 96 23  |.#STA $0314.1..#|
00001320  4c 44 41 20 23 b1 49 4c  41 43 45 51 55 49 54 00  |LDA #.ILACEQUIT.|
00001330  3f 1b a0 23 53 54 41 20  24 30 33 31 35 00 4c 1b  |?..#STA $0315.L.|
00001340  aa 23 4c 44 41 20 23 24  36 34 00 5a 1b b4 23 53  |.#LDA #$64.Z..#S|
00001350  54 41 20 24 44 30 31 38  00 62 1b be 23 43 4c 49  |TA $D018.b..#CLI|
00001360  00 6a 1b c8 23 52 54 53  00 82 1b d2 23 b5 45 52  |.j..#RTS....#.ER|
00001370  4c 41 43 45 20 4c 44 41  20 49 4c 53 54 41 54 45  |LACE LDA ILSTATE|
00001380  00 91 1b dc 23 42 45 51  20 49 4e 5a 45 52 4f 00  |....#BEQ INZERO.|
00001390  9e 1b e6 23 4c 44 41 20  23 24 30 30 00 ae 1b f0  |...#LDA #$00....|
000013a0  23 53 54 41 20 49 4c 53  54 41 54 45 00 bb 1b fa  |#STA ILSTATE....|
000013b0  23 4c 44 41 20 23 24 36  32 00 c9 1b 04 24 53 54  |#LDA #$62....$ST|
000013c0  41 20 24 44 30 31 38 00  d6 1b 0e 24 4c 44 41 20  |A $D018....$LDA |
000013d0  23 24 31 35 00 e4 1b 18  24 53 54 41 20 24 44 30  |#$15....$STA $D0|
000013e0  31 36 00 fd 1b 22 24 49  4c 41 43 45 51 55 49 54  |16..."$ILACEQUIT|
000013f0  20 4a 4d 50 20 28 49 52  51 9a 29 00 14 1c 2c 24  | JMP (IRQ.)...,$|
00001400  49 4e 5a 45 52 4f 20 49  4e 43 20 49 4c 53 54 41  |INZERO INC ILSTA|
00001410  54 45 00 21 1c 36 24 4c  44 41 20 23 24 36 30 00  |TE.!.6$LDA #$60.|
00001420  2f 1c 40 24 53 54 41 20  24 44 30 31 38 00 3c 1c  |/.@$STA $D018.<.|
00001430  4a 24 4c 44 41 20 23 24  31 34 00 4a 1c 54 24 53  |J$LDA #$14.J.T$S|
00001440  54 41 20 24 44 30 31 36  00 59 1c 5e 24 4a 4d 50  |TA $D016.Y.^$JMP|
00001450  20 28 49 52 51 9a 29 00  6d 1c 10 27 3b 20 54 45  | (IRQ.).m..'; TE|
00001460  4d 50 20 52 4f 55 54 49  4e 45 53 00 7d 1c 11 27  |MP ROUTINES.}..'|
00001470  45 46 46 45 43 54 53 20  4e 4f 50 00 8f 1c 12 27  |EFFECTS NOP....'|
00001480  46 55 4c 4c 53 44 49 53  50 20 4e 4f 50 00 9b 1c  |FULLSDISP NOP...|
00001490  13 27 59 4f 55 20 4e 4f  50 00 ab 1c 14 27 4d 91  |.'YOU NOP....'M.|
000014a0  53 54 45 52 53 20 4e 4f  50 00 b9 1c 15 27 50 41  |STERS NOP....'PA|
000014b0  4e 45 4c 20 4e 4f 50 00  c6 1c 16 27 47 41 4d 80  |NEL NOP....'GAM.|
000014c0  20 4e 4f 50 00 00 00                              | NOP...|
000014c7