Google
 

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_1_19910112 - 7/ft3/monitor/stanford/tvtsrv.dif
There are no other files named tvtsrv.dif in the archive.

; TVTSRV.MAC.1 & <MONITOR>TVTSRV.MAC.1 24-Feb-89 1919	PAGE 1



LINE 1, PAGE 1
1)	;[MACBETH.STANFORD.EDU]SRC:<7.FT2.MONITOR.STANFORD>TVTSRV.MAC.3, 20-Jun-88 15:41:32, Edit by A.ALDERSON
1)	; V7.0 FT Clock tape
1)	;[MACBETH]SRC:<7.FT2.MONITOR.STANFORD>TVTSRV.MAC.2,  7-Apr-88 14:41:39, Edit by A.APPLEHACKS
1)	; FT7.2 Merge
1)	;[MACBETH]SRC:<7.FT1.MONITOR.STANFORD>TVTSRV.MAC.2,  1-Feb-88 20:50:18, Edit by A.APPLEHACKS
1)	;FT7 Merge - Change to TVTCSO to correct IFN STANSW'ing [ESC]
1)	;;SRC:<6.1.MONITOR.STANFORD>TVTSRV.MAC.26,  3-Mar-87 18:02:28, Edit by ALDERSON
1)	;; at TVTSOF+11, change CAIN T2,0 to CAIG T2,0
1)	;;PS:<6-1-MONITOR>TVTSRV.MAC.25,  4-Aug-86 16:41:35, Edit by BILLW
1)	;; allow for TSMXP being smaller than a TTY buffer.
1)	;;PS:<6-1-MONITOR>TVTSRV.MAC.23, 11-Mar-86 17:33:48, Edit by BILLW
1)	;; from opscan, call FRCTVT or ENCTVT instead of FRCPKT/ENCPKT
1)	;;PS:<6-1-MONITOR>TVTSRV.MAC.21, 30-Jan-86 02:45:13, Edit by BILLW
1)	;; in TVTCSO, set bit in TVTSOQ. scan this bit table in OPSCAN.
1)	;;PS:<6-1-MONITOR>TVTSRV.MAC.16, 17-Jan-86 01:25:23, Edit by BILLW
1)	;; in OPSCAN assume that rxmit q will be empty if we are really dealing
1)	;; with echos, and otherwise allow more data to collect.
1)	;;PS:<6-1-MONITOR>TVTSRV.MAC.14, 29-Nov-85 20:09:37, Edit by BILLW
1)	;; Call SETOBF at TVTOPN
1)	;; Count TVT output in total bytes sent !
1)	;;PS:<6-1-MONITOR>TVTSRV.MAC.13, 29-Nov-85 17:43:01, Edit by BILLW
1)	;; Count TVT input and output characters and packets
1)	;;PS:<6-1-MONITOR>TVTSRV.MAC.10,  4-Nov-85 19:42:27, Edit by BILLW
1)	;; at TVTSOF, use enough output buffers to fill a packet.
1)	;;PS:<6-1-MONITOR>TVTSRV.MAC.9, 28-Oct-85 19:57:22, Edit by BILLW
1)	;; call FRCPKT instead of ENCPKT if output buffers are full. ??is this good??
1)	;;<6-1-MONITOR.FT6>TVTSRV.MAC.2, 12-Aug-85 18:14:16, Edit by WHP4
1)	;; Stanford changes:
1)	;; In TVRRH, if GTHST% fails, say "No Node Name Known"
1)	;
1)	; UPD ID= 8638, RIP:<7.MONITOR>TVTSRV.MAC.3,  11-Feb-88 18:55:52 by GSCOTT
1)	;TCO 7.1218 - Update copyright date.
1)	; *** Edit 7230 to TVTSRV.MAC by MELOHN on 29-Jan-86 (TCO 6.1.1570)
1)	; Fix problem with NTINF% printing garbage when no defined hostname exists. 
1)	; UPD ID= 2200, SNARK:<6.1.MONITOR>TVTSRV.MAC.8,   5-Jun-85 11:23:05 by MCCOLLUM
LINE 1, PAGE 1
2)	;[SRI-NIC]SRC:<6-1-MONITOR>TVTSRV.MAC.4, 27-Oct-87 03:17:39, Edit by MKL
2)	; add BUGCHK in ASNTVT routine to prevent ILMNRF
2)	;[SRI-NIC]XS:<SU-61SU>TVTSRV.MAC.2,  5-Dec-86 16:24:58, Edit by MKL
2)	;;[SRI-NIC]SS:<6-1-MONITOR>TVTSRV.MAC.5,  7-Mar-86 16:34:23, Edit by MKL
2)	;; add fixes to internet-login-message stuff under NICSW
2)	
2)	;PS:<6-1-MONITOR>TVTSRV.MAC.25,  4-Aug-86 16:41:35, Edit by BILLW
2)	; allow for TSMXP being smaller than a TTY buffer.
2)	;PS:<6-1-MONITOR>TVTSRV.MAC.23, 11-Mar-86 17:33:48, Edit by BILLW
2)	; from opscan, call FRCTVT or ENCTVT instead of FRCPKT/ENCPKT
2)	;PS:<6-1-MONITOR>TVTSRV.MAC.21, 30-Jan-86 02:45:13, Edit by BILLW
2)	; in TVTCSO, set bit in TVTSOQ. scan this bit table in OPSCAN.

