Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

TITLE D85INT - INTERRUPT SERVICE ROUTINE FOR THE DAS85  - V042
SUBTTL	DMCC/KR/JBS  18 APR 83
	SEARCH	F,S,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<
COPYRIGHT (C) 1975,1976,1977,1978,1979,1980,1982,1984 BY DIGITAL EQUIPMEMT  CORP., MAYNARD, MASS.
>
;
; DATE		LOAD	EDIT #
; ----		----	------
;
;28-OCT-80	70124	040
;12-APR-83	70135	041
;10698
;18-APR-83	70136	042
;10703
;
;
XP	VD85INT,042	;VERSION NUMBER

ENTRY	D85INT
D85INT::

                           Comment @

THE FORMAT OF A DL-10 BYTE POINTER IS:

	BYTE	3(P), 3(S), 8(C), 22(A)

WHERE
	P := THE POSITION OF THE BYTE IN THE WORD
	S := THE SIZE OF THE BYTE (SEE TABLE)
	C := THE WORD COUNT (PDP-10 WORDS) OF THE BLOCK OF BYTES THAT
	     IS BEING TRANSFERRED.  (IN NEGATIVE FORM.  OVERFLOW OCCURS
	     WHEN YOU TRY TO IMCREMENT "377")
	A := THE 22 BIT PHYSICAL ADDRESS OF THE WORD CONTAINING THE
	     NEXT BYTE.

TABLE OF LEGAL VALUES FOR THE "S" FIELD

  S	MODE	    BITS/BYTE	FUNCTION

  0	IMMEDIATE	16	THE BYTE IS IN THE RIGHT MOST 16 BITS
				OF THE "A" FIELD OF THE BYTE POINTER ITSELF.
  1	NOT IMM		16	THE BYTE IS IN THE LOCATION SPECIFIED BY
				"A" AT POSITION "P"
  2	NOT IMM, INCR	16	ANALOGOUS TO THE ILDB INSTRUCTION.
  3	NOT IMM, INCR	12		SAME
  4	NOT IMM, INCR	 8		SAME
  5	NOT IMM, INCR	 7		SAME
  6	NOT IMM, INCR	 6		SAME
  7	IMMEDIATE	16	SAME AS "S" = 0.

THE "P" FIELD IS THE POSITION OF THE BYTE IN THE PDP-10 WORD.  SINCE THE
DL-10 PERFORMS THE "ILDB" FUNCTION A "P" FIELD OF ZERO WILL GIVE THE SECOND
BYTE OF THE WORD WHEN USED IN AN INCREMENTING BYTE POINTER.  IN ORDER TO GET
THE FIRST BYTE OF THE WORD ONE SHOULD SPECIFY A "P" FIELD OF "7".  THIS
FIELD WHEN INCREMENTED DOES NOT ADVANCE THE WORD-COUNT OR THE ADDRESS.

                        End of Comment @



;BYTE POINTERS TO THE FIELDS OF A DL-10 BYTE POINTER

	DEFINE	%DLBPP (AC),<POINT 3,AC,2>	;POINT TO THE "P" FIELD
	DEFINE	%DLBPS (AC),<POINT 3,AC,5>	;POINT TO THE "S" FIELD
	DEFINE	%DLBPC (AC),<POINT 8,AC,13>	;POINT TO THE "C" FIELD
	DEFINE	%DLBPA (AC),<POINT 22,AC,35>	;POINT TO THE "A" FIELD

;D85DSP	ROUTINE CALLED BY NETSER THAT DISPATCHES TO THE PROPER FEK FUNCTION
;CALL	T1 := FUNCTION CODE
;	J := FEK ADDRESS
;RETURN	CPOPJ

