Google
 

Trailing-Edge - PDP-10 Archives - tops10_703_distr_bb-x140b-sb - 10,7/703mon/msgser.mac
There are 5 other files named msgser.mac in the archive. Click here to see a list.
TITLE	MSGSER - SERVICE FOR DEVICE MPX: AND RELATED FUNCTIONS  V143
SUBTTL	DONALD A. LEWINE   10 SEP 85

	SEARCH	F,S
IFN	FTNET,<SEARCH NETPRM>

	$RELOC
	$HIGH



;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
.CPYRT<1973,1986>
;COPYRIGHT (C) 1973,1974,1975,1976,1977,1978,1979,1980,1982,1984,1986
;BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
;ALL RIGHTS RESERVED.
;
XP VMSGSR,143

MSGSER::ENTRY	MSGSER

;AC USAGE WITHIN MSGSER:
;
;S) 	DEVICE STATUS. ALWAYS DEVIOS(F)

;P)	PUSH DOWN POINTER

;J)	USERS JOB NUMBER.

;R)	ADDRESS OF USERS JOB IF KA10, 341000 IF KI10

;F)	ADDRESS OF A DDB.  THIS IS EITHER THE MPX DDB OR
;	THE DEVICE CONTROLED BY THE MPX DDB. USE CAUTION.

;U)	NOT USED TODAY

;T1-T4)	TEMPS. ARGS TO SUBROUTINES PASSED IN
;	THESE AC'S.

;M)	ADDRESS FOR GETWRD/PUTWRD. USERS UUO.

;W)	NOT USED TODAY

;P1)	CHANNEL NUMBER

;P2)	ADDRESS OF THE MPX DDB.

;P3)	ADDRESS OF THE TARGET DDB.

;P4)	ADDRESS OF THE CONNECTED DEVICE TABLE
;FORMAT OF THE CONNECTED DEVICE TABLE:
;
;	!------------------!------------------!
;	!   SIZE OF CDT    ! # OF FREE SLOTS  !
;	!------------------!------------------!
;	!  UDX FOR DEV #1  ! ADDRESS OF DDB #1!
;	!------------------!------------------!
;	!  UDX FOR DEV #2  ! ADDRESS OF DDB #2!
;	!------------------!------------------!
;	!  UDX FOR DEV #3  ! ADDRESS OF DDB #3!
;	!------------------!------------------!
;	!  UDX FOR DEV #4  ! ADDRESS OF DDB #4!
;	!------------------!------------------!
;	/				      /
;	/				      /
;	!------------------!------------------!
;	!  UDX FOR DEV #N  ! ADDRESS OF DDB #N!
;	!------------------!------------------!
;
;NOTE THE CDT IS KEPT SORTED BY UDX SO IT IS EASY (AT LEAST FAST)
; TO CONVERT A UDX FOR A CONNECTED DEVICE TO A DDB ADDRESS.

CDTFRE==0	;OFFSET FOR THE COUNT OF THE NUMBER OF FREE
		; SLOTS IN CDT

CDTSIZ==0	;OFFSET FOR THE CDT WORD COUNT. THIS INCLUDES
		; THIS WORD

CDTQNT==40	;NUMBER OF WORD TO GET EACH TIME THE CDT FILLS UP

CDT4WD==<<CDTQNT+3>/4>	;NUMBER OF 4 WORD BLOCKS IN A CDT QUANTUM
CDTQNT==CDT4WD*4	;REDEFINE SO LOW 2 BITS ARE ALWAYS ZERO
;THE PROTOTYPE MPX DDB
	$LOW

MPXDDB::EXP	0		;DEVICE NAME. NOTE: WE DO NOT
				; WANT ANYONE TO FIND THE
				; PROTOTYPE, HENCE, THE FUNNY NAME.
	EXP	103		;BUFFER SIZE, MPX DEVICES NEVER
				; HANG
	EXP	0		;DEVIOS
MPXVMF==1B0			;ON IF A DEVICE IS IN TROUBLE AND THE OUTPUT
				; BUFFER IS PAGED OUT
	EXP	MPXDSP		;DEVSER
	XWD	DVIN+DVOUT+DVLNG,<1B<^D35-A>+1B<^D35-AL>+1B<^D35-IB>+1B<^D35-B>+1B<^D35-I>+1B<^D35-PIMMOD>>	;DEVMOD
	EXP	0		;LOGICAL NAME. NOTE: THIS WORD IS
				; ALWAYS ZERO.
	EXP	0		;DEVBUF. LH=ADDRESS OF OUTPUT
				; RH=ADDRESS OF INPUT
	EXP	0		;DEVIAD.
	EXP	0		;DEVOAD.
	EXP	0		;DEVSTS. DEVSTS FROM CONTROLLED
				; DDB.
	XWD	.TYMPX,DEPEVM	;DEVSTA. MPX DDB (WE DO NOT USE
				; EVM)
	XWD	0,0		;DEVXTR. LH = ADDRESS OF THE
				; CDT IF ANY. RH = NUMBER OF
				; CONNECTED DEVICES.
	EXP	0		;DEVEVM. NOTE: WE NEVER HAVE ANY EVM.
	EXP	0		;DEVPSI. FLAGS FOR PSISER
	EXP	0		;DEVESE.
	EXP	0		;DEVHCW.
	EXP	707B8		;DEVCPU.
	EXP	0		;DEVJOB. JOB NUMBER
	EXP	0		;DEVCID.  CURRENT INPUT DEVICE
	
MPXLEN==.-MPXDDB
MPX4WD==<MPXLEN+3>/4		;NUMBER OF 4 WORD BLOCKS NEEDED
				; TO HOLD DDB
	$HIGH
;DISPATCH TABLE FOR MPX

	JRST	CPOPJ1##	;MPX IS ALWAYS ON-LINE
	POPJ	P,0		;SPECIAL ERROR STATUS
	JRST	REGSIZ##	;SIZE CAN BE GOTTEN FROM DDB
	POPJ	P,0		;SYSINI CALL
	POPJ	P,0		;HUNG DEVICE
MPXDSP:	JRST	MSGREL		;RELEASE
	POPJ	P,0		;CLOSE
	JRST	MSGDOU		;OUTPUT
	JSP	T1,MSGIN	;INPUT
	JRST	ILLOPR		;ENTER
	JRST	ILLOPR		;LOOKUP
	JRST	ILLOPR		;DUMP MODE OUTPUT
	JRST	ILLOPR		;DUMP MODE INPUT
	JRST	ILLOPR		;USETO
	JRST	ILLOPR		;USETI
	JRST	ILLOPR		;UGETF
	JRST	ILLOPR		;RENAME
	POPJ	P,0		;INPUT CLOSE
	JRST	ILLOPR		;UTPCLR
	JRST	ILLOPR		;MTAPE

;HERE ON AN OPERATION WHICH IS ILLEGAL FOR MPX:
ILLOPR:	JSP	T1,ERRPTU##	;PRINT THE MESSAGE
	ASCIZ	/Illegal operation for multiplex device/
	JRST	UUOPCP##	;PRINT PC AND STOP THE JOB
	SUBTTL	NON-IO INTERFACE WITH UUOCON

;SUBROUTINE TO BUILD THE MPX DDB
;CALL WITH:
;	MOVE	T1,NAME-OF-DEVICE
;	PUSHJ	P,TSTMPX
;	  RETURN HERE IF NOT AN OPEN UUO FOR 'MPX'
;	RETURN HERE WITH DDB BUILT AND F SETUP
TSTMPX::CAME	T1,[SIXBIT 'MPX'] ;IS THIS MPX:?
	POPJ	P,0		;NORMAL CASE.
	HRLZ	T1,.USMUO	;UUO OP CODE
	IOR	T1,.USMUE	;EA-CALC

	TDZ	T1,[777,,UPHNLY] ;ONLY CALLI
	CAMN	T1,[FILOP.]	;FILOP?
	JRST	TSTMP1		;YES, ALLOW THAT
	HLRZS	T1		;OR OPEN
	CAIE	T1,(OPEN)
	POPJ	P,0		;NOPE. ERROR RETURN
TSTMP1:	PUSHJ	P,SAVT##	;SAVE T2 THRU T4
	MOVEI	T2,MPX4WD	;SIZE OF DDB
	PUSHJ	P,GET4WD##	;GET SOME CORE
	  POPJ	P,0		;NO MORE CORE
	HRR	F,T1		;COPY THE PROTOTYPE
	HRLI	T1,MPXDDB	; DDB
	DDBSRL			;NO DDB SEARCHING
	BLT	T1,MPXLEN-1(F)	; ..
	HRLM	F,MPXDDB+DEVSER	;SET THE LINKS
	DDBSRU			;NOW THAT THE LINK IS STORED, ALLOW DDB SEARCHS
	AOS	T1,MPXNUM	;NUMBER OF CALLS TO TSTMPX
	DPB	T1,PUNIT##	;STORE SERIAL NUMBER IN DDB
	MOVE	T1,MPX6NM	;GET SIXBIT NUMBER
	AOS	T1		;INCREMENT 
	TRZE	T1,10
	ADDI	T1,100
	TRZE	T1,1000
	ADDI	T1,10000
	TRZ	T1,100000
	HRRZM	T1,MPX6NM	;SAVE ANSWER
	TRNN	T1,70000	;LEADING ZERO?
	LSH	T1,6		;YES--TRIM
	TRNN	T1,70000	;ANOTHER
	LSH	T1,6		;YES--REMOVE IT
	HRLI	T1,'MPX'	;PUT IN FIRST PART OF NAME
	MOVEM	T1,DEVNAM(F)	;STORE IN DDB
	JRST	CPOPJ1##	;GOOD RETURN

	$LOW
MPXNUM:	EXP	0		;DDB SERIAL NUMBER
MPX6NM:	SIXBIT	'000000'	;SAME THING IN SIXBIT
	$HIGH
;HERE TO RELEASE ALL DEVICES CONNECTED TO THE MPX
;	CALLED BY ZAPMPX AND THROUGH RELEASE DISPATCH

MSGREL:	PUSHJ	P,SAVE4##	;SAVE THE P'S
MSGRE1:	HRRZ	P4,DEVXTR(F)	;ANY DEVICES CONNECTED?
	JUMPE	P4,CPOPJ##	;NO--KILL OFF MPX DDB
	HLRZ	P4,DEVXTR(F)	;GET ADDRESS OF CDT
	MOVE	P2,F		;SAVE F IN P2
	HRRZ	F,1(P4)		;ADDRESS OF FIRST DDB
	HRRZS	DEVBUF(F)	; SO DISCONNECT DOESN'T TRY TO RETURN BUFFERS
	HRRZS	DEVBUF(P2)	;DITTO FOR MPX ITSELF
	MOVEI	P1,RELEA1##	;UNCONDITIONAL DISCONNECT
	PUSHJ	P,DISCON	;REMOVE THE CONNECTION
	  STOPCD CPOPJ##,DEBUG,CDD, ;++CAN'T DISCONNECT DEVICE
	MOVE	F,P2		;RESTORE F
	JRST	MSGRE1		;SEE IF ANY DEVICES CONNECTED

;SUBROUTINE TO WIPE OUT THE MPX DDB ON RELEASE
;CALL WITH:
;	MOVEI	F,ADDRESS-OF-DDB-TO-ZAP
;	PUSHJ	P,ZAPMPX
;	RETURN HERE

ZAPMPX::PUSHJ	P,MSGREL	;DISCONNECT ALL DEVICES FIRST
	MOVEI	T1,MPXDDB	;ADDRESS OF PROTO
	DDBSRL			;INTERLOCK DDBS
