.DISABLE DISPLAY
.ENABLE SUBSTITUTION
.SETS MP "NL:"
;
;	RTC UTILITY TASK GENERATION '<DATE>' '<TIME>'	/V01.1/
;
;	SETTIM	Load RTC with system time
;	GETTIM	Get RTC time and update system time
;	SHTIM	Show RTC time
;
.ENABLE QUIET
.IFNINS	...TKB INS $TKB
.IFNINS ...MAC INS $MAC
.IFNINS ...LBR INS $LBR
.IFNINS ...PIP INS $PIP
.OPEN T.TMP
.;
MAC GTIM=GTIM
MAC RTCGET=RTCGET
MAC RTCSET=RTCSET
MAC SHTIM=SHTIM
MAC STIM=STIM
LBR RTC/CR=GTIM,RTCGET,RTCSET,SHTIM,STIM
PIP RTC.OLB/TR
PIP GTIM.OBJ;*/DE,RTCGET.OBJ;*,RTCSET.OBJ;*,SHTIM.OBJ;*,STIM.OBJ;*
.;
.ENABLE DATA
SETIM/PR/-CP,'MP'SETIM/-WI/-SP=RTC/LB:STIM:RTCSET
/
UNITS=0
PRI=249
STACK=64
//
.DISABLE DATA
.CLOSE
TKB @T.TMP
.OPEN T.TMP
.ENABLE DATA
GETIM/PR,'MP'GETIM/-WI/-SP=RTC/LB:GTIM:RTCGET
/
UNITS=0
PRI=249
STACK=64
//
.DISABLE DATA
.CLOSE
TKB @T.TMP
.OPEN T.TMP
.ENABLE DATA
SHTIM/PR,'MP'SHTIM/-WI/-SP=RTC/LB:SHTIM:RTCGET
/
PRI=90
STACK=64
//
.DISABLE DATA
.CLOSE
TKB @T.TMP
PIP T.TMP;*/DE
INS SETIM
INS GETIM
INS SHTIM/TASK=...SHT
.DISABLE QUIET
;>