|
|
|
@ -1245,7 +1245,7 @@ HB_CPU1: |
|
|
|
LD (IVT(INT_TIM0)),HL ; Z180 TIMER 0 |
|
|
|
|
|
|
|
; SETUP PERIODIC TIMER INTERRUPT ON TIMER 0 |
|
|
|
LD HL,CPUOSC/TICKSPERSEC/20-1 ; 50HZ = 18432000/ 50 / 20 |
|
|
|
LD HL,CPUOSC/TICKSPERSEC/20-1 ; 50HZ = 18432000 / 50 / 20 |
|
|
|
LD B,0 |
|
|
|
LD C,Z180_RLDR0L ; INITIALIZE TIMER 0 RELOAD REGISTER |
|
|
|
OUT (C),L |
|
|
|
@ -2400,7 +2400,7 @@ SYS_GETTIMER: |
|
|
|
; |
|
|
|
SYS_GETSECS: |
|
|
|
LD HL,HB_SECTCK |
|
|
|
LD A,TICKSPERSEC-1 |
|
|
|
LD A,TICKSPERSEC |
|
|
|
HB_DI |
|
|
|
SUB (HL) |
|
|
|
INC HL ; NOW POINTING TO HB_SECS |
|
|
|
@ -2752,7 +2752,7 @@ HB_TIMINT2: |
|
|
|
DEC (HL) ; COUNTDOWN 50 TICKS |
|
|
|
JR NZ,HB_TIMINT3 ; NOT ZERO YET, DONE FOR THIS CYCLE |
|
|
|
; 50 TICKS HAVE ELAPSED |
|
|
|
LD A,TICKSPERSEC-1 ; 50 TICKS PER SECOND |
|
|
|
LD A,TICKSPERSEC ; 50 TICKS PER SECOND |
|
|
|
LD (HL),A ; RESET COUNTDOWN REGISTER |
|
|
|
; INCREMENT SECONDS COUNTER |
|
|
|
LD HL,HB_SECS ; POINT TO SECONDS COUNTER |
|
|
|
@ -4062,7 +4062,7 @@ IDLECOUNT .DB 0 |
|
|
|
HEAPCURB .DW 0 ; MARK HEAP ADDRESS AFTER INITIALIZATION |
|
|
|
; |
|
|
|
HB_TICKS .FILL 4,0 ; 32 BIT TICK COUNTER |
|
|
|
HB_SECTCK .DB TICKSPERSEC-1 ; TICK COUNTER FOR FRACTIONAL SECONDS |
|
|
|
HB_SECTCK .DB TICKSPERSEC ; TICK COUNTER FOR FRACTIONAL SECONDS |
|
|
|
HB_SECS .FILL 4,0 ; 32 BIT SECONDS COUNTER |
|
|
|
; |
|
|
|
HB_CPUTYPE .DB 0 ; 0=Z80, 1=80180, 2=SL1960, 3=ASCI BRG |
|
|
|
|