Google
 

Trailing-Edge - PDP-10 Archives - BB-4170G-SM - sources/ttptdv.mac
There are 19 other files named ttptdv.mac in the archive. Click here to see a list.
;<3.SM10-RELEASE-3>TTPTDV.MAC.1, 15-Dec-77 09:30:24, EDIT BY MILLER
;REMOVE EXTRANEOUS PUSH AND POP FROM STRTO2
;<3-MONITOR>TTPTDV.MAC.19,  9-Nov-77 09:59:09, EDIT BY KIRSCHEN
;MORE COPYRIGHT UPDATING...
;<3-MONITOR>TTPTDV.MAC.18, 12-Oct-77 14:21:34, EDIT BY KIRSCHEN
;UPDATE COPYRIGHT FOR RELEASE 3
;<3-MONITOR>TTPTDV.MAC.17,  4-Oct-77 23:15:57, EDIT BY CROSSLAND
;DO NOT PUT PARITY ON PTY'S
;<3-MONITOR>TTPTDV.MAC.16, 15-Sep-77 11:38:14, EDIT BY MILLER
;CHANGE TTVT12 TO SET PARITY BIT
;<3-MONITOR>TTPTDV.MAC.15, 14-Sep-77 16:17:16, EDIT BY MILLER
;CHANGE "CALL DYNSTA" TO "DYNST"
;<3-MONITOR>TTPTDV.MAC.14, 30-Jul-77 01:50:08, EDIT BY CROSSLAND
;REUSE TTVT11 FOR DEASIGNING DYNAMIC DATA
;<3-MONITOR>TTPTDV.MAC.13,  9-Jun-77 04:31:41, EDIT BY CROSSLAND
;CHANGE TTVT12 AND TTVT19 TO FNXCT
;<3-MONITOR>TTPTDV.MAC.12,  7-Jun-77 17:18:21, EDIT BY HALL
;TCO 1740 - ADD FORMATTING CONTROLS TO LINE'S WAKEUP CLASSES
;<3-MONITOR>TTPTDV.MAC.11, 12-May-77 00:51:08, Edit by MCLEAN
;CHANGE SO DUMMY MODULES NOT NECESSARY
;<3-MONITOR>TTPTDV.MAC.10,  6-May-77 12:33:40, EDIT BY HALL
;TCO 1740 - VECTOR CHANGES FOR TTMSG JSYS
;<3-MONITOR>TTPTDV.MAC.9,  3-May-77 22:51:08, EDIT BY CROSSLAND
;<3-MONITOR>TTPTDV.MAC.8,  3-May-77 11:04:04, EDIT BY CROSSLAND
;TCO 1742 MERGE ARPANET SOURCES
;<3-MONITOR>TTPTDV.MAC.7, 27-Mar-77 14:01:38, Edit by MCLEAN
;<HALL>TTPTDV.MAC.1, 22-Mar-77 11:57:38, Edit by HALL
;<3-MONITOR>TTPTDV.MAC.5, 22-Mar-77 01:23:44, Edit by MCLEAN
;<3-MONITOR>TTPTDV.MAC.4, 22-Mar-77 01:19:35, Edit by MCLEAN
;ADD PRINTX
;<3-MONITOR>TTPTDV.MAC.3, 20-Mar-77 13:41:55, Edit by MCLEAN
;INSERT END HERE BECAUSE THIS MODULE IS ALWAYS NECESSARY AND OTHERS
;MAY NOT BE
;<3-MONITOR>TTPTDV.MAC.2, 20-Mar-77 02:49:20, Edit by MCLEAN
;<1MCLEAN>TTPTDV.MAC.10, 20-Mar-77 02:32:22, Edit by MCLEAN


;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1976, 1977, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

	SUBTTL PTY DEVICE DEPENDENT CODE

; THIS MODULE CONTAINS THE CODE REQUIRED TO SUPPORT PTY'S.
; IT MUST BE THE LAST MODULE IN TTYSRV BECAUSE IT CONTAINS
; THE END STATEMENTS AND IT IS ALWAYS REQUIRED TO HAVE
; PTY'S.


	RESCD
