mirror of
https://github.com/PDP-10/its.git
synced 2026-01-23 19:07:45 +00:00
12 lines
199 B
Plaintext
12 lines
199 B
Plaintext
'<PCODE "1DATIME">
|
|
|
|
<RPACKAGE "DOW">
|
|
|
|
<ENTRY DOW>
|
|
|
|
<SETG DOW %<RSUBR!- '[ %<PCODE!- "1DATIME" 143> DOW #DECL ("VALUE" FIX)]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,DOW PGLUE ![0!]>>
|
|
|
|
|
|
<ENDPACKAGE>
|