Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/outmod.c05
There are no other files named outmod.c05 in the archive.
REP 5/1 ;05C1
!COPYRIGHT (C) 1973,1981 BY DIGITAL EQUIPMENT CORPORATION
!AUTHOR: F. INFANTE/MD/DCE/JNG/TFV/AHM
WIT
!COPYRIGHT (C) 1973,1981,1982 BY DIGITAL EQUIPMENT CORPORATION
!AUTHOR: F. INFANTE/MD/DCE/JNG/TFV/AHM/EGM
REP 17/1 ;05C2
GLOBAL BIND OUTMOV = 6^24 + 0^18 + 85; ! Version Date: 28-Sep-81
WIT
GLOBAL BIND OUTMOV = 6^24 + 0^18 + #1151; ! Version Date: 25-Mar-81
INS 139/1 ;05C3
***** End V6 Development *****
97 1146 EGM 5-Jan-82 20-17060
Pass the ISN of the illegal Equivalance group for error IED.
1151 EGM 25-Mar-81
Report ?Program too large for COMMON 512P and up
INS 556/1 ;05C4
%[1151]% IF .TCOMSIZ GEQ 1^18 THEN !If COMMON is GTR or EQL 512P
%[1151]% BEGIN
%[1151]% EXTERNAL FATLER,E142;
%[1151]% FATLER(0,E142<0,0>) !Program is too large
%[1151]% END;
REP 566/1 ;05C5
FATLERR(.ISN,E49<0,0>); !SAME MSG AS BELOW
WIT
%[1146]% FATLERR(.GROUP[EQVISN],E49<0,0>); !SAME MSG AS BELOW
SUM 52746