Google
 

Trailing-Edge - PDP-10 Archives - BB-F493Z-DD_1986 - 10,7/dupcom.mac
There are 4 other files named dupcom.mac in the archive. Click here to see a list.
	.TITLE	KDUPMC - COMMUNICATION IO PROCESSOR MICROCODE FOR THE DUP11
;
; COPYRIGHT (C)	1978
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 01754
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON
; A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
; THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS
; SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED
; OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON
; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO
; THESE LICENSE TERMS.  TITLE TO AND OWNERSHIP OF THE
; SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC
;
; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
; WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM-
; MITMENT BY DIGITAL EQUIPMENT CORPORATION.
;
; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY
; DEC.
;
; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
;
	.SBTTL	TABLE OFFSET DEFINITIONS
	.IDENT	/V1.0A/
;	FILE	DUPEQU.MAC
 
	.NLIST	CND
 
 
BIT0=1
BIT1=2
BIT2=4
BIT3=10
BIT4=20
BIT5=40
BIT6=100
BIT7=200
 
 
; RAM TABLE OFFSETS PER DDCMP/SDLC LINE
 
D.RSTR=0		;TIMER RESTART VALUE
 
D.TIME=D.RSTR+1		;TIMER VALUE
 
D.CSR=D.TIME+1		;CSR ADDRESS (2 BYTES)
 
D.STS=D.CSR+2		;STATUS
	DS.CRI=BIT7		;BIT STUFF CRC INHIBIT
	DS.SLT=BIT7		;DDCMP SELECT ON CURRENT MESSAGE
	DS.QSC=BIT6		;Q-SYNC BIT
	DS.DEC=BIT5		;DEC MODE
	DS.IGN=BIT4		;IGNORE CURRENT MESSAGE
	DS.HDX=BIT3		;HALF DUPLEX LINE
	DS.SEC=BIT2		;SECONDARY STATION
	DS.DSR=BIT1		;LAST STATE OF DATA SET READY
	DS.NUM=BIT0		;RECEIVING NUMBERED MESSAGE
 
D.RPTR=D.STS+1		;RECEIVE STATE POINTER
 
D.SADR=D.RPTR+1		;SECONDARY ADDRESS
 
D.DCC1=D.SADR+1		;DDCMP DATA CHARACTER COUNT(LOW BYTE)
 
D.DCC2=D.DCC1+1		;DDCMP DATA CHARACTER COUNT(HIGH BYTE)
; THE ABOVE TWO BYTES WILL BE USED AS THE LOCAL DELAY BUFFER FOR SDLC.
 
D.SILO=D.DCC1		;TWO CHARACTER SDLC SILO
 
D.RDP=D.DCC2+1		;CURRENT RECEIVE DESCRIPTOR POINTER (3 BYTES)
 
D.ARLP=D.RDP+3		;ALTERNATE LINK POINTER (3 BYTES)
 
D.ORBC=D.ARLP+3		;ORIGINAL RECEIVE BYTE COUNT (2 BYTES)
 
D.ORBA=D.ORBC+2		;ORIGINAL RECEIVE CURRENT BUFFER ADDRESS (3 BYTES)
 
D.RBD=D.ORBA+3		;CURRENT RECEIVE BUFFER DESCRIPTOR(5 BYTES)
 D.RBDC=D.RBD		;CURRENT RECEIVE COUNTER

 D.RBDA=D.RBDC+2	;CURRENT RECEIVE BUFFER ADDRESS
 D.RBDF=D.RBDA+2	;FLAG BIT BYTE
	DR.LST=BIT7		;DESCRIPTOR IS LAST IN LIST 
	DR.ABA=BIT6		;ALTERNATE BUFFER IS ASSIGNED
	DR.CBA=BIT5		;CURRENT BUFFER IS ASSIGNED
	DR.17=BIT3		;RCV ADDRESS BIT 17
	DR.16=BIT2		;RCV ADDRESS BIT 16
	DR.FST=BIT0		;FIRST CHARACTER IN CURRENT BUFFER
 
D.ERC=D.RBD+5		;EVEN RECEIVE CHARACTER
 
D.XDP=D.ERC+1		;CURRENT TRANSMIT DESCRIPTOR POINTER (3 BYTES)
 
D.AXLP=D.XDP+3		;ALTERNATE TRANSMIT LINK POINTER (3 BYTES)
 
D.OXBC=D.AXLP+3		;ORIGINAL TRANSMIT BYTE COUNT (2 BYTES)
 
D.DUMMY=D.OXBC+2	;3 BYTES OF DUMMY DATA
 
D.XBD=D.DUMMY+3		;CURRENT TRANSMIT BUFFER DESCRIPTOR (5 BYTES)
 D.XBDC=D.XBD		;COUNT (LOW BYTE)
 D.XBDA=D.XBDC+2	;ADDRESS (LOW BYTE)
 D.XBDF=D.XBDA+2	;FLAG BITS BYTE
	DX.LST=DR.LST		;DISCRIPTOR IS LAST IN LIST
	DX.ABA=DR.ABA		;ALTERNATE XMT BUFFER ASSIGNED
	DX.CBA=DR.CBA		;CURRENT XMT BUFFER ASSIGNED
	DX.SYN=BIT4		;SEND SYNCS
	DX.17=BIT3				;XMT ADDRESS BIT 17
	DX.16=BIT2				;XMT ADDRESS BIT 16
	DX.EOM=BIT1				;END OF MESSAGE
	DX.SOM=BIT0				;START OF MESSAGE
 
D.OXC=D.XBD+5		;ODD TRANSMIT CHARACTER
 
D.SYNC=D.OXC+1		;TRANSMIT SYNC COUNT
 
D.XSTS=D.SYNC+1		;TRANSMIT STATUS FLAGS
	DT.ABT=BIT0!BIT4  ;TRANSMIT ABORT PENDING
	DT.AB1=BIT1	;TRANSMIT ABORT STAGE 1 PENDING
 
D.LNG=60			;LENGTH OF TABLE
 
; RAM OFFSET PER COMM IOP
 
P.MSTA=2000		;LAST RAM LOCATION + 1
P.SLOT=P.MSTA-1		;COMPLETION SILO NEXT OUT POINTER
P.SLIN=P.SLOT-1		;COMPLETION SILO NEXT IN POINTER
P.PORT=P.SLIN-1		;PORT SERVICE ROUTINE
P.PLST=P.PORT
	SENTRY=6	;SIZE OF A SILO ENTRY
	NMSENT=29.	;NUMBER OF SILO ENTRIES
P.NPR=P.PLST-<SENTRY*NMSENT>	;COMPLETION SILO
	SILOED=P.PLST-SENTRY	;LAST ENTRY IN SILO
