Google
 
Trailing-Edge - PDP-10 Archives - TRAFFIC-20_V4_840514 - traffic-binary/tfrcal.unv
There are no other files named tfrcal.unv in the archive.
x,5)@P KKhPP KKiP KKi6@ KKj0P KKj;@ KKk6P KKkQP KKkRP KKkSP KKkVP KKkWP 	KKk[@ KKk{P KKmP 	KKm3P KKmP@ KKmvP S:$ miv
	%ASM=0
	$ARGL(A,3)
	$n(SARG(B)
	$IARG(nHC)
	$NARG(D)
nh	$XARG(A,INPDAT)
RG(A,INPDAT)_V$ pi
	%ASM=0
	$ARGL(A,3)
	$q(SARG(B)
	$IARG(qHC)
	$NARG(D)
qh	$XARG(A,OUTDAT)
RG(A,OUTDAT)i	b :I^
	%ASM=0
	$ARGL(A,3)
	$;FARG(B,\%LBL)
	;(IRP	C,<$SARG(C);H>
	$IARG(D,\%LB;hL)
	$XARG(A,TFRCHG,\%LBL)
TFRiLB >)
	%ASM=0
	IFNB <A>,<
	 >h  $ARGL(A,2)
	 ?  $FARG(B,\%LBL)?(
	   $IARG(C,\%?HLBL)>
	IFB  <A>?h,<
	   $ARGL(A,@0)>
	$XARG(A,TFRCLR,\%LBL)
TFi.,B Ai
	%ASM=0
	$ARGL(A,2)
	$B(SARG(B)
	$FARG(BHC,\%LBL)
	$XARGBh(A,TFRERR,\%LBL)
TFRERR,\%LBL)i5kb Di0
	%ASM=0
	$ARGL(A,3)
	$E(SARG(B)
	$IARG(EHC,\%LBL)
	$IARGEh(D,\%LBL)
	$XARFG(A,TFRFNO,\%LBL)
TFRFNO,\%LBLi<] H	L

	%ASM=0
	$ARGL(A,4)
	$HHFARG(B,\%LBL)
	Hh$NARG(C,\%LBL)
I	$IARG(D,\%LBL)
	$IARG(E,\%LBL)IH
	$XARG(A,TFRGET,\%LBL)
TFRGEiMj" KIh

	%ASM=0
	$ARGL(A,4)
	$LIARG(B,\%LBL)
	L($SARG(C)
	$FARGLH(D,\%LBL)
	$IARLhG(E,\%LBL)
	$XAMRG(A,TFRINI,\%LBL)
TFRINI,\%LBin9b Ni~
	%ASM=0
	$ARGL(A,2)
	$O(SARG(B)
	$NARG(OHC,\%LBL)
	$XARGOh(A,TFRMSG,\%LBL)
TFRMSG,\%LBL)i] Qi

	%ASM=0
	$ARGL(A,4)
	$R(FARG(B,\%LBL)
	RH$NARG(C,\%LBL)
Rh	$SARG(D)
	$IARSG(E,\%LBL)
	$XAS(RG(A,TFRPUT,\%LBL)
TFRPUT,\%LBi) U)4
	%ASM=0
	$ARGL(A,3)
	$UhFARG(B,\%LBL)
	V$IARG(C,\%LBL)
V(	$IARG(D,\%LBL)
	$XARG(A,TFRRD,\%LBL)
,TFRRD,i; XiT


	%ASM=0
	$ARGL(A,5)
	$Y(NARG(B,\%LBL)
	YH$NARG(C,\%LBL)
Yh	$IARG(D,\%LBL)
	$NARG(E,\%LBL)Z(
	$IARG(F,\%LBLZH)
	$XARG(A,TFRRSL,\%LBL)
TFRRiH" `)

	IFNB	<`IB>,<
	 %ASM=0
	`h $ARGL(A,1)
	 $aSARG(B)
	 $XARGa((A,TFRSTA,\%LBL)
	>
TA,\%LBL)ib d	,

	%ASM=0
	$ARGL(A,4)
	$dHNARG(B,\%LBL)
	dh$NARG(C,\%LBL)
e	$IARG(D,\%LBL)
	$IARG(E,\%LBL)eH
	$XARG(A,TFRSYS,\%LBL)
TFRSYi>- g)B
	%ASM=0
	$ARGL(A,2)
	$ghFARG(B,\%LBL)
	h$IARG(C,\%LBL)
h(	$XARG(A,TFRWRT,\%LBL)
TFRWRT,i>K j	X
	%ASM=0
	$ARGL(A,2)
	$jHNARG(B,\%LBL)
	jh$IARG(C,\%LBL)
k	$XARG(A,TFRWTL,\%LBL)
TFRWTL,iW.B kI^
	SEARCH	kiMACSYM
	%LBL=0
CSYM
	%LBL=0
iJihyP iJiiP iJiiSP iJikP iJikP iJimP iJim0P iJimRP l:$@ l:.(r@ l:.+9@ l:5h6@ mtu@ mt^A ~mu\sA mv,RA ~mv-vA mv-z@ 	{ )Z
	%CNT=0
	%CCC=0
	IFE	%AhSM,<
	   EXP   0
A:>
	IFN	%ASM(,<
	   MOVEI 16,A>
 MOVEI 16,	)` ()
	IFB	<A(I>,<
	 IFE	%ASM,<(h$ZARG	0,B>
	>
)	IFNB	<A>,<
	 %)(FL1=0
	 %FL2=0
)H	 IRPC	A,<IFIDN )h<A><">,<%FL1=1>>*
	 .IF	A,NUMERI*(C,<
	  IFE	%FL1,*H<
	   %FL2=1
	 *h  $ZARG	A,B>
	+ >
	+IFE	%FL2,<
	  .IF	A,LOCAL,+H<$ZARG	A,B>
	 +h .IF	A,LABEL,<
,	   IFE	%ASM,<
	,(   EXP   A>
	  ,H IFN	%ASM,<
	   ,hMOVE  0,A
	-( M-OVEM 0,@%CNT(16)
	   %CCC=%CCC+1>-H
	  >
	  .IFN	-hA,SYMBOL,<
	   I.FE	%ASM,<
	   EX.(P   17B12+[ASCIZ .HA]>
	   IFN	%AS.hM,<
	   MOVE  0,/[17B12+[ASCIZ A]/(]
	   MOVEM 0,%C/HNT(16)
	   %CCC=/h%CCC+1>
	  >
	 0>
	>
	%CNT=%CNT0(+1
	PURGE	%FL1,%FL2
RGE	%FL1,%	&)` %I>
	IFB	<A%i>,<
	 IFE	%ASM,<&$ZARG	0,B>
	>
&(	IFNB	<A>,<
	 I&HFE	%ASM,<
	   EX&hP   A>
	 IFN	%A'SM,<
	   MOVEI 0'(,A
	   MOVEM 0,'H%CNT(16)
	   %CC'hC=%CCC+1>
	>
	%CNT=%CNT+1

	%	&tH: l)j
	%ASM=1
	$ARGL(A,3)
	$lhSARG(B)
	$IARG(mC)
	$NARG(D)
m(	$XARG(A,INPDAT)
RG(A,INPDAT)	:)` i|
	IFB	<A	>,<
	 IFE	%ASM,<($ZARG	0,B>
	>
H	IFNB	<A>,<
	 .hIF	A,ASSIGNMENT,<$ZARG	A,B>
	 (.IF	A,NUMERIC,<$HZARG	A,B>
	 .IhF	A,RELOCATABLE,<
	(IFE	%ASM,<
	   EXP   A>
	H  IFN	%ASM,<
	  h MOVE  0,A
	   MOVEM 0,@%CNT(16)(
	   %CCC=%CCC+1H>
	 >
	>
	%CNT=%CNT+1

	%CNT	?,H: o)
	%ASM=1
	$ARGL(A,3)
	$ohSARG(B)
	$IARG(pC)
	$NARG(D)
p(	$XARG(A,OUTDAT)
RG(A,OUTDAT)	N)`  	(
	IFB	<A )>,<
	 IFE	%ASM,< H
	   EXP   17B12 h>
	>
	IFNB	<A>!,<
	 .IFN	A,SYM!(BOL,<
	  IFE	%AS!HM,<
	   EXP   17!hB12+[ASCIZ A]>
"	  IFN	%ASM,<
	 "(  MOVE  0,[17B12+"H[ASCIZ A]]>
	 >"h
	 .IF	A,SYMBOL#,<
	  IFE	%ASM,<#(
	   EXP   17B12#H+A>
	  IFN	%ASM#h,<
	   MOVE  0,[$17B12+A]>
	 >
$(	 IFN	%ASM,<
	  $H MOVEM 0,%CNT(16)$h
	   %CCC=%CCC+1%>
	>
	%CNT=%CNT+1

	%CNT=%CNT	R4+ 8)D
	EXTERN	8ITFRBLK
	PUSHJ	17,TFRBLK
SHJ	17	R4: 9	P
	%ASM=1
	$ARGL(A,3)
	$9HFARG(B)
	IRP	C9h,<$SARG(C)>
	$I:ARG(D)
	$XARG(A,TFRCHG)
RG(	R4; <)n
	%ASM=1
	IFNB <A>,<
	 <h  $ARGL(A,2)
	 =  $FARG(B)
	   =($IARG(C)>
	IFB =H <A>,<
	   $ARG=hL(A,0)>
	$XARG(A,TFRCLR)
RG(	R4\Y @I

	%ASM=1
	$ARGL(A,2)
	$ASARG(B)
	$FARG(A(C)
	$XARG(A,TFRERR)
RG(A,TF	R4kW C)"
	%ASM=1
	$ARGL(A,3)
	$ChSARG(B)
	$IARG(DC)
	$IARG(D)
D(	$XARG(A,TFRFNO)
RG(A,TFRFNO)	R4y: FI<

	%ASM=1
	$ARGL(A,4)
	$GFARG(B)
	$NARG(G(C)
	$IARG(D)
GH	$IARG(E)
	$XARG(A,TFRGET)
R	R5T J	X

	%ASM=1
	$ARGL(A,4)
	$JHIARG(B)
	$SARG(JhC)
	$FARG(D)
K	$IARG(E)
	$XARG(A,TFRINI)
R	R5\s MIr
	%ASM=1
	$ARGL(A,2)
	$NSARG(B)
	$NARG(N(C)
	$XARG(A,TFRMSG)
RG(A,TF	R6


	%ASM=1
	$ARGL(A,4)
	$PhFARG(B)
	$NARG(QC)
	$SARG(D)
Q(	$IARG(E)
	$XARG(A,TFRPUT)
R	R6,R Si&
	%ASM=1
	$ARGL(A,3)
	$T(FARG(B)
	$IARG(THC)
	$IARG(D)
Th	$XARG(A,TFRRD)
ARG(A,TFRRD)


	%ASM=1
	$ARGL(A,5)
	$WHNARG(B)
	$NARG(WhC)
	$IARG(D)
X	$NARG(E)
	$IARX(G(F)
	$XARG(A,TFRRSL)
RG(A,	R6,z [	Z
	EXTERN	[)TFRRST
	PUSHJ	17,TFRRST
SHJ	17	R6-z [i`
	EXTERN	\	TFRRWT
	PUSHJ	17,TFRRWT
SHJ	17	R69: \If
	EXTERN	\iTFRSET
	PUSHJ	17,TFRSET
SHJ	17	R6= ])~
	EXTERN	]IRESET.
	JSP	16,R]hESET.
	0
	IFNB	^<A>,<
	^%ASM=1
	 $ARGL(A,1)
	^H $SARG(B)
	 $XA^hRG(A,TFRSTA)
	>_
	IFB	<A>,<
	 _(MOVEI	16,[0]+1
	_H EXTERN	TFRSTA
	h PUSHJ	17,TFRSTA
	>
17,TFRSTAai
	EXTERN	b	TFRSTP
	PUSHJ	17,TFRSTP
SHJ	17	R6>9 bI

	%ASM=1
	$ARGL(A,4)
	$cNARG(B)
	$NARG(c(C)
	$IARG(D)
cH	$IARG(E)
	$XARG(A,TFRSYS)
R	R6|Z f	6
	%ASM=1
	$ARGL(A,2)
	$fHFARG(B)
	$IARG(fhC)
	$XARG(A,TFRWRT)
RG(A,TF	R6} hiL
	%ASM=1
	$ARGL(A,2)
	$i(NARG(B)
	$IARG(iHC)
	$XARG(A,TFRWTL)
RG(A,TF	b)` 3i>
	IFE	%AS4	M,<
	   RELOC	A4(-1
	   XWD   -%C4HNT,0
	 IF1	<
	 4h RELOC	A+%CNT
%5%LC:   BLOCK	%CC5(C
	 >
	 IF2	<RE5HLOC	A+%CNT+%CCC>5h
	 %LBL=%LBL+1
6	>
	IFN	%ASM,<
6(	 IFN	%CCC,<
	  6H MOVSI 0,-%CNT
	6h   MOVEM 0,-1(16)7>
	7( EXTERN B
	7H PUSHJ 17,B
	>
	IF2	<
	 PU7hRGE		%CNT,%CCC,%ASM
	>
%CCC,%A	j)` 0i
	IFE	%AS1	M,<
	   EXP   %%1(LB+%CCC
	 IF2	<1H
	   RELOC	%%LB1h+%CCC
	   EXP   2A
	   RELOC>
	2( %CCC=%CCC+1
	>H
	IFN	%ASM,<
	  2h MOVX  0,A
	   3MOVEM 0,@%CNT(16)3(
	   %CCC=%CCC+1
	>
CC=%CCC+1S@P >}{woP