ZPMPX1:	MOVE	T2,T1		;ADDRESS OF LAST DDB
	HLRZ	T1,DEVSER(T2)	;ADDRESS OF NEXT DDB
	JUMPE	T1,ZPMPXE	;DDB CHAIN IS MESSED UP IF WE
				; CAN NOT FIND THE DDB
	CAIE	T1,(F)		;IS THIS IT?
	JRST	ZPMPX1		;NO--KEEP LOOKING
	MOVE	T3,DEVSER(F)	;UNLINK THE DDB
	HLLM	T3,DEVSER(T2)	; ..
	DDBSRU			;UNLOCK DDBS
	MOVEI	T1,MPX4WD	;THROW AWAY THE
	HRRZ	T2,F		; CORE
	PJRST	GIV4WD##	; ..

;HERE IF F DID NOT POINT TO AN MPX DDB ON THE DDB CHAIN
ZPMPXE:	DDBSRU			;UNLOCK DDBS
	STOPCD	CPOPJ##,DEBUG,MXM, ;++MPX: DDB MISSING
	SUBTTL	CONNECT UUO

;UUO TO CONNECT A DEVICE TO AN MPX CHANNEL
;CALL WITH:
;	MOVEI	AC,E
;	CNECT.	AC,	-OR- 	CALLI   AC,130
;	  RETURN HERE ERROR CODE IN AC
;	RETURN HERE UDX IN AC
;
; E:	XWD	FUNCTION,CHAN
;	SIXBIT	/DEVICE/
;
CONECT::PUSHJ	P,SAVE4##	;SAVE VOLITILE AC'S
	HRR	M,T1		;PICK UP THE
	PUSHJ	P,GETWDU##	; FIRST ARGUMENT
	HRRZ	P1,T1		;COPY CHANEL NUMBER
	HLRZ	P3,T1		;GET FUNCTION CODE
	PUSHJ	P,SETUF##
	  PJRST	ECOD6##		;ELSE GENERATE ERROR
	HRLM	P1,.USCTA	;STORE MPX CHANNEL #
	MOVE	P2,F		;SET F=ADDRESS OF MPX DDB
	LDB	T2,PDVTYP##	;GET THE DEVICE TYPE
	CAIE	T2,.TYMPX/.TYEST;IS THIS AN MPX DDB?
	PJRST	ECOD1##		;NO--PUNT
	CAILE	P3,CNFNMX	;SKIP IF NOT TOO BIG
	PJRST	ECOD10##	;ERROR 10 -- INVALID FUNCTION
	JRST	@CNFNTB(P3)	;DISPATCH

;TABLE OF FUNCTIONS
CNFNTB:	JRST	ECOD10##	;(0)NO FUNCTION 0
	JRST	CONDEV		;(1)CONNECT
	JRST	CDCDEV		;(2)CONDITIONAL DISCONNECT
	JRST	UDCDEV		;(3)UNCONDITIONAL DISCONNECT
	JRST	OFEDEV		;(4)OUTPUT FEASIBILITY CHECK
CNFNMX==.-CNFNTB-1
;SUBROUTINE TO CONNECT A DEVICE
;CALLED ONLY FROM CONECT
;
CONDEV:	PUSHJ	P,GETWD1##	;PICK UP DEVICE NAME
	MOVEI	T3,ASSPRG	;REJECT INITED DEVICES
	PUSHJ	P,DVASRC##	;LOOK FOR GENERIC DEVICE
	   SKIPA		;NOT A GENERIC DEVICE
	JRST	CNDEV4		;FREE GENERIC DEVICE
	PUSHJ	P,DVCNSG##	;LOOK UP IN DEVICE CHAIN
	  JRST	ECOD2##		;NO SUCH DEVICE
