2021-05-29 08:37:38 -04:00
|
|
|
; void __fastcall__ psg_outb (unsigned char b);
|
2021-05-14 19:12:59 -04:00
|
|
|
; void __fastcall__ psg_delay (unsigned char b);
|
2021-05-29 08:37:38 -04:00
|
|
|
; void psg_silence (void);
|
2013-12-05 11:40:44 +00:00
|
|
|
|
2021-05-14 19:12:59 -04:00
|
|
|
|
|
|
|
.export _psg_outb, _psg_silence, _psg_delay
|
|
|
|
|
2017-02-01 19:46:04 +01:00
|
|
|
.include "creativision.inc"
|
|
|
|
|
2021-05-14 19:12:59 -04:00
|
|
|
|
2021-05-30 13:30:08 -04:00
|
|
|
;* Let BIOS output the value.
|
|
|
|
_psg_outb := BIOS_POKE_PSG
|
2013-12-05 11:40:44 +00:00
|
|
|
|
2017-02-01 19:46:04 +01:00
|
|
|
|
2021-05-30 13:30:08 -04:00
|
|
|
_psg_silence := BIOS_QUIET_PSG
|
2017-02-01 19:46:04 +01:00
|
|
|
|
|
|
|
|
2013-12-05 11:40:44 +00:00
|
|
|
_psg_delay:
|
2017-02-01 19:46:04 +01:00
|
|
|
tay
|
2021-05-14 19:12:59 -04:00
|
|
|
l1: lda #200
|
|
|
|
l2: sbc #1
|
|
|
|
bne l2
|
2017-02-01 19:46:04 +01:00
|
|
|
|
2021-05-14 19:12:59 -04:00
|
|
|
lda #200
|
|
|
|
l3: sbc #1
|
|
|
|
bne l3
|
2017-02-01 19:46:04 +01:00
|
|
|
|
|
|
|
dey
|
2021-05-14 19:12:59 -04:00
|
|
|
bne l1
|
2017-02-01 19:46:04 +01:00
|
|
|
rts
|