Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/debugging-tools/dnsr/macsym.unv
There are 97 other files named macsym.unv in the archive. Click here to see a list.
x
, i@ P C4 @ 0)w
..NAC== P0
IRP A,<
p .ACV1 (A)>
.ACV3 (\..NAC)C:' {P ]
TXZ A, <^-<B>>TXZ A,CO,,@ )j
..TRR== 10
RADIX 8
@..NV==1
IRP `A,<
.TRV1 ( A)>
IFG ..NV- 5,<PRINTX ?TOO MA @NY ARGUMENTS: A> `
JSP .A16,.ASSE T
RADIX ..TRR
PURGE ..TRR, ..NVURGE ..TRR,Ge@ , GeLR + I `P&
..STR0 `p(.DECR0,,<A>,B) DECR0,,<A>,B)I6= 5#5
A==<-150B<C>+1B<C-D>> 5P
IF1,<IFDEF %A5p,<PRINTX ?A ALRE6ADY DEFINED>>
D60EFINE %A (OP,AC,6PY,MSK)<
OP (<AC >,B'Y,MSK)><ACKJn9` H(^
ERJMP [ hTMSG <? A>
J SHLT]
A>
JKc
((f
IF2,<
H
IRP A,<
IFN
hDEF A,<EXTERN A
SUPPRE A>>>M2 l0 c <A>B<POS( B)> <A>B<POS(M7 p {p'c
HRROI .|AC2,[ASCIZ \A\]
MOVEI .AC3,0
SOUTI .AC3,0
S: ^0%u
..STR0 ^P(.INCR0,,<A>,B) INCR0,,<A>,B)S? { Y
TXO A, <B>
TXO A,Ut@ sp'#
..STR1 t(..JAN,<d,<C>>,t0<A>,B,..STR5)
d:B,..STR5)
U gP&?
..STR1 gp(..JE,<C>,<A>, B,..STR3)<A>,U8 l&c
..STR1l0(..JN,<C>,<A>, B,..STR3)<A>,U:
..STR1 qP(..JNA3,<C>,<A> ,B,..STR4)<A>U:~ w'=
..STR1 w0(..JNO,<d,<C>>,wP<A>,B,..STR5)
d:B,..STR5)
U? pP'
..STR1 pp(..JN,<C>,<A>, B,..STR4)<A>,UN.,@ }p'o
CALL JS ERR0
CALL JSUN.,HA UN.,HUNEM ~0's
CALL JS HLT0
CALL JSUNEMA UNEMUb( P!9
..JX1==pB
IFDEF .PSECT,<
.IFN ..JX1,0ABSOLUTE,<PRINTX PB NOT ABSOLUTE
p ..JX1==0>
.IF ..JX1,ABSOLUTE,<0
.IF0 <<..JX1>-P1B0>,<
JUMPGEp A,C>,<
.IF0 <<..JX1>+1>,<
0 JUMPE A,C>,< P
TXNN (A,..JXp1)
JRST C>>>
PURGE ..JX1>
I0FNDEF .PSECT,<
P.IF0 <<..JX1>-1B0p>,<
JUMPGE A,C>,<
.IF0 <<.0.JX1>+1>,<
JPUMPE A,C>,<
p TXNN (A,..JX1)
JRST C>>>
P URGE ..JX1>
PUb0 $p"]
..JX1==%B
IFDEF .PSEC%0T,<
.IFN ..JX1,%PABSOLUTE,<PRINTX %pB NOT ABSOLUTE
& ..JX1==0>
.IF&0 ..JX1,ABSOLUTE,<&P
.IF0 <<..JX1>-&p1B0>,<
JUMPGE 'A,C>,<
..ONEB'0 (..BT,B)
.IF'P0 ..BT,<
SETC'pM .SAC,A
J(XN (.SAC,..JX1,C(0)>,<
TXNN (PA,..JX1
J(pRST C>>>
PURGE) ..JX1>
IFNDEF .)0PSECT,<
.IF0 <<)P..JX1>-1B0>,<
)pJUMPGE A,C>,<
* ..ONEB (..BT,B)*0
.IF0 ..BT,<
*P SETCM .SAC,A *p
JXN (.SAC,.+.JX1,C)>,<
+P+0 TXNN A,..JX1
JRST C>>>
PURGE ..JX1>
..JX1==pB
IFDEF .PSECT,<
.IFN ..JX1,0ABSOLUTE,<PRINTX PB NOT ABSOLUTE
p ..JX1==0>
.IF ..JX1,ABSOLUTE,<0
.IF0 <<..JX1>-P1B0>,<
JUMPL pA,C>,<
.IF0 <<..JX1>+1>,<
0 JUMPN A,C>,<
TXNE (A,..JX1p)
JRST C>>>
PURGE ..JX1>
IF0NDEF .PSECT,<
.PIF0 <<..JX1>-1B0>p,<
JUMPL A, C>,<
.IF0 <<..J 0X1>+1>,<
JUM PPN A,C>,<
T pXNE (A,..JX1)
JRST C>>>
PUR GE ..JX1>
PURUbx P"#
..JX1== pB
IFDEF .PSEC T,<
.IFN ..JX1, 0ABSOLUTE,<PRINTX PB NOT ABSOLUTE
p ..JX1==0>
.IF ..JX1,ABSOLUTE,< 0
.IF0 <<..JX1>- P1B0>,<
JUMPL pA,C>,<
..ONEB (..BT,B)
.IF0 0 ..BT,<
SETCM P .SAC,A
JX pE (.SAC,..JX1,C)!>,<
TXNE !0A,..JX1
JR!PST C>>>
PURGE !p..JX1>
IFNDEF .P"SECT,<
.IF0 <<."0.JX1>-1B0>,<
J"PUMPL A,C>,<
."p.ONEB (..BT,B)
.IF0 ..BT,<
##0 SETCM .SAC,A
JXE (.SAC,..J#pX1,C)>,<
$TXNE A,..JX1
$0 JRST C>>>
PURGE ..JX1>
Y>
@ N0$u
..STR0 NP(..LDB,A,B,C) ..LDB,A,B,C)[ 8@ m0 k 1B<<A>-1> -1B<B><<A>-1>[>!` mp o <A-<A/B >*B><A-<A/B[?7 n0 U
..MX1nP==B
IFDEF .PnpSECT,<
.IFN .o.MX1,ABSOLUTE,<
o0 MOVE A,[B]>
oP .IF ..MX1,ABSOLopUTE,<
..MX2==0 p
IFE <..MX1>B5p03,<
pP..MX2==1
MOVEI A,..MXpp1>
IFE ..MX2,<q
IFE <..MX1>Bq017,<
..MX2==1qP
MOVSI A,(..qpMX1)>>
IFE ..MrX2,<
IFE <<..r0MX1>B53-^O777777>rP,<
..MX2==1
rp HRROI A,<..MXs1>>>
IFE ..MX2s0,<
IFE <<..MXsP1>B17-^O777777B17sp>,<
t..MX2==1
HRLOI A,(..Mt0X1-^O777777)>>
tP IFE ..MX2,<
tp MOVE A,[..MX1]u>
>>
IFNDEFu0 .PSECT,<
..MX2uP==0
IFE <..MXup1>B53,<
..MX2v==1
MOVEI A,v0..MX1>
IFE ..MvPX2,<
IFE <..MvpX1>B17,<
..MXw2==1
MOVSI Aw0,(..MX1)>>
IFEwP ..MX2,<
IFE wp<<..MX1>B53-^O777x777>,<
..MX2=x0=1
HRROI A,<xP..MX1>>>
IFE .xp.MX2,<
IFE <<y..MX1>B17-^O77777y07B17>,<
..MX2yP==1
HRLOI A,yp(..MX1-^O777777)>z>
IFE ..MX2,< z0
MOVE A,[..zPMX1]>
>
PURGE ..MX1,..MX2RGE[N^= 7#C
A==C 70
IF1,<IFDEF %7PA,<PRINTX ?A ALR7pEADY DEFINED>>
8DEFINE %A (OP,AC80,Y,MSK)<
OP (<A C>,B'Y,MSK)><A_C L@ bp&
..STR0 c(.OPST1,<A>,<B> ,C)1,<A>,<B>_C LV e&+
..STR0 e0(.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= |p'k
IFNB }<A>,<
TMSG <A}0>>
CALL JSMSG0 >
CALL JSMSG0a 4\G gx G
..PGV0=h=.
.JBVER=:13h87
LOC .JBVER hX
BYTE (3)D(9)hxA(6)B(18)C
. ORG ..PGV0
.a>Mm kP _ <POINT WIDkp(B),A,POS(B)> B),A,POS(B)>a? k Y <^L<<A>&< -<A>>>><<A>&<d A d e ,~ e&:x zP'U
JRST RS KP
JRST RSeN^ A eN^ g4X1 #*/
.NAC==0#0
IRP A,<
P#PUSH P,A
.N#pAC=.NAC+1>
.N$1==.NAC
SETMI .$0A16,[CAIA
AOS$P -.N1(P)
IRP$p A,<
.N1=.N1-%1
MOVE A,-.N1%0(P)>
SUB P,[%P.NAC,,.NAC]
%pPOPJ P,]
PUSH P,.A16
PUSH g$;8 [%[
..STR1 [0(..TQC,,<A>,B,. .STR4)<A>,B,.g%{R WP%?
..STR1 Wp(..TQO,,<A>,B,. .STR4)<A>,B,.g',W Sp%!
..STR1 T(..TQZ,,<A>,B,. .STR4)<A>,B,.gR^h9 )
..STKR=@=10
RADIX 8
` ..STKN==0
IRP A,<
.STKV1 ( A)>
JSP .A16,.@STKST
..STKN,,`..STKN
RADIX .. STKR
PURGE ..ST KN,..STKR,..STKQ
gR~TKR,..STKQ
..STR0 Q0(..DPB,A,B,C) ..DPB,A,B,C)i7 p zp'[
HRROI .{0AC1,[ASCIZ \A\]
PSOUTZ \A\]
..SpTR1 (..TY,C,<A>, B,..STR3)<A>,iF p(Q
..S
TR1 (..TY,CA,<A> ,B,..STR3)<A>iF P 0(E
..SPTR1 (..TY,CE,<A> ,B,..STR3)<A>iF ` (K
..S 0TR1 (..TY,CN,<A> ,B,..STR3)<A>iFp ~P'w
..S~pTR1 (..TY,N,<A>, B,..STR3)<A>,iFt p(
..STR1 (..TY,NA,<A> ,B,..STR3)<A>iFtP 0'}
..SPTR1 (..TY,NE,<A> ,B,..STR3)<A>iFu` (
..S 0TR1 (..TY,NN,<A> ,B,..STR3)<A>iFx P(
..SpTR1 (..TY,O,<A>, B,..STR3)<A>,iF| p(!
..STR1 (..TY,OA,<A> ,B,..STR3)<A>iF|P 0(
..SPTR1 (..TY,OE,<A> ,B,..STR3)<A>iF}` (
..S0TR1 (..TY,ON,<A> ,B,..STR3)<A>iGP P('
..SpTR1 (..TY,Z,<A>, B,..STR3)<A>,iGT p(9
..STR1 (..TY,ZA,<A> ,B,..STR3)<A>iGTP 0(-
..SPTR1 (..TY,ZE,<A> ,B,..STR3)<A>iGU` (3
..S0TR1 (..TY,ZN,<A> ,B,..STR3)<A>iK4 @ )8
..TRR==@10
RADIX 8
`..NV==1
IRP A,<
.TRV1 ( A)>
JSP .A16,@.TRSET
..NV-`1,,..NV-1
RADIX ..TRR
PURGE ..TRR,..NVURGE ib 9
..TX(C ,A,<B>)..TX(Cib P E
..TX(C A,A,<B>).TX(Cib P P =
..TX(C E,A,<B>).TX(Cib ` A
..TX(C N,A,<B>).TX(Cibp
..TX(N ,A,<B>)..TX(Nibt P
..TX(N A,A,<B>).TX(NibtP P
..TX(N E,A,<B>).TX(Nibu`
..TX(N N,A,<B>).TX(Nibx
..TX(O ,A,<B>)..TX(Oib| P %
..TX(O A,A,<B>).TX(Oib|P P
..TX(O E,A,<B>).TX(Oib}` !
..TX(O N,A,<B>).TX(OicP )
..TX(Z ,A,<B>)..TX(ZicT P 5
..TX(Z A,A,<B>).TX(ZicTP P -
..TX(Z E,A,<B>).TX(ZicU` 1
..TX(Z N,A,<B>).TX(Zm$,YP'm$-X5Q | m$-Z7Q x m$.zQ p o& jP U <^L<-<<A> _<^L<A>>>-1>>>q
f@
EXTEND A,[020000,,0] q+= +
q6~i4 C q? | a
TXC A, <B>
TXC A,qN5P + : h "w
A :&@ Qp%
..TSIZ R(..PST,C)
.CASR0E ..PST,<<
MOVRPEM A,B>,<
HRRpRM A,B>,<
HRSLM A,B>,<
DPS0B A,[POINTR (B, C)]>>INTR (B, :<;Y M0$o
DEFINMPE ..CNS2 (NEW,OLDMp)<
OLD>
..CNS ()>
:L;Y K$g
DEFINK0E ..CNS (ARG)<
KP..CNS2 <ARG>,>
Kp
DEFINE ..CNS2L (NEW,OLD)<
DEFL0INE ..CNS (ARG)<
..CNS2 <ARG>,Lp<OLD'NEW>>>
OLD'NEW>>>
:TH tp''
..JNA3 (A,C,D)JNA3 :TI u0'5
..TSAC uP(..ACT,C)
.IF0up ..ACT,<
SETCvM .SAC,C
JXv0E (.SAC,D,<B>)>vP,<
JXO (C, D,<B>)>O (C, :TP h0&]
..TSAC hP(..ACT,B)
.IFhp0 ..ACT,<
..TiSIZ (..PST,C)
i0 .CASE ..PST,<<iP
SKIPN B
ipJRST A>,<
HRRjZ .SAC,B
JUMj0PE .SAC,A>,<
jPHLRZ .SAC,B
jpJUMPE .SAC,A>,<
MOVE .SAC,B
JXE (.SAC,C,<kPA>)>>>,<
JXE (B,C,<A>)>E :U` lp'
..TSAC m(..ACT,B)
.IFm00 ..ACT,<
..TmPSIZ (..PST,C)
mp .CASE ..PST,<<
SKIPE B
Jn0RST A>,<
HRRZnP .SAC,B
JUMPnpN .SAC,A>,<
HoLRZ .SAC,B
Jo0UMPN .SAC,A>,<
oP MOVE .SAC,B
op JXN (.SAC,C,<pA>)>>>,<
JXN (B,C,<A>)>N :Uh) r'
..TSAC r0(..ACT,B)
.IF0rP ..ACT,<
SETCrpM .SAC,B
JXsN (.SAC,C,<A>)>s0,<
JXF (B, C,<A>)>F (B, :Ukh x'A
..JN ( A,C,D)..JN ( :Uki xP'E
..JE (< B>,C,D)JE (< :dH@ O%
..TSIZ O0(..PST,C)
.CASOPE ..PST,<<
MOVOpE A,B>,<
HRRPZ A,B>,<
HLRP0Z A,B>,<
LDBPP A,[POINTR (B, C)]>>INTR (B, :}i1 40#%
A==<<<4P-<B>>&<B>>&<1B< ^L<B>>>>>&<1B< ; LH 8p#W
IFNDEF 9C,<PRINTX C IS 90NOT DEFINED
9PA (<B>,D,.FWORD9p)>
IFDEF C,<
IFNDEF %C,<
:0 A (<B>,D,C):P>
IFDEF %C,<
%C (A,<B>, D,C)>>A,<B>, ; LH ;0$
..NS==0;P
IRP C,<..N;pS=..NS+1>
IFE <..NS,<PRINTX ?EMP<0TY STRUCTURE LIST<P, A>
IFE ..NS-<p1,<
..STR0 =(A,<B>,<C>,D)=0>
IFG ..NS-1,< =P
..ICNS
.=p.CNS (<E (A,<B>>,,>)
IRP C,<>0
IFNDEF C,>P<PRINTX C NOT DE>pFINED>
IFDEF ?C,<
IFNDEF %?0C,<
..CNS (<?P,C,D>)>
IF?pDEF %C,<
%C@ (..STR2,,D,C)>@0
..CNS (<)>)@P
..GCNS
@p ..ICNS
.A.CNS (<E (A,<BA0>>)
IFNDEF %APC,<
..CNS (<Ap,C,D>)>
IFBDEF %C,<
%CB0 (..STR2,,D,C)>BP>>
..CNS (<,,) >)
..GCNS>) ; LI C$
..CNS ( <,C,B>).CNS ( ; LI CP$/
IFDIF <CpD><F>,<
IFNDB <D>,<
AD0 (<B>,D,..MSK) DP
IFNB <F>,Dp<PRINTX C AND EE ARE IN DIFFERENTE0 WORDS>>
..MSEPK==0>
IFNB <EpF>,<
..MSK=.. MSK!<E>>MSK=.. ; LJ F0$?
IFDIF <FPD><F>,<
IFFpNB <D>,<
GA (<B>,D,..MSK)G0>
..MSK==0> GP
IFNB <F>,<
Gp ..MSK=..MSK!< E>>MSK=..MSK!< ; LJ H0$U
IFDIF <HPD><F>,<
IFHpNB <D>,<
IIFNB <F>,<
I0A1 (B,D,..MSK)>IP
IFB <F>,Ip<
A2 (B,DJ,..MSK)>>
..J0MSK==0>
IFNB JP<F>,<
..MSK= ..MSK!<E>>MSK= ;&` [p%o
..TSIZ \(..PST,C)
.IF0\0 ..PST,<
SET\PCMM B>,<
]..\pTSAC (..ACT,B)
]0.IF0 ..ACT,<
MOVX .SAC,C
]P XORM .SAC,B>,<]p
..TX(C,B,C) >>..TX(C,B,C) ;&` X0%U
..TSIZ XP(..PST,C)
.CASXpE ..PST,<<
SETYOM B>,<
HLLOSY0 B>,<
HRROS YPB>,<
..TSAC (Yp..ACT,B)
.IFZ0 ..ACT,<
MOVXZ0 .SAC,C
IORM ZP.SAC,B>,<
..T X (O,B,C)>>>T ;& @ TP%9
..TSIZ Tp(..PST,C)
.CAUSE ..PST,<<
SEU0TZM B>,<
HLLUPZS B>,<
HRRZUpS B>,<
..TSVAC (..ACT,B)
V0 .IF0 ..ACT,<
VP MOVX .SAC,C
Vp ANDCAM .SAC,B>,W<
..TX (Z,B, C)>>>TX (Z,B, ;&81 0p#
IFNDEF 1.PSECT,<
A==0 10
..TSA1==<Z 1PB>
IFE ..TS1pA1&^O7777777777602,<A==1>
>
I20FDEF .PSECT,<
2PA==0
..TSA1=2p=<Z B>
.IF .3.TSA1,ABSOLUTE,< 30
IFE ..TSA1&^3PO777777777760,<A3p==1>>
PURGE .. TSA1>
PURGE .. ;&:= /0#
A==3 /P
IFE <B>+1,</pA=0>
IFE <B>-0^O777777,<A==1> 00
IFE <B>-^O777 777B17,<A==2>7 ;' |P s
..TX1|p==C
IFDEF .P}SECT,<
.IFN .}0.TX1,ABSOLUTE,<
}P TDA B,[C]>
~ .IF ..TX1,ABSOL}pUTE,<
..TX2==~00
IFE <..TX1&~P^O777777B17>,<
~p ..TX2==1
TRA B,..TX1>
0IFE ..TX2,<
IPFE <..TX1&^O77777p7>,<
..TX2==1
TLA B,(. 0.TX1)>>
IFE ..T PX2,<
IFE << p..TX1>B53-^O77777 7>,<
..TX3 0 (A,B)>>
IFE P ..TX2,<
TD pA B,[..TX1]>
PURGE ..TX1,..TX
02>>
IFNDEF .PSEC
PT,<
..TX2==0
p
IFE <..TX1&^O77 7777B17>,<
.. 0TX2==1
TRA P B,..TX1>
IFE p..TX2,<
IFE <
..TX1&^O777777>,<
0
..TX2==1
P TLA B,(..TX1
p)>>
IFE ..TX2,<
1>IFE-<<..TX7>,<
,B)..TX3 (A
IFE ..TX2,<
TDA 0B,[..TX1]>
PUR GE ..TX1,..TX2> ;'` p!
IFIDN <A><Z>,<
..0TX2==1
ANDI PB,^-..TX1>
IFIpDN <A><O>,<
..TX2==1
POR0CMI B,^-..TX1>
IFIDN <A><C>,<p
..TX2==1
EQVI B,^-..TX 1>QVI B,^-..TX ;' y'Q
..TSAC y0(..ACT,B)
.IFyP0 ..ACT,<
PRINypTX ?TQA - B NOTz IN AC>,<
TXA B,C>
TXA
` P P P 0 P d 0){
.ACV2 ( A)
.ACV2 ( d@ p*
A=.FPA C+..NAC
IFB < 0B>,<..NAC=..NAC+ P1>
IFNB <B>,<. .NAC=..NAC+B>. d` !*
IFG A-!0.NPAC,<PRINTX ?TO!PO MANY ACS USED>
IFLE A-4,<
" JSP .A16,.SAVA>"0
IFG A-4,<
"P JSP .A16,.SAV8> JSP .A16,.SAV8> ):A ): 9:A 9: 9 -0"u
..CSN==-PA
..CSC==0
I-pRP B,<
IFE ..C.SN-..CSC,<
ST.0OPI
..CAS1 (.PB)>
..CSC==..CS C+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 S@P ,<H a0&
..PST==aPC&<-C>
.IF0 .ap.PST-1,<
SOS bB>,<
MOVX .SAb0C,-..PST
ADDM .SAC,B> ADDM P `P =|RQ &2 ,"g
..IFT==,0A
IFE ..IFT,,P<
B
..IFT==0,p>
IFN ..IFT,<
C>N ..IFT,< &t<H _&
..PST==_0C&<-C>
.IF0 _P..PST-1,<
AOS _pB>,<
MOVX .S`AC,..PST
ADDM .SAC,B> ADDM &tj7Q ? 2DQ x 6MiTQ @ ;`P ?= cP&%
..TSIZ cp(..PST,C)
.IF0d ..PST,<
A Bd0>,<
..LDB .SAdPC,B,C
A .S AC>C
A .S ?= ep&9
..TSIZ f(..PST,C)
.IF0f0 ..PST,<
A BfP>,<
..LDB .SAfpC,B,C
A .SAgC
..DPB .SAC, B,C>DPB .SAC, JDP' K%,z lp g <A>B<^D70 -POS(B)>B<^D70 N
0 @ Nd A Nd Nd@A Nd@ Nd`A Nd` Ne A Ne Nf A Nf O%<ZA O%<Z O%<zA O%<z O%=H `)
.STKV2 (A)
.STKV2 O%=I )
IFB <B@>,<..STKN==..STKN`+1>
IFNB <B>,< ..STKN==..STKN+B >
..STKQ==..STK@N+1
.STKV3 (A, \..STKQ)V3 (A, O%=I )"
IFDEF A,<.IF A,SYMBO@L,<PRINTX STKVAR `A ALREADY DEFINE D>>
DEFINE A<- ^OB(P)>
$A==< Z A>>
$A==< S):A S): S9:A S9: Sd @)<
.TRV2 ( A)
.TRV2 ( Sd@ )F
.TRV3 ( A,\..NV)
IFB @<B>,<..NV=..NV+1`>
IFNB <B>,<.. NV=..NV+B>,<.. Sd` )T
IFDEF@ A,<.IF A,SYMBO`L,<PRINTX TRVAR A ALREADY DEFINED >>
DEFINE A<^O@B(.FP)>
$A==< Z A>>
$A==<>}{woP