Difference between revisions of "Z80 Routines:Sound:Beep"
From WikiTI
Guillaumeh (Talk | contribs) (categories) |
Guillaumeh (Talk | contribs) m (removed 'error' label) |
||
| Line 19: | Line 19: | ||
djnz beepl1 | djnz beepl1 | ||
ei | ei | ||
| − | + | ret</nowiki> | |
Revision as of 04:40, 13 July 2005
By Joe Wingbermuehle (joewing@calc.org). This routine was written for the ZLib library for the SOS
shell.
;---------= Make a sound =---------
; c=frequency, b=duration
beep: di
ld e,$D0
beepl1: ld a,c
beepl2: dec a
jr nz,beepl2
ld a,e
xor %00000011
ld e,a
out (0),a
djnz beepl1
ei
ret
