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

bouncecode5

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: bouncecode5
Read OK:
File size: 1527 bytes
Load address: 0801
Exec address: 0000
File contents
    10 REM              BOUNCE
    20 REM          BY DOMINIC FORD
    30 REM
    40 REM  BASIC        - 1ST  JUNE 1993
    50 REM  MACHINE CODE - 13TH MAY  1995
    70 GOTO 6000
   100 *=$3C80
   110 XS=$3C00
   120 YS=$3C08
   130 XP=$3C10
   140 YP=$3C18
   150 RND=$0002
   160 XST=$3C20
   170 YST=$3C21
   180 ADRP=$3C22
   190 EX=$3C23
   192 CBNO=$3C24
   194 XPIX=$3C25
   195 YPIX=$3C26
   196 XPIXB=$3C27
   197 YPIXB=$3C28
   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 "!YZOOW"
  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
  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 #$07
  1452 L150L PHA
  1453 JSR CHECKBALL
  1454 BNE L110
  1455 PLA
  1456 TAX
  1457 DEX
  1458 TXA
  1459 BNE L150L
  1470 ; LINE 160
  1480 L160 LDA #$00
  1490 STA $D015
  1500 LDX #$00
  1510 L170 LDA $A2
  1520 AND #$01
  1530 CMP #$01
  1540 BEQ L170B
  1550 LDA #$FF
  1560 L170B STA XS,X
  1570 ; LINE 180
  1580 L180 LDA $A1
  1590 AND #$01
  1600 CMP #$01
  1610 BEQ L180B
  1620 LDA #$FF
  1630 L180B STA YS,X
  1640 ; LINE 190 (NOTHING)
  1650 ; LINE 200 (NOTHING)
  1660 L210 INX
  1670 CPX #$08
  1680 BNE L170
  1690 LDA #$FF
  1700 STA $D015
  1705 JMP IRQ
  1710 ; LINE 220 (MAIN PROGRAM LOOP)
  1720 L220 LDX #$00
  1725 LDY #$01
  1730 L220LOP STX XST
  1735 STY YST
  1740 TXA
  1750 ASL A
  1760 STA ADRP
  1770 LDA $D010
  1780 AND YST
  1782 BEQ STEX
  1785 LDA #$01
  1790 STEX STA EX
  1800 L230 LDX ADRP
  1810 LDA $D000,X
  1820 CMP #$FF
  1830 BNE L240
  1840 LDA EX
  1850 BNE L240
  1860 LDX XST
  1870 LDA XS,X
  1880 CMP #$01
  1890 BNE L240
  1900 LDA $D010
  1910 ORA YST
  1920 STA $D010
  1930 LDA #$02
  1940 STA EX
  1942 LDX ADRP
  1944 LDA #$00
  1946 STA $D000,X
  1950 L240 LDX ADRP
  1960 LDA $D000,X
  1970 BNE L250
  1980 LDA EX
  1990 CMP #$01
  2000 BNE L250
  2010 LDX XST
  2020 LDA XS,X
  2030 CMP #$FF
  2040 BNE L250
  2050 LDX ADRP
  2060 LDA #$FF
  2070 STA $D000,X
  2080 LDA $D010
  2090 SEC
  2100 SBC YST
  2110 STA $D010
  2120 LDA #$02
  2130 STA EX
  2140 L250 LDX ADRP
  2150 LDY XST
  2160 LDA $D000,X
  2170 CLC
  2180 ADC XS,Y
  2190 STA $D000,X
  2200 L260 CMP #$1A
  2210 BCS L270
  2220 LDA EX
  2230 BNE L270
  2240 LDA #$01
  2250 STA XS,Y
  2255 L270 LDA $D000,X
  2260 CMP #$41
  2270 BCC L280
  2280 LDA EX
  2300 BEQ L280
  2310 LDA #$FF
  2320 STA XS,Y
  2330 L280 JSR L1000
  2350 CMP #$00
  2360 BEQ L290
  2370 LDA XS,Y
  2380 CMP #$01
  2390 BEQ L280B
  2400 LDA #$01
  2410 JMP L280C
  2420 L280B LDA #$FF
  2430 L280C STA XS,Y
  2440 L290 INX
  2450 LDA $D000,X
  2460 CLC
  2470 ADC YS,Y
  2480 STA $D000,X
  2490 L300 CMP #$E6
  2500 BCC L310
  2510 LDA #$FF
  2520 STA YS,Y
  2525 L310 LDA $D000,X
  2530 CMP #$32
  2540 BCS L320
  2550 LDA #$01
  2560 STA YS,Y
  2570 L320 JSR L1000
  2590 CMP #$00
  2600 BEQ L330
  2610 LDA YS,Y
  2620 CMP #$01
  2630 BEQ L320B
  2640 LDA #$01
  2650 JMP L320C
  2660 L320B LDA #$FF
  2670 L320C STA YS,Y
  2680 L330 LDX XST
  2690 INX
  2700 LDA YST
  2710 ASL A
  2720 TAY
  2730 CPX #$08
  2740 BEQ L330B
  2750 JMP L220LOP
  2760 L330B JMP $EA31
  2800 L1000 LDA XST
  2810 JSR CHECKBALL
  2820 RTS
  2850 IRQ SEI
  2860 LDA #<L220
  2870 STA $0314
  2880 LDA #>L220
  2890 STA $0315
  2900 CLI
  2910 IQRLOP JMP IQRLOP
  3000 CHEND LDA #$00
  3010 RTS
  3020 CHECKBALL STA CBNO
  3030 ASL A
  3040 TAX
  3050 LDA $D000,X
  3060 CLC
  3070 ADC #$0C
  3080 STA XPIX
  3090 LDA $D001,X
  3100 CLC
  3110 ADC #$0A
  3120 STA YPIX
  3130 LDA #$FF
  3140 PHA
  3150 CHLOP PLA
  3160 CHLOPB CLC
  3170 ADC #$01
  3180 CMP #$08
  3190 BEQ CHEND
  3200 CMP CBNO
  3210 BEQ CHLOPB
  3220 PHA
  3230 ASL A
  3240 TAX
  3250 LDA $D000,X
  3260 CLC
  3270 ADC #$0C
  3280 STA XPIXB
  3290 LDA $D001,X
  3300 CLC
  3310 ADC #$0A
  3320 STA YPIXB
  3330 CMP YPIX
  3340 BCS YCHECK
  3350 SEC
  3360 SBC YPIX
  3370 CMP #$15
  3380 BCS CHLOP
  3390 JMP YCONT
  3400 YCHECK LDA YPIX
  3410 SEC
  3420 SBC YPIXB
  3430 CMP #$15
  3440 BCS CHLOP
  3450 YCONT LDA XPIX
  3460 CMP XPIXB
  3470 BCS XCHECK
  3480 SEC
  3490 SBC #$18
  3500 BCS CHLOP
  3510 JMP XCONT
  3520 XCHECK LDA YPIXB
  3530 SEC
  3540 SBC XPIX
  3550 CMP #$18
  3560 BCS CHLOP
  3570 XCONT PLA
  3580 LDA #$01
  3590 RTS
  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
  5100 END
  6000 REM CONTROLLER
  6020 SYS $3C80
  6030 POKE 2,INT(RND(1)*255)
  6040 SYS (PEEK($FB)+PEEK($FC)*256)
  6050 GOTO 6030


