I SEEK MUSICIAN for MODIFY Assembly Routine for PSG MUSIC !

By gasparrini

Champion (329)

gasparrini's picture

16-07-2014, 13:43

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.
Hannibal
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