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 �n XS�$3C00 �x YS�$3C08 �� XP�$3C10 �� YP�$3C18 � ��$0002 + � ; LINE 10 (SEE �OUT OF BASIC) < � L10 LDA #$93 J � JSR $AB47 W � LDA #$13 e � JSR $AB47 r � 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 #$C7 I �BNE WOOPNT V �LDY #$05 k �WOOB LDA WOOZY,Y y �JSR $AB47 � �DEY � �CPY #$01 � �BNE WOOB � �; LINE 30 � �L30 LDA #$19 � �STA $07E7 � �LDA #$00 � �STA $D015 � ; LINE 40 L40 STA $D017 STA $D01D &STA $D010 -0; LINE 50 ?:L50 STA $D01C MDSTA $D01B cN; 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 #$09 6�BNE COLLOP E�; LINE 110 W�L110 LDA #$00 c�STA $FD r�; 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 & �TXA 0 �ASL A 8 �TAX @ �TYA P �STA $D001,X _ �; LINE 130 t �L130 LDA #�L130B � �STA $FB � �LDA #�L130B � �STA $FC � �RTS � �WOOZY TXT "!WOOZY"