P.LADR=P.NPR-<MAXDEV*2>	;TABLE OF LINE TABLE ADDRESSES
;
; SCRATCH PAD DEFINITIONS
;
	SP.CHR=SP7		;LOW BYTE OF DUP'S CSR2 (RECEIVE CHARACTER)
	SP.RST=SP10		;HIGH BYTE OF DUP'S CSR2 (RECEIVE CHARACTER STATUS)
	SP.STS=SP11		;COMM IOP STATUS REGISTER
	SP.LN=SP12		;COMM IOP LINE # CURRENTLY SELECTED
	SP.RM0=SP13		;RAM TABLE ADDRESS FOR CURRENT LINE - BITS 0-7
	SP.RM1=SP14		;RAM TABLE ADDRESS FOR CURRENT LINE - BITS 8&9
	SP.SB1=SP15		;SUBROUTINE RETURN ADDRESS (LEVEL B SUBROUTINES)
	SP.SUB=SP16		;SUBROUTINE RETURN ADDRESS (LEVEL A SUBROUTINES
	SP.CS0=SP17		;IMAGE OF CSR0 (LOW BYTE)


; DUP-11 INTERFACE RELATED EQUATES
;	RECEIVE CONTROL AND STATUS REGISTERS (XX0)
 
;		LOW BYTE
DUPDTR=BIT1		;DATA TERMINAL READY
DUPRTS=BIT2		;REQUEST TO SEND
DUPREN=BIT4		;ENABLE RECEIVER
DUPRDN=BIT7		;RECEIVE DONE
;		HIGH BYTE
DUPSSY=BIT0		;STRIP SYNC
DUPDSR=BIT1		;DATA SET READY
 
 
;RECEIVE DATA BUFFER REGISTER -RXDBUF (XX2)
 
;		HIGH BYTE
DUPRSM=BIT0		;RECEIVE START OF MESSAGE
DUPREM=BIT1		;RECEIVE END OF MESSAGE
DUPRAB=BIT2		;RECEIVE ABORT
DUPCPE=BIT4		;CRC/PARITY ERROR
DUPOVR=BIT6		;OVERUN ERROR
DUPRE=BIT7		;RECEIVE ERROR
 
;PARAMETER CONTROL AND STATUS REGISTER -PARCSR (XX2)
 
;		HIGH BYTE
DUPCRI=BIT1		;CRC INHIBIT
DUPSAM=BIT4		;SECONDARY ADDRESS MODE
DUPDEC=BIT7		;DEC MODE
 
;TRANSMIT CONTROL AND STAUS REGISTER-TXCSR (XX4)
;		LOW BYTE
DUPHDX=BIT3		;HALF DUPLEX MODE
DUPSND=BIT4		;SEND
DUPTXD=BIT7		;TRANSMIT DONE
 
;		HIGH BYTE
DUPDR=BIT0			;DEVICE RESET
 
;TRANSMIT DATA BUFFER REGISTER - TXDBUF (XX6)
 
;		HIGH BYTE
DUPTSM=BIT0		;TRANSMIT START OF MESSAGE
DUPTEM=BIT1		;TRANSMIT END OF MESSAGE
DUPTAB=BIT2		;TRANSMIT ABORT
 
 
;NPR CONTROL EQUATES
 
DATO=021			;WORD OUT NPR
DATOB=221			;BYTE OUT NPR
HLDBUS=002			;HOLD BUS
 
 
;DDCMP EQUATES
 
SOH=201			;START OF HEADER-NUMBERED MESSAGE
ENQ=005			;ENQUIRY
DLE=220			;DELETE-MAINTAINANCE MESSAGE
SYNC=226		;SYNC CHARACTER
 
SYNCNT=7		;NUMBER OF SYNC'S TO TRANSMIT
 
 
 
;CONTROL/BUFFER ADDRESS OUT PARAMETERS
 
C.BAOX=200		;BA OUT FOR TRANSMIT OPERATION
C.BAOR=204		;BA OUT FOR RECEIVE OPERATION
C.CLOX=201		;CONTROL OUT  FOR TRANSMIT OPERATION
C.CLOR=205		;CONTROL OUT FOR RECEIVE OPERATION
 
EOM=20			;END OF MESSAGE
 
;ERROR CODES
 
ER.ABO=6		;RECEIVE ABORT (BIT STUFF)
ER.HBC=10		;DDCMP HEADER BCC ERROR
ER.CRC=12		;RECEIVE CRC ERROR
ER.NBA=14		;NO BUFFER AVAILABLE (RECEIVE)
ER.DSR=16		;DATA SET READY TRANSITION
ER.NXM=20		;NON-EXISTENT MEMORY
ER.UNR=22		;TRANSMIT UNDERRUN
ER.OVR=24		;RECEIVE OVERRUN
ER.KIL=26		;USER KILL
 
 
	MAXDEV=16.	;MAXIMUM NUMBER OF DUP'S GEN'ED FOR
	.PAGE
	.SBTTL	INIT - INITIALIZATION
;	FILE	IDLE.DUP

;+
; **INIT-INITIALIZATION ROUTINE**
;
; INPUTS:
;	BRG = 0 (MASTER CLEAR)
;	MAR = 0 (MASTER CLEAR)
; OUTPUTS:
;	RAM IS CLEARED EXCEPT FOR THE COUNTERS IN THE POLLING LIST
;	WHICH ARE SET TO MINUS ONE TO INDICATE NO ACTIVE DEVICES.
;	THE ADDRESSES OF EACH LINE TABLE IS PUT IN A TABLE AT P.LADR
;	THE CSR'S ARE ALSO CLEARED
;-

$KDPMC::			;START OF CODE GLOBAL LABEL

INIT:	OUT	BR,SELB,OINCON	;ZERO THE INPUT CONTROL CSR
	OUT	BR,SELB,OOCON	;ZERO THE OUTPUT CONTROL CSR
	SP	BR,SELB,SP.RM1	;CLEAR OUT RAM ADDRESS HIGH SCRATCH PAD
	SP	BR,SELB,SP.RM0	;CLEAR LOW BYTE OF ADDRESS
	SP	BR,SELB,SP4	;ZERO SP4
10$:	MEMINC	IMM,0		;ZERO THE NEXT MEMORY LOCATION
	SPBR	IBUS,NPR,SP0	;READ THE NPR CONTROL REGISTER
	BRWRTE	BR,ADD,SP0	;SHIFT IT LEFT
	BR7	20$		;OVERFLOWED MAR TO 10 BITS - ALL DONE
	ALWAYS	10$		;KEEP ZEROING RAM
 
; MAR = 0 FROM OVERFLOW
 
20$:
	BRWRTE	IMM,MAXDEV*2	;MAXIMUM NUMBER OF DEVICES GENED FOR TIMES 2
	SP	BR,SELB,SP5	;SAVE IT IN A SCRATCH PAD
INIT1:
	BRWRTE	TWOA,SP4,INCMAR	;GET CURRENT LINE TIMES 2
	SP	BR,SELB,SP0		;SAVE IT IN SP0
	COMP	BR,SP5		;ARE WE FINISHED WITH ALL LINES
	Z	40$		;ALL DONE
	SP	INCA,SP4	;ONE MORE LINE INITIALIZED
	MEM	IMM,377		;INITIALIZE POLLING COUNTER TO MINUS ONE
	BRWRTE	IMM,P.LADR,LDMAPG	;LOAD THE BRG WITH THE ADDRESS OF
				;THE LINE TABLE ADDRESS TABLE AND SET THE
				;MAR HI TO THAT ADDRESS
	LDMA	BR,ADD,SP0	;POINT TO THIS LINES ENTRY IN THE TABLE
	MEMINC	SELA,SP.RM0	;SAVE THE LINE TABLE ADDRESS
	MEM	SELA,SP.RM1	;LOW AND HI
	ALWAYS	NXTTBL		;"CALL" ROUTINE TO CALCULATE ADDRESS OF
				;NEXT LINE'S TABLE (OFFSET BY D.TIME)
				;RETURN MADE TO INIT1 WITH MAR&SP.RM0,1 SET
40$:	LDMAP	IMM,P.PORT	;LOAD MAR HIGH WITH ADDRESS OF PORT STATUS BYTE
	LDMA	IMM,P.PORT	;LOAD MAR LOW
	MEMADR	RDOSET,INCMAR	;ADDRESS OF ROUTINE TO CHECK FOR OUTPUT COMPLETIONS
	MEMINC	IMM,P.NPR	;INITIALIZE COMPLETION SILO IN POINTER
	MEM	IMM,377		;INITIALIZE COMPLETION SILO OUT POINTER (LOGICAL ZERO)
				;FALL INTO IDLE LOOP
	.SBTTL	IDLE - IDLE LOOP

;+
; **IDLE-LOOP BETWEEN PORT AND DEVICE SERVICE
;
; INPUTS:
;	P.PORT = ADDRESS OF NEXT PORT SERVICE ROUTINE
;
; OUTPUTS:
;	IF THE PGMCLK BIT IN THE MISC REG HAS EXPIRED,
;	THE DEVICES ARE POLLED AND SERVICED BY THE TIMER ROUTINE
;	IN ANY CASE, THE NEXT PORT ROUTINE IS BRANCHED TO.
;
;	MAR  = P.PORT
;	ALL PORT ROUTINES RETURN TO IDLE
;-

IDLE:	SPBR	IBUS,UBBR,SP0	;READ THE BUS REQUEST REGISTER AND
				;STORE THE IMAGE IN SP0 AND THE BRG
	BR4	TIMER		;BRANCH IF THE TIMER HAS EXPIRED
IDLE1:	LDMA	IMM,P.PORT	;LOAD MAR TO POINT TO PORT STATUS
	LDMAP	IMM,P.PORT	;LOAD MAR HIGH
	.ALWAY	MEMX,SELB,0	;TIMER HAS NOT EXPIRED YET, CHECK THE
				;DATA PORT TO SEE IF ANY PROCESSING IS REQUIRED
				;RAM CONTAINS THE ADDRESS OF THE APPROPRIATE
				;SERVICE ROUTINE
				; RQISET --> WAITING FOR RQI TO SET
				; RDICLR --> WAITING FOR RDYI TO CLEAR
				; RDOSET --> WAITING FOR A COMPLETION
				; RDOCLR --> WAITING FOR RDYO TO CLEAR
	.SBTTL	DATA PORT PROCESSING ROUTINES
;+
; **RDOCLR-WAITING FOR READY OUT TO BE CLEARED BY THE PDP-11**
;
; INPUTS:
;	MAR = PORT SERVICE ROUTINE (P.PORT)
; OUTPUTS:
;	THIS ROUTINE WAITS FOR READY OUT TO BE CLEARED BY THE PDP-11
;	THUS SIGNALING IT IS DONE.  IT ALSO CHECKS IF OUTPUT INTERRUPTS
;	ARE REQUESTED IN THE MEANTIME AND WILL GENERATE ONE IF THEY WERE
;	NOT REQUESTED WHEN RDYO WAS SET.
;
;	WHEN RDYO IS CLEARED, CONTROL IS PASSED TO RQISET TO CHECK
;	FOR PENDING PORT REQUESTS
;
;	NOTE: THERE EXISTS THE POSSIBILITY OF AN INTERRUPT BEING GENERATED
;	IF IEO IS CLEARED AT ANY TIME AFTER IT IS TESTED BY THE MICROPROCESSOR
;	(APPROX A 1.5US WINDOW)
;-

RDOCLR:
	BRWRTE	IBUS,OCON		;READ CONTROL CSR BSEL2
	BR7	RDOST1			;READY OUT STILL SET, CHECK INTERRUPTS
;
; ENTER HERE IF AN OUTPUT INTERRUPT HAS ALREADY BEEN GENERATED
;
RDOCL1:
	BRWRTE	IBUS,OCON		;READ OUTPUT CONTROL CSR
	BR7	IDLE			;READY OUT STILL SET
	BRWRTE	IMM,0			;CLEAR OUTPT CONTROL CSR
	OUT	BR,SELB,OOCON		;..
	MEMADR	RQISET			;LOOK FOR RQI NEXT
	ALWAYS	IDLE			;BACK TO IDLE LOOP
;+
; **RDOSET-MICROPROCESSOR COMPLETION POSTING**
;
; INPUTS:
;	MAR = PORT SERVICE ROUTINE (P.PORT)
; OUTPUTS:
;	CHECK THE COMPLETION SILO TO SEE IF ANY COMPLETIONS ARE PENDING.
;	IF THERE ARE POST THE COMPLETION TO THE PDP-11 
;	SILO POINTERS (P.SLOT,P.SLIN) ARE UPDATED
;	AND WAIT FOR RDYO TO CLEAR (RDOCLR)
;	OTHERWISE CHECK TO SEE IF THE PDP-11 HAS ANY INPUT DATA (RQISET)
;-

RDOSET:
	MEMADR	RQISET			;LOOK FOR RQI NEXT
	LDMA	IMM,P.SLOT	;SET MAR TO COMPLETION SILO NEXT OUT POINTER
	LDMA	MEMX,SELB	;POINT COMPLETION TO NEXT OUT ENTRY
	Z	IDLE		;THE POINTER IS ZERO THEREFORE THE SILO IS EMPTY
 
; A COMPLETION OUTPUT IS PENDING IN THE COMPLETION SILO. MAR POINTS TO THE
; NEXT ENTRY
	OUT	MEMI,SELB,OLINEN ;WRITE THE LINE NUMBER BYTE
 
; READ THE SECOND WORD OF THE COMPLETION SILO AND SET UP CSR 4
 
	OUT	MEMI,SELB,OPORT1 ;WRITE PORT BYTE 1
	OUT	MEMI,SELB,OPORT2 ;AND PORT BYTE 2
 
; READ THE THIRD WORD OF THE COMPLETION SILO AND SET UP CSR 6
 
	OUT	MEMI,SELB,OPORT3 ;WRITE PORT BYTE 3
	OUT	MEMI,SELB,OPORT4 ;AND PORT BYTE 4
 
	OUT	MEMI,SELB,OOCON	;WRITE THE NEW OUTPUT CNTRL CSR
 
; INCREMENT THE SILO NEXT OUT POINTER
 
	LDMA	IMM,P.SLIN	;SET MAR TO POINT TO COMPLETION SILO NEXT IN OFFSET
	SP	MEMI,SELB,SP1	;SAVE THE NEXT IN POINTER IN SP1
	SP	MEMX,SELB,SP0	;SAVE THE NEXT OUT POINTER IN SP0
	MEM	IMM,P.NPR	;ASSUME THE SILO IS GOING TO WRAP AROUND
	BRWRTE	IMM,SILOED	;OFFSET TO LAST SILO ENTRY
	COMP	BR,SP0		;COMPARE CURRENT OUT POINTER WITH END OF SILO
	Z	50$		;IT WRAPPED AROUND - ALREADY SET UP
	BRWRTE	IMM,SENTRY	;GET THE SIZE OF A SILO ENTRY
	MEM	BR,ADD,SP0	;INCREMENT NEXT OUT POINTER AND SAVE IT
 
; IF SILO IS NOW EMPTY "ZERO" THE NEXT OUT POINTER
 
50$:	COMP	MEMX,SP1		;COMPARE OUT POINTER TO IN POINTER
	Z	70$		;THEY ARE THE SAME
	ALWAYS	80$		;THEY ARE DIFFERENT
70$:	MEM	IMM,377		;THE SILO IS EMPTY - SET NEXT OUT POINTER
				;TO A LOGICAL ZERO (-1)
80$:	LDMA	IMM,P.PORT	;SET MAR TO POINT TO PORT STATUS
RDOST1:
	SPBR	IBUS,INCON,SP0		;READ INPUT CONTROL CSR
	BR4	RDOST2			;OUTPUT INTERRUPT REQUESTED
	MEMADR	RDOCLR			;STATE TO WAITING FOR READY OUT CLEARING
	ALWAYS	IDLE			;BACK TO IDLE LOOP

RDOST2:	MEMADR	RDOCL1			;STATE TO WAITING FOR READY OUT CLEARING
	BRWRTE	IMM,300			;MASK FOR BUS REQUEST AND XX4
RDOST3:	OUT	BR,SELB,OBR		;GENERATE AN INTERRUPT
	ALWAYS	IDLE			;BACK TO IDLE LOOP
 
;+
; **RQISET-REQUEST IN SET, THE PDP-11 HAS REQUESTED THE DATA PORTS
;
; INPUTS:
;	MAR = PORT SERVICE ROUTINE (P.PORT) 
; OUTPUTS:
;	CHECK TO SEE IF REQUEST IN HAS BEEN SET BY THE PDP-11. IF SO,
;	SET READY IN AND LET THE PDP-11 SET UP A COMMAND IN THE DATA PORTS
;	IF INPUT INTERRUPTS ARE REQUESTED, GENERATE ONE
;	TRANSFER CONTROL TO RDICLR TO WAIT UNTIL THE PDP-11 IS DONE
;-

RQISET:	BRWRTE	IBUS,INCON		;READ INPUT CONTROL CSR
	BR7	10$			;REQUEST IN SET
	ALWAYS	RDOSET			;SEE IF ANY COMPLETIONS TO POST

10$:	SP	IMM,20,SP0		;MASK TO SET READY IN
	OUT	SELA,OOCON		;SET IN OUPUT CONTROL CSR
	BR0	RQIST1			;INTERRUPT ENABLE IS SET
	MEMADR	RDICLR			;STATE TO WAITING FOR RDYI TO CLEAR
	ALWAYS	IDLE			;BACK TO IDLE LOOP

RQIST1:	MEMADR	RDICL1			;STATE TO WAITING FOR RDYI TO CLEAR
	BRWRTE	IMM,200			;MASK FOR BUS REQUEST AND XX0
	ALWAYS	RDOST3			;GENERATE AN INTERRUPT
;+
; **RDICLR-WAIT FOR READY IN TO CLEAR (DATA PORTS HAVE BEEN SET UP)**
;
; INPUTS:
;	MAR = PORT SERVICE ROUTINE (P.PORT)
; OUTPUTS:
;	CHECK TO SEE IF THE PDP-11 HAS CLEARED READY IN SIGNIFYING
;	THAT IT HAS SET UP THE DATA PORTS.  IF SO THEN DISPATCH TO THE
;	PROPER ROUTINE TO HANDLE THE REQUEST BASED ON
;	BIT 0&1 OF THE  CONTROL CSR BSEL2
;-
 
; RDYI CLEAR ROUTINE IS ENTERED HERE IF INTERRUPT ENABLE WAS NOT
; SET WHEN THE COMMIOP SET READY IN. IF IN THE  MEANTIME INTERRUPT ENABLE
; WAS SET, IT WILL BE SEEN HERE AND AN INTERRUPT WILL BE GENERATED
 
	.ENABL	LSB
RDICLR:
	BRWRTE	IBUS,OCON		;READ OUTPUT CONTROL CSR
	BR4	5$			;READY IN STILL SET
	ALWAYS	10$			;PDP-11 CLEARED RDYI. DONT BOTHER
					;CHECKING FOR IEI JUST PROCESS THE DATA
5$:	BRWRTE	IBUS,INCON		;READ CONTROL CSR
	BR0	RQIST1			;INTERRUPT REQUESTED
RDICL1:
	BRWRTE	IBUS,OCON		;READ OUTPUT CONTROL CSR
	BR4	IDLE			;RDYI STILL SET
10$:	MEMADR	RDOSET			;STATE TO WAIT FOR COMPLETIONS
 
; READY IN CLEAR
 
	BRWRTE	IMM,P.LADR	;GET ADDRESS OF LINE TABLE ADDR TABLE
	SP	BR,SELB,SP5	;SAVE IT IN SP5
	SP	IBUS,LINENM,SP.LN	;READ THE LINE NUMBER
	BRWRTE	BR,TWOA,SP.LN	;MULTIPY IT BY TWO
	LDMA	BR,ADD,SP5	;POINT TO ENTRY IN TABLE FOR THIS LINE
	SP	MEMI,SELB,SP.RM0	;GET THE ADDRESS OF THIS LINE'S TABLE
				;(LOW) AND SAVE IT IN SP.RM0
	SP	MEMX,SELB,SP.RM1,LDMAPG	;GET THE ADDRESS (HIGH) AND POINT
				;THE MAR HI TO THIS ADDRESS
	LDMA	SELA,SP.RM0	;SET MAR LOW
15$:
	BRWRTE	IMM,14,INCMAR	;SET UP DUP CSR BY SETTING ADDR BITS 16-17
	OUT	BR,SELB,OBR,INCMAR ;WRITE EXTENDED MEM BITS FOR OUT NPR
	OUTPUT	MEMI,SELB,OBA1	;WRITE OUT LOW BYTE OF CSR ADDRESS
	OUTPUT	MEMI,SELB,OBA2	;WRITE OUT HIGH BYTE
	LDMA	SELA,SP.RM0	;POINT BACK TO START OF LINE TABLE

				;REGISTERS FOR COMMAND ROUTINES
				; MAR=LINE TABLE  SP.LN=LINE NUMBER
				; SP.RM0,1=LINE TABLE ADDR
				; NPR OUTPUT ADDR=DEVICE CSR 0

	BRWRTE	IBUS,OCON	;GET ORIGINAL IMAGE OF INPUT CONTROL CSR
				;READ FROM BSEL2 TO AVOID RAM BIT SET PROBLEM
				;BY THIS TIME ALL BITS WILL HAVE SETTLED
	BR1	20$		;BIT 1 SET
	BR0	CONIN		;BIT 1=0 AND BIT 0=1 -> CONTROL IN REQUEST
	ALWAYS	BAIN		;BIT 0&1=0 -> BUFFER ADDRESS IN REQUEST
20$:	BR0	BASEIN		;BIT 1=1 BIT 0=1 -> BASE IN REQUEST
				;BIT 1=1 BIT 0=0 -> ILLEGAL REQUEST
	.DSABL	LSB
 
; ABOVE THREE ROUTINES RETURN HERE AFTER REQUEST HAS BEEN PROCESSED
 
RQICL2:	BRWRTE	IMM,0		;CLEAR OUT CONTROL CSR
	OUT	BR,SELB,OOCON	;..
	SPBR	IBUS,UBBR,SP0	;READ THE MISC REGISTER
	BR0	NXMERR		;IF BIT 0 SET, THEN A NON-EXISTENT MEMORY
				;ERROR OCCURRED, REPORT IT.
	ALWAYS	IDLE		;OTHERWISE, BACK TO IDLE LOOP
	.SBTTL	TIMER - TIMER SERVICE
;+
; **TIMER-TIMER SERVICE ROUTINE**
;
; INPUTS:
;	BRG & SP0 = IMAGE OF BUS REQUEST REGISTER
;
; OUTPUTS:
;	EACH DEVICES TIMER COUNTER IS DECREMENTED AND TESTED FOR
;	AN EXPIRATION.  IF THE COUNTER WENT TO ZERO THE DEVICE
;	IS POLLED TO SEE IF IT HAS A TRANSMIT DONE OR A RECEIVE DONE
;	AND IF SO IT IS SERVICED.  IF NONE OF THE DEVICES REQUIRES
;	SERVICING THE MODEM TIMER IS DECREMENTED AND IF IT EXPIRED
;	MODEM CHANGES ARE CHECKED.
;	WHEN A DEVICE DONE SERVICE ROUTINE IS FINISHED THIS ROUTINE
;	CONTINUES WITH THE NEXT DEVICE.
;-
	.ENABL	LSB
TIMER:	BRWRTE	IMM,121		;MASK TO CLEAR ALL BUT TIMER, XX4 AND NXM
				;N.B. THE TIMER WILL ALREADY BE SET TO ONE
				;FROM IT EXPIRING SO THE MASK IS GUARANTEED
				;TO LEAVE IT A ONE FOR RESETTING
	OUT	BR,AANDB,OBR	;AND THE MASK WITH THE PREVIOUS CONTENTS OF
				;THE BUS REQUEST REGISTER RESETING THE
				;TIMER
	BRWRTE	IMM,0		;ZERO THE BRG
	SP	BR,SELB,SP.LN	;START WITH LINE ZERO
	SP	BR,SELB,SP.RM0,LDMAR	;SAVE THE ADDRESS IN RAM ADDRESS SCRATCH PAD
	SP	BR,SELB,SP.RM1,LDMAPG	;INITIALIZE SCRATCH PAD WITH THE HIGH BITS
	ALWAYS	TIMRT1		;START POLLING
 
 
; MAIN POLLING LOOP
; RECEIVE DONE  ROUTINES RETURN HERE

TIMRTN:
 
10$:
	SPBR	IBUS,UBBR,SP0	;READ THE MISC.  REGISTER
	BR0	NXMERR		;NXM ERROR OCCURRED DURING LAST POLL
	SP	BR,INCA,SP.LN	;ONE LESS DEVICE TO POLL
	BRWRTE	IMM,MAXDEV	;CHECK TO SEE IF LAST DEVICE
	COMP	BR,SP.LN	;HAS BEEN POLLED
	Z	IDLE1		;ALL DONE - BACK TO IDLE LOOP
	BRWRTE	IMM,P.LADR,LDMAPG	;GET STARTING ADDRESS FOR TABLE
				;OF LINE TABLE ADDRESSES AND SET MAR HI
	SP	BR,SELB,SP0	;SAVE IT IN SP0
	BRWRTE	BR,TWOA,SP.LN	;MAKE LINE NUMBER A DOUBLE BYTE INDEX
	LDMA	BR,ADD,SP0	;SET ADDRESS FOR ENTRY OF THIS LINE
	SP	MEMI,SELB,SP.RM0	;SAVE ADDRESS FOR THIS LINE
	SP	MEMX,SELB,SP.RM1,LDMAPG	;HIGH 2 BITS AND LOAD MAR HI
	LDMA	BR,SELA,SP.RM0	;LOAD MAR LOW
TIMRT1:
	BRWRTE	MEMI,SELB	;SAVE THE RESTART VALUE IN THE BRG
				;AND INCREMENT THE MAR
				;IN CASE THE TIMER EXPIRED
	SP	MEMX,SELB,SP0	;READ THE COUNTER FOR THIS DEVICE
	Z	10$		;THE DEVICE IS NOT ACTIVE
	MEM	BR,DECA,SP0	;DECREMENT THE COUNTER AND WRITE IT
				;BACK TO MEMORY
	C	10$		;LOOK AT THE NEXT DEVICE'S COUNTER

; TIMER HAS EXPIRED - SEE IF THERE ARE ANY "DONES" PENDING
; INPUTS:
;	BRG = RESET VALUE

30$:	MEMINC	BR,SELB		;RESET THE COUNTER TO THE INITIAL VALUE
	OUTPUT	MEMI,SELB,IBA1 ;STORE THE LOW BYTE OF THE DEVICES
				;CSR INTO THE LOW BYTE OF THE INPUT BUFFER
				;ADDRESS REGISTER
	OUTPUT	MEMI,SELB,IBA2 ;DO THE SAME WITH THE HIGH BYTE
				;AND INCRMENT THE MAR TO STATUS BYTE
	BRWRTE	IMM,14!DATI		;MASK TO SET EXTENDED MEMORY BITS
				; DO AN INPUT NPR
	OUT	BR,SELB,ONPR	;START THE NPR
	SP	MEMX,SELB,SP.STS	;SAVE THE STATUS BYTE IN SP.STS
40$:	BRWRTE	IBUS,NPR	;READ THE NPR REQUEST REGISTER
	BR0	40$		;WAIT FOR THE NPR TO COMPLETE
	SPBR	IBUS,INDAT2,SP1	;READ THE HIGH BYTE OF CSR 0
				;SAVE IT IN SP1 FOR XMTDON
	BRWRTE	BR,AXORB,SP.STS	;SEE IF ANY CHANGE IN THE DSR STATE
	BR1	DSRCHG		;DATA SET READY HAS CHANGED STATES
	SP	IBUS,IIBA1,SP0		;READ LOW BYTE OF CSR0'S ADDRESS
	SPBR	IBUS,INDAT1,SP.CS0	;READ THE LOW BYTE OF THE DEVICES CSR
	BR7	60$			;RECEIVE DONE SET
;
; SEE IF TRANSMIT DONE SET
;
45$:	BRSHFT			;SHIFT THE CSR IMAGE
	BR1	XMTDON		;REQUEST TO SEND SET
;
; RETURN HERE AFTER FINISHED PROCESSING THE TRANSMITTER
;
TIMRT3:
50$:
	BRWRTE	BR,SELA,SP.CS0	;RE-READ IMAGE OF CSR0
	BR7	RCVDON		;RECEIVE DONE WAS SET
	ALWAYS	10$		;NOT SET - RETURN
;
; RECEIVE DONE FOUND SET
;
60$:
	BRWRTE	IMM,2		;PREPARE TO ADD TWO TO THIS ADDRESS
 
	OUTPUT	BR,ADD,IBA1	;ADD TWO TO THE ADDRESS IN SP0 GETTING THE ADDRESS
				; OF CSR2 WHICH CONTAINS THE RECEIVE
				;CHARACTER IN THE LOW BYTE AND THE
				;STATUS IN THE HIGH BYTE
	BRWRTE	IMM,14!DATI		;MASK TO SET EXTENDED MEMORY BITS
				;AND TO START THE NPR
	OUT	BR,SELB,ONPR	;START THE NPR TO READ CSR2
70$:	BRWRTE	IBUS,NPR	;READ THE NPR STATUS REGISTER
	BR0	70$		;NPR IS NOT DONE YET
	SP	IBUS,INDAT1,SP.CHR	;SAVE THE CHARACTER IN A SCRATCH PAD
	SP	IBUS,INDAT2,SP.RST	;SAVE THE CHARACTER'S STATUS
	BRWRTE	BR,SELA,SP.CS0		;RESTORE THE BRG FOR XMIT DONE TESTING
	ALWAYS	45$			;SEE IF ANY XMIT DONES
 
					;UPON TRANSFER TO XMTDON OR RCVDON
				;THE FOLLOWING LOCATIONS HAVE BEEN SET UP
				;FOR ENTRY TO THE "DONE" PROCESSOR:
				; SP.RM1 -> BITS 8&9 OF RAM TABLE ADDRESS
				; SP.RM0 -> BITS 0-7 OF RAM TABLE ADDRESS
				; MAR --> STATUS (D.STS) IN LINE TABLE
				; SP.LN --> LINE NUMBER
				; SP.CS0 --> IMAGE OF LOW BYTE OF CSR 0
				; SP.STS --> IMAGE OF D.STS
				; SP0 --> LOW BYTE OF CSR 0 ADDRESS
				; SP1 --> HIGH BYTE OF CONTENTS OF CSR 0
				; NPR INPUT ADDR -> DEVICE CSR 0
				;IF RECV DONE, 
				; SP.CHR --> RECEIVED CHARACTER
				; SP.RST --> RCV CHAR STATUS (CSR2 MSB)
	.DSABL	LSB
;%	FILE	DUPUSER.MAC

;INDIRECT RETURNS THROUGH PAGE ZERO
 
;******FOLLOWING INSTRUCTIONS MUST RESIDE IN MICRO PAGE ZERO******
 
 
;RETURN FROM INCOUT DUE TO A CALL FROM BOUT ROUTINE
BOUTR0:	ALWAYS	QPDATA	;GO TO QPDATA ON RETURN
 
 
;RETURN FROM INCOUT DUE TO A CALL FROM XMTSND
XMTEM0:	ALWAYS	XMTBC0


;RETURN FROM LSILO DUE TO A CALL FROM RB3
RB3P0:	ALWAYS	STORE	;GO TO STORE ROUTINE ON RETURN
	.SBTTL	BASEIN-BASE IN SERVICE ROUTINE
 
;+
;
;			B A S E  I N
;
;
;
;CALLED BY:	RDICLR
;
;INPUTS:
;	KMC BSEL3		=LINE NUMBER
;	KMC SEL6 <3:12>		=CSR ADDR FOR CURRENT DUP
;	SP.RM0,SP.RM1		=LINE TABLE ADDRESSES
;	MAR 			=LINE TABLE 
;OUTPUTS:
;	DUP CSR ADDR IS SAVED IN THE LINE TABLE (D.CSR)
;	DUP IS RESET
;-
 
BASEIN:
;SAVE CURRENT DUP CSR ADDR IN RAM
 
	SP	IBUS,PORT3,SP0,INCMAR	;GET CSR ADDR INTO SP0
	BRWRTE	IMM,370,INCMAR		;MASK TO STRIP 3 LSB'S OF CSR ADDR
	MEM	BR,AANDB,SP0	;STRIP THEM AND STORE IN RAM
	OUTPUT	MEMI,SELB,OBA1	;SAVE CSR IN OUT ADDRESS REGISTERS
	SP	IBUS,PORT4,SP0	;GET HIGH BYTE INTO SP0
	BRWRTE	IMM,340		;MASK TO SET 3 MSB'S
	MEM	BR,AORB,SP0	;SAVE IT IN RAM WITH 3 HIGH BITS SET TO ONES
	OUTPUT	MEMX,SELB,OBA2	;SAVE HIGH BYTE OF CSR ADDRESS
 
BASEI1:
;DEVICE RESET THE DUP
 
	BRWRTE	IMM,DUPDR	;SET PROPER BIT (BIT 0) IN OUTDATA HB
	OUTPUT	BR,SELB,OUTDA2
	CALLSR	SP.SUB,INCOB,RQICL2,5	;DO THE NPR TO MASTER CLEAR THE DUP
				;AND RETURN TO CLEAR READY IN
; RESET IS A 2 MICRO-SECOND ONE SHOT.IT IS ASSUMED THAT BEFORE THE DUP
;IS ACCESSED AGAIN, THIS PERIOD WILL HAVE ELAPSED.
	.SBTTL	CONIN-CONTROL IN PROCESS ROUTINE
 
;+
;
;			C O N T R O L  I N
;
;
;
;CALLED BY:	RDICLR
;
;INPUTS:
;	BSEL4 (PORT1)	=POLLING COUNT
;	BSEL6 (PORT3)	=SECONDARY ADDRESS
;	BSEL7 (PORT4)	=CONTROL FLAGS
;	SP.RM0,SP.RM1	=LINE TABLE ADDRESS
;	MAR		=LINE TABLE ADDRESS
;	OUT BA		=DUP'S CSR 0
;OUTPUTS:
;	VARIOUS LINE TABLE LOCATIONS AND DUP FUNCTIONS ARE INITIALIZED ACCORDING TO
;	THE CONTROL IN PARAMETERS.THESE INCLUDE:
;		DUP CSR XX0-STRIP SYNC FOR DEC MODE
;		DUP CSR XX2-DEC MODE&SYNC CHARACTER FOR DDCMP OR SEC MODE,
;		  SEC ADDRESS FOR BITSTUFF MODE
;		DUP CSR XX4-HALFDUPLEX
;-
 
CONIN:
	BRWRTE	IBUS,PORT4	;READ BSEL 7
	BR0	10$		;ENABLE LINE IS SET
	SPBR	IMM,0,SP0,INCMAR	;CLEAR SP0
	MEMINC	DECA,SP0	;WRITE A 377 TO D.TIME DISABLING THIS LINE
	ALWAYS	20$
 
10$:	MEMINC	IBUS,PORT1	;SET TIMER RESTART VALUE
	MEMINC	IBUS,PORT1	;AND TIMER ENABLING THE LINE
	BRWRTE	IMM,DUPDTR!DUPREN	;VALUE TO SET  DTR AND RECEIVE ENABLE
 
; BRG = DUPDTR!DUPREN IF ENABLE WAS REQUEST OR 0 IF DISABLE
 
20$:	OUTPUT	BR,SELB,OUTDA1,INCMAR	;VALUE TO SET OR CLEAR DTR,RCV ENABLE
	BRWRTE	IBUS,PORT4,INCMAR	;REREAD BSEL7
					;MAR = D.STS
	MEM	IMM,DUPSSY	;ASSUME DEC MODE BY STORING STRIP SYNC
				;BIT TEMPORARILY IN MEMORY
	BR7	30$		;IT IS DEC MODE
	MEM	IMM,0		;BIT STUFF MODE - DON'T SET STRIP SYNC
30$:	OUTPUT	MEMX,SELB,OUTDA2	;STORE STRIP SYNC SETTING
	BRWRTE	IMM,DATO	;DO AN OUTPUT NPR 
	OUT	BR,SELB,ONPR	;REQUEST THE NPR
40$:	BRWRTE	IBUS,NPR	;SEE IF NPR DONE YET
	BR0	40$		;WAIT FOR IT
 
CONIN2:
	SPBR	IBUS,PORT4,SP0	;REREAD BSEL7
	BR7	10$		;DEC MODE?
; LOAD SYNC CHARACTER/SECONDARY ADDRESS INTI XX2 LOW BYTE
 
	OUTPUT	IBUS,PORT3,OUTDA1 ;NO,SO LOAD SEC ADDRESS FIELD
	MEM	IMM,DS.CRI	;ASSUME CRC INHIBIT
	BR1	5$		;BRANCH IF IT IS CRC INHIBIT
	MEM	IMM,0		;CLEAR D.STS
5$:	BRWRTE	IMM,DUPSAM!DUPCRI ;SET SECONDARY ADDRESS MODE,CRC INHIBIT
	ALWAYS	20$
; UPDATE XX3
10$:
	MEM	IMM,SYNC	;MOVE SYNC CHARACTER TO MEMORY IN ORDER
				;TO SAVE THE BRG
	OUTPUT	MEMX,SELB,OUTDA1 ;MOVE IT TO OUT DATA REGISTER
	MEM	IMM,DS.SEC!DS.DEC	;ASSUME DEC AND SEC MODE
	BR4	15$			;BRANCH IF SEC MODE
	MEM	IMM,DS.DEC		;NO,JUST DEC MODE
15$:	BRWRTE	IMM,DUPDEC	 ;ISOLATE DEC MODE,CRC INHIBIT
;NOTE: DUP SOULD NOT BE SET TO SECONDARY ADDRESS MODE WHILE IN DEC MODE.THIS
;WILL INHIBIT RECEIVE DONES.
20$:
	OUTPUT	BR,AANDB,OUTDA2 	;MODE CRC INHIBIT&AND LOAD INTO OUTADA2
	CALLSB	SP.SUB,IC2OUT		;WRITE IT OUT TO XX3,XX2
; UPDATE DUP XX5,XX4
 
CONIN3:
	BRWRTE	IBUS,PORT4
	BRSHFT
	BR4	30$			;HALF DUPLEX MODE
;FULL DUPLEX MODE,CLEAR XX4
 
	BRWRTE	IMM,0
	ALWAYS 	40$
 
;HALF DUPLEX MODE, SET HALF DUPLEX BIT IN XX4
 
30$:
	.IIF NE	DS.HDX-DUPHDX	.ERROR DS.HDX ;DS.HDX NO LONGER EQUALS DUPHDX
	BRWRTE	IMM,DUPHDX	;HALF DUPLEX MASK (SAME AS DX.HDX)
	SP	BR,SELB,SP0	;SAVE IT IN SP0
	MEM	MEMX,AORB,SP0	;SET HALF DUPLEX IN D.STS
40$:
 
	OUTPUT	BR,SELB,OUTDA1,INCMAR	;WRITE HALF DUPLEX MASK
				;MAR = D.RPTR (RECV STATE POINTER)
 
; SET RECEIVE STATE POINTER
 
	RSTATE	RDH1		;ASSUME DEC MODE
	BRWRTE	IBUS,PORT4	;REREAD BSEL 7
	BR7	50$		;IT IS
	RSTATE	RB1		;BIT STUFF MODE
 
;CLEAR XX5
50$:	BRWRTE	IMM,0
	OUTPUT	BR,SELB,OUTDA2,INCMAR
				;MAR = D.SADR (SECONDARY ADDRESS)
 
	MEMINC	IBUS,PORT3	;SAVE SECONDARY ADDRESS
	BRWRTE	IMM,D.XSTS	;OFFSET OF TRANSMIT ABORT STATUS
	LDMA	BR,ADD,SP.RM0	;SET MAR
	MEM	IMM,0		;CLEAR ANY PENDING STATUS
 
;WRITE TWO BYTES INTO XX4/XX5
 
	CALLSR	SP.SUB,IC2OUT,RQICL2	;SHIP IT AND RETURN TO CALLER
  
	.SBTTL	BAIN-BUFFER ADDRESS IN SERVICE ROUTINE
 
;+
;		B U F F E R  A D D R E S S  I N
; 
;CALLED BY:	RDICLR
;
;INPUTS:
;	SEL4,BSEL7 <7:6>	=BUFFER DESCRPTR LIST ADDR
;	BSEL7<5:4>	=KILL ASSIGN AND KILL BITS
;	SP.RM0,SP.RM1	=LINE TABLE ADDRESS
;	MAR 		=LINE TABLE
;	OUT BA		=DUP'S CSR ADDRESS
;OUTPUTS:
;	BUFFER DESCRIPTOR ADDRESS DEFINED BY THE BA IN IS LOADED INTO
;	THE APPROPRIATE (RECEIVE/TRANSMIT) DESCRIPTOR POINTER.
;	IF THE CURRENT BUFFER IS THE ONE JUST ASSIGNED,LINE TABLE LOCATIONS
;	(BUFFER ADDRESS,BYTE COUNT) ARE UPDATED. OTHERWISE DR.ABA IS SET (ALT ASGNED)
;	IF THE CURRENT BUFFER FOR TRANSMISSION IS BEING ASSIGNED,FIRST ODD
;	CHARACTER IN THE TRANSMIT BUFFER IS SAVED IN D.OXC
;	IF THE CURRENT BUFFER FOR RECEPTION IS BEING ASSIGNED,DR.FST IS SET
;-

BAIN:
 
;LOAD RECEIVE CONTROL AND STATUS REGISTER INTO SP.CS0
 
	OUTPUT	IBUS,IOBA1,IBA1	;SET INBA 7:0
	OUTPUT	IBUS,IOBA2,IBA2	;SET INBA 15:8
	BRWRTE	IMM,<BIT3!BIT2!DATI>	;SET EXT BITS AND 
	OUT	BR,SELB,ONPR	;DO IN NPR
;DETERMINE TYPE OF IO REQUIRED (RECEIVE OR TRANSMIT)
 
	BRWRTE	IBUS,OCON	;GET OUTPUT CONTROL REGISTER
	BRSHFT
	BR1	BARCV		;BAIN FOR RECEIVE
 
;BAIN FOR TRANSMIT OPERATION
	BRWRTE	IMM,D.XDP	;ADDRESS D.XDP
	ALWAYS	BAIN1
;BAIN FOR RECEIVE OPERATION
BARCV:	BRWRTE	IMM,D.RDP	;ADDRESS D.RDP
BAIN1:
	BRWRTE	BR,ADD,SP.RM0	;BR=ADDRESS OF D.RDP OR D.XDP
	SP	BR,SELB,SP6	;SET SP6=THAT ADDRESS
10$:	BRWRTE	IBUS,NPR	;WAIT FOR NPR COMPLETION
	BR0	10$
	SP	IBUS,INDAT1,SP.CS0	;LOAD RCV CSR (XX0) INTO SP.CS0
 
;CHECK IF THERE IS A KILL
 
	BRWRTE	IBUS,PORT4		;GET PORT 4 INTO BR
	BR4	KILLAL			;BRANCH TO KILL ROUTINE
 
 
; THIS IS A VALID BUFFER ASSIGNMENT
;(ALSO ENTRY POINT AFTER A KILL IF A NEW BUFFER IS ASSIGNED)
BAIN0:
 
;CHECK IF CURRENT OR ALTERNATE OPERATION
	BRWRTE	IMM,<D.RBDF-D.RDP>	;OFFSET TO FLAG BYTE FOR CURRENT OPERATION
	LDMA	BR,ADD,SP6	;ADDRESS FLAG BYTE
	SPBR	MEMX,SELB,SP5	;GET FLAGS INTO BR,SP5
	BRSHFT
	BR4	BAALT		;CURRENT BUFFER ALREADY ASSIGNED
;CURRENT BUFFER NOT ASSIGNED,ASSIGN CURRENT BUFFER
	MEM	IMM,DR.CBA	;SET CURRENT BUFFER ASSIGNED & CLEAR
				;ALL OTHER BITS IN FLAG BYTE
	LDMA	BR,SELA,SP6	;ADDRESS D.RDP/D.XDP
;SAVE LIST ADDRESS AT CURRENT MEMORY LOCATION
BAIN2:
	MEMINC	IBUS,PORT1	;ADDRESS 7:0
	MEMINC	IBUS,PORT2	;ADDRESS 15:8
	SP	IBUS,PORT4,SP0	;GET EXT ADDRESS
	BRWRTE	IMM,300		;BR=MASK TO ISOLATE EXT ADDRESS
	BRWRTE	BR,AANDB,SP0	;BR=JUST EXT ADDRESS BITS
	BRSHFT			;SHIFT IT INTO PROPER POSITION
	BRSHFT
	BRSHFT
	BRSHFT
	MEM	BR,SELB		;SAVE EXT ADDRESS
 
;IF THE CURRENT BUFFER IS BEING ASSIGNED,DO SPECIAL THINGS
	BRWRTE	BR,TWOA,SP5	;SP5 HAS FLG BITS
	BR7	RQICL2		;ALTERNATE BUFFER ASSIGNED,EXIT
;CURRENT BUFFER BEING ASSIGNED,MOVE DESCRIPTOR PARAMETRS INTO RAM
	CALLSR	SP.SB1,NXDSCP,RQICR2	;RETURN TO IDLE THROUGH PAGE 2
;LABEL TO USE "ALWAYS NXDSCP" IN THE ABOVE MACRO AS AN INTER PAGE RETURRN
NXDP1=.-2
 
;ASIGNING ALTERNATE BUFFER
BAALT:
 
	BRWRTE	IMM,DR.ABA	;SET DR.ALT(=DX.ALT)BIT
	MEM	BR,AORB,SP5
	SP	MEMX,SELB,SP5	;SET SP5=NEW FLAGS
	BRWRTE	IMM,<D.ARLP-D.RDP>	;ADDRESS ALTERNATE POINTER
	LDMA	BR,ADD,SP6
	ALWAYS	BAIN2		;SAVE LIST POINTER IN RAM
	.SBTTL	XMTDON - TRANSMIT DONE
;	FILE	DUXMIT.MAC
 
;+
; **-XMTDON-ROUTINE TO LOOK FOR AND HANDLE A DUP TRANSMIT DONE**
;
; CALLED BY:	TIMER
;
; INPUTS:
;	SP0	= LOW BYTE OF DUP'S CSR0 ADDRESS
;	SP1	= HIGH BYTE OF DUP'S CSR0 (CTS STATUS)
;	SP.RM0-RM1	= RAM TABLE ADDRESS
;	SP.CS0	= LOW BYTE OF CSR0 (CONTAINS STATE OF RTS & RECV. ENABLE)
;	SP.LN	= LINE NUMBER
;	MAR AND SP.STS	= STATUS BYTE IN LINE'S TABLE
;	IN DATA ADDRESS	= DUP'S CSR 0
;
; OUTPUTS:
;	IN THE NORMAL CASE THE NEXT CHARACTER IS TRANSMITTED.  SPECIAL
;	CASES INCLUDE HANDLING SYNC TRANSMISSION, CRC TRANSMISSION
;	AND ERROR CONDITIONS.
;-
 
XMTDON:
	BRWRTE	SELA,SP1	;READ THE HIGH BYTE OF CSR 0
	BRSHFT
	BR4	10$		;CLEAR TO SEND IS SET
	ALWAYS	TIMRT3		;NO, SET CHECK FOR RECEIVE DONES
10$:	BRWRTE	IMM,4		;PREPARE TO POINT TO CSR4
	OUTPUT	BR,ADD,IBA1	;SET IT UP
	BRWRTE	IMM,14!DATI		;MASK TO SET EXTENDED MEMORY BITS
				;AND START NPR
	OUT	BR,SELB,ONPR	;START THE NPR
20$:	BRWRTE	IBUS,NPR	;IS THE NPR DONE YET
	BR0	20$		;NO, WAIT FOR IT
	BRWRTE	IBUS,INDAT1	;READ THE TRANSMIT CNTROL REGISTER
	BR7	XMTDN1		;TRANSMIT DONE SET
	ALWAYS	TIMRT3		;TRANSMIT NOT DONE - RETURN
 
; TRANSMIT DONE FOUND
 
	.ENABL	LSB
XMTDN1:
	OUTPUT	IBUS,IIBA1,OBA1	;COPY INPUT ADDRESS TO OUTPUT
	OUTPUT	IBUS,IIBA2,OBA2	;ADDRESS
	SP	IBUS,UBBR,SP0	;READ THE CONTENTS OF THE BUS REQ REG
	BRWRTE	IMM,101		;MASK TO CLEAR ALL BUT NXM AND XX4 BITS
	SP	BR,AANDB,SP0	;CLEAR THEM
	BRWRTE	IMM,14		;EXTENDED MEMORY BITS
	OUT	BR,AORB,OBR	;SET THEM UP
	BRWRTE	IMM,D.XSTS	;LOOK AT TRANSMIT STATUS BYTE
	LDMA	BR,ADD,SP.RM0	; LOAD THE MAR
	SPBR	MEMX,SELB,SP0	;READ THE BYTE
	BR4	XMTABT		;TRANSMIT ABORT PENDING
	BRWRTE	IMM,D.XBDF	;LOOK AT TRANSMITTER FLAGS WORD
	LDMA	BR,ADD,SP.RM0	; (LOAD MAR)
	BRWRTE	MEMX,SELB	;READ THE FLAGS WORD
	BRSHFT			;SHIFT IT RIGHT
	BR4	50$		;BUFFER IS ASSIGNED
 
; THIS DONE IS THE RESULT OF A BUFFER TERMINATING AND NO SUBSEQUENT BUFFERS ASSIGNED
 
	BR0	10$		;LAST BUFFER HAD END OF MESSAGE SET
	ALWAYS	TIMRT3		;PREVIOUS BUFFER WAS NOT THE END OF
				;MESSAGE - WAIT FOR THE NEXT BUFFER
				;OR AN UNDERRUN ERROR
10$:	SP	IBUS,IOBA1,SP0	;READ THE LOW BYTE OF OUT ADDRESS (CSR 4)
	BRWRTE	IMM,370		;MASK TO CHANGE IT TO CSR 0
	OUTPUT	BR,AANDB,OBA1	;MAKE IT CSR 0
	BRWRTE	IMM,377-DUPRTS		;MASK TO CLEAR RTS
	SPBR	BR,AANDB,SP.CS0		;AND IMAGE OF CSR 0
	OUTPUT	BR,SELB,OUTDA1	;IMAGE OF CSR 0 WITH RTS CLEAR
	ALWAYS	XMTSN0			;START THE NPR THEN RETURN TO TIMER LOOP
 
; BUFFER IS ASSIGNED
 
XMTDN3:
50$:
	BRWRTE	IBUS,INDAT1	;READ THE TRANSMIT CNTROL REGISTER
	BR4	55$		;SEND SET
	BRWRTE	IBUS,INDAT2	;GET THE BYTE CONTAINING TX ACTIVE
	BR1	TIMRT3		;IF SET, DON'T SET SEND YET.
				;NOTE THAT THE DUP MAY GET IN AN ILLEGAL
				;SET IF SEND IS DROPPED AND REASSERTED BEFORE
				;TX ACTIVE CLEARS
	SP	IMM,DUPSND,SP0	;MASK TO SET SEND
	ALWAYS	XMTSND		;"CALL" SEND ROUTINE AND RETURN TO TIMER LOOP
;
; ENTER HERE AFTER COMPLETING ONE BUFFER AND FIND ANOTHER ASSIGNED
; THE BRG CURRENTLY CONTAINS THE TRANSMIT FLAGS BYTE ROTATED
;
XMTDN4:	BR7	TIMRT3		;START OF MESSAGE SET - INDICATES PREVIOUS
				;MESSAGE ENDED WITH AN EOF HENCE A TEOM
				;HAS JUST BEEN SENT SO WAIT FOR NEXT TDONE
55$:	SPBR	MEMX,SELB,SP0	;READ THE FLAGS AGAIN
	BR0	120$		;START OF MESSAGE FLAG SET
60$:	CALLSR	SP.SUB,DECNT,XMTCNT,D.XBDC ;DECREMENT THE BYTE COUNT
 
; ABOVE SUBROUTINE RETURNS HERE IF THE BYTE COUNT WAS NOT ZERO
; IF BYTE COUNT WAS ZERO, END OF BUFFER CONDITIONS ARE CHECKED IN XMTCNT
 
XMTDN2:	SPBR	MEMX,SELB,SP1	;READ THE LOW BYTE OF THE ADDRESS
				;AND SAVE IT IN THE BRG
	MEMINC	INCA,SP1	;INCREMENT ADDRESS AND STORE IT BACK
	BR0	110$		;ODD CHARACTER (ALREADY BEEN READ)
				;OTHERWISE ITS AN EVEN CHARACTER

; TRANSMIT EVEN CHARACTER
;  MUST READ A WORD FROM MEMORY
;
				;NO NEED TO WORRY ABOUT CARRY SINCE THERE
				;CAN'T BE ON AN EVEN TO ODD INCREMENT
	OUTPUT	BR,SELB,IBA1	;BUFFER ADDRESS TO IN ADDRESS FIELD
	OUTPUT	MEMI,SELB,IBA2	;..
	BRWRTE	IMM,14		;MASK TO ISOLATE EXTENDED MEMORY BITS
	SP	BR,AANDB,SP0	;MASK FLAGS WORD
	OUT	INCA,ONPR	;SET EXTENDED MEM BITS AND NPR REQUEST BIT
	BRWRTE	IMM,0		;ZERO THE BRG
	OUTPUT	BR,SELB,OUTDA2	;CLEAR ALL DUP CONTROL BITS
80$:	BRWRTE	IBUS,NPR	;READ THE NPR STATUS REGISTER
	BR0	80$		;NPR NOT DONE YET
	OUTPUT	IBUS,INDAT1,OUTDA1,INCMAR ;MOVE CHARACTER TO OUTDATA FIELD
				;AND MOVE THE MAR TO ODD CHARACTER SAVE BYTE
	MEM	IBUS,INDAT2	;SAVE THE ODD CHARACTER IN RAM

; "RETURN" POINT FROM XMTSYN
WRTRT:
	SP	IBUS,IOBA1,SP0	;READ CURRENT OUTPUT ADDRESS (CSR4)
	BRWRTE	IMM,2		;VALUE TO ADD
	OUTPUT	BR,ADD,OBA1	;POINT TO CSR6
	BRWRTE	IMM,DATO	;MASK TO DO OUT NPR
; THIS IS THE "RETURN" POINT FROM XMTSND AND XMTSN0
XMTDN6:
	OUT	BR,SELB,ONPR	;DO THE NPR
90$:	BRWRTE	IBUS,NPR	;WAIT FOR IT TO COMPLETE
	BR0	90$		;NOT YET
	ALWAYS	TIMRT3		;RETURN TO TIMER LOOP
 
; TRANSMIT ODD DATA CHARACTER
;
; INPUTS:
;	"C" BIT IS SET OR CLEAR DEPENDING ON CARRY FROM INCREMENT OF LOW BYTE
;	MAR	= D.XBDA+1
 
110$:	C	113$		;IF CARRY SET THEN MUST INCRMENT HIGH 10 BITS OF ADDR
	BRWRTE	IMM,0,INCMAR	;ZERO THE BRG AND POINT MAR TO D.XBDF
	ALWAYS	116$		;OTHERWISE NO NEED TO
113$:	CALLSB	SP.SUB,INCMM	;INCREMENT THE BUFFER ADDRESS (HIGH 10 BITS)
				;RETURNS WITH MAR POINTING TO D.XBDF
	BRWRTE	IMM,0		;ZERO THE BRG 
116$:	OUTPUT	BR,SELB,OUTDA2,INCMAR	;CLEAR ALL DUP CONTROL BITS
				;AND POINT MAR TO ODD TRANSMIT CHARACTER
	OUTPUT	MEMX,SELB,OUTDA1	;MOVE THE CHARACTER TO THE OUTDATA FIELD
	ALWAYS	WRTRT		;INCREMENT OUT ADDR BY 2 (CSR6) AND DO AN
				;NPR TO WRITE OUT THE CHARACTER
				;RETURN TO THE TIMER LOOP
 
; START OF MESSAGE SET
;
; BRG AND SP0 = (D.XBDF)
 
120$:
	BR4	XMTSYN		;RESYNC REQUESTED
	BRWRTE	IBUS,INDAT2	;READ HIGH BYTE OF CSR4
	BR7	121$		;UNDERRUN OCCURRED, SEND 2 SOM'S
.IIF NE	DX.SOM-1 .ERROR	;FOLLOWING DECA WILL NO LONGER CLEAR DX.SOM FLAG
	MEM	DECA,SP0	;CLEAR IT
	BRWRTE	SELA,SP.STS	;GET THE STATUS BYTE
	BRSHFT
	BR4	60$		;DEC MODE (DDCMP)
121$:
	BRWRTE	IMM,DUPTSM	;START OF MESSAGE BIT
	OUTPUT	BR,SELB,OUTDA2	;SET START OF MESSAGE
	ALWAYS	WRTRT		;COMMON CODE TO INCR OUT ADDR BY 2
				;DO AN NPR AND RETURN TO TIMER LOOP
	.DSABL	LSB
	.SBTTL	RCVDON-RECEIVED CHARACTER PROCESSOR
;	FILE	DUPRCV.MAC
 
;+
;	R E C E I V E  C H A R A C T E R  P R O C E S S O R
; 
; 
;CALLED BY:	TIMER
;
;INPUTS:
;	SP.RM0,SP.RM1	=ADDRESS OF CURRENT LINE TABLE
;	SP.CS0   =DUP RECEIVE STATUS REGISTER
;	SP.CHR   =RECEIVED CHARACTER
;	SP.RST   =STATUS OF CHARACTER
;OUTPUTS:
;	CHECKS FOR RECEIVE ERRORS, THEN BRANCHES TO A RECEIVE STATE PROCESSOR
;	USING D.RPTR FROM LINE TABLE.  RSTATE MACRO CHANGES STATE SETTINGS.
;	RECIEVE STATE INITIALIZED BY CONTROL IN.
;-
 
RCVDON:
	BRWRTE	IMM,D.STS		;OFFSET TO STATUS BYTE
	LDMA	BR,ADD,SP.RM0		;SET UP MAR
	LDMAP	SELA,SP.RM1		;LOAD MAR HI
	SP	MEMI,SELB,SP.STS	;SAVE STATUS BYTE IN SP
 
; CHECK IF ANY ERROR ON RECEIVED CHARACTER
 
	BRWRTE	BR,SELA,SP.RST		;GET HIGH BYTE OF RECEIVE BUFFER
	BR7	DUPRER			;RECEIVE ERROR ***
 
;CHARACTER IS ERROR FREE
 
;DISPATCH TO THE CURRENT RECEIVE STATE PROCESSOR.
 
	.ALWAY	MEMX,SELB,RP		;DISPATCH VIA STATE POINTER

; ***NOTE: ALL STATE PROCESSORS MUST BE IN PAGE RP
 
	.PAGE
	.SBTTL	BIT-STUFF PROTOCOL RECEIVE PROCESSORS
;	FILE	DUPSDLC.MAC
 
RP=<.-START>&3000*4	;PAGE ADDRESS OF RECEIVE STATE PROCESSORES


	.SBTTL	RB1-BIT STUFF RECEIVE STATE ONE
 
;+ 
; 
;	B I T  S T U F F  R E C E I V E  S T A T E  O N E
; 
;ENTERED FROM:	RCVDON 
;
;INPUTS: 
;	MAR	=RECEIVER STATE POINTER (D.RPTR)
;
;OUTPUTS:
;	RECEIVE STATE POINTER IS SET TO STATE TWO
;-
 
RB1:
	RSTATE	RB2			;SET TO STATE 2
 
	BRADDR	TIMRTN			;ULTIMATE RETURN ADDRESS
	SP	BR,SELB,SP.SUB,INCMAR	;STORE IN RETURN SCRATCH PAD
	ALWAYS	LSILO			;JUMP TO ROUTINE TO SILO CHARACTER
					;RETURN TO TIMER
	.SBTTL	RB2-BIT STUFF RECEIVE STATE TWO
 
;+ 
; 
;	B I T  S T U F F  R E C E I V E  S T A T E  T W O
; 
;ENTERED FROM:	RCVDON 
; 
;INPUTS:
;	MAR	=RECEIVE STATE POINTER (D.RPTR)
;
;OUTPUTS:
;	STATE POINTER IS SET TO STATE THREE
;	CURRENT RECEIVED CHARACTER IS PUSHED INTO THE LOCAL TWO CHARACTER SILO
;-

RB2:
	RSTATE	RB3		;SET STATE THREE
	BRADDR	TIMRTN		;RETURN ADDRESS TO POLLING LOOP
	SP	BR,SELB,SP.SUB,INCMAR
	ALWAYS	LSILO		;PUSH SILO AND RETURN TO TIMER
	.SBTTL	RB3-BIT STUFF RECEIVE STATE THREE
 
;+ 
; 
;	B I T  S T U F F  R E C E I V E  S T A T E  T H R E E
; 
; ENTERED FROM:	RCVDON 
; 
; INPUTS:
;	MAR = RECEIVE STATE POINTER (D.RPTR)
;	BR = HIGH BYTE OF CSR0 (SP.RST - RECEIVE CHARACTER STATUS)
; OUTPUTS:
;	CHECK FOR END OF MESSAGE, IF END GOTO RBDONE
;	ELSE STORE THE CHARACTER AND STAY IN THIS STATE
;-
 
RB3:
 
; CHECK IF END OF MESSAGE
 
	BR1	RBDONE			;END OF RECEIVED MESSAGE
 
;NOT END OF RECEIVED MESSAGE
 
	BRADDR	RB3P0			;RETURN ADDRESS TO STORE
	SP	BR,SELB,SP.SUB,INCMAR	;SAVE RETURN ADDRESS
					;FALL INTO LSILO
	.SBTTL	LSILO-PUSH CHARACTER INTO LOCAL TWO CHARACTER SILO
 
;+
; 
; 	P U S H  C H A R A C T E R  I N T O  L O C A L  S I L O
; 
; CALLED BY:	BIT STUFF RECEIVE STATES; RB1,RB2,RB3
; 
; INPUTS:
;	SP.SUB=RETURN ADDRESS
;	SP.CHR=CHARACTER TO BE PUSHED INTO LOCAL TWO CHARACTER SILO
;	MAR = D.SADR
;
; OUTPUTS:
;	CHARACTER IN SP.CHR IS PUSHED INTO SILO
;	UNDERFLOW CHARACTER FROM THE SILO IS LOADED INTO SP.CHR
;	IF IN CRC INHIBIT MODE,INPUT CHARACTER IS DIRECTLY STORED
;	IN MEMORY.
;-
 
LSILO:
 
	BRWRTE	SELA,SP.STS,INCMAR	;GET STATUS BYTE
					;MAR NOW POINTS TO D.SILO
	BR7	STORE		;STORE CHARACTER IF CRC INHIBIT
	SP	MEMX,SELB,SP0	;TEMPORARILY STORE TOP SILO CHR IN SP0
	MEMINC	SELA,SP.CHR	;LOAD NEW CHARACTER INTO TOP SILO POSITION
	SP	MEMX,SELB,SP.CHR	;LOAD UNDERFLOW CHR. INTO SP.CHR
	MEM	SELA,SP0	;STORE OLD TOP CHR INTO BOTTOM POSITION IN SILO
	RTNSUB	SP.SUB,P0	;RETURN
 
	.SBTTL	RBDONE - END OF BIT STUFF MESSAGE RECEIVED

;+
;
;	END OF BIT STUFF MESSAGE RECEIVED
;
; ENTERED BY:	RB3
;
; INPUTS:
;	MAR	=RECEIVE STATE POINTER (D.RPTR)
;
; OUTPUTS:
;	RECEIVE STATE POINTER RESET TO ONE
;	GENERAL END OF RECEIVE MESSAGE ROUTINE CALLED
;-
 
RBDONE:
	RSTATE	RB1		;SET RECEIVE STATE 1
	CALLSR	SP.SB1,EOFMSG,TIMRP2 ;CALL END OF MESSAGE ROUTINE AND 
				; RETURN TO TIMER'S POLLING LOOP
	.SBTTL	DDCMP RECEIVE STATE PROCESSORS
;	FILE	DUPDDCMP.MAC
 
;+ 
; 
;	D D C M P  R E C E I V E  S T A T E  P R O C E S S O R S
; 
; 
; DDCMP RECEIVE STATE PROCESSORS FOR THE COMIOP-DUP FOLLOW.
;- 
	.SBTTL	RDH1-RECEIVING FIRST DDCMP HEADER CHARACTER
 
 
;+
;	R E C E I V I N G  F I R S T  D D C M P  C H A R A C T E R
; 
; ENTERED FROM:	RCVDON
;
; INPUTS:
;	MAR    = RECEIVE STATE POINTER (D.RPTR)
;	SP.CHR = CURRENT RECEIVE CHARACTER
;	SP.LN  = CURRENT LINE NUMBER
;	SP.CS0 = IMAGE OF LOW BYTE OF DUP'S CSR0
;
; OUTPUTS:
;	RECEIVE STATE POINTER IS SET TO THE SECOND DDCMP RECEIVE STATE.
;	RECEIVE STATUS BYTE D.STS IS UPDATED TO INDICATE WHETHER A
;	NUMBERED MESSAGE (SOH OR DLE) OR AN UNNUMBERED MESSAGE (ENQ) IS RECEIVED.
;	A CONTROL OUT IS GENERATED IF AN ILLEGAL HEADER CHARACTER IS RECEIVED.
;IF THE CHARACTER IS LEGAL, STORE ROUTINE IS CALLED TO SAVE IT IN THE USER
;RECEIVE BUFFER.
;IF THE CHARACTER IS SYNC OR PAD,RESYNC THE RECEIVER
;-
 
 
RDH1:
; SET RECEIVE STATE TWO
	RSTATE	RDH2		;SET RECEIVE STATE TWO
 
; SET RAM ADDRESS TO RECEIVE STATUS BYTE
 
	BRWRTE	IMM,D.STS	;OFFSET INTO BR
	LDMA	BR,ADD,SP.RM0
;RESET SELECT,Q-SYNC,IGNORE AND NUMBERED MESSAGE BITS
 
	BRWRTE	IMM,<377-DS.SLT-DS.QSC-DS.IGN-DS.NUM> ;MASK TO CLEAR THOSE BITS
	MEM	BR,AANDB,SP.STS	;CLEAR THOSE BITS AND SAVE
	SP	MEMX,SELB,SP.STS	;GET NEW STATUS
 
; DETERMINE TYPE OF MESSAGE.INPUT CHARACTER IS AVAILABLE IN SP.CHR
 
	BRWRTE	IMM,SOH		;IS IT AN SOH?
	COMP	BR,SP.CHR
	Z	10$		;YES,NUMBERED MESSAGE
 
	BRWRTE	IMM,ENQ		;IS IT AN ENQ?
	COMP	BR,SP.CHR		
	Z	STORE		;YES,UNNUMBERED MESSAGE
 
	BRWRTE	IMM,DLE		;IS IT A DLE?
	COMP	BR,SP.CHR		
	Z	10$		;YES,MAINTAINANCE (NUMBERED) MESSAGE
 
; UNRECOGNIZED START OF HEADER CHARACTER - JUST RESYNC
 
	ALWAYS	RSNCRT		;RESYNC AND RETURN TO TIMER
 
;A NUMBERED MESSAGE IS BEING RECEIVED(SOH OR DLE). SET 'NUMBERED MESSAGE
;BEING RECEIVED' IN D.STS
 
10$:
	BRWRTE	IMM,DS.NUM	;MASK TO SET IT
	MEM	BR,AORB,SP.STS	;OR IT IN INTO D.STS
	ALWAYS	STORE		;STORE FIRST DDCMP CHARACTER IN RECEIVE BUFFER
	.SBTTL	RDH2-RECEIVING SECOND DDCMP HEADER CHARACTER
 
;+ 
; 
;	R E C E I V I N G  S E C O N D  D D C M P  C H A R A C T E R
; 
; ENTERED FROM:	RCVDON
; 
; INPUTS:
;	MAR	= RECEIVE STATE POINTER (D.RPTR)
;	SP.CHR	= RECEIVED CHARACTER
; 
; OUTPUTS:
;	RECEIVE STATE POINTER IS CHANGED TO RECEIVE STATE THREE.  CURRENT
; RECEIVED CHARACTER (LOW ORDER BYTE COUNT IN THE CASE OF A NUMBERED
; MESSAGE) IS SAVED IN D.DCC1. STORE ROUTINE IS CALLED TO STORE THE CURRENT
; RECEIVED CHARACTER IN THE USER RECEIVE BUFFER
;- 
 
RDH2:
 
; UPDATE RECEIVE STATE POINTER TO STATE THREE
 
	RSTATE	RDH3
 
; SAVE CHARACTER COUNT (TYPE IF UNNUMBERED MESSAGE) IN D.DCC1
 
	BRWRTE	IMM,D.DCC1	;ADDRESS D.DCC1
	LDMA	BR,ADD,SP.RM0
	MEM	SELA,SP.CHR	;CURRENT CHARACTER AVAILABLE IN SP.CHR
 
; STORE CURRENT RECEIVED CHARACTER IN USER BUFFER
 
	ALWAYS	STORE
	.SBTTL	RDH3-RECEIVING THIRD DDCMP HEADER CHARACTER
 
;+ 
; 
;	R E C E I V I N G  T H I R D  D D C M P  C H A R A C T E R
; 
; ENTERED FROM:	RCVDON
; 
; INPUTS:
;	MAR	= RECEIVE STATE POINTER (D.RPTR)
;	SP.CHR	= RECEIVED CHARACTER
; 
; OUTPUTS:
;	RECEIVE STATE POINTER IS CHANGED TO STATE FOUR OF DDCMP RECEIVE PROCESSOR.
; HIGH ORDER SIX BITS OF THE CHARACTER COUNT (MEANINGFUL ONLY TO
; NUMBERED MESSAGES) ARE STORED IN D.DCC2. Q-SYNC AND SELECT BITS ARE UPDATED
; IN D.STS.
;- 
 
RDH3:
 
; SET RECEIVE STATE POINTER TO STATE FOUR
 
	RSTATE	RDH4
 
; SAVE HIGH ORDER SIX BITS OF BYTE COUNT (NOT MEANINGFUL FOR UNNUMBERED MESSAGE)
 
	BRWRTE	IMM,D.DCC2	;ADDRESS D.DCC2
	LDMA	BR,ADD,SP.RM0
	BRWRTE	IMM,77		;MASK TO STRIP HIGH ORDER 2 BITS
	MEM	BR,AANDB,SP.CHR	;STRIP THEM FROM CURRENT CHR AND STORE IN RAM
 
; UPDATE SELECT AND Q-SYNC BITS IN D.STS
 
	SP	BR,AANDB,SP.STS	;STRIP OLD SEL. Q-SYNC BITS IN SP.STS
	BRWRTE	IMM,D.STS	;ADDRESS D.STS
	LDMA	BR,ADD,SP.RM0
	BRWRTE	IMM,300		;MASK TO ISOLATE NEW SELECT,Q-SYNC BITS
	BRWRTE	BR,AANDB,SP.CHR	;GET NEW BITS INTO BR
	MEM	BR,AORB,SP.STS	;UPDATE D.STS
 
; STORE CURRENT RECEIVED CHARACTER IN USER RECEIVE BUFFER
 
	ALWAYS	STORE
 
	.SBTTL	RDH4-RECEIVING FOURTH DDCMP HEADER CHARACTER
 
;+ 
; 
;	R E C E I V I N G  F O U R T H  D D C M P  C H A R A C T E R
;			(RESPONSE FIELD)
; 
; ENTERED FROM:	RCVDON
; 
; INPUTS:
;	MAR	= RECEIVE STATE POINTER (D.RPTR)
;	SP.CHR	= RECEIVED CHARACTER
; 
; OUTPUTS:
;	RECEIVE STATE POINTER IS CHANGED TO STATE FIVE OF RECEIVE PROCESSOR.
; THE CURRENT CHARACTER (RESPONSE FIELD) IS STORED IN USER RECEIVE BUFFER.
;- 
 
RDH4:
 
; SET RECEIVE STATE POINTER TO STATE FIVE
 
	RSTATE	RDH5
 
; STORE CURRENT CHARACTER (RESPONSE FIELD) IN USER RECEIVE BUFFER
 
	ALWAYS STORE
	.SBTTL	RDH5-RECEIVING FIFTH DDCMP HEADER CHARACTER
 
;+ 
; 
;	R E C E I V I N G  F I F T H  D D C M P  C H A R A C T E R
;			(MESSAGE NUMBER FIELD)
; 
; ENTERED FROM:	RCVDON
; 
; INPUTS:
;	MAR	= RECEIVE STATE POINTER (D.RPTR)
;	SP.CHR	= RECEIVED CHARACTER
; 
; OUTPUTS:
;	RECEIVE STATE POINTER IS SET TO STATE SIX.  CURRENT CHARACTER (MESSAGE
; NUMBER FIELD) IS STORED IN THE USER RECEIVE BUFFER.
;- 

RDH5:
 
; SET RECEIVE STATE POINTER TO STATE SIX
 
	RSTATE	RDH6
 
;STORE CURRENT CHARACTER (MESSAGE NUMBER) IN USER BUFFER
 
	ALWAYS	STORE
	.SBTTL	RDH6-RECEIVING SIXTH DDCMP HEADER CHARACTER
 
;+ 
; 
;	R E C E I V I N G  S I X T H  D D C M P  C H A R A C T E R
;			(STATION ADDRESS FIELD)
; 
; ENTERED FROM:	RCVDON
;
; INPUTS:
;	MAR	= RECEIVE STATE POINTER (D.RPTR)
;	SP,CHR	= RECEIVES CHARACTER
; 
; OUTPUTS:
;	RECEIVE STATE POINTER IS SET TO PROCESS FIRST HEADER CRC CHARACTER.
; IF THE USER STATION IS A SECONDARY STATION AND THERE IS AN ADDRESS MISMATCH,
; THE IGNORE BIT IS SET IN D.STS.
;- 

RDH6:
 
;SET RECEIVE STATE POINTER TO PROCESS FIRST HEADER CRC
 
	RSTATE	RHCRC1
 
;CHECK IF SECONDARY STATION
 
	BRWRTE	SELA,SP.STS,INCMAR	;LOAD D.STS INTO BR AND ADDRESS D.SADR
	BRSHFT			;SHIFT IT RIGHT
	BR1	10$		;BRANCH IF SECONDARY STATION
 
; CURRENT STATION IS NOT A SECONDARY STATION, NO ADDRESS CHECKING NECESSARY
 
	ALWAYS	STORE		;STORE CHARACTER IN REC BUFFER
 
; CURRENT STATION IS A SECONDARY STATION.
 
10$:
 
;CHECK IF ADDRESS MATCH (MAR MUST NOW BE POINTING AT D.SADR)
	COMP	MEMX,SP.CHR	;ADDRESS MATCH?
	Z	STORE		;YES,STORE THE CHARACTER
 
; STATION IS A SECONDARY STATION, BUT IS NOT ADDRESSED 
; SET IGNORE MODE
 
	BRWRTE	IMM,D.STS	;ADDRESS  STATUS BYTE
	LDMA	BR,ADD,SP.RM0
	BRWRTE	IMM,DS.IGN	;MASK TO SET IGNORE MODE
	MEM	BR,AORB,SP.STS	;WRITE IT BACK INTO RAM WITH IGNORE BIT SET
	ALWAYS	STORE		;STORE CURRENT CHARACTER
	.SBTTL	RHCRC1-RECEIVING FIRST DDCMP HEADER CRC
 
;+ 
; 
;	R E C E I V I N G  F I R S T  D D C M P  H E A D E R  C R C
; 
; ENTERED FROM:	RCVDON
; 
; INPUTS:
;	MAR	= RECEIVE STATE POINTER (D.RPTR)
; 
; OUTPUTS:
;	RECEIVE STATE POINTER IS SET TO PROCESS SECOND DDCMP HEADER
; CRC CHARACTER.
;-

RHCRC1:
 
;SET RECEIVE STATE POINTER TO RECEIVE SECOND DDCMP HEADER CRC
 
	RSTATE	RHCRC2

; ** PAGE ONE RETURN TO TIMER FOR RECEIVE ROUTINES **

TIMRP1:	ALWAYS	TIMRTN		;RETURN TO THE TIMER LOOP
.IIF NE	<<TIMRP1-START>/1000-1> .ERROR ;LABEL "TIMRP1" NO LONGER ON PAGE 1
	.SBTTL	RHCRC2-RECEIVING SECOND DDCMP HEADER CRC
 
;+ 
;
;	R E C E I V I N G  S E C O N D  D D C M P  H E A D E R  C R C
; 
; ENTERED FROM:	RCVDON
; 
; INPUTS:
;	MAR	= RECEIVE STATE POINTER (D.RPTR)
;	BR = HIGH BYTE OF CSR 2 (SP.RST - RECEIVE CHARACTER STATUS)
;
; OUTPUTS:
;	DUP HAS RECEIVED SECOND HEADER CRC CHAR.
;	CHECK IF HEADER CRC IS VALID, IF NOT POST ERROR CNTRL OUT.
;	IF THIS IS AN UNNUMBERED MESG, PROCESS NOW.
;	ELSE (NUMBERED OR MAINT), STATE IS SET TO RECEIVE DATA.
;-
 
RHCRC2:
 
; SET RECEIVE STATE POINTER TO RECEIVE DDCMP DATA
 
	RSTATE	RDDATA
 
; CHECK IF THERE IS A CRC ERROR
 
	BR4	10$		;CRC=0,MESSAGE IS OK
	ALWAYS	ERR10		;***CRC ERROR***
 
;CHECK IF THE CURRENT MESSAGE IS A NUMBERED MESSAGE
 
10$:
	BRWRTE	SELA,SP.STS	;LEFT SHIFT D.STS AND LOAD INTO BR
	BR0	TIMRTN		;RECEIVING NUMBERED MESSAGE
				;RETURN TO TIMER
 
;RECEIVING UNNUMBERED MESSAGE
 
	ALWAYS	MSGIN		;PROCESS ONE MESSAGE
	.SBTTL	RDDATA-RECEIVING DDCMP DATA CHARACTERS
 
;+ 
; 
;	R E C E I V I N G  D D C M P  D A T A  C H A R A C T E R S
; 
; ENTERED FROM:	RCVDON
; 
; INPUTS:
;	MAR	= RECEIVE STATE POINTER (D.RPTR)
; 
; OUTPUTS:
;	THE DATA BYTE COUNT IS DECREMENTED.
;	IF ALL DATA IS RECEIVED, THIS IS THE FIRST CRC CHAR.
;	OTHERWISE, STORE THE DATA IN BUFFER IF FOR THIS STATION.
;-
 
RDDATA:
 
;CHECK IF LAST DDCMP DATA CHARACTER
 
	CALLSR	SP.SUB,DECDCC,DECP2	;DECREMENT DDCMP DATA CHARACTER COUNT
RDATA1:
	C	10$		;BRANCH IF COUNT NOT -1
 
;CURRENT CHARACTER IS THE FIRST DDCMP DATA CRC CHARACTER
 
	ALWAYS	RDCRC1
 
 
; STORE CURRENT DATA CHARACTER IN USER RECEIVE BUFFER IF THE CURRENT MESSAGE
;IS ADDRESSED TO THIS STATION.
 
10$:
	BRWRTE	SELA,SP.STS	;GET SP.STS(=D.STS)
	BR4	TIMRTN		;MESSAGE NOT FOR THIS STATION
 
; DATA CHARACTER IS PART OF A NUMBERED MESSAGE ADDRESSED TO THIS STATION,SAVE IT
 
	ALWAYS	STORE
 
	.SBTTL	RDCRC1-RECEIVING FIRST DDCMP DATA CRC
 
;+ 
; 
;	R E C E I V I N G  F I R S T  D D C M P  D A T A  C R C
; 
; ENTERED FROM:	RDDATA
; 
; INPUTS:
; 
; OUTPUTS:
;	RECEIVE STATE POINTER IS SET TO PROCESS SECOND DATA CRC
;- 

RDCRC1:
 
;SET RECEIVE STATE POINTER TO SECOND DATA CRC PROCESSOR
 
	BRWRTE	IMM,D.RPTR	;ADDRESS D.RPTR (SINCE IT WAS CHANGED IN
	LDMA	BR,ADD,SP.RM0	;THE PREVIOUS STATE)
	RSTATE	RDCRC2
	ALWAYS	TIMRTN		;RETURN TO TIMER
 
	.SBTTL	RDCRC2-RECEIVING SECOND DATA CRC
 
;+ 
;
;	R E C E I V I N G  S E C O N D  D A T A  C R C
; 
; ENTERED FROM:	RCVDON
; 
; INPUTS:
;	BR = HIGH BYTE OF CSR2 (SP.RST - RECEIVE CHARACTER STATUS)
; OUTPUTS:
; IF A CRC ERROR IS DETECTED ON THE CURRENT MESSAGE,A CONTROL OUT IS GENERATED.
; IF THE MESSAGE IS GOOD, MSGIN ROUTINE IS EXECUTED TO PROCESS IT
;-
 
RDCRC2:
 
; CHECK FOR CRC ERROR
 
	BR4	MSGIN		;CRC OK,USE COMMON CODE
	ALWAYS	ERR12		;***CRC ERROR ON DATA***
 
 
;+
;
;	 RETURN TO TIMER LOOP FROM RECEIVE STORE ROUTINES
;
; ENTERED FROM:	RCVEXT (SUBR RETURN)
;
; INPUTS:
;	NPR STARTED EARLIER IN STORE RECVD CHAR ROUTINES
;
; OUTPUTS:
;	WAIT FOR NPR TO COMPLETE AND RETURN TO TIMER
;-

.IIF NE <NPRWP1-START>/1000-1	.ERROR	;NPRWP1 IS NOT ON PAGE ONE
NPRWP1:
	BRWRTE	IBUS,NPR	;READ NPR CONTROL REGISTER
	BR0	NPRWP1		;NOT DONE YET
	ALWAYS	TIMRTN		;RETURN TO TIMER LOOP
	.SBTTL	DSRCHG-DATA SET READY CHANGE

;+
; **DSRCHG-ROUTINE TO GIVE A DATA SET READY CHANGE CONTROL OUT**
;
; CALLED BY:	TIMER
;
; INPUTS:
;	SP0 = IMAGE OF DUP'S CSR 1 (DSR=BIT 1)
;	MAR = D.STS
;
; OUTPUTS:
;	MAR = D.STS
;	D.STS (BIT 1) = CURRENT SETTING OF DSR
;-
DSRCHG:
	.IIF NE	DS.DSR-SP2	.ERROR DS.DSR	;DS.DSR NO LONGER EQUALS SP2
	SP	IMM,DS.DSR,SP2	;GET MASK FOR DSR INTO SP2
	MEM	MEMX,AXORB,SP2	;RECORD THE CURRENT STATE OF DSR
				;IF IT WAS SET CLEAR IT, IF IT WAS CLEAR
				;SET IT
	CALLSR	SP.SUB,COUTX,TIMRP3,ER.DSR	;QUEUE A CONTROL OUT AND
				;RETURN TO TIMER LOOP
	.SBTTL	MSGIN-DDCMP MESSAGE PROCESSOR

;+
;
;		D D C M P  M E S S A G E  I N
; 
; ENTERED FROM:	RDCRC2(NUMBERED), RHCRC2(UNNUMBERED)
;
; A COMPLETE DDCMP MESSAGE (NUMBERED OR UNNUMBERED) HAS BEEN RECEIVED WITHOUT
; A CRC ERROR.PROCESS IT.
;
; INPUTS:
;	MAR	= RECEIVE STATE POINTER (D.RPTR)
;
; OUTPUTS:
;	RECEIVE STATE RESET TO FIRST HEADER CHAR.
;	IF MESG IS FOR US, POST A BA OUT.
;	ELSE, RESET BUFFER POINTERS IN LINE TABLE.
;-
 
MSGIN:
 
; INITIALIZE RECEIVE STATE POINTER
	RSTATE	RDH1
 
; CHECK IF THIS MESSAGE IS TO BE IGNORED
	BRWRTE	SELA,SP.STS	;SET BR=SP.STS
	BR4	10$		;IGNORE CURRENT MESSAGE
 
; MESSAGE IS WITHOUT ERROR AND ADDRESSED TO THIS STATION. GENERATE A BA OUT
 
	CALLSR	SP.SB1,EOFMSG,MSGIN1	;POST THE COMPLETION AND RETURN TO MSGIN1
 
;CURRENT MESSAGE IS NOT FOR THIS STATION,IGNORE IT
 
10$:
; RECEIVE BUFFER ADDRESS AND BYTE COUNT WAS ADVANCED AT THE BEGINNING OF
;THIS MESSAGE, RESET IT.
	BRWRTE	IMM,D.ORBC		;ADDRESS D.ORBC
	LDMA	BR,ADD,SP.RM0

;SAVE ORIGINAL PARAMETERS IN SCRATCH PADS
	SP	MEMI,SELB,SP4		;SAVE ORIGINAL BYTE COUNT IN SP4,SP3
	SP	MEMI,SELB,SP3
	SP	MEMI,SELB,SP2		;SAVE ORIGINAL ADDRESS IN SP2,SP1&SP0
	SP	MEMI,SELB,SP1
	SP	MEMI,SELB,SP0

;RESTORE THEM INTO CURRENT PARAMETERS
 
	MEMINC	SELA,SP4		;RESTORE BYTE COUNT
	MEMINC	SELA,SP3
	MEMINC	SELA,SP2		;RESTORE BUFFER ADDRESS IN CURRENT AREA
	MEMINC	SELA,SP1		
	MEMINC	SELA,SP0

;CHECK IF Q-SYNC BIT SET
 
.IIF NE	<MSGIN1-START>/1000-2	.ERROR	;MSGIN1 IS NOT ON PAGE TWO
MSGIN1:
	BRWRTE	TWOA,SP.STS	;READ STATUS REGISTER
	ALWAYS	PATCHA		;JUMP TO PATCH, PATCH BRANCHES TO 
				;RSNCRT OR TIMRTN ON BR7
	.SBTTL	KILLAL-KILL XMT OT RCV OPERATION
 
;+
;
;	KILL RECEIVE OR TRANSMIT BUFFERS
;
; CALLED BY:	BAIN
;
; INPUTS:
;	BSEL2<2> (OCON)	=IN I/O (1=RECV, 0=XMIT)
;	BSEL7<5> (PORT4)=KILL ASSIGN
;
; OUTPUTS:
;	DEASSIGNS EITHER TRANSMIT OF RECEIVE BUFFERS DEPENDING ON THE IN I/O BIT.
;	IF ASSIGNMENT IS REQUESTED(KILL ASSGN), BAIN IS RETURNED TO .
;	ELSE IT RETURNS DIRECTLY TO RDICLR.
;-
 
KILLAL:
 
;DETERMINE WHETHER THE TRANSMIT OR RECEIVE OPERATION IS TO BE KILLED
 
	BRWRTE	IBUS,OCON	;GET BSEL2
	BRSHFT
	BR1	KILLRC		;KILL RECEIEV OPERATION

;KILL TRANSMIT OPERATION
 
KILLXM:
	BRWRTE	IMM,D.XSTS	;POINT TO TRANSMIT STATUS BYTE
	LDMA	BR,ADD,SP.RM0	; LOAD THE MAR
	SP	MEMX,SELB,SP0	;READ THE STATUS BYTE
	BRWRTE	IMM,DT.ABT!DT.AB1	;ABORT PENDING FLAG
	MEM	BR,AORB,SP0	;OR IT BACK TO MEMORY
	BRWRTE	IMM,C.CLOX	;SET CONTROL OUT FOR XMT
	ALWAYS	KILCOM		;USE COMMON CODE
 
;KILL RECEIVE OPERATION
 
KILLRC:
	CALLSB	SP.SB1,RESYNC	;RESYNC RECEIVER
	BRWRTE	IMM,C.CLOR	;SET CONTROL OUT FOR RECEIVE
 
KILCOM:
	SP	BR,SELB,SP2	;SAVE BSEL2 IMAGE
	BRWRTE	IMM,ER.KIL	;REASON CODE 'KILL'
	SP	BR,SELB,SP3	;INTO SP3
	CALLSB	SP.SB1,COUT	;QUEUE CONTROL OUT
;*****FOLLWING INSTRUCTION MUST BE IN PAGE 2 DUE TO RETURN FROM COUT****
KILLC1:
	BRWRTE	IMM,<D.RBDF-D.RDP> ;ADDRESS FLAGS BYTE
	LDMA	BR,ADD,SP6
	MEM	IMM,<DX.EOM!DX.LST>	;CLEAR ALL BUFFER ASSIGN FLAGS
	BRWRTE	IBUS,PORT4	;GET NEW PORT4 BACK
	BRSHFT
	BR4	BAIN0		;NEW BUFFER ASSIGNED
RQICR2:	ALWAYS	RQICL2		;NO NEW BUFFER
;******FOLLOWING INSTRUCTIONS MUST RESIDE IN PAGE TWO SINCE IT IS USED BY
.IIF LT	<<.-START/1000>-2>	.ERROR	;THE FOLLOWING LABELS ARE OFF PAGE 2
; CERTAIN SUBROUTINES TO RETURN TO THE PROPER PAGE OF CALLER******

;RETURN TO TIMER FROM RECEIVE ROUTINES
TIMRP2:	ALWAYS	TIMRTN
 
;RETURN FROM CONTROL OUT DUE TO A CALL FROM RERROR
RERRP2:	ALWAYS	ERREXT

;A RETURN FROM DECDCC DUE TO A CALL FROM RDDATA
DECP2:	ALWAYS	RDATA1
 
.IIF GT <<.-START-2>/1000>-2>	.ERROR ;THE ABOVE LABELS ARE OFF PAGE 2
	.SBTTL	XMTSYN - TRANSMIT SYNC'S OR ZERO BITS
;	FILE	XMTAUX.MAC
 
;+
; **XMTSYN-RESYNC TRANSMITTER REQUESTED**
;
; CALLED BY:	XMTDON
;
; INPUTS:
;	OUTPUT NPR ADDRESS = DUP'S CSR4
;	SP0 = FLAGS BYTE OF XMIT DESCRIPTOR
;	MAR = FLAGS BYTE OF XMIT DESCRIPTOR
;
; OUTPUTS:
;	BIT STUFF MODE - 16 ZERO BITS ARE TRANSMITTED
;	DEC MODE - SYNC CHARACTERS ARE TRANSMITTER
;-
 
XMTSYN:
	BRWRTE	SELA,SP.STS	;GET THE STATUS BYTE 
	BRSHFT			;SHIFT THE STATUS RIGHT
	BR4	80$		;DEC MODE (DDCMP)
	BRWRTE	IMM,0		;ZERO THE BRG
	OUTPUT	BR,SELB,OUTDA1	;ZERO THE LOW BYTE OF OUT DATA
	OUTPUT	IMM,DUPTSM!DUPTEM,OUTDA2	;SET BOTH START OF MESSAGE AND END OF MESSAGE
75$:	BRWRTE	IMM,377-DX.SYN	;MASK TO CLEAR RESYNC FLAG
	MEM	BR,AANDB,SP0	;CLEAR IT AND WRITE NEW FLAGS WORD TO RAM
	ALWAYS	WRTRT		;INCREMENT OUTPUT ADDRESS BY 2,
				;DO AN NPR AND RETURN TO TIMER LOOP
 
80$:	BRWRTE	IMM,SYNC	;GET SYNC CHARACTER
	OUTPUT	BR,SELB,OUTDA1,INCMAR	;WRITE IT TO LOW BYTE OF OUT DATA
	BRWRTE	IMM,DUPTSM	;START OF MESSAGE BIT
	OUTPUT	BR,SELB,OUTDA2,INCMAR	;WRITE IT TO HIGH BYTE
				;MAR IS NOW AT D.SYNC (SYNC COUNTER)
	SP	MEMX,SELB,SP1	;READ SYNC COUNTER INTO THE SCRATCH PAD
	MEM	DECA,SP1	;DECREMENT THE COUNT
	C	WRTRT		;COUNT NOT ZERO YET - DO THE NPR
				;AND RETURN TO THE POLLING LOOP
	BRWRTE	IMM,D.XBDF	;ADDRESS OF FLAGS BYTE IN XMIT DESCRIPTOR
	LDMA	BR,ADD,SP.RM0	;RESET THE MAR TO FLAGS BYTE
	ALWAYS	75$		;CLEAR RESYNC FLAG
	.SBTTL	XMTCNT - DECREMENT TRANSMIT BYTE COUNT
 
;+
;	**XMTCNT-DECREMENT XMIT COUNT RETURN
;	**XMTBCZ-ZERO BYTE COUNT**
;
; CALLED BY:	XMTDON
;
; INPUTS:
;	INPUT AND OUTPUT ADDRESS = DUP'S CSR 4
;	SP0 = D.XBDF (FLAGS BYTE)
;
; OUTPUTS:
;	RETURN TO XMTDON IF BYTE COUNT NOT ZERO.
;	ELSE: UNDERRUN CHECKED
;	EOM SENT IF SET IN BUFFER DESC
;	BUFFER ADDR OUT QUEUED.
;	IF ANOTHER BUFFER IS THERE, RETURN TO XMTDON TO XMIT
;	ELSE, RETURN TO TIMER
;-
 
; THE LABEL XMTCNT MUST RESIDE IN PAGE 2
.IIF NE <XMTCNT-START/1000-2>	.ERROR	;PAGE 2 RELOCATION ERROR - XMTCNT
 
; TRANSMIT DECREMENT COUNT ROUTINE RETURNS HERE
XMTCNT:	C	XMTDN2		;BYTE COUNT NOT ZERO
				;BYTE COUNT ZERO - FALL INTO XMTBCZ
	.ENABLE	LSB
XMTBCZ:
	BRWRTE	IBUS,INDAT2	;READ HIGH BYTE OF CSR4
	BR7	XMTUNR		;UNDERRUN
	BRWRTE	BR,SELA!SP0	;READ THE FLAGS WORD INTO THE BRG
	BR1	A160$		;END OF MESSAGE SET
XMTBC0:
100$:	CALLSB	SP.SB1,BAOX	;DO A BUFFER ADDRESS OUT COMPLETION
				;***NOTE*** BAOX MUST NOT DESTROY THE
				;OUTPUT BUFFER ADDRESS CURRENTLY SET AT
				;THE DUP'S CSR 4 OR 6
XMTBC1:
	BRWRTE	IMM,374		;RESET OUT BA TO POINT TO CSR4
	SP	IBUS,IOBA1,SP0	;READ OLD BA WHICH WAS CSR4 OR 6
	OUTPUT	BR,AANDB,OBA1	;SET CSR4 OFFSET
	BRWRTE	IMM,D.XBDF	;ADDRESS OF TRANSMIT FLAGS WORD
	LDMA	BR,<ADD!SP.RM0>	;POINT TO FLAGS WORD
	SPBR	MEMX,SELB,SP0	;READ THE FLAGS WORD TO THE BRG
	BROTAT			;ROTATE IT RIGHT
	BR4	XMTDN4		;ANOTHER BUFFER - SEND NEXT CHARACTER
 
; NO MORE BUFFER'S ASSIGNED.  IF THE PREVIOUS BUFFER HAD THE END OF MESSAGE
; FLAG SET THEN SHUT DOWN THE TRANSMITTER, OTHERWISE, WAIT FOR THE NEXT
; BUFFER OF THE MESSAGE TO BE ASSIGNED
 
	BR0	A170$		;END OF MESSAGE FLAG SET
	ALWAYS	TIMRT3		;NOT THE END OF MESSAGE - EXIT
	.SBTTL	XMTABT - TRANSMIT ABORT PENDING

;+
;	**XMTABT-TRANSMIT ABORT PENDING
;
; CALLED BY:	XMTDON
;
; INPUTS:
;	BRG	= XMIT STATUS (D.XSTS)
;	MAR	= D.XSTS
; OUTPUTS:
;	IF STAGE ONE, GOTO XMTAB1 TO TRANSMIT ABORT CHARS
;	STAGE TWO, CHECKS FOR ASSIGNED BUFFERS.
;	IF NONE, DUP SEND IS CLEARED.
;-
 
XMTABT:
	BR1	XMTAB1		;STAGE ONE OF ABORT PENDING
	MEM	IMM,0		;CLEAR ABORT PENDING FLAG
	BRWRTE	IMM,D.XBDF	;OFFSET TO TRANSMIT BUFFER FLAGS
	LDMA	BR,ADD,SP.RM0	;ADDRESS IT
	BRWRTE	MEMX,SELB	;READ THE FLAGS
	BRSHFT			;SHIFT THEM RIGHT
	BR4	XMTDN3		;BUFFER ASSIGNED, START NEXT MESSAGE
				;BUFFER NOT ASSIGNED, CLEAR SEND
120$:	SP	IMM,0,SP0	;MASK TO CLEAR SEND
				;FALL INTO XMTSND
	.SBTTL	XMTSND - SET OR CLEAR DUP SEND

;+
; **XMTSND-ROUTINE TO SET OR CLEAR SEND IN THE DUP
;
; CALLED BY:	XMTDON
; ENTERED FROM:	XMTABT
;
; INPUTS:
;	SP0 = MASK TO SET OR CLEAR SEND
;	SP.STS = D.STS
;
; OUTPUTS:
;	START NPR TO CHANGE SEND AND RETURN TO XMTDON
;
;-
 
XMTSND:
	BRWRTE	IMM,DS.HDX	;MASK FOR HALF DUPLEX
	BRWRTE	BR,AANDB,SP.STS	;ISOLATE HALF DUPLEX FLAG
	OUTPUT	BR,AORB,OUTDA1	;STORE "SEND" MASK IN OUT DATA LOW BYTE
XMTSN0:
	BRWRTE	IMM,DATOB	;MASK TO DO A BYTE OUT NPR
	ALWAYS	XMTDN6		;START THE NPR AND RETURN TO TIMER LOOP

 
;+
; END OF MESSAGE FLAG SET - SEND A EOM
; CALLED BY:	XMTBCZ
;-
 
A160$:	BRWRTE	IMM,DUPTEM	;SET TRANSMIT END OF MESSAGE
	OUTPUT	BR,SELB,OUTDA2	;SAVE FLAG IN OUT DATA HIGH BYTE
	CALLSR	SP.SUB,IC2OUT,XMTEM0	;WRITE IT OUT TO THE DUP
				;AND RETURN TO XMTBC0
 

;+
; END OF MESSAGE SET AND NO MORE BUFFER ASSIGNED - SEND PADS
;	THIS FILLS THE DUP SILO SO THE EOM CHAR GETS TO THE LINE
;	USE ABORT SEQUENCE TO SEND TWO PAD(377) CHARS.
; ENTERED FROM:	XMTBCZ
;-
 
A170$:	BRWRTE	IMM,D.XSTS	;ADDRESS TRANSMIT STATUS BYTE
	LDMA	BR,ADD,SP.RM0	;SET THE MAR
	MEM	IMM,DT.ABT!DT.AB1	;SET UP FOR AN ABORT
	ALWAYS	TIMRT3		;RETURN TO TIMER LOOP



;+
; UNDERRUN ERROR
; CALLED FROM:	XMTBCZ
;- 
XMTUNR:
	BRWRTE	IMM,ER.UNR	;TRANSMIT UNDERRUN ERROR CODE
	SP	BR,SELB,SP3	;SAVE IT IN SP3 FOR SUBROUTINE
	CALLSR	SP.SB1,COUX,XMTBC1,C.CLOX	;DO A CONTROL OUT
				;AND RETURN TO XMTBC1
	.DSABL	LSB
	.SBTTL	XMTAB1 - TRANSMIT ABORT STAGE ONE
;+
; **XMTAB1-ROUTINE TO PERFORM A TRANSMIT ABORT
;
; ENTERED FROM:	XMTABT
;
; INPUTS:
;	INPUT AND OUTPUT ADDRESS = DUP'S CSR 4
;	MAR = D.XSTS
;	SP0 = (D.XSTS)
;
; OUTPUTS:
;	D.XSTS IS DECREMENTED
;	AN ABORT CHARACTER IS SENT
;
;	D.XSTS LOW ORDER BITS WERE SET TO 11, XMTABT WILL BRANCH HERE IF
;	BIT 1 IS SET. THUS TWO ABORT CHARS GET SENT.
;-

XMTAB1:
	MEM	DECA,SP0	;ONE LESS ABORT TO SEND
	BRWRTE	IMM,DUPTAB	;DUP TRANSMIT ABORT BIT
	OUTPUT	BR,SELB,OUTDA2	;MOVE IT TO OUT DATA
	ALWAYS	WRTRT		;RETURN TO XMTDON TO DO THE NPR
	.PAGE
	.SBTTL	STORE-STORE RECEIVED CHARACTER IN CORE
;	FILE	DUPSTORE.MAC
 
;+ 
;
;	S T O R E  R E C E I V E D  C H A R A C T E R
; 
; ENTERED FROM:	RECEIVE STATE ROUTINES
; 
; INPUTS:
;	 SP.CHR=CURRENT RECEIVED CHARACTER
;
; OUTPUTS:
;	A WORD TRANSFER IS MADE TO THE USER BUFFER IN PDP-11 CORE WHEN
; A PAIR OF CHARACTERS ARE RECEIVED. ANY CHARACTER DESTINED FOR AN EVEN CORE
; BUFFER ADDRESS IS LOCALLY BUFFERED UNTIL THE NEXT CHARACTER IS RECEIVED.HOWEVER,
; BYTE TRANSFERS ARE SOMETIMES MADE DURING CERTAIN MESSAGE AND BUFFER BOUNDRY
; CONDITIONS.
;- 
 
STORE:
 
;CHECK IF A RECEIVE BUFFER IS AVAILABE
	BRWRTE	IMM,D.RBDF		;ADDRESS D.RBDF
	LDMA	BR,ADD,SP.RM0
	SPBR	MEMX,SELB,SP2		;LOAD IT INTO BR AND SP2
	BRSHFT
	BR4	10$			;BUFFER AVAILABLE
 
; A CHARACTER IS RECEIVED,BUT THERE IS NO RECEIVE BUFFER TO STORE IT
 
	BRADDR	TIMRP2		;ULTIMATE RETURN FROM RESYNC
	SP	BR,SELB,SP.SB1	;SAVE IT IN RETURN SCRATCH PAD
	CALLSR	SP.SUB,COUTX,RESYNC,ER.NBA ;Q PORT DATA AND RETURN TO TIMER
;NOTE: A REGULAR CONTROL OUT IS NOT SENT BECAUSE IT MODIFIES PDP-11
;MEMORY ADDRESSED BY CURRENT DESCRIPTOR POINTER. SINCE THE DESCRIPTOR
;POINTER IS INVALID AT THIS TIME, THIS IS PROHIBITED.

10$:
; DECREMENT RECEIVE BYTE COUNT
 
	CALLSB	SP.SUB,DRCNT
; NOTE: DRCNT DECREMENTS THE BYTE COUNT AND STORES IT BACK INTO RAM. 
 
	C	CHKODD		;BRANCH IF COUNT NOT -1
 
;CURRENT BUFFER IS FULL,SO SEND BA OUT ETC BEFORE PROCESSING CURRENT CHARACTER
EOFBUF:
	SPBR	MEMX,SELB,SP2	;GET THE LOW BYTE OF THE BUFFER ADDRESS
	BR0	5$		;BUFFER ENDED ON AN ODD ADDRESS THEREFORE
				;THE LAST RECEIVE CHARACTER IS STILL IN THE
				;KMC RAM AND IT MUST BE WRITTEN OUT
;
; OTHERWISE ALL RECEIVE DATA HAVE BEEN WRITTEN TO THE BUFFER
;
	ALWAYS	10$
;
5$:
	CALLSB	SP.SUB,SETRBA	;SET OUTBA TO CURRENT INPUT ADDRESS IN REC BUFF
	BRWRTE	BR,DECA,SP2	;BUFFER ADDRESS MUST BE DECREMENTED TO POINT
				;TO EVEN BYTE ADDRESS
	OUTPUT	BR,SELB,OBA1	;RESET IT
	BRWRTE	IMM,DATOB,INCMAR	;MASK TO DO A BYTE TRANSFER
					;MAR NOW POINT TO D.ERC
	OUTPUT	MEMX,SELB,OUTDA1	;GET THE EVEN RECEIVE CHARACTER
	OUT	BR,SELB,ONPR		;START THE NPR
10$:
	BRADDR	STORE		;SET UP RETURN ADDRESS TO STORE
	SP	BR,SELB,SP.SB1
20$:	BRWRTE	IBUS,NPR	;IN CASE AN NPR WAS STARTED WAIT FOR IT TO COMPLETE
	BR0	20$		;WAIT UNTIL DONE
	ALWAYS	BAORC	;SEND BAOUT FOR RECEIVE BUFFER COMPLETEION
;NOTE: ORIGINAL INPUT PARAMETERS TO STORE MUST BE INTACT AT THIS POINT
; CHECK IF CURRENT RECEIVE BUFFER ADDRESS IS ODD
CHKODD:
 
	BRWRTE	MEMX,SELB	;GET LOW BYTE OF BUFFER ADDR INTO BR
				;MAR NOW POINT TO HIGH ADDR BYTE
	BR0	STRODD		;BRANCH IF RECEIVE BUFFER ADDRESS IS ODD
;		 CURRENT RECEIVE BUFFER ADDRESS IS EVEN
 
 
STREVN:
;
; SP2 CONTAINS THE IMAGE OF D.RBDF
; MAR POINTS TO LOW BYTE OF BUFFER ADDRESS
;
 
	INCMA			;MAR NOW POINTS TO HIGH BYTE OF ADDRESS
; CLEAR "FIRST CHARACTER IN BUFFER" INDICATOR
 
	BRWRTE	IMM,<377-DR.FST>,INCMAR ;MASK TO CLEAR DR.FST
				;MAR POINT TO FLAGS BYTE
	MEMINC	BR,AANDB,SP2	;CLEAR DR.FST
				;MAR POINTS TO D.ERC
 
; STORE THE CURRENT RECEIVE CHARACTER IN LOCAL BUFFER
 
	MEM	SELA,SP.CHR	;STORE REC'D CHARACTER IN D.ERC
 
 
	ALWAYS	RCVEXT
;		CURRENT RECEIVE BUFFER ADDRESS IS ODD
 
 
STRODD:
;
; SP2 CONTAINS THE IMAGE OF D.RBDF
; MAR POINTS TO LOW BYTE OF RECEIVE BUFFER ADDRESS
 
	CALLSB	SP.SUB,SETRBA	;SET OUTBA TO CURRENT INPUT ADDRESS IN REC BUFF
 
; LOAD ODD (CURRENT) CHARACTER INTO OUTDATA HB
 
	BRWRTE	BR,SELA,SP.CHR,INCMAR	;MOVE CHARACTER INTO BR FIRST
					;MAR NOW POINTS TO D.ERC
	OUTPUT	BR,SELB,OUTDA2	;NOW MOVE IT INTO OUTDATA 15:8
	OUTPUT	MEMX,SELB,OUTDA1	;LOAD EVEN RECEIVE CHARACTER INTO OUTDATA 7:0
; CHECK IF THE CURRENT ODD CHARACTER IS DESTINED FOR FIRST LOCATION OF BUFFER
 
	BRWRTE	MEMX,SELA,SP2	;LOAD IMAGE OF D.RBDF INTO BR
	BR0	10$		;BRANCH IF FIRST CHARACTER OF BUFFER
 
; CURRENT CHARACTER IS DESTINED FOR ODD CORE ADDRESS AND IS NOT THE FIRST
;CHARACTER IN THE BUFFER. THEREFORE IT IS SAFE TO DO A WORD TRANSFER.
 
	BRWRTE	IMM,DATO	;MASK TO START WORD OUT NPR
	ALWAYS	20$		;DO NPR AND EXIT
;NOTE: DURING THE ABOVE WORD NPR, THE CORE ADDRESS IS ODD. THE HARDWARE SHOULD
;AUTOMATICALLY IGNORE BIT0 OF CORE ADDRESS.
 
 
; CURRENT RECEIVED CHARACTER IS DESTINED FOR AN ODD CORE ADDRESS.
;BUT THIS ADDRESS HAPPENS TO BE THE FIRST LOCATION OF THE CURRENT BUFFER.
;THEREFORE DO A BYTE TRANSFER.
 
10$:
 
	BRWRTE	IMM,DATOB	;MASK TO SEND ONE BYTE(ODD CHARACTER)
20$:
	OUT	BR,SELB,ONPR	;START NPR
				;NOTE: NPR COMPLETION IS CHECKED FOR AFTER
				;RETURN FROM INCMEM
 
;FALL INTO RCVEXT
 
;		COMMON EXIT FROM STORE ROUTINE
 
 
RCVEXT:
 
;INCREMENT RECEIVE BUFFER POINTER
 
; ADDRESS D.RBDA
 
	BRWRTE	IMM,D.RBDA
	LDMA	BR,ADD,SP.RM0
 
; INCREMENT MEMORY LOCATIONS
 
	CALLSR	SP.SUB,INCMEM,NPRWP1,1	;INCREMENT MEMORY & RETURN 
					;TO WAIT FOR NPR COMPLETION
	.SBTTL	EOFMSG-END OF MESSAGE
 
;+ 
; 
;		E N D  O F  R E C E I V E D  M E S S A G E
; 
; CALLED BY:	RBDONE(BIT STUFF), MSGIN(DDCMP)
; 
;INPUTS:
;	SP.SB1=RETURN ADDRESS
;	D.RBD=CURRENT INPUT ADDRESS
;OUTPUTS:
;	STORES IN RECEIVE BUFFER ANY RESIDUAL EVEN CHARACTER THAT IS SAVED
;	IN THE LOCAL BUFFER (D,ERC)
;	GENERATES A BAOUT. ULTIMATE RETURN TO LOCATION SPECIFIED BY SP.SB1
;-
 
EOFMSG:
 
;CHECK IF THE LAST RECEIVED CHARACTER WAS EVEN
 
	BRWRTE	IMM,D.RBDA	;SET TO POINT TO BUFFER ADDRES
	LDMA	BR,ADD,SP.RM0	;SET THE MAR
	SPBR	MEMX,SELB,SP2	;READ THE LOW BYTE OF THE ADDRESS
	BR0	10$		;BRANCH IF ODD
; CURRENT RECEIVE BUFFER IS EVEN,THAT MEANS LAST RECEIVED CHARACTER WAS
;DESTINED FOR AN ODD ADDRESS AND ALREADY BEEN TRANSFERED TO RECEIVE
;BUFFER.
 
	ALWAYS	BAORE		;SEND BAOUT
 
;CURRENT RECEIVE BUFFER ADDRESS IS ODD. THEREFORE THE PREVIOUS CHARACTER
;DESTINED FOR AN EVEN ADDRESS IS STORED LOCALLY. TRANSFER IT TO CORE
 
10$:
 
	CALLSB	SP.SUB,SETRBA	;SET RECEIVE BUFFER ADDRESS
	BRWRTE	DECA,SP2,INCMAR	;DECREMENT ADDRESS TO GET EVEN BYTE
				;MAR POINTS TO D.ERC
	OUTPUT	BR,SELB,OBA1	;PUT ADDR IN THE OBA REG
	OUTPUT	MEMX,SELB,OUTDA1	;LOAD EVEN CHAR INTO OUT DATA
	BRWRTE	IMM,DATOB	;WRITE OUT RESIDUAL EVEN RECEIVED
	OUT	BR,SELB,ONPR	;INTO CORE
20$:	BRWRTE	IBUS,NPR	;AND WAIT FOR NPR TO COMPLETE
	BR0	20$
 
;FALL INTO BAORE
	.SBTTL	BAORE-BA OUT FOR END OF RECEIVED MESSAGE
 
;+ 
; 
;	B A  O U T  F O R  E N D  O F  R E C E I V E D  M E S S A G E
; 
; ENTERED FROM:	EOFMSG
; 
;INPUTS:
;	SP.SB1=RETURN ADDRESS
; 
;OUTPUTS:
;	INPUT PARAMETERS FOR BOUT ARE SET UP
;	BOUT IS EXECUTED
;-

BAORE:
 
;SET SP3 TO INDICATE END OF MESSAGE
 
	BRWRTE	IMM,EOM
	SP	BR,SELB,SP3
 
;SET SP2 TO INDICATE BAOUT FOR RECEIVE OPERATION
 
	BRWRTE	IMM,C.BAOR

; FOLLOWING CODE IS SHARED WITH THE ERROR ROUTINES IN DUPERR
ENTRY2:
	SP	BR,SELB,SP2
;SET SP6=ADDRESS OF D.RDP
	BRWRTE	IMM,D.RDP	;BR=D.RDP
	BRWRTE	BR,<ADD!SP.RM0>	;BR=ADDRESS OF D.RDP/D.XDP
	SP	BR,SELB,SP6	;SP6=BR
 
;FALL INTO BOUT/COUT
 
	.SBTTL	BOUT/COUT-BA OR CONTROL OUT (WITH DESCRIPTOR UPDATED)
 
;+ 
; 
;		B A  O R  C O N T R O L  O U T
;		(CURRENT DESCRIPTOR IS UPDATED)
; 
; THIS IS COMMON CODE SHARED BY THOSE BAOUT ROUTINES AND  CONTROL OUT 
;ROUTINES THAT REQUIRE AN UPDATE OF BYTE COUNT IN THE RECEIVE OR TRANSMIT 
;DESCRIPTORS.
; 
; ENTERED FROM:	BAORE
; CALLED BY:	KILLAL
; 
;INPUTS:
;	SP.SB1	-RETURN ADDRESS.
;	SP2	-CODE TO INDICATE BAOUT OR CONTROL OUT (KMC CSR2 IMAGE)
;	SP3	-ERROR CODE
;	SP6	-ADDRESS OF D.RDP(RECEIVE) OR D.XDP(TRANSMIT)
; 
;OUTPUTS:
;	BYTE COUNT IN THE CURRENT TRANSMIT OR RECEIVE DESCRIPTOR IS UPDATED
;BY SUBTRACTING THE CONTENTS OF D.RBDC OR D.XBDC FROM IT.
;SP4,SP5,SP6 ARE LOADED WITH THE CURENT DESCRIPTOR ADDRESS AND QPDATA
;ROUTINE IS EXECUTED.
;- 
 
BOUT:
COUT:
 
;SET OUBA TO CURRENT DESCRIPTOR
 
	LDMA	SELA,SP6		;ADDRESS DESCRIPTOR ADDRESS POINTER
	OUTPUT	MEMI,SELB,OBA1		;ADDRESS 7:0
	OUTPUT	MEMI,SELB,OBA2		;ADDRESS 15:8
	SP	IBUS,UBBR,SP0		;GET CURRENT BUS REQ REG
	BRWRTE	IMM,101			;CLEAR ALL BUT VEC XX4,NXM
	SP	BR,AANDB,SP0
	SP	MEMX,SELB,SP1		;GET FLAGS BYTE (MEM EXT BITS) **V0.10**
	BRWRTE	IMM,14			;EXTRACT MEM EXT BITS
	BRWRTE	BR,AANDB,SP1		;MASK OFF ALL OTHER BITS
	OUT	BR,AORB,OBR		;LOAD EXT ADDRESS BITS
;SUBTRACT CURRENT BYTE COUNT FROM ORIGINAL BYTE COUNT TO GET # OF CHARACTERS
;RECEIVED/TRANSMITTED IN THIS BUFFER
	BRWRTE	IMM,<D.ORBC-D.RDP>	;ADDRESS ORIGINAL BUFFER COUNT
	LDMA	BR,ADD,SP6
	SP	MEMI,SELB,SP0		;AND SAVE IT IN SP0
	SP	MEMX,SELB,SP1		;AND HIGH BYTE INTO SP1
	BRWRTE	IMM,<D.RBDC-D.RDP>	;ADDRESS CURRENT COUNT
	LDMA	BR,ADD,SP6
	OUTPUT	MEMI,SUB,OUTDA1		;OUTDA1=ORG 7:0-CUR7:0
	BRWRTE	MEMI,SUBC,SP1		;BR=ORG15:8-CUR15:8
	OUTPUT	BR,SELB,OUTDA2,INCMAR	;STORE IT IN OUTDATA 1 **V0.11**
 
;OUTDATA NOW CONTAINS THE NUMBER OF CHARACTERS TRANSFERED FROM/TO
;THE CURRENT BUFFER
; WRITE IT INTO CURRENT DESCRIPTOR
	BRADDR	BOUTR0			;RETURN ADDRESS INTO BR **V0.11**
	SP	BR,SELB,SP.SUB,INCMAR	;SAVE IN SP.SUB (MAR = FLAGS)
	BRWRTE	MEMX,SELB		;READ FLAGS
	BRSHFT				;SHIFT RIGHT
	BR4	IC2OUT			;IF BUFFER ASSIGNED, WRITE NEW BC
	ALWAYS	QPDATA			;OTHERWISE DON'T (CAN GET HERE FROM
					;KILL CODE WITH NO BUFFER ASSIGNED) **V0.11**
 
