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