JPBC0: CALL PLAY_SAMPLE
RET
;SOUND C,A
SOUND: PUSH AF
LD A,C
OUT [$A0],A
POP AF
OUT [$A1],A
RET
PLAY_SAMPLE:
; HL = SAMPLE TO PLAY [8bit unsigned]
; DE = LENGHT TO PLAY
; TABLE = ADDRESS OF SAMPLE TABLE
;
DI
EXX
LD C,$A1
EXX
LOOP:
LD A,[HL]
EXX
LD L,A
LD H,0
LD D,H
LD E,L
ADD HL,HL
ADD HL,DE
LD DE,TABLE
ADD HL,DE
LD B,[HL]
INC HL
LD D,[HL]
INC HL
LD E,[HL]
LD A,8
OUT [$A0],A
OUT [C],B
INC A
OUT [$A0],A
OUT [C],D
INC A
OUT [$A0],A
OUT [C],E
LD B,8
DLYB0: DJNZ DLYB0
EXX
INC HL
DEC DE
LD A,D
OR E
JP NZ,LOOP
RET
change the player using always the same delay between out instuctions
This actually makes things worse. There is only one way of making samples less noicy and that is to maximize speed.
First OUT only selects register, so it does not change yet anything. That is why it is irrelevant when it is done. For rest of the OUTs, faster is better because then speaker has less time to go to "wrong" position.
![صورة [WYZ]](https://www.msx.org/sites/default/files/imagecache/avatar-comment/avatars/picture-775.png?v=1470481363 "صورة [WYZ]")
