mirror of
https://github.com/PDP-10/its.git
synced 2026-02-24 00:02:14 +00:00
64 lines
2.2 KiB
Plaintext
64 lines
2.2 KiB
Plaintext
'<PCODE "TEMHLP">
|
|
|
|
<RPACKAGE "TEMHLP">
|
|
|
|
<ENTRY DUMP-TEMPLATES DUMP-RSUBRS BUILD-TEMPLATE PRIMTYPE-C DUMP-TEMPLATE
|
|
TEMPLATE-DATA GETTER-DATA PUTTER-DATA TEMPLATE? TEMPLATE-LENGTH TEMPLATE-GET
|
|
TEMPLATE-PUT>
|
|
|
|
<SET DUMP-TEMPLATE T>
|
|
|
|
<SET TEMPLATE-DATA T>
|
|
|
|
<SETG TEMPLATE? %<RSUBR!- '[ %<PCODE!- "TEMHLP" 0> TEMPLATE? #DECL ("VALUE" <OR
|
|
FALSE FIX> VECTOR) TEMPLATE-SETUP "PRINTB" BADEXIT OUTCHAN (CHANNEL) TEMPLATE
|
|
GETTER-DATA TEMPLATE-DATA PUTTER-DATA "NOT ENOUGH INFO" "<BUILD-TEMPLATE " DECL
|
|
">" "DONE" " " " Is not an RSUBR." "<SETG " GLUE
|
|
"<AND <ASSIGNED? GLUE> .GLUE <PUT ," " GLUE '" ">>" %<RGLOC MUDDLE T> T]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,TEMPLATE? PGLUE ![805306367 -1048576!]>>
|
|
|
|
|
|
<SETG TEMPLATE-GET %<RSUBR-ENTRY '[TEMPLATE? TEMPLATE-GET #DECL ("VALUE" UVECTOR
|
|
FIX)] 18>>
|
|
|
|
<SETG TEMPLATE-PUT %<RSUBR-ENTRY '[TEMPLATE? TEMPLATE-PUT #DECL ("VALUE" UVECTOR
|
|
FIX)] 31>>
|
|
|
|
<SETG TEMPLATE-LENGTH %<RSUBR-ENTRY '[TEMPLATE? TEMPLATE-LENGTH #DECL ("VALUE"
|
|
WORD FIX)] 44>>
|
|
|
|
<SETG DUMP-TEMPLATES %<RSUBR-ENTRY '[TEMPLATE? DUMP-TEMPLATES #DECL ("VALUE" <OR
|
|
FALSE STRING> ANY)] 57>>
|
|
|
|
<SETG SPACE %<RSUBR-ENTRY '[TEMPLATE? SPACE #DECL ("VALUE" STRING)] 295>>
|
|
|
|
<SETG DUMP-RSUBRS %<RSUBR-ENTRY '[TEMPLATE? DUMP-RSUBRS #DECL ("VALUE" <OR FALSE
|
|
STRING> ANY "TUPLE" ANY)] 306>>
|
|
|
|
"ROUTINE TO BUILD A TEMPLATE"
|
|
|
|
<SETG TEMPLATE-SETUP %<RSUBR-ENTRY '[TEMPLATE? TEMPLATE-SETUP #DECL ("VALUE" ANY
|
|
ATOM <PRIMTYPE WORD> UVECTOR UVECTOR)] 472>>
|
|
|
|
<SETG LOC %<RSUBR-ENTRY '[TEMPLATE? LOC #DECL ("VALUE" FIX ANY)] 488>>
|
|
|
|
<SETG SMASH %<RSUBR-ENTRY '[TEMPLATE? SMASH #DECL ("VALUE" ANY ANY FIX)] 498>>
|
|
|
|
<SETG MOVIT %<RSUBR-ENTRY '[TEMPLATE? MOVIT #DECL ("VALUE" FIX FIX)] 513>>
|
|
|
|
<SETG BUILD-TEMPLATE %<RSUBR-ENTRY '[TEMPLATE? BUILD-TEMPLATE #DECL ("VALUE"
|
|
ATOM ATOM ANY FIX UVECTOR UVECTOR LIST LIST VECTOR ANY)] 524>>
|
|
|
|
<SETG FIXUP-TEMPLATE-CODE %<RSUBR-ENTRY '[TEMPLATE? FIXUP-TEMPLATE-CODE #DECL (
|
|
"VALUE" <OR FALSE <UVECTOR [REST FIX]>> UVECTOR <LIST LIST FIX LIST LIST>)] 615>
|
|
>
|
|
|
|
<SETG FIXUP-CODE1 %<RSUBR-ENTRY '[TEMPLATE? FIXUP-CODE1 #DECL ("VALUE" <OR FALSE
|
|
<UVECTOR [REST FIX]>> <UVECTOR [REST FIX]> <LIST [REST FIX]> FIX FIX "OPTIONAL"
|
|
ANY)] 774>>
|
|
|
|
<SETG SQUOZE %<RSUBR-ENTRY '[TEMPLATE? SQUOZE #DECL ("VALUE" WORD STRING
|
|
"OPTIONAL" <PRIMTYPE WORD>)] 865>>
|
|
|
|
<ENDPACKAGE>
|