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<