$
; 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�8YP�$CF47�BMEMS�$41
	LTXP�$22
	QTYP�$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 (TXP),Y��STA BT��ASL A��LDX COLCH��BNE COLOUR��STA (MEMS),Y�LDX DALL�BNE CHARC�A�CLC,ADC #$014INYESTA (MEMS),YM&CLCZ0ADC #$1Fg: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 #$7C�STA MEMS�1"�LDA SCRNO.�E� #$018�ASL AB�ASL AJ�CLCY�ADC MEMS�1h�STA MEMS�1u�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�COLC�B JMP UNSTACKLINITDB LDA SCRNOVASL A`ASL AhCLCu	ADC #$58�STA MEMS�1�LDY #$00� STY MEMS�*LDA XP�4STA TXP�>LDA YP�HCLC�RADC #$04�\STA TYP�f� #$40�pASL A�zCLC
�ADC TYP�� #$BF!�STA TYP-�RST RTSJ�; LEFT SCROLLING ROUTINE`�LSCROLL JSR STACKn�LDX XSSTEv�INX~�TXA��� #$07��STA XSSTE��CLC��ADC #$10��STA $D016��CMP #$14��BEQ LSSCLTR�CMP #$10�BNE RST�(LDX SCRNO2INX4LDA $D0187� #$15-9STA $D0185<TXA@F� #$01NPSTA SCRNOXZASL AbdASL AlnASL AvxASL 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'�JSR SCLDISP=LSLOP LDA ($FB),YMSTA ($FD),YUINYc"BNE LSLOPo,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+�LSSCLTR JMP LSCRSCLA�SCLDISP LDA SCRNOO�BEQ SCLDGW�RTSj�SCLDG LDX #$01x�STX COLCH��DEX��LDA DALL��BNE SCLDBF��SCLDAT STX YPS��LDA #$00��STA XPS��JSR DISPBLOCK�INX�CPX #$0B�BNE SCLDAT&RTS0SCLDBF STX YPS&:LDA #$132DSTA XPSDNJSR DISPBLOCKLXINXYbCPX #$0BhlBNE SCLDBFpvRTS��LSCRSCL LDA #$01��STA $FB��LDY #$00��STY $FD��LDA #$58��STA $FC��LDA SCRNO��ASL A��ASL A��CLC��ADC $FC�STA $FC�E� #$04�STA $FE*�LDA #$017�STA DALLH�JSR BSCLDISPU�LDY #$00l�LSLOPB LDA ($FB),Y|�STA ($FD),Y��INY�BNE LSLOPB�INC $FC�INC $FE� LDA $FC�*� #$03�4BNE LSLOPB�>LDX SCRNO�HINX�RTXA�\� #$01fSTA SCRNOpLDA #$00"zSTA DALL3�JSR BSCLDISPA�LDX SCRNOI�INXQ�TXA\�� #$01j�STA SCRNOz�JMP UNSTACK��BSCLDISP LDA SCRNO��BEQ BSCLDG��RTS��BSCLDG LDX #$00��STX COLCH��LDA DALL��BNE BSCLDBF��JMP SCLDAT
�BSCLDBF JMP SCLDBF((#; INTERLACING ROUTINES72#ILACE� SEII<#LDA #��ERLACEWF#STA $0314iP#LDA #��ERLACEwZ#STA $0315d#CLI�n#RTS�x#ILACEOFF SEI��#LDA #�ILACEQUIT��#STA $0314��#LDA #�ILACEQUIT��#STA $0315��#LDA #$64��#STA $D018��#CLI�#RTS�#�ERLACE LDA ILSTATE.�#BEQ INZERO;�#LDA #$00K�#STA ILSTATEX�#LDA #$62f$STA $D018s$LDA #$15�$STA $D016�"$ILACEQUIT JMP (IRQ�)�,$INZERO INC ILSTATE�6$LDA #$60�@$STA $D018�J$LDA #$14�T$STA $D016�^$JMP (IRQ�)
'; TEMP ROUTINES'EFFECTS NOP,'FULLSDISP NOP8'YOU NOPH'M�STERS NOPV'PANEL NOPc'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.Dxp.$cf44@.H8Dyp.$cf47@.HbDmems.$41@AIlDtxp.$22@MIqDtyp.$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 (txp),y@.P.Psta bt@.P.Pasl a@.P.Pldx colch@.P.Pbne colour@.P.Psta (mems),y@GQ.Pldx dall@WQ.Pbne charc.a@.Q.Pclc@,QHQadc #$01@4QRQiny@eQ£Qsta (mems),y@mQ&Qclc@zQ0Qadc #$1f@GQ: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@ER.Qadc #$7c@TR.Qsta mems.1@"R.Qlda scrno@.R.Qe. #$01@8R.Qasl a@bR.Qasl a@jR.Qclc@yR.Qadc mems.1@HR.Qsta mems.1@UR.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@GS.Qbne colc.b@OS.Qiny@ S.Qsta (mems),y@7S.Qcolc.b jmp unstack@lSBRinitdb lda scrno@vSDRasl a@.SFRasl a@HSHRclc@USIRadc #$58@.SLRsta mems.1@.SVRldy #$00@.S Rsty mems@.S*Rlda xp@.S4Rsta txp@.S>Rlda yp@.ShRclc@.SrRadc #$04@.S£Rsta typ@.SFR. #$40@.SPRasl a@.SZRclc@JT.Radc typ@UT.R. #$bf@!T.Rsta typ@-T.Rrst rts@jT.S; left scrolling routine@.T.Slscroll jsr stack@NT.Sldx xsste@VT.Sinx@.T.Stxa@.T.S. #$07@.T.Ssta xsste@.T.Sclc@.T.Sadc #$10@.T.Ssta $d016@.T.Scmp #$14@.T.Sbeq lsscltr@.TTTcmp #$10@.T.Tbne rst@.T(Tldx scrno@FU2Tinx@TU4Tlda $d018@.U7T. #$15@-U9Tsta $d018@5U<Ttxa@@UfT. #$01@nUpTsta scrno@xUzTasl a@BUDTasl a@LUNTasl a@VUXTasl a@.U.Tclc@.U.Tadc #$60@.U.T.a $d018@.U.Tsta $d018@.U.Tlda #$01@.U.Tsta $fb@.U.Tldy #$00@.U.Tsty $fd@.U.Tlda #$d8@.U.Tsta $fc@.U.Tsta $fe@JV.Tlda #$01@WV.Tsta dall@'V.Tjsr scldisp@=VDUlslop lda ($fb),y@mVNUsta ($fd),y@uVXUiny@CV"Ubne lslop@OV,Uinc $fc@.V6Uinc $fe@.V@Ulda $fc@.VjUcmp #$dc@.VtUbne lslop@.V.Uldx scrno@.VHUinx@.VRUtxa@.V.U. #$01@.V.Usta scrno@.V.Ulda #$00@.V.Usta dall@CW.Ujsr scldisp@SW.Ujmp unstack@+W.Ulsscltr jmp lscrscl@aW.Uscldisp lda scrno@oW.Ubeq scldg@wW.Urts@JW.Uscldg ldx #$01@XW.Ustx colch@.W.Udex@.W.Ulda dall@.W.Ubne scldbf@.W.Uscldat stx yps@.W.Ulda #$00@.W.Usta xps@.W.Ujsr dispblock@.WHVinx@.WRVcpx #$0b@.W£Vbne scldat@FX&Vrts@YX0Vscldbf stx yps@&X:Vlda #$13@2XdVsta xps@dXnVjsr dispblock@lXxVinx@yXBVcpx #$0b@HXLVbne scldbf@PXVVrts@.X.Vlscrscl lda #$01@.X.Vsta $fb@.X.Vldy #$00@.X.Vsty $fd@.X.Vlda #$58@.X.Vsta $fc@.X.Vlda scrno@.X.Vasl a@.X.Vasl a@.X.Vclc@.X.Vadc $fc@EY.Vsta $fc@QY.Ve. #$04@]Y.Vsta $fe@*Y.Vlda #$01@7Y.Vsta dall@hY.Vjsr bscldisp@uY.Vldy #$00@LY.Vlslopb lda ($fb),y@.Y.Vsta ($fd),y@.Y.Viny@.YBWbne lslopb@.YLWinc $fc@.YVWinc $fe@.Y Wlda $fc@.Y*W. #$03@.Y4Wbne lslopb@.Y>Wldx scrno@.YhWinx@.YrWtxa@.Y£W. #$01@HZFWsta scrno@UZPWlda #$00@"ZZWsta dall@3Z.Wjsr bscldisp@aZ.Wldx scrno@iZ.Winx@qZ.Wtxa@£Z.W. #$01@JZ.Wsta scrno@ZZ.Wjmp unstack@.Z.Wbscldisp lda scrno@.Z.Wbeq bscldg@.Z.Wrts@.Z.Wbscldg ldx #$00@.Z.Wstx colch@.Z.Wlda dall@.Z.Wbne bscldbf@.Z.Wjmp scldat@M[.Wbscldbf jmp scldbf@([(#; interlacing routines@7[2#ilace. sei@i[<#lda #..erlace@w[f#sta $0314@I[p#lda #..erlace@W[z#sta $0315@.[D#cli@.[N#rts@.[X#ilaceoff sei@.[.#lda #.ilacequit@.[.#sta $0314@.[.#lda #.ilacequit@.[.#sta $0315@.[.#lda #$64@.[.#sta $d018@.[.#cli@G£.#rts@.£.#.erlace lda ilstate@.£.#beq inzero@;£.#lda #$00@k£.#sta ilstate@x£.#lda #$62@F£D$sta $d018@S£N$lda #$15@.£X$sta $d016@.£"$ilacequit jmp (irq.)@.£,$inzero inc ilstate@.£6$lda #$60@.£@$sta $d018@.£j$lda #$14@.£t$sta $d016@.£.$jmp (irq.)@J]P'; temp routines@Z]Q'effects nop@,]R'fullsdisp nop@8]S'you nop@h]T'm.sters nop@v]U'panel nop@C]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 db 08 2e  |...$..=$CF45....|
000000d0  04 58 50 b2 24 43 46 34  34 00 e8 08 38 04 59 50  |.XP.$CF44...8.YP|
000000e0  b2 24 43 46 34 37 00 f5  08 42 04 4d 45 4d 53 b2  |.$CF47...B.MEMS.|
000000f0  24 34 31 00 01 09 4c 04  54 58 50 b2 24 32 32 00  |$41...L.TXP.$22.|
00000100  0d 09 51 04 54 59 50 b2  24 32 33 00 1a 09 56 04  |..Q.TYP.$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  b7 10 d6 10 58 50 43 4e  54 20 4c 44 41 20 28 54  |....XPCNT LDA (T|
000008b0  58 50 29 2c 59 00 c2 10  e0 10 53 54 41 20 42 54  |XP),Y.....STA BT|
000008c0  00 cc 10 e5 10 41 53 4c  20 41 00 da 10 ea 10 4c  |.....ASL A.....L|
000008d0  44 58 20 43 4f 4c 43 48  00 e9 10 ef 10 42 4e 45  |DX COLCH.....BNE|
000008e0  20 43 4f 4c 4f 55 52 00  fa 10 f4 10 53 54 41 20  | COLOUR.....STA |
000008f0  28 4d 45 4d 53 29 2c 59  00 07 11 f7 10 4c 44 58  |(MEMS),Y.....LDX|
00000900  20 44 41 4c 4c 00 17 11  fa 10 42 4e 45 20 43 48  | DALL.....BNE CH|
00000910  41 52 43 91 41 00 1f 11  fe 10 43 4c 43 00 2c 11  |ARC.A.....CLC.,.|
00000920  08 11 41 44 43 20 23 24  30 31 00 34 11 12 11 49  |..ADC #$01.4...I|
00000930  4e 59 00 45 11 1c 11 53  54 41 20 28 4d 45 4d 53  |NY.E...STA (MEMS|
00000940  29 2c 59 00 4d 11 26 11  43 4c 43 00 5a 11 30 11  |),Y.M.&.CLC.Z.0.|
00000950  41 44 43 20 23 24 31 46  00 67 11 3a 11 4c 44 59  |ADC #$1F.g.:.LDY|
00000960  20 23 24 32 38 00 80 11  44 11 43 48 41 52 43 91  | #$28...D.CHARC.|
00000970  41 20 53 54 41 20 28 4d  45 4d 53 29 2c 59 00 8d  |A STA (MEMS),Y..|
00000980  11 47 11 4c 44 58 20 44  41 4c 4c 00 9c 11 4a 11  |.G.LDX DALL...J.|
00000990  42 4e 45 20 43 4f 4c 43  91 42 00 a4 11 4e 11 43  |BNE COLC.B...N.C|
000009a0  4c 43 00 b1 11 58 11 41  44 43 20 23 24 30 31 00  |LC...X.ADC #$01.|
000009b0  b9 11 62 11 49 4e 59 00  ca 11 6c 11 53 54 41 20  |..b.INY...l.STA |
000009c0  28 4d 45 4d 53 29 2c 59  00 da 11 71 11 4a 4d 50  |(MEMS),Y...q.JMP|
000009d0  20 55 4e 53 54 41 43 4b  00 f0 11 76 11 43 4f 4c  | UNSTACK...v.COL|
000009e0  4f 55 52 20 4c 44 41 20  4d 45 4d 53 aa 31 00 f8  |OUR LDA MEMS.1..|
000009f0  11 80 11 43 4c 43 00 05  12 8a 11 41 44 43 20 23  |...CLC.....ADC #|
00000a00  24 37 43 00 14 12 8c 11  53 54 41 20 4d 45 4d 53  |$7C.....STA MEMS|
00000a10  aa 31 00 22 12 8e 11 4c  44 41 20 53 43 52 4e 4f  |.1."...LDA SCRNO|
00000a20  00 2e 12 8f 11 45 b0 20  23 24 30 31 00 38 12 90  |.....E. #$01.8..|
00000a30  11 41 53 4c 20 41 00 42  12 91 11 41 53 4c 20 41  |.ASL A.B...ASL A|
00000a40  00 4a 12 92 11 43 4c 43  00 59 12 93 11 41 44 43  |.J...CLC.Y...ADC|
00000a50  20 4d 45 4d 53 aa 31 00  68 12 94 11 53 54 41 20  | MEMS.1.h...STA |
00000a60  4d 45 4d 53 aa 31 00 75  12 9e 11 4c 44 59 20 23  |MEMS.1.u...LDY #|
00000a70  24 30 30 00 80 12 a8 11  4c 44 41 20 42 54 00 91  |$00.....LDA BT..|
00000a80  12 b2 11 53 54 41 20 28  4d 45 4d 53 29 2c 59 00  |...STA (MEMS),Y.|
00000a90  9e 12 b5 11 4c 44 58 20  44 41 4c 4c 00 ad 12 b8  |....LDX DALL....|
00000aa0  11 42 4e 45 20 43 4f 4c  43 91 41 00 b5 12 bc 11  |.BNE COLC.A.....|
00000ab0  49 4e 59 00 c6 12 c6 11  53 54 41 20 28 4d 45 4d  |INY.....STA (MEM|
00000ac0  53 29 2c 59 00 d3 12 d0  11 4c 44 59 20 23 24 32  |S),Y.....LDY #$2|
00000ad0  38 00 eb 12 da 11 43 4f  4c 43 91 41 20 53 54 41  |8.....COLC.A STA|
00000ae0  20 28 4d 45 4d 53 29 2c  59 00 f8 12 dd 11 4c 44  | (MEMS),Y.....LD|
00000af0  58 20 44 41 4c 4c 00 07  13 e0 11 42 4e 45 20 43  |X DALL.....BNE C|
00000b00  4f 4c 43 91 42 00 0f 13  e4 11 49 4e 59 00 20 13  |OLC.B.....INY. .|
00000b10  ee 11 53 54 41 20 28 4d  45 4d 53 29 2c 59 00 37  |..STA (MEMS),Y.7|
00000b20  13 f8 11 43 4f 4c 43 91  42 20 4a 4d 50 20 55 4e  |...COLC.B 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 35 38 00 84 13 0c 12  53 54 41 20 4d 45 4d 53  |$58.....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 a9 13 2a  |.. .STY MEMS...*|
00000ba0  12 4c 44 41 20 58 50 00  b5 13 34 12 53 54 41 20  |.LDA XP...4.STA |
00000bb0  54 58 50 00 c0 13 3e 12  4c 44 41 20 59 50 00 c8  |TXP...>.LDA YP..|
00000bc0  13 48 12 43 4c 43 00 d5  13 52 12 41 44 43 20 23  |.H.CLC...R.ADC #|
00000bd0  24 30 34 00 e1 13 5c 12  53 54 41 20 54 59 50 00  |$04...\.STA TYP.|
00000be0  ec 13 66 12 af 20 23 24  34 30 00 f6 13 70 12 41  |..f.. #$40...p.A|
00000bf0  53 4c 20 41 00 fe 13 7a  12 43 4c 43 00 0a 14 84  |SL A...z.CLC....|
00000c00  12 41 44 43 20 54 59 50  00 15 14 8e 12 af 20 23  |.ADC TYP...... #|
00000c10  24 42 46 00 21 14 98 12  53 54 41 20 54 59 50 00  |$BF.!...STA TYP.|
00000c20  2d 14 a2 12 52 53 54 20  52 54 53 00 4a 14 88 13  |-...RST RTS.J...|
00000c30  3b 20 4c 45 46 54 20 53  43 52 4f 4c 4c 49 4e 47  |; LEFT SCROLLING|
00000c40  20 52 4f 55 54 49 4e 45  00 60 14 92 13 4c 53 43  | ROUTINE.`...LSC|
00000c50  52 4f 4c 4c 20 4a 53 52  20 53 54 41 43 4b 00 6e  |ROLL JSR STACK.n|
00000c60  14 9c 13 4c 44 58 20 58  53 53 54 45 00 76 14 a6  |...LDX XSSTE.v..|
00000c70  13 49 4e 58 00 7e 14 b0  13 54 58 41 00 89 14 ba  |.INX.~...TXA....|
00000c80  13 af 20 23 24 30 37 00  97 14 c4 13 53 54 41 20  |.. #$07.....STA |
00000c90  58 53 53 54 45 00 9f 14  ce 13 43 4c 43 00 ac 14  |XSSTE.....CLC...|
00000ca0  d8 13 41 44 43 20 23 24  31 30 00 ba 14 e2 13 53  |..ADC #$10.....S|
00000cb0  54 41 20 24 44 30 31 36  00 c7 14 ec 13 43 4d 50  |TA $D016.....CMP|
00000cc0  20 23 24 31 34 00 d7 14  f6 13 42 45 51 20 4c 53  | #$14.....BEQ LS|
00000cd0  53 43 4c 54 52 00 e4 14  14 14 43 4d 50 20 23 24  |SCLTR.....CMP #$|
00000ce0  31 30 00 f0 14 1e 14 42  4e 45 20 52 53 54 00 fe  |10.....BNE RST..|
00000cf0  14 28 14 4c 44 58 20 53  43 52 4e 4f 00 06 15 32  |.(.LDX SCRNO...2|
00000d00  14 49 4e 58 00 14 15 34  14 4c 44 41 20 24 44 30  |.INX...4.LDA $D0|
00000d10  31 38 00 1f 15 37 14 af  20 23 24 31 35 00 2d 15  |18...7.. #$15.-.|
00000d20  39 14 53 54 41 20 24 44  30 31 38 00 35 15 3c 14  |9.STA $D018.5.<.|
00000d30  54 58 41 00 40 15 46 14  af 20 23 24 30 31 00 4e  |TXA.@.F.. #$01.N|
00000d40  15 50 14 53 54 41 20 53  43 52 4e 4f 00 58 15 5a  |.P.STA SCRNO.X.Z|
00000d50  14 41 53 4c 20 41 00 62  15 64 14 41 53 4c 20 41  |.ASL A.b.d.ASL A|
00000d60  00 6c 15 6e 14 41 53 4c  20 41 00 76 15 78 14 41  |.l.n.ASL A.v.x.A|
00000d70  53 4c 20 41 00 7e 15 82  14 43 4c 43 00 8b 15 8c  |SL A.~...CLC....|
00000d80  14 41 44 43 20 23 24 36  30 00 98 15 a0 14 b0 41  |.ADC #$60......A|
00000d90  20 24 44 30 31 38 00 a6  15 aa 14 53 54 41 20 24  | $D018.....STA $|
00000da0  44 30 31 38 00 b3 15 b4  14 4c 44 41 20 23 24 30  |D018.....LDA #$0|
00000db0  31 00 bf 15 be 14 53 54  41 20 24 46 42 00 cc 15  |1.....STA $FB...|
00000dc0  c8 14 4c 44 59 20 23 24  30 30 00 d8 15 d2 14 53  |..LDY #$00.....S|
00000dd0  54 59 20 24 46 44 00 e5  15 dc 14 4c 44 41 20 23  |TY $FD.....LDA #|
00000de0  24 44 38 00 f1 15 e6 14  53 54 41 20 24 46 43 00  |$D8.....STA $FC.|
00000df0  fd 15 f0 14 53 54 41 20  24 46 45 00 0a 16 f2 14  |....STA $FE.....|
00000e00  4c 44 41 20 23 24 30 31  00 17 16 f5 14 53 54 41  |LDA #$01.....STA|
00000e10  20 44 41 4c 4c 00 27 16  fa 14 4a 53 52 20 53 43  | DALL.'...JSR SC|
00000e20  4c 44 49 53 50 00 3d 16  04 15 4c 53 4c 4f 50 20  |LDISP.=...LSLOP |
00000e30  4c 44 41 20 28 24 46 42  29 2c 59 00 4d 16 0e 15  |LDA ($FB),Y.M...|
00000e40  53 54 41 20 28 24 46 44  29 2c 59 00 55 16 18 15  |STA ($FD),Y.U...|
00000e50  49 4e 59 00 63 16 22 15  42 4e 45 20 4c 53 4c 4f  |INY.c.".BNE LSLO|
00000e60  50 00 6f 16 2c 15 49 4e  43 20 24 46 43 00 7b 16  |P.o.,.INC $FC.{.|
00000e70  36 15 49 4e 43 20 24 46  45 00 87 16 40 15 4c 44  |6.INC $FE...@.LD|
00000e80  41 20 24 46 43 00 94 16  4a 15 43 4d 50 20 23 24  |A $FC...J.CMP #$|
00000e90  44 43 00 a2 16 54 15 42  4e 45 20 4c 53 4c 4f 50  |DC...T.BNE LSLOP|
00000ea0  00 b0 16 5e 15 4c 44 58  20 53 43 52 4e 4f 00 b8  |...^.LDX SCRNO..|
00000eb0  16 68 15 49 4e 58 00 c0  16 72 15 54 58 41 00 cb  |.h.INX...r.TXA..|
00000ec0  16 7c 15 af 20 23 24 30  31 00 d9 16 86 15 53 54  |.|.. #$01.....ST|
00000ed0  41 20 53 43 52 4e 4f 00  e6 16 88 15 4c 44 41 20  |A SCRNO.....LDA |
00000ee0  23 24 30 30 00 f3 16 8b  15 53 54 41 20 44 41 4c  |#$00.....STA DAL|
00000ef0  4c 00 03 17 90 15 4a 53  52 20 53 43 4c 44 49 53  |L.....JSR SCLDIS|
00000f00  50 00 13 17 9a 15 4a 4d  50 20 55 4e 53 54 41 43  |P.....JMP UNSTAC|
00000f10  4b 00 2b 17 9f 15 4c 53  53 43 4c 54 52 20 4a 4d  |K.+...LSSCLTR JM|
00000f20  50 20 4c 53 43 52 53 43  4c 00 41 17 a4 15 53 43  |P LSCRSCL.A...SC|
00000f30  4c 44 49 53 50 20 4c 44  41 20 53 43 52 4e 4f 00  |LDISP LDA SCRNO.|
00000f40  4f 17 ae 15 42 45 51 20  53 43 4c 44 47 00 57 17  |O...BEQ SCLDG.W.|
00000f50  b8 15 52 54 53 00 6a 17  bb 15 53 43 4c 44 47 20  |..RTS.j...SCLDG |
00000f60  4c 44 58 20 23 24 30 31  00 78 17 be 15 53 54 58  |LDX #$01.x...STX|
00000f70  20 43 4f 4c 43 48 00 80  17 c2 15 44 45 58 00 8d  | COLCH.....DEX..|
00000f80  17 cc 15 4c 44 41 20 44  41 4c 4c 00 9c 17 d6 15  |...LDA DALL.....|
00000f90  42 4e 45 20 53 43 4c 44  42 46 00 af 17 e0 15 53  |BNE SCLDBF.....S|
00000fa0  43 4c 44 41 54 20 53 54  58 20 59 50 53 00 bc 17  |CLDAT STX YPS...|
00000fb0  ea 15 4c 44 41 20 23 24  30 30 00 c8 17 f4 15 53  |..LDA #$00.....S|
00000fc0  54 41 20 58 50 53 00 da  17 fe 15 4a 53 52 20 44  |TA XPS.....JSR D|
00000fd0  49 53 50 42 4c 4f 43 4b  00 e2 17 08 16 49 4e 58  |ISPBLOCK.....INX|
00000fe0  00 ef 17 12 16 43 50 58  20 23 24 30 42 00 fe 17  |.....CPX #$0B...|
00000ff0  1c 16 42 4e 45 20 53 43  4c 44 41 54 00 06 18 26  |..BNE SCLDAT...&|
00001000  16 52 54 53 00 19 18 30  16 53 43 4c 44 42 46 20  |.RTS...0.SCLDBF |
00001010  53 54 58 20 59 50 53 00  26 18 3a 16 4c 44 41 20  |STX YPS.&.:.LDA |
00001020  23 24 31 33 00 32 18 44  16 53 54 41 20 58 50 53  |#$13.2.D.STA XPS|
00001030  00 44 18 4e 16 4a 53 52  20 44 49 53 50 42 4c 4f  |.D.N.JSR DISPBLO|
00001040  43 4b 00 4c 18 58 16 49  4e 58 00 59 18 62 16 43  |CK.L.X.INX.Y.b.C|
00001050  50 58 20 23 24 30 42 00  68 18 6c 16 42 4e 45 20  |PX #$0B.h.l.BNE |
00001060  53 43 4c 44 42 46 00 70  18 76 16 52 54 53 00 85  |SCLDBF.p.v.RTS..|
00001070  18 80 16 4c 53 43 52 53  43 4c 20 4c 44 41 20 23  |...LSCRSCL LDA #|
00001080  24 30 31 00 91 18 8a 16  53 54 41 20 24 46 42 00  |$01.....STA $FB.|
00001090  9e 18 94 16 4c 44 59 20  23 24 30 30 00 aa 18 9e  |....LDY #$00....|
000010a0  16 53 54 59 20 24 46 44  00 b7 18 a8 16 4c 44 41  |.STY $FD.....LDA|
000010b0  20 23 24 35 38 00 c3 18  aa 16 53 54 41 20 24 46  | #$58.....STA $F|
000010c0  43 00 d1 18 ac 16 4c 44  41 20 53 43 52 4e 4f 00  |C.....LDA SCRNO.|
000010d0  db 18 ae 16 41 53 4c 20  41 00 e5 18 b0 16 41 53  |....ASL A.....AS|
000010e0  4c 20 41 00 ed 18 b2 16  43 4c 43 00 f9 18 b4 16  |L A.....CLC.....|
000010f0  41 44 43 20 24 46 43 00  05 19 b6 16 53 54 41 20  |ADC $FC.....STA |
00001100  24 46 43 00 11 19 b8 16  45 b0 20 23 24 30 34 00  |$FC.....E. #$04.|
00001110  1d 19 ba 16 53 54 41 20  24 46 45 00 2a 19 c6 16  |....STA $FE.*...|
00001120  4c 44 41 20 23 24 30 31  00 37 19 d0 16 53 54 41  |LDA #$01.7...STA|
00001130  20 44 41 4c 4c 00 48 19  da 16 4a 53 52 20 42 53  | DALL.H...JSR BS|
00001140  43 4c 44 49 53 50 00 55  19 df 16 4c 44 59 20 23  |CLDISP.U...LDY #|
00001150  24 30 30 00 6c 19 e4 16  4c 53 4c 4f 50 42 20 4c  |$00.l...LSLOPB L|
00001160  44 41 20 28 24 46 42 29  2c 59 00 7c 19 ee 16 53  |DA ($FB),Y.|...S|
00001170  54 41 20 28 24 46 44 29  2c 59 00 84 19 f8 16 49  |TA ($FD),Y.....I|
00001180  4e 59 00 93 19 02 17 42  4e 45 20 4c 53 4c 4f 50  |NY.....BNE LSLOP|
00001190  42 00 9f 19 0c 17 49 4e  43 20 24 46 43 00 ab 19  |B.....INC $FC...|
000011a0  16 17 49 4e 43 20 24 46  45 00 b7 19 20 17 4c 44  |..INC $FE... .LD|
000011b0  41 20 24 46 43 00 c2 19  2a 17 af 20 23 24 30 33  |A $FC...*.. #$03|
000011c0  00 d1 19 34 17 42 4e 45  20 4c 53 4c 4f 50 42 00  |...4.BNE LSLOPB.|
000011d0  df 19 3e 17 4c 44 58 20  53 43 52 4e 4f 00 e7 19  |..>.LDX SCRNO...|
000011e0  48 17 49 4e 58 00 ef 19  52 17 54 58 41 00 fa 19  |H.INX...R.TXA...|
000011f0  5c 17 af 20 23 24 30 31  00 08 1a 66 17 53 54 41  |\.. #$01...f.STA|
00001200  20 53 43 52 4e 4f 00 15  1a 70 17 4c 44 41 20 23  | SCRNO...p.LDA #|
00001210  24 30 30 00 22 1a 7a 17  53 54 41 20 44 41 4c 4c  |$00.".z.STA DALL|
00001220  00 33 1a 84 17 4a 53 52  20 42 53 43 4c 44 49 53  |.3...JSR BSCLDIS|
00001230  50 00 41 1a 86 17 4c 44  58 20 53 43 52 4e 4f 00  |P.A...LDX SCRNO.|
00001240  49 1a 88 17 49 4e 58 00  51 1a 89 17 54 58 41 00  |I...INX.Q...TXA.|
00001250  5c 1a 8a 17 af 20 23 24  30 31 00 6a 1a 8c 17 53  |\.... #$01.j...S|
00001260  54 41 20 53 43 52 4e 4f  00 7a 1a 8e 17 4a 4d 50  |TA SCRNO.z...JMP|
00001270  20 55 4e 53 54 41 43 4b  00 91 1a 98 17 42 53 43  | UNSTACK.....BSC|
00001280  4c 44 49 53 50 20 4c 44  41 20 53 43 52 4e 4f 00  |LDISP LDA SCRNO.|
00001290  a0 1a a2 17 42 45 51 20  42 53 43 4c 44 47 00 a8  |....BEQ BSCLDG..|
000012a0  1a ac 17 52 54 53 00 bc  1a b6 17 42 53 43 4c 44  |...RTS.....BSCLD|
000012b0  47 20 4c 44 58 20 23 24  30 30 00 ca 1a c0 17 53  |G LDX #$00.....S|
000012c0  54 58 20 43 4f 4c 43 48  00 d7 1a d4 17 4c 44 41  |TX COLCH.....LDA|
000012d0  20 44 41 4c 4c 00 e7 1a  de 17 42 4e 45 20 42 53  | DALL.....BNE BS|
000012e0  43 4c 44 42 46 00 f6 1a  e8 17 4a 4d 50 20 53 43  |CLDBF.....JMP SC|
000012f0  4c 44 41 54 00 0d 1b f2  17 42 53 43 4c 44 42 46  |LDAT.....BSCLDBF|
00001300  20 4a 4d 50 20 53 43 4c  44 42 46 00 28 1b 28 23  | JMP SCLDBF.(.(#|
00001310  3b 20 49 4e 54 45 52 4c  41 43 49 4e 47 20 52 4f  |; INTERLACING RO|
00001320  55 54 49 4e 45 53 00 37  1b 32 23 49 4c 41 43 45  |UTINES.7.2#ILACE|
00001330  91 20 53 45 49 00 49 1b  3c 23 4c 44 41 20 23 b3  |. SEI.I.<#LDA #.|
00001340  b5 45 52 4c 41 43 45 00  57 1b 46 23 53 54 41 20  |.ERLACE.W.F#STA |
00001350  24 30 33 31 34 00 69 1b  50 23 4c 44 41 20 23 b1  |$0314.i.P#LDA #.|
00001360  b5 45 52 4c 41 43 45 00  77 1b 5a 23 53 54 41 20  |.ERLACE.w.Z#STA |
00001370  24 30 33 31 35 00 7f 1b  64 23 43 4c 49 00 87 1b  |$0315...d#CLI...|
00001380  6e 23 52 54 53 00 98 1b  78 23 49 4c 41 43 45 4f  |n#RTS...x#ILACEO|
00001390  46 46 20 53 45 49 00 ac  1b 82 23 4c 44 41 20 23  |FF SEI....#LDA #|
000013a0  b3 49 4c 41 43 45 51 55  49 54 00 ba 1b 8c 23 53  |.ILACEQUIT....#S|
000013b0  54 41 20 24 30 33 31 34  00 ce 1b 96 23 4c 44 41  |TA $0314....#LDA|
000013c0  20 23 b1 49 4c 41 43 45  51 55 49 54 00 dc 1b a0  | #.ILACEQUIT....|
000013d0  23 53 54 41 20 24 30 33  31 35 00 e9 1b aa 23 4c  |#STA $0315....#L|
000013e0  44 41 20 23 24 36 34 00  f7 1b b4 23 53 54 41 20  |DA #$64....#STA |
000013f0  24 44 30 31 38 00 ff 1b  be 23 43 4c 49 00 07 1c  |$D018....#CLI...|
00001400  c8 23 52 54 53 00 1f 1c  d2 23 b5 45 52 4c 41 43  |.#RTS....#.ERLAC|
00001410  45 20 4c 44 41 20 49 4c  53 54 41 54 45 00 2e 1c  |E LDA ILSTATE...|
00001420  dc 23 42 45 51 20 49 4e  5a 45 52 4f 00 3b 1c e6  |.#BEQ INZERO.;..|
00001430  23 4c 44 41 20 23 24 30  30 00 4b 1c f0 23 53 54  |#LDA #$00.K..#ST|
00001440  41 20 49 4c 53 54 41 54  45 00 58 1c fa 23 4c 44  |A ILSTATE.X..#LD|
00001450  41 20 23 24 36 32 00 66  1c 04 24 53 54 41 20 24  |A #$62.f..$STA $|
00001460  44 30 31 38 00 73 1c 0e  24 4c 44 41 20 23 24 31  |D018.s..$LDA #$1|
00001470  35 00 81 1c 18 24 53 54  41 20 24 44 30 31 36 00  |5....$STA $D016.|
00001480  9a 1c 22 24 49 4c 41 43  45 51 55 49 54 20 4a 4d  |.."$ILACEQUIT JM|
00001490  50 20 28 49 52 51 9a 29  00 b1 1c 2c 24 49 4e 5a  |P (IRQ.)...,$INZ|
000014a0  45 52 4f 20 49 4e 43 20  49 4c 53 54 41 54 45 00  |ERO INC ILSTATE.|
000014b0  be 1c 36 24 4c 44 41 20  23 24 36 30 00 cc 1c 40  |..6$LDA #$60...@|
000014c0  24 53 54 41 20 24 44 30  31 38 00 d9 1c 4a 24 4c  |$STA $D018...J$L|
000014d0  44 41 20 23 24 31 34 00  e7 1c 54 24 53 54 41 20  |DA #$14...T$STA |
000014e0  24 44 30 31 36 00 f6 1c  5e 24 4a 4d 50 20 28 49  |$D016...^$JMP (I|
000014f0  52 51 9a 29 00 0a 1d 10  27 3b 20 54 45 4d 50 20  |RQ.)....'; TEMP |
00001500  52 4f 55 54 49 4e 45 53  00 1a 1d 11 27 45 46 46  |ROUTINES....'EFF|
00001510  45 43 54 53 20 4e 4f 50  00 2c 1d 12 27 46 55 4c  |ECTS NOP.,..'FUL|
00001520  4c 53 44 49 53 50 20 4e  4f 50 00 38 1d 13 27 59  |LSDISP NOP.8..'Y|
00001530  4f 55 20 4e 4f 50 00 48  1d 14 27 4d 91 53 54 45  |OU NOP.H..'M.STE|
00001540  52 53 20 4e 4f 50 00 56  1d 15 27 50 41 4e 45 4c  |RS NOP.V..'PANEL|
00001550  20 4e 4f 50 00 63 1d 16  27 47 41 4d 80 20 4e 4f  | NOP.c..'GAM. NO|
00001560  50 00 00 00                                       |P...|
00001564