mirror of
https://github.com/PDP-10/its.git
synced 2026-01-21 10:13:35 +00:00
22 lines
644 B
Plaintext
22 lines
644 B
Plaintext
'<PCODE "FINDAT">
|
|
|
|
<PACKAGE "FINDATOM">
|
|
|
|
<ENTRY FINDATOM PLACEH STAR QUOTER>
|
|
|
|
<SETG PLACEH <ASCII 61>>
|
|
|
|
<SETG STAR <ASCII 42>>
|
|
|
|
<SETG QUOTER <ASCII 17>>
|
|
|
|
<SETG FINDATOM %<RSUBR!- '[ %<PCODE!- "FINDAT" 0> FINDATOM #DECL ("VALUE" ANY <
|
|
OR ATOM STRING> "OPTIONAL" <OR ATOM FALSE LIST OBLIST> "TUPLE" TUPLE) T OBLIST
|
|
OUTCHAN LINK ANY OR %<RGLOC FINDCT T> %<RGLOC PLACEH T> %<RGLOC STAR T>
|
|
"(Found " ")" %<RGLOC NULL T> SPECV %<RGLOC SPECV T> A %<RGLOC A T> "" %<RGLOC
|
|
QUOTER T> (<LIST [REST OBLIST]>) " Link to " " " "Gassigned " "Assigned "]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,FINDATOM PGLUE ![1073741823 -1048576!]>>
|
|
|
|
|
|
<ENDPACKAGE>
|