mirror of
https://github.com/PDP-10/its.git
synced 2026-03-07 11:39:43 +00:00
18 lines
396 B
Plaintext
18 lines
396 B
Plaintext
'<PCODE "HPTEK">
|
|
|
|
<PACKAGE "HPTEK">
|
|
|
|
<ENTRY HPTON HPTOFF>
|
|
|
|
<SETG HPTON %<RSUBR!- '[ %<PCODE!- "HPTEK" 0> HPTON #DECL ("VALUE" ANY) %<RGLOC
|
|
NULL T>]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,HPTON PGLUE ![805306368!]>>
|
|
|
|
|
|
<SETG HPTOFF %<RSUBR!- '[ %<PCODE!- "HPTEK" 80> HPTOFF #DECL ("VALUE" ANY) %<
|
|
RGLOC NULL T>]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,HPTOFF PGLUE ![805306368!]>>
|
|
|
|
|
|
<ENDPACKAGE>
|