D85DSP::CAIL	T1,FF.ONC	;RANGE CHECK THE FUNCTION
	CAILE	T1,FF.CPW	;  CODE AND STOP IF BAD
	PUSHJ	P,NTDSTP##	;++ ERROR: BAD FUNCTION CODE TO FEK
	JRST	@.+1(T1)	;DISPATCH TO APPRIOATE ROUTINE
	JRST	NTFONC##		;ONCE ONLY CODE
	JRST	NTFSEC##	;ONCE/SECOND CODE -- USE NETSER'S DEFAULT
	JRST	D85RDD		;SET UP A READ REQUEST
	JRST	D85WRT		;SET UP A WRITE REQUEST
	JRST	D85CRS		;CRASH THE FEK (CPU WENT DOWN?)
	JRST	CPOPJ##		;NOT USED FOR D85'S
	JRST	CPOPJ##		;NOT USED EITHER
	JRST	CPOPJ##		;WE DON'T HANDLE STATION CONTROL
	JRST	D85CPS		;GET READY TO GO TO SLEEP
	JRST	D85CPW		;CPU JUST WOKE UP.


;D85RDD	THIS ROUTINE IS CALLED TO START A READ FROM THE DL-10.
D85RDD:
IFN FTMP,<
	HLRZ	T1,FEKUNI(J)	;GET OUR CPU NUMBER, AND IF THIS IS
	CAME	T1,.CPCPN##	;  NOT "OUR" CPU, THEN SET "FK.STI"
	PJRST	SETSTI		;  SO THAT CLOCK LEVEL WILL RE-START US
>
	AOSE	FEKBSI(J)	;GET THE INPUT INTERRLOCK (WE GET HERE FROM
				;  BOTH UUO AND INTERRUPT LEVEL)
	POPJ	P,		;IF ALREADY DOING INPUT, EXIT

	JSP	T3,SETUP	;SET UP W, S
	HRRZ	U,FEKIAD(J)	;GET A POINTER TO THE PCB TO FILL
IFN FTKL10,<			;ONLY WORRY ABOUT CACHE ON A KL-10
	PUSHJ	P,PCBCHK##	;MAKE SURE DATA IS ACCESSABLE. SWEEP CACHE
				;  IF NECESSARY
>
	MOVE	T1,PCBIAD(U)	;GET THE PDP-10 BYTE POINTER
	HRRZ	T2,PCBICT(U)	;GET THE PDP-10 BYTE COUNT
	PUSHJ	P,DLBP		;GO BUILD A DL-10 BYTE POINTER
	MOVEM	T1,DLXID1##(W)	;STORE THE DL-10 BYTE POINTER
	HRRZM	T2,DLXIC1##(W)	;STORE THE DL-10 BYTE COUNT
	SETZM	DLXIC2##(W)	;INDICATE THAT ONLY ONE BYTE POINTER.
	MOVEI	T1,1		;GET THE FLAG AND
	MOVEM	T1,DLXIFL##(W)	;TELL THE -11 TO START.
	MOVSI	T1,FK.IAC	;GET THE "INPUT ACTIVE" BIT
IFN PARANOID&P$FEK,<
	TDNE	T1,FEKBLK(J)	;MAKE SURE WE AREN'T ALREADY READING
	PUSHJ	P,NTDSTP##	;++ ERROR: READ ALREADY IN PROGRESS
>
	IORM	T1,FEKBLK(J)	;SET INPUT ACTIVE FOR D85KII TO SEE
	JRST	EXIT		;GO TO COMMON EXIT TO CLEAR THE STACK
				;  AND INTERRUPT THE -11

;D85WRT	HERE TO START AN OUTPUT TRANSFER

D85WRT:
IFN FTMP,<
	HLRZ	T1,FEKUNI(J)	;GET THIS FEK'S CPU NUMBER, AND IF IT'S
	CAME	T1,.CPCPN##	;  NOT THE SAME AS THE CPU WE'RE ON, THEN
	JRST	SETSTO		;  SET "FK.STO" SO CLOCK LEVEL WILL KICK US
>
	AOSE	FEKBSO(J)	;GET THE "OUTPUT BUSY" INTERLOCK
	POPJ	P,		;  IF ALREADY DOING OUTPUT, EXIT NOW
	SKIPG	FEKOCT(J)	;MAKE SURE WE HAVE SOMETHING TO OUTPUT
	JRST	[SETOM FEKBSO(J);IF NO OUTPUT MSGS, SET OUTPUT IDLE
		 POPJ P,]	;  AND RETURN

	JSP	T3,SETUP	;SET UP W & S

	HRRZ	U,FEKOAD(J)	;GET A POINTER TO THE PCB TO SEND
