Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/tfrcal.c12
There are 3 other files named tfrcal.c12 in the archive. Click here to see a list.
 INS 6/2	;12C1
	;BCM	11-Jun-85	[230] Add error code arg to $TFERR and TFERR$
 REP 85/4	;12C2
		$ARGL(ARG,2)
		$SARG(MSG)
		$FARG(FLD)
 WIT
		$ARGL(ARG,3)		;;[230] Modify for 3 args
		$SARG(MSG)
		$FARG(FLD)
		$IARG(ERR)		;;[230] Add error code
 REP 92/4	;12C3
		$ARGL(ARG,2)
		$SARG(MSG)
		$FARG(FLD,\%LBL)
 WIT
		$ARGL(ARG,3)		;;[230] Modify for 3 args
		$SARG(MSG)
		$FARG(FLD,\%LBL)
		$IARG(ERR,\%LBL)	;;[230] Add error code
 SUM 53480