Trailing-Edge
-
PDP-10 Archives
-
isi-saio_19830204
-
isi-sa10/macsym.unv
There are 97 other files named macsym.unv in the archive. Click here to see a list.
x ,5@P C4 @
(0j
..NAC==
H0
IRP A,<
h .ACV1 (A)>
.ACV3 (\..NAC)
DEFINE ENDAV.<.ENAV1 <A>>V.<C:$S@ LH,d
..TAGF (<JUMPN A,>,) C:$s@ MH,l
..TAGF (<JUMPLE A,>,)C:$y' N,p
..TAGF (<JUMPL A,>,) C:%C@ O,x
..TAGF (<JUMPGE A,>,)C:%I' NH,t
..TAGF (<JUMPG A,>,) C:%c@ M,h
..TAGF (<JUMPE A,>,) C:&' PH-
..TAGF Ph(<JN <A>,<B>,>,)N <A>,<B>,>,C:&G Q(-
..TAGF QH(<JE <A>,<B>,>,)E <A>,<B>,>,C:' H!d
TXZ A,<^-<B>>TXZ A,C:' ' OH,|
..TAGF (<JXN A,B,>,)C:' G P-
..TAGF (<JXE A,B,>,)C:v:g K,X
TRNA
..TAGF (JRST,) C; < JH,T
..TAGF (JRST,) ..TAGF CO,,@ X0A
..TRR==x10
RADIX 8
..NV==1
IRP 8A,<
.TRV1 (XA)>
IFG ..NV-x5,<PRINTX ?TOO MANY ARGUMENTS: A>8
JSP .A16,.ASSEXT
RADIX ..TRRx
DEFINE ENDAS.<.ENSV1 <A>>
.ENSV1 <A>>
E2 81s
..NA==0 X
IRP B,<
x .BLCL2 B>
PUSH P,[..NA+1,,. 8.NA+1]
PUSHJ P,A
SHJ PE3 XG x1[
..TRR==10
RADIX 8 8
..NA==2
XIRP A,<
..NAx=..NA+1>
IRP A,<
.BLSU1(8A,\..NA)
..NXA=..NA-1>
..NV=x=1
IRP B,<
.TRV1 (B)> 8
DEFINE ENDBS.X <.ENBS1 <A>
x.ENSV1 <B>>
JSP .A16,.ENTER
8..NV-1,,..NV-1
RADIX ..TRR1
EJMj' i0.Sv
W0.==A
W1.==B ;INITjIALIZE BREAK MASKj8
W2.==C
W3.==D
==C
W3.==72.A0($UN.,@6R0B,<
6T0QAB (6V0 ..SEJZ d.5 ..V22==ad0
..V1==a
IFNdPB <B>,<..V22==Bdp>
REPEAT ..V22-<ea>+1,<
%%W==.e0.V1/^D32
%%X==eP..V1-%%W*^D32
epIFE C,BRKC1 \"<%f%W+"0">
IFN Cf0,BRKC2 \"<%%W+"0"fP>
..V1==..V1+1
>
.V1+1 g.9 WA.==WA.!<1B<%%X>>
AEJ\4@ gP.? WA.==WAgp.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: bP.
%%FOO==bpa
BRK0 (%%FOO,B,0)
(%%FOO,EJn:g jx.a
BRINI. Ak,B,C,D
IRPCk8 E,< UNBRK. "E"kX>
IRPC F,< BRkxKCH. "F">
EXPl W0.,W1.,W2.,W3.
W1.,W2.,W3. Ge@ , GeLR +I tH'&
..STR0 th(.DECR0,,<A>,B)DECR0,,<A>,B)I6= HH$R
A==<-1HhB<C>+1B<C-D>> I
IF1,<IFDEF %AI(,<PRINTX ?A ALREIHADY DEFINED>>
DIhEFINE %A (OP,AC,JY,MSK)<
$A==<ZJ( B>
OP (<AC>,B'Y,MSK)><AC>I<p !h*
..SVLD "
a:!
D"(EFINE OD. <
b:!"H
.POPX>
DEFINE LOOP. <#
JRST a>
#(DEFINE TOP. <a> #H
DEFINE ENDLP#h. <b>
DEFIN$E EXIT. <
JRST b>T. <
JRST K+ \Y`p07p07p07p074 p07-bp07UN.,HK+ `p07-p07*p07-p07'4 p07*-dp07'UNEMK3 S@ ,Z....UK:$Kg *"
OD.K:%G ,\....UKCm )x2YDEFINE ..E*P. (LOCN,PTEXT)
*8 <PRINTX Loca*Xtion 'LOCN': PTEX*xT
>
..E+P.(\.,<A>)
PURGE ..EP.
KJn9` `p.
ERJMP [aTMSG <? A>
JSHLT]
A>
JKc aP.
IF2,<ap
IRP A,<
IFNbDEF A,<EXTERN A
SUPPRE A>>>M2 ( r<<<A>B<POS(B)>>&<B>>POM2$*g pX/+
..XX==<pxFLD(A,CM%FNC)>+qB+<Z G>
IFNBq8 <D>,<..XX=CM%HPqXP!..XX>
IFNB qx<E>,<..XX=CM%DPPr!..XX>
IFNB <r8F>,<..XX=CM%BRK!rX..XX>
..XX
rxIFNB <C>,<C>
s IFB <C>,<0>
s8 IFNB <D>,<POINsXT 7,[ASCIZ D]>sx
IFB <D>,<IFtNB <EF>,<0>>
t8 IFB <E>,<IFNB tX<F>,<0>>
IFNtxB <E>,<POINT 7,[uASCIZ \E\]>
u8IFNB <F>,<F>
<F>,<F>
M2$HG lX/
..XX==<lxFLD(A,CM%FNC)>+mB+<0,,F>
IFNm8B <D>,<..XX=CM%HmXPP!..XX>
IFNBmx <E>,<..XX=CM%DPnP!..XX>
..XX
n8 IFNB <C>,<C>
nxIFB <C>,<0>
IFNB <D>,<POoINT 7,[ASCIZ Do8]>
IFB <D>,<oXIFNB <E>,<0>>
ox IFNB <E>,<POINpT 7,[ASCIZ \E\]>7,[ASCIZ \E\]>M7 p ^0-w
HRROI .^PAC2,[ASCIZ \A\]
MOVEI .AC3,0
SOUTI .AC3,0
M?c@ H!
DEFINEh e(C)<D>
..FORN==A
REPEAT B(-A+1,<
.FORN1 H(e)
..FORN=..FORN+1>.FORN=..FM?@ H!
DEFINEh d (B)<C>
IRP A,<
.FORX1 d,A>
.FORX1<NFv(..ERR.=0 =
..ENC.=0
=( IFE B-7,
==H <..ENC.=^O57
IFN D-^O44,<>IFN D-^O35,<IFN >(D-^O26,<IFN D-^>HO17,<IFN D-^O10,>h
<IFN D?-1<..ERR.=..ERR.!?(1>>>>>>
>
I?HFN B-7,
<?hIFE B-6,
<@..ENC.=^O45
@( IFN D-^O44,<@HIFN D-^O36,<IFN @hD-^O30,<IFN D-^AO22,<IFN D-^O14,A(
<IFN D-6,<IAHFN D,<..ERR.=.ERAhR.!1>>>>>>>
B >
IFN B-6, B(
<IFE B-BH^O10,
<..BhENC.=^O50
C IFN D-^O44,<IC(FN D-^O34,<IFN CHD-^O24,<IFN D-^OCh14,<IFN D-4,
D <..ERR.=.ERR.!1>D(>>>>
>
DH IFN B-^O10, Dh
<IFE BE-^O11,
<..ENC.E(=^O62
IFN DEH-^O44,<IFN D-^O3Eh3,<IFN D-^O22,<IFFN D-^O11,<IFN F(D,
<..ERR.=..FHERR.!1>>>>>
>
IFN B-^OG11,
<IFE B-G(^O22,
<..ENCGH.=^O54
IFNGh B-^O44,<IFN B-H^O22<IFN B,<..ERH(R.=..ERR.!1>>>
HH >
IFN B-^OHh22,<..ERR.=..ERR.I!2>
>
I( >
>
IH>
IFN <<C>&<-1,,Ih0>>,<..ERR.=..ERRJ.!4>
J(
IFN <<A>&<^O<JH-1,,770000>>>,<..JhERR.=..ERR.!<^O20K>>
IFN ..ERR.,K(
<IFN ..ERR.&KH1,<MPRNTX (G1BPT,KhIllegal byte offsLet: D)>
IFN L(..ERR.&2,<MPRNTX LH(G1BPT,Illegal byLhte size: B)>
M IFN ..ERR.&4,
M( <MPRNTX (G1BPMHT,<Address indexeMhd, indirect, or gNreater than 18 biN(ts: C>)>
IFNNH ..ERR.&<^O20>,<MNhPRNTX (G1BPT,SectOion greater than O(12 bits: A)>
OH -1,-1,-1
>Oh
IFE ..ERR.,P
<<<..ENC.+<<P(B>-<<D>/<B>>>>PH_<^O36>>!<<C>&<0Ph,,-1>>!<<A>_^O<2Q2>>>
PURGE ..ERR.,..ENC.
.E733a^O44-LNJ
..ERR.=0 ](
]H.BSIZ.=B
.BPOS.=D
I]hFN <<A>&<^O<-1,,^770000>>>,
<M^(PRNTX(G2BPT,Secti^Hon greater than 1^h2 bits: A)
._.ERR.=1
>
I_(FN <<C>&<^O<7777_H40,,0>>>,
<MP_hRNTX(G2BPT,Bits 0` - 12 non-zero in`( address field: `HC)
..ERR.=1
`h >
IFN <<E>&a<-1,,0>>,
<MPa(RNTX(G2BPT,Bits 0aH-17 non-zero in oahptional field: Eb)
..ERR.=1
b( >
IFN <.BSIZ.bH&<^O<-1,,777700>>bh>,
<MPRNTX(G2cBPT,Bytesize greac(ter than 6 bits: cHB)
ch..ERR.=1
>
IFN <.BPOdS.&<^O<-1,,777700d(>>>,
<MPRNTX(dHG2BPT,Byte offsetdh greater than 6 beits: D)
..ERe(R.=1
>
IFN eH..ERR.,<-1,-1,-1>eh
IFE ..ERRf.,
<IFDIF <Df(><>,<<<POINT .BSIfHZ.,E,.BPOS.>!1B1fh2>&<^O<777740,,-1g>>>
IFIDN <Dg(><>,<<<POINT .BSIgHZ.,E>!1B12>&<^O<gh777740,,-1>>>
h
<<<C>_h(<^O14>>&<^O<37000hH0,,0>>!<<C>&<0,,hh-1>>!<<A>_<^O22>i>>
>
PURGE i(..ERR.,.BSIZ.,.BPOS.
BSIZ.,.BP755c0:g.WON{ .x3 ..ERR.=0 /
IFN <<A>&<^O</8-1,,770000>>>,
/X <MPRNTX(GFIWM,S/xection greater th0an 12 bits: A)
08 ..ERR.=1
>0X
IFN <<B>&<^O<0x777740,,0>>>,
1 <MPRNTX(GFIWM,Bi18ts 0 - 12 non-zer1Xo in address fiel1xd: B)
..ERR.2=1
>
IFN ..28ERR.,<-1,-1,-1>
IFE ..ERR2x.,<
<<<B>_<^3O14>>&<^O<370000,38,0>>!<<B>&<0,,-13X>>!<<A>_<^O22>>>3x>
PURGE ..ERR.
PURGE..ERR.
JUMPN 6(A,b
..SVDF 6H
DEFINE ..TA6hGF (INST,PCT)<
7INST b'PCT>
7( DEFINE ..TAGE (7HINST,PCT)<
INST c'PCT>
STS.:g 4h+,
PRINTX 5% IFESK. should b5(e changed to IFNJ5HE.
IFNJE. <A>.
IFNJE. <A>S9` :+\
JUMPLE :(A,b
..SVDF :H
DEFINE ..T:hAGF (INST,PCT)<
; INST b'PCT>
;( DEFINE ..TAGE ;H(INST,PCT)<
INST c'PCT>
SS<S@ <+l
JUMPL <(A,b
..SVDF <H
DEFINE ..TA<hGF (INST,PCT)<
=INST b'PCT>
=( DEFINE ..TAGE (=HINST,PCT)<
INST c'PCT>
STST\G *H*l
IFB <*hAB>,<
..SVD+F
ERJMP e +(
JRST c
e:+H!
DEFINE ..TA+hGF (INST,PCT)<
,INST c'PCT>
,( DEFINE ..TAGE (,HINST,PCT)<
INST,h d'PCT>
>
- IFNB <AB>,< -(
ERJMP c
-HB
JRST d
c:! A
d:!>
c:!Sa` @,
JUMPGE @(A,b
..SVDF @H
DEFINE ..T@hAGF (INST,PCT)<
A INST b'PCT>
A( DEFINE ..TAGE AH(INST,PCT)<
INST c'PCT>
SSdS@ >+|
JUMPG >(A,b
..SVDF >H
DEFINE ..TA>hGF (INST,PCT)<
?INST b'PCT>
?( DEFINE ..TAGE (?HINST,PCT)<
INST c'PCT>
STSq` 8+L
JUMPE 8(A,b
..SVDF 8H
DEFINE ..TA8hGF (INST,PCT)<
9INST b'PCT>
9( DEFINE ..TAGE (9HINST,PCT)<
INST c'PCT>
STSt\g .*v
PRINTX .(% IFNES. should b.He changed to IFJE.hR.
IFJER. <A>,<B>FJER. <A>,Su)' 2+"
IFB <2(A>,<
..SVDF 2H
ERJMP b
2h DEFINE ..TAGF (I3NST,PCT)<
INST 3(b'PCT>
DEF3HINE ..TAGE (INST,3hPCT)<
INST c'P4CT>
>
IFN4(B <A>,<
ERJMP b
A
b:!> Sv:g '*P
IFB <'(AB>,<
..SVD'HF
TRNA
'hJRST c
DEF(INE ..TAGF (INST,((PCT)<
INST c'P(HCT>
DEFINE (h..TAGE (INST,PCT))<
INST d'PCT> )(
>
IFNB <)HAB>,<
JRST )hc
B
JRST *d
c:! A
d:!>
c:! A
d:!>S
S@ F,>
JN <A>F(,<B>,c
..SVDFHF
DEFINE .Fh.TAGF (INST,PCT)<G
INST c'PCT> G(
DEFINE ..TAGGHE (INST,PCT)<
IGhNST d'PCT>
ST d'PCT>
S H(,P
JE <A>HH,<B>,c
..SVDHhF
DEFINE .I.TAGF (INST,PCT)<I(
INST c'PCT> IH
DEFINE ..TAGIhE (INST,PCT)<
IJNST d'PCT>
ST d'PCT>
S < /(+
IFB </HA>,<
..SVDF /h
JRST b
0DEFINE ..TAGF (IN0(ST,PCT)<
INST 0Hb'PCT>
DEFI0hNE ..TAGE (INST,P1CT)<
INST c'PC1(T>
>
IFNB1H <A>,<
JRST b
A
b:!> bSDS@ B,
JXN A,B(B,c
..SVDF BH
DEFINE ..TABhGF (INST,PCT)<
CINST c'PCT>
C( DEFINE ..TAGE (CHINST,PCT)<
INST d'PCT>
STSEc@ D,,
JXE A,D(B,c
..SVDF DH
DEFINE ..TADhGF (INST,PCT)<
EINST c'PCT>
E( DEFINE ..TAGE (EHINST,PCT)<
INST d'PCT>
STS: r('
..STR0 rH(.INCR0,,<A>,B)INCR0,,<A>,B)S? !`
TXO A,<B>
TXO A,Ut@ h(B
..STR1 (..JAN,<d,<C>>,(<A>,B,..STR5)
d:B,..STR5)
U {H'^
..STR1 {h(..JE,<C>,<A>,B,..STR3)<A>,U8 (
..STR1((..JN,<C>,<A>,B,..STR3)<A>,U:
..STR1 H(..JNA3,<C>,<A>,B,..STR4)<A>U:~ (\
..STR1 ((..JNO,<d,<C>>, H<A>,B,..STR5)
d:B,..STR5)
U? H(&
..STR1 h(..JN,<C>,<A>,B,..STR4)<A>,UN.,@`p07p07p07p07
, p07-bp07
UN.,HUN.,HA UN.,HUNEM`p07$p07!p07$p07 , p07!-dp07 UNEMUNEMA UNEMUNn9hA UNn9hUb( 0(#
..JX1==0HB
.IFN ..JX10h,ABSOLUTE,<PRINTX1 B NOT ABSOLUTE
..JX1==0>
.I1HF ..JX1,ABSOLUTE,1h<
.IF0 <<..JX1>2-1B0>,<
JUMPG2(E A,C>,<
.IF02H <<..JX1>+1>,<
2h JUMPE A,C>,<3
TXNN (A,..J3(X1)
JRST C>>>)
JRST C>>>Ub0 ;(#v
..JX1==;HB
.IFN ..JX1;h,ABSOLUTE,<PRINTX< B NOT ABSOLUTE
..JX1==0>
.I<HF ..JX1,ABSOLUTE,<h<
.IF0 <<..JX1>=-1B0>,<
JUMPGE=( A,C>,<
..ONE=HB (..BT,B)
.I=hF0 ..BT,<
SET>CM .SAC,A
>(JXN (.SAC,..JX1,>HC)>,<
TXNN>h A,..JX1
JRST C>>> Ubp 3h#6
..JX1==4B
.IFN ..JX14(,ABSOLUTE,<PRINTX4H B NOT ABSOLUTE
..JX1==0>
.I5F ..JX1,ABSOLUTE,5(<
.IF0 <<..JX1>5H-1B0>,<
JUMPL5h A,C>,<
.IF0 6<<..JX1>+1>,<
6( JUMPN A,C>,< 6H
TXNE (A,..JX6h1)
JRST C>>>)
JRST C>>>Ubx 7(#V
..JX1==7HB
.IFN ..JX17h,ABSOLUTE,<PRINTX8 B NOT ABSOLUTE
..JX1==0>
.I8HF ..JX1,ABSOLUTE,8h<
.IF0 <<..JX1>9-1B0>,<
JUMPL 9(A,C>,<
..ONEB9H (..BT,B)
.IF9h0 ..BT,<
SETC:M .SAC,A
J:(XE (.SAC,..JX1,C:H)>,<
TXNE :hA,..JX1
JRSTC>>> .=AJXF
.BPOS.=C
.4x.ERR.=0
IFN <5<B>&<^O<777740,,580>>>,
<MPRNTX5X(L1BPT,Bits 0 - 15x2 non-zero in add6ress field: B)
68 ..ERR.=1
>6X
IFN <.BSIZ.&<^6xO<-1,,777700>>>,
<MPRNTX(L1BPT78,Bytesize greater7X than 6 bits: A)7x
..ERR.=1
8 >
IFN <.BPOS.&88<^O<-1,,777700>>>8X,
<MPRNTX(L1B8xPT,Byte offset gr9eater than 6 bits98: C)
..ERR.=9X1
>
IFN 9x<..ERR.>,<-1,-1,-:1>
IFE <..ER:8R.>,
<IFIDN <:XC><>,<POINT .BSI:xZ.,B>
IFDIF ;<C><>,<POINT .BS;8IZ.,B,.BPOS.>
;X >
PURGE ..ERR;x.,.BSIZ.,.BPOS.
BSIZ.,.BPOS.
XJ Qh5av8..ERR.=0 R
R8.BSIZ.=A
.BPOS.=C
IRXFN <<B>&<^O<7777Rx40,,0>>>,
<MPSRNTX(L2BPT,Bits 0S8 - 12 non-zero inSX address field: SxB)
..ERR.=1
T >
IFN <<D>&T8<-1,,0>>,
<MPTXRNTX(L2BPT,Bits 0Tx-17 non-zero in oUptional field: DU8)
..ERR.=1
UX >
IFN <.BSIZ.Ux&<^O<-1,,777700>>V>,
<MPRNTX(L2V8BPT,Bytesize greaVXter than 6 bits: VxA)
W..ERR.=1
>
IFN <.BPOW8S.&<^O<-1,,777700WX>>>,
<MPRNTX(WxL2BPT,Byte offsetX greater than 6 bX8its: C)
..ERXXR.=1
>
IFN Xx..ERR.,<-1,-1,-1>Y
IFE ..ERRY8.,
<IFDIF <CYX><>,<<<POINT .BSIYxZ.,D,.BPOS.>!1B1Z2>&<^O<777740,,-1Z8>>>
IFIDN <CZX><>,<<<POINT .BSIZxZ.,D>!1B12>&<^O<[777740,,-1>>>
[[8 <1B0!<<^O<4000[X37,,-1>>&<B>>>
>
PURGE ..E\RR.,.BSIZ.,.BPOS.
BSIZ.,.BPOS.745
0
YN{ +X2s..ERR.=0 +x
IFN <<A>&<^O<,777740,,0>>>,
,8 <MPRNTX(LFIWM,Bi,Xts 0 - 12 non-zer,xo in address fiel-d: A)
..ERR.-8=1
>
IFN ..-XERR.,<-1,-1,-1>
IFE ..ERR.,<1B0.!<<^O<400037,,-1>.8>&<A>>>
PURGE ..ERR.
PURGEY>
@ b(&
..STR0 bH(..LDB,A,B,C)..LDB,A,B,C)[ 8@ H |<1B<<A>-1>-1B<B>><A>-1[>!` !<<A>-<<A>/<B>>*<B>>A[?7 h!P
..MX1==B
H.IFN (..MX1,ABSOLUTE,<
MOVE A,[B]>
h .IF ..MX1,ABSOLUTE,<
..MX2==0(
IFE <..MX1>BH53,<
..MX2==1h
MOVEI A,..MX1>
IFE ..MX2,(<
IFE <..MX1>HB17,<
..MX2==h1
MOVSI A,(..MX1)>>
IFE ..(MX2,<
IFE <<.H.MX1>B53-^O777777h>,<
..MX2==1
HRROI A,<..M(X1>>>
IFE ..MXH2,<
IFE <<..MhX1>B17-^O777777B17>,<
..MX2==1(
hHRLOI A,(..HMX1-^O777777)>>
IFE ..MX2,<
MOVE A,[..MX1]>
>,[..MX1[Cm 'X2KDEFINE ..M'xP. (LOCN,MTEXT,PT(EXT)
<PRINT(8X Location 'LOCN'(X, Macro 'MTEXT': (xPTEXT
>
) ..MP.(\.,A,<B>)8)
PURGE ..MP.
URGE ..MP.[N^= Jh$b
A==C K
IF1,<IFDEF %K(A,<PRINTX ?A ALRKHEADY DEFINED>>
KhDEFINE %A (OP,ACL,Y,MSK)<
$A==<L(Z B>
OP (<AC>,B'Y,MSK)><AC[Xp H!V
MOVE .ShAC,A
MOVEM .SAC,B
MOVEM .SA[ZI` (!\
MOVX .SHAC,<A>
MOVEM .SAC,B
MOVEM ._C L@ vh'8
..STR0 w(.OPST1,<A>,<B>,C)1,<A>,<B>_C LV y'J
..STR0 y((.OPST2,<A>,<B>,C)2,<A>,<B>`@ a
,TQ a
, Q a
,*9Q a
,>(Q a
,>(Q a
,k{Q a
,m3Q a
-J8Q @a
-iQ a
-}SQ @a
.Z7Q a
.\yQ a= _0-
IFNB _P<A>,<
TMSG <A_p>>
CALL JSMSG0>
CALL JSMSG0a 4\G 0
..PGV0=P=.
.JBVER=:^Op137
LOC .JBVER
BYTE (3)D(09)A(6)B(18)C
P .ORG ..PGV0
.ORG ..PGV0
a>Mm<NTBWIDB),A,POS(B)>a? de ,~e&:x ]-iJRST RSKPkJRST RSKPeN^A eN^g XY X0Y
..TRR==x10
RADIX 8
..NV==1
IRP 8A,<
.TRV1 ( XA)>
IFG ..NV- x5,<PRINTX ?TOO MA
NY ARGUMENTS: A>
8
JSP .A16,.SASE
XT
RADIX ..TRR
x
DEFINE ENDSA .<.ENSV1 <A>>
.ENSV1 <A>>
g4X1 H1:
.NAC==0h
IRP A,<
PUSH P,A
.N(AC=.NAC+1>
.NH1==.NAC
SETMI .hA16,[CAIA
AOS -.N1(P)
IRP( A,<
.N1=.N1-H1
MOVE A,-.N1h(P)>
SUB P,[.NAC,,.NAC]
(POPJ P,]
PUSH P,.A16
PUSH g$;8 o&z
..STR1 o((..TQC,,<A>,B,..STR4)<A>,B,.g%{R kH&^
..STR1 kh(..TQO,,<A>,B,..STR4)<A>,B,.g',W gh&@
..STR1 h(..TQZ,,<A>,B,..STR4)<A>,B,.gR$g (
F=:0
T1H=:1
T2=:2
T3=:3h
T4=:4
Q1=:5
Q2=:6
Q3=:7
P1=:(10
P2=:11
P3=:1H2
P4=:13
P5=:14h
P6=:15
CX=:16
P=:17
CX=:16vh/F
..STKR=w=10
RADIX 8
w( ..STKN==0
IRP wHA,<
.STKV1 (whA)>
JSP .A16,.xSTKST
..STKN,,x(..STKN
RADIX ..xHSTKR
DEFINE ENDxhSV.<.ENSV1 <A>>
gR~NSV1<A>>
..STR0e((..DPB,A,B,C)..DPB,A,B,C)i6tP
..STR1E,<A>,B,..STR3)<A>,B,i6u` h)
..STR1 (..TYNN,,<A>,B,..STR3)<A>,B,i7 p ]P-o
HRROI .]pAC1,[ASCIZ \A\]
PSOUTZ\A\]
..ShTR1 (..TY,C,<A>,B,..STR3)<A>,iF h)p
..S TR1 (..TY,CA,<A>,B,..STR3)<A>iF P ()d
..S HTR1 (..TY,CE,<A>,B,..STR3)<A>iF ` )j
..S (TR1 (..TY,CN,<A>,B,..STR3)<A>iFp H)
..ShTR1 (..TY,N,<A>,B,..STR3)<A>,iFt h)(
..STR1 (..TY,NA,<A>,B,..STR3)<A>iFtP ()
..SHTR1 (..TY,NE,<A>,B,..STR3)<A>iFu` )"
..S(TR1 (..TY,NN,<A>,B,..STR3)<A>iFx H).
..ShTR1 (..TY,O,<A>,B,..STR3)<A>,iF| h)@
..STR1 (..TY,OA,<A>,B,..STR3)<A>iF|P ()4
..SHTR1 (..TY,OE,<A>,B,..STR3)<A>iF}` ):
..S(TR1 (..TY,ON,<A>,B,..STR3)<A>iGP H)F
..ShTR1 (..TY,Z,<A>,B,..STR3)<A>,iGT h)X
..STR1 (..TY,ZA,<A>,B,..STR3)<A>iGTP ()L
..SHTR1 (..TY,ZE,<A>,B,..STR3)<A>iGU` )R
..S(TR1 (..TY,ZN,<A>,B,..STR3)<A>iK4 @ X0
..TRR==x10
RADIX 8
..NV==1
IRP 8A,<
.TRV1 (XA)>
JSP .A16,x.TRSET
..NV-1,,..NV-1
RADIX8 ..TRR
DEFINEX ENDTV.<.ENSV1 <A>>
.ENSV1 <ib ("@
..TX(C,A,<B>)..TX(Cib )H"L
..TX(CA,A,<B>).TX(Cib P (H"D
..TX(CE,A,<B>).TX(Cib ` )"H
..TX(CN,A,<B>).TX(Cibp ""
..TX(N,A,<B>)..TX(Nibt #H"
..TX(NA,A,<B>).TX(NibtP "H"
..TX(NE,A,<B>).TX(Nibu` #"
..TX(NN,A,<B>).TX(Nibx $"
..TX(O,A,<B>)..TX(Oib| %H",
..TX(OA,A,<B>).TX(Oib|P $H"$
..TX(OE,A,<B>).TX(Oib}` %"(
..TX(ON,A,<B>).TX(OicP &"0
..TX(Z,A,<B>)..TX(ZicT 'H"<
..TX(ZA,A,<B>).TX(ZicTP &H"4
..TX(ZE,A,<B>).TX(ZicU` '"8
..TX(ZN,A,<B>).TX(Zk:*g c0.
%%FOO==cPa
BRK0 (%%FOO,B,1)
(%%FOO,m$,YP'm$-X5Q |m$-Z7Q xm$.zQ po&
H d<^L<-<<A>_<^L<A>>>-1>>>q
fC@ v/0
EXTEND A,[XBLT]XTEND q"eJ P q6~i4 C q? !h
TXC A,<B>
TXC A, : h $
A :&@ eh&:
..TSIZ f(..PST,C)
.CASf(E ..PST,<<
MOVfHEM A,B>,<
HRfhRM A,B>,<
HRgLM A,B>,<
DPg(B A,[POINTR (B,C)]>>INTR (B, :<;Y a(&
DEFINaHE ..CNS2 (NEW,OLDah)<
OLD>
..CNS ()>
:L;Y _&
DEFIN_(E ..CNS (ARG)<
_H..CNS2 <ARG>,>
h
DEFINE ..CNS2` (NEW,OLD)<
DEF`(INE ..CNS (ARG)<
..CNS2 <ARG>,`h<OLD'NEW>>>
OLD'NEW>>>
:Mi R-
DEFINE R(ELSE. <
..TAGE RH(JRST,)
..TAGRhF (,<:!>)
SYNS ..TAGE,..TAGF
S( DEFINE ELSE. <SH....U>>
DEFIShNE ENDIF. <
..TTAGF (,<:!>)
..RSDF>
. :TH h(F
..JNA3 (A,C,D)JNA3 :TI ((T
..TSAC H(..ACT,C)
.IF0 h ..ACT,<
SETC
M .SAC,C
JX
(E (.SAC,D,<B>)>
H,<
JXO (C,D,<B>)>O (C, :TP |('|
..TSAC |H(..ACT,B)
.IF|h0 ..ACT,<
..T}SIZ (..PST,C)
}( .CASE ..PST,<<}H
SKIPN B
}hJRST A>,<
HRR~Z .SAC,B
JUM~(PE .SAC,A>,<
~HHLRZ .SAC,B
~hJUMPE .SAC,A>,<
MOVE .SAC,B
JXE (.SAC,C,<HA>)>>>,<
JXE (B,C,<A>)>E :U` h(
..TSAC (..ACT,B)
.IF(0 ..ACT,<
..THSIZ (..PST,C)
h .CASE ..PST,<<
SKIPE B
J(RST A>,<
HRRZH .SAC,B
JUMPhN .SAC,A>,<
HLRZ .SAC,B
J(UMPN .SAC,A>,<
H MOVE .SAC,B
h JXN (.SAC,C,<A>)>>>,<
JXN (B,C,<A>)>N :Uh) (:
..TSAC ((..ACT,B)
.IF0H ..ACT,<
SETChM .SAC,B
JXN (.SAC,C,<A>)>(,<
JXF (B,C,<A>)>F (B, :Ukh
(`
..JN (A,C,D)..JN ( :Uki
H(d
..JE (<B>,C,D)JE (< :dH@ c&$
..TSIZ c((..PST,C)
.CAScHE ..PST,<<
MOVchE A,B>,<
HRRdZ A,B>,<
HLRd(Z A,B>,<
LDBdH A,[POINTR (B,C)]>>INTR (B, :}i1 Gh$@
A==<<<H-<B>>&<B>>&<1B<^L<B>>>>>&<1B< ;9 -8
.POPX ; LH Lh$v
IFNDEF MC,<PRINTX ?C ISM( NOT DEFINED
MHA (<B>,D,.FWORMhD)>
IFDEF C,<N
IFNDEF %C,<
N( A (<B>,D,CNH)>
IFDEF %C,<Nh
%C (A,<B>,D,C)>>A,<B> ; LH O(%4
..NS==0OH
IRP C,<..NOhS=..NS+1>
IFE P..NS,<PRINTX ?EMPP(TY STRUCTURE LISTPH, A>
IFE ..NS-Ph1,<
..STR0 Q(A,<B>,<C>,D)Q(>
IFG ..NS-1,< QH
..ICNS
.Qh.CNS (<E (A,<BR>,,>)
IRP C,<R(
IFNDEF C,RH<PRINTX C NOT DERhFINED>
IFDEF SC,<
IFNDEF %S(C,<
..CNS (<SH,C,D>)>
IFShDEF %C,<
%CT (..STR2,,D,C)>T(
..CNS (<)>)TH
..GCNS
Th ..ICNS
.U.CNS (<E (A,<BU(>>)
IFNDEF %UHC,<
..CNS (<Uh,C,D>)>
IFVDEF %C,<
%CV( (..STR2,,D,C)>VH>>
..CNS (<,,)>)
..GCNS>) ; LI W%8
..CNS (<,C,B>).CNS ( ; LI WH%N
IFDIF <WhD><F>,<
IFNXB <D>,<
AX( (<B>,D,..MSK) XH
IFNB <F>,Xh<PRINTX C AND EY ARE IN DIFFERENTY( WORDS>>
..MSYHK==0>
IFNB <YhF>,<
..MSK=..MSK!<E>>MSK=.. ; LJ Z(%^
IFDIF <ZHD><F>,<
IFZhNB <D>,<
[A (<B>,D,..MSK)[(>
..MSK==0> [H
IFNB <F>,<
[h ..MSK=..MSK!<E>>MSK=..MSK!< ; LJ \(%t
IFDIF <\HD><F>,<
IF\hNB <D>,<
I]FNB <F>,<
](A1 (B,D,..MSK)>]H
IFB <F>,]h<
A2 (B,D^,..MSK)>>
..^(MSK==0>
IFNB ^H<F>,<
..MSK=..MSK!<E>>MSK= ; i TH-6
SYN ELSThE.,a
SYN ENDIFU.,b
SYN ..TAGFU(,c
SYN ..TAGE,UHd
.PSHX <
UhSYN a,ELSE.
VSYN b,ENDIF.
V( SYN c,..TAGF
VH SYN d,..TAGE>
..INDF
NDF
; k $h*4
SYN OD.%,a
SYN LOOP.,%(b
SYN TOP.,c
%H SYN EXIT.,d
.%hPSHX <
SYN a,&OD.
SYN b,LOO&(P.
SYN c,TOP.&H
SYN d,EXIT.> SYN d,EXIT.> ;$r ,`....U ;$s ,^....U ;&` oh'
..TSIZ p(..PST,C)
.IF0p( ..PST,<
SETpHCMM B>,<
q..phTSAC (..ACT,B)
q(.IF0 ..ACT,<
MOVX .SAC,C
qH XORM .SAC,B>,<qh
..TX(C,B,C)>>..TX(C,B,C) ;&` l(&t
..TSIZ lH(..PST,C)
.CASlhE ..PST,<<
SETmOM B>,<
HLLOSm( B>,<
HRROS mHB>,<
..TSAC (mh..ACT,B)
.IFn0 ..ACT,<
MOVXn( .SAC,C
IORM nH.SAC,B>,<
..TX (O,B,C)>>>T ;& @ hH&X
..TSIZ hh(..PST,C)
.CAiSE ..PST,<<
SEi(TZM B>,<
HLLiHZS B>,<
HRRZihS B>,<
..TSjAC (..ACT,B)
j( .IF0 ..ACT,<
jH MOVX .SAC,C
jh ANDCAM .SAC,B>,k<
..TX (Z,B,C)>>>TX (Z,B, ;&81 D$*
A==0 D(
..TSA1==<Z BDH>
.IF ..TSA1,DhABSOLUTE,<
IEFE ..TSA1&^O77777E(7777760,<A==1>>
60,<A==1>> ;&:= BH$
A==3 Bh
IFE <B>+1,<CA=0>
IFE <B>-C(^O777777,<A==1> CH
IFE <B>-^O777777B17,<A==2>7 ;&;Q Eh$:
A==0 F
..TSA1==0
F( IRPC C,<
..FHTSA1=..TSA1+1
GFh IFE ..TSA1-B,<
IFIDN <C><G(D>,<
A==1>
;'STOPI>>
..TX1 h==C
(.IFN ..TX1,ABSOLUTE,<
TDA B,[C]>
H .IF ..TX1,ABSO LUTE,<
..TX2= h=0
IFE <..TX1 (&^O777777B17>,<
H ..TX2==1
h TRA B,..TX1>
IFE ..TX2,<
(IFE <..TX1&^O7777 H77>,<
..TX2== h1
TLA B,(!..TX1)>>
IFE ..!(TX2,<
IFE <!H<..TX1>B53-^O7777!h77>,<
..TX*3 (A,B)>>
IF*(E ..TX2,<
I*HFE <..TX1+1>,<
*h ..TX4 (A,B+)>>
IFE ..TX2,<+(
TDA B,[..TX1]>
>,[. ;'` +h"p
IFIDN <,A><Z>,<
..,(TX2==1
ANDI ,HB,^-..TX1>
IFI,hDN <A><O>,<
- ..TX2==1
-HOR-(CMI B,^-..TX1>
IFIDN <A><C>,<-h
..TX2==1
. EQVI B,^-..TX1>QVI B,^-..TX ;' .H"~
IFIDN <.hA><NN>,<
..T/X2==1
CAIN B/(,0>
IFIDN <A/H><NE>,<
..TX2/h==1
CAIE B,0>
CAIE B,0 ;' (*
..TSAC H(..ACT,B)
.IF h0 ..ACT,<
PRIN!TX ?TQA - B NOT!( IN AC>,<
TXA B,C>
TXA ;'R
..TSAC (..ACT,B)
.IF(0 ..ACT,<
..JHX1==C
.IF0 <..JX1-1B0>,<
ShKIPGE B>,<
( .IF0 <..JX1+1>,<H
SKIPE B>,<
h MOVE .SAC,B
TXNE .SAC,C>>>,(<
TXNE B,C>
TXNE B,C> ;'W H)~
..TSAC h(..ACT,B)
.IF0 ..ACT,<
..J(X1==C
.IF0 < H..JX1-1B0>,<
S hKIPL B>,<
( .IF0 <..JX1+1>,<
SKIPN B>,<
H MOVE .SAC,B
hTXNN .SAC,C>>>,<
TXNN B,C>
`P P P 0P d
.ACV2 (A)
.ACV2 ( d@ (1
IFDEFH A,<.IF A,SYMBOhL,<PRINTX ACVAR A ALREADY DEFINED(>>
A==.FPAC+..HNAC
$A==A
IFB <B>,<..NAC=..NAC+1>
IFNB (<B>,<..NAC=..NAC+B>..NAC=..NAC d` h1
IFG A-.NPAC,<PRINTX ?TO(O MANY ACS USED>
IFLE A-4,<
h JSP .A16,.SAVA>
IFG A-4,<
( JSP .A16,.SAV8>JSP .A16,.SAV8> ):A ): 9:A 9:
d; 82!
IFIDN X <A><.>,<
XMO xVEI .A16,B
P USH P,.A16>
I 8FDIF <A><.>,<
X .IFATM <A>,.BL xF1
IFN .BLF1!,<
.BLF1==0!8
.IF %A,!XMACRO,<
.BLF1!x==1>
IFNB "<B>,<
.BLF1=="81>
IFN .BL"XF1,<
LOAD .A"x16,A,B
PUSH #P,.A16>>
IFE #8.BLF1,< ;IF WASN#X'T A STRUCTURE RE#xF,
PUSH P,A>>$
..NA=..NA+1
..NA=..NA+1
d; x1w
.BLCL1 A
.BLCL1
f=( x1a
DEFINE A<-^OB(.FP)>
$A==<Z A>>
9 @H$
..CSN==@hA
..CSC==0
IARP B,<
IFE ..CA(SN-..CSC,<
STAHOPI
..CAS1 (AhB)>
..CSC==..CSC+1>..CSC==..CS D P ? DP > D)6P D,xP D8YP D8sP D;PP D;QP D;QP D;RP D;RP D;SP 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<ZP D=7P DI6P ? D\qP FmP S@P ,<H u('2
..PST==uHC&<-C>
.IF0 .uh.PST-1,<
SOS vB>,<
MOVX .SAv(C,-..PST
ADDM .SAC,B> ADDM t H h1
IRP A,<
.ENAV2 (A)> .ENAV2 (A) t I H1
.ENAV3 (A)
.ENAV3 t I 1
PURGE A,A
PURGE t,h X1g
IRP A, x<
DEFINE A<....U>>FINE A<. v=H }(/l
IRP A,}H<
.ENSV2 (A)> .ENSV2 (A) v=I ~/p
.ENSV3 (A)
.ENSV3 v=I ~H/t
DEFINE A<....U>EFINE vI9A vI9 ~+H !
A (\..FORN)
A (\.. ~. !
A B P `P =|RQ &2 ?($
..IFT==?HA
IFE ..IFT,?h<
B
..IFT==0@>
IFN ..IFT,<
C>N ..IFT,< &4 $X29
IRPC A$x,<
B==0
IFGE% "A"-"A",<IFLE "%8A"-"Z",<B=1>>
IFGE "A"-"0",<%xIFLE "A"-"9",<B&=1>>
IFE "A"-"&8%",<B=1>
IFE "&XA"-"$",<B=1>
&xIFE "A"-".",<B='1>
IFE B,<STOPI>>IFE B,<STOP &t<H s'
..PST==s(C&<-C>
.IF0 sH..PST-1,<
AOS shB>,<
MOVX .StAC,..PST
ADDM .SAC,B> ADDM &tj7Q ? 2DQ x 6MiTQ @ ;`P ?= wH'D
..TSIZ wh(..PST,C)
.IF0x ..PST,<
A Bx(>,<
..LDB .SAxHC,B,C
A .SAC>C
A .S ?= yh'X
..TSIZ z(..PST,C)
.IF0z( ..PST,<
A BzH>,<
..LDB .SAzhC,B,C
A .SA{C
..DPB .SAC,B,C>DPB .SAC, B~ YH-L
.PSHX1 (.POPX2).PSHX1 B~ Z-P
.POPX4 A
.POPX4 B~ [-^
A
[(DEFINE .PSHX1 (WC[HH,STUFF)<
WCH ([h<<STUFF>,<B>>)><STUFF>,<B>>)> B~
ZH-T
.POPX3 B
.POPX3 C WH-<
.PSHX1 (.PSHX2,<A>)1 C X-@
A (<B>)
A (<B C XH-H
DEFINXhE .PSHX1 (WCH,STUYFF)<
WCH (<<STUFF>,<A>>)><STU JDP' K%,z h x<<<A>&<B>>B<^D70-POS(B)>><^D70-POS(B)> N
0@ N9:A N9: Nd A" Nd Nd@A" Nd@ Nd`A" Nd` NeA Ne NfA Nf O%<ZA O%<Z O%<zA O%<z O%=H y(/J
.STKV2 (A)
.STKV2 O%=I yh/X
IFB <Bz>,<..STKN==..STKNz(+1>
IFNB <B>,<zH..STKN==..STKN+Bzh>
..STKQ==..STK{N+1
.STKV3 (A,\..STKQ)V3 (A, O%=I {H/f
IFDEF{h A,<.IF A,SYMBO|L,<PRINTX STKVAR |(A ALREADY DEFINE|HD>>
DEFINE A<-|h^OB(P)>
$A==<Z A>>
$A==< S):A S): S9:A S9: Sd 0
.TRV2 (A)
.TRV2 ( Sd@ X0
.TRV3 (xA,\..NV)
IFB <B>,<..NV=..NV+18>
IFNB <B>,<..NV=..NV+B>,<.. Sd` x0)
IFDEF A,<.IF A,SYMBO8L,<PRINTX TRVAR XA ALREADY DEFINEDx>>
DEFINE A<^OB(.FP)>
$A==<Z A>>
$A==< b \| ( Z
.XCREF
.XCRF1 <..ACT,.h.CSC,..CSN,..IFT,..JX1,..MSK,..MX1(,..MX2>
.XCRF1 H<..NAC,..NRGS,..NhS,..NV,..PST,..STKN,..STKQ,..STKR>(
.XCRF1 <..TRR,H..TSA1,..TX1,..TXh2,.FP,.FPAC,.NAC,.SAC,.SAV1>
.XC(RF1 <.SAV2,.SAV3,HPOINTR,POS,WID,..hCAS1,..CNS,..CNS2>
.XCRF1 <..DPB(,..GNCS,..ICNS,..HJE,..LDB,..STR0,.h.STR1,..STR2>
. XCRF1 <..STR4,..T (QO,..TQZ,..TSAC,. H.TSIZ,..TX,..TY,. hACV1,.ACV2>
.XC
RF1 <.ACV3,.CASE,
(.DECR0,.IF0,.INCR
H0,.OPST1,.OPST2,.
hSTKV1>
.XCRF1 < .STKV2,.STKV3,.TR (V1,.TRV2,.TRV3>
.CREF
3>
b )H h `
IRP A,
<
IFDEF A,< .XCREF A>>A,< .>}{woP