; ???? MAIN PROGRAM/; BY DOMINIC FORDD; DECEMBER '94 -P(��$C000`�; VARIABLESo�DEAD�$CF40�CLOCK�$CF41��EFDAT�$CF42�N��$CF43�MHI�$3F�VDAT�$BC01�$�=$CF45�.XP�$CF44�8YP�$CF47�BMEMS�$41�LMEMR�$22	VBT�$CF48	`XPS�$CF49 	jYPS�$CF4A/	tBTFB�$CF4B>	~XPTL�$CF4CM	�YPTL�$CF4D]	�XSSTE�$CF4Em	�YSSTE�$CF4F|	�MTAB�$CF50�	�STPAGE�$CF51�	�AS�RE�$CF52�	�XS�RE�$CF53�	�YS�RE�$CF54�	�; MUSIC ROUTINES�	�MUS� SEI�	�LDA #�M�PLAY�	�STA $0314
�LDA #�M�PLAY
�STA $0315'
LDA �5
STA MHI�1A
LDA �+1M
 STA MHIZ
*LDA #$00e
4STA N�q
>JSR �UPy
HCLI�
RRTS�
\MUSOFF SEI�
fLDA #$31�
pSTA $0314�
zLDA #$EA�
�STA $0315�
�CLI�
�RTS�
�M�PLAY JSR STACK�
�LDA N��BEQ ��JMP $EA31�� LDY #$00-�LDA (MHI),Y8�� #$01D�BEQ �MAQ�LDA #$07]��MA TAXm	LDA (MHI),Yw	LSR A�	STA N��$	CMP #$06�.	BNE MR��8	LDA VDAT,X�B	STA $D404,X�L	TAY�V	INY�`	TYA�j	STA $D404,X�t	JSR DESTACK~	JMP $EA31�	STACK STA AS�RE"�	STX XS�RE0�	STY YS�RE8�	RTSP�	DESTACK JSR EFFECTSf�	UNSTACK LDA AS�REt�	LDA XS�RE��	LDA YS�RE�
RTS�

