; CRYSTALS OF OLYMPIA/; BY DOMINIC �DD; DECEMBER '94 �P(��$C000`�; VARIABLESo�TUNE�$CF80{�MLO�$FB�MHI�$FC�NW�$CF81�XP�$CF82�$YP�$CF83�.XPB�$CF84�8YPB�$CF85��; MUSIC ROUTINES��MUSIC LDA NW��BEQ �	�DEC NW
	�RTS	�� LDY #$00,	�LDA (MLO),Y7	�� #$01C	�BEQ �MAP	LDA #$07\	�MA TAXl	LDA (MLO),Yv	&LSR A�	0STA NW�	:INY�	DCMP #$06�	NBNE MR��	XLDA (MLO),Y�	bSTA $D404,X�	lINY�	vLDA (MLO),Y�	�STA $D405,X�	�INY
�LDA (MLO),Y
�STA $D406,X
�JMP MFIN3
�MR� LDA (MLO),Y?
�STY $02G
�TAYV
�LDA MDAT,Yf
�STA $D400,Xv

LDA MDATB,Y�
 
STA $D401,X�
*
LDY $02�
4
MFIN INY�
>
TYA�
H
CLC�
R
ADC $FB�
\
STA $FB�
f
LDA $FC�
p
ADC #$00�
z
STA $FC�
�
RTS�MDAT TXT 12,28,45,62,81,102,123=�TXT 145,169,195,221,250,24,56,90c�TXT 125,163,204,246,35,83,134,187��TXT 244,48,112,180,251,71,152,237��TXT 71,167,12,119,233,97,225,104��TXT 247,143,48,218,143,78,24,239��TXT 210,195,195,209,239,31,96,181�TXT 30,156,49,223,165,135,134,162F�TXT 223,62,193,107,60,57,99,190,75k�TXT 15,12,69,191,125,131,214,121�TXT 115,199,124,151,30,24,139,126�TXT 250,6,172,243,230,143,248,46�MDATB TXT 1,1,1,1,1,1,1,1,1,1,1,1
"TXT 2,2,2,2,2,2,2,3,3,3,3,3,4,4,4'
,TXT 4,5,5,5,6,6,7,7,7,8,8,9,9,10M
6TXT 11,11,12,13,14,14,15,16,17,18s
@TXT 19,21,22,23,25,26,28,29,31,33�
JTXT 35,37,39,42,44,47,50,53,56,59�
TTXT 63,67,71,75,79,84,89,94,100�
^TXT 106,112,119,126,134,142,150hTXT 159,168,179,189,200,212,225rTXT 238,2531�; DISPLAY SCREEN BLOCKSD�DISPLAY LDA XPL�SECY�SBC #$0Aa�TAXl�LDA YPt�SEC��SBC #$05��TAY��STX XPB��STY YPB��DISPLOP JSR DISPBLOCK�INC XPB�
LDA XPB�SEC�SBC #$0A�(CMP XP2BNE DISPLOP<SECFSBC #$0A$PSTA XPB0ZINC YPB<dLDA YPBDnSECQxSBC #$05\�CMP YPl�BNE DISPLOPt�RTS��DISPBLOCK LDA XPB��STA $FB��LDA YPB��CLC��ADC #$04��CMP #$40��BCC CBNOADD��CLC��ADC #$40��CBNOADD STA $FC"LDA #$04 ; ?????????????????????.STA $FE:LDA XPBB"CLCO,ADC #$0AW6SECb@SBC XPlJASL AxTSTA $FD�^LDA YPB�hCLC�rADC #$05�|SEC��SBC YP��PHA��ASL A��DBYALOP BEQ DBYAFIN��TAX��LDA $FD��CLC��ADC #$28�STA $FD�LDA $FE$�ADC #$000�STA $FE8�DEX@�TXAPJMP DBYALOPeDBYAFIN LDY #$00uLDA ($FB),Y�&� #$3F�0STA ($FD),Y�:�A #$40�DINY�NSTA ($FD),Y�XE� #$C0�bLDY #$28�lSTA ($FD),Y�v�A #$40��INY
�STA ($FD),Y�LDA ($FB),Y�� #$80$�TAX,�PLA4�TAY<�TXAL�STA $CFE0,YT�RTS

