mirror of
https://github.com/PDP-10/its.git
synced 2026-02-21 14:57:51 +00:00
54 lines
2.5 KiB
Plaintext
54 lines
2.5 KiB
Plaintext
'<PCODE "AMNESA">
|
|
|
|
<PACKAGE "AMNESIA">
|
|
|
|
<ENTRY FORGET>
|
|
|
|
<USE "PIO" <COND (<GETPROP MNEME!-PACKAGE OBLIST> "MNEME") ("NMNEME")> "MLEARN">
|
|
|
|
<SETG FORGET %<RSUBR!- '[ %<PCODE!- "AMNESA" 0> FORGET #DECL ("VALUE" STRING <
|
|
OR ATOM LIST OWT>) SHRINK PARTIAL-PAGE-IN-CHK SHASH HASH-OWT-ATOM DALLOCP
|
|
MNEME-WRITE REM-HASHTBL MNEME-READ MNEME-NTH MNEME-TO-MUDDLE MNEME-TYPE?
|
|
FINDUSES MNEME-EXIST? F-FLAG ALREADY-FORGOTTEN (<LIST ATOM>) %<RGLOC MNEMECHN T>
|
|
"Chan not in print mode." %<TYPE-C OWT WORD> "not in MNEME" %<TYPE-W OWT WORD>
|
|
NON-INVERT OUTCHAN "Can't remove because of non-invert" T NEW-USES MNEME-LIST
|
|
MNEME-INSTANCE "Forgotten" "Can't forget INSTANCES yet." %<TYPE-W CHANP VECTOR>
|
|
MNEME-ATOM "Item not found in hash table" ![0!]
|
|
"Warning! Can't find back ptr in: " "PUTPROPing NON-INVERT thereon."
|
|
"Set by AMNESIA" EXT %<RGLOC STOR T> %<RGLOC STORPLUS1 T> "SHOULDN'T GET HERE"
|
|
ILLEGAL-MNEME-ITEM %<RGLOC IHT T> "ITEM NOT FOUND IN CACHE" LOST WON]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,FORGET PGLUE ![715827887 -1 -1024 0!]>>
|
|
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,FORGET GLUE ![1107035072 -16910360803
|
|
4430302988 21474837524 13892701980 3221243164 -34091301888 71683087 1008531913
|
|
-12989235184 67108868 17201126525 16453 17383424 18287444431 -26676618160
|
|
1065024 8589935684 750817280 18325192256 26054559776 2081432576 286278144
|
|
18325964740 17704173568 17246994448 -34292628992 16754 269553937 4370268160
|
|
16106128385 4044296452 16777216 4299179008 1393680 267268 -13923580813
|
|
-16881077492 -3422796734 1077940496 2147483716 17716744464 135532544 1048585
|
|
4299441412 268498944 -17179852783 4631561216 4034936832 -34292432896 5243972
|
|
21479030880 71368768 1076887552 3145729 -4026531840 82976 21475366144 65536
|
|
266244 1077936385 17466393088 260 1081880576 7589232 1330176 805306700 1835008
|
|
20401107980 282624 67108863 262148 262212 262372 262441 524786 263275!]>>
|
|
|
|
<SETG FORGET1 %<RSUBR-ENTRY '[FORGET FORGET1 #DECL ("VALUE" STRING OWT)] 64>>
|
|
|
|
<SETG REMOVER %<RSUBR-ENTRY '[FORGET REMOVER #DECL ("VALUE" <OR ATOM FALSE> OWT)
|
|
] 224>>
|
|
|
|
<SETG AM-ZAP %<RSUBR-ENTRY '[FORGET AM-ZAP #DECL ("VALUE" <OR ATOM FALSE> <OR
|
|
FIX OWT>)] 293>>
|
|
|
|
<SETG REM-HASHTBL %<RSUBR-ENTRY '[FORGET REM-HASHTBL #DECL ("VALUE" ANY OWT)]
|
|
341>>
|
|
|
|
<SETG ADJUST-DOWNPTRS %<RSUBR-ENTRY '[FORGET ADJUST-DOWNPTRS #DECL ("VALUE" ANY
|
|
FIX OWT)] 492>>
|
|
|
|
<SETG SHRINK %<RSUBR-ENTRY '[FORGET SHRINK #DECL ("VALUE" FIX FIX STRUCTURED
|
|
STRUCTURED ANY)] 1017>>
|
|
|
|
<SETG CACHER %<RSUBR-ENTRY '[FORGET CACHER #DECL ("VALUE" ATOM OWT)] 1127>>
|
|
|
|
<ENDPACKAGE>
|