CNDEV4:	PUSHJ	P,LGLMPX	;OK TO USE?
	PJRST	ECOD3##		;CAN NOT USE THAT TYPE OF DEVICE
	MOVE	P3,F		;SAVE DDB ADDRESS
	MOVE 	T1,DEVNAM(F)	;PICK UP DEVICE NAME
	MOVEI	T2,ASSPRG	;INIT BIT
	TDNN	T2,DEVMOD(F)	;ALREADY INITED?
	PUSHJ	P,ASSASG##	;NO--TRY TO INIT
	  PJRST	ECOD11##	;DEVICE INITED OR CONNECTED
	SKIPGE	DEVSPL(F)	;SPOOLED DEVICE?
	JRST	[PUSHJ P,RELEA4## ;YES--KILL THE DDB
		 PJRST ECOD12##]; AND GIVE ERROR RETURN
	PUSHJ	P,GETCDT	;SET P4 = CDT ADDRESS
	  JRST	CNOCOR		;NO MORE FREE CORE
	HRRE	T1,CDTFRE(P4)	;GET FREE SLOT COUNT
	JUMPG	T1,CNDEV1	;JUMP IF ROOM
	PUSHJ	P,XPNCDT	;EXPAND THE CDT
	  PJRST	CNOCOR		;NO MORE CORE
CNDEV1:	SOS	CDTFRE(P4)	;COUNT THE SLOT
	MOVE	T1,DEVNAM(F)	;PICK UP THE DEVICE NAME
	PUSHJ	P,UIONDX##	;COMPUTE UDX
	  PJRST	[PUSHJ P,RELEA4## ;YES--KILL THE DDB
		 PJRST ECOD3##]  ; AND GIVE ERROR RETURN
	MOVEI	T3,1(P4)	;ADDRESS OF FIRST SLOT
CNDEV2:	HLRZ	T4,(T3)		;COPY UDX FROM CDT
	JUMPE	T4,CNDEV3	;JUMP IF TABLE EMPTY
	CAIL	T1,(T4)		;DOES IT GO HERE
	AOJA	T3,CNDEV2	;NO--KEEP LOOKING
	HLRZ	T2,CDTSIZ(P4)	;SIZE OF CDT
	ADDI	T2,-1(P4)	;ADDRESS OF LAST WORD
	MOVE	T4,-1(T2)	;PICK UPNEXT TO LAST WORD
	MOVEM	T4,(T2)		;STORE AS THE LAST WORD
	CAIE	T2,(T3)		;SKIP IF WE MOVED ENOUGH
	SOJA	T2,.-3		;LOOP OVER ENTIRE CDT
CNDEV3:	HRLM	T1,(T3)		;STORE UDX
	HRRM	P3,(T3)		;STORE DDB ADDRESS
	AOS	DEVXTR(P2)	;INCREMENT NUMBER OF CONNECTED DEVICES
	PUSHJ	P,CNDDBI	;DO SOME INITIALIZATION
	HRRZ	T4,DEVSER(F)
	PUSHJ	P,DSZ(T4)
	JRST	CPOPJ1##	;GOOD RETURN

CNOCOR:	PUSHJ	P,RELEA4##	;CLEAR ASSPRG & PJOBN
	PJRST	ECOD4##		;AND SAY NO FREE CORE
;SUBROUTINE TO CLEAN UP A DDB BEING CONNECTED TO DEVICE MPX
;CALL WITH:
;	P2 = ADDRESS OF MPX DDB
;	P3 = ADDRESS OF TARGET DDB
;	PUSHJ	P,CNDDBI
;	RETURN HERE
CNDDBI:	MOVEI	T2,DEPMSG	;FLAG AS CONTROLED VIA MSGSER
	IORM	T2,DEVMSG(P3)	; ..
	HRRM	P2,DEVXTR(P3)	;LINK TARGET BACK TO MPX DDB
	MOVSI	T1,0		;CLEAR OUT BOTH 
	MOVE	F,P3		; DEVIAD AND DEVOAD
	DPB	T1,PDVOAD##	; SO WE DO NOT LOOK
	DPB	T1,PDVIAD##	; ACTIVE BUFFERS
	SETZM	DEVBUF(F)	;ALSO ZAP DEVBUF
	HRR	M,DEVIOS(P2)	;GET STATUS FROM MPX DDB
	PUSHJ	P,SETIOS##	;SET AS STATUS OF TARGET DDB
	MOVSI	T1,IOFST!IOBEG
	IORM	T1,DEVIOS(P3)
	MOVEI	T1,DEPAIO	;NON BLOCK
	TDNE	T1,DEVAIO(P2)	;CHECK MPX
	IORM	T1,DEVAIO(P3)	;SET IN TARGET
	MOVEI	T1,DEPDEL	;DISABLE ERROR LOGGING (ALSO FULL SCNSER PTY)
	ANDCAM	T1,DEVSTA(P3)	;CLEAR IT FIRST
	TDNE	T1,DEVSTA(P2)	;CHECK MPX
	IORM	T1,DEVSTA(P3)	;PROPAGATE STATE TO TARGET
	MOVEI	T1,DVDIBP	;BATCH PTY (ALSO DISABLE MESSAGE REASSEMBLY)
	ANDCAM	T1,DEVCHR(P3)	;CLEAR IT FIRST
	TDNE	T1,DEVCHR(P2)	;CHECK MPX
	IORM	T1,DEVCHR(P3)	;PROPAGATE STATE TO TARGET
	MOVSI	T2,DVTTY	;IF THIS IS A TTY
	TDNE	T2,DEVMOD(P3)	; CLEAR ANY LEFTOVER OUTPUT
	SETZM	DEVSTS(P3)	; AT CONNECT TIME
	POPJ	P,0		;RETURN
;TABLE OF DEVICE TYPES WHICH MAY BE CONNECTED
;DEVICE IS OK IF 1B<DEVTYP> IS = 1

	DEFINE	TYPBTS(A),<
	IRP A,<
	  ZZ..=ZZ..!1B<<.TY'A/.TYEST>>
	>>

	ZZ..==0
	TYPBTS	<LPT,PTP,TTY,PTY,RDA>
TYPMSK:	EXP	ZZ..

;SUBROUTINE TO SEE IF DEVICE CAN BE USED ON MPX:
;CALL WITH:
;	MOVE	F,DDB-ADDRESS
;	PUSHJ	P,MGLMPX
;	  RETURN HERE IF NO GOOD
;	RETURN HERE IF OK
;RESPECTS T1
LGLMPX::LDB	T2,PDVTYP##	;GET DEVICE TYPE
	CAIN	T2,.TYTTY/.TYEST	;TTY?
	JRST	CPOPJ1##	;YES--ALWAYS GOOD
IFN FTNET,<
	CAIE	T2,.TYCDR/.TYEST	;A CDR?
	JRST	LGLMP1		;NO
	LDB	T3,PDVSTA##	;YES, LOCAL?
	CAIE	T3,LOCSTA##
	JRST	CPOPJ1##	;REMOTE CDR IS OK
LGLMP1:>
	MOVSI	T3,(1B0)	;SETUP BIT
	MOVN	T2,T2		;MAKE COUNT NEGATIVE
	LSH	T3,(T2)		;SHIFT BIT
	TDNN	T3,TYPMSK	;VALID TYPE?
	POPJ	P,0		;NO--RETURN
	JRST	CPOPJ1##	;WIN
;SUBROUTINE TO DO A DISCONNECT (CALLED FROM REASSIGN)
;CALLED WITH:
;	F=ADDRESS OF DEVICE DDB
;	PUSHJ	P,MPXDIS
;	  RETURN HERE IF NOT MPX'ED
;	RETURN HERE IF DISCONNECTED
MPXDIS::MOVEI	T1,DEPMSG
	TDNN	T1,DEVMSG(F)	;MPX'ED?
	POPJ	P,		;NO
	PUSHJ	P,SAVE4##
	MOVEI	P1,RELEA1##	;DO RELEASE
	HRRZ	P2,DEVXTR(F)	;LOCATE MPX DDB
	PJRST	DISCON		;DO DISCONNECT

;SUBROUTINE TO DO A DISCONNECT (CALLED ONLY FROM CNECT. UUO)
;CALLED WITH:
;	P2 = ADDRESS OF MPX DDB
;	PUSHJ P,CDCDEV OR UDCDEV
;	  RETURN HERE IF ERROR
;	RETURN HERE IF OK
CDCDEV:	SKIPA	P1,[EXP URELEA##] ;RELEASE AND CLOSE
UDCDEV:	MOVEI	P1,RELEA1##	;RESET
	PUSHJ	P,GETWD1##	;PICK UP DEVICE NAME
	PUSHJ	P,FNDDDB	;FIND DEVICE DATA BLOCK
	  JRST	ECOD2##		;MUST BE VALID DEVICE
IFN FTMP,<
	PUSHJ	P,SETCPF##	;GET ON CORRECT CPU FOR DEVICE
>
;FALL INTO DISCON
;SUBROUTINE TO DISCONNECT A DEVICE
;CALLED WITH:
;	F = ADDRESS OF DDB
;	P1 = ADDRESS OF ROUTINE TO CALL (RELEA1)
;	P2 = ADDRESS OF MPX DDB
;	PUSHJ	P,DISCON
;	  RETURN HERE ON ERROR (USER AC UPDATED)
;	RETURN HERE IF OK
DISCON:	HLR	M,DEVBUF(P2)	;ADDRESS OF THE RING HEADER
	HRRZS	P3,F		;ADDRESS OF THE TARGET DDB FOR VMCHEK
				; ALSO ZERO LH(F) FOR CAIN BELOW
	TRNE	M,-1		;OK IF NO BUFFERS (RELEASE)
	PUSHJ	P,VMCHKH	;MAKE SURE ALL BUFFERS ARE IN CORE IN
				; CASE THEY SHOULD BE RECLAIMED
	MOVE	S,DEVIOS(F)	;SETUP S
	LDB	T1,PJOBN##	;GET THE JOB # OF OWNER
	MOVEI	T2,ASSPRG	; INIT BIT
	TDNE	T2,DEVMOD(F)	;SKIP IF NOT INITED
	CAME	T1,J		;SKIP IF INITED BY THIS JOB
	JRST	ECOD5##		;NO--BOUNCE HIM
	HLRZ	P4,DEVXTR(P2)	;GET CDT ADDRESS
	JUMPE	P4,ECOD5##	;IF NONE, THERE ARE NO DEVICES IN CDT
	HLRZ	T1,CDTSIZ(P4)	;NUMBER OF WORDS IN CDT
	SUB	T1,CDTFRE(P4)	;LESS NUMBER OF FREE WORDS GIVES # ENTRIES
	MOVEI	T1,-1(T1)	;CLEAR LH AND SUBTRACT 1
	MOVEI	T2,1(P4)	;ADDRESS OF FIRST SLOT
	MOVE	T3,T2		;2 COPIES
DCNDVL:	MOVE	T4,(T2)		;GET AN ENTRY
	CAIN	F,(T4)		;IS THIS THE ONE TO ZAP?
	AOJA	T2,DCNDV1	;YES--GET THE NEXT ENTRY
	MOVEM	T4,(T3)		;STORE BACK ENTRY
	ADDI	T2,1		;UPDATE SOURCE
	ADDI	T3,1		;UPDATE DESTINATION
DCNDV1:	SOJG	T1,DCNDVL	;MOVE THE WHOLE CDT DOWN
	CAIN	T2,(T3)		;DID WE FIND AN ENTRY?
	JRST	ECOD5##		;NO--DEVICE NOT CONNECTED
	SETZM	-1(T2)		;ZERO OLD LAST ENTRY IN CDT
	CAIN	P1,RELEA1##	;UNCONDITIONAL DISCONNECT?
	PUSHJ	P,RTNOB		;YES, RETURN BUFFERS TO FREE LIST
	MOVEI	T2,DEPMSG	;NO LONGER CONTROLED
	ANDCAM	T2,DEVMSG(F)	; BY MSGSER
	SOS	T2,DEVXTR(P2)	;1 LESS DEVICE CONNECTED
	AOS	CDTFRE(P4)	; AND 1 MOVE FREE SLOT
	TRNE	T2,-1		;SKIP IF CDT NOW EMPTY
	JRST	DISXIT		;ELSE JUST EXIT
	HLRZ	T1,CDTSIZ(P4)	;NUMBER OF WORDS IN CDT
	MOVEI	T2,(P4)		;ADDRESS OF CDT
	PUSHJ	P,GIVWDS##	;RETURN CDT
	SETZB	P4,DEVXTR(P2)	;FLAG AS HAVING NO CDT
DISXIT:	MOVE	T1,P1		;COPY ROUTINE ADDRESS
	AOS	(P)		;SKIP RETURN
	PJRST	CALSER		;CALL SERVICE ROUTINE
;SUBROUTINE TO SETUP CDT
;CALL WITH:
;	P2 = ADDRESS OF DDB
;	PUSHJ	P,GETCDT
;	  RETURN HERE IF NO CORE
;	RETURN HERE P4=ADDRESS OF CDT
GETCDT:	HLRZ	P4,DEVXTR(P2)
	JUMPN	P4,CPOPJ1##	;ALL DONE IF NON-ZERO
	MOVEI	T2,CDT4WD	;NUMBER OF 4 WORD CHUNKS TO GET
	PUSHJ	P,GET4WD##	; ..
	  POPJ	P,0
	MOVE	T2,[CDTQNT,,CDTQNT-1]	;SIZE AND FREE COUNT
	MOVEM	T2,CDTSIZ(T1)	;STORE INFO
	MOVEM	T1,P4		;STORE ADDRESS
	HRLZM	T1,DEVXTR(P2)	;STORE ADDRESS
	HRRZM	T1,DEVCID(P2)	;STORE NEXT INPUT DEV
	SETZM	1(P4)		;ZERO UNUSED WORDS
	HRLI	T1,1(P4)	;FROM
	HRRI	T1,2(P4)	;TO
	BLT	T1,CDTQNT-1(P4)	;ZAP
	JRST	CPOPJ1##	;GOOD RETURN

;SUBROUTINE TO RETURN FULL BUFFERS WHICH HAVE
; NOT BEEN OUTPUT YET TO THE FREE LIST
;CALL WITH:
;	F = ADDRESS OF THE CONNECTED DDB
;	PUSHJ	P,RTNOB
;	ALWAYS RETURN HERE

RTNOB:	MOVSI	T1,DVTTY	;DEVICE IS A TTY BUT
	TDNN	T1,DEVMOD(F)	;IF A TTY, DON'T CALL WAIT1 (IOACT GETS LEFT ON)
	PUSHJ	P,WAIT1##	;MAKE SURE I/O ISN'T GOING ON NOW
	HLRZ	T1,DEVBUF(F)	;ADDRESS OF THE ACTIVE LIST
	JUMPE	T1,CPOPJ##	;RETURN IF NO BUFFERS ON LIST
RTNOB1:	PUSHJ	P,ADVBFE##	;RETURN BUFFER TO THE FREE LIST
	  POPJ	P,		;ALL DONE
	JRST	RTNOB1		;RETURN NEXT BUFFER
;SUBROUTINE TO EXPAND A FULL CDT
;CALL WITH:
;	MOVE	P2,ADDRESS-OF-MPX-DDB
;	MOVE	P4,ADDRESS-OF-CDT
;	PUSHJ	P,XPNCDT
;	  RETURN HERE IF NO MORE CORE
;	RETURN HERE DDB AND P4 UPDATED

XPNCDT:	HLRZ	T2,CDTSIZ(P4)	;CURRENT SIZE
	LSH	T2,-2		;IN 4 WORD BLOCKS
	ADDI	T2,CDT4WD	;PLUS AMOUNT TO EXPAND
	PUSHJ	P,GET4WD##	;GET THAT MUCH CORE
	  POPJ	P,0		;NO MORE CORE
	AOS	(P)		;WE HAVE WON 
	HRL	T1,P4		;COPY THE OLD ADDRESS
	PUSH	P,CDTSIZ(P4)	;REMEMBER THE OLD SIZE
	HRRM	P4,(P)		;AND ADDRESS
	MOVE	T2,[CDTQNT,,CDTQNT]	;AMOUNT WE ADDED
	ADDB	T2,CDTSIZ(P4)	;UPDATE THE CDT
	HLRZ	T2,T2		;PUT NEW SIZE IN THE RH
	ADDI	T2,(T1)		;WHERE TO STOP BLT
	MOVEI	P4,(T1)		;ALSO FIX P4 BEFORE BLT ZAPS AC
	SETZM	(P4)		;ZERO OUT THE NEW CDT
	HRLZ	T3,P4		;BUILT A BLT
	HRRI	T3,1(P4)	;POINTER
	BLT	T3,-1(T2)	;ZAP!!
	SUBI	T2,CDTQNT+1	;NEW STOP ADDRESS
	BLT	T1,(T2)		;COPY THE CDT TO IT'S NEW HOME
	HRLM	P4,DEVXTR(P2)	;REMEMBER ADDRESS OF THE CDT
	HRRZM	P4,DEVCID(P2)	;UPDATE CURRENT BECAUSE OLD MOVED
	POP	P,T2		;RESETORE OLD SIZE AND ADDRESS
	HLRZ	T1,T2		;COPY NUMBER OF WORDS
	TLZ	T2,-1		;CLEAR LH
	PJRST	GIVWDS##	;RETURN OLD CORE
;SUBROUTINE TO DETERMINE OUTPUT FEASIBILITY FOR A MPX-CONTROLLED DEVICE
;CALLED ONLY BY CNECT. MONITOR CALL

OFEDEV:	PUSHJ	P,MPXTBL	;FIRST AND FOREMOST GET I/O GOING
	PUSHJ	P,GETWD1	;GET DEVICE UDX FROM CNECT. CALL
	PUSHJ	P,FNDDDB	;FIND THE DEVICE QUICKLY
				; NO GENERAL DEVICE SEARCHES HERE FOR
				; SPEED AND EFFICIENCY CONSIDERATIONS
	PJRST	ECOD2##		;NO SUCH DEVICE, USER LOSES
	LDB	T1,PDVTYP##	;SEE WHAT SORT OF DEVICE WE CAME UP WITH
	CAIE	T1,<.TYTTY/.TYEST>  ;A TTY?
	JRST	OFEDE2		;NO
	PUSHJ	P,TTYOFE##	;YES, ASK SCNSER'S OPINION
	JRST	OFEDE5		;AND FORGET THE DATA REQUEST COUNT

OFEDE2:
IFE	FTNET,<TRO T1,-1>	;FLAG LOCAL DEVICE IF NO NETWORKS
IFN	FTNET,<
	MOVE	T1,DEVCHR(F)	;NOT A TTY, GET CHARACTERISTICS
	TLNN	T1,DVCNET	;A NETWORK (DATA REQUEST) DEVICE?
	TROA	T1,-1		;NO, LOCAL, FLAG AS SUCH
	HRRZ	T1,DEVDRQ(F)	;YES, RETURN OUTPUT DATA REQUEST COUNT
> ;END IFN FTNET

OFEDE5:	HLL	T1,DEVEVM(F)	;GET ADDRESS OF USER OUTPUT BUFFER
	TLNN	T1,-1		;UNLESS NOT EVM MAPPED
	HRL	T1,DEVOAD(F)	;IN WHICH CASE GET TRUE USER ADDRESS
	JRST	STOTC1##	;RETURN VALUE TO USER
	SUBTTL	SENSE. UUO -- RETURN DEVICE INFORMATION

;UUO TO RETURN INFORMATION ABOUT A SPECIFIC DEVICE
;CALL WITH:
;	MOVE	AC,[LENGTH,,ADDR]
;	SENSE.	AC,
;	  RETURN HERE (ERROR CODE IN AC)
;
;ADDR CONTAINS:
;
;	!------------------!------------------!
;	! UDX, CHANNEL NUMBER OR SIXBIT DEV   !
;	!------------------!------------------!
;	! LENGTH OF BLOCK  ! ADDR OF BLOCK    !
;	!------------------!------------------!
;	/				      /
;	/				      /
;	!------------------!------------------!
;	! UDX, CHANNEL NUMBER OR SIXBIT DEV   !
;	!------------------!------------------!
;	! LENGTH OF BLOCK  ! ADDR OF BLOCK    !
;	!------------------!------------------!
;
;
;
;EACH BLOCK GETS:
;
;	!------------------!------------------!
;	! SIXBIT DEVICE NAME FOR DEVICE       !
;	!------------------!------------------!
;	!         0        ! GETSTS INFO      !
;	!------------------!------------------!
;	!            DEVSTS WORD	      !
;	!------------------!------------------!
;
;
;NOTE: THIS UUO IS RESTARTABLE FOR VM
;
SENSE::	PUSHJ	P,SAVE2##	;SAVE P1 AND P2
	HRRZ	P1,T1		;ADDRESS OF POINTER TABLE
	HLRZ	P2,T1		;NUMBER OF ENTRIES
SENSE1:	SUBI	P2,2		;TWO MORE WORDS?
	JUMPL	P2,CPOPJ1##	;NO--ALL DONE
	HRR	M,P1		;GET THE FIRST WORD
	PUSHJ	P,GETWDU##	;GET THE WORD
	PUSHJ	P,DVCNSG##	;FIND THE DDB
	  JRST	ECOD1##		;(1)ILLEGAL DEVICE
	AOS	M,P1		;POINT TO NEXT WORD
	PUSHJ	P,GETWDU##	;GET THE WORD
	PUSHJ	P,SNSDEV	;STORE THE SENSE INFO
	AOJA	P1,SENSE1	;LOOP OVER ALL THE DEVICES
;SUBROUTINE TO STORE THE SENSE INFO FOR ONE DEVICE
;CALL WITH:
;	T1 = COUNT,,ADDR
;	F = ADDRESS OF DDB
;	PUSHJ	P,SNSDEV
;	RETURN HERE
;
SNSDEV:	HRR	M,T1		;COPY ADDRESS
	HLRE	T2,T1		;COPY COUNT
	SOJL	T2,CPOPJ##	;EXIT IF COUNT .LE. 0
	MOVE	T1,DEVNAM(F)	;PICK UP DEVICE NAME
	PUSHJ	P,PUTWDU##	;STORE FOR USER
	SOJL	T2,CPOPJ##	;EXIT IF COUNT = 1
	HRRZ	T1,DEVIOS(F)	;PICK UP I/O STATUS WORD
	PUSHJ	P,PUTWD1##	;STORE FOR USER
	SOJL	T2,CPOPJ##	;EXIT IF COUNT = 2
	MOVE	T1,DEVSTS(F)	;GET DEVICE STATUS
	PJRST	PUTWD1##	;STORE AND RETURN
	SUBTTL	ERLST. UUO -- RETURN THE STATUS FOR ALL DEVICE WITH ERRORS

;ERLST. UUO
;CALL WITH:
;	MOVEI	AC,BLOCK
;	ERLST.	AC,
;	  RETURN HERE ERROR CODE IN AC
;	RETURN HERE BLOCK UPDATED
;
;FORMAT OF BLOCK:
;
;	!------------------!------------------!
;	! # OF WORD IN BLK ! CHANNEL NUMBER   !
;	!------------------!------------------!
;	! NUMBER OF DEVICES WHICH HAVE ERRORS !
;	!------------------!------------------!
;	! UDX FOR FIRST DEV! GETSTS FOR DEV   !
;	!------------------!------------------!
;	/				      /
;	/				      /
;	/				      /
;	!------------------!------------------!
;	! UDX FOR LAST DEV ! GETSTS FOR DEV   !
;	!------------------!------------------!
;
;NOTE: THE NUMBER OF DEVICE WHICH HAVE ERROR WILL BE GREATER THAT THE 
;	NUMBER OF UDX'S RETURNED IF THERE WAS NOT ENOUGH ROOM IN THE
;	BLOCK.
;
ERLST::	PUSHJ	P,SAVE4##	;SAVE SOME AC'S
	HRR	M,T1		;ADDRESS OF BLOCK
	PUSHJ	P,GETWDU##	;GET THE WORD
	MOVEI	P2,0		;ERROR COUNT
	HLRZ	P3,T1		;NUMBER OF WORDS IN BLOCK
	HRRZ	P1,T1		
	PUSHJ	P,SETUF##
	  JRST	ECOD1##		;(1)NOT AN OPEN CHAN #
	LDB	T1,PDVTYP##	;GET DEVICE TYPE
	CAIE	T1,.TYMPX/.TYEST;SKIP IF MPX:
	JRST	ECOD2##		;NOT MPX: DEVICE
	AOS	P1,M		;WHERE TO PUT ERROR COUNT
	HLRZ	P4,DEVXTR(F)	;SET P4 = ADDRESS OF CDT
	JUMPE	P4,ERLSTX	;JUMP IF NO DEVICES CONNECTED
	HLRZ	T1,CDTSIZ(P4)	;NUMBER OF WORDS IN CDT
	SUB	T1,CDTFRE(P4)	;MINUS FREE = # IN USE
	MOVNI	T4,-1(T1)	;MAKE NEGATIVE
	HRLZ	T4,T4		;PUT IN LH
	HRRI	T4,1(P4)	;POINTER IN RH
ERLSTL:	HRRZ	F,(T4)		;GET POINTER TO DDB
	JUMPE	F,ERLSTA	;SHOULD NEVER HAPPEN
	MOVE	T1,DEVIOS(F)	;GET STATUS
	TRNN	T1,760000	;ANY ERRORS?
	JRST	ERLSTA		;NO--LOOK AT NEXT DEVICE
	HLL	T1,(T4)		;TOSS IN UDX
	ADDI	P2,1		;COUNT ERROR
	SOSL	P3		;SKIP IF NO ROOM
	PUSHJ	P,PUTWD1##	;ELSE STORE
ERLSTA:	AOBJN	T4,ERLSTL	;LOOP BACK OVER ALL DEVICES
ERLSTX:	MOVE	T1,P2		;COUNT OF ERRORS
	HRR	M,P1		;WHERE TO PUT IT
	PUSHJ	P,PUTWDU##	;STORE IT
	JRST	CPOPJ1##	;GOOD RETURN
	SUBTTL	CLRST. UUO -- CLEAR DEVICE STATUS

;UUO TO CLEAR DEVICE STATUS
;CALL WITH:
;	MOVE	AC,[LENGTH,,BLOCK]
;	CLRST.	AC,
;	  RETURN HERE ERROR CODE IN AC
;	RETURN HERE IF OK
;
;BLOCK CONTAINS:
;
;	!------------------!------------------!
;	! UDX, CHAN # OR SIXBIT DEVICE NAME   !
;	!------------------!------------------!
;	!         0        ! SETSTS VALUE     !
;	!------------------!------------------!
;	! UDX, CHAN # OR SIXBIT DEVICE NAME   !
;	!------------------!------------------!
;	!         0        ! SETSTS VALUE     !
;	!------------------!------------------!
;	/				      /
;	/				      /
;	/				      /
;	!------------------!------------------!
;	! UDX, CHAN # OR SIXBIT DEVICE NAME   !
;	!------------------!------------------!
;	!         0        ! SETSTS VALUE     !
;	!------------------!------------------!
;
CLRST::	PUSHJ	P,SAVE2##	;SAVE P1 AND P2
	HRRZ	P1,T1		;SAVE ADDRESS IN P1
	HLRZ	P2,T1		;SAVE COUNT IN P2
CLRSTL:	SUBI	P2,2		;COUNT ANOTHER TWO WORDS
	JUMPL	P2,CPOPJ1##	;ALL DONE IF NEGATIVE
	HRR	M,P1		;GET ADDRESS OF DEVICE
	PUSHJ	P,GETWDU##	;GET DEVICE NAME
	PUSHJ	P,DVCNSG##	;FIND THE DDB
	  JRST	ECOD1##		;(1) ILLEGAL DEVICE NAME
	LDB	T1,PJOBN##	;GET THE OWNER
	CAME	T1,.CPJOB##	;IS IT THIS JOB?
	JRST	ECOD2##		;(2) DEVICE NOT OWNED BY THIS JOB
	PUSHJ	P,GETWD1##	;GET THE NEW STATUS
	TLNE	T1,-1		;ANYTHING IN LH?
	PJRST	ILLMOD##	;YES--ILLEGAL DATA MODE
	HRR	M,T1		;COPY RH BITS
	PUSHJ	P,SETIOS##	;SET THE STATUS
	ADDI	P1,2		;ADVANCE TO NEXT ENTRY
	JRST	CLRSTL		;LOOP OVER ALL REQUESTS
	SUBTTL	WAIT UUO

;HERE FROM WAIT1 WHEN CALLED TO WAIT FOR AN MPX CHANNEL

MPXWAI::POP	P,T1		;RESTORE T1
	PUSHJ	P,SAVT##	;SAVE THE T ACS
	PUSHJ	P,SAVE3##	;AND THE P ACS TOO
	SETZ	P2,		;INITIALIZE FOR NXTDV LOOP
	MOVE	P3,F		;MPX DDB ADDRESS IN P3

MPXWI1:	PUSHJ	P,NXTDV		;GET NEXT DEVICE ON THIS MPX CHANNEL
	  JRST	MPXWI2		;DONE THEM ALL, RETURN
	MOVEI	T1,WAIT1M##	;CALL THE WAIT1 ROUTINE
	PUSHJ	P,CALSER	;CALL THE CALL CALLER
	  JFCL			;HO HUM
	JRST	MPXWI1		;LOOP FOR REST OF DEVICES

MPXWI2:	MOVE	F,P3		;RESTORE F
	MOVE	S,DEVIOS(F)	;ON G.P.'S
	POPJ	P,		;RETURN TO WAIT1'S CALLER



;HERE FROM UUOCON ON WAIT UUO FOR DEVICE MPX

MPXWAT::PUSHJ	P,SAVE3##	;SAVE P1-P3
MPXWA0:	SETZ	P2,		;INDICATE FIRST CALL TO NXTDV
	MOVE	P3,F		;SAVE MPX DDB
MPXWA1:	PUSHJ	P,NXTDV		;FIND THE NEXT DEVICE CONNECTED TO THE MPX
	  JRST	MPXWA2		;NO MORE
	MOVEI	T1,WAIT1M##	;WAIT FOR I/O TO STOP ON THAT DEVICE
	PUSHJ	P,CALSER	;CALL WAIT1
	  JFCL			;HO HUM
	JRST	MPXWA1		;CHECK NEXT DEVICE
MPXWA2:	MOVE	F,P3		;RESTORE ADDRESS OF MPX DDB
	MOVE	S,DEVIOS(F)	;MPX:'S I/O STATUS
	TLNN	S,IOSTBL	;TROUBLE SET (DEVICE HAS OUTPUT)?
	POPJ	P,		;NO, ALL OUTPUT OUT, ALL DEVICES IDLE
MPXWA3:	PUSHJ	P,MPXTBL	;TRY TO CLEAR UP TROUBLE
	MOVE	S,DEVIOS(F)	;IO STATUS FOR THE MPX DDB
	TLNN	S,IOSTBL	;TROUBLE STILL PRESENT?
	JRST	MPXWA0		;NO, WAIT FOR I/O COMPLETION
	MOVEI	T1,^D1		;YES, SLEEP A WHILE
	MOVE	J,.CPJOB##	;CURRENT JOB'S JOB NUMBER
	PUSHJ	P,SLEEPF##	;WAIT FOR TROUBLE TO BE FIXED
	JRST	MPXWA3		;AND TRY AGAIN
;SUBROUTINE TO SEE IF ANY DEVICE ON AN MPX CHANNEL IS IN TROUBLE
; AND IF SO, GET THE DEVICE ROUTINE STARTED AGAIN
;CALLING SEQUENCE:
;	MOVE	F,ADDRESS OF THE MPXDDB
;	PUSHJ	P,MPXTBL
;ALWAYS RETURN CPOPJ

MPXTBL:	MOVSI	S,IOSTBL(MPXVMF)  ;DEVICE IN TROUBLE BIT
	TDNN	S,DEVIOS(F)	;SOME DEVICE CONNECTED TO THIS MPX IN TROUBLE?
	POPJ	P,		;NO, NOTHING TO DO
	ANDCAB	S,DEVIOS(F)	;CLEAR TROUBLE IN HOPES THAT IT WILL CLEAR UP
	PUSHJ	P,SAVE3##	;SAVE P1-P3
	SETZ	P2,		;INDICATE FIRST CALL TO NXTDV
	MOVE	P3,F		;SAVE ADDRESS OF THE MPX DDB
MPXTB1:	PUSHJ	P,NXTDV		;FIND THE NEXT DEVICE CONNECTED TO THE MPX DDB
	  JRST	MPXTB2		;NO MORE
	TLNN	S,IOSTBL	;IS THIS DDB IN TROUBLE?
	JRST	MPXTB1		;NO, LOOK AT THE NEXT DDB
	MOVSI	T1,(MPXVMF)	;NOTE THE POSSIBILITY OF A PAGE FAULT
	IORM	T1,DEVIOS(P3)	; IN THE MPX DDB
	HRRZ	T1,DEVOAD(F)	;ADDRESS OF CURRENT OUTPUT BUFFER
	PUSHJ	P,UADRCK##	;CHECK THAT THE BUFFER IS OK
	PUSHJ	P,BRNGE##	;MAKE SURE THAT THE ENTIRE BUFFER IS IN CORE
	MOVSI	T1,(MPXVMF)	;A PAGE FAULT DIDN'T OCCUR
	ANDCAM	T1,DEVIOS(P3)	; SO CLEAR THE BIT
	MOVSI	S,IOSTBL	;CLEAR THE TROUBLE BIT
	ANDCAB	S,DEVIOS(F)	; AND SETUP S
	PUSHJ	P,MSGCOU	;DO A CALOUT (START UP OUTPUT)
	JRST	MPXTB1		;AND LOOP OVER ALL CONNECTED DEVICES

MPXTB2:	MOVE	F,P3		;RESTORE F
	POPJ	P,		;AND RETURN
;SUBROUTINE TO FIND THE NEXT DEVICE CONNECTED TO AN MPX CHANNEL
;CALLING SEQUENCE
;	MOVE	F,ADDRESS OF THE MPXDDB FOR THE FIRST CALL
;	MOVEI	P1,0 (FIRST CALL) OR WHAT WAS RETURNED ON PREVIOUS CALL
;				; ON SUBSEQUENT CALLS
;	PUSHJ	P,NXTDV
;	  RETURNS HERE IF NO MORE CONNECTED DEVICES
;	RETURNS HERE WITH F POINTING AT THE NEXT CONECTED DEVICE,
;	S SETUP FROM DEVIOS FOR THAT DEVICE

NXTDV:	JUMPN	P2,NXTDV1	;JUMP IF NOT THE FIRST CALL
	HRRZ	P1,DEVXTR(F)	;FIRST CALL, P1 = THE NUMBER OF CONNECTED DEVICES
	HLRZ	P2,DEVXTR(F)	;P2 = ADDRESS OF THE CDT
NXTDV1:	SOJL	P1,CPOPJ##	;RETURN IF NO MORE CONNECTED DEVICES
	HRRZ	F,1(P2)		;ADDRESS OF THE DDB FOR THE NEXT CONNECTED DEVICE
	MOVE	S,DEVIOS(F)	;IO STATUS FOR THAT DDB
IFN FTMP,<
	PUSHJ	P,SETCPF##	;GET ON CORRECT CPU
>
	AOJA	P2,CPOPJ1##	;STEP P2 TO NEXT SLOT IN CDT AND SKIP RETURN

;SUBROUTINE TO DETERMINE IF THE CURRENT DEVICE IS AN MPX DDB OR IS
; CONNECTED TO AN MPX DDB
;CALLING SEQUENCE:
;	MOVE	F,DDB ADDRESS
;	PUSHJ	P,CHKMPX
;RETURNS CPOPJ IF AN MPX DDB OR A DDB FOR A DEVICE CONTROLLED BY
; MSGSER, CPOPJ1 OTHERWISE

CHKMPX::LDB	T1,PDVTYP##	;DEVICE TYPE
	MOVE	T3,DEVMSG(F)	;WORD WHICH CONTAINS BIT WHICH SAY CONNECTED TO AN MPX
	CAIE	T1,.TYMPX/.TYEST;AN MPX DDB?
	TRNE	T3,DEPMSG	;OR CONNECTED TO AN MPX CHANNEL?
	POPJ	P,		;YES, MULTIPLEXED RETURN
	JRST	CPOPJ1##	;NO, NORMAL DEVICE RETURN
	SUBTTL	OUT UUO

;HERE FROM UUOCON ON AN OUT UUO FOR MPX:. UUOCON HAS NOT DONE
; ANYTHING YET

MSGOUT::PUSHJ	P,SAVE4##	;EAT SOME PDL
	PUSHJ	P,MPXTBL	;GET DEVICES GOING AGAIN IF IN TROUBLE
	HLRZ	P4,DEVXTR(F)	;P4 GETS ADDRESS OF CDT
	JUMPLE	P4,NDCERR	;BETTER BE ONE
	HRRZ	P2,F		;P2 IS ADDRESS OF MPX DDB
	PUSHJ	P,JDAADP##
	HLL	P2,0(T1)	; IN LEFT HALF OF P2
	HLR	M,DEVBUF(P2)	;ADDRESS OF OUTPUT BUFFER HDR
	ADDI	M,3		;ADDRESS OF 4TH WORD
	PUSHJ	P,GETWDU##	;GET THE WORD
	PUSHJ	P,FNDUDX	;FIND THE UDX
	  PJRST	NCDERR		;NO CONNECTED DEVICE
	MOVE	P3,F		;P3 HOLDS THE ADDRESS OF THE TARGET DDB
IFN FTMP,<
	PUSHJ	P,SETCPF##	;GET ON CORRECT CPU
>
	SUBI	M,3		;FIRST WORD OF HEADER
	PUSHJ	P,GETWDU##	;PICK UP WORD
	TLNN	P2,OUTBFB	;OUTBUF DONE?
	JRST	FIROUT		;NO--SETUP RING
	JUMPE	T1,STOUT1	;GO WAIT FOR AN EMPTY BUFFER IF NEEDED
	JUMPL	T1,FIROUT	;JUMP IF DUMMY OUTPUT
	MOVEI	T2,DEPOND	;NOTHING PENDING.  DO WE KNOW IT?
	TDNE	T2,DEVAIO(P2)	;IF WE DON'T, WE HAVEN'T CLEANED UP THE BUFFER RING HEADER
	JRST	STOUT1		; SO LET'S GO TO NXTOUT IF WE CAN
	PUSH	P,T1		;SAVE ADDRESS OF FIRST BUFFER
	PUSH	P,M		;SAVE ADDRESS OF RING HEADER
	HRR	M,T1		;SETUP M FOR VMCHEK
	PUSHJ	P,VMCHEK	;CHECK ALL BUFFERS ARE IN CORE
	MOVEI	T1,(T1)		;CLEAR LH OF 1ST BUFFER ADDR
	PUSHJ	P,UADRCK##	;MAKE SURE IT'S LEGAL
	POP	P,M		;RESTORE HEADER ADDR
	MOVEI	T1,(M)		;RH ONLY INTO T1
	HRRZ	T2,(P)		;GET 1ST BUFFER ADDRESS
	PIOFF			;PREVENT RACES
	EXCTUX	<HRRZ T3,(T2)>	;GET POINTER TO NEXT BUFFER
	EXCTXU	<MOVEM T3,(T1)>	;AND STORE IT IN HEADER
	PION			;ALLOW IME STOPCDS

;CONTINUED ON NEXT PAGE
;CONTINUED FROM PREVIOUS PAGE

	MOVSI	T1,IOUSE	;GET THE USE BIT
	EXCTUU	<IORM T1,(T2)>	;AND SET IT FOR THOSE DEVICES THAT CHECK

;***********************************************************************
;
;ALL DEVICES CONTROLLED BY AN MPX CHANNEL MUST EXPLICITLY CHECK THAT
;THE IOUSE BIT IS SET. IF IT IS NOT SET THEN THE DEVICE SERVICE ROUTINE
;MUST SKIP THE OUTPUT AND DIRECTLY CALL ADVBFE IMMEDIATELY. THIS IS BE-
;CAUSE THE LAST CALL TO ADVBFE MARKED THE BUFFER AS OUTPUT BUT WAS UN-
;ABLE TO FREE THE BUFFER (RETURN IT TO THE FREE LIST AND ADVANCE THE
;ACTIVE LIST TO THE NEXT BUFFER TO BE OUTPUT) DUE TO (E.G.,) A PAGE
;FAULT CHAINING DOWN THE MPX FREE LIST. ALTHOUGH THIS SHOULD NOT HAPPEN,
;IF THE DEVICE IS A NETWORK DEVICE (FOR EXAMPLE) AND IT RUNS OUT OF
;DATA REQUESTS THE DEVICE IS SHUT DOWN. AT THIS POINT THE FREE LIST CAN
;BE PAGED OUT WHILE THE DEVICE STILL HAS ACTIVE BUFFERS (DEVOAD POINTS
;TO NEXT BUFFER TO OUTPUT). IF OUTPUT IS STARTED AT THIS POINT THEN
;AT OUTPUT COMPLETION (INTERRUPT LEVEL) THE BUFFER WILL NOT BE FREED UP
;SINCE MSGBFE (ADVBFE) CAN'T CHAIN DOWN THE FREE LIST, BUT IT HAS MARKED
;THE BUFFER AS NO LONGER CONTAINING ACTIVE DATA.
;
;FOR THIS REASON ALL ROUTINES WHICH WANT TO START UP OUTPUT FOR A MPX:
;CONTROLLED DEVICE SHOULD GO THROUGH MSGCOU RATHER THAN CALLING CALOUT
;DIRECTLY.
;
;***********************************************************************

	POP	P,U		;ADDRESS OF BUFFER TO USE
	PUSHJ	P,STOCNT	;COMPUTE BYTE OR WORD COUNT AND STORE
				; IN BUFFER, RETURN WITH WC IN T1
	PUSH	P,T1		;SAVE COMPUTED WORD COUNT
	HRRZI	T3,(U)		;FIRST WORD OF BUFFER
	PUSHJ	P,BADRCK##	;ADDRESS CHECK
	  JRST	ADRERR##	;DID NOT PASS
	HRRI	M,(U)		;ADDRESS OF THE CURRENT BUFFER
	PUSHJ	P,GETWDU##	;GET THE LINK WORD
	HLRZ	T2,T1		;GET USER'S BUFFER SIZE
	POP	P,T3		;RECALL WC FROM USER'S BYTE PTR
	SKIPL	T3		;NEGATIVE WORD COUNTS ARE ILLEGAL
	CAIG	T2,(T3)		;DOES WORD COUNT OVERFLOW BUFFER?
	JRST	ADRERR##	;YES! GO PREVENT HORRIBLE THINGS.
	TRZ	T1,-1		;NOT LINKED TO ANYTHING AT ALL
	PUSHJ	P,PUTWDU##	;STORE UPDATED LINK
	HLRZ	T1,DEVBUF(P3)	;PICK UP ADDRESS OF LAST FULL OUTPUT BUFFER
	SKIPE	T1		;SKIP OVER CHECK IF ZERO (= JUMPE T1,NEWOBF)
	PUSHJ	P,UADRCK##	;ADDRESS CHECK LAST BUFFER
	PIOFF			;AVOID RACES
	HLRZ	T2,DEVBUF(P3)	;ADDRESS OF LAST BUFFER IN LIST
	JUMPE	T2,NEWOBF	;JUMP IF BUFFER FREED AT INTERRUPT LEVEL
	EXCTUU	<HRRM U,@T1>	;STORE NEW LINK
	CAIA			;START UP OUTPUT
NEWOBF:	HRRM	U,DEVOAD(P3)	;REMEMBER ADDRESS OF LIST
	HRLM	U,DEVBUF(P3)	;SAVE ADDRESS AS LAST BUFFER ON ACTIVE LIST
	PION
;CONTINUED FROM PREVIOUS PAGE

STOUTP:	MOVE	F,P3		;ADDRESS OF TARGET DDB
	MOVSI	S,IOSTBL	;MAGIC SYNC BIT
	ANDCAB	S,DEVIOS(F)	;CLEAR (ALSO LOAD UP S)
	PUSHJ	P,MSGCOU	;CALL CALOUT (TO START UP OUTPUT)
STOUT1:	HLR	M,DEVBUF(P2)	;ADDRESS OF NEXT BUFFER
	PUSHJ	P,GETWDU##	;GET IT
	TRNE	T1,-1		;IS IT AVAILABLE
	JRST	NXTOUT		;YES--START THE NEXT OUTPUT IF WE CAN
	MOVEI	T1,DEPAIO	;ASYNCHRONOUS OUTPUT
	TDNE	T1,DEVAIO(P2)	; ..
	JRST	STOUT2		;YES--DO NOT WAIT
	PUSHJ	P,WSYNC##	;NO--WAIT FOR I/O ACTIVE TO CLEAR
	HLR	M,DEVBUF(P2)	;SEE IF USER WIPED-OUT
	PUSHJ	P,GETWDU##	;BUFFER HEADER
	TRNN	T1,-1		;IS IT 0?
	JRST	[MOVE F,P2	;NEED MPXDDB
		 JRST ADRERR##]	;FOR ADRERR
	TLZE	S,IOSTBL	;ERROR NEEDING A RETRY
	JRST	STOUTP		;YES--RETRY
	JRST	STOUT1		;NO--LOOK FOR NEXT BUFFER (BETTER BE ONE)
STOUT2:	MOVEI	T1,DEPOND
	HRRZ	F,P2
	IORM	T1,DEVAIO(F)	;TTY BUT NONE PENDING
	POPJ	P,0
;HERE ON THE FIRST OUTPUT UUO
FIROUT:	TRNE	T1,-1		;OUTBUF DONE?
	JRST	FIROU1		;YES--DO NOT DO ONE NOW
	HRRI	M,2		;TWO BUFFERS
	MOVE	F,P2		;POINT TO MPX DDB
	PUSHJ	P,UOUTBF##	;BUILD THE RING
FIROU1:	HLR	M,DEVBUF(P2)	;ADDRESS OF RING HEADER
	PUSHJ	P,VMCHKH	;MAKE SURE ALL BUFFERS ARE IN CORE
	HLR	M,DEVBUF(P2)	;ADDRESS OF RING HEADER
	PUSHJ	P,GETWDU##	;GET ADDRESS OF FIRST BUFFER
	HRRM	T1,DEVOAD(P2)	;STORE IN DDB
	HRRZ	T1,T1		;CLEAR VIRGIN RING BIT
	PUSHJ	P,PUTWDU##	;STORE BACK IN USER SPACE
	PUSHJ	P,JDAADP##
	MOVSI	T2,OUTBFB	; UUO PROGRESS BIT IS
	IORM	T2,0(T1)	; SET FOR THIS CHANNEL
	HRRZ	T1,DEVOAD(P2)	;RESTORE T1

;HERE WHEN SETUP FOR THE NEXT OUTPUT
NXTOUT:	HRRZS	T1		;CLEAR ANY LH JUNK
	PUSH	P,T1		;SAVE ADDRESS OF BUFFER
	PUSHJ	P,BUFCLR##	;CLEAR THE BUFFER
	  PJRST	ADRERR##	;ADDRESS CHECK
	MOVEI	T2,DEPOND	;CLEAR OUTPUT NOT DONE YET
	ANDCAM	T2,DEVAIO(P2)	; SINCE THERE IS A BUFFER AVAILABLE NOW
	POP	P,U		;RESTORE THE ADDRESS
	HRR	M,U		;PICK UP THE LINK WORD
	HLRZ	U,DEVBUF(P2)	;ADDRESS OF THE RING HEADER
	PUSHJ	P,GETWDU##	; ..
	MOVEI	T2,(M)		;ADDRESS OF THE DATA
	LDB	J,[POINT 17,T1,17]	;PICK UP BUFFER SIZE
	SOJA	J,IOSETC##	;STORE BYTE COUNT AND RETURN
;SUBROUTINE TO MAKE SURE ALL BUFFERS ARE IN CORE
;CALL WITH:
;	M = ADDRESS-OF-FIRST-BUFFER
;	P3 = ADDRESS OF THE TARGET DDB
;	PUSHJ	P,VMCHEK
;	RETURN HERE IF ALL OK
;
VMCHKH:	PUSHJ	P,GETWDU##	;GET FIRST (MPX: FREE) BUFFER ADDRESS
	HRR	M,T1		;TO M FOR VMCHEK
VMCHEK:	PUSH	P,T1		;SAVE T1
	MOVE	T1,DEVIOS(P3)	;DEVICE I/O STATUS
	TRNE	T1,IOACT	;IF DEVICE IS I/O ACTIVE
	JRST	TPOPJ##		;THEN BUFFERS WILL BE ASSUMED OK
				; (EVEN IF THEY AREN'T (WHICH IS QUITE
				;  POSSIBLE) THERE IS NOTHING THAT CAN
				;  BE DONE ABOUT IT IF ANY IOACT IS ON)
	TRNE	M,-1		;ANY (MPX FREE LIST) BUFFERS TO CHECK?
	PUSHJ	P,BCHCK		;MAKE SURE BUFFERS ARE IN CORE

;WE HAVE JUST TOUCHED EVERY BUFFER IN THE FREE LIST.
;NOW CHECK OUT THE DEVICE ACTIVE BUFFER LIST.

	HLR	M,DEVEVM(P3)	;ASSUME EVM, GET USER VIRTUAL ADDRESS
	TRNN	M,-1		;UNLESS OF COURSE NOT EVM MAPPED
	HRR	M,DEVOAD(P3)	;IN WHICH CASE GET TRUE USER ADDRESS
				; NOTE THAT THE ABOVE THREE INSTRUCTIONS
				; NEED NOT BE RUN PIOFF'ED SINCE THE WORST
				; THAT CAN HAPPEN IS THAT THE DEVICE FREED
				; THE BUFFER (FREE LIST KNOWN OK) BUT
				; COULD NOT START UP THE NEXT BUFFER DUE
				; TO A PAGE FAULT ETC. THE DEVICE WILL BE
				; RESTARTED ON NEXT CALL TO MPXTBL.
	TRNE	M,-1		;ANY DEVICE ACTIVE LIST BUFFERS TO CHECK?
	PUSHJ	P,BCHCK		;MAKE SURE BUFFERS ARE IN CORE
	JRST	TPOPJ##		;ALL OK



;VERIFY A BUFFER CHAIN IS IN MEMORY AND ADDRESSABLE

BCHCK:	PUSHJ	P,SAVE1##	;SAVE P1
	MOVEI	P1,^D10000	;DEFEND AGAINST LOOPS
BCHCK1:	PUSHJ	P,GETWRD##	;GET LINK WORD
	  JRST	ADRERR##	;ADDRESS CHECK
	MOVEI	T2,(M)		;ADDRESS OF CURRENT BUFFER
	HRR	M,T1		;ADDRESS OF NEXT BUFFER
	MOVE	T1,T2		;ADDRESS OF CURRENT BUFFER
	PUSHJ	P,BRNGE##	;CHECK IT
	TRNE	M,-1		;LAST BUFFER?
	SOJGE	P1,BCHCK1	;NO
	JUMPL	P1,ADRERR##	;JUMP IF ADDRESS CHECK
	PJRST	SCDCHK##	;RETURN WITHOUT HOGGING CPU
;SUBROUTINE TO DO ALL GOOD THINGS FOR BYTE COUNTS AND WORD COUNTS
;CALLED WITH:
;	U = ADDRESS OF BUFFER (ACTUALY BUFFER + 1)
;	M = ADDRESS OF RING HEADER
;	P2 = ADDRESS OF MPX DDB
;	P3 = ADDRESS OF TARGET DDB
;	PUSHJ	P,STOCNT
;	RETURN HERE LENGTH OF BUFFER IN T1 (ALWAYS WORDS)
;
;THE COUNT IN THE BUFFER IS COMPUTED FROM THE BYTE POINTER IF IOWC=0
;	AND THEN STORED IN THE BUFFER

STOCNT:	PUSHJ	P,SAVE1##	;SAVE P1
	PUSH	P,M		;PRESERVE M
	PUSHJ	P,GETWD1##	;PICK UP THE BYTE POINTER
	MOVE	P1,T1		;SAVE POINTER IN P1
	HRRI	M,1(U)		;POINT TO I/O BUFFER
	MOVE	S,DEVIOS(P2)	;PICK UP IOS WORD
	LDB	T2,PIOMOD##	; AND THE ASSOCIATED I/O MODE
	TRNE	S,IOWC		;DID USER COMPUTE WORD COUNT
	JRST	STOCN7		;YES--GO CONVERT TO WORDS
	SUBI	T1,1(U)		;GET THE WORD COUNT
	HRRE	T1,T1		;FILL LH WITH SIGN BITS (0 I HOPE)
	CAIE	T2,BYTMOD	;IF "BYTE" MODE
	CAIN	T2,PIMMOD	;OR PACKED IMAGE MODE
	JRST	STOCN2		;THEN WE MUST DEAL WITH BYTES NOT WORDS
	PUSHJ	P,PUTWDU##	;STORE UPDATED WORD COUNT IN BUFFER HEADER
	PJRST	MPOPJ##		;RESTORE M AND RETURN WITH WORD COUNT IN T1

;HERE TO DEAL WITH BYTE-MODE BUFFERS

STOCN2:	LDB	T3,[POINT 6,P1,11]  ;BITS PER BYTE
	MOVEI	T2,^D36		;BITS PER WORD
	IDIVI	T2,(T3)		;BYTES PER WORD
	IMULI	T1,(T2)		;BYTES PER CURRENT BUFFER (GENEROUS ESTIMATE)
	LDB	T2,[POINT 6,P1,5]  ;BITS FREE IN LAST WORD OF BUFFER
	CAILE	T2,^D36		;LIMIT TO ONE WORD'S WORTH
	MOVEI	T2,^D36		;WHAT ABOUT OWGP'S?
	LDB	T3,[POINT 6,P1,11];BITS PER BYTE
	IDIVI	T2,(T3)		;BYTES FREE IN LAST WORD OF BUFFER
	SUBI	T1,(T2)		;TRUE BYTE COUNT FOR BUFFER
	PUSHJ	P,PUTWDU##	;STORE UPDATED BYTE COUNT IN BUFFER HEADER
	SUBI	P1,1(U)		;RECALCULATE THE WORD COUNT
	HRRE	T1,P1		;AND POSITION IT IN T1
	PJRST	MPOPJ##		;RETORE M AND RETURN WITH WORD COUNT IN T1
;HERE WHEN USER-SUPPLIED WORD COUNT

STOCN7:	PUSHJ	P,GETWDU##	;GET THE WORD COUNT FROM USER'S BUFFER HEADER
	CAIE	T2,BYTMOD	;"BYTE" MODE I/O?
	PJRST	MPOPJ##		;NO, RETURN WITH WORD COUNT IN T1
	LDB	T3,[POINT 6,P1,11]  ;BITS PER BYTE
	MOVEI	T2,^D36		;BITS PER WORD
	IDIVI	T2,(T3)		;BYTES PER WORD
	IDIVI	T1,(T2)		;WORDS PER CURRENT BUFFER
	CAILE	T2,0		;IF ANY BYTES LEFT OVER,
	ADDI	T1,1		;ALLOW FOR TRAILING PARTIAL WORD
	PJRST	MPOPJ##		;RETURN WORD COUNT IN T1
;SUBROUTINE TO CALL CALOUT FOR AN MPX-CONTROLLED DEVICE
;CALLED WITH F/ADDRESS OF TARGET DDB
;
;HANDLES THE SPECIAL CASE OF SKIPPING THE OUTPUT BUFFER IF THE
;USE BIT IS CLEARED (SEE OUT UUO CODE).

MSGCOU:	MOVE	S,DEVIOS(F)	;DEVICE I/O STATUS
	TRNE	S,IOACT		;IS DEVICE ALREADY I/O ACTIVE?
	POPJ	P,		;YES, DON'T TOUCH IT!
	HLRZ	T1,DEVEVM(F)	;ADDRESS OF USER BUFFER
	TRNN	T1,-1		;UNLESS NOT MAPPED IN EVM
	HRRZ	T1,DEVOAD(F)	;IN WHICH CASE DEVOAD IS USER ADDRESS
	EXCTUU	<SKIPG (T1)>	;IS USE BIT SET (DATA TO BE OUTPUT)?
	JRST	MSGCO5		;YES, ALL IS WELL
	PUSHJ	P,MSGBFE	;NO, AH HA! ADVANCE PAST THIS BUFFER
	  POPJ	P,		;CAN'T STARTUP OUTPUT (E.G., PAGE FAULT)
	PUSHJ	P,SCDCHK##	;BE SURE WE DON'T LOOP TOO LONG
	JRST	MSGCOU		;JUST TO MAKE SURE . . .

MSGCO5:	MOVEI	T1,CALOUT##	;BUFFER CONTAINS VALID OUTPUT DATA,
	PUSHJ	P,CALSER	;CALL CALOUT TO START UP OUTPUT
	  JFCL			;YAWN
	POPJ	P,		;RETURN



;SUBROUTINE TO EMULATE CALOUT FOR MPX CHANNELS
;CALLED WITH F/ ADDRESS OF MPX DDB

MSGDOU:	PUSHJ	P,SAVE3##	;WE USE ACS LEFT AND RIGHT
	SETZ	P2,		;INITIALIZE FOR NXTDV CALL LOOP
	MOVE	P3,F		;SAVE MPX DDB (AND SET FOR NXTDV)

MSGDO1:	PUSHJ	P,NXTDV		;GET NEXT DEVICE OWNED BY MPX CHANNEL
	  JRST	MSGDO2		;ALL DONE
	PUSHJ	P,MSGCOU	;CALL CALOUT TO START UP OUTPUT
	JRST	MSGDO1		;LOOP FOR REST OF DEVICES

MSGDO2:	MOVE	F,P3		;RESTORE F TO MPX DDB
	POPJ	P,		;RETURN TO CALOUT FOR MPX: DEVICE
	SUBTTL	MSGBFE MSGSER'S ADVBFE

;SUBROUTINE CALL WHEN AN OUTPUT BUFFER IS EMPTY
;CALLED WITH:
;	MOVX	F,DDB-ADDRESS (OF TARGET DEVICE)
;	PUSHJ	P,MSGBFE
;	  RETURN HERE IN NO MORE FULL BUFFERS
;	RETURN HERE IF MORE OUTPUT SHOULD BE DONE
;
MSGBFE::PUSHJ	P,SAVE4##	;SAVE ALL THE AC'S IN SIGHT
	PUSH	P,T3		; ..
	MOVE	P3,F		;P3 POINTS TO TARGET DDB
	HRRZ	P2,DEVXTR(P3)	;P2 POINTS TO MPX DDB
	HRRZ	T4,DEVEVM(P3)	;DOES THIS DEVICE HAVE EVM?
	JUMPE	T4,NOOEVM	;NO OUTPUT EVM
	MOVE	T4,DEVOAD(P3)	;EXEC VIRT ADDR OF CURRENT BUFFER
	MOVEM	S,-1(T4)	;TODD WILL HAVE FUN FINDING THIS
	MOVSI	T3,IOUSE	;THE BUFFER-IN-USE BIT
	ANDCAB	T3,(T4)		;THIS BUFFER IS NOW EMPTY
				; (SEE BIG COMMENT IN OUT UUO CODE)
	HLRZ	T1,DEVBUF(P2)	;POINTER TO THE HEAD OF FREE LIST
	MOVEI	P4,^D10000	;MAX BUFFERS LIMIT
	MOVEI	P1,-1		;IF THERE IS NO FREE BUFFER LIST 
MSBFE1:	PUSHJ	P,IADRCK##	;MAKE SURE POINTER IS LEGAL
	  PJRST	ADVSTP		;ILLEGAL ADDRESS
	  PJRST	ADVSTP		;CAUGHT IN THE ACT! STOP I/O.
	EXCTUU	<TDNN P1,(T1)>
	JRST	[HLL	T2,DEVEVM(P3)	;GET THE USER VIRT ADDR OF THIS BUFFER
		EXCTUU	<HLRM	T2,(T1)>;STORE THE POINTER IN PREVIOUS BUFFER
		HLLZS	(T4)	;MARK END OF LIST
		JRST	MSBFE2]	;LOOK FOR MORE BUFFERS
	EXCTUX	<HRRZ T1,(T1)>	;ELSE LINK TO NEXT BUFFER
	SOJG	P4,MSBFE1	;SEE IF END OF LIST YET
	JRST	ADVSTP		;FREE LIST MESSED UP
MSBFE2:	TRNN	T3,-1		;SKIP IF THERE IS MORE TO DO
	JRST	ADVST2		;NO MORE BUFFERS TO EMPTY, STOP I/O

;HERE IF THERE ARE MORE BUFFERS IN THE OUTPUT LIST

	PUSHJ	P,BADRCK##	;ADDRESS CHECK
	  JRST	ADVSTP		;OOO EVIL PERSON -- STOP I/O
	PUSHJ	P,ADVEVM##	;MAP THE NEXT BUFFER
	  JRST	ADVSTP		;NO MORE EVM -- RETRY ON THE NEXT UUO
	DPB	T1,PDVOAD##	;STORE NEW ADDRESS
	PJRST	ADVBU1##	;TRY TO CONTINUE
;HERE TO ADVANCE BUFFERS WHEN NOT MAPPED VIA EVM

NOOEVM:	HRRZ	T4,DEVOAD(P3)	;USER VIRT ADDRESS IF NOT EVM-MAPPED
	EXCTUU	<MOVEM S,-1(T4)>;STORE UPDATED STATUS BITS
	MOVSI	T3,IOUSE	;THE BUFFER-IS-FULL BIT
	EXCTUX	<ANDCAB T3,(T4)>;MARK BUFFER IS NOW EMPTY
				; (SEE BIG COMMENT IN OUT UUO CODE)
	HLRZ	T1,DEVBUF(P2)	;ADDRESS OF FREE LIST
	MOVEI	P4,^D10000	;SETUP A LOOP COUNTER
	MOVEI	P1,-1		;SETUP AC FOR TDNN BELOW
MSBFE4:	PUSHJ	P,IADRCK##	;BUFFER POINTERS MESSED UP?
	  PJRST	ADVSTP		;YES..STOP JOB.
	  PJRST	ADVSTP		;ILLEGAL ADDRESS
	EXCTUU	<TDNN P1,(T1)>	;END OF THE BUFFER LIST?
	JRST	[EXCTUU	<HRRM T4,(T1)>	;ADD TO END OF FREE LIST
		EXCTUU	<HLLZS (T4)>	;MAKE THIS BUFFER NEW END
		JRST	MSBFE5]	;SEE IF MORE BUFFERS
	EXCTUX	<HRRZ T1,(T1)>	;FOLLOW LINK
	SOJG	P4,MSBFE4	;LOOK AT NEXT BUFFER
	JRST	ADVSTP		;TOO MANY BUFFERS...STOP I/O.
MSBFE5:	TRNN	T3,-1		;MORE BUFFERS
	JRST	ADVST5		;NO MORE BUFFERS, STOP I/O

;HERE IF THERE ARE MORE BUFFERS IN THE OUTPUT LIST

	PUSHJ	P,BADRCK##	;CHECK THE ADDRESS OF NEXT BUFFER
	  JRST	ADVSTP		;BAD DO NOT USE FOR I/O
	HRRM	T3,DEVOAD(P3)	;VALID--STORE IN DDB
	PJRST	ADVBU1##	;TRY TO WRITE NEXT BUFFER



;HERE TO FORCE A DEVICE TO STOP (BUT WITH MORE DATA TO BE OUTPUT)

ADVSTP:	PUSHJ	P,RTNEVM##	;GIVE BACK EVM
	JRST	T3POPJ##	;RESTORE T3 AND RETURN

;HERE TO FORCE A DEVICE TO STOP DUE TO LACK OF DATA

ADVST2:	PUSHJ	P,RTNEVM##	;RETURN ANY EVM WE HAVE
ADVST5:	SETZM	DEVOAD(P3)	;NO FIRST BUFFER IN OUTPUT LIST
	HRRZS	DEVBUF(P3)	;NOR LAST BUFFER IN OUTPUT LIST
	JRST	T3POPJ##	;RESTORE T3, TAKE STOP I/O RETURN
	SUBTTL	IN UUO

;HERE FROM UUOCON ON INPUT UUO

MSGIN:	PUSHJ	P,SAVE4##	;SAVE P1-P4 SINCE WE USE THEM
	PUSHJ	P,MPXTBL	;GET DEVICES GOING AGAIN IF IN TROUBLE
MSGIN0:	MOVE	P2,F		;ADDRESS OF MPX DDB
	HLRZ	P4,DEVXTR(P2)	;ADDRESS OF CDT
	JUMPE	P4,NDCERR	;JUMP IF NO DEVICES CONNECTED
	HRRZ	P1,DEVXTR(P2)	;NUMBER OF DEVICES
	ADD	P4,P1		;END OF THE CDT
	AOS	P3,DEVCID(P2)	;POINTER TO THE NEXT INPUT DEVICE IN THE CDT
MSGIN1:	CAML	P3,P4		;BEYOND THE END OF THE CDT?
	HLRZ	P3,DEVXTR(P2)	;YES, GET THE ADDRESS OF THE START OF THE CDT
	MOVEM	P3,DEVCID(P2)	;STORE NEW CURRENT INPUT DEVICE POINTER
	SOJL	P1,MSGIN3	;JUMP IF ALL INPUT DEVICES HAVE BEEN POLLED
	HRRZ	F,1(P3)		;ADDRESS OF THE TARGET DDB
	MOVE	S,DEVIOS(F)	;PICK UP STATUS FLAG
	LDB	T1,PDVTYP##	;GET DEVICE TYPE
	CAIG	T1,TYPMAX	;SKIP IF TOO BIG
	PUSHJ	P,ITSTAB(T1)	;SEE IF INPUT IS AVAILABLE
MSGIN2:	  AOJA	P3,MSGIN1	;LOOP IF NO INPUT TO BE HAD
	MOVE	T1,DEVCHR(F)	;DEVICE CURRENTLY OFF LINE?
	TLNN	T1,DVOFLN	;IF SO, DON'T CONSIDER IT IN POLLING SEQUENCE
	TRNE	S,IOACT		;SKIP IF NOT ACTIVE
	JRST	MSGIN2		;ACTIVE--IGNORE FOR NOW AND KEEP LOOKING
	MOVE	T4,DEVIAD(P2)	;COPY ADDRESS OF THIS BUFFER
	DPB	T4,PDVIAD##	; INTO TARGET DDB
	EXCTUU	<SETZM 1(T4)>	;CLEAR WORD COUNT IN THE BUFFER HEADER
IFN FTMP,<
	PUSHJ	P,SETCPF##	;GET ON CORRECT CPU
>
	MOVEI	T1,CALIN##	;ROUTINE TO CALL
	PUSHJ	P,CALSER	;CALL SERVICE ROUTINE TO FILL 1 BUFFER
	  JFCL			;IGNORE SKIP/NONSKIP
	HLRZ	T1,1(P3)	;PICK UP THE UDX
	HRRZ	T2,DEVIAD(P2)	;GET UVA OF INPUT BUFFER
	EXCTUU	<SKIPN 1(T2)>	;IF THE SERVICE ROUTINE DON'T PUT ANYTHING
	JRST	MSGIN1		;  IN THE BUFFER, DONT' RETURN IT EMPTY
	EXCTUU	<HRLM T1,1(T2)>	;STORE IN BUFFER
	MOVE	F,P2		;SETUP F TO POINT TO MPX DDB
	PUSHJ	P,ADVBFF##	;ADVANCE BUFFERS
	  JFCL
	POPJ	P,0		;RETURN TO UUOCON

MSGIN3:	MOVE	F,P2		;SETUP F
	MOVEI	T1,DEPAIO	;ASYNCHRONOUS I/O
	TDNE	T1,DEVAIO(F)	; ..
	POPJ	P,0		;YES--RETURN
	MOVEI	T1,^D1		;NO--WAIT FOR A BUFFER TO BE READY
	PUSHJ	P,SLEEPF##	; ..
	JRST	MSGIN0		; ..
DEFINE ITEST(A),<
	REPEAT	TYPMAX+1,<
	POPJ	P,0
	>
	IRP	A,<
	RELOC	<.TY'A/.TYEST>+ITSTAB
	PJRST	IT$'A
	RELOC
>>

ITSTAB:	ITEST	<TTY,PTY,RDA,CDR>
;SUBROUTINE TO DETERMINE IF A TTY OR PTY DDB WILL GO INTO INPUT WAIT
;CALL WITH:
;	MOVEI	F,ADDRESS-OF-TTY-DDB
;	PUSHJ	P,IT$TTY
;	  RETURN HERE IF NOTHING TO READ
;	RETURN HERE IF 1 FULL LINE (AT LEAST)
;
IT$PTY:	LDB	U,PUNIT##	;GET PTY NUMBER
	ADDI	U,PTYOFS##	;ADD IN MAGIC OFFSET
	MOVE	U,LINTAB##(U)	;GET LDB ADDRESS
	PJRST	TOPSOP##	;CHECK IF OUTPUT IS PRESENT
IT$TTY:	SE1ENT			;ENTER SECTION 1
	MOVE	U,DDBLDB##(F)	;GET ADDRESS OF LDB
	JUMPE	U,CPOPJ##	;PUNT IF NO LDB
	SKIPLE	LDBBKC##(U)	;IS THERE A LINE?
	JRST	CPOPJ1##	;YES--RETURN TO INPUT
	PJRST	TTLCHK##	;NO--DO BETTER TEST

IT$RDA==:NTDIDA##		;CHECK FOR INPUT.
IT$CDR==:NTDIDA##
;SUBROUTINE TO SEE IF IOACT IS ON FOR ANY MPX DEVICE
;CALL WITH:
;	F = MPX DDB
;	PUSHJ	P,MPXACT
;	  RETURN HERE IF IO ACTIVE
;	RETURN HERE IF NOT ACTIVE

MPXACT::PUSHJ	P,SAVE4##	;WE MUST RESPECT ALL AC'S
	HLRZ	P4,DEVXTR(F)	;PICK UP CDT POINTER
	JUMPE	P4,CPOPJ1##	;JUMP IF NO DEVICES CONNECTED
	HLRZ	P1,CDTSIZ(P4)	;GET TOTAL SIZE
	SUB	P1,CDTFRE(P4)	;LESS FREE SLOTS
	MOVNI	P1,-1(P1)	;MAKE NEGATIVE
	JUMPE	P1,CPOPJ1##	;DONE NOW IF CDT EMPTY
	HRL	P1,P1		;PUT IN LH
	HRRI	P1,1(P4)	;POINTER TO CDT
MPXAC1:	MOVEI	P2,IOACT	;SET UP ACTIVE BIT
	MOVE	P3,(P1)		;GET POINTER TO DDB
	TDNN	P2,DEVIOS(P3)	;SKIP IF IOACT ON
	AOBJN	P1,.-2		;LOOK AT NEXT DEVICE
	JUMPGE	P1,CPOPJ1##	;NO ACTIVE DEVICES
	MOVSI	P2,DVTTY	;ACTIVE IS IT A TTY?
	TDNN	P2,DEVMOD(P3)	; ..
	POPJ	P,0		;FAIL--AT LEAST 1 ACTIVE DEVICE
	AOBJN	P1,MPXAC1	;NO--KEEP LOOKING
	PJRST	CPOPJ1##	;NO ACTIVE DEVICES



;SUBROUTINE TO SEE IF IOW IS ON FOR THE MPX DDB
;CALL WITH F = DDB
;	PUSHJ	P,MPXIOD
;	  RETURN HERE IF MPX DOESN'T HAVE IOW ON
;	RETURN HERE IF IOW WAS ON (CLEAR IT)

MPXIOD::PUSHJ	P,SAVE2##
	MOVEI	P1,DEPMSG	;MPX-CONTROLLED DDB?
	TDNN	P1,DEVMSG(F)
	POPJ	P,		;NO, NON-SKIP
	HRRZ	P1,DEVXTR(F)	;YES, GET MPX ADR
	JUMPE	P1,CPOPJ##
	MOVE	P2,DEVIOS(P1)	;IOS
	TLZN	P2,IOW		;WAITING?
	POPJ	P,		;NO-RETURN
	MOVEM	P2,DEVIOS(P1)	;YES, SAVE NEW STATE
	PJRST	CPOPJ1##	;AND SKIP-RETURN
	SUBTTL	SUBROUTINES

;SUBROUTINE TO FIND A DDB EITHER IN THE CDT OR BASED ON DEVICE NAME
;CALL WITH:
;	T1=UDX OR DEVICE NAME
;	P2=ADDRESS OF THE MPX DDB
;	PUSHJ	P,FNDDDB
;	  NO SUCH DEVICE
;	RETURN HERE DDB ADDRESS IN F

FNDDDB:	TLNE	T1,-1		;A UDX?
	PJRST	DVCNSG##	;NO, SEARCH FOR A DEVICE
	PUSHJ	P,SAVE4##	;SAVE ACS
	HLRZ	P4,DEVXTR(P2)	;CDT
	JUMPE	P4,CPOPJ##	;ERROR IF THERE ISN'T ONE
				;FALL INTO FNDUDX

;CONTINUED ON NEXT PAGE
;CONTINUED FROM PREVIOUS PAGE

;SUBROUTINE TO FIND A UDX IN A CDT
;CALL WITH:
;	P4 = ADDRESS OF CDT
;	T1 = UDX TO LOOK FOR
;	PUSHJ	P,FNDUDX
;	  UDX NOT IN CDT
;	RETURN HERE DDB ADDRESS IN F
;
;AC USAGE IN FNDUDX:
;P1 = LOWER LIMIT	P2 = UPPER LIMIT	P3 = INCREMENT
;T2 = TEMP FOR ADDRESS CALCULATION	T3 = UDX FROM TABLE FOR COMPARISON

	CAIA			;ENTER HERE FROM FNDDDB WITH P?S SAVED
FNDUDX:	PUSHJ	P,SAVE3##	;SAVE P1 THRU P3
	MOVEI	P1,1		;INDEX OF FIRST ENTRY IN CDT
	HLRZ	P2,CDTSIZ(P4)	;SIZE 
	SUB	P2,CDTFRE(P4)	;MINUS FREE IS INDEX OF LAST ENTRY
FNUDX1:	CAILE	P1,(P2)		;IS LOWER LIMIT LESS THAN OR
				; EQUAL TO UPPER LIMIT?
	POPJ	P,0		;NO--UDX IS NOT IN CDT

;COMPUTE MID POINT IN RELEVANT RANGE

	MOVEI	P3,1(P1)	;LOWER LIMIT (+1 FOR ROUNDING)
	ADDI	P3,(P2)		;PLUS UPPER LIMIT
	LSH	P3,-1		;DIVIDED BY TWO
	MOVEI	T2,(P4)		;BASE OF TABLE
	ADDI	T2,(P3)		;PLUS INDEX GIVE ADDRESS OF ENTRY
	HLRZ	T3,(T2)		;PICK UP THE UDX
	JUMPE	T3,FNUDX3	;THE BEST ALGORITHMS NEED A FUDGE
	CAMGE	T3,T1		;THE COMPARE
	JRST	FNUDX2		;TRY LOWER HALF OF TABLE
	CAMN	T3,T1		;IS THIS THE ENTRY?
	JRST	[HRRZ F,(T2)	;YES--PICK UP DATA
		 JRST CPOPJ1##]	;GIVE GOOD RETURN
FNUDX3:	MOVEI	P2,-1(P3)	;SET NEW UPPER LIMIT
	JRST	FNUDX1		;TRY AGAIN

;HERE IF ENTRY IS TOO SMALL
FNUDX2:	MOVEI	P1,1(P3)	;BOOST UP THE LOWER LIMIT
	JRST	FNUDX1		;TRY AGAIN
;SUBROUTINE TO CALL A SERVICE ROUTINE VIA UUOCON
;CALL WITH:
;	T1 = ADDRESS OF ROUTINE TO CALL
;	F = A DDB ADDRESS
;	PUSHJ	P,CALSER
;	  RETURN HERE
;	OR HERE

CALSER:	PUSHJ	P,SAVE4##	;SAVE P1 THRU P4
	MOVE	P1,T1		
	PUSHJ	P,JDAADR##
	PUSH	P,USRHCU##	;SAVE THIS
	PUSH	P,0(T1)		;AND THIS
	HLL	F,DEVXTR(F)	;PICK UP FLAGS
	MOVE	S,DEVIOS(F)	;ALWAYS NICE TO HAVE S SET UP
	PUSHJ	P,(P1)		;CALL ROUTINE
	  SOS	-2(P)		;NON-SKIP
	PUSHJ	P,JDAADR##
	HLL	F,0(T1)		;GET UPDATED FLAGS
	HLLM	F,DEVXTR(F)	;STORE BACK IN DDB
	POP	P,0(T1)		;RESTORE JUNK
	POP	P,USRHCU##	; ..
	HRRZ	P1,DEVXTR(F)	;P1 POINTS TO THE MPX DDB
	MOVSI	P2,IOSTBL	;DEVICE OFF-LINE BIT
	TDNE	P2,DEVIOS(F)	;TROUBLE ON THE TARGET DEVICE?
	IORM	P2,DEVIOS(P1)	;YES, SET TROUBLE IN THE MPX DBB
	JRST	CPOPJ1##	;RETURN (SKIP MAY HAVE BEEN UNDONE)
	SUBTTL	ERROR ROUTINES

NDCERR:	JSP	T1,ERRPTU##	;PRINT MESSAGE
	ASCIZ	\I/O with no devices connected for \
	PJRST	DEVEXC##	;SAY DEVICE XXX

NCDERR:	PUSH	P,T1		;SAVE UDX
	PUSHJ	P,DVCNSG##	;FIND REAL DDB
	  SKIPA	T2,[SIXBIT .(NONE).] ;NO SUCH DEVICE NAME
	MOVE	T2,DEVNAM(F)	;REAL DEVICE NAME
	PUSH	P,T2		;SAVE NAME
	JSP	T1,ERRPTU##	;PRINT MESSAGE
	ASCIZ	/Output to unconnected device [/
	MOVE	T2,-2(P)	;PICKUP NAME
	PUSHJ	P,PRNAME##	;PRINT IT
	PUSHJ	P,INLMES##	;ADD SOME WORDS
	ASCIZ	\] UDX=\
	MOVE	T1,-3(P)	;PICKUP UDX
	PUSHJ	P,PRTDI8##	;PRINT UDX
	SUB	P,[2,,2]	;REMOVE TWO ITEMS FROM THE STACK
	PJRST	UUOPCP##	;PRINT PC AND STOP JOB
	END