IFN FTKL10,<
	PUSHJ	P,PCBCHK##	;MAKE SURE IT'S OUT OF CACHE. SWEEP IF NOT
>
	MOVE	T1,PCBOAD(U)	;GET THE PDP-10 BYTE POINTER
	HRRZ	T2,PCBOCT(U)	;GET THE PDP-10 BYTE COUNT
	PUSHJ	P,DLBP		;BUILD THE DL-10 BYTE POINTER
	MOVEM	T1,DLXOD1##(W)	;SAVE THE CONTROL DL-10 BYTE POINTER
	HRRZM	T2,DLXOC1##(W)	; SAVE THE HEADER BYTE COUNT

	MOVE	T1,PCBOA1(U)	;GET THE FIRST USER BYTE POINTER
	HRRZ	T2,PCBOC1(U)	;GET THE BYTE COUNT OF THE FIRST SEGMENT
	SKIPE	T2		;DON'T MAKE A BYTE POINTER IF CNT IS ZERO
	PUSHJ	P,DLBP		;MAKE A DATA BYTE POINTER FOR THE DL-10
	MOVEM	T1,DLXOD2##(W)	;STORE THE OUTPUT BYTE POINTER
	HRRZM	T2,DLXOC2##(W)	;STORE THE OUTPUT BYTE COUNT

	SETZM	DLXOC3##(W)	;WE NEVER USE THE THIRD BYTE POINTER.

	LDB	T1,PCBPCV##	;GET THE CONVERSION CODE
	ADDI	T1,1(T1)	;SHIFT OVER AND TURN ON MSG AVAILABLE FLAG
	MOVEM	T1,DLXOFL##(W)	;TELL THE -11 THAT HE CAN START READING.
	MOVSI	T1,FK.OAC	;GET THE "OUTPUT ACTIVE" BIT
IFN PARANOID&P$FEK,<
	TDNE	T1,FEKBLK(J)	;MAKE SURE IT ISN'T SET
	PUSHJ	P,NTDSTP##	;++ ERROR: OUTPUT IN PROGRESS
>
	IORM	T1,FEKBLK(J)	;TELL D85KII THAT INTERRUPT MAY BE OUTPUT DONE
	JRST	EXIT		;CLEAN UP THE STACK AND INTERRUPT THE -11



;SETSTO & SETSTI -- ROUTINES TO SET THE REQUEST BITS SO NETSER WILL
;  CALL US ON THE PROPER CPU

SETSTO:	MOVSI	T1,FK.STO	;GET THE START OUTPUT BIT
	CAIA
SETSTI:	MOVSI	T1,FK.STI	;GET THE START INPUT BIT
	IORM	T1,FEKBLK(J)	;SET THE BIT
	POPJ	P,		;  AND WAIT FOR NETSER TO CALL

;DLBP	MAKE A DL-10 BYTE POINTER FOR DATA.
;CALL	MOVE	T1,EXEC VIRTUAL ADDRESS OF DATA
;	MOVE	T2,NUMBER OF BYTES
;	PUSHJ	P,DLBP
;RETURN	CPOPJ			;ALWAYS
;	T1 CONTAINS A DL-10 BYTE POINTER
;	T2 CONTAINS THE NUMBER OF BYTES.

DLBP:	LDB	T3,[POINT 6,T1,11] ;GET THE SIZE FROM THE PDP-10 POINTER
	CAIN	T3,^D16		;IS IT A 16 BIT BYTE?
	JRST	[MOVEI T4,2	;THEN 2 BYTES/WORD
		 JRST DLBP1]	; AND GO PROCESS IT
	CAIN	T3,^D12		;IS IT A 12 BIT BYTE?
	JRST	[MOVEI T4,3	;THEN 3 BYTES/WORD
		 JRST DLBP1]	; AND GO PROCESS IT
	MOVEI	T4,^D12		;THEN ASSUME IT IS OF SIZE 8, 7, OR 6.
	SUBI	T4,(T3)		;TRANSLATE IT INTO A DL-10 BYTE SIZE.
	CAIL	T4,4		; AND IF THE RESULT IS NOT LEAGAL. (IE
	CAILE	T4,6		; NOT 4, 5, OR 6) GO GIVE AN ERROR
	STOPCD	.,STOP,BBS,	;++ BAD BYTE SIZE
