x ,L@P I$z ]@N DEFI ]hNE $ (NAM,SIZ,CNT ^,LVL) < $$ ^(A,NAM,\..WD,B,\. ^H.BT,SIZ,CNT,LVL ^h >;end DEFINE $ _ DEFINE $$. _((NAM,SIZ,OB,OW,BT _H,WD,CNT) < $ _h$$. A,NAM,OB,OW, `BT,WD,B,SIZ,CNT `( >;end DEFINE `H$$. DEFINE $ `h$$$ (NAM,BIT,SIZ, aWRD) < $$$$$ a( A,NAM,BIT,SIZ, aHB,WRD >;end D ahEFINE $$$$ . b.WD==0 ..BT==-1 ..BT==-S6YP S6Z7P S6i9P S6zP a HR 8X $SAVE MOVEI T3,B @QQ==0 IFNB <D>, ` JU MPE T3,.+3+QQ PUSHJ P,A @ JUMPF .RET ` PVALSV D !; ADD T1,T3 ! ; SUB T2,T3 !@ PUSH P,T1 PUSH !` P,T2 PUSH P,T3 " PATGO POP P, " T3 POP P,T2 P "@OP P,T1 AOS T3 "` QQ==0 IFG C,< # QQ==2 CAILE T3 # ,C $RET> CAM #@LE T3,T2 $RET #` JRST .-<15+QQ> RST .-<15+QQ> SFQn0PP*S5-1a (PX ZZZ==ZZZ H+1 ZZ==0 $SAVE h PUS (H P,T1 MOVE H P-1,P PATG hO INIT POP P,T1 JRST . (RETF IRP A H< PAT. A h > PATTG MOVE P,P-1 ( MOVE T3,T1 H POP P,T1 S hUB T3,T1 AD D T2,T3 JRST .RETT RSa!` (Pr PAT.. A PAT.a!c@ hPv PATTG A B PATTGa${` HP^ PAT hGO. \ZZ,\ZZZ,A ZZ,\ZZZ,A a${g (Pn IFB < HC>,< PUSHJ P,. hPSTR2 >;END I FB <C> IFNB <C (>,< PUSHJ P,.PS HTR3 >;END IFNB < hC> PUSHJ P,%APB J P,%Aa&I` (P| PAT HTG. \ZZ,\ZZZ ZZ==ZZ+1 ZZZ ZZ=a&Ig Q %APB: %APa ,p HQ PAT hGO $RET $RET aF (Ql CAI HLE T3,1 JRS hT .RETF $SA VE (PUSHJ P,.PSTR0 H ILDB S1,P1 h CAIE S1,"A" JRST .RETF ( MOVEI T3,1 H JRST .RETT RST .RETT at@ 10S JUMPN T 1P2,.RETF PATGO .RETF PATGO a@ hQ4 $SA VE ( MOVE P3,T3 H SETZ T3, hPUSHJ P,A JUMPF .RET (CAMGE T3,P3 H $RET PVAL hSV B ; ADD T1,T3 ; SUB (T2,T3 PATGO H $RET $RET af@ (Q PAT HGO QQ==. h SOS T2 JUMPLE T2,.RETF ( AOS T1 H IFDEF FTDEBUG < h SKIPG T1 HALT >;end (IFDEF FTDEBUG JRST QQ-1 Ja? ,PS $SAV ,pE - IFNB , MOVE P -P3,T3 DMOVE P -p1,T1 IRP A,< . DMOVE T1,P1 .0 MOVE T3,P3 .PPUSHJ P,A IF .pNB , / QQ==0 I /0FNB <C>, JUMPF . /p+3+QQ PVALSV 0 C ; ADD T1, 00T3 ; SUB T2,T 0P3 PATGO 0p >;end IRP A JRST .RETF JaO` $@Ra 8p CAMLE $p T3,T2 JRST %.RETF $SAVE %0 PUSHJ P,.PS %pTR0 SETZ T4, & MOVE P2,A &0 HLRZ P3,P2 &P HRLI P2,440700 &p PUSH P,P3 ' PUSH P,P2 '0QQ==0 'P IFG B,< CAIL T 'p4,B JRST .+ (10 QQ==2> (0 ILDB S1,P1 (P MOVE P2,0(P) (p MOVE P3,-1(P) ) ILDB S2,P2 )0 CAMN S1,S2 )P AOJA T4,.-<5+Q )pQ> SOJG P3,.- *3 POP P,S1 *0 POP P,S1 SKIPE *P T4 CAMGE T4 *p,T3 JRST .RE +TF MOVE T3,T +04 PVALSV C +P ; ADD T1,T3 +p ; SUB T2,T3 , PATGO JRST .RET JRSGR -1aO& QV $SA (VE H MOVE P2,A h HLRZ P3,P2 CAMLE T3,P3 ( JRST .RETF H MOVE T4,P3 h HRLI P2,440 700 PUSHJ P, (.PSTR0 ILDB HS1,P1 ILDB hS2,P2 CAME S1,S2 JRST (.RETF SOJG HP3,.-4 MOVE h T3,T4 JRST .RETT RSTaZ L{ 2S PVALS 20Z==2 IFNB < 2PA>,< HRLM T3,A 2p HRRM T1,A 3 >;end IFNB <A> end IFNB <e0 (P IRP A,< H ..RF==A >;end h IRP A PURGE ..RF A PURGE ..e>0 3PS+ DEFINE R 3p(N) < R'N== 4N >;end DEFINE R 40 ..==0 ;Co 4Punter REPEAT 20 4p,< R \.. ;gen 5erate register na 50me ..==..+1 >;end REPEAT 20 eg/P (P* .SKP (E,A,B,C) (E,g/p (P: .SKP (G,A,B,C) (G,g/y hP> .SKP (GE,A,B,C) (GEg/@ (P2 .SKP (L,A,B,C) (L,g/I hP6 .SKP (LE,A,B,C) (LEg/` hP. .SKP (N,A,B,C) (N,mKc@ ,`2hBYTE (3)A-WHO (9)AVER (6)AMIN (18)AEDT bHNh ..TM= bh=0 IFB <F>,< c IFB ,< c( IFGE ..BT,< cH ..WD==..WD+1 ch ..BT==-1 d >;end IFN ..BT d( ..TM==1 > dH;end IFB B >; dhend IFB F IF eE ..TM,< ..CT e(==1 IFNB <G> eH,<..CT==G> . eh.SZ=^D36 IFNB f <F>,<..SZ==F> f( ..OB==..BT fH ..OW==..WD fh REPEAT ..CT,< g ..BT=..BT+..S g(Z IFG <..BT gH-^D35>,< gh..WD=..WD+1 h ..BT=..SZ-1 h( >;end IFG <. hH.BT-^D35> hh IFNB ,;end k(IFE ..TM . kH.TM==..TM+1 kh >;End IFNB B l IFNB <H>,<$ l($$ H,\..OB,\..OW lH,\..BT,\..WD> lh >;End Repeat ..C mT >;End IFE ..TM End IFE .. mHNx DEFI mhNE $. (NAM,SIZ,CN nT) < $$. NAM n(,SIZ,B,C,D,E, nHCNT >;end DEF nhINE $. ..BT1 o==B ..WD1==C ..WD1==C A ~HOx A$B= ~h=F DEFINE A% B<A$B(E)> B<A$B(E)> !` oHOp ..TM1= oh=0 IFB <H>,,< p( ..WD1==..WD pH1+1 IFG <. ph.WD1-F>, ..BT1==0 qh IFE <..WD r1-F>,< r(IFG <..BT1-E>,

s( >;end IFE <.. sHWD1-F> .. shTM1==1 >;en td IFB, >; t(end IFB,<H> tH IFE ..TM1,< th ..CT1==1 .. uSZ1==^D36 IF u(NB ,<..CT1== uHI> IFNB <H> uh,<..SZ1==H> v REPEAT ..CT1,< v( ..BT1==.. vHBT1+..SZ1 vhIFG <..BT1-^D35>, w< ..WD1==..WD1+ w(1 IFG <..WD1-F wH>, ..B x(T1==..SZ1-1 IFE xH <..WD1-F>,< xh IFG <..BT1-E>,< yPRINTX ?Sub level y( overflows top bi yHts for A.B> yh>;end IFE <..WD1- zF> >;end z( IFG <..BT1-^D35> zH IFNB < zhB>,< IFE ..TM1, {< $$$$ B,\.. {(BT1,\..SZ1,\..WD1 {H ..RX==10 {h RADIX ^D10 D |EFSTR (A.B,A$ |(B(G),\..BT1,\..S |HZ1) RADIX ..R |hX >;end IFE .. }TM1 ..TM1==..TM }(1+1 >;end }H IFNB }h >;end REPEAT ..C ~T1 >;end IFE ..TM1 nd IFE u1A S@P &\zP$N^ HP CAIA hJRST e LOAD .S AC,C,D IFNB < (B>,< SKIPA B, H.SAC >;end IFNB h IFB ,< SKIPA .SAC >; (end IFB e: IFB e:N^ w hP IRP A,< DEFINE SKPA (A (C,Y,STR) < .SKP H(A,AC,Y,STR) >; hend DEFINE SKPA >;end IRP A >}{woP