> OP-ARGS OP-STUFF? OP-FORCE? > STRING)) > T)) > "TUPLE" STUFF) > T)) > .REPLY?>) (FORCE? .FORCE?>) (SCT 0) (STUFF? <>) (STYPE <>) AVEC) ,ARG-FUNC) (<==? .X W> ,ARG-WINDOW) (<==? .X M> ,ARG-MASK) ( >> 4> 4>>)> LONG>> >) (<==? .X B> > >) (T >> >)> SHORT>> >)> >) (T >)> )> .NUM) (<==? .X STUFF> )>> .ARGDESC>> !,OPLIST)>> )> ) (ARGL .ARGS) (FARGL <>) (AUXL ()) RES (VALDECL <>) REPLY?) > > >)> ) D TEMP (GOT-FUNC? <>)) > >> )> )> )> > FIX> > <1 .ALIST

.GOT-FUNC?>>>) (<==? .D ,ARG-WINDOW> >)>>>) (<==? .D ,ARG-MASK> <1 .ALIST <1 .ARGL>>>>) (T <1 .ALIST .GOT-FUNC? <1 .ARGL>>>>)>) (T )>) ( 1>> '.PACKET <1 .ARGL>>)>>>) ( 2>> >> >> SHORT>> 2> 1>> '.PACKET <2 .ARGL>>>)>>> > >) (T 1>> '.PACKET <1 .ARGL>>)>>>)>) ( <> <>>) (ARGS <> <> <>>) (CCT 1)) 4>> >> >> SHORT BYTE>> <2 .OFFS <2 .ADESC>> <2 .ARGS <2 .ARGL>> BYTE> >> >> SHORT BYTE>> <3 .OFFS <3 .ADESC>> <3 .ARGS <3 .ARGL>> BYTE> >> >> BYTE>> <4 .OFFS <4 .ADESC>> <4 .ARGS <4 .ARGL>>)>)>) ( 2>> >> >> BYTE>> <2 .OFFS <2 .ADESC>> <2 .ARGS <2 .ARGL>> )> 1>> '.PACKET <1 .ARGL>>)>>>) (T 2> 1>> 4> 1>>>)>>> >> >>)>>) ( )>) (T )> > >> T> > ) (<==? ERROR> > ) (<==? STRING> > ) ( > LONG> ) (T )>) (T >)> 1> STRING UVECTOR> >)>) (T > )>)>)> )> )> .REPLY? '.PACKET ,SEND-PACKET-WORD-LENGTH !.ARGL>>>) (T FIX> 1>> '.PACKET <2 .COUNTER>> )> .REPLY? '.PACKET ,SEND-PACKET-WORD-LENGTH ! 1> (<1 .ARGL> <2 .COUNTER>)) (T .ARGL)>>>>)> ) (T .RES)>) (T )>> > > ARGS: CCT:FIX SMAC LMAC) .CCT>>>> .CCT>>>> >>> .ARGS> BYTE> SHORT>> <1 .OFFS FIX> 2> SHORT>> <2 .ARGS>>>) (<==? .CCT 2> <2 .ARGS>>>) (<==? .CCT 3> SHORT> <2 .ARGS>> <3 .ARGS>>>) (T <2 .ARGS>> 0>>>)>) (T <2 .ARGS>> <4 .ARGS>>>>)>> > .Y>) ( <0? .Y>> .X) ( <0? .X>> ) (T .Y>)>> > > > ) ( <0? .Y>> .X) (T )>> .X) (T ) ( <==? 2> <==? <1 .X> GVAL> ATOM>> GVAL>>)> >> >)> .X)>>