Trailing-Edge
-
PDP-10 Archives
-
ALGOL-10_V10B_BIN_SRC_1err
-
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]
*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