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

!
!  Build a User Environment Test Package
!

!
!  The information in this document is subject to change without notice 
!  and should not be construed as a commitment by Digital Equipment 
!  Corporation.  Digital Equipment Corporation assumes no 
!  responsibility for any errors that may appear in this document.

!  The software described in this document is furnished under a license 
!  and may be used or copied only in accordance with the terms of such 
!  license.

!  Digital Equipment Corporation assumes no responsbility for the use 
!  or reliability of its software on equipment that is not supplied by 
!  DIGITAL.

!  Copyright  (C)  1979,1980 by Digital Equipment Corporation


@DEFINE EDITOR SYS:EDIT.EXE
@CREATE U.MAC
; Normal setting of FTWARN for customers (allow warnings)
FTWARN==1
^[
EU
@PLEASE Beginning assembly of NORMAL UETP^[
@GOTO LOADIT::


REDPAK::
@DEFINE EDITOR: SYS:EDIT.EXE
@CREATE U.MAC
; Suppress warning messages in that they confuse the users
FTWARN==0
^[
EU
@PLEASE Beginning assembly of REDPAK UETP^[
@


LOADIT::

@ENABLE

@DEFINE DSK: DSK:,SYS:

@INFORMATION (ABOUT) LOGICAL-NAMES (OF) ALL
@TYPE U.MAC

@LOAD/COMPILE U.MAC+UETP.MAC

@IF (NOERROR) @GOTO AOK::

@PLEASE Errors in UETP assembly

@GOTO SENDER::

AOK::

@SAVE UETP.EXE

@DELETE U.MAC
@EXPUNGE
@PLEASE UETP assembly completed successfully

SENDER::

@LOAD SENDER.MAC

@IF (NOERROR) GOTO AOK1::

@PLEASE Errors in SENDER assembly (for UETP)

@GOTO FOR::

AOK1::

@SAVE SENDER.EXE

@PLEASE SENDER assembly completed successfully

FOR::

@LOAD UETCMP.FOR

@IF (NOERROR) GOTO AOK2::

@PLEASE Errors in UETCMP compilation (for UETP)

@GOTO NEXT::

AOK2::

@PLEASE UETCMP compilation successful (for UETP)

!This should never be executed    @SAVE UETCMP

@GOTO NEXT::

NEXT::

END::

@LOGOUT