|
|
|
@ -534,7 +534,7 @@ AY_EI: |
|
|
|
AY_WRTPSG: |
|
|
|
CALL AY_DI |
|
|
|
#IFDEF SBCV2004 |
|
|
|
LD A,(RTCVAL) ; GET CURRENT RTC LATCH VALUE |
|
|
|
LD A,(HB_RTCVAL) ; GET CURRENT RTC LATCH VALUE |
|
|
|
OR %00001000 ; SBC-V2-004 CHANGE |
|
|
|
OUT (RTCIO),A ; TO HALF CLOCK SPEED |
|
|
|
#ENDIF |
|
|
|
@ -553,7 +553,7 @@ AY_WRTPSG: |
|
|
|
OUT0 (Z180_DCNTL),A ; AND RESTORE IT |
|
|
|
#ENDIF |
|
|
|
#IFDEF SBCV2004 |
|
|
|
LD A,(RTCVAL) ; SBC-V2-004 CHANGE TO |
|
|
|
LD A,(RTCDEFVAL) ; SBC-V2-004 CHANGE TO |
|
|
|
OUT (RTCIO),A ; NORMAL CLOCK SPEED |
|
|
|
#ENDIF |
|
|
|
JP AY_EI |
|
|
|
@ -565,7 +565,7 @@ AY_WRTPSG: |
|
|
|
AY_RDPSG: |
|
|
|
CALL AY_DI |
|
|
|
#IFDEF SBCV2004 |
|
|
|
LD A,(RTCVAL) ; GET CURRENT RTC LATCH VALUE |
|
|
|
LD A,(HB_RTCVAL) ; GET CURRENT RTC LATCH VALUE |
|
|
|
OR %00001000 ; SBC-V2-004 CHANGE |
|
|
|
OUT (RTCIO),A ; TO HALF CLOCK SPEED |
|
|
|
#ENDIF |
|
|
|
@ -584,7 +584,7 @@ AY_RDPSG: |
|
|
|
OUT0 (Z180_DCNTL),A ; AND RESTORE IT |
|
|
|
#ENDIF |
|
|
|
#IFDEF SBCV2004 |
|
|
|
LD A,(RTCVAL) ; SBC-V2-004 CHANGE TO |
|
|
|
LD A,(RTCDEFVAL) ; SBC-V2-004 CHANGE TO |
|
|
|
OUT (RTCIO),A ; NORMAL CLOCK SPEED |
|
|
|
#ENDIF |
|
|
|
JP AY_EI |
|
|
|
|