mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
53 lines
1.7 KiB
Plaintext
53 lines
1.7 KiB
Plaintext
'<PCODE "3DFL">
|
||
|
||
<PACKAGE "DFL">
|
||
|
||
"Fast FLOADer for people who use TECO to debug MUDDLE"
|
||
|
||
<ENTRY DFL RDFL FLO DFL-RETRY UN-DFL>
|
||
|
||
<USE "UNLINK">
|
||
|
||
<SETG READST %<RSUBR!- '[ %<PCODE!- "3DFL" 0> READST #DECL ("VALUE" FIX STRING
|
||
CHANNEL) EPRIN1 UNLINK ENDPACKAGE %<RGLOC DFL-FUNC-NAM T> %<RGLOC DFL-FILNAM T>
|
||
"<DEFINE " GLUE "<SETG " %<RGLOC DFL-STRUC T> %<RGLOC DFL-NAM-SCRATCH T> ""
|
||
"READ" %<RGLOC DFL-BUF T> %<RGLOC 6STRING T> %<RGLOC TDFL-BUF T> "PACKA" ";'"
|
||
"<USE" ["-TOTAL" "-DEFER"] EOF-FOUND-BEFORE-THESE %<RGLOC DFL-ZERO-STR T> DFL
|
||
OBLIST NM1 (STRING) NM2 SNM DEV "Not DFLed?" "DSK" FN1 FN2 ">"
|
||
"Would destroy later version!" "PRINT" "_DFL >" OUTCHAN (CHANNEL) (ANY) DEFINE
|
||
SETG T %<RGLOC TV T>]>>
|
||
<AND <ASSIGNED? GLUE> .GLUE <PUT ,READST PGLUE ![721420287 -1 -65536!]>>
|
||
|
||
<SETG DFL-BUFLEN 600>
|
||
|
||
<MANIFEST DFL-BUFLEN>
|
||
|
||
<SETG 6STRING <ISTRING 6>>
|
||
|
||
<SETG DFL-BUF <REST <SETG TDFL-BUF <ISTRING <+ ,DFL-BUFLEN 50> !\ >> 50>>
|
||
|
||
<SETG DFL-ZERO-STR <REST <SETG DFL-FILNAM <ISTRING 40 !\ >> 40>>
|
||
|
||
<SETG DFL-STRUC <REST <SETG DFL-NAM-SCRATCH <IVECTOR 10 "">> 9>>
|
||
|
||
<SETG DFL %<RSUBR-ENTRY '[READST DFL #DECL ("VALUE" <OR FALSE <LIST [REST ATOM]>
|
||
> "OPTIONAL" <OR STRUCTURED ATOM> <OR ATOM STRING> ANY)] 50>>
|
||
|
||
<SETG RDFL %<RSUBR-ENTRY '[READST RDFL #DECL ("VALUE" <OR FALSE <LIST [REST ATOM
|
||
]>> "OPTIONAL" <OR STRUCTURED ATOM> <OR ATOM STRING> ANY <OR ATOM FALSE>)] 94>>
|
||
|
||
<SETG SLEN 6>
|
||
|
||
<MANIFEST SLEN>
|
||
|
||
<SETG TV <IVECTOR ,SLEN>>
|
||
|
||
<PUT UNTUPL DECL '<TUPLE [REST FIX FIX ATOM <VECTOR [4 STRING]> <VECTOR FIX
|
||
VECTOR> <OR OBLIST <LIST [REST OBLIST]>>]>>
|
||
|
||
<SETG UN-DFL %<RSUBR-ENTRY '[READST UN-DFL #DECL ("VALUE" <OR ATOM FALSE <LIST [
|
||
REST ATOM]>> <OR ATOM <LIST [REST ATOM]>> "OPTIONAL" <OR FALSE STRING <VECTOR [
|
||
REST STRING]>> <OR ATOM FALSE>)] 981>>
|
||
|
||
<ENDPACKAGE>
|
||
|