Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/tfrcal.c11
There are 3 other files named tfrcal.c11 in the archive. Click here to see a list.
 INS 3/1	;11C1
	;COPYRIGHT (C) 1980, 1985 BY
	;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
	;
	;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
	;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE AND WITH THE
	;INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY  OTHER
	;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
	;OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE  SOFTWARE  IS  HEREBY
	;TRANSFERRED.
	;
	;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT  NOTICE
	;AND  SHOULD  NOT  BE  CONSTRUED  AS A COMMITMENT BY DIGITAL EQUIPMENT
	;CORPORATION.
	;
	;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY  OF  ITS
	;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

	IF1	<PRINTX TFRUNV-20 Version 4(217)>
	;EDITS
	;NAME	DATE		COMMENTS

	;V4*****************
	;BCM	22-Mar-85	[217] Move test for LABEL in $FARG macro, before
	;				test for LOCAL.
	;********************
 REP 91/1	;11C2
		  .IF	ARG,LOCAL,<$ZARG	ARG,LBL>
		  .IF	ARG,LABEL,<
 WIT
		  .IF	ARG,LABEL,<	;;[217] test label first
 INS 100/1	;11C3
		  .IFN	ARG,LABEL,<	;;[217] else, if not LABEL check LOCAL/SYMBOL
		  .IF	ARG,LOCAL,<$ZARG	ARG,LBL>
 INS 108/1	;11C4
		  >			;;[217] end .ifn LABEL
 SUM 60263