�              BOUNCE:�          BY DOMINIC FORD@�e(�  BASIC        - 1ST  JUNE 1993�2�  MACHINE CODE - 13TH MAY  1995�F� 6000�d��$3C80�nXS�$3C00�xYS�$3C08��XP�$3C10��YP�$3C18����$0002��XST�$3C20��YST�$3C21	�ADRP�$3C22	�EX�$3C23(	�CBNO�$3C247	�XPIX�$3C25F	�YPIX�$3C26V	�XPIXB�$3C27f	�YPIXB�$3C28�	�; LINE 10 (SEE �OUT OF BASIC)�	�L10 LDA #$93�	�JSR $AB47�	�LDA #$13�	�JSR $AB47�	�LDA #$09�	STA $D020�	LDA #$00�	STA $D021
"LDA #$05
,STA $DBE7!
6; LINE 202
@L20 LDX #$00F
JWOOPNT LDY #$05]
TWOOLOP LDA WOOZY,Yk
^JSR $AB47s
hDEY�
rBNE WOOLOP�
|INX�
�CPX #$C7�
�BNE WOOPNT�
�LDY #$05�
�WOOB LDA WOOZY,Y�
�JSR $AB47�
�DEY�
�CPY #$01�
�BNE WOOB�; LINE 30�L30 LDA #$19%�STA $07E72�LDA #$00@�STA $D015N; LINE 40`L40 STA $D017nSTA $D01D|&STA $D010�0; LINE 50�:L50 STA $D01C�DSTA $D01B�N; LINE 60 (�HING)�X; LINE 70 (�HING)�b; LINE 80�90�lL80 LDX #$08vLDA #$F1��LOP STA $07F7,X"�DEX/�BNE �LOP>�; LINE 100P�L100 LDX #$01_�COLLOP TXAo�STA $D026,Xw�INX��CPX #$09��BNE COLLOP��; LINE 110��L110 LDA #$00��STA $FD��; LINE 120�L120 LDA #�L120B�STA $FB
LDA #�L120B
 STA $FC
*RTS&
4L120B LDA $023
>CMP #$38@
HBCC L120M
RCMP #$AAZ
\BCS L120f
fLDX $FDs
pSTA YP,X{
zTAY�
�TXA�
�ASL A�
�TAX�
�TYA�
�STA $D001,X�
�; LINE 130�
�L130 LDA #�L130B�
�STA $FB�
�LDA #�L130B�
�STA $FC�RTS�WOOZY TXT "!YZOOW"*�L130B LDA $027CMP #$38DBCC L130PLDX $FD]$STA XP,Xe.TAYm8TXAwBASL ALTAX�VTYA�`STA $D000,X�jLDX $FD�tINX�~STX $FD��CPX #$08��BNE L120��; LINE 140��L140 LDX #$00��STX $FD�F140L LDA XP,X�TAY!�TXA+�ASL A3�TAX;TYAK
STA $D000,XZ; LINE 145kL145 LDX $FDx(LDA YP,X�2TAY�<TXA�FASL A�PTAX�ZTYA�dSTA $D001,X�nLDX $FD�xINX��STX $FD��CPX #$08��BNE F140L��; LINE 150�L150 LDA #$07�L150L PHA.�JSR CHECKBALL;�BNE L110C�PLAK�TAXS�DEX[�TXAi�BNE L150Lx�; LINE 160��L160 LDA #$00��STA $D015��LDX #$00��L170 LDA $A2��� #$01��CMP #$01�BEQ L170B�LDA #$FF�L170B STA XS,X"; LINE 180,L180 LDA $A1'6� #$014@CMP #$01BJBEQ L180BOTLDA #$FFb^L180B STA YS,Xyh; LINE 190 (�HING)�r; LINE 200 (�HING)�|L210 INX��CPX #$08��BNE L170��LDA #$FF��STA $D015��JMP IRQ�; LINE 220 (MAIN PROGRAM LOOP)�L220 LDX #$00 �LDY #$014�L220LOP STX XST@�STY YSTH�TXAR�ASL A_�STA ADRPm�LDA $D010w�� YST��BEQ STEX��LDA #$01��STEX STA EX�L230 LDX ADRP�LDA $D000,X�CMP #$FF�&BNE L240�0LDA EX�:BNE L240DLDX XSTNLDA XS,XXCMP #$01(bBNE L2406lLDA $D010Av�A YSTO�STA $D010\�LDA #$02g�STA EXt�LDX ADRP��LDA #$00��STA $D000,X��L240 LDX ADRP��LDA $D000,X��BNE L250��LDA EX��CMP #$01��BNE L250��LDX XST��LDA XS,X�CMP #$FF�BNE L250%LDX ADRP2LDA #$FFBSTA $D000,XP LDA $D010X*SECd4SBC YSTr>STA $D010HLDA #$02�RSTA EX�\L250 LDX ADRP�fLDY XST�pLDA $D000,X�zCLC��ADC XS,Y��STA $D000,X��L260 CMP #$1A��BCS L270�LDA EX�BNE L270!�LDA #$01.�STA XS,YC�L270 LDA $D000,XP�CMP #$41]�BCC L280h�LDA EXu�BEQ L280�	LDA #$FF�	STA XS,Y�	L280 JSR L1000�.	CMP #$00�8	BEQ L290�B	LDA XS,Y�L	CMP #$01�V	BEQ L280B�`	LDA #$01�j	JMP L280Ct	L280B LDA #$FF%~	L280C STA XS,Y2�	L290 INXB�	LDA $D000,XJ�	CLCW�	ADC YS,Yg�	STA $D000,Xy�	L300 CMP #$E6��	BCC L310��	LDA #$FF��	STA YS,Y��	L310 LDA $D000,X��	CMP #$32��	BCS L320��	LDA #$01�
STA YS,Y�

L320 JSR L1000	
CMP #$00(
BEQ L330#2
LDA YS,Y0<
CMP #$01>F
BEQ L320BKP
LDA #$01YZ
JMP L320Cld
L320B LDA #$FFn
L320C STA YS,Y�x
L330 LDX XST��
INX��
LDA YST��
ASL A��
TAY��
CPX #$08��
BEQ L330B��
JMP L220LOP��
L330B JMP $EA31�
L1000 LDA XST�
JSR CHECKBALL!RTS-"IRQ SEI<,LDA #�L220J6STA $0314Y@LDA #�L220gJSTA $0315oTCLI�^IQRLOP JMP IQRLOP��CH� LDA #$00��RTS��CHECKBALL STA CBNO��ASL A��TAX��LDA $D000,X��CLC��ADC #$0C�STA XPIX	LDA $D001,XCLC&ADC #$0A+0STA YPIX8:LDA #$FF@DPHANNCHLOP PLA]XCHLOPB CLCjbADC #$01wlCMP #$08�vBEQ CH���CMP CBNO��BEQ CHLOPB��PHA��ASL A��TAX��LDA $D000,X��CLC��ADC #$0C��STA XPIXB��LDA $D001,X�CLC�ADC #$0A�STA YPIXB,
CMP YPIX;
BCS YCHECKC
SECP 
SBC YPIX]*
CMP #$15k4
BCS CHLOPv>
JMP Y��H
YCHECK LDA YPIX�R
SEC�\
SBC YPIXB�f
CMP #$15�p
BCS CHLOP�z
Y� LDA XPIX��
CMP XPIXB��
BCS XCHECK��
SEC��
SBC #$18�
BCS CHLOP�
JMP X�+�
XCHECK LDA YPIXB3�
SEC@�
SBC XPIXM�
CMP #$18[�
BCS CHLOPf�
X� PLAs�
LDA #$01{RTS��; SPRITE DATA (340-400)����$3C40��TXT 0,127,0,1,255,192,7,255,224��TXT 15,255,240,31,255,248,63,255�TXT 252,63,255,252,127,255,254,1277�TXT 255,254,127,255,254,127,255[�TXT 254,127,255,254,127,255,254��TXT 127,255,254,63,255,252,63,255��TXT 252,31,255,248,31,255,248,15��TXT 255,240,7,255,224,1,255,128����p� CONTROLLER��� $3C80�� 2,�(�(1)�255)�� (�($FB)��($FC)�256)&�� 6030
[HJ@.              bounce@:HT@.          by dominic ford@@H.@.@EH(@.  basic        - 1st  june 1993@.H2@.  machine code - 13th may  1995@.Hf@. 6000@.HD@..$3c80@.HN@xs.$3c00@.HX@ys.$3c08@.H.@xp.$3c10@.H.@yp.$3c18@.H.@..$0002@.H.@xst.$3c20@.H.@yst.$3c21@LI.@adrp.$3c22@YI.@ex.$3c23@(I.@cbno.$3c24@7I.@xpix.$3c25@fI.@ypix.$3c26@vI.@xpixb.$3c27@FI.@ypixb.$3c28@.I.@; line 10 (see .out of basic)@.I.@l10 lda #$93@.I.@jsr $ab47@.I.@lda #$13@.I.@jsr $ab47@.I.@lda #$09@.IDAsta $d020@.INAlda #$00@.IXAsta $d021@EJ"Alda #$05@SJ,Asta $dbe7@!J6A; line 20@2J@Al20 ldx #$00@fJjAwoopnt ldy #$05@]JtAwoolop lda woozy,y@KJ.Ajsr $ab47@SJHAdey@.JRAbne woolop@.J.Ainx@.J.Acpx #$c7@.J.Abne woopnt@.J.Aldy #$05@.J.Awoob lda woozy,y@.J.Ajsr $ab47@.J.Adey@.J.Acpy #$01@.J.Abne woob@FK.A; line 30@WK.Al30 lda #$19@%K.Asta $07e7@2K.Alda #$00@@K.Asta $d015@nKHB; line 40@.KRBl40 sta $d017@NK£Bsta $d01d@.K&Bsta $d010@.K0B; line 50@.K:Bl50 sta $d01c@.KdBsta $d01b@.KnB; line 60 (.hing)@.KxB; line 70 (.hing)@.KBB; line 80.90@.KLBl80 ldx #$08@ELVBlda #$f1@ZL.B.lop sta $07f7,x@"L.Bdex@/L.Bbne .lop@>L.B; line 100@pL.Bl100 ldx #$01@.L.Bcollop txa@OL.Bsta $d026,x@WL.Binx@.L.Bcpx #$09@.L.Bbne collop@.L.B; line 110@.L.Bl110 lda #$00@.L.Bsta $fd@.L.B; line 120@.LBCl120 lda #.l120b@.LLCsta $fb@@MVClda #.l120b@LM Csta $fc@TM*Crts@&M4Cl120b lda $02@3M>Ccmp #$38@@MhCbcc l120@mMrCcmp #$aa@zM£Cbcs l120@FMFCldx $fd@SMPCsta yp,x@.MZCtay@.M.Ctxa@.M.Casl a@.M.Ctax@.M.Ctya@.M.Csta $d001,x@.M.C; line 130@.M.Cl130 lda #.l130b@.M.Csta $fb@.M.Clda #.l130b@.M.Csta $fc@AN.Crts@XN.Cwoozy txt "!yzoow"@*N.Cl130b lda $02@7NFDcmp #$38@dNPDbcc l130@pNZDldx $fd@]N$Dsta xp,x@EN.Dtay@MN8Dtxa@WNbDasl a@.NlDtax@.NvDtya@.N.Dsta $d000,x@.NJDldx $fd@.NTDinx@.N.Dstx $fd@.N.Dcpx #$08@.N.Dbne l120@.N.D; line 140@.N.Dl140 ldx #$00@.N.Dstx $fd@QO.Df140l lda xp,x@YO.Dtay@!O.Dtxa@+O.Dasl a@3O.Dtax@;O@Etya@kOJEsta $d000,x@zOTE; line 145@KO.El145 ldx $fd@XO(Elda yp,x@.O2Etay@.O<Etxa@.OfEasl a@.OpEtax@.OzEtya@.ODEsta $d001,x@.ONEldx $fd@.OXEinx@.O.Estx $fd@.O.Ecpx #$08@.O.Ebne f140l@.O.E; line 150@NP.El150 lda #$07@£P.El150l pha@.P.Ejsr checkball@;P.Ebne l110@cP.Epla@kP.Etax@sP.Edex@[P.Etxa@IP.Ebne l150l@XP.E; line 160@.P.El160 lda #$00@.P.Esta $d015@.P.Eldx #$00@.P.El170 lda $a2@.P.E. #$01@.P.Ecmp #$01@.PDFbeq l170b@.PNFlda #$ff@.PXFl170b sta xs,x@KQ"F; line 180@£Q,Fl180 lda $a1@'Q6F. #$01@4Q@Fcmp #$01@bQjFbeq l180b@oQtFlda #$ff@BQ.Fl180b sta ys,x@YQHF; line 190 (.hing)@.QRF; line 200 (.hing)@.Q.Fl210 inx@.Q.Fcpx #$08@.Q.Fbne l170@.Q.Flda #$ff@.Q.Fsta $d015@.Q.Fjmp irq@AR.F; line 220 (main program loop)@SR.Fl220 ldx #$00@ R.Fldy #$01@4R.Fl220lop stx xst@@R.Fsty yst@hR.Ftxa@rR.Fasl a@.R.Fsta adrp@MR.Flda $d010@WR.F. yst@.R.Fbeq stex@.R.Flda #$01@.R.Fstex sta ex@.RHGl230 ldx adrp@.RRGlda $d000,x@.R£Gcmp #$ff@.R&Gbne l240@.R0Glda ex@.R:Gbne l240@ASdGldx xst@NSnGlda xs,x@[SxGcmp #$01@(SBGbne l240@6SLGlda $d010@aSVG.a yst@oS.Gsta $d010@£S.Glda #$02@GS.Gsta ex@TS.Gldx adrp@.S.Glda #$00@.S.Gsta $d000,x@.S.Gl240 ldx adrp@.S.Glda $d000,x@.S.Gbne l250@.S.Glda ex@.S.Gcmp #$01@.S.Gbne l250@.S.Gldx xst@.S.Glda xs,x@KT.Gcmp #$ff@XT.Gbne l250@%TBHldx adrp@2TLHlda #$ff@bTVHsta $d000,x@pT Hlda $d010@xT*Hsec@DT4Hsbc yst@RT>Hsta $d010@.ThHlda #$02@.TrHsta ex@.T£Hl250 ldx adrp@.TFHldy xst@.TPHlda $d000,x@.TZHclc@.T.Hadc xs,y@.T.Hsta $d000,x@.T.Hl260 cmp #$1a@.T.Hbcs l270@GU.Hlda ex@TU.Hbne l270@!U.Hlda #$01@.U.Hsta xs,y@cU.Hl270 lda $d000,x@pU.Hcmp #$41@]U.Hbcc l280@HU.Hlda ex@UU.Hbeq l280@.UFIlda #$ff@.UPIsta xs,y@.UZIl280 jsr l1000@.U.Icmp #$00@.U8Ibeq l290@.UbIlda xs,y@.UlIcmp #$01@.UvIbeq l280b@.U.Ilda #$01@.UJIjmp l280c@RVTIl280b lda #$ff@%V.Il280c sta xs,y@2V.Il290 inx@bV.Ilda $d000,x@jV.Iclc@wV.Iadc ys,y@GV.Ista $d000,x@YV.Il300 cmp #$e6@.V.Ibcc l310@.V.Ilda #$ff@.V.Ista ys,y@.V.Il310 lda $d000,x@.V.Icmp #$32@.V.Ibcs l320@.V.Ilda #$01@.V@Jsta ys,y@.VJJl320 jsr l1000@IW.Jcmp #$00@VW(Jbeq l330@#W2Jlda ys,y@0W<Jcmp #$01@>WfJbeq l320b@kWpJlda #$01@yWzJjmp l320c@LWDJl320b lda #$ff@.WNJl320c sta ys,y@.WXJl330 ldx xst@.W.Jinx@.W.Jlda yst@.W.Jasl a@.W.Jtay@.W.Jcpx #$08@.W.Jbeq l330b@.W.Jjmp l220lop@.W.Jl330b jmp $ea31@GX.Jl1000 lda xst@YX.Jjsr checkball@!XDKrts@-X"Kirq sei@<X,Klda #.l220@jX6Ksta $0314@yX@Klda #.l220@GXjKsta $0315@OXtKcli@.X.Kiqrlop jmp iqrlop@.X.Kch. lda #$00@.X.Krts@.X.Kcheckball sta cbno@.X.Kasl a@.X.Ktax@.X.Klda $d000,x@.X.Kclc@.X.Kadc #$0c@.XHLsta xpix@IYRLlda $d001,x@QY£Lclc@.Y&Ladc #$0a@+Y0Lsta ypix@8Y:Llda #$ff@@YdLpha@nYnLchlop pla@]YxLchlopb clc@JYBLadc #$01@WYLLcmp #$08@.YVLbeq ch.@.Y.Lcmp cbno@.Y.Lbeq chlopb@.Y.Lpha@.Y.Lasl a@.Y.Ltax@.Y.Llda $d000,x@.Y.Lclc@.Y.Ladc #$0c@.Y.Lsta xpixb@.Y.Llda $d001,x@DZ.Lclc@QZ.Ladc #$0a@.Z.Lsta ypixb@,ZBMcmp ypix@;ZLMbcs ycheck@cZVMsec@pZ Msbc ypix@]Z*Mcmp #$15@KZ4Mbcs chlop@VZ>Mjmp y.@.ZhMycheck lda ypix@.ZrMsec@.Z£Msbc ypixb@.ZFMcmp #$15@.ZPMbcs chlop@.ZZMy. lda xpix@.Z.Mcmp xpixb@.Z.Mbcs xcheck@.Z.Msec@.Z.Msbc #$18@K[.Mbcs chlop@V[.Mjmp x.@+[.Mxcheck lda ypixb@3[.Msec@@[.Msbc xpix@m[.Mcmp #$18@[[.Mbcs chlop@F[.Mx. pla@S[.Mlda #$01@.[FNrts@.[.S; sprite data (340-400)@.[.S..$3c40@.[.Stxt 0,127,0,1,255,192,7,255,224@.[.Stxt 15,255,240,31,255,248,63,255@S£.Stxt 252,63,255,252,127,255,254,127@7£.Stxt 255,254,127,255,254,127,255@[£.Stxt 254,127,255,254,127,255,254@.£.Stxt 127,255,254,63,255,252,63,255@.£.Stxt 252,31,255,248,31,255,248,15@.£.Stxt 255,240,7,255,224,1,255,128@.£.S.@.£PW. controller@.£.W. $3c80@A].W. 2,.(.(1).255)@[].W. (.($fb)..($fc).256)@&].W. 6030@@@
00000000  1b 08 0a 00 8f 20 20 20  20 20 20 20 20 20 20 20  |.....           |
00000010  20 20 20 42 4f 55 4e 43  45 00 3a 08 14 00 8f 20  |   BOUNCE.:.... |
00000020  20 20 20 20 20 20 20 20  20 42 59 20 44 4f 4d 49  |         BY DOMI|
00000030  4e 49 43 20 46 4f 52 44  00 40 08 1e 00 8f 00 65  |NIC FORD.@.....e|
00000040  08 28 00 8f 20 20 42 41  53 49 43 20 20 20 20 20  |.(..  BASIC     |
00000050  20 20 20 2d 20 31 53 54  20 20 4a 55 4e 45 20 31  |   - 1ST  JUNE 1|
00000060  39 39 33 00 8a 08 32 00  8f 20 20 4d 41 43 48 49  |993...2..  MACHI|
00000070  4e 45 20 43 4f 44 45 20  2d 20 31 33 54 48 20 4d  |NE CODE - 13TH M|
00000080  41 59 20 20 31 39 39 35  00 95 08 46 00 89 20 36  |AY  1995...F.. 6|
00000090  30 30 30 00 a1 08 64 00  ac b2 24 33 43 38 30 00  |000...d...$3C80.|
000000a0  ae 08 6e 00 58 53 b2 24  33 43 30 30 00 bb 08 78  |..n.XS.$3C00...x|
000000b0  00 59 53 b2 24 33 43 30  38 00 c8 08 82 00 58 50  |.YS.$3C08.....XP|
000000c0  b2 24 33 43 31 30 00 d5  08 8c 00 59 50 b2 24 33  |.$3C10.....YP.$3|
000000d0  43 31 38 00 e1 08 96 00  bb b2 24 30 30 30 32 00  |C18.......$0002.|
000000e0  ef 08 a0 00 58 53 54 b2  24 33 43 32 30 00 fd 08  |....XST.$3C20...|
000000f0  aa 00 59 53 54 b2 24 33  43 32 31 00 0c 09 b4 00  |..YST.$3C21.....|
00000100  41 44 52 50 b2 24 33 43  32 32 00 19 09 be 00 45  |ADRP.$3C22.....E|
00000110  58 b2 24 33 43 32 33 00  28 09 c0 00 43 42 4e 4f  |X.$3C23.(...CBNO|
00000120  b2 24 33 43 32 34 00 37  09 c2 00 58 50 49 58 b2  |.$3C24.7...XPIX.|
00000130  24 33 43 32 35 00 46 09  c3 00 59 50 49 58 b2 24  |$3C25.F...YPIX.$|
00000140  33 43 32 36 00 56 09 c4  00 58 50 49 58 42 b2 24  |3C26.V...XPIXB.$|
00000150  33 43 32 37 00 66 09 c5  00 59 50 49 58 42 b2 24  |3C27.f...YPIXB.$|
00000160  33 43 32 38 00 88 09 c8  00 3b 20 4c 49 4e 45 20  |3C28.....; LINE |
00000170  31 30 20 28 53 45 45 20  99 4f 55 54 20 4f 46 20  |10 (SEE .OUT OF |
00000180  42 41 53 49 43 29 00 99  09 d2 00 4c 31 30 20 4c  |BASIC).....L10 L|
00000190  44 41 20 23 24 39 33 00  a7 09 dc 00 4a 53 52 20  |DA #$93.....JSR |
000001a0  24 41 42 34 37 00 b4 09  e6 00 4c 44 41 20 23 24  |$AB47.....LDA #$|
000001b0  31 33 00 c2 09 f0 00 4a  53 52 20 24 41 42 34 37  |13.....JSR $AB47|
000001c0  00 cf 09 fa 00 4c 44 41  20 23 24 30 39 00 dd 09  |.....LDA #$09...|
000001d0  04 01 53 54 41 20 24 44  30 32 30 00 ea 09 0e 01  |..STA $D020.....|
000001e0  4c 44 41 20 23 24 30 30  00 f8 09 18 01 53 54 41  |LDA #$00.....STA|
000001f0  20 24 44 30 32 31 00 05  0a 22 01 4c 44 41 20 23  | $D021...".LDA #|
00000200  24 30 35 00 13 0a 2c 01  53 54 41 20 24 44 42 45  |$05...,.STA $DBE|
00000210  37 00 21 0a 36 01 3b 20  4c 49 4e 45 20 32 30 00  |7.!.6.; LINE 20.|
00000220  32 0a 40 01 4c 32 30 20  4c 44 58 20 23 24 30 30  |2.@.L20 LDX #$00|
00000230  00 46 0a 4a 01 57 4f 4f  50 4e 54 20 4c 44 59 20  |.F.J.WOOPNT LDY |
00000240  23 24 30 35 00 5d 0a 54  01 57 4f 4f 4c 4f 50 20  |#$05.].T.WOOLOP |
00000250  4c 44 41 20 57 4f 4f 5a  59 2c 59 00 6b 0a 5e 01  |LDA WOOZY,Y.k.^.|
00000260  4a 53 52 20 24 41 42 34  37 00 73 0a 68 01 44 45  |JSR $AB47.s.h.DE|
00000270  59 00 82 0a 72 01 42 4e  45 20 57 4f 4f 4c 4f 50  |Y...r.BNE WOOLOP|
00000280  00 8a 0a 7c 01 49 4e 58  00 97 0a 86 01 43 50 58  |...|.INX.....CPX|
00000290  20 23 24 43 37 00 a6 0a  90 01 42 4e 45 20 57 4f  | #$C7.....BNE WO|
000002a0  4f 50 4e 54 00 b3 0a 9a  01 4c 44 59 20 23 24 30  |OPNT.....LDY #$0|
000002b0  35 00 c8 0a a4 01 57 4f  4f 42 20 4c 44 41 20 57  |5.....WOOB LDA W|
000002c0  4f 4f 5a 59 2c 59 00 d6  0a ae 01 4a 53 52 20 24  |OOZY,Y.....JSR $|
000002d0  41 42 34 37 00 de 0a b8  01 44 45 59 00 eb 0a c2  |AB47.....DEY....|
000002e0  01 43 50 59 20 23 24 30  31 00 f8 0a cc 01 42 4e  |.CPY #$01.....BN|
000002f0  45 20 57 4f 4f 42 00 06  0b d6 01 3b 20 4c 49 4e  |E WOOB.....; LIN|
00000300  45 20 33 30 00 17 0b e0  01 4c 33 30 20 4c 44 41  |E 30.....L30 LDA|
00000310  20 23 24 31 39 00 25 0b  ea 01 53 54 41 20 24 30  | #$19.%...STA $0|
00000320  37 45 37 00 32 0b f4 01  4c 44 41 20 23 24 30 30  |7E7.2...LDA #$00|
00000330  00 40 0b fe 01 53 54 41  20 24 44 30 31 35 00 4e  |.@...STA $D015.N|
00000340  0b 08 02 3b 20 4c 49 4e  45 20 34 30 00 60 0b 12  |...; LINE 40.`..|
00000350  02 4c 34 30 20 53 54 41  20 24 44 30 31 37 00 6e  |.L40 STA $D017.n|
00000360  0b 1c 02 53 54 41 20 24  44 30 31 44 00 7c 0b 26  |...STA $D01D.|.&|
00000370  02 53 54 41 20 24 44 30  31 30 00 8a 0b 30 02 3b  |.STA $D010...0.;|
00000380  20 4c 49 4e 45 20 35 30  00 9c 0b 3a 02 4c 35 30  | LINE 50...:.L50|
00000390  20 53 54 41 20 24 44 30  31 43 00 aa 0b 44 02 53  | STA $D01C...D.S|
000003a0  54 41 20 24 44 30 31 42  00 c0 0b 4e 02 3b 20 4c  |TA $D01B...N.; L|
000003b0  49 4e 45 20 36 30 20 28  a8 48 49 4e 47 29 00 d6  |INE 60 (.HING)..|
000003c0  0b 58 02 3b 20 4c 49 4e  45 20 37 30 20 28 a8 48  |.X.; LINE 70 (.H|
000003d0  49 4e 47 29 00 e7 0b 62  02 3b 20 4c 49 4e 45 20  |ING)...b.; LINE |
000003e0  38 30 aa 39 30 00 f8 0b  6c 02 4c 38 30 20 4c 44  |80.90...l.L80 LD|
000003f0  58 20 23 24 30 38 00 05  0c 76 02 4c 44 41 20 23  |X #$08...v.LDA #|
00000400  24 46 31 00 1a 0c 80 02  b9 4c 4f 50 20 53 54 41  |$F1......LOP STA|
00000410  20 24 30 37 46 37 2c 58  00 22 0c 8a 02 44 45 58  | $07F7,X."...DEX|
00000420  00 2f 0c 94 02 42 4e 45  20 b9 4c 4f 50 00 3e 0c  |./...BNE .LOP.>.|
00000430  9e 02 3b 20 4c 49 4e 45  20 31 30 30 00 50 0c a8  |..; LINE 100.P..|
00000440  02 4c 31 30 30 20 4c 44  58 20 23 24 30 31 00 5f  |.L100 LDX #$01._|
00000450  0c b2 02 43 4f 4c 4c 4f  50 20 54 58 41 00 6f 0c  |...COLLOP TXA.o.|
00000460  bc 02 53 54 41 20 24 44  30 32 36 2c 58 00 77 0c  |..STA $D026,X.w.|
00000470  c6 02 49 4e 58 00 84 0c  d0 02 43 50 58 20 23 24  |..INX.....CPX #$|
00000480  30 39 00 93 0c da 02 42  4e 45 20 43 4f 4c 4c 4f  |09.....BNE COLLO|
00000490  50 00 a2 0c e4 02 3b 20  4c 49 4e 45 20 31 31 30  |P.....; LINE 110|
000004a0  00 b4 0c ee 02 4c 31 31  30 20 4c 44 41 20 23 24  |.....L110 LDA #$|
000004b0  30 30 00 c0 0c f3 02 53  54 41 20 24 46 44 00 cf  |00.....STA $FD..|
000004c0  0c f8 02 3b 20 4c 49 4e  45 20 31 32 30 00 e4 0c  |...; LINE 120...|
000004d0  02 03 4c 31 32 30 20 4c  44 41 20 23 b3 4c 31 32  |..L120 LDA #.L12|
000004e0  30 42 00 f0 0c 0c 03 53  54 41 20 24 46 42 00 00  |0B.....STA $FB..|
000004f0  0d 16 03 4c 44 41 20 23  b1 4c 31 32 30 42 00 0c  |...LDA #.L120B..|
00000500  0d 20 03 53 54 41 20 24  46 43 00 14 0d 2a 03 52  |. .STA $FC...*.R|
00000510  54 53 00 26 0d 34 03 4c  31 32 30 42 20 4c 44 41  |TS.&.4.L120B LDA|
00000520  20 24 30 32 00 33 0d 3e  03 43 4d 50 20 23 24 33  | $02.3.>.CMP #$3|
00000530  38 00 40 0d 48 03 42 43  43 20 4c 31 32 30 00 4d  |8.@.H.BCC L120.M|
00000540  0d 52 03 43 4d 50 20 23  24 41 41 00 5a 0d 5c 03  |.R.CMP #$AA.Z.\.|
00000550  42 43 53 20 4c 31 32 30  00 66 0d 66 03 4c 44 58  |BCS L120.f.f.LDX|
00000560  20 24 46 44 00 73 0d 70  03 53 54 41 20 59 50 2c  | $FD.s.p.STA YP,|
00000570  58 00 7b 0d 7a 03 54 41  59 00 83 0d 84 03 54 58  |X.{.z.TAY.....TX|
00000580  41 00 8d 0d 8e 03 41 53  4c 20 41 00 95 0d 98 03  |A.....ASL A.....|
00000590  54 41 58 00 9d 0d a2 03  54 59 41 00 ad 0d ac 03  |TAX.....TYA.....|
000005a0  53 54 41 20 24 44 30 30  31 2c 58 00 bc 0d b6 03  |STA $D001,X.....|
000005b0  3b 20 4c 49 4e 45 20 31  33 30 00 d1 0d c0 03 4c  |; LINE 130.....L|
000005c0  31 33 30 20 4c 44 41 20  23 b3 4c 31 33 30 42 00  |130 LDA #.L130B.|
000005d0  dd 0d ca 03 53 54 41 20  24 46 42 00 ed 0d d4 03  |....STA $FB.....|
000005e0  4c 44 41 20 23 b1 4c 31  33 30 42 00 f9 0d de 03  |LDA #.L130B.....|
000005f0  53 54 41 20 24 46 43 00  01 0e e8 03 52 54 53 00  |STA $FC.....RTS.|
00000600  18 0e f2 03 57 4f 4f 5a  59 20 54 58 54 20 22 21  |....WOOZY TXT "!|
00000610  59 5a 4f 4f 57 22 00 2a  0e fc 03 4c 31 33 30 42  |YZOOW".*...L130B|
00000620  20 4c 44 41 20 24 30 32  00 37 0e 06 04 43 4d 50  | LDA $02.7...CMP|
00000630  20 23 24 33 38 00 44 0e  10 04 42 43 43 20 4c 31  | #$38.D...BCC L1|
00000640  33 30 00 50 0e 1a 04 4c  44 58 20 24 46 44 00 5d  |30.P...LDX $FD.]|
00000650  0e 24 04 53 54 41 20 58  50 2c 58 00 65 0e 2e 04  |.$.STA XP,X.e...|
00000660  54 41 59 00 6d 0e 38 04  54 58 41 00 77 0e 42 04  |TAY.m.8.TXA.w.B.|
00000670  41 53 4c 20 41 00 7f 0e  4c 04 54 41 58 00 87 0e  |ASL A...L.TAX...|
00000680  56 04 54 59 41 00 97 0e  60 04 53 54 41 20 24 44  |V.TYA...`.STA $D|
00000690  30 30 30 2c 58 00 a3 0e  6a 04 4c 44 58 20 24 46  |000,X...j.LDX $F|
000006a0  44 00 ab 0e 74 04 49 4e  58 00 b7 0e 7e 04 53 54  |D...t.INX...~.ST|
000006b0  58 20 24 46 44 00 c4 0e  88 04 43 50 58 20 23 24  |X $FD.....CPX #$|
000006c0  30 38 00 d1 0e 92 04 42  4e 45 20 4c 31 32 30 00  |08.....BNE L120.|
000006d0  e0 0e b0 04 3b 20 4c 49  4e 45 20 31 34 30 00 f2  |....; LINE 140..|
000006e0  0e ba 04 4c 31 34 30 20  4c 44 58 20 23 24 30 30  |...L140 LDX #$00|
000006f0  00 fe 0e c4 04 53 54 58  20 24 46 44 00 11 0f ce  |.....STX $FD....|
00000700  04 46 31 34 30 4c 20 4c  44 41 20 58 50 2c 58 00  |.F140L LDA XP,X.|
00000710  19 0f d8 04 54 41 59 00  21 0f e2 04 54 58 41 00  |....TAY.!...TXA.|
00000720  2b 0f ec 04 41 53 4c 20  41 00 33 0f f6 04 54 41  |+...ASL A.3...TA|
00000730  58 00 3b 0f 00 05 54 59  41 00 4b 0f 0a 05 53 54  |X.;...TYA.K...ST|
00000740  41 20 24 44 30 30 30 2c  58 00 5a 0f 14 05 3b 20  |A $D000,X.Z...; |
00000750  4c 49 4e 45 20 31 34 35  00 6b 0f 1e 05 4c 31 34  |LINE 145.k...L14|
00000760  35 20 4c 44 58 20 24 46  44 00 78 0f 28 05 4c 44  |5 LDX $FD.x.(.LD|
00000770  41 20 59 50 2c 58 00 80  0f 32 05 54 41 59 00 88  |A YP,X...2.TAY..|
00000780  0f 3c 05 54 58 41 00 92  0f 46 05 41 53 4c 20 41  |.<.TXA...F.ASL A|
00000790  00 9a 0f 50 05 54 41 58  00 a2 0f 5a 05 54 59 41  |...P.TAX...Z.TYA|
000007a0  00 b2 0f 64 05 53 54 41  20 24 44 30 30 31 2c 58  |...d.STA $D001,X|
000007b0  00 be 0f 6e 05 4c 44 58  20 24 46 44 00 c6 0f 78  |...n.LDX $FD...x|
000007c0  05 49 4e 58 00 d2 0f 82  05 53 54 58 20 24 46 44  |.INX.....STX $FD|
000007d0  00 df 0f 8c 05 43 50 58  20 23 24 30 38 00 ed 0f  |.....CPX #$08...|
000007e0  96 05 42 4e 45 20 46 31  34 30 4c 00 fc 0f a0 05  |..BNE F140L.....|
000007f0  3b 20 4c 49 4e 45 20 31  35 30 00 0e 10 aa 05 4c  |; LINE 150.....L|
00000800  31 35 30 20 4c 44 41 20  23 24 30 37 00 1c 10 ac  |150 LDA #$07....|
00000810  05 4c 31 35 30 4c 20 50  48 41 00 2e 10 ad 05 4a  |.L150L PHA.....J|
00000820  53 52 20 43 48 45 43 4b  42 41 4c 4c 00 3b 10 ae  |SR CHECKBALL.;..|
00000830  05 42 4e 45 20 4c 31 31  30 00 43 10 af 05 50 4c  |.BNE L110.C...PL|
00000840  41 00 4b 10 b0 05 54 41  58 00 53 10 b1 05 44 45  |A.K...TAX.S...DE|
00000850  58 00 5b 10 b2 05 54 58  41 00 69 10 b3 05 42 4e  |X.[...TXA.i...BN|
00000860  45 20 4c 31 35 30 4c 00  78 10 be 05 3b 20 4c 49  |E L150L.x...; LI|
00000870  4e 45 20 31 36 30 00 8a  10 c8 05 4c 31 36 30 20  |NE 160.....L160 |
00000880  4c 44 41 20 23 24 30 30  00 98 10 d2 05 53 54 41  |LDA #$00.....STA|
00000890  20 24 44 30 31 35 00 a5  10 dc 05 4c 44 58 20 23  | $D015.....LDX #|
000008a0  24 30 30 00 b6 10 e6 05  4c 31 37 30 20 4c 44 41  |$00.....L170 LDA|
000008b0  20 24 41 32 00 c1 10 f0  05 af 20 23 24 30 31 00  | $A2...... #$01.|
000008c0  ce 10 fa 05 43 4d 50 20  23 24 30 31 00 dc 10 04  |....CMP #$01....|
000008d0  06 42 45 51 20 4c 31 37  30 42 00 e9 10 0e 06 4c  |.BEQ L170B.....L|
000008e0  44 41 20 23 24 46 46 00  fc 10 18 06 4c 31 37 30  |DA #$FF.....L170|
000008f0  42 20 53 54 41 20 58 53  2c 58 00 0b 11 22 06 3b  |B STA XS,X...".;|
00000900  20 4c 49 4e 45 20 31 38  30 00 1c 11 2c 06 4c 31  | LINE 180...,.L1|
00000910  38 30 20 4c 44 41 20 24  41 31 00 27 11 36 06 af  |80 LDA $A1.'.6..|
00000920  20 23 24 30 31 00 34 11  40 06 43 4d 50 20 23 24  | #$01.4.@.CMP #$|
00000930  30 31 00 42 11 4a 06 42  45 51 20 4c 31 38 30 42  |01.B.J.BEQ L180B|
00000940  00 4f 11 54 06 4c 44 41  20 23 24 46 46 00 62 11  |.O.T.LDA #$FF.b.|
00000950  5e 06 4c 31 38 30 42 20  53 54 41 20 59 53 2c 58  |^.L180B STA YS,X|
00000960  00 79 11 68 06 3b 20 4c  49 4e 45 20 31 39 30 20  |.y.h.; LINE 190 |
00000970  28 a8 48 49 4e 47 29 00  90 11 72 06 3b 20 4c 49  |(.HING)...r.; LI|
00000980  4e 45 20 32 30 30 20 28  a8 48 49 4e 47 29 00 9d  |NE 200 (.HING)..|
00000990  11 7c 06 4c 32 31 30 20  49 4e 58 00 aa 11 86 06  |.|.L210 INX.....|
000009a0  43 50 58 20 23 24 30 38  00 b7 11 90 06 42 4e 45  |CPX #$08.....BNE|
000009b0  20 4c 31 37 30 00 c4 11  9a 06 4c 44 41 20 23 24  | L170.....LDA #$|
000009c0  46 46 00 d2 11 a4 06 53  54 41 20 24 44 30 31 35  |FF.....STA $D015|
000009d0  00 de 11 a9 06 4a 4d 50  20 49 52 51 00 01 12 ae  |.....JMP IRQ....|
000009e0  06 3b 20 4c 49 4e 45 20  32 32 30 20 28 4d 41 49  |.; LINE 220 (MAI|
000009f0  4e 20 50 52 4f 47 52 41  4d 20 4c 4f 4f 50 29 00  |N PROGRAM LOOP).|
00000a00  13 12 b8 06 4c 32 32 30  20 4c 44 58 20 23 24 30  |....L220 LDX #$0|
00000a10  30 00 20 12 bd 06 4c 44  59 20 23 24 30 31 00 34  |0. ...LDY #$01.4|
00000a20  12 c2 06 4c 32 32 30 4c  4f 50 20 53 54 58 20 58  |...L220LOP STX X|
00000a30  53 54 00 40 12 c7 06 53  54 59 20 59 53 54 00 48  |ST.@...STY YST.H|
00000a40  12 cc 06 54 58 41 00 52  12 d6 06 41 53 4c 20 41  |...TXA.R...ASL A|
00000a50  00 5f 12 e0 06 53 54 41  20 41 44 52 50 00 6d 12  |._...STA ADRP.m.|
00000a60  ea 06 4c 44 41 20 24 44  30 31 30 00 77 12 f4 06  |..LDA $D010.w...|
00000a70  af 20 59 53 54 00 84 12  f6 06 42 45 51 20 53 54  |. YST.....BEQ ST|
00000a80  45 58 00 91 12 f9 06 4c  44 41 20 23 24 30 31 00  |EX.....LDA #$01.|
00000a90  a1 12 fe 06 53 54 45 58  20 53 54 41 20 45 58 00  |....STEX STA EX.|
00000aa0  b3 12 08 07 4c 32 33 30  20 4c 44 58 20 41 44 52  |....L230 LDX ADR|
00000ab0  50 00 c3 12 12 07 4c 44  41 20 24 44 30 30 30 2c  |P.....LDA $D000,|
00000ac0  58 00 d0 12 1c 07 43 4d  50 20 23 24 46 46 00 dd  |X.....CMP #$FF..|
00000ad0  12 26 07 42 4e 45 20 4c  32 34 30 00 e8 12 30 07  |.&.BNE L240...0.|
00000ae0  4c 44 41 20 45 58 00 f5  12 3a 07 42 4e 45 20 4c  |LDA EX...:.BNE L|
00000af0  32 34 30 00 01 13 44 07  4c 44 58 20 58 53 54 00  |240...D.LDX XST.|
00000b00  0e 13 4e 07 4c 44 41 20  58 53 2c 58 00 1b 13 58  |..N.LDA XS,X...X|
00000b10  07 43 4d 50 20 23 24 30  31 00 28 13 62 07 42 4e  |.CMP #$01.(.b.BN|
00000b20  45 20 4c 32 34 30 00 36  13 6c 07 4c 44 41 20 24  |E L240.6.l.LDA $|
00000b30  44 30 31 30 00 41 13 76  07 b0 41 20 59 53 54 00  |D010.A.v..A YST.|
00000b40  4f 13 80 07 53 54 41 20  24 44 30 31 30 00 5c 13  |O...STA $D010.\.|
00000b50  8a 07 4c 44 41 20 23 24  30 32 00 67 13 94 07 53  |..LDA #$02.g...S|
00000b60  54 41 20 45 58 00 74 13  96 07 4c 44 58 20 41 44  |TA EX.t...LDX AD|
00000b70  52 50 00 81 13 98 07 4c  44 41 20 23 24 30 30 00  |RP.....LDA #$00.|
00000b80  91 13 9a 07 53 54 41 20  24 44 30 30 30 2c 58 00  |....STA $D000,X.|
00000b90  a3 13 9e 07 4c 32 34 30  20 4c 44 58 20 41 44 52  |....L240 LDX ADR|
00000ba0  50 00 b3 13 a8 07 4c 44  41 20 24 44 30 30 30 2c  |P.....LDA $D000,|
00000bb0  58 00 c0 13 b2 07 42 4e  45 20 4c 32 35 30 00 cb  |X.....BNE L250..|
00000bc0  13 bc 07 4c 44 41 20 45  58 00 d8 13 c6 07 43 4d  |...LDA EX.....CM|
00000bd0  50 20 23 24 30 31 00 e5  13 d0 07 42 4e 45 20 4c  |P #$01.....BNE L|
00000be0  32 35 30 00 f1 13 da 07  4c 44 58 20 58 53 54 00  |250.....LDX XST.|
00000bf0  fe 13 e4 07 4c 44 41 20  58 53 2c 58 00 0b 14 ee  |....LDA XS,X....|
00000c00  07 43 4d 50 20 23 24 46  46 00 18 14 f8 07 42 4e  |.CMP #$FF.....BN|
00000c10  45 20 4c 32 35 30 00 25  14 02 08 4c 44 58 20 41  |E L250.%...LDX A|
00000c20  44 52 50 00 32 14 0c 08  4c 44 41 20 23 24 46 46  |DRP.2...LDA #$FF|
00000c30  00 42 14 16 08 53 54 41  20 24 44 30 30 30 2c 58  |.B...STA $D000,X|
00000c40  00 50 14 20 08 4c 44 41  20 24 44 30 31 30 00 58  |.P. .LDA $D010.X|
00000c50  14 2a 08 53 45 43 00 64  14 34 08 53 42 43 20 59  |.*.SEC.d.4.SBC Y|
00000c60  53 54 00 72 14 3e 08 53  54 41 20 24 44 30 31 30  |ST.r.>.STA $D010|
00000c70  00 7f 14 48 08 4c 44 41  20 23 24 30 32 00 8a 14  |...H.LDA #$02...|
00000c80  52 08 53 54 41 20 45 58  00 9c 14 5c 08 4c 32 35  |R.STA EX...\.L25|
00000c90  30 20 4c 44 58 20 41 44  52 50 00 a8 14 66 08 4c  |0 LDX ADRP...f.L|
00000ca0  44 59 20 58 53 54 00 b8  14 70 08 4c 44 41 20 24  |DY XST...p.LDA $|
00000cb0  44 30 30 30 2c 58 00 c0  14 7a 08 43 4c 43 00 cd  |D000,X...z.CLC..|
00000cc0  14 84 08 41 44 43 20 58  53 2c 59 00 dd 14 8e 08  |...ADC XS,Y.....|
00000cd0  53 54 41 20 24 44 30 30  30 2c 58 00 ef 14 98 08  |STA $D000,X.....|
00000ce0  4c 32 36 30 20 43 4d 50  20 23 24 31 41 00 fc 14  |L260 CMP #$1A...|
00000cf0  a2 08 42 43 53 20 4c 32  37 30 00 07 15 ac 08 4c  |..BCS L270.....L|
00000d00  44 41 20 45 58 00 14 15  b6 08 42 4e 45 20 4c 32  |DA EX.....BNE L2|
00000d10  37 30 00 21 15 c0 08 4c  44 41 20 23 24 30 31 00  |70.!...LDA #$01.|
00000d20  2e 15 ca 08 53 54 41 20  58 53 2c 59 00 43 15 cf  |....STA XS,Y.C..|
00000d30  08 4c 32 37 30 20 4c 44  41 20 24 44 30 30 30 2c  |.L270 LDA $D000,|
00000d40  58 00 50 15 d4 08 43 4d  50 20 23 24 34 31 00 5d  |X.P...CMP #$41.]|
00000d50  15 de 08 42 43 43 20 4c  32 38 30 00 68 15 e8 08  |...BCC L280.h...|
00000d60  4c 44 41 20 45 58 00 75  15 fc 08 42 45 51 20 4c  |LDA EX.u...BEQ L|
00000d70  32 38 30 00 82 15 06 09  4c 44 41 20 23 24 46 46  |280.....LDA #$FF|
00000d80  00 8f 15 10 09 53 54 41  20 58 53 2c 59 00 a2 15  |.....STA XS,Y...|
00000d90  1a 09 4c 32 38 30 20 4a  53 52 20 4c 31 30 30 30  |..L280 JSR L1000|
00000da0  00 af 15 2e 09 43 4d 50  20 23 24 30 30 00 bc 15  |.....CMP #$00...|
00000db0  38 09 42 45 51 20 4c 32  39 30 00 c9 15 42 09 4c  |8.BEQ L290...B.L|
00000dc0  44 41 20 58 53 2c 59 00  d6 15 4c 09 43 4d 50 20  |DA XS,Y...L.CMP |
00000dd0  23 24 30 31 00 e4 15 56  09 42 45 51 20 4c 32 38  |#$01...V.BEQ L28|
00000de0  30 42 00 f1 15 60 09 4c  44 41 20 23 24 30 31 00  |0B...`.LDA #$01.|
00000df0  ff 15 6a 09 4a 4d 50 20  4c 32 38 30 43 00 12 16  |..j.JMP L280C...|
00000e00  74 09 4c 32 38 30 42 20  4c 44 41 20 23 24 46 46  |t.L280B LDA #$FF|
00000e10  00 25 16 7e 09 4c 32 38  30 43 20 53 54 41 20 58  |.%.~.L280C STA X|
00000e20  53 2c 59 00 32 16 88 09  4c 32 39 30 20 49 4e 58  |S,Y.2...L290 INX|
00000e30  00 42 16 92 09 4c 44 41  20 24 44 30 30 30 2c 58  |.B...LDA $D000,X|
00000e40  00 4a 16 9c 09 43 4c 43  00 57 16 a6 09 41 44 43  |.J...CLC.W...ADC|
00000e50  20 59 53 2c 59 00 67 16  b0 09 53 54 41 20 24 44  | YS,Y.g...STA $D|
00000e60  30 30 30 2c 58 00 79 16  ba 09 4c 33 30 30 20 43  |000,X.y...L300 C|
00000e70  4d 50 20 23 24 45 36 00  86 16 c4 09 42 43 43 20  |MP #$E6.....BCC |
00000e80  4c 33 31 30 00 93 16 ce  09 4c 44 41 20 23 24 46  |L310.....LDA #$F|
00000e90  46 00 a0 16 d8 09 53 54  41 20 59 53 2c 59 00 b5  |F.....STA YS,Y..|
00000ea0  16 dd 09 4c 33 31 30 20  4c 44 41 20 24 44 30 30  |...L310 LDA $D00|
00000eb0  30 2c 58 00 c2 16 e2 09  43 4d 50 20 23 24 33 32  |0,X.....CMP #$32|
00000ec0  00 cf 16 ec 09 42 43 53  20 4c 33 32 30 00 dc 16  |.....BCS L320...|
00000ed0  f6 09 4c 44 41 20 23 24  30 31 00 e9 16 00 0a 53  |..LDA #$01.....S|
00000ee0  54 41 20 59 53 2c 59 00  fc 16 0a 0a 4c 33 32 30  |TA YS,Y.....L320|
00000ef0  20 4a 53 52 20 4c 31 30  30 30 00 09 17 1e 0a 43  | JSR L1000.....C|
00000f00  4d 50 20 23 24 30 30 00  16 17 28 0a 42 45 51 20  |MP #$00...(.BEQ |
00000f10  4c 33 33 30 00 23 17 32  0a 4c 44 41 20 59 53 2c  |L330.#.2.LDA YS,|
00000f20  59 00 30 17 3c 0a 43 4d  50 20 23 24 30 31 00 3e  |Y.0.<.CMP #$01.>|
00000f30  17 46 0a 42 45 51 20 4c  33 32 30 42 00 4b 17 50  |.F.BEQ L320B.K.P|
00000f40  0a 4c 44 41 20 23 24 30  31 00 59 17 5a 0a 4a 4d  |.LDA #$01.Y.Z.JM|
00000f50  50 20 4c 33 32 30 43 00  6c 17 64 0a 4c 33 32 30  |P L320C.l.d.L320|
00000f60  42 20 4c 44 41 20 23 24  46 46 00 7f 17 6e 0a 4c  |B LDA #$FF...n.L|
00000f70  33 32 30 43 20 53 54 41  20 59 53 2c 59 00 90 17  |320C STA YS,Y...|
00000f80  78 0a 4c 33 33 30 20 4c  44 58 20 58 53 54 00 98  |x.L330 LDX XST..|
00000f90  17 82 0a 49 4e 58 00 a4  17 8c 0a 4c 44 41 20 59  |...INX.....LDA Y|
00000fa0  53 54 00 ae 17 96 0a 41  53 4c 20 41 00 b6 17 a0  |ST.....ASL A....|
00000fb0  0a 54 41 59 00 c3 17 aa  0a 43 50 58 20 23 24 30  |.TAY.....CPX #$0|
00000fc0  38 00 d1 17 b4 0a 42 45  51 20 4c 33 33 30 42 00  |8.....BEQ L330B.|
00000fd0  e1 17 be 0a 4a 4d 50 20  4c 32 32 30 4c 4f 50 00  |....JMP L220LOP.|
00000fe0  f5 17 c8 0a 4c 33 33 30  42 20 4a 4d 50 20 24 45  |....L330B JMP $E|
00000ff0  41 33 31 00 07 18 f0 0a  4c 31 30 30 30 20 4c 44  |A31.....L1000 LD|
00001000  41 20 58 53 54 00 19 18  fa 0a 4a 53 52 20 43 48  |A XST.....JSR CH|
00001010  45 43 4b 42 41 4c 4c 00  21 18 04 0b 52 54 53 00  |ECKBALL.!...RTS.|
00001020  2d 18 22 0b 49 52 51 20  53 45 49 00 3c 18 2c 0b  |-.".IRQ SEI.<.,.|
00001030  4c 44 41 20 23 b3 4c 32  32 30 00 4a 18 36 0b 53  |LDA #.L220.J.6.S|
00001040  54 41 20 24 30 33 31 34  00 59 18 40 0b 4c 44 41  |TA $0314.Y.@.LDA|
00001050  20 23 b1 4c 32 32 30 00  67 18 4a 0b 53 54 41 20  | #.L220.g.J.STA |
00001060  24 30 33 31 35 00 6f 18  54 0b 43 4c 49 00 85 18  |$0315.o.T.CLI...|
00001070  5e 0b 49 51 52 4c 4f 50  20 4a 4d 50 20 49 51 52  |^.IQRLOP JMP IQR|
00001080  4c 4f 50 00 96 18 b8 0b  43 48 80 20 4c 44 41 20  |LOP.....CH. LDA |
00001090  23 24 30 30 00 9e 18 c2  0b 52 54 53 00 b5 18 cc  |#$00.....RTS....|
000010a0  0b 43 48 45 43 4b 42 41  4c 4c 20 53 54 41 20 43  |.CHECKBALL STA C|
000010b0  42 4e 4f 00 bf 18 d6 0b  41 53 4c 20 41 00 c7 18  |BNO.....ASL A...|
000010c0  e0 0b 54 41 58 00 d7 18  ea 0b 4c 44 41 20 24 44  |..TAX.....LDA $D|
000010d0  30 30 30 2c 58 00 df 18  f4 0b 43 4c 43 00 ec 18  |000,X.....CLC...|
000010e0  fe 0b 41 44 43 20 23 24  30 43 00 f9 18 08 0c 53  |..ADC #$0C.....S|
000010f0  54 41 20 58 50 49 58 00  09 19 12 0c 4c 44 41 20  |TA XPIX.....LDA |
00001100  24 44 30 30 31 2c 58 00  11 19 1c 0c 43 4c 43 00  |$D001,X.....CLC.|
00001110  1e 19 26 0c 41 44 43 20  23 24 30 41 00 2b 19 30  |..&.ADC #$0A.+.0|
00001120  0c 53 54 41 20 59 50 49  58 00 38 19 3a 0c 4c 44  |.STA YPIX.8.:.LD|
00001130  41 20 23 24 46 46 00 40  19 44 0c 50 48 41 00 4e  |A #$FF.@.D.PHA.N|
00001140  19 4e 0c 43 48 4c 4f 50  20 50 4c 41 00 5d 19 58  |.N.CHLOP PLA.].X|
00001150  0c 43 48 4c 4f 50 42 20  43 4c 43 00 6a 19 62 0c  |.CHLOPB CLC.j.b.|
00001160  41 44 43 20 23 24 30 31  00 77 19 6c 0c 43 4d 50  |ADC #$01.w.l.CMP|
00001170  20 23 24 30 38 00 83 19  76 0c 42 45 51 20 43 48  | #$08...v.BEQ CH|
00001180  80 00 90 19 80 0c 43 4d  50 20 43 42 4e 4f 00 9f  |......CMP CBNO..|
00001190  19 8a 0c 42 45 51 20 43  48 4c 4f 50 42 00 a7 19  |...BEQ CHLOPB...|
000011a0  94 0c 50 48 41 00 b1 19  9e 0c 41 53 4c 20 41 00  |..PHA.....ASL A.|
000011b0  b9 19 a8 0c 54 41 58 00  c9 19 b2 0c 4c 44 41 20  |....TAX.....LDA |
000011c0  24 44 30 30 30 2c 58 00  d1 19 bc 0c 43 4c 43 00  |$D000,X.....CLC.|
000011d0  de 19 c6 0c 41 44 43 20  23 24 30 43 00 ec 19 d0  |....ADC #$0C....|
000011e0  0c 53 54 41 20 58 50 49  58 42 00 fc 19 da 0c 4c  |.STA XPIXB.....L|
000011f0  44 41 20 24 44 30 30 31  2c 58 00 04 1a e4 0c 43  |DA $D001,X.....C|
00001200  4c 43 00 11 1a ee 0c 41  44 43 20 23 24 30 41 00  |LC.....ADC #$0A.|
00001210  1f 1a f8 0c 53 54 41 20  59 50 49 58 42 00 2c 1a  |....STA YPIXB.,.|
00001220  02 0d 43 4d 50 20 59 50  49 58 00 3b 1a 0c 0d 42  |..CMP YPIX.;...B|
00001230  43 53 20 59 43 48 45 43  4b 00 43 1a 16 0d 53 45  |CS YCHECK.C...SE|
00001240  43 00 50 1a 20 0d 53 42  43 20 59 50 49 58 00 5d  |C.P. .SBC YPIX.]|
00001250  1a 2a 0d 43 4d 50 20 23  24 31 35 00 6b 1a 34 0d  |.*.CMP #$15.k.4.|
00001260  42 43 53 20 43 48 4c 4f  50 00 76 1a 3e 0d 4a 4d  |BCS CHLOP.v.>.JM|
00001270  50 20 59 9a 00 8a 1a 48  0d 59 43 48 45 43 4b 20  |P Y....H.YCHECK |
00001280  4c 44 41 20 59 50 49 58  00 92 1a 52 0d 53 45 43  |LDA YPIX...R.SEC|
00001290  00 a0 1a 5c 0d 53 42 43  20 59 50 49 58 42 00 ad  |...\.SBC YPIXB..|
000012a0  1a 66 0d 43 4d 50 20 23  24 31 35 00 bb 1a 70 0d  |.f.CMP #$15...p.|
000012b0  42 43 53 20 43 48 4c 4f  50 00 cb 1a 7a 0d 59 9a  |BCS CHLOP...z.Y.|
000012c0  20 4c 44 41 20 58 50 49  58 00 d9 1a 84 0d 43 4d  | LDA XPIX.....CM|
000012d0  50 20 58 50 49 58 42 00  e8 1a 8e 0d 42 43 53 20  |P XPIXB.....BCS |
000012e0  58 43 48 45 43 4b 00 f0  1a 98 0d 53 45 43 00 fd  |XCHECK.....SEC..|
000012f0  1a a2 0d 53 42 43 20 23  24 31 38 00 0b 1b ac 0d  |...SBC #$18.....|
00001300  42 43 53 20 43 48 4c 4f  50 00 16 1b b6 0d 4a 4d  |BCS CHLOP.....JM|
00001310  50 20 58 9a 00 2b 1b c0  0d 58 43 48 45 43 4b 20  |P X..+...XCHECK |
00001320  4c 44 41 20 59 50 49 58  42 00 33 1b ca 0d 53 45  |LDA YPIXB.3...SE|
00001330  43 00 40 1b d4 0d 53 42  43 20 58 50 49 58 00 4d  |C.@...SBC XPIX.M|
00001340  1b de 0d 43 4d 50 20 23  24 31 38 00 5b 1b e8 0d  |...CMP #$18.[...|
00001350  42 43 53 20 43 48 4c 4f  50 00 66 1b f2 0d 58 9a  |BCS CHLOP.f...X.|
00001360  20 50 4c 41 00 73 1b fc  0d 4c 44 41 20 23 24 30  | PLA.s...LDA #$0|
00001370  31 00 7b 1b 06 0e 52 54  53 00 97 1b 88 13 3b 20  |1.{...RTS.....; |
00001380  53 50 52 49 54 45 20 44  41 54 41 20 28 33 34 30  |SPRITE DATA (340|
00001390  2d 34 30 30 29 00 a3 1b  8d 13 ac b2 24 33 43 34  |-400).......$3C4|
000013a0  30 00 c7 1b 92 13 54 58  54 20 30 2c 31 32 37 2c  |0.....TXT 0,127,|
000013b0  30 2c 31 2c 32 35 35 2c  31 39 32 2c 37 2c 32 35  |0,1,255,192,7,25|
000013c0  35 2c 32 32 34 00 ec 1b  9c 13 54 58 54 20 31 35  |5,224.....TXT 15|
000013d0  2c 32 35 35 2c 32 34 30  2c 33 31 2c 32 35 35 2c  |,255,240,31,255,|
000013e0  32 34 38 2c 36 33 2c 32  35 35 00 13 1c a6 13 54  |248,63,255.....T|
000013f0  58 54 20 32 35 32 2c 36  33 2c 32 35 35 2c 32 35  |XT 252,63,255,25|
00001400  32 2c 31 32 37 2c 32 35  35 2c 32 35 34 2c 31 32  |2,127,255,254,12|
00001410  37 00 37 1c b0 13 54 58  54 20 32 35 35 2c 32 35  |7.7...TXT 255,25|
00001420  34 2c 31 32 37 2c 32 35  35 2c 32 35 34 2c 31 32  |4,127,255,254,12|
00001430  37 2c 32 35 35 00 5b 1c  ba 13 54 58 54 20 32 35  |7,255.[...TXT 25|
00001440  34 2c 31 32 37 2c 32 35  35 2c 32 35 34 2c 31 32  |4,127,255,254,12|
00001450  37 2c 32 35 35 2c 32 35  34 00 81 1c c4 13 54 58  |7,255,254.....TX|
00001460  54 20 31 32 37 2c 32 35  35 2c 32 35 34 2c 36 33  |T 127,255,254,63|
00001470  2c 32 35 35 2c 32 35 32  2c 36 33 2c 32 35 35 00  |,255,252,63,255.|
00001480  a6 1c ce 13 54 58 54 20  32 35 32 2c 33 31 2c 32  |....TXT 252,31,2|
00001490  35 35 2c 32 34 38 2c 33  31 2c 32 35 35 2c 32 34  |55,248,31,255,24|
000014a0  38 2c 31 35 00 ca 1c d8  13 54 58 54 20 32 35 35  |8,15.....TXT 255|
000014b0  2c 32 34 30 2c 37 2c 32  35 35 2c 32 32 34 2c 31  |,240,7,255,224,1|
000014c0  2c 32 35 35 2c 31 32 38  00 d0 1c ec 13 80 00 e1  |,255,128........|
000014d0  1c 70 17 8f 20 43 4f 4e  54 52 4f 4c 4c 45 52 00  |.p.. CONTROLLER.|
000014e0  ed 1c 84 17 9e 20 24 33  43 38 30 00 01 1d 8e 17  |..... $3C80.....|
000014f0  97 20 32 2c b5 28 bb 28  31 29 ac 32 35 35 29 00  |. 2,.(.(1).255).|
00001500  1b 1d 98 17 9e 20 28 c2  28 24 46 42 29 aa c2 28  |..... (.($FB)..(|
00001510  24 46 43 29 ac 32 35 36  29 00 26 1d a2 17 89 20  |$FC).256).&.... |
00001520  36 30 33 30 00 00 00                              |6030...|
00001527