progress on FAT16 support
This commit is contained in:
@@ -6,33 +6,32 @@
|
||||
;------------------------------------------------------------------------------
|
||||
beep:
|
||||
push AF
|
||||
push BC
|
||||
push DE
|
||||
beep_loop:
|
||||
LD A,0x08
|
||||
OUT (CS_PIO_AD), A
|
||||
LD BC, 0x28
|
||||
CALL beep_pause
|
||||
LD A,0x00
|
||||
OUT (CS_PIO_AD), A
|
||||
LD BC, 0x24
|
||||
CALL beep_pause
|
||||
DEC DE
|
||||
ld A,D
|
||||
or E
|
||||
jr NZ, beep_loop
|
||||
pop de
|
||||
pop bc
|
||||
pop af
|
||||
ret
|
||||
|
||||
beep_pause:
|
||||
NEG ; 8 T-states
|
||||
NEG ; 8 T-states
|
||||
PUSH BC
|
||||
_beep_pause_l1:
|
||||
;NEG ; 8 T-states
|
||||
;NEG ; 8 T-states
|
||||
NEG ; 8 T-states
|
||||
NEG ; 8 T-states
|
||||
DEC BC ; 6 T-states
|
||||
LD A,C ; 9 T-states
|
||||
OR B ; 4 T-states
|
||||
JP NZ,beep_pause ; 10 T-states
|
||||
JP NZ,_beep_pause_l1 ; 10 T-states
|
||||
POP BC
|
||||
RET ; Pause complete, RETurn
|
||||
Reference in New Issue
Block a user