mirror of
https://github.com/PDP-10/its.git
synced 2026-01-14 07:40:05 +00:00
104 lines
3.9 KiB
Plaintext
104 lines
3.9 KiB
Plaintext
'<PCODE "DEBUGR">
|
||
|
||
<PACKAGE "DEBUGR">
|
||
|
||
<ENTRY DEBUG HELP REPAIR INDENT-INC INDENT-MOD INDENT-DIF SELF-FAST FORM-FAST
|
||
OUT-FAST OUT-UNIQUE>
|
||
|
||
<SETG DEBUG %<RSUBR!- '[ %<PCODE!- "DEBUGR" 0> DEBUG #DECL ("VALUE" ANY
|
||
"OPTIONAL" "QUOTE" ANY) &1 INDENT-TO READER OBJ (ANY) START T DPROCESS %<RGLOC
|
||
CHAR-INT T> %<RGLOC CHAR-HANDLER T> %<RGLOC MAIN-LOOP T> %<RGLOC CHAR-INTERRUPT
|
||
T> OBLIST %<RGLOC BREAKR-OBL T> %<RGLOC BEGIN-CHAR T> %<RGLOC INCHAN T> %<RGLOC
|
||
END-CHAR T> "READY" "READ" "MUDBUG;DEBUGR HELP" %<RGLOC OUTCHAN T> %<RGLOC NULL
|
||
T> CHAR-HANDLER
|
||
"
|
||
The broken Debugr has now been repaired and reset.
|
||
You must now re-type: <DEBUG>$ if you want to try
|
||
one-step debugging again. ---- (BKD)" <SET DPROCESS <>> DITEM (<TUPLE ATOM
|
||
ANY>) INCHAN OUTCHAN ([-2 0 <>]) MESSAGE LEV (FIX) TLF (<OR FALSE FRAME>) EVLIN
|
||
%<RGLOC TRACING? T> %<RGLOC DSTATE T> QUICK-RUN!-IEDIT #DISMISS OK %<RGLOC COUNT
|
||
T> #DISMISS T DEBUG EVLOUT %<RGLOC LO T> LEVEL-MISMATCH!-ERRORS <ERRET T> %<
|
||
RGLOC INDENT-MOD T> %<RGLOC INDENT-INC T> %<RGLOC INDENT-DIF T> %<RGLOC OUT-FAST
|
||
T> %<RGLOC OUT-UNIQUE T> "<= " LO %<RGLOC FORM-FAST T> %<RGLOC SELF-FAST T> LVAL
|
||
GVAL QUOTE ": " " = " %<RGLOC &1 T> BREAKR!-IEDIT "=> " TOPLEVEL EVAL
|
||
DEBUG-RDR (ACTIVATION) %<RGLOC BREAK-FORM T> #DISMISS BREAKR %<RGLOC RSTATE T>
|
||
LERR\ !-INTERRUPTS (<OR ACTIVATION FRAME>) %<RGLOC BREAKR T> LAST-OUT INTERRUPT
|
||
CHAR-INTERRUPT %<RGLOC QUIT-CHAR T> %<RGLOC NEXT-CHAR T> %<RGLOC OVER-CHAR T> %<
|
||
RGLOC ARG-CHAR T> %<RGLOC RPT-CHAR T> %<RGLOC POP-CHAR T> "H L" %<RGLOC
|
||
TRACEND T> %<RGLOC TRACE T> %<RGLOC TCNT T>]>>
|
||
<AND <ASSIGNED? GLUE> .GLUE <PUT ,DEBUG PGLUE ![721420287 -1 -1 -1 -1 0!]>>
|
||
|
||
|
||
<PROG () ',MAIN-LOOP>
|
||
|
||
<SETG HELP %<RSUBR-ENTRY '[DEBUG HELP #DECL ("VALUE" ANY)] 143>>
|
||
|
||
<SETG REPAIR %<RSUBR-ENTRY '[DEBUG REPAIR #DECL ("VALUE" ANY)] 172>>
|
||
|
||
\
|
||
|
||
<PROG () <SETG BEGIN-CHAR <ASCII 2>> <SETG NEXT-CHAR <ASCII 14>> <SETG OVER-CHAR
|
||
<ASCII 15>> <SETG ARG-CHAR <ASCII 1>> <SETG RPT-CHAR <ASCII 18>> <SETG END-CHAR
|
||
<ASCII 5>> <SETG QUIT-CHAR <ASCII 17>> <SETG POP-CHAR !\h> <GDECL (BEGIN-CHAR
|
||
NEXT-CHAR OVER-CHAR ARG-CHAR RPT-CHAR POP-CHAR END-CHAR QUIT-CHAR) CHARACTER> <
|
||
SETG INDENT-INC 2> <SETG INDENT-MOD 10> <SETG INDENT-DIF 20> <GDECL (INDENT-INC
|
||
INDENT-MOD INDENT-DIF) FIX> <SETG SELF-FAST T> <SETG FORM-FAST T> <SETG OUT-FAST
|
||
T> <SETG OUT-UNIQUE T> <SETG LO LO>>
|
||
|
||
<PROG () <SETG DSTATE -1> <SETG RSTATE 1> <SETG COUNT 0> <GDECL (DSTATE RSTATE
|
||
COUNT) FIX>>
|
||
|
||
\
|
||
|
||
<SETG MAIN-LOOP %<RSUBR-ENTRY '[DEBUG MAIN-LOOP #DECL ("VALUE" ANY <TUPLE ATOM
|
||
ANY>)] 232>>
|
||
|
||
<SETG OPRINTER %<RSUBR-ENTRY '[DEBUG OPRINTER #DECL ("VALUE" ANY ANY FIX ANY)]
|
||
800>>
|
||
|
||
<SETG IPRINTER %<RSUBR-ENTRY '[DEBUG IPRINTER #DECL ("VALUE" ANY ANY FIX)] 907>>
|
||
|
||
<SETG FORM-PRINTER %<RSUBR-ENTRY '[DEBUG FORM-PRINTER #DECL ("VALUE" ANY FORM)]
|
||
991>>
|
||
|
||
<SETG SELF-PRINTER %<RSUBR-ENTRY '[DEBUG SELF-PRINTER #DECL ("VALUE" ANY ANY)]
|
||
1103>>
|
||
|
||
<SETG NORMAL-PRINTER %<RSUBR-ENTRY '[DEBUG NORMAL-PRINTER #DECL ("VALUE" FALSE
|
||
ANY)] 1122>>
|
||
|
||
<SETG FRAME-COUNT %<RSUBR-ENTRY '[DEBUG FRAME-COUNT #DECL ("VALUE" FIX FRAME)]
|
||
1149>>
|
||
|
||
<SETG READER %<RSUBR-ENTRY '[DEBUG READER #DECL ("VALUE" <OR FALSE FIX> ANY)]
|
||
1184>>
|
||
|
||
<PROG () <SETG BREAK-FORM <FORM BREAKR ARG>> <GDECL (BREAK-FORM) <FORM ATOM ANY>
|
||
> ',BREAKR>
|
||
|
||
<SETG BREAKR %<RSUBR-ENTRY '[DEBUG BREAKR #DECL ("VALUE" ANY "QUOTE" ANY)] 1268>
|
||
>
|
||
|
||
<SETG CHAR-INTERRUPT %<RSUBR-ENTRY '[DEBUG CHAR-INTERRUPT #DECL ("VALUE" FIX
|
||
CHARACTER CHANNEL)] 1364>>
|
||
|
||
<AND ',CHAR-INTERRUPT>
|
||
|
||
<PUT <SETG CHAR-INT <GET ,INCHAN INTERRUPT '<ERROR NO-INTERRUPTS!-ERRORS>>> 4
|
||
100000>
|
||
|
||
<SETG CLEAR-LINE %<RSUBR-ENTRY '[DEBUG CLEAR-LINE #DECL ("VALUE" CHANNEL CHANNEL
|
||
)] 1597>>
|
||
|
||
\
|
||
|
||
<SETG DTRACE %<RSUBR-ENTRY '[DEBUG DTRACE #DECL ("VALUE" FIX ANY ANY ANY ANY ANY
|
||
ANY)] 1622>>
|
||
|
||
<PROG () <SETG TLNT 20> <GDECL (TLNT) FIX> <SETG TRACE <ILIST ,TLNT '<IVECTOR 6
|
||
'0>>> <SETG TRACEND <REST ,TRACE <- ,TLNT 1>>> <GDECL (TRACE TRACEND) <LIST <
|
||
VECTOR [6 ANY]>>> <SETG TCNT 0> <GDECL (TCNT) FIX> <SETG TRACING? T> <GDECL (
|
||
TRACING?) <OR FALSE ATOM>>>
|
||
|
||
<ENDPACKAGE>
|