Trailing-Edge
-
PDP-10 Archives
-
BB-H137D-BM
-
uetp/lib/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