|
|
|
@ -1400,6 +1400,16 @@ HBX_INT_SP .EQU $ - 2 |
|
|
|
RET.L ; INTERRUPTS WILL BE ENABLED BY BY EZ80 FIRMWARE |
|
|
|
; CAN THEY BE ENABLED HERE - DOES THAT RISK RE-ENTRANT OF THE HANDLER? |
|
|
|
#ELSE |
|
|
|
#IF (TURBOZ80) |
|
|
|
; IF THE CPU HAS BOOSTED TO 20MHZ, ANY PERIPHERAL THAT ATTEMPTS |
|
|
|
; TO DETECT THE RETI INSTRUCTION ON THE DATA BUS WILL LIKELY FAIL. |
|
|
|
; WE NEED TO SLOW THE PROCESSOR BACK TO THE DEFAULT SPEED. |
|
|
|
; ANY I/O OPERATION WILL CAUSE THE PROCESSOR TO CLOCK DOWN TO THE |
|
|
|
; DEFAULT SPEED FOR THE NEXT 31 CLOCK TICKS |
|
|
|
PUSH AF |
|
|
|
IN A, (TURBOZ80DISPRT) ; ANY IO ADDRESS CAN BE USED, SO LONG AS IT HAS NO DEVICE IMPACT |
|
|
|
POP AF |
|
|
|
#ENDIF |
|
|
|
HB_EI ; ENABLE INTERRUPTS |
|
|
|
RETI ; AND RETURN |
|
|
|
#ENDIF |
|
|
|
@ -3340,6 +3350,11 @@ INTTEST_Z: |
|
|
|
LD HL,(CB_CPUKHZ) |
|
|
|
CALL PRTD3M ; PRINT AS DECIMAL WITH 3 DIGIT MANTISSA |
|
|
|
PRTS("MHz$") |
|
|
|
|
|
|
|
#IF (TURBOZ80) |
|
|
|
CALL PRTSTRD |
|
|
|
.TEXT " (TURBO: 20Mhz)$" |
|
|
|
#ENDIF |
|
|
|
; |
|
|
|
#IF (CPUFAM == CPU_Z180) |
|
|
|
PRTS(" IO=0x$") |
|
|
|
|