Trailing-Edge
-
PDP-10 Archives
-
BB-H580E-SB_1985
-
gendcl.unv
There are 18 other files named gendcl.unv in the archive. Click here to see a list.
x
,5
@P C@@ CJ8I0P CJ8MP CJ8M7P CJ8Y0P CJ8]P CJ8]7P CJ9i0P CJ9mP CJ9m7P CK [Xk
T1.==[x1
IFNB <B>,<\
T1.==B
\8 IFN 100000*T1\X.-100000*B,<T1.=\x=T1.+1>
>
] A==OFFS. - 1
]8 OFFS.==OFFS.+T1.
.==OFFS.+T1CO P8
GETLEN PX<C>
A: POINT 7Px,.+2
XWD B,LENQ.
ASCII\C\
TQ81.==<LEN.+4>/5
QXT1.==T1.*5
T1.=Qx=B-T1.
BLOCK <<T1.+4>/5>
<COP M17B12+AE2^:= ]xq
A==O^FFS.
OFFS.==0
OFFS.==0E3&x x
T1.==!B-A+1
SUB P!8,[T1.,,T1.]
H!XRLZ AP,P
ADD !xAP,[1,,A]
BLT AP,B
BLE3&8;
HRRZ 8R0,P
ADD R0,[XA,,1]
BLT xR0,B(P)
T1.= =B-A+1
ADD 8P,[T1.,,T1.]
[T1.,,T1.]
E@ R8
POINTRX A$B,A.BC,A%B
A.BC,AE@$X P E@&yP E@&:=P E@&[ZP E@,X P E@.yP E@.:=P E@.[ZP E@tX P E@vyP E@v:=P E@v[ZP Eg$\` U81
POS.=UX=-1
IRP B,<DUxUMMY(A,B)>
VOFFS.==OFFS.+1
FS.==OFFS.+1
Eg& \ VX;
POS.=Vx=-1
IRP C,<DWUMMY(A,C,B)>
W8 OFFS.==OFFS.+1
FS.==OFFS.+1Gt}PGt;vPGt<VP GtHUP Gti@P GukqP Gum6P Gv2P Gv
Gv[ZP Gvh9P GP rx
JRST s@[EXP .+1,B](A)
.+1,B](A)GH1 ;CASA::G~ @ @l^D36B5+OF%NWT+OF%PLN5+OF%G"
ACHAXN==B
$$$A==X1B<^D35-B>
IxNI.CH==INI.CH ! $$$A
I.CH ! $G? ~x
WHATYP <A>
IFE SYM..+81,<
MOVEI A,BX>
IFN SYM..+1,<x
MOVEI 0,B
MOVEM 0,A>
MG? |s
WHATYP |8<A>
IFE SYM..+|X1,<
MOVE A,B>|x
IFN SYM..+1,<
WHATYP <B>
}8 IFN SYM..+1,<
MOVE 0,B
}x MOVEM 0,A>
~IFE SYM..+1,<
~8 MOVEM B,A>
>
EM B,A>
>GC8P I$ D8'
IFB<B>DX,< A: BLOCK 1>
Dx IFNB<B>,< A: BLOCK B>
A: BI sX
REPEAsxT 5-B,<IBP A>
SOS A
A>
I~ %
WHATYP 8<A>
IFE SYM..+X1,<
MOVE A,B
MOVE A+1,1+B
>
IFN SYM..+18,<
WHATYP <BX>
IFN SYM..+1x,<
MOVE 0,B
MOVEM 0,A
8 MOVE 0,1+B
X MOVEM 0,1+A
x >
IFE SYM..+1,<
MOVEM B,8A
MOVEM B+1X,1+A
>
>
A
>
>
I6~i6 8
MOVEM XA,B
MOVEM A+1,1+B
EM A+1IVm^ S
ONEBYT(A,B,C)
YT(KK 1p
FUNCT T2YPOUT,<A>
IFNB20 <B>,<JRST B>
KK0 1
JRST [F10UNCT TYPOUT,<A>
JRST B]
L:$]@@@L:%@@ L:%V@ L:/
L:my@ L:my@ L:t2@ L:t6@ L;i@ L;I7P
M&-I XXQ
T1.=1Xx
YIFNB <B>,<
T1.==B
Y8 IFN 100000*T1.YX-100000*B,<T1.==YxT1.+1>
>
ZA=OFFS.
OFFS.==OFFS.+T1.
M&d\Y 1p
FUNCT T2YPOUT,<A>
IFNB20 <B>,<JRST B>
M&d\Y 1
JRST [F10UNCT TYPOUT,<A>
JRST B]
M'4P Y[5]M?. W[4]MVt= +Pq
SALL
+pARGS.=0
IF2, <I,FNDEF A,<EXTERNA,0L A>>
,pIFB <,PB>,< PUSHJ P,A>
IFNB <B>,<
- IRP B,<ARGS.=-0ARGS.+1>
MOVE-PI AP,[-ARGS.,,0
-p IRP B,<B>
. ]+1
PUSHJ P,A
>
OH B8
IFNDEBXF GDATA.,<EXTERN BxA>
IFDEF GDACTA.,<
IFB<C8B>,<A:: BLOCK 1>CX
IFNB<B>,<CxA:: BLOCK B>
>
CK B>
OtP Ot}P Ot*7P Ou@P Ou`P Ou}:P O%I7 gX?
LEN.=gx0
IRPC A,<LEN.=LEN.+1>
LEO2` ;8_
IF2, <I;XFNDEF A,<EXTERNA;xL A>>
PUSHJ P,A
PUSHJ P,OJ,p E8E
IFBEX <B>,<GREG.==GREExG.-1>
IFNB <FB>,<GREG.==B>
F8 IFL GREG.-LGREGFX.,<LGREG.=GREG.>
A=GREG.
GIFDEF .A,<
GX G8 IFN .A+GREG.,<
PRINTX "GxA" ALTER-EGO ALREHADY IN USE
H8>
>
IFNDEHXF .A,< .A==-GREG.>
.A==-GRQlYP S;HwP S;IZP S;XwP S;YZP S;h9@ S;hwP S;hx@ S;iZP S;H1P S;J2P S;J7P S;K2P S;KxP S;X1P S;Z2P S;Z7P S;[2P S;[xP S;h1P S;j2P S;j7P S;k2P S;kxP S; K2B12+AY I
IFNDE8F B$C,<T1.==^D3X6>
IFDEF B$xC,<T1.==B$C>
IFE T1.-^D36,<M8OVE A,B.CD>
X IFN T1.-^D36,<x
IFN T1.-^D18,<LDB A,[BP (8B,C,D)]>
XIFE T1.-^D18,<
x T1.==B%C
IFE T1.-^8D17,<HLRZ A,B.XCD>
IFE xT1.-^D35,<HRRZ A ,B.CD>
>
>
>Y/ Xm
IFN xDEF B$C,<T1.==^
D36>
IFDEF B
8$C,<T1.==B$C>
X
IFE T1.-^D36,
x<MOVE A,B.CD>
IFN T1.-^D368,<
IFN T1.-X^D18,<LDB A,[BP x(B,C,D)]>
IFE T1.-^D18,<
8
T1.==B%
XC
IFE T1.
x-^D17,<HLRE A,B
EAT1.-IF5,<HRRE
>
>
Yi (XEPOP$A+HMREG.-MREG.$A+HMREY&u0 =}
SALL
=8ARGS.=0
IF2, <I=XFNDEF A,<EXTERNA=xL A>>
>8IFB <>B>,< PUSHJ P,A>
IFNB <B>,<
>X IRP B,<ARGS.=>xARGS.+1>
MOVE?I AP,[-ARGS.,,0
?8 IRP B,<B>
?X ]+1
PUSHJ P,A
>
[3@ `X<<<1_<A>>-1>B<B>>_<A>>[83 cX9
EXP [
cx IRP B,<
AdCT..=0
IRPCd8 B,<IFIDN <-><BdX>,<ACT..=1>
dx STOPI>
IFeN ACT..,<
e8B
>
IeXFE ACT..,<
GETexLEN <B>
ADDR.f==[EXP LEN.
Af8SCIZ\B\]
EXP fX<ADDR.+1>
>fx
>
0 ]
gA:: MSG..
MSG..=MSG..+2
SG.[2N@ kx_
17B12+[ASCIZ\A\]
+[[4t@ [4t=9@ [4v:=@ [J,p Im
IFNI8 LMREG.,<MREG.==LIXMREG.
LMREG.=Ix=0>
J8IFB <B>,J<MREG.==MREG.+1>
IFNB <B>,<MRJXEG.==B>
IFB Jx<A>,<MREG.=TREG.K>
IFG MREG.-HK8MREG.,<HMREG.=MREKXG.>
IFNB <A>,Kx<
A=MREG.
L IFDEF .A,<
L8 IFN .A+MREG.,LX<
PRINTX Lx"A" ALTER-EGO ALMREADY IN USE
M8 >
>
IFNMXDEF .A,< .A==-MREG.>
>
-] a
IFNDEa8F A,<A==B>
A,<A==B>
_63@P _:( Q[1]_:,.: SX'
IFNB Sx<D>,<D.B=OFFS.T-A.D>
A.BT8==OFFS.
A$BTX==C
POS.==POTxS.+C
A%B==POS.
A%B==_RD89 Q
REPEA8T <CA.UMAX-CA.USRX+1>,<
CASLAxB(\CA.USR)
CA.USR==CA.USR+1
>
.USR+1a&LW ax
STR.SbT=.
BYTE (12)b8B
LEN.==0
bX IRP B,<LEN.==LbxEN.+1>
A: POIcNT ^D12,STR.ST
XWD 0,LEN.
a$\YP a$kP
a%X2P a%[P a%h7P a&<qP a,\YP a,kP a-X2P a-[P a-h7P a.<qP at88@ at94@ atJ9@ at\YP atkP auX2P au[P auh7P av97@ av<qP a>Mm _x<POINT WID`(B),A,POS(B)>B),A,POS(B)>a? 'A
T1.==MR'8EG.
REPEAT <MRE'XG.-TREG.>,<
R'xESTOR T1.
T1.(=T1.-1
>
>
a?K8 "xRESTOR<R5,R4,R3,R2>OR<R5,a? {<^L<A>+^L8<-<<A><^L<A>>>-1>-1><^L<A>>>a?`P aJ,j< ZXY
B.CZx==OFFS.-A.B
[ FIELD (A.C,D)
D (A.C,D)d@@ dD@ dH@ dL@ dP@ dT@ e8 N
A=BN8
NXIFDEF .A,<
IFN .A+B,Nx<
PRINTX O"A" ALTER-EGO ALO8READY IN USE
OX >
>
IFNOxDEF .A,< .A==-B>
< .A==-eKy Xu
IRP A,< POP P,A> A,e&\W )O
IFN M)8REG.-TREG.,<JRST )XLEAVE>
IFE MR)xEG.-TREG.,<POPJ P,>
G.,<POPJ PeL$:P eL$|WP eL%vP eL%I;P eL%m6P eL&wP eL&,4P eL&-8P eL&:P eL&:=P eL&[ZP eL,:P eL,|WP eL-vP eL-I;P eL-m6P eL.wP eL.,4P eL.-8P eL.:P eL.:=P eL.[ZP eLt:P eLt|WP eLuvP eLuI;P eLuKq@ eLum6P eLvwP eLv,4P eLv-8P eLv:P eLv:=P eLv[ZP g4 #85
IFN H#XMREG.-MREG.,<
#x T1.==TREG.
$ REPEAT <MREG$8.-TREG.>,<
$X T1.==T1.+1
$x SAVE T1.
% >
IFDEF U%8NWIND,<MOVEM P,UN%XWIND>
IFDEF%x MY.INI,<JSP R1,M&Y.INI>
>
&8IFE HMREG.-MREG.,&X<JSP R1,SAV$A>
V$A>
g4P q
IRP A,< PUSH P,A>A,g6K8 "8SAVE<R2,R3,R4,R5>VE<R2,R3g=Y7 m
TWOSE8G
RELOC 0
X GDATA.==0
SEGSYM
g>>6 Xe
OFxFS.==0
LMREG.==0
LGREG.==186
IFDEF MUXREG.,<MREG.=MUREGx.>
IFNDEF MUREG.,<MREG.==TREG.8>
HMREG.==MREXG.
HIGH==1
HIGH==1
g$W 8'
MOVEMX P,FRAMCON
COxPI PARSCON,A
I PARSCON,A
g$ h8G
GETLENhX A
ADDR.=1B1hx2 + [ LEN.
ASCII/A/]+1
Ag$89 xE
CA.A==CA.USR
CASL8AB(\CA.USR)
CXA.USR==CA.USR+1
SR==CA.USR+1
g'@ [[6]g'Qj7P g'Qk6P g'QlP g'QlYP gP
IFNDE8F B$C,<T1.==^D3X6>
IFDEF B$xC,<T1.==B$C>
IFE T1.-^D36,<M8OVEM A,B.CD>
IFN T1.-^D36,x<
IFN T1.-^D18,<DPB A,[BP (8B,C,D)]>
X IFE T1.-^D18,<
x T1.==B%C
IFE T1.-8^D17,<HRLM A,B.XCD>
IFEx T1.-^D35,<HRRM A,B.CD>
>
>
gR5 X
T1.x==B%C
IFE T1.-^D17,<MOVSM A8,B.CD>
IFEX T1.-^D35,<IFN Ax-D,<MOVEM A,B.CD>>
A,B.gS m8o
GETLEN mX(<A>)
POINT 7,mx[ASCII\A\]
EXP LEN.
]
EXPgSY l8g
GETLEN lX(<B>)
EXP LEN.lx
A: ASCII/B/
A: ASCII/B/
gft\Y 1p
FUNCT T2YPOUT,<A>
IFNB20 <B>,<JRST B>
gft\Y 1
JRST [F10UNCT TYPOUT,<A>
JRST B]
gg\Y 1p
FUNCT T2YPOUT,<A>
IFNB20 <B>,<JRST B>
gg\Y 1
JRST [F10UNCT TYPOUT,<A>
JRST B]
hDpP i@ i#Y U[3]iJ,s@P iWks tx'TXZ A,B)TXZ A,BiWkw t8#TXO A,B%TXO A,Bi^x S[2]i` u81
IFE C&uX777777,<TLA B,(uxC)>
IFN C&777v777,<TRA B,C>
<TRA B,C>TX(C,A,B)TX(C,A,BibtP vX5TX(NE,A,B)TX(NE,A,ibu` w9TX(NN,A,B)TX(NN,A,ibx yITX(O,A,B)TX(O,A,Bib| wX=TX(OA,A,B)TX(OA,A,ib|P xATX(OE,A,B)TX(OE,A,ib}` xXETX(ON,A,B)TX(ON,A,icP {YTX(Z,A,B)TX(Z,A,BicT yXMTX(ZA,A,B)TX(ZA,A,icTP zQTX(ZE,A,B)TX(ZE,A,icU` zXUTX(ZN,A,B)TX(ZN,A,k2Mj` .P
SALL
.pARGS.=0
IFB </B>,< PUSHJ P,A>/0
/PIFNB <B>,<
IRP B,<ARGS./p=ARGS.+1>
00MOV0EI AP,[-ARGS.,,0
IRP B,<B>
0P ]+1
PUSHJ P,A
>
kO\Y 1p
FUNCT T2YPOUT,<A>
IFNB20 <B>,<JRST B>
kO\Y 1
JRST [F10UNCT TYPOUT,<A>
JRST B]
kRM@ .P
SALL
.pARGS.=0
IFB </B>,< PUSHJ P,A>/0
/PIFNB <B>,<
IRP B,<ARGS./p=ARGS.+1>
00MOV0EI AP,[-ARGS.,,0
IRP B,<B>
0P ]+1
PUSHJ P,A
>
kVxHtP kVxI0P kVxKxP kVxXtP kVxY0P kVx[xP kVyhtP kVyi0P kVykxP m I1B12+Ao` 9
FUNCT TYPOUT,<A>
Toj@ 1p
FUNCT T2YPOUT,<A>
IFNB20 <B>,<JRST B>
ol` 1
JRST [F10UNCT TYPOUT,<A>
JRST B]
o"N8 n8
SYM..==nX0
IRPC A,<
nx IFIDN <A><@>,o<SYM..=1
STo8OPI>
IFIDN <oXA><(>,<SYM..=2
ox STOPI>
IFpIDN <A><[>,<SYM.p8.=3
STOPI>
IFIDN <A><+>px,<SYM..=4
SqTOPI>
IFIDN <q8A><->,<SYM..=4
qX STOPI>
>qx
rIFE SYM..,<
IFDEF .A,<r8SYM..=-1>
>
..=-1>
>
o& ^Xu<^L<-<<A>_<^L<A>>>-1>>>o?@ WxA
BYTESX(A,<B>)
OFFS.==0
OFFs?Mp <8c
PUSHJ P,A
PUSHJ Pup O[0]+A -hz 8G
IFG HIGxH,<
RELOC 400`000
@HIGH==-1
IFG MREG.-TREXG.,<
SAV$A:
@T1.==TREG.
RE PEAT <MREG.-TREG. >,<
T1.==T1`.+1
SAVE T1 0.
>
IFDEF UNWIND,<
M OVEM P,UNWIND
! IFDEF UNWEXIT, x<
IFDEF MhY.EXIT,<COPI UNWE!hXIT,MY.EXIT>
!H IFNDEF MY.EXI"PT,<COPI UNWEXIT,P"pOP$A-1>
>
# >
IFDEF MY#0.INI,<JRST MY.INI#P>
$IFNDEF MY.#pINI,<JRST 0(R1)>
>
IFDEF U$0NWEXIT,<IFNDEF MY$P.EXIT,<MOVE P,UNW$pIND>>
POP$A:
% POPALL
POPJ %0P,
>
A:
E%PNTRY A
IFN LMR%pEG.,<MREG.==LMREG&.
LMREG.==0>
AOFF.=0
IFNB &P<B>,<
IRP B&p,<
B=AOFF.
' AOFF.=AOFF.+1
>
>
IFN M'PREG.-TREG.,<SAVAL'pL>
IFE MREG.-(TREG.,<
IFDEF(0 UNWIND,<MOVEM P,(PUNWIND>
IFDEF(p MY.INI,<JSP R1,MY.INI>
>
e~7 7XO
IFG HIG7xH,<
RELOC 4008000
88HIGH==-1
MREG.==TREG. 8X
HMREG.==M8xREG.
POP$A:
POPJ P,
>
98A:
ENTRY A
9XIFE LMREG.,<LMREG9x.==MREG.>
MREG.=TREG.
EG. 2Mj` 8G
IFG HIGxH,<
RELOC 400`000
@HIGH==-1
IFG MREG.-TREXG.,<
SAV$A:
@T1.==TREG.
RE PEAT <MREG.-TREG. >,<
T1.==T1`.+1
SAVE T1 0.
>
IFDEF UNWIND,<
M OVEM P,UNWIND
! IFDEF UNWEXIT, x<
IFDEF MhY.EXIT,<COPI UNWE!hXIT,MY.EXIT>
!H IFNDEF MY.EXI"PT,<COPI UNWEXIT,P"pOP$A-1>
>
# >
IFDEF MY#0.INI,<JRST MY.INI#P>
$IFNDEF MY.#pINI,<JRST 0(R1)>
>
IFDEF U$0NWEXIT,<IFNDEF MY$P.EXIT,<MOVE P,UNW$pIND>>
POP$A:
% POPALL
POPJ %0P,
>
A:
E%PNTRY A
IFN LMR%pEG.,<MREG.==LMREG&.
LMREG.==0>
AOFF.=0
IFNB &P<B>,<
IRP B&p,<
B=AOFF.
' AOFF.=AOFF.+1
>
>
IFN M'PREG.-TREG.,<SAVAL'pL>
IFE MREG.-(TREG.,<
IFDEF(0 UNWIND,<MOVEM P,(PUNWIND>
IFDEF(p MY.INI,<JSP R1,MY.INI>
>
VeU )0Y
A:
IF)PE LMREG.,<LMREG.=)p=MREG.>
MREG.=T*REG.
AOFF.=0*0
IFNB <B>,<
*P IRP B,<
B*p=AOFF.
AOFF.=+AOFF.+1
>
>
W% )0Y
A:
IF)PE LMREG.,<LMREG.=)p=MREG.>
MREG.=T*REG.
AOFF.=0*0
IFNB <B>,<
*P IRP B,<
B*p=AOFF.
AOFF.=+AOFF.+1
>
>
f` :8W
A:
IF:XE LMREG.,<LMREG.=:x=MREG.>
MREG.=TREG.
EG.=TQ yS@P @Q xIP IQ IQ IQ ~I Q ~I(Q }RQ y>}{woP
COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
ALL RIGHTS RESERVED.