TTPTVT=.
	TTDDLN			;LENGTH OF DYNAMIC DATA FOR THIS TYPE
	-1			;FIRST LINE OF THIS TYPE/-1 NO LINES
	IFIW!R			;TTVT00 - INITALIZATION
	IFIW!R			;RESTART
	IFIW!TTCOB5		;CLEAR OUTPUT BUFFER
	IFIW!R			;SET LINE SPEED
	IFIW!TTRSP2		;READ TTY SPEED
	IFIW!R			;SET NON-TERM STATUS
	IFIW!R			;READ NON-TERM STATUS
	IFIW!TTSTO5		;REMOVE CHAR FROM OUTPUT BUFFER
	IFIW!STPAR5		;STPAR JSYS
	IFIW!R			;CHECK PHYSICAL LINE
	IFIW!TTXON2		;TTVT10 - XON
	IFIW!TTYDE0		;DEASIGN DYNAMIC DATA
	JFCL			;DO NOT SET PARITY
	IFIW!STRTO2		;START OUTPUT LINE
	IFIW!R			;XOFF
	IFIW!R			;XON
	IFIW!TTCQ1		;EMPTY BUFFER
	IFIW!R			;CARRIER ON
	IFIW!TTCH7		;CARRIER OFF
	IFIW!R			;HANGUP
	IFIW!R			;TTVT20 - ^S
	IFIW!TTC7S2		;NO LOGINS
	IFIW!R			;STORE CHARACTER
	IFIW!R			;SEND CHARACTER
	IFIW!TTDAL7		;DEALLOCATE LINE
	IFIW!DLSSX2		;BUFFER OVERFLOW
	IFIW!R			;EMPTY BUFFER
	IFIW!R			;TTVT27 - DON'T DO TTMSG FOR SINGLE LINE
	IFIW!R			;ENABLE/DISABLE DATASETS
	IFIW!R			;INIT
	IFIW!R			;30  CLEAR INPUT BUFFER
	IFIW!R			;31  DOBE
	IFIW!TCIPTY		;32  INPUT GA
	IFIW!TTSET1		;33  SET INIT. VALUES FOR A LINE
	IFIW!TTSBE1		;34  SOBE
	IFIW!TTOBE1		;35  WAKEUP IF OUTPUT BUFFER EMPTY
	IFIW!R			;TTVT36 - DON'T DO TTMSG FOR SINGLE LINE
	IFIW!R			;TTVT37 - DON'T DO TTMSG FOR ALL LINES
				;TTVT38 - ADJUST WAKEUP CLASS
	TRO T3,FC		;FORCE WAKEUP ON FORMATTING CONTROLS

   IFN <.-TTVTMX>-TTPTVT,<PRINTX %%INVALID DEVICE DEPENDENT TABLE SIZE>
	SWAPCD

; STPAR JSYS DEVICE DEPENDENT CODE

STPAR5:	TXZ A,TT%PGM		;YES. CAN'T SET PAGE MODE THEN
	RET

	RESCD

;DEVICE DEPENDENT CODE FOR START OUTPUT LINE
;LINE IS PTY. 

STRTO2:	CAIE 3,1		;BFR TRANSITION FROM EMPTY TO NON-EMPTY?
	RET			;NO.
	DYNST			;YES. GET INTERNAL LINE NUMBER
	MOVE T1,T2		;T1/ LINE NUMBER
	CALL TTYPTY		;CONVERT OT PTY NUMBER
	CALL PTYFOU		;NOTE PTY OUTPUT EVENT
	RET
;LINE IS A PTY. SEE IF PTY LOGINS ARE ALLOWED

TTC7S2:	TXNE T1,SF%PTY		;SEE IF PTY LOGINS ALLOWED
	JRST TTC7SK		;YES, GO LOGIN IN
	HRROI 1,[ASCIZ/
?LOGGING IN OVER PTY'S IS CURRENTLY DISALLOWED.
/]
	CALLRET TTEMSS

;DEVICE DEPENDENT CODE FOR TCI

TCIPTY:	PUSH P,T2		;SAVE ADDRESS OF DYNAMIC DATA
	DYNST			;GET LINE NUMBER
	MOVE T1,T2		;T1/LINE NUMBER
	CALL TTYPTY		;CONVERT TO PTY NUMBER IN T1
	CALL PTYFIN		;NOTE PTY INPUT EVENT
	POP P,T2		;RESTORE ADDRESS OF DYNAMIC DATA
	RET

	TNXEND
	END