Home » Personal collection » Commodore disks » disk47a_unlabelled.d64 » edit 14.8.95

edit 14.8.95

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Commodore disks » disk47a_unlabelled.d64
Filename: edit 14.8.95
Read OK:
File size: 12B4 bytes
Load address: 0801
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
    10 ; CRYSTALS OF OLYMPIA
    20 ; EDITOR PROGRAM
    30 ; 26/5/95 -
  1000 ; VARIABLES
  1010 XP=$CF40
  1020 YP=$CF41
  1030 XPB=$CF42
  1040 CLICK=$CF43
  1050 BUTNO=$CF44
  1060 HOUR=$CF45
  1990 *=$C800
  2000 ;                                               WIMP ROUTINES
  2003 ;
  2006 ; WIMP - MOUSE
  2010 IRQ LDA #$00
  2013 STA CLICK
  2016 LDA $C5
  2020 CMP #$01
  2030 BNE CONCHECK
  2040 STA CLICK
  2050 CONCHECK CMP #$0C
  2060 BEQ LEFTK
  2070 LKC CMP #$17
  2080 BEQ RIGHTK
  2090 RKC CMP #$32
  2100 BEQ UPK
  2110 UPKC CMP #$37
  2120 BEQ DOWNK
  2130 DKC LDA $DC00
  2140 TAX
  2150 AND #$01
  2160 BEQ UPJ
  2170 UJC TXA
  2180 AND #$02
  2190 BEQ DOWNJ
  2200 DJC TXA
  2210 AND #$04
  2220 BEQ LEFTJ
  2230 LJC TXA
  2240 AND #$08
  2250 BEQ RIGHTJ
  2260 RJC TXA
  2270 AND #$10
  2275 EOR #$10
  2280 BEQ CJCH
  2290 STA CLICK
  2300 CJCH JMP $EA31
  2310 LEFTK JSR LEFT
  2320 JMP LKC
  2330 RIGHTK JSR RIGHT
  2340 JMP RKC
  2350 UPK JSR UP
  2360 JMP UPKC
  2370 DOWNK JSR DOWN
  2380 JMP DKC
  2390 UPJ JSR UP
  2400 JMP UJC
  2410 DOWNJ JSR DOWN
  2420 JMP DJC
  2430 LEFTJ JSR LEFT
  2440 JMP LJC
  2450 RIGHTJ JSR RIGHT
  2460 JMP RJC
  2470 LEFT DEC XP
  2480 LDA XP
  2490 CMP #$FF
  2500 BNE NOTFF
  2510 LDY #$00
  2520 STY XPB
  2530 NOTFF LDY XPB
  2540 BNE FIN
  2550 CMP #$18
  2560 BNE FIN
  2570 INC XP
  2580 FIN JMP CONTROL
  2590 RIGHT INC XP
  2600 LDA XP
  2610 BNE NOT00
  2620 LDY #$01
  2630 STY XPB
  2640 NOT00 LDY XPB
  2650 BEQ FIN
  2660 CMP #$58
  2670 BNE FIN
  2680 DEC XP
  2690 JMP CONTROL
  2700 UP DEC YP
  2705 LDA YP
  2710 CMP #$32
  2715 BNE FIN
  2720 INC YP
  2730 JMP CONTROL
  2740 DOWN INC YP
  2750 LDA YP
  2760 CMP #$F8
  2770 BNE FIN
  2780 DEC YP
  2790 JMP CONTROL
  2800 ; WIMP - POINTER
  2810 CONTROL LDA XP
  2820 CMP #$28
  2830 BCC NSQUP
  2840 CMP #$F8
  2850 BCS NSQUP
  2860 LDA XPB
  2870 BNE NSQUP
  2880 LDA YP
  2890 CMP #$42
  2900 BCC NSQUP
  2910 CMP #$C1
  2920 BCS NSQUP
  2930 LDA XP
  2940 AND #$F8
  2950 STA $D000
  2970 LDA YP
  2980 AND #$F8
  2985 ORA #$02
  3000 STA $D001
  3001 LDA $D010
  3002 AND #$FC
  3004 STA $D010
  3005 LDA #$92
  3006 STA $63F8
  3007 LDA $D015
  3008 AND #$FC
  3009 ORA #$01
  3010 STA $D015
  3018 LDA #$01
  3019 STA $D027
  3020 RTS
  3030 NSQUP LDA XP
  3040 STA $D000
  3050 STA $D002
  3060 LDA YP
  3070 STA $D001
  3080 STA $D003
  3090 LDA $D010
  3100 AND #$FC
  3110 LSR A
  3120 CLC
  3130 ADC XPB
  3140 ASL A
  3150 CLC
  3160 ADC XPB
  3170 STA $D010
  3180 LDA #$90
  3190 STA $63F8
  3200 LDA #$91
  3210 STA $63F9
  3220 LDA $D015
  3230 ORA #$03
  3240 STA $D015
  3250 LDA #$00
  3260 STA $D027
  3270 LDA #$01
  3280 STA $D028
  3290 RTS
  3300 ; STARTUP ROUTINES
  3302 SR LDA #$8B
  3306 STA $D011
  3310 LDA $DD02
  3312 ORA #$02
  3314 STA $DD02
  3316 LDA $DD00
  3320 AND #$FE
  3330 ORA #$02
  3340 STA $DD00
  3343 LDA #$00
  3346 STA $D020
  3348 STA $D021
  3350 LDA #$86
  3360 STA $D018
  3362 LDA #$00
  3365 STA $D000
  3366 LDA #$0B
  3368 STA $D001
  3370 LDA #$01
  3380 LDX #$08
  3390 TAY
  3400 JSR $FFBA
  3410 LDA #$0C
  3420 LDX #<EGRTXT
  3430 LDY #>EGRTXT
  3450 JSR $FFBD
  3460 LDA #$00
  3470 JSR $FFD5
  3471 LDA #$01
  3472 LDX #$08
  3473 TAY
  3474 JSR $FFBA
  3475 LDA #$08
  3476 LDX #<ECTXT
  3477 LDY #>ECTXT
  3478 JSR $FFBD
  3479 LDA #$00
  3480 JSR $FFD5
  3481 LDA #$9B
  3482 STA $D011
  3483 LDA #$00
  3490 STA BUTNO
  3500 SEI
  3510 LDA #$00
  3520 STA $0314
  3530 LDA #$C0
  3540 STA $0315
  3550 CLI
  3560 LDA #$00
  3570 STA XP
  3580 STA HOUR
  3590 LDA #$80
  3600 STA YP
  3610 LDA #$01
  3620 STA XPB
  3621 LDA #$0C
  3622 STA $D015
  3623 JSR LEFT
  3624 LDA #$00
  3625 STA $D004
  3626 STA $D006
  3627 LDA #$DA
  3628 STA $D005
  3629 STA $D007
  3630 LDA #$95
  3632 STA $63FA
  3634 LDA #$04
  3635 STA $D01C
  3636 LDA #$1C
  3637 STA $D016
  3639 BUT0 JSR BUTCHECK
  3640 JMP BUT0
  3650 EGRTXT TXT "EDITGRAPHICS"
  3652 ECTXT TXT "EDITCOLS"
  3655 BCQU RTS
  3660 BUTCHECK LDA YP
  3670 CMP #$D9
  3680 BCC BCQU
  3682 LDA CLICK
  3684 BEQ BCQU
  3685 LDA XPB
  3686 BNE XBSR
  3687 LDA $D010
  3688 AND #$F3
  3689 STA $D010
  3690 LDA XP
  3700 CMP #$28
  3710 BCC BCQU
  3730 JMP BCOK
  3740 XBSR LDA XP
  3750 CMP #$48
  3760 BCS BCQU
  3761 LDA $D010
  3762 ORA #$0C
  3763 STA $D010
  3770 BCOK LDA XP
  3772 LDX XPB
  3775 BNE BCTC
  3780 SEC
  3790 SBC #$28
  3800 BCTC LDX #$FF
  3810 BCLPA INX
  3820 SEC
  3830 SBC #$18
  3840 CMP #$E8
  3850 BCC BCLPA
  3860 TXA
  3870 LDY XPB
  3880 BEQ NAO
  3890 CLC
  3900 ADC #$09
  3910 NAO STA BUTNO
  3920 ASL A
  3930 ASL A
  3940 ASL A
  3950 STA $02
  3960 CLC
  3970 ADC $02
  3980 ADC $02
  3985 ADC #$28
  3990 STA $D004
  4000 STA $D006
  4010 LDA #$95
  4012 CLC
  4016 ADC BUTNO
  4020 STA $63FB
  4030 PLA
  4040 PLA
  4050 LDA #$CF
  4060 STA VE+2
  4070 LDA BUTNO
  4080 ASL A
  4083 CLC
  4086 ADC #$80
  4090 STA VE+1
  4092 LDA #>VEC
  4094 PHA
  4096 LDA #<VEC-1
  4098 PHA
  4100 VE JMP ($0000)
  4110 VEC LDA VE+1
  4120 CLC
  4130 ADC #$20
  4140 STA PH+1
  4150 LDA #$CF
  4160 STA PH+2
  4170 PH JMP ($0000)
 10000 BI1 RTS
 10001 BI2 RTS
 10002 BI3 RTS
 10003 BI4 RTS
 10004 BI5 RTS
 10005 BI6 RTS
 10006 BI7 RTS
 10007 BI8 RTS
 10008 BI9 RTS
 10009 BIA RTS
 10010 BIB RTS
 10011 BIC RTS
 10020 BT1 NOP
 10021 BT2 NOP
 10022 BT3 NOP
 10023 BT4 NOP
 10024 BT5 NOP
 10025 BT6 NOP
 10026 BT7 NOP
 10027 BT8 NOP
 10028 BT9 NOP
 10029 BTA NOP
 10030 BTB NOP
 10031 BTC NOP
 10032 JMP BUT0
 63000 ; VECTOR TABLE
 63010 *=$CF80
 63020 TXT <BI1,>BI1,<BI2,>BI2,<BI3,>BI3
 63030 TXT <BI4,>BI4,<BI5,>BI5,<BI6,>BI6
 63040 TXT <BI7,>BI7,<BI8,>BI8,<BI9,>BI9
 63050 TXT <BIA,>BIA,<BIB,>BIB,<BIC,>BIC
 63060 ;
 63070 *=$CFA0
 63080 TXT <BT1,>BT1,<BT2,>BT2,<BT3,>BT3
 63090 TXT <BT4,>BT4,<BT5,>BT5,<BT6,>BT6
 63100 TXT <BT7,>BT7,<BT8,>BT8,<BT9,>BT9
 63110 TXT <BTA,>BTA,<BTB,>BTB,<BTC,>BTC


