Google
 

Trailing-Edge - PDP-10 Archives - BB-4171G-BM - 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: <UETP.LIB>		!.none

!FILES NEEDED:
!		DEPRE.APL
@DEF DSK: <UETP.APL>,DSK:<UETP.LIB>	!.none
@TAKE SYS.CMD	!.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