jetpac | Routines |
Prev: 681d | Up: Map | Next: 6839 |
The note pitch goes from `low` to `high`.
Used by the routine at 6814.
|
||||||||
6828 | ld a,$10 | |||||||
682a | out ($fe),a | Turn speaker ON | ||||||
682c | ld b,c | Set duration | ||||||
682d | djnz $682d | Note continues for the frequency duration | ||||||
682f | xor a | |||||||
6830 | out ($fe),a | Turn speaker OFF | ||||||
6832 | ld b,c | |||||||
6833 | djnz $6833 | Silence for the frequency duration | ||||||
6835 | dec c | Decrement frequency (higher pitch) | ||||||
6836 | jr nz,$6828 | Repeat until frequency is zero | ||||||
6838 | ret |
Prev: 681d | Up: Map | Next: 6839 |