DLBP1:
	MAP	T3,(T1)		;CONVERT THE BYTE-POINTER ADDR TO PHYSICAL ADDR
IFN FTKI10,<			;THE MAP INSTRUCTION IS SCREWEY ON THE KI, SO
	LSH	T3,11		; WE MUST FIXUP THE LOW 9 BITS OF THE ADDRESS
	DPB	T1,[POINT 9,T3,35] ; FROM THE ORIGIONAL ADDRESS
>
	DPB	T3,[%DLBPA T1]	;STORE BACK THE PHYSICAL ADDRESS.
	DPB	T4,[%DLBPS T1]	;STORE THE SIZE
	MOVEI	T3,(T2)		;COPY THE BYTE COUNT.
	IDIVI	T3,(T4)		;DIVIDE TO GET THE NUMBER OF WORDS
	SKIPE	T4		;IF IT WASN'T AN EVEN MULTIPLE, THEN
	AOS	T3		; ALLOW FOR THE EXTRA WORD.
	MOVNS	T3		;MAKE THE WORD COUNT NEGATIVE FOR THE DL-10
	DPB	T3,[%DLBPC T1]	;STORE THE WORD COUNT
	SETO	T3,		;GET A 7 FOR THE POSITION FIELD
	DPB	T3,[%DLBPP T1]	;STORE THE POSITION FIELD
	POPJ	P,		;T1 := DL-10 BYTE POINTER; T2 := BYTE COUNT.

;D85CRS	ROUTINE TO CLEAR THE DL-10 PORT ENABLE.
;	CALLED BY NETSER WHEN IT BELIEVES THE -11 IS SICK
;CALL	J := FEK ADDRESS
;RETURN	CPOPJ

D85CRS:	PUSHJ	P,SAVE3##	;WE SET UP THE P'S FOR REMPRG
	HRRZ	P2,FEKUNI(J)	;GET THE DL-10 BASE TABLE ADDRESS
	JUMPE	P2,CPOPJ##	;RETURN IF WE DON'T HAVE A WINDOW
	HRRZ	P3,DLXWIN##(P2)	;GET THE WINDOW ADDRESS
	SETZM	DLXDWN##(P3)	;TELL THE -11 WE THINK HE'S CRASHED
	XCT	DLXCLR##(P2)	;CLEAR PORT ENABLE
	XCT	DLXPRG##(P2)	;CALL REMPRG TO CALL NETSER...
	MOVSI	T1,(JFCL)	;GET A JFCL INSTRUCTION
	MOVEM	T1,DLXINI##(P2)	;  AND PUT IT IN AS THE INTERRUPT INSTR
	MOVEM	T1,DLXPRG##(P2)	;  AND THE "CRASH" INSTRUCTION
	POPJ	P,		;THE -11 CAN NO LONGER POKE -10 MEMORY.


;D85CPS	ROUTINE CALLED WHEN THIS CPU IS ABOUT TO GO TO SLEEP
;	SHUTS DOWN THE FEK AND LETS NETSER KNOW IT'S DOWN
;CALL	J := POINTER T O THE FEK
;RETURN	CPOPJ

D85CPS:	JRST	D85CRS		;JUST "CRASHING" THE FEK SHOULD BE ENOUGH


;D85CPW	ROUTINE CALLED WHEN THIS CPU IS WAKING UP AFTER A SLEEP
;	I DON'T THINK IT NEEDS TO DO ANYTHING...
;CALL	J := POINTER T O THE FEK
;RETURN	CPOPJ

D85CPW:	POPJ	P,

;UTILITY ROUTINES FOR D85RDD AND D85WRT

;SETUP	ROUTINE TO SAVE AND SETUP REGISTERS U, S, & W
;CALL	JSP	T3,SETUP

