Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-05 - 43,50337/09/simmc3.unv
There are 3 other files named simmc3.unv in the archive. Click here to see a list.
x	@P GVu@ @>;
	IFDEF `.DIRECTIVE,<.DIRECTIVE .NOBIN>
	U NIVERSAL A     D@ECsystem-10/20 SI`MULA COMPILER %4A(310)  ILER %4A`NMj: `1?)	;
	EXTER`QN	Y1MASK
	EXTERN`p	YE3DL
	EXTERN	ZaDM
	EXTERN YE3SWa0
	EXTERN	REF
	EaPXTERN	IDL
	EXTERapN	IDR
	EXTERN	ZIbNA


	SYN	YOPLb0ST,YOPLS3

;
DbPSW	(YE3TTY,0,35,Xbp3MASK)	;
DSW	(YEc3LST,0,34,X3MASK)c0	;
DSW	(YE3LAS,0cP,33,X3MASK)	;
DScpW	(YE3DM,0,32,X3MdASK)	;
DSW	(YE3Td0AB,0,30,X3MASK)
dPDSW	(Y3ERR,0,29,Xdp3MASK)	;
DSW	(Y3eTERM,0,28,X3MASK)e0	;
DSW	(Y3TMES,0eP,27,X3MASK)	;
DSepW	(Y3STAT,0,26,X3fMASK)	;
DSW	(YE3f0OPL,0,25,X3MASK)	fP;
DSW	(NEWUNR,0,fp24,X3MASK)	;
DSWg	(NEWATR,0,23,X3Mg0ASK)	;
DSW	(OLDAgPTR,0,22,X3MASK)	;gp
DSW	(NOREL,0,21h,X3MASK)	;
DSW	(h0INLIB,0,20,X3MASKhP)	;

;


	DShpW	(Y3SWC,Y1MASK,4i)	;
	DSW	(Y3MP,Yi01MASK,20)	;
	DSWiP	(Y3ESIM,Y1MASK,1ip8)	;
	DSW	(Y3ECLjA,Y1MASK,19)	;
j0

;

	DF	(ZDMEjPN,0,18,17)	;
	DFjp	(ZDML1,0,18,35)	k;
	DF	(ZDML2,0+1k0,18,35)	;
	DF	(ZkPDMSM,0+1,18,17)	;kp
	DF	(ZDME1,0+2,l12,11)	;
	DF	(ZDl0ME2,0+2,12,23)	;
	DF	(ZDME3,0+2,1lp2,35)	;
	DF	(ZDMmTX,0+2,36,35)	;
m0	DF	(ZDMET,0,4,14mP)	;



;

	mpDF	(ZE3ENB,0-1,18n,17)	;
	DF	ZE3ETn0P,0,2,1		;
	DF	ZnPE3LIN,0-1,18,35	;np
	DF	ZE3NBW,0,4,o5		;
	DF	ZE3IND,o00,12,17		;
	DF	ZoPE3ANB,YE3DL,18,35op	;
	DF	ZE3ACH,YEp3DL,18,17	;

	;p0

DF	(ZIN,ZINA,pP36,35)
DF	(ZINI,ppZINA,12,17);
DF	q(ZINN,ZINA,18,35)q0		;
DF	(ZIDLL,IDqPL,18,17)		;
DF	(qpZIDLR,IDL-2000,18r,35)		;
DF	(ZIDRr0L,IDR-2000,18,17)rP		;
DF	(ZIDRR,IDrpR-2000,18,35)		;

DF	(ZREFD,REF,s01,0)			;
DF	(ZREsPFE,REF,1,1)			;
spDF	(ZREFT,REF,1,2t)		;

	;
	;
	t0;

	DF	(ZREFS,0tP,3,2)		;
	DF	(ZRtpEFL,0,15,17)		;
u	DF	(ZREFN,REF,18,35)	;
,REF,18bE%@ bO+z@ ^c
`@ @c,l`P AcI@@ c7EK@ <cB

y @ c^+@@ pEP pEP pE0P pNlu@ qj@ qj @ S@Q >}{woP