Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - initia.c13
There are no other files named initia.c13 in the archive.
 REP 29/1	;13C1
	INTEDT==240		; EDIT LEVEL
 WIT
	INTEDT==254		; EDIT LEVEL
 INS 241/3	;13C2
	;254	10-35378	DRB 14-Nov-85
	;	THE TTY STOMPER IS ZERO BAUDING LINES TOO SOON, AS IT HAS THE MISTAKEN
	;	IMPRESSION THAT IT CAN ZERO THE LINE'S INPUT CHARACTER COUNT.  DON'T
	;	TRY TO DO THIS, AND JUST USE THE PREVIOUS SAVED CHARACTER COUNT FOR
	;	COMPARISONS.
	;
 REP 40/19	;13C3
		 SETZ	T4,		; WE RESET IT. IF WE CAN'T, ASSUME 0.
		SKIPN	T4		;DID WE GET ANYTHING?
 WIT
		 MOVE	T4,@TTWPCT	;IF WE CAN'T, ASSUME NO CHARACTERS
		HRRZI	T7,-.UXTRM(T2)	;COPY THE TERMINAL'S NUMBER
		CAMG	T4,@TTWPCT	;DID WE GET ANYTHING?
 REP 42/21	;13C4
		MOVE	T1,[3,,T2]	;WE ARE GOING TO SET A VALUE THIS TIME
		MOVEI	T2,.TOICT+.TOSET;NUMBER OF CHARACTERS SEEN. RESET IT.
		SETZ	T4,		;TO ZERO. (SO WE CAN DO A SKIPN TO CHECK)
		TRMOP.	T1,		;CLEAR NUMBER OF CHARACTERS SEEN.
		 JFCL			;SHOULDN'T HAPPEN, CAN'T HELP IT IF IT DOES.
 WIT
		MOVE	T1,[2,,T2]	;TRMOP. ARG POINTER TO
		MOVEI	T2,.TOICT	;READ INPUT CHARACTER COUNT
		TRMOP.	T1,		;GO READ IT
		 MOVE	T1,@TTWPCT	;CAN'T? JUST USE AN OLD VALUE
		MOVEM	T1,@TTWPCT	;STORE NUMBER OF CHARACTERS SEEN.
 SUM 204520