Hello to all we user of MSX world,
I ASK HELP FOR ROUTINE IN ASSEMBLER FOR SOUND SFX:
The original routine it was done by Danysoft, but unfortunately it
doesn't work!! EVEN--> when I loaded the binary file,
I receive an error BAD FILE NAME !!
Therefore I tried fix his source assembler corrupt.......
certainly, it's not my fault, if the original program was
developed with "pasta and potatoes ...."
Here under there is my assembler code for CHAOS
ASSEMBLER 3. but must be adjusted well!
;
;
; Prog: SFX SOUND
; Code: Danysoft and AGsoftware
; Date: 2/5/2018
;
; cmnt: ??????
;
; Coded in TeddyWareZ' Chaos Assembler 3
;
; (C) 2018 EDIZIONI DATAPRINT MAGAZINE
.org $D000 - 7
.db $fe
.dw startProgram,endProgram,startProgram
startProgram:
START:
RET ; RETURN in BASIC
CALL_SFX1:
ld hl,sfx1
jp sound
soundoff:
call $90
jp START
ret
sound:
ld a,(hl)
inc hl
ld b,a
sound0:
push bc
ld b,13
ld d,0
send:
ld a,d
ld e,(hl)
call $93
inc hl
inc d
djnz send
pop bc
djnz sound0
jp START
SFX1:
; SOUND_1
.db 42
.db 53,2,0,0,0,0,0,184,0,63,0,11,0,0
.db 63,2,0,0,0,0,0,184,13,0,0,11,0,0
.db 247,2,0,0,0,0,0,184,13,0,0,11,0,0
.db 239,2,0,0,0,0,0,184,13,0,0,11,0,0
.db 231,63,0,0,0,0,0,184,13,0,0,11,0,0
.db 223,2,0,0,0,0,0,184,13,0,0,11,0,0
.db 215,2,0,0,0,0,0,184,13,0,0,11,0,0
.db 207,2,63,0,0,0,0,184,13,0,0,11,0,0
.db 199,2,63,0,0,0,0,184,13,0,0,11,0,0
.db 191,2,0,0,0,0,0,184,13,0,0,11,0,0
.db 183,2,0,0,0,0,0,184,13,0,0,11,0,0
.db 175,2,0,63,0,0,0,184,13,0,0,11,0,0
.db 167,2,0,63,0,0,0,184,13,0,0,11,0,0
.db 159,2,0,63,0,0,0,184,13,0,0,11,0,0
.db 151,2,0,63,0,0,0,184,13,0,0,11,0,0
.db 143,2,0,63,0,0,0,184,13,0,0,11,0,0
.db 135,2,0,0,0,0,0,184,13,0,0,11,0,0
.db 127,2,0,0,0,0,0,184,13,0,0,11,0,0
.db 119,2,0,0,0,0,0,184,13,0,0,11,0,0
.db 111,2,0,0,63,0,0,184,13,0,0,11,0,0
.db 103,2,0,0,63,0,0,184,13,0,0,11,0,0
.db 95,2,0,0,63,0,0,184,13,0,0,11,0,0
.db 87,2,0,0,63,0,0,184,13,0,0,11,0,0
.db 79,2,0,0,63,0,0,184,13,0,0,11,0,0
.db 71,2,0,0,0,0,0,184,13,0,0,11,0,0
.db 63,2,0,0,0,0,0,184,13,0,0,11,0,0
.db 55,2,0,0,0,0,0,184,13,0,0,11,0,0
.db 50,2,0,0,0,0,0,184,13,0,0,11,0,0
.db 41,2,0,0,0,0,0,184,13,0,0,11,63,0
.db 32,2,0,0,0,0,0,184,13,0,0,11,63,0
.db 23,2,0,0,0,0,0,184,13,0,0,11,0,0
.db 14,2,0,0,0,0,0,184,13,0,0,11,0,0
.db 5,2,0,0,0,0,0,184,13,0,0,11,0,63
.db 5,2,0,0,0,0,0,184,10,0,0,11,0,63
.db 50,2,0,0,0,0,0,184,10,0,0,11,0,63
.db 41,2,0,0,0,0,0,184,10,0,0,11,0,63
.db 32,2,0,0,0,0,0,184,10,0,0,11,0,0
.db 23,2,0,0,0,0,0,184,10,0,0,11,0,0
.db 14,2,0,0,0,0,0,184,10,0,0,11,0,0
.db 5,2,0,0,0,0,0,184,10,0,0,11,0,0
.db 5,2,0,0,0,0,0,184,2,0,0,11,0,0
.db 0,0,0,0,0,0,0,184,2,0,0,11,0,0
.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0
endProgram:
.end
For loading from BASIC:
10 CLEAR300,&HCFFF 20 BLOAD"SOUND.BIN" 30 DEFUSR=&HD000 40 A=USR(0) 50 END
For now is all.....
I hope to receive a positive response from you soon
Best Regards
(^_^)
Andrea Gasparrini
Login or register to post comments
