Google
 

Trailing-Edge - PDP-10 Archives - BB-D867E-BM - uetp/lib/aplsf.ver
There are 11 other files named aplsf.ver in the archive. Click here to see a list.
!<UETP.LIB>APLSF.VER.3,  1-Oct-79 11:40:41, Edit by REILLY
!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.
!APLSF TEST

!.R SETSRC
*CP [5,33,APLSF]
*LIB:[5,33]
*

!.Set default prot <000>

@DEFINE UTP: <UETP.LIB>		!.none

!FILES NEEDED:
!		DEPRE.APL
@DEF DSK: <UETP.APLSF>,DSK:<UETP.LIB>	!.none
@TAKE SYS.CMD	!.none
		! ***** message: START OF APLSF TEST
@RUN  UTP:SENDER	!.RUN  UTP:SENDER
*TYPE START
*BLABEL BEGIN:
*TEST APLSF
*SEND START OF APLSF TEST
*EXIT
@DELETE *.*
@EXPUNGE <UETP.APLSF>	!.none

@I DIS <UETP.APLSF>	!.none
@I  LOG ALL	!.none



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

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

@GOTO END::	!.GOTO END::

APL::
!
@GET SYS:APLSF	!.GET SYS:APLSF
@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 APLSF PROGRAMS
@RUN  UTP:SENDER	!.RUN  UTP:SENDER
*TYPE ERROR
*BLABEL APL:
*TEST APLSF
*SEND ERRORS RUNNING APLSF PROGRAMS
*EXIT

@GOTO END::	!.GOTO END::


%ERR::
		! ***** message: UNKNOWN ERROR IN APLSF TEST
@RUN  UTP:SENDER	!.RUN  UTP:SENDER
*TYPE ERROR
*BLABEL END:
*TEST APLSF
*SEND UNKNOWN ERROR IN APLSF TEST
*EXIT

@GO TO END	!.GOTO END::


END::

%FIN::
@CHKPNT ADSF::	!.CHKPNT ADSF::
		! ***** message: END OF APLSF TEST
@RUN  UTP:SENDER	!.RUN  UTP:SENDER
*TYPE END
*BLABEL END:
*TEST APLSF
*SEND END OF APLSF TEST
*EXIT