Reorganized folders, added pal-adapter io device folder
This commit is contained in:
21
pat80-computer/software/z80-assembly/os/libs/time.asm
Normal file
21
pat80-computer/software/z80-assembly/os/libs/time.asm
Normal file
@ -0,0 +1,21 @@
|
||||
; Time library
|
||||
; @author Daniele Verducci
|
||||
|
||||
; Duration in cpu cycles / 55 (change these values based on CPU frequency)
|
||||
TIME_DUR_SECOND: EQU 2545
|
||||
TIME_DUR_MILLIS: EQU 3
|
||||
|
||||
; Wait bc * 55 states
|
||||
; Use 1 iteration as delay between I/O bus writes
|
||||
; @param bc The number of iterations. Each iteration is 55 states long.
|
||||
Time_delay55:
|
||||
ret
|
||||
bit 0,a ; 8
|
||||
bit 0,a ; 8
|
||||
bit 0,a ; 8
|
||||
and 255 ; 7
|
||||
dec bc ; 6
|
||||
ld a,c ; 4
|
||||
or b ; 4
|
||||
jp nz,Time_delay55 ; 10, total = 55 states/iteration
|
||||
ret
|
Reference in New Issue
Block a user