Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-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