;CURRENT DESCRIPTOR IS NOW COMPLETELY UPDATED

	.SBTTL	BAORC-BA OUT FOR RECEIVE BUFFER COMPLETION
 
;+ 
; 
;	B A  O U T  F O R  R E C E I V E  B U F F E R  C O M P L E T I O N
; 
; CALLED BY:	STORE
;
;INPUTS:
;	SP.SB1=RETURN ADDRESS
; 
;OUTPUTS:
;	INPUT PARAMETERS FOR COUX ARE SET UP
;	COUX IS EXECUTED
;-

BAORC:
 
;SET SP3 TO INDICATE END OF MESSAGE
 
	BRWRTE	IMM,0
	SP	BR,SELB,SP3
 
;SET SP2 TO INDICATE BAOUT FOR RECEIVE OPERATION
 
	BRWRTE	IMM,C.BAOR
	SP	BR,SELB,SP2
 
; SET SP6=ADDRESS OF D.RDP
	BRWRTE	IMM,D.RDP	;BR=D.RDP
	ALWAYS	ENTRY1		;USE COMMON CODE IN COUX
	.SBTTL	COUTX-CONTROL OUT FOR TRANSMIT OPERATION
 
;+ 
; 
;	C O N T R O L  O U T  F O R  X M T  O P E R A T I O N S
; 
; CALLED BY:	DSRCHG,STORE,NXMERR
; 
;INPUTS:
;	SP.SUB=RETURN ADDRESS
;	BRG	=ERROR CODE
;OUTPUTS:
;	A CONTROL OUT IS QUEUED WITH THE BUFFER DESCRIPTOR ADDRESS ZEROED.
;- 
 