MR� INY�
LDA (MHI),Y�
STA $D400,X�(
INY�2
LDA (MHI),Y�<
STA $D401,X�F
JSR DESTACK�P
JMP $EA31

Z
�UP LDX VDAT
d
INX#
n
STX $D4042
x
LDX VDAT�7:
�
INXH
�
STX $D40BP
�
RTSa
�
EFFECTS� SEIr
�
LDA #�EFF�LY�
�
STA $0314�
�
LDA #�EFF�LY�
�
STA $0315�
�
CLI�
�
RTS�
�
EFF�LY JSR STACK�
�
JSR DESTACK�
�
JMP $EA31�
�; MAIN GAME LOOP	�MAIN LDA #$00�STA DEAD$�STA EFDAT1�JSR MUS�C�JSR FULLSDISPO�LDA $A2W�CLCe�ADC CLOCKsSTA CLOCK�MAINLOP JSR YOU�JSR M�STERS�&JSR PANEL�0LDA DEAD�:BNE GAMEOVER�DLDA CLOCK�NTRLOP CMP $A2�XBCC TRLOP�bCLClADC #$03vSTA CLOCK$�JMP MAINLOP:�GAMEOVER JSR GAM�Q�; GRAPHIC ROUTINESj�DISPBLOCK JSR INITDBx�JSR STACK��LDX YPS��YPLOPD CPX #$00��BEQ YPDCNT��DEX��LDA MEMS��CLC��ADC #$50��STA MEMS��BCC YPLOPD�INC MEMS�1JMP YPLOPDYPDCNT LDA XPS("ASL A0,CLC=6ADC MEMSJ@STA MEMSXJBCC XPCNTgTINC MEMS�1x^XPCNT LDA YP�hLSR A�r;LSR A�|CLC��ADC #$0C��STA MEMR�1��LDA YP��� #$03��LSR A��R� A��;ROR A��STA MEMR��LDA XP�LSR A�LSR A�CLC&�ADC MEMR3STA MEMRDLDA (MEMR),YOSTA BTZ&LDA XPe0� #$03m:TAXxDLDA YP�NLSR A�XCLC�bADC #$34�lSTA MEMR�1�vLDA YP��� #$01��LSR A��R� A��STA MEMR��LDA XP��LSR A��CLC�ADC MEMR�STA MEMR$�LDA (MEMR),Y1�STA BTFB9�TXAD�� #$01RBNE FBN�T_LDA #$0FnJMP FBNROT� FBN�T LDA #$F0�!� BTFB�"LSR A�#LSR A�$LSR A�%LSR A�&JMP FBNR��4FBNROT � BTFB�>FBNR� STA BTFB�HLDA BTRDTBL CPX #$00\BEQ DTBL�fLSR A&pLSR A.zDEX;�JMP DTBLL�DTBL� � #$03V�ASL A`�ASL Aj�ASL At�ASL A|�CLC��ADC BTFB��STA BT��ASL A��ASL A��;CLC��;ADC #$40�STA (MEMS),Y�CLC�ADC #$01�INY�$STA (MEMS),Y.CLCLADC #$1F VLDY #$281`STA (MEMS),Y9eCLCFjADC #$01NtINY_~STA (MEMS),Yn�LDA MEMS�1v�CLC��ADC #$54��STA MEMS�1��LDY #$00��LDA BT��STA (MEMS),Y��INY��STA (MEMS),Y��LDY #$28��STA (MEMS),Y��INYSTA (MEMS),YJMP UNSTACK/2INITDB LDA #$04><STA MEMS�1KFLDY #$00XPSTY MEMSeZLDA XPTLmdCLCynADC XPS�xSTA XP��LDA YPTL��CLC��ADC YPS��STA YP��RTS�p; SCROLLER ROUTINES�uDOWNMEM LDY MTAB�zLDA ($FD),Y�LDY #$00�STA ($FD),Y�INC $FD*�LDA $FD:�BNE DOWNMEMF�INC $FER�LDA $FEa�CMP STPAGEq�BNE DOWNMEMy�RTS��UPMEM LDA $FE��PHA��LDA STPAGE�STA $FE�LDY #$00�LDA ($FD),Y�$LDY MTAB�.STA (�

YHJ@; ???? main program@/HT@; by dominic ford@dH.@; december '94 -@pH(@..$c000@.H.C; variables@OH.Cdead.$cf40@.H.Cclock.$cf41@.H.Cefdat.$cf42@.HFDn..$cf43@.HPDmhi.$3f@.HZDvdat.$bc01@.H$D.=$cf45@.H.Dxp.$cf44@.H8Dyp.$cf47@.HbDmems.$41@.HlDmemr.$22@DIvDbt.$cf48@RI.Dxps.$cf49@ IJDyps.$cf4a@/ITDbtfb.$cf4b@>I.Dxptl.$cf4c@mI.Dyptl.$cf4d@]I.Dxsste.$cf4e@MI.Dysste.$cf4f@.I.Dmtab.$cf50@.I.Dstpage.$cf51@.I.Das.re.$cf52@.I.Dxs.re.$cf53@.I.Dys.re.$cf54@.I.G; music routines@.I.Gmus. sei@.I.Glda #.m.play@.I.Gsta $0314@OJ.Glda #.m.play@]J.Gsta $0315@'JBHlda .@5JLHsta mhi.1@aJVHlda .+1@mJ Hsta mhi@zJ*Hlda #$00@EJ4Hsta n.@QJ>Hjsr .up@YJhHcli@.JrHrts@.J£Hmusoff sei@.JFHlda #$31@.JPHsta $0314@.JZHlda #$ea@.J.Hsta $0315@.J.Hcli@.J.Hrts@.J.Hm.play jsr stack@.J.Hlda n.@@K.Hbeq .@NK.Hjmp $ea31@]K.H. ldy #$00@-K.Hlda (mhi),y@8K.H. #$01@dK.Hbeq .ma@qK.Hlda #$07@]K.H.ma tax@MKFIlda (mhi),y@WKPIlsr a@.KZIsta n.@.K$Icmp #$06@.K.Ibne mr.@.K8Ilda vdat,x@.KbIsta $d404,x@.KlItay@.KvIiny@.K.Itya@.KJIsta $d404,x@.KTIjsr destack@@L.Ijmp $ea31@TL.Istack sta as.re@"L.Istx xs.re@0L.Isty ys.re@8L.Irts@pL.Idestack jsr effects@FL.Iunstack lda as.re@TL.Ilda xs.re@.L.Ilda ys.re@.L@Jrts@.LJJmr. iny@.LTJlda (mhi),y@.L.Jsta $d400,x@.L(Jiny@.L2Jlda (mhi),y@.L<Jsta $d401,x@.LfJjsr destack@.LpJjmp $ea31@MMzJ.up ldx vdat@UMDJinx@#MNJstx $d404@2MXJldx vdat.7@:M.Jinx@hM.Jstx $d40b@pM.Jrts@AM.Jeffects. sei@RM.Jlda #.eff.ly@.M.Jsta $0314@.M.Jlda #.eff.ly@.M.Jsta $0315@.M.Jcli@.M.Jrts@.M.Jeff.ly jsr stack@.M.Jjsr destack@.M.Jjmp $ea31@.M.K; main game loop@IN.Kmain lda #$00@VN.Ksta dead@$N.Ksta efdat@1N.Kjsr mus.@cN.Kjsr fullsdisp@oN.Klda $a2@wN.Kclc@EN.Kadc clock@SNHLsta clock@.NRLmainlop jsr you@.N£Ljsr m.sters@.N&Ljsr panel@.N0Llda dead@.N:Lbne gameover@.NdLlda clock@.NnLtrlop cmp $a2@.NxLbcc trlop@.NBLclc@FOLLadc #$03@TOVLsta clock@$O.Ljmp mainlop@:O.Lgameover jsr gam.@qO.O; graphic routines@JO.Odispblock jsr initdb@XO.Ojsr stack@.O.Oldx yps@.O.Oyplopd cpx #$00@.O.Obeq ypdcnt@.O.Odex@.O.Olda mems@.O.Oclc@.O.Oadc #$50@.O.Osta mems@.O.Obcc yplopd@.ODPinc mems.1@KPNPjmp yplopd@.PXPypdcnt lda xps@(P"Pasl a@0P,Pclc@=P6Padc mems@jP@Psta mems@xPjPbcc xpcnt@GPtPinc mems.1@XP.Pxpcnt lda yp@.PHPlsr a@.PRP;lsr a@.P.Pclc@.P.Padc #$0c@.P.Psta memr.1@.P.Plda yp@.P.P. #$03@.P.Plsr a@.P.Pr. a@.P.P;ror a@.P.Psta memr@.P.Plda xp@GQ.Plsr a@QQ.Plsr a@YQ.Pclc@&Q.Padc memr@3QHQsta memr@dQRQlda (memr),y@oQ£Qsta bt@zQ&Qlda xp@EQ0Q. #$03@MQ:Qtax@XQdQlda yp@.QnQlsr a@.QxQclc@.QBQadc #$34@.QLQsta memr.1@.QVQlda yp@.Q.Q. #$01@.Q.Qlsr a@.Q.Qr. a@.Q.Qsta memr@.Q.Qlda xp@.Q.Qlsr a@.Q.Qclc@FR.Qadc memr@SR.Qsta memr@$R.Qlda (memr),y@1R.Qsta btfb@9R.Qtxa@dR.Q. #$01@rRBRbne fbn.t@.RLRlda #$0f@NRVRjmp fbnrot@.R Rfbn.t lda #$f0@.R!R. btfb@.R"Rlsr a@.R#Rlsr a@.R$Rlsr a@.R%Rlsr a@.R&Rjmp fbnr.@.R4Rfbnrot . btfb@.R>Rfbnr. sta btfb@.RhRlda bt@DSrRdtbl cpx #$00@RS£Rbeq dtbl.@£SFRlsr a@&SPRlsr a@.SZRdex@;S.Rjmp dtbl@lS.Rdtbl. . #$03@vS.Rasl a@.S.Rasl a@JS.Rasl a@TS.Rasl a@.S.Rclc@.S.Radc btfb@.S.Rsta bt@.S.Rasl a@.S.Rasl a@.S.R;clc@.S.R;adc #$40@.SFSsta (mems),y@.SKSclc@.SPSadc #$01@.SZSiny@.S$Ssta (mems),y@FT.Sclc@STlSadc #$1f@ TvSldy #$28@1T.Ssta (mems),y@9TESclc@fTJSadc #$01@nTTSiny@.T.Ssta (mems),y@NT.Slda mems.1@VT.Sclc@.T.Sadc #$54@.T.Ssta mems.1@.T.Sldy #$00@.T.Slda bt@.T.Ssta (mems),y@.T.Siny@.T.Ssta (mems),y@.T.Sldy #$28@.T.Ssta (mems),y@.T.Siny@KU@Tsta (mems),y@[U.Tjmp unstack@/U2Tinitdb lda #$04@>U<Tsta mems.1@kUfTldy #$00@xUpTsty mems@EUzTlda xptl@MUDTclc@YUNTadc xps@.UXTsta xp@.U.Tlda yptl@.U.Tclc@.U.Tadc yps@.U.Tsta yp@.U.Trts@.UPW; scroller routines@.UUWdownmem ldy mtab@.UZWlda ($fd),y@BV.Wldy #$00@RV.Wsta ($fd),y@.V.Winc $fd@*V.Wlda $fd@:V.Wbne downmem@fV.Winc $fe@rV.Wlda $fe@AV.Wcmp stpage@QV.Wbne downmem@YV.Wrts@.V.Wupmem lda $fe@.V.Wpha@.V.Wlda stpage@.VFXsta $fe@.VPXldy #$00@.VZXlda ($fd),y@.V$Xldy mtab@.V.Xsta (.

00000000  19 08 0a 00 3b 20 3f 3f  3f 3f 20 4d 41 49 4e 20  |....; ???? MAIN |
00000010  50 52 4f 47 52 41 4d 00  2f 08 14 00 3b 20 42 59  |PROGRAM./...; BY|
00000020  20 44 4f 4d 49 4e 49 43  20 46 4f 52 44 00 44 08  | DOMINIC FORD.D.|
00000030  1e 00 3b 20 44 45 43 45  4d 42 45 52 20 27 39 34  |..; DECEMBER '94|
00000040  20 2d 00 50 08 28 00 ac  b2 24 43 30 30 30 00 60  | -.P.(...$C000.`|
00000050  08 e8 03 3b 20 56 41 52  49 41 42 4c 45 53 00 6f  |...; VARIABLES.o|
00000060  08 ed 03 44 45 41 44 b2  24 43 46 34 30 00 7f 08  |...DEAD.$CF40...|
00000070  f2 03 43 4c 4f 43 4b b2  24 43 46 34 31 00 8f 08  |..CLOCK.$CF41...|
00000080  fc 03 45 46 44 41 54 b2  24 43 46 34 32 00 9c 08  |..EFDAT.$CF42...|
00000090  06 04 4e 92 b2 24 43 46  34 33 00 a8 08 10 04 4d  |..N..$CF43.....M|
000000a0  48 49 b2 24 33 46 00 b7  08 1a 04 56 44 41 54 b2  |HI.$3F.....VDAT.|
000000b0  24 42 43 30 31 00 c3 08  24 04 83 3d 24 43 46 34  |$BC01...$..=$CF4|
000000c0  35 00 d0 08 2e 04 58 50  b2 24 43 46 34 34 00 dd  |5.....XP.$CF44..|
000000d0  08 38 04 59 50 b2 24 43  46 34 37 00 ea 08 42 04  |.8.YP.$CF47...B.|
000000e0  4d 45 4d 53 b2 24 34 31  00 f7 08 4c 04 4d 45 4d  |MEMS.$41...L.MEM|
000000f0  52 b2 24 32 32 00 04 09  56 04 42 54 b2 24 43 46  |R.$22...V.BT.$CF|
00000100  34 38 00 12 09 60 04 58  50 53 b2 24 43 46 34 39  |48...`.XPS.$CF49|
00000110  00 20 09 6a 04 59 50 53  b2 24 43 46 34 41 00 2f  |. .j.YPS.$CF4A./|
00000120  09 74 04 42 54 46 42 b2  24 43 46 34 42 00 3e 09  |.t.BTFB.$CF4B.>.|
00000130  7e 04 58 50 54 4c b2 24  43 46 34 43 00 4d 09 88  |~.XPTL.$CF4C.M..|
00000140  04 59 50 54 4c b2 24 43  46 34 44 00 5d 09 92 04  |.YPTL.$CF4D.]...|
00000150  58 53 53 54 45 b2 24 43  46 34 45 00 6d 09 9c 04  |XSSTE.$CF4E.m...|
00000160  59 53 53 54 45 b2 24 43  46 34 46 00 7c 09 a6 04  |YSSTE.$CF4F.|...|
00000170  4d 54 41 42 b2 24 43 46  35 30 00 8d 09 b0 04 53  |MTAB.$CF50.....S|
00000180  54 50 41 47 45 b2 24 43  46 35 31 00 9d 09 ba 04  |TPAGE.$CF51.....|
00000190  41 53 a4 52 45 b2 24 43  46 35 32 00 ad 09 c4 04  |AS.RE.$CF52.....|
000001a0  58 53 a4 52 45 b2 24 43  46 35 33 00 bd 09 ce 04  |XS.RE.$CF53.....|
000001b0  59 53 a4 52 45 b2 24 43  46 35 34 00 d2 09 d0 07  |YS.RE.$CF54.....|
000001c0  3b 20 4d 55 53 49 43 20  52 4f 55 54 49 4e 45 53  |; MUSIC ROUTINES|
000001d0  00 df 09 d5 07 4d 55 53  91 20 53 45 49 00 f0 09  |.....MUS. SEI...|
000001e0  da 07 4c 44 41 20 23 b3  4d 83 50 4c 41 59 00 fe  |..LDA #.M.PLAY..|
000001f0  09 e4 07 53 54 41 20 24  30 33 31 34 00 0f 0a ee  |...STA $0314....|
00000200  07 4c 44 41 20 23 b1 4d  83 50 4c 41 59 00 1d 0a  |.LDA #.M.PLAY...|
00000210  f8 07 53 54 41 20 24 30  33 31 35 00 27 0a 02 08  |..STA $0315.'...|
00000220  4c 44 41 20 83 00 35 0a  0c 08 53 54 41 20 4d 48  |LDA ..5...STA MH|
00000230  49 aa 31 00 41 0a 16 08  4c 44 41 20 83 2b 31 00  |I.1.A...LDA .+1.|
00000240  4d 0a 20 08 53 54 41 20  4d 48 49 00 5a 0a 2a 08  |M. .STA MHI.Z.*.|
00000250  4c 44 41 20 23 24 30 30  00 65 0a 34 08 53 54 41  |LDA #$00.e.4.STA|
00000260  20 4e 92 00 71 0a 3e 08  4a 53 52 20 e8 55 50 00  | N..q.>.JSR .UP.|
00000270  79 0a 48 08 43 4c 49 00  81 0a 52 08 52 54 53 00  |y.H.CLI...R.RTS.|
00000280  90 0a 5c 08 4d 55 53 4f  46 46 20 53 45 49 00 9d  |..\.MUSOFF SEI..|
00000290  0a 66 08 4c 44 41 20 23  24 33 31 00 ab 0a 70 08  |.f.LDA #$31...p.|
000002a0  53 54 41 20 24 30 33 31  34 00 b8 0a 7a 08 4c 44  |STA $0314...z.LD|
000002b0  41 20 23 24 45 41 00 c6  0a 84 08 53 54 41 20 24  |A #$EA.....STA $|
000002c0  30 33 31 35 00 ce 0a 8e  08 43 4c 49 00 d6 0a 98  |0315.....CLI....|
000002d0  08 52 54 53 00 eb 0a a2  08 4d 83 50 4c 41 59 20  |.RTS.....M.PLAY |
000002e0  4a 53 52 20 53 54 41 43  4b 00 f6 0a ac 08 4c 44  |JSR STACK.....LD|
000002f0  41 20 4e 92 00 00 0b b6  08 42 45 51 20 87 00 0e  |A N......BEQ ...|
00000300  0b c0 08 4a 4d 50 20 24  45 41 33 31 00 1d 0b ca  |...JMP $EA31....|
00000310  08 87 20 4c 44 59 20 23  24 30 30 00 2d 0b d4 08  |.. LDY #$00.-...|
00000320  4c 44 41 20 28 4d 48 49  29 2c 59 00 38 0b de 08  |LDA (MHI),Y.8...|
00000330  af 20 23 24 30 31 00 44  0b e8 08 42 45 51 20 9a  |. #$01.D...BEQ .|
00000340  4d 41 00 51 0b f2 08 4c  44 41 20 23 24 30 37 00  |MA.Q...LDA #$07.|
00000350  5d 0b fc 08 9a 4d 41 20  54 41 58 00 6d 0b 06 09  |]....MA TAX.m...|
00000360  4c 44 41 20 28 4d 48 49  29 2c 59 00 77 0b 10 09  |LDA (MHI),Y.w...|
00000370  4c 53 52 20 41 00 82 0b  1a 09 53 54 41 20 4e 92  |LSR A.....STA N.|
00000380  00 8f 0b 24 09 43 4d 50  20 23 24 30 36 00 9b 0b  |...$.CMP #$06...|
00000390  2e 09 42 4e 45 20 4d 52  9a 00 aa 0b 38 09 4c 44  |..BNE MR....8.LD|
000003a0  41 20 56 44 41 54 2c 58  00 ba 0b 42 09 53 54 41  |A VDAT,X...B.STA|
000003b0  20 24 44 34 30 34 2c 58  00 c2 0b 4c 09 54 41 59  | $D404,X...L.TAY|
000003c0  00 ca 0b 56 09 49 4e 59  00 d2 0b 60 09 54 59 41  |...V.INY...`.TYA|
000003d0  00 e2 0b 6a 09 53 54 41  20 24 44 34 30 34 2c 58  |...j.STA $D404,X|
000003e0  00 f2 0b 74 09 4a 53 52  20 44 45 53 54 41 43 4b  |...t.JSR DESTACK|
000003f0  00 00 0c 7e 09 4a 4d 50  20 24 45 41 33 31 00 14  |...~.JMP $EA31..|
00000400  0c 88 09 53 54 41 43 4b  20 53 54 41 20 41 53 a4  |...STACK STA AS.|
00000410  52 45 00 22 0c 92 09 53  54 58 20 58 53 a4 52 45  |RE."...STX XS.RE|
00000420  00 30 0c 9c 09 53 54 59  20 59 53 a4 52 45 00 38  |.0...STY YS.RE.8|
00000430  0c ba 09 52 54 53 00 50  0c c4 09 44 45 53 54 41  |...RTS.P...DESTA|
00000440  43 4b 20 4a 53 52 20 45  46 46 45 43 54 53 00 66  |CK JSR EFFECTS.f|
00000450  0c ce 09 55 4e 53 54 41  43 4b 20 4c 44 41 20 41  |...UNSTACK LDA A|
00000460  53 a4 52 45 00 74 0c d8  09 4c 44 41 20 58 53 a4  |S.RE.t...LDA XS.|
00000470  52 45 00 82 0c e2 09 4c  44 41 20 59 53 a4 52 45  |RE.....LDA YS.RE|
00000480  00 8a 0c 00 0a 52 54 53  00 96 0c 0a 0a 4d 52 9a  |.....RTS.....MR.|
00000490  20 49 4e 59 00 a6 0c 14  0a 4c 44 41 20 28 4d 48  | INY.....LDA (MH|
000004a0  49 29 2c 59 00 b6 0c 1e  0a 53 54 41 20 24 44 34  |I),Y.....STA $D4|
000004b0  30 30 2c 58 00 be 0c 28  0a 49 4e 59 00 ce 0c 32  |00,X...(.INY...2|
000004c0  0a 4c 44 41 20 28 4d 48  49 29 2c 59 00 de 0c 3c  |.LDA (MHI),Y...<|
000004d0  0a 53 54 41 20 24 44 34  30 31 2c 58 00 ee 0c 46  |.STA $D401,X...F|
000004e0  0a 4a 53 52 20 44 45 53  54 41 43 4b 00 fc 0c 50  |.JSR DESTACK...P|
000004f0  0a 4a 4d 50 20 24 45 41  33 31 00 0d 0d 5a 0a e8  |.JMP $EA31...Z..|
00000500  55 50 20 4c 44 58 20 56  44 41 54 00 15 0d 64 0a  |UP LDX VDAT...d.|
00000510  49 4e 58 00 23 0d 6e 0a  53 54 58 20 24 44 34 30  |INX.#.n.STX $D40|
00000520  34 00 32 0d 78 0a 4c 44  58 20 56 44 41 54 aa 37  |4.2.x.LDX VDAT.7|
00000530  00 3a 0d 82 0a 49 4e 58  00 48 0d 8c 0a 53 54 58  |.:...INX.H...STX|
00000540  20 24 44 34 30 42 00 50  0d 96 0a 52 54 53 00 61  | $D40B.P...RTS.a|
00000550  0d a0 0a 45 46 46 45 43  54 53 91 20 53 45 49 00  |...EFFECTS. SEI.|
00000560  72 0d aa 0a 4c 44 41 20  23 b3 45 46 46 91 4c 59  |r...LDA #.EFF.LY|
00000570  00 80 0d b4 0a 53 54 41  20 24 30 33 31 34 00 91  |.....STA $0314..|
00000580  0d be 0a 4c 44 41 20 23  b1 45 46 46 91 4c 59 00  |...LDA #.EFF.LY.|
00000590  9f 0d c8 0a 53 54 41 20  24 30 33 31 35 00 a7 0d  |....STA $0315...|
000005a0  d2 0a 43 4c 49 00 af 0d  dc 0a 52 54 53 00 c4 0d  |..CLI.....RTS...|
000005b0  e6 0a 45 46 46 91 4c 59  20 4a 53 52 20 53 54 41  |..EFF.LY JSR STA|
000005c0  43 4b 00 d4 0d f0 0a 4a  53 52 20 44 45 53 54 41  |CK.....JSR DESTA|
000005d0  43 4b 00 e2 0d fa 0a 4a  4d 50 20 24 45 41 33 31  |CK.....JMP $EA31|
000005e0  00 f7 0d b8 0b 3b 20 4d  41 49 4e 20 47 41 4d 45  |.....; MAIN GAME|
000005f0  20 4c 4f 4f 50 00 09 0e  bd 0b 4d 41 49 4e 20 4c  | LOOP.....MAIN L|
00000600  44 41 20 23 24 30 30 00  16 0e c2 0b 53 54 41 20  |DA #$00.....STA |
00000610  44 45 41 44 00 24 0e cc  0b 53 54 41 20 45 46 44  |DEAD.$...STA EFD|
00000620  41 54 00 31 0e d6 0b 4a  53 52 20 4d 55 53 91 00  |AT.1...JSR MUS..|
00000630  43 0e e0 0b 4a 53 52 20  46 55 4c 4c 53 44 49 53  |C...JSR FULLSDIS|
00000640  50 00 4f 0e ea 0b 4c 44  41 20 24 41 32 00 57 0e  |P.O...LDA $A2.W.|
00000650  f4 0b 43 4c 43 00 65 0e  fe 0b 41 44 43 20 43 4c  |..CLC.e...ADC CL|
00000660  4f 43 4b 00 73 0e 08 0c  53 54 41 20 43 4c 4f 43  |OCK.s...STA CLOC|
00000670  4b 00 87 0e 12 0c 4d 41  49 4e 4c 4f 50 20 4a 53  |K.....MAINLOP JS|
00000680  52 20 59 4f 55 00 97 0e  1c 0c 4a 53 52 20 4d 91  |R YOU.....JSR M.|
00000690  53 54 45 52 53 00 a5 0e  26 0c 4a 53 52 20 50 41  |STERS...&.JSR PA|
000006a0  4e 45 4c 00 b2 0e 30 0c  4c 44 41 20 44 45 41 44  |NEL...0.LDA DEAD|
000006b0  00 c3 0e 3a 0c 42 4e 45  20 47 41 4d 45 4f 56 45  |...:.BNE GAMEOVE|
000006c0  52 00 d1 0e 44 0c 4c 44  41 20 43 4c 4f 43 4b 00  |R...D.LDA CLOCK.|
000006d0  e3 0e 4e 0c 54 52 4c 4f  50 20 43 4d 50 20 24 41  |..N.TRLOP CMP $A|
000006e0  32 00 f1 0e 58 0c 42 43  43 20 54 52 4c 4f 50 00  |2...X.BCC TRLOP.|
000006f0  f9 0e 62 0c 43 4c 43 00  06 0f 6c 0c 41 44 43 20  |..b.CLC...l.ADC |
00000700  23 24 30 33 00 14 0f 76  0c 53 54 41 20 43 4c 4f  |#$03...v.STA CLO|
00000710  43 4b 00 24 0f 80 0c 4a  4d 50 20 4d 41 49 4e 4c  |CK.$...JMP MAINL|
00000720  4f 50 00 3a 0f 8a 0c 47  41 4d 45 4f 56 45 52 20  |OP.:...GAMEOVER |
00000730  4a 53 52 20 47 41 4d 80  00 51 0f a0 0f 3b 20 47  |JSR GAM..Q...; G|
00000740  52 41 50 48 49 43 20 52  4f 55 54 49 4e 45 53 00  |RAPHIC ROUTINES.|
00000750  6a 0f a5 0f 44 49 53 50  42 4c 4f 43 4b 20 4a 53  |j...DISPBLOCK JS|
00000760  52 20 49 4e 49 54 44 42  00 78 0f a7 0f 4a 53 52  |R INITDB.x...JSR|
00000770  20 53 54 41 43 4b 00 84  0f aa 0f 4c 44 58 20 59  | STACK.....LDX Y|
00000780  50 53 00 98 0f b4 0f 59  50 4c 4f 50 44 20 43 50  |PS.....YPLOPD CP|
00000790  58 20 23 24 30 30 00 a7  0f be 0f 42 45 51 20 59  |X #$00.....BEQ Y|
000007a0  50 44 43 4e 54 00 af 0f  c8 0f 44 45 58 00 bc 0f  |PDCNT.....DEX...|
000007b0  d2 0f 4c 44 41 20 4d 45  4d 53 00 c4 0f dc 0f 43  |..LDA MEMS.....C|
000007c0  4c 43 00 d1 0f e6 0f 41  44 43 20 23 24 35 30 00  |LC.....ADC #$50.|
000007d0  de 0f f2 0f 53 54 41 20  4d 45 4d 53 00 ed 0f fa  |....STA MEMS....|
000007e0  0f 42 43 43 20 59 50 4c  4f 50 44 00 fc 0f 04 10  |.BCC YPLOPD.....|
000007f0  49 4e 43 20 4d 45 4d 53  aa 31 00 0b 10 0e 10 4a  |INC MEMS.1.....J|
00000800  4d 50 20 59 50 4c 4f 50  44 00 1e 10 18 10 59 50  |MP YPLOPD.....YP|
00000810  44 43 4e 54 20 4c 44 41  20 58 50 53 00 28 10 22  |DCNT LDA XPS.(."|
00000820  10 41 53 4c 20 41 00 30  10 2c 10 43 4c 43 00 3d  |.ASL A.0.,.CLC.=|
00000830  10 36 10 41 44 43 20 4d  45 4d 53 00 4a 10 40 10  |.6.ADC MEMS.J.@.|
00000840  53 54 41 20 4d 45 4d 53  00 58 10 4a 10 42 43 43  |STA MEMS.X.J.BCC|
00000850  20 58 50 43 4e 54 00 67  10 54 10 49 4e 43 20 4d  | XPCNT.g.T.INC M|
00000860  45 4d 53 aa 31 00 78 10  5e 10 58 50 43 4e 54 20  |EMS.1.x.^.XPCNT |
00000870  4c 44 41 20 59 50 00 82  10 68 10 4c 53 52 20 41  |LDA YP...h.LSR A|
00000880  00 8d 10 72 10 3b 4c 53  52 20 41 00 95 10 7c 10  |...r.;LSR A...|.|
00000890  43 4c 43 00 a2 10 86 10  41 44 43 20 23 24 30 43  |CLC.....ADC #$0C|
000008a0  00 b1 10 90 10 53 54 41  20 4d 45 4d 52 aa 31 00  |.....STA MEMR.1.|
000008b0  bc 10 9a 10 4c 44 41 20  59 50 00 c7 10 a4 10 af  |....LDA YP......|
000008c0  20 23 24 30 33 00 d1 10  ae 10 4c 53 52 20 41 00  | #$03.....LSR A.|
000008d0  da 10 b8 10 52 b0 20 41  00 e5 10 c2 10 3b 52 4f  |....R. A.....;RO|
000008e0  52 20 41 00 f2 10 cc 10  53 54 41 20 4d 45 4d 52  |R A.....STA MEMR|
000008f0  00 fd 10 d6 10 4c 44 41  20 58 50 00 07 11 e0 10  |.....LDA XP.....|
00000900  4c 53 52 20 41 00 11 11  ea 10 4c 53 52 20 41 00  |LSR A.....LSR A.|
00000910  19 11 f4 10 43 4c 43 00  26 11 fe 10 41 44 43 20  |....CLC.&...ADC |
00000920  4d 45 4d 52 00 33 11 08  11 53 54 41 20 4d 45 4d  |MEMR.3...STA MEM|
00000930  52 00 44 11 12 11 4c 44  41 20 28 4d 45 4d 52 29  |R.D...LDA (MEMR)|
00000940  2c 59 00 4f 11 1c 11 53  54 41 20 42 54 00 5a 11  |,Y.O...STA BT.Z.|
00000950  26 11 4c 44 41 20 58 50  00 65 11 30 11 af 20 23  |&.LDA XP.e.0.. #|
00000960  24 30 33 00 6d 11 3a 11  54 41 58 00 78 11 44 11  |$03.m.:.TAX.x.D.|
00000970  4c 44 41 20 59 50 00 82  11 4e 11 4c 53 52 20 41  |LDA YP...N.LSR A|
00000980  00 8a 11 58 11 43 4c 43  00 97 11 62 11 41 44 43  |...X.CLC...b.ADC|
00000990  20 23 24 33 34 00 a6 11  6c 11 53 54 41 20 4d 45  | #$34...l.STA ME|
000009a0  4d 52 aa 31 00 b1 11 76  11 4c 44 41 20 59 50 00  |MR.1...v.LDA YP.|
000009b0  bc 11 80 11 af 20 23 24  30 31 00 c6 11 8a 11 4c  |..... #$01.....L|
000009c0  53 52 20 41 00 cf 11 94  11 52 b0 20 41 00 dc 11  |SR A.....R. A...|
000009d0  9e 11 53 54 41 20 4d 45  4d 52 00 e7 11 a8 11 4c  |..STA MEMR.....L|
000009e0  44 41 20 58 50 00 f1 11  b2 11 4c 53 52 20 41 00  |DA XP.....LSR A.|
000009f0  f9 11 bc 11 43 4c 43 00  06 12 c6 11 41 44 43 20  |....CLC.....ADC |
00000a00  4d 45 4d 52 00 13 12 d0  11 53 54 41 20 4d 45 4d  |MEMR.....STA MEM|
00000a10  52 00 24 12 da 11 4c 44  41 20 28 4d 45 4d 52 29  |R.$...LDA (MEMR)|
00000a20  2c 59 00 31 12 e4 11 53  54 41 20 42 54 46 42 00  |,Y.1...STA BTFB.|
00000a30  39 12 ee 11 54 58 41 00  44 12 f8 11 af 20 23 24  |9...TXA.D.... #$|
00000a40  30 31 00 52 12 02 12 42  4e 45 20 46 42 4e b0 54  |01.R...BNE FBN.T|
00000a50  00 5f 12 0c 12 4c 44 41  20 23 24 30 46 00 6e 12  |._...LDA #$0F.n.|
00000a60  16 12 4a 4d 50 20 46 42  4e 52 4f 54 00 81 12 20  |..JMP FBNROT... |
00000a70  12 46 42 4e b0 54 20 4c  44 41 20 23 24 46 30 00  |.FBN.T LDA #$F0.|
00000a80  8c 12 21 12 af 20 42 54  46 42 00 96 12 22 12 4c  |..!.. BTFB...".L|
00000a90  53 52 20 41 00 a0 12 23  12 4c 53 52 20 41 00 aa  |SR A...#.LSR A..|
00000aa0  12 24 12 4c 53 52 20 41  00 b4 12 25 12 4c 53 52  |.$.LSR A...%.LSR|
00000ab0  20 41 00 c2 12 26 12 4a  4d 50 20 46 42 4e 52 a4  | A...&.JMP FBNR.|
00000ac0  00 d4 12 34 12 46 42 4e  52 4f 54 20 af 20 42 54  |...4.FBNROT . BT|
00000ad0  46 42 00 e7 12 3e 12 46  42 4e 52 a4 20 53 54 41  |FB...>.FBNR. STA|
00000ae0  20 42 54 46 42 00 f2 12  48 12 4c 44 41 20 42 54  | BTFB...H.LDA BT|
00000af0  00 04 13 52 12 44 54 42  4c 20 43 50 58 20 23 24  |...R.DTBL CPX #$|
00000b00  30 30 00 12 13 5c 12 42  45 51 20 44 54 42 4c 9a  |00...\.BEQ DTBL.|
00000b10  00 1c 13 66 12 4c 53 52  20 41 00 26 13 70 12 4c  |...f.LSR A.&.p.L|
00000b20  53 52 20 41 00 2e 13 7a  12 44 45 58 00 3b 13 84  |SR A...z.DEX.;..|
00000b30  12 4a 4d 50 20 44 54 42  4c 00 4c 13 8e 12 44 54  |.JMP DTBL.L...DT|
00000b40  42 4c 9a 20 af 20 23 24  30 33 00 56 13 98 12 41  |BL. . #$03.V...A|
00000b50  53 4c 20 41 00 60 13 a2  12 41 53 4c 20 41 00 6a  |SL A.`...ASL A.j|
00000b60  13 ac 12 41 53 4c 20 41  00 74 13 b6 12 41 53 4c  |...ASL A.t...ASL|
00000b70  20 41 00 7c 13 c0 12 43  4c 43 00 89 13 ca 12 41  | A.|...CLC.....A|
00000b80  44 43 20 42 54 46 42 00  94 13 d4 12 53 54 41 20  |DC BTFB.....STA |
00000b90  42 54 00 9e 13 de 12 41  53 4c 20 41 00 a8 13 e8  |BT.....ASL A....|
00000ba0  12 41 53 4c 20 41 00 b1  13 f2 12 3b 43 4c 43 00  |.ASL A.....;CLC.|
00000bb0  bf 13 fc 12 3b 41 44 43  20 23 24 34 30 00 d0 13  |....;ADC #$40...|
00000bc0  06 13 53 54 41 20 28 4d  45 4d 53 29 2c 59 00 d8  |..STA (MEMS),Y..|
00000bd0  13 0b 13 43 4c 43 00 e5  13 10 13 41 44 43 20 23  |...CLC.....ADC #|
00000be0  24 30 31 00 ed 13 1a 13  49 4e 59 00 fe 13 24 13  |$01.....INY...$.|
00000bf0  53 54 41 20 28 4d 45 4d  53 29 2c 59 00 06 14 2e  |STA (MEMS),Y....|
00000c00  13 43 4c 43 00 13 14 4c  13 41 44 43 20 23 24 31  |.CLC...L.ADC #$1|
00000c10  46 00 20 14 56 13 4c 44  59 20 23 24 32 38 00 31  |F. .V.LDY #$28.1|
00000c20  14 60 13 53 54 41 20 28  4d 45 4d 53 29 2c 59 00  |.`.STA (MEMS),Y.|
00000c30  39 14 65 13 43 4c 43 00  46 14 6a 13 41 44 43 20  |9.e.CLC.F.j.ADC |
00000c40  23 24 30 31 00 4e 14 74  13 49 4e 59 00 5f 14 7e  |#$01.N.t.INY._.~|
00000c50  13 53 54 41 20 28 4d 45  4d 53 29 2c 59 00 6e 14  |.STA (MEMS),Y.n.|
00000c60  88 13 4c 44 41 20 4d 45  4d 53 aa 31 00 76 14 92  |..LDA MEMS.1.v..|
00000c70  13 43 4c 43 00 83 14 9c  13 41 44 43 20 23 24 35  |.CLC.....ADC #$5|
00000c80  34 00 92 14 a6 13 53 54  41 20 4d 45 4d 53 aa 31  |4.....STA MEMS.1|
00000c90  00 9f 14 b0 13 4c 44 59  20 23 24 30 30 00 aa 14  |.....LDY #$00...|
00000ca0  ba 13 4c 44 41 20 42 54  00 bb 14 c4 13 53 54 41  |..LDA BT.....STA|
00000cb0  20 28 4d 45 4d 53 29 2c  59 00 c3 14 ce 13 49 4e  | (MEMS),Y.....IN|
00000cc0  59 00 d4 14 d8 13 53 54  41 20 28 4d 45 4d 53 29  |Y.....STA (MEMS)|
00000cd0  2c 59 00 e1 14 e2 13 4c  44 59 20 23 24 32 38 00  |,Y.....LDY #$28.|
00000ce0  f2 14 ec 13 53 54 41 20  28 4d 45 4d 53 29 2c 59  |....STA (MEMS),Y|
00000cf0  00 fa 14 f6 13 49 4e 59  00 0b 15 00 14 53 54 41  |.....INY.....STA|
00000d00  20 28 4d 45 4d 53 29 2c  59 00 1b 15 1e 14 4a 4d  | (MEMS),Y.....JM|
00000d10  50 20 55 4e 53 54 41 43  4b 00 2f 15 32 14 49 4e  |P UNSTACK./.2.IN|
00000d20  49 54 44 42 20 4c 44 41  20 23 24 30 34 00 3e 15  |ITDB LDA #$04.>.|
00000d30  3c 14 53 54 41 20 4d 45  4d 53 aa 31 00 4b 15 46  |<.STA MEMS.1.K.F|
00000d40  14 4c 44 59 20 23 24 30  30 00 58 15 50 14 53 54  |.LDY #$00.X.P.ST|
00000d50  59 20 4d 45 4d 53 00 65  15 5a 14 4c 44 41 20 58  |Y MEMS.e.Z.LDA X|
00000d60  50 54 4c 00 6d 15 64 14  43 4c 43 00 79 15 6e 14  |PTL.m.d.CLC.y.n.|
00000d70  41 44 43 20 58 50 53 00  84 15 78 14 53 54 41 20  |ADC XPS...x.STA |
00000d80  58 50 00 91 15 82 14 4c  44 41 20 59 50 54 4c 00  |XP.....LDA YPTL.|
00000d90  99 15 8c 14 43 4c 43 00  a5 15 96 14 41 44 43 20  |....CLC.....ADC |
00000da0  59 50 53 00 b0 15 a0 14  53 54 41 20 59 50 00 b8  |YPS.....STA YP..|
00000db0  15 aa 14 52 54 53 00 d0  15 70 17 3b 20 53 43 52  |...RTS...p.; SCR|
00000dc0  4f 4c 4c 45 52 20 52 4f  55 54 49 4e 45 53 00 e5  |OLLER ROUTINES..|
00000dd0  15 75 17 44 4f 57 4e 4d  45 4d 20 4c 44 59 20 4d  |.u.DOWNMEM LDY M|
00000de0  54 41 42 00 f5 15 7a 17  4c 44 41 20 28 24 46 44  |TAB...z.LDA ($FD|
00000df0  29 2c 59 00 02 16 84 17  4c 44 59 20 23 24 30 30  |),Y.....LDY #$00|
00000e00  00 12 16 8e 17 53 54 41  20 28 24 46 44 29 2c 59  |.....STA ($FD),Y|
00000e10  00 1e 16 98 17 49 4e 43  20 24 46 44 00 2a 16 a2  |.....INC $FD.*..|
00000e20  17 4c 44 41 20 24 46 44  00 3a 16 ac 17 42 4e 45  |.LDA $FD.:...BNE|
00000e30  20 44 4f 57 4e 4d 45 4d  00 46 16 b6 17 49 4e 43  | DOWNMEM.F...INC|
00000e40  20 24 46 45 00 52 16 c0  17 4c 44 41 20 24 46 45  | $FE.R...LDA $FE|
00000e50  00 61 16 ca 17 43 4d 50  20 53 54 50 41 47 45 00  |.a...CMP STPAGE.|
00000e60  71 16 d4 17 42 4e 45 20  44 4f 57 4e 4d 45 4d 00  |q...BNE DOWNMEM.|
00000e70  79 16 de 17 52 54 53 00  8b 16 e8 17 55 50 4d 45  |y...RTS.....UPME|
00000e80  4d 20 4c 44 41 20 24 46  45 00 93 16 f2 17 50 48  |M LDA $FE.....PH|
00000e90  41 00 a2 16 fc 17 4c 44  41 20 53 54 50 41 47 45  |A.....LDA STPAGE|
00000ea0  00 ae 16 06 18 53 54 41  20 24 46 45 00 bb 16 10  |.....STA $FE....|
00000eb0  18 4c 44 59 20 23 24 30  30 00 cb 16 1a 18 4c 44  |.LDY #$00.....LD|
00000ec0  41 20 28 24 46 44 29 2c  59 00 d8 16 24 18 4c 44  |A ($FD),Y...$.LD|
00000ed0  59 20 4d 54 41 42 00 e8  16 2e 18 53 54 41 20 28  |Y MTAB.....STA (|
00000ee0  c7                                                |.|
00000ee1