Home » Personal collection » Commodore disks » disk47b2_unlabelled.d64 » edit 22.8.95

edit 22.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 » disk47b2_unlabelled.d64
Filename: edit 22.8.95
Read OK: ✔
File size: 1B4B 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
  1070 SCHAR=$CF46
  1990 *=$C000
  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
  2803 CONTROL LDA HOUR
  2806 BNE HGLASS
  2810 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
  3022 HGLASS LDX #$93
  3024 STX $63F8
  3026 INX
  3028 STX $63F9
  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 #$00
  3190 STA $D027
  3200 LDA #$01
  3210 STA $D028
  3220 LDA $D015
  3230 ORA #$03
  3240 STA $D015
  3243 LDA HOUR
  3246 BNE QTRO
  3250 LDA #$90
  3260 STA $63F8
  3270 LDA #$91
  3280 STA $63F9
  3290 QTRO 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
  3373 LDA #$10
  3374 STA $D008
  3375 LDA #$3A
  3376 STA $D009
  3377 LDA #$10
  3378 STA $D010
  3379 LDA #$01
  3380 STA $D029
  3381 STA $D02B
  3382 LDA #$00
  3383 STA $D02A
  3385 STA SCHAR
  3388 LDA #$01
  3389 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
  3485 STA BUTNO
  3487 LDA #$92
  3490 STA $63FC
  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 #$1C
  3622 STA $D015
  3623 JSR LEFT
  3624 LDA #$00
  3625 STA $D004
  3626 STA $D006
  3627 LDA #$D9
  3628 STA $D005
  3629 STA $D007
  3630 LDA #$95
  3632 STA $63FB
  3634 LDA #$08
  3635 STA $D01C
  3636 LDA #$18
  3637 STA $D016
  3639 BUT0 JSR BUTCHECK
  3640 JMP BUT0
  3650 EGRTXT TXT "EDITGRAPHICS"
  3652 ECTXT TXT "EDITCOLS"
  3655 BCQU JMP SLECT
  3657 BCNCQ RTS
  3660 BUTCHECK LDA CLICK
  3670 BEQ BCNCQ
  3680 LDA YP
  3682 CMP #$D9
  3684 BCC BCQU
  3685 LDA XPB
  3686 BNE XBSR
  3687 LDA XP
  3688 CMP #$28
  3689 BCC BCQU
  3692 LDA $D010
  3694 AND #$F3
  3696 STA $D010
  3698 LDA XP
  3700 CMP #$28
  3710 BCC BCQU
  3730 JMP BCOK
  3740 XBSR LDA XP
  3750 CMP #$44
  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 #$96
  4012 CLC
  4016 ADC BUTNO
  4020 STA $63FA
  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)
  4180 SLECTQ RTS
  4190 SLECT LDA XPB
  4200 BEQ SLECTQ
  4210 LDA XP
  4220 CMP #$10
  4230 BCC SLECTQ
  4240 CMP #$50
  4250 BCS SLECTQ
  4260 LDA YP
  4270 CMP #$3A
  4280 BCC SLECTQ
  4290 CMP #$CA
  4300 BCS SLECTQ
  4310 LDA XP
  4320 AND #$F8
  4330 TAX
  4340 LDA YP
  4350 AND #$F8
  4352 ORA #$02
  4360 TAY
  4370 CMP #$BA
  4380 BEQ SLECTQ
  4390 BCS SLCNT
  4400 CPX #$30
  4410 BEQ SLECTQ
  4420 SLCNT STX $D008
  4430 STY $D009
  4440 CPY #$BA
  4450 BCS CALC2
  4460 TXA
  4470 CMP #$30
  4480 BCC CALC1
  4490 SEC
  4500 SBC #$08
  4510 CALC1 SEC
  4520 SBC #$10
  4525 ASL A
  4530 STA $02
  4540 TYA
  4550 SEC
  4560 SBC #$3A
  4570 LSR A
  4580 LSR A
  4590 LSR A
  4600 CLC
  4610 ADC $02
  4620 STA SCHAR
  4630 RTS
  4640 CALC2 TXA
  4650 SEC
  4660 SBC #$10
  4670 LSR A
  4680 LSR A
  4690 LSR A
  4700 CPY #$C2
  4710 BEQ CALC2C
  4720 CLC
  4730 ADC #$08
  4740 CALC2C CLC
  4750 ADC #$70
  4760 STA SCHAR
  4770 RTS
  4800 CLRSCR LDA #$52
  4810 STA $FB
  4820 LDA #$D8
  4830 STA $FC
  4840 LOPA LDA #$00
  4850 LDY #$00
  4860 LOPB STA ($FB),Y
  4870 INY
  4880 CPY #$1A
  4890 BNE LOPB
  4900 LDA $FB
  4910 CLC
  4920 ADC #$28
  4930 STA $FB
  4940 CMP #$D2
  4950 BEQ QUITCS
  4960 CMP #$28
  4970 BCS LOPA
  4980 INC $FC
  4990 JMP LOPA
  5000 QUITCS RTS
  5010 DISP JSR SCRDISP
  5020 JMP CELSEISP
  5030 SCRDISP LDA #$52
  5040 STA $FB
  5050 LDA #$60
  5060 STA $FC
  5070 LDX #$00
  5080 LOPAD LDY #$00
  5090 LOPBD JSR GETCHAR
  5100 ORA #$80
  5110 STA ($FB),Y
  5120 INY
  5130 CPY #$1A
  5140 BNE LOPBD
  5150 LDA $FB
  5160 CLC
  5170 ADC #$28
  5180 STA $FB
  5190 INX
  5200 CMP #$D2
  5210 BEQ QUITCS
  5220 CMP #$28
  5230 BCS LOPAD
  5240 INC $FC
  5250 JMP LOPAD
  5260 CELSEISP LDA #$52
  5270 STA $FB
  5280 LDA #$D8
  5290 STA $FC
  5300 LDX #$00
  5310 LOPCD LDY #$00
  5320 LOPDD TXA
  5330 PHA
  5340 JSR GETCHAR
  5350 TAX
  5360 LDA $E000,X
  5370 STA ($FB),Y
  5380 PLA
  5390 TAX
  5400 INY
  5410 CPY #$1A
  5420 BNE LOPDD
  5430 LDA $FB
  5440 CLC
  5450 ADC #$28
  5460 STA $FB
  5470 INX
  5480 CMP #$D2
  5490 BEQ QUITCS
  5500 CMP #$28
  5510 BCS LOPCD
  5520 INC $FC
  5530 JMP LOPCD
  5540 GETCHAR LDA XSP
  5550 STA $FB
  5560 TXA
  5570 CLC
  5580 ADC YSP
  5590 STA $FC
  5600 LDA ($FB),Y
  5610 RTS
 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�.SCHAR�$CF46����$C000	�;                                               WIMP ROUTINES
	�;	�; WIMP - MOUSE.	�IRQ LDA #$00<	�STA CLICKH	�LDA $C5U	�CMP #$01e	�BNE C�CHECKs	�STA CLICK�	C�CHECK CMP #$0C�	BEQ LEFTK�	LKC CMP #$17�	 BEQ RIGHTK�	*RKC CMP #$32�	4BEQ UPK�	>UPKC CMP #$37�	HBEQ DOWNK
