Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/datast.c05
There are no other files named datast.c05 in the archive.
REP 5/1 ;05C1
!COPYRIGHT (C) 1972,1981 BY DIGITAL EQUIPMENT CORPORATION
!AUTHOR: S. MURPHY/DCE/TFV/AHM
WIT
!COPYRIGHT (C) 1972,1981,1982 BY DIGITAL EQUIPMENT CORPORATION
!AUTHOR: S. MURPHY/DCE/TFV/AHM/EGM
REP 17/1 ;05C2
GLOBAL BIND DATASV = 6^24 + 0^18 + 52; ! Version Date: 25-Sep-81
WIT
GLOBAL BIND DATASV = 6^24 + 0^18 + #1157; ! Version Date: 11-Jun-82
INS 51/1 ;05C3
***** End V6 Development *****
1157 EGM 11-Jun-82
Alter error FTNMVC to indicate whether there are more or less data
items that constants in a DATA statement.
REP 254/1 ;05C4
THEN WARNERR(.ISN,E57<0,0>); !GIVE WARNING
WIT
%[1157]% THEN WARNERR(PLIT'is less than?0',.ISN,E57<0,0>); !GIVE WARNING
REP 504/1 ;05C5
WARNERR(.ISN,E57<0,0>); !PRINT WARNING MESSAGE
WIT
%[1157]% WARNERR(PLIT'is greater than?0',.ISN,E57<0,0>); !PRINT WARNING MESSAGE
SUM 103497