Trailing-Edge
-
PDP-10 Archives
-
BB-4171G-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