RDKC LDA $DC00
\TAX
f� #$01$
pBEQ UPJ0
zUJC TXA;
�� #$02I
�BEQ DOWNJU
�DJC TXA`
�� #$04n
�BEQ LEFTJz
�LJC TXA�
�� #$08�
�BEQ RIGHTJ�
�RJC TXA�
�� #$10�
�E� #$10�
�BEQ CJCH�
�STA CLICK�
�CJCH JMP $EA31�
	LEFTK JSR LEFT	JMP LKC	RIGHTK JSR RIGHT%$	JMP RKC4.	UPK JSR UPA8	JMP UPKCTB	DOWNK JSR DOWN`L	JMP DKCoV	UPJ JSR UP{`	JMP UJC�j	DOWNJ JSR DOWN�t	JMP DJC�~	LEFTJ JSR LEFT��	JMP LJC��	RIGHTJ JSR RIGHT��	JMP RJC��	LEFT DEC XP��	LDA XP�	CMP #$FF�	BNE �FF�	LDY #$00'�	STY XPB7�	�FF LDY XPBC�	BNE FINP�	CMP #$18\
BNE FINg

INC XPx
FIN JMP �ROL�
RIGHT INC XP�(
LDA XP�2
BNE �00�<
LDY #$01�F
STY XPB�P
�00 LDY XPB�Z
BEQ FIN�d
CMP #$58�n
BNE FIN�x
DEC XP
�
JMP �ROL
�
UP DEC YP
�
LDA YP,
�
CMP #$328
�
BNE FINC
�
INC YPP
�
JMP �ROL`
�
DOWN INC YPk
�
LDA YPx
�
CMP #$F8�
�
BNE FIN�
�
DEC YP�
�
JMP �ROL�
�
; WIMP � PO�ER�
�
�ROL LDA HOUR�
�
BNE HGLASS�
�
LDA XP�
CMP #$28�
BCC NSQUPCMP #$F8"BCS NSQUP,LDA XPB+6BNE NSQUP6@LDA YPCJCMP #$42QTBCC NSQUP^^CMP #$C1lhBCS NSQUPwrLDA XP�|� #$F8��STA $D000��LDA YP��� #$F8���A #$02��STA $D001��LDA $D010��� #$FC��STA $D010��LDA #$92�STA $63F8�LDA $D015�� #$FC'��A #$015�STA $D015B�LDA #$01P�STA $D027X�RTSl�HGLASS LDX #$93z�STX $63F8��INX��STX $63F9��NSQUP LDA XP��STA $D000��STA $D002��LDA YP��STA $D001�STA $D003�LDA $D010�� #$FC&LSR A0CLC:ADC XPB%DASL A-NCLC9XADC XPBGbSTA $D010TlLDA #$00bvSTA $D027o�LDA #$01}�STA $D028��LDA $D015���A #$03��STA $D015��LDA HOUR��BNE QTRO��LDA #$90��STA $63F8��LDA #$91��STA $63F9�QTRO RTS�; STARTUP ROUTINES)�SR LDA #$8B7�STA $D011E�LDA $DD02Q��A #$02_�STA $DD02m�LDA $DD00x�� #$FE�
�A #$02�
STA $DD00�
LDA #$00�
STA $D020�
STA $D021�
LDA #$86� 
STA $D018�"
LDA #$00�%
STA $D000�&
LDA #$0B(
STA $D001-
LDA #$10'.
STA $D0084/
LDA #$3AB0
STA $D009O1
LDA #$10]2
STA $D010j3
LDA #$01x4
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 #�EGRTXTf
LDY #�EGRTXTz
JSR $FFBD)�
LDA #$007�
JSR $FFD5D�
LDA #$01Q�
LDX #$08Y�
TAYg�
JSR $FFBAt�
LDA #$08��
LDX #�ECTXT��
LDY #�ECTXT��
JSR $FFBD��
LDA #$00��
JSR $FFD5��
LDA #$9B��
STA $D011��
LDA #$00��
STA BUTNO�
LDA #$92�
STA $63FC�
SEI#�
LDA #$001�
STA $0314>�
LDA #$C0L�
STA $0315T�
CLIa�
LDA #$00l�
STA XPy�
STA HOUR�LDA #$80�STA YP�LDA #$01�$STA XPB�%LDA #$1C�&STA $D015�'JSR LEFT�(LDA #$00�)STA $D004�*STA $D006+LDA #$D9,STA $D005$-STA $D0071.LDA #$95?0STA $63FBL2LDA #$08Z3STA $D01Cg4LDA #$18u5STA $D016�7BUT0 JSR BUTCHECK�8JMP BUT0�BEGRTXT TXT "EDITGRAPHICS"�DECTXT TXT "EDITCOLS"�GBCQU JMP SLECT�IBCNCQ RTSLBUTCHECK LDA CLICKVBEQ BCNCQ `LDA YP-bCMP #$D9:dBCC BCQUFeLDA XPBSfBNE XBSR^gLDA XPkhCMP #$28xiBCC BCQU�lLDA $D010�n� #$F3�pSTA $D010�rLDA XP�tCMP #$28�~BCC BCQU��JMP BCOK��XBSR LDA XP��CMP #$44��BCS BCQU	�LDA $D010��A #$0C#�STA $D0103�BCOK LDA XP?�LDX XPBL�BNE BCTCT�SECa�SBC #$28s�BCTC LDX #$FF��BCLPA INX��SEC��SBC #$18�CMP #$E8�
BCC BCLPA�TXA�LDY XPB�(BEQ NAO�2CLC�<ADC #$09�FNAO STA BUTNOPASL AZASL AdASL A"nSTA $02*xCLC6�ADC $02B�ADC $02O�ADC #$28]�STA $D004k�STA $D006x�LDA #$96��CLC��ADC BUTNO��STA $63FA��PLA��PLA��LDA #$CF��STA VE�2��LDA BUTNO��ASL A��CLC��ADC #$80�STA VE�1�LDA #�VEC�PHA&LDA #�VEC�1.PHAAVE JMP ($0000)RVEC LDA VE�1ZCLCg"ADC #$20t,STA PH�1�6LDA #$CF�@STA PH�2�JPH JMP ($0000)�TSLECTQ RTS�^SLECT LDA XPB�hBEQ SLECTQ�rLDA XP�|CMP #$10��BCC SLECTQ�CMP #$50�BCS SLECTQ�LDA YP,�CMP #$3A;�BCC SLECTQH�CMP #$CAW�BCS SLECTQb�LDA XPm�� #$F8u�TAX��LDA YP��� #$F8��A #$02�TAY�CMP #$BA�BEQ SLECTQ�&BCS SLCNT�0CPX #$30�:BEQ SLECTQ�DSLCNT STX $D008NSTY $D009XCPY #$BA"bBCS CALC2*lTXA7vCMP #$30E�BCC CALC1M�SECZ�SBC #$08h�CALC1 SECu�SBC #$10�ASL A��STA $02��TYA��SEC��SBC #$3A��LSR A��LSR A��LSR A��CLC�ADC $02�STA SCHAR�RTS� CALC2 TXA*SEC4SBC #$10>LSR A'HLSR A1RLSR A>\CPY #$C2MfBEQ CALC2CUpCLCbzADC #$08q�CALC2C CLC~�ADC #$70��STA SCHAR��RTS���SCR LDA #$52��STA $FB��LDA #$D8��STA $FC��LOPA LDA #$00��LDY #$00��LOPB STA ($FB),YINYCPY #$1A!BNE LOPB-$LDA $FB5.CLCB8ADC #$28NBSTA $FB[LCMP #$D2jVBEQ QUITCSw`CMP #$28�jBCS LOPA�tINC $FC�~JMP LOPA��QUITCS RTS��DISP JSR SCRDISP��JMP C�ISP��SCRDISP LDA #$52��STA $FB��LDA #$60	�STA $FC�LDX #$00)�LOPAD LDY #$00=�LOPBD JSR �CHARI��A #$80Y�STA ($FB),YaINYn
CPY #$1A|BNE LOPBD�LDA $FB�(CLC�2ADC #$28�<STA $FB�FINX�PCMP #$D2�ZBEQ QUITCS�dCMP #$28�nBCS LOPAD�xINC $FC�JMP LOPAD�C�ISP LDA #$52!�STA $FB.�LDA #$D8:�STA $FCG�LDX #$00Z�LOPCD LDY #$00h�LOPDD TXAp�PHA~�JSR �CHAR��TAX��LDA $E000,X��STA ($FB),Y�PLA�TAX�INY�"CPY #$1A�,BNE LOPDD�6LDA $FB�@CLC�JADC #$28 TSTA $FB ^INX hCMP #$D2* rBEQ QUITCS7 |CMP #$28E �BCS LOPCDQ �INC $FC_ �JMP LOPCDq ��CHAR LDA XSP} �STA $FB� �TXA� �CLC� �ADC YSP� �STA $FC� �LDA ($FB),Y� �RTS� 'BI1 RTS� 'BI2 RTS� 'BI3 RTS� 'BI4 RTS� 'BI5 RTS!'BI6 RTS!'BI7 RTS!'BI8 RTS)!'BI9 RTS5!'BIA RTSA!'BIB RTSM!'BIC RTSY!$'BT1 NOPe!%'BT2 NOPq!&'BT3 NOP}!''BT4 NOP�!('BT5 NOP�!)'BT6 NOP�!*'BT7 NOP�!+'BT8 NOP�!,'BT9 NOP�!-'BTA NOP�!.'BTB NOP�!/'BTC NOP�!0'JMP BUT0�!�; VEC�R TABLE""���$CF80.",�TXT �BI1,�BI1,�BI2,�BI2,�BI3,�BI3T"6�TXT �BI4,�BI4,�BI5,�BI5,�BI6,�BI6z"@�TXT �BI7,�BI7,�BI8,�BI8,�BI9,�BI9�"J�TXT �BIA,�BIA,�BIB,�BIB,�BIC,�BIC�"T�;�"^���$CFA0�"h�TXT �BT1,�BT1,�BT2,�BT2,�BT3,�BT3�"r�TXT �BT4,�BT4,�BT5,�BT5,�BT6,�BT6$#|�TXT �BT7,�BT7,�BT8,�BT8,�BT9,�BT9J#��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@.H.G..$c000@DI.G;                                               wimp routines@JI.G;@]I.G; wimp - mouse@.I.Girq lda #$00@<I.Gsta click@hI.Glda $c5@uI.Gcmp #$01@EI.Gbne c.check@SI.Gsta click@.IBHc.check cmp #$0c@.ILHbeq leftk@.IVHlkc cmp #$17@.I Hbeq rightk@.I*Hrkc cmp #$32@.I4Hbeq upk@.I>Hupkc cmp #$37@.IhHbeq downk@EJrHdkc lda $dc00@MJ£Htax@XJFH. #$01@$JPHbeq upj@0JZHujc txa@;J.H. #$02@iJ.Hbeq downj@uJ.Hdjc txa@.J.H. #$04@NJ.Hbeq leftj@ZJ.Hljc txa@.J.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@DKPIjmp lkc@YKZIrightk jsr right@%K$Ijmp rkc@4K.Iupk jsr up@aK8Ijmp upkc@tKbIdownk jsr down@.KlIjmp dkc@OKvIupj jsr up@.K.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@BL.Icmp #$ff@NL.Ibne .ff@[L.Ildy #$00@'L.Isty xpb@7L.I.ff ldy xpb@cL.Ibne fin@pL.Icmp #$18@£L@Jbne fin@GLJJinc xp@XLTJfin jmp .rol@.L.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@FM.Jjmp .rol@TM.Jup dec yp@.M.Jlda yp@,M.Jcmp #$32@8M.Jbne fin@cM.Jinc yp@pM.Jjmp .rol@.M.Jdown inc yp@KM.Jlda yp@XM.Jcmp #$f8@.M.Jbne fin@.M.Jdec yp@.M.Jjmp .rol@.M.J; wimp . po.er@.M.J.rol lda hour@.M.Jbne hglass@.M.Jlda xp@.MDKcmp #$28@.MNKbcc nsqup@CNXKcmp #$f8@QN"Kbcs nsqup@]N,Klda xpb@+N6Kbne nsqup@6N@Klda yp@cNjKcmp #$42@qNtKbcc nsqup@.N.Kcmp #$c1@LNHKbcs nsqup@WNRKlda xp@.N.K. #$f8@.N.Ksta $d000@.N.Klda yp@.N.K. #$f8@.N.K.a #$02@.N.Ksta $d001@.N.Klda $d010@.N.K. #$fc@.N.Ksta $d010@.N.Klda #$92@BO.Ksta $63f8@PO.Klda $d015@[O.K. #$fc@'O.K.a #$01@5O.Ksta $d015@bO.Klda #$01@pO.Ksta $d027@xO.Krts@LO.Khglass ldx #$93@ZO.Kstx $63f8@.O.Kinx@.O.Kstx $63f9@.O.Knsqup lda xp@.O.Ksta $d000@.O.Ksta $d002@.O.Klda yp@.O.Ksta $d001@.OHLsta $d003@.ORLlda $d010@.O£L. #$fc@GP&Llsr a@OP0Lclc@[P:Ladc xpb@%PdLasl a@-PnLclc@9PxLadc xpb@gPBLsta $d010@tPLLlda #$00@BPVLsta $d027@OP.Llda #$01@.P.Lsta $d028@.P.Llda $d015@.P.L.a #$03@.P.Lsta $d015@.P.Llda hour@.P.Lbne qtro@.P.Llda #$90@.P.Lsta $63f8@.P.Llda #$91@.P.Lsta $63f9@BQ.Lqtro rts@YQ.L; startup routines@)Q.Lsr lda #$8b@7Q.Lsta $d011@eQ.Llda $dd02@qQ.L.a #$02@.Q.Lsta $dd02@MQ.Llda $dd00@XQ.L. #$fe@.QBM.a #$02@.QLMsta $dd00@.QOMlda #$00@.QRMsta $d020@.QTMsta $d021@.QVMlda #$86@.Q Msta $d018@.Q"Mlda #$00@.Q%Msta $d000@.Q&Mlda #$0b@LR(Msta $d001@YR-Mlda #$10@'R.Msta $d008@4R/Mlda #$3a@bR0Msta $d009@oR1Mlda #$10@]R2Msta $d010@JR3Mlda #$01@XR4Msta $d029@.R5Msta $d02b@.R6Mlda #$00@.R7Msta $d02a@.R9Msta schar@.R<Mlda #$01@.R=Mldx #$08@.R>Mtay@.RhMjsr $ffba@.RrMlda #$0c@.R£Mldx #.egrtxt@NSFMldy #.egrtxt@£SZMjsr $ffbd@)S.Mlda #$00@7S.Mjsr $ffd5@dS.Mlda #$01@qS.Mldx #$08@yS.Mtay@GS.Mjsr $ffba@TS.Mlda #$08@.S.Mldx #.ectxt@.S.Mldy #.ectxt@.S.Mjsr $ffbd@.S.Mlda #$00@.S.Mjsr $ffd5@.S.Mlda #$9b@.S.Msta $d011@.S.Mlda #$00@.S.Msta butno@@T.Mlda #$92@NT.Msta $63fc@VT.Msei@#T.Mlda #$00@1T.Msta $0314@>T.Mlda #$c0@lT.Msta $0315@tT.Mcli@AT.Mlda #$00@LT.Msta xp@YT.Msta hour@.TFNlda #$80@.TPNsta yp@.TZNlda #$01@.T$Nsta xpb@.T%Nlda #$1c@.T&Nsta $d015@.T'Njsr left@.T(Nlda #$00@.T)Nsta $d004@.T*Nsta $d006@HU+Nlda #$d9@VU,Nsta $d005@$U-Nsta $d007@1U.Nlda #$95@?U0Nsta $63fb@lU2Nlda #$08@zU3Nsta $d01c@GU4Nlda #$18@UU5Nsta $d016@.U7Nbut0 jsr butcheck@.U8Njmp but0@.UbNegrtxt txt "editgraphics"@.UdNectxt txt "editcols"@.UgNbcqu jmp slect@.UiNbcncq rts@GVlNbutcheck lda click@UVvNbeq bcncq@ V.Nlda yp@-VBNcmp #$d9@:VDNbcc bcqu@fVENlda xpb@sVFNbne xbsr@.VGNlda xp@KVHNcmp #$28@XVINbcc bcqu@.VLNlda $d010@.VNN. #$f3@.VPNsta $d010@.VRNlda xp@.VTNcmp #$28@.V.Nbcc bcqu@.V.Njmp bcok@.V.Nxbsr lda xp@.V.Ncmp #$44@.V.Nbcs bcqu@IW.Nlda $d010@UW.N.a #$0c@#W.Nsta $d010@3W.Nbcok lda xp@?W.Nldx xpb@lW.Nbne bctc@tW.Nsec@AW.Nsbc #$28@SW.Nbctc ldx #$ff@.W.Nbclpa inx@.W.Nsec@.W.Nsbc #$18@.W@Ocmp #$e8@.WJObcc bclpa@.WTOtxa@.W.Oldy xpb@.W(Obeq nao@.W2Oclc@.W<Oadc #$09@.WfOnao sta butno@BXpOasl a@LXzOasl a@VXDOasl a@"XNOsta $02@*XXOclc@6X.Oadc $02@bX.Oadc $02@oX.Oadc #$28@]X.Osta $d004@KX.Osta $d006@XX.Olda #$96@.X.Oclc@.X.Oadc butno@.X.Osta $63fa@.X.Opla@.X.Opla@.X.Olda #$cf@.X.Osta ve.2@.X.Olda butno@.X.Oasl a@.X.Oclc@.X.Oadc #$80@@Y.Osta ve.1@NY.Olda #.vec@VY.Opha@&Y@Plda #.vec.1@.YBPpha@aYDPve jmp ($0000)@rYNPvec lda ve.1@zYXPclc@GY"Padc #$20@TY,Psta ph.1@.Y6Plda #$cf@.Y@Psta ph.2@.YjPph jmp ($0000)@.YtPslectq rts@.Y.Pslect lda xpb@.YHPbeq slectq@.YRPlda xp@.Y.Pcmp #$10@.Y.Pbcc slectq@EZ.Pcmp #$50@TZ.Pbcs slectq@.Z.Plda yp@,Z.Pcmp #$3a@;Z.Pbcc slectq@hZ.Pcmp #$ca@wZ.Pbcs slectq@BZ.Plda xp@MZ.P. #$f8@UZ.Ptax@.Z.Plda yp@.Z.P. #$f8@.Z@Q.a #$02@.ZHQtay@.ZRQcmp #$ba@.Z£Qbeq slectq@.Z&Qbcs slcnt@.Z0Qcpx #$30@.Z:Qbeq slectq@.ZdQslcnt stx $d008@G[nQsty $d009@T[xQcpy #$ba@"[BQbcs calc2@*[LQtxa@7[VQcmp #$30@e[.Qbcc calc1@m[.Qsec@z[.Qsbc #$08@H[.Qcalc1 sec@U[.Qsbc #$10@.[.Qasl a@.[.Qsta $02@.[.Qtya@.[.Qsec@.[.Qsbc #$3a@.[.Qlsr a@.[.Qlsr a@.[.Qlsr a@.[.Qclc@.[BRadc $02@.[LRsta schar@.[VRrts@.[ Rcalc2 txa@F£*Rsec@S£4Rsbc #$10@]£>Rlsr a@'£hRlsr a@1£rRlsr a@>££Rcpy #$c2@m£FRbeq calc2c@u£PRclc@B£ZRadc #$08@Q£.Rcalc2c clc@.£.Radc #$70@.£.Rsta schar@.£.Rrts@.£.R.scr lda #$52@.£.Rsta $fb@.£.Rlda #$d8@.£.Rsta $fc@.£.Rlopa lda #$00@.£.Rldy #$00@.£.Rlopb sta ($fb),y@G]FSiny@T]PScpy #$1a@!]ZSbne lopb@-]$Slda $fb@5].Sclc@b]8Sadc #$28@n]bSsta $fb@[]lScmp #$d2@J]vSbeq quitcs@W].Scmp #$28@.]JSbcs lopa@.]TSinc $fc@.].Sjmp lopa@.].Squitcs rts@.].Sdisp jsr scrdisp@.].Sjmp c.isp@.].Sscrdisp lda #$52@.].Ssta $fb@.].Slda #$60@I..Ssta $fc@V..Sldx #$00@)..Slopad ldy #$00@=..Slopbd jsr .char@i..S.a #$80@y..Ssta ($fb),y@A.@Tiny@N.JTcpy #$1a@..TTbne lopbd@...Tlda $fb@..(Tclc@..2Tadc #$28@..<Tsta $fb@..fTinx@..pTcmp #$d2@..zTbeq quitcs@..DTcmp #$28@..NTbcs lopad@..XTinc $fc@B..Tjmp lopad@U..Tc.isp lda #$52@!..Tsta $fb@...Tlda #$d8@:..Tsta $fc@g..Tldx #$00@z..Tlopcd ldy #$00@H..Tlopdd txa@P..Tpha@...Tjsr .char@...Ttax@...Tlda $e000,x@...Tsta ($fb),y@..DUpla@..NUtax@..XUiny@.."Ucpy #$1a@..,Ubne lopdd@..6Ulda $fb@..@Uclc@..jUadc #$28@F tUsta $fb@N .Uinx@[ HUcmp #$d2@* RUbeq quitcs@7 .Ucmp #$28@e .Ubcs lopcd@q .Uinc $fc@. .Ujmp lopcd@Q .U.char lda xsp@. .Usta $fb@. .Utxa@. .Uclc@. .Uadc ysp@. .Usta $fc@. .Ulda ($fb),y@. .Urts@. P'bi1 rts@. Q'bi2 rts@. R'bi3 rts@. S'bi4 rts@. T'bi5 rts@E!U'bi6 rts@Q!V'bi7 rts@]!W'bi8 rts@)!X'bi9 rts@5!Y'bia rts@a!Z'bib rts@m!['bic rts@y!$'bt1 nop@E!%'bt2 nop@Q!&'bt3 nop@.!''bt4 nop@.!('bt5 nop@.!)'bt6 nop@.!*'bt7 nop@.!+'bt8 nop@.!,'bt9 nop@.!-'bta nop@.!.'btb nop@.!/'btc nop@.!0'jmp but0@.!X.; vec.r table@H""...$cf80@.",.txt .bi1,.bi1,.bi2,.bi2,.bi3,.bi3@t"6.txt .bi4,.bi4,.bi5,.bi5,.bi6,.bi6@Z"@.txt .bi7,.bi7,.bi8,.bi8,.bi9,.bi9@."j.txt .bia,.bia,.bib,.bib,.bic,.bic@."t.;@."....$cfa0@."H.txt .bt1,.bt1,.bt2,.bt2,.bt3,.bt3@."R.txt .bt4,.bt4,.bt5,.bt5,.bt6,.bt6@$#..txt .bt7,.bt7,.bt8,.bt8,.bt9,.bt9@j#..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 c2 08 c6  07 ac b2 24 43 30 30 30  |CF46.......$C000|
000000c0  00 04 09 d0 07 3b 20 20  20 20 20 20 20 20 20 20  |.....;          |
000000d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000000f0  20 20 20 20 20 57 49 4d  50 20 52 4f 55 54 49 4e  |     WIMP ROUTIN|
00000100  45 53 00 0a 09 d3 07 3b  00 1d 09 d6 07 3b 20 57  |ES.....;.....; W|
00000110  49 4d 50 20 2d 20 4d 4f  55 53 45 00 2e 09 da 07  |IMP - MOUSE.....|
00000120  49 52 51 20 4c 44 41 20  23 24 30 30 00 3c 09 dd  |IRQ LDA #$00.<..|
00000130  07 53 54 41 20 43 4c 49  43 4b 00 48 09 e0 07 4c  |.STA CLICK.H...L|
00000140  44 41 20 24 43 35 00 55  09 e4 07 43 4d 50 20 23  |DA $C5.U...CMP #|
00000150  24 30 31 00 65 09 ee 07  42 4e 45 20 43 91 43 48  |$01.e...BNE C.CH|
00000160  45 43 4b 00 73 09 f8 07  53 54 41 20 43 4c 49 43  |ECK.s...STA CLIC|
00000170  4b 00 88 09 02 08 43 91  43 48 45 43 4b 20 43 4d  |K.....C.CHECK CM|
00000180  50 20 23 24 30 43 00 96  09 0c 08 42 45 51 20 4c  |P #$0C.....BEQ L|
00000190  45 46 54 4b 00 a7 09 16  08 4c 4b 43 20 43 4d 50  |EFTK.....LKC CMP|
000001a0  20 23 24 31 37 00 b6 09  20 08 42 45 51 20 52 49  | #$17... .BEQ RI|
000001b0  47 48 54 4b 00 c7 09 2a  08 52 4b 43 20 43 4d 50  |GHTK...*.RKC CMP|
000001c0  20 23 24 33 32 00 d3 09  34 08 42 45 51 20 55 50  | #$32...4.BEQ UP|
000001d0  4b 00 e5 09 3e 08 55 50  4b 43 20 43 4d 50 20 23  |K...>.UPKC CMP #|
000001e0  24 33 37 00 f3 09 48 08  42 45 51 20 44 4f 57 4e  |$37...H.BEQ DOWN|
000001f0  4b 00 05 0a 52 08 44 4b  43 20 4c 44 41 20 24 44  |K...R.DKC LDA $D|
00000200  43 30 30 00 0d 0a 5c 08  54 41 58 00 18 0a 66 08  |C00...\.TAX...f.|
00000210  af 20 23 24 30 31 00 24  0a 70 08 42 45 51 20 55  |. #$01.$.p.BEQ U|
00000220  50 4a 00 30 0a 7a 08 55  4a 43 20 54 58 41 00 3b  |PJ.0.z.UJC TXA.;|
00000230  0a 84 08 af 20 23 24 30  32 00 49 0a 8e 08 42 45  |.... #$02.I...BE|
00000240  51 20 44 4f 57 4e 4a 00  55 0a 98 08 44 4a 43 20  |Q DOWNJ.U...DJC |
00000250  54 58 41 00 60 0a a2 08  af 20 23 24 30 34 00 6e  |TXA.`.... #$04.n|
00000260  0a ac 08 42 45 51 20 4c  45 46 54 4a 00 7a 0a b6  |...BEQ LEFTJ.z..|
00000270  08 4c 4a 43 20 54 58 41  00 85 0a c0 08 af 20 23  |.LJC TXA...... #|
00000280  24 30 38 00 94 0a ca 08  42 45 51 20 52 49 47 48  |$08.....BEQ RIGH|
00000290  54 4a 00 a0 0a d4 08 52  4a 43 20 54 58 41 00 ab  |TJ.....RJC TXA..|
000002a0  0a de 08 af 20 23 24 31  30 00 b7 0a e3 08 45 b0  |.... #$10.....E.|
000002b0  20 23 24 31 30 00 c4 0a  e8 08 42 45 51 20 43 4a  | #$10.....BEQ CJ|
000002c0  43 48 00 d2 0a f2 08 53  54 41 20 43 4c 49 43 4b  |CH.....STA CLICK|
000002d0  00 e5 0a fc 08 43 4a 43  48 20 4a 4d 50 20 24 45  |.....CJCH JMP $E|
000002e0  41 33 31 00 f8 0a 06 09  4c 45 46 54 4b 20 4a 53  |A31.....LEFTK JS|
000002f0  52 20 4c 45 46 54 00 04  0b 10 09 4a 4d 50 20 4c  |R LEFT.....JMP L|
00000300  4b 43 00 19 0b 1a 09 52  49 47 48 54 4b 20 4a 53  |KC.....RIGHTK JS|
00000310  52 20 52 49 47 48 54 00  25 0b 24 09 4a 4d 50 20  |R RIGHT.%.$.JMP |
00000320  52 4b 43 00 34 0b 2e 09  55 50 4b 20 4a 53 52 20  |RKC.4...UPK JSR |
00000330  55 50 00 41 0b 38 09 4a  4d 50 20 55 50 4b 43 00  |UP.A.8.JMP UPKC.|
00000340  54 0b 42 09 44 4f 57 4e  4b 20 4a 53 52 20 44 4f  |T.B.DOWNK JSR DO|
00000350  57 4e 00 60 0b 4c 09 4a  4d 50 20 44 4b 43 00 6f  |WN.`.L.JMP DKC.o|
00000360  0b 56 09 55 50 4a 20 4a  53 52 20 55 50 00 7b 0b  |.V.UPJ JSR UP.{.|
00000370  60 09 4a 4d 50 20 55 4a  43 00 8e 0b 6a 09 44 4f  |`.JMP UJC...j.DO|
00000380  57 4e 4a 20 4a 53 52 20  44 4f 57 4e 00 9a 0b 74  |WNJ JSR DOWN...t|
00000390  09 4a 4d 50 20 44 4a 43  00 ad 0b 7e 09 4c 45 46  |.JMP DJC...~.LEF|
000003a0  54 4a 20 4a 53 52 20 4c  45 46 54 00 b9 0b 88 09  |TJ JSR LEFT.....|
000003b0  4a 4d 50 20 4c 4a 43 00  ce 0b 92 09 52 49 47 48  |JMP LJC.....RIGH|
000003c0  54 4a 20 4a 53 52 20 52  49 47 48 54 00 da 0b 9c  |TJ JSR RIGHT....|
000003d0  09 4a 4d 50 20 52 4a 43  00 ea 0b a6 09 4c 45 46  |.JMP RJC.....LEF|
000003e0  54 20 44 45 43 20 58 50  00 f5 0b b0 09 4c 44 41  |T DEC XP.....LDA|
000003f0  20 58 50 00 02 0c ba 09  43 4d 50 20 23 24 46 46  | XP.....CMP #$FF|
00000400  00 0e 0c c4 09 42 4e 45  20 a8 46 46 00 1b 0c ce  |.....BNE .FF....|
00000410  09 4c 44 59 20 23 24 30  30 00 27 0c d8 09 53 54  |.LDY #$00.'...ST|
00000420  59 20 58 50 42 00 37 0c  e2 09 a8 46 46 20 4c 44  |Y XPB.7....FF LD|
00000430  59 20 58 50 42 00 43 0c  ec 09 42 4e 45 20 46 49  |Y XPB.C...BNE FI|
00000440  4e 00 50 0c f6 09 43 4d  50 20 23 24 31 38 00 5c  |N.P...CMP #$18.\|
00000450  0c 00 0a 42 4e 45 20 46  49 4e 00 67 0c 0a 0a 49  |...BNE FIN.g...I|
00000460  4e 43 20 58 50 00 78 0c  14 0a 46 49 4e 20 4a 4d  |NC XP.x...FIN JM|
00000470  50 20 9a 52 4f 4c 00 89  0c 1e 0a 52 49 47 48 54  |P .ROL.....RIGHT|
00000480  20 49 4e 43 20 58 50 00  94 0c 28 0a 4c 44 41 20  | INC XP...(.LDA |
00000490  58 50 00 a0 0c 32 0a 42  4e 45 20 a8 30 30 00 ad  |XP...2.BNE .00..|
000004a0  0c 3c 0a 4c 44 59 20 23  24 30 31 00 b9 0c 46 0a  |.<.LDY #$01...F.|
000004b0  53 54 59 20 58 50 42 00  c9 0c 50 0a a8 30 30 20  |STY XPB...P..00 |
000004c0  4c 44 59 20 58 50 42 00  d5 0c 5a 0a 42 45 51 20  |LDY XPB...Z.BEQ |
000004d0  46 49 4e 00 e2 0c 64 0a  43 4d 50 20 23 24 35 38  |FIN...d.CMP #$58|
000004e0  00 ee 0c 6e 0a 42 4e 45  20 46 49 4e 00 f9 0c 78  |...n.BNE FIN...x|
000004f0  0a 44 45 43 20 58 50 00  06 0d 82 0a 4a 4d 50 20  |.DEC XP.....JMP |
00000500  9a 52 4f 4c 00 14 0d 8c  0a 55 50 20 44 45 43 20  |.ROL.....UP DEC |
00000510  59 50 00 1f 0d 91 0a 4c  44 41 20 59 50 00 2c 0d  |YP.....LDA YP.,.|
00000520  96 0a 43 4d 50 20 23 24  33 32 00 38 0d 9b 0a 42  |..CMP #$32.8...B|
00000530  4e 45 20 46 49 4e 00 43  0d a0 0a 49 4e 43 20 59  |NE FIN.C...INC Y|
00000540  50 00 50 0d aa 0a 4a 4d  50 20 9a 52 4f 4c 00 60  |P.P...JMP .ROL.`|
00000550  0d b4 0a 44 4f 57 4e 20  49 4e 43 20 59 50 00 6b  |...DOWN INC YP.k|
00000560  0d be 0a 4c 44 41 20 59  50 00 78 0d c8 0a 43 4d  |...LDA YP.x...CM|
00000570  50 20 23 24 46 38 00 84  0d d2 0a 42 4e 45 20 46  |P #$F8.....BNE F|
00000580  49 4e 00 8f 0d dc 0a 44  45 43 20 59 50 00 9c 0d  |IN.....DEC YP...|
00000590  e6 0a 4a 4d 50 20 9a 52  4f 4c 00 af 0d f0 0a 3b  |..JMP .ROL.....;|
000005a0  20 57 49 4d 50 20 ab 20  50 4f b5 45 52 00 c1 0d  | WIMP . PO.ER...|
000005b0  f3 0a 9a 52 4f 4c 20 4c  44 41 20 48 4f 55 52 00  |...ROL LDA HOUR.|
000005c0  d0 0d f6 0a 42 4e 45 20  48 47 4c 41 53 53 00 db  |....BNE HGLASS..|
000005d0  0d fa 0a 4c 44 41 20 58  50 00 e8 0d 04 0b 43 4d  |...LDA XP.....CM|
000005e0  50 20 23 24 32 38 00 f6  0d 0e 0b 42 43 43 20 4e  |P #$28.....BCC N|
000005f0  53 51 55 50 00 03 0e 18  0b 43 4d 50 20 23 24 46  |SQUP.....CMP #$F|
00000600  38 00 11 0e 22 0b 42 43  53 20 4e 53 51 55 50 00  |8...".BCS NSQUP.|
00000610  1d 0e 2c 0b 4c 44 41 20  58 50 42 00 2b 0e 36 0b  |..,.LDA XPB.+.6.|
00000620  42 4e 45 20 4e 53 51 55  50 00 36 0e 40 0b 4c 44  |BNE NSQUP.6.@.LD|
00000630  41 20 59 50 00 43 0e 4a  0b 43 4d 50 20 23 24 34  |A YP.C.J.CMP #$4|
00000640  32 00 51 0e 54 0b 42 43  43 20 4e 53 51 55 50 00  |2.Q.T.BCC NSQUP.|
00000650  5e 0e 5e 0b 43 4d 50 20  23 24 43 31 00 6c 0e 68  |^.^.CMP #$C1.l.h|
00000660  0b 42 43 53 20 4e 53 51  55 50 00 77 0e 72 0b 4c  |.BCS NSQUP.w.r.L|
00000670  44 41 20 58 50 00 82 0e  7c 0b af 20 23 24 46 38  |DA XP...|.. #$F8|
00000680  00 90 0e 86 0b 53 54 41  20 24 44 30 30 30 00 9b  |.....STA $D000..|
00000690  0e 9a 0b 4c 44 41 20 59  50 00 a6 0e a4 0b af 20  |...LDA YP...... |
000006a0  23 24 46 38 00 b2 0e a9  0b b0 41 20 23 24 30 32  |#$F8......A #$02|
000006b0  00 c0 0e b8 0b 53 54 41  20 24 44 30 30 31 00 ce  |.....STA $D001..|
000006c0  0e b9 0b 4c 44 41 20 24  44 30 31 30 00 d9 0e ba  |...LDA $D010....|
000006d0  0b af 20 23 24 46 43 00  e7 0e bc 0b 53 54 41 20  |.. #$FC.....STA |
000006e0  24 44 30 31 30 00 f4 0e  bd 0b 4c 44 41 20 23 24  |$D010.....LDA #$|
000006f0  39 32 00 02 0f be 0b 53  54 41 20 24 36 33 46 38  |92.....STA $63F8|
00000700  00 10 0f bf 0b 4c 44 41  20 24 44 30 31 35 00 1b  |.....LDA $D015..|
00000710  0f c0 0b af 20 23 24 46  43 00 27 0f c1 0b b0 41  |.... #$FC.'....A|
00000720  20 23 24 30 31 00 35 0f  c2 0b 53 54 41 20 24 44  | #$01.5...STA $D|
00000730  30 31 35 00 42 0f ca 0b  4c 44 41 20 23 24 30 31  |015.B...LDA #$01|
00000740  00 50 0f cb 0b 53 54 41  20 24 44 30 32 37 00 58  |.P...STA $D027.X|
00000750  0f cc 0b 52 54 53 00 6c  0f ce 0b 48 47 4c 41 53  |...RTS.l...HGLAS|
00000760  53 20 4c 44 58 20 23 24  39 33 00 7a 0f d0 0b 53  |S LDX #$93.z...S|
00000770  54 58 20 24 36 33 46 38  00 82 0f d2 0b 49 4e 58  |TX $63F8.....INX|
00000780  00 90 0f d4 0b 53 54 58  20 24 36 33 46 39 00 a1  |.....STX $63F9..|
00000790  0f d6 0b 4e 53 51 55 50  20 4c 44 41 20 58 50 00  |...NSQUP LDA XP.|
000007a0  af 0f e0 0b 53 54 41 20  24 44 30 30 30 00 bd 0f  |....STA $D000...|
000007b0  ea 0b 53 54 41 20 24 44  30 30 32 00 c8 0f f4 0b  |..STA $D002.....|
000007c0  4c 44 41 20 59 50 00 d6  0f fe 0b 53 54 41 20 24  |LDA YP.....STA $|
000007d0  44 30 30 31 00 e4 0f 08  0c 53 54 41 20 24 44 30  |D001.....STA $D0|
000007e0  30 33 00 f2 0f 12 0c 4c  44 41 20 24 44 30 31 30  |03.....LDA $D010|
000007f0  00 fd 0f 1c 0c af 20 23  24 46 43 00 07 10 26 0c  |...... #$FC...&.|
00000800  4c 53 52 20 41 00 0f 10  30 0c 43 4c 43 00 1b 10  |LSR A...0.CLC...|
00000810  3a 0c 41 44 43 20 58 50  42 00 25 10 44 0c 41 53  |:.ADC XPB.%.D.AS|
00000820  4c 20 41 00 2d 10 4e 0c  43 4c 43 00 39 10 58 0c  |L A.-.N.CLC.9.X.|
00000830  41 44 43 20 58 50 42 00  47 10 62 0c 53 54 41 20  |ADC XPB.G.b.STA |
00000840  24 44 30 31 30 00 54 10  6c 0c 4c 44 41 20 23 24  |$D010.T.l.LDA #$|
00000850  30 30 00 62 10 76 0c 53  54 41 20 24 44 30 32 37  |00.b.v.STA $D027|
00000860  00 6f 10 80 0c 4c 44 41  20 23 24 30 31 00 7d 10  |.o...LDA #$01.}.|
00000870  8a 0c 53 54 41 20 24 44  30 32 38 00 8b 10 94 0c  |..STA $D028.....|
00000880  4c 44 41 20 24 44 30 31  35 00 97 10 9e 0c b0 41  |LDA $D015......A|
00000890  20 23 24 30 33 00 a5 10  a8 0c 53 54 41 20 24 44  | #$03.....STA $D|
000008a0  30 31 35 00 b2 10 ab 0c  4c 44 41 20 48 4f 55 52  |015.....LDA HOUR|
000008b0  00 bf 10 ae 0c 42 4e 45  20 51 54 52 4f 00 cc 10  |.....BNE QTRO...|
000008c0  b2 0c 4c 44 41 20 23 24  39 30 00 da 10 bc 0c 53  |..LDA #$90.....S|
000008d0  54 41 20 24 36 33 46 38  00 e7 10 c6 0c 4c 44 41  |TA $63F8.....LDA|
000008e0  20 23 24 39 31 00 f5 10  d0 0c 53 54 41 20 24 36  | #$91.....STA $6|
000008f0  33 46 39 00 02 11 da 0c  51 54 52 4f 20 52 54 53  |3F9.....QTRO RTS|
00000900  00 19 11 e4 0c 3b 20 53  54 41 52 54 55 50 20 52  |.....; STARTUP R|
00000910  4f 55 54 49 4e 45 53 00  29 11 e6 0c 53 52 20 4c  |OUTINES.)...SR L|
00000920  44 41 20 23 24 38 42 00  37 11 ea 0c 53 54 41 20  |DA #$8B.7...STA |
00000930  24 44 30 31 31 00 45 11  ee 0c 4c 44 41 20 24 44  |$D011.E...LDA $D|
00000940  44 30 32 00 51 11 f0 0c  b0 41 20 23 24 30 32 00  |D02.Q....A #$02.|
00000950  5f 11 f2 0c 53 54 41 20  24 44 44 30 32 00 6d 11  |_...STA $DD02.m.|
00000960  f4 0c 4c 44 41 20 24 44  44 30 30 00 78 11 f8 0c  |..LDA $DD00.x...|
00000970  af 20 23 24 46 45 00 84  11 02 0d b0 41 20 23 24  |. #$FE......A #$|
00000980  30 32 00 92 11 0c 0d 53  54 41 20 24 44 44 30 30  |02.....STA $DD00|
00000990  00 9f 11 0f 0d 4c 44 41  20 23 24 30 30 00 ad 11  |.....LDA #$00...|
000009a0  12 0d 53 54 41 20 24 44  30 32 30 00 bb 11 14 0d  |..STA $D020.....|
000009b0  53 54 41 20 24 44 30 32  31 00 c8 11 16 0d 4c 44  |STA $D021.....LD|
000009c0  41 20 23 24 38 36 00 d6  11 20 0d 53 54 41 20 24  |A #$86... .STA $|
000009d0  44 30 31 38 00 e3 11 22  0d 4c 44 41 20 23 24 30  |D018...".LDA #$0|
000009e0  30 00 f1 11 25 0d 53 54  41 20 24 44 30 30 30 00  |0...%.STA $D000.|
000009f0  fe 11 26 0d 4c 44 41 20  23 24 30 42 00 0c 12 28  |..&.LDA #$0B...(|
00000a00  0d 53 54 41 20 24 44 30  30 31 00 19 12 2d 0d 4c  |.STA $D001...-.L|
00000a10  44 41 20 23 24 31 30 00  27 12 2e 0d 53 54 41 20  |DA #$10.'...STA |
00000a20  24 44 30 30 38 00 34 12  2f 0d 4c 44 41 20 23 24  |$D008.4./.LDA #$|
00000a30  33 41 00 42 12 30 0d 53  54 41 20 24 44 30 30 39  |3A.B.0.STA $D009|
00000a40  00 4f 12 31 0d 4c 44 41  20 23 24 31 30 00 5d 12  |.O.1.LDA #$10.].|
00000a50  32 0d 53 54 41 20 24 44  30 31 30 00 6a 12 33 0d  |2.STA $D010.j.3.|
00000a60  4c 44 41 20 23 24 30 31  00 78 12 34 0d 53 54 41  |LDA #$01.x.4.STA|
00000a70  20 24 44 30 32 39 00 86  12 35 0d 53 54 41 20 24  | $D029...5.STA $|
00000a80  44 30 32 42 00 93 12 36  0d 4c 44 41 20 23 24 30  |D02B...6.LDA #$0|
00000a90  30 00 a1 12 37 0d 53 54  41 20 24 44 30 32 41 00  |0...7.STA $D02A.|
00000aa0  af 12 39 0d 53 54 41 20  53 43 48 41 52 00 bc 12  |..9.STA SCHAR...|
00000ab0  3c 0d 4c 44 41 20 23 24  30 31 00 c9 12 3d 0d 4c  |<.LDA #$01...=.L|
00000ac0  44 58 20 23 24 30 38 00  d1 12 3e 0d 54 41 59 00  |DX #$08...>.TAY.|
00000ad0  df 12 48 0d 4a 53 52 20  24 46 46 42 41 00 ec 12  |..H.JSR $FFBA...|
00000ae0  52 0d 4c 44 41 20 23 24  30 43 00 fd 12 5c 0d 4c  |R.LDA #$0C...\.L|
00000af0  44 58 20 23 b3 45 47 52  54 58 54 00 0e 13 66 0d  |DX #.EGRTXT...f.|
00000b00  4c 44 59 20 23 b1 45 47  52 54 58 54 00 1c 13 7a  |LDY #.EGRTXT...z|
00000b10  0d 4a 53 52 20 24 46 46  42 44 00 29 13 84 0d 4c  |.JSR $FFBD.)...L|
00000b20  44 41 20 23 24 30 30 00  37 13 8e 0d 4a 53 52 20  |DA #$00.7...JSR |
00000b30  24 46 46 44 35 00 44 13  8f 0d 4c 44 41 20 23 24  |$FFD5.D...LDA #$|
00000b40  30 31 00 51 13 90 0d 4c  44 58 20 23 24 30 38 00  |01.Q...LDX #$08.|
00000b50  59 13 91 0d 54 41 59 00  67 13 92 0d 4a 53 52 20  |Y...TAY.g...JSR |
00000b60  24 46 46 42 41 00 74 13  93 0d 4c 44 41 20 23 24  |$FFBA.t...LDA #$|
00000b70  30 38 00 84 13 94 0d 4c  44 58 20 23 b3 45 43 54  |08.....LDX #.ECT|
00000b80  58 54 00 94 13 95 0d 4c  44 59 20 23 b1 45 43 54  |XT.....LDY #.ECT|
00000b90  58 54 00 a2 13 96 0d 4a  53 52 20 24 46 46 42 44  |XT.....JSR $FFBD|
00000ba0  00 af 13 97 0d 4c 44 41  20 23 24 30 30 00 bd 13  |.....LDA #$00...|
00000bb0  98 0d 4a 53 52 20 24 46  46 44 35 00 ca 13 99 0d  |..JSR $FFD5.....|
00000bc0  4c 44 41 20 23 24 39 42  00 d8 13 9a 0d 53 54 41  |LDA #$9B.....STA|
00000bd0  20 24 44 30 31 31 00 e5  13 9b 0d 4c 44 41 20 23  | $D011.....LDA #|
00000be0  24 30 30 00 f3 13 9d 0d  53 54 41 20 42 55 54 4e  |$00.....STA BUTN|
00000bf0  4f 00 00 14 9f 0d 4c 44  41 20 23 24 39 32 00 0e  |O.....LDA #$92..|
00000c00  14 a2 0d 53 54 41 20 24  36 33 46 43 00 16 14 ac  |...STA $63FC....|
00000c10  0d 53 45 49 00 23 14 b6  0d 4c 44 41 20 23 24 30  |.SEI.#...LDA #$0|
00000c20  30 00 31 14 c0 0d 53 54  41 20 24 30 33 31 34 00  |0.1...STA $0314.|
00000c30  3e 14 ca 0d 4c 44 41 20  23 24 43 30 00 4c 14 d4  |>...LDA #$C0.L..|
00000c40  0d 53 54 41 20 24 30 33  31 35 00 54 14 de 0d 43  |.STA $0315.T...C|
00000c50  4c 49 00 61 14 e8 0d 4c  44 41 20 23 24 30 30 00  |LI.a...LDA #$00.|
00000c60  6c 14 f2 0d 53 54 41 20  58 50 00 79 14 fc 0d 53  |l...STA XP.y...S|
00000c70  54 41 20 48 4f 55 52 00  86 14 06 0e 4c 44 41 20  |TA HOUR.....LDA |
00000c80  23 24 38 30 00 91 14 10  0e 53 54 41 20 59 50 00  |#$80.....STA YP.|
00000c90  9e 14 1a 0e 4c 44 41 20  23 24 30 31 00 aa 14 24  |....LDA #$01...$|
00000ca0  0e 53 54 41 20 58 50 42  00 b7 14 25 0e 4c 44 41  |.STA XPB...%.LDA|
00000cb0  20 23 24 31 43 00 c5 14  26 0e 53 54 41 20 24 44  | #$1C...&.STA $D|
00000cc0  30 31 35 00 d2 14 27 0e  4a 53 52 20 4c 45 46 54  |015...'.JSR LEFT|
00000cd0  00 df 14 28 0e 4c 44 41  20 23 24 30 30 00 ed 14  |...(.LDA #$00...|
00000ce0  29 0e 53 54 41 20 24 44  30 30 34 00 fb 14 2a 0e  |).STA $D004...*.|
00000cf0  53 54 41 20 24 44 30 30  36 00 08 15 2b 0e 4c 44  |STA $D006...+.LD|
00000d00  41 20 23 24 44 39 00 16  15 2c 0e 53 54 41 20 24  |A #$D9...,.STA $|
00000d10  44 30 30 35 00 24 15 2d  0e 53 54 41 20 24 44 30  |D005.$.-.STA $D0|
00000d20  30 37 00 31 15 2e 0e 4c  44 41 20 23 24 39 35 00  |07.1...LDA #$95.|
00000d30  3f 15 30 0e 53 54 41 20  24 36 33 46 42 00 4c 15  |?.0.STA $63FB.L.|
00000d40  32 0e 4c 44 41 20 23 24  30 38 00 5a 15 33 0e 53  |2.LDA #$08.Z.3.S|
00000d50  54 41 20 24 44 30 31 43  00 67 15 34 0e 4c 44 41  |TA $D01C.g.4.LDA|
00000d60  20 23 24 31 38 00 75 15  35 0e 53 54 41 20 24 44  | #$18.u.5.STA $D|
00000d70  30 31 36 00 8b 15 37 0e  42 55 54 30 20 4a 53 52  |016...7.BUT0 JSR|
00000d80  20 42 55 54 43 48 45 43  4b 00 98 15 38 0e 4a 4d  | BUTCHECK...8.JM|
00000d90  50 20 42 55 54 30 00 b6  15 42 0e 45 47 52 54 58  |P BUT0...B.EGRTX|
00000da0  54 20 54 58 54 20 22 45  44 49 54 47 52 41 50 48  |T TXT "EDITGRAPH|
00000db0  49 43 53 22 00 cf 15 44  0e 45 43 54 58 54 20 54  |ICS"...D.ECTXT T|
00000dc0  58 54 20 22 45 44 49 54  43 4f 4c 53 22 00 e2 15  |XT "EDITCOLS"...|
00000dd0  47 0e 42 43 51 55 20 4a  4d 50 20 53 4c 45 43 54  |G.BCQU JMP SLECT|
00000de0  00 f0 15 49 0e 42 43 4e  43 51 20 52 54 53 00 07  |...I.BCNCQ RTS..|
00000df0  16 4c 0e 42 55 54 43 48  45 43 4b 20 4c 44 41 20  |.L.BUTCHECK LDA |
00000e00  43 4c 49 43 4b 00 15 16  56 0e 42 45 51 20 42 43  |CLICK...V.BEQ BC|
00000e10  4e 43 51 00 20 16 60 0e  4c 44 41 20 59 50 00 2d  |NCQ. .`.LDA YP.-|
00000e20  16 62 0e 43 4d 50 20 23  24 44 39 00 3a 16 64 0e  |.b.CMP #$D9.:.d.|
00000e30  42 43 43 20 42 43 51 55  00 46 16 65 0e 4c 44 41  |BCC BCQU.F.e.LDA|
00000e40  20 58 50 42 00 53 16 66  0e 42 4e 45 20 58 42 53  | XPB.S.f.BNE XBS|
00000e50  52 00 5e 16 67 0e 4c 44  41 20 58 50 00 6b 16 68  |R.^.g.LDA XP.k.h|
00000e60  0e 43 4d 50 20 23 24 32  38 00 78 16 69 0e 42 43  |.CMP #$28.x.i.BC|
00000e70  43 20 42 43 51 55 00 86  16 6c 0e 4c 44 41 20 24  |C BCQU...l.LDA $|
00000e80  44 30 31 30 00 91 16 6e  0e af 20 23 24 46 33 00  |D010...n.. #$F3.|
00000e90  9f 16 70 0e 53 54 41 20  24 44 30 31 30 00 aa 16  |..p.STA $D010...|
00000ea0  72 0e 4c 44 41 20 58 50  00 b7 16 74 0e 43 4d 50  |r.LDA XP...t.CMP|
00000eb0  20 23 24 32 38 00 c4 16  7e 0e 42 43 43 20 42 43  | #$28...~.BCC BC|
00000ec0  51 55 00 d1 16 92 0e 4a  4d 50 20 42 43 4f 4b 00  |QU.....JMP BCOK.|
00000ed0  e1 16 9c 0e 58 42 53 52  20 4c 44 41 20 58 50 00  |....XBSR LDA XP.|
00000ee0  ee 16 a6 0e 43 4d 50 20  23 24 34 34 00 fb 16 b0  |....CMP #$44....|
00000ef0  0e 42 43 53 20 42 43 51  55 00 09 17 b1 0e 4c 44  |.BCS BCQU.....LD|
00000f00  41 20 24 44 30 31 30 00  15 17 b2 0e b0 41 20 23  |A $D010......A #|
00000f10  24 30 43 00 23 17 b3 0e  53 54 41 20 24 44 30 31  |$0C.#...STA $D01|
00000f20  30 00 33 17 ba 0e 42 43  4f 4b 20 4c 44 41 20 58  |0.3...BCOK LDA X|
00000f30  50 00 3f 17 bc 0e 4c 44  58 20 58 50 42 00 4c 17  |P.?...LDX XPB.L.|
00000f40  bf 0e 42 4e 45 20 42 43  54 43 00 54 17 c4 0e 53  |..BNE BCTC.T...S|
00000f50  45 43 00 61 17 ce 0e 53  42 43 20 23 24 32 38 00  |EC.a...SBC #$28.|
00000f60  73 17 d8 0e 42 43 54 43  20 4c 44 58 20 23 24 46  |s...BCTC LDX #$F|
00000f70  46 00 81 17 e2 0e 42 43  4c 50 41 20 49 4e 58 00  |F.....BCLPA INX.|
00000f80  89 17 ec 0e 53 45 43 00  96 17 f6 0e 53 42 43 20  |....SEC.....SBC |
00000f90  23 24 31 38 00 a3 17 00  0f 43 4d 50 20 23 24 45  |#$18.....CMP #$E|
00000fa0  38 00 b1 17 0a 0f 42 43  43 20 42 43 4c 50 41 00  |8.....BCC BCLPA.|
00000fb0  b9 17 14 0f 54 58 41 00  c5 17 1e 0f 4c 44 59 20  |....TXA.....LDY |
00000fc0  58 50 42 00 d1 17 28 0f  42 45 51 20 4e 41 4f 00  |XPB...(.BEQ NAO.|
00000fd0  d9 17 32 0f 43 4c 43 00  e6 17 3c 0f 41 44 43 20  |..2.CLC...<.ADC |
00000fe0  23 24 30 39 00 f8 17 46  0f 4e 41 4f 20 53 54 41  |#$09...F.NAO STA|
00000ff0  20 42 55 54 4e 4f 00 02  18 50 0f 41 53 4c 20 41  | BUTNO...P.ASL A|
00001000  00 0c 18 5a 0f 41 53 4c  20 41 00 16 18 64 0f 41  |...Z.ASL A...d.A|
00001010  53 4c 20 41 00 22 18 6e  0f 53 54 41 20 24 30 32  |SL A.".n.STA $02|
00001020  00 2a 18 78 0f 43 4c 43  00 36 18 82 0f 41 44 43  |.*.x.CLC.6...ADC|
00001030  20 24 30 32 00 42 18 8c  0f 41 44 43 20 24 30 32  | $02.B...ADC $02|
00001040  00 4f 18 91 0f 41 44 43  20 23 24 32 38 00 5d 18  |.O...ADC #$28.].|
00001050  96 0f 53 54 41 20 24 44  30 30 34 00 6b 18 a0 0f  |..STA $D004.k...|
00001060  53 54 41 20 24 44 30 30  36 00 78 18 aa 0f 4c 44  |STA $D006.x...LD|
00001070  41 20 23 24 39 36 00 80  18 ac 0f 43 4c 43 00 8e  |A #$96.....CLC..|
00001080  18 b0 0f 41 44 43 20 42  55 54 4e 4f 00 9c 18 b4  |...ADC BUTNO....|
00001090  0f 53 54 41 20 24 36 33  46 41 00 a4 18 be 0f 50  |.STA $63FA.....P|
000010a0  4c 41 00 ac 18 c8 0f 50  4c 41 00 b9 18 d2 0f 4c  |LA.....PLA.....L|
000010b0  44 41 20 23 24 43 46 00  c6 18 dc 0f 53 54 41 20  |DA #$CF.....STA |
000010c0  56 45 aa 32 00 d4 18 e6  0f 4c 44 41 20 42 55 54  |VE.2.....LDA BUT|
000010d0  4e 4f 00 de 18 f0 0f 41  53 4c 20 41 00 e6 18 f3  |NO.....ASL A....|
000010e0  0f 43 4c 43 00 f3 18 f6  0f 41 44 43 20 23 24 38  |.CLC.....ADC #$8|
000010f0  30 00 00 19 fa 0f 53 54  41 20 56 45 aa 31 00 0e  |0.....STA VE.1..|
00001100  19 fc 0f 4c 44 41 20 23  b1 56 45 43 00 16 19 fe  |...LDA #.VEC....|
00001110  0f 50 48 41 00 26 19 00  10 4c 44 41 20 23 b3 56  |.PHA.&...LDA #.V|
00001120  45 43 ab 31 00 2e 19 02  10 50 48 41 00 41 19 04  |EC.1.....PHA.A..|
00001130  10 56 45 20 4a 4d 50 20  28 24 30 30 30 30 29 00  |.VE JMP ($0000).|
00001140  52 19 0e 10 56 45 43 20  4c 44 41 20 56 45 aa 31  |R...VEC LDA VE.1|
00001150  00 5a 19 18 10 43 4c 43  00 67 19 22 10 41 44 43  |.Z...CLC.g.".ADC|
00001160  20 23 24 32 30 00 74 19  2c 10 53 54 41 20 50 48  | #$20.t.,.STA PH|
00001170  aa 31 00 81 19 36 10 4c  44 41 20 23 24 43 46 00  |.1...6.LDA #$CF.|
00001180  8e 19 40 10 53 54 41 20  50 48 aa 32 00 a1 19 4a  |..@.STA PH.2...J|
00001190  10 50 48 20 4a 4d 50 20  28 24 30 30 30 30 29 00  |.PH JMP ($0000).|
000011a0  b0 19 54 10 53 4c 45 43  54 51 20 52 54 53 00 c2  |..T.SLECTQ RTS..|
000011b0  19 5e 10 53 4c 45 43 54  20 4c 44 41 20 58 50 42  |.^.SLECT LDA XPB|
000011c0  00 d1 19 68 10 42 45 51  20 53 4c 45 43 54 51 00  |...h.BEQ SLECTQ.|
000011d0  dc 19 72 10 4c 44 41 20  58 50 00 e9 19 7c 10 43  |..r.LDA XP...|.C|
000011e0  4d 50 20 23 24 31 30 00  f8 19 86 10 42 43 43 20  |MP #$10.....BCC |
000011f0  53 4c 45 43 54 51 00 05  1a 90 10 43 4d 50 20 23  |SLECTQ.....CMP #|
00001200  24 35 30 00 14 1a 9a 10  42 43 53 20 53 4c 45 43  |$50.....BCS SLEC|
00001210  54 51 00 1f 1a a4 10 4c  44 41 20 59 50 00 2c 1a  |TQ.....LDA YP.,.|
00001220  ae 10 43 4d 50 20 23 24  33 41 00 3b 1a b8 10 42  |..CMP #$3A.;...B|
00001230  43 43 20 53 4c 45 43 54  51 00 48 1a c2 10 43 4d  |CC SLECTQ.H...CM|
00001240  50 20 23 24 43 41 00 57  1a cc 10 42 43 53 20 53  |P #$CA.W...BCS S|
00001250  4c 45 43 54 51 00 62 1a  d6 10 4c 44 41 20 58 50  |LECTQ.b...LDA XP|
00001260  00 6d 1a e0 10 af 20 23  24 46 38 00 75 1a ea 10  |.m.... #$F8.u...|
00001270  54 41 58 00 80 1a f4 10  4c 44 41 20 59 50 00 8b  |TAX.....LDA YP..|
00001280  1a fe 10 af 20 23 24 46  38 00 97 1a 00 11 b0 41  |.... #$F8......A|
00001290  20 23 24 30 32 00 9f 1a  08 11 54 41 59 00 ac 1a  | #$02.....TAY...|
000012a0  12 11 43 4d 50 20 23 24  42 41 00 bb 1a 1c 11 42  |..CMP #$BA.....B|
000012b0  45 51 20 53 4c 45 43 54  51 00 c9 1a 26 11 42 43  |EQ SLECTQ...&.BC|
000012c0  53 20 53 4c 43 4e 54 00  d6 1a 30 11 43 50 58 20  |S SLCNT...0.CPX |
000012d0  23 24 33 30 00 e5 1a 3a  11 42 45 51 20 53 4c 45  |#$30...:.BEQ SLE|
000012e0  43 54 51 00 f9 1a 44 11  53 4c 43 4e 54 20 53 54  |CTQ...D.SLCNT ST|
000012f0  58 20 24 44 30 30 38 00  07 1b 4e 11 53 54 59 20  |X $D008...N.STY |
00001300  24 44 30 30 39 00 14 1b  58 11 43 50 59 20 23 24  |$D009...X.CPY #$|
00001310  42 41 00 22 1b 62 11 42  43 53 20 43 41 4c 43 32  |BA.".b.BCS CALC2|
00001320  00 2a 1b 6c 11 54 58 41  00 37 1b 76 11 43 4d 50  |.*.l.TXA.7.v.CMP|
00001330  20 23 24 33 30 00 45 1b  80 11 42 43 43 20 43 41  | #$30.E...BCC CA|
00001340  4c 43 31 00 4d 1b 8a 11  53 45 43 00 5a 1b 94 11  |LC1.M...SEC.Z...|
00001350  53 42 43 20 23 24 30 38  00 68 1b 9e 11 43 41 4c  |SBC #$08.h...CAL|
00001360  43 31 20 53 45 43 00 75  1b a8 11 53 42 43 20 23  |C1 SEC.u...SBC #|
00001370  24 31 30 00 7f 1b ad 11  41 53 4c 20 41 00 8b 1b  |$10.....ASL A...|
00001380  b2 11 53 54 41 20 24 30  32 00 93 1b bc 11 54 59  |..STA $02.....TY|
00001390  41 00 9b 1b c6 11 53 45  43 00 a8 1b d0 11 53 42  |A.....SEC.....SB|
000013a0  43 20 23 24 33 41 00 b2  1b da 11 4c 53 52 20 41  |C #$3A.....LSR A|
000013b0  00 bc 1b e4 11 4c 53 52  20 41 00 c6 1b ee 11 4c  |.....LSR A.....L|
000013c0  53 52 20 41 00 ce 1b f8  11 43 4c 43 00 da 1b 02  |SR A.....CLC....|
000013d0  12 41 44 43 20 24 30 32  00 e8 1b 0c 12 53 54 41  |.ADC $02.....STA|
000013e0  20 53 43 48 41 52 00 f0  1b 16 12 52 54 53 00 fe  | SCHAR.....RTS..|
000013f0  1b 20 12 43 41 4c 43 32  20 54 58 41 00 06 1c 2a  |. .CALC2 TXA...*|
00001400  12 53 45 43 00 13 1c 34  12 53 42 43 20 23 24 31  |.SEC...4.SBC #$1|
00001410  30 00 1d 1c 3e 12 4c 53  52 20 41 00 27 1c 48 12  |0...>.LSR A.'.H.|
00001420  4c 53 52 20 41 00 31 1c  52 12 4c 53 52 20 41 00  |LSR A.1.R.LSR A.|
00001430  3e 1c 5c 12 43 50 59 20  23 24 43 32 00 4d 1c 66  |>.\.CPY #$C2.M.f|
00001440  12 42 45 51 20 43 41 4c  43 32 43 00 55 1c 70 12  |.BEQ CALC2C.U.p.|
00001450  43 4c 43 00 62 1c 7a 12  41 44 43 20 23 24 30 38  |CLC.b.z.ADC #$08|
00001460  00 71 1c 84 12 43 41 4c  43 32 43 20 43 4c 43 00  |.q...CALC2C CLC.|
00001470  7e 1c 8e 12 41 44 43 20  23 24 37 30 00 8c 1c 98  |~...ADC #$70....|
00001480  12 53 54 41 20 53 43 48  41 52 00 94 1c a2 12 52  |.STA SCHAR.....R|
00001490  54 53 00 a6 1c c0 12 9c  53 43 52 20 4c 44 41 20  |TS......SCR LDA |
000014a0  23 24 35 32 00 b2 1c ca  12 53 54 41 20 24 46 42  |#$52.....STA $FB|
000014b0  00 bf 1c d4 12 4c 44 41  20 23 24 44 38 00 cb 1c  |.....LDA #$D8...|
000014c0  de 12 53 54 41 20 24 46  43 00 dd 1c e8 12 4c 4f  |..STA $FC.....LO|
000014d0  50 41 20 4c 44 41 20 23  24 30 30 00 ea 1c f2 12  |PA LDA #$00.....|
000014e0  4c 44 59 20 23 24 30 30  00 ff 1c fc 12 4c 4f 50  |LDY #$00.....LOP|
000014f0  42 20 53 54 41 20 28 24  46 42 29 2c 59 00 07 1d  |B STA ($FB),Y...|
00001500  06 13 49 4e 59 00 14 1d  10 13 43 50 59 20 23 24  |..INY.....CPY #$|
00001510  31 41 00 21 1d 1a 13 42  4e 45 20 4c 4f 50 42 00  |1A.!...BNE LOPB.|
00001520  2d 1d 24 13 4c 44 41 20  24 46 42 00 35 1d 2e 13  |-.$.LDA $FB.5...|
00001530  43 4c 43 00 42 1d 38 13  41 44 43 20 23 24 32 38  |CLC.B.8.ADC #$28|
00001540  00 4e 1d 42 13 53 54 41  20 24 46 42 00 5b 1d 4c  |.N.B.STA $FB.[.L|
00001550  13 43 4d 50 20 23 24 44  32 00 6a 1d 56 13 42 45  |.CMP #$D2.j.V.BE|
00001560  51 20 51 55 49 54 43 53  00 77 1d 60 13 43 4d 50  |Q QUITCS.w.`.CMP|
00001570  20 23 24 32 38 00 84 1d  6a 13 42 43 53 20 4c 4f  | #$28...j.BCS LO|
00001580  50 41 00 90 1d 74 13 49  4e 43 20 24 46 43 00 9d  |PA...t.INC $FC..|
00001590  1d 7e 13 4a 4d 50 20 4c  4f 50 41 00 ac 1d 88 13  |.~.JMP LOPA.....|
000015a0  51 55 49 54 43 53 20 52  54 53 00 c1 1d 92 13 44  |QUITCS RTS.....D|
000015b0  49 53 50 20 4a 53 52 20  53 43 52 44 49 53 50 00  |ISP JSR SCRDISP.|
000015c0  cf 1d 9c 13 4a 4d 50 20  43 d5 49 53 50 00 e4 1d  |....JMP C.ISP...|
000015d0  a6 13 53 43 52 44 49 53  50 20 4c 44 41 20 23 24  |..SCRDISP LDA #$|
000015e0  35 32 00 f0 1d b0 13 53  54 41 20 24 46 42 00 fd  |52.....STA $FB..|
000015f0  1d ba 13 4c 44 41 20 23  24 36 30 00 09 1e c4 13  |...LDA #$60.....|
00001600  53 54 41 20 24 46 43 00  16 1e ce 13 4c 44 58 20  |STA $FC.....LDX |
00001610  23 24 30 30 00 29 1e d8  13 4c 4f 50 41 44 20 4c  |#$00.)...LOPAD L|
00001620  44 59 20 23 24 30 30 00  3d 1e e2 13 4c 4f 50 42  |DY #$00.=...LOPB|
00001630  44 20 4a 53 52 20 a1 43  48 41 52 00 49 1e ec 13  |D JSR .CHAR.I...|
00001640  b0 41 20 23 24 38 30 00  59 1e f6 13 53 54 41 20  |.A #$80.Y...STA |
00001650  28 24 46 42 29 2c 59 00  61 1e 00 14 49 4e 59 00  |($FB),Y.a...INY.|
00001660  6e 1e 0a 14 43 50 59 20  23 24 31 41 00 7c 1e 14  |n...CPY #$1A.|..|
00001670  14 42 4e 45 20 4c 4f 50  42 44 00 88 1e 1e 14 4c  |.BNE LOPBD.....L|
00001680  44 41 20 24 46 42 00 90  1e 28 14 43 4c 43 00 9d  |DA $FB...(.CLC..|
00001690  1e 32 14 41 44 43 20 23  24 32 38 00 a9 1e 3c 14  |.2.ADC #$28...<.|
000016a0  53 54 41 20 24 46 42 00  b1 1e 46 14 49 4e 58 00  |STA $FB...F.INX.|
000016b0  be 1e 50 14 43 4d 50 20  23 24 44 32 00 cd 1e 5a  |..P.CMP #$D2...Z|
000016c0  14 42 45 51 20 51 55 49  54 43 53 00 da 1e 64 14  |.BEQ QUITCS...d.|
000016d0  43 4d 50 20 23 24 32 38  00 e8 1e 6e 14 42 43 53  |CMP #$28...n.BCS|
000016e0  20 4c 4f 50 41 44 00 f4  1e 78 14 49 4e 43 20 24  | LOPAD...x.INC $|
000016f0  46 43 00 02 1f 82 14 4a  4d 50 20 4c 4f 50 41 44  |FC.....JMP LOPAD|
00001700  00 15 1f 8c 14 43 d5 49  53 50 20 4c 44 41 20 23  |.....C.ISP LDA #|
00001710  24 35 32 00 21 1f 96 14  53 54 41 20 24 46 42 00  |$52.!...STA $FB.|
00001720  2e 1f a0 14 4c 44 41 20  23 24 44 38 00 3a 1f aa  |....LDA #$D8.:..|
00001730  14 53 54 41 20 24 46 43  00 47 1f b4 14 4c 44 58  |.STA $FC.G...LDX|
00001740  20 23 24 30 30 00 5a 1f  be 14 4c 4f 50 43 44 20  | #$00.Z...LOPCD |
00001750  4c 44 59 20 23 24 30 30  00 68 1f c8 14 4c 4f 50  |LDY #$00.h...LOP|
00001760  44 44 20 54 58 41 00 70  1f d2 14 50 48 41 00 7e  |DD TXA.p...PHA.~|
00001770  1f dc 14 4a 53 52 20 a1  43 48 41 52 00 86 1f e6  |...JSR .CHAR....|
00001780  14 54 41 58 00 96 1f f0  14 4c 44 41 20 24 45 30  |.TAX.....LDA $E0|
00001790  30 30 2c 58 00 a6 1f fa  14 53 54 41 20 28 24 46  |00,X.....STA ($F|
000017a0  42 29 2c 59 00 ae 1f 04  15 50 4c 41 00 b6 1f 0e  |B),Y.....PLA....|
000017b0  15 54 41 58 00 be 1f 18  15 49 4e 59 00 cb 1f 22  |.TAX.....INY..."|
000017c0  15 43 50 59 20 23 24 31  41 00 d9 1f 2c 15 42 4e  |.CPY #$1A...,.BN|
000017d0  45 20 4c 4f 50 44 44 00  e5 1f 36 15 4c 44 41 20  |E LOPDD...6.LDA |
000017e0  24 46 42 00 ed 1f 40 15  43 4c 43 00 fa 1f 4a 15  |$FB...@.CLC...J.|
000017f0  41 44 43 20 23 24 32 38  00 06 20 54 15 53 54 41  |ADC #$28.. T.STA|
00001800  20 24 46 42 00 0e 20 5e  15 49 4e 58 00 1b 20 68  | $FB.. ^.INX.. h|
00001810  15 43 4d 50 20 23 24 44  32 00 2a 20 72 15 42 45  |.CMP #$D2.* r.BE|
00001820  51 20 51 55 49 54 43 53  00 37 20 7c 15 43 4d 50  |Q QUITCS.7 |.CMP|
00001830  20 23 24 32 38 00 45 20  86 15 42 43 53 20 4c 4f  | #$28.E ..BCS LO|
00001840  50 43 44 00 51 20 90 15  49 4e 43 20 24 46 43 00  |PCD.Q ..INC $FC.|
00001850  5f 20 9a 15 4a 4d 50 20  4c 4f 50 43 44 00 71 20  |_ ..JMP LOPCD.q |
00001860  a4 15 a1 43 48 41 52 20  4c 44 41 20 58 53 50 00  |...CHAR LDA XSP.|
00001870  7d 20 ae 15 53 54 41 20  24 46 42 00 85 20 b8 15  |} ..STA $FB.. ..|
00001880  54 58 41 00 8d 20 c2 15  43 4c 43 00 99 20 cc 15  |TXA.. ..CLC.. ..|
00001890  41 44 43 20 59 53 50 00  a5 20 d6 15 53 54 41 20  |ADC YSP.. ..STA |
000018a0  24 46 43 00 b5 20 e0 15  4c 44 41 20 28 24 46 42  |$FC.. ..LDA ($FB|
000018b0  29 2c 59 00 bd 20 ea 15  52 54 53 00 c9 20 10 27  |),Y.. ..RTS.. .'|
000018c0  42 49 31 20 52 54 53 00  d5 20 11 27 42 49 32 20  |BI1 RTS.. .'BI2 |
000018d0  52 54 53 00 e1 20 12 27  42 49 33 20 52 54 53 00  |RTS.. .'BI3 RTS.|
000018e0  ed 20 13 27 42 49 34 20  52 54 53 00 f9 20 14 27  |. .'BI4 RTS.. .'|
000018f0  42 49 35 20 52 54 53 00  05 21 15 27 42 49 36 20  |BI5 RTS..!.'BI6 |
00001900  52 54 53 00 11 21 16 27  42 49 37 20 52 54 53 00  |RTS..!.'BI7 RTS.|
00001910  1d 21 17 27 42 49 38 20  52 54 53 00 29 21 18 27  |.!.'BI8 RTS.)!.'|
00001920  42 49 39 20 52 54 53 00  35 21 19 27 42 49 41 20  |BI9 RTS.5!.'BIA |
00001930  52 54 53 00 41 21 1a 27  42 49 42 20 52 54 53 00  |RTS.A!.'BIB RTS.|
00001940  4d 21 1b 27 42 49 43 20  52 54 53 00 59 21 24 27  |M!.'BIC RTS.Y!$'|
00001950  42 54 31 20 4e 4f 50 00  65 21 25 27 42 54 32 20  |BT1 NOP.e!%'BT2 |
00001960  4e 4f 50 00 71 21 26 27  42 54 33 20 4e 4f 50 00  |NOP.q!&'BT3 NOP.|
00001970  7d 21 27 27 42 54 34 20  4e 4f 50 00 89 21 28 27  |}!''BT4 NOP..!('|
00001980  42 54 35 20 4e 4f 50 00  95 21 29 27 42 54 36 20  |BT5 NOP..!)'BT6 |
00001990  4e 4f 50 00 a1 21 2a 27  42 54 37 20 4e 4f 50 00  |NOP..!*'BT7 NOP.|
000019a0  ad 21 2b 27 42 54 38 20  4e 4f 50 00 b9 21 2c 27  |.!+'BT8 NOP..!,'|
000019b0  42 54 39 20 4e 4f 50 00  c5 21 2d 27 42 54 41 20  |BT9 NOP..!-'BTA |
000019c0  4e 4f 50 00 d1 21 2e 27  42 54 42 20 4e 4f 50 00  |NOP..!.'BTB NOP.|
000019d0  dd 21 2f 27 42 54 43 20  4e 4f 50 00 ea 21 30 27  |.!/'BTC NOP..!0'|
000019e0  4a 4d 50 20 42 55 54 30  00 fc 21 18 f6 3b 20 56  |JMP BUT0..!..; V|
000019f0  45 43 a4 52 20 54 41 42  4c 45 00 08 22 22 f6 ac  |EC.R TABLE..""..|
00001a00  b2 24 43 46 38 30 00 2e  22 2c f6 54 58 54 20 b3  |.$CF80..",.TXT .|
00001a10  42 49 31 2c b1 42 49 31  2c b3 42 49 32 2c b1 42  |BI1,.BI1,.BI2,.B|
00001a20  49 32 2c b3 42 49 33 2c  b1 42 49 33 00 54 22 36  |I2,.BI3,.BI3.T"6|
00001a30  f6 54 58 54 20 b3 42 49  34 2c b1 42 49 34 2c b3  |.TXT .BI4,.BI4,.|
00001a40  42 49 35 2c b1 42 49 35  2c b3 42 49 36 2c b1 42  |BI5,.BI5,.BI6,.B|
00001a50  49 36 00 7a 22 40 f6 54  58 54 20 b3 42 49 37 2c  |I6.z"@.TXT .BI7,|
00001a60  b1 42 49 37 2c b3 42 49  38 2c b1 42 49 38 2c b3  |.BI7,.BI8,.BI8,.|
00001a70  42 49 39 2c b1 42 49 39  00 a0 22 4a f6 54 58 54  |BI9,.BI9.."J.TXT|
00001a80  20 b3 42 49 41 2c b1 42  49 41 2c b3 42 49 42 2c  | .BIA,.BIA,.BIB,|
00001a90  b1 42 49 42 2c b3 42 49  43 2c b1 42 49 43 00 a6  |.BIB,.BIC,.BIC..|
00001aa0  22 54 f6 3b 00 b2 22 5e  f6 ac b2 24 43 46 41 30  |"T.;.."^...$CFA0|
00001ab0  00 d8 22 68 f6 54 58 54  20 b3 42 54 31 2c b1 42  |.."h.TXT .BT1,.B|
00001ac0  54 31 2c b3 42 54 32 2c  b1 42 54 32 2c b3 42 54  |T1,.BT2,.BT2,.BT|
00001ad0  33 2c b1 42 54 33 00 fe  22 72 f6 54 58 54 20 b3  |3,.BT3.."r.TXT .|
00001ae0  42 54 34 2c b1 42 54 34  2c b3 42 54 35 2c b1 42  |BT4,.BT4,.BT5,.B|
00001af0  54 35 2c b3 42 54 36 2c  b1 42 54 36 00 24 23 7c  |T5,.BT6,.BT6.$#||
00001b00  f6 54 58 54 20 b3 42 54  37 2c b1 42 54 37 2c b3  |.TXT .BT7,.BT7,.|
00001b10  42 54 38 2c b1 42 54 38  2c b3 42 54 39 2c b1 42  |BT8,.BT8,.BT9,.B|
00001b20  54 39 00 4a 23 86 f6 54  58 54 20 b3 42 54 41 2c  |T9.J#..TXT .BTA,|
00001b30  b1 42 54 41 2c b3 42 54  42 2c b1 42 54 42 2c b3  |.BTA,.BTB,.BTB,.|
00001b40  42 54 43 2c b1 42 54 43  00 00 00                 |BTC,.BTC...|
00001b4b

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 18 Aug 2025, 13:06 UTC
Website designed by .