mirror of https://github.com/wwarthen/RomWBW.git
Dean Netherton
2 years ago
10 changed files with 259 additions and 145 deletions
@ -0,0 +1,76 @@ |
|||||
|
; |
||||
|
;================================================================================================== |
||||
|
; EZ80 50/60HZ TIMER TICK DRIVER |
||||
|
;================================================================================================== |
||||
|
; |
||||
|
; Communicate with on-chip eZ80 firmware to: |
||||
|
; 1. Exchange platform version numbers |
||||
|
; 2. Configure memory banking type |
||||
|
; 3. Retrieve CPU Frequency |
||||
|
; 4. Set Memory and I/O Bus Timings |
||||
|
; 5. Set Timer Tick Frequency |
||||
|
; |
||||
|
EZ80_PREINIT: |
||||
|
EZ80_TMR_INT_DISABLE() |
||||
|
|
||||
|
; PROVIDE THE EZ80 FIRMWARE WITH PLATFORM CONFIGUATIONS |
||||
|
LD C, 1 ; RomWBW'S ASSIGNED CODE |
||||
|
LD D, RMJ |
||||
|
LD E, RMN |
||||
|
LD H, RUP |
||||
|
LD L, RTP |
||||
|
|
||||
|
EZ80_UTIL_VER_EXCH() |
||||
|
; TODO CHECK RETURNED VERSION AND WARN IF NOT GOOD |
||||
|
; EXPECT A VERSION NUMBER > 0.1.0.0 |
||||
|
|
||||
|
LD C, MEMMGR |
||||
|
LD HL, ROMSIZE |
||||
|
LD DE, RAMSIZE |
||||
|
EZ80_UTIL_BNK_HLP() ; INSTAL HIGH PERFORMANCE BANK SWITCHER |
||||
|
; TODO CHECK RESULT AND USE STANDARD BANK SWITCHER IF NZ RETURNED |
||||
|
; OTHERWISE USE RST.L %18 FOR BANK SWITCH HELPER |
||||
|
|
||||
|
EZ80_UTIL_GET_CPU_FQ() |
||||
|
LD A, E |
||||
|
LD (CB_CPUMHZ), A |
||||
|
LD (CB_CPUKHZ), HL |
||||
|
LD (HB_CPUOSC), HL |
||||
|
|
||||
|
#IF (EZ80_ASSIGN == 1) |
||||
|
LD H, EZ80_MEM_CYCLES |
||||
|
LD L, EZ80_IO_CYCLES |
||||
|
EZ80_UTIL_SET_BUSTM() |
||||
|
#ELSE |
||||
|
LD HL, EZ80_MEM_FREQ |
||||
|
LD DE, EZ80_IO_FREQ |
||||
|
EZ80_UTIL_SET_BUSFQ() ; H -> CS3 CYCLES, L -> CS2 CYCLES |
||||
|
#ENDIF |
||||
|
LD A, H |
||||
|
LD (EZ80_PLT_C3CYL), A |
||||
|
LD A, L |
||||
|
LD (EZ80_PLT_C2CYL), A |
||||
|
|
||||
|
LD C, TICKFREQ |
||||
|
EZ80_TMR_SET_FREQTICK |
||||
|
|
||||
|
LD A, 5 ; HB_CPUTYPE = 5 FOR eZ80 |
||||
|
LD (HB_CPUTYPE),A |
||||
|
RET |
||||
|
|
||||
|
EZ80_RPT_TIMINGS: |
||||
|
LD A,(EZ80_PLT_C3CYL) |
||||
|
CALL PRTDECB |
||||
|
CALL PRTSTRD |
||||
|
.TEXT " MEM B/C, $" |
||||
|
|
||||
|
LD A,(EZ80_PLT_C2CYL) |
||||
|
CALL PRTDECB |
||||
|
CALL PRTSTRD |
||||
|
.TEXT " I/O B/C$" |
||||
|
RET |
||||
|
|
||||
|
EZ80_PLT_C3CYL: |
||||
|
.DB EZ80_MEM_CYCLES |
||||
|
EZ80_PLT_C2CYL: |
||||
|
.DB EZ80_IO_CYCLES |
||||
@ -0,0 +1,81 @@ |
|||||
|
; |
||||
|
;================================================================================================== |
||||
|
; EZ80 50/60HZ TIMER TICK DRIVER |
||||
|
;================================================================================================== |
||||
|
; |
||||
|
; Configuration options: |
||||
|
; EZ80TIMER: |
||||
|
; 0 -> No timer tick interrupts MARSHALLED to HBIOS. |
||||
|
; HBIOS System calls SYS_GETTIMER, SYS_GETSECS, SYS_SETTIMER, SYS_SETSECS are implemented here and DELEGATED to eZ80 firmware functions |
||||
|
; 1 -> Timer tick interrupts MARSHALLED to HBIOS. |
||||
|
; HBIOS System calls SYS_GETTIMER, SYS_GETSECS, SYS_SETTIMER, SYS_SETSECS are implemented within HBIOS |
||||
|
; |
||||
|
|
||||
|
#IF (EZ80TIMER == EZ80TMR_INT) |
||||
|
EZ80_TMR_INIT: |
||||
|
CALL NEWLINE ; FORMATTING |
||||
|
PRTS("EZ80 TIMER: INTERRUPTS ENABLED$") |
||||
|
|
||||
|
LD HL,EZ80_TMR_INT ; GET INT VECTOR |
||||
|
CALL HB_ADDIM1 ; ADD TO IM1 CALL LIST |
||||
|
|
||||
|
EZ80_TMR_INT_ENABLE() ; INSTALL TIMER HOOK |
||||
|
RET |
||||
|
|
||||
|
EZ80_TMR_INT: |
||||
|
EZ80_TMR_IS_TICK_ISR() |
||||
|
RET Z ; NOT A EZ80 TIMER TICK |
||||
|
|
||||
|
CALL HB_TIMINT ; RETURN NZ - HANDLED |
||||
|
OR $FF |
||||
|
RET |
||||
|
#ELSE |
||||
|
|
||||
|
EZ80_TMR_INIT: |
||||
|
CALL NEWLINE ; FORMATTING |
||||
|
PRTS("EZ80 TIMER: FIRMWARE$") |
||||
|
RET |
||||
|
; ----------------------------------------------- |
||||
|
; Implementation of HBIOS SYS TIMER functions to |
||||
|
; delegate to eZ80 firmware functions |
||||
|
|
||||
|
; GET TIMER |
||||
|
; RETURNS: |
||||
|
; DE:HL: TIMER VALUE (32 BIT) |
||||
|
; |
||||
|
SYS_GETTIMER: |
||||
|
EZ80_TMR_GET_TICKS() |
||||
|
RET |
||||
|
; |
||||
|
; GET SECONDS |
||||
|
; RETURNS: |
||||
|
; DE:HL: SECONDS VALUE (32 BIT) |
||||
|
; C: NUM TICKS WITHIN CURRENT SECOND |
||||
|
; |
||||
|
SYS_GETSECS: |
||||
|
EZ80_TMR_GET_SECONDS() |
||||
|
|
||||
|
EZ80_UTIL_HL_TO_EHL() ; E:HL{15:0} <- HL{23:0} |
||||
|
LD D, 0 |
||||
|
RET |
||||
|
; |
||||
|
; SET TIMER |
||||
|
; ON ENTRY: |
||||
|
; DE:HL: TIMER VALUE (32 BIT) |
||||
|
; |
||||
|
SYS_SETTIMER: |
||||
|
EZ80_UTIL_EHL_TO_HL() ; HL{23:0} <- E:HL{15:0} |
||||
|
EZ80_TMR_SET_TICKS() |
||||
|
RET |
||||
|
; |
||||
|
; SET SECS |
||||
|
; ON ENTRY: |
||||
|
; DE:HL: SECONDS VALUE (32 BIT) |
||||
|
; |
||||
|
SYS_SETSECS: |
||||
|
EZ80_UTIL_EHL_TO_HL() ; HL{23:0} <- E:HL{15:0} |
||||
|
|
||||
|
EZ80_TMR_SET_SECONDS() |
||||
|
RET |
||||
|
|
||||
|
#ENDIF |
||||
Loading…
Reference in new issue