[HJ@; crystals of olympia@/HT@; by dominic .d@dH.@; december '94 .@pH(@..$c000@.H.C; variables@OH.Ctune.$cf80@.H.Cmlo.$fb@.HFDmhi.$fc@.HPDnw.$cf81@.HZDxp.$cf82@.H$Dyp.$cf83@.H.Dxpb.$cf84@.H8Dypb.$cf85@.H.K; music routines@.H.Kmusic lda nw@.H.Kbeq .@EI.Kdec nw@MI.Krts@£I.K. ldy #$00@,I.Klda (mlo),y@7I.K. #$01@cI.Kbeq .ma@pIHLlda #$07@£IRL.ma tax@LI£Llda (mlo),y@VI&Llsr a@.I0Lsta nw@.I:Liny@.IdLcmp #$06@.InLbne mr.@.IxLlda (mlo),y@.IBLsta $d404,x@.ILLiny@.IVLlda (mlo),y@.I.Lsta $d405,x@.I.Liny@BJ.Llda (mlo),y@RJ.Lsta $d406,x@.J.Ljmp mfin@3J.Lmr. lda (mlo),y@?J.Lsty $02@gJ.Ltay@vJ.Llda mdat,y@FJ.Lsta $d400,x@VJVMlda mdatb,y@.J Msta $d401,x@.J*Mldy $02@.J4Mmfin iny@.J>Mtya@.JhMclc@.JrMadc $fb@.J£Msta $fb@.JFMlda $fc@.JPMadc #$00@.JZMsta $fc@.J.Mrts@XK.Omdat txt 12,28,45,62,81,102,123@=K.Otxt 145,169,195,221,250,24,56,90@CK.Otxt 125,163,204,246,35,83,134,187@.K.Otxt 244,48,112,180,251,71,152,237@.K.Otxt 71,167,12,119,233,97,225,104@.K.Otxt 247,143,48,218,143,78,24,239@.K.Otxt 210,195,195,209,239,31,96,181@.L.Otxt 30,156,49,223,165,135,134,162@fL.Otxt 223,62,193,107,60,57,99,190,75@KL.Otxt 15,12,69,191,125,131,214,121@.LDPtxt 115,199,124,151,30,24,139,126@.LNPtxt 250,6,172,243,230,143,248,46@.LXPmdatb txt 1,1,1,1,1,1,1,1,1,1,1,1@BM"Ptxt 2,2,2,2,2,2,2,3,3,3,3,3,4,4,4@'M,Ptxt 4,5,5,5,6,6,7,7,7,8,8,9,9,10@mM6Ptxt 11,11,12,13,14,14,15,16,17,18@SM@Ptxt 19,21,22,23,25,26,28,29,31,33@.MjPtxt 35,37,39,42,44,47,50,53,56,59@.MtPtxt 63,67,71,75,79,84,89,94,100@.M.Ptxt 106,112,119,126,134,142,150@ENHPtxt 159,168,179,189,200,212,225@UNRPtxt 238,253@1N.S; display screen blocks@dN.Sdisplay lda xp@lN.Ssec@yN.Ssbc #$0a@AN.Stax@LN.Slda yp@TN.Ssec@.N.Ssbc #$05@.N.Stay@.N.Sstx xpb@.N.Ssty ypb@.N.Sdisplop jsr dispblock@.N@Tinc xpb@.NJTlda xpb@.NTTsec@.N.Tsbc #$0a@.N(Tcmp xp@CO2Tbne displop@KO<Tsec@XOfTsbc #$0a@$OpTsta xpb@0OzTinc ypb@<ODTlda ypb@dONTsec@qOXTsbc #$05@£O.Tcmp yp@LO.Tbne displop@TO.Trts@.O.Tdispblock lda xpb@.O.Tsta $fb@.O.Tlda ypb@.O.Tclc@.O.Tadc #$04@.O.Tcmp #$40@.O.Tbcc cbnoadd@.O.Tclc@.O.Tadc #$40@.O.Tcbnoadd sta $fc@"PDUlda #$04 ; ?????????????????????@.PNUsta $fe@:PXUlda xpb@bP"Uclc@oP,Uadc #$0a@wP6Usec@BP@Usbc xp@LPjUasl a@XPtUsta $fd@.P.Ulda ypb@.PHUclc@.PRUadc #$05@.P.Usec@.P.Usbc yp@.P.Upha@.P.Uasl a@.P.Udbyalop beq dbyafin@.P.Utax@.P.Ulda $fd@.P.Uclc@.P.Uadc #$28@KQ.Usta $fd@WQ.Ulda $fe@$Q.Uadc #$00@0Q.Usta $fe@8Q.Udex@@Q.Utxa@pQHVjmp dbyalop@EQRVdbyafin ldy #$00@UQ£Vlda ($fb),y@.Q&V. #$3f@.Q0Vsta ($fd),y@.Q:V.a #$40@.QdViny@.QnVsta ($fd),y@.QxVe. #$c0@.QBVldy #$28@.QLVsta ($fd),y@.QVV.a #$40@.Q.Viny@AR.Vsta ($fd),y@QR.Vlda ($fb),y@£R.V. #$80@$R.Vtax@,R.Vpla@4R.Vtay@<R.Vtxa@lR.Vsta $cfe0,y@tR.Vrts@@@

00000000  1b 08 0a 00 3b 20 43 52  59 53 54 41 4c 53 20 4f  |....; CRYSTALS O|
00000010  46 20 4f 4c 59 4d 50 49  41 00 2f 08 14 00 3b 20  |F OLYMPIA./...; |
00000020  42 59 20 44 4f 4d 49 4e  49 43 20 81 44 00 44 08  |BY DOMINIC .D.D.|
00000030  1e 00 3b 20 44 45 43 45  4d 42 45 52 20 27 39 34  |..; DECEMBER '94|
00000040  20 ab 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 f2 03 54 55 4e 45 b2  24 43 46 38 30 00 7b 08  |...TUNE.$CF80.{.|
00000070  fc 03 4d 4c 4f b2 24 46  42 00 87 08 06 04 4d 48  |..MLO.$FB.....MH|
00000080  49 b2 24 46 43 00 94 08  10 04 4e 57 b2 24 43 46  |I.$FC.....NW.$CF|
00000090  38 31 00 a1 08 1a 04 58  50 b2 24 43 46 38 32 00  |81.....XP.$CF82.|
000000a0  ae 08 24 04 59 50 b2 24  43 46 38 33 00 bc 08 2e  |..$.YP.$CF83....|
000000b0  04 58 50 42 b2 24 43 46  38 34 00 ca 08 38 04 59  |.XPB.$CF84...8.Y|
000000c0  50 42 b2 24 43 46 38 35  00 df 08 b8 0b 3b 20 4d  |PB.$CF85.....; M|
000000d0  55 53 49 43 20 52 4f 55  54 49 4e 45 53 00 f0 08  |USIC ROUTINES...|
000000e0  c2 0b 4d 55 53 49 43 20  4c 44 41 20 4e 57 00 fa  |..MUSIC LDA NW..|
000000f0  08 cc 0b 42 45 51 20 87  00 05 09 d1 0b 44 45 43  |...BEQ ......DEC|
00000100  20 4e 57 00 0d 09 d6 0b  52 54 53 00 1c 09 e0 0b  | NW.....RTS.....|
00000110  87 20 4c 44 59 20 23 24  30 30 00 2c 09 ea 0b 4c  |. LDY #$00.,...L|
00000120  44 41 20 28 4d 4c 4f 29  2c 59 00 37 09 f4 0b af  |DA (MLO),Y.7....|
00000130  20 23 24 30 31 00 43 09  fe 0b 42 45 51 20 9a 4d  | #$01.C...BEQ .M|
00000140  41 00 50 09 08 0c 4c 44  41 20 23 24 30 37 00 5c  |A.P...LDA #$07.\|
00000150  09 12 0c 9a 4d 41 20 54  41 58 00 6c 09 1c 0c 4c  |....MA TAX.l...L|
00000160  44 41 20 28 4d 4c 4f 29  2c 59 00 76 09 26 0c 4c  |DA (MLO),Y.v.&.L|
00000170  53 52 20 41 00 81 09 30  0c 53 54 41 20 4e 57 00  |SR A...0.STA NW.|
00000180  89 09 3a 0c 49 4e 59 00  96 09 44 0c 43 4d 50 20  |..:.INY...D.CMP |
00000190  23 24 30 36 00 a2 09 4e  0c 42 4e 45 20 4d 52 9a  |#$06...N.BNE MR.|
000001a0  00 b2 09 58 0c 4c 44 41  20 28 4d 4c 4f 29 2c 59  |...X.LDA (MLO),Y|
000001b0  00 c2 09 62 0c 53 54 41  20 24 44 34 30 34 2c 58  |...b.STA $D404,X|
000001c0  00 ca 09 6c 0c 49 4e 59  00 da 09 76 0c 4c 44 41  |...l.INY...v.LDA|
000001d0  20 28 4d 4c 4f 29 2c 59  00 ea 09 80 0c 53 54 41  | (MLO),Y.....STA|
000001e0  20 24 44 34 30 35 2c 58  00 f2 09 8a 0c 49 4e 59  | $D405,X.....INY|
000001f0  00 02 0a 94 0c 4c 44 41  20 28 4d 4c 4f 29 2c 59  |.....LDA (MLO),Y|
00000200  00 12 0a 9e 0c 53 54 41  20 24 44 34 30 36 2c 58  |.....STA $D406,X|
00000210  00 1f 0a a8 0c 4a 4d 50  20 4d 46 49 4e 00 33 0a  |.....JMP MFIN.3.|
00000220  b2 0c 4d 52 9a 20 4c 44  41 20 28 4d 4c 4f 29 2c  |..MR. LDA (MLO),|
00000230  59 00 3f 0a bc 0c 53 54  59 20 24 30 32 00 47 0a  |Y.?...STY $02.G.|
00000240  c6 0c 54 41 59 00 56 0a  d0 0c 4c 44 41 20 4d 44  |..TAY.V...LDA MD|
00000250  41 54 2c 59 00 66 0a da  0c 53 54 41 20 24 44 34  |AT,Y.f...STA $D4|
00000260  30 30 2c 58 00 76 0a 16  0d 4c 44 41 20 4d 44 41  |00,X.v...LDA MDA|
00000270  54 42 2c 59 00 86 0a 20  0d 53 54 41 20 24 44 34  |TB,Y... .STA $D4|
00000280  30 31 2c 58 00 92 0a 2a  0d 4c 44 59 20 24 30 32  |01,X...*.LDY $02|
00000290  00 9f 0a 34 0d 4d 46 49  4e 20 49 4e 59 00 a7 0a  |...4.MFIN INY...|
000002a0  3e 0d 54 59 41 00 af 0a  48 0d 43 4c 43 00 bb 0a  |>.TYA...H.CLC...|
000002b0  52 0d 41 44 43 20 24 46  42 00 c7 0a 5c 0d 53 54  |R.ADC $FB...\.ST|
000002c0  41 20 24 46 42 00 d3 0a  66 0d 4c 44 41 20 24 46  |A $FB...f.LDA $F|
000002d0  43 00 e0 0a 70 0d 41 44  43 20 23 24 30 30 00 ec  |C...p.ADC #$00..|
000002e0  0a 7a 0d 53 54 41 20 24  46 43 00 f4 0a 84 0d 52  |.z.STA $FC.....R|
000002f0  54 53 00 18 0b a0 0f 4d  44 41 54 20 54 58 54 20  |TS.....MDAT TXT |
00000300  31 32 2c 32 38 2c 34 35  2c 36 32 2c 38 31 2c 31  |12,28,45,62,81,1|
00000310  30 32 2c 31 32 33 00 3d  0b aa 0f 54 58 54 20 31  |02,123.=...TXT 1|
00000320  34 35 2c 31 36 39 2c 31  39 35 2c 32 32 31 2c 32  |45,169,195,221,2|
00000330  35 30 2c 32 34 2c 35 36  2c 39 30 00 63 0b b4 0f  |50,24,56,90.c...|
00000340  54 58 54 20 31 32 35 2c  31 36 33 2c 32 30 34 2c  |TXT 125,163,204,|
00000350  32 34 36 2c 33 35 2c 38  33 2c 31 33 34 2c 31 38  |246,35,83,134,18|
00000360  37 00 89 0b be 0f 54 58  54 20 32 34 34 2c 34 38  |7.....TXT 244,48|
00000370  2c 31 31 32 2c 31 38 30  2c 32 35 31 2c 37 31 2c  |,112,180,251,71,|
00000380  31 35 32 2c 32 33 37 00  ae 0b c8 0f 54 58 54 20  |152,237.....TXT |
00000390  37 31 2c 31 36 37 2c 31  32 2c 31 31 39 2c 32 33  |71,167,12,119,23|
000003a0  33 2c 39 37 2c 32 32 35  2c 31 30 34 00 d3 0b d2  |3,97,225,104....|
000003b0  0f 54 58 54 20 32 34 37  2c 31 34 33 2c 34 38 2c  |.TXT 247,143,48,|
000003c0  32 31 38 2c 31 34 33 2c  37 38 2c 32 34 2c 32 33  |218,143,78,24,23|
000003d0  39 00 f9 0b dc 0f 54 58  54 20 32 31 30 2c 31 39  |9.....TXT 210,19|
000003e0  35 2c 31 39 35 2c 32 30  39 2c 32 33 39 2c 33 31  |5,195,209,239,31|
000003f0  2c 39 36 2c 31 38 31 00  1f 0c e6 0f 54 58 54 20  |,96,181.....TXT |
00000400  33 30 2c 31 35 36 2c 34  39 2c 32 32 33 2c 31 36  |30,156,49,223,16|
00000410  35 2c 31 33 35 2c 31 33  34 2c 31 36 32 00 46 0c  |5,135,134,162.F.|
00000420  f0 0f 54 58 54 20 32 32  33 2c 36 32 2c 31 39 33  |..TXT 223,62,193|
00000430  2c 31 30 37 2c 36 30 2c  35 37 2c 39 39 2c 31 39  |,107,60,57,99,19|
00000440  30 2c 37 35 00 6b 0c fa  0f 54 58 54 20 31 35 2c  |0,75.k...TXT 15,|
00000450  31 32 2c 36 39 2c 31 39  31 2c 31 32 35 2c 31 33  |12,69,191,125,13|
00000460  31 2c 32 31 34 2c 31 32  31 00 91 0c 04 10 54 58  |1,214,121.....TX|
00000470  54 20 31 31 35 2c 31 39  39 2c 31 32 34 2c 31 35  |T 115,199,124,15|
00000480  31 2c 33 30 2c 32 34 2c  31 33 39 2c 31 32 36 00  |1,30,24,139,126.|
00000490  b6 0c 0e 10 54 58 54 20  32 35 30 2c 36 2c 31 37  |....TXT 250,6,17|
000004a0  32 2c 32 34 33 2c 32 33  30 2c 31 34 33 2c 32 34  |2,243,230,143,24|
000004b0  38 2c 34 36 00 dc 0c 18  10 4d 44 41 54 42 20 54  |8,46.....MDATB T|
000004c0  58 54 20 31 2c 31 2c 31  2c 31 2c 31 2c 31 2c 31  |XT 1,1,1,1,1,1,1|
000004d0  2c 31 2c 31 2c 31 2c 31  2c 31 00 02 0d 22 10 54  |,1,1,1,1,1...".T|
000004e0  58 54 20 32 2c 32 2c 32  2c 32 2c 32 2c 32 2c 32  |XT 2,2,2,2,2,2,2|
000004f0  2c 33 2c 33 2c 33 2c 33  2c 33 2c 34 2c 34 2c 34  |,3,3,3,3,3,4,4,4|
00000500  00 27 0d 2c 10 54 58 54  20 34 2c 35 2c 35 2c 35  |.'.,.TXT 4,5,5,5|
00000510  2c 36 2c 36 2c 37 2c 37  2c 37 2c 38 2c 38 2c 39  |,6,6,7,7,7,8,8,9|
00000520  2c 39 2c 31 30 00 4d 0d  36 10 54 58 54 20 31 31  |,9,10.M.6.TXT 11|
00000530  2c 31 31 2c 31 32 2c 31  33 2c 31 34 2c 31 34 2c  |,11,12,13,14,14,|
00000540  31 35 2c 31 36 2c 31 37  2c 31 38 00 73 0d 40 10  |15,16,17,18.s.@.|
00000550  54 58 54 20 31 39 2c 32  31 2c 32 32 2c 32 33 2c  |TXT 19,21,22,23,|
00000560  32 35 2c 32 36 2c 32 38  2c 32 39 2c 33 31 2c 33  |25,26,28,29,31,3|
00000570  33 00 99 0d 4a 10 54 58  54 20 33 35 2c 33 37 2c  |3...J.TXT 35,37,|
00000580  33 39 2c 34 32 2c 34 34  2c 34 37 2c 35 30 2c 35  |39,42,44,47,50,5|
00000590  33 2c 35 36 2c 35 39 00  bd 0d 54 10 54 58 54 20  |3,56,59...T.TXT |
000005a0  36 33 2c 36 37 2c 37 31  2c 37 35 2c 37 39 2c 38  |63,67,71,75,79,8|
000005b0  34 2c 38 39 2c 39 34 2c  31 30 30 00 e1 0d 5e 10  |4,89,94,100...^.|
000005c0  54 58 54 20 31 30 36 2c  31 31 32 2c 31 31 39 2c  |TXT 106,112,119,|
000005d0  31 32 36 2c 31 33 34 2c  31 34 32 2c 31 35 30 00  |126,134,142,150.|
000005e0  05 0e 68 10 54 58 54 20  31 35 39 2c 31 36 38 2c  |..h.TXT 159,168,|
000005f0  31 37 39 2c 31 38 39 2c  32 30 30 2c 32 31 32 2c  |179,189,200,212,|
00000600  32 32 35 00 15 0e 72 10  54 58 54 20 32 33 38 2c  |225...r.TXT 238,|
00000610  32 35 33 00 31 0e 88 13  3b 20 44 49 53 50 4c 41  |253.1...; DISPLA|
00000620  59 20 53 43 52 45 45 4e  20 42 4c 4f 43 4b 53 00  |Y SCREEN BLOCKS.|
00000630  44 0e 92 13 44 49 53 50  4c 41 59 20 4c 44 41 20  |D...DISPLAY LDA |
00000640  58 50 00 4c 0e 9c 13 53  45 43 00 59 0e a6 13 53  |XP.L...SEC.Y...S|
00000650  42 43 20 23 24 30 41 00  61 0e b0 13 54 41 58 00  |BC #$0A.a...TAX.|
00000660  6c 0e ba 13 4c 44 41 20  59 50 00 74 0e c4 13 53  |l...LDA YP.t...S|
00000670  45 43 00 81 0e ce 13 53  42 43 20 23 24 30 35 00  |EC.....SBC #$05.|
00000680  89 0e d8 13 54 41 59 00  95 0e e2 13 53 54 58 20  |....TAY.....STX |
00000690  58 50 42 00 a1 0e ec 13  53 54 59 20 59 50 42 00  |XPB.....STY YPB.|
000006a0  bb 0e f6 13 44 49 53 50  4c 4f 50 20 4a 53 52 20  |....DISPLOP JSR |
000006b0  44 49 53 50 42 4c 4f 43  4b 00 c7 0e 00 14 49 4e  |DISPBLOCK.....IN|
000006c0  43 20 58 50 42 00 d3 0e  0a 14 4c 44 41 20 58 50  |C XPB.....LDA XP|
000006d0  42 00 db 0e 14 14 53 45  43 00 e8 0e 1e 14 53 42  |B.....SEC.....SB|
000006e0  43 20 23 24 30 41 00 f3  0e 28 14 43 4d 50 20 58  |C #$0A...(.CMP X|
000006f0  50 00 03 0f 32 14 42 4e  45 20 44 49 53 50 4c 4f  |P...2.BNE DISPLO|
00000700  50 00 0b 0f 3c 14 53 45  43 00 18 0f 46 14 53 42  |P...<.SEC...F.SB|
00000710  43 20 23 24 30 41 00 24  0f 50 14 53 54 41 20 58  |C #$0A.$.P.STA X|
00000720  50 42 00 30 0f 5a 14 49  4e 43 20 59 50 42 00 3c  |PB.0.Z.INC YPB.<|
00000730  0f 64 14 4c 44 41 20 59  50 42 00 44 0f 6e 14 53  |.d.LDA YPB.D.n.S|
00000740  45 43 00 51 0f 78 14 53  42 43 20 23 24 30 35 00  |EC.Q.x.SBC #$05.|
00000750  5c 0f 82 14 43 4d 50 20  59 50 00 6c 0f 8c 14 42  |\...CMP YP.l...B|
00000760  4e 45 20 44 49 53 50 4c  4f 50 00 74 0f 96 14 52  |NE DISPLOP.t...R|
00000770  54 53 00 8a 0f a0 14 44  49 53 50 42 4c 4f 43 4b  |TS.....DISPBLOCK|
00000780  20 4c 44 41 20 58 50 42  00 96 0f aa 14 53 54 41  | LDA XPB.....STA|
00000790  20 24 46 42 00 a2 0f b4  14 4c 44 41 20 59 50 42  | $FB.....LDA YPB|
000007a0  00 aa 0f be 14 43 4c 43  00 b7 0f c8 14 41 44 43  |.....CLC.....ADC|
000007b0  20 23 24 30 34 00 c4 0f  d2 14 43 4d 50 20 23 24  | #$04.....CMP #$|
000007c0  34 30 00 d4 0f dc 14 42  43 43 20 43 42 4e 4f 41  |40.....BCC CBNOA|
000007d0  44 44 00 dc 0f e6 14 43  4c 43 00 e9 0f f0 14 41  |DD.....CLC.....A|
000007e0  44 43 20 23 24 34 30 00  fd 0f fa 14 43 42 4e 4f  |DC #$40.....CBNO|
000007f0  41 44 44 20 53 54 41 20  24 46 43 00 22 10 04 15  |ADD STA $FC."...|
00000800  4c 44 41 20 23 24 30 34  20 3b 20 3f 3f 3f 3f 3f  |LDA #$04 ; ?????|
00000810  3f 3f 3f 3f 3f 3f 3f 3f  3f 3f 3f 3f 3f 3f 3f 3f  |????????????????|
00000820  00 2e 10 0e 15 53 54 41  20 24 46 45 00 3a 10 18  |.....STA $FE.:..|
00000830  15 4c 44 41 20 58 50 42  00 42 10 22 15 43 4c 43  |.LDA XPB.B.".CLC|
00000840  00 4f 10 2c 15 41 44 43  20 23 24 30 41 00 57 10  |.O.,.ADC #$0A.W.|
00000850  36 15 53 45 43 00 62 10  40 15 53 42 43 20 58 50  |6.SEC.b.@.SBC XP|
00000860  00 6c 10 4a 15 41 53 4c  20 41 00 78 10 54 15 53  |.l.J.ASL A.x.T.S|
00000870  54 41 20 24 46 44 00 84  10 5e 15 4c 44 41 20 59  |TA $FD...^.LDA Y|
00000880  50 42 00 8c 10 68 15 43  4c 43 00 99 10 72 15 41  |PB...h.CLC...r.A|
00000890  44 43 20 23 24 30 35 00  a1 10 7c 15 53 45 43 00  |DC #$05...|.SEC.|
000008a0  ac 10 86 15 53 42 43 20  59 50 00 b4 10 8b 15 50  |....SBC YP.....P|
000008b0  48 41 00 be 10 90 15 41  53 4c 20 41 00 d6 10 9a  |HA.....ASL A....|
000008c0  15 44 42 59 41 4c 4f 50  20 42 45 51 20 44 42 59  |.DBYALOP BEQ DBY|
000008d0  41 46 49 4e 00 de 10 a4  15 54 41 58 00 ea 10 ae  |AFIN.....TAX....|
000008e0  15 4c 44 41 20 24 46 44  00 f2 10 b8 15 43 4c 43  |.LDA $FD.....CLC|
000008f0  00 ff 10 c2 15 41 44 43  20 23 24 32 38 00 0b 11  |.....ADC #$28...|
00000900  cc 15 53 54 41 20 24 46  44 00 17 11 d6 15 4c 44  |..STA $FD.....LD|
00000910  41 20 24 46 45 00 24 11  e0 15 41 44 43 20 23 24  |A $FE.$...ADC #$|
00000920  30 30 00 30 11 ea 15 53  54 41 20 24 46 45 00 38  |00.0...STA $FE.8|
00000930  11 f4 15 44 45 58 00 40  11 fe 15 54 58 41 00 50  |...DEX.@...TXA.P|
00000940  11 08 16 4a 4d 50 20 44  42 59 41 4c 4f 50 00 65  |...JMP DBYALOP.e|
00000950  11 12 16 44 42 59 41 46  49 4e 20 4c 44 59 20 23  |...DBYAFIN LDY #|
00000960  24 30 30 00 75 11 1c 16  4c 44 41 20 28 24 46 42  |$00.u...LDA ($FB|
00000970  29 2c 59 00 80 11 26 16  af 20 23 24 33 46 00 90  |),Y...&.. #$3F..|
00000980  11 30 16 53 54 41 20 28  24 46 44 29 2c 59 00 9c  |.0.STA ($FD),Y..|
00000990  11 3a 16 b0 41 20 23 24  34 30 00 a4 11 44 16 49  |.:..A #$40...D.I|
000009a0  4e 59 00 b4 11 4e 16 53  54 41 20 28 24 46 44 29  |NY...N.STA ($FD)|
000009b0  2c 59 00 c0 11 58 16 45  b0 20 23 24 43 30 00 cd  |,Y...X.E. #$C0..|
000009c0  11 62 16 4c 44 59 20 23  24 32 38 00 dd 11 6c 16  |.b.LDY #$28...l.|
000009d0  53 54 41 20 28 24 46 44  29 2c 59 00 e9 11 76 16  |STA ($FD),Y...v.|
000009e0  b0 41 20 23 24 34 30 00  f1 11 80 16 49 4e 59 00  |.A #$40.....INY.|
000009f0  01 12 8a 16 53 54 41 20  28 24 46 44 29 2c 59 00  |....STA ($FD),Y.|
00000a00  11 12 94 16 4c 44 41 20  28 24 46 42 29 2c 59 00  |....LDA ($FB),Y.|
00000a10  1c 12 9e 16 af 20 23 24  38 30 00 24 12 a8 16 54  |..... #$80.$...T|
00000a20  41 58 00 2c 12 b2 16 50  4c 41 00 34 12 bc 16 54  |AX.,...PLA.4...T|
00000a30  41 59 00 3c 12 c6 16 54  58 41 00 4c 12 d0 16 53  |AY.<...TXA.L...S|
00000a40  54 41 20 24 43 46 45 30  2c 59 00 54 12 da 16 52  |TA $CFE0,Y.T...R|
00000a50  54 53 00 00 00                                    |TS...|
00000a55