Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

!
!                  COPYRIGHT (c) 1981, 1982 BY
!           Digital Equipment Corporation, Maynard, MA.
!
!   This software is furnished under a license and may be  used
!   and  copied  only  in  accordance  with  the  terms of such
!   license and 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.   No  title  to  and  ownership  of the software is
!   hereby transferred.
!
!   The information in  this  software  is  subject  to  change
!   without  notice and should not be construed as a commitment
!   by Digital Equipment Corporation.
!
!   Digital  assumes  no  responsibility   for   the   use   or
!   reliability  of  its  software  on  equipment  which is not
!   supplied by Digital.
!

!++
! FACILITY: Autopatch Exec Product Specific Initialization Macros
!
! ABSTRACT:
!
!   This file contains macros that are used during product specific
!   SELECT processing.  Currently, all macros are used only by 
!   the CBL12B_INI routine of module APXPSI.
!
!
! ENVIRONMENT: TOPS-20 / TOPS-10
!
! AUTHOR: Richard B. Waddington, CREATION DATE: 29-August-1983
!
! MODIFIED BY:
!
!	Revision history follows
!
!--

!
! Edit History for APXPSI
!
! --None

MACRO

    DEL_CBL(VER) =

	BEGIN
	IF NOT T_DELETE(.COMP_LIST,S('CBL',VER))
	THEN
	    RETURN FALSE;
	IF NOT T_DELETE(.COMP_LIST,S('LIB',VER))
	THEN
	    RETURN FALSE;
	IF NOT T_DELETE(.COMP_LIST,S('ISAM',VER))
	THEN
	    RETURN FALSE;

	END %,

    MULTI_SEG_FLAGS =
	%IF %SWITCHES(TOPS10)
	%THEN

	LITERAL
	    M68274 = 0,
	    M68    = 1,
	    M74    = 2;

	LOCAL
	    _MFLG: VECTOR[3];

	%FI %,

    MULTI_SEG_QUESTION(INDEX) =
	%IF %SWITCHES(TOPS10)
	%THEN

	BEGIN
	IF GET_YES_NO(S('Do you use the multi-segment compiler? '),S('NO'))
	THEN
	    _MFLG[INDEX] = TRUE
	ELSE
	    _MFLG[INDEX] = FALSE;
	END

	%FI %,

    INIT_M_FLAGS =
	%IF %SWITCHES(TOPS10)
	%THEN

	_MFLG[0] = _MFLG[1] = _MFLG[2] = 0;

	%FI %,

    TST_M_AND_DEL(INDEX,COMP) =
	%IF %SWITCHES(TOPS10)
	%THEN

	BEGIN
	IF NOT ._MFLG[INDEX]
	THEN
	    IF NOT T_DELETE(.COMP_LIST,S(COMP))
	    THEN
		RETURN FALSE;
	END

	%FI %;