Google
 

Trailing-Edge - PDP-10 Archives - AP-4172F-BM - 3a-sources/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,L@P C, :(sRLSH A,-^D9LSH A,-^DCR/
	DEFINE	c(XTEXT.(OPCODE,NEWcH)<
	OPCODE	<A,<NEW>>>ODE	<A,<E2"@ Q(u
	  IFE QHB,<..TA==0>
	  QhIFN B,<EXP ..TAR
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |GH &Hz:
	
	  XL&IST

	X CRE	
	&(X GEN	
	X PRT	
%h	X CLS	
	XhAUT	
	X USW	
	X SPL	'
	X SIZ   
	X M'(OD	

	  LIST

	

	  LIST
G?pP$GR/
	DEFINE `xXTEXT.(OPCODE,NEWbH)<
	OPCODE	<<NEW>>>OPCODE	<<NEWI!k7P I!k<P ImP I$P'pIY{P .I  <hsf.INDR.(A,B,SOS)NDR.(A,I?pP&IR/
	IFN TFLeHG,<
DEFINE TXT1.eh(A,B,C,D,E,F,G,H,fI,J,K,L,M,N,O,P,Qf(,R,S,T,U,V,W,X,Y,fHZZ,A1,B1,C1,D1,E1fh)<
A+[ASCIZ\A'Bg'C'D'E'F'G'H'I'J'g(K'L'M'N'O'P'Q'R'SgH'T'U'V'W'X'Y'ZZ'Agh1'B1'C1'D1'E1\]
h>>
IFE TFLG,<
Dh(EFINE TXT1.(A,B,ChH,D,E,F,G,H,I,J,K,hhL,M,N,O,P,Q,R,S,Ti,U,V,W,X,Y,ZZ,A1,i(B1,C1,D1,E1)<
	IiHFE ZFLG,<
	OPDEFih OPC [A]
OPC A'jB'C'D'E'F'G'H'I'Jj('K'L'M'N'O'P'Q'R'jHS'T'U'V'W'X'Y'ZZ'jhA1'B1'C1'D1'E1
	k>
	IFN ZFLG,<
	k(OPDEF OPC [ZFLG+kHA]
PTEXT.(A'B'C'khD'E'F'G'H'I'J'K'Ll'M'N'O'P'Q'R'S'T'l(U'V'W'X'Y'ZZ'A1'BlH1'C1'D1'E1)
	>
lh>>

IFE A&TXT.mNA,<
	  .CREF
	m(XTEXT. TEXT.
	  mH.XCREF
		>
IFN mhA&TXT.NA,<
	EXPn A
		>

IFN n(A&TXT.S,<
	IFE SnHCHAR,<SCHAR==" ">nh
	IFE SSIDE,< IFoE TXTF.D-<A&TXT.o(M>,< SSIDE==TXT.SoHR>>
	IFE SSIDE,<oh IFE TXTF.O-<A&TpXT.M>,< SSIDE==TXp(T.SR>>
	IFE SSIDpHE,< SSIDE==TXT.SLph>
	EXP <<INSVL.(qSCHAR,TXT.SC)>+<Iq(NSVL.(SSIDE,TXT.SqHS)>+<INSVL.(SWIDTqhH,TXT.SP)>>
	SSIrDE==0
	SWIDTH==0r(
	SCHAR==0
>
	rHCTEXT.
	TFLG==0
	ZFLG==0
	PURGE OPC
	
	PURGEKH(Q P 
KJ{P 	KJ%h"P KJ-yBP KJ-{P 	KJ4"P KJ49BP KJ4I"P KJ4LbP KJ5iP KJ5iBP KJLlP KJLlbP KJt9"P KJuX"P KJv9P KJv<P KK-P KK %z*
	ERA$==%(ER%%%
	ER%%%==ER%%%+1
R%%%==ERKK|Y (z$
	ERR	EOFH,<End Of File>
	hERR	IFP,<Illegal file position>
	(ERR	FDE,<File DatHa Error>
	ERR	FNhD,<File is not on disk>
	ERR	NSD,(<No such device>
	ERR	FCF,<File chheckpoint failed>
	ERR	SLE,<A Sys(tem Limit Was ExcHeeded>
	ERR	IFS,h<Illegal File Specification>
	ERR(	FNF,<File Not FoHund>
	ERR	PRT,<Phrotection Violati on>
	ERR	DNA,<De (vice Was Not Avai Hlable>
	ERR	NCE, h<No "current" ent!ry in list>
	ERR!(	NMA,<No IPCF mes!Hsage is available!h>
	ERR	FDS,<File"s are on differen"(t structures>
	E"HRR	FAE,<File alre"hady exists>
	ERR#	USE,<Unexpected #(System Error>
	E#HRR	NSP,<No Such P#hid>
	ERR	BOL,<Be$ginning of list r$(eached>
	ERR	EOL$H,<End of list reached>
listreaKKI"P KK.9"P KR/
IF1,<
	sHIFN EFLG&1,<PRINTshX ?Uknown qualifiter in A call of t(B
		     PRINTXtH
>
	IFN EFLG&2,th<PRINTX ?Bad spacuing specificationu( in A call of BuH
		     PRINTX
uh>
	IFN EFLG&4,<PvRINTX ?Premature v(end of text in AvH call of B
		  vh   PRINTX
>
	IFwN EFLG&10,<PRINTXw( ?Bad address in wHA call of B
		wh     PRINTX
>
	xIFN EFLG&20,<PRINx(TX ?Variable addrxHess too long in xhA call of B
		 y    PRINTX
>
	Iy(FN EFLG&40,<PRINTyHX ?Spacing on I qyhualifier in A cazll of B
		     z(PRINTX
>
> ;END OF IF1
> ;ENDMf9 P Mt,}P MuLwP @MuiWP  MuI7P'Mn:=p MF:=P M$pQ"P M$t:P M$t;P M$t<RP M$ty7P M$u[rP M$v
ZP M$v:=P M$v<P M$v\{P M>hrp M>h{p M>iRp M>k=p M>l}p M>m9p MJhrp MJip MJk=p MJlsp MJl}p MJm9p MR/' (x@			
     H   SFLG==0				
	hSTYP==0				
	IFDEF TXTF.A,<STYP=(=TXTF.A>	
	IFE HSTYP,<EFLG==EFLG!h1>		
	IFN STYP&TXT.NA,<		
	     (DTEXT.(STYP)		
	H     IFLG==3			
h			>	 	
	IFE STYP&TXT.NA,<		
	  (  IFLG==1			
	  H  AFLG==1			
	  h  SWIDTH==0			
			>	 	
	ZFLG==0				
 	ZFLG==0	MR/G Hxd			
	IFIDhN <A></>,<			
		    AFLG==0			
		(    IFLG==3			
		H    DTEXT.(STYP)		h	
		  >         
 		
	IFN AFLG,<	
(		
	    XTEXT. A
HTEXT.,<A>
	    
hAFLG==AFLG+1		
	    IFE AFLG-^D31(,<EFLG==EFLG!20> H
	    IFIDN <A>h<,>,<		
		IFN ZF
LG,<EFLG==EFLG!10
(> 
		ZFLG==TXT.P
H
			  >		
		  >			
 		
		|>MR/g 

	IFFLG-3, <			
	   IFLG==0			
	    >			
	IFE IFLG-2,<			
	    (IFLG==0			
	    HIFDIF<A></>,<FTEhX4.(<A>)>	
		  >			
	IFE IFLG-1(,<			
	    IFLG=H=2			
		 >	 		
 	
		/>			yV			
    E(FLG==EFLG!2			
 H    IFE SSIDE,<		h	
    IFLE "0"-"A",<			
	IFGE "(9"-"A",<SWIDTH==HSWIDTH*^D10+^DA h
		   IFE STYP-TXTF.I<EFLG==EFLG!(40> 
		   STYP==HSTYP!TXT.S	
		  h EFLG==EFLG&<^-2>	
		 >			
		  >(			
	>				
    HIFIDN <A><R>,< 	h		
	   IFN SWIDTH,<			
		SSIDE==(TXT.SR		
		EFLG=H=EFLG&<^-2>	
		 h      >		
		    >			
    IFIDN <(A><L>,< 			
	hH IFN SWIDTH,<			
		SSIDE==TXT.SL		
		EFLG==EFLG&<(^-2>	
		       >H		
		    >			
 h   IFIDN <A><C>,< 			
	   IFN SW(IDTH,<			
		SSIDHE==TXT.SM		
		EFhLG==EFLG&<^-2>	
		       >		
		 (   >			
    IFN HSWIDTH, <			
	IFhN SSIDE,<			
	 IFN EFLG&2,<			
	(   IFE SCHAR,< SCHHAR=="A"	
			EFhLG==EFLG&<^-2>
		     >			
		  >(			
		  >			
		H >			
    IFE EFhLG&2,< IFLG==2>		
IFLG==2>		MR/
	TFLG==0}(	
	AFLG==0	
	SF}HLG==0	
	IFLG==0	}h
	ZFLG==0	
	EFL~G==0
	SCHAR==0
~(	SWIDTH==0
	SSID~HE==0
	CTEXT.

~hIRPC A,<	
    IFN SFLG,<	
	FTEX(1.(<A>)	
>		
IHFE SFLG+AFLG+IFLGh,<	
IFIDN <A>,<^>,<	
IFN TFLG,<(DTEXT.(TXTF.3)>
HSFLG==1	
>	
IFEh SFLG,<	
IFE ^D29-TFLG,<
DTEXT.((TXTF.3)
>	
TFLGH==TFLG+1	
XTEXT.h ATEXT.,<A>	
>	
>	
IFE SFLG+IF(LG+TFLG,<	
FTEX2H.(<A>)	
>	
IFNh IFLG,<
FTEX3.(<A>)	
>	
>
IFN( TFLG,<DTEXT.(TXTHF.3)>
IFN AFLG+ShFLG+IFLG,<EFLG==EFLG!4>
	FLG==EMRV>9Q MS.[yP M^luQ O3DYP O3EZ7P O3Fi9P O3FlYQ O3FzP SuZp Sup Sup Su}:p Sv
2p Sv
Sp Sv>@p Svi9p S:  <(sb.INDR.(A,B,AOS)NDR.(A,S;!kP S@,9QQ @S@,9QP S@,9RP `S@,9VP S@,9XP$S@,9[P"[email protected]Q S@t9QQ @S@t9QP S@t9RP `S@t9VP S@t9XP$S@t9[P"S@t:Q xS@u-xQ  S@u[XQ xS@v
tQ @S@v,:P S@v89Q S@v<Q S@v<P S@v<:P'~S@vMQ SBd+@&SBn	@&SBn
@&SBn
@&	SBn@&	SBn@&
SBn
@&
SB2P SB)iP&	SB)iP&SB)kVP&SB)kYP'SB)lXP&
SB)lsP&
SB)lxP&	SB)mvP&SBal}P 
SR/ zhwd
	XLIST		{		
	.XCREF				
{(	FTEXT.(<A>)		
{H	IFN EFLG,< ETEXT{h.(ITEXT,<A>)> ;I|F ERROR, DESCRIBE|( IT
	EXP	0			
	|H.CREF				
	LIST				
  
	LIST	UVn	@l4@UVnY&i1 Hs

	  XLIhST

	CDO	     			
	CDO	.ZPAGA
(	CDO	.ZPAGN
	CDOH	.ZCHNK
	CDO	.SAhVE1
	CDO	.SAVE2
	CDO	.SAVE3
	CD(O	.SAVE4
	CDO	.SHAVET
	CDO	.SV13
	CDO	.SV14
	CDO	.SV15
	CDO	.SV1(6
	CDO	.RETT
	CHDO	.RETF
	CDO	.RhETE
	CDO	.AOS
	CDO	.SOS
	CDO	.Z(ERO
	CDO	.POPJ
H	CDO	.STOP
	CDO
	CDO
	CDO
	CDO 
	CDO
	CDO
	CD (O
	CDO
	CDO
	C HDO

	CDO				
	 hCDO	C%RPRM
	CDO	!C%INTR
	CDO	C%SE!(ND
	CDO	C%RECV
!H	CDO	C%BRCV
	CDO!h	C%REL
	CDO
	CD"O
	CDO
	CDO
	C"(DO
	CDO
	CDO
	"HCDO
	CDO
	CDO
"h
	CDO	      			
	CDO	F%IOPN
	CD#(O	F%AOPN
	CDO	F%#HOOPN
	CDO	F%IBYT#h
	CDO	F%OBYT
	C$DO	F%IBUF
	CDO	F$(%OBUF
	CDO	F%REL$H
	CDO	F%DREL
	C$hDO	F%RREL
	CDO	F%%REW
	CDO	F%POS
	CDO	F%CHKP
	CD%HO	F%INFO
	CDO	F%%hFD
	CDO	F%REN
	&CDO	F%DEL
	CDO
&(	CDO
	CDO
	CDO
	CDO
	CDO
	CDO&h
	CDO
	CDO
	CD'O

	CDO	      	'(		
	CDO	M%ACQP
'H	CDO	M%RELP
	CDO'h	M%IPSN
	CDO	M%N(XPG
	CDO	M%IPRC
	CDO	M%IPRM
	CD(HO	M%AQNP
	CDO	M%(hRLNP
	CDO	M%CLNC)
	CDO	M%FPGS
	C)(DO	M%GMEM
	CDO	M)H%RMEM
	CDO	AVBPG)hS
	CDO	PAGSTA
	*CDO	SWPSTA
	CDO	*(PAGTBL
	CDO	INME*HMF
	CDO	CEND
	C*hDO
	CDO
	CDO
	+CDO
	CDO
	CDO
+(	CDO
	CDO
	CDO
	CDO

	CDO	   +h   			
	CDO	T%TE,XT
	CDO	T%TTY
	,(CDO
	CDO
	CDO
,H	CDO
	CDO
	CDO
	CDO
	CDO
	CDO-
	CDO

	CDO	  -(    			
	CDO	L%C-HLST
	CDO	L%DLST
	CDO	L%CENT
	CD.O	L%CBFR
	CDO	L%.(DENT
	CDO	L%NEXT.H
	CDO	L%FIRS
	C.hDO	L%LAST
	CDO	L/%PREV
	CDO	L%PRE/(M
	CDO	L%CURR
	/HCDO	L%RENT
	CDO	/hL%SIZE
	CDO
	CD0O
	CDO
	CDO
	C0(DO
	CDO
	CDO
	0HCDO
	CDO

	CDO0h	I%INI1			
	CDO	1I%NOW
	CDO	I%EXI1(T
	CDO	I%ION
	C1HDO	I%IOFF
	CDO	I1h%SLP
	CDO	I%INT12
	CDO	I%INT2
	C2(DO	I%INT3
	CDO
2H	CDO
	CDO
	CDO
	CDO
	CDO
	CDO3
	CDO
	CDO
	CD3(O
	
	  LIST
  
	
	  LIST
  Y>
@ :hsX.LDST.(A,;B,C,HRRZ,HLRZ,LDB,MOVE),HLRZ,L[@ Hq(
	IFB <Bh>,<MAXSIZ==0
		IRP A,<IFG <A-MA(XSIZ>,<MAXSIZ==AH>>>
	IFNB <B>,<hB==0
		IRP A,<IFG <A-B>,<B==A>>>
B>,<B==[tP'[t;ZQ x[hrp [iSp [k9p [lp [lXp [lrp [ltp [lxp [l}p [n:=P [tuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p Hq<
	IFB <Bh>,<MINSIZ==377777,,777777
		IRP (A,<IFG <MINSIZ-AH>,<MINSIZ==A>>>
	IFNB <B>,<B==377777,,777777
	(	IRP A,<IFG <B-HA>,<B==A>>>
A>,<B==A>>>
[Lt;ZQ x[LvN8P'[NF:=p [PuySP'[PvNP'] a@.

	IFNDEF	A,<A==B>
F	_
QkRp _
Ql}p _
Qmp _
Qm7p _Sh6 ,pzg [ASCIZ \GLXLIB.EXE\]Z \G_Tu
SQ x_TuLSP'`P `DP `HP `LP `PP a>:=P a 9hsNLSH A,^D9LSH A,^D9aJ}Ks 	q
		@SALL
	  XLIST
	  INT	hERN %%.GLX			
	 
 SEARCH MACTEN			
(
	  IFN FTJSYS,<
HSEARCH MONSYM>	

h	  IFN FTUUOS,<SEARCH UUOSYM>	
	 ( IFB <B>,<.REQUEHST GLXINI
			IF2h,<	DEFINE CDO(A),
<
				  IFNB <A>
(,<IFNDEF A,<  A=Z
HZ
						  	SUPPR
hESS A>>
				Z+ZZ
				ZZ=
				.XCREF
			  	LIBVEC
			.CREF
			     >>
	  IFNB <B>(,<
			TWOSEG
		H	RELOC CORG
			DhEFINE ASSGN.<
			  .ASSIGN B%D, (DLOC, ..TLOC
			H>
			IF2, < DEFIhNE CDO(A)<
				IFNB <A>,<IFNDEF A(,< EXTERN A
				H		     SUPPRESS Ah>>
				>
				.XCREF
				LIBVEC
				.CREF
				>H
			>
	  %%.MODh==SIXBIT /A/	
	  LIST				

	aPtPHaPtkP aPuTP aPv\rP aPv|UP aR/
	   OPC dhA
	   POINTR(0,B)
	POINTR(0,e"luP'fDP fHP gkp gk9p glp gltp gl}p g4P HqT.SAVE.(\A).SAVE.(\Ag"@ RHu
	  IFB <RhB>,<..TA==..TAS+<C>>
	  IFNB <S(B>,<..TA==..TASH+<INSVL.(C,B)>>
	VL.(C,B)>>g$tkQ@@g$uP'g.N	@6@g.N gR~)  ;Hs^.LDST.(A,;hB,C,HRRM,HRLM,DPB,MOVEM)HRLM,Dgg
V (q
	IFNB <HB>,<IFN FTUUOS,<hA==B>>
	IFNB <C>,<IFN FTJSYS,<A==C>>
SYS,<ght-3P ghuWP ghuxSP ghv5P hDP hHP hLP hPP iFC@ dv TXT1. (A)TXT1. (A)iP iG, Yhux
	XLIST
Z	X(T,TXT.A)			
	Z(X(O,TXT.A)			
	XZH(D,TXT.A)			
	X(ZhF,TXT.A)			
	X(7[,TXT.A)			
	X(6,[(TXT.A)			
	X(W,T[HXT.A)			
	X(5,TX[hT.A)			
	X(P,TXT\.A)			
	X(U,TXT.\(A)			
	X(H,TXT.A\H)			
	X(C,TXT.A)\h			
	X(E,TXT.A)	]		
	X(I,TXT.A)		](	
	X(M,TXT.NA)		]H	
	X(J,TXT.NA)		]h	
	X(L,TXT.NA)		^	
	X(K,TXT.NA)		^(	
	X(A,TXT.NA)		^H	
	X(0,TXT.NA)		^h	
	X(3,TXT.A)			_
	X(V,TXT.A)			
	LIST
.A)			ic!h P ic!k Q `ic!kPQ @ic!lQ  ic!l`Q ic!lqQ ic!lvP ic!lvP ic!lxP'ic!lyP ic!lyQ ic$cHQ Eic$cIQ  ic$cJQ ic$cKQ @ic$cKQ  ic$cPQ D`ic$cQQ ic$cRQ `ic$cRQ  ic$cSQ ic$cTQ `ic$cTQ @ic$cUQ Dic$cUQ D@ic$cVQ D ic$cVQ C`ic$cWQ @ic$cXQ  ic$cZQ  ic$cZQ @ic$c[Q @ic$c[Q `m?pP$mKc@ .(2tBYTE (3)A.HWHO (9)AVER (6)AMIN (18)AEDTp (z>
	FI.A=='hFI.%%%
	FI.%%%==FI.%%%+1
	ZZ==q@ 0p'
	INTERN	PA
	IFB  <C>,<pA==B>
	IFNB <C>,<A=B>
 <Cup Cht<
	IFNB	<DB>,<..T==0
		IFED(	B-777777,<..T==DH1
			HLLZS	A>
Dh		IFE	B-77777700E0000,<..T==1
			E(HRRZS	A>
		IFE	EHB-777777777777,<Eh..T==1
			SETZM	FA>
		IFE	..T,<PF(USHJ  P,.ZERO
		FH	   	XLIST
			  Fh   JUMP  [POINTR(GA,B)]
			  	LIG(ST
			>>
	IFB	<GHB>,<SETZM	A>
B>,<SETZM	A>
uhP 	
=Z `zS
	  IFG )0A-INT.LV,<PRINTX )P?Level A interru*pts not supported*0>
	  .BGINT.(\A)
	.BGINT.(\A	- HtP
	  IFDEFH( ..BSIZ,<PRINTX ?HHMissing $EOB afteHhr a $BUILD>
	  .I.BSIZ==0			
	  .I(.BLOC==.			
	  RIHEPEAT A,<			
		IhBLD0.(\..BSIZ,0)	J
		..BSIZ==..BSIZ+1>	
	==..BSI	H  3hs:
	IF1,< I4FNDEF	..TLOC,<..T4(LOC==0
				..DCT4HR==0
				>
	A=4h..TLOC
	IFB <B>5,<	..TLOC==..TLOC