; 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����$C000 	�;                                               WIMP ROUTINES&	�;9	�; WIMP - MOUSEJ	�IRQ LDA #$00X	�STA CLICKd	�LDA $C5q	�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 $DC00)
\TAX4
f� #$01@
pBEQ UPJL
zUJC TXAW
�� #$02e
�BEQ DOWNJq
�DJC TXA|
�� #$04�
�BEQ LEFTJ�
�LJC TXA�
�� #$08�
�BEQ RIGHTJ�
�RJC TXA�
�� #$10�
�E� #$10�
�BEQ CJCH�
�STA CLICK
�CJCH JMP $EA31	LEFTK JSR LEFT 	JMP LKC5	RIGHTK JSR RIGHTA$	JMP RKCP.	UPK JSR UP]8	JMP UPKCpB	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 #$FF*�	BNE �FF7�	LDY #$00C�	STY XPBS�	�FF LDY XPB_�	BNE FINl�	CMP #$18x
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 FIN
x
DEC XP"
�
JMP �ROL0
�
UP DEC YP;
�
LDA YPH
�
CMP #$32T
�
BNE FIN_
�
INC YPl
�
JMP �ROL|
�
DOWN INC YP�
�
LDA YP�
�
CMP #$F8�
�
BNE FIN�
�
DEC YP�
�
JMP �ROL�
�
; WIMP � PO�ER�
�
�ROL LDA HOUR�
�
BNE HGLASS�
�
LDA XPCMP #$28BCC NSQUPCMP #$F8-"BCS NSQUP9,LDA XPBG6BNE NSQUPR@LDA YP_JCMP #$42mTBCC NSQUPz^CMP #$C1�hBCS NSQUP�rLDA XP�|� #$F8��STA $D000��LDA YP��� #$F8���A #$02��STA $D001��LDA $D010��� #$FC�STA $D010�LDA #$92�STA $63F8,�LDA $D0157�� #$FCC��A #$01Q�STA $D015^�LDA #$01l�STA $D027t�RTS��HGLASS LDX #$93��STX $63F8��INX��STX $63F9��NSQUP LDA XP��STA $D000��STA $D002��LDA YP��STA $D001STA $D003LDA $D010� #$FC#&LSR A+0CLC7:ADC XPBADASL AINCLCUXADC XPBcbSTA $D010pl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 RTS5�; STARTUP ROUTINESE�SR LDA #$8BS�STA $D011a�LDA $DD02m��A #$02{�STA $DD02��LDA $DD00��� #$FE�
�A #$02�
STA $DD00�
LDA #$00�
STA $D020�
STA $D021�
LDA #$86� 
STA $D018�"
LDA #$00
%
STA $D000&
LDA #$0B((
STA $D0015-
LDA #$10C.
STA $D008P/
LDA #$3A^0
STA $D009k1
LDA #$10y2
STA $D010�3
LDA #$01�4
STA $D029�5
STA $D02B�6
LDA #$00�7
STA $D02A�9
STA SCHAR�<
LDA #$01�=
LDX #$08�>
TAY�H
JSR $FFBAR
LDA #$0C\
LDX #�EGRTXT*f
LDY #�EGRTXT8z
JSR $FFBDE�
LDA #$00S�
JSR $FFD5`�
LDA #$01m�
LDX #$08u�
TAY��
JSR $FFBA��
LDA #$08��
LDX #�ECTXT��
LDY #�ECTXT��
JSR $FFBD��
LDA #$00��
JSR $FFD5��
LDA #$9B��
STA $D011
�
LDA #$00�
STA BUTNO�
LDA #$92*�
STA $63FC2�
SEI?�
LDA #$00M�
STA $0314Z�
LDA #$C0h�
STA $0315p�
CLI}�
LDA #$00��
STA XP��
STA HOUR�LDA #$80�STA YP�LDA #$01�$STA XPB�%LDA #$1C�&STA $D015�'JSR LEFT�(LDA #$00	)STA $D004*STA $D006$+LDA #$D92,STA $D005@-STA $D007M.LDA #$95[0STA $63FBh2LDA #$08v3STA $D01C�4LDA #$18�5STA $D016�7BUT0 JSR BUTCHECK�8JMP BUT0�BEGRTXT TXT "EDITGRAPHICS"�DECTXT TXT "EDITCOLS"�GBCQU JMP SLECTIBCNCQ RTS#LBUTCHECK LDA CLICK1VBEQ BCNCQ<`LDA YPIbCMP #$D9VdBCC BCQUbeLDA XPBofBNE XBSRzgLDA XP�hCMP #$28�iBCC BCQU�lLDA $D010�n� #$F3�pSTA $D010�rLDA XP�tCMP #$28�~BCC BCQU��JMP BCOK��XBSR LDA XP
�CMP #$44�BCS BCQU%�LDA $D0101��A #$0C?�STA $D010O�BCOK LDA XP[�LDX XPBh�BNE BCTCp�SEC}�SBC #$28��BCTC LDX #$FF��BCLPA INX��SEC��SBC #$18�CMP #$E8�
BCC BCLPA�TXA�LDY XPB�(BEQ NAO�2CLC<ADC #$09FNAO STA BUTNOPASL A(ZASL A2dASL A>nSTA $02FxCLCR�ADC $02^�ADC $02k�ADC #$28y�STA $D004��STA $D006��LDA #$96��CLC��ADC BUTNO��STA $63FA��PLA��PLA��LDA #$CF��STA VE�2��LDA BUTNO��ASL A�CLC�ADC #$80�STA VE�1*�LDA #�VEC2�PHABLDA #�VEC�1JPHA]VE JMP ($0000)nVEC LDA VE�1vCLC�"ADC #$20�,STA PH�1�6LDA #$CF�@STA PH�2�JPH JMP ($0000)�TSLECTQ RTS�^SLECT LDA XPB�hBEQ SLECTQ�rLDA XP|CMP #$10�BCC SLECTQ!�CMP #$500�BCS SLECTQ;�LDA YPH�CMP #$3AW�BCC SLECTQd�CMP #$CAs�BCS SLECTQ~�LDA XP��� #$F8��TAX��LDA YP��� #$F8��A #$02�TAY�CMP #$BA�BEQ SLECTQ�&BCS SLCNT�0CPX #$30
:BEQ SLECTQDSLCNT STX $D008#NSTY $D0090XCPY #$BA>bBCS CALC2FlTXASvCMP #$30a�BCC CALC1i�SECv�SBC #$08��CALC1 SEC��SBC #$10��ASL A��STA $02��TYA��SEC��SBC #$3A��LSR A��LSR A��LSR A��CLC�ADC $02STA SCHARRTS CALC2 TXA"*SEC/4SBC #$109>LSR ACHLSR AMRLSR AZ\CPY #$C2ifBEQ CALC2CqpCLC~zADC #$08��CALC2C CLC��ADC #$70��STA SCHAR��RTS���SCR LDA #$52��STA $FB��LDA #$D8��STA $FC��LOPA LDA #$00�LDY #$00�LOPB STA ($FB),Y#INY0CPY #$1A=BNE LOPBI$LDA $FBQ.CLC^8ADC #$28jBSTA $FBwLCMP #$D2�VBEQ QUITCS�`CMP #$28�jBCS LOPA�tINC $FC�~JMP LOPA��QUITCS RTS��DISP JSR SCRDISP��JMP C�ISP�SCRDISP LDA #$52�STA $FB�LDA #$60%�STA $FC2�LDX #$00E�LOPAD LDY #$00Y�LOPBD JSR �CHARe��A #$80u�STA ($FB),Y}INY�
CPY #$1A�BNE LOPBD�LDA $FB�(CLC�2ADC #$28�<STA $FB�FINX�PCMP #$D2�ZBEQ QUITCS�dCMP #$28nBCS LOPADxINC $FC�JMP LOPAD1�C�ISP LDA #$52=�STA $FBJ�LDA #$D8V�STA $FCc�LDX #$00v�LOPCD LDY #$00��LOPDD TXA��PHA��JSR �CHAR��TAX��LDA $E000,X��STA ($FB),Y�PLA�TAX�INY�"CPY #$1A�,BNE LOPDD
 6LDA $FB	 @CLC JADC #$28" TSTA $FB* ^INX7 hCMP #$D2F rBEQ QUITCSS |CMP #$28a �BCS LOPCDm �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),Y!�RTS%!�GDQU RTS7!��DIR LDA #$00E!LDX CLICKR!BEQ GDQU]!LDX YPj!&CPX #$D1w!0BCS GDQU�!:LDX XPB�!DBEQ GDPII�!NLDX XP�!XCPX #$08�!bBCS GDQU�!lGDPII LDX $63F8�!vCPX #$92�!�BEQ GDQU�!�LDX YP�!�CPX #$42	"�BCS GDPA"��A #$01'"�GDPA CPX #$C24"�BCC GDPB@"��A #$02P"�GDPB LDX XP]"�CPX #$28j"�BCS GDPCv"��A #$04�"�GDPC CPX #$F8�"BCC GDPD�"�A #$08�"GDPD LDX XPB�" BEQ GDQU�"*�A #$08�"4RTS�"'BI1 RTS�"'BI2 RTS�"'BI4 RTS#'BI5 RTS#'BI6 RTS#'BI7 RTS'#'BI8 RTS3#'BI9 RTS?#'BIA RTSK#'BIB RTSW#'BIC RTSc#$'BT1 NOPo#%'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$"���$CF80:$,�TXT �BI1,�BI1,�BI2,�BI2,�DISP,�DISP`$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,�BT60%|�TXT �BT7,�BT7,�BT8,�BT8,�BT9,�BT9V%��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@.H.G..$c000@ I.G;                                               wimp routines@&I.G;@9I.G; wimp - mouse@jI.Girq lda #$00@xI.Gsta click@DI.Glda $c5@QI.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@.I4Hbeq upk@AJ>Hupkc cmp #$37@OJhHbeq downk@!JrHdkc lda $dc00@)J£Htax@4JFH. #$01@@JPHbeq upj@lJZHujc txa@wJ.H. #$02@EJ.Hbeq downj@QJ.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@.J.Hsta click@AK.Hcjch jmp $ea31@TKFIleftk jsr left@ KPIjmp lkc@5KZIrightk jsr right@aK$Ijmp rkc@pK.Iupk jsr up@]K8Ijmp upkc@PKbIdownk jsr down@.KlIjmp dkc@.KvIupj jsr up@.K.Ijmp ujc@.KJIdownj jsr down@.KTIjmp djc@.K.Ileftj jsr left@.K.Ijmp ljc@.K.Irightj jsr right@.K.Ijmp rjc@FL.Ileft dec xp@QL.Ilda xp@.L.Icmp #$ff@*L.Ibne .ff@7L.Ildy #$00@cL.Isty xpb@sL.I.ff ldy xpb@.L.Ibne fin@LL.Icmp #$18@XL@Jbne fin@.LJJinc xp@.LTJfin jmp .rol@.L.Jright inc xp@.L(Jlda xp@.L2Jbne .00@.L<Jldy #$01@.LfJsty xpb@.LpJ.00 ldy xpb@.LzJbeq fin@.LDJcmp #$58@JMNJbne fin@UMXJdec xp@"M.Jjmp .rol@0M.Jup dec yp@;M.Jlda yp@hM.Jcmp #$32@tM.Jbne fin@.M.Jinc yp@LM.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@.M.Jbne hglass@.M.Jlda xp@DNDKcmp #$28@RNNKbcc nsqup@.NXKcmp #$f8@-N"Kbcs nsqup@9N,Klda xpb@gN6Kbne nsqup@rN@Klda yp@.NjKcmp #$42@MNtKbcc nsqup@ZN.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@.N.Klda $d010@.N.K. #$fc@CO.Ksta $d010@PO.Klda #$92@.O.Ksta $63f8@,O.Klda $d015@7O.K. #$fc@cO.K.a #$01@qO.Ksta $d015@.O.Klda #$01@LO.Ksta $d027@TO.Krts@.O.Khglass ldx #$93@.O.Kstx $63f8@.O.Kinx@.O.Kstx $63f9@.O.Knsqup lda xp@.O.Ksta $d000@.O.Ksta $d002@.O.Klda yp@.O.Ksta $d001@@PHLsta $d003@NPRLlda $d010@YP£L. #$fc@#P&Llsr a@+P0Lclc@7P:Ladc xpb@aPdLasl a@iPnLclc@uPxLadc xpb@CPBLsta $d010@PPLLlda #$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@.P.Llda #$90@.P.Lsta $63f8@CQ.Llda #$91@QQ.Lsta $63f9@.Q.Lqtro rts@5Q.L; startup routines@eQ.Lsr lda #$8b@sQ.Lsta $d011@AQ.Llda $dd02@MQ.L.a #$02@.Q.Lsta $dd02@.Q.Llda $dd00@.Q.L. #$fe@.QBM.a #$02@.QLMsta $dd00@.QOMlda #$00@.QRMsta $d020@.QTMsta $d021@.QVMlda #$86@.Q Msta $d018@.Q"Mlda #$00@MR%Msta $d000@ZR&Mlda #$0b@(R(Msta $d001@5R-Mlda #$10@cR.Msta $d008@pR/Mlda #$3a@.R0Msta $d009@KR1Mlda #$10@YR2Msta $d010@.R3Mlda #$01@.R4Msta $d029@.R5Msta $d02b@.R6Mlda #$00@.R7Msta $d02a@.R9Msta schar@.R<Mlda #$01@.R=Mldx #$08@.R>Mtay@.RhMjsr $ffba@HSrMlda #$0c@YS£Mldx #.egrtxt@*SFMldy #.egrtxt@8SZMjsr $ffbd@eS.Mlda #$00@sS.Mjsr $ffd5@.S.Mlda #$01@MS.Mldx #$08@US.Mtay@.S.Mjsr $ffba@.S.Mlda #$08@.S.Mldx #.ectxt@.S.Mldy #.ectxt@.S.Mjsr $ffbd@.S.Mlda #$00@.S.Mjsr $ffd5@.S.Mlda #$9b@.S.Msta $d011@AT.Mlda #$00@OT.Msta butno@£T.Mlda #$92@*T.Msta $63fc@2T.Msei@?T.Mlda #$00@mT.Msta $0314@zT.Mlda #$c0@HT.Msta $0315@PT.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@.T'Njsr left@.T(Nlda #$00@IU)Nsta $d004@WU*Nsta $d006@$U+Nlda #$d9@2U,Nsta $d005@@U-Nsta $d007@mU.Nlda #$95@[U0Nsta $63fb@HU2Nlda #$08@VU3Nsta $d01c@.U4Nlda #$18@.U5Nsta $d016@.U7Nbut0 jsr butcheck@.U8Njmp but0@.UbNegrtxt txt "editgraphics"@.UdNectxt txt "editcols"@.UgNbcqu jmp slect@LViNbcncq rts@#VlNbutcheck lda click@1VvNbeq bcncq@<V.Nlda yp@iVBNcmp #$d9@vVDNbcc bcqu@BVENlda xpb@OVFNbne xbsr@ZVGNlda xp@.VHNcmp #$28@.VINbcc bcqu@.VLNlda $d010@.VNN. #$f3@.VPNsta $d010@.VRNlda xp@.VTNcmp #$28@.V.Nbcc bcqu@.V.Njmp bcok@.V.Nxbsr lda xp@JW.Ncmp #$44@WW.Nbcs bcqu@%W.Nlda $d010@1W.N.a #$0c@?W.Nsta $d010@oW.Nbcok lda xp@[W.Nldx xpb@HW.Nbne bctc@PW.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@.W(Obeq nao@.W2Oclc@BX<Oadc #$09@TXfOnao sta butno@.XpOasl a@(XzOasl a@2XDOasl a@>XNOsta $02@fXXOclc@rX.Oadc $02@.X.Oadc $02@KX.Oadc #$28@YX.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@.X.Olda butno@.X.Oasl a@BY.Oclc@OY.Oadc #$80@£Y.Osta ve.1@*Y.Olda #.vec@2Y.Opha@bY@Plda #.vec.1@jYBPpha@]YDPve jmp ($0000)@NYNPvec lda ve.1@VYXPclc@.Y"Padc #$20@.Y,Psta ph.1@.Y6Plda #$cf@.Y@Psta ph.2@.YjPph jmp ($0000)@.YtPslectq rts@.Y.Pslect lda xpb@.YHPbeq slectq@.YRPlda xp@EZ.Pcmp #$10@TZ.Pbcc slectq@!Z.Pcmp #$50@0Z.Pbcs slectq@;Z.Plda yp@hZ.Pcmp #$3a@wZ.Pbcc slectq@DZ.Pcmp #$ca@SZ.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@.Z&Qbcs slcnt@.Z0Qcpx #$30@A[:Qbeq slectq@U[dQslcnt stx $d008@#[nQsty $d009@0[xQcpy #$ba@>[BQbcs calc2@f[LQtxa@s[VQcmp #$30@A[.Qbcc calc1@I[.Qsec@V[.Qsbc #$08@.[.Qcalc1 sec@.[.Qsbc #$10@.[.Qasl a@.[.Qsta $02@.[.Qtya@.[.Qsec@.[.Qsbc #$3a@.[.Qlsr a@.[.Qlsr a@.[.Qlsr a@.[.Qclc@.[BRadc $02@D£LRsta schar@L£VRrts@Z£ Rcalc2 txa@"£*Rsec@/£4Rsbc #$10@9£>Rlsr a@c£hRlsr a@m£rRlsr a@z££Rcpy #$c2@I£FRbeq calc2c@Q£PRclc@.£ZRadc #$08@.£.Rcalc2c clc@.£.Radc #$70@.£.Rsta schar@.£.Rrts@.£.R.scr lda #$52@.£.Rsta $fb@.£.Rlda #$d8@.£.Rsta $fc@.£.Rlopa lda #$00@F].Rldy #$00@[].Rlopb sta ($fb),y@#]FSiny@0]PScpy #$1a@=]ZSbne lopb@i]$Slda $fb@q].Sclc@.]8Sadc #$28@J]bSsta $fb@W]lScmp #$d2@.]vSbeq quitcs@.].Scmp #$28@.]JSbcs lopa@.]TSinc $fc@.].Sjmp lopa@.].Squitcs rts@.].Sdisp jsr scrdisp@.].Sjmp c.isp@@..Sscrdisp lda #$52@L..Ssta $fb@Y..Slda #$60@%..Ssta $fc@2..Sldx #$00@e..Slopad ldy #$00@y..Slopbd jsr .char@E..S.a #$80@U..Ssta ($fb),y@..@Tiny@..JTcpy #$1a@..TTbne lopbd@...Tlda $fb@..(Tclc@..2Tadc #$28@..<Tsta $fb@..fTinx@..pTcmp #$d2@..zTbeq quitcs@..DTcmp #$28@D.NTbcs lopad@P.XTinc $fc@...Tjmp lopad@1..Tc.isp lda #$52@=..Tsta $fb@j..Tlda #$d8@v..Tsta $fc@C..Tldx #$00@V..Tlopcd ldy #$00@...Tlopdd txa@...Tpha@...Tjsr .char@...Ttax@...Tlda $e000,x@...Tsta ($fb),y@..DUpla@..NUtax@..XUiny@.."Ucpy #$1a@..,Ubne lopdd@A 6Ulda $fb@I @Uclc@V jUadc #$28@" tUsta $fb@* .Uinx@7 HUcmp #$d2@f RUbeq quitcs@s .Ucmp #$28@A .Ubcs lopcd@M .Uinc $fc@. .Ujmp lopcd@. .U.char lda xsp@. .Usta $fd@. .Utxa@. .Uclc@. .Uadc ysp@. .Uadc #$04@. .Ucmp #$40@. .Ubcc gcc@. .Uclc@. .Uadc #$40@@!.Ugcc sta $fe@P!.Ulda ($fd),y@X!.Urts@%!.Ugdqu rts@7!.U.dir lda #$00@e!HVldx click@r!RVbeq gdqu@]!£Vldx yp@J!&Vcpx #$d1@W!0Vbcs gdqu@.!:Vldx xpb@.!dVbeq gdpii@.!nVldx xp@.!xVcpx #$08@.!BVbcs gdqu@.!LVgdpii ldx $63f8@.!VVcpx #$92@.!.Vbeq gdqu@.!.Vldx yp@.!.Vcpx #$42@I".Vbcs gdpa@U".V.a #$01@'".Vgdpa cpx #$c2@4".Vbcc gdpb@@".V.a #$02@p".Vgdpb ldx xp@]".Vcpx #$28@J".Vbcs gdpc@V".V.a #$04@.".Vgdpc cpx #$f8@."BWbcc gdpd@."LW.a #$08@."VWgdpd ldx xpb@." Wbeq gdqu@."*W.a #$08@."4Wrts@."P'bi1 rts@."Q'bi2 rts@."S'bi4 rts@C#T'bi5 rts@O#U'bi6 rts@[#V'bi7 rts@'#W'bi8 rts@3#X'bi9 rts@?#Y'bia rts@k#Z'bib rts@w#['bic rts@C#$'bt1 nop@O#%'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@F$X.; vec.r table@R$"...$cf80@:$,.txt .bi1,.bi1,.bi2,.bi2,.disp,.disp@.$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@J%R.txt .bt4,.bt4,.bt5,.bt5,.bt6,.bt6@0%..txt .bt7,.bt7,.bt8,.bt8,.bt9,.bt9@v%..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 de 08 c6 07 ac b2 24  43 30 30 30 00 20 09 d0  |.......$C000. ..|
000000e0  07 3b 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.;              |
000000f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000110  20 57 49 4d 50 20 52 4f  55 54 49 4e 45 53 00 26  | WIMP ROUTINES.&|
00000120  09 d3 07 3b 00 39 09 d6  07 3b 20 57 49 4d 50 20  |...;.9...; WIMP |
00000130  2d 20 4d 4f 55 53 45 00  4a 09 da 07 49 52 51 20  |- MOUSE.J...IRQ |
00000140  4c 44 41 20 23 24 30 30  00 58 09 dd 07 53 54 41  |LDA #$00.X...STA|
00000150  20 43 4c 49 43 4b 00 64  09 e0 07 4c 44 41 20 24  | CLICK.d...LDA $|
00000160  43 35 00 71 09 e4 07 43  4d 50 20 23 24 30 31 00  |C5.q...CMP #$01.|
00000170  81 09 ee 07 42 4e 45 20  43 91 43 48 45 43 4b 00  |....BNE C.CHECK.|
00000180  8f 09 f8 07 53 54 41 20  43 4c 49 43 4b 00 a4 09  |....STA CLICK...|
00000190  02 08 43 91 43 48 45 43  4b 20 43 4d 50 20 23 24  |..C.CHECK CMP #$|
000001a0  30 43 00 b2 09 0c 08 42  45 51 20 4c 45 46 54 4b  |0C.....BEQ LEFTK|
000001b0  00 c3 09 16 08 4c 4b 43  20 43 4d 50 20 23 24 31  |.....LKC CMP #$1|
000001c0  37 00 d2 09 20 08 42 45  51 20 52 49 47 48 54 4b  |7... .BEQ RIGHTK|
000001d0  00 e3 09 2a 08 52 4b 43  20 43 4d 50 20 23 24 33  |...*.RKC CMP #$3|
000001e0  32 00 ef 09 34 08 42 45  51 20 55 50 4b 00 01 0a  |2...4.BEQ UPK...|
000001f0  3e 08 55 50 4b 43 20 43  4d 50 20 23 24 33 37 00  |>.UPKC CMP #$37.|
00000200  0f 0a 48 08 42 45 51 20  44 4f 57 4e 4b 00 21 0a  |..H.BEQ DOWNK.!.|
00000210  52 08 44 4b 43 20 4c 44  41 20 24 44 43 30 30 00  |R.DKC LDA $DC00.|
00000220  29 0a 5c 08 54 41 58 00  34 0a 66 08 af 20 23 24  |).\.TAX.4.f.. #$|
00000230  30 31 00 40 0a 70 08 42  45 51 20 55 50 4a 00 4c  |01.@.p.BEQ UPJ.L|
00000240  0a 7a 08 55 4a 43 20 54  58 41 00 57 0a 84 08 af  |.z.UJC TXA.W....|
00000250  20 23 24 30 32 00 65 0a  8e 08 42 45 51 20 44 4f  | #$02.e...BEQ DO|
00000260  57 4e 4a 00 71 0a 98 08  44 4a 43 20 54 58 41 00  |WNJ.q...DJC TXA.|
00000270  7c 0a a2 08 af 20 23 24  30 34 00 8a 0a ac 08 42  ||.... #$04.....B|
00000280  45 51 20 4c 45 46 54 4a  00 96 0a b6 08 4c 4a 43  |EQ LEFTJ.....LJC|
00000290  20 54 58 41 00 a1 0a c0  08 af 20 23 24 30 38 00  | TXA...... #$08.|
000002a0  b0 0a ca 08 42 45 51 20  52 49 47 48 54 4a 00 bc  |....BEQ RIGHTJ..|
000002b0  0a d4 08 52 4a 43 20 54  58 41 00 c7 0a de 08 af  |...RJC TXA......|
000002c0  20 23 24 31 30 00 d3 0a  e3 08 45 b0 20 23 24 31  | #$10.....E. #$1|
000002d0  30 00 e0 0a e8 08 42 45  51 20 43 4a 43 48 00 ee  |0.....BEQ CJCH..|
000002e0  0a f2 08 53 54 41 20 43  4c 49 43 4b 00 01 0b fc  |...STA CLICK....|
000002f0  08 43 4a 43 48 20 4a 4d  50 20 24 45 41 33 31 00  |.CJCH JMP $EA31.|
00000300  14 0b 06 09 4c 45 46 54  4b 20 4a 53 52 20 4c 45  |....LEFTK JSR LE|
00000310  46 54 00 20 0b 10 09 4a  4d 50 20 4c 4b 43 00 35  |FT. ...JMP LKC.5|
00000320  0b 1a 09 52 49 47 48 54  4b 20 4a 53 52 20 52 49  |...RIGHTK JSR RI|
00000330  47 48 54 00 41 0b 24 09  4a 4d 50 20 52 4b 43 00  |GHT.A.$.JMP RKC.|
00000340  50 0b 2e 09 55 50 4b 20  4a 53 52 20 55 50 00 5d  |P...UPK JSR UP.]|
00000350  0b 38 09 4a 4d 50 20 55  50 4b 43 00 70 0b 42 09  |.8.JMP UPKC.p.B.|
00000360  44 4f 57 4e 4b 20 4a 53  52 20 44 4f 57 4e 00 7c  |DOWNK JSR DOWN.||
00000370  0b 4c 09 4a 4d 50 20 44  4b 43 00 8b 0b 56 09 55  |.L.JMP DKC...V.U|
00000380  50 4a 20 4a 53 52 20 55  50 00 97 0b 60 09 4a 4d  |PJ JSR UP...`.JM|
00000390  50 20 55 4a 43 00 aa 0b  6a 09 44 4f 57 4e 4a 20  |P UJC...j.DOWNJ |
000003a0  4a 53 52 20 44 4f 57 4e  00 b6 0b 74 09 4a 4d 50  |JSR DOWN...t.JMP|
000003b0  20 44 4a 43 00 c9 0b 7e  09 4c 45 46 54 4a 20 4a  | DJC...~.LEFTJ J|
000003c0  53 52 20 4c 45 46 54 00  d5 0b 88 09 4a 4d 50 20  |SR LEFT.....JMP |
000003d0  4c 4a 43 00 ea 0b 92 09  52 49 47 48 54 4a 20 4a  |LJC.....RIGHTJ J|
000003e0  53 52 20 52 49 47 48 54  00 f6 0b 9c 09 4a 4d 50  |SR RIGHT.....JMP|
000003f0  20 52 4a 43 00 06 0c a6  09 4c 45 46 54 20 44 45  | RJC.....LEFT DE|
00000400  43 20 58 50 00 11 0c b0  09 4c 44 41 20 58 50 00  |C XP.....LDA XP.|
00000410  1e 0c ba 09 43 4d 50 20  23 24 46 46 00 2a 0c c4  |....CMP #$FF.*..|
00000420  09 42 4e 45 20 a8 46 46  00 37 0c ce 09 4c 44 59  |.BNE .FF.7...LDY|
00000430  20 23 24 30 30 00 43 0c  d8 09 53 54 59 20 58 50  | #$00.C...STY XP|
00000440  42 00 53 0c e2 09 a8 46  46 20 4c 44 59 20 58 50  |B.S....FF LDY XP|
00000450  42 00 5f 0c ec 09 42 4e  45 20 46 49 4e 00 6c 0c  |B._...BNE FIN.l.|
00000460  f6 09 43 4d 50 20 23 24  31 38 00 78 0c 00 0a 42  |..CMP #$18.x...B|
00000470  4e 45 20 46 49 4e 00 83  0c 0a 0a 49 4e 43 20 58  |NE FIN.....INC X|
00000480  50 00 94 0c 14 0a 46 49  4e 20 4a 4d 50 20 9a 52  |P.....FIN JMP .R|
00000490  4f 4c 00 a5 0c 1e 0a 52  49 47 48 54 20 49 4e 43  |OL.....RIGHT INC|
000004a0  20 58 50 00 b0 0c 28 0a  4c 44 41 20 58 50 00 bc  | XP...(.LDA XP..|
000004b0  0c 32 0a 42 4e 45 20 a8  30 30 00 c9 0c 3c 0a 4c  |.2.BNE .00...<.L|
000004c0  44 59 20 23 24 30 31 00  d5 0c 46 0a 53 54 59 20  |DY #$01...F.STY |
000004d0  58 50 42 00 e5 0c 50 0a  a8 30 30 20 4c 44 59 20  |XPB...P..00 LDY |
000004e0  58 50 42 00 f1 0c 5a 0a  42 45 51 20 46 49 4e 00  |XPB...Z.BEQ FIN.|
000004f0  fe 0c 64 0a 43 4d 50 20  23 24 35 38 00 0a 0d 6e  |..d.CMP #$58...n|
00000500  0a 42 4e 45 20 46 49 4e  00 15 0d 78 0a 44 45 43  |.BNE FIN...x.DEC|
00000510  20 58 50 00 22 0d 82 0a  4a 4d 50 20 9a 52 4f 4c  | XP."...JMP .ROL|
00000520  00 30 0d 8c 0a 55 50 20  44 45 43 20 59 50 00 3b  |.0...UP DEC YP.;|
00000530  0d 91 0a 4c 44 41 20 59  50 00 48 0d 96 0a 43 4d  |...LDA YP.H...CM|
00000540  50 20 23 24 33 32 00 54  0d 9b 0a 42 4e 45 20 46  |P #$32.T...BNE F|
00000550  49 4e 00 5f 0d a0 0a 49  4e 43 20 59 50 00 6c 0d  |IN._...INC YP.l.|
00000560  aa 0a 4a 4d 50 20 9a 52  4f 4c 00 7c 0d b4 0a 44  |..JMP .ROL.|...D|
00000570  4f 57 4e 20 49 4e 43 20  59 50 00 87 0d be 0a 4c  |OWN INC YP.....L|
00000580  44 41 20 59 50 00 94 0d  c8 0a 43 4d 50 20 23 24  |DA YP.....CMP #$|
00000590  46 38 00 a0 0d d2 0a 42  4e 45 20 46 49 4e 00 ab  |F8.....BNE FIN..|
000005a0  0d dc 0a 44 45 43 20 59  50 00 b8 0d e6 0a 4a 4d  |...DEC YP.....JM|
000005b0  50 20 9a 52 4f 4c 00 cb  0d f0 0a 3b 20 57 49 4d  |P .ROL.....; WIM|
000005c0  50 20 ab 20 50 4f b5 45  52 00 dd 0d f3 0a 9a 52  |P . PO.ER......R|
000005d0  4f 4c 20 4c 44 41 20 48  4f 55 52 00 ec 0d f6 0a  |OL LDA HOUR.....|
000005e0  42 4e 45 20 48 47 4c 41  53 53 00 f7 0d fa 0a 4c  |BNE HGLASS.....L|
000005f0  44 41 20 58 50 00 04 0e  04 0b 43 4d 50 20 23 24  |DA XP.....CMP #$|
00000600  32 38 00 12 0e 0e 0b 42  43 43 20 4e 53 51 55 50  |28.....BCC NSQUP|
00000610  00 1f 0e 18 0b 43 4d 50  20 23 24 46 38 00 2d 0e  |.....CMP #$F8.-.|
00000620  22 0b 42 43 53 20 4e 53  51 55 50 00 39 0e 2c 0b  |".BCS NSQUP.9.,.|
00000630  4c 44 41 20 58 50 42 00  47 0e 36 0b 42 4e 45 20  |LDA XPB.G.6.BNE |
00000640  4e 53 51 55 50 00 52 0e  40 0b 4c 44 41 20 59 50  |NSQUP.R.@.LDA YP|
00000650  00 5f 0e 4a 0b 43 4d 50  20 23 24 34 32 00 6d 0e  |._.J.CMP #$42.m.|
00000660  54 0b 42 43 43 20 4e 53  51 55 50 00 7a 0e 5e 0b  |T.BCC NSQUP.z.^.|
00000670  43 4d 50 20 23 24 43 31  00 88 0e 68 0b 42 43 53  |CMP #$C1...h.BCS|
00000680  20 4e 53 51 55 50 00 93  0e 72 0b 4c 44 41 20 58  | NSQUP...r.LDA X|
00000690  50 00 9e 0e 7c 0b af 20  23 24 46 38 00 ac 0e 86  |P...|.. #$F8....|
000006a0  0b 53 54 41 20 24 44 30  30 30 00 b7 0e 9a 0b 4c  |.STA $D000.....L|
000006b0  44 41 20 59 50 00 c2 0e  a4 0b af 20 23 24 46 38  |DA YP...... #$F8|
000006c0  00 ce 0e a9 0b b0 41 20  23 24 30 32 00 dc 0e b8  |......A #$02....|
000006d0  0b 53 54 41 20 24 44 30  30 31 00 ea 0e b9 0b 4c  |.STA $D001.....L|
000006e0  44 41 20 24 44 30 31 30  00 f5 0e ba 0b af 20 23  |DA $D010...... #|
000006f0  24 46 43 00 03 0f bc 0b  53 54 41 20 24 44 30 31  |$FC.....STA $D01|
00000700  30 00 10 0f bd 0b 4c 44  41 20 23 24 39 32 00 1e  |0.....LDA #$92..|
00000710  0f be 0b 53 54 41 20 24  36 33 46 38 00 2c 0f bf  |...STA $63F8.,..|
00000720  0b 4c 44 41 20 24 44 30  31 35 00 37 0f c0 0b af  |.LDA $D015.7....|
00000730  20 23 24 46 43 00 43 0f  c1 0b b0 41 20 23 24 30  | #$FC.C....A #$0|
00000740  31 00 51 0f c2 0b 53 54  41 20 24 44 30 31 35 00  |1.Q...STA $D015.|
00000750  5e 0f ca 0b 4c 44 41 20  23 24 30 31 00 6c 0f cb  |^...LDA #$01.l..|
00000760  0b 53 54 41 20 24 44 30  32 37 00 74 0f cc 0b 52  |.STA $D027.t...R|
00000770  54 53 00 88 0f ce 0b 48  47 4c 41 53 53 20 4c 44  |TS.....HGLASS LD|
00000780  58 20 23 24 39 33 00 96  0f d0 0b 53 54 58 20 24  |X #$93.....STX $|
00000790  36 33 46 38 00 9e 0f d2  0b 49 4e 58 00 ac 0f d4  |63F8.....INX....|
000007a0  0b 53 54 58 20 24 36 33  46 39 00 bd 0f d6 0b 4e  |.STX $63F9.....N|
000007b0  53 51 55 50 20 4c 44 41  20 58 50 00 cb 0f e0 0b  |SQUP LDA XP.....|
000007c0  53 54 41 20 24 44 30 30  30 00 d9 0f ea 0b 53 54  |STA $D000.....ST|
000007d0  41 20 24 44 30 30 32 00  e4 0f f4 0b 4c 44 41 20  |A $D002.....LDA |
000007e0  59 50 00 f2 0f fe 0b 53  54 41 20 24 44 30 30 31  |YP.....STA $D001|
000007f0  00 00 10 08 0c 53 54 41  20 24 44 30 30 33 00 0e  |.....STA $D003..|
00000800  10 12 0c 4c 44 41 20 24  44 30 31 30 00 19 10 1c  |...LDA $D010....|
00000810  0c af 20 23 24 46 43 00  23 10 26 0c 4c 53 52 20  |.. #$FC.#.&.LSR |
00000820  41 00 2b 10 30 0c 43 4c  43 00 37 10 3a 0c 41 44  |A.+.0.CLC.7.:.AD|
00000830  43 20 58 50 42 00 41 10  44 0c 41 53 4c 20 41 00  |C XPB.A.D.ASL A.|
00000840  49 10 4e 0c 43 4c 43 00  55 10 58 0c 41 44 43 20  |I.N.CLC.U.X.ADC |
00000850  58 50 42 00 63 10 62 0c  53 54 41 20 24 44 30 31  |XPB.c.b.STA $D01|
00000860  30 00 70 10 6c 0c 4c 44  41 20 23 24 30 30 00 7e  |0.p.l.LDA #$00.~|
00000870  10 76 0c 53 54 41 20 24  44 30 32 37 00 8b 10 80  |.v.STA $D027....|
00000880  0c 4c 44 41 20 23 24 30  31 00 99 10 8a 0c 53 54  |.LDA #$01.....ST|
00000890  41 20 24 44 30 32 38 00  a7 10 94 0c 4c 44 41 20  |A $D028.....LDA |
000008a0  24 44 30 31 35 00 b3 10  9e 0c b0 41 20 23 24 30  |$D015......A #$0|
000008b0  33 00 c1 10 a8 0c 53 54  41 20 24 44 30 31 35 00  |3.....STA $D015.|
000008c0  ce 10 ab 0c 4c 44 41 20  48 4f 55 52 00 db 10 ae  |....LDA HOUR....|
000008d0  0c 42 4e 45 20 51 54 52  4f 00 e8 10 b2 0c 4c 44  |.BNE QTRO.....LD|
000008e0  41 20 23 24 39 30 00 f6  10 bc 0c 53 54 41 20 24  |A #$90.....STA $|
000008f0  36 33 46 38 00 03 11 c6  0c 4c 44 41 20 23 24 39  |63F8.....LDA #$9|
00000900  31 00 11 11 d0 0c 53 54  41 20 24 36 33 46 39 00  |1.....STA $63F9.|
00000910  1e 11 da 0c 51 54 52 4f  20 52 54 53 00 35 11 e4  |....QTRO RTS.5..|
00000920  0c 3b 20 53 54 41 52 54  55 50 20 52 4f 55 54 49  |.; STARTUP ROUTI|
00000930  4e 45 53 00 45 11 e6 0c  53 52 20 4c 44 41 20 23  |NES.E...SR LDA #|
00000940  24 38 42 00 53 11 ea 0c  53 54 41 20 24 44 30 31  |$8B.S...STA $D01|
00000950  31 00 61 11 ee 0c 4c 44  41 20 24 44 44 30 32 00  |1.a...LDA $DD02.|
00000960  6d 11 f0 0c b0 41 20 23  24 30 32 00 7b 11 f2 0c  |m....A #$02.{...|
00000970  53 54 41 20 24 44 44 30  32 00 89 11 f4 0c 4c 44  |STA $DD02.....LD|
00000980  41 20 24 44 44 30 30 00  94 11 f8 0c af 20 23 24  |A $DD00...... #$|
00000990  46 45 00 a0 11 02 0d b0  41 20 23 24 30 32 00 ae  |FE......A #$02..|
000009a0  11 0c 0d 53 54 41 20 24  44 44 30 30 00 bb 11 0f  |...STA $DD00....|
000009b0  0d 4c 44 41 20 23 24 30  30 00 c9 11 12 0d 53 54  |.LDA #$00.....ST|
000009c0  41 20 24 44 30 32 30 00  d7 11 14 0d 53 54 41 20  |A $D020.....STA |
000009d0  24 44 30 32 31 00 e4 11  16 0d 4c 44 41 20 23 24  |$D021.....LDA #$|
000009e0  38 36 00 f2 11 20 0d 53  54 41 20 24 44 30 31 38  |86... .STA $D018|
000009f0  00 ff 11 22 0d 4c 44 41  20 23 24 30 30 00 0d 12  |...".LDA #$00...|
00000a00  25 0d 53 54 41 20 24 44  30 30 30 00 1a 12 26 0d  |%.STA $D000...&.|
00000a10  4c 44 41 20 23 24 30 42  00 28 12 28 0d 53 54 41  |LDA #$0B.(.(.STA|
00000a20  20 24 44 30 30 31 00 35  12 2d 0d 4c 44 41 20 23  | $D001.5.-.LDA #|
00000a30  24 31 30 00 43 12 2e 0d  53 54 41 20 24 44 30 30  |$10.C...STA $D00|
00000a40  38 00 50 12 2f 0d 4c 44  41 20 23 24 33 41 00 5e  |8.P./.LDA #$3A.^|
00000a50  12 30 0d 53 54 41 20 24  44 30 30 39 00 6b 12 31  |.0.STA $D009.k.1|
00000a60  0d 4c 44 41 20 23 24 31  30 00 79 12 32 0d 53 54  |.LDA #$10.y.2.ST|
00000a70  41 20 24 44 30 31 30 00  86 12 33 0d 4c 44 41 20  |A $D010...3.LDA |
00000a80  23 24 30 31 00 94 12 34  0d 53 54 41 20 24 44 30  |#$01...4.STA $D0|
00000a90  32 39 00 a2 12 35 0d 53  54 41 20 24 44 30 32 42  |29...5.STA $D02B|
00000aa0  00 af 12 36 0d 4c 44 41  20 23 24 30 30 00 bd 12  |...6.LDA #$00...|
00000ab0  37 0d 53 54 41 20 24 44  30 32 41 00 cb 12 39 0d  |7.STA $D02A...9.|
00000ac0  53 54 41 20 53 43 48 41  52 00 d8 12 3c 0d 4c 44  |STA SCHAR...<.LD|
00000ad0  41 20 23 24 30 31 00 e5  12 3d 0d 4c 44 58 20 23  |A #$01...=.LDX #|
00000ae0  24 30 38 00 ed 12 3e 0d  54 41 59 00 fb 12 48 0d  |$08...>.TAY...H.|
00000af0  4a 53 52 20 24 46 46 42  41 00 08 13 52 0d 4c 44  |JSR $FFBA...R.LD|
00000b00  41 20 23 24 30 43 00 19  13 5c 0d 4c 44 58 20 23  |A #$0C...\.LDX #|
00000b10  b3 45 47 52 54 58 54 00  2a 13 66 0d 4c 44 59 20  |.EGRTXT.*.f.LDY |
00000b20  23 b1 45 47 52 54 58 54  00 38 13 7a 0d 4a 53 52  |#.EGRTXT.8.z.JSR|
00000b30  20 24 46 46 42 44 00 45  13 84 0d 4c 44 41 20 23  | $FFBD.E...LDA #|
00000b40  24 30 30 00 53 13 8e 0d  4a 53 52 20 24 46 46 44  |$00.S...JSR $FFD|
00000b50  35 00 60 13 8f 0d 4c 44  41 20 23 24 30 31 00 6d  |5.`...LDA #$01.m|
00000b60  13 90 0d 4c 44 58 20 23  24 30 38 00 75 13 91 0d  |...LDX #$08.u...|
00000b70  54 41 59 00 83 13 92 0d  4a 53 52 20 24 46 46 42  |TAY.....JSR $FFB|
00000b80  41 00 90 13 93 0d 4c 44  41 20 23 24 30 38 00 a0  |A.....LDA #$08..|
00000b90  13 94 0d 4c 44 58 20 23  b3 45 43 54 58 54 00 b0  |...LDX #.ECTXT..|
00000ba0  13 95 0d 4c 44 59 20 23  b1 45 43 54 58 54 00 be  |...LDY #.ECTXT..|
00000bb0  13 96 0d 4a 53 52 20 24  46 46 42 44 00 cb 13 97  |...JSR $FFBD....|
00000bc0  0d 4c 44 41 20 23 24 30  30 00 d9 13 98 0d 4a 53  |.LDA #$00.....JS|
00000bd0  52 20 24 46 46 44 35 00  e6 13 99 0d 4c 44 41 20  |R $FFD5.....LDA |
00000be0  23 24 39 42 00 f4 13 9a  0d 53 54 41 20 24 44 30  |#$9B.....STA $D0|
00000bf0  31 31 00 01 14 9b 0d 4c  44 41 20 23 24 30 30 00  |11.....LDA #$00.|
00000c00  0f 14 9d 0d 53 54 41 20  42 55 54 4e 4f 00 1c 14  |....STA BUTNO...|
00000c10  9f 0d 4c 44 41 20 23 24  39 32 00 2a 14 a2 0d 53  |..LDA #$92.*...S|
00000c20  54 41 20 24 36 33 46 43  00 32 14 ac 0d 53 45 49  |TA $63FC.2...SEI|
00000c30  00 3f 14 b6 0d 4c 44 41  20 23 24 30 30 00 4d 14  |.?...LDA #$00.M.|
00000c40  c0 0d 53 54 41 20 24 30  33 31 34 00 5a 14 ca 0d  |..STA $0314.Z...|
00000c50  4c 44 41 20 23 24 43 30  00 68 14 d4 0d 53 54 41  |LDA #$C0.h...STA|
00000c60  20 24 30 33 31 35 00 70  14 de 0d 43 4c 49 00 7d  | $0315.p...CLI.}|
00000c70  14 e8 0d 4c 44 41 20 23  24 30 30 00 88 14 f2 0d  |...LDA #$00.....|
00000c80  53 54 41 20 58 50 00 95  14 fc 0d 53 54 41 20 48  |STA XP.....STA H|
00000c90  4f 55 52 00 a2 14 06 0e  4c 44 41 20 23 24 38 30  |OUR.....LDA #$80|
00000ca0  00 ad 14 10 0e 53 54 41  20 59 50 00 ba 14 1a 0e  |.....STA YP.....|
00000cb0  4c 44 41 20 23 24 30 31  00 c6 14 24 0e 53 54 41  |LDA #$01...$.STA|
00000cc0  20 58 50 42 00 d3 14 25  0e 4c 44 41 20 23 24 31  | XPB...%.LDA #$1|
00000cd0  43 00 e1 14 26 0e 53 54  41 20 24 44 30 31 35 00  |C...&.STA $D015.|
00000ce0  ee 14 27 0e 4a 53 52 20  4c 45 46 54 00 fb 14 28  |..'.JSR LEFT...(|
00000cf0  0e 4c 44 41 20 23 24 30  30 00 09 15 29 0e 53 54  |.LDA #$00...).ST|
00000d00  41 20 24 44 30 30 34 00  17 15 2a 0e 53 54 41 20  |A $D004...*.STA |
00000d10  24 44 30 30 36 00 24 15  2b 0e 4c 44 41 20 23 24  |$D006.$.+.LDA #$|
00000d20  44 39 00 32 15 2c 0e 53  54 41 20 24 44 30 30 35  |D9.2.,.STA $D005|
00000d30  00 40 15 2d 0e 53 54 41  20 24 44 30 30 37 00 4d  |.@.-.STA $D007.M|
00000d40  15 2e 0e 4c 44 41 20 23  24 39 35 00 5b 15 30 0e  |...LDA #$95.[.0.|
00000d50  53 54 41 20 24 36 33 46  42 00 68 15 32 0e 4c 44  |STA $63FB.h.2.LD|
00000d60  41 20 23 24 30 38 00 76  15 33 0e 53 54 41 20 24  |A #$08.v.3.STA $|
00000d70  44 30 31 43 00 83 15 34  0e 4c 44 41 20 23 24 31  |D01C...4.LDA #$1|
00000d80  38 00 91 15 35 0e 53 54  41 20 24 44 30 31 36 00  |8...5.STA $D016.|
00000d90  a7 15 37 0e 42 55 54 30  20 4a 53 52 20 42 55 54  |..7.BUT0 JSR BUT|
00000da0  43 48 45 43 4b 00 b4 15  38 0e 4a 4d 50 20 42 55  |CHECK...8.JMP BU|
00000db0  54 30 00 d2 15 42 0e 45  47 52 54 58 54 20 54 58  |T0...B.EGRTXT TX|
00000dc0  54 20 22 45 44 49 54 47  52 41 50 48 49 43 53 22  |T "EDITGRAPHICS"|
00000dd0  00 eb 15 44 0e 45 43 54  58 54 20 54 58 54 20 22  |...D.ECTXT TXT "|
00000de0  45 44 49 54 43 4f 4c 53  22 00 fe 15 47 0e 42 43  |EDITCOLS"...G.BC|
00000df0  51 55 20 4a 4d 50 20 53  4c 45 43 54 00 0c 16 49  |QU JMP SLECT...I|
00000e00  0e 42 43 4e 43 51 20 52  54 53 00 23 16 4c 0e 42  |.BCNCQ RTS.#.L.B|
00000e10  55 54 43 48 45 43 4b 20  4c 44 41 20 43 4c 49 43  |UTCHECK LDA CLIC|
00000e20  4b 00 31 16 56 0e 42 45  51 20 42 43 4e 43 51 00  |K.1.V.BEQ BCNCQ.|
00000e30  3c 16 60 0e 4c 44 41 20  59 50 00 49 16 62 0e 43  |<.`.LDA YP.I.b.C|
00000e40  4d 50 20 23 24 44 39 00  56 16 64 0e 42 43 43 20  |MP #$D9.V.d.BCC |
00000e50  42 43 51 55 00 62 16 65  0e 4c 44 41 20 58 50 42  |BCQU.b.e.LDA XPB|
00000e60  00 6f 16 66 0e 42 4e 45  20 58 42 53 52 00 7a 16  |.o.f.BNE XBSR.z.|
00000e70  67 0e 4c 44 41 20 58 50  00 87 16 68 0e 43 4d 50  |g.LDA XP...h.CMP|
00000e80  20 23 24 32 38 00 94 16  69 0e 42 43 43 20 42 43  | #$28...i.BCC BC|
00000e90  51 55 00 a2 16 6c 0e 4c  44 41 20 24 44 30 31 30  |QU...l.LDA $D010|
00000ea0  00 ad 16 6e 0e af 20 23  24 46 33 00 bb 16 70 0e  |...n.. #$F3...p.|
00000eb0  53 54 41 20 24 44 30 31  30 00 c6 16 72 0e 4c 44  |STA $D010...r.LD|
00000ec0  41 20 58 50 00 d3 16 74  0e 43 4d 50 20 23 24 32  |A XP...t.CMP #$2|
00000ed0  38 00 e0 16 7e 0e 42 43  43 20 42 43 51 55 00 ed  |8...~.BCC BCQU..|
00000ee0  16 92 0e 4a 4d 50 20 42  43 4f 4b 00 fd 16 9c 0e  |...JMP BCOK.....|
00000ef0  58 42 53 52 20 4c 44 41  20 58 50 00 0a 17 a6 0e  |XBSR LDA XP.....|
00000f00  43 4d 50 20 23 24 34 34  00 17 17 b0 0e 42 43 53  |CMP #$44.....BCS|
00000f10  20 42 43 51 55 00 25 17  b1 0e 4c 44 41 20 24 44  | BCQU.%...LDA $D|
00000f20  30 31 30 00 31 17 b2 0e  b0 41 20 23 24 30 43 00  |010.1....A #$0C.|
00000f30  3f 17 b3 0e 53 54 41 20  24 44 30 31 30 00 4f 17  |?...STA $D010.O.|
00000f40  ba 0e 42 43 4f 4b 20 4c  44 41 20 58 50 00 5b 17  |..BCOK LDA XP.[.|
00000f50  bc 0e 4c 44 58 20 58 50  42 00 68 17 bf 0e 42 4e  |..LDX XPB.h...BN|
00000f60  45 20 42 43 54 43 00 70  17 c4 0e 53 45 43 00 7d  |E BCTC.p...SEC.}|
00000f70  17 ce 0e 53 42 43 20 23  24 32 38 00 8f 17 d8 0e  |...SBC #$28.....|
00000f80  42 43 54 43 20 4c 44 58  20 23 24 46 46 00 9d 17  |BCTC LDX #$FF...|
00000f90  e2 0e 42 43 4c 50 41 20  49 4e 58 00 a5 17 ec 0e  |..BCLPA INX.....|
00000fa0  53 45 43 00 b2 17 f6 0e  53 42 43 20 23 24 31 38  |SEC.....SBC #$18|
00000fb0  00 bf 17 00 0f 43 4d 50  20 23 24 45 38 00 cd 17  |.....CMP #$E8...|
00000fc0  0a 0f 42 43 43 20 42 43  4c 50 41 00 d5 17 14 0f  |..BCC BCLPA.....|
00000fd0  54 58 41 00 e1 17 1e 0f  4c 44 59 20 58 50 42 00  |TXA.....LDY XPB.|
00000fe0  ed 17 28 0f 42 45 51 20  4e 41 4f 00 f5 17 32 0f  |..(.BEQ NAO...2.|
00000ff0  43 4c 43 00 02 18 3c 0f  41 44 43 20 23 24 30 39  |CLC...<.ADC #$09|
00001000  00 14 18 46 0f 4e 41 4f  20 53 54 41 20 42 55 54  |...F.NAO STA BUT|
00001010  4e 4f 00 1e 18 50 0f 41  53 4c 20 41 00 28 18 5a  |NO...P.ASL A.(.Z|
00001020  0f 41 53 4c 20 41 00 32  18 64 0f 41 53 4c 20 41  |.ASL A.2.d.ASL A|
00001030  00 3e 18 6e 0f 53 54 41  20 24 30 32 00 46 18 78  |.>.n.STA $02.F.x|
00001040  0f 43 4c 43 00 52 18 82  0f 41 44 43 20 24 30 32  |.CLC.R...ADC $02|
00001050  00 5e 18 8c 0f 41 44 43  20 24 30 32 00 6b 18 91  |.^...ADC $02.k..|
00001060  0f 41 44 43 20 23 24 32  38 00 79 18 96 0f 53 54  |.ADC #$28.y...ST|
00001070  41 20 24 44 30 30 34 00  87 18 a0 0f 53 54 41 20  |A $D004.....STA |
00001080  24 44 30 30 36 00 94 18  aa 0f 4c 44 41 20 23 24  |$D006.....LDA #$|
00001090  39 36 00 9c 18 ac 0f 43  4c 43 00 aa 18 b0 0f 41  |96.....CLC.....A|
000010a0  44 43 20 42 55 54 4e 4f  00 b8 18 b4 0f 53 54 41  |DC BUTNO.....STA|
000010b0  20 24 36 33 46 41 00 c0  18 be 0f 50 4c 41 00 c8  | $63FA.....PLA..|
000010c0  18 c8 0f 50 4c 41 00 d5  18 d2 0f 4c 44 41 20 23  |...PLA.....LDA #|
000010d0  24 43 46 00 e2 18 dc 0f  53 54 41 20 56 45 aa 32  |$CF.....STA VE.2|
000010e0  00 f0 18 e6 0f 4c 44 41  20 42 55 54 4e 4f 00 fa  |.....LDA BUTNO..|
000010f0  18 f0 0f 41 53 4c 20 41  00 02 19 f3 0f 43 4c 43  |...ASL A.....CLC|
00001100  00 0f 19 f6 0f 41 44 43  20 23 24 38 30 00 1c 19  |.....ADC #$80...|
00001110  fa 0f 53 54 41 20 56 45  aa 31 00 2a 19 fc 0f 4c  |..STA VE.1.*...L|
00001120  44 41 20 23 b1 56 45 43  00 32 19 fe 0f 50 48 41  |DA #.VEC.2...PHA|
00001130  00 42 19 00 10 4c 44 41  20 23 b3 56 45 43 ab 31  |.B...LDA #.VEC.1|
00001140  00 4a 19 02 10 50 48 41  00 5d 19 04 10 56 45 20  |.J...PHA.]...VE |
00001150  4a 4d 50 20 28 24 30 30  30 30 29 00 6e 19 0e 10  |JMP ($0000).n...|
00001160  56 45 43 20 4c 44 41 20  56 45 aa 31 00 76 19 18  |VEC LDA VE.1.v..|
00001170  10 43 4c 43 00 83 19 22  10 41 44 43 20 23 24 32  |.CLC...".ADC #$2|
00001180  30 00 90 19 2c 10 53 54  41 20 50 48 aa 31 00 9d  |0...,.STA PH.1..|
00001190  19 36 10 4c 44 41 20 23  24 43 46 00 aa 19 40 10  |.6.LDA #$CF...@.|
000011a0  53 54 41 20 50 48 aa 32  00 bd 19 4a 10 50 48 20  |STA PH.2...J.PH |
000011b0  4a 4d 50 20 28 24 30 30  30 30 29 00 cc 19 54 10  |JMP ($0000)...T.|
000011c0  53 4c 45 43 54 51 20 52  54 53 00 de 19 5e 10 53  |SLECTQ RTS...^.S|
000011d0  4c 45 43 54 20 4c 44 41  20 58 50 42 00 ed 19 68  |LECT LDA XPB...h|
000011e0  10 42 45 51 20 53 4c 45  43 54 51 00 f8 19 72 10  |.BEQ SLECTQ...r.|
000011f0  4c 44 41 20 58 50 00 05  1a 7c 10 43 4d 50 20 23  |LDA XP...|.CMP #|
00001200  24 31 30 00 14 1a 86 10  42 43 43 20 53 4c 45 43  |$10.....BCC SLEC|
00001210  54 51 00 21 1a 90 10 43  4d 50 20 23 24 35 30 00  |TQ.!...CMP #$50.|
00001220  30 1a 9a 10 42 43 53 20  53 4c 45 43 54 51 00 3b  |0...BCS SLECTQ.;|
00001230  1a a4 10 4c 44 41 20 59  50 00 48 1a ae 10 43 4d  |...LDA YP.H...CM|
00001240  50 20 23 24 33 41 00 57  1a b8 10 42 43 43 20 53  |P #$3A.W...BCC S|
00001250  4c 45 43 54 51 00 64 1a  c2 10 43 4d 50 20 23 24  |LECTQ.d...CMP #$|
00001260  43 41 00 73 1a cc 10 42  43 53 20 53 4c 45 43 54  |CA.s...BCS SLECT|
00001270  51 00 7e 1a d6 10 4c 44  41 20 58 50 00 89 1a e0  |Q.~...LDA XP....|
00001280  10 af 20 23 24 46 38 00  91 1a ea 10 54 41 58 00  |.. #$F8.....TAX.|
00001290  9c 1a f4 10 4c 44 41 20  59 50 00 a7 1a fe 10 af  |....LDA YP......|
000012a0  20 23 24 46 38 00 b3 1a  00 11 b0 41 20 23 24 30  | #$F8......A #$0|
000012b0  32 00 bb 1a 08 11 54 41  59 00 c8 1a 12 11 43 4d  |2.....TAY.....CM|
000012c0  50 20 23 24 42 41 00 d7  1a 1c 11 42 45 51 20 53  |P #$BA.....BEQ S|
000012d0  4c 45 43 54 51 00 e5 1a  26 11 42 43 53 20 53 4c  |LECTQ...&.BCS SL|
000012e0  43 4e 54 00 f2 1a 30 11  43 50 58 20 23 24 33 30  |CNT...0.CPX #$30|
000012f0  00 01 1b 3a 11 42 45 51  20 53 4c 45 43 54 51 00  |...:.BEQ SLECTQ.|
00001300  15 1b 44 11 53 4c 43 4e  54 20 53 54 58 20 24 44  |..D.SLCNT STX $D|
00001310  30 30 38 00 23 1b 4e 11  53 54 59 20 24 44 30 30  |008.#.N.STY $D00|
00001320  39 00 30 1b 58 11 43 50  59 20 23 24 42 41 00 3e  |9.0.X.CPY #$BA.>|
00001330  1b 62 11 42 43 53 20 43  41 4c 43 32 00 46 1b 6c  |.b.BCS CALC2.F.l|
00001340  11 54 58 41 00 53 1b 76  11 43 4d 50 20 23 24 33  |.TXA.S.v.CMP #$3|
00001350  30 00 61 1b 80 11 42 43  43 20 43 41 4c 43 31 00  |0.a...BCC CALC1.|
00001360  69 1b 8a 11 53 45 43 00  76 1b 94 11 53 42 43 20  |i...SEC.v...SBC |
00001370  23 24 30 38 00 84 1b 9e  11 43 41 4c 43 31 20 53  |#$08.....CALC1 S|
00001380  45 43 00 91 1b a8 11 53  42 43 20 23 24 31 30 00  |EC.....SBC #$10.|
00001390  9b 1b ad 11 41 53 4c 20  41 00 a7 1b b2 11 53 54  |....ASL A.....ST|
000013a0  41 20 24 30 32 00 af 1b  bc 11 54 59 41 00 b7 1b  |A $02.....TYA...|
000013b0  c6 11 53 45 43 00 c4 1b  d0 11 53 42 43 20 23 24  |..SEC.....SBC #$|
000013c0  33 41 00 ce 1b da 11 4c  53 52 20 41 00 d8 1b e4  |3A.....LSR A....|
000013d0  11 4c 53 52 20 41 00 e2  1b ee 11 4c 53 52 20 41  |.LSR A.....LSR A|
000013e0  00 ea 1b f8 11 43 4c 43  00 f6 1b 02 12 41 44 43  |.....CLC.....ADC|
000013f0  20 24 30 32 00 04 1c 0c  12 53 54 41 20 53 43 48  | $02.....STA SCH|
00001400  41 52 00 0c 1c 16 12 52  54 53 00 1a 1c 20 12 43  |AR.....RTS... .C|
00001410  41 4c 43 32 20 54 58 41  00 22 1c 2a 12 53 45 43  |ALC2 TXA.".*.SEC|
00001420  00 2f 1c 34 12 53 42 43  20 23 24 31 30 00 39 1c  |./.4.SBC #$10.9.|
00001430  3e 12 4c 53 52 20 41 00  43 1c 48 12 4c 53 52 20  |>.LSR A.C.H.LSR |
00001440  41 00 4d 1c 52 12 4c 53  52 20 41 00 5a 1c 5c 12  |A.M.R.LSR A.Z.\.|
00001450  43 50 59 20 23 24 43 32  00 69 1c 66 12 42 45 51  |CPY #$C2.i.f.BEQ|
00001460  20 43 41 4c 43 32 43 00  71 1c 70 12 43 4c 43 00  | CALC2C.q.p.CLC.|
00001470  7e 1c 7a 12 41 44 43 20  23 24 30 38 00 8d 1c 84  |~.z.ADC #$08....|
00001480  12 43 41 4c 43 32 43 20  43 4c 43 00 9a 1c 8e 12  |.CALC2C CLC.....|
00001490  41 44 43 20 23 24 37 30  00 a8 1c 98 12 53 54 41  |ADC #$70.....STA|
000014a0  20 53 43 48 41 52 00 b0  1c a2 12 52 54 53 00 c2  | SCHAR.....RTS..|
000014b0  1c c0 12 9c 53 43 52 20  4c 44 41 20 23 24 35 32  |....SCR LDA #$52|
000014c0  00 ce 1c ca 12 53 54 41  20 24 46 42 00 db 1c d4  |.....STA $FB....|
000014d0  12 4c 44 41 20 23 24 44  38 00 e7 1c de 12 53 54  |.LDA #$D8.....ST|
000014e0  41 20 24 46 43 00 f9 1c  e8 12 4c 4f 50 41 20 4c  |A $FC.....LOPA L|
000014f0  44 41 20 23 24 30 30 00  06 1d f2 12 4c 44 59 20  |DA #$00.....LDY |
00001500  23 24 30 30 00 1b 1d fc  12 4c 4f 50 42 20 53 54  |#$00.....LOPB ST|
00001510  41 20 28 24 46 42 29 2c  59 00 23 1d 06 13 49 4e  |A ($FB),Y.#...IN|
00001520  59 00 30 1d 10 13 43 50  59 20 23 24 31 41 00 3d  |Y.0...CPY #$1A.=|
00001530  1d 1a 13 42 4e 45 20 4c  4f 50 42 00 49 1d 24 13  |...BNE LOPB.I.$.|
00001540  4c 44 41 20 24 46 42 00  51 1d 2e 13 43 4c 43 00  |LDA $FB.Q...CLC.|
00001550  5e 1d 38 13 41 44 43 20  23 24 32 38 00 6a 1d 42  |^.8.ADC #$28.j.B|
00001560  13 53 54 41 20 24 46 42  00 77 1d 4c 13 43 4d 50  |.STA $FB.w.L.CMP|
00001570  20 23 24 44 32 00 86 1d  56 13 42 45 51 20 51 55  | #$D2...V.BEQ QU|
00001580  49 54 43 53 00 93 1d 60  13 43 4d 50 20 23 24 32  |ITCS...`.CMP #$2|
00001590  38 00 a0 1d 6a 13 42 43  53 20 4c 4f 50 41 00 ac  |8...j.BCS LOPA..|
000015a0  1d 74 13 49 4e 43 20 24  46 43 00 b9 1d 7e 13 4a  |.t.INC $FC...~.J|
000015b0  4d 50 20 4c 4f 50 41 00  c8 1d 88 13 51 55 49 54  |MP LOPA.....QUIT|
000015c0  43 53 20 52 54 53 00 dd  1d 92 13 44 49 53 50 20  |CS RTS.....DISP |
000015d0  4a 53 52 20 53 43 52 44  49 53 50 00 eb 1d 9c 13  |JSR SCRDISP.....|
000015e0  4a 4d 50 20 43 d5 49 53  50 00 00 1e a6 13 53 43  |JMP C.ISP.....SC|
000015f0  52 44 49 53 50 20 4c 44  41 20 23 24 35 32 00 0c  |RDISP LDA #$52..|
00001600  1e b0 13 53 54 41 20 24  46 42 00 19 1e ba 13 4c  |...STA $FB.....L|
00001610  44 41 20 23 24 36 30 00  25 1e c4 13 53 54 41 20  |DA #$60.%...STA |
00001620  24 46 43 00 32 1e ce 13  4c 44 58 20 23 24 30 30  |$FC.2...LDX #$00|
00001630  00 45 1e d8 13 4c 4f 50  41 44 20 4c 44 59 20 23  |.E...LOPAD LDY #|
00001640  24 30 30 00 59 1e e2 13  4c 4f 50 42 44 20 4a 53  |$00.Y...LOPBD JS|
00001650  52 20 a1 43 48 41 52 00  65 1e ec 13 b0 41 20 23  |R .CHAR.e....A #|
00001660  24 38 30 00 75 1e f6 13  53 54 41 20 28 24 46 42  |$80.u...STA ($FB|
00001670  29 2c 59 00 7d 1e 00 14  49 4e 59 00 8a 1e 0a 14  |),Y.}...INY.....|
00001680  43 50 59 20 23 24 31 41  00 98 1e 14 14 42 4e 45  |CPY #$1A.....BNE|
00001690  20 4c 4f 50 42 44 00 a4  1e 1e 14 4c 44 41 20 24  | LOPBD.....LDA $|
000016a0  46 42 00 ac 1e 28 14 43  4c 43 00 b9 1e 32 14 41  |FB...(.CLC...2.A|
000016b0  44 43 20 23 24 32 38 00  c5 1e 3c 14 53 54 41 20  |DC #$28...<.STA |
000016c0  24 46 42 00 cd 1e 46 14  49 4e 58 00 da 1e 50 14  |$FB...F.INX...P.|
000016d0  43 4d 50 20 23 24 44 32  00 e9 1e 5a 14 42 45 51  |CMP #$D2...Z.BEQ|
000016e0  20 51 55 49 54 43 53 00  f6 1e 64 14 43 4d 50 20  | QUITCS...d.CMP |
000016f0  23 24 32 38 00 04 1f 6e  14 42 43 53 20 4c 4f 50  |#$28...n.BCS LOP|
00001700  41 44 00 10 1f 78 14 49  4e 43 20 24 46 43 00 1e  |AD...x.INC $FC..|
00001710  1f 82 14 4a 4d 50 20 4c  4f 50 41 44 00 31 1f 8c  |...JMP LOPAD.1..|
00001720  14 43 d5 49 53 50 20 4c  44 41 20 23 24 35 32 00  |.C.ISP LDA #$52.|
00001730  3d 1f 96 14 53 54 41 20  24 46 42 00 4a 1f a0 14  |=...STA $FB.J...|
00001740  4c 44 41 20 23 24 44 38  00 56 1f aa 14 53 54 41  |LDA #$D8.V...STA|
00001750  20 24 46 43 00 63 1f b4  14 4c 44 58 20 23 24 30  | $FC.c...LDX #$0|
00001760  30 00 76 1f be 14 4c 4f  50 43 44 20 4c 44 59 20  |0.v...LOPCD LDY |
00001770  23 24 30 30 00 84 1f c8  14 4c 4f 50 44 44 20 54  |#$00.....LOPDD T|
00001780  58 41 00 8c 1f d2 14 50  48 41 00 9a 1f dc 14 4a  |XA.....PHA.....J|
00001790  53 52 20 a1 43 48 41 52  00 a2 1f e6 14 54 41 58  |SR .CHAR.....TAX|
000017a0  00 b2 1f f0 14 4c 44 41  20 24 45 30 30 30 2c 58  |.....LDA $E000,X|
000017b0  00 c2 1f fa 14 53 54 41  20 28 24 46 42 29 2c 59  |.....STA ($FB),Y|
000017c0  00 ca 1f 04 15 50 4c 41  00 d2 1f 0e 15 54 41 58  |.....PLA.....TAX|
000017d0  00 da 1f 18 15 49 4e 59  00 e7 1f 22 15 43 50 59  |.....INY...".CPY|
000017e0  20 23 24 31 41 00 f5 1f  2c 15 42 4e 45 20 4c 4f  | #$1A...,.BNE LO|
000017f0  50 44 44 00 01 20 36 15  4c 44 41 20 24 46 42 00  |PDD.. 6.LDA $FB.|
00001800  09 20 40 15 43 4c 43 00  16 20 4a 15 41 44 43 20  |. @.CLC.. J.ADC |
00001810  23 24 32 38 00 22 20 54  15 53 54 41 20 24 46 42  |#$28." T.STA $FB|
00001820  00 2a 20 5e 15 49 4e 58  00 37 20 68 15 43 4d 50  |.* ^.INX.7 h.CMP|
00001830  20 23 24 44 32 00 46 20  72 15 42 45 51 20 51 55  | #$D2.F r.BEQ QU|
00001840  49 54 43 53 00 53 20 7c  15 43 4d 50 20 23 24 32  |ITCS.S |.CMP #$2|
00001850  38 00 61 20 86 15 42 43  53 20 4c 4f 50 43 44 00  |8.a ..BCS LOPCD.|
00001860  6d 20 90 15 49 4e 43 20  24 46 43 00 7b 20 9a 15  |m ..INC $FC.{ ..|
00001870  4a 4d 50 20 4c 4f 50 43  44 00 8d 20 a4 15 a1 43  |JMP LOPCD.. ...C|
00001880  48 41 52 20 4c 44 41 20  58 53 50 00 99 20 ae 15  |HAR LDA XSP.. ..|
00001890  53 54 41 20 24 46 44 00  a1 20 b8 15 54 58 41 00  |STA $FD.. ..TXA.|
000018a0  a9 20 c2 15 43 4c 43 00  b5 20 cc 15 41 44 43 20  |. ..CLC.. ..ADC |
000018b0  59 53 50 00 c2 20 ce 15  41 44 43 20 23 24 30 34  |YSP.. ..ADC #$04|
000018c0  00 cf 20 d0 15 43 4d 50  20 23 24 34 30 00 db 20  |.. ..CMP #$40.. |
000018d0  d2 15 42 43 43 20 47 43  43 00 e3 20 d3 15 43 4c  |..BCC GCC.. ..CL|
000018e0  43 00 f0 20 d5 15 41 44  43 20 23 24 34 30 00 00  |C.. ..ADC #$40..|
000018f0  21 d6 15 47 43 43 20 53  54 41 20 24 46 45 00 10  |!..GCC STA $FE..|
00001900  21 e0 15 4c 44 41 20 28  24 46 44 29 2c 59 00 18  |!..LDA ($FD),Y..|
00001910  21 ea 15 52 54 53 00 25  21 f4 15 47 44 51 55 20  |!..RTS.%!..GDQU |
00001920  52 54 53 00 37 21 fe 15  a1 44 49 52 20 4c 44 41  |RTS.7!...DIR LDA|
00001930  20 23 24 30 30 00 45 21  08 16 4c 44 58 20 43 4c  | #$00.E!..LDX CL|
00001940  49 43 4b 00 52 21 12 16  42 45 51 20 47 44 51 55  |ICK.R!..BEQ GDQU|
00001950  00 5d 21 1c 16 4c 44 58  20 59 50 00 6a 21 26 16  |.]!..LDX YP.j!&.|
00001960  43 50 58 20 23 24 44 31  00 77 21 30 16 42 43 53  |CPX #$D1.w!0.BCS|
00001970  20 47 44 51 55 00 83 21  3a 16 4c 44 58 20 58 50  | GDQU..!:.LDX XP|
00001980  42 00 91 21 44 16 42 45  51 20 47 44 50 49 49 00  |B..!D.BEQ GDPII.|
00001990  9c 21 4e 16 4c 44 58 20  58 50 00 a9 21 58 16 43  |.!N.LDX XP..!X.C|
000019a0  50 58 20 23 24 30 38 00  b6 21 62 16 42 43 53 20  |PX #$08..!b.BCS |
000019b0  47 44 51 55 00 ca 21 6c  16 47 44 50 49 49 20 4c  |GDQU..!l.GDPII L|
000019c0  44 58 20 24 36 33 46 38  00 d7 21 76 16 43 50 58  |DX $63F8..!v.CPX|
000019d0  20 23 24 39 32 00 e4 21  80 16 42 45 51 20 47 44  | #$92..!..BEQ GD|
000019e0  51 55 00 ef 21 8a 16 4c  44 58 20 59 50 00 fc 21  |QU..!..LDX YP..!|
000019f0  94 16 43 50 58 20 23 24  34 32 00 09 22 9e 16 42  |..CPX #$42.."..B|
00001a00  43 53 20 47 44 50 41 00  15 22 a8 16 b0 41 20 23  |CS GDPA.."...A #|
00001a10  24 30 31 00 27 22 b2 16  47 44 50 41 20 43 50 58  |$01.'"..GDPA CPX|
00001a20  20 23 24 43 32 00 34 22  bc 16 42 43 43 20 47 44  | #$C2.4"..BCC GD|
00001a30  50 42 00 40 22 c6 16 b0  41 20 23 24 30 32 00 50  |PB.@"...A #$02.P|
00001a40  22 d0 16 47 44 50 42 20  4c 44 58 20 58 50 00 5d  |"..GDPB LDX XP.]|
00001a50  22 da 16 43 50 58 20 23  24 32 38 00 6a 22 e4 16  |"..CPX #$28.j"..|
00001a60  42 43 53 20 47 44 50 43  00 76 22 ee 16 b0 41 20  |BCS GDPC.v"...A |
00001a70  23 24 30 34 00 88 22 f8  16 47 44 50 43 20 43 50  |#$04.."..GDPC CP|
00001a80  58 20 23 24 46 38 00 95  22 02 17 42 43 43 20 47  |X #$F8.."..BCC G|
00001a90  44 50 44 00 a1 22 0c 17  b0 41 20 23 24 30 38 00  |DPD.."...A #$08.|
00001aa0  b2 22 16 17 47 44 50 44  20 4c 44 58 20 58 50 42  |."..GDPD LDX XPB|
00001ab0  00 bf 22 20 17 42 45 51  20 47 44 51 55 00 cb 22  |.." .BEQ GDQU.."|
00001ac0  2a 17 b0 41 20 23 24 30  38 00 d3 22 34 17 52 54  |*..A #$08.."4.RT|
00001ad0  53 00 df 22 10 27 42 49  31 20 52 54 53 00 eb 22  |S..".'BI1 RTS.."|
00001ae0  11 27 42 49 32 20 52 54  53 00 f7 22 13 27 42 49  |.'BI2 RTS..".'BI|
00001af0  34 20 52 54 53 00 03 23  14 27 42 49 35 20 52 54  |4 RTS..#.'BI5 RT|
00001b00  53 00 0f 23 15 27 42 49  36 20 52 54 53 00 1b 23  |S..#.'BI6 RTS..#|
00001b10  16 27 42 49 37 20 52 54  53 00 27 23 17 27 42 49  |.'BI7 RTS.'#.'BI|
00001b20  38 20 52 54 53 00 33 23  18 27 42 49 39 20 52 54  |8 RTS.3#.'BI9 RT|
00001b30  53 00 3f 23 19 27 42 49  41 20 52 54 53 00 4b 23  |S.?#.'BIA RTS.K#|
00001b40  1a 27 42 49 42 20 52 54  53 00 57 23 1b 27 42 49  |.'BIB RTS.W#.'BI|
00001b50  43 20 52 54 53 00 63 23  24 27 42 54 31 20 4e 4f  |C RTS.c#$'BT1 NO|
00001b60  50 00 6f 23 25 27 42 54  32 20 4e 4f 50 00 7b 23  |P.o#%'BT2 NOP.{#|
00001b70  26 27 42 54 33 20 4e 4f  50 00 87 23 27 27 42 54  |&'BT3 NOP..#''BT|
00001b80  34 20 4e 4f 50 00 93 23  28 27 42 54 35 20 4e 4f  |4 NOP..#('BT5 NO|
00001b90  50 00 9f 23 29 27 42 54  36 20 4e 4f 50 00 ab 23  |P..#)'BT6 NOP..#|
00001ba0  2a 27 42 54 37 20 4e 4f  50 00 b7 23 2b 27 42 54  |*'BT7 NOP..#+'BT|
00001bb0  38 20 4e 4f 50 00 c3 23  2c 27 42 54 39 20 4e 4f  |8 NOP..#,'BT9 NO|
00001bc0  50 00 cf 23 2d 27 42 54  41 20 4e 4f 50 00 db 23  |P..#-'BTA NOP..#|
00001bd0  2e 27 42 54 42 20 4e 4f  50 00 e7 23 2f 27 42 54  |.'BTB NOP..#/'BT|
00001be0  43 20 4e 4f 50 00 f4 23  30 27 4a 4d 50 20 42 55  |C NOP..#0'JMP BU|
00001bf0  54 30 00 06 24 18 f6 3b  20 56 45 43 a4 52 20 54  |T0..$..; VEC.R T|
00001c00  41 42 4c 45 00 12 24 22  f6 ac b2 24 43 46 38 30  |ABLE..$"...$CF80|
00001c10  00 3a 24 2c f6 54 58 54  20 b3 42 49 31 2c b1 42  |.:$,.TXT .BI1,.B|
00001c20  49 31 2c b3 42 49 32 2c  b1 42 49 32 2c b3 44 49  |I1,.BI2,.BI2,.DI|
00001c30  53 50 2c b1 44 49 53 50  00 60 24 36 f6 54 58 54  |SP,.DISP.`$6.TXT|
00001c40  20 b3 42 49 34 2c b1 42  49 34 2c b3 42 49 35 2c  | .BI4,.BI4,.BI5,|
00001c50  b1 42 49 35 2c b3 42 49  36 2c b1 42 49 36 00 86  |.BI5,.BI6,.BI6..|
00001c60  24 40 f6 54 58 54 20 b3  42 49 37 2c b1 42 49 37  |$@.TXT .BI7,.BI7|
00001c70  2c b3 42 49 38 2c b1 42  49 38 2c b3 42 49 39 2c  |,.BI8,.BI8,.BI9,|
00001c80  b1 42 49 39 00 ac 24 4a  f6 54 58 54 20 b3 42 49  |.BI9..$J.TXT .BI|
00001c90  41 2c b1 42 49 41 2c b3  42 49 42 2c b1 42 49 42  |A,.BIA,.BIB,.BIB|
00001ca0  2c b3 42 49 43 2c b1 42  49 43 00 b2 24 54 f6 3b  |,.BIC,.BIC..$T.;|
00001cb0  00 be 24 5e f6 ac b2 24  43 46 41 30 00 e4 24 68  |..$^...$CFA0..$h|
00001cc0  f6 54 58 54 20 b3 42 54  31 2c b1 42 54 31 2c b3  |.TXT .BT1,.BT1,.|
00001cd0  42 54 32 2c b1 42 54 32  2c b3 42 54 33 2c b1 42  |BT2,.BT2,.BT3,.B|
00001ce0  54 33 00 0a 25 72 f6 54  58 54 20 b3 42 54 34 2c  |T3..%r.TXT .BT4,|
00001cf0  b1 42 54 34 2c b3 42 54  35 2c b1 42 54 35 2c b3  |.BT4,.BT5,.BT5,.|
00001d00  42 54 36 2c b1 42 54 36  00 30 25 7c f6 54 58 54  |BT6,.BT6.0%|.TXT|
00001d10  20 b3 42 54 37 2c b1 42  54 37 2c b3 42 54 38 2c  | .BT7,.BT7,.BT8,|
00001d20  b1 42 54 38 2c b3 42 54  39 2c b1 42 54 39 00 56  |.BT8,.BT9,.BT9.V|
00001d30  25 86 f6 54 58 54 20 b3  42 54 41 2c b1 42 54 41  |%..TXT .BTA,.BTA|
00001d40  2c b3 42 54 42 2c b1 42  54 42 2c b3 42 54 43 2c  |,.BTB,.BTB,.BTC,|
00001d50  b1 42 54 43 00 00 00                              |.BTC...|
00001d57