S5-95F
The Integral Real-Time Clock
FB10 STL
Explanation
NAME :SET CLOCK SETTING THE CLOCK
DES :WDAY I/Q/D/B/T/C: I BI/BY/W/D: BY
DES :DAY I/Q/D/B/T/C: I BI/BY/W/D: BY
DES :MON I/Q/D/B/T/C: I BI/BY/W/D: BY
DES :YEAR I/Q/D/B/T/C: I BI/BY/W/D: BY
DES :HOUR I/Q/D/B/T/C: I BI/BY/W/D: BY
DES :AMPM I/Q/D/B/T/C: I BI/BY/W/D: BI
DES :MIN I/Q/D/B/T/C: I BI/BY/W/D: BY
DES :SEC I/Q/D/B/T/C: I BI/BY/W/D: BY
DES :ERR I/Q/D/B/T/C: Q BI/BY/W/D: BI
DES :MODE I/Q/D/B/T/C: I BI/BY/W/D: BI
:C DB200 OPEN PARAMETER CONTROL DB
:AN =MODE 24H-MODE = 0, 12H-MODE = 1
:JU =CONT
:SU D 22.1 CLOCK MODE STATUS WORD BIT 1
:A F 20.0 START MONITORING TIME
:L KT 200.0
:SE T 10
WEIT :AN F 20.0 FLAG IS RESET IF SETTING
:JC =M001 ALREADY READ INTO CLOCK
:R F 20.0 DATA AREA
:
: CLOCK DATA AREA
:L =WDAY STORE VALUE FOR WEEKDAY
:T DR 4
:L =DAY VALUE FOR DAY
:T DL 5
:L =MON VALUE FOR MONTH
:T DR 5
:L =YEAR VALUE FOR YEAR
:T DL 6
:L =HOUR VALUE FOR HOUR
:ON =AMPM IF 12-HOUR MODE IS SET, AND
:ON =MODE AM/PM BIT = 1 (AFTERNOON),
:JC =MORN THE RELEVANT BIT IN
:L KH 0080 THE CLOCK DATA AREA
:OW IS SET
MORN :T DR 6
:L =MIN VALUE FOR MINUTES
:T DL 7
:L =SEC VALUE FOR SECONDS
:T DR 7
:SU D 22.2 TRANSFER SETTINGS
: (STATUS WORD IS DW 22)
M001 :A T 10 BEC, IF MONITORING
:BEC TIME NOT YET ELAPSED
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
EWA 4NEB 812 6210-02
10-11