COUTX:
	SP	BR,SELB,SP3	;SAVE ERROR CODE IN SP3
	SPBR	IMM,0,SP0	;SET UP SCRATCH PADS FOR QPDATA
	SP	BR,SELB,SP1	;..
	SP	BR,SELB,SP4	;..

;SET SP2 TO INDICATE CONTROL OUT FOR XMT OPERATION
	BRWRTE	IMM,C.CLOX	;CSR2 IMAGE INTO SP2
	SP	BR,SELB,SP2
	ALWAYS	QPDAT1		;QUEUE THE CONTROL OUT
	.SBTTL	BAOX/COUX-BA/CONTROL OUT FOR TRANSMIT BUFFER COMPLETION
;+ 
; 
;	B A  O U T  F O R  X M T  B U F F E R  C O M P L E T I O N
; 
;CALLED BY:	XMTBCZ
; 
;INPUTS:
;	SP.SB1=RETURN ADDRESS
; 
;OUTPUTS:
;	INPUT PARAMETERS FOR QPDATA ARE SET UP
;	A BUF ADDR OUT IS QUEUED.
;-

BAOX:
 
;SET SP3 TO INDICATE BUFFER COMPLETION
 
	BRWRTE	IMM,0
	SP	BR,SELB,SP3
 
;SET BRG TO INDICATE BA OUT FOR TRANSMIT OPERATION
 
	BRWRTE	IMM,C.BAOX
