Google
 

Trailing-Edge - PDP-10 Archives - ALGOL-20_29Jan82 - algol-uetp/algol.ver
There are 18 other files named algol.ver in the archive. Click here to see a list.
;<ALGOL.6A>ALGOL.VER.2, 28-Mar-79 12:03:32, Edit by REILLY
;Change ADPR12.CMP to .COM
;<UETP.LIB>ALGOL.VER.13,  2-Jun-78 10:04:35, Edit by ENGEL
;<UETP.RUN>ALGOL.VER.30, 22-Mar-78 15:01:01, Edit by ENGEL
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!
!COPYRIGHT (C) 1977 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!ALGOL  TEST

!.R SETSRC
*CP [5,33,ALGOL]
*LIB:[5,33]
*

!.Set default prot <000>

@DEFINE UTP: <UETP.LIB>		!.none

!FILES NEEDED:
!		ADPR12.ALGOL

@DEF DSK: <UETP.ALGOL>,<UETP.LIB>	!.none
@TAKE SYS.CMD	!.none
!.Set Float		;Allow KA10 instructions

	! ***** message: start of algol test
@RUN  UTP:SENDER	!.RUN  UTP:SENDER
*TYPE START
*BLABEL BEGIN:
*TEST ALGOL
*SEND START OF ALGOL TEST
*EXIT

@NOERROR	!.NOERROR
@DELETE *.*
@EXPUNGE <UETP.ALGOL>	!.none
@ERROR	!.ERROR


@I DIS <UETP.ALGOL>	!.none
@I  LOG ALL	!.none

!TEST FOR EXISTENCE OF ALGOL ON THIS SYSTEM.
@GET SYS:ALGOL.EXE	!.GET SYS:ALGOL.EXE
@IF (NOERROR) @GOTO ALGOL::	!.IF (NOERROR) .GOTO ALGOL::

		! ***** message: ALGOL NOT AVAILABLE
@RUN  UTP:SENDER	!.RUN  UTP:SENDER
*TYPE ERROR
*BLABEL BEGIN:
*TEST ALGOL
*SEND ALGOL NOT AVAILABLE
*EXIT

@GOTO END::	!.GOTO END::

ALGOL::
!
@GET SYS:ALGOL	!.GET SYS:ALGOL
@INF VER	!.VERSIO
@START	!.START
*ADPR12,TTY:=ADPR12.ALG
@LOAD ADPR12
@START	!.START
*200
@IF (NOERROR) @GOTO COMP::	!.IF (NOERROR) .GOTO COMP::

		! ***** message: ERRORS RUNNING ALGOL PROGRAMS
@RUN  UTP:SENDER	!.RUN  UTP:SENDER
*TYPE ERROR
*BLABEL ALGOL:
*TEST ALGOL
*SEND ERRORS RUNNING ALGOL PROGRAMS
*EXIT

@GOTO END::	!.GOTO END::

COMP::
!NOW COMPARE FILES
@RUN  UTP:UETCMP	!.RUN  UTP:UETCMP.EXE
*COMPARE
*ADPR12.DAT
*ADPR12.COM
*EXIT
@IF (NOERROR) @GOTO END::	!.IF (NOERROR) .GOTO END::

		! ***** message: ERRORS IN ALGOL PROGRAM'S OUTPUT
@RUN  UTP:SENDER	!.RUN  UTP:SENDER
*TYPE ERROR
*BLABEL ALGOL:
*TEST ALGOL
*SEND ERRORS IN ALGOL PROGRAM'S OUTPUT
*EXIT

@GOTO END::	!.GOTO END::

END::

%ERR::
@CHKPNT DSFKD:	!.CHKPNT DSFKD:

		! ***** message: UNKNOWN ERROR IN ALGOL TEST
@RUN  UTP:SENDER	!.RUN  UTP:SENDER
*TYPE ERROR
*BLABEL END:
*TEST ALGOL
*SEND UNKNOWN ERROR IN ALGOL TEST
*EXIT




%FIN::
@CHKPNT ADSF::	!.CHKPNT ADSF::

@NOERROR	!.NOERROR
@RESET	!.none
@DELETE ADPR12.REL
@DELETE ADPR12.DAT
@DELETE ADPR12.SYM
@EXPUNGE <UETP.ALGOL>	!.none
@ERROR	!.ERROR

		! ***** Message: END OF ALGOL TEST
@RUN  UTP:SENDER	!.RUN  UTP:SENDER
*TYPE END
*BLABEL END:
*TEST ALGOL
*SEND END OF ALGOL  TEST
*EXIT