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