IBM 5170 Technical Reference page 302

0068 8A E8 MOV
006A B2 00 MOV
006c EB A7
JMP
006E
RTC_GET_TIME
006E hC_SET_TIME
006E
RTC_3:
006E E8 01B7 R CAll
0071 73 03
JNe
0073 E8 019A R CALL
0076
0076 FA
ell
0077 52 PUSH
0078 62 FE HOV
007A E8 0192 R CALL
0070 8A C6 MOV
007F E6 11
OUT
0081 E8 0192 R
CALL
0084
SA
Cl
MOV
0086 E6 71
OUT
0088 E8 0192 R CALL
0086 8A C5
MOV
0080 E6 71
OUT
008F 62 OA MOV
0091 E8 018B R CALL
0094 5A POP
0095 E4 71 IN
0097 24 23 AND
0099 OA C2 OR
009B OC 02 OR
0090 50 PUSH
009E 62 OA f~OV
OOAO E8 018B R CALL
00A3 58
POP
OOAI, E6 71
OUT
00A6 E9 0015 R JMP
00A9 RTC_SET_TIME
00A9 RTC_GET_DATE
00A9 RTC_4:
00A9 E8 0161 R CALL
OOAC 73 03
JNe
OOAE E9 0018 R JMP
OOBl RTC_4A:
OOBl FA ell
00B2 B2 06 MOV
00B4 E8 018B R CALL
00B1 E4 71
IN
00B9 8A E8
MOV
OOBB E8 018B R
CALL
OOBE E4 71 IN
OOCO 8A Fa HOV
00C2 E8 018B R CALL
00C5 E4 71 IN
00C7 8A C8 HOV
00C9 B2 31 MOV
OOCB E8 018B R CALL
OOCE E4 71 IN
0000 8A 05
MOV
0002 SA E8
MOV
0004 E9 0015 R JMP
0001 RTC_GET_DATE
0001
0007 FE CC
DEe
0009 14 CE JZ
0006 FE CC DEe
~ODD 14 07 JZ
OODF FE CC DEe
OOEl 14 45
JZ
00E3 E9 0175 R
JHP
00E6 RTC SET DATE
00E6 RTC:5: -
00E6 E8 01B7 R
CALL
00E9 73 03
JNe
OOEB E8 019A R CALL
OOEE
OOEE FA ell
OOEF 51
PUSH
OOFO 8A EA MOV
00F2 B2 05
MOV
00F4 E8 018B R CALL
Don
BO 00 MOV
00F9 E6 11 OUT
OOFB E8 018B R CALL
OOFE 8A C5 MOV
0100 E6 71
OUT
0102 E8 018B R CALL
0105 8A C6
MOV
0107 E6 71
OUT
0109 E8 018B R CALL
010C 8A Cl
HOV
010E E6 11 OUT
0110 B2 OA HOV
0112 E8 018B R
CALL
0115 E4 11
IN
0117 24 7F
AND
0119 E6 11
OUT
011B 59
POP
011C B2 31 MOV
011E E8 018B R CALL
0121 8A C5 MOV
0123 E6 71
OUT
0125 E9 0015 R
JHP
0128 RTC_SET_DATE
0128 RTC SET ALARM
0128
RTC:6: -
0128 B2 OA
MOV
012A E8 018B R CALL
0120 E4 71 IN
012F A8 20 TEST
0131 74 05
JZ
0133 33 CO
XOR
0135 E9 0018 R JHP
0138
0138 E8 01B7 R
CALL
013B 73 03 JNe
0130 E8 019A R CALL
0140
0140 FA ell
0141 B2 FF
HOV
0143 E8 0192 R CALL
0146 8A C6 HOV
0148 E6 71 OUT
CH,AL
DL,O
T1
ENoP
PROC NEAR
~;g:~~_PR
INITIALIZE_STATUS
DX
DL,-2
PORT_I NC_2
AL.DH
CMOS_PORT+l ,AL
PORT INC 2
AL.cI ­
CMOS PORT+l, AL
PORCI NC_2
AL.CH
CMOS_PORT+l, AL
OL.OAH
PORT INC
OX ­
AL,CMOS_PORT+l
AL,23H
AL,OL
AL,02H
AX
DL,OAH
PORT INC
AX ­
CMOS_PORT+l, AL
Tl ; DONE
ENOP
PROC NEAR
UPD_IN_PR
RTC 4A
Tl_A
OL,6
PORT_I NC
AL, CMOS_PORT+l
CH.AL
PORT INC
AL,CMOS_PORT+l
oH,AL
PORT INC
AL,CMOS_PORT+l
CL.AL
oL,31H
PORT_INC
AL,CMOS_PORT+l
DL,CH
CH.AL
T1
ENDP
AM
RTC_4
AM
RTC_5
AM
RTC_6
RTC_7
PROC NEAR
~~g:~~_PR
I NIT I ALI ZE_STATUS
ex
CH,OL
DL,5
PORT INC
AL,OOH
CMOS PORT+l.AL
PORT: I NC
AL,CH
CMOS PORT+l. AL
PORT-' NC
AL.DH
CMOS PORT+l.AL
PORT:' NC
AL.CL
CMOS_PORT+l. AL
DL.OAH
PORT_INC
AL.CMOS_PORT+l
AL,07FH
CMOS PORT+l.AL
ex ­
DL,31H
PORT INC
AL,CH
CMOS_PORT+l. AL
T1
ENDP
PROC NEAR
DL,OAH
PORT_I NC
AL.CMOS_PORT+l
AL,20H
RTC_6A
AX,AX
Tl_A
UPO IN PR
RTC:6B­
I N IT IALIZE_STATUS
DL,-l
PORT_' NC_2
AL.DH
CMOS_PORT+l,AL
SAVE
SET DL TO ZERO
RETURN
CHECK FOR UPDATE I N PROCESS
GO AROUND I F CLOCK OPERAT I NG
I NTERRUPTS OFF OUR I NG SET
SAVE
FIRST ADDRESS
UPDATE ADDRESS
GET T
I
ME BYTE - SECONDS
STORE T I ME BYTE
UPDATE ADDRESS
GET T I ME BYTE - MINUTES
STORE T I ME BYTE
UPDATE ADDRESS
GET T I ME BYTE - HOURS
STORE TIME BYTE
RESTORE
GET CURRENT VALUE
MASK FOR VALID BIT POSITIONS
GET OST BIT
TURN ON 24 HR MODE
RETURN ON ERROR
I NTERRUPTS OFF OUR I NG READ
POINT TO DAY
SAVE
PO I NT TO MONTH
SAVE
PO I NT TO YEAR
SAVE
POINT TO CENTURY BYTE SAVE AREA
GET VALUE
GET DAY BACK
FIN I SHED
AH '" 4
READ RTC DATE
AH '"
5
SET RTC DATE
AH '"
6
SET RTC ALARM
RESET RTC ALARM
CHECK FOR UPDATE I N PROCESS
GO AROUND I F CLOCK UPDAT I NG
INTERRUPTS OFF DURING SET
SAVE
SAVE DAY OF MONTH
ADDRESS OF DAY OF WEEK REG I STER
LOAD ZEROS TO 'DAY OF WEEK' BYTE
ADDRESS OF DAY OF MONTH REGISTER
GET DAY OF MONTH BYTE
STORE IT
ADDRESS MONTH REG I STER
GET MONTH BYTE
STORE IT
ADDRESS OF YEAR REG I STER
GET YEAR BYTE
STORE IT
GET CURRENT SET I NG
CLEAR 'SET BIT'
*AND START CLOCK UPDAT I NG
GET BACK
PO I NT TO SAVE AREA
GET CENTURY BYTE
SAVE IT
RETURN
CHECK FOR ALARM ALREADY ENABLED
GET CURRENT SEll I NG OF ALARM ENABLE
ALARM NOT SET - GO PROCESS
RETURN I F ERROR
CHECK FOR UPDATE IN PROCESS
INTERRUPTS OFF DURING SET
GET SECONDS BYTE
LOAD ALARM BYTE - SECONDS
5-160 BIOS 2