Trailing-Edge
-
PDP-10 Archives
-
BB-Z759A-SM
-
cobol-source/c8xshr.mac
There is 1 other file named c8xshr.mac in the archive. Click here to see a list.
; UPD ID= 1491 on 1/18/84 at 3:45 PM by JBLAU
; UPD ID= 1034 on 4/28/83 at 11:01 PM by NIXON
TITLE C8XSHR - COBOL OTS SHAREABLE DISPATCH TABLE AND LOWSEG PRESETS
SEARCH COPYRT
SALL
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
COPYRIGHT (C) 1975, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
;AUTHOR D.B.TOLMAN
SEARCH LBLPRM,COMUNI
IFE TOPS20,< SEARCH UUOSYM >
IFN TOPS20,< SEARCH MONSYM >
%%COMU==:%%COMU
%%LBLP==:%%LBLP
TWOSEG HI.ORG
.COPYRIGHT ;Put standard copyright statement in REL file
DBMS==:DBMS
MCS==:MCS
; DEFINE THE DISPATCH TABLE AND LOW SEG PRESETS
; AC DEFINITIONS A'LA CBLIO FOR LOW SEG VALUES
AC1==1
AC2==2
AC6==6
; IT MUST BE AT THE BEGINNING OF LIBOL.SHR
PURHI%
;[1106] The following definition is moved to COMUNI
;[1106]IFE TOPS20,< ;DEFINE ABSOLUTE LOCATION OF RMS VECTOR
;[1106] ; IN NON /R CASE ON THE -10
;[1106] RMS$10==:526010
;[1106]>;END IFE TOPS20
; DEFINE THE LOW SEGMENT LOCATION NAMES
PURLO%
FIXNUM==:FIXNUM ;LENGTH OF INFORMATION HEADER BLOCK
;In COBOL-74 version 12A and earlier FIXNUM was one word less (%DB.)
;Define FIXNMA to be the previous size of FIXNUM so that old programs
;can run with 12B OTS.
FIXNMA==:FIXNUM-1
LIBIMP==:0 ;RESOLVE GLOBAL WHICH CAUSES LIBREL
;(COBOTS.LOW) TO BE LOADED IN /R CASE
END