; TVTSRV.MAC.1 & <MONITOR>TVTSRV.MAC.1 24-Feb-89 1919	PAGE 2


2)	;PS:<6-1-MONITOR>TVTSRV.MAC.16, 17-Jan-86 01:25:23, Edit by BILLW
2)	; in OPSCAN assume that rxmit q will be empty if we are really dealing
2)	; with echos, and otherwise allow more data to collect.
2)	;PS:<6-1-MONITOR>TVTSRV.MAC.14, 29-Nov-85 20:09:37, Edit by BILLW
2)	; Call SETOBF at TVTOPN
2)	; Count TVT output in total bytes sent !
2)	;PS:<6-1-MONITOR>TVTSRV.MAC.13, 29-Nov-85 17:43:01, Edit by BILLW
2)	; Count TVT input and output characters and packets
2)	;PS:<6-1-MONITOR>TVTSRV.MAC.10,  4-Nov-85 19:42:27, Edit by BILLW
2)	; at TVTSOF, use enough output buffers to fill a packet.
2)	;PS:<6-1-MONITOR>TVTSRV.MAC.9, 28-Oct-85 19:57:22, Edit by BILLW
2)	; call FRCPKT instead of ENCPKT if output buffers are full. ??is this good??
2)	;<6-1-MONITOR.FT6>TVTSRV.MAC.2, 12-Aug-85 18:14:16, Edit by WHP4
2)	; Stanford changes:
2)	; In TVRRH, if GTHST% fails, say "No Node Name Known"
2)	;
2)	; UPD ID= 2200, SNARK:<6.1.MONITOR>TVTSRV.MAC.8,   5-Jun-85 11:23:05 by MCCOLLUM


LINE 65, PAGE 1
1)	;	COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1988.
1)	;	ALL RIGHTS RESERVED.
1)	;
1)	;	THIS SOFTWARE IS FURNISHED UNDER A  LICENSE AND MAY BE USED AND  COPIED
1)	;	ONLY IN  ACCORDANCE  WITH  THE  TERMS OF  SUCH  LICENSE  AND  WITH  THE
1)	;	INCLUSION OF THE ABOVE  COPYRIGHT NOTICE.  THIS  SOFTWARE OR ANY  OTHER
1)	;	COPIES THEREOF MAY NOT BE PROVIDED  OR OTHERWISE MADE AVAILABLE TO  ANY
1)	;	OTHER PERSON.  NO  TITLE TO  AND OWNERSHIP  OF THE  SOFTWARE IS  HEREBY
1)	;	TRANSFERRED.
1)	;
1)	;	THE INFORMATION IN THIS  SOFTWARE IS SUBJECT  TO CHANGE WITHOUT  NOTICE
1)	;	AND SHOULD  NOT  BE CONSTRUED  AS  A COMMITMENT  BY  DIGITAL  EQUIPMENT
1)	;	CORPORATION.
1)	;
1)	;	DIGITAL ASSUMES NO  RESPONSIBILITY FOR  THE USE OR  RELIABILITY OF  ITS
1)	;	SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.
   {Skipped 1 page and 1 line}
