Trailing-Edge
-
PDP-10 Archives
-
bb-bt99h-bb
-
sta0.c13
There is 1 other file named sta0.c13 in the archive. Click here to see a list.
REP 19/1 ;13C1
!AUTHOR: F.J. INFANTE/HPW/ D. B. TOLMAN/DCE/TFV/CKS/CDM/AHM/RVM/RJD/TJK/AlB/MEM
WIT
!AUTHOR: F.J. INFANTE/HPW/ D. B. TOLMAN/DCE/TFV/CKS/CDM/AHM/RVM/RJD/TJK/AlB/MEM/JB
REP 24/1 ;13C2
GLOBAL BIND STA0V = #10^24 + 0^18 + #2534; ! Version Date: 13-Jun-85
WIT
GLOBAL BIND STA0V = #10^24 + 0^18 + #2557; ! Version Date: 6-Nov-85
INS 360/1 ;13C3
2557 JB 6-Nov-85
Check for the use of specific function names in argument lists
instead of in INTRINSIC statements. Call routine INTRCHK to
perform the check.
INS 424/1 ;13C4
%2557% INTRCHK,
REP 120/6 ;13C5
THEN NAMSET(VARYREF, .T2 )
WIT
%2557% THEN NAMSET(VARYREF, .T2 );
%2557% ! If the argument is a
%2557% ! function name, call
%2557% ! INTRCHK to check that
%2557% ! it has been declared
%2557% ! INTRINSIC and is a
%2557% ! specific function
%2557% ! name.
%2557% IF .T2[OPR1] EQL FNNAMFL
%2557% THEN INTRCHK(.T2);
SUM 74815