; CRYSTALS OF OLYMPIA/; EDI�R PROGRAM?; 26�5�95 �O�; VARIABLES\�XP�$CF40i�YP�$CF41wXPB�$CF42�CLICK�$CF43�BUTNO�$CF44�$HOUR�$CF45�.SCHAR�$CF46�8XSP�$CF47�BYSP�$CF48�LXSQ�$CF49�VYSQ�$CF4A����$C000<	�;                                               WIMP ROUTINESB	�;U	�; WIMP - MOUSEf	�IRQ LDA #$00t	�STA CLICK�	�LDA $C5�	�CMP #$01�	�BNE C�CHECK�	�STA CLICK�	C�CHECK CMP #$0C�	BEQ LEFTK�	LKC CMP #$17�	 BEQ RIGHTK�	*RKC CMP #$32
4BEQ UPK
>UPKC CMP #$37+
HBEQ DOWNK=
RDKC LDA $DC00E
\TAXP
f� #$01\
pBEQ UPJh
zUJC TXAs
�� #$02�
�BEQ DOWNJ�
�DJC TXA�
�� #$04�
�BEQ LEFTJ�
�LJC TXA�
�� #$08�
�BEQ RIGHTJ�
�RJC TXA�
�� #$10�
�E� #$10�
�BEQ CJCH
�STA CLICK�CJCH JMP $EA310	LEFTK JSR LEFT<	JMP LKCQ	RIGHTK JSR RIGHT]$	JMP RKCl.	UPK JSR UPy8	JMP UPKC�B	DOWNK JSR DOWN�L	JMP DKC�V	UPJ JSR UP�`	JMP UJC�j	DOWNJ JSR DOWN�t	JMP DJC�~	LEFTJ JSR LEFT��	JMP LJC�	RIGHTJ JSR RIGHT�	JMP RJC"�	LEFT DEC XP-�	LDA XP:�	CMP #$FFF�	BNE �FFS�	LDY #$00_�	STY XPBo�	�FF LDY XPB{�	BNE FIN��	CMP #$18�
BNE FIN�

INC XP�
FIN JMP �ROL�
RIGHT INC XP�(
LDA XP�2
BNE �00�<
LDY #$01�F
STY XPB

P
�00 LDY XPB

Z
BEQ FIN
d
CMP #$58&
n
BNE FIN1
x
DEC XP>
�
JMP �ROLL
�
UP DEC YPW
�
LDA YPd
�
CMP #$32p
�
BNE FIN{
�
INC YP�
�
JMP �ROL�
�
DOWN INC YP�
�
LDA YP�
�
CMP #$F8�
�
BNE FIN�
�
DEC YP�
�
JMP �ROL�
�
; WIMP � PO�ER�
�
�ROL LDA HOUR�
BNE HGLASS�
LDA XP CMP #$28.BCC NSQUP;CMP #$F8I"BCS NSQUPU,LDA XPBc6BNE NSQUPn@LDA YP{JCMP #$42�TBCC NSQUP�^CMP #$C1�hBCS NSQUP�rLDA XP�|� #$F8��STA $D000��LDA YP��� #$F8���A #$02��STA $D001�LDA $D010�� #$FC�STA $D010,�LDA #$92:�STA $63F8H�LDA $D015S�� #$FC_��A #$01m�STA $D015z�LDA #$01��STA $D027��RTS��HGLASS LDX #$93��STX $63F8��INX��STX $63F9��NSQUP LDA XP��STA $D000��STA $D002�LDA YP�STA $D001STA $D003*LDA $D0105� #$FC?&LSR AG0CLCS:ADC XPB]DASL AeNCLCqXADC XPBbSTA $D010�lLDA #$00�vSTA $D027��LDA #$01��STA $D028��LDA $D015���A #$03��STA $D015��LDA HOUR��BNE QTRO�LDA #$90�STA $63F8�LDA #$91-�STA $63F9:�QTRO RTSQ�; STARTUP ROUTINESa�SR LDA #$8Bo�STA $D011}�LDA $DD02���A #$02��STA $DD02��LDA $DD00��� #$FE�
�A #$02�
STA $DD00�
LDA #$00�
STA $D020�
STA $D021
LDA #$86 
STA $D018"
LDA #$00)%
STA $D0006&
LDA #$0BD(
STA $D001Q-
LDA #$10_.
STA $D008l/
LDA #$3Az0
STA $D009�1
LDA #$10�2
STA $D010�3
LDA #$01�4
STA $D029�5
STA $D02B�6
LDA #$00�7
STA $D02A�9
STA SCHAR�<
LDA #$01
=
LDX #$08	>
TAYH
JSR $FFBA$R
LDA #$0C5\
LDX #�EGRTXTFf
LDY #�EGRTXTTz
JSR $FFBDa�
LDA #$00o�
JSR $FFD5|�
LDA #$01��
LDX #$08��
TAY��
JSR $FFBA��
LDA #$08��
LDX #�ECTXT��
LDY #�ECTXT��
JSR $FFBD��
LDA #$00��
JSR $FFD5�
LDA #$9B�
STA $D011�
LDA #$00+�
STA BUTNO8�
LDA #$92F�
STA $63FCN�
SEI[�
LDA #$00i�
STA $0314v�
LDA #$C0��
STA $0315��
CLI��
LDA #$00��
STA XP��
STA HOUR�LDA #$80�STA YP�LDA #$01�$STA XPB�%LDA #$1C�&STA $D015
'JSR LEFT(LDA #$00%)STA $D0043*STA $D006@+LDA #$D9N,STA $D005\-STA $D007i.LDA #$95w0STA $63FB�2LDA #$08�3STA $D01C�4LDA #$18�5STA $D016�7BUT0 JSR BUTCHECK�8JMP BUT0�BEGRTXT TXT "EDITGRAPHICS"DECTXT TXT "EDITCOLS"GBCQU JMP SLECT(IBCNCQ RTS?LBUTCHECK LDA CLICKMVBEQ BCNCQX`LDA YPebCMP #$D9rdBCC BCQU~eLDA XPB�fBNE XBSR�gLDA XP�hCMP #$28�iBCC BCQU�lLDA $D010�n� #$F3�pSTA $D010�rLDA XP�tCMP #$28�~BCC BCQU	�JMP BCOK�XBSR LDA XP&�CMP #$443�BCS BCQUA�LDA $D010M��A #$0C[�STA $D010k�BCOK LDA XPw�LDX XPB��BNE BCTC��SEC��SBC #$28��BCTC LDX #$FF��BCLPA INX��SEC��SBC #$18�CMP #$E8�
BCC BCLPA�TXA�LDY XPB	(BEQ NAO2CLC<ADC #$090FNAO STA BUTNO:PASL ADZASL ANdASL AZnSTA $02bxCLCn�ADC $02z�ADC $02��ADC #$28��STA $D004��STA $D006��LDA #$96��CLC��ADC BUTNO��STA $63FA��PLA��PLA��LDA #$CF��STA VE�2�LDA BUTNO�ASL A�CLC+�ADC #$808�STA VE�1F�LDA #�VECN�PHA^LDA #�VEC�1fPHAyVE JMP ($0000)�VEC LDA VE�1�CLC�"ADC #$20�,STA PH�1�6LDA #$CF�@STA PH�2�JPH JMP ($0000)�TSLECTQ RTS�^SLECT LDA XPB	hBEQ SLECTQrLDA XP!|CMP #$100�BCC SLECTQ=�CMP #$50L�BCS SLECTQW�LDA YPd�CMP #$3As�BCC SLECTQ��CMP #$CA��BCS SLECTQ��LDA XP��� #$F8��TAX��LDA YP��� #$F8��A #$02�TAY�CMP #$BA�BEQ SLECTQ
&BCS SLCNT0CPX #$30:BEQ SLECTQ1DSLCNT STX $D008?NSTY $D009LXCPY #$BAZbBCS CALC2blTXAovCMP #$30}�BCC CALC1��SEC��SBC #$08��CALC1 SEC��SBC #$10��ASL A��STA $02��TYA��SEC��SBC #$3A��LSR A��LSR A��LSR A�CLCADC $02 STA SCHAR(RTS6 CALC2 TXA>*SECK4SBC #$10U>LSR A_HLSR AiRLSR Av\CPY #$C2�fBEQ CALC2C�pCLC�zADC #$08��CALC2C CLC��ADC #$70��STA SCHAR��RTS���SCR LDA #$52��STA $FB��LDA #$D8�STA $FC�LOPA LDA #$00"�LDY #$007�LOPB STA ($FB),Y?INYLCPY #$1AYBNE LOPBe$LDA $FBm.CLCz8ADC #$28�BSTA $FB�LCMP #$D2�VBEQ QUITCS�`CMP #$28�jBCS LOPA�tINC $FC�~JMP LOPA��QUITCS RTS��DISP JSR SCRDISP�JMP C�ISP�SCRDISP LDA #$52(�STA $FB5�LDA #$60A�STA $FCN�LDX #$00a�LOPAD LDY #$00u�LOPBD JSR �CHAR���A #$80��STA ($FB),Y�INY�
CPY #$1A�BNE LOPBD�LDA $FB�(CLC�2ADC #$28�<STA $FB�FINX�PCMP #$D2ZBEQ QUITCSdCMP #$28 nBCS LOPAD,xINC $FC:�JMP LOPADM�C�ISP LDA #$52Y�STA $FBf�LDA #$D8r�STA $FC�LDX #$00��LOPCD LDY #$00��LOPDD TXA��PHA��JSR �CHAR��TAX��LDA $E000,X��STA ($FB),Y�PLA�TAX�INY "CPY #$1A ,BNE LOPDD 6LDA $FB% @CLC2 JADC #$28> TSTA $FBF ^INXS hCMP #$D2b rBEQ QUITCSo |CMP #$28} �BCS LOPCD� �INC $FC� �JMP LOPCD� ��CHAR LDA XSP� �STA $FD� �TXA� �CLC� �ADC YSP� �ADC #$04� �CMP #$40� �BCC GCC� �CLC!�ADC #$40!�GCC STA $FE,!�LDA ($FD),Y4!�RTSA!�GDQU RTSS!��DIR LDA #$00a!LDX CLICKn!BEQ GDQUy!LDX YP�!&CPX #$D1�!0BCS GDQU�!:LDX XPB�!DBEQ GDPII�!NLDX XP�!XCPX #$08�!bBCS GDQU�!lGDPII LDX $63F8�!vCPX #$92"�BEQ GDQU"�LDX YP"�CPX #$42%"�BCS GDPA1"��A #$01C"�GDPA CPX #$C2P"�BCC GDPB\"��A #$02l"�GDPB LDX XPy"�CPX #$28�"�BCS GDPC�"��A #$04�"�GDPC CPX #$F8�"BCC GDPD�"�A #$08�"GDPD LDX XPB�" BEQ GDQU�"*�A #$08�"4RTS#pBT3 JSR �DIR#zTAX#�� #$01#�BEQ TD3+#�LDA YSP7#�BEQ TD3C#�DEC YSPP#�JSR DISP\#�TD3 TXAg#�� #$02s#�BEQ TL3#�LDA YSP�#�CMP #$6C�#�BEQ TL3�#�INC YSP�#JSR DISP�#TL3 TXA�#� #$04�#$BEQ TR3�#.DEC XSP�#8JSR DISP�#BTR3 TXA$L� #$08$VBEQ BT3P2$`DEC XSP+$jJSR DISP?$tBT3P2 LDA CLICKM$~BEQ BT3P4[$�LDA $63F8h$�CMP #$92v$�BNE BT3P4�$�JSR ���$�LDA XSQ�$�CLC�$�ADC XSP�$�STA $FB�$�LDA YSQ�$�CLC�$�ADC XSP�$�ADC #$04�$�CMP #$40�$�BCC BT3P3�$�CLC
%ADC #$40%
BT3P3 STA $FC*%LDA SCHARA%BT3P4 JSR BUTCHECKM%(JMP BT3[%2�� LDA XPc%<SECp%FSBC #$28z%PLSR A�%ZLSR A�%dLSR A�%nSTA XSQ�%xLDA YP�%�SEC�%�SBC #$42�%�LSR A�%�LSR A�%�LSR A�%�STA YSQ�%�RTS�%'BI1 RTS&'BI2 RTS&'BI4 RTS&'BI5 RTS(&'BI6 RTS4&'BI7 RTS@&'BI8 RTSL&'BI9 RTSX&'BIA RTSd&'BIB RTSp&'BIC RTS|&$'BT1 NOP�&%'BT2 NOP�&&'BT3 NOP�&''BT4 NOP�&('BT5 NOP�&)'BT6 NOP�&*'BT7 NOP�&+'BT8 NOP�&,'BT9 NOP�&-'BTA NOP�&.'BTB NOP'/'BTC NOP
'0'JMP BUT0'�; VEC�R TABLE+'"���$CF80S',�TXT �BI1,�BI1,�BI2,�BI2,�DISP,�DISPy'6�TXT �BI4,�BI4,�BI5,�BI5,�BI6,�BI6�'@�TXT �BI7,�BI7,�BI8,�BI8,�BI9,�BI9�'J�TXT �BIA,�BIA,�BIB,�BIB,�BIC,�BIC�'T�;�'^���$CFA0�'h�TXT �BT1,�BT1,�BT2,�BT2,�BT3,�BT3#(r�TXT �BT4,�BT4,�BT5,�BT5,�BT6,�BT6I(|�TXT �BT7,�BT7,�BT8,�BT8,�BT9,�BT9o(��TXT �BTA,�BTA,�BTB,�BTB,�BTC,�BTC

[HJ@; crystals of olympia@/HT@; edi.r program@?H.@; 26.5.95 .@oH.C; variables@£H.Cxp.$cf40@IH.Cyp.$cf41@WHFDxpb.$cf42@.HPDclick.$cf43@.HZDbutno.$cf44@.H$Dhour.$cf45@.H.Dschar.$cf46@.H8Dxsp.$cf47@.HbDysp.$cf48@.HlDxsq.$cf49@.HvDysq.$cf4a@.H.G..$c000@<I.G;                                               wimp routines@bI.G;@uI.G; wimp - mouse@FI.Girq lda #$00@TI.Gsta click@.I.Glda $c5@.I.Gcmp #$01@.I.Gbne c.check@.I.Gsta click@.IBHc.check cmp #$0c@.ILHbeq leftk@.IVHlkc cmp #$17@.I Hbeq rightk@.I*Hrkc cmp #$32@KJ4Hbeq upk@]J>Hupkc cmp #$37@+JhHbeq downk@=JrHdkc lda $dc00@eJ£Htax@pJFH. #$01@£JPHbeq upj@HJZHujc txa@SJ.H. #$02@.J.Hbeq downj@.J.Hdjc txa@.J.H. #$04@.J.Hbeq leftj@.J.Hljc txa@.J.H. #$08@.J.Hbeq rightj@.J.Hrjc txa@.J.H. #$10@.J.He. #$10@.J.Hbeq cjch@JK.Hsta click@]K.Hcjch jmp $ea31@0KFIleftk jsr left@<KPIjmp lkc@qKZIrightk jsr right@]K$Ijmp rkc@LK.Iupk jsr up@YK8Ijmp upkc@.KbIdownk jsr down@.KlIjmp dkc@.KvIupj jsr up@.K.Ijmp ujc@.KJIdownj jsr down@.KTIjmp djc@.K.Ileftj jsr left@.K.Ijmp ljc@FL.Irightj jsr right@RL.Ijmp rjc@"L.Ileft dec xp@-L.Ilda xp@:L.Icmp #$ff@fL.Ibne .ff@sL.Ildy #$00@.L.Isty xpb@OL.I.ff ldy xpb@.L.Ibne fin@.L.Icmp #$18@.L@Jbne fin@.LJJinc xp@.LTJfin jmp .rol@.L.Jright inc xp@.L(Jlda xp@.L2Jbne .00@.L<Jldy #$01@.LfJsty xpb@AMpJ.00 ldy xpb@MMzJbeq fin@ZMDJcmp #$58@&MNJbne fin@1MXJdec xp@>M.Jjmp .rol@lM.Jup dec yp@wM.Jlda yp@DM.Jcmp #$32@PM.Jbne fin@.M.Jinc yp@.M.Jjmp .rol@.M.Jdown inc yp@.M.Jlda yp@.M.Jcmp #$f8@.M.Jbne fin@.M.Jdec yp@.M.Jjmp .rol@.M.J; wimp . po.er@.M.J.rol lda hour@HN.Jbne hglass@SN.Jlda xp@ NDKcmp #$28@.NNKbcc nsqup@;NXKcmp #$f8@iN"Kbcs nsqup@uN,Klda xpb@CN6Kbne nsqup@NN@Klda yp@.NjKcmp #$42@.NtKbcc nsqup@.N.Kcmp #$c1@.NHKbcs nsqup@.NRKlda xp@.N.K. #$f8@.N.Ksta $d000@.N.Klda yp@.N.K. #$f8@.N.K.a #$02@.N.Ksta $d001@FO.Klda $d010@QO.K. #$fc@.O.Ksta $d010@,O.Klda #$92@:O.Ksta $63f8@hO.Klda $d015@sO.K. #$fc@.O.K.a #$01@MO.Ksta $d015@ZO.Klda #$01@.O.Ksta $d027@.O.Krts@.O.Khglass ldx #$93@.O.Kstx $63f8@.O.Kinx@.O.Kstx $63f9@.O.Knsqup lda xp@.O.Ksta $d000@.O.Ksta $d002@@P.Klda yp@NP.Ksta $d001@£PHLsta $d003@*PRLlda $d010@5P£L. #$fc@?P&Llsr a@gP0Lclc@sP:Ladc xpb@]PdLasl a@EPnLclc@QPxLadc xpb@.PBLsta $d010@.PLLlda #$00@.PVLsta $d027@.P.Llda #$01@.P.Lsta $d028@.P.Llda $d015@.P.L.a #$03@.P.Lsta $d015@.P.Llda hour@.P.Lbne qtro@DQ.Llda #$90@RQ.Lsta $63f8@.Q.Llda #$91@-Q.Lsta $63f9@:Q.Lqtro rts@qQ.L; startup routines@AQ.Lsr lda #$8b@OQ.Lsta $d011@.Q.Llda $dd02@.Q.L.a #$02@.Q.Lsta $dd02@.Q.Llda $dd00@.Q.L. #$fe@.QBM.a #$02@.QLMsta $dd00@.QOMlda #$00@.QRMsta $d020@.QTMsta $d021@@RVMlda #$86@NR Msta $d018@[R"Mlda #$00@)R%Msta $d000@6R&Mlda #$0b@dR(Msta $d001@qR-Mlda #$10@.R.Msta $d008@LR/Mlda #$3a@ZR0Msta $d009@.R1Mlda #$10@.R2Msta $d010@.R3Mlda #$01@.R4Msta $d029@.R5Msta $d02b@.R6Mlda #$00@.R7Msta $d02a@.R9Msta schar@.R<Mlda #$01@AS=Mldx #$08@IS>Mtay@WShMjsr $ffba@$SrMlda #$0c@5S£Mldx #.egrtxt@fSFMldy #.egrtxt@tSZMjsr $ffbd@AS.Mlda #$00@OS.Mjsr $ffd5@.S.Mlda #$01@.S.Mldx #$08@.S.Mtay@.S.Mjsr $ffba@.S.Mlda #$08@.S.Mldx #.ectxt@.S.Mldy #.ectxt@.S.Mjsr $ffbd@.S.Mlda #$00@.S.Mjsr $ffd5@BT.Mlda #$9b@PT.Msta $d011@]T.Mlda #$00@+T.Msta butno@8T.Mlda #$92@fT.Msta $63fc@nT.Msei@[T.Mlda #$00@IT.Msta $0314@VT.Mlda #$c0@.T.Msta $0315@.T.Mcli@.T.Mlda #$00@.T.Msta xp@.T.Msta hour@.TFNlda #$80@.TPNsta yp@.TZNlda #$01@.T$Nsta xpb@.T%Nlda #$1c@.T&Nsta $d015@JU'Njsr left@WU(Nlda #$00@%U)Nsta $d004@3U*Nsta $d006@@U+Nlda #$d9@nU,Nsta $d005@£U-Nsta $d007@IU.Nlda #$95@WU0Nsta $63fb@.U2Nlda #$08@.U3Nsta $d01c@.U4Nlda #$18@.U5Nsta $d016@.U7Nbut0 jsr butcheck@.U8Njmp but0@.UbNegrtxt txt "editgraphics"@GVdNectxt txt "editcols"@ZVgNbcqu jmp slect@(ViNbcncq rts@?VlNbutcheck lda click@mVvNbeq bcncq@xV.Nlda yp@EVBNcmp #$d9@RVDNbcc bcqu@.VENlda xpb@.VFNbne xbsr@.VGNlda xp@.VHNcmp #$28@.VINbcc bcqu@.VLNlda $d010@.VNN. #$f3@.VPNsta $d010@.VRNlda xp@.VTNcmp #$28@.V.Nbcc bcqu@IW.Njmp bcok@YW.Nxbsr lda xp@&W.Ncmp #$44@3W.Nbcs bcqu@aW.Nlda $d010@mW.N.a #$0c@[W.Nsta $d010@KW.Nbcok lda xp@WW.Nldx xpb@.W.Nbne bctc@.W.Nsec@.W.Nsbc #$28@.W.Nbctc ldx #$ff@.W.Nbclpa inx@.W.Nsec@.W.Nsbc #$18@.W@Ocmp #$e8@.WJObcc bclpa@.WTOtxa@.W.Oldy xpb@IX(Obeq nao@QX2Oclc@.X<Oadc #$09@0XfOnao sta butno@:XpOasl a@dXzOasl a@nXDOasl a@zXNOsta $02@BXXOclc@NX.Oadc $02@ZX.Oadc $02@.X.Oadc #$28@.X.Osta $d004@.X.Osta $d006@.X.Olda #$96@.X.Oclc@.X.Oadc butno@.X.Osta $63fa@.X.Opla@.X.Opla@.X.Olda #$cf@.X.Osta ve.2@LY.Olda butno@VY.Oasl a@.Y.Oclc@+Y.Oadc #$80@8Y.Osta ve.1@fY.Olda #.vec@nY.Opha@.Y@Plda #.vec.1@FYBPpha@YYDPve jmp ($0000)@.YNPvec lda ve.1@.YXPclc@.Y"Padc #$20@.Y,Psta ph.1@.Y6Plda #$cf@.Y@Psta ph.2@.YjPph jmp ($0000)@.YtPslectq rts@.Y.Pslect lda xpb@IZHPbeq slectq@TZRPlda xp@!Z.Pcmp #$10@0Z.Pbcc slectq@=Z.Pcmp #$50@lZ.Pbcs slectq@wZ.Plda yp@DZ.Pcmp #$3a@SZ.Pbcc slectq@.Z.Pcmp #$ca@.Z.Pbcs slectq@.Z.Plda xp@.Z.P. #$f8@.Z.Ptax@.Z.Plda yp@.Z.P. #$f8@.Z@Q.a #$02@.ZHQtay@.ZRQcmp #$ba@.Z£Qbeq slectq@A[&Qbcs slcnt@N[0Qcpx #$30@][:Qbeq slectq@1[dQslcnt stx $d008@?[nQsty $d009@l[xQcpy #$ba@z[BQbcs calc2@B[LQtxa@O[VQcmp #$30@.[.Qbcc calc1@.[.Qsec@.[.Qsbc #$08@.[.Qcalc1 sec@.[.Qsbc #$10@.[.Qasl a@.[.Qsta $02@.[.Qtya@.[.Qsec@.[.Qsbc #$3a@.[.Qlsr a@.[.Qlsr a@.[.Qlsr a@F£.Qclc@R£BRadc $02@ £LRsta schar@(£VRrts@6£ Rcalc2 txa@>£*Rsec@k£4Rsbc #$10@u£>Rlsr a@.£hRlsr a@I£rRlsr a@V££Rcpy #$c2@.£FRbeq calc2c@.£PRclc@.£ZRadc #$08@.£.Rcalc2c clc@.£.Radc #$70@.£.Rsta schar@.£.Rrts@.£.R.scr lda #$52@.£.Rsta $fb@.£.Rlda #$d8@C].Rsta $fc@U].Rlopa lda #$00@"].Rldy #$00@7].Rlopb sta ($fb),y@?]FSiny@l]PScpy #$1a@y]ZSbne lopb@E]$Slda $fb@M].Sclc@Z]8Sadc #$28@.]bSsta $fb@.]lScmp #$d2@.]vSbeq quitcs@.].Scmp #$28@.]JSbcs lopa@.]TSinc $fc@.].Sjmp lopa@.].Squitcs rts@.].Sdisp jsr scrdisp@G..Sjmp c.isp@£..Sscrdisp lda #$52@(..Ssta $fb@5..Slda #$60@a..Ssta $fc@n..Sldx #$00@A..Slopad ldy #$00@U..Slopbd jsr .char@...S.a #$80@...Ssta ($fb),y@..@Tiny@..JTcpy #$1a@..TTbne lopbd@...Tlda $fb@..(Tclc@..2Tadc #$28@..<Tsta $fb@..fTinx@..pTcmp #$d2@E.zTbeq quitcs@R.DTcmp #$28@ .NTbcs lopad@,.XTinc $fc@:..Tjmp lopad@m..Tc.isp lda #$52@y..Tsta $fb@F..Tlda #$d8@R..Tsta $fc@...Tldx #$00@...Tlopcd ldy #$00@...Tlopdd txa@...Tpha@...Tjsr .char@...Ttax@...Tlda $e000,x@...Tsta ($fb),y@..DUpla@..NUtax@..XUiny@C "Ucpy #$1a@Q ,Ubne lopdd@] 6Ulda $fb@% @Uclc@2 jUadc #$28@> tUsta $fb@f .Uinx@s HUcmp #$d2@B RUbeq quitcs@O .Ucmp #$28@. .Ubcs lopcd@. .Uinc $fc@. .Ujmp lopcd@. .U.char lda xsp@. .Usta $fd@. .Utxa@. .Uclc@. .Uadc ysp@. .Uadc #$04@. .Ucmp #$40@. .Ubcc gcc@. .Uclc@L!.Uadc #$40@£!.Ugcc sta $fe@,!.Ulda ($fd),y@4!.Urts@a!.Ugdqu rts@s!.U.dir lda #$00@A!HVldx click@N!RVbeq gdqu@Y!£Vldx yp@.!&Vcpx #$d1@.!0Vbcs gdqu@.!:Vldx xpb@.!dVbeq gdpii@.!nVldx xp@.!xVcpx #$08@.!BVbcs gdqu@.!LVgdpii ldx $63f8@.!VVcpx #$92@@".Vbeq gdqu@K".Vldx yp@X".Vcpx #$42@%".Vbcs gdpa@1".V.a #$01@c".Vgdpa cpx #$c2@p".Vbcc gdpb@£".V.a #$02@L".Vgdpb ldx xp@Y".Vcpx #$28@.".Vbcs gdpc@.".V.a #$04@.".Vgdpc cpx #$f8@."BWbcc gdpd@."LW.a #$08@."VWgdpd ldx xpb@." Wbeq gdqu@."*W.a #$08@."4Wrts@@#PWbt3 jsr .dir@H#ZWtax@S#.W. #$01@.#.Wbeq td3@+#.Wlda ysp@7#.Wbeq td3@c#.Wdec ysp@p#.Wjsr disp@£#.Wtd3 txa@G#.W. #$02@S#.Wbeq tl3@.#.Wlda ysp@.#.Wcmp #$6c@.#.Wbeq tl3@.#.Winc ysp@.#FXjsr disp@.#PXtl3 txa@.#ZX. #$04@.#$Xbeq tr3@.#.Xdec xsp@.#8Xjsr disp@.#bXtr3 txa@D$lX. #$08@R$vXbeq bt3p2@.$.Xdec xsp@+$JXjsr disp@?$TXbt3p2 lda click@m$.Xbeq bt3p4@[$.Xlda $63f8@H$.Xcmp #$92@V$.Xbne bt3p4@.$.Xjsr ..@.$.Xlda xsq@.$.Xclc@.$.Xadc xsp@.$.Xsta $fb@.$.Xlda ysq@.$.Xclc@.$.Xadc xsp@.$.Xadc #$04@.$.Xcmp #$40@.$.Xbcc bt3p3@.$.Xclc@J%@Yadc #$40@£%JYbt3p3 sta $fc@*%TYlda schar@a%.Ybt3p4 jsr butcheck@m%(Yjmp bt3@[%2Y.. lda xp@C%<Ysec@P%fYsbc #$28@Z%pYlsr a@.%zYlsr a@.%DYlsr a@.%NYsta xsq@.%XYlda yp@.%.Ysec@.%.Ysbc #$42@.%.Ylsr a@.%.Ylsr a@.%.Ylsr a@.%.Ysta ysq@.%.Yrts@.%P'bi1 rts@D&Q'bi2 rts@P&S'bi4 rts@£&T'bi5 rts@(&U'bi6 rts@4&V'bi7 rts@@&W'bi8 rts@l&X'bi9 rts@x&Y'bia rts@D&Z'bib rts@P&['bic rts@.&$'bt1 nop@.&%'bt2 nop@.&&'bt3 nop@.&''bt4 nop@.&('bt5 nop@.&)'bt6 nop@.&*'bt7 nop@.&+'bt8 nop@.&,'bt9 nop@.&-'bta nop@.&.'btb nop@@'/'btc nop@M'0'jmp but0@.'X.; vec.r table@+'"...$cf80@s',.txt .bi1,.bi1,.bi2,.bi2,.disp,.disp@Y'6.txt .bi4,.bi4,.bi5,.bi5,.bi6,.bi6@.'@.txt .bi7,.bi7,.bi8,.bi8,.bi9,.bi9@.'j.txt .bia,.bia,.bib,.bib,.bic,.bic@.'t.;@.'....$cfa0@.'H.txt .bt1,.bt1,.bt2,.bt2,.bt3,.bt3@#(R.txt .bt4,.bt4,.bt5,.bt5,.bt6,.bt6@i(..txt .bt7,.bt7,.bt8,.bt8,.bt9,.bt9@O(..txt .bta,.bta,.btb,.btb,.btc,.btc@@@

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  45 44 49 a4 52 20 50 52  4f 47 52 41 4d 00 3f 08  |EDI.R PROGRAM.?.|
00000030  1e 00 3b 20 32 36 ad 35  ad 39 35 20 ab 00 4f 08  |..; 26.5.95 ..O.|
00000040  e8 03 3b 20 56 41 52 49  41 42 4c 45 53 00 5c 08  |..; VARIABLES.\.|
00000050  f2 03 58 50 b2 24 43 46  34 30 00 69 08 fc 03 59  |..XP.$CF40.i...Y|
00000060  50 b2 24 43 46 34 31 00  77 08 06 04 58 50 42 b2  |P.$CF41.w...XPB.|
00000070  24 43 46 34 32 00 87 08  10 04 43 4c 49 43 4b b2  |$CF42.....CLICK.|
00000080  24 43 46 34 33 00 97 08  1a 04 42 55 54 4e 4f b2  |$CF43.....BUTNO.|
00000090  24 43 46 34 34 00 a6 08  24 04 48 4f 55 52 b2 24  |$CF44...$.HOUR.$|
000000a0  43 46 34 35 00 b6 08 2e  04 53 43 48 41 52 b2 24  |CF45.....SCHAR.$|
000000b0  43 46 34 36 00 c4 08 38  04 58 53 50 b2 24 43 46  |CF46...8.XSP.$CF|
000000c0  34 37 00 d2 08 42 04 59  53 50 b2 24 43 46 34 38  |47...B.YSP.$CF48|
000000d0  00 e0 08 4c 04 58 53 51  b2 24 43 46 34 39 00 ee  |...L.XSQ.$CF49..|
000000e0  08 56 04 59 53 51 b2 24  43 46 34 41 00 fa 08 c6  |.V.YSQ.$CF4A....|
000000f0  07 ac b2 24 43 30 30 30  00 3c 09 d0 07 3b 20 20  |...$C000.<...;  |
00000100  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000120  20 20 20 20 20 20 20 20  20 20 20 20 20 57 49 4d  |             WIM|
00000130  50 20 52 4f 55 54 49 4e  45 53 00 42 09 d3 07 3b  |P ROUTINES.B...;|
00000140  00 55 09 d6 07 3b 20 57  49 4d 50 20 2d 20 4d 4f  |.U...; WIMP - MO|
00000150  55 53 45 00 66 09 da 07  49 52 51 20 4c 44 41 20  |USE.f...IRQ LDA |
00000160  23 24 30 30 00 74 09 dd  07 53 54 41 20 43 4c 49  |#$00.t...STA CLI|
00000170  43 4b 00 80 09 e0 07 4c  44 41 20 24 43 35 00 8d  |CK.....LDA $C5..|
00000180  09 e4 07 43 4d 50 20 23  24 30 31 00 9d 09 ee 07  |...CMP #$01.....|
00000190  42 4e 45 20 43 91 43 48  45 43 4b 00 ab 09 f8 07  |BNE C.CHECK.....|
000001a0  53 54 41 20 43 4c 49 43  4b 00 c0 09 02 08 43 91  |STA CLICK.....C.|
000001b0  43 48 45 43 4b 20 43 4d  50 20 23 24 30 43 00 ce  |CHECK CMP #$0C..|
000001c0  09 0c 08 42 45 51 20 4c  45 46 54 4b 00 df 09 16  |...BEQ LEFTK....|
000001d0  08 4c 4b 43 20 43 4d 50  20 23 24 31 37 00 ee 09  |.LKC CMP #$17...|
000001e0  20 08 42 45 51 20 52 49  47 48 54 4b 00 ff 09 2a  | .BEQ RIGHTK...*|
000001f0  08 52 4b 43 20 43 4d 50  20 23 24 33 32 00 0b 0a  |.RKC CMP #$32...|
00000200  34 08 42 45 51 20 55 50  4b 00 1d 0a 3e 08 55 50  |4.BEQ UPK...>.UP|
00000210  4b 43 20 43 4d 50 20 23  24 33 37 00 2b 0a 48 08  |KC CMP #$37.+.H.|
00000220  42 45 51 20 44 4f 57 4e  4b 00 3d 0a 52 08 44 4b  |BEQ DOWNK.=.R.DK|
00000230  43 20 4c 44 41 20 24 44  43 30 30 00 45 0a 5c 08  |C LDA $DC00.E.\.|
00000240  54 41 58 00 50 0a 66 08  af 20 23 24 30 31 00 5c  |TAX.P.f.. #$01.\|
00000250  0a 70 08 42 45 51 20 55  50 4a 00 68 0a 7a 08 55  |.p.BEQ UPJ.h.z.U|
00000260  4a 43 20 54 58 41 00 73  0a 84 08 af 20 23 24 30  |JC TXA.s.... #$0|
00000270  32 00 81 0a 8e 08 42 45  51 20 44 4f 57 4e 4a 00  |2.....BEQ DOWNJ.|
00000280  8d 0a 98 08 44 4a 43 20  54 58 41 00 98 0a a2 08  |....DJC TXA.....|
00000290  af 20 23 24 30 34 00 a6  0a ac 08 42 45 51 20 4c  |. #$04.....BEQ L|
000002a0  45 46 54 4a 00 b2 0a b6  08 4c 4a 43 20 54 58 41  |EFTJ.....LJC TXA|
000002b0  00 bd 0a c0 08 af 20 23  24 30 38 00 cc 0a ca 08  |...... #$08.....|
000002c0  42 45 51 20 52 49 47 48  54 4a 00 d8 0a d4 08 52  |BEQ RIGHTJ.....R|
000002d0  4a 43 20 54 58 41 00 e3  0a de 08 af 20 23 24 31  |JC TXA...... #$1|
000002e0  30 00 ef 0a e3 08 45 b0  20 23 24 31 30 00 fc 0a  |0.....E. #$10...|
000002f0  e8 08 42 45 51 20 43 4a  43 48 00 0a 0b f2 08 53  |..BEQ CJCH.....S|
00000300  54 41 20 43 4c 49 43 4b  00 1d 0b fc 08 43 4a 43  |TA CLICK.....CJC|
00000310  48 20 4a 4d 50 20 24 45  41 33 31 00 30 0b 06 09  |H JMP $EA31.0...|
00000320  4c 45 46 54 4b 20 4a 53  52 20 4c 45 46 54 00 3c  |LEFTK JSR LEFT.<|
00000330  0b 10 09 4a 4d 50 20 4c  4b 43 00 51 0b 1a 09 52  |...JMP LKC.Q...R|
00000340  49 47 48 54 4b 20 4a 53  52 20 52 49 47 48 54 00  |IGHTK JSR RIGHT.|
00000350  5d 0b 24 09 4a 4d 50 20  52 4b 43 00 6c 0b 2e 09  |].$.JMP RKC.l...|
00000360  55 50 4b 20 4a 53 52 20  55 50 00 79 0b 38 09 4a  |UPK JSR UP.y.8.J|
00000370  4d 50 20 55 50 4b 43 00  8c 0b 42 09 44 4f 57 4e  |MP UPKC...B.DOWN|
00000380  4b 20 4a 53 52 20 44 4f  57 4e 00 98 0b 4c 09 4a  |K JSR DOWN...L.J|
00000390  4d 50 20 44 4b 43 00 a7  0b 56 09 55 50 4a 20 4a  |MP DKC...V.UPJ J|
000003a0  53 52 20 55 50 00 b3 0b  60 09 4a 4d 50 20 55 4a  |SR UP...`.JMP UJ|
000003b0  43 00 c6 0b 6a 09 44 4f  57 4e 4a 20 4a 53 52 20  |C...j.DOWNJ JSR |
000003c0  44 4f 57 4e 00 d2 0b 74  09 4a 4d 50 20 44 4a 43  |DOWN...t.JMP DJC|
000003d0  00 e5 0b 7e 09 4c 45 46  54 4a 20 4a 53 52 20 4c  |...~.LEFTJ JSR L|
000003e0  45 46 54 00 f1 0b 88 09  4a 4d 50 20 4c 4a 43 00  |EFT.....JMP LJC.|
000003f0  06 0c 92 09 52 49 47 48  54 4a 20 4a 53 52 20 52  |....RIGHTJ JSR R|
00000400  49 47 48 54 00 12 0c 9c  09 4a 4d 50 20 52 4a 43  |IGHT.....JMP RJC|
00000410  00 22 0c a6 09 4c 45 46  54 20 44 45 43 20 58 50  |."...LEFT DEC XP|
00000420  00 2d 0c b0 09 4c 44 41  20 58 50 00 3a 0c ba 09  |.-...LDA XP.:...|
00000430  43 4d 50 20 23 24 46 46  00 46 0c c4 09 42 4e 45  |CMP #$FF.F...BNE|
00000440  20 a8 46 46 00 53 0c ce  09 4c 44 59 20 23 24 30  | .FF.S...LDY #$0|
00000450  30 00 5f 0c d8 09 53 54  59 20 58 50 42 00 6f 0c  |0._...STY XPB.o.|
00000460  e2 09 a8 46 46 20 4c 44  59 20 58 50 42 00 7b 0c  |...FF LDY XPB.{.|
00000470  ec 09 42 4e 45 20 46 49  4e 00 88 0c f6 09 43 4d  |..BNE FIN.....CM|
00000480  50 20 23 24 31 38 00 94  0c 00 0a 42 4e 45 20 46  |P #$18.....BNE F|
00000490  49 4e 00 9f 0c 0a 0a 49  4e 43 20 58 50 00 b0 0c  |IN.....INC XP...|
000004a0  14 0a 46 49 4e 20 4a 4d  50 20 9a 52 4f 4c 00 c1  |..FIN JMP .ROL..|
000004b0  0c 1e 0a 52 49 47 48 54  20 49 4e 43 20 58 50 00  |...RIGHT INC XP.|
000004c0  cc 0c 28 0a 4c 44 41 20  58 50 00 d8 0c 32 0a 42  |..(.LDA XP...2.B|
000004d0  4e 45 20 a8 30 30 00 e5  0c 3c 0a 4c 44 59 20 23  |NE .00...<.LDY #|
000004e0  24 30 31 00 f1 0c 46 0a  53 54 59 20 58 50 42 00  |$01...F.STY XPB.|
000004f0  01 0d 50 0a a8 30 30 20  4c 44 59 20 58 50 42 00  |..P..00 LDY XPB.|
00000500  0d 0d 5a 0a 42 45 51 20  46 49 4e 00 1a 0d 64 0a  |..Z.BEQ FIN...d.|
00000510  43 4d 50 20 23 24 35 38  00 26 0d 6e 0a 42 4e 45  |CMP #$58.&.n.BNE|
00000520  20 46 49 4e 00 31 0d 78  0a 44 45 43 20 58 50 00  | FIN.1.x.DEC XP.|
00000530  3e 0d 82 0a 4a 4d 50 20  9a 52 4f 4c 00 4c 0d 8c  |>...JMP .ROL.L..|
00000540  0a 55 50 20 44 45 43 20  59 50 00 57 0d 91 0a 4c  |.UP DEC YP.W...L|
00000550  44 41 20 59 50 00 64 0d  96 0a 43 4d 50 20 23 24  |DA YP.d...CMP #$|
00000560  33 32 00 70 0d 9b 0a 42  4e 45 20 46 49 4e 00 7b  |32.p...BNE FIN.{|
00000570  0d a0 0a 49 4e 43 20 59  50 00 88 0d aa 0a 4a 4d  |...INC YP.....JM|
00000580  50 20 9a 52 4f 4c 00 98  0d b4 0a 44 4f 57 4e 20  |P .ROL.....DOWN |
00000590  49 4e 43 20 59 50 00 a3  0d be 0a 4c 44 41 20 59  |INC YP.....LDA Y|
000005a0  50 00 b0 0d c8 0a 43 4d  50 20 23 24 46 38 00 bc  |P.....CMP #$F8..|
000005b0  0d d2 0a 42 4e 45 20 46  49 4e 00 c7 0d dc 0a 44  |...BNE FIN.....D|
000005c0  45 43 20 59 50 00 d4 0d  e6 0a 4a 4d 50 20 9a 52  |EC YP.....JMP .R|
000005d0  4f 4c 00 e7 0d f0 0a 3b  20 57 49 4d 50 20 ab 20  |OL.....; WIMP . |
000005e0  50 4f b5 45 52 00 f9 0d  f3 0a 9a 52 4f 4c 20 4c  |PO.ER......ROL L|
000005f0  44 41 20 48 4f 55 52 00  08 0e f6 0a 42 4e 45 20  |DA HOUR.....BNE |
00000600  48 47 4c 41 53 53 00 13  0e fa 0a 4c 44 41 20 58  |HGLASS.....LDA X|
00000610  50 00 20 0e 04 0b 43 4d  50 20 23 24 32 38 00 2e  |P. ...CMP #$28..|
00000620  0e 0e 0b 42 43 43 20 4e  53 51 55 50 00 3b 0e 18  |...BCC NSQUP.;..|
00000630  0b 43 4d 50 20 23 24 46  38 00 49 0e 22 0b 42 43  |.CMP #$F8.I.".BC|
00000640  53 20 4e 53 51 55 50 00  55 0e 2c 0b 4c 44 41 20  |S NSQUP.U.,.LDA |
00000650  58 50 42 00 63 0e 36 0b  42 4e 45 20 4e 53 51 55  |XPB.c.6.BNE NSQU|
00000660  50 00 6e 0e 40 0b 4c 44  41 20 59 50 00 7b 0e 4a  |P.n.@.LDA YP.{.J|
00000670  0b 43 4d 50 20 23 24 34  32 00 89 0e 54 0b 42 43  |.CMP #$42...T.BC|
00000680  43 20 4e 53 51 55 50 00  96 0e 5e 0b 43 4d 50 20  |C NSQUP...^.CMP |
00000690  23 24 43 31 00 a4 0e 68  0b 42 43 53 20 4e 53 51  |#$C1...h.BCS NSQ|
000006a0  55 50 00 af 0e 72 0b 4c  44 41 20 58 50 00 ba 0e  |UP...r.LDA XP...|
000006b0  7c 0b af 20 23 24 46 38  00 c8 0e 86 0b 53 54 41  ||.. #$F8.....STA|
000006c0  20 24 44 30 30 30 00 d3  0e 9a 0b 4c 44 41 20 59  | $D000.....LDA Y|
000006d0  50 00 de 0e a4 0b af 20  23 24 46 38 00 ea 0e a9  |P...... #$F8....|
000006e0  0b b0 41 20 23 24 30 32  00 f8 0e b8 0b 53 54 41  |..A #$02.....STA|
000006f0  20 24 44 30 30 31 00 06  0f b9 0b 4c 44 41 20 24  | $D001.....LDA $|
00000700  44 30 31 30 00 11 0f ba  0b af 20 23 24 46 43 00  |D010...... #$FC.|
00000710  1f 0f bc 0b 53 54 41 20  24 44 30 31 30 00 2c 0f  |....STA $D010.,.|
00000720  bd 0b 4c 44 41 20 23 24  39 32 00 3a 0f be 0b 53  |..LDA #$92.:...S|
00000730  54 41 20 24 36 33 46 38  00 48 0f bf 0b 4c 44 41  |TA $63F8.H...LDA|
00000740  20 24 44 30 31 35 00 53  0f c0 0b af 20 23 24 46  | $D015.S.... #$F|
00000750  43 00 5f 0f c1 0b b0 41  20 23 24 30 31 00 6d 0f  |C._....A #$01.m.|
00000760  c2 0b 53 54 41 20 24 44  30 31 35 00 7a 0f ca 0b  |..STA $D015.z...|
00000770  4c 44 41 20 23 24 30 31  00 88 0f cb 0b 53 54 41  |LDA #$01.....STA|
00000780  20 24 44 30 32 37 00 90  0f cc 0b 52 54 53 00 a4  | $D027.....RTS..|
00000790  0f ce 0b 48 47 4c 41 53  53 20 4c 44 58 20 23 24  |...HGLASS LDX #$|
000007a0  39 33 00 b2 0f d0 0b 53  54 58 20 24 36 33 46 38  |93.....STX $63F8|
000007b0  00 ba 0f d2 0b 49 4e 58  00 c8 0f d4 0b 53 54 58  |.....INX.....STX|
000007c0  20 24 36 33 46 39 00 d9  0f d6 0b 4e 53 51 55 50  | $63F9.....NSQUP|
000007d0  20 4c 44 41 20 58 50 00  e7 0f e0 0b 53 54 41 20  | LDA XP.....STA |
000007e0  24 44 30 30 30 00 f5 0f  ea 0b 53 54 41 20 24 44  |$D000.....STA $D|
000007f0  30 30 32 00 00 10 f4 0b  4c 44 41 20 59 50 00 0e  |002.....LDA YP..|
00000800  10 fe 0b 53 54 41 20 24  44 30 30 31 00 1c 10 08  |...STA $D001....|
00000810  0c 53 54 41 20 24 44 30  30 33 00 2a 10 12 0c 4c  |.STA $D003.*...L|
00000820  44 41 20 24 44 30 31 30  00 35 10 1c 0c af 20 23  |DA $D010.5.... #|
00000830  24 46 43 00 3f 10 26 0c  4c 53 52 20 41 00 47 10  |$FC.?.&.LSR A.G.|
00000840  30 0c 43 4c 43 00 53 10  3a 0c 41 44 43 20 58 50  |0.CLC.S.:.ADC XP|
00000850  42 00 5d 10 44 0c 41 53  4c 20 41 00 65 10 4e 0c  |B.].D.ASL A.e.N.|
00000860  43 4c 43 00 71 10 58 0c  41 44 43 20 58 50 42 00  |CLC.q.X.ADC XPB.|
00000870  7f 10 62 0c 53 54 41 20  24 44 30 31 30 00 8c 10  |..b.STA $D010...|
00000880  6c 0c 4c 44 41 20 23 24  30 30 00 9a 10 76 0c 53  |l.LDA #$00...v.S|
00000890  54 41 20 24 44 30 32 37  00 a7 10 80 0c 4c 44 41  |TA $D027.....LDA|
000008a0  20 23 24 30 31 00 b5 10  8a 0c 53 54 41 20 24 44  | #$01.....STA $D|
000008b0  30 32 38 00 c3 10 94 0c  4c 44 41 20 24 44 30 31  |028.....LDA $D01|
000008c0  35 00 cf 10 9e 0c b0 41  20 23 24 30 33 00 dd 10  |5......A #$03...|
000008d0  a8 0c 53 54 41 20 24 44  30 31 35 00 ea 10 ab 0c  |..STA $D015.....|
000008e0  4c 44 41 20 48 4f 55 52  00 f7 10 ae 0c 42 4e 45  |LDA HOUR.....BNE|
000008f0  20 51 54 52 4f 00 04 11  b2 0c 4c 44 41 20 23 24  | QTRO.....LDA #$|
00000900  39 30 00 12 11 bc 0c 53  54 41 20 24 36 33 46 38  |90.....STA $63F8|
00000910  00 1f 11 c6 0c 4c 44 41  20 23 24 39 31 00 2d 11  |.....LDA #$91.-.|
00000920  d0 0c 53 54 41 20 24 36  33 46 39 00 3a 11 da 0c  |..STA $63F9.:...|
00000930  51 54 52 4f 20 52 54 53  00 51 11 e4 0c 3b 20 53  |QTRO RTS.Q...; S|
00000940  54 41 52 54 55 50 20 52  4f 55 54 49 4e 45 53 00  |TARTUP ROUTINES.|
00000950  61 11 e6 0c 53 52 20 4c  44 41 20 23 24 38 42 00  |a...SR LDA #$8B.|
00000960  6f 11 ea 0c 53 54 41 20  24 44 30 31 31 00 7d 11  |o...STA $D011.}.|
00000970  ee 0c 4c 44 41 20 24 44  44 30 32 00 89 11 f0 0c  |..LDA $DD02.....|
00000980  b0 41 20 23 24 30 32 00  97 11 f2 0c 53 54 41 20  |.A #$02.....STA |
00000990  24 44 44 30 32 00 a5 11  f4 0c 4c 44 41 20 24 44  |$DD02.....LDA $D|
000009a0  44 30 30 00 b0 11 f8 0c  af 20 23 24 46 45 00 bc  |D00...... #$FE..|
000009b0  11 02 0d b0 41 20 23 24  30 32 00 ca 11 0c 0d 53  |....A #$02.....S|
000009c0  54 41 20 24 44 44 30 30  00 d7 11 0f 0d 4c 44 41  |TA $DD00.....LDA|
000009d0  20 23 24 30 30 00 e5 11  12 0d 53 54 41 20 24 44  | #$00.....STA $D|
000009e0  30 32 30 00 f3 11 14 0d  53 54 41 20 24 44 30 32  |020.....STA $D02|
000009f0  31 00 00 12 16 0d 4c 44  41 20 23 24 38 36 00 0e  |1.....LDA #$86..|
00000a00  12 20 0d 53 54 41 20 24  44 30 31 38 00 1b 12 22  |. .STA $D018..."|
00000a10  0d 4c 44 41 20 23 24 30  30 00 29 12 25 0d 53 54  |.LDA #$00.).%.ST|
00000a20  41 20 24 44 30 30 30 00  36 12 26 0d 4c 44 41 20  |A $D000.6.&.LDA |
00000a30  23 24 30 42 00 44 12 28  0d 53 54 41 20 24 44 30  |#$0B.D.(.STA $D0|
00000a40  30 31 00 51 12 2d 0d 4c  44 41 20 23 24 31 30 00  |01.Q.-.LDA #$10.|
00000a50  5f 12 2e 0d 53 54 41 20  24 44 30 30 38 00 6c 12  |_...STA $D008.l.|
00000a60  2f 0d 4c 44 41 20 23 24  33 41 00 7a 12 30 0d 53  |/.LDA #$3A.z.0.S|
00000a70  54 41 20 24 44 30 30 39  00 87 12 31 0d 4c 44 41  |TA $D009...1.LDA|
00000a80  20 23 24 31 30 00 95 12  32 0d 53 54 41 20 24 44  | #$10...2.STA $D|
00000a90  30 31 30 00 a2 12 33 0d  4c 44 41 20 23 24 30 31  |010...3.LDA #$01|
00000aa0  00 b0 12 34 0d 53 54 41  20 24 44 30 32 39 00 be  |...4.STA $D029..|
00000ab0  12 35 0d 53 54 41 20 24  44 30 32 42 00 cb 12 36  |.5.STA $D02B...6|
00000ac0  0d 4c 44 41 20 23 24 30  30 00 d9 12 37 0d 53 54  |.LDA #$00...7.ST|
00000ad0  41 20 24 44 30 32 41 00  e7 12 39 0d 53 54 41 20  |A $D02A...9.STA |
00000ae0  53 43 48 41 52 00 f4 12  3c 0d 4c 44 41 20 23 24  |SCHAR...<.LDA #$|
00000af0  30 31 00 01 13 3d 0d 4c  44 58 20 23 24 30 38 00  |01...=.LDX #$08.|
00000b00  09 13 3e 0d 54 41 59 00  17 13 48 0d 4a 53 52 20  |..>.TAY...H.JSR |
00000b10  24 46 46 42 41 00 24 13  52 0d 4c 44 41 20 23 24  |$FFBA.$.R.LDA #$|
00000b20  30 43 00 35 13 5c 0d 4c  44 58 20 23 b3 45 47 52  |0C.5.\.LDX #.EGR|
00000b30  54 58 54 00 46 13 66 0d  4c 44 59 20 23 b1 45 47  |TXT.F.f.LDY #.EG|
00000b40  52 54 58 54 00 54 13 7a  0d 4a 53 52 20 24 46 46  |RTXT.T.z.JSR $FF|
00000b50  42 44 00 61 13 84 0d 4c  44 41 20 23 24 30 30 00  |BD.a...LDA #$00.|
00000b60  6f 13 8e 0d 4a 53 52 20  24 46 46 44 35 00 7c 13  |o...JSR $FFD5.|.|
00000b70  8f 0d 4c 44 41 20 23 24  30 31 00 89 13 90 0d 4c  |..LDA #$01.....L|
00000b80  44 58 20 23 24 30 38 00  91 13 91 0d 54 41 59 00  |DX #$08.....TAY.|
00000b90  9f 13 92 0d 4a 53 52 20  24 46 46 42 41 00 ac 13  |....JSR $FFBA...|
00000ba0  93 0d 4c 44 41 20 23 24  30 38 00 bc 13 94 0d 4c  |..LDA #$08.....L|
00000bb0  44 58 20 23 b3 45 43 54  58 54 00 cc 13 95 0d 4c  |DX #.ECTXT.....L|
00000bc0  44 59 20 23 b1 45 43 54  58 54 00 da 13 96 0d 4a  |DY #.ECTXT.....J|
00000bd0  53 52 20 24 46 46 42 44  00 e7 13 97 0d 4c 44 41  |SR $FFBD.....LDA|
00000be0  20 23 24 30 30 00 f5 13  98 0d 4a 53 52 20 24 46  | #$00.....JSR $F|
00000bf0  46 44 35 00 02 14 99 0d  4c 44 41 20 23 24 39 42  |FD5.....LDA #$9B|
00000c00  00 10 14 9a 0d 53 54 41  20 24 44 30 31 31 00 1d  |.....STA $D011..|
00000c10  14 9b 0d 4c 44 41 20 23  24 30 30 00 2b 14 9d 0d  |...LDA #$00.+...|
00000c20  53 54 41 20 42 55 54 4e  4f 00 38 14 9f 0d 4c 44  |STA BUTNO.8...LD|
00000c30  41 20 23 24 39 32 00 46  14 a2 0d 53 54 41 20 24  |A #$92.F...STA $|
00000c40  36 33 46 43 00 4e 14 ac  0d 53 45 49 00 5b 14 b6  |63FC.N...SEI.[..|
00000c50  0d 4c 44 41 20 23 24 30  30 00 69 14 c0 0d 53 54  |.LDA #$00.i...ST|
00000c60  41 20 24 30 33 31 34 00  76 14 ca 0d 4c 44 41 20  |A $0314.v...LDA |
00000c70  23 24 43 30 00 84 14 d4  0d 53 54 41 20 24 30 33  |#$C0.....STA $03|
00000c80  31 35 00 8c 14 de 0d 43  4c 49 00 99 14 e8 0d 4c  |15.....CLI.....L|
00000c90  44 41 20 23 24 30 30 00  a4 14 f2 0d 53 54 41 20  |DA #$00.....STA |
00000ca0  58 50 00 b1 14 fc 0d 53  54 41 20 48 4f 55 52 00  |XP.....STA HOUR.|
00000cb0  be 14 06 0e 4c 44 41 20  23 24 38 30 00 c9 14 10  |....LDA #$80....|
00000cc0  0e 53 54 41 20 59 50 00  d6 14 1a 0e 4c 44 41 20  |.STA YP.....LDA |
00000cd0  23 24 30 31 00 e2 14 24  0e 53 54 41 20 58 50 42  |#$01...$.STA XPB|
00000ce0  00 ef 14 25 0e 4c 44 41  20 23 24 31 43 00 fd 14  |...%.LDA #$1C...|
00000cf0  26 0e 53 54 41 20 24 44  30 31 35 00 0a 15 27 0e  |&.STA $D015...'.|
00000d00  4a 53 52 20 4c 45 46 54  00 17 15 28 0e 4c 44 41  |JSR LEFT...(.LDA|
00000d10  20 23 24 30 30 00 25 15  29 0e 53 54 41 20 24 44  | #$00.%.).STA $D|
00000d20  30 30 34 00 33 15 2a 0e  53 54 41 20 24 44 30 30  |004.3.*.STA $D00|
00000d30  36 00 40 15 2b 0e 4c 44  41 20 23 24 44 39 00 4e  |6.@.+.LDA #$D9.N|
00000d40  15 2c 0e 53 54 41 20 24  44 30 30 35 00 5c 15 2d  |.,.STA $D005.\.-|
00000d50  0e 53 54 41 20 24 44 30  30 37 00 69 15 2e 0e 4c  |.STA $D007.i...L|
00000d60  44 41 20 23 24 39 35 00  77 15 30 0e 53 54 41 20  |DA #$95.w.0.STA |
00000d70  24 36 33 46 42 00 84 15  32 0e 4c 44 41 20 23 24  |$63FB...2.LDA #$|
00000d80  30 38 00 92 15 33 0e 53  54 41 20 24 44 30 31 43  |08...3.STA $D01C|
00000d90  00 9f 15 34 0e 4c 44 41  20 23 24 31 38 00 ad 15  |...4.LDA #$18...|
00000da0  35 0e 53 54 41 20 24 44  30 31 36 00 c3 15 37 0e  |5.STA $D016...7.|
00000db0  42 55 54 30 20 4a 53 52  20 42 55 54 43 48 45 43  |BUT0 JSR BUTCHEC|
00000dc0  4b 00 d0 15 38 0e 4a 4d  50 20 42 55 54 30 00 ee  |K...8.JMP BUT0..|
00000dd0  15 42 0e 45 47 52 54 58  54 20 54 58 54 20 22 45  |.B.EGRTXT TXT "E|
00000de0  44 49 54 47 52 41 50 48  49 43 53 22 00 07 16 44  |DITGRAPHICS"...D|
00000df0  0e 45 43 54 58 54 20 54  58 54 20 22 45 44 49 54  |.ECTXT TXT "EDIT|
00000e00  43 4f 4c 53 22 00 1a 16  47 0e 42 43 51 55 20 4a  |COLS"...G.BCQU J|
00000e10  4d 50 20 53 4c 45 43 54  00 28 16 49 0e 42 43 4e  |MP SLECT.(.I.BCN|
00000e20  43 51 20 52 54 53 00 3f  16 4c 0e 42 55 54 43 48  |CQ RTS.?.L.BUTCH|
00000e30  45 43 4b 20 4c 44 41 20  43 4c 49 43 4b 00 4d 16  |ECK LDA CLICK.M.|
00000e40  56 0e 42 45 51 20 42 43  4e 43 51 00 58 16 60 0e  |V.BEQ BCNCQ.X.`.|
00000e50  4c 44 41 20 59 50 00 65  16 62 0e 43 4d 50 20 23  |LDA YP.e.b.CMP #|
00000e60  24 44 39 00 72 16 64 0e  42 43 43 20 42 43 51 55  |$D9.r.d.BCC BCQU|
00000e70  00 7e 16 65 0e 4c 44 41  20 58 50 42 00 8b 16 66  |.~.e.LDA XPB...f|
00000e80  0e 42 4e 45 20 58 42 53  52 00 96 16 67 0e 4c 44  |.BNE XBSR...g.LD|
00000e90  41 20 58 50 00 a3 16 68  0e 43 4d 50 20 23 24 32  |A XP...h.CMP #$2|
00000ea0  38 00 b0 16 69 0e 42 43  43 20 42 43 51 55 00 be  |8...i.BCC BCQU..|
00000eb0  16 6c 0e 4c 44 41 20 24  44 30 31 30 00 c9 16 6e  |.l.LDA $D010...n|
00000ec0  0e af 20 23 24 46 33 00  d7 16 70 0e 53 54 41 20  |.. #$F3...p.STA |
00000ed0  24 44 30 31 30 00 e2 16  72 0e 4c 44 41 20 58 50  |$D010...r.LDA XP|
00000ee0  00 ef 16 74 0e 43 4d 50  20 23 24 32 38 00 fc 16  |...t.CMP #$28...|
00000ef0  7e 0e 42 43 43 20 42 43  51 55 00 09 17 92 0e 4a  |~.BCC BCQU.....J|
00000f00  4d 50 20 42 43 4f 4b 00  19 17 9c 0e 58 42 53 52  |MP BCOK.....XBSR|
00000f10  20 4c 44 41 20 58 50 00  26 17 a6 0e 43 4d 50 20  | LDA XP.&...CMP |
00000f20  23 24 34 34 00 33 17 b0  0e 42 43 53 20 42 43 51  |#$44.3...BCS BCQ|
00000f30  55 00 41 17 b1 0e 4c 44  41 20 24 44 30 31 30 00  |U.A...LDA $D010.|
00000f40  4d 17 b2 0e b0 41 20 23  24 30 43 00 5b 17 b3 0e  |M....A #$0C.[...|
00000f50  53 54 41 20 24 44 30 31  30 00 6b 17 ba 0e 42 43  |STA $D010.k...BC|
00000f60  4f 4b 20 4c 44 41 20 58  50 00 77 17 bc 0e 4c 44  |OK LDA XP.w...LD|
00000f70  58 20 58 50 42 00 84 17  bf 0e 42 4e 45 20 42 43  |X XPB.....BNE BC|
00000f80  54 43 00 8c 17 c4 0e 53  45 43 00 99 17 ce 0e 53  |TC.....SEC.....S|
00000f90  42 43 20 23 24 32 38 00  ab 17 d8 0e 42 43 54 43  |BC #$28.....BCTC|
00000fa0  20 4c 44 58 20 23 24 46  46 00 b9 17 e2 0e 42 43  | LDX #$FF.....BC|
00000fb0  4c 50 41 20 49 4e 58 00  c1 17 ec 0e 53 45 43 00  |LPA INX.....SEC.|
00000fc0  ce 17 f6 0e 53 42 43 20  23 24 31 38 00 db 17 00  |....SBC #$18....|
00000fd0  0f 43 4d 50 20 23 24 45  38 00 e9 17 0a 0f 42 43  |.CMP #$E8.....BC|
00000fe0  43 20 42 43 4c 50 41 00  f1 17 14 0f 54 58 41 00  |C BCLPA.....TXA.|
00000ff0  fd 17 1e 0f 4c 44 59 20  58 50 42 00 09 18 28 0f  |....LDY XPB...(.|
00001000  42 45 51 20 4e 41 4f 00  11 18 32 0f 43 4c 43 00  |BEQ NAO...2.CLC.|
00001010  1e 18 3c 0f 41 44 43 20  23 24 30 39 00 30 18 46  |..<.ADC #$09.0.F|
00001020  0f 4e 41 4f 20 53 54 41  20 42 55 54 4e 4f 00 3a  |.NAO STA BUTNO.:|
00001030  18 50 0f 41 53 4c 20 41  00 44 18 5a 0f 41 53 4c  |.P.ASL A.D.Z.ASL|
00001040  20 41 00 4e 18 64 0f 41  53 4c 20 41 00 5a 18 6e  | A.N.d.ASL A.Z.n|
00001050  0f 53 54 41 20 24 30 32  00 62 18 78 0f 43 4c 43  |.STA $02.b.x.CLC|
00001060  00 6e 18 82 0f 41 44 43  20 24 30 32 00 7a 18 8c  |.n...ADC $02.z..|
00001070  0f 41 44 43 20 24 30 32  00 87 18 91 0f 41 44 43  |.ADC $02.....ADC|
00001080  20 23 24 32 38 00 95 18  96 0f 53 54 41 20 24 44  | #$28.....STA $D|
00001090  30 30 34 00 a3 18 a0 0f  53 54 41 20 24 44 30 30  |004.....STA $D00|
000010a0  36 00 b0 18 aa 0f 4c 44  41 20 23 24 39 36 00 b8  |6.....LDA #$96..|
000010b0  18 ac 0f 43 4c 43 00 c6  18 b0 0f 41 44 43 20 42  |...CLC.....ADC B|
000010c0  55 54 4e 4f 00 d4 18 b4  0f 53 54 41 20 24 36 33  |UTNO.....STA $63|
000010d0  46 41 00 dc 18 be 0f 50  4c 41 00 e4 18 c8 0f 50  |FA.....PLA.....P|
000010e0  4c 41 00 f1 18 d2 0f 4c  44 41 20 23 24 43 46 00  |LA.....LDA #$CF.|
000010f0  fe 18 dc 0f 53 54 41 20  56 45 aa 32 00 0c 19 e6  |....STA VE.2....|
00001100  0f 4c 44 41 20 42 55 54  4e 4f 00 16 19 f0 0f 41  |.LDA BUTNO.....A|
00001110  53 4c 20 41 00 1e 19 f3  0f 43 4c 43 00 2b 19 f6  |SL A.....CLC.+..|
00001120  0f 41 44 43 20 23 24 38  30 00 38 19 fa 0f 53 54  |.ADC #$80.8...ST|
00001130  41 20 56 45 aa 31 00 46  19 fc 0f 4c 44 41 20 23  |A VE.1.F...LDA #|
00001140  b1 56 45 43 00 4e 19 fe  0f 50 48 41 00 5e 19 00  |.VEC.N...PHA.^..|
00001150  10 4c 44 41 20 23 b3 56  45 43 ab 31 00 66 19 02  |.LDA #.VEC.1.f..|
00001160  10 50 48 41 00 79 19 04  10 56 45 20 4a 4d 50 20  |.PHA.y...VE JMP |
00001170  28 24 30 30 30 30 29 00  8a 19 0e 10 56 45 43 20  |($0000).....VEC |
00001180  4c 44 41 20 56 45 aa 31  00 92 19 18 10 43 4c 43  |LDA VE.1.....CLC|
00001190  00 9f 19 22 10 41 44 43  20 23 24 32 30 00 ac 19  |...".ADC #$20...|
000011a0  2c 10 53 54 41 20 50 48  aa 31 00 b9 19 36 10 4c  |,.STA PH.1...6.L|
000011b0  44 41 20 23 24 43 46 00  c6 19 40 10 53 54 41 20  |DA #$CF...@.STA |
000011c0  50 48 aa 32 00 d9 19 4a  10 50 48 20 4a 4d 50 20  |PH.2...J.PH JMP |
000011d0  28 24 30 30 30 30 29 00  e8 19 54 10 53 4c 45 43  |($0000)...T.SLEC|
000011e0  54 51 20 52 54 53 00 fa  19 5e 10 53 4c 45 43 54  |TQ RTS...^.SLECT|
000011f0  20 4c 44 41 20 58 50 42  00 09 1a 68 10 42 45 51  | LDA XPB...h.BEQ|
00001200  20 53 4c 45 43 54 51 00  14 1a 72 10 4c 44 41 20  | SLECTQ...r.LDA |
00001210  58 50 00 21 1a 7c 10 43  4d 50 20 23 24 31 30 00  |XP.!.|.CMP #$10.|
00001220  30 1a 86 10 42 43 43 20  53 4c 45 43 54 51 00 3d  |0...BCC SLECTQ.=|
00001230  1a 90 10 43 4d 50 20 23  24 35 30 00 4c 1a 9a 10  |...CMP #$50.L...|
00001240  42 43 53 20 53 4c 45 43  54 51 00 57 1a a4 10 4c  |BCS SLECTQ.W...L|
00001250  44 41 20 59 50 00 64 1a  ae 10 43 4d 50 20 23 24  |DA YP.d...CMP #$|
00001260  33 41 00 73 1a b8 10 42  43 43 20 53 4c 45 43 54  |3A.s...BCC SLECT|
00001270  51 00 80 1a c2 10 43 4d  50 20 23 24 43 41 00 8f  |Q.....CMP #$CA..|
00001280  1a cc 10 42 43 53 20 53  4c 45 43 54 51 00 9a 1a  |...BCS SLECTQ...|
00001290  d6 10 4c 44 41 20 58 50  00 a5 1a e0 10 af 20 23  |..LDA XP...... #|
000012a0  24 46 38 00 ad 1a ea 10  54 41 58 00 b8 1a f4 10  |$F8.....TAX.....|
000012b0  4c 44 41 20 59 50 00 c3  1a fe 10 af 20 23 24 46  |LDA YP...... #$F|
000012c0  38 00 cf 1a 00 11 b0 41  20 23 24 30 32 00 d7 1a  |8......A #$02...|
000012d0  08 11 54 41 59 00 e4 1a  12 11 43 4d 50 20 23 24  |..TAY.....CMP #$|
000012e0  42 41 00 f3 1a 1c 11 42  45 51 20 53 4c 45 43 54  |BA.....BEQ SLECT|
000012f0  51 00 01 1b 26 11 42 43  53 20 53 4c 43 4e 54 00  |Q...&.BCS SLCNT.|
00001300  0e 1b 30 11 43 50 58 20  23 24 33 30 00 1d 1b 3a  |..0.CPX #$30...:|
00001310  11 42 45 51 20 53 4c 45  43 54 51 00 31 1b 44 11  |.BEQ SLECTQ.1.D.|
00001320  53 4c 43 4e 54 20 53 54  58 20 24 44 30 30 38 00  |SLCNT STX $D008.|
00001330  3f 1b 4e 11 53 54 59 20  24 44 30 30 39 00 4c 1b  |?.N.STY $D009.L.|
00001340  58 11 43 50 59 20 23 24  42 41 00 5a 1b 62 11 42  |X.CPY #$BA.Z.b.B|
00001350  43 53 20 43 41 4c 43 32  00 62 1b 6c 11 54 58 41  |CS CALC2.b.l.TXA|
00001360  00 6f 1b 76 11 43 4d 50  20 23 24 33 30 00 7d 1b  |.o.v.CMP #$30.}.|
00001370  80 11 42 43 43 20 43 41  4c 43 31 00 85 1b 8a 11  |..BCC CALC1.....|
00001380  53 45 43 00 92 1b 94 11  53 42 43 20 23 24 30 38  |SEC.....SBC #$08|
00001390  00 a0 1b 9e 11 43 41 4c  43 31 20 53 45 43 00 ad  |.....CALC1 SEC..|
000013a0  1b a8 11 53 42 43 20 23  24 31 30 00 b7 1b ad 11  |...SBC #$10.....|
000013b0  41 53 4c 20 41 00 c3 1b  b2 11 53 54 41 20 24 30  |ASL A.....STA $0|
000013c0  32 00 cb 1b bc 11 54 59  41 00 d3 1b c6 11 53 45  |2.....TYA.....SE|
000013d0  43 00 e0 1b d0 11 53 42  43 20 23 24 33 41 00 ea  |C.....SBC #$3A..|
000013e0  1b da 11 4c 53 52 20 41  00 f4 1b e4 11 4c 53 52  |...LSR A.....LSR|
000013f0  20 41 00 fe 1b ee 11 4c  53 52 20 41 00 06 1c f8  | A.....LSR A....|
00001400  11 43 4c 43 00 12 1c 02  12 41 44 43 20 24 30 32  |.CLC.....ADC $02|
00001410  00 20 1c 0c 12 53 54 41  20 53 43 48 41 52 00 28  |. ...STA SCHAR.(|
00001420  1c 16 12 52 54 53 00 36  1c 20 12 43 41 4c 43 32  |...RTS.6. .CALC2|
00001430  20 54 58 41 00 3e 1c 2a  12 53 45 43 00 4b 1c 34  | TXA.>.*.SEC.K.4|
00001440  12 53 42 43 20 23 24 31  30 00 55 1c 3e 12 4c 53  |.SBC #$10.U.>.LS|
00001450  52 20 41 00 5f 1c 48 12  4c 53 52 20 41 00 69 1c  |R A._.H.LSR A.i.|
00001460  52 12 4c 53 52 20 41 00  76 1c 5c 12 43 50 59 20  |R.LSR A.v.\.CPY |
00001470  23 24 43 32 00 85 1c 66  12 42 45 51 20 43 41 4c  |#$C2...f.BEQ CAL|
00001480  43 32 43 00 8d 1c 70 12  43 4c 43 00 9a 1c 7a 12  |C2C...p.CLC...z.|
00001490  41 44 43 20 23 24 30 38  00 a9 1c 84 12 43 41 4c  |ADC #$08.....CAL|
000014a0  43 32 43 20 43 4c 43 00  b6 1c 8e 12 41 44 43 20  |C2C CLC.....ADC |
000014b0  23 24 37 30 00 c4 1c 98  12 53 54 41 20 53 43 48  |#$70.....STA SCH|
000014c0  41 52 00 cc 1c a2 12 52  54 53 00 de 1c c0 12 9c  |AR.....RTS......|
000014d0  53 43 52 20 4c 44 41 20  23 24 35 32 00 ea 1c ca  |SCR LDA #$52....|
000014e0  12 53 54 41 20 24 46 42  00 f7 1c d4 12 4c 44 41  |.STA $FB.....LDA|
000014f0  20 23 24 44 38 00 03 1d  de 12 53 54 41 20 24 46  | #$D8.....STA $F|
00001500  43 00 15 1d e8 12 4c 4f  50 41 20 4c 44 41 20 23  |C.....LOPA LDA #|
00001510  24 30 30 00 22 1d f2 12  4c 44 59 20 23 24 30 30  |$00."...LDY #$00|
00001520  00 37 1d fc 12 4c 4f 50  42 20 53 54 41 20 28 24  |.7...LOPB STA ($|
00001530  46 42 29 2c 59 00 3f 1d  06 13 49 4e 59 00 4c 1d  |FB),Y.?...INY.L.|
00001540  10 13 43 50 59 20 23 24  31 41 00 59 1d 1a 13 42  |..CPY #$1A.Y...B|
00001550  4e 45 20 4c 4f 50 42 00  65 1d 24 13 4c 44 41 20  |NE LOPB.e.$.LDA |
00001560  24 46 42 00 6d 1d 2e 13  43 4c 43 00 7a 1d 38 13  |$FB.m...CLC.z.8.|
00001570  41 44 43 20 23 24 32 38  00 86 1d 42 13 53 54 41  |ADC #$28...B.STA|
00001580  20 24 46 42 00 93 1d 4c  13 43 4d 50 20 23 24 44  | $FB...L.CMP #$D|
00001590  32 00 a2 1d 56 13 42 45  51 20 51 55 49 54 43 53  |2...V.BEQ QUITCS|
000015a0  00 af 1d 60 13 43 4d 50  20 23 24 32 38 00 bc 1d  |...`.CMP #$28...|
000015b0  6a 13 42 43 53 20 4c 4f  50 41 00 c8 1d 74 13 49  |j.BCS LOPA...t.I|
000015c0  4e 43 20 24 46 43 00 d5  1d 7e 13 4a 4d 50 20 4c  |NC $FC...~.JMP L|
000015d0  4f 50 41 00 e4 1d 88 13  51 55 49 54 43 53 20 52  |OPA.....QUITCS R|
000015e0  54 53 00 f9 1d 92 13 44  49 53 50 20 4a 53 52 20  |TS.....DISP JSR |
000015f0  53 43 52 44 49 53 50 00  07 1e 9c 13 4a 4d 50 20  |SCRDISP.....JMP |
00001600  43 d5 49 53 50 00 1c 1e  a6 13 53 43 52 44 49 53  |C.ISP.....SCRDIS|
00001610  50 20 4c 44 41 20 23 24  35 32 00 28 1e b0 13 53  |P LDA #$52.(...S|
00001620  54 41 20 24 46 42 00 35  1e ba 13 4c 44 41 20 23  |TA $FB.5...LDA #|
00001630  24 36 30 00 41 1e c4 13  53 54 41 20 24 46 43 00  |$60.A...STA $FC.|
00001640  4e 1e ce 13 4c 44 58 20  23 24 30 30 00 61 1e d8  |N...LDX #$00.a..|
00001650  13 4c 4f 50 41 44 20 4c  44 59 20 23 24 30 30 00  |.LOPAD LDY #$00.|
00001660  75 1e e2 13 4c 4f 50 42  44 20 4a 53 52 20 a1 43  |u...LOPBD JSR .C|
00001670  48 41 52 00 81 1e ec 13  b0 41 20 23 24 38 30 00  |HAR......A #$80.|
00001680  91 1e f6 13 53 54 41 20  28 24 46 42 29 2c 59 00  |....STA ($FB),Y.|
00001690  99 1e 00 14 49 4e 59 00  a6 1e 0a 14 43 50 59 20  |....INY.....CPY |
000016a0  23 24 31 41 00 b4 1e 14  14 42 4e 45 20 4c 4f 50  |#$1A.....BNE LOP|
000016b0  42 44 00 c0 1e 1e 14 4c  44 41 20 24 46 42 00 c8  |BD.....LDA $FB..|
000016c0  1e 28 14 43 4c 43 00 d5  1e 32 14 41 44 43 20 23  |.(.CLC...2.ADC #|
000016d0  24 32 38 00 e1 1e 3c 14  53 54 41 20 24 46 42 00  |$28...<.STA $FB.|
000016e0  e9 1e 46 14 49 4e 58 00  f6 1e 50 14 43 4d 50 20  |..F.INX...P.CMP |
000016f0  23 24 44 32 00 05 1f 5a  14 42 45 51 20 51 55 49  |#$D2...Z.BEQ QUI|
00001700  54 43 53 00 12 1f 64 14  43 4d 50 20 23 24 32 38  |TCS...d.CMP #$28|
00001710  00 20 1f 6e 14 42 43 53  20 4c 4f 50 41 44 00 2c  |. .n.BCS LOPAD.,|
00001720  1f 78 14 49 4e 43 20 24  46 43 00 3a 1f 82 14 4a  |.x.INC $FC.:...J|
00001730  4d 50 20 4c 4f 50 41 44  00 4d 1f 8c 14 43 d5 49  |MP LOPAD.M...C.I|
00001740  53 50 20 4c 44 41 20 23  24 35 32 00 59 1f 96 14  |SP LDA #$52.Y...|
00001750  53 54 41 20 24 46 42 00  66 1f a0 14 4c 44 41 20  |STA $FB.f...LDA |
00001760  23 24 44 38 00 72 1f aa  14 53 54 41 20 24 46 43  |#$D8.r...STA $FC|
00001770  00 7f 1f b4 14 4c 44 58  20 23 24 30 30 00 92 1f  |.....LDX #$00...|
00001780  be 14 4c 4f 50 43 44 20  4c 44 59 20 23 24 30 30  |..LOPCD LDY #$00|
00001790  00 a0 1f c8 14 4c 4f 50  44 44 20 54 58 41 00 a8  |.....LOPDD TXA..|
000017a0  1f d2 14 50 48 41 00 b6  1f dc 14 4a 53 52 20 a1  |...PHA.....JSR .|
000017b0  43 48 41 52 00 be 1f e6  14 54 41 58 00 ce 1f f0  |CHAR.....TAX....|
000017c0  14 4c 44 41 20 24 45 30  30 30 2c 58 00 de 1f fa  |.LDA $E000,X....|
000017d0  14 53 54 41 20 28 24 46  42 29 2c 59 00 e6 1f 04  |.STA ($FB),Y....|
000017e0  15 50 4c 41 00 ee 1f 0e  15 54 41 58 00 f6 1f 18  |.PLA.....TAX....|
000017f0  15 49 4e 59 00 03 20 22  15 43 50 59 20 23 24 31  |.INY.. ".CPY #$1|
00001800  41 00 11 20 2c 15 42 4e  45 20 4c 4f 50 44 44 00  |A.. ,.BNE LOPDD.|
00001810  1d 20 36 15 4c 44 41 20  24 46 42 00 25 20 40 15  |. 6.LDA $FB.% @.|
00001820  43 4c 43 00 32 20 4a 15  41 44 43 20 23 24 32 38  |CLC.2 J.ADC #$28|
00001830  00 3e 20 54 15 53 54 41  20 24 46 42 00 46 20 5e  |.> T.STA $FB.F ^|
00001840  15 49 4e 58 00 53 20 68  15 43 4d 50 20 23 24 44  |.INX.S h.CMP #$D|
00001850  32 00 62 20 72 15 42 45  51 20 51 55 49 54 43 53  |2.b r.BEQ QUITCS|
00001860  00 6f 20 7c 15 43 4d 50  20 23 24 32 38 00 7d 20  |.o |.CMP #$28.} |
00001870  86 15 42 43 53 20 4c 4f  50 43 44 00 89 20 90 15  |..BCS LOPCD.. ..|
00001880  49 4e 43 20 24 46 43 00  97 20 9a 15 4a 4d 50 20  |INC $FC.. ..JMP |
00001890  4c 4f 50 43 44 00 a9 20  a4 15 a1 43 48 41 52 20  |LOPCD.. ...CHAR |
000018a0  4c 44 41 20 58 53 50 00  b5 20 ae 15 53 54 41 20  |LDA XSP.. ..STA |
000018b0  24 46 44 00 bd 20 b8 15  54 58 41 00 c5 20 c2 15  |$FD.. ..TXA.. ..|
000018c0  43 4c 43 00 d1 20 cc 15  41 44 43 20 59 53 50 00  |CLC.. ..ADC YSP.|
000018d0  de 20 ce 15 41 44 43 20  23 24 30 34 00 eb 20 d0  |. ..ADC #$04.. .|
000018e0  15 43 4d 50 20 23 24 34  30 00 f7 20 d2 15 42 43  |.CMP #$40.. ..BC|
000018f0  43 20 47 43 43 00 ff 20  d3 15 43 4c 43 00 0c 21  |C GCC.. ..CLC..!|
00001900  d5 15 41 44 43 20 23 24  34 30 00 1c 21 d6 15 47  |..ADC #$40..!..G|
00001910  43 43 20 53 54 41 20 24  46 45 00 2c 21 e0 15 4c  |CC STA $FE.,!..L|
00001920  44 41 20 28 24 46 44 29  2c 59 00 34 21 ea 15 52  |DA ($FD),Y.4!..R|
00001930  54 53 00 41 21 f4 15 47  44 51 55 20 52 54 53 00  |TS.A!..GDQU RTS.|
00001940  53 21 fe 15 a1 44 49 52  20 4c 44 41 20 23 24 30  |S!...DIR LDA #$0|
00001950  30 00 61 21 08 16 4c 44  58 20 43 4c 49 43 4b 00  |0.a!..LDX CLICK.|
00001960  6e 21 12 16 42 45 51 20  47 44 51 55 00 79 21 1c  |n!..BEQ GDQU.y!.|
00001970  16 4c 44 58 20 59 50 00  86 21 26 16 43 50 58 20  |.LDX YP..!&.CPX |
00001980  23 24 44 31 00 93 21 30  16 42 43 53 20 47 44 51  |#$D1..!0.BCS GDQ|
00001990  55 00 9f 21 3a 16 4c 44  58 20 58 50 42 00 ad 21  |U..!:.LDX XPB..!|
000019a0  44 16 42 45 51 20 47 44  50 49 49 00 b8 21 4e 16  |D.BEQ GDPII..!N.|
000019b0  4c 44 58 20 58 50 00 c5  21 58 16 43 50 58 20 23  |LDX XP..!X.CPX #|
000019c0  24 30 38 00 d2 21 62 16  42 43 53 20 47 44 51 55  |$08..!b.BCS GDQU|
000019d0  00 e6 21 6c 16 47 44 50  49 49 20 4c 44 58 20 24  |..!l.GDPII LDX $|
000019e0  36 33 46 38 00 f3 21 76  16 43 50 58 20 23 24 39  |63F8..!v.CPX #$9|
000019f0  32 00 00 22 80 16 42 45  51 20 47 44 51 55 00 0b  |2.."..BEQ GDQU..|
00001a00  22 8a 16 4c 44 58 20 59  50 00 18 22 94 16 43 50  |"..LDX YP.."..CP|
00001a10  58 20 23 24 34 32 00 25  22 9e 16 42 43 53 20 47  |X #$42.%"..BCS G|
00001a20  44 50 41 00 31 22 a8 16  b0 41 20 23 24 30 31 00  |DPA.1"...A #$01.|
00001a30  43 22 b2 16 47 44 50 41  20 43 50 58 20 23 24 43  |C"..GDPA CPX #$C|
00001a40  32 00 50 22 bc 16 42 43  43 20 47 44 50 42 00 5c  |2.P"..BCC GDPB.\|
00001a50  22 c6 16 b0 41 20 23 24  30 32 00 6c 22 d0 16 47  |"...A #$02.l"..G|
00001a60  44 50 42 20 4c 44 58 20  58 50 00 79 22 da 16 43  |DPB LDX XP.y"..C|
00001a70  50 58 20 23 24 32 38 00  86 22 e4 16 42 43 53 20  |PX #$28.."..BCS |
00001a80  47 44 50 43 00 92 22 ee  16 b0 41 20 23 24 30 34  |GDPC.."...A #$04|
00001a90  00 a4 22 f8 16 47 44 50  43 20 43 50 58 20 23 24  |.."..GDPC CPX #$|
00001aa0  46 38 00 b1 22 02 17 42  43 43 20 47 44 50 44 00  |F8.."..BCC GDPD.|
00001ab0  bd 22 0c 17 b0 41 20 23  24 30 38 00 ce 22 16 17  |."...A #$08.."..|
00001ac0  47 44 50 44 20 4c 44 58  20 58 50 42 00 db 22 20  |GDPD LDX XPB.." |
00001ad0  17 42 45 51 20 47 44 51  55 00 e7 22 2a 17 b0 41  |.BEQ GDQU.."*..A|
00001ae0  20 23 24 30 38 00 ef 22  34 17 52 54 53 00 00 23  | #$08.."4.RTS..#|
00001af0  70 17 42 54 33 20 4a 53  52 20 a1 44 49 52 00 08  |p.BT3 JSR .DIR..|
00001b00  23 7a 17 54 41 58 00 13  23 84 17 af 20 23 24 30  |#z.TAX..#... #$0|
00001b10  31 00 1f 23 8e 17 42 45  51 20 54 44 33 00 2b 23  |1..#..BEQ TD3.+#|
00001b20  98 17 4c 44 41 20 59 53  50 00 37 23 a2 17 42 45  |..LDA YSP.7#..BE|
00001b30  51 20 54 44 33 00 43 23  ac 17 44 45 43 20 59 53  |Q TD3.C#..DEC YS|
00001b40  50 00 50 23 b6 17 4a 53  52 20 44 49 53 50 00 5c  |P.P#..JSR DISP.\|
00001b50  23 c0 17 54 44 33 20 54  58 41 00 67 23 ca 17 af  |#..TD3 TXA.g#...|
00001b60  20 23 24 30 32 00 73 23  d4 17 42 45 51 20 54 4c  | #$02.s#..BEQ TL|
00001b70  33 00 7f 23 de 17 4c 44  41 20 59 53 50 00 8c 23  |3..#..LDA YSP..#|
00001b80  e8 17 43 4d 50 20 23 24  36 43 00 98 23 f2 17 42  |..CMP #$6C..#..B|
00001b90  45 51 20 54 4c 33 00 a4  23 fc 17 49 4e 43 20 59  |EQ TL3..#..INC Y|
00001ba0  53 50 00 b1 23 06 18 4a  53 52 20 44 49 53 50 00  |SP..#..JSR DISP.|
00001bb0  bd 23 10 18 54 4c 33 20  54 58 41 00 c8 23 1a 18  |.#..TL3 TXA..#..|
00001bc0  af 20 23 24 30 34 00 d4  23 24 18 42 45 51 20 54  |. #$04..#$.BEQ T|
00001bd0  52 33 00 e0 23 2e 18 44  45 43 20 58 53 50 00 ed  |R3..#..DEC XSP..|
00001be0  23 38 18 4a 53 52 20 44  49 53 50 00 f9 23 42 18  |#8.JSR DISP..#B.|
00001bf0  54 52 33 20 54 58 41 00  04 24 4c 18 af 20 23 24  |TR3 TXA..$L.. #$|
00001c00  30 38 00 12 24 56 18 42  45 51 20 42 54 33 50 32  |08..$V.BEQ BT3P2|
00001c10  00 1e 24 60 18 44 45 43  20 58 53 50 00 2b 24 6a  |..$`.DEC XSP.+$j|
00001c20  18 4a 53 52 20 44 49 53  50 00 3f 24 74 18 42 54  |.JSR DISP.?$t.BT|
00001c30  33 50 32 20 4c 44 41 20  43 4c 49 43 4b 00 4d 24  |3P2 LDA CLICK.M$|
00001c40  7e 18 42 45 51 20 42 54  33 50 34 00 5b 24 81 18  |~.BEQ BT3P4.[$..|
00001c50  4c 44 41 20 24 36 33 46  38 00 68 24 83 18 43 4d  |LDA $63F8.h$..CM|
00001c60  50 20 23 24 39 32 00 76  24 85 18 42 4e 45 20 42  |P #$92.v$..BNE B|
00001c70  54 33 50 34 00 81 24 88  18 4a 53 52 20 a1 b9 00  |T3P4..$..JSR ...|
00001c80  8d 24 92 18 4c 44 41 20  58 53 51 00 95 24 9c 18  |.$..LDA XSQ..$..|
00001c90  43 4c 43 00 a1 24 a6 18  41 44 43 20 58 53 50 00  |CLC..$..ADC XSP.|
00001ca0  ad 24 b0 18 53 54 41 20  24 46 42 00 b9 24 ba 18  |.$..STA $FB..$..|
00001cb0  4c 44 41 20 59 53 51 00  c1 24 c4 18 43 4c 43 00  |LDA YSQ..$..CLC.|
00001cc0  cd 24 ce 18 41 44 43 20  58 53 50 00 da 24 d8 18  |.$..ADC XSP..$..|
00001cd0  41 44 43 20 23 24 30 34  00 e7 24 e2 18 43 4d 50  |ADC #$04..$..CMP|
00001ce0  20 23 24 34 30 00 f5 24  ec 18 42 43 43 20 42 54  | #$40..$..BCC BT|
00001cf0  33 50 33 00 fd 24 f6 18  43 4c 43 00 0a 25 00 19  |3P3..$..CLC..%..|
00001d00  41 44 43 20 23 24 34 30  00 1c 25 0a 19 42 54 33  |ADC #$40..%..BT3|
00001d10  50 33 20 53 54 41 20 24  46 43 00 2a 25 14 19 4c  |P3 STA $FC.*%..L|
00001d20  44 41 20 53 43 48 41 52  00 41 25 1e 19 42 54 33  |DA SCHAR.A%..BT3|
00001d30  50 34 20 4a 53 52 20 42  55 54 43 48 45 43 4b 00  |P4 JSR BUTCHECK.|
00001d40  4d 25 28 19 4a 4d 50 20  42 54 33 00 5b 25 32 19  |M%(.JMP BT3.[%2.|
00001d50  a1 b9 20 4c 44 41 20 58  50 00 63 25 3c 19 53 45  |.. LDA XP.c%<.SE|
00001d60  43 00 70 25 46 19 53 42  43 20 23 24 32 38 00 7a  |C.p%F.SBC #$28.z|
00001d70  25 50 19 4c 53 52 20 41  00 84 25 5a 19 4c 53 52  |%P.LSR A..%Z.LSR|
00001d80  20 41 00 8e 25 64 19 4c  53 52 20 41 00 9a 25 6e  | A..%d.LSR A..%n|
00001d90  19 53 54 41 20 58 53 51  00 a5 25 78 19 4c 44 41  |.STA XSQ..%x.LDA|
00001da0  20 59 50 00 ad 25 82 19  53 45 43 00 ba 25 8c 19  | YP..%..SEC..%..|
00001db0  53 42 43 20 23 24 34 32  00 c4 25 96 19 4c 53 52  |SBC #$42..%..LSR|
00001dc0  20 41 00 ce 25 a0 19 4c  53 52 20 41 00 d8 25 aa  | A..%..LSR A..%.|
00001dd0  19 4c 53 52 20 41 00 e4  25 b4 19 53 54 41 20 59  |.LSR A..%..STA Y|
00001de0  53 51 00 ec 25 be 19 52  54 53 00 f8 25 10 27 42  |SQ..%..RTS..%.'B|
00001df0  49 31 20 52 54 53 00 04  26 11 27 42 49 32 20 52  |I1 RTS..&.'BI2 R|
00001e00  54 53 00 10 26 13 27 42  49 34 20 52 54 53 00 1c  |TS..&.'BI4 RTS..|
00001e10  26 14 27 42 49 35 20 52  54 53 00 28 26 15 27 42  |&.'BI5 RTS.(&.'B|
00001e20  49 36 20 52 54 53 00 34  26 16 27 42 49 37 20 52  |I6 RTS.4&.'BI7 R|
00001e30  54 53 00 40 26 17 27 42  49 38 20 52 54 53 00 4c  |TS.@&.'BI8 RTS.L|
00001e40  26 18 27 42 49 39 20 52  54 53 00 58 26 19 27 42  |&.'BI9 RTS.X&.'B|
00001e50  49 41 20 52 54 53 00 64  26 1a 27 42 49 42 20 52  |IA RTS.d&.'BIB R|
00001e60  54 53 00 70 26 1b 27 42  49 43 20 52 54 53 00 7c  |TS.p&.'BIC RTS.||
00001e70  26 24 27 42 54 31 20 4e  4f 50 00 88 26 25 27 42  |&$'BT1 NOP..&%'B|
00001e80  54 32 20 4e 4f 50 00 94  26 26 27 42 54 33 20 4e  |T2 NOP..&&'BT3 N|
00001e90  4f 50 00 a0 26 27 27 42  54 34 20 4e 4f 50 00 ac  |OP..&''BT4 NOP..|
00001ea0  26 28 27 42 54 35 20 4e  4f 50 00 b8 26 29 27 42  |&('BT5 NOP..&)'B|
00001eb0  54 36 20 4e 4f 50 00 c4  26 2a 27 42 54 37 20 4e  |T6 NOP..&*'BT7 N|
00001ec0  4f 50 00 d0 26 2b 27 42  54 38 20 4e 4f 50 00 dc  |OP..&+'BT8 NOP..|
00001ed0  26 2c 27 42 54 39 20 4e  4f 50 00 e8 26 2d 27 42  |&,'BT9 NOP..&-'B|
00001ee0  54 41 20 4e 4f 50 00 f4  26 2e 27 42 54 42 20 4e  |TA NOP..&.'BTB N|
00001ef0  4f 50 00 00 27 2f 27 42  54 43 20 4e 4f 50 00 0d  |OP..'/'BTC NOP..|
00001f00  27 30 27 4a 4d 50 20 42  55 54 30 00 1f 27 18 f6  |'0'JMP BUT0..'..|
00001f10  3b 20 56 45 43 a4 52 20  54 41 42 4c 45 00 2b 27  |; VEC.R TABLE.+'|
00001f20  22 f6 ac b2 24 43 46 38  30 00 53 27 2c f6 54 58  |"...$CF80.S',.TX|
00001f30  54 20 b3 42 49 31 2c b1  42 49 31 2c b3 42 49 32  |T .BI1,.BI1,.BI2|
00001f40  2c b1 42 49 32 2c b3 44  49 53 50 2c b1 44 49 53  |,.BI2,.DISP,.DIS|
00001f50  50 00 79 27 36 f6 54 58  54 20 b3 42 49 34 2c b1  |P.y'6.TXT .BI4,.|
00001f60  42 49 34 2c b3 42 49 35  2c b1 42 49 35 2c b3 42  |BI4,.BI5,.BI5,.B|
00001f70  49 36 2c b1 42 49 36 00  9f 27 40 f6 54 58 54 20  |I6,.BI6..'@.TXT |
00001f80  b3 42 49 37 2c b1 42 49  37 2c b3 42 49 38 2c b1  |.BI7,.BI7,.BI8,.|
00001f90  42 49 38 2c b3 42 49 39  2c b1 42 49 39 00 c5 27  |BI8,.BI9,.BI9..'|
00001fa0  4a f6 54 58 54 20 b3 42  49 41 2c b1 42 49 41 2c  |J.TXT .BIA,.BIA,|
00001fb0  b3 42 49 42 2c b1 42 49  42 2c b3 42 49 43 2c b1  |.BIB,.BIB,.BIC,.|
00001fc0  42 49 43 00 cb 27 54 f6  3b 00 d7 27 5e f6 ac b2  |BIC..'T.;..'^...|
00001fd0  24 43 46 41 30 00 fd 27  68 f6 54 58 54 20 b3 42  |$CFA0..'h.TXT .B|
00001fe0  54 31 2c b1 42 54 31 2c  b3 42 54 32 2c b1 42 54  |T1,.BT1,.BT2,.BT|
00001ff0  32 2c b3 42 54 33 2c b1  42 54 33 00 23 28 72 f6  |2,.BT3,.BT3.#(r.|
00002000  54 58 54 20 b3 42 54 34  2c b1 42 54 34 2c b3 42  |TXT .BT4,.BT4,.B|
00002010  54 35 2c b1 42 54 35 2c  b3 42 54 36 2c b1 42 54  |T5,.BT5,.BT6,.BT|
00002020  36 00 49 28 7c f6 54 58  54 20 b3 42 54 37 2c b1  |6.I(|.TXT .BT7,.|
00002030  42 54 37 2c b3 42 54 38  2c b1 42 54 38 2c b3 42  |BT7,.BT8,.BT8,.B|
00002040  54 39 2c b1 42 54 39 00  6f 28 86 f6 54 58 54 20  |T9,.BT9.o(..TXT |
00002050  b3 42 54 41 2c b1 42 54  41 2c b3 42 54 42 2c b1  |.BTA,.BTA,.BTB,.|
00002060  42 54 42 2c b3 42 54 43  2c b1 42 54 43 00 00 00  |BTB,.BTC,.BTC...|
00002070