Home » Personal collection » Commodore disks » disk65a_programs_1.d64 » edit backup

edit backup

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 » disk65a_programs_1.d64
Filename: edit backup
Read OK:
File size: 052C bytes
Load address: 0801
Exec address: 0000
Duplicates

There are 2 duplicate copies 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
  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 $DC01
  2140 TAX
  2150 AND #$01
  2160 BNE UPJ
  2170 UJC TXA
  2180 AND #$02
  2190 BNE DOWNJ
  2200 DJC TXA
  2210 AND #$04
  2220 BNE LEFTJ
  2230 LJC TXA
  2240 AND #$08
  2250 BNE RIGHTJ
  2260 RJC TXA
  2270 AND #$10
  2280 BEQ CJCH
  2290 STA CLICK
  2300 CJCH JMP $E131
  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 UJK
  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 END
  2550 CMP #$1A
  2560 BNE END
  2570 INC XP
  2580 END JMP CONTROL
  2590 RIGHT INC XP
  2600 LDA XP
  2610 BNE NOT00
  2620 LDY #$01
  2630 STY XPB
  2640 NOT00 LDY XPB
  2650 BEQ END
  2660 CMP #$40
  2670 BNE END
  2680 DEC XP
  2690 JMP CONTROL
  2700 UP DEC YP
  2710 LDA YP
  2720 CMP #$1A
  2730 BNE END
  2740 INC YP
  2750 DEC YP
  2760 JMP CONTROL
  2770 LDA YP
  2780 CMP #$D2
  2790 BNE END
  2800 ; WIMP - POINTER
  2810 CONTROL


; CRYSTALS OF OLYMPIA/; EDI�R PROGRAM?; 26�5�95 �O�; VARIABLES\�XP�$CF40i�YP�$CF41wXPB�$CF42�CLICK�$CF43��;                                               WIMP ROUTINES��;��; WIMP � MOUSE��IRQ LDA $C5��CMP #$01	�BNE C�CHECK	�STA CLICK2	C�CHECK CMP #$0C@	BEQ LEFTKQ	LKC CMP #$17`	 BEQ RIGHTKq	*RKC CMP #$32}	4BEQ UPK�	>UPKC CMP #$37�	HBEQ DOWNK�	RDKC LDA $DC01�	\TAX�	f� #$01�	pBNE UPJ�	zUJC TXA�	�� #$02�	�BNE DOWNJ�	�DJC TXA

�� #$04
�BNE LEFTJ$
�LJC TXA/
�� #$08>
�BNE RIGHTJJ
�RJC TXAU
�� #$10b
�BEQ CJCHp
�STA CLICK�
�CJCH JMP $E131�
	LEFTK JSR LEFT�
	JMP LKC�
	RIGHTK JSR RIGHT�
$	JMP RKC�
.	UPK JSR UP�
8	JMP UPKC�
B	DOWNK JSR DOWN�
L	JMP DKC
V	UPJ JSR UP`	JMP UJK,j	DOWNJ JSR DOWN8t	JMP DJCK~	LEFTJ JSR LEFTW�	JMP LJCl�	RIGHTJ JSR RIGHTx�	JMP RJC��	LEFT DEC XP��	LDA XP��	CMP #$FF��	BNE �FF��	LDY #$00��	STY XPB��	�FF LDY XPB��	BNE ���	CMP #$1A�
BNE �

INC XP
� JMP �ROL!
RIGHT INC XP,(
LDA XP82
BNE �00E<
LDY #$01QF
STY XPBaP
�00 LDY XPBkZ
BEQ �xd
CMP #$40�n
BNE ��x
DEC XP��
JMP �ROL��
UP DEC YP��
LDA YP��
CMP #$1A��
BNE ���
INC YP��
DEC YP��
JMP �ROL��
LDA YP
�
CMP #$D2
�
BNE �"
�
; WIMP � PO�ER+
�
�ROL
[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@.H.G;                                               wimp routines@.H.G;@.H.G; wimp . mouse@.H.Girq lda $c5@.H.Gcmp #$01@OI.Gbne c.check@]I.Gsta click@2IBHc.check cmp #$0c@@ILHbeq leftk@qIVHlkc cmp #$17@.I Hbeq rightk@QI*Hrkc cmp #$32@.I4Hbeq upk@.I>Hupkc cmp #$37@.IhHbeq downk@.IrHdkc lda $dc01@.I£Htax@.IFH. #$01@.IPHbne upj@.IZHujc txa@.I.H. #$02@.I.Hbne downj@.I.Hdjc txa@JJ.H. #$04@XJ.Hbne leftj@$J.Hljc txa@/J.H. #$08@>J.Hbne rightj@jJ.Hrjc txa@uJ.H. #$10@BJ.Hbeq cjch@PJ.Hsta click@.J.Hcjch jmp $e131@.JFIleftk jsr left@.JPIjmp lkc@.JZIrightk jsr right@.J$Ijmp rkc@.J.Iupk jsr up@.J8Ijmp upkc@.JbIdownk jsr down@.JlIjmp dkc@MKvIupj jsr up@YK.Ijmp ujk@,KJIdownj jsr down@8KTIjmp djc@kK.Ileftj jsr left@wK.Ijmp ljc@LK.Irightj jsr right@XK.Ijmp rjc@.K.Ileft dec xp@.K.Ilda xp@.K.Icmp #$ff@.K.Ibne .ff@.K.Ildy #$00@.K.Isty xpb@.K.I.ff ldy xpb@.K.Ibne .@.K.Icmp #$1a@.K@Jbne .@ALJJinc xp@PLTJ. jmp .rol@!L.Jright inc xp@,L(Jlda xp@8L2Jbne .00@eL<Jldy #$01@qLfJsty xpb@ALpJ.00 ldy xpb@KLzJbeq .@XLDJcmp #$40@.LNJbne .@.LXJdec xp@.L.Jjmp .rol@.L.Jup dec yp@.L.Jlda yp@.L.Jcmp #$1a@.L.Jbne .@.L.Jinc yp@.L.Jdec yp@.L.Jjmp .rol@.L.Jlda yp@EM.Jcmp #$d2@OM.Jbne .@"M.J; wimp . po.er@+M.J.rol@@@
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 c9 08  d0 07 3b 20 20 20 20 20  |$CF43.....;     |
00000090  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000000b0  20 20 20 20 20 20 20 20  20 20 57 49 4d 50 20 52  |          WIMP R|
000000c0  4f 55 54 49 4e 45 53 00  cf 08 d3 07 3b 00 e2 08  |OUTINES.....;...|
000000d0  d6 07 3b 20 57 49 4d 50  20 ab 20 4d 4f 55 53 45  |..; WIMP . MOUSE|
000000e0  00 f2 08 da 07 49 52 51  20 4c 44 41 20 24 43 35  |.....IRQ LDA $C5|
000000f0  00 ff 08 e4 07 43 4d 50  20 23 24 30 31 00 0f 09  |.....CMP #$01...|
00000100  ee 07 42 4e 45 20 43 91  43 48 45 43 4b 00 1d 09  |..BNE C.CHECK...|
00000110  f8 07 53 54 41 20 43 4c  49 43 4b 00 32 09 02 08  |..STA CLICK.2...|
00000120  43 91 43 48 45 43 4b 20  43 4d 50 20 23 24 30 43  |C.CHECK CMP #$0C|
00000130  00 40 09 0c 08 42 45 51  20 4c 45 46 54 4b 00 51  |.@...BEQ LEFTK.Q|
00000140  09 16 08 4c 4b 43 20 43  4d 50 20 23 24 31 37 00  |...LKC CMP #$17.|
00000150  60 09 20 08 42 45 51 20  52 49 47 48 54 4b 00 71  |`. .BEQ RIGHTK.q|
00000160  09 2a 08 52 4b 43 20 43  4d 50 20 23 24 33 32 00  |.*.RKC CMP #$32.|
00000170  7d 09 34 08 42 45 51 20  55 50 4b 00 8f 09 3e 08  |}.4.BEQ UPK...>.|
00000180  55 50 4b 43 20 43 4d 50  20 23 24 33 37 00 9d 09  |UPKC CMP #$37...|
00000190  48 08 42 45 51 20 44 4f  57 4e 4b 00 af 09 52 08  |H.BEQ DOWNK...R.|
000001a0  44 4b 43 20 4c 44 41 20  24 44 43 30 31 00 b7 09  |DKC LDA $DC01...|
000001b0  5c 08 54 41 58 00 c2 09  66 08 af 20 23 24 30 31  |\.TAX...f.. #$01|
000001c0  00 ce 09 70 08 42 4e 45  20 55 50 4a 00 da 09 7a  |...p.BNE UPJ...z|
000001d0  08 55 4a 43 20 54 58 41  00 e5 09 84 08 af 20 23  |.UJC TXA...... #|
000001e0  24 30 32 00 f3 09 8e 08  42 4e 45 20 44 4f 57 4e  |$02.....BNE DOWN|
000001f0  4a 00 ff 09 98 08 44 4a  43 20 54 58 41 00 0a 0a  |J.....DJC TXA...|
00000200  a2 08 af 20 23 24 30 34  00 18 0a ac 08 42 4e 45  |... #$04.....BNE|
00000210  20 4c 45 46 54 4a 00 24  0a b6 08 4c 4a 43 20 54  | LEFTJ.$...LJC T|
00000220  58 41 00 2f 0a c0 08 af  20 23 24 30 38 00 3e 0a  |XA./.... #$08.>.|
00000230  ca 08 42 4e 45 20 52 49  47 48 54 4a 00 4a 0a d4  |..BNE RIGHTJ.J..|
00000240  08 52 4a 43 20 54 58 41  00 55 0a de 08 af 20 23  |.RJC TXA.U.... #|
00000250  24 31 30 00 62 0a e8 08  42 45 51 20 43 4a 43 48  |$10.b...BEQ CJCH|
00000260  00 70 0a f2 08 53 54 41  20 43 4c 49 43 4b 00 83  |.p...STA CLICK..|
00000270  0a fc 08 43 4a 43 48 20  4a 4d 50 20 24 45 31 33  |...CJCH JMP $E13|
00000280  31 00 96 0a 06 09 4c 45  46 54 4b 20 4a 53 52 20  |1.....LEFTK JSR |
00000290  4c 45 46 54 00 a2 0a 10  09 4a 4d 50 20 4c 4b 43  |LEFT.....JMP LKC|
000002a0  00 b7 0a 1a 09 52 49 47  48 54 4b 20 4a 53 52 20  |.....RIGHTK JSR |
000002b0  52 49 47 48 54 00 c3 0a  24 09 4a 4d 50 20 52 4b  |RIGHT...$.JMP RK|
000002c0  43 00 d2 0a 2e 09 55 50  4b 20 4a 53 52 20 55 50  |C.....UPK JSR UP|
000002d0  00 df 0a 38 09 4a 4d 50  20 55 50 4b 43 00 f2 0a  |...8.JMP UPKC...|
000002e0  42 09 44 4f 57 4e 4b 20  4a 53 52 20 44 4f 57 4e  |B.DOWNK JSR DOWN|
000002f0  00 fe 0a 4c 09 4a 4d 50  20 44 4b 43 00 0d 0b 56  |...L.JMP DKC...V|
00000300  09 55 50 4a 20 4a 53 52  20 55 50 00 19 0b 60 09  |.UPJ JSR UP...`.|
00000310  4a 4d 50 20 55 4a 4b 00  2c 0b 6a 09 44 4f 57 4e  |JMP UJK.,.j.DOWN|
00000320  4a 20 4a 53 52 20 44 4f  57 4e 00 38 0b 74 09 4a  |J JSR DOWN.8.t.J|
00000330  4d 50 20 44 4a 43 00 4b  0b 7e 09 4c 45 46 54 4a  |MP DJC.K.~.LEFTJ|
00000340  20 4a 53 52 20 4c 45 46  54 00 57 0b 88 09 4a 4d  | JSR LEFT.W...JM|
00000350  50 20 4c 4a 43 00 6c 0b  92 09 52 49 47 48 54 4a  |P LJC.l...RIGHTJ|
00000360  20 4a 53 52 20 52 49 47  48 54 00 78 0b 9c 09 4a  | JSR RIGHT.x...J|
00000370  4d 50 20 52 4a 43 00 88  0b a6 09 4c 45 46 54 20  |MP RJC.....LEFT |
00000380  44 45 43 20 58 50 00 93  0b b0 09 4c 44 41 20 58  |DEC XP.....LDA X|
00000390  50 00 a0 0b ba 09 43 4d  50 20 23 24 46 46 00 ac  |P.....CMP #$FF..|
000003a0  0b c4 09 42 4e 45 20 a8  46 46 00 b9 0b ce 09 4c  |...BNE .FF.....L|
000003b0  44 59 20 23 24 30 30 00  c5 0b d8 09 53 54 59 20  |DY #$00.....STY |
000003c0  58 50 42 00 d5 0b e2 09  a8 46 46 20 4c 44 59 20  |XPB......FF LDY |
000003d0  58 50 42 00 df 0b ec 09  42 4e 45 20 80 00 ec 0b  |XPB.....BNE ....|
000003e0  f6 09 43 4d 50 20 23 24  31 41 00 f6 0b 00 0a 42  |..CMP #$1A.....B|
000003f0  4e 45 20 80 00 01 0c 0a  0a 49 4e 43 20 58 50 00  |NE ......INC XP.|
00000400  10 0c 14 0a 80 20 4a 4d  50 20 9a 52 4f 4c 00 21  |..... JMP .ROL.!|
00000410  0c 1e 0a 52 49 47 48 54  20 49 4e 43 20 58 50 00  |...RIGHT INC XP.|
00000420  2c 0c 28 0a 4c 44 41 20  58 50 00 38 0c 32 0a 42  |,.(.LDA XP.8.2.B|
00000430  4e 45 20 a8 30 30 00 45  0c 3c 0a 4c 44 59 20 23  |NE .00.E.<.LDY #|
00000440  24 30 31 00 51 0c 46 0a  53 54 59 20 58 50 42 00  |$01.Q.F.STY XPB.|
00000450  61 0c 50 0a a8 30 30 20  4c 44 59 20 58 50 42 00  |a.P..00 LDY XPB.|
00000460  6b 0c 5a 0a 42 45 51 20  80 00 78 0c 64 0a 43 4d  |k.Z.BEQ ..x.d.CM|
00000470  50 20 23 24 34 30 00 82  0c 6e 0a 42 4e 45 20 80  |P #$40...n.BNE .|
00000480  00 8d 0c 78 0a 44 45 43  20 58 50 00 9a 0c 82 0a  |...x.DEC XP.....|
00000490  4a 4d 50 20 9a 52 4f 4c  00 a8 0c 8c 0a 55 50 20  |JMP .ROL.....UP |
000004a0  44 45 43 20 59 50 00 b3  0c 96 0a 4c 44 41 20 59  |DEC YP.....LDA Y|
000004b0  50 00 c0 0c a0 0a 43 4d  50 20 23 24 31 41 00 ca  |P.....CMP #$1A..|
000004c0  0c aa 0a 42 4e 45 20 80  00 d5 0c b4 0a 49 4e 43  |...BNE ......INC|
000004d0  20 59 50 00 e0 0c be 0a  44 45 43 20 59 50 00 ed  | YP.....DEC YP..|
000004e0  0c c8 0a 4a 4d 50 20 9a  52 4f 4c 00 f8 0c d2 0a  |...JMP .ROL.....|
000004f0  4c 44 41 20 59 50 00 05  0d dc 0a 43 4d 50 20 23  |LDA YP.....CMP #|
00000500  24 44 32 00 0f 0d e6 0a  42 4e 45 20 80 00 22 0d  |$D2.....BNE ..".|
00000510  f0 0a 3b 20 57 49 4d 50  20 ab 20 50 4f b5 45 52  |..; WIMP . PO.ER|
00000520  00 2b 0d fa 0a 9a 52 4f  4c 00 00 00              |.+....ROL...|
0000052c