.MCALL .MODULE .MODULE PISET,VERSION=44,COMMENT= ; Copyright (c) 1998 by Mentec, Inc., Nashua, NH. ; All rights reserved ; ; This software is furnished under a license for use only on a ; single computer system and may be copied only 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 except for use on such ; system and to one who agrees to these license terms. Title ; to and ownership of the software shall at all times remain ; in Mentec, Inc. ; ; The information in this document is subject to change without ; notice and should not be construed as a commitment by Digital ; Equipment Corporation, or Mentec, Inc. ; ; Digital and Mentec assume no responsibility for the use or ; reliability of its software on equipment which is not supplied ; by Digital or Mentec, and listed in the Software Product ; Description. ;+ ; SETTYP ; ; The SETTYP macro chooses the type of expansion for the following ; SET* macros. It also supplies a label or a base address for the ; expansions, where appropriate. The type of expansions are: ; ; CONSTANT -- generate an area labelled with the "NAME" ; given in SETTYP and initialized to the values ; that are given for defaults. ; ; VARIABLE -- generate an area labelled with the "NAME" ; given in SETTYP and with each individual item ; labelled as well. The names of the proper ; values are also generated as equates. ; ; OFFSET -- generate a "DSECT" describing the area. The ; "NAME" in SETTYP is an origin value (defaulting ; to 0. The names of the proper values are also ; generated as equates. ;- .Macro SetTyp Name,Option,List=NO,Global=NO .....1=1 ...Set=0 ...Gbl=0 ...Lst=0 .IIf DIF ,,.NList LD .IIf DIF ,,...Lst=1 .IIf DIF ,,...Gbl=1 .Irp x, .IIf IDN