Trailing-Edge
-
PDP-10 Archives
-
BB-T573C-DD_1986
-
35,1414/hdcpy.ctl
There is 1 other file named hdcpy.ctl in the archive. Click here to see a list.
;%001 NOV 27 1979 TONY J. IACOBONE
;TEST FOR ONE OR TWO LINE PRINTERS
;FEB 1983 TJI - REMOVE LPT1 AND LPT2.ATO AND CARD READER TESTS
.SET SPOOL NONE
.ERROR ?
.AS LPT
.IF (ERROR) .GOTO NOLPT
.DEAS LPT
.SUB STATUS.CTL[35,1414]/UNIQ:0/TIME:00:06:,/DIS:DEL
.GOTO DONE
NOLPT::
;
;***BRING UP STAT.CTL FOR SYS WITHOU LPT
.SUB STAT[35,1414]/TIME/UNIQ:0,/DIS:DEL
.SUB LPCLR[35,1414]/TIME/UNIQ:0/AFTER:+01:00,/DIS:DEL
.GOTO DONE
;
%ERR::
.PLEASE ??????????????????????????????????????????????^[
.PLEASE ERROR IN HDCPY.CTL READ LOG FOR ERROR^[
;
%CERR::
.PLEASE ??????????????????????????????????????????????^[
.PLEASE ERROR IN HDCPY.CTL READ LOG FOR ERROR^[
;
DONE::
;
%FIN::