x ,5 @P C@@ CJ8I0P CJ8MP CJ8M7P CJ8Y0P CJ8]P CJ8]7P CJ9i0P CJ9mP CJ9m7P CK  0h# T1.==11 IFNB <B>,<1( T1.==B 1H IFN 100000*T11h.-100000*B, > 2( A==OFFS. - 1 2H OFFS.==OFFS.+T1. .==OFFS.+T1CO %H"8 GETLEN %h<C> A: POINT 7&,.+2 XWD B,LEN&(. ASCII\C\ T&H1.==/5 &hT1.==T1.*5 T1.='=B-T1. BLOCK </5>   POINT'h A$B,A.BC,A%B A.BC,AE@$X P E@& yP E@&:=P E@&[ZP E@,X P E@. yP E@.:=P E@.[ZP E@tX P E@v yP E@v:=P E@v[ZP Eg$\` *H"Z POS.=*h=-1 IRP B, +(OFFS.==OFFS.+1 FS.==OFFS.+1 Eg& \ +h"d POS.=,=-1 IRP C, ,H OFFS.==OFFS.+1 FS.==OFFS.+1Gt}P Gt;vP Gt IqNI.CH==INI.CH ! $$$A I.CH ! $G? T%( WHATYP T(<A> IFE SYM..+TH1,< MOVEI A,BTh> IFN SYM..+1,<U MOVEI 0,B MOVEM 0,A>  MG? Q(% WHATYP QH<A> IFE SYM..+Qh1,< MOVE A,B>R IFN SYM..+1,< R( WHATYP <B> RH IFN SYM..+1,< Rh MOVE 0,B S MOVEM 0,A> S(IFE SYM..+1,< SH MOVEM B,A> > EM B,A> >GC8P I$ H!P IFB<B>h,< A: BLOCK 1>  IFNB<B>,< A: BLOCK B> A: BI  Hh$H REPEAIT 5-B, SOS A A> I~  V(%N WHATYP VH<A> IFE SYM..+Vh1,< MOVE A,B W MOVE A+1,1+B W( > IFN SYM..+1WH,< WHATYP <BWh> IFN SYM..+1X,< MOVE 0,B X( MOVEM 0,A XH MOVE 0,1+B Xh MOVEM 0,1+A Y > IFE SYM..+Y(1,< MOVEM B,YHA MOVEM B+1Yh,1+A > > A > > I6~i6 UH%. MOVEM UhA,B MOVEM A+1,1+B EM A+1IVm^  (("B ONEBYT(A,B,C) YT(KK (< FUNCT T YPOUT,<A> IFNB@ <B>, KK0  (4 JRST [F@UNCT TYPOUT,<A> JRST B] L:$]@@ L:%@@ L:%V@ L:/ @ L:d[@P L:my@ L:my@ L:t2@ L:t6@ L;i@ L;I7P M&-I -h"z T1.=1. IFNB <B>,< .( T1.==B .H IFN 100000*T1..h-100000*B, > /(A=OFFS. OFFS.==OFFS.+T1. M&d\Y (< FUNCT T YPOUT,<A> IFNB@ <B>, M&d\Y  (4 JRST [F@UNCT TYPOUT,<A> JRST B] M'4P $[5]M?.  $[4]MVt= `( SALL ARGS.=0 IF2, > IFB <`B>,< PUSHJ P,A>  IFNB <B>,<  IRP B, MOVE`I AP,[-ARGS.,,0  IRP B,<B>  ]+1 PUSHJ P,A > OH  H!H IFNDEhF GDATA., IFDEF GDA(TA.,< IFB<HB>,<A:: BLOCK 1>h IFNB<B>,<A:: BLOCK B> > CK B> OtP Ot}P Ot*7P Ou@P Ou`P Ou}:P O%I7  LEO2` H! IF2, > PUSHJ P,A PUSHJ P,OJ,p H!n IFBh <B>, IFNB <(B>, H IFL GREG.-LGREGh.,  A=GREG. (IFDEF .A,< H IFN .A+GREG.,< h PRINTX "A" ALTER-EGO ALRE(ADY IN USE H> > IFNDEhF .A,< .A==-GREG.> .A==-GRQlYP S;HwP S;IZP S;XwP S;YZP S;h9@ S;hwP S;hx@ S;iZP S;H1P S;J2P S;J7P S;K2P S;KxP S;X1P S;Z2P S;Z7P S;[2P S;[xP S;h1P S;j2P S;j7P S;k2P S;kxP S;  #t2B12+AhY Z(%r IFNDEZHF B$C, IFDEF B$[C, [( IFE T1.-^D36, [h IFN T1.-^D36,<\ IFN T1.-^D\(18, \hIFE T1.-^D18,< ] T1.==B%C ]( IFE T1.-^]HD17, IFE ^T1.-^D35, > >  >Y/ ^h& IFN_DEF B$C, IFDEF B_H$C, _h IFE T1.-^D36,``( IFN T1.-^D36`H,< IFN T1.-`h^D18, a( IFE T1.-^D18,< aH T1.==B%ahC IFE T1.b-^D17, IFbHE T1.-^D35, > >  Yi  }hnPOP$A+HMREG.-MREG.$A+HMREY&u0 (!& SALL HARGS.=0 IF2, > IFB <(B>,< PUSHJ P,A> H IFNB <B>,< h IRP B, MOVE(I AP,[-ARGS.,,0 H IRP B,<B> h ]+1 PUSHJ P,A > [3@ 5h#.<<<1_<A>>-1>B<B>>_<A>>[83 8h#b EXP [ 9 IRP B,< A9(CT..=0 IRPC9H B,<B9h>, : STOPI> IF:(N ACT..,< :HB > I:hFE ACT..,< GET;LEN <B> ADDR.;(==[EXP LEN. A;HSCIZ\B\] EXP ;h >< > 0 ] <(A:: MSG.. MSG..=MSG..+2 SG.[2N@ A$ 17B12+[ASCIZ\A\] +[[4t@ [4t=9@ [4v:=@ [J,p (" IFNH LMREG., IFB <B>,( H IFNB <B>, IFB  <A>, IFG MREG.-H HMREG., IFNB <A>,!< A=MREG. !( IFDEF .A,< !H IFN .A+MREG.,!h< PRINTX ""A" ALTER-EGO AL"(READY IN USE "H > > IFN"hDEF .A,< .A==-MREG.> > -] 6(#4 IFNDE6HF A,<A==B>  A,<A==B> _63@P _:( #z[1] T_:,.: (h"P IFNB )<D>,<D.B=OFFS.)(-A.D> A.B)H==OFFS. A$B)h==C POS.==PO*S.+C A%B==POS.  A%B==_RD89 n(&z REPEAnHT ,< CASLAoB(\CA.USR) o(CA.USR==CA.USR+1 > .USR+1 `@ a&LW 7#B STR.S7(T=. BYTE (12)7HB LEN.==0 7h IRP B, A: POI8(NT ^D12,STR.ST XWD 0,LEN. a$\YP a$kP a%X2P a%[P a%h7P a&Mm 5#*B),A,POS(B)>a? |(j T1.==MR|HEG. REPEAT ,< R}ESTOR T1. T1.}(=T1.-1 >  > a?K8 x@RESTOROR+^L4H<-<<A>_<^L<A>>>-1>-1><^L<A>>>a?`P aJ,j< /h# B.C0==OFFS.-A.B 0( FIELD (A.C,D) D (A.C,D)d@@ dD@ dH@ dL@ dP@ dT@ e8 #("( A=B#H IFDEF .A,< #h IFN .A+B,$< PRINTX $("A" ALTER-EGO AL$HREADY IN USE $h > > IFN%DEF .A,< .A==-B> < .A==-eKy sh IRP A,< POP P,A> A,e&\W ~(x IFN M~HREG.-TREG., IFE MREG.-TREG., G.,,< yh T1.==T1.+1 z SAVE T1. z( > IFDEF UzHNWIND, IFDEF{ MY.INI, > {HIFE HMREG.-MREG.,{h V$A> g4P s( IRP A,< PUSH P,A>A,g6K8 wH<SAVEVE>6 oh OFpFS.==0 LMREG.p(==0 LGREG.==1pH6 IFDEF MUphREG., IFNDEF MURq(EG., HMREG.==MREqhG. HIGH==1  HIGH==1 g$W iH&P MOVEMih P,FRAMCON COjPI PARSCON,A I PARSCON,A g$ =H#p GETLEN=h A ADDR.=1B1>2 + [ LEN. ASCII/A/]+1 Ag$89 m&n CA.Am(==CA.USR CASLmHAB(\CA.USR) CmhA.USR==CA.USR+1 SR==CA.USR+1 g'@ $[6]g'Qj7P g'Qk6P g'QlP g'QlYP gP c(&: IFNDEcHF B$C, IFDEF B$dC, d( IFE T1.-^D36, dh IFN T1.-^D36,e< IFN T1.-^e(D18, eh IFE T1.-^D18,< f T1.==B%Cf( IFE T1.-fH^D17, IFEg T1.-^D35, > >  gR5 gh&H T1.h==B%C IFE Th(1.-^D17, IFEhh T1.-^D35,> A,B.gS BH$ GETLEN Bh(<A>) POINT 7,C[ASCII\A\] EXP LEN. ] EXPgSY AH$ GETLEN Ah(<B>) EXP LEN.B A: ASCII/B/ A: ASCII/B/ gft\Y (< FUNCT T YPOUT,<A> IFNB@ <B>, gft\Y  (4 JRST [F@UNCT TYPOUT,<A> JRST B] gg\Y (< FUNCT T YPOUT,<A> IFNB@ <B>, gg\Y  (4 JRST [F@UNCT TYPOUT,<A> JRST B] hDpP i@ i#Y  #~[3]iJ,s@P iWks J$PTXZ A,BRTXZ A,BiWkw IH$LTXO A,BNTXO A,Bi^x #|[2]P i` JH$Z IFE C&Jh777777, IFN C&777K(777,  ib Ph%TX(C,A,B)TX(C,A,BibtP Kh$^TX(NE,A,B)TX(NE,A,ibu` L($bTX(NN,A,B)TX(NN,A,ibx N($rTX(O,A,B)TX(O,A,Bib| Lh$fTX(OA,A,B)TX(OA,A,ib|P M($jTX(OE,A,B)TX(OE,A,ib}` Mh$nTX(ON,A,B)TX(ON,A,icP P(%TX(Z,A,B)TX(Z,A,BicT Nh$vTX(ZA,A,B)TX(ZA,A,icTP O($zTX(ZE,A,B)TX(ZE,A,icU` Oh$~TX(ZN,A,B)TX(ZN,A,k2Mj` `(. SALL ARGS.=0 IFB < B>,< PUSHJ P,A>@ IFNB <B>,< ` IRP B, MOV EI AP,[-ARGS.,,0 @ IRP B,<B> ` ]+1 PUSHJ P,A > kO\Y (< FUNCT T YPOUT,<A> IFNB@ <B>, kO\Y  (4 JRST [F@UNCT TYPOUT,<A> JRST B] kRM@ `(. SALL ARGS.=0 IFB < B>,< PUSHJ P,A>@ IFNB <B>,< ` IRP B, MOV EI AP,[-ARGS.,,0 @ IRP B,<B> ` ]+1 PUSHJ P,A > kVxHtP kVxI0P kVxKxP kVxXtP kVxY0P kVx[xP kVyhtP kVyi0P kVykxP m #r1B12+A(o` l(&b FUNCT TYPOUT,<A>  Toj@ (< FUNCT T YPOUT,<A> IFNB@ <B>, ol`  (4 JRST [F@UNCT TYPOUT,<A> JRST B] o"N8 CH$< SYM..==Ch0 IRPC A,< D IFIDN <A><@>,D( IFIDN <DhA><(>, IFE(IDN <A><[>, Eh IFIDN <A><+>F, IFIDN <FHA><->, >G IFE SYM..,< G( IFDEF .A,<GHSYM..=-1> > ..=-1> > o&  3h#<^L<-<<A>_<^L<A>>>-1>>>o?@ -"j BYTES-((A,<B>) OFFS.==0  OFFs?Mp H!  PUSHJ P,A PUSHJ Pup #x[0]+A -hz qH'p IFG HIGrH,< RELOC 400rp000 HIGH==-1 tP IFG MREG.-TREqhG.,< SAV$A: sPT1.==TREG. REs0PEAT ,< T1.==T1sp.+1 SAVE T1u@. > IFDEFt UNWIND,< Mu OVEM P,UNWIND v( IFDEF UNWEXIT,v< IFDEF MtxY.EXIT, vX IFNDEF MY.EXIw`T, > x > IFDEF MYx@.INI, IFNDEF MY.yINI, y > IFDEF Uy@NWEXIT,> POP$A: z POPALL POPJ z@P, > A: Ez`NTRY A IFN LMR{EG., {@ AOFF.=0 IFNB {`<B>,< IRP B|,< B=AOFF. | AOFF.=AOFF.+1 |@ > > IFN M|`REG.-TREG., IFE MREG.-} TREG.,< IFDEF}@ UNWIND, IFDEF~ MY.INI, > ~7 e~7  h x IFG HIG H,< RELOC 400 (000 HIGH==-1  H MREG.==TREG.  h HMREG.==MREG. POP$A: ( POPJ P, > HA: ENTRY A hIFE LMREG., MREG.=TREG. EG. 2Mj` qH'p IFG HIGrH,< RELOC 400rp000 HIGH==-1 tP IFG MREG.-TREqhG.,< SAV$A: sPT1.==TREG. REs0PEAT ,< T1.==T1sp.+1 SAVE T1u@. > IFDEFt UNWIND,< Mu OVEM P,UNWIND v( IFDEF UNWEXIT,v< IFDEF MtxY.EXIT, vX IFNDEF MY.EXIw`T, > x > IFDEF MYx@.INI, IFNDEF MY.yINI, y > IFDEF Uy@NWEXIT,> POP$A: z POPALL POPJ z@P, > A: Ez`NTRY A IFN LMR{EG., {@ AOFF.=0 IFNB {`<B>,< IRP B|,< B=AOFF. | AOFF.=AOFF.+1 |@ > > IFN M|`REG.-TREG., IFE MREG.-} TREG.,< IFDEF}@ UNWIND, IFDEF~ MY.INI, > ~7 VeU ~@( A: IF~`E LMREG., MREG.=T REG. AOFF.=0@ IFNB <B>,< ` IRP B,< B=AOFF. AOFF.= AOFF.+1 > >  W% ~@( A: IF~`E LMREG., MREG.=T REG. AOFF.=0@ IFNB <B>,< ` IRP B,< B=AOFF. AOFF.= AOFF.+1 > >  f` H! A: IFhE LMREG., MREG.=TREG. EG.=TQ yS@P @Q xIP IQ IQ IQ ~I Q ~I(Q }RQ y>}{woP