Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/rts/simmc3.unv
There are 3 other files named simmc3.unv in the archive. Click here to see a list.
x
(4	@P GVu@ vxA
	IFDEF .wDIRECTIVE,<.DIRECw8TIVE .NOBIN>
	UNwXIVERSAL A     DEwxCsystem-10/20 SIMxULA COMPILER %4(300)  PILER %4(3`NMj: 
	EXTERNSK
	EXTERN	
	EXTERN	ZD
	EXTERN YE3SW
	EXTERN	REF
	EXERN	IDL
	EXTERN
	EXTERN	ZIN


	SYN	YOPLS


DSW(YE3TTY,0,35,X3M
DSW	(YE3LS3MASK)	
;0DSW	(YE3LAS,0,33,
DSW	(YE,32,X3MASK)	
DSW	(YE3TAB,0,3
DSW	(Y,0,29,X3MASK)
DSW	(Y3TERM,0,
DSW	3TMES,0,27,X3MA
DSW	(Y3STATASK)	
DSW	(YE3OPL,0,25,X
DSW	(NEW24,X3MASK)	
DSW	(NEWATR,0,2
DSW	(ATR,0,22,X3MAS
DSW	(NOREL,0)	
DSW(INLIB,0,20,X3MA




	DS	(Y3SWC,Y1MASK,4
	DSW	(Y3MP,Y1
	DSW	(IM,Y1MASK,18)
	DSW	(Y3ECLA,Y


B

	DF	(ZDMEN,0,1
	DF	(ZDML35)	
	DF	DML2,0+1,18,35)
	DF	(ZDMSM,0+1
	DF	(ZD+2,12,11)	
Cp	DF	(ZDME2,0+2,12
	DF	(ZDME335)	
	DF(ZDMTX,0+2,36,35
	DF	(ZDMET,0,




E0
	DF	(ZE3ENB,0-1,
	DF	ZE3E,1		
	DF	ZIN,0-1,18,35	
	DF	ZE3NBW,0,4,5
	DF	ZE3IND,0,
	DF	ZE3ADL,18,35	
G0	DF	ZE3ACH,YE3DL,

	

DF	(ZIN,ZINA,36,35)
DF	(ZINI,ZINA,1
DF	(ZINN,Z5)		
DF	ZIDLL,IDL,18,17)
DF	(ZIDLR,IDL)		
DPF	(ZIDRL,IDR-2000
DF	(ZIIDR-2000,18,3

DF	(ZREFD0)			
DF	ZREFE,REF,1,1)		
DF	(ZREFT,REF,

	
	
	P

	DF	(ZREFS,0,
	DF	(ZREF17)		
	DF(ZREFN,REF,18,35)	
N,REF,18,35bE%@ bO+z@ ^c
`@ @c,l`P AcI@@ c7EK@ <cB
y @ c^+@@ pEP pEP pE0P pNlu@ qj@ qj @ S@P >}{woP