|
|
|
@ -96,7 +96,7 @@ MODCNT .SET MODCNT + 1 |
|
|
|
#DEFINE DIAG(N) \; |
|
|
|
#ENDIF |
|
|
|
; |
|
|
|
#IF (LEDENABLE) |
|
|
|
#IF (LEDENABLE) & FALSE |
|
|
|
#DEFINE LED(N) PUSH AF |
|
|
|
#DEFCONT \ LD A,~N |
|
|
|
#DEFCONT \ OUT (LEDPORT),A |
|
|
|
@ -1424,6 +1424,17 @@ HB_CPU1: |
|
|
|
CALL DSRTC_PREINIT |
|
|
|
#ENDIF |
|
|
|
; |
|
|
|
#IF (SKZENABLE) |
|
|
|
; |
|
|
|
; SET THE SK Z80-512K UART CLK2 DIVIDER AS |
|
|
|
; CONFIGURED. NOTE THAT THIS IMPLICITLY |
|
|
|
; CLEARS THE WATCHDOG BIT. THE WATCHDOG |
|
|
|
; WILL BE ENABLED LATER IF CONFIGURED. |
|
|
|
LD A,SKZDIV ; GET DIVIDER CODE |
|
|
|
OUT ($6D),A ; IMPLEMENT IT |
|
|
|
; |
|
|
|
#ENDIF |
|
|
|
; |
|
|
|
#IF (CPUFAM == CPU_Z180) |
|
|
|
; |
|
|
|
; AT BOOT, Z180 PHI IS OSC / 2 |
|
|
|
@ -1971,21 +1982,26 @@ IS_REC_M1: |
|
|
|
#IF (WDOGMODE == WDOG_EZZ80) |
|
|
|
PRTS("EZZ80$") |
|
|
|
#ENDIF |
|
|
|
; |
|
|
|
#IF (WDOGMODE == WDOG_SKZ) |
|
|
|
PRTS("SKZ$") |
|
|
|
#ENDIF |
|
|
|
; |
|
|
|
PRTS(" IO=0x$") |
|
|
|
LD A,WDOGIO |
|
|
|
CALL PRTHEXBYTE |
|
|
|
; |
|
|
|
#IF (WDOGMODE == WDOG_SKZ) |
|
|
|
; SKZ WATCHDOG IS DISABLED EARLY IN BOOT PROCESS |
|
|
|
; HERE, WE ONLY NEED TO ENABLE IT, IF APPROPRIATE |
|
|
|
LD HL,(HB_TICKS) ; GET LOW WORD |
|
|
|
LD A,H ; CHECK FOR |
|
|
|
OR L ; ... ZERO |
|
|
|
JR Z,HB_WDOFF ; SKIP IF NOT TICKING |
|
|
|
IN A,($6D) ; GET PORT VALUE |
|
|
|
SET 5,A ; SET WDOG ENABLE BIT |
|
|
|
OUT ($6D),A ; DO IT |
|
|
|
SET 5,A ; SET THE WATCHDOG ENABLE BIT |
|
|
|
OUT ($6D),A ; ACTIVATE WATCHDOG |
|
|
|
#ENDIF |
|
|
|
; |
|
|
|
PRTS(" IO=0x$") |
|
|
|
LD A,WDOGIO |
|
|
|
CALL PRTHEXBYTE |
|
|
|
PRTS(" ENABLED$") |
|
|
|
JR HB_WDZ |
|
|
|
; |
|
|
|
|