1
0
mirror of https://github.com/PDP-10/its.git synced 2026-01-21 10:13:35 +00:00
PDP-10.its/bin/mudbug/findat.fbin

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>