;	FALL INTO COUX


;+
; **COUX-ROUTINE TO QUEUE A TRANSMIT CONTROL OUT WITH BUFFER ADDRESS**
;
; CALLED BY:	XMTUNR
; ENTERED FROM:	BAOX
;
; INPUTS:
;	SP.SB1 = RETURN ADDR
;	SP3 = ERROR CODE
;	BRG = BSEL2 CODE (NORMALLY C.CLOX)
;
; OUTPUTS:
;	PARAMETERS FOR QPDATA ARE SET UP
;	SO A COMPLETION WILL BE QUEUED TO THE PDP-11
;-

COUX:
	SP	BR,SELB,SP2	;PUT BSEL2 CODE IN SP2
 
;SET SP6=ADDRESS OF D.XDP
	BRWRTE	IMM,D.XDP	;BR=D.XDP

;COMMON CODE, USED BY BAORC ALSO
ENTRY1:
	BRWRTE	BR,ADD,SP.RM0	;BR=ADDRESS OF D.RDP/D.XDP
	SP	BR,SELB,SP6	;SP6=BR
 
;	FALL INTO QPDATA
 
	.SBTTL	QPDATA-QUEUE PORT DATA
 
;+ 
; 
;	Q U E U E  P O R T  D A T A
; 
; ENTERED AT QPDATA FROM:	BOUT,COUX
; ENTERED AT QPDAT1 FROM:	COUTX
; 
; INPUTS:
;	SP.SB1=RETURN ADDRESS
;	SP.LN=LINE NUMBER
;	SP2=CLO(R/T) TO SEND CONTROL OUT,=BAO(R/T) TO SEND BAOUT
;	SP3	=ERROR CODE WITH THE ERROR BIT SET
;	SP6	=ADDRESS OF D.RDP/D.XDP
;OUTPUTS:
;	SIX BYTES OF CONTROL OUT DATA IS STUFFED INTO THE LOCAL COMPLETION SILO.
;	ENTRY AT QPDATA: CALLER'S RETURN IN SP.SB1, EXECUTE STFSLO AND NXBUF
;	ENTRY AT QPDAT1: CALLER'S RETURN IN SP.SUB, EXECUTE STFSLO AND RETURN
;-
 
