; GMP-X1(LINKED DATA PLAYER) V1.00 ; 89/05/16 10:51PM ORG $DD00 PSTART ;IN A=MUSIC NO.($FF=END,$FE=FADE,$FD=ADRSET(HL)) CP $FF JP Z,MUSIC.END CP $FE JP Z,MUSIC.FADE CP $FD JP Z,MUSIC.ADR.SET ADD A,A LD E,A LD D,0 LD HL,(MUSIC.ADR) ADD HL,DE LD E,(HL) INC HL LD D,(HL) LD HL,(MUSIC.ADR) ADD HL,DE PUSH HL:CALL $F00C:POP HL EX DE,HL JP $F009 MUSIC.END JP $F003 MUSIC.FADE LD A,20 LD DE,$007F JP $F006 MUSIC.ADR.SET LD (MUSIC.ADR),HL RET MUSIC.ADR DW $4000 ORG PSTART+$80 LD A,$FD LD HL,$4000 JP PSTART ORG PSTART+$90 LD A,$00 JP PSTART ORG PSTART+$A0 LD A,$FF JP PSTART ORG PSTART+$B0 LD A,$FE JP PSTART ORG PSTART+$C0 CALL #2HEX LD HL,$4000 JP PSTART #2HEX EQU $1FB5