Home » Personal collection » Commodore disks » disk45a_galaxy64.d64 » title
title
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: | title |
Read OK: | ✔ |
File size: | 1634 bytes |
Load address: | 0801 |
Exec address: | 0000 |
File contents
10 *=$C87D 20 SCNCLRLFS=$FFBA 30 SCNCLRNAM=$FFBD 40 COLOR=$FFD5 50 BCHOUT=$E1BC 60 TITUNE=$6300 70 TRANS JSR COLOR 80 LDA #$02 90 STA $C800 100 JSR GAMEDISC 110 LDA #$01 120 LDX #$08 130 LDY #$01 140 JSR SCNCLRLFS 150 LDA #$06 160 LDX #<WORLDA 170 LDY #>WORLDB 180 JSR SCNCLRNAM 190 LDA #$00 200 JSR COLOR 210 TITLESCR LDA #$DC 220 LDY #$00 230 POINTLOP STA $07F8,Y 240 TAX 250 INX 260 TXA 270 INY 280 CPY #$08 290 BNE POINTLOP 300 LDA #$00 310 STA $D017 320 STA $D01D 330 STA $D015 340 STA $D020 350 STA $D021 360 LDA #$93 370 JSR PRINT 380 LDA #$05 390 JSR PRINT 400 LDA #$01 410 STA $D02A 420 STA $D02B 430 LDA #$02 440 STA $D029 450 STA $D02C 460 LDA #$03 470 STA $D028 480 STA $D02D 490 LDA #$04 500 STA $D027 510 STA $D02E 520 LDA #$50 530 LDY #$00 540 XPOSLOP STA $D000,Y 550 INY 560 INY 570 CLC 580 ADC #$18 590 CPY #$10 600 BNE XPOSLOP 610 LDA #$00 620 STA $D010 630 LDY #$00 640 LDA #$04 650 YPOSLOP STA $D001,Y 660 INY 670 INY 680 SEC 690 SBC #$04 700 CPY #$10 710 BNE YPOSLOP 720 JSR INTERSTART 730 LDA #$FF 740 STA $D015 750 TRESCROLL LDA #$00 760 TSCROLL LDA $D001,Y 770 CMP #$30 780 BEQ SKIPINC 790 STA $02FE 800 TYA 810 TAX 820 INC $D001,X 830 LDA $02FE 840 SKIPPED INY 850 INY 860 TYA 870 LDX #$00 880 XINCLOP LDY #$00 890 YINCLOP INY 900 BNE YINCLOP 910 INX 920 CPX #$40 930 BNE XINCLOP 940 TAY 950 CPY #$10 960 BNE TSCROLL 970 JMP TRESCROLL 980 PRINT JSR BCHOUT 990 AND #$FF 1000 RTS 1010 INTERSTART SEI 1020 LDA #<INTERTITLE 1030 STA $0314 1040 LDA #>INTERTITLE 1050 STA $0315 1060 PERSCNCLR LDA #<TITUNE 1070 STA $FB 1080 LDA #>TITUNE 1090 STA $FC 1100 LDA #$00 1110 STA $02AA 1120 STA $02AB 1130 JSR SIDUP 1140 CLI 1150 RTS 1160 INTERSTOP SEI 1170 LDA #$31 1180 STA $0314 1190 LDA #$EA 1200 STA $0315 1210 CLI 1220 RTS 1230 SKIPINC CPY #$0E 1240 BNE SKIPPED 1250 LDA #$12 1260 STA $D018 1270 LDY #$00 1280 JSR CLRSCR 1290 DISPLOP LDA TITMESS,Y 1300 BEQ TITANIM 1310 JSR PRINT 1320 INY 1330 JMP DISPLOP 1340 WAITAUTO LDA $C5 1350 CMP #$2E 1360 BEQ GETREADY 1370 CMP #$2A 1380 BEQ COLORPOS 1390 JMP WAITAUTO 1400 TITANIM JSR TEXTANIM 1410 JMP WAITAUTO 1420 COLORPOS LDA #$15 1430 STA $D018 1440 LDY #$00 1450 LDISPLOP LDA FILEMESS,Y 1460 BEQ ENTER 1470 JSR PRINT 1480 INY 1490 JMP LDISPLOP 1500 ENTER LDY #$00 1510 JSR GETCHR 1520 JMP ENMISS 1530 ENLOP STY $02FF 1540 JSR GETAUTO 1550 LDY $02FF 1560 ENMISS CMP #$0D 1570 BEQ GETFILE 1580 CMP #$14 1590 BEQ DEC 1600 CMP #$85 1610 BEQ RETITLE 1620 JSR PRINT 1630 STA $02B0,Y 1640 INY 1650 CHECK CPY #$0F 1660 BEQ BACK 1670 CPY #$10 1680 BNE ENLOP 1690 DEY 1700 JMP CHECK 1710 RETITLE JMP TITLESCR 1720 BACK LDA #$9D 1730 JSR PRINT 1740 JMP ENLOP 1750 DEC CPY #$00 1760 BEQ ENLOP 1770 JSR PRINT 1780 DEY 1790 JMP ENLOP 1800 GETCHR LDX #$40 1810 STX $02 1820 GETAUTO LDA $C5 1830 CMP #$40 1840 BEQ GETAUTO 1850 CMP $02 1860 BEQ GETAUTO 1870 STA $02 1880 TAY 1890 LDA $1FC0,Y 1900 RTS 1910 GETREADY JMP READY 1920 GETFILE JSR COLORMESS 1930 LDA #$01 1940 LDX #$08 1950 LDY #$01 1960 JSR SCNCLRLFS 1970 LDA $02 1980 LDX #$B0 1990 LDY #$02 2000 JSR SCNCLRNAM 2010 LDA #$02 2020 STA $C800 2030 LDA #$00 2040 JSR COLOR 2050 LDA $C800 2060 CMP #$02 2070 BCS ERROR 2080 CMP #$00 2090 BEQ GETREADY 2100 JSR GAMEDISC 2110 LDA #$01 2120 LDX #$08 2130 LDY #$01 2140 JSR SCNCLRLFS 2150 LDA #$06 2160 LDX #<WORLDB 2170 LDY #>WORLDB 2180 JSR SCNCLRNAM 2190 LDA #$00 2200 JSR COLOR 2210 JSR COLORMESS 2220 LDA #$01 2230 LDX #$08 2240 LDY #$01 2250 JSR SCNCLRLFS 2260 LDA $02 2270 LDX #$B0 2280 LDY #$02 2290 JSR SCNCLRNAM 2300 LDA #$00 2310 STA $C800 2320 JSR COLOR 2330 LDA $C800 2340 CMP #$01 2350 BNE ERROR 2360 JMP READY 2370 ERROR LDY #$00 2380 ERRLOP LDA ERRMESS,Y 2390 BEQ CRASH 2400 JSR PRINT 2410 INY 2420 JMP ERRLOP 2430 CRASH JMP CRASH 2440 COLORMESS STY $02 2450 LDY #$00 2460 COLORLOP LDA COLORAT,Y 2470 BEQ PAUSE 2480 JSR PRINT 2490 INY 2500 JMP COLORLOP 2510 PAUSE JMP GETCHR 2520 GAMEDISC LDY #$00 2530 DISCLOP LDA GAMEDATA,Y 2540 BEQ FINISH 2550 JSR PRINT 2560 INY 2570 JMP DISCLOP 2580 FINISH RTS 2590 COLORAT TXT 147,"PLEASE INSERT YOUR DATA DISC" 2600 TXT 13,13,"PRESS ANY KEY TO CONTINUE",0 2610 GAMEDATA TXT 147,"PLEASE INSERT THE GAME DISC" 2620 TXT 13,13,"PRESS ANY KEY TO CONTINUE",0 2630 WORLDA TXT "WORLDA" 2640 WORLDB TXT "WORLDB" 2650 FILEMESS TXT 147,"ENTER FILENAME:",13,0 2660 TITMESS TXT 147,13,13,13,13,13 2670 TXT 13,13,13,13,13 2680 TXT "@@@@@@@@@@@@@@@@@@@BY",13,13 2690 TXT "@@@@@@@@@@@@@@DOMINIC@FORD",13,13 2700 TXT "@@@@@@@@@@@@@@@@@@[←←↑",13 2710 TXT 13,13,13,"@@@@@@@@@@@@@" 2720 TXT "SPACE@TO@START",13,13 2730 TXT "@@@@@@@@@@@@@@@L@@@TO@LOAD@POSITION",0 2740 ERRMESS TXT 147,"THIS DATAFILE WAS NOT SAVED BY SELIDEAN." 2750 TXT "THE LOADING OF THIS FILE HAS CAUSED A FATEL ERROR. PLEASE RESET" 2760 TXT "YOUR C64",0 2770 CLRSCR STY $FD 2780 LDA #$04 2790 STA $FE 2800 TAY 2810 CLRLOP STA ($FD),Y 2820 INY 2830 BNE CLRLOP 2840 INC $FE 2850 LDX $FE 2860 CPX #$08 2870 BNE CLRLOP 2880 RTS 2890 TEXTANIM LDX #$07 2900 LDY #$00 2910 STY $FD 2920 LDA #$04 2930 STA $FE 2940 LDA ($FD),Y 2950 CLC 2960 ADC #$20 2970 STA ($FD),Y 2980 INY 2990 BNE ANIMLOP 3000 INC $FE 3010 LDA $FE 3020 CMP #$08 3030 BNE ANIMLOP 3040 DEX 3050 BEQ FINISHB 3060 TXA 3070 LDX #$00 3080 LDY #$19 3090 WAITLOP INX 3100 BNE WAITLOP 3110 DEY 3120 BNE WAITLOP 3130 TAX 3140 JMP ANIMLOP 3150 FINISHB RTS 3160 INTERTITLE PHA 3170 TXA 3180 PHA 3190 TYA 3200 PHA 3210 DEC $02AA 3220 BNE SOUND 3230 LDY #$00 3240 COLLOP INC $D027,Y 3250 INY 3260 CPY #$08 3270 BNE COLLOP 3280 SOUND DEC $02AB 3290 BNE PULL 3300 JSR CLRWAV 3310 LDY #$00 3320 PITGET LDA ($FB),Y 3330 TAX 3340 LDA $1F00,X 3350 STY $02AD 3360 STA $02AE 3370 LDA $1F01,X 3380 BEQ NOSCNCLR 3390 TAX 3400 JSR SCALEPIT 3410 LDY $02AD 3420 NOSCNCLR INY 3430 CPY #$03 3440 BNE PITGET 3450 LDA ($FB),Y 3460 BEQ RESTART 3470 STA $02AB 3480 LDA $FB 3490 CLC 3500 ADC #$04 3510 STA $FB 3520 BVC PULL 3530 INC $FC 3540 PULL PLA 3550 TAY 3560 PLA 3570 TAX 3580 PLA 3590 JMP $EA31 3600 RESTART JSR PERSCNCLR 3700 JMP PULL 3710 SCALEPIT LDA #$00 3720 CALCADD CPY #$00 3730 BEQ SCALEIN 3740 CLC 3750 ADC #$07 3760 DEY 3770 JMP CALCADD 3780 SCALEIN TAX 3790 LDA $02AE 3800 STA $D400,X 3810 TYA 3820 STA $D401,X 3830 LDY $02AD 3840 LDA $C806,Y 3850 TAY 3860 INY 3870 TYA 3880 STA $D404,X 3890 RTS 3900 CLRWAV LDA $C806 3910 STA $D404 3920 LDA $C807 3930 STA $D40B 3940 LDA $C808 3950 STA $D412 3960 RTS
��$C87D �LFS�$FFBA + �NAM�$FFBD 7( �$FFD5 H2 BCHOUT�$E1BC Y<