SETUP:	PUSH	P,S		;SAVE THE FLAGS
	PUSH	P,U		;PRESERVE U
	PUSH	P,W		;PRESERVE W
	HLLZ	S,FEKBLK(J)	;SET UP THE FLAGS
	HRRZ	W,FEKUNI(J)	;GET ADDRESS OF DL-10 BASE TABLE
	SKIPN	W		;MAKE SURE THAT THE WINDOW IS SET UP
	STOPCD	CPOPJ##,DEBUG,WNS, ;++ WINDOW WAS NOT SETUP?
	HRRZ	W,DLXWIN(W)	;  AND FROM THAT, GET ADDRESS OF WINDOW
	JRST	(T3)		;RETURN TO CALLER



EXIT:	HRRZ	W,FEKUNI(J)	;GET THE ADDRESS OF THE DL-10 BASE TABLE
	XCT	DLXI11##(W)	;  IT CONTAINS INSTRUCTION TO INTERRUPT THE 11
	POP	P,W		;RESTORE W
	POP	P,U		;RESTORE U
	POP	P,S		;RESTORE THE FLAGS
	POPJ	P,

;DC75 WINDOW OFFSETS.  THESE ARE COPIED FROM THE DC75 CODE.
;  THE FIRST FEW WORDS CORRESPOND TO THE DC76 WINDOW.

D75WIN:	PHASE	0
	BLOCK	3		;INTERRUPT INSTR AND TWO UNUSED WDS
	BLOCK	1		;POINTER TO NAME "DC75"
	BLOCK	1		;PDP-11 PORT NUMBER
	BLOCK	1		;11-ALIVE.  INC BY 10 ONCE A SEC.
	BLOCK	1		;STOP CODE VALUE
	BLOCK	1		;"DOWN" INDICATOR
	BLOCK	1		;UP TIME

;THE FOLLOWING ITEMS ARE SPECIFIC TO THE DC75

DLSWRD:!BLOCK	1		;GLOBAL STATUS WORD
	DLS.DP==1		;DEPOSIT 11 CORE
	DLS.EX==2		;EXAMINE 11 CORE
	DLS.ER==4		;ILLEGAL ADDRESS
DLADR:! BLOCK	1		;ADDRESS TO EXAMINE 11 CORE
DLDTA:! BLOCK	1		;CONTENTS OF DLADR
DLREC:!	BLOCK	1		;MAXIMUM RECORD LENGTH
DLMOD:!	BLOCK	1		;VERSION OF 85 SOFTWARE
DL10A:! BLOCK	1		;10-ALIVE INDICATOR
DL10S:! BLOCK	1		;INITIALIZATION STATUS OF 10
DL11S:! BLOCK	1		;INITIALIZATION STATUS OF 11
DLIFL:!	BLOCK	1		;INPUT FLAGS
DLIC1:!	BLOCK	1		;INPUT COUNT 1
DLID1:!	BLOCK	1		;INPUT POINTER 1
DLIC2:!	BLOCK	1		;INPUT COUNT 2
DLID2:!	BLOCK	1		;INPUT POINTER 2
DLOFL:!	BLOCK	1		;OUTPUT FLAGS
DLOC1:!	BLOCK	1		;OUTPUT COUNT 1 (HEADER)
DLOD1:!	BLOCK	1		;OUTPUT POINTER 1 (HEADER)
DLOC2:!	BLOCK	1		;OUTPUT COUNT 2 (DATA 1)
DLOD2:!	BLOCK	1		;OUTPUT POINTER 2 (DATA 1)
DLOC3:!	BLOCK	1		;OUTPUT COUNT 3 (DATA 2)
DLOD3:!	BLOCK	1		;OUTPUT POINTER 3 (DATA 2)
	BLOCK	200-.		;THE UNUSED PART OF THE WINDOW

	DEPHASE
	RELOC	D75WIN		;SAVE SPACE

SUBTTL	PDP-11 INTERFACE
;COME HERE WHEN A PDP11 IS FIRST RECOGNIZED AS BEING A DC75 PDP11