1)	 	SEARCH ANAUNV,TTYDEF,PROLOG
LINE 1, PAGE 2
2)	;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY  BE  USED
2)	;OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2)	;
2)	;COPYRIGHT  (C)  DIGITAL  EQUIPMENT  CORPORATION  1976, 1985.
2)	;ALL RIGHTS RESERVED.
2)	
2)	
2)	 	SEARCH ANAUNV,TTYDEF,PROLOG

; TVTSRV.MAC.1 & <MONITOR>TVTSRV.MAC.1 24-Feb-89 1919	PAGE 3



LINE 36, PAGE 7
1)		CAIG T2,0		;less than one buffer per packet ?
1)		 MOVEI T2,1
LINE 36, PAGE 7
2)		CAIN T2,0		;less than one buffer per packet ?
2)		 MOVEI T2,1


LINE 30, PAGE 34
1)	ASNTV3:	LOAD T2,TCJOB,(T2)	;GET JOB FOR WHICH THIS IS A CNTRL TTY.
1)		CAIN T2,-1		;IS THERE ONE
LINE 30, PAGE 34
2)	ASNTV3:
2)	ifn  nicsw,<
2)		trnn t2,-1		;bogus pointer?
2)		 jrst asntvb		;yes
2)	>
2)		LOAD T2,TCJOB,(T2)	;GET JOB FOR WHICH THIS IS A CNTRL TTY.
2)		CAIN T2,-1		;IS THERE ONE


LINE 26, PAGE 35
1)		ENDSV.
LINE 26, PAGE 35
2)	ifn nicsw,<
2)	ASNTVB:	move t2,tvlin
2)		BUG.(CHK,ASNTVJ,TVTSRV,SOFT,<Invalid TTACTL entry for TTY>,<<T2,TTYLIN>>,<
2)	Cause: unknown
2)	
2)	Data:  TTYLIN -- tty line number
2)	>)
2)		jrst asntv2		;skip to next tty
2)	>
2)	
2)		ENDSV.


LINE 29, PAGE 36
1)	>;IFN STANSW			;[ESC] the following retskp didn't exist for
1)		RETSKP			;[ESC] stansw==0 code in sap16. corrected.
   {Skipped 1 page and 1 line}
1)	;TVTDOB
LINE 29, PAGE 36
2)		RETSKP
2)	>;IFN STANSW
   {Skipped 1 page and 1 line}
2)	;TVTDOB

; TVTSRV.MAC.1 & <MONITOR>TVTSRV.MAC.1 24-Feb-89 1919	PAGE 4



LINE 29, PAGE 46
1)		CALLX (XCDSEC,LCKCAL)	; Do a cross-job close
1)	TVTDE0:
LINE 29, PAGE 46
2)		IFE REL6,<CALL LCKCAL> 	; Do a cross-job close
2)		IFN REL6,<CALLX (XCDSEC,LCKCAL)> ; Do a cross-job close
2)	TVTDE0:


LINE 16, PAGE 52
1)		SETZM TVMSGB		; zero the first word of the buffer
LINE 16, PAGE 52
2)	IFN NICSW,<
2)	TVMSG0:	MOVE T1,TVMSGJ
2)	 >
2)		SETZM TVMSGB		; zero the first word of the buffer


LINE 32, PAGE 52
1)	TVMSG1:				; here also when buffer was empty
LINE 35, PAGE 52
2)	IFN NICSW,<
2)		JRST TVMSG0		; read until eof
2)	>
2)	TVMSG1:				; here also when buffer was empty


LINE 40, PAGE 53
1)		 ERJMP TVRRH1  		;[7230] Couldn't find host name - use number
1)	>;IFE STANSW
LINE 40, PAGE 53
2)		 ERJMP .+1    		;GOT AN ERROR
2)	>;IFE STANSW