x ,5*@P C3<9@ C: y@ C;N:=P C@@ CC[R@ E^y@ E@ E:!htP EA@ EA@ EC|`@#a@ECH@#@ECI@#FEg&:=@ FD@ G@ G",:`P G"^ Z@ G; @ G>v= $2,AGC8@ I  ohJ IFN ApNYSIZ,< SKIPGE p(C ;THIS IS IMPEpHRFECT JRST [HRLphI C,RMBYTE ;HEREq IF "440700" C q( SOJA C,.+1] qH A B,C CAML qhC,[MAXBP,,0] JrRST [HRLI C,RMBYr(TE SOJA C,.+rH2] ADD C,[SIZ2rhPF,,0]> IFE AsNYSIZ,< IFNDEF s(SIZ, IFsHNDEF POZ, ;REGS 15 AND 16t SAVE t( LDB SIZ,[BPSIZtH1,,C] LDB POZ,th[BPPOS,,C] CAIuN POZ,44 ;CHARS u(ASSUMED LEFT ALIGuHNED JRST [IDIV uhPOZ,SIZ MOVE vPOZ,SIZ LDB Sv(IZ,[BPSIZ1,,C] vH DPB POZ,[BPPOSvh,,C] SOJA Cw,.+1] A B,C w( ADD POZ,SIZ CwHAIN POZ,44 ;CHARwhS ASSUMED LEFT ALxIGNED JRST [IDIx(V POZ,SIZ DPBxH SIZ,[BPPOS,,C] xh SOJA C,.+2] y DPB POZ,[BPPOS,y(,C] RESTOR > R ~(IFE ANYSIZ,< IF~HNDEF SIZ,~h SAVE LDB SIZ,[BPSIZ1,,B(P1] HRRZ A,R1 H SUB A,LEN1 HhRRZ T2,R0 SUBI T2,0(BP1) IMUL (T2,CPW$##(SIZ) HADD A,T2 LDB Th1,[BPPOS,,R0] LDB T2,[BPPOS,,BP1(] SUB T2,T1 IHDIV T2,SIZ ADD hA,T2 RESTOR > RESTOR ,< JRST [PUSH( P,[B] JRST HA]> IFB <B>,< PUSHJ P,A> h> IFNB <B>,<   PUSH P,AP IRP  (B, <$ H1>,  h IFIDN <B> <$ 2>,  ( IFDIF <B> < H$1>,< IFDIF < hB> <$2>,<   IFG ST....,  h ST....=1>>>   R.....=0 I (RP B, <$1>, IFIDN <B> <$2>, IFDIF <HB> <$1>,< IFDhIF <B> <$2>,<  IFE ST....,<(T......=T......+1H PUSH P,hB> IFL ST...., hIFG ST...., ST....H=1>>>> MOVEI APh,-T.....+R.....+1(P) PUSHJ P,A ( IFNB <B>,< SHUB P,[T.....,,T..h...] POP P,AP>..] POP P,AP>Q&=P Q&Ep@ SAi @ Su|R@ S:%@ $1,ASB~:=@$A`YvX@@ Yr@ Yr @ Y>=1  , C.....=(0 IFNB <B>,< IHRP B,> PUSHJ P,(A IFN C.....,<H SUB P,[C.....,,C.....]> ...,,C[0@ [D,@#P[83P ['E[r@ [1@ [>$P@ [?SH@ ]>5@ _$@ `@ a @ a!ht@ aJ0@ a? !< SUB P,D(13D13## HRLZ APH,P ADD AP,[1,,2] BLT AP,16,2a?@ a? @ aN.YP d@@ dD@ dH@ eKy h!& IRP A,< POP P,A> A,e&XY@ e&\W H!4 JRST RAX$## JRST RAe6@ `g4 (!0 HRRZ R0H,P ADD R0,[2,,1h] BLT R0,16(P)  ADD P,D13D13## ADD P,D13D13##g4P (!" IRP A,< PUSH P,A>A,g& z !P IFE PSE(UDO,< SKIPN PSUH.R0## ;0 MEANS INhISTR NOT CALLED  POPJ P, MOVEM (R0,@PSU.R0## MOHVEM R1,@PSU.R1## h POPJ P,> IFN PSEUDO,< POPJ P,>DO,< POPJ Pg'R,@ pgPuX@ gSk[P gSS  B LDB R0,([TYPCOD+B,,A] H MOVEI R1,@A(hB) LOCSUB CANON$## IFNB <C>, ( IHFNB <D>, IFE BND.CH,< IFNB <E>,( > HLRZM R1,E>> g[@ h@@ hD@ i:=@ @i2I @ i TTCALLig;r@"qo"L:@ sj7@ t;@ S@P >}{woP