D75III::MOVE	J,DLXWIN##(W)	;POINT TO WINDOW
	MOVE	T1,DLMOD(J)	;PICK UP MOD NUMBER
	CAIE	T1,1		;RIGHT?
	STOPCD	CPOPJ##,DEBUG,5WE,	;++DC75 WRONG PDP11 CODE
	SETOM	DL10A(J)	;MARK 10 AS ALIVE
	SETZM	DLADR(J)	;CLEAR EXAMINE ADDRESS
	SETZM	DLDTA(J)	;AND EXAMINE DATA
	SETZM	DLIFL(J)
	HRLI	T1,DLIFL(J)
	HRRI	T1,DLIFL+1(J)
	BLT	T1,DLOD3(J)
	MOVE	T1,[PUSHJ P,D75KII]
	MOVEM	T1,DLXINI##(W)	;INTERRUPT INSTRUCTION
	MOVE	T1,[XWD MC11FN,C11FTB]
	MOVEM	T1,DLXCAL##(W)	;CAL11. POINTER
	MOVE	T1,[PUSHJ P,REMPRG]
	MOVEM	T1,DLXPRG##(W)	;PURGE INSTRUCTION
	SETOM	DL10S(J)	;MARK 10 AS RUNNING
	HRRZ	J,DLXFEK##(W)	;GET THE ADDRESS OF THE FEK
	SETOM	FEKBSO(J)	;CLEAR OUTPUT ACTIVE
	SETOM	FEKBSI(J)	;  AS WELL AS INPUT ACTIVE
	MOVSI	T1,FK.ONL	;GET THE ONLINE BIT
	IORM	T1,FEKBLK(J)	;  AND SET IT  (CLOCK LEVEL WILL NOTICE)
	HRRM	W,FEKUNI(J)	;STORE ADDRESS OF DL-10 BASE TABLE
	POPJ	P,		;DONE WITH INITIALIZATION

;HERE WHEN DL10 INTERRUPTS
D75KII::PUSHJ	P,SAVE2##	;SAVE P1 AND P2
	HRRZ	J,DLXFEK##(W)	;GET FEK ADDRESS
	MOVE	P1,DLXWIN##(W)	;WINDOW ADDRESS
	MOVE	P2,DLXOFL##(P1)	;ONLY TO CHECK OUTPUT ARRIVING
				;  BEFORE INPUT DONE
	MOVE	T1,FEKBLK(J)	;GET THE FEK'S "FLAGS"
	TLNE	T1,FK.IAC	;  AND SEE IF EXPECTING INPUT DONE
	SKIPE	DLXIFL##(P1)	;MAKE SURE FLAG SAY'S -11'S DONE
	JRST	CHKOUT		;NOT EXPECTED OR NOT REAL
	HRRZ	U,FEKIAD(J)	;PCB ADDRESS
	MOVE	T1,DLXIC1##(P1)	;COUNT OF INPUT BYTES
	HRRM	T1,PCBICT(U)	;STORE IN PCBICT
IFN PARANOID&P$FEK,<
	SKIPGE	FEKBSI(J)	;MAKE SURE WE "AOSED" THE LOCK TO GET HERE
	PUSHJ	P,NTDSTP##	;++ ERROR: INPUT MYSTERIOUSLY BUSY
>
	MOVSI	T1,FK.IAC	;GET INPUT ACTIVE AND
	ANDCAM	T1,FEKBLK(J)	;  CLEAR IT SO WE DON'T CALL NETSER AGAIN
	SETOM	FEKBSI(J)	;CLEAR BUSY  (RACE FREE. WERE AT PI LEVEL)
IFN FTKL10,<
	PUSHJ	P,CSDMP##	;CLEAR ANY "VALID" BITS SET BY SOMEONE
>				;  "PEEKING" AT THE BUFFER BEING FILLED
	MOVEI	T1,FI.RDD	;GET INPUT DONE FUNCTION CODE
	PUSHJ	P,FEKINT##