QPDATA:
	BRADDR	NXBUF		;ADDRESS FOR STUFF SILO TO RETURN TO
	SP	BR,SELB,SP.SUB	;SAVE IT IN RETURN SCRATCH PAD
 
;GET CURRENT DESCRIPTOR ADDRESS INTO SCRATCH PADS
 
	LDMA	SELA,SP6	;ADDRESS CURRENT DESCRIPTOR POINTER
	SP	MEMI,SELB,SP0	;SP0=ADDRESS 7:0
	SP	MEMI,SELB,SP1	;SP1=ADDRESS 15:8
	SP	MEMX,SELB,SP4	;SP4=ADDRESS 17:16
 
; ADDRESS 'NEXT IN' LOCATION IN LOCAL SILO
 
QPDAT1:
	LDMA	IMM,P.SLIN	;ADDRESS NEXT IN POINTER
	LDMAP	IMM,P.SLIN
	LDMA	MEMX,SELB	;ADDRESS LOCATION POINTED TO BY P.SLIN
 
;STORE BYTE 0 WORD 1 INTO SILO
 
	MEMINC	SELA,SP.LN	;LOAD LINE NUMBER
	MEMINC	SELA,SP0	;LOAD DESCRIPTOR ADDRESS 7:0
	MEMINC	SELA,SP1	;LOAD DESCRIPTOR ADDRESS 15:0
	MEM	SELA,SP3	;STORE ERROR CODE (FOR CONTROL OUT ONLY)
	BRWRTE	SELA,SP2	;BUT IS THIS A CONTROL OUT?
	BR0	10$		;YES
	MEM	IMM,0		;NO,CLEAR ERROR CODE
	ALWAYS	20$
