; 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

STA $D000

STA YSP 
STA XSP&"
LDA #$864%
STA $D018A&
LDA #$0BO(
STA $D001\-
LDA #$10j.
STA $D008w/
LDA #$3A�0
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>
TAY"H
JSR $FFBA/R
LDA #$0C@\
LDX #�EGRTXTQf
LDY #�EGRTXT_z
JSR $FFBDl�
LDA #$00z�
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 #$006�
STA BUTNOC�
LDA #$92Q�
STA $63FCY�
SEIf�
LDA #$00t�
STA $0314��
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 #$000)STA $D004>*STA $D006K+LDA #$D9Y,STA $D005g-STA $D007t.LDA #$95�0STA $63FB�2LDA #$08�3STA $D01C�4LDA #$18�5STA $D016�7BUT0 JSR BUTCHECK�8JMP BUT0�BEGRTXT TXT "EDITGRAPHICS"DECTXT TXT "EDITCOLS"%GBCQU JMP SLECT3IBCNCQ RTSJLBUTCHECK LDA CLICKXVBEQ BCNCQc`LDA YPpbCMP #$D9}dBCC 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 XP1�CMP #$44>�BCS BCQUL�LDA $D010X��A #$0Cf�STA $D010v�BCOK LDA XP��LDX XPB��BNE BCTC��SEC��SBC #$28��BCTC LDX #$FF��BCLPA INX��SEC��SBC #$18�CMP #$E8�
BCC BCLPA�TXALDY XPB(BEQ NAO2CLC)<ADC #$09;FNAO STA BUTNOEPASL AOZASL AYdASL AenSTA $02mxCLCy�ADC $02��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)�CLC6�ADC #$80C�STA VE�1Q�LDA #�VECY�PHAiLDA #�VEC�1qPHA�VE JMP ($0000)�VEC LDA VE�1�CLC�"ADC #$20�,STA PH�1�6LDA #$CF�@STA PH�2�JPH JMP ($0000)�TSLECTQ RTS^SLECT LDA XPBhBEQ SLECTQrLDA XP,|CMP #$10;�BCC SLECTQH�CMP #$50W�BCS SLECTQb�LDA YPo�CMP #$3A~�BCC SLECTQ��CMP #$CA��BCS SLECTQ��LDA XP��� #$F8��TAX��LDA YP��� #$F8��A #$02�TAY�CMP #$BA�BEQ SLECTQ&BCS SLCNT0CPX #$30(:BEQ SLECTQ<DSLCNT STX $D008JNSTY $D009WXCPY #$BAebBCS CALC2mlTXAzvCMP #$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 SCHAR3RTSA CALC2 TXAI*SECV4SBC #$10`>LSR AjHLSR AtRLSR A�\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 #$00B�LOPB STA ($FB),YJINYWCPY #$1AdBNE LOPBp$LDA $FBx.CLC�8ADC #$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 #$523�STA $FB@�LDA #$60L�STA $FCY�LDA #$E0f�JSR PAGEs�LDX #$00��LOPAD LDY #$00��LOPBD JSR �CHAR���A #$80��STA ($FB),Y�INY�
CPY #$1A�BNE LOPBD�LDA $FB�(CLC�2ADC #$28<STA $FBFINXPCMP #$D2*ZBEQ QUITCS7dCMP #$28EnBCS LOPADQxINC $FC_�JMP LOPADr�C�ISP LDA #$52~�STA $FB��LDA #$D8��STA $FC��LDX #$00��LOPCD LDY #$00��LOPDD TXA��PHA��JSR �CHAR��TAX��LDA $5000,X �STA ($FB),Y PLA TAX INY( "CPY #$1A6 ,BNE LOPDDB 6LDA $FBJ @CLCW JADC #$28c TSTA $FBk ^INXx hCMP #$D2� rBEQ QUITCS� |CMP #$28� �BCS LOPCD� �INC $FC� �JMP LOPCD� ��CHAR LDA XSP� �STA $FD� �TXA� �CLC� �ADC YSP!�ADC #$04!�CMP #$40!�BCC GCC$!�CLC1!�ADC #$40A!�GCC STA $FEQ!�LDA ($FD),YY!�RTSf!�GDQU RTSx!��DIR LDA #$00�!LDX CLICK�!BEQ GDQU�!LDX YP�!&CPX #$D1�!0BCS GDQU�!:LDX XPB�!DBEQ GDPII�!NLDX XP�!XCPX #$08�!bBCS GDQU"lGDPII LDX $63F8"vCPX #$92%"�BEQ GDQU0"�LDX YP="�CPX #$42J"�BCS GDPAV"��A #$01h"�GDPA CPX #$C2u"�BCC GDPB�"��A #$02�"�GDPB LDX XP�"�CPX #$28�"�BCS GDPC�"��A #$04�"�GDPC CPX #$F8�"BCC GDPD�"�A #$08�"GDPD LDX XPB# BEQ GDQU#*�A #$08#4RTS%#pBT3 JSR �DIR-#zTAX8#�� #$01D#�BEQ TD3P#�LDA YSP\#�BEQ TD3h#�DEC YSPu#�JSR DISP�#�TD3 TXA�#�� #$02�#�BEQ TL3�#�LDA YSP�#�CMP #$6C�#�BEQ TL3�#�INC YSP�#JSR DISP�#TL3 TXA�#� #$04�#$BEQ TR3$.DEC XSP$8JSR DISP$BTR3 TXA)$L� #$087$VBEQ BT3P2C$`INC XSPP$jJSR DISPd$tBT3P2 LDA CLICKr$~BEQ BT3P4�$�LDA $63F8�$�CMP #$92�$�BNE BT3P4�$�JSR ���$�LDA XSQ�$�CLC�$�ADC XSP�$�STA $FB�$�LDA YSQ�$�CLC�$�ADC XSP�$�ADC #$04%�CMP #$40%�BCC BT3P3"%�CLC/%ADC #$40A%
BT3P3 STA $FCO%LDA SCHARf%BT3P4 JSR BUTCHECKr%(JMP BT3�%2�� LDA XP�%<SEC�%FSBC #$28�%PLSR A�%ZLSR A�%dLSR A�%nSTA XSQ�%xLDA YP�%�SEC�%�SBC #$42�%�LSR A�%�LSR A�%�LSR A	&�STA YSQ&�RTS &�INSERT CLC+&�ADC #$8&�STA PIABE&�JSR �SCRS&�LDA #�PIA_&�STA $FBm&LDA #�PIAy&STA $FC�&LDX #$01�&"LDY #$00�&,JSR ��&6LDA #�PIB�&@STA $FB�&JLDA #�PIB�&TSTA $FC�&^LDX #$0A�&hLDY #$01�&rJSR �'|ILOP LDA $C5'�CMP #$3C '�BNE ILOP('�RTS:'�CHECK STA $FBO'�CHCLOP JSR RHEAD]'�JSR $FFCFi'�CMP $FBv'�BNE CHTA�'�JSR $FFCF�'�CMP SERIAL�'�BNE CHTA�'�JMP $FFCC�'�CHTA JSR $FFCC�'JSR INSERT�'JMP CHCLOP�'RHEAD LDA #$01�'&LDX #$08(0TAY(:JSR $FFBA"(DLDA #$01/(NLDX #�ZT<(XLDY #�ZTJ(bJSR $FFBDX(lJSR $FFC0e(vLDX #$01s(�JMP $FFC6�(��HEAD JSR RHEAD�(�LDY #$00�(�JSR $FFCF�(�TAX�(�STA $CFC0�(�GHLOOP INY�(�JSR $FFCF�(�STA $CFC0,Y�(�CPY #$01�(�BEQ GHC2)�CPY #$17)�BEQ GHC17))JMP GHLOOP=)GHC2 STA SERIALJ)CPX #$01X) BNE GHLOPl)*GHC17 JMP $FFCCy)4� JSR M��)>LDY #$00�)HPLOPB LDA ($FB),Y�)RBEQ PTE�)\CLC�)fADC #$�)pSTA ($22),Y�)zLDA #$01�)�STA ($24),Y�)�INY�)�JMP PLOPB
*�PTE RTS*�COLSQ PHA#*�JSR M�0*�LDY #$008*�PLAH*�STA ($24),YP*�RTSa*�PAGE STA $22n*�LDA #$50z*�STA $FC�*LDA PRPI�*STA $FE�*JSR MOVEPR�*$LDA $22�*.STA $FC�*8STA PRPI�*BLDA #$50�*LSTA $FE�*VMOVEPR LDA #$00+`STA $FB+jSTA $FD+tSEI +~LDA $01++�� #$FB7+�STA $01D+�LDY #$00Y+�MPLB LDA ($FB),Yi+�STA ($FD),Yq+�INY~+�BNE MPLB�+�INC $FC�+�INC $FE�+�LDA $FC�+�� #$07�+�BNE MPLB�+LDA $01�+
�A #$02�+STA $01�+CLI�+(RTS�+2M� LDA #$60
,<STA $23,FLDA #$52#,PSTA $226,ZPLOPA CPX #$00E,dBEQ PLOPEDM,nDEXY,xLDA $22a,�CLCn,�ADC #$28z,�STA $22�,�LDA $23�,�ADC #$00�,�STA $23�,�JMP PLOPA�,�PLOPED TYA�,�CLC�,�ADC $22�,�STA $22�,�LDA $23�,�ADC #$00
-STA $23	-CLC-ADC #$78"-"STA $25.-,LDA $22:-6STA $24B-@RTSS-JBI1 JSR �SCR`-TLDY #$00o-^LDA #�BAR�{-hSTA $FB�-rLDA #�BAR��-|STA $FC�-�BI1L1 TYA�-�PHA�-�LDX #$10�-�JSR ��-�PLA�-�TAY�-�INY�-�CPY #$10�-�BNE BI1L1.�LDA #�BXESD.�STA $FD".�LDA #�BXESD..�STA $FE;. LDY #$00Q. BI1L2 LDA ($FD),Yc. BEQ STRCHANGEk.& TAXs.0 INY{.: TYA�.D PHA�.N LDA ($FD),Y�.X TAY�.b JSR ��.l PLA�.v TAY�.� INY�.� JMP BI1L2�.� STRCHANGE INY�.� LDA ($FD),Y�.� BEQ BI1L2C/� STA $FB/� INY /� LDA ($FD),Y,/� STA $FC4/� INY</� RTSP/� BI1L2C LDA #$E0]/� JSR PAGEj/!LDA #$00w/!LDX #$12�/!LDY #$01�/ !JSR COLSQ�/*!LDA $5080�/4!LDX #$12�/>!LDY #$04�/H!JSR COLSQ�/R!LDA $5081�/\!LDX #$12�/f!LDY #$07�/p!JSR COLSQ0z!LDX SLECT0�!LDA $5000,X)0�!LDX #$1260�!LDY #$0AD0�!JSR COLSQQ0�!LDA #$00^0�!JSR SET�k0�!LDA #$00w0�!STA $FC�0�!STA $FE�0�!LDA #$FD�0�!STA $FB�0�!LDA SLECT�0�!STA $FD�0"LDX #$1A�0"LDY #$05�0"JSR ��0$"JSR COLDISP�0'BI2 RTS1'BI4 RTS1'BI5 RTS1'BI6 RTS&1'BI7 RTS21'BI8 RTS>1'BI9 RTSJ1'BIA RTSV1'BIB RTSb1'BIC RTSn1$'BT1 NOPz1%'BT2 NOP�1''BT4 NOP�1('BT5 NOP�1)'BT6 NOP�1*'BT7 NOP�1+'BT8 NOP�1,'BT9 NOP�1-'BTA NOP�1.'BTB NOP�1/'BTC NOP�10'JMP BUT02�; VEC�R TABLE2"���$CF8092,�TXT �BI1,�BI1,�BI2,�BI2,�DISP,�DISP_26�TXT �BI4,�BI4,�BI5,�BI5,�BI6,�BI6�2@�TXT �BI7,�BI7,�BI8,�BI8,�BI9,�BI9�2J�TXT �BIA,�BIA,�BIB,�BIB,�BIC,�BIC�2T�;�2^���$CFA0�2h�TXT �BT1,�BT1,�BT2,�BT2,�BT3,�BT3	3r�TXT �BT4,�BT4,�BT5,�BT5,�BT6,�BT6/3|�TXT �BT7,�BT7,�BT8,�BT8,�BT9,�BT9U3��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@ARVMsta $d000@MR[Msta ysp@YR Msta xsp@&R"Mlda #$86@4R%Msta $d018@aR&Mlda #$0b@oR(Msta $d001@£R-Mlda #$10@JR.Msta $d008@WR/Mlda #$3a@.R0Msta $d009@.R1Mlda #$10@.R2Msta $d010@.R3Mlda #$01@.R4Msta $d029@.R5Msta $d02b@.R6Mlda #$00@.R7Msta $d02a@.R9Msta schar@.R<Mlda #$01@LS=Mldx #$08@TS>Mtay@"ShMjsr $ffba@/SrMlda #$0c@@S£Mldx #.egrtxt@qSFMldy #.egrtxt@.SZMjsr $ffbd@LS.Mlda #$00@ZS.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@@T.Mjsr $ffd5@MT.Mlda #$9b@[T.Msta $d011@(T.Mlda #$00@6T.Msta butno@cT.Mlda #$92@qT.Msta $63fc@yT.Msei@FT.Mlda #$00@TT.Msta $0314@.T.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@HU&Nsta $d015@UU'Njsr left@"U(Nlda #$00@0U)Nsta $d004@>U*Nsta $d006@kU+Nlda #$d9@yU,Nsta $d005@GU-Nsta $d007@TU.Nlda #$95@.U0Nsta $63fb@.U2Nlda #$08@.U3Nsta $d01c@.U4Nlda #$18@.U5Nsta $d016@.U7Nbut0 jsr butcheck@.U8Njmp but0@.UbNegrtxt txt "editgraphics"@RVdNectxt txt "editcols"@%VgNbcqu jmp slect@3ViNbcncq rts@jVlNbutcheck lda click@xVvNbeq bcncq@CV.Nlda yp@PVBNcmp #$d9@.VDNbcc bcqu@.VENlda xpb@.VFNbne xbsr@.VGNlda xp@.VHNcmp #$28@.VINbcc bcqu@.VLNlda $d010@.VNN. #$f3@.VPNsta $d010@.VRNlda xp@.VTNcmp #$28@GW.Nbcc bcqu@TW.Njmp bcok@$W.Nxbsr lda xp@1W.Ncmp #$44@>W.Nbcs bcqu@lW.Nlda $d010@xW.N.a #$0c@FW.Nsta $d010@VW.Nbcok lda xp@.W.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@HX.Oldy xpb@TX(Obeq nao@£X2Oclc@)X<Oadc #$09@;XfOnao sta butno@eXpOasl a@oXzOasl a@yXDOasl a@EXNOsta $02@MXXOclc@YX.Oadc $02@.X.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@IY.Osta ve.2@WY.Olda butno@!Y.Oasl a@)Y.Oclc@6Y.Oadc #$80@cY.Osta ve.1@qY.Olda #.vec@yY.Opha@IY@Plda #.vec.1@QYBPpha@.YDPve 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@EZ.Pslect lda xpb@TZHPbeq slectq@.ZRPlda xp@,Z.Pcmp #$10@;Z.Pbcc slectq@hZ.Pcmp #$50@wZ.Pbcs slectq@BZ.Plda yp@OZ.Pcmp #$3a@.Z.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@L[&Qbcs slcnt@Y[0Qcpx #$30@([:Qbeq slectq@<[dQslcnt stx $d008@j[nQsty $d009@w[xQcpy #$ba@E[BQbcs calc2@M[LQtxa@Z[VQcmp #$30@.[.Qbcc calc1@.[.Qsec@.[.Qsbc #$08@.[.Qcalc1 sec@.[.Qsbc #$10@.[.Qasl a@.[.Qsta $02@.[.Qtya@.[.Qsec@.[.Qsbc #$3a@.[.Qlsr a@.[.Qlsr a@I£.Qlsr a@Q£.Qclc@]£BRadc $02@+£LRsta schar@3£VRrts@a£ Rcalc2 txa@i£*Rsec@v£4Rsbc #$10@.£>Rlsr a@J£hRlsr a@T£rRlsr a@.££Rcpy #$c2@.£FRbeq calc2c@.£PRclc@.£ZRadc #$08@.£.Rcalc2c clc@.£.Radc #$70@.£.Rsta schar@.£.Rrts@.£.R.scr lda #$52@.£.Rsta $fb@B].Rlda #$d8@N].Rsta $fc@ ].Rlopa lda #$00@-].Rldy #$00@b].Rlopb sta ($fb),y@j]FSiny@w]PScpy #$1a@D]ZSbne lopb@P]$Slda $fb@X].Sclc@.]8Sadc #$28@.]bSsta $fb@.]lScmp #$d2@.]vSbeq quitcs@.].Scmp #$28@.]JSbcs lopa@.]TSinc $fc@.].Sjmp lopa@.].Squitcs rts@D..Sdisp jsr scrdisp@R..Sjmp c.isp@'..Sscrdisp lda #$52@3..Ssta $fb@@..Slda #$60@l..Ssta $fc@y..Slda #$e0@F..Sjsr page@S..Sldx #$00@...Slopad ldy #$00@...Slopbd jsr .char@...S.a #$80@...Ssta ($fb),y@..@Tiny@..JTcpy #$1a@..TTbne lopbd@...Tlda $fb@..(Tclc@..2Tadc #$28@F.<Tsta $fb@N.fTinx@[.pTcmp #$d2@*.zTbeq quitcs@7.DTcmp #$28@e.NTbcs lopad@q.XTinc $fc@...Tjmp lopad@R..Tc.isp lda #$52@...Tsta $fb@...Tlda #$d8@...Tsta $fc@...Tldx #$00@...Tlopcd ldy #$00@...Tlopdd txa@...Tpha@...Tjsr .char@...Ttax@...Tlda $5000,x@C .Tsta ($fb),y@K DUpla@S NUtax@[ XUiny@( "Ucpy #$1a@6 ,Ubne lopdd@b 6Ulda $fb@j @Uclc@w jUadc #$28@C tUsta $fb@K .Uinx@X HUcmp #$d2@. RUbeq quitcs@. .Ucmp #$28@. .Ubcs lopcd@. .Uinc $fc@. .Ujmp lopcd@. .U.char lda xsp@. .Usta $fd@. .Utxa@. .Uclc@. .Uadc ysp@C!.Uadc #$04@P!.Ucmp #$40@£!.Ubcc gcc@$!.Uclc@1!.Uadc #$40@a!.Ugcc sta $fe@q!.Ulda ($fd),y@y!.Urts@F!.Ugdqu rts@X!.U.dir lda #$00@.!HVldx click@.!RVbeq gdqu@.!£Vldx yp@.!&Vcpx #$d1@.!0Vbcs gdqu@.!:Vldx xpb@.!dVbeq gdpii@.!nVldx xp@.!xVcpx #$08@.!BVbcs gdqu@K"LVgdpii ldx $63f8@X"VVcpx #$92@%".Vbeq gdqu@0".Vldx yp@=".Vcpx #$42@j".Vbcs gdpa@v".V.a #$01@H".Vgdpa cpx #$c2@U".Vbcc gdpb@.".V.a #$02@.".Vgdpb ldx xp@.".Vcpx #$28@.".Vbcs gdpc@.".V.a #$04@.".Vgdpc cpx #$f8@."BWbcc gdpd@."LW.a #$08@."VWgdpd ldx xpb@@# Wbeq gdqu@L#*W.a #$08@T#4Wrts@%#PWbt3 jsr .dir@-#ZWtax@8#.W. #$01@d#.Wbeq td3@p#.Wlda ysp@£#.Wbeq td3@H#.Wdec ysp@U#.Wjsr disp@.#.Wtd3 txa@.#.W. #$02@.#.Wbeq tl3@.#.Wlda ysp@.#.Wcmp #$6c@.#.Wbeq tl3@.#.Winc ysp@.#FXjsr disp@.#PXtl3 txa@.#ZX. #$04@.#$Xbeq tr3@E$.Xdec xsp@R$8Xjsr disp@.$bXtr3 txa@)$lX. #$08@7$vXbeq bt3p2@c$.Xinc xsp@p$JXjsr disp@D$TXbt3p2 lda click@R$.Xbeq bt3p4@.$.Xlda $63f8@.$.Xcmp #$92@.$.Xbne bt3p4@.$.Xjsr ..@.$.Xlda xsq@.$.Xclc@.$.Xadc xsp@.$.Xsta $fb@.$.Xlda ysq@.$.Xclc@.$.Xadc xsp@.$.Xadc #$04@L%.Xcmp #$40@Z%.Xbcc bt3p3@"%.Xclc@/%@Yadc #$40@a%JYbt3p3 sta $fc@o%TYlda schar@F%.Ybt3p4 jsr butcheck@R%(Yjmp bt3@.%2Y.. lda xp@.%<Ysec@.%fYsbc #$28@.%pYlsr a@.%zYlsr a@.%DYlsr a@.%NYsta xsq@.%XYlda yp@.%.Ysec@.%.Ysbc #$42@.%.Ylsr a@.%.Ylsr a@.%.Ylsr a@I&.Ysta ysq@Q&.Yrts@ &.Yinsert clc@+&.Yadc #$@8&.Ysta piab@e&.Yjsr .scr@s&.Ylda #.pia@.&.Ysta $fb@M&DZlda #.pia@Y&NZsta $fc@.&XZldx #$01@.&"Zldy #$00@.&,Zjsr .@.&6Zlda #.pib@.&@Zsta $fb@.&jZlda #.pib@.&tZsta $fc@.&.Zldx #$0a@.&HZldy #$01@.&RZjsr .@F'.Zilop lda $c5@S'.Zcmp #$3c@ '.Zbne ilop@('.Zrts@:'.Zcheck sta $fb@o'.Zchclop jsr rhead@]'.Zjsr $ffcf@I'.Zcmp $fb@V'.Zbne chta@.'.Zjsr $ffcf@.'.Zcmp serial@.'.Zbne chta@.'.Zjmp $ffcc@.'.Zchta jsr $ffcc@.'H[jsr insert@.'R[jmp chclop@.'£[rhead lda #$01@.'&[ldx #$08@G(0[tay@U(:[jsr $ffba@"(d[lda #$01@/(n[ldx #.zt@<(x[ldy #.zt@j(B[jsr $ffbd@x(L[jsr $ffc0@E(V[ldx #$01@S(.[jmp $ffc6@.(.[.head jsr rhead@.(.[ldy #$00@.(.[jsr $ffcf@.(.[tax@.(.[sta $cfc0@.(.[ghloop iny@.(.[jsr $ffcf@.(.[sta $cfc0,y@.(.[cpy #$01@.(.[beq ghc2@L).[cpy #$17@Z).[beq ghc17@))B£jmp ghloop@=)L£ghc2 sta serial@j)V£cpx #$01@x) £bne ghlop@L)*£ghc17 jmp $ffcc@Y)4£. jsr m.@.)>£ldy #$00@.)h£plopb lda ($fb),y@.)r£beq pte@.)££clc@.)F£adc #$@.)P£sta ($22),y@.)Z£lda #$01@.).£sta ($24),y@.).£iny@.).£jmp plopb@J*.£pte rts@X*.£colsq pha@#*.£jsr m.@0*.£ldy #$00@8*.£pla@h*.£sta ($24),y@p*.£rts@A*.£page sta $22@N*.£lda #$50@Z*.£sta $fc@.*F]lda prpi@.*P]sta $fe@.*Z]jsr movepr@.*$]lda $22@.*.]sta $fc@.*8]sta prpi@.*b]lda #$50@.*l]sta $fe@.*v]movepr lda #$00@@+.]sta $fb@L+J]sta $fd@T+T]sei@ +.]lda $01@++.]. #$fb@7+.]sta $01@d+.]ldy #$00@y+.]mplb lda ($fb),y@I+.]sta ($fd),y@Q+.]iny@.+.]bne mplb@.+.]inc $fc@.+.]inc $fe@.+.]lda $fc@.+.]. #$07@.+.]bne mplb@.+@.lda $01@.+J..a #$02@.+T.sta $01@.+..cli@.+(.rts@.+2.m. lda #$60@J,<.sta $23@W,f.lda #$52@#,p.sta $22@6,z.plopa cpx #$00@e,D.beq ploped@m,N.dex@y,X.lda $22@A,..clc@N,..adc #$28@Z,..sta $22@.,..lda $23@.,..adc #$00@.,..sta $23@.,..jmp plopa@.,..ploped tya@.,..clc@.,..adc $22@.,..sta $22@.,..lda $23@.,..adc #$00@A-D.sta $23@I-N.clc@V-X.adc #$78@"-".sta $25@.-,.lda $22@:-6.sta $24@b-@.rts@s-j.bi1 jsr .scr@.-t.ldy #$00@O-..lda #.bar.@.-H.sta $fb@.-R.lda #.bar.@.-..sta $fc@.-..bi1l1 tya@.-..pha@.-..ldx #$10@.-..jsr .@.-..pla@.-..tay@.-..iny@.-..cpy #$10@.-..bne bi1l1@F...lda #.bxesd@R...sta $fd@"...lda #.bxesd@....sta $fe@;.H ldy #$00@q.R bi1l2 lda ($fd),y@C.£ beq strchange@K.& tax@S.0 iny@..: tya@..d pha@..n lda ($fd),y@..x tay@..B jsr .@..L pla@..V tay@... iny@... jmp bi1l2@... strchange iny@... lda ($fd),y@... beq bi1l2c@H/. sta $fb@P/. iny@ /. lda ($fd),y@,/. sta $fc@4/. iny@</. rts@p/. bi1l2c lda #$e0@]/. jsr page@J/B!lda #$00@W/L!ldx #$12@./V!ldy #$01@./ !jsr colsq@./*!lda $5080@./4!ldx #$12@./>!ldy #$04@./h!jsr colsq@./r!lda $5081@./£!ldx #$12@./F!ldy #$07@./P!jsr colsq@L0Z!ldx slect@£0.!lda $5000,x@)0.!ldx #$12@60.!ldy #$0a@d0.!jsr colsq@q0.!lda #$00@.0.!jsr set.@K0.!lda #$00@W0.!sta $fc@.0.!sta $fe@.0.!lda #$fd@.0.!sta $fb@.0.!lda slect@.0.!sta $fd@.0F"ldx #$1a@.0P"ldy #$05@.0Z"jsr .@.0$"jsr coldisp@.0Q'bi2 rts@B1S'bi4 rts@N1T'bi5 rts@Z1U'bi6 rts@&1V'bi7 rts@21W'bi8 rts@>1X'bi9 rts@j1Y'bia rts@v1Z'bib rts@B1['bic rts@N1$'bt1 nop@Z1%'bt2 nop@.1''bt4 nop@.1('bt5 nop@.1)'bt6 nop@.1*'bt7 nop@.1+'bt8 nop@.1,'bt9 nop@.1-'bta nop@.1.'btb nop@.1/'btc nop@.10'jmp but0@E2X.; vec.r table@Q2"...$cf80@92,.txt .bi1,.bi1,.bi2,.bi2,.disp,.disp@.26.txt .bi4,.bi4,.bi5,.bi5,.bi6,.bi6@.2@.txt .bi7,.bi7,.bi8,.bi8,.bi9,.bi9@.2j.txt .bia,.bia,.bib,.bib,.bic,.bic@.2t.;@.2....$cfa0@.2H.txt .bt1,.bt1,.bt2,.bt2,.bt3,.bt3@I3R.txt .bt4,.bt4,.bt5,.bt5,.bt6,.bt6@/3..txt .bt7,.bt7,.bt8,.bt8,.bt9,.bt9@u3..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 01 12 16 0d 53 54  41 20 24 44 30 30 30 00  |1.....STA $D000.|
00000a00  0d 12 1b 0d 53 54 41 20  59 53 50 00 19 12 20 0d  |....STA YSP... .|
00000a10  53 54 41 20 58 53 50 00  26 12 22 0d 4c 44 41 20  |STA XSP.&.".LDA |
00000a20  23 24 38 36 00 34 12 25  0d 53 54 41 20 24 44 30  |#$86.4.%.STA $D0|
00000a30  31 38 00 41 12 26 0d 4c  44 41 20 23 24 30 42 00  |18.A.&.LDA #$0B.|
00000a40  4f 12 28 0d 53 54 41 20  24 44 30 30 31 00 5c 12  |O.(.STA $D001.\.|
00000a50  2d 0d 4c 44 41 20 23 24  31 30 00 6a 12 2e 0d 53  |-.LDA #$10.j...S|
00000a60  54 41 20 24 44 30 30 38  00 77 12 2f 0d 4c 44 41  |TA $D008.w./.LDA|
00000a70  20 23 24 33 41 00 85 12  30 0d 53 54 41 20 24 44  | #$3A...0.STA $D|
00000a80  30 30 39 00 92 12 31 0d  4c 44 41 20 23 24 31 30  |009...1.LDA #$10|
00000a90  00 a0 12 32 0d 53 54 41  20 24 44 30 31 30 00 ad  |...2.STA $D010..|
00000aa0  12 33 0d 4c 44 41 20 23  24 30 31 00 bb 12 34 0d  |.3.LDA #$01...4.|
00000ab0  53 54 41 20 24 44 30 32  39 00 c9 12 35 0d 53 54  |STA $D029...5.ST|
00000ac0  41 20 24 44 30 32 42 00  d6 12 36 0d 4c 44 41 20  |A $D02B...6.LDA |
00000ad0  23 24 30 30 00 e4 12 37  0d 53 54 41 20 24 44 30  |#$00...7.STA $D0|
00000ae0  32 41 00 f2 12 39 0d 53  54 41 20 53 43 48 41 52  |2A...9.STA SCHAR|
00000af0  00 ff 12 3c 0d 4c 44 41  20 23 24 30 31 00 0c 13  |...<.LDA #$01...|
00000b00  3d 0d 4c 44 58 20 23 24  30 38 00 14 13 3e 0d 54  |=.LDX #$08...>.T|
00000b10  41 59 00 22 13 48 0d 4a  53 52 20 24 46 46 42 41  |AY.".H.JSR $FFBA|
00000b20  00 2f 13 52 0d 4c 44 41  20 23 24 30 43 00 40 13  |./.R.LDA #$0C.@.|
00000b30  5c 0d 4c 44 58 20 23 b3  45 47 52 54 58 54 00 51  |\.LDX #.EGRTXT.Q|
00000b40  13 66 0d 4c 44 59 20 23  b1 45 47 52 54 58 54 00  |.f.LDY #.EGRTXT.|
00000b50  5f 13 7a 0d 4a 53 52 20  24 46 46 42 44 00 6c 13  |_.z.JSR $FFBD.l.|
00000b60  84 0d 4c 44 41 20 23 24  30 30 00 7a 13 8e 0d 4a  |..LDA #$00.z...J|
00000b70  53 52 20 24 46 46 44 35  00 87 13 8f 0d 4c 44 41  |SR $FFD5.....LDA|
00000b80  20 23 24 30 31 00 94 13  90 0d 4c 44 58 20 23 24  | #$01.....LDX #$|
00000b90  30 38 00 9c 13 91 0d 54  41 59 00 aa 13 92 0d 4a  |08.....TAY.....J|
00000ba0  53 52 20 24 46 46 42 41  00 b7 13 93 0d 4c 44 41  |SR $FFBA.....LDA|
00000bb0  20 23 24 30 38 00 c7 13  94 0d 4c 44 58 20 23 b3  | #$08.....LDX #.|
00000bc0  45 43 54 58 54 00 d7 13  95 0d 4c 44 59 20 23 b1  |ECTXT.....LDY #.|
00000bd0  45 43 54 58 54 00 e5 13  96 0d 4a 53 52 20 24 46  |ECTXT.....JSR $F|
00000be0  46 42 44 00 f2 13 97 0d  4c 44 41 20 23 24 30 30  |FBD.....LDA #$00|
00000bf0  00 00 14 98 0d 4a 53 52  20 24 46 46 44 35 00 0d  |.....JSR $FFD5..|
00000c00  14 99 0d 4c 44 41 20 23  24 39 42 00 1b 14 9a 0d  |...LDA #$9B.....|
00000c10  53 54 41 20 24 44 30 31  31 00 28 14 9b 0d 4c 44  |STA $D011.(...LD|
00000c20  41 20 23 24 30 30 00 36  14 9d 0d 53 54 41 20 42  |A #$00.6...STA B|
00000c30  55 54 4e 4f 00 43 14 9f  0d 4c 44 41 20 23 24 39  |UTNO.C...LDA #$9|
00000c40  32 00 51 14 a2 0d 53 54  41 20 24 36 33 46 43 00  |2.Q...STA $63FC.|
00000c50  59 14 ac 0d 53 45 49 00  66 14 b6 0d 4c 44 41 20  |Y...SEI.f...LDA |
00000c60  23 24 30 30 00 74 14 c0  0d 53 54 41 20 24 30 33  |#$00.t...STA $03|
00000c70  31 34 00 81 14 ca 0d 4c  44 41 20 23 24 43 30 00  |14.....LDA #$C0.|
00000c80  8f 14 d4 0d 53 54 41 20  24 30 33 31 35 00 97 14  |....STA $0315...|
00000c90  de 0d 43 4c 49 00 a4 14  e8 0d 4c 44 41 20 23 24  |..CLI.....LDA #$|
00000ca0  30 30 00 af 14 f2 0d 53  54 41 20 58 50 00 bc 14  |00.....STA XP...|
00000cb0  fc 0d 53 54 41 20 48 4f  55 52 00 c9 14 06 0e 4c  |..STA HOUR.....L|
00000cc0  44 41 20 23 24 38 30 00  d4 14 10 0e 53 54 41 20  |DA #$80.....STA |
00000cd0  59 50 00 e1 14 1a 0e 4c  44 41 20 23 24 30 31 00  |YP.....LDA #$01.|
00000ce0  ed 14 24 0e 53 54 41 20  58 50 42 00 fa 14 25 0e  |..$.STA XPB...%.|
00000cf0  4c 44 41 20 23 24 31 43  00 08 15 26 0e 53 54 41  |LDA #$1C...&.STA|
00000d00  20 24 44 30 31 35 00 15  15 27 0e 4a 53 52 20 4c  | $D015...'.JSR L|
00000d10  45 46 54 00 22 15 28 0e  4c 44 41 20 23 24 30 30  |EFT.".(.LDA #$00|
00000d20  00 30 15 29 0e 53 54 41  20 24 44 30 30 34 00 3e  |.0.).STA $D004.>|
00000d30  15 2a 0e 53 54 41 20 24  44 30 30 36 00 4b 15 2b  |.*.STA $D006.K.+|
00000d40  0e 4c 44 41 20 23 24 44  39 00 59 15 2c 0e 53 54  |.LDA #$D9.Y.,.ST|
00000d50  41 20 24 44 30 30 35 00  67 15 2d 0e 53 54 41 20  |A $D005.g.-.STA |
00000d60  24 44 30 30 37 00 74 15  2e 0e 4c 44 41 20 23 24  |$D007.t...LDA #$|
00000d70  39 35 00 82 15 30 0e 53  54 41 20 24 36 33 46 42  |95...0.STA $63FB|
00000d80  00 8f 15 32 0e 4c 44 41  20 23 24 30 38 00 9d 15  |...2.LDA #$08...|
00000d90  33 0e 53 54 41 20 24 44  30 31 43 00 aa 15 34 0e  |3.STA $D01C...4.|
00000da0  4c 44 41 20 23 24 31 38  00 b8 15 35 0e 53 54 41  |LDA #$18...5.STA|
00000db0  20 24 44 30 31 36 00 ce  15 37 0e 42 55 54 30 20  | $D016...7.BUT0 |
00000dc0  4a 53 52 20 42 55 54 43  48 45 43 4b 00 db 15 38  |JSR BUTCHECK...8|
00000dd0  0e 4a 4d 50 20 42 55 54  30 00 f9 15 42 0e 45 47  |.JMP BUT0...B.EG|
00000de0  52 54 58 54 20 54 58 54  20 22 45 44 49 54 47 52  |RTXT TXT "EDITGR|
00000df0  41 50 48 49 43 53 22 00  12 16 44 0e 45 43 54 58  |APHICS"...D.ECTX|
00000e00  54 20 54 58 54 20 22 45  44 49 54 43 4f 4c 53 22  |T TXT "EDITCOLS"|
00000e10  00 25 16 47 0e 42 43 51  55 20 4a 4d 50 20 53 4c  |.%.G.BCQU JMP SL|
00000e20  45 43 54 00 33 16 49 0e  42 43 4e 43 51 20 52 54  |ECT.3.I.BCNCQ RT|
00000e30  53 00 4a 16 4c 0e 42 55  54 43 48 45 43 4b 20 4c  |S.J.L.BUTCHECK L|
00000e40  44 41 20 43 4c 49 43 4b  00 58 16 56 0e 42 45 51  |DA CLICK.X.V.BEQ|
00000e50  20 42 43 4e 43 51 00 63  16 60 0e 4c 44 41 20 59  | BCNCQ.c.`.LDA Y|
00000e60  50 00 70 16 62 0e 43 4d  50 20 23 24 44 39 00 7d  |P.p.b.CMP #$D9.}|
00000e70  16 64 0e 42 43 43 20 42  43 51 55 00 89 16 65 0e  |.d.BCC BCQU...e.|
00000e80  4c 44 41 20 58 50 42 00  96 16 66 0e 42 4e 45 20  |LDA XPB...f.BNE |
00000e90  58 42 53 52 00 a1 16 67  0e 4c 44 41 20 58 50 00  |XBSR...g.LDA XP.|
00000ea0  ae 16 68 0e 43 4d 50 20  23 24 32 38 00 bb 16 69  |..h.CMP #$28...i|
00000eb0  0e 42 43 43 20 42 43 51  55 00 c9 16 6c 0e 4c 44  |.BCC BCQU...l.LD|
00000ec0  41 20 24 44 30 31 30 00  d4 16 6e 0e af 20 23 24  |A $D010...n.. #$|
00000ed0  46 33 00 e2 16 70 0e 53  54 41 20 24 44 30 31 30  |F3...p.STA $D010|
00000ee0  00 ed 16 72 0e 4c 44 41  20 58 50 00 fa 16 74 0e  |...r.LDA XP...t.|
00000ef0  43 4d 50 20 23 24 32 38  00 07 17 7e 0e 42 43 43  |CMP #$28...~.BCC|
00000f00  20 42 43 51 55 00 14 17  92 0e 4a 4d 50 20 42 43  | BCQU.....JMP BC|
00000f10  4f 4b 00 24 17 9c 0e 58  42 53 52 20 4c 44 41 20  |OK.$...XBSR LDA |
00000f20  58 50 00 31 17 a6 0e 43  4d 50 20 23 24 34 34 00  |XP.1...CMP #$44.|
00000f30  3e 17 b0 0e 42 43 53 20  42 43 51 55 00 4c 17 b1  |>...BCS BCQU.L..|
00000f40  0e 4c 44 41 20 24 44 30  31 30 00 58 17 b2 0e b0  |.LDA $D010.X....|
00000f50  41 20 23 24 30 43 00 66  17 b3 0e 53 54 41 20 24  |A #$0C.f...STA $|
00000f60  44 30 31 30 00 76 17 ba  0e 42 43 4f 4b 20 4c 44  |D010.v...BCOK LD|
00000f70  41 20 58 50 00 82 17 bc  0e 4c 44 58 20 58 50 42  |A XP.....LDX XPB|
00000f80  00 8f 17 bf 0e 42 4e 45  20 42 43 54 43 00 97 17  |.....BNE BCTC...|
00000f90  c4 0e 53 45 43 00 a4 17  ce 0e 53 42 43 20 23 24  |..SEC.....SBC #$|
00000fa0  32 38 00 b6 17 d8 0e 42  43 54 43 20 4c 44 58 20  |28.....BCTC LDX |
00000fb0  23 24 46 46 00 c4 17 e2  0e 42 43 4c 50 41 20 49  |#$FF.....BCLPA I|
00000fc0  4e 58 00 cc 17 ec 0e 53  45 43 00 d9 17 f6 0e 53  |NX.....SEC.....S|
00000fd0  42 43 20 23 24 31 38 00  e6 17 00 0f 43 4d 50 20  |BC #$18.....CMP |
00000fe0  23 24 45 38 00 f4 17 0a  0f 42 43 43 20 42 43 4c  |#$E8.....BCC BCL|
00000ff0  50 41 00 fc 17 14 0f 54  58 41 00 08 18 1e 0f 4c  |PA.....TXA.....L|
00001000  44 59 20 58 50 42 00 14  18 28 0f 42 45 51 20 4e  |DY XPB...(.BEQ N|
00001010  41 4f 00 1c 18 32 0f 43  4c 43 00 29 18 3c 0f 41  |AO...2.CLC.).<.A|
00001020  44 43 20 23 24 30 39 00  3b 18 46 0f 4e 41 4f 20  |DC #$09.;.F.NAO |
00001030  53 54 41 20 42 55 54 4e  4f 00 45 18 50 0f 41 53  |STA BUTNO.E.P.AS|
00001040  4c 20 41 00 4f 18 5a 0f  41 53 4c 20 41 00 59 18  |L A.O.Z.ASL A.Y.|
00001050  64 0f 41 53 4c 20 41 00  65 18 6e 0f 53 54 41 20  |d.ASL A.e.n.STA |
00001060  24 30 32 00 6d 18 78 0f  43 4c 43 00 79 18 82 0f  |$02.m.x.CLC.y...|
00001070  41 44 43 20 24 30 32 00  85 18 8c 0f 41 44 43 20  |ADC $02.....ADC |
00001080  24 30 32 00 92 18 91 0f  41 44 43 20 23 24 32 38  |$02.....ADC #$28|
00001090  00 a0 18 96 0f 53 54 41  20 24 44 30 30 34 00 ae  |.....STA $D004..|
000010a0  18 a0 0f 53 54 41 20 24  44 30 30 36 00 bb 18 aa  |...STA $D006....|
000010b0  0f 4c 44 41 20 23 24 39  36 00 c3 18 ac 0f 43 4c  |.LDA #$96.....CL|
000010c0  43 00 d1 18 b0 0f 41 44  43 20 42 55 54 4e 4f 00  |C.....ADC BUTNO.|
000010d0  df 18 b4 0f 53 54 41 20  24 36 33 46 41 00 e7 18  |....STA $63FA...|
000010e0  be 0f 50 4c 41 00 ef 18  c8 0f 50 4c 41 00 fc 18  |..PLA.....PLA...|
000010f0  d2 0f 4c 44 41 20 23 24  43 46 00 09 19 dc 0f 53  |..LDA #$CF.....S|
00001100  54 41 20 56 45 aa 32 00  17 19 e6 0f 4c 44 41 20  |TA VE.2.....LDA |
00001110  42 55 54 4e 4f 00 21 19  f0 0f 41 53 4c 20 41 00  |BUTNO.!...ASL A.|
00001120  29 19 f3 0f 43 4c 43 00  36 19 f6 0f 41 44 43 20  |)...CLC.6...ADC |
00001130  23 24 38 30 00 43 19 fa  0f 53 54 41 20 56 45 aa  |#$80.C...STA VE.|
00001140  31 00 51 19 fc 0f 4c 44  41 20 23 b1 56 45 43 00  |1.Q...LDA #.VEC.|
00001150  59 19 fe 0f 50 48 41 00  69 19 00 10 4c 44 41 20  |Y...PHA.i...LDA |
00001160  23 b3 56 45 43 ab 31 00  71 19 02 10 50 48 41 00  |#.VEC.1.q...PHA.|
00001170  84 19 04 10 56 45 20 4a  4d 50 20 28 24 30 30 30  |....VE JMP ($000|
00001180  30 29 00 95 19 0e 10 56  45 43 20 4c 44 41 20 56  |0).....VEC LDA V|
00001190  45 aa 31 00 9d 19 18 10  43 4c 43 00 aa 19 22 10  |E.1.....CLC...".|
000011a0  41 44 43 20 23 24 32 30  00 b7 19 2c 10 53 54 41  |ADC #$20...,.STA|
000011b0  20 50 48 aa 31 00 c4 19  36 10 4c 44 41 20 23 24  | PH.1...6.LDA #$|
000011c0  43 46 00 d1 19 40 10 53  54 41 20 50 48 aa 32 00  |CF...@.STA PH.2.|
000011d0  e4 19 4a 10 50 48 20 4a  4d 50 20 28 24 30 30 30  |..J.PH JMP ($000|
000011e0  30 29 00 f3 19 54 10 53  4c 45 43 54 51 20 52 54  |0)...T.SLECTQ RT|
000011f0  53 00 05 1a 5e 10 53 4c  45 43 54 20 4c 44 41 20  |S...^.SLECT LDA |
00001200  58 50 42 00 14 1a 68 10  42 45 51 20 53 4c 45 43  |XPB...h.BEQ SLEC|
00001210  54 51 00 1f 1a 72 10 4c  44 41 20 58 50 00 2c 1a  |TQ...r.LDA XP.,.|
00001220  7c 10 43 4d 50 20 23 24  31 30 00 3b 1a 86 10 42  ||.CMP #$10.;...B|
00001230  43 43 20 53 4c 45 43 54  51 00 48 1a 90 10 43 4d  |CC SLECTQ.H...CM|
00001240  50 20 23 24 35 30 00 57  1a 9a 10 42 43 53 20 53  |P #$50.W...BCS S|
00001250  4c 45 43 54 51 00 62 1a  a4 10 4c 44 41 20 59 50  |LECTQ.b...LDA YP|
00001260  00 6f 1a ae 10 43 4d 50  20 23 24 33 41 00 7e 1a  |.o...CMP #$3A.~.|
00001270  b8 10 42 43 43 20 53 4c  45 43 54 51 00 8b 1a c2  |..BCC SLECTQ....|
00001280  10 43 4d 50 20 23 24 43  41 00 9a 1a cc 10 42 43  |.CMP #$CA.....BC|
00001290  53 20 53 4c 45 43 54 51  00 a5 1a d6 10 4c 44 41  |S SLECTQ.....LDA|
000012a0  20 58 50 00 b0 1a e0 10  af 20 23 24 46 38 00 b8  | XP...... #$F8..|
000012b0  1a ea 10 54 41 58 00 c3  1a f4 10 4c 44 41 20 59  |...TAX.....LDA Y|
000012c0  50 00 ce 1a fe 10 af 20  23 24 46 38 00 da 1a 00  |P...... #$F8....|
000012d0  11 b0 41 20 23 24 30 32  00 e2 1a 08 11 54 41 59  |..A #$02.....TAY|
000012e0  00 ef 1a 12 11 43 4d 50  20 23 24 42 41 00 fe 1a  |.....CMP #$BA...|
000012f0  1c 11 42 45 51 20 53 4c  45 43 54 51 00 0c 1b 26  |..BEQ SLECTQ...&|
00001300  11 42 43 53 20 53 4c 43  4e 54 00 19 1b 30 11 43  |.BCS SLCNT...0.C|
00001310  50 58 20 23 24 33 30 00  28 1b 3a 11 42 45 51 20  |PX #$30.(.:.BEQ |
00001320  53 4c 45 43 54 51 00 3c  1b 44 11 53 4c 43 4e 54  |SLECTQ.<.D.SLCNT|
00001330  20 53 54 58 20 24 44 30  30 38 00 4a 1b 4e 11 53  | STX $D008.J.N.S|
00001340  54 59 20 24 44 30 30 39  00 57 1b 58 11 43 50 59  |TY $D009.W.X.CPY|
00001350  20 23 24 42 41 00 65 1b  62 11 42 43 53 20 43 41  | #$BA.e.b.BCS CA|
00001360  4c 43 32 00 6d 1b 6c 11  54 58 41 00 7a 1b 76 11  |LC2.m.l.TXA.z.v.|
00001370  43 4d 50 20 23 24 33 30  00 88 1b 80 11 42 43 43  |CMP #$30.....BCC|
00001380  20 43 41 4c 43 31 00 90  1b 8a 11 53 45 43 00 9d  | CALC1.....SEC..|
00001390  1b 94 11 53 42 43 20 23  24 30 38 00 ab 1b 9e 11  |...SBC #$08.....|
000013a0  43 41 4c 43 31 20 53 45  43 00 b8 1b a8 11 53 42  |CALC1 SEC.....SB|
000013b0  43 20 23 24 31 30 00 c2  1b ad 11 41 53 4c 20 41  |C #$10.....ASL A|
000013c0  00 ce 1b b2 11 53 54 41  20 24 30 32 00 d6 1b bc  |.....STA $02....|
000013d0  11 54 59 41 00 de 1b c6  11 53 45 43 00 eb 1b d0  |.TYA.....SEC....|
000013e0  11 53 42 43 20 23 24 33  41 00 f5 1b da 11 4c 53  |.SBC #$3A.....LS|
000013f0  52 20 41 00 ff 1b e4 11  4c 53 52 20 41 00 09 1c  |R A.....LSR A...|
00001400  ee 11 4c 53 52 20 41 00  11 1c f8 11 43 4c 43 00  |..LSR A.....CLC.|
00001410  1d 1c 02 12 41 44 43 20  24 30 32 00 2b 1c 0c 12  |....ADC $02.+...|
00001420  53 54 41 20 53 43 48 41  52 00 33 1c 16 12 52 54  |STA SCHAR.3...RT|
00001430  53 00 41 1c 20 12 43 41  4c 43 32 20 54 58 41 00  |S.A. .CALC2 TXA.|
00001440  49 1c 2a 12 53 45 43 00  56 1c 34 12 53 42 43 20  |I.*.SEC.V.4.SBC |
00001450  23 24 31 30 00 60 1c 3e  12 4c 53 52 20 41 00 6a  |#$10.`.>.LSR A.j|
00001460  1c 48 12 4c 53 52 20 41  00 74 1c 52 12 4c 53 52  |.H.LSR A.t.R.LSR|
00001470  20 41 00 81 1c 5c 12 43  50 59 20 23 24 43 32 00  | A...\.CPY #$C2.|
00001480  90 1c 66 12 42 45 51 20  43 41 4c 43 32 43 00 98  |..f.BEQ CALC2C..|
00001490  1c 70 12 43 4c 43 00 a5  1c 7a 12 41 44 43 20 23  |.p.CLC...z.ADC #|
000014a0  24 30 38 00 b4 1c 84 12  43 41 4c 43 32 43 20 43  |$08.....CALC2C C|
000014b0  4c 43 00 c1 1c 8e 12 41  44 43 20 23 24 37 30 00  |LC.....ADC #$70.|
000014c0  cf 1c 98 12 53 54 41 20  53 43 48 41 52 00 d7 1c  |....STA SCHAR...|
000014d0  a2 12 52 54 53 00 e9 1c  c0 12 9c 53 43 52 20 4c  |..RTS......SCR L|
000014e0  44 41 20 23 24 35 32 00  f5 1c ca 12 53 54 41 20  |DA #$52.....STA |
000014f0  24 46 42 00 02 1d d4 12  4c 44 41 20 23 24 44 38  |$FB.....LDA #$D8|
00001500  00 0e 1d de 12 53 54 41  20 24 46 43 00 20 1d e8  |.....STA $FC. ..|
00001510  12 4c 4f 50 41 20 4c 44  41 20 23 24 30 30 00 2d  |.LOPA LDA #$00.-|
00001520  1d f2 12 4c 44 59 20 23  24 30 30 00 42 1d fc 12  |...LDY #$00.B...|
00001530  4c 4f 50 42 20 53 54 41  20 28 24 46 42 29 2c 59  |LOPB STA ($FB),Y|
00001540  00 4a 1d 06 13 49 4e 59  00 57 1d 10 13 43 50 59  |.J...INY.W...CPY|
00001550  20 23 24 31 41 00 64 1d  1a 13 42 4e 45 20 4c 4f  | #$1A.d...BNE LO|
00001560  50 42 00 70 1d 24 13 4c  44 41 20 24 46 42 00 78  |PB.p.$.LDA $FB.x|
00001570  1d 2e 13 43 4c 43 00 85  1d 38 13 41 44 43 20 23  |...CLC...8.ADC #|
00001580  24 32 38 00 91 1d 42 13  53 54 41 20 24 46 42 00  |$28...B.STA $FB.|
00001590  9e 1d 4c 13 43 4d 50 20  23 24 44 32 00 ad 1d 56  |..L.CMP #$D2...V|
000015a0  13 42 45 51 20 51 55 49  54 43 53 00 ba 1d 60 13  |.BEQ QUITCS...`.|
000015b0  43 4d 50 20 23 24 32 38  00 c7 1d 6a 13 42 43 53  |CMP #$28...j.BCS|
000015c0  20 4c 4f 50 41 00 d3 1d  74 13 49 4e 43 20 24 46  | LOPA...t.INC $F|
000015d0  43 00 e0 1d 7e 13 4a 4d  50 20 4c 4f 50 41 00 ef  |C...~.JMP LOPA..|
000015e0  1d 88 13 51 55 49 54 43  53 20 52 54 53 00 04 1e  |...QUITCS RTS...|
000015f0  92 13 44 49 53 50 20 4a  53 52 20 53 43 52 44 49  |..DISP JSR SCRDI|
00001600  53 50 00 12 1e 9c 13 4a  4d 50 20 43 d5 49 53 50  |SP.....JMP C.ISP|
00001610  00 27 1e a6 13 53 43 52  44 49 53 50 20 4c 44 41  |.'...SCRDISP LDA|
00001620  20 23 24 35 32 00 33 1e  b0 13 53 54 41 20 24 46  | #$52.3...STA $F|
00001630  42 00 40 1e ba 13 4c 44  41 20 23 24 36 30 00 4c  |B.@...LDA #$60.L|
00001640  1e c4 13 53 54 41 20 24  46 43 00 59 1e c7 13 4c  |...STA $FC.Y...L|
00001650  44 41 20 23 24 45 30 00  66 1e ca 13 4a 53 52 20  |DA #$E0.f...JSR |
00001660  50 41 47 45 00 73 1e ce  13 4c 44 58 20 23 24 30  |PAGE.s...LDX #$0|
00001670  30 00 86 1e d8 13 4c 4f  50 41 44 20 4c 44 59 20  |0.....LOPAD LDY |
00001680  23 24 30 30 00 9a 1e e2  13 4c 4f 50 42 44 20 4a  |#$00.....LOPBD J|
00001690  53 52 20 a1 43 48 41 52  00 a6 1e ec 13 b0 41 20  |SR .CHAR......A |
000016a0  23 24 38 30 00 b6 1e f6  13 53 54 41 20 28 24 46  |#$80.....STA ($F|
000016b0  42 29 2c 59 00 be 1e 00  14 49 4e 59 00 cb 1e 0a  |B),Y.....INY....|
000016c0  14 43 50 59 20 23 24 31  41 00 d9 1e 14 14 42 4e  |.CPY #$1A.....BN|
000016d0  45 20 4c 4f 50 42 44 00  e5 1e 1e 14 4c 44 41 20  |E LOPBD.....LDA |
000016e0  24 46 42 00 ed 1e 28 14  43 4c 43 00 fa 1e 32 14  |$FB...(.CLC...2.|
000016f0  41 44 43 20 23 24 32 38  00 06 1f 3c 14 53 54 41  |ADC #$28...<.STA|
00001700  20 24 46 42 00 0e 1f 46  14 49 4e 58 00 1b 1f 50  | $FB...F.INX...P|
00001710  14 43 4d 50 20 23 24 44  32 00 2a 1f 5a 14 42 45  |.CMP #$D2.*.Z.BE|
00001720  51 20 51 55 49 54 43 53  00 37 1f 64 14 43 4d 50  |Q QUITCS.7.d.CMP|
00001730  20 23 24 32 38 00 45 1f  6e 14 42 43 53 20 4c 4f  | #$28.E.n.BCS LO|
00001740  50 41 44 00 51 1f 78 14  49 4e 43 20 24 46 43 00  |PAD.Q.x.INC $FC.|
00001750  5f 1f 82 14 4a 4d 50 20  4c 4f 50 41 44 00 72 1f  |_...JMP LOPAD.r.|
00001760  8c 14 43 d5 49 53 50 20  4c 44 41 20 23 24 35 32  |..C.ISP LDA #$52|
00001770  00 7e 1f 96 14 53 54 41  20 24 46 42 00 8b 1f a0  |.~...STA $FB....|
00001780  14 4c 44 41 20 23 24 44  38 00 97 1f aa 14 53 54  |.LDA #$D8.....ST|
00001790  41 20 24 46 43 00 a4 1f  b4 14 4c 44 58 20 23 24  |A $FC.....LDX #$|
000017a0  30 30 00 b7 1f be 14 4c  4f 50 43 44 20 4c 44 59  |00.....LOPCD LDY|
000017b0  20 23 24 30 30 00 c5 1f  c8 14 4c 4f 50 44 44 20  | #$00.....LOPDD |
000017c0  54 58 41 00 cd 1f d2 14  50 48 41 00 db 1f dc 14  |TXA.....PHA.....|
000017d0  4a 53 52 20 a1 43 48 41  52 00 e3 1f e6 14 54 41  |JSR .CHAR.....TA|
000017e0  58 00 f3 1f f0 14 4c 44  41 20 24 35 30 30 30 2c  |X.....LDA $5000,|
000017f0  58 00 03 20 fa 14 53 54  41 20 28 24 46 42 29 2c  |X.. ..STA ($FB),|
00001800  59 00 0b 20 04 15 50 4c  41 00 13 20 0e 15 54 41  |Y.. ..PLA.. ..TA|
00001810  58 00 1b 20 18 15 49 4e  59 00 28 20 22 15 43 50  |X.. ..INY.( ".CP|
00001820  59 20 23 24 31 41 00 36  20 2c 15 42 4e 45 20 4c  |Y #$1A.6 ,.BNE L|
00001830  4f 50 44 44 00 42 20 36  15 4c 44 41 20 24 46 42  |OPDD.B 6.LDA $FB|
00001840  00 4a 20 40 15 43 4c 43  00 57 20 4a 15 41 44 43  |.J @.CLC.W J.ADC|
00001850  20 23 24 32 38 00 63 20  54 15 53 54 41 20 24 46  | #$28.c T.STA $F|
00001860  42 00 6b 20 5e 15 49 4e  58 00 78 20 68 15 43 4d  |B.k ^.INX.x h.CM|
00001870  50 20 23 24 44 32 00 87  20 72 15 42 45 51 20 51  |P #$D2.. r.BEQ Q|
00001880  55 49 54 43 53 00 94 20  7c 15 43 4d 50 20 23 24  |UITCS.. |.CMP #$|
00001890  32 38 00 a2 20 86 15 42  43 53 20 4c 4f 50 43 44  |28.. ..BCS LOPCD|
000018a0  00 ae 20 90 15 49 4e 43  20 24 46 43 00 bc 20 9a  |.. ..INC $FC.. .|
000018b0  15 4a 4d 50 20 4c 4f 50  43 44 00 ce 20 a4 15 a1  |.JMP LOPCD.. ...|
000018c0  43 48 41 52 20 4c 44 41  20 58 53 50 00 da 20 ae  |CHAR LDA XSP.. .|
000018d0  15 53 54 41 20 24 46 44  00 e2 20 b8 15 54 58 41  |.STA $FD.. ..TXA|
000018e0  00 ea 20 c2 15 43 4c 43  00 f6 20 cc 15 41 44 43  |.. ..CLC.. ..ADC|
000018f0  20 59 53 50 00 03 21 ce  15 41 44 43 20 23 24 30  | YSP..!..ADC #$0|
00001900  34 00 10 21 d0 15 43 4d  50 20 23 24 34 30 00 1c  |4..!..CMP #$40..|
00001910  21 d2 15 42 43 43 20 47  43 43 00 24 21 d3 15 43  |!..BCC GCC.$!..C|
00001920  4c 43 00 31 21 d5 15 41  44 43 20 23 24 34 30 00  |LC.1!..ADC #$40.|
00001930  41 21 d6 15 47 43 43 20  53 54 41 20 24 46 45 00  |A!..GCC STA $FE.|
00001940  51 21 e0 15 4c 44 41 20  28 24 46 44 29 2c 59 00  |Q!..LDA ($FD),Y.|
00001950  59 21 ea 15 52 54 53 00  66 21 f4 15 47 44 51 55  |Y!..RTS.f!..GDQU|
00001960  20 52 54 53 00 78 21 fe  15 a1 44 49 52 20 4c 44  | RTS.x!...DIR LD|
00001970  41 20 23 24 30 30 00 86  21 08 16 4c 44 58 20 43  |A #$00..!..LDX C|
00001980  4c 49 43 4b 00 93 21 12  16 42 45 51 20 47 44 51  |LICK..!..BEQ GDQ|
00001990  55 00 9e 21 1c 16 4c 44  58 20 59 50 00 ab 21 26  |U..!..LDX YP..!&|
000019a0  16 43 50 58 20 23 24 44  31 00 b8 21 30 16 42 43  |.CPX #$D1..!0.BC|
000019b0  53 20 47 44 51 55 00 c4  21 3a 16 4c 44 58 20 58  |S GDQU..!:.LDX X|
000019c0  50 42 00 d2 21 44 16 42  45 51 20 47 44 50 49 49  |PB..!D.BEQ GDPII|
000019d0  00 dd 21 4e 16 4c 44 58  20 58 50 00 ea 21 58 16  |..!N.LDX XP..!X.|
000019e0  43 50 58 20 23 24 30 38  00 f7 21 62 16 42 43 53  |CPX #$08..!b.BCS|
000019f0  20 47 44 51 55 00 0b 22  6c 16 47 44 50 49 49 20  | GDQU.."l.GDPII |
00001a00  4c 44 58 20 24 36 33 46  38 00 18 22 76 16 43 50  |LDX $63F8.."v.CP|
00001a10  58 20 23 24 39 32 00 25  22 80 16 42 45 51 20 47  |X #$92.%"..BEQ G|
00001a20  44 51 55 00 30 22 8a 16  4c 44 58 20 59 50 00 3d  |DQU.0"..LDX YP.=|
00001a30  22 94 16 43 50 58 20 23  24 34 32 00 4a 22 9e 16  |"..CPX #$42.J"..|
00001a40  42 43 53 20 47 44 50 41  00 56 22 a8 16 b0 41 20  |BCS GDPA.V"...A |
00001a50  23 24 30 31 00 68 22 b2  16 47 44 50 41 20 43 50  |#$01.h"..GDPA CP|
00001a60  58 20 23 24 43 32 00 75  22 bc 16 42 43 43 20 47  |X #$C2.u"..BCC G|
00001a70  44 50 42 00 81 22 c6 16  b0 41 20 23 24 30 32 00  |DPB.."...A #$02.|
00001a80  91 22 d0 16 47 44 50 42  20 4c 44 58 20 58 50 00  |."..GDPB LDX XP.|
00001a90  9e 22 da 16 43 50 58 20  23 24 32 38 00 ab 22 e4  |."..CPX #$28..".|
00001aa0  16 42 43 53 20 47 44 50  43 00 b7 22 ee 16 b0 41  |.BCS GDPC.."...A|
00001ab0  20 23 24 30 34 00 c9 22  f8 16 47 44 50 43 20 43  | #$04.."..GDPC C|
00001ac0  50 58 20 23 24 46 38 00  d6 22 02 17 42 43 43 20  |PX #$F8.."..BCC |
00001ad0  47 44 50 44 00 e2 22 0c  17 b0 41 20 23 24 30 38  |GDPD.."...A #$08|
00001ae0  00 f3 22 16 17 47 44 50  44 20 4c 44 58 20 58 50  |.."..GDPD LDX XP|
00001af0  42 00 00 23 20 17 42 45  51 20 47 44 51 55 00 0c  |B..# .BEQ GDQU..|
00001b00  23 2a 17 b0 41 20 23 24  30 38 00 14 23 34 17 52  |#*..A #$08..#4.R|
00001b10  54 53 00 25 23 70 17 42  54 33 20 4a 53 52 20 a1  |TS.%#p.BT3 JSR .|
00001b20  44 49 52 00 2d 23 7a 17  54 41 58 00 38 23 84 17  |DIR.-#z.TAX.8#..|
00001b30  af 20 23 24 30 31 00 44  23 8e 17 42 45 51 20 54  |. #$01.D#..BEQ T|
00001b40  44 33 00 50 23 98 17 4c  44 41 20 59 53 50 00 5c  |D3.P#..LDA YSP.\|
00001b50  23 a2 17 42 45 51 20 54  44 33 00 68 23 ac 17 44  |#..BEQ TD3.h#..D|
00001b60  45 43 20 59 53 50 00 75  23 b6 17 4a 53 52 20 44  |EC YSP.u#..JSR D|
00001b70  49 53 50 00 81 23 c0 17  54 44 33 20 54 58 41 00  |ISP..#..TD3 TXA.|
00001b80  8c 23 ca 17 af 20 23 24  30 32 00 98 23 d4 17 42  |.#... #$02..#..B|
00001b90  45 51 20 54 4c 33 00 a4  23 de 17 4c 44 41 20 59  |EQ TL3..#..LDA Y|
00001ba0  53 50 00 b1 23 e8 17 43  4d 50 20 23 24 36 43 00  |SP..#..CMP #$6C.|
00001bb0  bd 23 f2 17 42 45 51 20  54 4c 33 00 c9 23 fc 17  |.#..BEQ TL3..#..|
00001bc0  49 4e 43 20 59 53 50 00  d6 23 06 18 4a 53 52 20  |INC YSP..#..JSR |
00001bd0  44 49 53 50 00 e2 23 10  18 54 4c 33 20 54 58 41  |DISP..#..TL3 TXA|
00001be0  00 ed 23 1a 18 af 20 23  24 30 34 00 f9 23 24 18  |..#... #$04..#$.|
00001bf0  42 45 51 20 54 52 33 00  05 24 2e 18 44 45 43 20  |BEQ TR3..$..DEC |
00001c00  58 53 50 00 12 24 38 18  4a 53 52 20 44 49 53 50  |XSP..$8.JSR DISP|
00001c10  00 1e 24 42 18 54 52 33  20 54 58 41 00 29 24 4c  |..$B.TR3 TXA.)$L|
00001c20  18 af 20 23 24 30 38 00  37 24 56 18 42 45 51 20  |.. #$08.7$V.BEQ |
00001c30  42 54 33 50 32 00 43 24  60 18 49 4e 43 20 58 53  |BT3P2.C$`.INC XS|
00001c40  50 00 50 24 6a 18 4a 53  52 20 44 49 53 50 00 64  |P.P$j.JSR DISP.d|
00001c50  24 74 18 42 54 33 50 32  20 4c 44 41 20 43 4c 49  |$t.BT3P2 LDA CLI|
00001c60  43 4b 00 72 24 7e 18 42  45 51 20 42 54 33 50 34  |CK.r$~.BEQ BT3P4|
00001c70  00 80 24 81 18 4c 44 41  20 24 36 33 46 38 00 8d  |..$..LDA $63F8..|
00001c80  24 83 18 43 4d 50 20 23  24 39 32 00 9b 24 85 18  |$..CMP #$92..$..|
00001c90  42 4e 45 20 42 54 33 50  34 00 a6 24 88 18 4a 53  |BNE BT3P4..$..JS|
00001ca0  52 20 a1 b9 00 b2 24 92  18 4c 44 41 20 58 53 51  |R ....$..LDA XSQ|
00001cb0  00 ba 24 9c 18 43 4c 43  00 c6 24 a6 18 41 44 43  |..$..CLC..$..ADC|
00001cc0  20 58 53 50 00 d2 24 b0  18 53 54 41 20 24 46 42  | XSP..$..STA $FB|
00001cd0  00 de 24 ba 18 4c 44 41  20 59 53 51 00 e6 24 c4  |..$..LDA YSQ..$.|
00001ce0  18 43 4c 43 00 f2 24 ce  18 41 44 43 20 58 53 50  |.CLC..$..ADC XSP|
00001cf0  00 ff 24 d8 18 41 44 43  20 23 24 30 34 00 0c 25  |..$..ADC #$04..%|
00001d00  e2 18 43 4d 50 20 23 24  34 30 00 1a 25 ec 18 42  |..CMP #$40..%..B|
00001d10  43 43 20 42 54 33 50 33  00 22 25 f6 18 43 4c 43  |CC BT3P3."%..CLC|
00001d20  00 2f 25 00 19 41 44 43  20 23 24 34 30 00 41 25  |./%..ADC #$40.A%|
00001d30  0a 19 42 54 33 50 33 20  53 54 41 20 24 46 43 00  |..BT3P3 STA $FC.|
00001d40  4f 25 14 19 4c 44 41 20  53 43 48 41 52 00 66 25  |O%..LDA SCHAR.f%|
00001d50  1e 19 42 54 33 50 34 20  4a 53 52 20 42 55 54 43  |..BT3P4 JSR BUTC|
00001d60  48 45 43 4b 00 72 25 28  19 4a 4d 50 20 42 54 33  |HECK.r%(.JMP BT3|
00001d70  00 80 25 32 19 a1 b9 20  4c 44 41 20 58 50 00 88  |..%2... LDA XP..|
00001d80  25 3c 19 53 45 43 00 95  25 46 19 53 42 43 20 23  |%<.SEC..%F.SBC #|
00001d90  24 32 38 00 9f 25 50 19  4c 53 52 20 41 00 a9 25  |$28..%P.LSR A..%|
00001da0  5a 19 4c 53 52 20 41 00  b3 25 64 19 4c 53 52 20  |Z.LSR A..%d.LSR |
00001db0  41 00 bf 25 6e 19 53 54  41 20 58 53 51 00 ca 25  |A..%n.STA XSQ..%|
00001dc0  78 19 4c 44 41 20 59 50  00 d2 25 82 19 53 45 43  |x.LDA YP..%..SEC|
00001dd0  00 df 25 8c 19 53 42 43  20 23 24 34 32 00 e9 25  |..%..SBC #$42..%|
00001de0  96 19 4c 53 52 20 41 00  f3 25 a0 19 4c 53 52 20  |..LSR A..%..LSR |
00001df0  41 00 fd 25 aa 19 4c 53  52 20 41 00 09 26 b4 19  |A..%..LSR A..&..|
00001e00  53 54 41 20 59 53 51 00  11 26 be 19 52 54 53 00  |STA YSQ..&..RTS.|
00001e10  20 26 c8 19 49 4e 53 45  52 54 20 43 4c 43 00 2b  | &..INSERT CLC.+|
00001e20  26 d2 19 41 44 43 20 23  24 00 38 26 dc 19 53 54  |&..ADC #$.8&..ST|
00001e30  41 20 50 49 41 42 00 45  26 e6 19 4a 53 52 20 9c  |A PIAB.E&..JSR .|
00001e40  53 43 52 00 53 26 f0 19  4c 44 41 20 23 b3 50 49  |SCR.S&..LDA #.PI|
00001e50  41 00 5f 26 fa 19 53 54  41 20 24 46 42 00 6d 26  |A._&..STA $FB.m&|
00001e60  04 1a 4c 44 41 20 23 b1  50 49 41 00 79 26 0e 1a  |..LDA #.PIA.y&..|
00001e70  53 54 41 20 24 46 43 00  86 26 18 1a 4c 44 58 20  |STA $FC..&..LDX |
00001e80  23 24 30 31 00 93 26 22  1a 4c 44 59 20 23 24 30  |#$01..&".LDY #$0|
00001e90  30 00 9d 26 2c 1a 4a 53  52 20 99 00 ab 26 36 1a  |0..&,.JSR ...&6.|
00001ea0  4c 44 41 20 23 b3 50 49  42 00 b7 26 40 1a 53 54  |LDA #.PIB..&@.ST|
00001eb0  41 20 24 46 42 00 c5 26  4a 1a 4c 44 41 20 23 b1  |A $FB..&J.LDA #.|
00001ec0  50 49 42 00 d1 26 54 1a  53 54 41 20 24 46 43 00  |PIB..&T.STA $FC.|
00001ed0  de 26 5e 1a 4c 44 58 20  23 24 30 41 00 eb 26 68  |.&^.LDX #$0A..&h|
00001ee0  1a 4c 44 59 20 23 24 30  31 00 f5 26 72 1a 4a 53  |.LDY #$01..&r.JS|
00001ef0  52 20 99 00 06 27 7c 1a  49 4c 4f 50 20 4c 44 41  |R ...'|.ILOP LDA|
00001f00  20 24 43 35 00 13 27 86  1a 43 4d 50 20 23 24 33  | $C5..'..CMP #$3|
00001f10  43 00 20 27 90 1a 42 4e  45 20 49 4c 4f 50 00 28  |C. '..BNE ILOP.(|
00001f20  27 9a 1a 52 54 53 00 3a  27 a4 1a 43 48 45 43 4b  |'..RTS.:'..CHECK|
00001f30  20 53 54 41 20 24 46 42  00 4f 27 ae 1a 43 48 43  | STA $FB.O'..CHC|
00001f40  4c 4f 50 20 4a 53 52 20  52 48 45 41 44 00 5d 27  |LOP JSR RHEAD.]'|
00001f50  b8 1a 4a 53 52 20 24 46  46 43 46 00 69 27 c2 1a  |..JSR $FFCF.i'..|
00001f60  43 4d 50 20 24 46 42 00  76 27 cc 1a 42 4e 45 20  |CMP $FB.v'..BNE |
00001f70  43 48 54 41 00 84 27 d6  1a 4a 53 52 20 24 46 46  |CHTA..'..JSR $FF|
00001f80  43 46 00 93 27 e0 1a 43  4d 50 20 53 45 52 49 41  |CF..'..CMP SERIA|
00001f90  4c 00 a0 27 ea 1a 42 4e  45 20 43 48 54 41 00 ae  |L..'..BNE CHTA..|
00001fa0  27 f4 1a 4a 4d 50 20 24  46 46 43 43 00 c1 27 fe  |'..JMP $FFCC..'.|
00001fb0  1a 43 48 54 41 20 4a 53  52 20 24 46 46 43 43 00  |.CHTA JSR $FFCC.|
00001fc0  d0 27 08 1b 4a 53 52 20  49 4e 53 45 52 54 00 df  |.'..JSR INSERT..|
00001fd0  27 12 1b 4a 4d 50 20 43  48 43 4c 4f 50 00 f2 27  |'..JMP CHCLOP..'|
00001fe0  1c 1b 52 48 45 41 44 20  4c 44 41 20 23 24 30 31  |..RHEAD LDA #$01|
00001ff0  00 ff 27 26 1b 4c 44 58  20 23 24 30 38 00 07 28  |..'&.LDX #$08..(|
00002000  30 1b 54 41 59 00 15 28  3a 1b 4a 53 52 20 24 46  |0.TAY..(:.JSR $F|
00002010  46 42 41 00 22 28 44 1b  4c 44 41 20 23 24 30 31  |FBA."(D.LDA #$01|
00002020  00 2f 28 4e 1b 4c 44 58  20 23 b3 5a 54 00 3c 28  |./(N.LDX #.ZT.<(|
00002030  58 1b 4c 44 59 20 23 b1  5a 54 00 4a 28 62 1b 4a  |X.LDY #.ZT.J(b.J|
00002040  53 52 20 24 46 46 42 44  00 58 28 6c 1b 4a 53 52  |SR $FFBD.X(l.JSR|
00002050  20 24 46 46 43 30 00 65  28 76 1b 4c 44 58 20 23  | $FFC0.e(v.LDX #|
00002060  24 30 31 00 73 28 80 1b  4a 4d 50 20 24 46 46 43  |$01.s(..JMP $FFC|
00002070  36 00 87 28 8a 1b a1 48  45 41 44 20 4a 53 52 20  |6..(...HEAD JSR |
00002080  52 48 45 41 44 00 94 28  94 1b 4c 44 59 20 23 24  |RHEAD..(..LDY #$|
00002090  30 30 00 a2 28 9e 1b 4a  53 52 20 24 46 46 43 46  |00..(..JSR $FFCF|
000020a0  00 aa 28 a8 1b 54 41 58  00 b8 28 b2 1b 53 54 41  |..(..TAX..(..STA|
000020b0  20 24 43 46 43 30 00 c7  28 bc 1b 47 48 4c 4f 4f  | $CFC0..(..GHLOO|
000020c0  50 20 49 4e 59 00 d5 28  c6 1b 4a 53 52 20 24 46  |P INY..(..JSR $F|
000020d0  46 43 46 00 e5 28 d0 1b  53 54 41 20 24 43 46 43  |FCF..(..STA $CFC|
000020e0  30 2c 59 00 f2 28 da 1b  43 50 59 20 23 24 30 31  |0,Y..(..CPY #$01|
000020f0  00 ff 28 e4 1b 42 45 51  20 47 48 43 32 00 0c 29  |..(..BEQ GHC2..)|
00002100  ee 1b 43 50 59 20 23 24  31 37 00 1a 29 f8 1b 42  |..CPY #$17..)..B|
00002110  45 51 20 47 48 43 31 37  00 29 29 02 1c 4a 4d 50  |EQ GHC17.))..JMP|
00002120  20 47 48 4c 4f 4f 50 00  3d 29 0c 1c 47 48 43 32  | GHLOOP.=)..GHC2|
00002130  20 53 54 41 20 53 45 52  49 41 4c 00 4a 29 16 1c  | STA SERIAL.J)..|
00002140  43 50 58 20 23 24 30 31  00 58 29 20 1c 42 4e 45  |CPX #$01.X) .BNE|
00002150  20 47 48 4c 4f 50 00 6c  29 2a 1c 47 48 43 31 37  | GHLOP.l)*.GHC17|
00002160  20 4a 4d 50 20 24 46 46  43 43 00 79 29 34 1c 99  | JMP $FFCC.y)4..|
00002170  20 4a 53 52 20 4d a1 00  86 29 3e 1c 4c 44 59 20  | JSR M...)>.LDY |
00002180  23 24 30 30 00 9c 29 48  1c 50 4c 4f 50 42 20 4c  |#$00..)H.PLOPB L|
00002190  44 41 20 28 24 46 42 29  2c 59 00 a8 29 52 1c 42  |DA ($FB),Y..)R.B|
000021a0  45 51 20 50 54 45 00 b0  29 5c 1c 43 4c 43 00 bb  |EQ PTE..)\.CLC..|
000021b0  29 66 1c 41 44 43 20 23  24 00 cb 29 70 1c 53 54  |)f.ADC #$..)p.ST|
000021c0  41 20 28 24 32 32 29 2c  59 00 d8 29 7a 1c 4c 44  |A ($22),Y..)z.LD|
000021d0  41 20 23 24 30 31 00 e8  29 84 1c 53 54 41 20 28  |A #$01..)..STA (|
000021e0  24 32 34 29 2c 59 00 f0  29 8e 1c 49 4e 59 00 fe  |$24),Y..)..INY..|
000021f0  29 98 1c 4a 4d 50 20 50  4c 4f 50 42 00 0a 2a a2  |)..JMP PLOPB..*.|
00002200  1c 50 54 45 20 52 54 53  00 18 2a ac 1c 43 4f 4c  |.PTE RTS..*..COL|
00002210  53 51 20 50 48 41 00 23  2a b6 1c 4a 53 52 20 4d  |SQ PHA.#*..JSR M|
00002220  a1 00 30 2a c0 1c 4c 44  59 20 23 24 30 30 00 38  |..0*..LDY #$00.8|
00002230  2a ca 1c 50 4c 41 00 48  2a d4 1c 53 54 41 20 28  |*..PLA.H*..STA (|
00002240  24 32 34 29 2c 59 00 50  2a de 1c 52 54 53 00 61  |$24),Y.P*..RTS.a|
00002250  2a e8 1c 50 41 47 45 20  53 54 41 20 24 32 32 00  |*..PAGE STA $22.|
00002260  6e 2a f2 1c 4c 44 41 20  23 24 35 30 00 7a 2a fc  |n*..LDA #$50.z*.|
00002270  1c 53 54 41 20 24 46 43  00 87 2a 06 1d 4c 44 41  |.STA $FC..*..LDA|
00002280  20 50 52 50 49 00 93 2a  10 1d 53 54 41 20 24 46  | PRPI..*..STA $F|
00002290  45 00 a2 2a 1a 1d 4a 53  52 20 4d 4f 56 45 50 52  |E..*..JSR MOVEPR|
000022a0  00 ae 2a 24 1d 4c 44 41  20 24 32 32 00 ba 2a 2e  |..*$.LDA $22..*.|
000022b0  1d 53 54 41 20 24 46 43  00 c7 2a 38 1d 53 54 41  |.STA $FC..*8.STA|
000022c0  20 50 52 50 49 00 d4 2a  42 1d 4c 44 41 20 23 24  | PRPI..*B.LDA #$|
000022d0  35 30 00 e0 2a 4c 1d 53  54 41 20 24 46 45 00 f4  |50..*L.STA $FE..|
000022e0  2a 56 1d 4d 4f 56 45 50  52 20 4c 44 41 20 23 24  |*V.MOVEPR LDA #$|
000022f0  30 30 00 00 2b 60 1d 53  54 41 20 24 46 42 00 0c  |00..+`.STA $FB..|
00002300  2b 6a 1d 53 54 41 20 24  46 44 00 14 2b 74 1d 53  |+j.STA $FD..+t.S|
00002310  45 49 00 20 2b 7e 1d 4c  44 41 20 24 30 31 00 2b  |EI. +~.LDA $01.+|
00002320  2b 88 1d af 20 23 24 46  42 00 37 2b 92 1d 53 54  |+... #$FB.7+..ST|
00002330  41 20 24 30 31 00 44 2b  9c 1d 4c 44 59 20 23 24  |A $01.D+..LDY #$|
00002340  30 30 00 59 2b a6 1d 4d  50 4c 42 20 4c 44 41 20  |00.Y+..MPLB LDA |
00002350  28 24 46 42 29 2c 59 00  69 2b b0 1d 53 54 41 20  |($FB),Y.i+..STA |
00002360  28 24 46 44 29 2c 59 00  71 2b ba 1d 49 4e 59 00  |($FD),Y.q+..INY.|
00002370  7e 2b c4 1d 42 4e 45 20  4d 50 4c 42 00 8a 2b ce  |~+..BNE MPLB..+.|
00002380  1d 49 4e 43 20 24 46 43  00 96 2b d8 1d 49 4e 43  |.INC $FC..+..INC|
00002390  20 24 46 45 00 a2 2b e2  1d 4c 44 41 20 24 46 43  | $FE..+..LDA $FC|
000023a0  00 ad 2b ec 1d af 20 23  24 30 37 00 ba 2b f6 1d  |..+... #$07..+..|
000023b0  42 4e 45 20 4d 50 4c 42  00 c6 2b 00 1e 4c 44 41  |BNE MPLB..+..LDA|
000023c0  20 24 30 31 00 d2 2b 0a  1e b0 41 20 23 24 30 32  | $01..+...A #$02|
000023d0  00 de 2b 14 1e 53 54 41  20 24 30 31 00 e6 2b 1e  |..+..STA $01..+.|
000023e0  1e 43 4c 49 00 ee 2b 28  1e 52 54 53 00 fe 2b 32  |.CLI..+(.RTS..+2|
000023f0  1e 4d a1 20 4c 44 41 20  23 24 36 30 00 0a 2c 3c  |.M. LDA #$60..,<|
00002400  1e 53 54 41 20 24 32 33  00 17 2c 46 1e 4c 44 41  |.STA $23..,F.LDA|
00002410  20 23 24 35 32 00 23 2c  50 1e 53 54 41 20 24 32  | #$52.#,P.STA $2|
00002420  32 00 36 2c 5a 1e 50 4c  4f 50 41 20 43 50 58 20  |2.6,Z.PLOPA CPX |
00002430  23 24 30 30 00 45 2c 64  1e 42 45 51 20 50 4c 4f  |#$00.E,d.BEQ PLO|
00002440  50 45 44 00 4d 2c 6e 1e  44 45 58 00 59 2c 78 1e  |PED.M,n.DEX.Y,x.|
00002450  4c 44 41 20 24 32 32 00  61 2c 82 1e 43 4c 43 00  |LDA $22.a,..CLC.|
00002460  6e 2c 8c 1e 41 44 43 20  23 24 32 38 00 7a 2c 96  |n,..ADC #$28.z,.|
00002470  1e 53 54 41 20 24 32 32  00 86 2c a0 1e 4c 44 41  |.STA $22..,..LDA|
00002480  20 24 32 33 00 93 2c aa  1e 41 44 43 20 23 24 30  | $23..,..ADC #$0|
00002490  30 00 9f 2c b4 1e 53 54  41 20 24 32 33 00 ad 2c  |0..,..STA $23..,|
000024a0  be 1e 4a 4d 50 20 50 4c  4f 50 41 00 bc 2c c8 1e  |..JMP PLOPA..,..|
000024b0  50 4c 4f 50 45 44 20 54  59 41 00 c4 2c d2 1e 43  |PLOPED TYA..,..C|
000024c0  4c 43 00 d0 2c dc 1e 41  44 43 20 24 32 32 00 dc  |LC..,..ADC $22..|
000024d0  2c e6 1e 53 54 41 20 24  32 32 00 e8 2c f0 1e 4c  |,..STA $22..,..L|
000024e0  44 41 20 24 32 33 00 f5  2c fa 1e 41 44 43 20 23  |DA $23..,..ADC #|
000024f0  24 30 30 00 01 2d 04 1f  53 54 41 20 24 32 33 00  |$00..-..STA $23.|
00002500  09 2d 0e 1f 43 4c 43 00  16 2d 18 1f 41 44 43 20  |.-..CLC..-..ADC |
00002510  23 24 37 38 00 22 2d 22  1f 53 54 41 20 24 32 35  |#$78."-".STA $25|
00002520  00 2e 2d 2c 1f 4c 44 41  20 24 32 32 00 3a 2d 36  |..-,.LDA $22.:-6|
00002530  1f 53 54 41 20 24 32 34  00 42 2d 40 1f 52 54 53  |.STA $24.B-@.RTS|
00002540  00 53 2d 4a 1f 42 49 31  20 4a 53 52 20 9c 53 43  |.S-J.BI1 JSR .SC|
00002550  52 00 60 2d 54 1f 4c 44  59 20 23 24 30 30 00 6f  |R.`-T.LDY #$00.o|
00002560  2d 5e 1f 4c 44 41 20 23  b3 42 41 52 83 00 7b 2d  |-^.LDA #.BAR..{-|
00002570  68 1f 53 54 41 20 24 46  42 00 8a 2d 72 1f 4c 44  |h.STA $FB..-r.LD|
00002580  41 20 23 b1 42 41 52 83  00 96 2d 7c 1f 53 54 41  |A #.BAR...-|.STA|
00002590  20 24 46 43 00 a4 2d 86  1f 42 49 31 4c 31 20 54  | $FC..-..BI1L1 T|
000025a0  59 41 00 ac 2d 90 1f 50  48 41 00 b9 2d 9a 1f 4c  |YA..-..PHA..-..L|
000025b0  44 58 20 23 24 31 30 00  c3 2d a4 1f 4a 53 52 20  |DX #$10..-..JSR |
000025c0  99 00 cb 2d ae 1f 50 4c  41 00 d3 2d b8 1f 54 41  |...-..PLA..-..TA|
000025d0  59 00 db 2d c2 1f 49 4e  59 00 e8 2d cc 1f 43 50  |Y..-..INY..-..CP|
000025e0  59 20 23 24 31 30 00 f6  2d d6 1f 42 4e 45 20 42  |Y #$10..-..BNE B|
000025f0  49 31 4c 31 00 06 2e e0  1f 4c 44 41 20 23 b3 42  |I1L1.....LDA #.B|
00002600  58 45 53 44 00 12 2e ea  1f 53 54 41 20 24 46 44  |XESD.....STA $FD|
00002610  00 22 2e f4 1f 4c 44 41  20 23 b1 42 58 45 53 44  |."...LDA #.BXESD|
00002620  00 2e 2e fe 1f 53 54 41  20 24 46 45 00 3b 2e 08  |.....STA $FE.;..|
00002630  20 4c 44 59 20 23 24 30  30 00 51 2e 12 20 42 49  | LDY #$00.Q.. BI|
00002640  31 4c 32 20 4c 44 41 20  28 24 46 44 29 2c 59 00  |1L2 LDA ($FD),Y.|
00002650  63 2e 1c 20 42 45 51 20  53 54 52 43 48 41 4e 47  |c.. BEQ STRCHANG|
00002660  45 00 6b 2e 26 20 54 41  58 00 73 2e 30 20 49 4e  |E.k.& TAX.s.0 IN|
00002670  59 00 7b 2e 3a 20 54 59  41 00 83 2e 44 20 50 48  |Y.{.: TYA...D PH|
00002680  41 00 93 2e 4e 20 4c 44  41 20 28 24 46 44 29 2c  |A...N LDA ($FD),|
00002690  59 00 9b 2e 58 20 54 41  59 00 a5 2e 62 20 4a 53  |Y...X TAY...b JS|
000026a0  52 20 99 00 ad 2e 6c 20  50 4c 41 00 b5 2e 76 20  |R ....l PLA...v |
000026b0  54 41 59 00 bd 2e 80 20  49 4e 59 00 cb 2e 8a 20  |TAY.... INY.... |
000026c0  4a 4d 50 20 42 49 31 4c  32 00 dd 2e 94 20 53 54  |JMP BI1L2.... ST|
000026d0  52 43 48 41 4e 47 45 20  49 4e 59 00 ed 2e 9e 20  |RCHANGE INY.... |
000026e0  4c 44 41 20 28 24 46 44  29 2c 59 00 fc 2e a8 20  |LDA ($FD),Y.... |
000026f0  42 45 51 20 42 49 31 4c  32 43 00 08 2f b2 20 53  |BEQ BI1L2C../. S|
00002700  54 41 20 24 46 42 00 10  2f bc 20 49 4e 59 00 20  |TA $FB../. INY. |
00002710  2f c6 20 4c 44 41 20 28  24 46 44 29 2c 59 00 2c  |/. LDA ($FD),Y.,|
00002720  2f d0 20 53 54 41 20 24  46 43 00 34 2f da 20 49  |/. STA $FC.4/. I|
00002730  4e 59 00 3c 2f e4 20 52  54 53 00 50 2f ee 20 42  |NY.</. RTS.P/. B|
00002740  49 31 4c 32 43 20 4c 44  41 20 23 24 45 30 00 5d  |I1L2C LDA #$E0.]|
00002750  2f f8 20 4a 53 52 20 50  41 47 45 00 6a 2f 02 21  |/. JSR PAGE.j/.!|
00002760  4c 44 41 20 23 24 30 30  00 77 2f 0c 21 4c 44 58  |LDA #$00.w/.!LDX|
00002770  20 23 24 31 32 00 84 2f  16 21 4c 44 59 20 23 24  | #$12../.!LDY #$|
00002780  30 31 00 92 2f 20 21 4a  53 52 20 43 4f 4c 53 51  |01../ !JSR COLSQ|
00002790  00 a0 2f 2a 21 4c 44 41  20 24 35 30 38 30 00 ad  |../*!LDA $5080..|
000027a0  2f 34 21 4c 44 58 20 23  24 31 32 00 ba 2f 3e 21  |/4!LDX #$12../>!|
000027b0  4c 44 59 20 23 24 30 34  00 c8 2f 48 21 4a 53 52  |LDY #$04../H!JSR|
000027c0  20 43 4f 4c 53 51 00 d6  2f 52 21 4c 44 41 20 24  | COLSQ../R!LDA $|
000027d0  35 30 38 31 00 e3 2f 5c  21 4c 44 58 20 23 24 31  |5081../\!LDX #$1|
000027e0  32 00 f0 2f 66 21 4c 44  59 20 23 24 30 37 00 fe  |2../f!LDY #$07..|
000027f0  2f 70 21 4a 53 52 20 43  4f 4c 53 51 00 0c 30 7a  |/p!JSR COLSQ..0z|
00002800  21 4c 44 58 20 53 4c 45  43 54 00 1c 30 84 21 4c  |!LDX SLECT..0.!L|
00002810  44 41 20 24 35 30 30 30  2c 58 00 29 30 8e 21 4c  |DA $5000,X.)0.!L|
00002820  44 58 20 23 24 31 32 00  36 30 98 21 4c 44 59 20  |DX #$12.60.!LDY |
00002830  23 24 30 41 00 44 30 a2  21 4a 53 52 20 43 4f 4c  |#$0A.D0.!JSR COL|
00002840  53 51 00 51 30 ac 21 4c  44 41 20 23 24 30 30 00  |SQ.Q0.!LDA #$00.|
00002850  5e 30 b6 21 4a 53 52 20  53 45 54 be 00 6b 30 c0  |^0.!JSR SET..k0.|
00002860  21 4c 44 41 20 23 24 30  30 00 77 30 ca 21 53 54  |!LDA #$00.w0.!ST|
00002870  41 20 24 46 43 00 83 30  d4 21 53 54 41 20 24 46  |A $FC..0.!STA $F|
00002880  45 00 90 30 de 21 4c 44  41 20 23 24 46 44 00 9c  |E..0.!LDA #$FD..|
00002890  30 e8 21 53 54 41 20 24  46 42 00 aa 30 f2 21 4c  |0.!STA $FB..0.!L|
000028a0  44 41 20 53 4c 45 43 54  00 b6 30 fc 21 53 54 41  |DA SLECT..0.!STA|
000028b0  20 24 46 44 00 c3 30 06  22 4c 44 58 20 23 24 31  | $FD..0."LDX #$1|
000028c0  41 00 d0 30 10 22 4c 44  59 20 23 24 30 35 00 da  |A..0."LDY #$05..|
000028d0  30 1a 22 4a 53 52 20 99  00 ea 30 24 22 4a 53 52  |0."JSR ...0$"JSR|
000028e0  20 43 4f 4c 44 49 53 50  00 f6 30 11 27 42 49 32  | COLDISP..0.'BI2|
000028f0  20 52 54 53 00 02 31 13  27 42 49 34 20 52 54 53  | RTS..1.'BI4 RTS|
00002900  00 0e 31 14 27 42 49 35  20 52 54 53 00 1a 31 15  |..1.'BI5 RTS..1.|
00002910  27 42 49 36 20 52 54 53  00 26 31 16 27 42 49 37  |'BI6 RTS.&1.'BI7|
00002920  20 52 54 53 00 32 31 17  27 42 49 38 20 52 54 53  | RTS.21.'BI8 RTS|
00002930  00 3e 31 18 27 42 49 39  20 52 54 53 00 4a 31 19  |.>1.'BI9 RTS.J1.|
00002940  27 42 49 41 20 52 54 53  00 56 31 1a 27 42 49 42  |'BIA RTS.V1.'BIB|
00002950  20 52 54 53 00 62 31 1b  27 42 49 43 20 52 54 53  | RTS.b1.'BIC RTS|
00002960  00 6e 31 24 27 42 54 31  20 4e 4f 50 00 7a 31 25  |.n1$'BT1 NOP.z1%|
00002970  27 42 54 32 20 4e 4f 50  00 86 31 27 27 42 54 34  |'BT2 NOP..1''BT4|
00002980  20 4e 4f 50 00 92 31 28  27 42 54 35 20 4e 4f 50  | NOP..1('BT5 NOP|
00002990  00 9e 31 29 27 42 54 36  20 4e 4f 50 00 aa 31 2a  |..1)'BT6 NOP..1*|
000029a0  27 42 54 37 20 4e 4f 50  00 b6 31 2b 27 42 54 38  |'BT7 NOP..1+'BT8|
000029b0  20 4e 4f 50 00 c2 31 2c  27 42 54 39 20 4e 4f 50  | NOP..1,'BT9 NOP|
000029c0  00 ce 31 2d 27 42 54 41  20 4e 4f 50 00 da 31 2e  |..1-'BTA NOP..1.|
000029d0  27 42 54 42 20 4e 4f 50  00 e6 31 2f 27 42 54 43  |'BTB NOP..1/'BTC|
000029e0  20 4e 4f 50 00 f3 31 30  27 4a 4d 50 20 42 55 54  | NOP..10'JMP BUT|
000029f0  30 00 05 32 18 f6 3b 20  56 45 43 a4 52 20 54 41  |0..2..; VEC.R TA|
00002a00  42 4c 45 00 11 32 22 f6  ac b2 24 43 46 38 30 00  |BLE..2"...$CF80.|
00002a10  39 32 2c f6 54 58 54 20  b3 42 49 31 2c b1 42 49  |92,.TXT .BI1,.BI|
00002a20  31 2c b3 42 49 32 2c b1  42 49 32 2c b3 44 49 53  |1,.BI2,.BI2,.DIS|
00002a30  50 2c b1 44 49 53 50 00  5f 32 36 f6 54 58 54 20  |P,.DISP._26.TXT |
00002a40  b3 42 49 34 2c b1 42 49  34 2c b3 42 49 35 2c b1  |.BI4,.BI4,.BI5,.|
00002a50  42 49 35 2c b3 42 49 36  2c b1 42 49 36 00 85 32  |BI5,.BI6,.BI6..2|
00002a60  40 f6 54 58 54 20 b3 42  49 37 2c b1 42 49 37 2c  |@.TXT .BI7,.BI7,|
00002a70  b3 42 49 38 2c b1 42 49  38 2c b3 42 49 39 2c b1  |.BI8,.BI8,.BI9,.|
00002a80  42 49 39 00 ab 32 4a f6  54 58 54 20 b3 42 49 41  |BI9..2J.TXT .BIA|
00002a90  2c b1 42 49 41 2c b3 42  49 42 2c b1 42 49 42 2c  |,.BIA,.BIB,.BIB,|
00002aa0  b3 42 49 43 2c b1 42 49  43 00 b1 32 54 f6 3b 00  |.BIC,.BIC..2T.;.|
00002ab0  bd 32 5e f6 ac b2 24 43  46 41 30 00 e3 32 68 f6  |.2^...$CFA0..2h.|
00002ac0  54 58 54 20 b3 42 54 31  2c b1 42 54 31 2c b3 42  |TXT .BT1,.BT1,.B|
00002ad0  54 32 2c b1 42 54 32 2c  b3 42 54 33 2c b1 42 54  |T2,.BT2,.BT3,.BT|
00002ae0  33 00 09 33 72 f6 54 58  54 20 b3 42 54 34 2c b1  |3..3r.TXT .BT4,.|
00002af0  42 54 34 2c b3 42 54 35  2c b1 42 54 35 2c b3 42  |BT4,.BT5,.BT5,.B|
00002b00  54 36 2c b1 42 54 36 00  2f 33 7c f6 54 58 54 20  |T6,.BT6./3|.TXT |
00002b10  b3 42 54 37 2c b1 42 54  37 2c b3 42 54 38 2c b1  |.BT7,.BT7,.BT8,.|
00002b20  42 54 38 2c b3 42 54 39  2c b1 42 54 39 00 55 33  |BT8,.BT9,.BT9.U3|
00002b30  86 f6 54 58 54 20 b3 42  54 41 2c b1 42 54 41 2c  |..TXT .BTA,.BTA,|
00002b40  b3 42 54 42 2c b1 42 54  42 2c b3 42 54 43 2c b1  |.BTB,.BTB,.BTC,.|
00002b50  42 54 43 00 00 00                                 |BTC...|
00002b56