Home » Personal collection » Commodore disks » disk45a_galaxy64.d64 » bouncecode

bouncecode

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 » disk45a_galaxy64.d64
Filename: bouncecode
Read OK:
File size: 0956 bytes
Load address: 0801
Exec address: 0000
File contents
    10 ;             BOUNCE            ;
    20 ;         BY DOMINIC FORD       ;
    30 ;                               ;
    40 ; BASIC        - 1ST  JUNE 1993 ;
    50 ; MACHINE CODE - 13TH MAY  1995 ;
   100 *=$3C80
   110 XS=$3C00
   120 YS=$3C08
   130 XP=$3C10
   140 YP=$3C18
   150 RND=$0002
   200 ; LINE 10 (SEE PRINTOUT OF BASIC)
   210 L10 LDA #$93
   220 JSR $AB47
   230 LDA #$13
   240 JSR $AB47
   250 LDA #$09
   260 STA $D020
   270 LDA #$00
   280 STA $D021
   290 LDA #$05
   300 STA $DBE7
   310 ; LINE 20
   320 L20 LDX #$00
   330 WOOPNT LDY #$05
   340 WOOLOP LDA WOOZY,Y
   350 JSR $AB47
   360 DEY
   370 BNE WOOLOP
   380 INX
   390 CPX #$C7
   400 BNE WOOPNT
   410 LDY #$05
   420 WOOB LDA WOOZY,Y
   430 JSR $AB47
   440 DEY
   450 CPY #$01
   460 BNE WOOB
   470 ; LINE 30
   480 L30 LDA #$19
   490 STA $07E7
   500 LDA #$00
   510 STA $D015
   520 ; LINE 40
   530 L40 STA $D017
   540 STA $D01D
   550 STA $D010
   560 ; LINE 50
   570 L50 STA $D01C
   580 STA $D01B
   590 ; LINE 60 (NOTHING)
   600 ; LINE 70 (NOTHING)
   610 ; LINE 80+90
   620 L80 LDX #$08
   630 LDA #$F1
   640 POSLOP STA $07F7,X
   650 DEX
   660 BNE POSLOP
   670 ; LINE 100
   680 L100 LDX #$01
   690 COLLOP TXA
   700 STA $D026,X
   710 INX
   720 CPX #$09
   730 BNE COLLOP
   740 ; LINE 110
   750 L110 LDA #$00
   755 STA $FD
   760 ; LINE 120
   770 L120 LDA #<L120B
   780 STA $FB
   790 LDA #>L120B
   800 STA $FC
   810 RTS
   820 L120B LDA $02
   830 CMP #$38
   840 BCC L120
   850 CMP #$AA
   860 BCS L120
   870 LDX $FD
   880 STA YP,X
   890 TAY
   900 TXA
   910 ASL A
   920 TAX
   930 TYA
   940 STA $D001,X
   950 ; LINE 130
   960 L130 LDA #<L130B
   970 STA $FB
   980 LDA #>L130B
   990 STA $FC
  1000 RTS
  1010 WOOZY TXT "!WOOZY"
  1020 L130B LDA $02
  1030 CMP #$38
  1040 BCC L130
  1050 LDX $FD
  1060 STA XP,X
  1070 TAY
  1080 TXA
  1090 ASL A
  1100 TAX
  1110 TYA
  1120 STA $D000,X
  1130 LDX $FD
  1140 INX
  1150 STX $FD
  1160 CPX #$08
  1170 BNE L120
  1180 LDA #$00
  1190 STA $D01E
  1200 ; LINE 140
  1210 L140 LDX #$00
  1220 STX $FD
  1230 F140L LDA XP,X
  1240 TAY
  1250 TXA
  1260 ASL A
  1270 TAX
  1280 TYA
  1290 STA $D000,X
  1300 ; LINE 145
  1310 L145 LDX $FD
  1320 LDA YP,X
  1330 TAY
  1340 TXA
  1350 ASL A
  1360 TAX
  1370 TYA
  1380 STA $D001,X
  1390 LDX $FD
  1400 INX
  1410 STX $FD
  1420 CPX #$08
  1430 BNE F140L
  1440 ; LINE 150
  1450 L150 LDA $D01E
  1460 BNE L110
  1470 ; LINE 160
  1480 L160 LDA #$00
  1490 STA $D015
  5000 ; SPRITE DATA (340-400)
  5005 *=$3C40
  5010 TXT 0,127,0,1,255,192,7,255,224
  5020 TXT 15,255,240,31,255,248,63,255
  5030 TXT 252,63,255,252,127,255,254,127
  5040 TXT 255,254,127,255,254,127,255
  5050 TXT 254,127,255,254,127,255,254
  5060 TXT 127,255,254,63,255,252,63,255
  5070 TXT 252,31,255,248,31,255,248,15
  5080 TXT 255,240,7,255,224,1,255,128

