Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - dntty.c09
There is 1 other file named dntty.c09 in the archive. Click here to see a list.
 REP 1/1	;09C1
	.SBTTL	DNTTY - TERMINAL ROUTINES  10 AUG 83
 WIT
	.SBTTL	DNTTY - TERMINAL ROUTINES  21 AUG 84
 REP 8/1	;09C2
	VRTTY=110			;FILE EDIT NUMBER
 WIT
	VRTTY=111			;FILE EDIT NUMBER
 REP 55/2	;09C3
		.BYTE	0		;DB.EPL
			SETLCB	\NXTDH
 WIT
		.BYTE	0			;DB.EPL
			SETLCB	\NXTDH		;DB.LCB
 REP 52/4	;09C4
			SETLCB	\NXTDZ
 WIT
			SETLCB	\<NXTDZ+<NDH11*20>>  ;DB.LCB
 REP 48/6	;09C5
		.BYTE 	0,0,0,0,0,0		; DB.FIL
		.BYTE	0		;DB.EPL
			SETLCB	\NXTDH
 WIT
		.BYTE 	0,0,0,0,0,0		;DB.FIL
		.BYTE	0			;DB.EPL
			SETLCB	\NXTDH		;DB.LCB
 REP 47/7	;09C6
		.BYTE 	0,0,0,0,0,0		; DB.FIL
		.BYTE	0		;DB.EPL
			SETLCB	\NXTDZ
 WIT
		.BYTE 	0,0,0,0,0,0		;DB.FIL
		.BYTE	0			;DB.EPL
			SETLCB	\<NXTDZ+<NDH11*20>>  ;DB.LCB
 INS 43/15	;09C7
		BIC	#DS.IST,@J		;LET THE -10 GENERATE THE XON
 REP 14/25	;09C8
	1$:	CMP	#20,JIFFLG		;IF CLOCK LEVEL HAS RUN WITHIN
		BGE	XMT.0			; THEN IT'S OK TO RUN
		MOVB	#3,DB.TIM(J)		;IF WE'VE BEEN TYING UP THE MACHINE
	5$:	RTS	PC			;MAKE SURE IRMA CATCHES US SOON,
						; AND SHUT DOWN THIS LINE
 WIT
	1$:	CMP	#20,JIFFLG		;IF CLOCK LEVEL HAS RUN RECENTLY
		BGE	XMT.0			; THEN IT'S OK TO RUN TERMINALS NOW
		MOVB	#3,DB.TIM(J)		;IF WE'VE BEEN TYING UP THE MACHINE
		BIS	#DS.ACT,@J		;FLAG THE LINE AS "ACTIVE"
	5$:	RTS	PC			;BUT OTHERWISE SHUT IT DOWN
						; (LETTING IRMA RESTART IT LATER)

 INS 16/34	;09C9
		CMPB	#LCS.RU,LC.STA(R2)	;LINE O.K.?
		BGT	LRTS			;IF IT ISN'T, PUNT THE CHAR
		CMPB	#LCS.RC,LC.STA(R2)	;LINE O.K.?
		BLT	LRTS			;IF IT ISN'T, PUNT THE CHAR	
 DEL 3/35	;09C10
		MOV	DB.LCB(J),R2		;GET POINTER TO LCB,
		CMPB	#LCS.RU,LC.STA(R2)	;LINE OK?
		BGT	LRTS			; IF IT ISN'T, PUNT THE CHAR
		CMPB	#LCS.RC,LC.STA(R2)	;LINE OK?
		BLT	LRTS			; IF IT ISN'T, PUNT THE CHAR
 SUM 2647