10$:	BRWRTE	IMM,0		;CONTROL OUT,CLEAR SP3
	SP	BR,SELB,SP3
20$:
	SP	TWOA,SP4,INCMAR	;SHIFT EXT ADDRESS LEFT TO POSITION
	SP	TWOA,SP4
	SP	TWOA,SP4
	SPBR	TWOA,SP4
	MEMINC	BR,AORB,SP3 	;STORE EOM BIT AND EXT MEM BITS IF BA OUT
	MEMINC	SELA,SP2	;CONTROL OUT OR BAOUT CODE
;FALL INTO STUFF SILO ROUTINE
 
	.SBTTL	STFSLO-STUFF COMPLETION SILO SUBROUTINE
 
;+ 
;
;		S T U F F  C O M P L E T I O N  S I L O				
;										
; ENTERED FROM:	QPDATA
; 
; INPUTS:
;	SP.SB1=ULTIMATE RETURN ADDRESS
;	SP.SUB=RETURN FOR STUFF SILO
; 
;	THE THREE SILO WORDS MUST ALREADY BE IN RAM STARTING AT LOCATION 
;	POINTED TO BY P.SLIN.
;
; OUTPUTS:
;	SILO POINTERS ARE UPDATED. IF THERE WAS A SILO OVERFLOW,BIT 16 OF
;	THE FIRST WORD IS SET TO 1.
;-
 
STFSLO:
 
; CHECK IF SILO IS EMPTY OR FULL
 
	LDMA	IMM,<P.SLIN>		;GET NEXT IN
	SP	MEMI,SELB,SP0		;INTO BR,SP0
	BRWRTE	MEMX,SELB		;AND NEXT OUT INTO THE BR
	Z	30$			;SILO IS EMPTY
	COMP	BR,SP0			;NEXTIN=NEXT OUT?
	Z	40$			;YES,SILO IS FULL
 
; SILO IS NOT FULL
 
; INCREMENT NEXT IN BY ONE ENTRY LENGTH
10$:
	LDMA	IMM,<P.SLIN&377>	;MAR=ADDRESS OF NEXT IN POINTER
	BRWRTE	IMM,SILOED		;OFFSET OF LAST ENTRY
	COMP	BR,SP0			;NEXT IN=LAST ENTRY IN SILO?
	Z	20$			;YES,WRAP NEXT IN
	BRWRTE	IMM,SENTRY		;BR=ONE ENTRY SIZE
	MEM	BR,ADD,SP0		;INCREMENT P.SLIN BY ONE ENTRY SIZE
	RTNSUB	SP.SUB,P3		;RETURN
 
; WRAP NEXT IN
20$:	MEM	IMM,P.NPR		;SET NEXT IN=P.NPR
	RTNSUB	SP.SUB,P3
; SILO IS EMPTY,SET NEXT OUT=NEXT IN
 
30$:	MEM	SELA,SP0		;STORE NEXT IN P.SLOT
	ALWAYS	10$			;STORE ONE ENTRY
 
; SILO IS FULL, SET ERROR BIT IN CURRENT NEXT IN RAM LOCATION
 
40$:
	LDMA	SELA,SP0		;LOAD MAR TO ADDRESS SILO ENTRY
	SP	IMM,200,SP0		;LOAD ERROR CODE MASK
	MEM	MEMX,AORB,SP0		;OR OVERRUN BIT ONTO LINE NUMBER
	RTNSUB	SP.SUB,P3
	.SBTTL	NXBUF-GET NEXT  BUFFER
 
;+
;			N E X T  B U F F E R
;
; ENTERED FROM:	STFSLO
;
; INPUTS:
;	SP.SB1	=RETURN ADDRESS
;	SP6	=ADDRESS OF D.RDP OR D.XDP
;	
; OUTPUTS:
;	1) CURRENT  DESCRIPTOR POINTER  IS MODIFIED TO POINT
;	TO THE NEXT DESCRIPTOR IN THE CURRENT LIST
;	2) IF NO MORE DESCRIPTORS ARE AVAILABLE IN THE CURRENT LIST, 
;	D.RDP/D.XDP IS SET TO POINT TO THE FIRST DESCRIPTOR IN THE ALTERNATE LIST.
;	THE "ALTERNATE LIST ASSIGNED" BIT IS CLEARED
;	3) IF THE ALTERNATE LIST IS NOT ASSIGNED IN THE ABOVE CASE,THE"CURRENT
;	LIST ASSIGNED" BIT IS CLEARED.
;	4) IF THE NEW DESCRIPTOR IS THE LAST ONE IN ITS LIST THE "LAST DESCRIPTOR
;	IN LIST" INDICATOR IS SET.
;
;	THIS ROUTINE; CHECKS IF CURRENT DESCRIPTOR IS LAST ON LIST
;	IF SO, BRANCH TO NXLST
;	OTHERWISE, ADD 6 TO LIST POINTER AND GOTO NXDSCP TO LOAD DESC
;-

NXBUF:
 
; CHECK IF THE CURRENT BUFFER DESCRIPTOR IS THE LAST ONE IN THE CURRENT LIST
 
	BRWRTE	IMM,<D.RBDF-D.RDP>	;ADDRESS FLAG BYTE
	LDMA	BR,ADD,SP6
	LDMAP	SELA,SP.RM1		;SINCE STUFF SILO CHANGED PAGE
	SPBR	MEMX,SELB,SP0		;LOAD FLAG BYTE INTO BR,SP0
	BR7	NXLST			;LAST DESCRIPTOR IN LIST,GET NEXT LIST
 
;	CURRENT BUFFER DESCRIPTOR IS NOT THE LAST ONE IN THE LIST
;ADD 6 TO CURRENT DESCRIPTOR ADDRESS TO GET THE NEXT DESCRIPTOR ADDRESS
	LDMA	SELA,SP6		;ADDRESS CURRENT DESCRIPTOR POINTER
	CALLSR	SP.SUB,INCMEM,NXDP1,6.	;CALL TO INCRE PNTR BY 6
					;RETURN TO NXDSCP

	.SBTTL	NXLST-GET NEXT BUFFER LIST
 
;+ 
; 
;			N E X T  L I S T
; 
; ENTERED FROM:	NXBUF
; 
; INPUTS:
;	SP.SB1	=RETURN ADDRESS
;	MAR,MARP=D.RBDF OR D.XBDF
;	SP0	=CONTENTS OF D.RBDF OR D.XBDF
;	SP6	=ADDRESS OF D.RBD OR D.XBD
; 
; OUTPUTS:
;	CHECK IF ALTERNATE LIST IS ASSIGNED
;	IF NOT, CLEAR BUFFER ASSIGNED BIT AND RETURN
;	IF SO, CLEAR ALTERNATE ASSIGNED BIT AND UPDATE CURRENT LIST PNTR
;	DROP INTO NXDSCP TO LOAD NEW DESC INTO LINE TABLE.
;-

NXLST:
 
