mirror of
https://github.com/PDP-10/its.git
synced 2026-01-13 07:19:57 +00:00
81 lines
2.7 KiB
Plaintext
81 lines
2.7 KiB
Plaintext
'<PCODE "2INV">
|
||
<PACKAGE "INV">
|
||
|
||
<EXTERNAL "PMAP" "PMFREE" "VCTMAN">
|
||
|
||
<SETG INVBDIR <IUVECTOR 1024>>
|
||
|
||
<ENTRY INVERSION>
|
||
|
||
<ENTRY INVFND>
|
||
|
||
<ENTRY INVCNTFND>
|
||
|
||
<ENTRY INVMAPFND>
|
||
|
||
<ENTRY INVINS>
|
||
|
||
<ENTRY INVDLI>
|
||
|
||
<ENTRY INVGBC>
|
||
|
||
<ENTRY INVDEL>
|
||
|
||
<ENTRY INVPUT>
|
||
|
||
<ENTRY INV-INSERT>
|
||
|
||
<ENTRY INV-DELETE>
|
||
|
||
<NEWTYPE INVERSION VECTOR '<VECTOR [REST <OR <VECTOR [REST FIX UVECTOR]> FALSE>]
|
||
>>
|
||
|
||
<SETG INVFND %<RSUBR!- '[ %<PCODE!- "2INV" 0> INVFND #DECL ("VALUE" <OR <VECTOR
|
||
INVERSION FIX> FIX FALSE> VECTOR FIX) () () VCTINS PREAD PCLOSE %<TYPE-C
|
||
INVERSION VECTOR> INVERSION T %<TYPE-C PMCHAN VECTOR>
|
||
BAD-INVERSION-SEARCH-VECTOR!-ERRORS INVERSION-ERROR
|
||
INCONSISTENT-DATA-BASE!-ERRORS COULDNT-READ-FROM!-ERRORS]>>
|
||
|
||
<SETG INVCNTFND %<RSUBR-ENTRY '[INVFND INVCNTFND #DECL ("VALUE" <OR FIX FALSE>
|
||
VECTOR)] 103>>
|
||
|
||
<SETG INVMAPFND %<RSUBR-ENTRY '[INVFND INVMAPFND #DECL ("VALUE" ANY VECTOR <OR
|
||
FALSE APPLICABLE> APPLICABLE "TUPLE" ANY)] 124>>
|
||
|
||
<SETG INVINS %<RSUBR!- '[ %<PCODE!- "2INV" 906> INVINS #DECL ("VALUE" <OR <
|
||
UVECTOR FIX> FALSE> PMCHAN FIX FIX FIX) ![0 0!] ![#LOSE *000000000000* #LOSE
|
||
*000000000000* #LOSE *000000000000* #LOSE *000000000000* #LOSE *000000000000* #
|
||
LOSE *000000000000* #LOSE *000000000000* #LOSE *000000000000* #LOSE
|
||
*000000000000* #LOSE *000000000000* #LOSE *000000000000* #LOSE *000000000000* #
|
||
LOSE *000000000000* #LOSE *000000000000* #LOSE *000000000000* #LOSE
|
||
*000000000000*!] PREAD VCTBNS UVCTINS PWRITE PMALLOC PMDALLOC VCTDLW VCTINS ![0
|
||
0!] INVBDIR ![#LOSE *000000000000* #LOSE *000000000000* #LOSE *000000000000* #
|
||
LOSE *000000000000* #LOSE *000000000000* #LOSE *000000000000* #LOSE
|
||
*000000000000* #LOSE *000000000000* #LOSE *000000000000* #LOSE *000000000000* #
|
||
LOSE *000000000000* #LOSE *000000000000* #LOSE *000000000000* #LOSE
|
||
*000000000000* #LOSE *000000000000* #LOSE *000000000000*!] ![0!] #FALSE (
|
||
"IDENTIFIER ALREADY IN INVERSION") BAD-INVERSION-DIRECTORY!-ERRORS IRS-ERROR
|
||
INCONSISTENT-DATA-BASE!-ERRORS COULDNT-READ-FROM!-ERRORS
|
||
COULDNT-WRITE-INTO!-ERRORS #FALSE ("IDENTIFIER NOT FOUND IN INVERSION") T %<
|
||
TYPE-C INVERSION VECTOR> NOT-AN-INVERSION!-ERRORS]>>
|
||
|
||
<SETG INVDLI %<RSUBR-ENTRY '[INVINS INVDLI #DECL ("VALUE" <OR <UVECTOR FIX>
|
||
FALSE> PMCHAN FIX FIX FIX)] 400>>
|
||
|
||
<SETG INVGBC %<RSUBR-ENTRY '[INVINS INVGBC #DECL ("VALUE" <OR <UVECTOR FIX>
|
||
FALSE> PMCHAN PMCHAN FIX FIX)] 601>>
|
||
|
||
<SETG INVDEL %<RSUBR-ENTRY '[INVINS INVDEL #DECL ("VALUE" <OR ATOM FALSE> PMCHAN
|
||
FIX FIX)] 784>>
|
||
|
||
<SETG INVPUT %<RSUBR-ENTRY '[INVINS INVPUT #DECL ("VALUE" <OR <UVECTOR FIX>
|
||
FALSE> PMCHAN INVERSION)] 849>>
|
||
|
||
<SETG INV-INSERT %<RSUBR-ENTRY '[INVINS INV-INSERT #DECL ("VALUE" <OR INVERSION
|
||
FALSE> <OR INVERSION FALSE> FIX)] 957>>
|
||
|
||
<SETG INV-DELETE %<RSUBR-ENTRY '[INVINS INV-DELETE #DECL ("VALUE" <OR INVERSION
|
||
FALSE> INVERSION FIX)] 1136>>
|
||
|
||
<ENDPACKAGE>
|
||
|