CHKOUT:	MOVE	T1,FEKBLK(J)	;GET THE "FLAGS"
	TLNE	T1,FK.OAC	;  AND SEE IF WE'RE WAITING FOR OUTPUT DONE
	SKIPE	P2		;SKIP IF -11 CLEARED "BUSY" FLAG
	POPJ	P,		;NOT EXPECTED OR NO OUTPUT
	MOVE	U,FEKOAD(J)	;PCB ADDRESS
	NETOFF			;CAREFUL WHEN MESSING WITH QUEUES
	HRRZM	U,FEKODN(J)	;POST THIS PCB AS FILLED
	HRRZ	U,PCBBLK(U)	;GET THE "NEXT" ONE TO BE FILLED
	HRRZM	U,FEKOAD(J)	;  AND MAKE IT THE FIRST
	SOS	FEKOCT(J)	;COUNT OFF ONE LESS INPUT PCB
	NETON			;CONSISTANT AGAIN
	MOVEI	T1,FI.ODN	;GET INPUT DONE FUNCTION CODE
	PUSHJ	P,FEKINT##
IFN PARANOID&P$FEK,<
	SKIPGE	FEKBSO(J)	;MAKE SURE WE ENTERED WITH THE "AOSE"
	PUSHJ	P,NTDSTP##	;++ ERROR:  OUTPUT MYSTERIOUSLY ACTIVE
>
	MOVSI	T1,FK.OAC	;GET THE OUTPUT ACTIVE BIT
	ANDCAM	T1,FEKBLK(J)	;  AND CLEAR IT TO SAY WE CAN SEND ANOTHER
	SETOM	FEKBSO(J)	;SAY WE'RE NO LONGER OUTPUT BUSY
	JRST	D85WRT		;SEE IF ANOTHER WRITE REQUEST TO PROCESS

;HERE WHEN A DC75 GOES DOWN
REMPRG::PUSH	P,J
	HRRZ	J,DLXFEK##(P2)
	MOVEI	T1,FI.DWN
	PUSHJ	P,FEKINT##
	HRRM	P2,FEKUNI(J)
	PJRST	JPOPJ##

D85PRE::PUSH	P,J
	MOVE	J,(P2)		;START OF WINDOW
	SETZM	DLXSWD##(J)
	HRLI	T1,DLXSWD##(J)
	HRRI	T1,DLXSWD##+1(J)
	BLT	T1,DLXOD3##(J)
	SETZM	DLXNMT##(P2)	;CLEAR NAME
	PJRST	JPOPJ##

;COME HERE ON CAL11. UUO FROM COMDEV.

;CALLING SEQUENCE IS:
;	MOVE	AC,[XWD LENGTH,BLOCK]
;	CAL11.	AC,
;	  ERROR RETURN
;	OK RETURN

;BLOCK:	EXP	FUNCTION CODE
;	ARGUMENT (1) ...
;

;ENTER FROM COMDEV WITH WINDOW POINTER IN P1,
;  DL10 BASE IN W, LENGTH OF BLOCK IN T3.

;COMDEV DOES THE DISPATCH BASED ON THE FOLLOWING TABLE.  THE
;  HIGH ORDER BIT, IF SET, INDICATES THAT THE USER MUST HAVE
;  THE "POKE" PRIV.


C11FTB:	XWD	400000,DEP11	;(0) DEPOSIT TO -11
	XWD	400000,EXAM11	;(1) EXAMINE THE -11
	XWD	400000,ECOD2##	;(2) ERROR (IN DC76: QUE11)
	XWD	0,NAME11	;(3) RETURN NAME OF PGM IN 11
	XWD	0,DOWN11	;(4) IS PORT UP OR DOWN?
	XWD	400000,SND11	;(5) SEND MESSAGE
	XWD	400000,RCV11	;(6) RECEIVE MESSAGE
	XWD	0,TYP11		;(7) NODE & TYPE
MC11FN==.-C11FTB		;LENGTH OF TABLE

SND11==:CPOPJ##
RCV11==:CPOPJ##

;COME HERE FOR EXAMINE AND DEPOSIT FUNCTIONS

