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

edit 27.5.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 27.5.95
Read OK:
File size: 0848 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
  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 #$BA
  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


; CRYSTALS OF OLYMPIA/; EDI�R PROGRAM?; 26�5�95 �O�; VARIABLES\�XP�$CF40i�YP�$CF41wXPB�$CF42�CLICK�$CF43����$C000��;                                               WIMP ROUTINES��;��; WIMP � MOUSE��IRQ LDA $C5	�CMP #$01	�BNE C�CHECK)	�STA CLICK>	C�CHECK CMP #$0CL	BEQ LEFTK]	LKC CMP #$17l	 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 TXA
�� #$04$
�BEQ LEFTJ0
�LJC TXA;
�� #$08J
�BEQ RIGHTJV
�RJC TXAa
�� #$10m
�E� #$10z
�BEQ CJCH�
�STA CLICK�
�CJCH JMP $EA31�
	LEFTK JSR LEFT�
	JMP LKC�
	RIGHTK JSR RIGHT�
$	JMP RKC�
.	UPK JSR UP�
8	JMP UPKC
B	DOWNK JSR DOWNL	JMP DKC%V	UPJ JSR UP1`	JMP UJCDj	DOWNJ JSR DOWNPt	JMP DJCc~	LEFTJ JSR LEFTo�	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 #$18
BNE FIN

INC XP.
FIN JMP �ROL?
RIGHT INC XPJ(
LDA XPV2
BNE �00c<
LDY #$01o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 �ROL
�
DOWN INC YP!
�
LDA YP.
�
CMP #$F8:
�
BNE FINE
�
DEC YPR
�
JMP �ROLg
�
; WIMP - POINTERw
�
�ROL LDA XP�
CMP #$28�
BCC NSQUP�
CMP #$F8�
"BCS NSQUP�
,LDA XPB�
6BNE NSQUP�
@LDA YP�
JCMP #$42�
TBCC NSQUP�
^CMP #$BAhBCS NSQUPrLDA XP|� #$F8,�STA $D0007�LDA YPB�� #$F8N��A #$02\�STA $D001j�LDA $D010u�� #$FC��STA $D010��LDA #$82��STA $5BF8��LDA $D015��� #$FC���A #$01��STA $D015��LDA #$01��STA $D027��RTS�NSQUP LDA XP�STA $D000!�STA $D002,�LDA YP:�STA $D001HSTA $D003VLDA $D010a� #$FCk&LSR As0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 $D015�LDA #$00$�STA $D0271�LDA #$01?�STA $D028G�RTS
[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..$c000@.H.G;                                               wimp routines@.H.G;@.H.G; wimp . mouse@.H.Girq lda $c5@KI.Gcmp #$01@[I.Gbne c.check@)I.Gsta click@>IBHc.check cmp #$0c@lILHbeq leftk@]IVHlkc cmp #$17@LI Hbeq rightk@.I*Hrkc cmp #$32@.I4Hbeq upk@.I>Hupkc cmp #$37@.IhHbeq downk@.IrHdkc lda $dc00@.I£Htax@.IFH. #$01@.IPHbeq upj@.IZHujc txa@.I.H. #$02@.I.Hbeq downj@KJ.Hdjc txa@VJ.H. #$04@$J.Hbeq leftj@0J.Hljc txa@;J.H. #$08@jJ.Hbeq rightj@vJ.Hrjc txa@AJ.H. #$10@MJ.He. #$10@ZJ.Hbeq cjch@.J.Hsta click@.J.Hcjch jmp $ea31@.JFIleftk jsr left@.JPIjmp lkc@.JZIrightk jsr right@.J$Ijmp rkc@.J.Iupk jsr up@.J8Ijmp upkc@JKbIdownk jsr down@VKlIjmp dkc@%KvIupj jsr up@1K.Ijmp ujc@dKJIdownj jsr down@pKTIjmp djc@CK.Ileftj jsr left@OK.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@.K.I.ff ldy xpb@.K.Ibne fin@FL.Icmp #$18@RL@Jbne fin@]LJJinc xp@.LTJfin jmp .rol@?L.Jright inc xp@jL(Jlda xp@vL2Jbne .00@CL<Jldy #$01@OLfJsty xpb@.LpJ.00 ldy xpb@.LzJbeq fin@.LDJcmp #$58@.LNJbne fin@.LXJdec xp@.L.Jjmp .rol@.L.Jup dec yp@.L.Jlda yp@.L.Jcmp #$32@.L.Jbne fin@.L.Jinc yp@FM.Jjmp .rol@VM.Jdown inc yp@!M.Jlda yp@.M.Jcmp #$f8@:M.Jbne fin@eM.Jdec yp@rM.Jjmp .rol@GM.J; wimp - pointer@WM.J.rol lda xp@.MDKcmp #$28@.MNKbcc nsqup@.MXKcmp #$f8@.M"Kbcs nsqup@.M,Klda xpb@.M6Kbne nsqup@.M@Klda yp@.MjKcmp #$42@.MtKbcc nsqup@.M.Kcmp #$ba@HNHKbcs nsqup@SNRKlda xp@.N.K. #$f8@,N.Ksta $d000@7N.Klda yp@bN.K. #$f8@nN.K.a #$02@£N.Ksta $d001@JN.Klda $d010@UN.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@.N.Ksta $d027@.N.Krts@EO.Knsqup lda xp@SO.Ksta $d000@!O.Ksta $d002@,O.Klda yp@:O.Ksta $d001@hOHLsta $d003@vORLlda $d010@AO£L. #$fc@KO&Llsr a@SO0Lclc@.O:Ladc xpb@.OdLasl a@.OnLclc@.OxLadc xpb@.OBLsta $d010@.OLLlda #$80@.OVLsta $5bf8@.O.Llda #$81@.O.Lsta $5bf9@.O.Llda $d015@.O.L.a #$03@IP.Lsta $d015@VP.Llda #$00@$P.Lsta $d027@1P.Llda #$01@?P.Lsta $d028@gP.Lrts@@@
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 93 08  c6 07 ac b2 24 43 30 30  |$CF43.......$C00|
00000090  30 00 d5 08 d0 07 3b 20  20 20 20 20 20 20 20 20  |0.....;         |
000000a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000000c0  20 20 20 20 20 20 57 49  4d 50 20 52 4f 55 54 49  |      WIMP ROUTI|
000000d0  4e 45 53 00 db 08 d3 07  3b 00 ee 08 d6 07 3b 20  |NES.....;.....; |
000000e0  57 49 4d 50 20 ab 20 4d  4f 55 53 45 00 fe 08 da  |WIMP . MOUSE....|
000000f0  07 49 52 51 20 4c 44 41  20 24 43 35 00 0b 09 e4  |.IRQ LDA $C5....|
00000100  07 43 4d 50 20 23 24 30  31 00 1b 09 ee 07 42 4e  |.CMP #$01.....BN|
00000110  45 20 43 91 43 48 45 43  4b 00 29 09 f8 07 53 54  |E C.CHECK.)...ST|
00000120  41 20 43 4c 49 43 4b 00  3e 09 02 08 43 91 43 48  |A CLICK.>...C.CH|
00000130  45 43 4b 20 43 4d 50 20  23 24 30 43 00 4c 09 0c  |ECK CMP #$0C.L..|
00000140  08 42 45 51 20 4c 45 46  54 4b 00 5d 09 16 08 4c  |.BEQ LEFTK.]...L|
00000150  4b 43 20 43 4d 50 20 23  24 31 37 00 6c 09 20 08  |KC CMP #$17.l. .|
00000160  42 45 51 20 52 49 47 48  54 4b 00 7d 09 2a 08 52  |BEQ RIGHTK.}.*.R|
00000170  4b 43 20 43 4d 50 20 23  24 33 32 00 89 09 34 08  |KC CMP #$32...4.|
00000180  42 45 51 20 55 50 4b 00  9b 09 3e 08 55 50 4b 43  |BEQ UPK...>.UPKC|
00000190  20 43 4d 50 20 23 24 33  37 00 a9 09 48 08 42 45  | CMP #$37...H.BE|
000001a0  51 20 44 4f 57 4e 4b 00  bb 09 52 08 44 4b 43 20  |Q DOWNK...R.DKC |
000001b0  4c 44 41 20 24 44 43 30  30 00 c3 09 5c 08 54 41  |LDA $DC00...\.TA|
000001c0  58 00 ce 09 66 08 af 20  23 24 30 31 00 da 09 70  |X...f.. #$01...p|
000001d0  08 42 45 51 20 55 50 4a  00 e6 09 7a 08 55 4a 43  |.BEQ UPJ...z.UJC|
000001e0  20 54 58 41 00 f1 09 84  08 af 20 23 24 30 32 00  | TXA...... #$02.|
000001f0  ff 09 8e 08 42 45 51 20  44 4f 57 4e 4a 00 0b 0a  |....BEQ DOWNJ...|
00000200  98 08 44 4a 43 20 54 58  41 00 16 0a a2 08 af 20  |..DJC TXA...... |
00000210  23 24 30 34 00 24 0a ac  08 42 45 51 20 4c 45 46  |#$04.$...BEQ LEF|
00000220  54 4a 00 30 0a b6 08 4c  4a 43 20 54 58 41 00 3b  |TJ.0...LJC TXA.;|
00000230  0a c0 08 af 20 23 24 30  38 00 4a 0a ca 08 42 45  |.... #$08.J...BE|
00000240  51 20 52 49 47 48 54 4a  00 56 0a d4 08 52 4a 43  |Q RIGHTJ.V...RJC|
00000250  20 54 58 41 00 61 0a de  08 af 20 23 24 31 30 00  | TXA.a.... #$10.|
00000260  6d 0a e3 08 45 b0 20 23  24 31 30 00 7a 0a e8 08  |m...E. #$10.z...|
00000270  42 45 51 20 43 4a 43 48  00 88 0a f2 08 53 54 41  |BEQ CJCH.....STA|
00000280  20 43 4c 49 43 4b 00 9b  0a fc 08 43 4a 43 48 20  | CLICK.....CJCH |
00000290  4a 4d 50 20 24 45 41 33  31 00 ae 0a 06 09 4c 45  |JMP $EA31.....LE|
000002a0  46 54 4b 20 4a 53 52 20  4c 45 46 54 00 ba 0a 10  |FTK JSR LEFT....|
000002b0  09 4a 4d 50 20 4c 4b 43  00 cf 0a 1a 09 52 49 47  |.JMP LKC.....RIG|
000002c0  48 54 4b 20 4a 53 52 20  52 49 47 48 54 00 db 0a  |HTK JSR RIGHT...|
000002d0  24 09 4a 4d 50 20 52 4b  43 00 ea 0a 2e 09 55 50  |$.JMP RKC.....UP|
000002e0  4b 20 4a 53 52 20 55 50  00 f7 0a 38 09 4a 4d 50  |K JSR UP...8.JMP|
000002f0  20 55 50 4b 43 00 0a 0b  42 09 44 4f 57 4e 4b 20  | UPKC...B.DOWNK |
00000300  4a 53 52 20 44 4f 57 4e  00 16 0b 4c 09 4a 4d 50  |JSR DOWN...L.JMP|
00000310  20 44 4b 43 00 25 0b 56  09 55 50 4a 20 4a 53 52  | DKC.%.V.UPJ JSR|
00000320  20 55 50 00 31 0b 60 09  4a 4d 50 20 55 4a 43 00  | UP.1.`.JMP UJC.|
00000330  44 0b 6a 09 44 4f 57 4e  4a 20 4a 53 52 20 44 4f  |D.j.DOWNJ JSR DO|
00000340  57 4e 00 50 0b 74 09 4a  4d 50 20 44 4a 43 00 63  |WN.P.t.JMP DJC.c|
00000350  0b 7e 09 4c 45 46 54 4a  20 4a 53 52 20 4c 45 46  |.~.LEFTJ JSR LEF|
00000360  54 00 6f 0b 88 09 4a 4d  50 20 4c 4a 43 00 84 0b  |T.o...JMP LJC...|
00000370  92 09 52 49 47 48 54 4a  20 4a 53 52 20 52 49 47  |..RIGHTJ JSR RIG|
00000380  48 54 00 90 0b 9c 09 4a  4d 50 20 52 4a 43 00 a0  |HT.....JMP RJC..|
00000390  0b a6 09 4c 45 46 54 20  44 45 43 20 58 50 00 ab  |...LEFT DEC XP..|
000003a0  0b b0 09 4c 44 41 20 58  50 00 b8 0b ba 09 43 4d  |...LDA XP.....CM|
000003b0  50 20 23 24 46 46 00 c4  0b c4 09 42 4e 45 20 a8  |P #$FF.....BNE .|
000003c0  46 46 00 d1 0b ce 09 4c  44 59 20 23 24 30 30 00  |FF.....LDY #$00.|
000003d0  dd 0b d8 09 53 54 59 20  58 50 42 00 ed 0b e2 09  |....STY XPB.....|
000003e0  a8 46 46 20 4c 44 59 20  58 50 42 00 f9 0b ec 09  |.FF LDY XPB.....|
000003f0  42 4e 45 20 46 49 4e 00  06 0c f6 09 43 4d 50 20  |BNE FIN.....CMP |
00000400  23 24 31 38 00 12 0c 00  0a 42 4e 45 20 46 49 4e  |#$18.....BNE FIN|
00000410  00 1d 0c 0a 0a 49 4e 43  20 58 50 00 2e 0c 14 0a  |.....INC XP.....|
00000420  46 49 4e 20 4a 4d 50 20  9a 52 4f 4c 00 3f 0c 1e  |FIN JMP .ROL.?..|
00000430  0a 52 49 47 48 54 20 49  4e 43 20 58 50 00 4a 0c  |.RIGHT INC XP.J.|
00000440  28 0a 4c 44 41 20 58 50  00 56 0c 32 0a 42 4e 45  |(.LDA XP.V.2.BNE|
00000450  20 a8 30 30 00 63 0c 3c  0a 4c 44 59 20 23 24 30  | .00.c.<.LDY #$0|
00000460  31 00 6f 0c 46 0a 53 54  59 20 58 50 42 00 7f 0c  |1.o.F.STY XPB...|
00000470  50 0a a8 30 30 20 4c 44  59 20 58 50 42 00 8b 0c  |P..00 LDY XPB...|
00000480  5a 0a 42 45 51 20 46 49  4e 00 98 0c 64 0a 43 4d  |Z.BEQ FIN...d.CM|
00000490  50 20 23 24 35 38 00 a4  0c 6e 0a 42 4e 45 20 46  |P #$58...n.BNE F|
000004a0  49 4e 00 af 0c 78 0a 44  45 43 20 58 50 00 bc 0c  |IN...x.DEC XP...|
000004b0  82 0a 4a 4d 50 20 9a 52  4f 4c 00 ca 0c 8c 0a 55  |..JMP .ROL.....U|
000004c0  50 20 44 45 43 20 59 50  00 d5 0c 91 0a 4c 44 41  |P DEC YP.....LDA|
000004d0  20 59 50 00 e2 0c 96 0a  43 4d 50 20 23 24 33 32  | YP.....CMP #$32|
000004e0  00 ee 0c 9b 0a 42 4e 45  20 46 49 4e 00 f9 0c a0  |.....BNE FIN....|
000004f0  0a 49 4e 43 20 59 50 00  06 0d aa 0a 4a 4d 50 20  |.INC YP.....JMP |
00000500  9a 52 4f 4c 00 16 0d b4  0a 44 4f 57 4e 20 49 4e  |.ROL.....DOWN IN|
00000510  43 20 59 50 00 21 0d be  0a 4c 44 41 20 59 50 00  |C YP.!...LDA YP.|
00000520  2e 0d c8 0a 43 4d 50 20  23 24 46 38 00 3a 0d d2  |....CMP #$F8.:..|
00000530  0a 42 4e 45 20 46 49 4e  00 45 0d dc 0a 44 45 43  |.BNE FIN.E...DEC|
00000540  20 59 50 00 52 0d e6 0a  4a 4d 50 20 9a 52 4f 4c  | YP.R...JMP .ROL|
00000550  00 67 0d f0 0a 3b 20 57  49 4d 50 20 2d 20 50 4f  |.g...; WIMP - PO|
00000560  49 4e 54 45 52 00 77 0d  fa 0a 9a 52 4f 4c 20 4c  |INTER.w....ROL L|
00000570  44 41 20 58 50 00 84 0d  04 0b 43 4d 50 20 23 24  |DA XP.....CMP #$|
00000580  32 38 00 92 0d 0e 0b 42  43 43 20 4e 53 51 55 50  |28.....BCC NSQUP|
00000590  00 9f 0d 18 0b 43 4d 50  20 23 24 46 38 00 ad 0d  |.....CMP #$F8...|
000005a0  22 0b 42 43 53 20 4e 53  51 55 50 00 b9 0d 2c 0b  |".BCS NSQUP...,.|
000005b0  4c 44 41 20 58 50 42 00  c7 0d 36 0b 42 4e 45 20  |LDA XPB...6.BNE |
000005c0  4e 53 51 55 50 00 d2 0d  40 0b 4c 44 41 20 59 50  |NSQUP...@.LDA YP|
000005d0  00 df 0d 4a 0b 43 4d 50  20 23 24 34 32 00 ed 0d  |...J.CMP #$42...|
000005e0  54 0b 42 43 43 20 4e 53  51 55 50 00 fa 0d 5e 0b  |T.BCC NSQUP...^.|
000005f0  43 4d 50 20 23 24 42 41  00 08 0e 68 0b 42 43 53  |CMP #$BA...h.BCS|
00000600  20 4e 53 51 55 50 00 13  0e 72 0b 4c 44 41 20 58  | NSQUP...r.LDA X|
00000610  50 00 1e 0e 7c 0b af 20  23 24 46 38 00 2c 0e 86  |P...|.. #$F8.,..|
00000620  0b 53 54 41 20 24 44 30  30 30 00 37 0e 9a 0b 4c  |.STA $D000.7...L|
00000630  44 41 20 59 50 00 42 0e  a4 0b af 20 23 24 46 38  |DA YP.B.... #$F8|
00000640  00 4e 0e a9 0b b0 41 20  23 24 30 32 00 5c 0e b8  |.N....A #$02.\..|
00000650  0b 53 54 41 20 24 44 30  30 31 00 6a 0e b9 0b 4c  |.STA $D001.j...L|
00000660  44 41 20 24 44 30 31 30  00 75 0e ba 0b af 20 23  |DA $D010.u.... #|
00000670  24 46 43 00 83 0e bc 0b  53 54 41 20 24 44 30 31  |$FC.....STA $D01|
00000680  30 00 90 0e bd 0b 4c 44  41 20 23 24 38 32 00 9e  |0.....LDA #$82..|
00000690  0e be 0b 53 54 41 20 24  35 42 46 38 00 ac 0e bf  |...STA $5BF8....|
000006a0  0b 4c 44 41 20 24 44 30  31 35 00 b7 0e c0 0b af  |.LDA $D015......|
000006b0  20 23 24 46 43 00 c3 0e  c1 0b b0 41 20 23 24 30  | #$FC......A #$0|
000006c0  31 00 d1 0e c2 0b 53 54  41 20 24 44 30 31 35 00  |1.....STA $D015.|
000006d0  de 0e ca 0b 4c 44 41 20  23 24 30 31 00 ec 0e cb  |....LDA #$01....|
000006e0  0b 53 54 41 20 24 44 30  32 37 00 f4 0e cc 0b 52  |.STA $D027.....R|
000006f0  54 53 00 05 0f d6 0b 4e  53 51 55 50 20 4c 44 41  |TS.....NSQUP LDA|
00000700  20 58 50 00 13 0f e0 0b  53 54 41 20 24 44 30 30  | XP.....STA $D00|
00000710  30 00 21 0f ea 0b 53 54  41 20 24 44 30 30 32 00  |0.!...STA $D002.|
00000720  2c 0f f4 0b 4c 44 41 20  59 50 00 3a 0f fe 0b 53  |,...LDA YP.:...S|
00000730  54 41 20 24 44 30 30 31  00 48 0f 08 0c 53 54 41  |TA $D001.H...STA|
00000740  20 24 44 30 30 33 00 56  0f 12 0c 4c 44 41 20 24  | $D003.V...LDA $|
00000750  44 30 31 30 00 61 0f 1c  0c af 20 23 24 46 43 00  |D010.a.... #$FC.|
00000760  6b 0f 26 0c 4c 53 52 20  41 00 73 0f 30 0c 43 4c  |k.&.LSR A.s.0.CL|
00000770  43 00 7f 0f 3a 0c 41 44  43 20 58 50 42 00 89 0f  |C...:.ADC XPB...|
00000780  44 0c 41 53 4c 20 41 00  91 0f 4e 0c 43 4c 43 00  |D.ASL A...N.CLC.|
00000790  9d 0f 58 0c 41 44 43 20  58 50 42 00 ab 0f 62 0c  |..X.ADC XPB...b.|
000007a0  53 54 41 20 24 44 30 31  30 00 b8 0f 6c 0c 4c 44  |STA $D010...l.LD|
000007b0  41 20 23 24 38 30 00 c6  0f 76 0c 53 54 41 20 24  |A #$80...v.STA $|
000007c0  35 42 46 38 00 d3 0f 80  0c 4c 44 41 20 23 24 38  |5BF8.....LDA #$8|
000007d0  31 00 e1 0f 8a 0c 53 54  41 20 24 35 42 46 39 00  |1.....STA $5BF9.|
000007e0  ef 0f 94 0c 4c 44 41 20  24 44 30 31 35 00 fb 0f  |....LDA $D015...|
000007f0  9e 0c b0 41 20 23 24 30  33 00 09 10 a8 0c 53 54  |...A #$03.....ST|
00000800  41 20 24 44 30 31 35 00  16 10 b2 0c 4c 44 41 20  |A $D015.....LDA |
00000810  23 24 30 30 00 24 10 bc  0c 53 54 41 20 24 44 30  |#$00.$...STA $D0|
00000820  32 37 00 31 10 c6 0c 4c  44 41 20 23 24 30 31 00  |27.1...LDA #$01.|
00000830  3f 10 d0 0c 53 54 41 20  24 44 30 32 38 00 47 10  |?...STA $D028.G.|
00000840  da 0c 52 54 53 00 00 00                           |..RTS...|
00000848