> > > $ if you want to try one-step debugging again. ---- (BKD)" ,OUTCHAN> >

> >)>> \ > ;"Cntl B" > ;"Cntl N" > ;"Cntl O" > ;"Cntl A" > ;"Cntl R" > ;"Cntl E" > ;"Cntl Q" > ;"Cntl P" ; "CNTL G" *77*> FIX>> ,BEGIN-CHAR ,NEXT-CHAR ,OVER-CHAR ,ARG-CHAR ,RPT-CHAR ,POP-CHAR ,END-CHAR ,QUIT-CHAR>> ;"For 10x/20 make the correct characters do interrupts" >) (ELSE )> ;"Psuedo-LAST-OUT variable for use in OUT-UNIQUE processing"> ;"Debuggr's State" ;"Reader's State" ;"Reader's arg counter" > \ > (INCHAN OUTCHAN) ) ])) (INFO <>) (I/O-MODE <>) PURPOSE MESSAGE (OLEV 0) (LEV 0) (CURLEV 0) (OLDLEV 0) TLF ARG RDRVAL) #DECL ((LEV) (PURPOSE) ATOM (TLF) > (MESSAGE) (CURLEV OLDLEV OLEV) FIX (RDRVAL) (STATES) ]>) > ;"Top Level Frame" > ;"Get indicator of purpose" > >> >)> >>> > ;"Request to start up DEBUGGER Process ?" >) (> >> ) (<==? .PURPOSE EVLIN> ;"Dispatch on purpose" > ;"Attempt to 1STEP while in DISMISS evaluation" >> > >> > ) ( <==? ,DSTATE 2>> >> <>) (ELSE #DISMISS T)>>) (> <==? ,DSTATE 4>> )> <==? ,DSTATE 4>> ) (ELSE >)>) (ELSE )>) (<==? ,DSTATE 3> >> )> > >> ) (<==? ,DSTATE 4> ;"Repeating ?" )> >> ) (ELSE )>) (<==? .PURPOSE EVLOUT> <==? ,DSTATE 2>> .I/O-MODE> ;"Last-out" ) (>> ) ( ) (ELSE )>) (<==? ,DSTATE 3> )> .I/O-MODE> ) (<==? ,DSTATE 4> )> .I/O-MODE> ) (<==? ,DSTATE 0> ;"Return from deeper DISMISS level" >>> > > > ) (> )>> >> > > ) (<==? ,DSTATE -1> >) (ELSE )> > >)> ) ( ) (ELSE > )>>>> ,INDENT-MOD>> <- <13 .OUTCHAN> ,INDENT-DIF>>)) #DECL ((INDENT DEPTH) FIX (OUTCHAN) ) > ) ( > ;"PPRINT's INDENT-TO routine" ,INDENT-MOD>> <- <13 .OUTCHAN> ,INDENT-DIF>>)) #DECL ((INDENT DEPTH) FIX (OUTCHAN) ) ;"Clobber last-out, since this is IN" ;"PPRINT's INDENT-TO routine" ,FORM-FAST> ) (> ,SELF-FAST> ) (ELSE )>> 2> LVAL> <==? <1 .EXPR> GVAL>> ATOM>> ;".FOO or ,FOO ?" <==? <1 .EXPR> QUOTE>> <&1 .EXPR> "> <&1 .EXPR> T) (ELSE )>> ,&1> "> <&1 .EXPR> <>> TOPLEVEL> ) (<==? EVAL> >)> >>> ) >>> ) > >> >> .RACT>>>) (ELSE ,RSTATE)>> > > ',BREAKR ;"For GLUE"> (LERR\ !-INTERRUPTS) >) >> >)> ) > >> >> ) ;"DEBUGR off ?" ) (<==? .CHAR ,BEGIN-CHAR> ;"Begin debugging" <1STEP > > <==? T >>> >>> >) (ELSE >>>)> ) (<==? ,DSTATE 0> ;"Debugger not running ?" ;"Quit while not ON ?" )> ;"Else Ignore") ( 1) (<==? .CHAR ,OVER-CHAR> 2) (<==? .CHAR ,ARG-CHAR> 3) (<==? .CHAR ,RPT-CHAR> 4) (<==? .CHAR ,POP-CHAR> 5) (<==? .CHAR ,END-CHAR> > 0) (<==? .CHAR ,QUIT-CHAR> > -1)>> > ;"Valid activation character ?" ) (<==? .CHAR > ;"Delete Character ?" >) ( > >> ;"Digit Character ?" -48>>)> > >> 4 100000> )> > \ ;"Save on TRACE list, info on last TLNT cycles of the Debugr" ) > ;"Move oldest to end" > > ;"Newest info" >> >> >> >> >>