pitch-dark/src/sound.a
2018-03-27 17:17:47 -04:00

37 lines
642 B
Plaintext

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