Trailing-Edge
-
PDP-10 Archives
-
k20v7d
-
uetp/lib/lpt1.ver
There is 1 other file named lpt1.ver in the archive. Click here to see a list.
;Assumptions:
; DSLPA.SAV, SLEEPR.EXE EXIST IN <UETP.LIB>
BEGIN::
@DEF DSK: DSK:,PS:<UETP.LIB>, PS:<1-DIAGNOSTICS>, PS:<2-DIAGNOSTICS>
@run <uetp.lib>sender
*type start
*blabel BEGIN:
*test LPT1
*send
*exit
begin1::
@TAKE <UETP.LIB>SYS.CMD
@if (noerror) @GOTO SLEEPR
@run <uetp.lib>sender
*type error
*blabel BEGIN1:
*test LPT1
*send ERROR on TAKE SYS.CMD
*exit
@NOERROR
@GOTO ENDERR
!
SLEEPR::
@ENA
@RUN <UETP.LIB>SLEEPR
*10
!
OUTCHK::
@ENA
@ERROR %
! In case old deleted LPT1-*-0*.* is still hanging around
@EXP <SPOOL>
!
@DIR PS:<SPOOL>LPT1-*-0*.*
@if (ERROR) GOTO OUTQ
;noerror means LPT1 still in Q
!
TIMEXC::
!
@NOERROR
@CANCEL PRINT LPT1
@DAY
@DEL <SPOOL>LPT1-*-0*.*.*,
@EXP
@
!
! ***** MESSAGE: TIME LIMIT EXCEEDED
@run <uetp.lib>sender
*type ERROR
*blabel OUTQ
*test LPT1
*send PRINT TIME EXCEEDED... Entering new request for output!
*exit
!
OUTQ::
;start DSLPA under D20MON
@DEF LPT: LPT1:
@RUN D20MON
*DSLPA
@if (noerror) @GOTO LPT11
! ***** MESSAGE: ERROR STARTING DSLPA
@run <uetp.lib>sender
*type error
*blabel SLEEPR:
*test LPT1
*send ERROR STARTING DSLPA
*exit
@GOTO ENDERR
LPT11::
;dslpa dialogue
@ERROR N
*Y
*0
*1000
*Y
*Y
*122-124
@if (NOERROR) @GOTO OUTSUB
NOLPT::
! ***** MESSAGE: ERRORS ASSIGNING LPT1
@run <uetp.lib>sender
*type ERROR
*blabel LPT11
*test LPT1
*send ERRORS ASSIGNING LPT1
*exit
@GOTO ENDERR
OUTSUB::
@NOERROR N
@GOTO END
%ERR::
! ***** MESSAGE: UNKNOWN ERROR IN LPT1.VER
@run <uetp.lib>sender
*type ERROR
*blabel %ERR:
*test LPT1
*send UNKNOWN ERROR IN LPT1.VER
*exit
@GOTO ENDERR
ENDERR::
@NOERROR
@VDIR <UETP.LIB>LPT1.*
@VDIR <UETP.LIB>DSLPA.*
@VDIR <UETP.LIB>SLEEPR.*
@I LOG ALL
@SY ALL F-S
@INF FI
@INF MEM
END::
!***** message: END OF LPT1 test
@RUN <uetp.lib>sender
*type END
*blabel END:
*test LPT1
*send
*exit
DONE::
%FIN::