$
; 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),Y6�COLC�B JMP UNSTACKKINITDB LDA SCRNOUASL A_ASL AgCLCt	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 #$106�STA $D016C�CMP #$14S�BEQ LSSCLTR`CMP #$10lBNE RSTz(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 $D018/�LDA #$01;�STA $FBH�LDY #$00T�STY $FDa�LDA #$D8m�STA $FCy�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 SCRNO4hINX<rTXAG|� #$01U�STA SCRNOb�LDA #$00o�STA DALL�JSR SCLDISP��JMP UNSTACK��LSSCLTR JMP LSCRSCL��SCLDISP LDA SCRNO��BEQ SCLDG��RTS��SCLDG LDX #$01��STX COLCH��DEX	�LDA DALL�BNE SCLDBF+�SCLDAT STX YPS8�LDA #$13D�STA XPSV�JSR DISPBLOCK^INXkCPX #$0AzBNE SCLDAT�&RTS�0SCLDBF STX YPS�:LDA #$00�DSTA XPS�NJSR DISPBLOCK�XINX�bCPX #$0A�lBNE SCLDBF�vRTS
�LSCRSCL LDA #$01
�STA $FB�LDY #$00&�STY $FD3�LDA #$98?�STA $FCM�LDA SCRNOW�ASL Aa�ASL Ai�CLCu�ADC $FC��STA $FC��E� #$04��STA $FE��LDA #$01��STA DALL��JSR BSCLDISP��LDY #$00��LSLOPB LDA ($FB),Y��STA ($FD),Y�INYBNE LSLOPBINC $FC'INC $FE3 LDA $FC>*� #$03M4BNE LSLOPB[>LDX SCRNOcHINXkRTXAv\� #$01�fSTA SCRNO�pLDA #$00�zSTA DALL��JSR BSCLDISP��LDX SCRNO��INX��TXA��� #$01��STA SCRNO��JMP UNSTACK
�BSCLDISP LDA SCRNO�BEQ BSCLDG$�RTS8�BSCLDG LDX #$00F�STX COLCHS�LDA DALLc�BNE BSCLDBFr�JMP SCLDAT��BSCLDBF JMP SCLDBF�(#; INTERLACING ROUTINES�2#ILACE� SEI�<#LDA #��ERLACE�F#STA $0314�P#LDA #��ERLACE�Z#STA $0315�d#CLIn#RTSx#ILACEOFF SEI(�#LDA #�ILACEQUIT6�#STA $0314J�#LDA #�ILACEQUITX�#STA $0315e�#LDA #$64s�#STA $D018{�#CLI��#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 #$60H@$STA $D018UJ$LDA #$14cT$STA $D016r^$JMP (IRQ�)�'; 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@6S.Qcolc.b jmp unstack@kSBRinitdb lda scrno@uSDRasl a@.SFRasl a@GSHRclc@TSIRadc #$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@ET.S. #$07@ST.Ssta xsste@[T.Sclc@(T.Sadc #$10@6T.Ssta $d016@cT.Scmp #$14@sT.Sbeq lsscltr@.TTTcmp #$10@LT.Tbne rst@ZT(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@GU.Tadc #$60@TU.T.a $d018@"U.Tsta $d018@/U.Tlda #$01@;U.Tsta $fb@hU.Tldy #$00@tU.Tsty $fd@AU.Tlda #$d8@MU.Tsta $fc@YU.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@CV@Ulda $fc@PVjUcmp #$dc@.VtUbne lslop@,V.Uldx scrno@4VHUinx@<VRUtxa@gV.U. #$01@uV.Usta scrno@BV.Ulda #$00@OV.Usta dall@.V.Ujsr scldisp@.V.Ujmp unstack@.V.Ulsscltr jmp lscrscl@.V.Uscldisp lda scrno@.V.Ubeq scldg@.V.Urts@.V.Uscldg ldx #$01@.V.Ustx colch@.V.Udex@IW.Ulda dall@XW.Ubne scldbf@+W.Uscldat stx yps@8W.Ulda #$13@dW.Usta xps@vW.Ujsr dispblock@.WHVinx@KWRVcpx #$0a@ZW£Vbne scldat@.W&Vrts@.W0Vscldbf stx yps@.W:Vlda #$00@.WdVsta xps@.WnVjsr dispblock@.WxVinx@.WBVcpx #$0a@.WLVbne scldbf@.WVVrts@AX.Vlscrscl lda #$01@MX.Vsta $fb@ZX.Vldy #$00@&X.Vsty $fd@3X.Vlda #$98@?X.Vsta $fc@mX.Vlda scrno@wX.Vasl a@AX.Vasl a@IX.Vclc@UX.Vadc $fc@.X.Vsta $fc@.X.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@@Y.Viny@OYBWbne lslopb@[YLWinc $fc@'YVWinc $fe@3Y Wlda $fc@>Y*W. #$03@mY4Wbne lslopb@[Y>Wldx scrno@CYhWinx@KYrWtxa@VY£W. #$01@.YFWsta scrno@.YPWlda #$00@.YZWsta dall@.Y.Wjsr bscldisp@.Y.Wldx scrno@.Y.Winx@.Y.Wtxa@.Y.W. #$01@.Y.Wsta scrno@.Y.Wjmp unstack@MZ.Wbscldisp lda scrno@£Z.Wbeq bscldg@$Z.Wrts@8Z.Wbscldg ldx #$00@fZ.Wstx colch@sZ.Wlda dall@CZ.Wbne bscldbf@RZ.Wjmp scldat@.Z.Wbscldbf jmp scldbf@.Z(#; interlacing routines@.Z2#ilace. sei@.Z<#lda #..erlace@.Zf#sta $0314@.Zp#lda #..erlace@.Zz#sta $0315@.ZD#cli@C[N#rts@T[X#ilaceoff sei@([.#lda #.ilacequit@6[.#sta $0314@j[.#lda #.ilacequit@x[.#sta $0315@E[.#lda #$64@S[.#sta $d018@.[.#cli@.[.#rts@.[.#.erlace lda ilstate@.[.#beq inzero@.[.#lda #$00@.[.#sta ilstate@.[.#lda #$62@.[D$sta $d018@.[N$lda #$15@.[X$sta $d016@V£"$ilacequit jmp (irq.)@-£,$inzero inc ilstate@:£6$lda #$60@h£@$sta $d018@u£j$lda #$14@C£t$sta $d016@R£.$jmp (irq.)@.£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 36 13  |.STA (MEMS),Y.6.|
00000b20  f8 11 43 4f 4c 43 91 42  20 4a 4d 50 20 55 4e 53  |..COLC.B JMP UNS|
00000b30  54 41 43 4b 00 4b 13 02  12 49 4e 49 54 44 42 20  |TACK.K...INITDB |
00000b40  4c 44 41 20 53 43 52 4e  4f 00 55 13 04 12 41 53  |LDA SCRNO.U...AS|
00000b50  4c 20 41 00 5f 13 06 12  41 53 4c 20 41 00 67 13  |L A._...ASL A.g.|
00000b60  08 12 43 4c 43 00 74 13  09 12 41 44 43 20 23 24  |..CLC.t...ADC #$|
00000b70  39 38 00 83 13 0c 12 53  54 41 20 4d 45 4d 53 aa  |98.....STA MEMS.|
00000b80  31 00 90 13 16 12 4c 44  59 20 23 24 30 30 00 9d  |1.....LDY #$00..|
00000b90  13 20 12 53 54 59 20 4d  45 4d 53 00 a9 13 2a 12  |. .STY MEMS...*.|
00000ba0  52 53 54 20 52 54 53 00  c6 13 88 13 3b 20 4c 45  |RST RTS.....; LE|
00000bb0  46 54 20 53 43 52 4f 4c  4c 49 4e 47 20 52 4f 55  |FT SCROLLING ROU|
00000bc0  54 49 4e 45 00 dc 13 92  13 4c 53 43 52 4f 4c 4c  |TINE.....LSCROLL|
00000bd0  20 4a 53 52 20 53 54 41  43 4b 00 ea 13 9c 13 4c  | JSR STACK.....L|
00000be0  44 58 20 58 53 53 54 45  00 f2 13 a6 13 49 4e 58  |DX XSSTE.....INX|
00000bf0  00 fa 13 b0 13 54 58 41  00 05 14 ba 13 af 20 23  |.....TXA...... #|
00000c00  24 30 37 00 13 14 c4 13  53 54 41 20 58 53 53 54  |$07.....STA XSST|
00000c10  45 00 1b 14 ce 13 43 4c  43 00 28 14 d8 13 41 44  |E.....CLC.(...AD|
00000c20  43 20 23 24 31 30 00 36  14 e2 13 53 54 41 20 24  |C #$10.6...STA $|
00000c30  44 30 31 36 00 43 14 ec  13 43 4d 50 20 23 24 31  |D016.C...CMP #$1|
00000c40  34 00 53 14 f6 13 42 45  51 20 4c 53 53 43 4c 54  |4.S...BEQ LSSCLT|
00000c50  52 00 60 14 14 14 43 4d  50 20 23 24 31 30 00 6c  |R.`...CMP #$10.l|
00000c60  14 1e 14 42 4e 45 20 52  53 54 00 7a 14 28 14 4c  |...BNE RST.z.(.L|
00000c70  44 58 20 53 43 52 4e 4f  00 82 14 32 14 49 4e 58  |DX SCRNO...2.INX|
00000c80  00 90 14 34 14 4c 44 41  20 24 44 30 31 38 00 9b  |...4.LDA $D018..|
00000c90  14 37 14 af 20 23 24 31  35 00 a9 14 39 14 53 54  |.7.. #$15...9.ST|
00000ca0  41 20 24 44 30 31 38 00  b1 14 3c 14 54 58 41 00  |A $D018...<.TXA.|
00000cb0  bc 14 46 14 af 20 23 24  30 31 00 ca 14 50 14 53  |..F.. #$01...P.S|
00000cc0  54 41 20 53 43 52 4e 4f  00 d4 14 5a 14 41 53 4c  |TA SCRNO...Z.ASL|
00000cd0  20 41 00 de 14 64 14 41  53 4c 20 41 00 e8 14 6e  | A...d.ASL A...n|
00000ce0  14 41 53 4c 20 41 00 f2  14 78 14 41 53 4c 20 41  |.ASL A...x.ASL A|
00000cf0  00 fa 14 82 14 43 4c 43  00 07 15 8c 14 41 44 43  |.....CLC.....ADC|
00000d00  20 23 24 36 30 00 14 15  a0 14 b0 41 20 24 44 30  | #$60......A $D0|
00000d10  31 38 00 22 15 aa 14 53  54 41 20 24 44 30 31 38  |18."...STA $D018|
00000d20  00 2f 15 b4 14 4c 44 41  20 23 24 30 31 00 3b 15  |./...LDA #$01.;.|
00000d30  be 14 53 54 41 20 24 46  42 00 48 15 c8 14 4c 44  |..STA $FB.H...LD|
00000d40  59 20 23 24 30 30 00 54  15 d2 14 53 54 59 20 24  |Y #$00.T...STY $|
00000d50  46 44 00 61 15 dc 14 4c  44 41 20 23 24 44 38 00  |FD.a...LDA #$D8.|
00000d60  6d 15 e6 14 53 54 41 20  24 46 43 00 79 15 f0 14  |m...STA $FC.y...|
00000d70  53 54 41 20 24 46 45 00  86 15 f2 14 4c 44 41 20  |STA $FE.....LDA |
00000d80  23 24 30 31 00 93 15 f5  14 53 54 41 20 44 41 4c  |#$01.....STA DAL|
00000d90  4c 00 a3 15 fa 14 4a 53  52 20 53 43 4c 44 49 53  |L.....JSR SCLDIS|
00000da0  50 00 b9 15 04 15 4c 53  4c 4f 50 20 4c 44 41 20  |P.....LSLOP LDA |
00000db0  28 24 46 42 29 2c 59 00  c9 15 0e 15 53 54 41 20  |($FB),Y.....STA |
00000dc0  28 24 46 44 29 2c 59 00  d1 15 18 15 49 4e 59 00  |($FD),Y.....INY.|
00000dd0  df 15 22 15 42 4e 45 20  4c 53 4c 4f 50 00 eb 15  |..".BNE LSLOP...|
00000de0  2c 15 49 4e 43 20 24 46  43 00 f7 15 36 15 49 4e  |,.INC $FC...6.IN|
00000df0  43 20 24 46 45 00 03 16  40 15 4c 44 41 20 24 46  |C $FE...@.LDA $F|
00000e00  43 00 10 16 4a 15 43 4d  50 20 23 24 44 43 00 1e  |C...J.CMP #$DC..|
00000e10  16 54 15 42 4e 45 20 4c  53 4c 4f 50 00 2c 16 5e  |.T.BNE LSLOP.,.^|
00000e20  15 4c 44 58 20 53 43 52  4e 4f 00 34 16 68 15 49  |.LDX SCRNO.4.h.I|
00000e30  4e 58 00 3c 16 72 15 54  58 41 00 47 16 7c 15 af  |NX.<.r.TXA.G.|..|
00000e40  20 23 24 30 31 00 55 16  86 15 53 54 41 20 53 43  | #$01.U...STA SC|
00000e50  52 4e 4f 00 62 16 88 15  4c 44 41 20 23 24 30 30  |RNO.b...LDA #$00|
00000e60  00 6f 16 8b 15 53 54 41  20 44 41 4c 4c 00 7f 16  |.o...STA DALL...|
00000e70  90 15 4a 53 52 20 53 43  4c 44 49 53 50 00 8f 16  |..JSR SCLDISP...|
00000e80  9a 15 4a 4d 50 20 55 4e  53 54 41 43 4b 00 a7 16  |..JMP UNSTACK...|
00000e90  9f 15 4c 53 53 43 4c 54  52 20 4a 4d 50 20 4c 53  |..LSSCLTR JMP LS|
00000ea0  43 52 53 43 4c 00 bd 16  a4 15 53 43 4c 44 49 53  |CRSCL.....SCLDIS|
00000eb0  50 20 4c 44 41 20 53 43  52 4e 4f 00 cb 16 ae 15  |P LDA SCRNO.....|
00000ec0  42 45 51 20 53 43 4c 44  47 00 d3 16 b8 15 52 54  |BEQ SCLDG.....RT|
00000ed0  53 00 e6 16 bb 15 53 43  4c 44 47 20 4c 44 58 20  |S.....SCLDG LDX |
00000ee0  23 24 30 31 00 f4 16 be  15 53 54 58 20 43 4f 4c  |#$01.....STX COL|
00000ef0  43 48 00 fc 16 c2 15 44  45 58 00 09 17 cc 15 4c  |CH.....DEX.....L|
00000f00  44 41 20 44 41 4c 4c 00  18 17 d6 15 42 4e 45 20  |DA DALL.....BNE |
00000f10  53 43 4c 44 42 46 00 2b  17 e0 15 53 43 4c 44 41  |SCLDBF.+...SCLDA|
00000f20  54 20 53 54 58 20 59 50  53 00 38 17 ea 15 4c 44  |T STX YPS.8...LD|
00000f30  41 20 23 24 31 33 00 44  17 f4 15 53 54 41 20 58  |A #$13.D...STA X|
00000f40  50 53 00 56 17 fe 15 4a  53 52 20 44 49 53 50 42  |PS.V...JSR DISPB|
00000f50  4c 4f 43 4b 00 5e 17 08  16 49 4e 58 00 6b 17 12  |LOCK.^...INX.k..|
00000f60  16 43 50 58 20 23 24 30  41 00 7a 17 1c 16 42 4e  |.CPX #$0A.z...BN|
00000f70  45 20 53 43 4c 44 41 54  00 82 17 26 16 52 54 53  |E SCLDAT...&.RTS|
00000f80  00 95 17 30 16 53 43 4c  44 42 46 20 53 54 58 20  |...0.SCLDBF STX |
00000f90  59 50 53 00 a2 17 3a 16  4c 44 41 20 23 24 30 30  |YPS...:.LDA #$00|
00000fa0  00 ae 17 44 16 53 54 41  20 58 50 53 00 c0 17 4e  |...D.STA XPS...N|
00000fb0  16 4a 53 52 20 44 49 53  50 42 4c 4f 43 4b 00 c8  |.JSR DISPBLOCK..|
00000fc0  17 58 16 49 4e 58 00 d5  17 62 16 43 50 58 20 23  |.X.INX...b.CPX #|
00000fd0  24 30 41 00 e4 17 6c 16  42 4e 45 20 53 43 4c 44  |$0A...l.BNE SCLD|
00000fe0  42 46 00 ec 17 76 16 52  54 53 00 01 18 80 16 4c  |BF...v.RTS.....L|
00000ff0  53 43 52 53 43 4c 20 4c  44 41 20 23 24 30 31 00  |SCRSCL LDA #$01.|
00001000  0d 18 8a 16 53 54 41 20  24 46 42 00 1a 18 94 16  |....STA $FB.....|
00001010  4c 44 59 20 23 24 30 30  00 26 18 9e 16 53 54 59  |LDY #$00.&...STY|
00001020  20 24 46 44 00 33 18 a8  16 4c 44 41 20 23 24 39  | $FD.3...LDA #$9|
00001030  38 00 3f 18 aa 16 53 54  41 20 24 46 43 00 4d 18  |8.?...STA $FC.M.|
00001040  ac 16 4c 44 41 20 53 43  52 4e 4f 00 57 18 ae 16  |..LDA SCRNO.W...|
00001050  41 53 4c 20 41 00 61 18  b0 16 41 53 4c 20 41 00  |ASL A.a...ASL A.|
00001060  69 18 b2 16 43 4c 43 00  75 18 b4 16 41 44 43 20  |i...CLC.u...ADC |
00001070  24 46 43 00 81 18 b6 16  53 54 41 20 24 46 43 00  |$FC.....STA $FC.|
00001080  8d 18 b8 16 45 b0 20 23  24 30 34 00 99 18 ba 16  |....E. #$04.....|
00001090  53 54 41 20 24 46 45 00  a6 18 c6 16 4c 44 41 20  |STA $FE.....LDA |
000010a0  23 24 30 31 00 b3 18 d0  16 53 54 41 20 44 41 4c  |#$01.....STA DAL|
000010b0  4c 00 c4 18 da 16 4a 53  52 20 42 53 43 4c 44 49  |L.....JSR BSCLDI|
000010c0  53 50 00 d1 18 df 16 4c  44 59 20 23 24 30 30 00  |SP.....LDY #$00.|
000010d0  e8 18 e4 16 4c 53 4c 4f  50 42 20 4c 44 41 20 28  |....LSLOPB LDA (|
000010e0  24 46 42 29 2c 59 00 f8  18 ee 16 53 54 41 20 28  |$FB),Y.....STA (|
000010f0  24 46 44 29 2c 59 00 00  19 f8 16 49 4e 59 00 0f  |$FD),Y.....INY..|
00001100  19 02 17 42 4e 45 20 4c  53 4c 4f 50 42 00 1b 19  |...BNE LSLOPB...|
00001110  0c 17 49 4e 43 20 24 46  43 00 27 19 16 17 49 4e  |..INC $FC.'...IN|
00001120  43 20 24 46 45 00 33 19  20 17 4c 44 41 20 24 46  |C $FE.3. .LDA $F|
00001130  43 00 3e 19 2a 17 af 20  23 24 30 33 00 4d 19 34  |C.>.*.. #$03.M.4|
00001140  17 42 4e 45 20 4c 53 4c  4f 50 42 00 5b 19 3e 17  |.BNE LSLOPB.[.>.|
00001150  4c 44 58 20 53 43 52 4e  4f 00 63 19 48 17 49 4e  |LDX SCRNO.c.H.IN|
00001160  58 00 6b 19 52 17 54 58  41 00 76 19 5c 17 af 20  |X.k.R.TXA.v.\.. |
00001170  23 24 30 31 00 84 19 66  17 53 54 41 20 53 43 52  |#$01...f.STA SCR|
00001180  4e 4f 00 91 19 70 17 4c  44 41 20 23 24 30 30 00  |NO...p.LDA #$00.|
00001190  9e 19 7a 17 53 54 41 20  44 41 4c 4c 00 af 19 84  |..z.STA DALL....|
000011a0  17 4a 53 52 20 42 53 43  4c 44 49 53 50 00 bd 19  |.JSR BSCLDISP...|
000011b0  86 17 4c 44 58 20 53 43  52 4e 4f 00 c5 19 88 17  |..LDX SCRNO.....|
000011c0  49 4e 58 00 cd 19 89 17  54 58 41 00 d8 19 8a 17  |INX.....TXA.....|
000011d0  af 20 23 24 30 31 00 e6  19 8c 17 53 54 41 20 53  |. #$01.....STA S|
000011e0  43 52 4e 4f 00 f6 19 8e  17 4a 4d 50 20 55 4e 53  |CRNO.....JMP UNS|
000011f0  54 41 43 4b 00 0d 1a 98  17 42 53 43 4c 44 49 53  |TACK.....BSCLDIS|
00001200  50 20 4c 44 41 20 53 43  52 4e 4f 00 1c 1a a2 17  |P LDA SCRNO.....|
00001210  42 45 51 20 42 53 43 4c  44 47 00 24 1a ac 17 52  |BEQ BSCLDG.$...R|
00001220  54 53 00 38 1a b6 17 42  53 43 4c 44 47 20 4c 44  |TS.8...BSCLDG LD|
00001230  58 20 23 24 30 30 00 46  1a c0 17 53 54 58 20 43  |X #$00.F...STX C|
00001240  4f 4c 43 48 00 53 1a d4  17 4c 44 41 20 44 41 4c  |OLCH.S...LDA DAL|
00001250  4c 00 63 1a de 17 42 4e  45 20 42 53 43 4c 44 42  |L.c...BNE BSCLDB|
00001260  46 00 72 1a e8 17 4a 4d  50 20 53 43 4c 44 41 54  |F.r...JMP SCLDAT|
00001270  00 89 1a f2 17 42 53 43  4c 44 42 46 20 4a 4d 50  |.....BSCLDBF JMP|
00001280  20 53 43 4c 44 42 46 00  a4 1a 28 23 3b 20 49 4e  | SCLDBF...(#; IN|
00001290  54 45 52 4c 41 43 49 4e  47 20 52 4f 55 54 49 4e  |TERLACING ROUTIN|
000012a0  45 53 00 b3 1a 32 23 49  4c 41 43 45 91 20 53 45  |ES...2#ILACE. SE|
000012b0  49 00 c5 1a 3c 23 4c 44  41 20 23 b3 b5 45 52 4c  |I...<#LDA #..ERL|
000012c0  41 43 45 00 d3 1a 46 23  53 54 41 20 24 30 33 31  |ACE...F#STA $031|
000012d0  34 00 e5 1a 50 23 4c 44  41 20 23 b1 b5 45 52 4c  |4...P#LDA #..ERL|
000012e0  41 43 45 00 f3 1a 5a 23  53 54 41 20 24 30 33 31  |ACE...Z#STA $031|
000012f0  35 00 fb 1a 64 23 43 4c  49 00 03 1b 6e 23 52 54  |5...d#CLI...n#RT|
00001300  53 00 14 1b 78 23 49 4c  41 43 45 4f 46 46 20 53  |S...x#ILACEOFF S|
00001310  45 49 00 28 1b 82 23 4c  44 41 20 23 b3 49 4c 41  |EI.(..#LDA #.ILA|
00001320  43 45 51 55 49 54 00 36  1b 8c 23 53 54 41 20 24  |CEQUIT.6..#STA $|
00001330  30 33 31 34 00 4a 1b 96  23 4c 44 41 20 23 b1 49  |0314.J..#LDA #.I|
00001340  4c 41 43 45 51 55 49 54  00 58 1b a0 23 53 54 41  |LACEQUIT.X..#STA|
00001350  20 24 30 33 31 35 00 65  1b aa 23 4c 44 41 20 23  | $0315.e..#LDA #|
00001360  24 36 34 00 73 1b b4 23  53 54 41 20 24 44 30 31  |$64.s..#STA $D01|
00001370  38 00 7b 1b be 23 43 4c  49 00 83 1b c8 23 52 54  |8.{..#CLI....#RT|
00001380  53 00 9b 1b d2 23 b5 45  52 4c 41 43 45 20 4c 44  |S....#.ERLACE LD|
00001390  41 20 49 4c 53 54 41 54  45 00 aa 1b dc 23 42 45  |A ILSTATE....#BE|
000013a0  51 20 49 4e 5a 45 52 4f  00 b7 1b e6 23 4c 44 41  |Q INZERO....#LDA|
000013b0  20 23 24 30 30 00 c7 1b  f0 23 53 54 41 20 49 4c  | #$00....#STA IL|
000013c0  53 54 41 54 45 00 d4 1b  fa 23 4c 44 41 20 23 24  |STATE....#LDA #$|
000013d0  36 32 00 e2 1b 04 24 53  54 41 20 24 44 30 31 38  |62....$STA $D018|
000013e0  00 ef 1b 0e 24 4c 44 41  20 23 24 31 35 00 fd 1b  |....$LDA #$15...|
000013f0  18 24 53 54 41 20 24 44  30 31 36 00 16 1c 22 24  |.$STA $D016..."$|
00001400  49 4c 41 43 45 51 55 49  54 20 4a 4d 50 20 28 49  |ILACEQUIT JMP (I|
00001410  52 51 9a 29 00 2d 1c 2c  24 49 4e 5a 45 52 4f 20  |RQ.).-.,$INZERO |
00001420  49 4e 43 20 49 4c 53 54  41 54 45 00 3a 1c 36 24  |INC ILSTATE.:.6$|
00001430  4c 44 41 20 23 24 36 30  00 48 1c 40 24 53 54 41  |LDA #$60.H.@$STA|
00001440  20 24 44 30 31 38 00 55  1c 4a 24 4c 44 41 20 23  | $D018.U.J$LDA #|
00001450  24 31 34 00 63 1c 54 24  53 54 41 20 24 44 30 31  |$14.c.T$STA $D01|
00001460  36 00 72 1c 5e 24 4a 4d  50 20 28 49 52 51 9a 29  |6.r.^$JMP (IRQ.)|
00001470  00 86 1c 10 27 3b 20 54  45 4d 50 20 52 4f 55 54  |....'; TEMP ROUT|
00001480  49 4e 45 53 00 96 1c 11  27 45 46 46 45 43 54 53  |INES....'EFFECTS|
00001490  20 4e 4f 50 00 a8 1c 12  27 46 55 4c 4c 53 44 49  | NOP....'FULLSDI|
000014a0  53 50 20 4e 4f 50 00 b4  1c 13 27 59 4f 55 20 4e  |SP NOP....'YOU N|
000014b0  4f 50 00 c4 1c 14 27 4d  91 53 54 45 52 53 20 4e  |OP....'M.STERS N|
000014c0  4f 50 00 d2 1c 15 27 50  41 4e 45 4c 20 4e 4f 50  |OP....'PANEL NOP|
000014d0  00 df 1c 16 27 47 41 4d  80 20 4e 4f 50 00 00 00  |....'GAM. NOP...|
000014e0