2009-01-22 01:27:03 +00:00
|
|
|
; timer routines
|
|
|
|
|
;
|
|
|
|
|
; the timer should be a 16-bit counter that's incremented by about
|
|
|
|
|
; 1000 units per second. it doesn't have to be particularly accurate,
|
|
|
|
|
; if you're working with e.g. a 60 Hz VBLANK IRQ, adding 17 to the
|
|
|
|
|
; counter every frame would be just fine.
|
2009-03-21 06:40:53 +00:00
|
|
|
;
|
|
|
|
|
; this is generic timer routines, machine specific code goes in drivers/<machinename>timer.s
|
2009-01-22 01:27:03 +00:00
|
|
|
.include "../inc/common.i"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.export timer_timeout
|
|
|
|
|
.import timer_read
|
|
|
|
|
|
|
|
|
|
.bss
|
|
|
|
|
|
|
|
|
|
time: .res 2
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.code
|
|
|
|
|
|
2009-03-21 06:40:53 +00:00
|
|
|
;check if specified period of time has passed yet
|
|
|
|
|
;inputs: AX - maximum number of milliseconds we are willing to wait for
|
|
|
|
|
;outputs: carry flag set if timeout occured, clear otherwise
|
2009-01-22 01:27:03 +00:00
|
|
|
timer_timeout:
|
|
|
|
|
pha
|
|
|
|
|
txa
|
|
|
|
|
pha
|
|
|
|
|
jsr timer_read
|
|
|
|
|
stax time
|
|
|
|
|
pla
|
|
|
|
|
tax
|
|
|
|
|
pla
|
|
|
|
|
sec ; subtract current value
|
|
|
|
|
sbc time
|
|
|
|
|
txa
|
|
|
|
|
sbc time + 1
|
|
|
|
|
rts ; clc = timeout, sec = no timeout
|
