mirror of
https://github.com/PDP-10/its.git
synced 2026-01-13 15:27:28 +00:00
80 lines
2.3 KiB
Plaintext
80 lines
2.3 KiB
Plaintext
'<PCODE "1DFL">
|
|
|
|
<PACKAGE "DFL">
|
|
|
|
"Fast FLOADer for people who use TECO to debug MUDDLE"
|
|
|
|
<ENTRY DFL RDFL FLO DFL-RETRY UN-DFL>
|
|
|
|
"Package containing UNLINK, UNPURIFY, PURE?"
|
|
|
|
<USE "UNLINK">
|
|
|
|
"Contains READST"
|
|
|
|
<SETG READST %<RSUBR!- '[ %<PCODE!- "1DFL" 0> READST #DECL ("VALUE" FIX STRING
|
|
CHANNEL) EPRIN1 UNLINK ENDPACKAGE %<RGLOC MUDDLE T> %<RGLOC DFL-FUNC-NAM T> %<
|
|
RGLOC DFL-FILNAM T> ["<DEF" ["INE " "MAC "]] 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 -4096 0!]>>
|
|
|
|
|
|
<SETG DFL-BUFLEN 600>
|
|
|
|
<SETG FILPTR-SAVE 1>
|
|
|
|
<SETG FILNAM-SAVE 2>
|
|
|
|
<SETG OBLIST-SAVE 3>
|
|
|
|
<MANIFEST DFL-BUFLEN FILPTR-SAVE FILNAM-SAVE OBLIST-SAVE>
|
|
|
|
<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>>
|
|
|
|
<GDECL (TDFL-BUF DFL-BUF DFL-ZERO-STR) STRING (DFL-FILNAM) <OR ATOM STRING> (
|
|
DFL-FUNC-NAM) <OR STRUCTURED ATOM> (DFL-STRUC) <VECTOR [REST <OR STRING FALSE>]>
|
|
>
|
|
|
|
<SETG DFL %<RSUBR-ENTRY '[READST DFL #DECL ("VALUE" <OR FALSE <LIST [REST ATOM]>
|
|
> "OPTIONAL" <OR STRUCTURED ATOM> <OR ATOM STRING> ANY)] 81>>
|
|
|
|
<SETG RDFL %<RSUBR-ENTRY '[READST RDFL #DECL ("VALUE" <OR FALSE <LIST [REST ATOM
|
|
]>> "OPTIONAL" <OR STRUCTURED ATOM> <OR ATOM STRING> ANY <OR ATOM FALSE>)] 125>>
|
|
|
|
<SETG BEGPTR 1>
|
|
|
|
<SETG ENDPTR 2>
|
|
|
|
<SETG NAMPTR 3>
|
|
|
|
<SETG FILPTR 4>
|
|
|
|
<SETG ASSOCI 5>
|
|
|
|
<SETG OBLPTR 6>
|
|
|
|
<SETG SLEN 6>
|
|
|
|
<MANIFEST BEGPTR ENDPTR NAMPTR FILPTR ASSOCI OBLPTR 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>)] 1093>>
|
|
|
|
<ENDPACKAGE>
|