DEP11:	PUSHJ	P,EXDP11	;GET ADDR TO DEPOSIT INTO
	  JRST	ECOD4##
	SOJL	T3,ECOD7##	;GET DATA TO DEPOSIT
	PUSH	P,W		;SAVE DL10 BASE
	PUSHJ	P,GETWD1##	;GET THE DATA
	POP	P,W
	MOVEM	T1,DLDTA(T2)	;SAVE DATA
	MOVEI	T1,DLS.DP	;FLAG TO DEPOSIT WORD
	HRRZM	T1,DLSWRD(T2)
	XCT	DLXI11##(W)	;WAKE THE 11
	MOVEI	T1,^D2000
	MOVE	T3,DLSWRD(T2)	;GET STATUS
	TRNE	T3,DLS.DP	;TEST IF DEPOSIT OFF
	  SOJGE	T1,.-2		;KEEP GOING
	TRNE	T3,DLS.ER	;CHECK BAD ADDRESS
	  JRST	ERRADR		;YES, ERROR CODE 2
	SKIPE	T1,DLSWRD(T2)	;DID 11 RESPOND ?
	  JRST	ECOD5##		;FATAL ERROR
	JRST	STOTC1##	;AND GIVE SUCCESS RETURN.

EXAM11:	PUSHJ	P,EXDP11	;GET ADDR TO EXAMINE/DEPOSIT
	  JRST	ECOD4##
	MOVEI	T1,DLS.EX	;FLAG TO EXAMINE
	HRRZM	T1,DLSWRD(T2)
	XCT	DLXI11##(W)	;WAKE THE 11
	MOVEI	T1,^D2000
	MOVE	T3,DLSWRD(T2)	;GET STATUS
	TRNE	T3,DLS.EX	;TEST FOR EXAMINE BIT OFF
	  SOJGE	T1,.-2		;LOOP TILL DONE OR COUNT GOES
	TRNE	T3,DLS.ER	;BAD ADDRESS?
	  JRST	ERRADR		;YES, ERROR 2
	SKIPE	DLSWRD(T2)	;DID 11 RESPOND ?
	  JRST	ECOD5##		;FATAL ERROR
	MOVE	T1,DLDTA(T2)	;YES, FETCH DATA AT THAT ADDRESS
	JRST	STOTC1##	;AND GIVE SUCCESS RETURN.

ERRADR:	SETZM	DLSWRD(T2)	;CLEAR ERROR BIT
	JRST	ECOD2##		;SET ERROR CODE 2

EXDP11:	MOVE	J,.CPJOB##	;GET JOB NUMBER OF CALLER
	MOVE	T2,DLXWIN##(W)	;POINT TO WINDOW
	SKIPE	DLSWRD(T2)	;IS WINDOW FREE ?
	  POPJ	P,
	SOJL	T3,ECOD7##	;NEED ADDRESS
	PUSH	P,W		;SAVE DL10 BASE
	PUSHJ	P,GETWD1##	;GET THE ADDRESS
	POP	P,W		;RESTORE DL10 BASE
	ANDI	T1,177777	;SIXTEEN BITS ONLY
	MOVEM	T1,DLADR(T2)	;STORE ADDRESS
	JRST	CPOPJ1##

;COME HERE TO RETURN THE NAME OF THE PDP-11 PROGRAM.

NAME11:	MOVE	T1,DLXNMT##(W)	;PICK UP NAME
	JRST	STOTC1##	;SKIP RETURN, GIVING  NAME

;COME HERE TO TELL THE STATUS OF THE PDP-11 PROGRAM.

DOWN11:	SKIPG	T1,DLXDWN##(P1)	;GET STATUS
	TDZA	T1,T1		;PDP-11 IS DOWN
	MOVEI	T1,1		;UP.
	JRST	STOTC1##	;SKIP RETURN.

;HERE TO REPORT NODE & TYPE

TYP11:	MOVE	T1,DLXFEK##(W)	;POINT TOFEK
	HRLZ	T1,FEKNNM(T1)	;GET NODE NUMBER
	HRR	T1,DLXTYP##(W)	;GET TYOE OF FRONT END
	PJRST	STOTC1##	;RETURN
	$LIT
D85END::END