mirror of
https://github.com/PDP-10/its.git
synced 2026-02-03 23:32:51 +00:00
19 lines
496 B
Plaintext
19 lines
496 B
Plaintext
'<PCODE "PAGES">
|
|
|
|
<PACKAGE "PAGES">
|
|
|
|
<RENTRY CORE-BLOCK PAGE-FIND PAGE-GIVE>
|
|
|
|
<SETG CORE-BLOCK %<RSUBR!- '[ %<PCODE!- "PAGES" 0> CORE-BLOCK #DECL ("VALUE" <
|
|
OR FIX FALSE> <PRIMTYPE WORD> FIX FIX FIX FIX)]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,CORE-BLOCK PGLUE ![0!]>>
|
|
|
|
|
|
<SETG PAGE-FIND %<RSUBR-ENTRY '[CORE-BLOCK PAGE-FIND #DECL ("VALUE" <OR FIX
|
|
FALSE> "OPTIONAL" FIX)] 26>>
|
|
|
|
<SETG PAGE-GIVE %<RSUBR-ENTRY '[CORE-BLOCK PAGE-GIVE #DECL ("VALUE" FIX FIX
|
|
"OPTIONAL" FIX)] 50>>
|
|
|
|
<ENDPACKAGE>
|