Google
 

Trailing-Edge - PDP-10 Archives - k20v7d - uetp/lib/lpt0.ver
There are 3 other files named lpt0.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 LPT0
*send
*exit

begin1::
@TAKE <UETP.LIB>SYS.CMD
@if (noerror) @GOTO SLEEPR

@run  <uetp.lib>sender
*type error
*blabel BEGIN1:
*test LPT0
*send ERROR on TAKE SYS.CMD
*exit
@NOERROR
@GOTO ENDERR
!
SLEEPR::
@ENA
@RUN <UETP.LIB>SLEEPR
*10
!
OUTCHK::
@ENA
@ERROR %
!	In case old deleted LPT0-*-0*.* is still hanging around
@EXP <SPOOL>
!
@DIR PS:<SPOOL>LPT0-*-0*.*
@if (ERROR) GOTO OUTQ
;noerror means lpt0 still in Q
!
TIMEXC::
!
@NOERROR
@CANCEL PRINT LPT0
@DAY
@DEL <SPOOL>LPT0-*-0*.*.*,
@EXP
@
!
!	 ***** MESSAGE: TIME LIMIT EXCEEDED
@run <uetp.lib>sender
*type ERROR
*blabel OUTQ
*test LPT0
*send PRINT TIME EXCEEDED... Entering new request for output!
*exit
!
OUTQ::
;start DSLPA under D20MON
@DEF LPT: LPT0:
@RUN D20MON
*DSLPA
@if (noerror) @GOTO LPT01

	! ***** MESSAGE: ERROR STARTING DSLPA
@run <uetp.lib>sender
*type error
*blabel SLEEPR:
*test LPT0
*send ERROR STARTING DSLPA
*exit
@GOTO ENDERR

LPT01::
;dslpa dialogue
@ERROR N
*Y
*0
*1000
*Y
*Y
*122-124
@if (NOERROR) @GOTO OUTSUB

NOLPT::
	! ***** MESSAGE: ERRORS ASSIGNING LPT0
@run <uetp.lib>sender
*type ERROR
*blabel LPT01
*test LPT0
*send ERRORS ASSIGNING LPT0
*exit
@GOTO ENDERR

OUTSUB::
@NOERROR N
@GOTO END

%ERR::
	! ***** MESSAGE: UNKNOWN ERROR IN LPT0.VER
@run <uetp.lib>sender
*type ERROR
*blabel %ERR:
*test LPT0
*send UNKNOWN ERROR IN LPT0.VER
*exit
@GOTO ENDERR

ENDERR::
@NOERROR
@VDIR <UETP.LIB>LPT0.*
@VDIR <UETP.LIB>DSLPA.*
@VDIR <UETP.LIB>SLEEPR.*
@I LOG ALL
@SY ALL F-S
@INF FI
@INF MEM

END::
		!***** message: END OF LPT0 test
@RUN  <uetp.lib>sender
*type END
*blabel END:
*test LPT0
*send
*exit
DONE::
%FIN::