mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
39 lines
1.4 KiB
Plaintext
39 lines
1.4 KiB
Plaintext
'<PCODE "ANOTES">
|
|
|
|
<PACKAGE "ANOTES">
|
|
|
|
<ENTRY ABSTR-SHORT PRINT-SHORT ABSTR-NOTES PRINT-NOTES>
|
|
|
|
<USE "ADATA" "ACONST">
|
|
|
|
<SETG ABSTR-SHORT %<RSUBR!- '[ %<PCODE!- "ANOTES" 0> ABSTR-SHORT #DECL ("VALUE"
|
|
<OR STRING <FALSE STRING [REST STRING]>> ATOM "OPTIONAL" ANY) EPRIN1 GROUP-DATA
|
|
BUILD-FAMILY NOTES? (ANY) T OBLIST (<LIST [REST OBLIST]>) "Group" OUTCHAN "DONE"
|
|
#FALSE ("NOT A GROUP") NM? "Called-by" "Calls" "SETG" "GVAL" "SET" "LVAL"
|
|
"SPECIAL" "USE" "USE-DATUM" ": " STRING "." ", "]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,ABSTR-SHORT PGLUE ![721420287 -16384!]>>
|
|
|
|
|
|
<SETG PRINT-SHORT %<RSUBR-ENTRY '[ABSTR-SHORT PRINT-SHORT #DECL ("VALUE" <OR
|
|
ATOM FALSE> ATOM LIST VECTOR)] 125>>
|
|
|
|
<SETG PRINT-FIELD %<RSUBR-ENTRY '[ABSTR-SHORT PRINT-FIELD #DECL ("VALUE" ANY
|
|
STRING <PRIMTYPE LIST>)] 248>>
|
|
|
|
<SETG ABSTR-NOTES %<RSUBR-ENTRY '[ABSTR-SHORT ABSTR-NOTES #DECL ("VALUE" <OR
|
|
STRING <FALSE STRING [REST STRING]>> ATOM)] 326>>
|
|
|
|
<SETG PRINT-NOTES %<RSUBR-ENTRY '[ABSTR-SHORT PRINT-NOTES #DECL ("VALUE" <OR
|
|
ATOM FALSE> <OR FALSE ATOM STRING> VECTOR)] 412>>
|
|
|
|
<SETG PRINT-LIST %<RSUBR-ENTRY '[ABSTR-SHORT PRINT-LIST #DECL ("VALUE" <OR FALSE
|
|
STRING> <LIST [REST <OR STRING ATOM>]>)] 544>>
|
|
|
|
<SETG PRINT-DECL %<RSUBR-ENTRY '[ABSTR-SHORT PRINT-DECL #DECL ("VALUE" ATOM <<
|
|
PRIMTYPE LIST> [REST <LIST ATOM> ANY]>)] 609>>
|
|
|
|
<SETG FATHER-LIST %<RSUBR-ENTRY '[ABSTR-SHORT FATHER-LIST #DECL ("VALUE" <LIST [
|
|
REST ATOM]> <LIST [REST <VECTOR ATOM LIST DECL>]>)] 659>>
|
|
|
|
<ENDPACKAGE>
|