eio.o k = t
x
7
e
7
e rr iill7
v
w 7
j
b
w V
7
z
7
V
7
7
7
d
X
V
w f ,
J
( w 0j 7
|
w D% % w " w i a ^f ve g d |i dl hh Jx Tp - l0 t1 t2 t3 t4 t5 t6 t7 t8 t9 t, / ( ) " @ w z
x w n7 ^ w w \ w b
7 2 H w d w (k w
0 * " w P7 _ w l 4 7
w
$ 3
.
) &
w z7 w Z7lw . 6w B7X
e :e w f 7
~
w P zw w m ww @
@ 0 @# w e f
r
@Pe007w $
q 5 w f w w 0 | 0 Ћ
0 @e : 6 @ 0 8 W w 4d -
7 w f
-
7 w g
f
&
9
f @e &7 @l 7 @ 'f `
@e 7 1 @ w Bh
1
@
B
~ f
w 4 0 Wp
`@
A y
f\ 7
%
&
w 7
w 7
w
w w w 7
w`n w Rw 2w @: 6 2, "w e e ( e d w ~ e mw - w ,`
w 0 w @
w ~. w 0 w ~ @w ~ w - w + w
r
e0 w @e0 w &
7
: &
w v e mX cm `
7 - w 0 w @w ~ . w 0 w
~ @w ~ 7
n pr g
] ?V
P G ?@?: $ w P w d
x w o w 0 " w >
P w
w r ww
w Jf ҋ
t w ~w& w
w
ѕ
HH w t
T 1 , 7
?
7
7
w 8 r
? ? ?
&
w % + -
w % 0 0 @
e0 .
d + - e w J 2 ` &
, % w n &
+ - w 0 + -
w 0 u
p
`e0 , w &
w " w } z w D~w \ w |! 7
t w M J w D~\ w 1 @ 0 \ \ fortxx X rerr endio " rio4 " B rio8 " < iio2 " N iio4 " H lio2 " T lio1 " Z cio8 " cio16 " ecvt fcvt _ndigit slcnt
ilval
itype
iowf " v iowp " l iorf " formp $
setio rdflg
binflg itmfnd ^ scale \ itmflg pbuf ppar llpcnt fmtchr &llp crack ngflg ` rep Z item switch mswitch afmt ^ffmt vefmt gfmt dfmt |ifmt dlfmt hhfmt Jxfmt Tscal minus lnumb tslash lpar rpar quote @gnum elist _nocr $ d eorec1 eorec ngetitm 0crack1 width err1 ndig cvsw gflg
iocv iicv locv Plicv focv ficv docv dicv gocv gicv eocv eicv aocv aicv zxocv xicv hocv hicv qocv qicv getbuf " ~chkunit " creatf " openf " unit
utable $ btable $ 0 filnam
buffer
bufp
fputc .flush1 `fflush Rfgetc nlflg b fputcc Bnspace spaces getarg nflg
ilen
twidth fgetcn V
storin
gcflg gatof B atoi
iowu " l
ioru "
rewi "
enfl "
ftable $ X _end r1.o k = d \ \ \ &\ e &&&&\ & &\ H`" \
p` B `$"% \ %\ a \ \ \ w P ) gas1 "
gas2 " gas4 " gas8 " stop " lval " rval4 " 4 rval8 " $ do1 " Z do12 " B do14 " Z do2 " T do22 " > do24 " T goto " ~ cgoto " cagoto " agoto " rerr gotoe r2.o k > d N !# ! B 6 *
\
\ %H #p U\
\ %%%%%% ilt4 " ile4 " ieq4 " ine4 " $ ige4 " 0 igt4 " < lan2 " h lor2 " d lnt2 " p ieq2 " v ile2 " igt2 " ige2 " leq2 " v ine2 " ilt2 " | lne2 " leq1 " lne1 " compar R one H zero N r3.o k $> 0 H \ \ V \ lif2 " lif1 " rif4 " iif2 " " iif4 " rif8 " r4.o k 5> 4 e\ \ Vpf\
r\ \
\ \ &\ &\ iad2 " isb2 " imp2 " idv2 " i2i4 " i1i4 " i4i2 " i4i1 " ing2 " & rval2 " * rval1 " . l2l1 " 2 r5.o k I> 8 ` @ @ @ @f\
VH 6 \ iad4 " isb4 " imp4 " idv4 " ing4 " . rerr load " store r6.o k ^> | V&\ \ &\
&\
&\ rad4 " rad8 " rsb4 " rsb8 " rmp4 " rmp8 " rdv4 " * rdv8 " & rng4 " : rng8 " 6 r4r8 " D r8r4 " @ i4r4 " Z i2r4 " V r4i4 " r r8i2 " d i2r8 " L r4i2 " n i4r8 " P r8i4 " h rerr store 2 r7.o k r> e&\ e&\ e&\ e $&&\ e&\ w 2 &N`\ w & ew ` f\ bf~\
ePp~ f
Pp~N w f M w e&N`\ achk lvalp " rval1p " rval2p " rval4p " rval8p " & alval " 2 alvalp " arval " L arvalp " > rerr getsub h r8.o k > l (
\ pApf\ ipi2 " r9.o k > X <
6 6 w f\ w f\ %W@ @@ W@ @ M w I one @ipi4 " rpi4 " rpi8 " rerr ra.o k > 0 H V
f &\ A w ) 9 I rpr4 " rpr8 " log exp rerr error * rb.o k > < 0 ` &&\
E ` f\ \ call " callp " retrn " stsp " 8 rc.o k > \ e \ C C r CCf&\ T @ E@DD@CDD@ED@BD \ VEH
&&\ Vf&\
E f\
@
CDB &@f&w f&\ c8c16 " c16c8 " i4c8 " r4c8 " r8c8 " i4c16 " r4c16 " r8c16 " cad8 " , csb8 " < cmp8 " P cdv8 " n cng8 " cad16 " ( csb16 " 8 cmp16 " L cdv16 " j cng16 " rval16 " rval16p " gas16 " ceq8 " cne8 " ceq16 " cne16 " cpi8 " :cpi16 " >one @a b c d e f garg sarg d divide p rd.o k > . 0 Pp~ R
\
\ d b\ 8 9 8 slist1 " slist2 " slist3 " $ temp re.o k ? F l 6 . &
\ &
\ H rle8 " rlt8 " req8 " rne8 " rge8 " rgt8 " ( compar : one 0 zero 6 rf.o k ? F l 6 . &
\ &
\ H rlt4 " rle4 " req4 " rne4 " rge4 " rgt4 " ( compar : one 0 zero 6 rg.o k *? T` \ \ \ \ \ `\ `\ ` \ `\ ` \ gmv1 " gmv2 " gmv4 " gmv8 " gmv16 " stst " gmv1p " & gmv2p " . gmv4p " 6 gmv8p " B gmv16p " N rh.o k @?
#e\ w
#e&\
#e\
e$&&\
#؆e &\
ʆ ePf&\ achk gal1 " gal2 " gal4 " gal8 " gal16 " $ gar1 " @ gar2 " P gar4 " ` gar8 " x gar16 " rerr rx.o k P? ecore $