2020-02-29 22:19:40 +00:00
|
|
|
.CR 65C02
|
2020-03-03 22:32:07 +00:00
|
|
|
.TF music.hex,INT
|
2020-02-29 20:34:23 +00:00
|
|
|
.LF music.list
|
|
|
|
|
;
|
|
|
|
|
; MUSIC PLAYER FOR THE BE6502 USING '6502 GAMES' HARDWARE. BOARD SHOULD BE
|
|
|
|
|
; JUMPERED WITH VIA CHIPS AT THE ADDRESSES SPECIFIED BELOW. OTHER THAN THAT
|
|
|
|
|
; THE CODE IS UNCHANGED FROM THE BOOK.
|
|
|
|
|
;
|
|
|
|
|
VIA1 .EQ $4000 ; GAME BOARD (VIA #1)
|
|
|
|
|
VIA3 .EQ $4C00 ; GAME BOARD (VIA #3)
|
2020-03-03 23:19:24 +00:00
|
|
|
TABEG .EQ $0350 ; TABLE TO STORE MUSIC
|
2020-02-29 20:34:23 +00:00
|
|
|
|
|
|
|
|
.OR $8000
|
|
|
|
|
.TA $0000
|
|
|
|
|
BE6502 JSR INITKEY
|
|
|
|
|
.IN ../../common/CH02-Music/player.asm
|
|
|
|
|
.IN ../../common/CH01-Getkey/getkey_routine.asm
|
|
|
|
|
;
|
|
|
|
|
; STORE CPU INITIALIZATION VECTORS AT THE END OF THE EEPROM.
|
|
|
|
|
;
|
|
|
|
|
.NO $FFFA,$FF
|
|
|
|
|
.DA BE6502 ; NMI VECTOR
|
|
|
|
|
.DA BE6502 ; RESET VECTOR
|
|
|
|
|
.DA BE6502 ; IRQ VECTOR
|
