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

edit 1.3.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 1.3.95
Read OK: ✔
File size: 0A65 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 *=$C000
  2000 ;                                               WIMP ROUTINES
  2003 ;
  2006 ; WIMP - MOUSE
  2010 IRQ 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 #$82
  3006 STA $5BF8
  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 #$80
  3190 STA $5BF8
  3200 LDA #$81
  3210 STA $5BF9
  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
  3310 LDA $DD02
  3320 AND #$FE
  3330 ORA #$02
  3340 STA $DD02
  3350 LDA #$86
  3360 STA $D018
  3370 LDA #$01
  3380 LDX #$08
  3390 LDY #$01
  3400 JSR $FFBA
  3410 LDA #$0C
  3420 LDX #<EGRTXT
  3430 LDY #>EGRTXT
  3450 JSR $FFBD
  3460 LDA #$00
  3470 JSR $FFD5
  3480 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
  3630 BUT0 JSR BUTCHECK
  3640 JMP BUT0
  3650 EGRTXT TXT "EDITGRAPHICS"
  3660 BUTCHECK LDA YP



; CRYSTALS OF OLYMPIA/; EDI�R PROGRAM?; 26�5�95 �O�; VARIABLES\�XP�$CF40i�YP�$CF41wXPB�$CF42�CLICK�$CF43�BUTNO�$CF44�$HOUR�$CF45����$C000��;                                               WIMP ROUTINES��;
	�; WIMP � MOUSE	�IRQ LDA $C5*	�CMP #$01:	�BNE C�CHECKH	�STA CLICK]	C�CHECK CMP #$0Ck	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
�� #$02
�BEQ DOWNJ*
�DJC TXA5
�� #$04C
�BEQ LEFTJO
�LJC TXAZ
�� #$08i
�BEQ RIGHTJu
�RJC TXA�
�� #$10�
�E� #$10�
�BEQ CJCH�
�STA CLICK�
�CJCH JMP $EA31�
	LEFTK JSR LEFT�
	JMP LKC�
	RIGHTK JSR RIGHT�
$	JMP RKC	.	UPK JSR UP8	JMP UPKC)B	DOWNK JSR DOWN5L	JMP DKCDV	UPJ JSR UPP`	JMP UJCcj	DOWNJ JSR DOWNot	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 XPB�	BNE FIN%�	CMP #$181
BNE FIN<

INC XPM
FIN JMP �ROL^
RIGHT INC XPi(
LDA XPu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 FIN
�
INC YP%
�
JMP �ROL5
�
DOWN INC YP@
�
LDA YPM
�
CMP #$F8Y
�
BNE FINd
�
DEC YPq
�
JMP �ROL�
�
; WIMP - POINTER�
�
�ROL LDA XP�
CMP #$28�
BCC NSQUP�
CMP #$F8�
"BCS NSQUP�
,LDA XPB�
6BNE NSQUP�
@LDA YP�
JCMP #$42TBCC NSQUP^CMP #$C1'hBCS NSQUP2rLDA XP=|� #$F8K�STA $D000V�LDA YPa�� #$F8m��A #$02{�STA $D001��LDA $D010��� #$FC��STA $D010��LDA #$82��STA $5BF8��LDA $D015��� #$FC���A #$01��STA $D015��LDA #$01�STA $D027�RTS$�NSQUP LDA XP2�STA $D000@�STA $D002K�LDA YPY�STA $D001gSTA $D003uLDA $D010�� #$FC�&LSR A�0CLC�:ADC XPB�DASL A�NCLC�XADC XPB�bSTA $D010�lLDA #$80�vSTA $5BF8��LDA #$81�STA $5BF9�LDA $D015��A #$03(�STA $D0155�LDA #$00C�STA $D027P�LDA #$01^�STA $D028f�RTS}�; STARTUP ROUTINES��LDA $DD02��� #$FE�
�A #$02�
STA $DD02�
LDA #$86� 
STA $D018�*
LDA #$01�4
LDX #$08�>
LDY #$01H
JSR $FFBA
R
LDA #$0C\
LDX #�EGRTXT/f
LDY #�EGRTXT=z
JSR $FFBDJ�
LDA #$00X�
JSR $FFD5e�
LDA #$00s�
STA BUTNO{�
SEI��
LDA #$00��
STA $0314��
LDA #$C0��
STA $0315��
CLI��
LDA #$00��
STA XP��
STA HOUR�LDA #$80�STA YPLDA #$01$STA XPB%.BUT0 JSR BUTCHECK28JMP BUT0PBEGRTXT TXT "EDITGRAPHICS"dLBUTCHECK LDA YP
[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..$c000@.H.G;                                               wimp routines@.H.G;@MI.G; wimp . mouse@]I.Girq lda $c5@*I.Gcmp #$01@:I.Gbne c.check@hI.Gsta click@]IBHc.check cmp #$0c@KILHbeq leftk@.IVHlkc cmp #$17@.I Hbeq rightk@.I*Hrkc cmp #$32@.I4Hbeq upk@.I>Hupkc cmp #$37@.IhHbeq downk@.IrHdkc lda $dc00@.I£Htax@.IFH. #$01@.IPHbeq upj@EJZHujc txa@PJ.H. #$02@.J.Hbeq downj@*J.Hdjc txa@5J.H. #$04@cJ.Hbeq leftj@oJ.Hljc txa@zJ.H. #$08@IJ.Hbeq rightj@UJ.Hrjc txa@.J.H. #$10@.J.He. #$10@.J.Hbeq cjch@.J.Hsta click@.J.Hcjch jmp $ea31@.JFIleftk jsr left@.JPIjmp lkc@.JZIrightk jsr right@.J$Ijmp rkc@IK.Iupk jsr up@VK8Ijmp upkc@)KbIdownk jsr down@5KlIjmp dkc@dKvIupj jsr up@pK.Ijmp ujc@CKJIdownj jsr down@OKTIjmp 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@.K.Ildy #$00@.K.Isty xpb@LL.I.ff ldy xpb@XL.Ibne fin@%L.Icmp #$18@1L@Jbne fin@<LJJinc xp@mLTJfin jmp .rol@.L.Jright inc xp@IL(Jlda xp@UL2Jbne .00@.L<Jldy #$01@.LfJsty xpb@.LpJ.00 ldy xpb@.LzJbeq fin@.LDJcmp #$58@.LNJbne fin@.LXJdec xp@.L.Jjmp .rol@.L.Jup dec yp@.L.Jlda yp@AM.Jcmp #$32@MM.Jbne fin@XM.Jinc yp@%M.Jjmp .rol@5M.Jdown inc yp@@M.Jlda yp@mM.Jcmp #$f8@yM.Jbne fin@DM.Jdec yp@QM.Jjmp .rol@.M.J; wimp - pointer@.M.J.rol lda xp@.MDKcmp #$28@.MNKbcc nsqup@.MXKcmp #$f8@.M"Kbcs nsqup@.M,Klda xpb@.M6Kbne nsqup@.M@Klda yp@.MjKcmp #$42@LNtKbcc nsqup@YN.Kcmp #$c1@'NHKbcs nsqup@2NRKlda xp@=N.K. #$f8@kN.Ksta $d000@vN.Klda yp@AN.K. #$f8@MN.K.a #$02@.N.Ksta $d001@.N.Klda $d010@.N.K. #$fc@.N.Ksta $d010@.N.Klda #$82@.N.Ksta $5bf8@.N.Klda $d015@.N.K. #$fc@.N.K.a #$01@.N.Ksta $d015@.N.Klda #$01@KO.Ksta $d027@SO.Krts@$O.Knsqup lda xp@2O.Ksta $d000@@O.Ksta $d002@kO.Klda yp@yO.Ksta $d001@GOHLsta $d003@UORLlda $d010@.O£L. #$fc@.O&Llsr a@.O0Lclc@.O:Ladc xpb@.OdLasl a@.OnLclc@.OxLadc xpb@.OBLsta $d010@.OLLlda #$80@.OVLsta $5bf8@.O.Llda #$81@@P.Lsta $5bf9@NP.Llda $d015@ZP.L.a #$03@(P.Lsta $d015@5P.Llda #$00@cP.Lsta $d027@pP.Llda #$01@.P.Lsta $d028@FP.Lrts@.P.L; startup routines@.P.Llda $dd02@.P.L. #$fe@.PBM.a #$02@.PLMsta $dd02@.PVMlda #$86@.P Msta $d018@.P*Mlda #$01@.P4Mldx #$08@.P>Mldy #$01@@QhMjsr $ffba@MQrMlda #$0c@.Q£Mldx #.egrtxt@/QFMldy #.egrtxt@=QZMjsr $ffbd@jQ.Mlda #$00@xQ.Mjsr $ffd5@EQ.Mlda #$00@SQ.Msta butno@.Q.Msei@.Q.Mlda #$00@.Q.Msta $0314@.Q.Mlda #$c0@.Q.Msta $0315@.Q.Mcli@.Q.Mlda #$00@.Q.Msta xp@.Q.Msta hour@.QFNlda #$80@.QPNsta yp@CRZNlda #$01@OR$Nsta xpb@%R.Nbut0 jsr butcheck@2R8Njmp but0@pRbNegrtxt txt "editgraphics"@DRlNbutcheck lda yp@@@
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 30 30 30  |CF45.......$C000|
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 ab 20 4d 4f  55 53 45 00 1d 09 da 07  |IMP . MOUSE.....|
00000110  49 52 51 20 4c 44 41 20  24 43 35 00 2a 09 e4 07  |IRQ LDA $C5.*...|
00000120  43 4d 50 20 23 24 30 31  00 3a 09 ee 07 42 4e 45  |CMP #$01.:...BNE|
00000130  20 43 91 43 48 45 43 4b  00 48 09 f8 07 53 54 41  | C.CHECK.H...STA|
00000140  20 43 4c 49 43 4b 00 5d  09 02 08 43 91 43 48 45  | CLICK.]...C.CHE|
00000150  43 4b 20 43 4d 50 20 23  24 30 43 00 6b 09 0c 08  |CK CMP #$0C.k...|
00000160  42 45 51 20 4c 45 46 54  4b 00 7c 09 16 08 4c 4b  |BEQ LEFTK.|...LK|
00000170  43 20 43 4d 50 20 23 24  31 37 00 8b 09 20 08 42  |C CMP #$17... .B|
00000180  45 51 20 52 49 47 48 54  4b 00 9c 09 2a 08 52 4b  |EQ RIGHTK...*.RK|
00000190  43 20 43 4d 50 20 23 24  33 32 00 a8 09 34 08 42  |C CMP #$32...4.B|
000001a0  45 51 20 55 50 4b 00 ba  09 3e 08 55 50 4b 43 20  |EQ UPK...>.UPKC |
000001b0  43 4d 50 20 23 24 33 37  00 c8 09 48 08 42 45 51  |CMP #$37...H.BEQ|
000001c0  20 44 4f 57 4e 4b 00 da  09 52 08 44 4b 43 20 4c  | DOWNK...R.DKC L|
000001d0  44 41 20 24 44 43 30 30  00 e2 09 5c 08 54 41 58  |DA $DC00...\.TAX|
000001e0  00 ed 09 66 08 af 20 23  24 30 31 00 f9 09 70 08  |...f.. #$01...p.|
000001f0  42 45 51 20 55 50 4a 00  05 0a 7a 08 55 4a 43 20  |BEQ UPJ...z.UJC |
00000200  54 58 41 00 10 0a 84 08  af 20 23 24 30 32 00 1e  |TXA...... #$02..|
00000210  0a 8e 08 42 45 51 20 44  4f 57 4e 4a 00 2a 0a 98  |...BEQ DOWNJ.*..|
00000220  08 44 4a 43 20 54 58 41  00 35 0a a2 08 af 20 23  |.DJC TXA.5.... #|
00000230  24 30 34 00 43 0a ac 08  42 45 51 20 4c 45 46 54  |$04.C...BEQ LEFT|
00000240  4a 00 4f 0a b6 08 4c 4a  43 20 54 58 41 00 5a 0a  |J.O...LJC TXA.Z.|
00000250  c0 08 af 20 23 24 30 38  00 69 0a ca 08 42 45 51  |... #$08.i...BEQ|
00000260  20 52 49 47 48 54 4a 00  75 0a d4 08 52 4a 43 20  | RIGHTJ.u...RJC |
00000270  54 58 41 00 80 0a de 08  af 20 23 24 31 30 00 8c  |TXA...... #$10..|
00000280  0a e3 08 45 b0 20 23 24  31 30 00 99 0a e8 08 42  |...E. #$10.....B|
00000290  45 51 20 43 4a 43 48 00  a7 0a f2 08 53 54 41 20  |EQ CJCH.....STA |
000002a0  43 4c 49 43 4b 00 ba 0a  fc 08 43 4a 43 48 20 4a  |CLICK.....CJCH J|
000002b0  4d 50 20 24 45 41 33 31  00 cd 0a 06 09 4c 45 46  |MP $EA31.....LEF|
000002c0  54 4b 20 4a 53 52 20 4c  45 46 54 00 d9 0a 10 09  |TK JSR LEFT.....|
000002d0  4a 4d 50 20 4c 4b 43 00  ee 0a 1a 09 52 49 47 48  |JMP LKC.....RIGH|
000002e0  54 4b 20 4a 53 52 20 52  49 47 48 54 00 fa 0a 24  |TK JSR RIGHT...$|
000002f0  09 4a 4d 50 20 52 4b 43  00 09 0b 2e 09 55 50 4b  |.JMP RKC.....UPK|
00000300  20 4a 53 52 20 55 50 00  16 0b 38 09 4a 4d 50 20  | JSR UP...8.JMP |
00000310  55 50 4b 43 00 29 0b 42  09 44 4f 57 4e 4b 20 4a  |UPKC.).B.DOWNK J|
00000320  53 52 20 44 4f 57 4e 00  35 0b 4c 09 4a 4d 50 20  |SR DOWN.5.L.JMP |
00000330  44 4b 43 00 44 0b 56 09  55 50 4a 20 4a 53 52 20  |DKC.D.V.UPJ JSR |
00000340  55 50 00 50 0b 60 09 4a  4d 50 20 55 4a 43 00 63  |UP.P.`.JMP UJC.c|
00000350  0b 6a 09 44 4f 57 4e 4a  20 4a 53 52 20 44 4f 57  |.j.DOWNJ JSR DOW|
00000360  4e 00 6f 0b 74 09 4a 4d  50 20 44 4a 43 00 82 0b  |N.o.t.JMP DJC...|
00000370  7e 09 4c 45 46 54 4a 20  4a 53 52 20 4c 45 46 54  |~.LEFTJ JSR LEFT|
00000380  00 8e 0b 88 09 4a 4d 50  20 4c 4a 43 00 a3 0b 92  |.....JMP LJC....|
00000390  09 52 49 47 48 54 4a 20  4a 53 52 20 52 49 47 48  |.RIGHTJ JSR RIGH|
000003a0  54 00 af 0b 9c 09 4a 4d  50 20 52 4a 43 00 bf 0b  |T.....JMP RJC...|
000003b0  a6 09 4c 45 46 54 20 44  45 43 20 58 50 00 ca 0b  |..LEFT DEC XP...|
000003c0  b0 09 4c 44 41 20 58 50  00 d7 0b ba 09 43 4d 50  |..LDA XP.....CMP|
000003d0  20 23 24 46 46 00 e3 0b  c4 09 42 4e 45 20 a8 46  | #$FF.....BNE .F|
000003e0  46 00 f0 0b ce 09 4c 44  59 20 23 24 30 30 00 fc  |F.....LDY #$00..|
000003f0  0b d8 09 53 54 59 20 58  50 42 00 0c 0c e2 09 a8  |...STY XPB......|
00000400  46 46 20 4c 44 59 20 58  50 42 00 18 0c ec 09 42  |FF LDY XPB.....B|
00000410  4e 45 20 46 49 4e 00 25  0c f6 09 43 4d 50 20 23  |NE FIN.%...CMP #|
00000420  24 31 38 00 31 0c 00 0a  42 4e 45 20 46 49 4e 00  |$18.1...BNE FIN.|
00000430  3c 0c 0a 0a 49 4e 43 20  58 50 00 4d 0c 14 0a 46  |<...INC XP.M...F|
00000440  49 4e 20 4a 4d 50 20 9a  52 4f 4c 00 5e 0c 1e 0a  |IN JMP .ROL.^...|
00000450  52 49 47 48 54 20 49 4e  43 20 58 50 00 69 0c 28  |RIGHT INC XP.i.(|
00000460  0a 4c 44 41 20 58 50 00  75 0c 32 0a 42 4e 45 20  |.LDA XP.u.2.BNE |
00000470  a8 30 30 00 82 0c 3c 0a  4c 44 59 20 23 24 30 31  |.00...<.LDY #$01|
00000480  00 8e 0c 46 0a 53 54 59  20 58 50 42 00 9e 0c 50  |...F.STY XPB...P|
00000490  0a a8 30 30 20 4c 44 59  20 58 50 42 00 aa 0c 5a  |..00 LDY XPB...Z|
000004a0  0a 42 45 51 20 46 49 4e  00 b7 0c 64 0a 43 4d 50  |.BEQ FIN...d.CMP|
000004b0  20 23 24 35 38 00 c3 0c  6e 0a 42 4e 45 20 46 49  | #$58...n.BNE FI|
000004c0  4e 00 ce 0c 78 0a 44 45  43 20 58 50 00 db 0c 82  |N...x.DEC XP....|
000004d0  0a 4a 4d 50 20 9a 52 4f  4c 00 e9 0c 8c 0a 55 50  |.JMP .ROL.....UP|
000004e0  20 44 45 43 20 59 50 00  f4 0c 91 0a 4c 44 41 20  | DEC YP.....LDA |
000004f0  59 50 00 01 0d 96 0a 43  4d 50 20 23 24 33 32 00  |YP.....CMP #$32.|
00000500  0d 0d 9b 0a 42 4e 45 20  46 49 4e 00 18 0d a0 0a  |....BNE FIN.....|
00000510  49 4e 43 20 59 50 00 25  0d aa 0a 4a 4d 50 20 9a  |INC YP.%...JMP .|
00000520  52 4f 4c 00 35 0d b4 0a  44 4f 57 4e 20 49 4e 43  |ROL.5...DOWN INC|
00000530  20 59 50 00 40 0d be 0a  4c 44 41 20 59 50 00 4d  | YP.@...LDA YP.M|
00000540  0d c8 0a 43 4d 50 20 23  24 46 38 00 59 0d d2 0a  |...CMP #$F8.Y...|
00000550  42 4e 45 20 46 49 4e 00  64 0d dc 0a 44 45 43 20  |BNE FIN.d...DEC |
00000560  59 50 00 71 0d e6 0a 4a  4d 50 20 9a 52 4f 4c 00  |YP.q...JMP .ROL.|
00000570  86 0d f0 0a 3b 20 57 49  4d 50 20 2d 20 50 4f 49  |....; WIMP - POI|
00000580  4e 54 45 52 00 96 0d fa  0a 9a 52 4f 4c 20 4c 44  |NTER......ROL LD|
00000590  41 20 58 50 00 a3 0d 04  0b 43 4d 50 20 23 24 32  |A XP.....CMP #$2|
000005a0  38 00 b1 0d 0e 0b 42 43  43 20 4e 53 51 55 50 00  |8.....BCC NSQUP.|
000005b0  be 0d 18 0b 43 4d 50 20  23 24 46 38 00 cc 0d 22  |....CMP #$F8..."|
000005c0  0b 42 43 53 20 4e 53 51  55 50 00 d8 0d 2c 0b 4c  |.BCS NSQUP...,.L|
000005d0  44 41 20 58 50 42 00 e6  0d 36 0b 42 4e 45 20 4e  |DA XPB...6.BNE N|
000005e0  53 51 55 50 00 f1 0d 40  0b 4c 44 41 20 59 50 00  |SQUP...@.LDA YP.|
000005f0  fe 0d 4a 0b 43 4d 50 20  23 24 34 32 00 0c 0e 54  |..J.CMP #$42...T|
00000600  0b 42 43 43 20 4e 53 51  55 50 00 19 0e 5e 0b 43  |.BCC NSQUP...^.C|
00000610  4d 50 20 23 24 43 31 00  27 0e 68 0b 42 43 53 20  |MP #$C1.'.h.BCS |
00000620  4e 53 51 55 50 00 32 0e  72 0b 4c 44 41 20 58 50  |NSQUP.2.r.LDA XP|
00000630  00 3d 0e 7c 0b af 20 23  24 46 38 00 4b 0e 86 0b  |.=.|.. #$F8.K...|
00000640  53 54 41 20 24 44 30 30  30 00 56 0e 9a 0b 4c 44  |STA $D000.V...LD|
00000650  41 20 59 50 00 61 0e a4  0b af 20 23 24 46 38 00  |A YP.a.... #$F8.|
00000660  6d 0e a9 0b b0 41 20 23  24 30 32 00 7b 0e b8 0b  |m....A #$02.{...|
00000670  53 54 41 20 24 44 30 30  31 00 89 0e b9 0b 4c 44  |STA $D001.....LD|
00000680  41 20 24 44 30 31 30 00  94 0e ba 0b af 20 23 24  |A $D010...... #$|
00000690  46 43 00 a2 0e bc 0b 53  54 41 20 24 44 30 31 30  |FC.....STA $D010|
000006a0  00 af 0e bd 0b 4c 44 41  20 23 24 38 32 00 bd 0e  |.....LDA #$82...|
000006b0  be 0b 53 54 41 20 24 35  42 46 38 00 cb 0e bf 0b  |..STA $5BF8.....|
000006c0  4c 44 41 20 24 44 30 31  35 00 d6 0e c0 0b af 20  |LDA $D015...... |
000006d0  23 24 46 43 00 e2 0e c1  0b b0 41 20 23 24 30 31  |#$FC......A #$01|
000006e0  00 f0 0e c2 0b 53 54 41  20 24 44 30 31 35 00 fd  |.....STA $D015..|
000006f0  0e ca 0b 4c 44 41 20 23  24 30 31 00 0b 0f cb 0b  |...LDA #$01.....|
00000700  53 54 41 20 24 44 30 32  37 00 13 0f cc 0b 52 54  |STA $D027.....RT|
00000710  53 00 24 0f d6 0b 4e 53  51 55 50 20 4c 44 41 20  |S.$...NSQUP LDA |
00000720  58 50 00 32 0f e0 0b 53  54 41 20 24 44 30 30 30  |XP.2...STA $D000|
00000730  00 40 0f ea 0b 53 54 41  20 24 44 30 30 32 00 4b  |.@...STA $D002.K|
00000740  0f f4 0b 4c 44 41 20 59  50 00 59 0f fe 0b 53 54  |...LDA YP.Y...ST|
00000750  41 20 24 44 30 30 31 00  67 0f 08 0c 53 54 41 20  |A $D001.g...STA |
00000760  24 44 30 30 33 00 75 0f  12 0c 4c 44 41 20 24 44  |$D003.u...LDA $D|
00000770  30 31 30 00 80 0f 1c 0c  af 20 23 24 46 43 00 8a  |010...... #$FC..|
00000780  0f 26 0c 4c 53 52 20 41  00 92 0f 30 0c 43 4c 43  |.&.LSR A...0.CLC|
00000790  00 9e 0f 3a 0c 41 44 43  20 58 50 42 00 a8 0f 44  |...:.ADC XPB...D|
000007a0  0c 41 53 4c 20 41 00 b0  0f 4e 0c 43 4c 43 00 bc  |.ASL A...N.CLC..|
000007b0  0f 58 0c 41 44 43 20 58  50 42 00 ca 0f 62 0c 53  |.X.ADC XPB...b.S|
000007c0  54 41 20 24 44 30 31 30  00 d7 0f 6c 0c 4c 44 41  |TA $D010...l.LDA|
000007d0  20 23 24 38 30 00 e5 0f  76 0c 53 54 41 20 24 35  | #$80...v.STA $5|
000007e0  42 46 38 00 f2 0f 80 0c  4c 44 41 20 23 24 38 31  |BF8.....LDA #$81|
000007f0  00 00 10 8a 0c 53 54 41  20 24 35 42 46 39 00 0e  |.....STA $5BF9..|
00000800  10 94 0c 4c 44 41 20 24  44 30 31 35 00 1a 10 9e  |...LDA $D015....|
00000810  0c b0 41 20 23 24 30 33  00 28 10 a8 0c 53 54 41  |..A #$03.(...STA|
00000820  20 24 44 30 31 35 00 35  10 b2 0c 4c 44 41 20 23  | $D015.5...LDA #|
00000830  24 30 30 00 43 10 bc 0c  53 54 41 20 24 44 30 32  |$00.C...STA $D02|
00000840  37 00 50 10 c6 0c 4c 44  41 20 23 24 30 31 00 5e  |7.P...LDA #$01.^|
00000850  10 d0 0c 53 54 41 20 24  44 30 32 38 00 66 10 da  |...STA $D028.f..|
00000860  0c 52 54 53 00 7d 10 e4  0c 3b 20 53 54 41 52 54  |.RTS.}...; START|
00000870  55 50 20 52 4f 55 54 49  4e 45 53 00 8b 10 ee 0c  |UP ROUTINES.....|
00000880  4c 44 41 20 24 44 44 30  32 00 96 10 f8 0c af 20  |LDA $DD02...... |
00000890  23 24 46 45 00 a2 10 02  0d b0 41 20 23 24 30 32  |#$FE......A #$02|
000008a0  00 b0 10 0c 0d 53 54 41  20 24 44 44 30 32 00 bd  |.....STA $DD02..|
000008b0  10 16 0d 4c 44 41 20 23  24 38 36 00 cb 10 20 0d  |...LDA #$86... .|
000008c0  53 54 41 20 24 44 30 31  38 00 d8 10 2a 0d 4c 44  |STA $D018...*.LD|
000008d0  41 20 23 24 30 31 00 e5  10 34 0d 4c 44 58 20 23  |A #$01...4.LDX #|
000008e0  24 30 38 00 f2 10 3e 0d  4c 44 59 20 23 24 30 31  |$08...>.LDY #$01|
000008f0  00 00 11 48 0d 4a 53 52  20 24 46 46 42 41 00 0d  |...H.JSR $FFBA..|
00000900  11 52 0d 4c 44 41 20 23  24 30 43 00 1e 11 5c 0d  |.R.LDA #$0C...\.|
00000910  4c 44 58 20 23 b3 45 47  52 54 58 54 00 2f 11 66  |LDX #.EGRTXT./.f|
00000920  0d 4c 44 59 20 23 b1 45  47 52 54 58 54 00 3d 11  |.LDY #.EGRTXT.=.|
00000930  7a 0d 4a 53 52 20 24 46  46 42 44 00 4a 11 84 0d  |z.JSR $FFBD.J...|
00000940  4c 44 41 20 23 24 30 30  00 58 11 8e 0d 4a 53 52  |LDA #$00.X...JSR|
00000950  20 24 46 46 44 35 00 65  11 98 0d 4c 44 41 20 23  | $FFD5.e...LDA #|
00000960  24 30 30 00 73 11 a2 0d  53 54 41 20 42 55 54 4e  |$00.s...STA BUTN|
00000970  4f 00 7b 11 ac 0d 53 45  49 00 88 11 b6 0d 4c 44  |O.{...SEI.....LD|
00000980  41 20 23 24 30 30 00 96  11 c0 0d 53 54 41 20 24  |A #$00.....STA $|
00000990  30 33 31 34 00 a3 11 ca  0d 4c 44 41 20 23 24 43  |0314.....LDA #$C|
000009a0  30 00 b1 11 d4 0d 53 54  41 20 24 30 33 31 35 00  |0.....STA $0315.|
000009b0  b9 11 de 0d 43 4c 49 00  c6 11 e8 0d 4c 44 41 20  |....CLI.....LDA |
000009c0  23 24 30 30 00 d1 11 f2  0d 53 54 41 20 58 50 00  |#$00.....STA XP.|
000009d0  de 11 fc 0d 53 54 41 20  48 4f 55 52 00 eb 11 06  |....STA HOUR....|
000009e0  0e 4c 44 41 20 23 24 38  30 00 f6 11 10 0e 53 54  |.LDA #$80.....ST|
000009f0  41 20 59 50 00 03 12 1a  0e 4c 44 41 20 23 24 30  |A YP.....LDA #$0|
00000a00  31 00 0f 12 24 0e 53 54  41 20 58 50 42 00 25 12  |1...$.STA XPB.%.|
00000a10  2e 0e 42 55 54 30 20 4a  53 52 20 42 55 54 43 48  |..BUT0 JSR BUTCH|
00000a20  45 43 4b 00 32 12 38 0e  4a 4d 50 20 42 55 54 30  |ECK.2.8.JMP BUT0|
00000a30  00 50 12 42 0e 45 47 52  54 58 54 20 54 58 54 20  |.P.B.EGRTXT TXT |
00000a40  22 45 44 49 54 47 52 41  50 48 49 43 53 22 00 64  |"EDITGRAPHICS".d|
00000a50  12 4c 0e 42 55 54 43 48  45 43 4b 20 4c 44 41 20  |.L.BUTCHECK LDA |
00000a60  59 50 00 00 00                                    |YP...|
00000a65

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .