Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - dndh11.c10
There is 1 other file named dndh11.c10 in the archive. Click here to see a list.
 REP 1/1	;10C1
	.SBTTL	DNDH11 - DH11 ASYNCHRONOUS LINE INTERFACE  4 MAY 83
 WIT
	.SBTTL	DNDH11 - DH11 ASYNCHRONOUS LINE INTERFACE  4 DEC 84
 REP 8/1	;10C2
	VRDH11=030			;FILE EDIT NUMBER
 WIT
	VRDH11=033			;FILE EDIT NUMBER
 REP 18/1	;10C3
	DHSPD:
		PIOFF				; DON'T WANT ANYONE ALTERING THE DH LINE
		BIC	#17,(R0)		; CLEAR LINE SELECT
		BISB	R2,(R0)			; SELECT THE LINE
		MOV	R1,-(P)			; SAVE SPEEDS
 WIT
	DHSPD:	PIOFF				; DON'T WANT ANYONE ALTERING THE DH LINE
		MOV	R1,-(P)			; SAVE SPEEDS
		BIC	#17,(R0)		; CLEAR LINE SELECT
		BISB	R2,(R0)			; SELECT THE LINE
 REP 47/1	;10C4
		CMP	#B.134,(P)+		; IS THIS THE SPEED OF A 2741
 WIT
		CMP	#B.134,(P)		; IS THIS THE SPEED OF A 2741
 REP 52/1	;10C5
		MOV	R2,R1			; FOR SETSPD
	97$:	PION
 WIT
	97$:	MOV	(P)+,R1			; RETURN VALID SPEED IN R1
		PION				; RESTORE PI LEVEL
 REP 57/1	;10C6
	98$:	CLR	(P)+			; POP SPEED OFF
		PION
		SEC				; FLAG ERROR
		RTS	PC

 WIT
	98$:	TST	(P)+			; POP BOGUS SPEED VALUE
		PION				; RESTORE PI LEVEL
		SEC				; FLAG ERROR
		RTS	PC
 REP 20/6	;10C7
		TST	@R1			;CHECK STATUS WORD
		BMI	10$			;BE SURE INT WAS LEGIT
 WIT
		BIT	#DH.NXM,@R1		;DID THE DH GET A NXM?
		BEQ	10$			;NO, NORMAL INTERRUPT
 REP 29/6	;10C8
	10$:	BIC	#100000,@R1		;CLEAR FLAG
 WIT
	10$:	BIC	#DH..TI,@R1		;CLEAR TRANSMIT-INTERRUPT FLAG
 SUM 194669