Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
uuocon.c11
There is 1 other file named uuocon.c11 in the archive. Click here to see a list.
REP 39/125 ;11C1
PUSHJ P,JOBPKM ;MOVE THE DATA
STOPCD (GIVCOR,DEBUG,CMD) ;++CAN'T MOVE DATA
WIT
PUSH P,P3 ;SAVE SWAPPING POINTER
PUSHJ P,JOBPKM ;MOVE THE DATA
JRST [POP P,P3 ;CLEAN UP STACK
STOPCD .+1,DEBUG,CMD ;++CAN'T MOVE DATA
PUSHJ P,GIVCOR ;RETURN DDB AND FUNNY SPACE
JRST JPKIOE] ;I/O ERROR
POP P,P3 ;RESTORE SWAPPING POINTER
INS 27/143 ;11C2
SETZ F, ;IF WE JUST ASSIGNED THE CHANNEL, IT ISN'T OPEN
INS 22/174 ;11C3
PUSH P,S
REP 25/174 ;11C4
JUMPE U,UPOPJ##
WIT
JUMPE U,WCHFI3
REP 32/174 ;11C5
WCHFI1: HRRZ T3,@-1(P)
WIT
WCHFI1: HRRZ T3,@-2(P)
INS 48/174 ;11C6
WCHFI3: POP P,S
REP 28/222 ;11C7
SKIPGE DEVSPL(F) ;IS THIS A SPOOLED DISK DDB ?
TLOA T3,DEPSPL ;YES. ENSURE COPY HAS DEPSPL ON
TDNN T3,JBTSPL##(J) ;JOB SPOOLING THIS DEVICE?
WIT
SKIPL DEVSPL(F) ;IS THIS A SPOOLED DISK DDB ?
JRST ASAS0A ;NO, GO ON
TLO T3,DEPSPL ;YES. ENSURE COPY HAS DEPSPL ON
MOVE P1,DEVMOD(F) ;GET THE SPOOLED MODES WORD
JRST ASSAS1 ;AND SKIP THE REST OF THIS
ASAS0A: TDNN T3,JBTSPL##(J) ;JOB SPOOLING THIS DEVICE?
DEL 16/236 ;11C8
TDNN T1,[77,,-1] ;IS THIS A 2-CHAR DEVICE NAME?
PUSHJ P,CK2CHR ;YES, CHECK FOR WIERD NAMES
INS 31/236 ;11C9
TDNN T1,[77,,-1] ;IS THIS A 2-CHAR DEVICE NAME?
PUSHJ P,CK2CHR ;YES, CHECK FOR WIERD NAMES
SUM 46524