; CRYSTALS OF OLYMPIA/; EDI�R PROGRAM?; 26�5�95 �O�; VARIABLES\�XP�$CF40i�YP�$CF41wXPB�$CF42�CLICK�$CF43�BUTNO�$CF44�$HOUR�$CF45����$C800��;                                               WIMP ROUTINES��;
	�; WIMP - MOUSE	�IRQ LDA #$00,	�STA CLICK8	�LDA $C5E	�CMP #$01U	�BNE C�CHECKc	�STA CLICKx	C�CHECK CMP #$0C�	BEQ LEFTK�	LKC CMP #$17�	 BEQ RIGHTK�	*RKC CMP #$32�	4BEQ UPK�	>UPKC CMP #$37�	HBEQ DOWNK�	RDKC LDA $DC00�	\TAX
f� #$01
pBEQ UPJ 
zUJC TXA+
�� #$029
�BEQ DOWNJE
�DJC TXAP
�� #$04^
�BEQ LEFTJj
�LJC TXAu
�� #$08�
�BEQ RIGHTJ�
�RJC TXA�
�� #$10�
�E� #$10�
�BEQ CJCH�
�STA CLICK�
�CJCH JMP $EA31�
	LEFTK JSR LEFT�
	JMP LKC		RIGHTK JSR RIGHT$	JMP RKC$.	UPK JSR UP18	JMP UPKCDB	DOWNK JSR DOWNPL	JMP DKC_V	UPJ JSR UPk`	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 �FF�	LDY #$00�	STY XPB'�	�FF LDY XPB3�	BNE FIN@�	CMP #$18L
BNE FINW

INC XPh
FIN JMP �ROLy
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 �ROL
�
UP DEC YP
�
LDA YP
�
CMP #$32(
�
BNE FIN3
�
INC YP@
�
JMP �ROLP
�
DOWN INC YP[
�
LDA YPh
�
CMP #$F8t
�
BNE FIN
�
DEC YP�
�
JMP �ROL�
�
; WIMP � PO�ER�
�
�ROL LDA XP�
CMP #$28�
BCC NSQUP�
CMP #$F8�
"BCS NSQUP�
,LDA XPB�
6BNE NSQUP
@LDA YPJCMP #$42%TBCC NSQUP2^CMP #$C1@hBCS NSQUPKrLDA XPV|� #$F8d�STA $D000o�LDA YPz�� #$F8���A #$02��STA $D001��LDA $D010��� #$FC��STA $D010��LDA #$92��STA $63F8��LDA $D015��� #$FC���A #$01	�STA $D015�LDA #$01$�STA $D027,�RTS=�NSQUP LDA XPK�STA $D000Y�STA $D002d�LDA YPr�STA $D001�STA $D003�LDA $D010�� #$FC�&LSR A�0CLC�:ADC XPB�DASL A�NCLC�XADC XPB�bSTA $D010�lLDA #$90�vSTA $63F8�LDA #$91�STA $63F9'�LDA $D0153��A #$03A�STA $D015N�LDA #$00\�STA $D027i�LDA #$01w�STA $D028�RTS��; STARTUP ROUTINES��SR LDA #$8B��STA $D011��LDA $DD02���A #$02��STA $DD02��LDA $DD00��� #$FE
�A #$02
STA $DD00
LDA #$00*
STA $D0208
STA $D021E
LDA #$86S 
STA $D018`"
LDA #$00n%
STA $D000{&
LDA #$0B�(
STA $D001�*
LDA #$01�4
LDX #$08�>
TAY�H
JSR $FFBA�R
LDA #$0C�\
LDX #�EGRTXT�f
LDY #�EGRTXT�z
JSR $FFBD�
LDA #$00�
JSR $FFD5�
LDA #$01+�
LDX #$083�
TAYA�
JSR $FFBAN�
LDA #$08^�
LDX #�ECTXTn�
LDY #�ECTXT|�
JSR $FFBD��
LDA #$00��
JSR $FFD5��
LDA #$9B��
STA $D011��
LDA #$00��
STA BUTNO��
SEI��
LDA #$00��
STA $0314��
LDA #$C0�
STA $0315�
CLI �
LDA #$00+�
STA XP8�
STA HOURELDA #$80PSTA YP]LDA #$01i$STA XPBv%LDA #$0C�&STA $D015�'JSR LEFT�(LDA #$00�)STA $D004�*STA $D006�+LDA #$DA�,STA $D005�-STA $D007�.LDA #$95�0STA $63FA2LDA #$043STA $D01C&4LDA #$1C45STA $D016J7BUT0 JSR BUTCHECKW8JMP BUT0uBEGRTXT TXT "EDITGRAPHICS"�DECTXT TXT "EDITCOLS"�GBCQU RTS�LBUTCHECK LDA YP�VCMP #$D9�`BCC BCQU�bLDA CLICK�dBEQ BCQU�eLDA XPB�fBNE XBSRgLDA $D010h� #$F3$iSTA $D010/jLDA XP<tCMP #$28I~BCC BCQUV�JMP BCOKf�XBSR LDA XPs�CMP #$48��BCS BCQU��LDA $D010���A #$0C��STA $D010��BCOK LDA XP��LDX XPB��BNE BCTC��SEC��SBC #$28��BCTC LDX #$FF�BCLPA INX�SEC�SBC #$18(CMP #$E86
BCC BCLPA>TXAJLDY XPBV(BEQ NAO^2CLCk<ADC #$09}FNAO STA BUTNO�PASL A�ZASL A�dASL A�nSTA $02�xCLC��ADC $02��ADC $02��ADC #$28��STA $D004��STA $D006��LDA #$95�CLC�ADC BUTNO!�STA $63FB)�PLA1�PLA>�LDA #$CFK�STA VE�2Y�LDA BUTNOc�ASL Ak�CLCx�ADC #$80��STA VE�1��LDA #�VEC��PHA�LDA #�VEC�1�PHA�VE JMP ($0000)�VEC LDA VE�1�CLC�"ADC #$20�,STA PH�16LDA #$CF@STA PH�2&JPH JMP ($0000)2'BI1 RTS>'BI2 RTSJ'BI3 RTSV'BI4 RTSb'BI5 RTSn'BI6 RTSz'BI7 RTS�'BI8 RTS�'BI9 RTS�'BIA RTS�'BIB RTS�'BIC RTS�$'BT1 NOP�%'BT2 NOP�&'BT3 NOP�''BT4 NOP�('BT5 NOP�)'BT6 NOP
*'BT7 NOP+'BT8 NOP",'BT9 NOP.-'BTA NOP:.'BTB NOPF/'BTC NOPS0'JMP BUT0e�; VEC�R TABLEq"���$CF80�,�TXT �BI1,�BI1,�BI2,�BI2,�BI3,�BI3�6�TXT �BI4,�BI4,�BI5,�BI5,�BI6,�BI6�@�TXT �BI7,�BI7,�BI8,�BI8,�BI9,�BI9	J�TXT �BIA,�BIA,�BIB,�BIB,�BIC,�BICT�;^���$CFA0Ah�TXT �BT1,�BT1,�BT2,�BT2,�BT3,�BT3gr�TXT �BT4,�BT4,�BT5,�BT5,�BT6,�BT6�|�TXT �BT7,�BT7,�BT8,�BT8,�BT9,�BT9���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.G..$c800@.H.G;                                               wimp routines@.H.G;@MI.G; wimp - mouse@.I.Girq lda #$00@,I.Gsta click@8I.Glda $c5@eI.Gcmp #$01@uI.Gbne c.check@CI.Gsta click@XIBHc.check cmp #$0c@.ILHbeq leftk@.IVHlkc cmp #$17@.I Hbeq rightk@.I*Hrkc cmp #$32@.I4Hbeq upk@.I>Hupkc cmp #$37@.IhHbeq downk@.IrHdkc lda $dc00@.I£Htax@HJFH. #$01@TJPHbeq upj@ JZHujc txa@+J.H. #$02@9J.Hbeq downj@eJ.Hdjc txa@pJ.H. #$04@.J.Hbeq leftj@JJ.Hljc txa@UJ.H. #$08@.J.Hbeq rightj@.J.Hrjc txa@.J.H. #$10@.J.He. #$10@.J.Hbeq cjch@.J.Hsta click@.J.Hcjch jmp $ea31@.JFIleftk jsr left@.JPIjmp lkc@IKZIrightk jsr right@UK$Ijmp rkc@$K.Iupk jsr up@1K8Ijmp upkc@dKbIdownk jsr down@pKlIjmp dkc@.KvIupj jsr up@KK.Ijmp ujc@.KJIdownj jsr down@.KTIjmp djc@.K.Ileftj jsr left@.K.Ijmp ljc@.K.Irightj jsr right@.K.Ijmp rjc@.K.Ileft dec xp@.K.Ilda xp@.K.Icmp #$ff@.K.Ibne .ff@KL.Ildy #$00@WL.Isty xpb@'L.I.ff ldy xpb@3L.Ibne fin@@L.Icmp #$18@lL@Jbne fin@wLJJinc xp@HLTJfin jmp .rol@YL.Jright inc xp@.L(Jlda xp@.L2Jbne .00@.L<Jldy #$01@.LfJsty xpb@.LpJ.00 ldy xpb@.LzJbeq fin@.LDJcmp #$58@.LNJbne fin@.LXJdec xp@.L.Jjmp .rol@DM.Jup dec yp@OM.Jlda yp@£M.Jcmp #$32@(M.Jbne fin@3M.Jinc yp@@M.Jjmp .rol@pM.Jdown inc yp@[M.Jlda yp@HM.Jcmp #$f8@TM.Jbne fin@.M.Jdec yp@.M.Jjmp .rol@.M.J; wimp . po.er@.M.J.rol lda xp@.MDKcmp #$28@.MNKbcc nsqup@.MXKcmp #$f8@.M"Kbcs nsqup@.M,Klda xpb@.M6Kbne nsqup@JN@Klda yp@WNjKcmp #$42@%NtKbcc nsqup@2N.Kcmp #$c1@@NHKbcs nsqup@kNRKlda xp@vN.K. #$f8@DN.Ksta $d000@ON.Klda yp@ZN.K. #$f8@.N.K.a #$02@.N.Ksta $d001@.N.Klda $d010@.N.K. #$fc@.N.Ksta $d010@.N.Klda #$92@.N.Ksta $63f8@.N.Klda $d015@.N.K. #$fc@.N.K.a #$01@IO.Ksta $d015@VO.Klda #$01@$O.Ksta $d027@,O.Krts@=O.Knsqup lda xp@kO.Ksta $d000@yO.Ksta $d002@DO.Klda yp@RO.Ksta $d001@.OHLsta $d003@.ORLlda $d010@.O£L. #$fc@.O&Llsr a@.O0Lclc@.O:Ladc xpb@.OdLasl a@.OnLclc@.OxLadc xpb@.OBLsta $d010@.OLLlda #$90@.OVLsta $63f8@KP.Llda #$91@YP.Lsta $63f9@'P.Llda $d015@3P.L.a #$03@aP.Lsta $d015@nP.Llda #$00@£P.Lsta $d027@IP.Llda #$01@WP.Lsta $d028@.P.Lrts@.P.L; startup routines@.P.Lsr lda #$8b@.P.Lsta $d011@.P.Llda $dd02@.P.L.a #$02@.P.Lsta $dd02@.P.Llda $dd00@.P.L. #$fe@AQBM.a #$02@OQLMsta $dd00@£QOMlda #$00@*QRMsta $d020@8QTMsta $d021@eQVMlda #$86@sQ Msta $d018@.Q"Mlda #$00@NQ%Msta $d000@.Q&Mlda #$0b@.Q(Msta $d001@.Q*Mlda #$01@.Q4Mldx #$08@.Q>Mtay@.QhMjsr $ffba@.QrMlda #$0c@.Q£Mldx #.egrtxt@.QFMldy #.egrtxt@.QZMjsr $ffbd@CR.Mlda #$00@QR.Mjsr $ffd5@.R.Mlda #$01@+R.Mldx #$08@3R.Mtay@aR.Mjsr $ffba@nR.Mlda #$08@.R.Mldx #.ectxt@NR.Mldy #.ectxt@.R.Mjsr $ffbd@.R.Mlda #$00@.R.Mjsr $ffd5@.R.Mlda #$9b@.R.Msta $d011@.R.Mlda #$00@.R.Msta butno@.R.Msei@.R.Mlda #$00@.R.Msta $0314@.R.Mlda #$c0@KS.Msta $0315@SS.Mcli@ S.Mlda #$00@+S.Msta xp@8S.Msta hour@eSFNlda #$80@pSPNsta yp@]SZNlda #$01@IS$Nsta xpb@VS%Nlda #$0c@.S&Nsta $d015@.S'Njsr left@.S(Nlda #$00@.S)Nsta $d004@.S*Nsta $d006@.S+Nlda #$da@.S,Nsta $d005@.S-Nsta $d007@.S.Nlda #$95@.S0Nsta $63fa@KT2Nlda #$04@YT3Nsta $d01c@&T4Nlda #$1c@4T5Nsta $d016@jT7Nbut0 jsr butcheck@wT8Njmp but0@UTbNegrtxt txt "editgraphics"@.TdNectxt txt "editcols"@.TgNbcqu rts@.TlNbutcheck lda yp@.TvNcmp #$d9@.T.Nbcc bcqu@.TBNlda click@.TDNbeq bcqu@.TENlda xpb@.TFNbne xbsr@KUGNlda $d010@VUHN. #$f3@$UINsta $d010@/UJNlda xp@<UTNcmp #$28@iU.Nbcc bcqu@vU.Njmp bcok@FU.Nxbsr lda xp@SU.Ncmp #$48@.U.Nbcs bcqu@.U.Nlda $d010@.U.N.a #$0c@.U.Nsta $d010@.U.Nbcok lda xp@.U.Nldx xpb@.U.Nbne bctc@.U.Nsec@.U.Nsbc #$28@.U.Nbctc ldx #$ff@FV.Nbclpa inx@NV.Nsec@[V.Nsbc #$18@(V@Ocmp #$e8@6VJObcc bclpa@>VTOtxa@jV.Oldy xpb@vV(Obeq nao@.V2Oclc@KV<Oadc #$09@.VfOnao sta butno@.VpOasl a@.VzOasl a@.VDOasl a@.VNOsta $02@.VXOclc@.V.Oadc $02@.V.Oadc $02@.V.Oadc #$28@.V.Osta $d004@.V.Osta $d006@.V.Olda #$95@EW.Oclc@SW.Oadc butno@!W.Osta $63fb@)W.Opla@1W.Opla@>W.Olda #$cf@kW.Osta ve.2@yW.Olda butno@CW.Oasl a@KW.Oclc@XW.Oadc #$80@.W.Osta ve.1@.W.Olda #.vec@.W.Opha@.W@Plda #.vec.1@.WBPpha@.WDPve jmp ($0000)@.WNPvec lda ve.1@.WXPclc@.W"Padc #$20@.W,Psta ph.1@FX6Plda #$cf@SX@Psta ph.2@&XjPph jmp ($0000)@2XP'bi1 rts@>XQ'bi2 rts@jXR'bi3 rts@vXS'bi4 rts@BXT'bi5 rts@NXU'bi6 rts@ZXV'bi7 rts@.XW'bi8 rts@.XX'bi9 rts@.XY'bia rts@.XZ'bib rts@.X['bic rts@.X$'bt1 nop@.X%'bt2 nop@.X&'bt3 nop@.X''bt4 nop@.X('bt5 nop@.X)'bt6 nop@JY*'bt7 nop@VY+'bt8 nop@"Y,'bt9 nop@.Y-'bta nop@:Y.'btb nop@fY/'btc nop@sY0'jmp but0@EYX.; vec.r table@QY"...$cf80@.Y,.txt .bi1,.bi1,.bi2,.bi2,.bi3,.bi3@.Y6.txt .bi4,.bi4,.bi5,.bi5,.bi6,.bi6@.Y@.txt .bi7,.bi7,.bi8,.bi8,.bi9,.bi9@IZj.txt .bia,.bia,.bib,.bib,.bic,.bic@OZt.;@[Z....$cfa0@aZH.txt .bt1,.bt1,.bt2,.bt2,.bt3,.bt3@GZR.txt .bt4,.bt4,.bt5,.bt5,.bt6,.bt6@.Z..txt .bt7,.bt7,.bt8,.bt8,.bt9,.bt9@.Z..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 b2 08 c6  07 ac b2 24 43 38 30 30  |CF45.......$C800|
000000b0  00 f4 08 d0 07 3b 20 20  20 20 20 20 20 20 20 20  |.....;          |
000000c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000000e0  20 20 20 20 20 57 49 4d  50 20 52 4f 55 54 49 4e  |     WIMP ROUTIN|
000000f0  45 53 00 fa 08 d3 07 3b  00 0d 09 d6 07 3b 20 57  |ES.....;.....; W|
00000100  49 4d 50 20 2d 20 4d 4f  55 53 45 00 1e 09 da 07  |IMP - MOUSE.....|
00000110  49 52 51 20 4c 44 41 20  23 24 30 30 00 2c 09 dd  |IRQ LDA #$00.,..|
00000120  07 53 54 41 20 43 4c 49  43 4b 00 38 09 e0 07 4c  |.STA CLICK.8...L|
00000130  44 41 20 24 43 35 00 45  09 e4 07 43 4d 50 20 23  |DA $C5.E...CMP #|
00000140  24 30 31 00 55 09 ee 07  42 4e 45 20 43 91 43 48  |$01.U...BNE C.CH|
00000150  45 43 4b 00 63 09 f8 07  53 54 41 20 43 4c 49 43  |ECK.c...STA CLIC|
00000160  4b 00 78 09 02 08 43 91  43 48 45 43 4b 20 43 4d  |K.x...C.CHECK CM|
00000170  50 20 23 24 30 43 00 86  09 0c 08 42 45 51 20 4c  |P #$0C.....BEQ L|
00000180  45 46 54 4b 00 97 09 16  08 4c 4b 43 20 43 4d 50  |EFTK.....LKC CMP|
00000190  20 23 24 31 37 00 a6 09  20 08 42 45 51 20 52 49  | #$17... .BEQ RI|
000001a0  47 48 54 4b 00 b7 09 2a  08 52 4b 43 20 43 4d 50  |GHTK...*.RKC CMP|
000001b0  20 23 24 33 32 00 c3 09  34 08 42 45 51 20 55 50  | #$32...4.BEQ UP|
000001c0  4b 00 d5 09 3e 08 55 50  4b 43 20 43 4d 50 20 23  |K...>.UPKC CMP #|
000001d0  24 33 37 00 e3 09 48 08  42 45 51 20 44 4f 57 4e  |$37...H.BEQ DOWN|
000001e0  4b 00 f5 09 52 08 44 4b  43 20 4c 44 41 20 24 44  |K...R.DKC LDA $D|
000001f0  43 30 30 00 fd 09 5c 08  54 41 58 00 08 0a 66 08  |C00...\.TAX...f.|
00000200  af 20 23 24 30 31 00 14  0a 70 08 42 45 51 20 55  |. #$01...p.BEQ U|
00000210  50 4a 00 20 0a 7a 08 55  4a 43 20 54 58 41 00 2b  |PJ. .z.UJC TXA.+|
00000220  0a 84 08 af 20 23 24 30  32 00 39 0a 8e 08 42 45  |.... #$02.9...BE|
00000230  51 20 44 4f 57 4e 4a 00  45 0a 98 08 44 4a 43 20  |Q DOWNJ.E...DJC |
00000240  54 58 41 00 50 0a a2 08  af 20 23 24 30 34 00 5e  |TXA.P.... #$04.^|
00000250  0a ac 08 42 45 51 20 4c  45 46 54 4a 00 6a 0a b6  |...BEQ LEFTJ.j..|
00000260  08 4c 4a 43 20 54 58 41  00 75 0a c0 08 af 20 23  |.LJC TXA.u.... #|
00000270  24 30 38 00 84 0a ca 08  42 45 51 20 52 49 47 48  |$08.....BEQ RIGH|
00000280  54 4a 00 90 0a d4 08 52  4a 43 20 54 58 41 00 9b  |TJ.....RJC TXA..|
00000290  0a de 08 af 20 23 24 31  30 00 a7 0a e3 08 45 b0  |.... #$10.....E.|
000002a0  20 23 24 31 30 00 b4 0a  e8 08 42 45 51 20 43 4a  | #$10.....BEQ CJ|
000002b0  43 48 00 c2 0a f2 08 53  54 41 20 43 4c 49 43 4b  |CH.....STA CLICK|
000002c0  00 d5 0a fc 08 43 4a 43  48 20 4a 4d 50 20 24 45  |.....CJCH JMP $E|
000002d0  41 33 31 00 e8 0a 06 09  4c 45 46 54 4b 20 4a 53  |A31.....LEFTK JS|
000002e0  52 20 4c 45 46 54 00 f4  0a 10 09 4a 4d 50 20 4c  |R LEFT.....JMP L|
000002f0  4b 43 00 09 0b 1a 09 52  49 47 48 54 4b 20 4a 53  |KC.....RIGHTK JS|
00000300  52 20 52 49 47 48 54 00  15 0b 24 09 4a 4d 50 20  |R RIGHT...$.JMP |
00000310  52 4b 43 00 24 0b 2e 09  55 50 4b 20 4a 53 52 20  |RKC.$...UPK JSR |
00000320  55 50 00 31 0b 38 09 4a  4d 50 20 55 50 4b 43 00  |UP.1.8.JMP UPKC.|
00000330  44 0b 42 09 44 4f 57 4e  4b 20 4a 53 52 20 44 4f  |D.B.DOWNK JSR DO|
00000340  57 4e 00 50 0b 4c 09 4a  4d 50 20 44 4b 43 00 5f  |WN.P.L.JMP DKC._|
00000350  0b 56 09 55 50 4a 20 4a  53 52 20 55 50 00 6b 0b  |.V.UPJ JSR UP.k.|
00000360  60 09 4a 4d 50 20 55 4a  43 00 7e 0b 6a 09 44 4f  |`.JMP UJC.~.j.DO|
00000370  57 4e 4a 20 4a 53 52 20  44 4f 57 4e 00 8a 0b 74  |WNJ JSR DOWN...t|
00000380  09 4a 4d 50 20 44 4a 43  00 9d 0b 7e 09 4c 45 46  |.JMP DJC...~.LEF|
00000390  54 4a 20 4a 53 52 20 4c  45 46 54 00 a9 0b 88 09  |TJ JSR LEFT.....|
000003a0  4a 4d 50 20 4c 4a 43 00  be 0b 92 09 52 49 47 48  |JMP LJC.....RIGH|
000003b0  54 4a 20 4a 53 52 20 52  49 47 48 54 00 ca 0b 9c  |TJ JSR RIGHT....|
000003c0  09 4a 4d 50 20 52 4a 43  00 da 0b a6 09 4c 45 46  |.JMP RJC.....LEF|
000003d0  54 20 44 45 43 20 58 50  00 e5 0b b0 09 4c 44 41  |T DEC XP.....LDA|
000003e0  20 58 50 00 f2 0b ba 09  43 4d 50 20 23 24 46 46  | XP.....CMP #$FF|
000003f0  00 fe 0b c4 09 42 4e 45  20 a8 46 46 00 0b 0c ce  |.....BNE .FF....|
00000400  09 4c 44 59 20 23 24 30  30 00 17 0c d8 09 53 54  |.LDY #$00.....ST|
00000410  59 20 58 50 42 00 27 0c  e2 09 a8 46 46 20 4c 44  |Y XPB.'....FF LD|
00000420  59 20 58 50 42 00 33 0c  ec 09 42 4e 45 20 46 49  |Y XPB.3...BNE FI|
00000430  4e 00 40 0c f6 09 43 4d  50 20 23 24 31 38 00 4c  |N.@...CMP #$18.L|
00000440  0c 00 0a 42 4e 45 20 46  49 4e 00 57 0c 0a 0a 49  |...BNE FIN.W...I|
00000450  4e 43 20 58 50 00 68 0c  14 0a 46 49 4e 20 4a 4d  |NC XP.h...FIN JM|
00000460  50 20 9a 52 4f 4c 00 79  0c 1e 0a 52 49 47 48 54  |P .ROL.y...RIGHT|
00000470  20 49 4e 43 20 58 50 00  84 0c 28 0a 4c 44 41 20  | INC XP...(.LDA |
00000480  58 50 00 90 0c 32 0a 42  4e 45 20 a8 30 30 00 9d  |XP...2.BNE .00..|
00000490  0c 3c 0a 4c 44 59 20 23  24 30 31 00 a9 0c 46 0a  |.<.LDY #$01...F.|
000004a0  53 54 59 20 58 50 42 00  b9 0c 50 0a a8 30 30 20  |STY XPB...P..00 |
000004b0  4c 44 59 20 58 50 42 00  c5 0c 5a 0a 42 45 51 20  |LDY XPB...Z.BEQ |
000004c0  46 49 4e 00 d2 0c 64 0a  43 4d 50 20 23 24 35 38  |FIN...d.CMP #$58|
000004d0  00 de 0c 6e 0a 42 4e 45  20 46 49 4e 00 e9 0c 78  |...n.BNE FIN...x|
000004e0  0a 44 45 43 20 58 50 00  f6 0c 82 0a 4a 4d 50 20  |.DEC XP.....JMP |
000004f0  9a 52 4f 4c 00 04 0d 8c  0a 55 50 20 44 45 43 20  |.ROL.....UP DEC |
00000500  59 50 00 0f 0d 91 0a 4c  44 41 20 59 50 00 1c 0d  |YP.....LDA YP...|
00000510  96 0a 43 4d 50 20 23 24  33 32 00 28 0d 9b 0a 42  |..CMP #$32.(...B|
00000520  4e 45 20 46 49 4e 00 33  0d a0 0a 49 4e 43 20 59  |NE FIN.3...INC Y|
00000530  50 00 40 0d aa 0a 4a 4d  50 20 9a 52 4f 4c 00 50  |P.@...JMP .ROL.P|
00000540  0d b4 0a 44 4f 57 4e 20  49 4e 43 20 59 50 00 5b  |...DOWN INC YP.[|
00000550  0d be 0a 4c 44 41 20 59  50 00 68 0d c8 0a 43 4d  |...LDA YP.h...CM|
00000560  50 20 23 24 46 38 00 74  0d d2 0a 42 4e 45 20 46  |P #$F8.t...BNE F|
00000570  49 4e 00 7f 0d dc 0a 44  45 43 20 59 50 00 8c 0d  |IN.....DEC YP...|
00000580  e6 0a 4a 4d 50 20 9a 52  4f 4c 00 9f 0d f0 0a 3b  |..JMP .ROL.....;|
00000590  20 57 49 4d 50 20 ab 20  50 4f b5 45 52 00 af 0d  | WIMP . PO.ER...|
000005a0  fa 0a 9a 52 4f 4c 20 4c  44 41 20 58 50 00 bc 0d  |...ROL LDA XP...|
000005b0  04 0b 43 4d 50 20 23 24  32 38 00 ca 0d 0e 0b 42  |..CMP #$28.....B|
000005c0  43 43 20 4e 53 51 55 50  00 d7 0d 18 0b 43 4d 50  |CC NSQUP.....CMP|
000005d0  20 23 24 46 38 00 e5 0d  22 0b 42 43 53 20 4e 53  | #$F8...".BCS NS|
000005e0  51 55 50 00 f1 0d 2c 0b  4c 44 41 20 58 50 42 00  |QUP...,.LDA XPB.|
000005f0  ff 0d 36 0b 42 4e 45 20  4e 53 51 55 50 00 0a 0e  |..6.BNE NSQUP...|
00000600  40 0b 4c 44 41 20 59 50  00 17 0e 4a 0b 43 4d 50  |@.LDA YP...J.CMP|
00000610  20 23 24 34 32 00 25 0e  54 0b 42 43 43 20 4e 53  | #$42.%.T.BCC NS|
00000620  51 55 50 00 32 0e 5e 0b  43 4d 50 20 23 24 43 31  |QUP.2.^.CMP #$C1|
00000630  00 40 0e 68 0b 42 43 53  20 4e 53 51 55 50 00 4b  |.@.h.BCS NSQUP.K|
00000640  0e 72 0b 4c 44 41 20 58  50 00 56 0e 7c 0b af 20  |.r.LDA XP.V.|.. |
00000650  23 24 46 38 00 64 0e 86  0b 53 54 41 20 24 44 30  |#$F8.d...STA $D0|
00000660  30 30 00 6f 0e 9a 0b 4c  44 41 20 59 50 00 7a 0e  |00.o...LDA YP.z.|
00000670  a4 0b af 20 23 24 46 38  00 86 0e a9 0b b0 41 20  |... #$F8......A |
00000680  23 24 30 32 00 94 0e b8  0b 53 54 41 20 24 44 30  |#$02.....STA $D0|
00000690  30 31 00 a2 0e b9 0b 4c  44 41 20 24 44 30 31 30  |01.....LDA $D010|
000006a0  00 ad 0e ba 0b af 20 23  24 46 43 00 bb 0e bc 0b  |...... #$FC.....|
000006b0  53 54 41 20 24 44 30 31  30 00 c8 0e bd 0b 4c 44  |STA $D010.....LD|
000006c0  41 20 23 24 39 32 00 d6  0e be 0b 53 54 41 20 24  |A #$92.....STA $|
000006d0  36 33 46 38 00 e4 0e bf  0b 4c 44 41 20 24 44 30  |63F8.....LDA $D0|
000006e0  31 35 00 ef 0e c0 0b af  20 23 24 46 43 00 fb 0e  |15...... #$FC...|
000006f0  c1 0b b0 41 20 23 24 30  31 00 09 0f c2 0b 53 54  |...A #$01.....ST|
00000700  41 20 24 44 30 31 35 00  16 0f ca 0b 4c 44 41 20  |A $D015.....LDA |
00000710  23 24 30 31 00 24 0f cb  0b 53 54 41 20 24 44 30  |#$01.$...STA $D0|
00000720  32 37 00 2c 0f cc 0b 52  54 53 00 3d 0f d6 0b 4e  |27.,...RTS.=...N|
00000730  53 51 55 50 20 4c 44 41  20 58 50 00 4b 0f e0 0b  |SQUP LDA XP.K...|
00000740  53 54 41 20 24 44 30 30  30 00 59 0f ea 0b 53 54  |STA $D000.Y...ST|
00000750  41 20 24 44 30 30 32 00  64 0f f4 0b 4c 44 41 20  |A $D002.d...LDA |
00000760  59 50 00 72 0f fe 0b 53  54 41 20 24 44 30 30 31  |YP.r...STA $D001|
00000770  00 80 0f 08 0c 53 54 41  20 24 44 30 30 33 00 8e  |.....STA $D003..|
00000780  0f 12 0c 4c 44 41 20 24  44 30 31 30 00 99 0f 1c  |...LDA $D010....|
00000790  0c af 20 23 24 46 43 00  a3 0f 26 0c 4c 53 52 20  |.. #$FC...&.LSR |
000007a0  41 00 ab 0f 30 0c 43 4c  43 00 b7 0f 3a 0c 41 44  |A...0.CLC...:.AD|
000007b0  43 20 58 50 42 00 c1 0f  44 0c 41 53 4c 20 41 00  |C XPB...D.ASL A.|
000007c0  c9 0f 4e 0c 43 4c 43 00  d5 0f 58 0c 41 44 43 20  |..N.CLC...X.ADC |
000007d0  58 50 42 00 e3 0f 62 0c  53 54 41 20 24 44 30 31  |XPB...b.STA $D01|
000007e0  30 00 f0 0f 6c 0c 4c 44  41 20 23 24 39 30 00 fe  |0...l.LDA #$90..|
000007f0  0f 76 0c 53 54 41 20 24  36 33 46 38 00 0b 10 80  |.v.STA $63F8....|
00000800  0c 4c 44 41 20 23 24 39  31 00 19 10 8a 0c 53 54  |.LDA #$91.....ST|
00000810  41 20 24 36 33 46 39 00  27 10 94 0c 4c 44 41 20  |A $63F9.'...LDA |
00000820  24 44 30 31 35 00 33 10  9e 0c b0 41 20 23 24 30  |$D015.3....A #$0|
00000830  33 00 41 10 a8 0c 53 54  41 20 24 44 30 31 35 00  |3.A...STA $D015.|
00000840  4e 10 b2 0c 4c 44 41 20  23 24 30 30 00 5c 10 bc  |N...LDA #$00.\..|
00000850  0c 53 54 41 20 24 44 30  32 37 00 69 10 c6 0c 4c  |.STA $D027.i...L|
00000860  44 41 20 23 24 30 31 00  77 10 d0 0c 53 54 41 20  |DA #$01.w...STA |
00000870  24 44 30 32 38 00 7f 10  da 0c 52 54 53 00 96 10  |$D028.....RTS...|
00000880  e4 0c 3b 20 53 54 41 52  54 55 50 20 52 4f 55 54  |..; STARTUP ROUT|
00000890  49 4e 45 53 00 a6 10 e6  0c 53 52 20 4c 44 41 20  |INES.....SR LDA |
000008a0  23 24 38 42 00 b4 10 ea  0c 53 54 41 20 24 44 30  |#$8B.....STA $D0|
000008b0  31 31 00 c2 10 ee 0c 4c  44 41 20 24 44 44 30 32  |11.....LDA $DD02|
000008c0  00 ce 10 f0 0c b0 41 20  23 24 30 32 00 dc 10 f2  |......A #$02....|
000008d0  0c 53 54 41 20 24 44 44  30 32 00 ea 10 f4 0c 4c  |.STA $DD02.....L|
000008e0  44 41 20 24 44 44 30 30  00 f5 10 f8 0c af 20 23  |DA $DD00...... #|
000008f0  24 46 45 00 01 11 02 0d  b0 41 20 23 24 30 32 00  |$FE......A #$02.|
00000900  0f 11 0c 0d 53 54 41 20  24 44 44 30 30 00 1c 11  |....STA $DD00...|
00000910  0f 0d 4c 44 41 20 23 24  30 30 00 2a 11 12 0d 53  |..LDA #$00.*...S|
00000920  54 41 20 24 44 30 32 30  00 38 11 14 0d 53 54 41  |TA $D020.8...STA|
00000930  20 24 44 30 32 31 00 45  11 16 0d 4c 44 41 20 23  | $D021.E...LDA #|
00000940  24 38 36 00 53 11 20 0d  53 54 41 20 24 44 30 31  |$86.S. .STA $D01|
00000950  38 00 60 11 22 0d 4c 44  41 20 23 24 30 30 00 6e  |8.`.".LDA #$00.n|
00000960  11 25 0d 53 54 41 20 24  44 30 30 30 00 7b 11 26  |.%.STA $D000.{.&|
00000970  0d 4c 44 41 20 23 24 30  42 00 89 11 28 0d 53 54  |.LDA #$0B...(.ST|
00000980  41 20 24 44 30 30 31 00  96 11 2a 0d 4c 44 41 20  |A $D001...*.LDA |
00000990  23 24 30 31 00 a3 11 34  0d 4c 44 58 20 23 24 30  |#$01...4.LDX #$0|
000009a0  38 00 ab 11 3e 0d 54 41  59 00 b9 11 48 0d 4a 53  |8...>.TAY...H.JS|
000009b0  52 20 24 46 46 42 41 00  c6 11 52 0d 4c 44 41 20  |R $FFBA...R.LDA |
000009c0  23 24 30 43 00 d7 11 5c  0d 4c 44 58 20 23 b3 45  |#$0C...\.LDX #.E|
000009d0  47 52 54 58 54 00 e8 11  66 0d 4c 44 59 20 23 b1  |GRTXT...f.LDY #.|
000009e0  45 47 52 54 58 54 00 f6  11 7a 0d 4a 53 52 20 24  |EGRTXT...z.JSR $|
000009f0  46 46 42 44 00 03 12 84  0d 4c 44 41 20 23 24 30  |FFBD.....LDA #$0|
00000a00  30 00 11 12 8e 0d 4a 53  52 20 24 46 46 44 35 00  |0.....JSR $FFD5.|
00000a10  1e 12 8f 0d 4c 44 41 20  23 24 30 31 00 2b 12 90  |....LDA #$01.+..|
00000a20  0d 4c 44 58 20 23 24 30  38 00 33 12 91 0d 54 41  |.LDX #$08.3...TA|
00000a30  59 00 41 12 92 0d 4a 53  52 20 24 46 46 42 41 00  |Y.A...JSR $FFBA.|
00000a40  4e 12 93 0d 4c 44 41 20  23 24 30 38 00 5e 12 94  |N...LDA #$08.^..|
00000a50  0d 4c 44 58 20 23 b3 45  43 54 58 54 00 6e 12 95  |.LDX #.ECTXT.n..|
00000a60  0d 4c 44 59 20 23 b1 45  43 54 58 54 00 7c 12 96  |.LDY #.ECTXT.|..|
00000a70  0d 4a 53 52 20 24 46 46  42 44 00 89 12 97 0d 4c  |.JSR $FFBD.....L|
00000a80  44 41 20 23 24 30 30 00  97 12 98 0d 4a 53 52 20  |DA #$00.....JSR |
00000a90  24 46 46 44 35 00 a4 12  99 0d 4c 44 41 20 23 24  |$FFD5.....LDA #$|
00000aa0  39 42 00 b2 12 9a 0d 53  54 41 20 24 44 30 31 31  |9B.....STA $D011|
00000ab0  00 bf 12 9b 0d 4c 44 41  20 23 24 30 30 00 cd 12  |.....LDA #$00...|
00000ac0  a2 0d 53 54 41 20 42 55  54 4e 4f 00 d5 12 ac 0d  |..STA BUTNO.....|
00000ad0  53 45 49 00 e2 12 b6 0d  4c 44 41 20 23 24 30 30  |SEI.....LDA #$00|
00000ae0  00 f0 12 c0 0d 53 54 41  20 24 30 33 31 34 00 fd  |.....STA $0314..|
00000af0  12 ca 0d 4c 44 41 20 23  24 43 30 00 0b 13 d4 0d  |...LDA #$C0.....|
00000b00  53 54 41 20 24 30 33 31  35 00 13 13 de 0d 43 4c  |STA $0315.....CL|
00000b10  49 00 20 13 e8 0d 4c 44  41 20 23 24 30 30 00 2b  |I. ...LDA #$00.+|
00000b20  13 f2 0d 53 54 41 20 58  50 00 38 13 fc 0d 53 54  |...STA XP.8...ST|
00000b30  41 20 48 4f 55 52 00 45  13 06 0e 4c 44 41 20 23  |A HOUR.E...LDA #|
00000b40  24 38 30 00 50 13 10 0e  53 54 41 20 59 50 00 5d  |$80.P...STA YP.]|
00000b50  13 1a 0e 4c 44 41 20 23  24 30 31 00 69 13 24 0e  |...LDA #$01.i.$.|
00000b60  53 54 41 20 58 50 42 00  76 13 25 0e 4c 44 41 20  |STA XPB.v.%.LDA |
00000b70  23 24 30 43 00 84 13 26  0e 53 54 41 20 24 44 30  |#$0C...&.STA $D0|
00000b80  31 35 00 91 13 27 0e 4a  53 52 20 4c 45 46 54 00  |15...'.JSR LEFT.|
00000b90  9e 13 28 0e 4c 44 41 20  23 24 30 30 00 ac 13 29  |..(.LDA #$00...)|
00000ba0  0e 53 54 41 20 24 44 30  30 34 00 ba 13 2a 0e 53  |.STA $D004...*.S|
00000bb0  54 41 20 24 44 30 30 36  00 c7 13 2b 0e 4c 44 41  |TA $D006...+.LDA|
00000bc0  20 23 24 44 41 00 d5 13  2c 0e 53 54 41 20 24 44  | #$DA...,.STA $D|
00000bd0  30 30 35 00 e3 13 2d 0e  53 54 41 20 24 44 30 30  |005...-.STA $D00|
00000be0  37 00 f0 13 2e 0e 4c 44  41 20 23 24 39 35 00 fe  |7.....LDA #$95..|
00000bf0  13 30 0e 53 54 41 20 24  36 33 46 41 00 0b 14 32  |.0.STA $63FA...2|
00000c00  0e 4c 44 41 20 23 24 30  34 00 19 14 33 0e 53 54  |.LDA #$04...3.ST|
00000c10  41 20 24 44 30 31 43 00  26 14 34 0e 4c 44 41 20  |A $D01C.&.4.LDA |
00000c20  23 24 31 43 00 34 14 35  0e 53 54 41 20 24 44 30  |#$1C.4.5.STA $D0|
00000c30  31 36 00 4a 14 37 0e 42  55 54 30 20 4a 53 52 20  |16.J.7.BUT0 JSR |
00000c40  42 55 54 43 48 45 43 4b  00 57 14 38 0e 4a 4d 50  |BUTCHECK.W.8.JMP|
00000c50  20 42 55 54 30 00 75 14  42 0e 45 47 52 54 58 54  | BUT0.u.B.EGRTXT|
00000c60  20 54 58 54 20 22 45 44  49 54 47 52 41 50 48 49  | TXT "EDITGRAPHI|
00000c70  43 53 22 00 8e 14 44 0e  45 43 54 58 54 20 54 58  |CS"...D.ECTXT TX|
00000c80  54 20 22 45 44 49 54 43  4f 4c 53 22 00 9b 14 47  |T "EDITCOLS"...G|
00000c90  0e 42 43 51 55 20 52 54  53 00 af 14 4c 0e 42 55  |.BCQU RTS...L.BU|
00000ca0  54 43 48 45 43 4b 20 4c  44 41 20 59 50 00 bc 14  |TCHECK LDA YP...|
00000cb0  56 0e 43 4d 50 20 23 24  44 39 00 c9 14 60 0e 42  |V.CMP #$D9...`.B|
00000cc0  43 43 20 42 43 51 55 00  d7 14 62 0e 4c 44 41 20  |CC BCQU...b.LDA |
00000cd0  43 4c 49 43 4b 00 e4 14  64 0e 42 45 51 20 42 43  |CLICK...d.BEQ BC|
00000ce0  51 55 00 f0 14 65 0e 4c  44 41 20 58 50 42 00 fd  |QU...e.LDA XPB..|
00000cf0  14 66 0e 42 4e 45 20 58  42 53 52 00 0b 15 67 0e  |.f.BNE XBSR...g.|
00000d00  4c 44 41 20 24 44 30 31  30 00 16 15 68 0e af 20  |LDA $D010...h.. |
00000d10  23 24 46 33 00 24 15 69  0e 53 54 41 20 24 44 30  |#$F3.$.i.STA $D0|
00000d20  31 30 00 2f 15 6a 0e 4c  44 41 20 58 50 00 3c 15  |10./.j.LDA XP.<.|
00000d30  74 0e 43 4d 50 20 23 24  32 38 00 49 15 7e 0e 42  |t.CMP #$28.I.~.B|
00000d40  43 43 20 42 43 51 55 00  56 15 92 0e 4a 4d 50 20  |CC BCQU.V...JMP |
00000d50  42 43 4f 4b 00 66 15 9c  0e 58 42 53 52 20 4c 44  |BCOK.f...XBSR LD|
00000d60  41 20 58 50 00 73 15 a6  0e 43 4d 50 20 23 24 34  |A XP.s...CMP #$4|
00000d70  38 00 80 15 b0 0e 42 43  53 20 42 43 51 55 00 8e  |8.....BCS BCQU..|
00000d80  15 b1 0e 4c 44 41 20 24  44 30 31 30 00 9a 15 b2  |...LDA $D010....|
00000d90  0e b0 41 20 23 24 30 43  00 a8 15 b3 0e 53 54 41  |..A #$0C.....STA|
00000da0  20 24 44 30 31 30 00 b8  15 ba 0e 42 43 4f 4b 20  | $D010.....BCOK |
00000db0  4c 44 41 20 58 50 00 c4  15 bc 0e 4c 44 58 20 58  |LDA XP.....LDX X|
00000dc0  50 42 00 d1 15 bf 0e 42  4e 45 20 42 43 54 43 00  |PB.....BNE BCTC.|
00000dd0  d9 15 c4 0e 53 45 43 00  e6 15 ce 0e 53 42 43 20  |....SEC.....SBC |
00000de0  23 24 32 38 00 f8 15 d8  0e 42 43 54 43 20 4c 44  |#$28.....BCTC LD|
00000df0  58 20 23 24 46 46 00 06  16 e2 0e 42 43 4c 50 41  |X #$FF.....BCLPA|
00000e00  20 49 4e 58 00 0e 16 ec  0e 53 45 43 00 1b 16 f6  | INX.....SEC....|
00000e10  0e 53 42 43 20 23 24 31  38 00 28 16 00 0f 43 4d  |.SBC #$18.(...CM|
00000e20  50 20 23 24 45 38 00 36  16 0a 0f 42 43 43 20 42  |P #$E8.6...BCC B|
00000e30  43 4c 50 41 00 3e 16 14  0f 54 58 41 00 4a 16 1e  |CLPA.>...TXA.J..|
00000e40  0f 4c 44 59 20 58 50 42  00 56 16 28 0f 42 45 51  |.LDY XPB.V.(.BEQ|
00000e50  20 4e 41 4f 00 5e 16 32  0f 43 4c 43 00 6b 16 3c  | NAO.^.2.CLC.k.<|
00000e60  0f 41 44 43 20 23 24 30  39 00 7d 16 46 0f 4e 41  |.ADC #$09.}.F.NA|
00000e70  4f 20 53 54 41 20 42 55  54 4e 4f 00 87 16 50 0f  |O STA BUTNO...P.|
00000e80  41 53 4c 20 41 00 91 16  5a 0f 41 53 4c 20 41 00  |ASL A...Z.ASL A.|
00000e90  9b 16 64 0f 41 53 4c 20  41 00 a7 16 6e 0f 53 54  |..d.ASL A...n.ST|
00000ea0  41 20 24 30 32 00 af 16  78 0f 43 4c 43 00 bb 16  |A $02...x.CLC...|
00000eb0  82 0f 41 44 43 20 24 30  32 00 c7 16 8c 0f 41 44  |..ADC $02.....AD|
00000ec0  43 20 24 30 32 00 d4 16  91 0f 41 44 43 20 23 24  |C $02.....ADC #$|
00000ed0  32 38 00 e2 16 96 0f 53  54 41 20 24 44 30 30 34  |28.....STA $D004|
00000ee0  00 f0 16 a0 0f 53 54 41  20 24 44 30 30 36 00 fd  |.....STA $D006..|
00000ef0  16 aa 0f 4c 44 41 20 23  24 39 35 00 05 17 ac 0f  |...LDA #$95.....|
00000f00  43 4c 43 00 13 17 b0 0f  41 44 43 20 42 55 54 4e  |CLC.....ADC BUTN|
00000f10  4f 00 21 17 b4 0f 53 54  41 20 24 36 33 46 42 00  |O.!...STA $63FB.|
00000f20  29 17 be 0f 50 4c 41 00  31 17 c8 0f 50 4c 41 00  |)...PLA.1...PLA.|
00000f30  3e 17 d2 0f 4c 44 41 20  23 24 43 46 00 4b 17 dc  |>...LDA #$CF.K..|
00000f40  0f 53 54 41 20 56 45 aa  32 00 59 17 e6 0f 4c 44  |.STA VE.2.Y...LD|
00000f50  41 20 42 55 54 4e 4f 00  63 17 f0 0f 41 53 4c 20  |A BUTNO.c...ASL |
00000f60  41 00 6b 17 f3 0f 43 4c  43 00 78 17 f6 0f 41 44  |A.k...CLC.x...AD|
00000f70  43 20 23 24 38 30 00 85  17 fa 0f 53 54 41 20 56  |C #$80.....STA V|
00000f80  45 aa 31 00 93 17 fc 0f  4c 44 41 20 23 b1 56 45  |E.1.....LDA #.VE|
00000f90  43 00 9b 17 fe 0f 50 48  41 00 ab 17 00 10 4c 44  |C.....PHA.....LD|
00000fa0  41 20 23 b3 56 45 43 ab  31 00 b3 17 02 10 50 48  |A #.VEC.1.....PH|
00000fb0  41 00 c6 17 04 10 56 45  20 4a 4d 50 20 28 24 30  |A.....VE JMP ($0|
00000fc0  30 30 30 29 00 d7 17 0e  10 56 45 43 20 4c 44 41  |000).....VEC LDA|
00000fd0  20 56 45 aa 31 00 df 17  18 10 43 4c 43 00 ec 17  | VE.1.....CLC...|
00000fe0  22 10 41 44 43 20 23 24  32 30 00 f9 17 2c 10 53  |".ADC #$20...,.S|
00000ff0  54 41 20 50 48 aa 31 00  06 18 36 10 4c 44 41 20  |TA PH.1...6.LDA |
00001000  23 24 43 46 00 13 18 40  10 53 54 41 20 50 48 aa  |#$CF...@.STA PH.|
00001010  32 00 26 18 4a 10 50 48  20 4a 4d 50 20 28 24 30  |2.&.J.PH JMP ($0|
00001020  30 30 30 29 00 32 18 10  27 42 49 31 20 52 54 53  |000).2..'BI1 RTS|
00001030  00 3e 18 11 27 42 49 32  20 52 54 53 00 4a 18 12  |.>..'BI2 RTS.J..|
00001040  27 42 49 33 20 52 54 53  00 56 18 13 27 42 49 34  |'BI3 RTS.V..'BI4|
00001050  20 52 54 53 00 62 18 14  27 42 49 35 20 52 54 53  | RTS.b..'BI5 RTS|
00001060  00 6e 18 15 27 42 49 36  20 52 54 53 00 7a 18 16  |.n..'BI6 RTS.z..|
00001070  27 42 49 37 20 52 54 53  00 86 18 17 27 42 49 38  |'BI7 RTS....'BI8|
00001080  20 52 54 53 00 92 18 18  27 42 49 39 20 52 54 53  | RTS....'BI9 RTS|
00001090  00 9e 18 19 27 42 49 41  20 52 54 53 00 aa 18 1a  |....'BIA RTS....|
000010a0  27 42 49 42 20 52 54 53  00 b6 18 1b 27 42 49 43  |'BIB RTS....'BIC|
000010b0  20 52 54 53 00 c2 18 24  27 42 54 31 20 4e 4f 50  | RTS...$'BT1 NOP|
000010c0  00 ce 18 25 27 42 54 32  20 4e 4f 50 00 da 18 26  |...%'BT2 NOP...&|
000010d0  27 42 54 33 20 4e 4f 50  00 e6 18 27 27 42 54 34  |'BT3 NOP...''BT4|
000010e0  20 4e 4f 50 00 f2 18 28  27 42 54 35 20 4e 4f 50  | NOP...('BT5 NOP|
000010f0  00 fe 18 29 27 42 54 36  20 4e 4f 50 00 0a 19 2a  |...)'BT6 NOP...*|
00001100  27 42 54 37 20 4e 4f 50  00 16 19 2b 27 42 54 38  |'BT7 NOP...+'BT8|
00001110  20 4e 4f 50 00 22 19 2c  27 42 54 39 20 4e 4f 50  | NOP.".,'BT9 NOP|
00001120  00 2e 19 2d 27 42 54 41  20 4e 4f 50 00 3a 19 2e  |...-'BTA NOP.:..|
00001130  27 42 54 42 20 4e 4f 50  00 46 19 2f 27 42 54 43  |'BTB NOP.F./'BTC|
00001140  20 4e 4f 50 00 53 19 30  27 4a 4d 50 20 42 55 54  | NOP.S.0'JMP BUT|
00001150  30 00 65 19 18 f6 3b 20  56 45 43 a4 52 20 54 41  |0.e...; VEC.R TA|
00001160  42 4c 45 00 71 19 22 f6  ac b2 24 43 46 38 30 00  |BLE.q."...$CF80.|
00001170  97 19 2c f6 54 58 54 20  b3 42 49 31 2c b1 42 49  |..,.TXT .BI1,.BI|
00001180  31 2c b3 42 49 32 2c b1  42 49 32 2c b3 42 49 33  |1,.BI2,.BI2,.BI3|
00001190  2c b1 42 49 33 00 bd 19  36 f6 54 58 54 20 b3 42  |,.BI3...6.TXT .B|
000011a0  49 34 2c b1 42 49 34 2c  b3 42 49 35 2c b1 42 49  |I4,.BI4,.BI5,.BI|
000011b0  35 2c b3 42 49 36 2c b1  42 49 36 00 e3 19 40 f6  |5,.BI6,.BI6...@.|
000011c0  54 58 54 20 b3 42 49 37  2c b1 42 49 37 2c b3 42  |TXT .BI7,.BI7,.B|
000011d0  49 38 2c b1 42 49 38 2c  b3 42 49 39 2c b1 42 49  |I8,.BI8,.BI9,.BI|
000011e0  39 00 09 1a 4a f6 54 58  54 20 b3 42 49 41 2c b1  |9...J.TXT .BIA,.|
000011f0  42 49 41 2c b3 42 49 42  2c b1 42 49 42 2c b3 42  |BIA,.BIB,.BIB,.B|
00001200  49 43 2c b1 42 49 43 00  0f 1a 54 f6 3b 00 1b 1a  |IC,.BIC...T.;...|
00001210  5e f6 ac b2 24 43 46 41  30 00 41 1a 68 f6 54 58  |^...$CFA0.A.h.TX|
00001220  54 20 b3 42 54 31 2c b1  42 54 31 2c b3 42 54 32  |T .BT1,.BT1,.BT2|
00001230  2c b1 42 54 32 2c b3 42  54 33 2c b1 42 54 33 00  |,.BT2,.BT3,.BT3.|
00001240  67 1a 72 f6 54 58 54 20  b3 42 54 34 2c b1 42 54  |g.r.TXT .BT4,.BT|
00001250  34 2c b3 42 54 35 2c b1  42 54 35 2c b3 42 54 36  |4,.BT5,.BT5,.BT6|
00001260  2c b1 42 54 36 00 8d 1a  7c f6 54 58 54 20 b3 42  |,.BT6...|.TXT .B|
00001270  54 37 2c b1 42 54 37 2c  b3 42 54 38 2c b1 42 54  |T7,.BT7,.BT8,.BT|
00001280  38 2c b3 42 54 39 2c b1  42 54 39 00 b3 1a 86 f6  |8,.BT9,.BT9.....|
00001290  54 58 54 20 b3 42 54 41  2c b1 42 54 41 2c b3 42  |TXT .BTA,.BTA,.B|
000012a0  54 42 2c b1 42 54 42 2c  b3 42 54 43 2c b1 42 54  |TB,.BTB,.BTC,.BT|
000012b0  43 00 00 00                                       |C...|
000012b4