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