Play recorded sounds: Difference between revisions
m
→{{header|68000 Assembly}}
Puppydrum64 (talk | contribs) |
Puppydrum64 (talk | contribs) |
||
Line 22:
<lang 68000devpac>dac_data equ $2A
dac_enable equ $2B
LEA bummer,a1
subq.b #1,d0
.dac_loop:
sub.b #$30,d1
BRA .dac_loop▼
;the core functionality of FMRegWrite had to be reproduced inline
;in order to play the sample back quickly enough for it to sound correct.
.wait1:
BTST #7,(A3)
BNE .wait1
MOVE.B D0,(A3) ;register
.wait2:
BTST #7,(A3)
BNE .wait2
MOVE.B D1,(1,A3) ;data
RTS
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|