'<PCODE "PMAP">
<RPACKAGE "PMAP"> 

<ENTRY PMCHAN POPEN PREAD PWRITE PRESET PCLOSE PBUFFERS PWIRE PUNWIRE PMMPLEX 
PMCHANLIST PMMAX PMAP-RESTORE CORE-BLOCK PAGE-FIND PAGE-GIVE SHARERS> 

<SETG PMTIME 0> 

<SETG PMCHANLIST ()> 

<SETG PMMAX 4> 

<GDECL (PRVCT) <UVECTOR [REST <VECTOR [3 ANY]>]> (PMTIME PMMAX) FIX (PMCHANLIST)
<LIST [REST PMCHAN]>> 

<NEWTYPE PMCHAN VECTOR '<VECTOR CHANNEL STRING FIX LIST FIX APPLICABLE FIX FIX>> 

<SETG CORE-BLOCK  %<RSUBR!- '[ %<PCODE!- "PMAP" 0> CORE-BLOCK #DECL ("VALUE" <OR
FIX FALSE> <PRIMTYPE WORD> FIX FIX FIX FIX) T OC (FIX) OLD #FALSE () (<OR FALSE 
PMCHAN>) %<RGLOC PMMAX T> %<RGLOC PMCHANLIST T> %<TYPE-W PMCHAN VECTOR> "LOCKED"
 () "DONE" %<RGLOC BUF-LRU T> "READ" "PRINT" "PRINTB" "PRINTO" #FALSE (
"MODE NOT READ, PRINT, OR LOCKED") "DSK" FILE-LENGTH-FAILED!-ERRORS POPEN 
"PAGE OF LOCKED FILE IS SHARED" CHAN (PMCHAN) EOF RESET-FAILED!-ERRORS PWRITE #
FALSE ("ATTEMPT-TO-PRINT-ON-NON-PRINT-CHANNEL") IN-OUT REQ (<LIST [REST VECTOR]>
) PAST-EOF %<RGLOC PMTIME T> PRESET DPAGE #FALSE ("BUFFER NOT CURRENTLY MAPPED")
 PAGE-MAP %<RGLOC PRVCT T> READ-OR-WRITE-ADDRESS-NEGATIVE?!-ERRORS PIOT 
BAD-CALL!-ERRORS CORE-BLOCK CANT-GET-CORE-ERRET-NON-FALSE-TO-RETRY!-ERRORS 
CORE-EXHAUSTED-YOU-LOSE!-ERRORS MUDDLE-CORE-EXHAUSTED-YOU-LOSE!-ERRORS]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,CORE-BLOCK PGLUE ![0 0 0 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>> 

<SETG APPEND-IOT %<RSUBR-ENTRY '[CORE-BLOCK APPEND-IOT #DECL ("VALUE" <PRIMTYPE 
WORD> FIX <PRIMTYPE WORD> CHANNEL)] 80>> 

<SETG *FILE-LENGTH %<RSUBR-ENTRY '[CORE-BLOCK *FILE-LENGTH #DECL ("VALUE" <OR 
FIX FALSE> CHANNEL)] 112>> 

<SETG DISK-UPDATE %<RSUBR-ENTRY '[CORE-BLOCK DISK-UPDATE #DECL ("VALUE" <OR 'T 
FALSE> CHANNEL)] 138>> 

<SETG COPY-REQ %<RSUBR-ENTRY '[CORE-BLOCK COPY-REQ #DECL ("VALUE" UVECTOR <
VECTOR UVECTOR FIX FIX> <UVECTOR [4 FIX]> FIX)] 158>> 

<SETG SHARERS %<RSUBR-ENTRY '[CORE-BLOCK SHARERS #DECL ("VALUE" <OR FIX FALSE> <
PRIMTYPE WORD> "OPTIONAL" <PRIMTYPE WORD>)] 188>> 

<SETG PMMPLEX %<RSUBR-ENTRY '[CORE-BLOCK PMMPLEX #DECL ("VALUE" <OR ATOM CHANNEL
FALSE> "OPTIONAL" PMCHAN)] 224>> 

<SETG PMAP-RESTORE %<RSUBR-ENTRY '[CORE-BLOCK PMAP-RESTORE #DECL ("VALUE" STRING
)] 353>> 

<SETG POPEN %<RSUBR-ENTRY '[CORE-BLOCK POPEN #DECL ("VALUE" <OR FALSE PMCHAN> 
STRING STRING "OPTIONAL" FIX APPLICABLE)] 428>> 

<SETG PREAD %<RSUBR-ENTRY '[CORE-BLOCK PREAD #DECL ("VALUE" <OR FALSE UVECTOR> 
PMCHAN UVECTOR FIX)] 754>> 

<SETG PWRITE %<RSUBR-ENTRY '[CORE-BLOCK PWRITE #DECL ("VALUE" <OR UVECTOR <FALSE
STRING [REST STRING]>> PMCHAN UVECTOR FIX)] 787>> 

<SETG PIOT %<RSUBR-ENTRY '[CORE-BLOCK PIOT #DECL ("VALUE" <LIST [REST <OR <
VECTOR <UVECTOR ANY> FIX FIX> <VECTOR ATOM FIX FIX>>]> PMCHAN UVECTOR FIX FIX)] 
1024>> 

<SETG PMCOUNT %<RSUBR-ENTRY '[CORE-BLOCK PMCOUNT #DECL ("VALUE" FIX)] 1264>> 

<SETG PCLOSE %<RSUBR-ENTRY '[CORE-BLOCK PCLOSE #DECL ("VALUE" PMCHAN PMCHAN)] 
1281>> 

