xO@P C' A OP%%IA (A,B,ADD,SUB)(AC2L{G   <^D35-<^L< 8RGHBT.(A)>>+<^D3 X7*<<^L>/^D36>>>.(A)C:' yXMTXZ A,-1-<B>TXZ A,-1-ES| !  REPEAT !83,< TXCE A,1B<B>!1B<C> >B8 sOP%%CA (A,B,A)P%%CA (AGDP <8 cOP%%CA (A,B,E)P%%CA (AGDp  OPCODE NEWG>vC@ X ELALL x PAGE ;(CONTINUED ON NEXT PAGE)8 SALL ;(COXNTINUED FROM PREVIOUS PAGE) REVI6= (X ] ..OLD==(x10 ..TYP==3 IF)E <C>+1,..TYP==0)8 IFE <C>-^O7777)X77,..TYP==1 IFE )x<C>-^O777777B17,*..TYP==2 ..POS==*8POS(<C>) ..WID=*X=WID(<C>) RADI*xX 10 DF%%ST (\.+.TYP,A,<B>,\..P+8OS,\..WID) PURG+XE ..OLD,..TYP,..POS,..WIDTYP,..PI(\z , u RADIX .,8.OLD DEFINE B (,XOPS,AC,E),< ..C,x==0 IRP OPS,< - IFE A-..C,< -8 STOPI IFN 3-X-..C, OPS ,C-x'E IFE 3-..C,. OPS ,[POINT .8E,C'E,D] > .X ..C==..C+1> PURGE ..C>  PI'7 C OP%%IN (A,B,DIV)%IN (AKc   - IRP A,8< IF2,< IFNDEF XA, >>, >>M&. H8 COP%%FA (A,B,FADR,FSBR)AM6. Ix OOP%%FP (A,B,FDVR)FP (AM&eG 8 }<<A>!<->>- MJ Y' $8 = OLD%%%=$X=10 ; RADIX 8 $x N%%%==0 ; IRP %A,< FR%%AM (A%8,\) ; N%X%%%==N%%%+1 ; >%x ADD P,[N%%%,,N&%%%] ; PUSHJ P,&8b ; SKIPA &X AOS -N%%%(P) ; &x SUB P,[N%%%,,N%%'%] ; POPJ P, ;'8 b: RADIX OLD'X%%% PURGE N%%%,OLD%%% E N%%%,MN. Hx GOP%%FA (A,B,FSBR,FADR)AM\u|RQ O2|   9 IRP A,8< IF2,< IFDEF XA, xIFNDEF A, SUPPRE A>> SUPPRE ASNn CX OP%%IN (A,B,IDIV)IN (AS7-N BX OP%%IN (A,B,IMUL)IN (AS;k !x <<<A>B)>>&<B>>S? yITXO A,<B>TXO A,<BUVn   x{IFE <<B>_ 1>,< IFE <B>,<  8 JUMP A,D >  XIFN <B>,< IFE < x<C>&<B>>,< JU MPL A,D > IFN 8 <<C>&<B>>,<  XJUMPGE A,D >>> x IFN <<B>_1>,<  TXCA A,<<C>&<8B>> JRST .+5 X TXCE A,<<C>&<xB>> JRST D TXNE A,<<-<C>-1>8&<B>> JRST D >>> JRST D UVn ' x[ IFE <<B>_1>,< IFE <B>,8< JUMPA A,D X> IFN <B>,< IFxE <<C>&<B>>,<   JUMPGE A,D >  8 IFN <<C>&<B>>, X< JUMPL A,D  x>>> IFN <<B>_1> ,< TXCA A,<<C 8>&<B>> JRST .+ X5 TXCE A,<<C> x&<B>> JRST .+3  TXNN A,<<-<C 8>-1>&<B>> JRST D >>> JRSTUVn  xC IFDIF <B><C>,< JFCL 18,.+1 ; JRST .+X1 ; IFNB <B>,<x JFCL 1,B IFNB <C>,<D>,X<E>,< JRST C>>>x> IFB <B>,< JFCL 1,i IFIDN <8C><D>,<E>,< JRST C>x>> >;<><> IFDIF <C><D>,< H8RLOI A,-2 ; IFXNB <C>,< AOBJP xA,C IFNB <D>,<E>,8>> IFB X<C>,<xE>, IFIDN <D>8<E>,> >;<><> IFDxIF <D><E>,< IF2,x> MOVEI A,0 ; BLT A,0 ; I8FNB <D>,< JUMPE XA,D IFNB <Ex>,< JRST E>> IFB <D>,< JUMPN A8,E> >;<><> i: >;<><> Y$- x w<1B<^L<A>>><1B<^L<A>Y tQ xY> C@ / { B (,<A>,<C>)LDB>,, .XCREF  XLIST> LSTIN.==LSTIN.+1 INYO%{G X [ IFG LSTIxN., LSTIN.==LSTIN.-1 IFLE LSTIN.,8< .CREF LIST> CREF LIST> [3@ x o<<<1_<A>>-1>B<B>>_<A>>[?7 1x = .XCREF 2 TEST%%=0 IFE <28<B>_-^D18>,< T2XEST%%=1 .CREF 2x MOVEI A,<B> 3.XCREF > IFN <38B>,< IFE <<B>_^3XD18>,< TEST%%=13x .CREF MOVSI 4A,(B) .XCREF 48 > IFE <<<B>_-^4XD18>-^O777777>,< 4x TEST%%=1 .CRE5F HRROI A,<B>58 .XCREF > IFE5X TEST%%,< IFE <<5x<B>_^D18>-^O7777677B17>,< TEST%%68=1 .CREF HRLO6XI A,(<B>-^O77776x77) .XCREF > 7IFE TEST%%,< .C78REF MOVE A,[B7X] >>> PURGE TEST%% .CREF TE[Vg B OP%%IN (A,B,MUL)%IN (A]   IFNDEF A,<A==B> F ]` 8  IFNDEF XA,<A==B> SHOW. (A)  SHO_@(Xp >x  .XCREF ? IFE <<B>_-^D18>?8,< .CREF CAI?XC A,<B> .XCRE?xF > IFN <<B>_-@^D18>,< .CREF @8 CAMC A,[B] @X.XCREF > .CREFCREF > .CREF_@(YP J8 c .XCREF JX IFE <<<B>_^D18>Jx-^O777777B17>,< K .CREF DI A,(K8-<B>) .XCREF KX> IFN <<<B>_^D1Kx8>-^O777777B17>,<L OP%%FP A,<B>L8,C > .CREF C > .CREF _@(YX Lx s .XCREF M IFE <<B>_^D18>,M8< .CREF CI MXA,(B) .XCREF Mx> IFN <<B>_^D18N>,< .CREF C N8A,[B] .XCREF > .CREFCREF _@(Z0 D / .XCREF D8 IFE <<<B>_-^D18DX>-^O777777>,< .DxCREF DI A,-<EB> .XCREF > IE8FN <<<B>_-^D18>-EX^O777777>,< OP%Ex%IN A,<B>,C > .CREF>,C >_@(Z7 F8 ? .XCREF FX IFE <<B>_-^D18>Fx,< .CREF CI GA,<B> .XCREF G8 > IFN <<B>_-^DGX18>,< .CREF GxC A,[B] .XCREF > .CREFCRE_@(] tXE .XCREF tx IFN <<A>&^O7777u77777760>, PRINTXu8 ? A IS NOT AN AuXCCUMULATOR TEuxMP%%=0 IFE <<B>v_^D18>,< IFN <Bv8>,< TEMP%%=1 vX.CREF C A,(Bvx) .XCREF >> IwFE <<B>_-^D18>,<w8 TEMP%%=1 .CRwXEF D A,<B> wx .XCREF > IFE TxEMP%%,< .CREF x8 E A,[B] > xXPURGE TEMP%% .CREF TEMP%% .Ca tTQ a tQ a t*9Q a t>(Q a t>(Q a tk{Q a tm3Q a uJ8Q @a uiQ a u}SQ @a vZ7Q a v\yQ a*n r 5 a*n  4`a+= +a+= +a+ - a+-\ 4@a+-\ 5`a+-\ 4 a+-\ 5@a>Mm  kB),A,POS(B)>a?H6 +a? 8 e<^L<A>+^LX<-<<A>_<^L<A>>>-1>-1><^L<A>>>e$YG #8  DEFINE #XINFO.(OPCODE,NEWA#xRG)< OPCODE <A NEWARG>> <AeD- 8 s<<A>&-<A>><<A>&-<Ae tP'g"~s@ X  .XCREF xEXP <A> .ORG .-1 .CREFG .gR~#@ /x  B (,<A>,<C>)DPB>,gR~)  8 S IFE <D>88,< SETZM B> ; I8XFE <D>+1,< SETOM8x B> ; IFN <D>*9<<D>+1>, ; MOV9XEM A,B> ; IFNB9x <C>,< ; MOV:E A,[B,,B+1] :8 BLT A,C ; >BLT A,C ; >gV AX OP%%IA (A,B,SUB,ADD)(Aib X8! .XCREF pX IFB <B>, TXC (<px^O37777777&A>,1Bq<A_-^D30>) IFNBq8 <B>,< IFN <<AqX>&^O777777777760>qx, PRINTX ? A IS rNOT AN ACCUMULATOr8R IFE <<<B>_-^DrX18>-^O777777>,< rx .CREF EQVI A,s<,,-1-<B>> .XCs8REF> IFN <<<B>_sX-^D18>-^O777777>,sx< OP%%TX A,<Bt>,TLC,TRC,TDC >> .CREFC,TDC >>ib nX .XCREF nx IFB <B>, OP%%ToX <^O37777777&A>o8,1B<A_-^D30>,TLCoXA,TRCA,TDCA IFNBox <B>, OP%%TX A,p<B>,TLCA,TRCA,TDCA .CREF ,TDibP jXa .XCREF jx IFB <B>, OP%%TkX <^O37777777&A>k8,1B<A_-^D30>,TLCkXE,TRCE,TDCE IFNBkx <B>, OP%%TX A,l<B>,TLCE,TRCE,TDCE .CREF ,TDib` lXq .XCREF lx IFB <B>, OP%%TmX <^O37777777&A>m8,1B<A_-^D30>,TLCmXN,TRCN,TDCN IFNBmx <B>, OP%%TX A,n<B>,TLCN,TRCN,TDCN .CREF ,TDibp Nx { IFB <B>O, JFCL 0 IFNB <O8B>, TRN A,<,,<B>> N A,<,,<Bibt \X q .XCREF \x IFB <B>, OP%%T]X <^O37777777&A>]8,1B<A_-^D30>,TLN]XA,TRNA,TDNA IFNB]x <B>, OP%%TX A,^<B>,TLNA,TRNA,TDNA .CREF ,TDibtC@ 8; IFE <<BX>_<1+^L<B>>>,< xIFE <<B>&<C>>,< TXNN A,<B> 8> IFN <<B>&<C>X>,< TXNE A,<Bx> >> IFN <<B>_<1+^L<B>>>,< T8XCA A,<<C>&<B>X> JRST .+4 TXxCE A,<<C>&<B>> JRST .+3 TXN8N A,<<-<C>-1>&<B>> >C>-1>&, OP%%TYX <^O37777777&A>Y8,1B<A_-^D30>,TLNYXE,TRNE,TDNE IFNBYx <B>, OP%%TX A,Z<B>,TLNE,TRNE,TDNE .CREF ,TDibu@ x IFE <<B>_<1+^L<B>>>,< 8IFE <<B>&<C>>,<X TXNE A,<B> x> IFN <<B>&<C>>,< TXNN A,<B8> >> IFN <<B>_X<1+^L<B>>>,< TxXCA A,<<C>&<B>> JRST .+4 TX8CE A,<<C>&<B>>X JRST .+2 TXNxE A,<<-<C>-1>&<B>> >C>-1>&, OP%%T[X <^O37777777&A>[8,1B<A_-^D30>,TLN[XN,TRNN,TDNN IFNB[x <B>, OP%%TX A,\<B>,TLNN,TRNN,TDNN .CREF ,TDibx T ? .XCREF T8 IFB <B>, TXO (<TX^O37777777&A>,1BTx<A_-^D30>) IFNBU <B>,< IFN <<AU8>&^O777777777760>UX, PRINTX ? A IS UxNOT AN ACCUMULATOVR IFE <<<B>_-^DV818>-^O777777>,< VX .CREF ORCMI AVx,<,,-1-<B>> .XWCREF> IFN <<<B>W8_-^D18>-^O777777>WX,< OP%%TX A,<WxB>,TLO,TRO,TDO >> .CREFO,TDO >ib| hXQ .XCREF hx IFB <B>, OP%%TiX <^O37777777&A>i8,1B<A_-^D30>,TLOiXA,TROA,TDOA IFNBix <B>, OP%%TX A,j<B>,TLOA,TROA,TDOA .CREF ,TDib|P dX1 .XCREF dx IFB <B>, OP%%TeX <^O37777777&A>e8,1B<A_-^D30>,TLOeXE,TROE,TDOE IFNBex <B>, OP%%TX A,f<B>,TLOE,TROE,TDOE .CREF ,TDib}` fXA .XCREF fx IFB <B>, OP%%TgX <^O37777777&A>g8,1B<A_-^D30>,TLOgXN,TRON,TDON IFNBgx <B>, OP%%TX A,h<B>,TLON,TRON,TDON .CREF ,TDicP Ox  .XCREF P IFB <B>, TXZ (<P8^O37777777&A>,1BPX<A_-^D30>) IFNBPx <B>,< IFN <<AQ>&^O777777777760>Q8, PRINTX ? A IS QXNOT AN ACCUMULATORR IFE <<<B>_-^DQx18>-^O777777>,< R8 .CREF ANDI A,RX<,,-1-<B>> .XCRxREF> IFN <<<B>_S-^D18>-^O777777>,S8< OP%%TX A,<BSX>,TLZ,TRZ,TDZ >> .CREFZ,TDZ >>icT bX! .XCREF bx IFB <B>, OP%%TcX <^O37777777&A>c8,1B<A_-^D30>,TLZcXA,TRZA,TDZA IFNBcx <B>, OP%%TX A,d<B>,TLZA,TRZA,TDZA .CREF ,TDicTP ^X .XCREF ^x IFB <B>, OP%%T_X <^O37777777&A>_8,1B<A_-^D30>,TLZ_XE,TRZE,TDZE IFNB_x <B>, OP%%TX A,`<B>,TLZE,TRZE,TDZE .CREF ,TDicU` `X .XCREF `x IFB <B>, OP%%TaX <^O37777777&A>a8,1B<A_-^D30>,TLZaXN,TRZN,TDZN IFNBax <B>, OP%%TX A,b<B>,TLZN,TRZN,TDZN .CREF ,TDif` X MOVX Ax,1B<B_-^D30> .XCREF !<37777777&B> .CREF 7&B> iftS@ zX[ MOVX Azx,1B<B_-^D30> .{XCREF !<37777777&B> .CREF 7&B> ifuc@ {xe MOVX A|,1B<B_-^D30> .|8XCREF !<37777777&B> .CREF 7&B> ify` }o MOVX A}8,1B<B_-^D30> .}XXCREF !<37777777&B> .CREF 7&B> igQ` ~8y MOVX A~X,1B<B_-^D30> .~xXCREF !<37777777&B> .CREF 7&B>mHtYP'mHuZ7Q xmHvi9Q |mHvzQ pmKc@  BYTE (3)A8WHO (9)AVER (6)AMIN (18)AEDTo&  x _<^L<-<<A>_<^L<A>>>-1>>>q? zQTXC A,<B>TXC A,<Bq@  % INTERN 8A IFB <C>,<XA==B> IFNB <C>,<A=B>  <Cus@ 0X  B (>,<A>,<C>)TE>>,<A>,<C>) lzQ  D P ?DP >D)6P D8YP D8sP D;PP D;QP D;QP D;RP D;RP D;SP D;TP D;WP D;WP D;XP D;XP D;YP D;YP D;ZP D;ZP D;[P D;[P D;\P D;\P D;]P D}{woP