) (CLAB T) "AUX" OP-INF (OUTCHAN .OUTCHAN)) #DECL ((CC) FIX (CL) ]> (OUTCHAN) ) )) #DECL ((X NUM-OPS INS OPCODE) FIX (IN-CASE?) ) > .CC> )> >> > )> ) (ELSE )>> FIX>> > <- ,INIT-SHIFT>> FIX>> .C .INS>) (.IN-CASE? .C .INS> > 0> >)>) ( ) (ELSE )> > ) STR CB) #DECL ((CB SHFT FNUM EAC R-OR-L ADR SIZ) FIX) >)> > 0> >)> )> 255> FIX>> > 0> > .C>> ) (.CV 0) (ELSE )>>)> FIX>> FIX>> FIX>>> ) (<1? .NUM-OPS> )>)>) (<==? .EAC ,AM-INX> > ) (<==? .EAC ,AM-REG> ) ( > 1>>>>) ( >> ) ( >> 7> FIX>> ) ( <==? .SIZ ,SZ-F>> ) (<==? .SIZ ,SZ-W> ) (ELSE )> -256) (<==? .SIZ 2> -65536) (ELSE ) ("VAX" 0)>)>)) > 0> 127> FIX>>)> 1>> ,RTE-DISPATCH-TABLE-SIZE> >> ) (ELSE )> ) (<1? .NUM-OPS> )>)> )> > 255>> .CNT>> FIX>> > 0> > .C>> ) (.CV 0) (ELSE )>>)>>) (ELSE )>) (ELSE "B^") (<==? .EAC ,AM-BD> "B^") (<==? .EAC ,AM-WDD> "W^") (<==? .EAC ,AM-WD> "W^") (<==? .EAC ,AM-LDD> "L^") (<==? .EAC ,AM-LD> "L^")>> -256) (<==? .SIZ 2> -65536) (ELSE ) ("VAX" 0)>)>)) > 0> 127> FIX>>)> >) (<==? .R-OR-L ,NAC-M> ) (ELSE ) (<1? .NUM-OPS> )>)> )> )> > 255>> .CNT>> FIX>> > 0> > .C>> ) (.CV 0) (ELSE )>>)>>)> > )>>)>)> >> >>> ) FIX>>> > > 1> .ECODE <>>> )> >>> FIX>) (CODE 255> FIX>) PSAVE PATCH LREF UC (OUTCHAN .OUTCHAN) DESTEA) #DECL ((INS) FIX) > >> 1> .PATCH <>>>)>) (<==? .CODE ,INST-PSTORE> > > 1> .PATCH <>>>)>) (<==? .CODE ,INST-CALL> > > > > ) (<==? .CODE ,INST-PUSHLAB> > > > ) (<==? .CODE ,INST-MOVELAB> > > > "> )>> <==? .INSNAME ,NAME-JSR>> <==? > 5> 1>> ,RTE-DISPATCH-TABLE-SIZE> >> T)>> >)> >> >)> >>> ) (ELSE > .PTR> )>> >)>> .PTR> )>> >> ,OUTST-LABEL-TABLE>>> > > > > > > > >>> (PTR MAXPTR) FIX) > >> >>>) (ELSE <- .VAL 10>>>>)> > 0> )>> > .MAXPTR> )>> > > > > ,LABEL-TABLE>> >) ( .NUM) (ELSE >> > > <+ .TOT .REM>)>> ) OFF (OUTCHAN .OUTCHAN)) #DECL ((DISP) FIX) 1>> > <>) (ELSE >> >> >)> )>> ) ) INSNAME OP-INF NUM-OPS R-OR-L CB ST-CASE) #DECL ((OP-INF) (INSCODE NUM-OPS R-OR-L) FIX (IN-CASE?) ) >> > > > > > > <- ,INIT-SHIFT>> FIX>> >)> 8>> FIX>> > > > 0> >)>) ( )> ) STR EAT EAC) #DECL ((FNUM R-OR-L ADR SIZ EAT EAC) FIX) >)> > 0> )> > > FIX>> FIX>> > 7> FIX>> > >> 8>> FIX>> > >>> ) ( FIX>>> ) (<1? .NUM-OPS> )>)>) (<==? .EAC ,AM-INX> > ) (<==? .EAC ,AM-REG> ) ( > 1>>>>) ( >> ) ( >> ) ( <==? .SIZ ,SZ-F>> ) (<==? .SIZ ,SZ-W> ) (ELSE )> -256) (<==? .SIZ 2> -65536) (ELSE ) ("VAX" 0)>)>)) > 0> 127> FIX>>)> 1>> ,RTE-DISPATCH-TABLE-SIZE> >> ) (ELSE )> ) (<1? .NUM-OPS> )>)> )> > > .CNT>> FIX>> >>) (ELSE )>) (ELSE "B^") (<==? .EAC ,AM-BD> "B^") (<==? .EAC ,AM-WDD> "W^") (<==? .EAC ,AM-WD> "W^") (<==? .EAC ,AM-LDD> "L^") (<==? .EAC ,AM-LD> "L^")>> -256) (<==? .SIZ 2> -65536) (ELSE ) ("VAX" 0)>)>)) > 0> 127> FIX>>)> >) (<==? .R-OR-L ,NAC-M> ) (ELSE ) (<1? .NUM-OPS> )>)> )> )> > > .CNT>> FIX>> >>)> > )>> )>)> )>>> > > >) (ELSE ) (ELSE )> >)>> >)> >> >)> >>>