; CHECK IF THE ALTERNATE LIST IS ASSIGNED
;	(MAR=D.RBDF FOR REC OR D.XBDF FOR XMT,SP0=ITS CONTENTS
 
	BRWRTE	TWOA,SP0	;LEFT SHIFT 
	BR7	10$		;BRANCH IF ALTERNATE LIST IS ASSIGNED
 
; ALTERNATE LIST IS NOT ASSIGNED. CLEAR 'CURRENT BUFFER ASSIGNED BIT AND RETURN
 
	BRWRTE	IMM,<377-DR.CBA> ;MASK TO CLEAR DR.CBA
	MEM	BR,AANDB,SP0	;CLEAR IT AND STORE RESULT IN D.RBDF/D.XBDF/
;*************ONE OF THE RETURN POINTS FOR BA,CONTROL ETC.**********
	RTNSUB	SP.SB1,P2	;RETURN
;********************************************************************
 
 
; ALTERNATE LIST IS ASSIGNED.
10$:
 
;CLEAR 'ALTERNATE LIST ASSIGNED' BIT
	BRWRTE	IMM,<377-DR.ABA> ;MASK TO CLEAR DS.ABA
	MEM	BR,AANDB,SP0	;STORE IT IN RAM
 
;MOVE ALTERNATE LIST POINTER INTO CURRENT DECRIPTOR POINTER
	BRWRTE	IMM,<D.ARLP-D.RDP> ;OFFSET FROM CURRENT DESCRIPTOR POINTER
	LDMA	BR,ADD,SP6	;ADDRESS ALTERNATE POINTER
	SP	MEMI,SELB,SP0	;SP0=ADDRESS 7:0
	SP	MEMI,SELB,SP1	;SP1=ADDRESS 15:8
	SP	MEMI,SELB,SP2	;SP2=ADDRESS 17:16
	LDMA	SELA,SP6	;ADDRESS CURRENT POINTER
	MEMINC	SELA,SP0	;STORE ADDRESS 7:0
	MEMINC	SELA,SP1	;STORE ADDRESS 15:8
	MEM	SELA,SP2	;AND EXT ADDRESS
				;FALL INTO NXDSCP
	.SBTTL	NXDSCP - GET NEXT DESCRIPTOR

;+
;
;	**NXDSCP-ROUTINE TO LOAD THE NEXT DESCRIPTOR INTO LINE TABLE
;
; ENTERED FROM:	NXLST
; CALLED FROM:	BAIN
;
;INPUTS:
;	SP6=ADDRESS OF THE CURRENT DESCRIPTOR FOR CURRENT OPERATION (ADDRESS
;	OF D.RDP OR D.XDP)
;
; OUTPUTS:
;	THE NEW DESCRIPTOR IS FETCHED FROM PDP-11 MEMORY AND STORE IN THE LINE TABLE.
;	IF A TRANSMIT BUFFER, ANY ODD LEADING CHARACTER IS PREFETCHED
;	IF A RECEIVE BUFFER, THE FIRST CHARACTER FLAG(DR.FST) IS SET
;-

NXDSCP:
 
;SET INBA TO THE CURRENT DESCRIPTOR ADDRESS
	LDMA	SELA,SP6	;ADDRESS CURRENT DESCRIPTOR POINTER
	OUTPUT	MEMI,SELB,IBA1	;ADDRESS 7:0
	OUTPUT	MEMI,SELB,IBA2	;ADDRESS 15:8
	BRWRTE	IMM,1		;START NPR 
	SP	BR,SELB,SP0
	OUT	MEMI,AORB,ONPR	;ADRESS 17:16
 
 
;MOVE NEW BUFFER ADDRESS AND BYTE COUNT INTO ORIGINAL BUF ADDRESS AND COUNT AREA
 
5$:	BRWRTE	IBUS,NPR	;WAIT FOR BUFFER ADDRESS 15:0
	BR0	5$
	SP	IBUS,INDAT1,SP4,INCMAR	;TEMPORARILY SAVE ADD 7:0 IN SP4
	SP	IBUS,INDAT2,SP5,INCMAR	;AND ADDRESS 15:8 IN SP5
	CALLSB	SP.SUB,IC2IN	;READ BYTE COUNT FROM DESCRIPTOR
	SP	IBUS,INDAT1,SP2,INCMAR	;SAVE LOW BYTE IN SP2
	SP	IBUS,INDAT2,SP3	;AND HIGH COUNT IN SP3
;MAR IS NOW POINTING TO D.ORBC/D.OXBC
	MEMINC	IBUS,INDAT1	;SAVE LOW BYTE OF COUNT
	MEMINC	IBUS,INDAT2	;SAVE HIGH BYTE OF COUNT
	MEMINC	SELA,SP4	;NOW STORE DESCP ADDRESS 7:0
	MEMINC	SELA,SP5	;AND ADDRESS 15:8 IN RAM
 
; UPDATE EXTENDED ADDRESS BITS OF BUFFER & LAST DESCRIPTOR BIT
	CALLSB	SP.SUB,IC2IN	;READ NEXT DESCRIPTOR WORD
	SP	IBUS,INDAT2,SP0	;LOAD HIGH BYTE (FLAGS,EXT ADDR)INTO SP0
	MEMINC	IBUS,INDAT2	;SAVE FLAGS BYTE
	MEMINC	SELA,SP2	;SAVE LOW BYTE OF COUNT
	MEMINC	SELA,SP3	;SAVE HIGH BYTE
	MEMINC	SELA,SP4	;SAVE BUFFER ADDRESS IN CURRENT AREA
	MEMINC	SELA,SP5
	SP	MEMX,SELB,SP2	;SAVE OLD FLAGS IN SP2
	BRWRTE	IMM,<DR.CBA!DR.ABA>	;STRIP ALL BUT THESE
	BRWRTE	BR,AANDB,SP2	;AND LOAD IT NTO BR
	MEM	BR,AORB,SP0	;OR IN NEW FLAGS
 
;CHECK IF RECEIVE OR TRANSMIT OPERATION
	BRWRTE	IMM,D.RDP	;SET BR TO
	BRWRTE	BR,ADD,SP.RM0	;RAM ADDRESS OF D.RDP
;IF THIS IS A RECEIVE OPERATION,SP6 WILL BE EQUAL TO THIS VALUE
	COMP	BR,SP6		;BR=SP6?
	Z	NXRBUF		;SP6=ADDRESS OF D.RDP,RECEIVE OPERATION

;TRANSMIT OPERATION,DO SPECIAL THINGS FOR IT
;READ READ CHARACTER INTO D.OXC IF THE FIRST BUFFER ADDRESS IS ODD
	BRWRTE	DECA,SP4,INCMAR	;SP4 HAS LOW BYTE OF BUFFER ADDRESS
	BR0	30$		;ADDRESS IS EVEN
;FIRST TRANSMIT BUFFER ADDRESS IS ODD,MOVE FIRST CHARACTER INTO D.OXC
10$:
	OUTPUT	BR,SELB,IBA1	;SET ADR 7:0 OF XMT BUFFER
	BRWRTE	SELA,SP5	;SP5 HAS ADR 15:8
	OUTPUT	BR,SELB,IBA2	;SET ADDRESS 15:8
	BRWRTE	IMM,BIT3!BIT2	;MASK TO ISOLATE EXT ADDRESS
	SP	BR,AANDB,SP0	;SP0=EXT ADDRESS
	OUT	INCA,ONPR	;START NPR (SP0 HAS EXT ADDRESS)
20$:	BRWRTE	IBUS,NPR	;WAIT FOR NPR TO COMPLETE
	BR0	20$
30$:
; MAR IS NOW POINTING TO D.OXC
	MEMINC	IBUS,INDAT2		;SAVE ODD CHARACTER
	MEMINC	IMM,SYNCNT		;RESET SYNC COUNT
;RAISE REQUEST TO SEND IF IT IS NOT ALREADY SET
	BRWRTE	SELA,SP.CS0		;RTS SET?
	BRSHFT
	BR1	NXBEXT			
	MEM	IMM,0			;CLEAR ABORT FLAGS **V0.7**
	BRWRTE	IMM,DUPRTS	;SET RTS
	SPBR	BR,AORB,SP.CS0	;OR MASK WITH ORIGINAL DUP REGISTER
	OUTPUT	BR,SELB,OUTDA1	;SHIP IT INTO DUP REGISTER
	CALLSB	SP.SUB,ADRCSR	;ADDRESS DUP
;************ ULTIMATE RETURN FOR BA & CONTROL OUT*************
 
NXBEXT:	RTNSUB	SP.SB1,P2	;RETURN
 
;***************************************************************
 
;ASSIGNING RECEIVE BUFFER,SET FIRST CHR IN BUFFER
NXRBUF:
	BRWRTE	IMM,DR.LST!DR.ABA!DR.CBA!DR.17!DR.16	;CLEAR IRRELEVANT BITS *V0.7*
	SP	MEMX,SELB,SP0	;SP0=FLAGS
	SP	BR,AANDB,SP0	;SAVE THE RELEVANT BITS *V0.7*
	.IIF	NE	DR.FST-1	.ERROR 	;INCA NO LONGER SETS DR.FST
	MEM	INCA,SP0	;SET FIRST CHR IN BUFFER FLAG
	RTNSUB	SP.SB1,P2
;NOTE: RECEIVER WAS ENABLED AT CONTROL TIME
	.SBTTL	ERROR PROCESSING ROUTINES

;+
; **DUPRER-ERROR DETECTED BY DUP OR MICROCODE ON THE RECEIVER
;
; ENTERED FROM:	RCVDON
;
; INPUTS:
;	MAR = RECEIVE STATE POINTER
; OUTPUTS:
;	CONTROL OUT IS GENERATED.
;	FALL INTO RESYNC AND RETURN TO TIMER ROUTINE
;-

; DUP HARDWARE DETECTED RECEIVE ERROR
 
DUPRER:
 
; DUP HARDWARE HAS DETECTED AN ERROR ON RECEIVED CHARACTER. ANALYZE IT.
 
	BR4	ERR12		;CRC ERROR
	BRWRTE	TWOA,SP.RST	;SHIFT RECEIVE STATUS LEFT
	BR7	OVRUN		;CHARACTER OVERRUN
;
; OTHERWISE MUST BE ABORT
;
ABORT:
 
	BRWRTE	IMM,ER.ABO		;ERROR CODE
	ALWAYS	RERROR			;SEND A CONTROL OUT

; 
; INVALID DDCMP HEADER BCC
; ENTERED FROM:	RHCRC2
; 
ERR10:
 
	BRWRTE	IMM,ER.HBC	;ERROR CODE INTO BR
	ALWAYS	RERROR		;EXECUTE COMMON ERROR SUBROUTINE
 
; 
; BCC ERROR ON RECEIVED MESSAGE
; ENTERED FROM:	DUPRER,RDCRC2 
ERR12:
 
	BRWRTE	IMM,ER.CRC	;ERROR CODE INTO BR
	ALWAYS	RERROR		;COMMON ERROR CODE
 
 
; CHARACTER OVERRUN
 
OVRUN:
 
	BRWRTE	IMM,ER.OVR	;ERROR CODE
				;FALL INTO RERROR
;SEND CONTROL OUT
 
RERROR:
 
	SP	BR,SELB,SP3	;ERROR CODE INTO SP3
	CALLSR	SP.SB1,ENTRY2,RERRP2,C.CLOR ;CONTROL OUT SUB ROUTINE
ERREXT:				;RETURN HERE AFTER SUBROUTINE
;	FALL INTO RSNCRT
	.SBTTL	RSNCRT - RESYNC AND RETURN TO TIMER
;+
;
;	**RSNCRT-RESYNC RECEIVER AND RETURN TO TIMER POLLING LOOP
;
; ENTERED FROM:	DUPRER,RDH1,MSGIN
;
; INPUTS:	NONE
; OUTPUTS:
;	SET UP RETURN TO TIMER THEN FALL INTO RESYNC
;-

RSNCRT:
	BRADDR	TIMRP2		;RETURN TO TIMER VIA PAGE 2
	SP	BR,SELB,SP.SB1
;	ALWAYS	RESYNC		;AFTER RESYNCING THE RECEIVER
; FALL INTO RESYNC
	.SBTTL	RESYNC-RESYNC DUP-11 RECEIVER
 
;+
;	R E S Y N C  D U P-1 1  R E C E I V E R
;
; ENTERED FROM:	RSNCRT
; CALLED BY:	ERREXT,KILLRC,STORE
; 
;INPUTS:
;	SP.SB1=RETURN ADDRESS
;	SP.CS0=RECEIVE STATUS REGISTER LOW BYTE
;OUTPUTS:
;	CURRENT DUP-11 RECEIVER ENABLE BIT IN ITS RECEIVE STATUS REGISTER
;	IS CLEARED.IT IS THEN SET THUS INITIALIZING DUP RECEIVER LOGIC.
;	RECEIVER STATE POINTER IS RESET.
;	RETURN TO ADDRESSES IN PAGE TWO
;-
 
RESYNC:
 
;CLEAR RECEIVE ENABLE BIT
	LDMAP	SELA,SP.RM1		;SET UP PAGE ADDRESS
	BRWRTE	IMM,<377-DUPREN>
	SPBR	BR,AANDB,SP.CS0	 	;LOAD ORIGINAL STATUS WITH RCV ENABLE
	OUTPUT	BR,SELB,OUTDA1	;BIT CLEARED INTO OUTDA1
	CALLSB	SP.SUB,ADRCSR	;SET UP OUT BA TO DUP'S CSR AND DO A
				;BYTE NPR
 
;NOW SET RECEIVE ENABLE BIT
 
	BRWRTE	IMM,DUPREN	;MASK TO SET REC ENABLE BIT
	SPBR	BR,AORB,SP.CS0	;MASK IN THE ORIGINAL STATUS
	OUTPUT	BR,SELB,OUTDA1	;AND RECEIVE ENABLE BIT INTO OUTDA1
	BRWRTE	IMM,DATOB	;WRITE IT INTO 
	OUT	BR,SELB,ONPR	;RECEIVE STATUS REGISTER
;	***NPR STARTED***
; RESET RECEIVE PARAMETERS
	BRWRTE	MEMX,SELB,INCMAR	;BR=D.STS,ADDRESS D.RPTR
 
;RESET RECEIVE STATE POINTER FOR DDCMP/BITSTUFF
 
	RSTATE	RDH1		;SET DDCMP INTIAL RECEIVE STATE
	BRSHFT
	BR4	20$		;BRANCH IF DEC MODE
	RSTATE	RB1		;SET BIT STUFF INITIAL STATE
20$:	BRWRTE	IBUS,NPR	;WAIT FOR PREVIOUS NPR TO COMPLETE
	BR0	20$		;NOT YET
	RTNSUB	SP.SB1,P2	;RETURN TO PAGE 2
	.SBTTL	SETRBA-SET OUTBA TO CURRENT INPUT ADDRESS IN USER RECEIVE BUFFER
 
;+
; 	SET OUTBA TO CURRENT INPUT ADDRESS IN RECEIVE BUFFER
;
; CALLED BY:	STORE,STRODD,EOFMSG
;
; INPUTS:
;	SP.SUB = RETURN ADDRESS ON PAGE 2
;	MAR = D.RBDA
; OUTPUTS:
;	OBA,OBR	= ADDRESS POINTED TO BY MAR
;	MAR	= D.RBDF
;-
 
SETRBA:
 
	OUTPUT	MEMI,SELB,OBA1	;SET OUTBA 7:0
	OUTPUT	MEMI,SELB,OBA2	;SET OUTBA 15:0
	SP	IBUS,UBBR,SP0	;SP0=BUS REQUEST REGISTER
	BRWRTE	IMM,101		;MASK TO CLEAR ALL BUT VEC XX4,NXM BITS
	SP	BR,AANDB,SP0
	BRWRTE	IMM,14		;MASK TO CLEAR UNWANTED BITS IN EXT. ADDRESS
	SP	BR,SELB,SP1	;SAVE THE MASK IN SP1
	BRWRTE	MEMX,AANDB,SP1	;BR=JUST THE EXT ADR
	OUT	BR,AORB,OBR	;OR IN THE EXT ADDRESS
	RTNSUB	SP.SUB,P2	;RETURN TO PAGE 2
	.SBTTL	DECDCC-DECREMENT DDCMP DATA CHARACTER COUNT
 
;+ 
; 
;	D E C R E M E N T  D D C M P  D A T A  C H A R A C T E R  C O U N T
; 
; CALLED BY:	RDDATA
; 
;INPUT:
;	SP.SUB=RETURN ADDRESS
;OUTPUT:
; DDCMP DATA CHARACTER COUNT FOR THE CURRENT MESSAGE IS DECREMENTED BY ONE.
;	C BIT IS SET IF AND ONLY IF THE NEW BYTE COUNT IS NOT -1
;	COMMON CODE IN DECNT IS USED.
;- 
 
DECDCC:
 
;ADDRESS DDCMP DATA CHARACTER COUNT SAVE AREA IN RAM
	BRWRTE	IMM,D.DCC1
	ALWAYS	DECNT		;EXECUTE COMMON CODE
	.SBTTL	DRCNT/DECNT-DECREMENT BUFFER COUNT
 
;+ 
; 
;	D E C R E M E N T  B U F F E R  B Y T E  C O U N T
; 
; CALLED BY:	STORE
; DECNT CALLED BY:	XMTDON
; 
;INPUT:
;	SP.SUB=RETURN ADDRESS
;OUTPUT:
;	BYTE COUNT FOR THE CURRENT LINE IS DECREMENTED BY ONE
;	C BIT IS SET IF AND ONLY IF THE NEW BYTE COUNT IS NOT -1
;	MAR IS LEFT POINTING TO ADDRESS FOLLOWING BYTE COUNT
;
; SCRATCH PADS USED:	SP1,SP.RM0,SP.SUB
;-
 
DRCNT:
 
; ADDRESS RECEIVE BYTE COUNT SAVE AREA (D.RBDC)
	BRWRTE	IMM,D.RBDC

;
; FOLLOWING CODE IS SHARED BY DECDCC AND DRCNT.
; INPUTS:	BRG = LINE TABLE OFFSET OF BYTE COUNT
;
 
DECNT:
	LDMA	BR,ADD,SP.RM0	
	SP	MEMX,SELB,SP1	;GET LOW BYTE COUNT INTO SP1
	MEMINC	DECA,SP1	;DECREMENT IT AND WRITE IT BACK
	Z	10$		;BRANCH IF ZERO
	INCMA			;INCREMENT PAST HIGH BYTE OF COUNT
	RTNSUB	SP.SUB,P2	;RETURN TO CALLLER

; BORROW FROM HIGH BYTE, DECREMENT HIGH BYTE
10$:	SP	MEMX,SELB,SP1	;GET HIGH BYTE INTO SP1
	MEMINC	DECA,SP1	;DECREMENT IT AND STORE IT BACK
	RTNSUB	SP.SUB,P2	;RETURN
	.SBTTL	INCOUT/IC2OUT/INCOB-OUT NPR TO CURRENT ADDRESS+OFFSET
 
;+ 
;
;		INCREMENT OUTBA AND OUTPUT  SUBROUTINE	
;
; CALLED BY: (INCOB):	BAIN
;            (IC2OUT):	CONIN,XMTBCZ,COUT
; 
; INPUTS:
;	BR	=INCREMENT
;	SP.SUB	=RETURN ADDRESS
;	ENTRY POINTS INCOUT,IC2OUT,INCOB
; 
; OUTPUTS:
;	THE DEVICE ADDRESS (OUT BA 17:0) FOR AN OUT NPR OPERATION
; IS INCREMENTED BY A FACTOR EQUAL TO THE CONTENTS OF BR.
; THEN A BYTE OR WORD TRANSFER WITH OR WITHOUT BUSHOLD IS PERFORMED DEPENDING
; ON THE ENTRY POINT.
; RETURNED TO THE ADDRESS IN CURRENT PAGE SPECIFIED BY SP.SUB
; BUSHOLD ENTRYS REMOVED BECAUSE OF INTERFERENCE PROBLEMS
; 
; REGISTERS USED:
;	BR,UBBR,SP0,SP1,SP.SUB
; 
; REGISTERS DESTROYED (OR CHANGED)
;	BR,UBBR,SP0,SP1
;- 
 
; ENTRY POINT TO DO BYTE NPR WITHOUT BUS HOLD
INCOB:
	SP	IMM,221,SP1	;MASK TO DO BYTE OUT NPR ***TRICKY INSTR***
	ALWAYS	INCOT1		;COMMON CODE


;ENTRY TO INCREMENT BY 2 AND DO WORD TRANSFER
IC2OUT:
	BRWRTE	IMM,2

 
; ENTRY TO DO WORD TRANSFER WITHOUT BUS HOLD
INCOUT:
	SP	IMM,21,SP1	;MASK TO DO WORD OUT NPR ****TRICKY INSTR***
 
INCOT1:
; INCREMENT OUTBA 7:0
 
	SP	IBUS,IOBA1,SP0	;READ OUTBA7:0 INTO SP0
	OUTPUT	BR,ADD,OBA1	;ADD INCREMNT AND RESTORE(SP0 IS SELECTED
 
; INCREMENT OUTBA 15:0
 
10$:	SP	IBUS,IOBA2,SP0	;READ OUTBA15:8 INTO SP0
	OUTPUT	BR,APLUSC,OBA2	;ADD CARRY TO OUTBA15:8(SP0 SELECTED)
	C	30$		;CARRY,INCREMENT EXTENDED ADDRESS
20$:	ALWAYS	40$		;NPR AND RETURN
 
; INCREMENT OUTBA 17:16
30$:	SP	IBUS,UBBR,SP0	;LOAD UBBR INTO DP0
	BRWRTE	IMM,4		;ADD ONE TO EXT. ADDRESS
	SP	BR,ADD,SP0	
	BRWRTE	IMM,115		;MASK TO SET CLOCK BIT=0
	OUT	BR,AANDB,OBR	;STORE UPDATED VALUE INTO UBBR

;NOW DO THE NPR
40$:
	SP	IBUS,NPR,SP0	;GET NPR REGISTER INTO SP0
	BRWRTE	IMM,155		;STRIP NPR CONTROL BITS
	BRWRTE	BR,AANDB,SP0	;SAVE RESULTS IN BR
	BRWRTE	BR,AORB,SP1	;OR IN THE NEW NPR CONTROL BITS
	OUT	BR,SELB,ONPR	;LOAD THE NEW BYTE INTO NPR REGISTER

; WAIT FOR NPR TO COMPLETE
WAIT:
10$:	BRWRTE	IBUS,NPR	;WAIT FOR NPR TO COMPLTE
	BR0	10$
	RTNSUB	SP.SUB,P0
	.SBTTL	ADRCSR-SET OUTBA=DUP'S CSR ADDRESS
 
;+ 
; 
;		SET OUTBA TO DUP CSR
;
; CALLED BY:	NXDSCP, RESYNC
;
;INPUTS:
;	SP.SUB	=RETURN ADDRESS
;	OUTDA1 = VALUE TO BE WRITTEN TO DUP'S CSR0
;OUTPUTS:
;	OUTBA=ADDRESS OF CURRENT DUP
;	START A BYTE NPR TO CSR0 AND WAIT FOR ITS COMPLETION
;	MAR = D.STS
;-
 
ADRCSR:
	BRWRTE	IMM,D.CSR	;ADDRESS D.CSR
	LDMA	BR,ADD,SP.RM0
	OUTPUT	MEMI,SELB,OBA1	;SET OUTBA 7:0
	OUTPUT	MEMI,SELB,OBA2	;SET OUTBA 15:8
	SP	IBUS,UBBR,SP0	;GET BUS REQ REG
	BRWRTE	IMM,101		;KEEP VEC XX4,NXM BITS
	SP	BR,AANDB,SP0
	BRWRTE	IMM,14		;SET EXT ADDRESS BITS
	OUT	BR,AORB,OBR	;SP0 IMPLIED FOR B SIDE
	BRWRTE	IMM,DATOB	;BYTE OUT NPR MASK
	OUT	BR,SELB,ONPR	;START THE NPR
	ALWAYS	INCIN1		;RETURN VIA SP.SUB,P3
				;USE CODE IN INCIN
 



;*** PAGE 3 RETURN TO TIMER FOR RECEIVE ROUTINES ***
.IIF NE	<TIMRP3-START/1000-3>	.ERROR	;PAGE 3 RELOCATION ERROR TIMRP3
TIMRP3:	ALWAYS	TIMRTN		;RETURN TO POLLING LOOP FROM DSRCHG
	.SBTTL	NXTTBL - ROUTINE TO CALCULATE THE ADDRESS OF THE NEXT TABLE
;	FILE	SUBR.MAC
 
;+
; **-NXTTBL-CALCULATE RAM ADDRESS OF NEXT LINE'S TABLE**
;
; CALLED FROM:	INIT
;
; INPUTS:
;	SP.RM0-1 = PREVIOUS RAM TABLE ADDRESS
;
; OUTPUTS:
;	MAR AND SP.RM0-1 ARE SET TO ADDRESS OF NEXT TABLE ENTRY
;-
NXTTBL:
	BRWRTE	IMM,D.LNG	;GET THE LENGTH OF A RAM TABLE ENTRY
	SP	BR,ADD,SP.RM0,LDMAR	;POINT TO NEXT ENTRY AND LOAD MAR
	NODST	BR,ADD,SP.RM0	;WOULD THIS LINE TABLE CROSS A PAGE BOUNDARY?
	C	10$		;YES, MAKE IT START AT THE BEGINNING OF THE
				;NEXT PAGE
	LDMAP	SELA,SP.RM1		;LOAD MAR HIGH
	ALWAYS	INIT1		;BACK TO INITIALIZE LOOP

10$:	SP	APLUSC,SP.RM1,LDMAPG	;INCREMENT THE PAGE NUMBER AND LOAD
				;MAR HIGH
	BRWRTE	IMM,0		;ZERO THE BRG
	SP	BR,SELB,SP.RM0,LDMAR	;ZERO THE LOW 8 BITS OF THE MAR AND
				;SP.RM0
	ALWAYS	INIT1		;BACK TO INITIALIZE LOOP
	.SBTTL	INCIN/INCINH/IC2IN - EIGHTEEN BIT ADD TO INPUT ADDRESS
;+
; **INCIN/INCINH-ROUTINE TO DO 18 BIT TO THE INPUT ADDRESS**
;
; CALLED BY: (IC2IN):	NXDSCP
;
; CALLING SEQUENCE:
;	CALLSB	SP.SUB,INCIN,ADDEND	;ADD "ADDEND" TO IN BA AND DO
;					;AN NPR WITH BUS HOLD CLEAR
;	CALLSB	SP.SUB,INCINH,ADDEND	;ADD "ADDEND TO IN BA AND DO
;					;AN NPR WITH BUS HOLD SET
;	CALLSB	SP.SUB,IC2IN		;ADD 2 TO IN BA AND DO AN NPR
;					;WITH BUS HOLD CLEAR
;					;N.B. CALLING SEQUENCE IS ONE INSTR LESS
;
; INPUTS:
;	INPUT BUFFER ADDRESS MUST BE SET UP IN THE I/O BUS INCLUDING
;	THE EXTENDED MEMORY BITS IN THE NPR CONTROL REGISTER
;
;	BRG = ADDEND
;
; OUTPUTS:
;	THE INPUT ADDRESS IS INCREMENTED BY THE BRG CONTENTS, THE NPR IS STARTED
;	AND THE ROUTINE WAITS FOR IT TO COMPLETE.
;	NOTE: BUS HOLD OPTIONS NOT USED TO PREVENT INTERFERENCE WITH OTHER
;	 UNIBUS DEVICES.
;-
	.ENABL	LSB

;*******************************
;INCINH:	SP	IMM,0,SP1	;WRITE A ONE TO SP 1 ***** TRICKY INSTRUCTION ****
;	SP	BR,INCA,SP1	;MAKE IT A TWO IN ORDER TO MASK ON BUS HOLD BIT
;	ALWAYS	5$		;TO COMMON CODE
;***** ABOVE CODE NOT USED******
 
IC2IN:	BRWRTE	IMM,2		;MOST COMMON INCREMENT VALUE
				;FALL INTO INCIN
INCIN:
;**************
;	SP	IMM,1,SP1	;WRITE A ONE TO SCRATCH PAD ONE **** TRICKY INSTR.****
;				;LEAVES BIT 1 A ZERO TO MASK OFF BUS HOLD
;**************

5$:	SP	IBUS,IIBA1,SP0	;GET THE CURRENT LOW BYTE OF THE INPUT ADDRESS
	OUTPUT	BR,ADD,IBA1	;NEW LOW BYTE OF INPUT ADDRESS
	SP	IBUS,IIBA2,SP0	;GET THE HIGH BYTE OF THE INPUT ADDRESS
	OUTPUT	APLUSC,IBA2	;ADD ANY CARRY FROM PREVIOUS ADD TO HIGH BYTE
	SP	IBUS,NPR,SP0	;GET THE NPR REGISTER CONTENTS
	C	50$		;A PLUS C CAUSED A CARRY TO EXTENDED MEMORY BITS
30$:	BRWRTE	IMM,16		;MASK TO EXT. MEM. BIT OVERFLOW
	SP	BR,AANDB,SP0	;MASK OFF UNWANTED BITS
	OUT	BR,INCA,ONPR	;START THE NPR

; THE FOLLOWING CODE SHARED WITH ADRCSR
INCIN1:
40$:	BRWRTE	IBUS,NPR	;READ THE NPR CONTROL REGISTER
	BR0	40$		;WAIT FOR THE NPR TO FINISH
	RTNSUB	SP.SUB,P3	;RETURN TO CALLER
 
50$:	BRWRTE	IMM,4		;VALUE TO ADD TO INCREMENT EXTENDED MEMORY
	SP	BR,ADD,SP0	;ADD TO PREVIOUS EXTENDED MEM BITS
	ALWAYS	30$		;BRANCH TO COMMON CODE
	.DSABL	LSB
	.SBTTL	INCMEM - EIGHTEEN BIT ADD TO ADDRESS POINT TO BY MAR
;+
; **INCMEM-18 BIT ADD TO RAM**
;
; CALLED BY: (INCMEM):	RCVEXT, NXBUF
;             (INCMM):	XMTDON
;
; CALLING SEQUENCE:
;	CALLSB	SP.SUB,INCMEM,ADDEND
;		OR
;	CALLSB	SP.SUB,INCMM	;TO INCREMENT MEMORY BY STATE OF "C" BIT
;
; INPUTS:
;	MAR = ADDRESS IN RAM OF LOW BYTE TO DO ADD
;	BRG = ADDEND
; INPUTS TO INCMM:
;	MAR = SAME AS ABOVE
;	"C" BIT SET OR CLEAR
; OUTPUTS:
;	RESULT IS IN RAM
;	MAR = ORIGINAL MAR + 2
;
;	USES SCRATCH PAD 0
;-

INCMEM:	SP	BR,SELB,SP0	;MOVE ADDEND TO SP 0
	MEMINC	MEMX,ADD,SP0	;ADD TO LOW BYTE OF RAM
INCMM:
	SP	MEMX,SELB,SP0	;MOVE HIGH BYTE FROM RAM TO SP0
	MEMINC	BR,APLUSC,SP0	;ADD CARRY FROM LOW BYTE
	C	10$		;LAST ADD CAUSE CARRY TO EXTENTED MEMORY BITS
	RTNSUB	SP.SUB,P1	;ALL DONE
10$:	SP	MEMX,SELB,SP0	;READ EXTENDED MEMORY BITS
				;IN POSITIONS 2 & 3
	BRWRTE	IMM,4		;INCREMENT EXTENDED MEMORY BITS
	MEM	BR,ADD,SP0	;ADD "ONE" OF HIGH ORDER BITS
	RTNSUB	SP.SUB,P1	;RETURN TO CALLER
	.SBTTL	NXMERR - NONEXISTENT MEMORY ERROR
;+
; **NXMERR-MICROPROCESSOR HAS DETECTED A NONEXISTENT MEMORY ERROR**
;
; CALLED BY:	RDICLR, TIMER
;
; OUTPUTS:
;	CONTROL OUT IS GENERATED
;	N.B. THE NXM ERROR IS CHECKED ONLY AFTER SERVICING A USER
;	REQUEST  (RQI) AND AFTER SERVICING A DUP NOT AFTER EACH
;	NPR. THUS THE ONLY RELEVANT INFORMATION IS THE LINE NUMBER.
;-

NXMERR:
	BRWRTE	IMM,100		;MASK TO PRESERVE STATE OF XX4 BIT
	OUT	BR,AANDB,OBR	;CLEAR NXM ERROR BIT
	CALLSB	SP.SUB,COUTX,ER.NXM	;POST THE ERROR
	ALWAYS	IDLE		;BACK TO IDLE LOOP




	.SBTTL	PATCH - PATCH AREA
;+
; **PATCHA - PATCH MSGIN
; ENTERED FROM:	MSGIN
; INPUTS:
;	BRG	= SP.STS SHIFTED LEFT ONE
; OUTPUTS:
;	GOTO RSNCRT IF Q-SYNC SET (LS.QSC)
;	GOTO TIMRTN IF NOT
;-

PATCHA:	BR7	RSNCRT		;RESYNC RECEIVER AND RETURN TO TIMER
	ALWAYS	TIMRTN		;RETURN TO TIMER

	$KDPML==.-$KDPMC+63./64.		;NUMBER OF 32 WORD BLOCKS
	.END