pitch-dark/src/ui.sound.a
2018-04-15 12:29:24 -04:00

36 lines
623 B
Plaintext

;license:MIT
;(c) 2018 by 4am
;
; Sound routines
;
; Public functions
; - SoftBell
;
WAIT = $FCA8
SPEAKER = $C030
;------------------------------------------------------------------------------
; SoftBell
;
; in: none
; out: all registers and flags preserved
;------------------------------------------------------------------------------
SoftBell
php
phx
pha
ldx #32
- lda #2
jsr WAIT
bit SPEAKER
lda #33
jsr WAIT
bit SPEAKER
dex
bne -
pla
plx
plp
rts