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

;<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]
*SCAN
*

.Set default prot <000>


!FILES NEEDED:
!		ADPR12.ALGOL

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

.NOERROR
.DELETE *.*
.ERROR



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

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

.GOTO END::

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

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

.GOTO END::

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

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

.GOTO END::

END::

%ERR::
.CHKPNT DSFKD:

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




%FIN::
.CHKPNT ADSF::

.NOERROR
.DELETE ADPR12.REL
.DELETE ADPR12.DAT
.DELETE ADPR12.SYM
.ERROR

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