diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2021-04-17 22:05:24 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2021-04-17 22:05:24 +0100 |
| commit | a5745813e442b66ae6eed30bba81d1b3dd5cf634 (patch) | |
| tree | b302db1780350dc44543b81d49bfc1b2d4dff6a8 /player/player.z80 | |
| download | beeper-int-zx-a5745813e442b66ae6eed30bba81d1b3dd5cf634.tar.gz beeper-int-zx-a5745813e442b66ae6eed30bba81d1b3dd5cf634.zip | |
Initial public release
Diffstat (limited to 'player/player.z80')
| -rw-r--r-- | player/player.z80 | 93 |
1 files changed, 93 insertions, 0 deletions
diff --git a/player/player.z80 b/player/player.z80 new file mode 100644 index 0000000..d6fed1a --- /dev/null +++ b/player/player.z80 @@ -0,0 +1,93 @@ +ISR_TABLE_START = 0xfe00
+ISR_TABLE_START_LO = 0xfe
+ISR_TABLE_VALUE = 0xfd
+ISR_TABLE_START_JP = 0xfdfd
+
+EFX_TABLE_ADDR = 32000
+EFX_IN_ADDR = EFX_TABLE_ADDR - 1
+
+.area _HOME
+.area _CODE
+.area _INITIALIZER
+.area _GSINIT
+.area _GSFINAL
+
+.area _DATA
+.area _INITIALIZED
+.area _BSEG
+.area _BSS
+.area _HEAP
+
+.area _CODE
+
+_main::
+ di
+ ld sp, #0
+ ei
+
+ ld hl, #EFX_TABLE_ADDR
+ ld (sfx_data), hl
+
+ ld hl, #ISR_TABLE_START
+ ld (hl), #ISR_TABLE_VALUE
+ ld e, l
+ ld d, h
+ inc de
+ ld bc, #257
+ ldir
+
+ ld a, #ISR_TABLE_START_LO
+ ld i, a
+ im 2
+
+ ld hl, #ISR_TABLE_START_JP
+ ld de, #isr
+ ld a, #0xc3
+ ld (hl), a
+ inc hl
+ ld (hl), e
+ inc hl
+ ld (hl), d
+ ei
+
+ ld a, (EFX_IN_ADDR)
+ ld l, a
+ call _beeper_queue
+
+wait::
+ ld a, (sfx_type)
+ or a
+ jr nz, wait
+
+ halt
+ halt
+ halt
+ halt
+
+ out (0xff), a
+
+ di
+ halt
+
+isr:
+ ex af,af
+ push hl
+ push ix
+ push iy
+ push bc
+ push de
+
+ call _beeper_play
+
+ pop de
+ pop bc
+ pop iy
+ pop ix
+ pop hl
+ ex af,af
+ ei
+
+ ret
+
+.include "../sdcc/beeper.z80"
+
|