33 lines
588 B
Plaintext
33 lines
588 B
Plaintext
;license:MIT
|
|
;(c) 2018 by 4am
|
|
;
|
|
; Sound routines
|
|
;
|
|
; Public functions
|
|
; - SoftBell
|
|
;
|
|
|
|
;------------------------------------------------------------------------------
|
|
; 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
|