Google
 

Trailing-Edge - PDP-10 Archives - red405a2 - uetp/lib/lpt0.ver
There are 3 other files named lpt0.ver in the archive. Click here to see a list.
;<UETP.LIB>LPT0.VER.1  2-26-80 EDIT BY HOLEWA
;This test exercises the LPT by printing a "SY ALL" at the completion
;of the test. This test assumes that you have a working lineprinter and that
;it is ONLINE during the testing. The test also demonstrates to the CUSTOMER
;that the system is active during the UETP acceptance test!! If the lineprinter
;appears to be failing(HAMMER FAULTS,SPURIOUS OFFLINE PROBLEMS etc.) as a result
;of this test, it is best to run the diagnostic DSLPA to find the problem. Once
;you have repaired the lineprinter you'll have to restart the UETP acceptance
;run from the beginning.
@DAYTIME
@DEF DSK: DSK:<UETP.LPT>,DSK:<UETP.LIB>
@DEF OUT: PS:<UETP.LPT>

@RUN DSK:SENDER
*TYPE START
*BLABEL BEGIN:
*TEST LPT0
*SEND 
*EXIT

BEGIN1::
@TAKE SYS.CMD
@IF (NOERROR) @GOTO BEGIN2:

@RUN DSK:SENDER
*TYPE ERROR
*BLABEL BEGIN1:
*TEST LPT0
*SEND ERROR ON TAKE SYS.CMD 
*EXIT
@NOERROR
@GOTO ENDERR:

BEGIN2::
@NOERROR
@DELETE OUT:*.*.*
@EXP
@ERROR
@SY ALL,
OUTPUT OUT:LPT.TXT.1
@
@RUN DSK:STATUF
@APPEND OUT:MONITR.STS OUT:LPT.TXT
@PRINT OUT:LPT.TXT.1
@IF (NOERROR) @GOTO END:
;
;
!!!!IF WE GOT TO THIS POINT IT MEANS THAT THE FILE PS:<UETP.LPT>LPT.TXT.1
!!!!WAS NOT FOUND. GO BACK AND TRY TO VERIFY THE PRESENCE OF THE FILE
!!!! PS:<UETP.LPT>LPT.TXT.1
;
;@RUN DSK:SENDER
*TYPE ERROR
*BLABEL BEGIN2:
*TEST LPT0
*SEND FILE LPT.TXT.1 NOT FOUND!!
*EXIT
@NOERROR
@GOTO ENDERR:


ENDERR::
@NOERROR
@INF LOG ALL
@SY ALL 
@INF FI
@INF MEM

END::
!*****THIS IS THE END OF THE LPT0 TEST
@RUN DSK:SENDER
*TYPE END
*BLABEL END:
*TEST LPT0
*SEND
*EXIT

DONE::
%FIN::