Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-11 - 43,50535/macs.unv
There are no other files named macs.unv in the archive.
x
,5@P C

@ C3$[R |Hf   JRST c|h
	    A: B
	    c:
	B
	 Ge@ ,G"ty@ 	TXC F,AG2,@ 8   SETZM A
	    MOVE T1,[XA,,A+1]
	    BxLT T1,A+B-1
	T T1,A+B-1
	I4j6 Fxw   OPEN AG, [B
		     SIXG8BIT/C/
		     GXD,,E ]
	    JRSGxT ERROPN
	    MOHVEMM F,I,T1
	 H8   MOVEMM G,I+1HX,T1
	    MOVEMM HxH,I+2,T1
	    ISETZM I+3
	    I8IFNB <J>,
	    IX<	WHENSK <SKIPGE IxJ>,		<   MOVEI TJ1,M
		    MOVEMJ8 T1,I+3
		    MJXOVNI T1,2
		    JxMOVEM T1,M
		  K  MOVEI T1,1
		XK8   MOVEM T1,M+1
		    MOVEMM J,KxM+2,T1
		    MOLVEMM K,M+3,T1
L8		    MOVEMM L,LXM+4,T1
		    SETLxZM M+5 >
	    >M
	    MOVNI T1,1M8
	    IFN E,<LOMXOKUP A,I>
	   Mx IFE E,<ENTER AN,I>
	    HRRZ TN81,I+1	; GET ERRONXR CODE
	    MOVENxMM I+2,H,T2
	M I+2,H,T2
	I4k	 O8G   MOVEI TOX1,B
	    MOVEM OxT1,I
	    MOVEMPM C,I+1,T1
	  P8  MOVEMM [D,,E]PX,I+2,T1
	    OPPxEN A,I
	    JRQST ERROPN
	    IQ8FN E,<INBUF A,QXN>
	    IFE E,<QxOUTBUF A,N>
	 R   MOVEMM F,I,TR81
	    MOVEMM GRX,I+1,T1
	    MORxVEMM H,I+2,T1
S	    SETZM I+3
S8	    IFNB <J>,
SX	    <	WHENSK <SKSxIPGE J>,		<   MOTVEI T1,M
		    T8MOVEM T1,I+3
		TX    MOVNI T1,2
	Tx	    MOVEM T1,M
		    MOVEI T1,1U8
		    MOVEM T1,UXM+1
		    MOVEMUxM J,M+2,T1
		 V   MOVEMM K,M+3V8,T1
		    MOVEMMVX L,M+4,T1
		  Vx  SETZM M+5 >
	W    >
	    MOVNIW8 T1,1
	Wx  IFN WXE,<LOOKUP A,I>
	    IFE E,<ENTXER A,I>
	    HX8RRZ T1,I+1	; GETXX ERROR CODE
	   Xx MOVEMM I+2,H,T2
	M I+2,H,TI< z(R   b: A b
	   b: A [?4Z6 8   MOVEI XC,A
	    MOVEM C,B
	 MOVEM [?4[6 X   MOVE Cx,A
	    MOVEM C,B
	 MOVEM [?7 8#   IFE B&X777777B17, <MOVEIx A,B>
	8  IFN B&777777B17, <
		IFE B&777777BX35, <MOVSI A,(Bx) >
		IFN B&777777B35, <MOVE A,8[B] >
	    >
	B] >
	    >
	[N8 }XmOUTSTR[ASCIZ A]UTSTR[ASC[N=` ~s   OUTSTR ~8[ASCIZ "
A" ]
	CIZ "
A" ]
aJn9` ~xwPRSTR[ASCIZ A] RSTR[ASCIaJn9w 8{   PRSTR [ASCIZ"
A"]
	aJ|0 hA:e<I3 Q  F=0	; FL8AGS
	   S1=5		; X"HIGHER LEVEL" WOxRK REGISTERS
	   S2=6
	   S3=7
8	   S4=10
	   T1X=11	; "LOWER LEVExL" WORK REGISTERS	
	   T2=12
	   	8T3=13
		X T4=14
			; 16 IS USED 	xBY "RESTOR"
	   
SP=17	; STACK POINTER
	TACK POIeKy 1    JSP 16,RSTOR##-A  16e&\W ,~eO&): X5    JRST RSTRN##-A  ST Rg6  -   IFL A-84,
	    <   PUSHX SP,1
		IFG A-1x, <PUSH SP,2>
		IFG A-2, <PUSH S8P,3>
	    >
	  X  IFGE A-4,
	  x  <	HRLI AC,1
		HRRI AC,1(SP)
		8ADJSP SP,A
		BLXT AC,(SP)
	    >
	(SP)
	    >g$` }TXO F,Ag$j6 x3

   OPEN A, [ B
		      S8IXBIT/DSK/
		   X   C,,D ]
	   x JRST [ MSGN <ERROR IN OPENING CHA8NNEL>
		   EXIT X ]
	    IFNB <Fx>,
	    <	DEFINE X
		<   MOVEI S81,E
		    CALL XRDFNAM
		8   JUMxPE S1, [ MSGN <ERROR IN FILENAME>
				EXIT	]
		  X  MSGN <ENTER PROxJECT NUMBER >
		    INCHWL CH
		A8    CALL OCTIN
	AX	    CALL GETLF
Ax		    HRLM T1,E+B3
		    MSGN <ENB8TER PROGRAMMER NUBXMBER >
		    INCBxHWL CH
		    CALCL OCTIN
		    CAC8LL GETLF
		    HCXRRM T1,E+3
		>
		IFE F-1, <X>
		IFN F-1, < WHD8ENSK <SKIPE E>,<DXX> >
	    >
	  Dx  SETZM E+2
	  E  IFN D, <LOOKUPE8 A,E>
	    IFEEX D, <ENTER  A,ExE>
	    JRST [ MFSGN <ERROR IN LOOF8KUP OR ENTER>
			EXIT  ]
	
		g/yS 8TXNE F,ATXNE F,Ag/{@ xTXNN F,A	TXNN F,Ag@@ ib >x  IFE B&7?77777B17,<TRC  A?8,B >
			   IFN ?XB&777777B17,<
	?x			IFE B&777777B@35,<TLC  A,(B) @8>
				IFN B&777@X777B35,<TDC  A,[@xB] >
			    >
			
			    >
ib <8s  IFE B&7<X77777B17,<TRCA A<x,B >
			   IFN =B&777777B17,<
	=8			IFE B&777777B=X35,<TLCA A,(B) =x>
				IFN B&777>777B35,<TDCA A,[>8B] >
			    >
			
			    >
ibP 78K  IFE B&77X77777B17,<TRCE A7x,B >
			   IFN 8B&777777B17,<
	88			IFE B&777777B8X35,<TLCE A,(B) 8x>
				IFN B&7779777B35,<TDCE A,[98B] >
			    >
			
			    >
ib` 9x_  IFE B&7:77777B17,<TRCN A:8,B >
			   IFN :XB&777777B17,<
	:x			IFE B&777777B;35,<TLCN A,(B) ;8>
				IFN B&777;X777B35,<TDCN A,[;xB] >
			    >
			
			    >
ibp  x  IFE B&7!77777B17,<TRN  A!8,B >
			   IFN !XB&777777B17,<
	!x			IFE B&777777B"35,<TLN  A,(B) "8>
				IFN B&777"X777B35,<TDN  A,["xB] >
			    >
			
			    >
ibt 8  IFE B&7X77777B17,<TRNA Ax,B >
			   IFN B&777777B17,<
	8			IFE B&777777BX35,<TLNA A,(B) x>
				IFN B&777 777B35,<TDNA A,[ 8B] >
			    >
			
			    >
ibtP 8[  IFE B&7X77777B17,<TRNE Ax,B >
			   IFN B&777777B17,<
	8			IFE B&777777BX35,<TLNE A,(B) x>
				IFN B&777777B35,<TDNE A,[8B] >
			    >
			
			    >
ibu` xo  IFE B&777777B17,<TRNN A8,B >
			   IFN XB&777777B17,<
	x			IFE B&777777B35,<TLNN A,(B) 8>
				IFN B&777X777B35,<TDNN A,[xB] >
			    >
			
			    >
ibx 4x7  IFE B&7577777B17,<TRO  A58,B >
			   IFN 5XB&777777B17,<
	5x			IFE B&777777B635,<TLO  A,(B) 68>
				IFN B&7776X777B35,<TDO  A,[6xB] >
			    >
			
			    >
ib| 28#  IFE B&72X77777B17,<TROA A2x,B >
			   IFN 3B&777777B17,<
	38			IFE B&777777B3X35,<TLOA A,(B) 3x>
				IFN B&7774777B35,<TDOA A,[48B] >
			    >
			
			    >
ib|P -8{  IFE B&7-X77777B17,<TROE A-x,B >
			   IFN .B&777777B17,<
	.8			IFE B&777777B.X35,<TLOE A,(B) .x>
				IFN B&777/777B35,<TDOE A,[/8B] >
			    >
			
			    >
ib}` /x  IFE B&7077777B17,<TRON A08,B >
			   IFN 0XB&777777B17,<
	0x			IFE B&777777B135,<TLON A,(B) 18>
				IFN B&7771X777B35,<TDON A,[1xB] >
			    >
			
			    >
icOP A,
	    < IRP B,
	<	DEFINE)TXAB 
			<  IFE FLAGS&7777778B17,<TRAB AC,FLXAGS >
			   IFN xFLAGS&777777B17,<
				IFE FLAGS&7877777B35,<TLAB XAC,(FLAGS) >
			x	IFN FLAGS&777777B35,<TDAB AC,[F8LAGS] >
			    >X
			>
		 >
	    >
			 >
	  icP *xg  IFE B&7+77777B17,<TRZ  A+8,B >
			   IFN +XB&777777B17,<
	+x			IFE B&777777B,35,<TLZ  A,(B) ,8>
				IFN B&777,X777B35,<TDZ  A,[,xB] >
			    >
			
			    >
icT (8S  IFE B&7(X77777B17,<TRZA A(x,B >
			   IFN )B&777777B17,<
	)8			IFE B&777777B)X35,<TLZA A,(B) )x>
				IFN B&777*777B35,<TDZA A,[*8B] >
			    >
			
			    >
icTP #8+  IFE B&7#X77777B17,<TRZE A#x,B >
			   IFN $B&777777B17,<
	$8			IFE B&777777B$X35,<TLZE A,(B) $x>
				IFN B&777%777B35,<TDZE A,[%8B] >
			    >
			
			    >
icU` %x?  IFE B&7&77777B17,<TRZN A&8,B >
			   IFN &XB&777777B17,<
	&x			IFE B&777777B'35,<TLZN A,(B) '8>
				IFN B&777'X777B35,<TDZN A,['xB] >
			    >
			
			    >
k:e+8 xHN

		IFB <xhC>,<A e>
		IFNyB <C>,<A d>
	y(	B
		IFNB <C>,yH<JRST e
			    yh d:C>
		e:  d:C>
		e:  k;] TXZ F,Ak;% {h`   c: A |d
	    B c
	    d:
	c
	kBr 
Xe   CAIL A
x,"a"		; LESS THAN LOWER CASE A?
	8    CAILE A,"z"	X	; LESS THAN OR ExQUAL TO LOWER CAS

E Z?
	    SKIPA

8
	    TRZ A,40		

X; UPPER CASIFY IT
	ER CASIFY ITo"-lu vh@

		A
		wIFB <C>, <JRST w(e>
		IFNB <C>, wH<JRST d>
		B
wh		IFNB <C>, <JRSxT e
			    d: C>
		e: d: o"f:x zhZ   c: A
	    JRST d
	 {(   B c
	    d:
	c
	    dS@P >}{woP