Google
 

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_1_19910112 - 5-galaxy/lsrmac.unv
There are no other files named lsrmac.unv in the archive.
x
,5BP CX P 1		;ACKNOWLpEDGE OPRATOR

	CALL .ACK.
	 SKI0PA
	 [ASCIZ \A\P]
	 SKIPA
IFB  p<B>, <0>
IFNB <B>, <[ASCIZ \B\]>
	ASCIZ \B\DP FP HP LP L
-Q L2P$L2 P"L20P!LDL@Q LUx@Q  L|i@Q L\ Q L.Q @Y>8 p U		;WRITE T	O OPERATOR - LOG 	0MESSAGE

	CALL 	P.LOG.
	 SKIPA
		p [ASCIZ \A\]
	 
SKIPA
IFB  <B>,
0 <0>
IFNB <B>, 
P<[ASCIZ \B\]>
	ASCIZ \B\]>
	`P `DP `HP `LP iF@ 0 		;TEXT UTPILITY

	CALL TEpXT.
	 SKIPA
	 Z A
	 SKIPA
	 [ASCIZ \B\]
	[oRx P !		;WRITE TpO OPERATOR

	CALL .WTO.
	 SKIPA0
	[ASCIZ \A\]
	 SKIPA
IFB  <pB>, <0>
IFNB <B>, <[ASCIZ \B\]>
	ASCIZ \B\]>oR}  P C		;WRITE TpO OPERATOR - JOB MESSAGE

	CALL 0.WTOJ.
	 SKIPA
P	 [ASCIZ \A\]
	p SKIPA
IFB  <B>, <0>
IFNB <B>,0 <[ASCIZ \B\]>
	ASCIZ \B\]>
S@P >}{woP