'
;             BOUNCE            ;K;         BY DOMINIC �D       ;q;                               ;�(; BASIC        � 1ST  JUNE 1993 ;�2; MACHINE CODE � 13TH MAY  1995 ;�d��$3C80�nXS�$3C00�xYS�$3C08��XP�$3C10��YP�$3C18		���$0002+	�; LINE 10 (SEE �OUT OF BASIC)<	�L10 LDA #$93J	�JSR $AB47W	�LDA #$13e	�JSR $AB47r	�LDA #$09�	STA $D020�	LDA #$00�	STA $D021�	"LDA #$05�	,STA $DBE7�	6; LINE 20�	@L20 LDX #$00�	JWOOPNT LDY #$05
TWOOLOP LDA WOOZY,Y
^JSR $AB47
hDEY%
rBNE WOOLOP-
|INX:
�CPX #$C7I
�BNE WOOPNTV
�LDY #$05k
�WOOB LDA WOOZY,Yy
�JSR $AB47�
�DEY�
�CPY #$01�
�BNE WOOB�
�; LINE 30�
�L30 LDA #$19�
�STA $07E7�
�LDA #$00�
�STA $D015�
; LINE 40L40 STA $D017STA $D01D&STA $D010-0; LINE 50?:L50 STA $D01CMDSTA $D01BcN; LINE 60 (�HING)yX; LINE 70 (�HING)�b; LINE 80�90�lL80 LDX #$08�vLDA #$F1���LOP STA $07F7,X��DEX��BNE �LOP��; LINE 100��L100 LDX #$01�COLLOP TXA�STA $D026,X�INX'�CPX #$096�BNE COLLOPE�; LINE 110W�L110 LDA #$00c�STA $FDr�; LINE 120�L120 LDA #�L120B�STA $FB�LDA #�L120B� STA $FC�*RTS�4L120B LDA $02�>CMP #$38�HBCC L120�RCMP #$AA�\BCS L120	
fLDX $FD
pSTA YP,X
zTAY&
�TXA0
�ASL A8
�TAX@
�TYAP
�STA $D001,X_
�; LINE 130t
�L130 LDA #�L130B�
�STA $FB�
�LDA #�L130B�
�STA $FC�
�RTS�
�WOOZY TXT "!WOOZY"�
�L130B LDA $02�
CMP #$38�
BCC L130�
LDX $FD$STA XP,X.TAY8TXABASL A"LTAX*VTYA:`STA $D000,XFjLDX $FDNtINXZ~STX $FDg�CPX #$08t�BNE L120��LDA #$00��STA $D01E��; LINE 140��L140 LDX #$00��STX $FD��F140L LDA XP,X��TAY��TXA��ASL A��TAX�TYA	
STA $D000,X; LINE 145)L145 LDX $FD6(LDA YP,X>2TAYF<TXAPFASL AXPTAX`ZTYApdSTA $D001,X|nLDX $FD�xINX��STX $FD��CPX #$08��BNE F140L��; LINE 150��L150 LDA $D01E��BNE L110��; LINE 160��L160 LDA #$00	�STA $D015"�; SPRITE � (340-400).���$3C40R�TXT 0,127,0,1,255,192,7,255,224w�TXT 15,255,240,31,255,248,63,255��TXT 252,63,255,252,127,255,254,127��TXT 255,254,127,255,254,127,255��TXT 254,127,255,254,127,255,254�TXT 127,255,254,63,255,252,63,2551�TXT 252,31,255,248,31,255,248,15U�TXT 255,240,7,255,224,1,255,128
'HJ@;             bounce            ;@kHT@;         by dominic .d       ;@QH.@;                               ;@.H(@; basic        . 1st  june 1993 ;@.H2@; machine code . 13th may  1995 ;@.HD@..$3c80@.HN@xs.$3c00@.HX@ys.$3c08@.H.@xp.$3c10@.H.@yp.$3c18@II.@..$0002@+I.@; line 10 (see .out of basic)@<I.@l10 lda #$93@jI.@jsr $ab47@wI.@lda #$13@EI.@jsr $ab47@RI.@lda #$09@.IDAsta $d020@.INAlda #$00@.IXAsta $d021@.I"Alda #$05@.I,Asta $dbe7@.I6A; line 20@.I@Al20 ldx #$00@.IjAwoopnt ldy #$05@@JtAwoolop lda woozy,y@NJ.Ajsr $ab47@VJHAdey@%JRAbne woolop@-J.Ainx@:J.Acpx #$c7@iJ.Abne woopnt@vJ.Aldy #$05@KJ.Awoob lda woozy,y@YJ.Ajsr $ab47@.J.Adey@.J.Acpy #$01@.J.Abne woob@.J.A; line 30@.J.Al30 lda #$19@.J.Asta $07e7@.J.Alda #$00@.J.Asta $d015@.JHB; line 40@CKRBl40 sta $d017@QK£Bsta $d01d@.K&Bsta $d010@-K0B; line 50@?K:Bl50 sta $d01c@mKdBsta $d01b@CKnB; line 60 (.hing)@YKxB; line 70 (.hing)@.KBB; line 80.90@.KLBl80 ldx #$08@.KVBlda #$f1@.K.B.lop sta $07f7,x@.K.Bdex@.K.Bbne .lop@.K.B; line 100@.K.Bl100 ldx #$01@BL.Bcollop txa@RL.Bsta $d026,x@ZL.Binx@'L.Bcpx #$09@6L.Bbne collop@eL.B; line 110@wL.Bl110 lda #$00@CL.Bsta $fd@RL.B; line 120@.LBCl120 lda #.l120b@.LLCsta $fb@.LVClda #.l120b@.L Csta $fc@.L*Crts@.L4Cl120b lda $02@.L>Ccmp #$38@.LhCbcc l120@.LrCcmp #$aa@.L£Cbcs l120@IMFCldx $fd@VMPCsta yp,x@.MZCtay@&M.Ctxa@0M.Casl a@8M.Ctax@@M.Ctya@pM.Csta $d001,x@.M.C; line 130@TM.Cl130 lda #.l130b@.M.Csta $fb@.M.Clda #.l130b@.M.Csta $fc@.M.Crts@.M.Cwoozy txt "!woozy"@.M.Cl130b lda $02@.MFDcmp #$38@.MPDbcc l130@.MZDldx $fd@@N$Dsta xp,x@HN.Dtay@PN8Dtxa@ZNbDasl a@"NlDtax@*NvDtya@:N.Dsta $d000,x@fNJDldx $fd@nNTDinx@zN.Dstx $fd@GN.Dcpx #$08@TN.Dbne l120@.N.Dlda #$00@.N.Dsta $d01e@.N.D; line 140@.N.Dl140 ldx #$00@.N.Dstx $fd@.N.Df140l lda xp,x@.N.Dtay@.N.Dtxa@.N.Dasl a@.N.Dtax@.N@Etya@IOJEsta $d000,x@XOTE; line 145@)O.El145 ldx $fd@6O(Elda yp,x@>O2Etay@fO<Etxa@pOfEasl a@xOpEtax@.OzEtya@PODEsta $d001,x@.ONEldx $fd@.OXEinx@.O.Estx $fd@.O.Ecpx #$08@.O.Ebne f140l@.O.E; line 150@.O.El150 lda $d01e@.O.Ebne l110@.O.E; line 160@.O.El160 lda #$00@IP.Esta $d015@"P.S; sprite . (340-400)@.P.S..$3c40@rP.Stxt 0,127,0,1,255,192,7,255,224@WP.Stxt 15,255,240,31,255,248,63,255@.P.Stxt 252,63,255,252,127,255,254,127@.P.Stxt 255,254,127,255,254,127,255@.P.Stxt 254,127,255,254,127,255,254@LQ.Stxt 127,255,254,63,255,252,63,255@1Q.Stxt 252,31,255,248,31,255,248,15@uQ.Stxt 255,240,7,255,224,1,255,128@@@
00000000  27 08 0a 00 3b 20 20 20  20 20 20 20 20 20 20 20  |'...;           |
00000010  20 20 42 4f 55 4e 43 45  20 20 20 20 20 20 20 20  |  BOUNCE        |
00000020  20 20 20 20 3b 00 4b 08  14 00 3b 20 20 20 20 20  |    ;.K...;     |
00000030  20 20 20 20 42 59 20 44  4f 4d 49 4e 49 43 20 81  |    BY DOMINIC .|
00000040  44 20 20 20 20 20 20 20  3b 00 71 08 1e 00 3b 20  |D       ;.q...; |
00000050  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000060  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 00  |              ;.|
00000070  97 08 28 00 3b 20 42 41  53 49 43 20 20 20 20 20  |..(.; BASIC     |
00000080  20 20 20 ab 20 31 53 54  20 20 4a 55 4e 45 20 31  |   . 1ST  JUNE 1|
00000090  39 39 33 20 3b 00 bd 08  32 00 3b 20 4d 41 43 48  |993 ;...2.; MACH|
000000a0  49 4e 45 20 43 4f 44 45  20 ab 20 31 33 54 48 20  |INE CODE . 13TH |
000000b0  4d 41 59 20 20 31 39 39  35 20 3b 00 c9 08 64 00  |MAY  1995 ;...d.|
000000c0  ac b2 24 33 43 38 30 00  d6 08 6e 00 58 53 b2 24  |..$3C80...n.XS.$|
000000d0  33 43 30 30 00 e3 08 78  00 59 53 b2 24 33 43 30  |3C00...x.YS.$3C0|
000000e0  38 00 f0 08 82 00 58 50  b2 24 33 43 31 30 00 fd  |8.....XP.$3C10..|
000000f0  08 8c 00 59 50 b2 24 33  43 31 38 00 09 09 96 00  |...YP.$3C18.....|
00000100  bb b2 24 30 30 30 32 00  2b 09 c8 00 3b 20 4c 49  |..$0002.+...; LI|
00000110  4e 45 20 31 30 20 28 53  45 45 20 99 4f 55 54 20  |NE 10 (SEE .OUT |
00000120  4f 46 20 42 41 53 49 43  29 00 3c 09 d2 00 4c 31  |OF BASIC).<...L1|
00000130  30 20 4c 44 41 20 23 24  39 33 00 4a 09 dc 00 4a  |0 LDA #$93.J...J|
00000140  53 52 20 24 41 42 34 37  00 57 09 e6 00 4c 44 41  |SR $AB47.W...LDA|
00000150  20 23 24 31 33 00 65 09  f0 00 4a 53 52 20 24 41  | #$13.e...JSR $A|
00000160  42 34 37 00 72 09 fa 00  4c 44 41 20 23 24 30 39  |B47.r...LDA #$09|
00000170  00 80 09 04 01 53 54 41  20 24 44 30 32 30 00 8d  |.....STA $D020..|
00000180  09 0e 01 4c 44 41 20 23  24 30 30 00 9b 09 18 01  |...LDA #$00.....|
00000190  53 54 41 20 24 44 30 32  31 00 a8 09 22 01 4c 44  |STA $D021...".LD|
000001a0  41 20 23 24 30 35 00 b6  09 2c 01 53 54 41 20 24  |A #$05...,.STA $|
000001b0  44 42 45 37 00 c4 09 36  01 3b 20 4c 49 4e 45 20  |DBE7...6.; LINE |
000001c0  32 30 00 d5 09 40 01 4c  32 30 20 4c 44 58 20 23  |20...@.L20 LDX #|
000001d0  24 30 30 00 e9 09 4a 01  57 4f 4f 50 4e 54 20 4c  |$00...J.WOOPNT L|
000001e0  44 59 20 23 24 30 35 00  00 0a 54 01 57 4f 4f 4c  |DY #$05...T.WOOL|
000001f0  4f 50 20 4c 44 41 20 57  4f 4f 5a 59 2c 59 00 0e  |OP LDA WOOZY,Y..|
00000200  0a 5e 01 4a 53 52 20 24  41 42 34 37 00 16 0a 68  |.^.JSR $AB47...h|
00000210  01 44 45 59 00 25 0a 72  01 42 4e 45 20 57 4f 4f  |.DEY.%.r.BNE WOO|
00000220  4c 4f 50 00 2d 0a 7c 01  49 4e 58 00 3a 0a 86 01  |LOP.-.|.INX.:...|
00000230  43 50 58 20 23 24 43 37  00 49 0a 90 01 42 4e 45  |CPX #$C7.I...BNE|
00000240  20 57 4f 4f 50 4e 54 00  56 0a 9a 01 4c 44 59 20  | WOOPNT.V...LDY |
00000250  23 24 30 35 00 6b 0a a4  01 57 4f 4f 42 20 4c 44  |#$05.k...WOOB LD|
00000260  41 20 57 4f 4f 5a 59 2c  59 00 79 0a ae 01 4a 53  |A WOOZY,Y.y...JS|
00000270  52 20 24 41 42 34 37 00  81 0a b8 01 44 45 59 00  |R $AB47.....DEY.|
00000280  8e 0a c2 01 43 50 59 20  23 24 30 31 00 9b 0a cc  |....CPY #$01....|
00000290  01 42 4e 45 20 57 4f 4f  42 00 a9 0a d6 01 3b 20  |.BNE WOOB.....; |
000002a0  4c 49 4e 45 20 33 30 00  ba 0a e0 01 4c 33 30 20  |LINE 30.....L30 |
000002b0  4c 44 41 20 23 24 31 39  00 c8 0a ea 01 53 54 41  |LDA #$19.....STA|
000002c0  20 24 30 37 45 37 00 d5  0a f4 01 4c 44 41 20 23  | $07E7.....LDA #|
000002d0  24 30 30 00 e3 0a fe 01  53 54 41 20 24 44 30 31  |$00.....STA $D01|
000002e0  35 00 f1 0a 08 02 3b 20  4c 49 4e 45 20 34 30 00  |5.....; LINE 40.|
000002f0  03 0b 12 02 4c 34 30 20  53 54 41 20 24 44 30 31  |....L40 STA $D01|
00000300  37 00 11 0b 1c 02 53 54  41 20 24 44 30 31 44 00  |7.....STA $D01D.|
00000310  1f 0b 26 02 53 54 41 20  24 44 30 31 30 00 2d 0b  |..&.STA $D010.-.|
00000320  30 02 3b 20 4c 49 4e 45  20 35 30 00 3f 0b 3a 02  |0.; LINE 50.?.:.|
00000330  4c 35 30 20 53 54 41 20  24 44 30 31 43 00 4d 0b  |L50 STA $D01C.M.|
00000340  44 02 53 54 41 20 24 44  30 31 42 00 63 0b 4e 02  |D.STA $D01B.c.N.|
00000350  3b 20 4c 49 4e 45 20 36  30 20 28 a8 48 49 4e 47  |; LINE 60 (.HING|
00000360  29 00 79 0b 58 02 3b 20  4c 49 4e 45 20 37 30 20  |).y.X.; LINE 70 |
00000370  28 a8 48 49 4e 47 29 00  8a 0b 62 02 3b 20 4c 49  |(.HING)...b.; LI|
00000380  4e 45 20 38 30 aa 39 30  00 9b 0b 6c 02 4c 38 30  |NE 80.90...l.L80|
00000390  20 4c 44 58 20 23 24 30  38 00 a8 0b 76 02 4c 44  | LDX #$08...v.LD|
000003a0  41 20 23 24 46 31 00 bd  0b 80 02 b9 4c 4f 50 20  |A #$F1......LOP |
000003b0  53 54 41 20 24 30 37 46  37 2c 58 00 c5 0b 8a 02  |STA $07F7,X.....|
000003c0  44 45 58 00 d2 0b 94 02  42 4e 45 20 b9 4c 4f 50  |DEX.....BNE .LOP|
000003d0  00 e1 0b 9e 02 3b 20 4c  49 4e 45 20 31 30 30 00  |.....; LINE 100.|
000003e0  f3 0b a8 02 4c 31 30 30  20 4c 44 58 20 23 24 30  |....L100 LDX #$0|
000003f0  31 00 02 0c b2 02 43 4f  4c 4c 4f 50 20 54 58 41  |1.....COLLOP TXA|
00000400  00 12 0c bc 02 53 54 41  20 24 44 30 32 36 2c 58  |.....STA $D026,X|
00000410  00 1a 0c c6 02 49 4e 58  00 27 0c d0 02 43 50 58  |.....INX.'...CPX|
00000420  20 23 24 30 39 00 36 0c  da 02 42 4e 45 20 43 4f  | #$09.6...BNE CO|
00000430  4c 4c 4f 50 00 45 0c e4  02 3b 20 4c 49 4e 45 20  |LLOP.E...; LINE |
00000440  31 31 30 00 57 0c ee 02  4c 31 31 30 20 4c 44 41  |110.W...L110 LDA|
00000450  20 23 24 30 30 00 63 0c  f3 02 53 54 41 20 24 46  | #$00.c...STA $F|
00000460  44 00 72 0c f8 02 3b 20  4c 49 4e 45 20 31 32 30  |D.r...; LINE 120|
00000470  00 87 0c 02 03 4c 31 32  30 20 4c 44 41 20 23 b3  |.....L120 LDA #.|
00000480  4c 31 32 30 42 00 93 0c  0c 03 53 54 41 20 24 46  |L120B.....STA $F|
00000490  42 00 a3 0c 16 03 4c 44  41 20 23 b1 4c 31 32 30  |B.....LDA #.L120|
000004a0  42 00 af 0c 20 03 53 54  41 20 24 46 43 00 b7 0c  |B... .STA $FC...|
000004b0  2a 03 52 54 53 00 c9 0c  34 03 4c 31 32 30 42 20  |*.RTS...4.L120B |
000004c0  4c 44 41 20 24 30 32 00  d6 0c 3e 03 43 4d 50 20  |LDA $02...>.CMP |
000004d0  23 24 33 38 00 e3 0c 48  03 42 43 43 20 4c 31 32  |#$38...H.BCC L12|
000004e0  30 00 f0 0c 52 03 43 4d  50 20 23 24 41 41 00 fd  |0...R.CMP #$AA..|
000004f0  0c 5c 03 42 43 53 20 4c  31 32 30 00 09 0d 66 03  |.\.BCS L120...f.|
00000500  4c 44 58 20 24 46 44 00  16 0d 70 03 53 54 41 20  |LDX $FD...p.STA |
00000510  59 50 2c 58 00 1e 0d 7a  03 54 41 59 00 26 0d 84  |YP,X...z.TAY.&..|
00000520  03 54 58 41 00 30 0d 8e  03 41 53 4c 20 41 00 38  |.TXA.0...ASL A.8|
00000530  0d 98 03 54 41 58 00 40  0d a2 03 54 59 41 00 50  |...TAX.@...TYA.P|
00000540  0d ac 03 53 54 41 20 24  44 30 30 31 2c 58 00 5f  |...STA $D001,X._|
00000550  0d b6 03 3b 20 4c 49 4e  45 20 31 33 30 00 74 0d  |...; LINE 130.t.|
00000560  c0 03 4c 31 33 30 20 4c  44 41 20 23 b3 4c 31 33  |..L130 LDA #.L13|
00000570  30 42 00 80 0d ca 03 53  54 41 20 24 46 42 00 90  |0B.....STA $FB..|
00000580  0d d4 03 4c 44 41 20 23  b1 4c 31 33 30 42 00 9c  |...LDA #.L130B..|
00000590  0d de 03 53 54 41 20 24  46 43 00 a4 0d e8 03 52  |...STA $FC.....R|
000005a0  54 53 00 bb 0d f2 03 57  4f 4f 5a 59 20 54 58 54  |TS.....WOOZY TXT|
000005b0  20 22 21 57 4f 4f 5a 59  22 00 cd 0d fc 03 4c 31  | "!WOOZY".....L1|
000005c0  33 30 42 20 4c 44 41 20  24 30 32 00 da 0d 06 04  |30B LDA $02.....|
000005d0  43 4d 50 20 23 24 33 38  00 e7 0d 10 04 42 43 43  |CMP #$38.....BCC|
000005e0  20 4c 31 33 30 00 f3 0d  1a 04 4c 44 58 20 24 46  | L130.....LDX $F|
000005f0  44 00 00 0e 24 04 53 54  41 20 58 50 2c 58 00 08  |D...$.STA XP,X..|
00000600  0e 2e 04 54 41 59 00 10  0e 38 04 54 58 41 00 1a  |...TAY...8.TXA..|
00000610  0e 42 04 41 53 4c 20 41  00 22 0e 4c 04 54 41 58  |.B.ASL A.".L.TAX|
00000620  00 2a 0e 56 04 54 59 41  00 3a 0e 60 04 53 54 41  |.*.V.TYA.:.`.STA|
00000630  20 24 44 30 30 30 2c 58  00 46 0e 6a 04 4c 44 58  | $D000,X.F.j.LDX|
00000640  20 24 46 44 00 4e 0e 74  04 49 4e 58 00 5a 0e 7e  | $FD.N.t.INX.Z.~|
00000650  04 53 54 58 20 24 46 44  00 67 0e 88 04 43 50 58  |.STX $FD.g...CPX|
00000660  20 23 24 30 38 00 74 0e  92 04 42 4e 45 20 4c 31  | #$08.t...BNE L1|
00000670  32 30 00 81 0e 9c 04 4c  44 41 20 23 24 30 30 00  |20.....LDA #$00.|
00000680  8f 0e a6 04 53 54 41 20  24 44 30 31 45 00 9e 0e  |....STA $D01E...|
00000690  b0 04 3b 20 4c 49 4e 45  20 31 34 30 00 b0 0e ba  |..; LINE 140....|
000006a0  04 4c 31 34 30 20 4c 44  58 20 23 24 30 30 00 bc  |.L140 LDX #$00..|
000006b0  0e c4 04 53 54 58 20 24  46 44 00 cf 0e ce 04 46  |...STX $FD.....F|
000006c0  31 34 30 4c 20 4c 44 41  20 58 50 2c 58 00 d7 0e  |140L LDA XP,X...|
000006d0  d8 04 54 41 59 00 df 0e  e2 04 54 58 41 00 e9 0e  |..TAY.....TXA...|
000006e0  ec 04 41 53 4c 20 41 00  f1 0e f6 04 54 41 58 00  |..ASL A.....TAX.|
000006f0  f9 0e 00 05 54 59 41 00  09 0f 0a 05 53 54 41 20  |....TYA.....STA |
00000700  24 44 30 30 30 2c 58 00  18 0f 14 05 3b 20 4c 49  |$D000,X.....; LI|
00000710  4e 45 20 31 34 35 00 29  0f 1e 05 4c 31 34 35 20  |NE 145.)...L145 |
00000720  4c 44 58 20 24 46 44 00  36 0f 28 05 4c 44 41 20  |LDX $FD.6.(.LDA |
00000730  59 50 2c 58 00 3e 0f 32  05 54 41 59 00 46 0f 3c  |YP,X.>.2.TAY.F.<|
00000740  05 54 58 41 00 50 0f 46  05 41 53 4c 20 41 00 58  |.TXA.P.F.ASL A.X|
00000750  0f 50 05 54 41 58 00 60  0f 5a 05 54 59 41 00 70  |.P.TAX.`.Z.TYA.p|
00000760  0f 64 05 53 54 41 20 24  44 30 30 31 2c 58 00 7c  |.d.STA $D001,X.||
00000770  0f 6e 05 4c 44 58 20 24  46 44 00 84 0f 78 05 49  |.n.LDX $FD...x.I|
00000780  4e 58 00 90 0f 82 05 53  54 58 20 24 46 44 00 9d  |NX.....STX $FD..|
00000790  0f 8c 05 43 50 58 20 23  24 30 38 00 ab 0f 96 05  |...CPX #$08.....|
000007a0  42 4e 45 20 46 31 34 30  4c 00 ba 0f a0 05 3b 20  |BNE F140L.....; |
000007b0  4c 49 4e 45 20 31 35 30  00 cd 0f aa 05 4c 31 35  |LINE 150.....L15|
000007c0  30 20 4c 44 41 20 24 44  30 31 45 00 da 0f b4 05  |0 LDA $D01E.....|
000007d0  42 4e 45 20 4c 31 31 30  00 e9 0f be 05 3b 20 4c  |BNE L110.....; L|
000007e0  49 4e 45 20 31 36 30 00  fb 0f c8 05 4c 31 36 30  |INE 160.....L160|
000007f0  20 4c 44 41 20 23 24 30  30 00 09 10 d2 05 53 54  | LDA #$00.....ST|
00000800  41 20 24 44 30 31 35 00  22 10 88 13 3b 20 53 50  |A $D015."...; SP|
00000810  52 49 54 45 20 83 20 28  33 34 30 2d 34 30 30 29  |RITE . (340-400)|
00000820  00 2e 10 8d 13 ac b2 24  33 43 34 30 00 52 10 92  |.......$3C40.R..|
00000830  13 54 58 54 20 30 2c 31  32 37 2c 30 2c 31 2c 32  |.TXT 0,127,0,1,2|
00000840  35 35 2c 31 39 32 2c 37  2c 32 35 35 2c 32 32 34  |55,192,7,255,224|
00000850  00 77 10 9c 13 54 58 54  20 31 35 2c 32 35 35 2c  |.w...TXT 15,255,|
00000860  32 34 30 2c 33 31 2c 32  35 35 2c 32 34 38 2c 36  |240,31,255,248,6|
00000870  33 2c 32 35 35 00 9e 10  a6 13 54 58 54 20 32 35  |3,255.....TXT 25|
00000880  32 2c 36 33 2c 32 35 35  2c 32 35 32 2c 31 32 37  |2,63,255,252,127|
00000890  2c 32 35 35 2c 32 35 34  2c 31 32 37 00 c2 10 b0  |,255,254,127....|
000008a0  13 54 58 54 20 32 35 35  2c 32 35 34 2c 31 32 37  |.TXT 255,254,127|
000008b0  2c 32 35 35 2c 32 35 34  2c 31 32 37 2c 32 35 35  |,255,254,127,255|
000008c0  00 e6 10 ba 13 54 58 54  20 32 35 34 2c 31 32 37  |.....TXT 254,127|
000008d0  2c 32 35 35 2c 32 35 34  2c 31 32 37 2c 32 35 35  |,255,254,127,255|
000008e0  2c 32 35 34 00 0c 11 c4  13 54 58 54 20 31 32 37  |,254.....TXT 127|
000008f0  2c 32 35 35 2c 32 35 34  2c 36 33 2c 32 35 35 2c  |,255,254,63,255,|
00000900  32 35 32 2c 36 33 2c 32  35 35 00 31 11 ce 13 54  |252,63,255.1...T|
00000910  58 54 20 32 35 32 2c 33  31 2c 32 35 35 2c 32 34  |XT 252,31,255,24|
00000920  38 2c 33 31 2c 32 35 35  2c 32 34 38 2c 31 35 00  |8,31,255,248,15.|
00000930  55 11 d8 13 54 58 54 20  32 35 35 2c 32 34 30 2c  |U...TXT 255,240,|
00000940  37 2c 32 35 35 2c 32 32  34 2c 31 2c 32 35 35 2c  |7,255,224,1,255,|
00000950  31 32 38 00 00 00                                 |128...|
00000956