|
|
|
@ -1802,30 +1802,34 @@ HB_CPUSPD2: |
|
|
|
; THAT SUPPORT SOFTWARE SELECTABLE CPU SPEED. UPDATE CB_CPUKHZ |
|
|
|
; IN HCB AS WE DO THIS. |
|
|
|
; |
|
|
|
#IF ((CPUSPDCAP==SPD_HILO) & (PLATFORM==PLT_MBC) & (CPUSPDDEF==SPD_HIGH)) |
|
|
|
#IF ((CPUSPDCAP==SPD_HILO) & (PLATFORM==PLT_MBC)) |
|
|
|
#IF (CPUSPDDEF==SPD_HIGH) |
|
|
|
; SET HIGH SPEED VIA RTC LATCH |
|
|
|
LD A,(HB_RTCVAL) |
|
|
|
OR %00001000 ; SET HI SPEED BIT |
|
|
|
LD (HB_RTCVAL),A ; SAVE SHADOW |
|
|
|
OUT (RTCIO),A ; IMPLEMENT |
|
|
|
; HL IS ALREADY CORRECT FOR FULL SPEED OPERATION |
|
|
|
#ELSE |
|
|
|
#ELSE |
|
|
|
; ADJUST HL TO REFLECT HALF SPEED OPERATION |
|
|
|
SRL H ; ADJUST HL ASSUMING |
|
|
|
RR L ; HALF SPEED OPERATION |
|
|
|
#ENDIF |
|
|
|
#ENDIF |
|
|
|
; |
|
|
|
#IF ((CPUSPDCAP==SPD_HILO) & (PLATFORM==PLT_SBC) & (CPUSPDDEF==SPD_HIGH)) |
|
|
|
#IF ((CPUSPDCAP==SPD_HILO) & (PLATFORM==PLT_SBC)) |
|
|
|
#IF (CPUSPDDEF==SPD_HIGH) |
|
|
|
; SET HIGH SPEED VIA RTC LATCH |
|
|
|
LD A,(HB_RTCVAL) |
|
|
|
AND ~%00001000 ; CLEAR HI SPEED BIT |
|
|
|
LD (HB_RTCVAL),A ; SAVE SHADOW |
|
|
|
OUT (RTCIO),A ; IMPLEMENT |
|
|
|
; HL IS ALREADY CORRECT FOR FULL SPEED OPERATION |
|
|
|
#ELSE |
|
|
|
#ELSE |
|
|
|
; ADJUST HL TO REFLECT HALF SPEED OPERATION |
|
|
|
SRL H ; ADJUST HL ASSUMING |
|
|
|
RR L ; HALF SPEED OPERATION |
|
|
|
#ENDIF |
|
|
|
#ENDIF |
|
|
|
; |
|
|
|
#IF (CPUFAM == CPU_Z180) |
|
|
|
|