mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
33 lines
948 B
Plaintext
33 lines
948 B
Plaintext
'<PCODE "1DATIME">
|
|
|
|
<RPACKAGE "DATIME">
|
|
|
|
<ENTRY DATE RTIME RTIME:SEC GETTIMEZONE FIX-DATE>
|
|
|
|
<SETG DATE %<RSUBR!- '[ %<PCODE!- "1DATIME" 0> DATE #DECL ("VALUE" <LIST FIX
|
|
FIX FIX> "OPTIONAL" <LIST FIX FIX FIX>)]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,DATE PGLUE ![0!]>>
|
|
|
|
|
|
<SETG RTIME %<RSUBR!- '[ %<PCODE!- "1DATIME" 46> RTIME #DECL ("VALUE" <LIST FIX
|
|
FIX FIX> "OPTIONAL" <LIST FIX FIX FIX>)]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,RTIME PGLUE ![0!]>>
|
|
|
|
|
|
<SETG RTIME:SEC %<RSUBR!- '[ %<PCODE!- "1DATIME" 91> RTIME:SEC #DECL ("VALUE"
|
|
FIX)]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,RTIME:SEC PGLUE ![0!]>>
|
|
|
|
|
|
<SETG GETTIMEZONE %<RSUBR!- '[ %<PCODE!- "1DATIME" 108> GETTIMEZONE #DECL (
|
|
"VALUE" STRING) "EDT" "EST"]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,GETTIMEZONE PGLUE ![1006632960!]>>
|
|
|
|
|
|
<SETG FIX-DATE %<RSUBR!- '[ %<PCODE!- "1DATIME" 121> FIX-DATE #DECL ("VALUE"
|
|
FIX)]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,FIX-DATE PGLUE ![0!]>>
|
|
|
|
|
|
<ENDPACKAGE>
|