mirror of
https://github.com/PDP-10/its.git
synced 2026-02-23 15:52:10 +00:00
18 lines
541 B
Plaintext
18 lines
541 B
Plaintext
'<PCODE "INVPMF">
|
|
<PACKAGE "PMFREE">
|
|
|
|
<ENTRY PMALLOC>
|
|
|
|
<ENTRY PMDALLOC>
|
|
|
|
<SETG PMALLOC %<RSUBR!- '[ %<PCODE!- "INVPMF" 2033> PMALLOC #DECL ("VALUE" FIX
|
|
PMCHAN FIX) ![0!] PWRITE PREAD ![0 0 0!] PMFREE-ERROR
|
|
INCONSISTENT-ALLOCATION-TABLE!-ERRORS COULDNT-READ-FROM!-ERRORS
|
|
COULDNT-WRITE-INTO!-ERRORS ILLEGAL-BLOCK-SIZE-REQUESTED!-ERRORS
|
|
CANT-FIND-ALLOCATION-TABLE!-ERRORS REQUEST-TO-FREE-BLOCK-WHICH-OVERLAPS!-ERRORS]>>
|
|
|
|
<SETG PMDALLOC %<RSUBR-ENTRY '[PMALLOC PMDALLOC #DECL ("VALUE" <OR FIX FALSE>
|
|
PMCHAN FIX)] 112>>
|
|
|
|
<ENDPACKAGE>
|