<SETG PRESET %<RSUBR-ENTRY '[CORE-BLOCK PRESET #DECL ("VALUE" PMCHAN PMCHAN 
"OPTIONAL" STRING)] 1427>> 

<SETG PBUFFERS %<RSUBR-ENTRY '[CORE-BLOCK PBUFFERS #DECL ("VALUE" <OR FALSE FIX>
PMCHAN FIX)] 1514>> 

<SETG PWIRE %<RSUBR-ENTRY '[CORE-BLOCK PWIRE #DECL ("VALUE" <UVECTOR FIX FIX FIX
FIX> PMCHAN FIX)] 1650>> 

<SETG PUNWIRE %<RSUBR-ENTRY '[CORE-BLOCK PUNWIRE #DECL ("VALUE" <OR ATOM <FALSE 
STRING [REST STRING]>> PMCHAN FIX)] 1711>> 

<SETG GET-BUF %<RSUBR-ENTRY '[CORE-BLOCK GET-BUF #DECL ("VALUE" <UVECTOR FIX FIX
FIX FIX> <VECTOR UVECTOR FIX FIX> PMCHAN)] 1760>> 

<SETG PAGE-MAP %<RSUBR-ENTRY '[CORE-BLOCK PAGE-MAP #DECL ("VALUE" <UVECTOR FIX 
FIX FIX FIX> PMCHAN <UVECTOR [4 FIX]> FIX)] 1881>> 

<SETG PRVCT <IUVECTOR 4 '<VECTOR 0 0 0>>> 

<SETG APPEND %<RSUBR-ENTRY '[CORE-BLOCK APPEND #DECL ("VALUE" LIST LIST ANY ANY 
ANY)] 1947>> 

<SETG REQUESTS %<RSUBR-ENTRY '[CORE-BLOCK REQUESTS #DECL ("VALUE" LIST UVECTOR 
FIX FIX)] 2029>> 

<SETG NXTBLK %<RSUBR-ENTRY '[CORE-BLOCK NXTBLK #DECL ("VALUE" FIX FIX FIX)] 2152
>> 

<SETG BUF-LRU %<RSUBR-ENTRY '[CORE-BLOCK BUF-LRU #DECL ("VALUE" <UVECTOR [4 FIX]
> <LIST [REST <UVECTOR [4 FIX]>]>)] 2176>> 

<SETG IOT-REQ %<RSUBR-ENTRY '[CORE-BLOCK IOT-REQ #DECL ("VALUE" FIX <VECTOR <OR 
UVECTOR ATOM> FIX FIX> PMCHAN)] 2217>> 

<SETG GET-CORE-BLOCK %<RSUBR-ENTRY '[CORE-BLOCK GET-CORE-BLOCK #DECL ("VALUE" <
PRIMTYPE WORD> <PRIMTYPE WORD> <PRIMTYPE WORD> <PRIMTYPE WORD> <PRIMTYPE WORD> <
PRIMTYPE WORD>)] 2311>> 

<SETG PAGE-BUY %<RSUBR-ENTRY '[CORE-BLOCK PAGE-BUY #DECL ("VALUE" FIX PMCHAN)] 
2388>> 

<SETG REMOVE-FROM %<RSUBR-ENTRY '[CORE-BLOCK REMOVE-FROM #DECL ("VALUE" LIST 
LIST ANY)] 2468>> 

<AND <ASSIGNED? GLUE> .GLUE <PUT ,CORE-BLOCK GLUE ![5389697028 266497 
17197696005 1141178368 67190784 4 4299161937 272629824 6392184852 0 16797764 
4523012 66820 5441068156 34343159764 17213162836 1275069443 -16038903739 
24704254977 4111 -17090476864 -4272619248 1332529 5767168001 17453827520 
1162873856 4384952576 -3774869420 16236152768 1094796231 -17175584940 4043325700
34292633360 18249416708 1006633984 -4021010429 4294983680 17466196244 1006653457
4313063252 4392223772 222298112 67383296 21747531776 4413390871 251920387 
-15821848575 18383656256 18253612100 289428757 18191806835 -11809849343 
-4291017232 17184325632 -16357501681 4299635975 -12884901888 4201532 30318264324
16106139919 1430274048 356779328 7600082948 268451840 20823 -1056960512 
18274844944 262928 1374945280 5453643776 67306240 17239811 -17090476992 17891397
269571279 -1069546304 1360789504 33554432081 30064775936 328724 18735957056 
1048607 252788996 34292631296 4194564 8192064 17246978049 17052668 4296015889 
20980 82240 22565355524 5704253696 4295017792 4378936320 17239808 32833600 
-2951479296 17179939008 525336837 4315959556 474021888 20401095696 4294967316 16
4295294976 33286984000 4294983696 4181 4497342465 -17179869181 1124073472 
1048576 4294971136 201523327 -16894639088 -4294701052 285212673 67436544 
335544384 279552 17179869188 21475885076 1048576 463616 17180983572 286262352 
4299161604 1 268435456 17465212672 124 18774753345 4469505 1078200260 272629809 
83906560 4195648 17255105552 285475844 4312793156 16777215 1310724 262181 33 
524352 262204 786516 262260 262286 786594 524493 262342 239 262381 355 524741 
786875 1049017 787194 787227 1049610 1266 263429 263585 525727 525808 525944 
526005 526054 788321 1050533 788469 526446 264324 526511 1313043 264536 526762!]
>> 

<ENDPACKAGE>