IBM PC CONVERTIBLE

0047 RTC1:
0047 FA CLI
DISABLE INTERRUPTS FOR READ
0048 89 16 006C R MOV TIMEILLOW, OX
SET TIMEILLOW = TO PARAM OX
004C 89 OE 006E R MOV
TIMEILHIGH,CX
SET TIMER_HIGH = TO PARAM CX
0050 C6 06 0070 R 00 MOV
TIMEILOFL,O
RESET OVERFLOW
0055 EB C4 JMP
TOO_RET
NORMAL RTN AFTER SETTING TMR
; -------CHECK FOR FUNCTION REQUESTS
2 AND 3--------------------------
0057 RTCCHK1:
0057 FE CC DEC AH
IF PARAMETER AH=2
0059 74 07 JZ RTC2
THEN GET RTC TIME
005B FE CC DEC AH
I F PARAMETER AH=3
0050 74 20 JZ RTC3
THEN SET RTC TIME
005F E9 OOEE R JMP RTCCHK2
GO CHECK FOR OTHER FUNCTIONS
;-------G E T
R T
TIM E--------- FUNCTION 02H ---------------
0062 RTC2:
0062 E8 OlFE R CALL
UPD_IN_PR
CLOCK OPERATING?
0065 73 02 JNC RTC2A
YES, GO AROUND
0067 EB BD JMP
TOD_ERET
NO, ERROR RETURN
0069
RTC2A:
0069
B4 00 MOV AH,RTCTSEC
ADDRESS AND
006B E8 0000 CALL GELRTCNMI
GET RTCTSEC (RegO)
006E 8A FO MOV DH,AL
DH RETURNS TSEC DATA
0070 B4 02 MOV AH,RTCTMIN
ADDRESS AND
0072 E8 0000 CALL GELRTCNMI
GET RTCTMIN (Reg2)
0075 8A C8 MOV CL ,AL
CL RETURNS TMIN DATA
0077 B4 04 MOV AH,RTCTHRS
ADDRESS AND
0079 E8 0000 CALL GELRTCNMI
GET RTCTHRS (Reg4)
D07C 8A E8 MOV CH,AL
CH RETURNS THRS DATA
007E 2A 02 SUB DL,DL
SET NOT -DAYLIGHT -SAVINGS
0080
B4 DB
MOV AH,RTCMODE
GET RTCMODE (RegB)
0082 E8 0000 CALL GELRTCNMI
0085
A8 01
TEST AL,SELDAYLIGHT
DAYLIGHT SAVINGS SET?
0087 74 01 JZ RTC2B
NO, JUMP AROUND
0089 42 INC OX
YES, SET DL=Ol
008A EB 8C RTC2B: JMP
TOD_NRET NORMAL RETURN WITH TIME
;-------S E T
R T
C
TIM E--------- FUNCTION 03H ----------------
008C RTC3:
008C E8 OlFE R CALL
UPD_IN_PR
CLOCK OPERATING?
008F 73 03 JNC RTC3A
YES, GO AROUND
0091 E8 01E5 R CALL
IN ITIALI ZE_STATUS NO, INIT CONTROL/STATUS
REG. S (A-D)
0094 RTC3A:
0094
B4 00 MOV AH,RTCTSEC
ADDRESS AND SET
0096
8A C6
MOV AL,DH
RTCTSEC (RegO) = TO
0098 E8 0000 CALL PULRTCNMI
TSEC PARAMETER, CH
009B
B4 02 MOV AH,RTCTMIN ADDRESS AND SET
0090 8A C1 MOV AL,CL
RTCTMIN
(Reg2) = TO
009F E8 0000 CALL PULRTCNMI
TMIN PARAMETER,
CL
00A2 B4 04 MOV AH,RTCTHRS
ADDRESS AND SET
00A4 8A C5 MOV AL,CH
RTCTHRS (Reg4) = TO
00A6 E8 0000 CALL
PULRTCNMI THRS PARAMETER, CH
00A9 B4 DB
MOV
AH,RTCMODE
ADDRESS AND
OOAB E8 0000 CALL GELRTCNMI
; GET RTCMODE (RegB)
OOAE
24 71
AND
AL ,AI E_ENABLE+U I E_ENABLE+P I LENABLE+S ELDAYL IGHT
RESET UNUSED FLAGS
CLEAR ALL OTHERS.
OOBO
80 E2 01
AND DL,SELDAYLIGHT SET DL = TO ITS BITO
ODB3 OA C2 OR AL,DL IF DSE=l, KEEP, ELSE DSE=DL.
00B5 OC 02 OR AL,SEL24HR TURN ON 24HR-MODE
00B7 E8 0000
CALL
PULRTCNMI
ADDR AND SET RTC_MODE (REG B)
ROM BIOS 2-157