Hello Guys,
I SEEK MUSICIAN for MODIFY Assembly Routine for PSG MUSIC !
Now, I explain my little problem.........
I need of modify this assembly routine with others musical notes.......
Therefore: Please, if somebody has the good sense and would have the
leisure to do so, edit this musical tune, with something different
and more cheerful .....
Now Is all......
I wait your good news...
Best Regards.

AG.
BASIC Code:
REM START MUSIC ! DEFUSR=&HE000:A=USR(0) END REM STOP MUSIC ! POKE&HE0C1,1:DEFUSR=&H90:A=USR(0) END
ASSEMBLY CODE:
.ORG $E000-7 .db $FE .dw start,fine,start start: DI XOR A LD (DD0C1),A LD HL,DD0C1+1 ; LD HL,DD0C2 LD B,$0E DD00A: LD E,(HL) CALL $93 INC A INC HL DJNZ DD00A LD HL,DD0D0 LD DE,DD0E2 LD BC,$12 LDIR LD HL,$FD9F ; LD DE,DD05D LD DE,DD055 LD BC,$05 LDIR LD HL,DD035 LD DE,$FD9F LD BC,$03 LDIR EI RET DD035: JP DD038 DD038: PUSH AF PUSH BC PUSH DE PUSH HL LD A,(DD0C1) OR A JR NZ,DD0B3 LD HL,DD0E9 LD B,$02 DD047: LD E,(HL) INC HL LD D,(HL) DEC HL LD A,D OR E JR Z,DD062 DEC DE LD (HL),E INC HL LD (HL),D DD053: LD HL,DD0F2 DJNZ DD047 DD058: POP HL POP DE POP BC POP AF EI ;DD05D: DD055: RST 30H .DB $8B .DW $7FD4 RET DD062: PUSH BC PUSH HL DEC HL DEC HL LD B,(HL) DEC HL LD C,(HL) DEC HL LD D,(HL) DEC HL LD E,(HL) PUSH HL LD H,D LD L,E CP A SBC HL,BC POP HL JR NZ,DD080 DEC HL LD B,(HL) DEC HL LD C,(HL) INC HL INC HL INC HL INC HL JR DD086 DD080: INC BC INC BC INC BC INC BC INC HL INC HL DD086: LD (HL),C INC HL LD (HL),B INC HL LD A,(HL) PUSH HL LD H,B LD L,C LD B,$02 DD090: LD E,(HL) CALL $93 DEC A INC HL DJNZ DD090 POP DE INC DE INC DE LD A,(HL) LD (DE),A DEC DE INC HL LD A,(HL) LD (DE),A POP HL POP BC LD A,$01 CP B JR Z,DD053 LD A,(DD0CF) LD E,A LD A,$0D CALL $93 JR DD053 DD0B3: DI LD HL,DD055 ; LD HL,DD05D LD DE,$FD9F LD BC,$05 LDIR JR DD058 DD0C1: .DB $01,$00,$00,$00,$00,$00,$00,$14,$B8 .DB $0E,$10,$0D,$00,$14 DD0CF: .DB $09 DD0D0: .DB $F4 DD0D1: .DB $E0,$88,$E1,$F0,$E0,$03,$00,$00,$8C ; $E000 .DB $E1,$98,$E1,$88,$E1,$05,$00,$00 ; $E000 DD0E2: .DB $F4,$E0,$88,$E1,$14,$E1,$03 ; $E000 DD0E9: .DB $00,$00,$8C,$E1,$98,$E1,$90,$E1,$05 ; $E000 DD0F2: .DB $00,$00,$01,$AC,$00,$0F,$01,$70,$00 ; note musicali .DB $0F,$01,$7D,$00,$0F,$01,$AC,$00,$07 .DB $01,$70,$00,$0F,$01,$7D,$00,$0F,$01 .DB $AC,$00,$07,$01,$7D,$00,$0F,$01,$53 .DB $00,$0F,$01,$AC,$00,$0F,$01,$7D,$00 .DB $0F,$01,$7D,$00,$0F,$01,$AC,$00,$07 .DB $01,$7D,$00,$0F,$01,$53,$00,$0F,$01 .DB $40,$00,$07,$01,$53,$00,$0F,$01,$7D .DB $00,$0F,$01,$AC,$00,$0F,$01,$7D,$00 .DB $0F,$01,$7D,$00,$0F,$01,$AC,$00,$07 .DB $01,$7D,$00,$0F,$01,$7D,$00,$0F,$01 .DB $AC,$00,$07,$01,$70,$00,$0F,$01,$53 .DB $00,$0F,$00,$00,$00,$0F,$01,$AC,$00 .DB $0F,$00,$00,$00,$0F,$01,$AC,$00,$0F .DB $00,$00,$00,$0F,$01,$7D,$00,$07,$01 .DB $70,$00,$07,$01,$53,$00,$07,$01,$53 .DB $00,$07,$01,$40,$00,$07,$01,$40,$00 .DB $07,$05,$4E,$00,$3F,$05,$F4,$00,$3F .DB $06,$AF,$00,$3F,$05,$F4,$00,$3F,$00 .DB $00,$00,$00,$00,$00 fine: .END
Login or register to post comments
