Trailing-Edge
-
PDP-10 Archives
-
k20v7d
-
uetp/lib/apl.ver
There are 11 other files named apl.ver in the archive. Click here to see a list.
;<UETP.LIB>APL.VER.23, 2-Jun-78 10:03:15, Edit by ENGEL
;<UETP.RUN>APL.VER.41, 22-Mar-78 15:00:32, 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.
!APL TEST
!.R SETSRC
*CP [5,33,APL]
*LIB:[5,33]
*
!.Set default prot <000>
@DEFINE UTP: PS:<UETP.LIB> !.none
@define dsk: dsk:,sys:,ps:<uetp.run>,<uetp.lib>
@set trap file
!FILES NEEDED:
! DEPRE.APL
@TAKE PS:<UETP.LIB>SYS.CMD !.none
@DEF DSK: <UETP.APL>,PS:<UETP.LIB> !.none
! ***** message: START OF APL TEST
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE START
*BLABEL BEGIN:
*TEST APL
*SEND START OF APL TEST
*EXIT
@DELETE *.*
@EXPUNGE <UETP.APL> !.none
@I DIS <UETP.APL> !.none
@I LOG ALL !.none
!TEST FOR EXISTENCE OF APL ON THIS SYSTEM.
@GET SYS:APL.EXE !.GET SYS:APL.EXE
@IF (NOERROR) @GOTO APL:: !.IF (NOERROR) .GOTO APL::
! ***** message: APL NOT AVAILABLE
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL BEGIN:
*TEST APL
*SEND APL NOT AVAILABLE
*EXIT
@GOTO END:: !.GOTO END::
APL::
!
@GET SYS:APL !.GET SYS:APL
@INF VER !.VERSIO
@START !.START
*TTY
*)LOAD DEPRE
*.DLNDDSL[.BX].DL
*TEST1_NDDSL 100000.00 7500.00 5 2
*TEST2_NDDSL 2000000.00 7500.00 20 4
*TEST3_NDDSL 12345.65 654.32 12 2
*((.ROTEST1).NE.ROCOMP1)/'?'
*((.ROTEST2).NE.ROCOMP2)/'?'
*((.ROTEST3).NE.ROCOMP3)/'?'
*((TEST1,TEST2,TEST3).NECOMP1,COMP2,COMP3)/'?'
*)OFF HOLD
@IF (NOERROR) @GOTO END:: !.IF (NOERROR) .GOTO END::
! ***** message: ERRORS RUNNING APL PROGRAMS
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL APL:
*TEST APL
*SEND ERRORS RUNNING APL PROGRAMS
*EXIT
@GOTO END:: !.GOTO END::
%ERR::
! ***** message: UNKNOWN ERROR IN APL TEST
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL END:
*TEST APL
*SEND UNKNOWN ERROR IN APL TEST
*EXIT
@GO TO END !.GOTO END::
END::
%FIN::
@CHKPNT ADSF:: !.CHKPNT ADSF::
! ***** message: END OF APL TEST
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE END
*BLABEL END:
*TEST APL
*SEND END OF APL TEST
*EXIT