TITLE TTDINT - DRIVER FOR DTE20 TELETYPES V077
SUBTTL	A. WILSON/WRS/CDO    23-FEB-88

	SEARCH	F,S,DTEPRM

	$RELOC
	$HIGH

;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED
;  OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION
; 1976,1977,1978,1979,1980,1982,1984,1986,1988.
;ALL RIGHTS RESERVED.

.CPYRT<1976,1988>


XP VTTDNT,077

;NOTE:
; IF ANY CHANGES ARE MADE TO DTEPRM THAT THIS MODULE MUST HAVE, UPDATE
; THE FOLLOWING SYMBOL TO THE VERSION OF DTEPRM THAT MUST BE USED
	PRMMIN==71
; THIS WAY, ASSEMBLING THIS MODULE WITH WRONG VERSION OF DTEPRM FOR SOME REASON
; (LIKE FORGETTING TO ASSEMBLE IT) WILL CAUSE ASSEMBLY TO TERMINATE.
; THIS SCHEME DOES NOT CAUSE EXTRA EDITING, SINCE ONLY FILES
; WHICH NEED THE CHANGES NEED PRMMIN TO BE UPDATED. MODULES
; THAT DO NOT NEED A NEW VERSION OF DTEPRM NEED NOT DEMAND IT.

IFL VDTPRM-PRMMIN,<PRINTX ?PLEASE USE LATEST VERSION OF DTEPRM
			PASS2
			END>



	SALL
	ENTRY	TTDINT

TTDINT::


;BITS IN LEFT HALF OF .CP20F

F20ADS==(1B0)		;TOLD -20F ITS OK TO ANSWER DATASETS
F20LPP==:(1B1)		;LOST PRIMARY PROTOCOL (SET BE DTESER)
F20SDT==:(1B2)		;TELL FRONT-END OF DATE/TIME CHANGE (SET BY DTESER)
SUBTTL	MACROS AND STRINGS

DEFINE	$8BIT(SIZE,TEXT),<
	SIZE==<COUNT==<C%0==<C%1==<C%2==<C%3==0>>>>>
	IRPC (TEXT)<
		CHAR==<ASCII\TEXT\>_-^D29
		STOBYT(\COUNT,CHAR)
		COUNT==COUNT+1
		SIZE==SIZE+1
		IFE COUNT-4,<
			BYTE (8) C%0,C%1,C%2,C%3
			COUNT==<C%0==<C%1==<C%2==<C%3==0>>>>
		>
	>
	IFN COUNT,<BYTE (8) C%0,C%1,C%2,C%3>
>

DEFINE	STOBYT(BYTE,CHAR),<C%'BYTE==CHAR>



;STRING TO SEND TO ALL TERMINALS AFTER SWITCHING FROM PRIMARY PROTOCOL TO
;	SECONDARY AND BACK AGAIN.  -20F SAID "%DECSYSTEM-10 NOT RUNNING"

CONMSG:	$8BIT	CONSIZ,<
[DECsystem-10 Continued]
>
SUBTTL	DISPATCH TABLES

	IFIW	CPOPJ##		;(-1) LOST TO-10 INDIRECT MESSAGE
CT0DSP::DTEFNC			;(??) GENERATE DUMMY TABLE ENTRIES
	DTEFNC	(LNC,CTYLND)	;(07) TAKE LINE, CHARACTER
	DTEFNC	(ACK,CTYACK)	;(17) ACK


	IFIW	CPOPJ##		;(-1) LOST TO-10 INDIRECT MESSAGE
DLSDSP::DTEFNC			;(??) GENERATE DUMMY TABLE ENTRIES
	DTEFNC	(LNC,DLSLND)	;(04) TAKE LINE, CHARACTER
	DTEFNC	(DSC,TTDDWA)	;(15) DATASET WAS ANSWERED
	DTEFNC	(HUD,TTDDHU)	;(16) DATASET HUNG UP
	DTEFNC	(ACK,DLSACK)	;(17) ACK
	DTEFNC	(HLS,TTDHLS)	;(22) HERE ARE LINE SPEEDS
	DTEFNC	(AKA,DLSAAL)	;(25) ACK ALL
;DISPATCH FOR SCNSER COMMUNICATION WITH TTDINT

CTYDSP::			;USE SAME DISPATCH TABLE FOR THE CTYS
TTDDSP::PJRST	SPCTYO##	;SECONDARY PROTOCOL XMIT INTERRUPT
	PJRST	TTDDSC		;GO TO DATASET CONTROL ROUTINE
	PJRST	TTDSEC		;GO TO ONCE-A-SECOND ROUTINE
	POPJ	P,		;NO INITIALIZATION ROUTINE
	PJRST	SETCHP##	;MARK H/W PARAMETERS TO COME BACK THROUGH TTDSCN
	PJRST	TTDLPC		;HANDLE LINE PARAMETER CHANGE CALL (.TOEAB)
	POPJ	P,		;RETURN ON SET ELEMENT NUMBER CALL
	PJRST	TTDREM		;HANDLE REMOTE CALL (^O)
	PJRST	CPOPJ1##	;ALWAYS SAY ON-LINE

;HERE ON REMOTE CALL FROM SCNSER ISR DISPATCH

TTDREM:	CAIE	T3,IRRSCG	;ONLY CARE ABOUT ^O STRUCK
	POPJ	P,		;WASN'T, RETURN
	MOVSI	T1,LTLCTO##	;GET ^O STRUCK FLAG FOR -20F
	IORM	T1,LDBTTD##(U)	;STORE IN LDB
	PJRST	SETCHP##	;AND LET ONCE-A-TIC CODE SEE IT

;HERE ON LINE PARAMETER CHANGE FORM SCNSER ISR DISPATCH

TTDLPC:	MOVE	T1,T3		;COPY PARAMETER WORD
	LSH	T3,-8		;ISOLATE FUNCTION CODE
	CAIE	T3,LPCABR	;AUTOBAUD REQUEST (.TOEAB)?
	POPJ	P,		;NO--RETURN
	MOVEI	T1,LTRABR##	;YES--GET LOCAL AUTOBAUD FLAG
	IORM	T1,LDBTTD##(U)	;REMEMBER FOR TTDSCN
	PJRST	SETCHP##	;AND DEFER TO TTDSCN

;HERE FROM DTESER WHEN DTELDR RESTARTS PRIMARY PROTOCOL ON THE MASTER

TTDRLD::SE1ENT			;ENTER SECTION 1
	PUSHJ	P,SAVE3##	;SAVE P1-P3
	HRRZS	.CP20F##	;CLEAR -20F FLAGS
	PUSH	P,U		;SAVE U
	SETZ	P1,		;START WITH DLS #0
	MOVE	P2,.CPSPF##	;GET SECONDARY PROTOCOL FLAGS
	TRNN	P2,DF.8BA	;IF 8-BIT CAPABLE,
	TDZA	P2,P2		;THEN CLEAR 7-BIT FLAG,
	MOVEI	P2,1		;ELSE SET IT
	SETZ	P3,		;A HANDY ZERO TO CLEAR LDP8BT IF NEEDED
TTDRL1:	MOVE	U,P1		;COPY DLS LINE NUMBER
	PUSHJ	P,DLSMON	;CONVERT TO -10 LINE NUMBER
	  JRST	UPOPJ##		;ALL DONE
	MOVE	U,LINTAB##(U)	;GET LDB ADDRESS
	TRNN	U,-1		;SETUP YET?
	JRST	TTDRL2		;NOPE
	SETZM	LDBTTD##(U)	;CLEAR FLAGS
	DPB	P2,LDP7BT##	;SET/CLEAR 7-BIT RESTRICTION AS INDICATED
	SKIPE	P2		;IF IT'S NOW DUMB,
	DPB	P3,LDP8BT##	;THEN IT'S 7-BIT AGAIN
	PUSHJ	P,SETCHP##	;NEED TO RE-SEND LINE SPEEDS
TTDRL2:	AOJA	P1,TTDRL1	;STEP TO NEXT DLS

;HERE FROM DTESER FOR DTE. UUO FUNCTION 21
;T1=CPU,,DTE (ALREADY VERRIFIED AND WE ARE ON RIGHT CPU)

TTDDLN::HLRZ	T2,T1		;GET CPU NUMBER
	TRNN	T1,-1		;WANT CFE
	JRST	TTDDL1		;YES, GET KLINIK,,CTY
	ADD	T1,TTDOFS##(T2)	;CONVERT DTE# TO 10 LINE #
	MOVEI	T1,.UXTRM(T1)	;CONVERT TO A UDX
	PJRST	STOTC1##	;GIVE GOOD RETURN
TTDDL1:	HRRZ	T1,.CPCTN##	;GET CTY # ON THIS CPU
	HRL	T1,TTDOFS##(T2)	;GET KLINIK (=LOWEST ENTRY)
	TDO	T1,[.UXTRM,,.UXTRM] ;CONVERT BOTH
	PJRST	STOTC1##	;GIVE GOOD RETURN
SUBTTL	ONCE A TICK CODE FOR TTDINT

;TTDSTO IS CALLED ONCE-PER-TICK ON EACH CPU TO DE-QUEUE OUTPUT

TTDSTO::HRRZ	T1,.CP20F##	;NUMBER OF CHARACTERS STILL IN BUFFER
	JUMPN	T1,CPOPJ##	;STILL ACTIVE, WAIT FOR POSTING
	PJRST	TTDSCN		;GO START UP OUTPUT IF ANY WAITING


;HERE FROM DTESER ON POST CALL FOR STRING OUTPUT

TTDPST:	SE1ENT			;ENTER SECTION 1
	HRRZ	U,S		;GET SAVED VALUE OF U (LINE NUMBER)
	MOVE	U,LINTAB##(U)	;LDB ADDRESS
	MOVEI	T2,TTDTIM##	;IRMA-LIKE VALUE FOR LTLACK
	DPB	T2,LDPTDT##	;SET TIMER LIMIT
	MOVSI	T1,LTLACK##	;WAITING FOR ACK FLAG
	IORM	T1,LDBTTD##(U)	;MARK THE LINE
	HLLZS	.CP20F##	;START STRING CHAR COUNT AT ZERO
;;	PJRST	TTDSCN		;SCAN FOR A BUSY LINE
;ROUTINE TO FIND AN ACTIVE LINE AND START OUTPUT ON IT.

TTDSCN:	SE1ENT			;ENTER SECTION 1
	MOVEI	T1,.CPCTQ##	;GET QUEUE HEADER
	PUSHJ	P,TOTAKE##	;FIND NEXT ACTIVE LINE
	  POPJ	P,		;NONE LEFT, RETURN
	PUSHJ	P,SKPMPP##	;PRIMARY PROTOCOL?
	  JRST	TTDSC4		;IF SECONDARY
	MOVEI	T1,L1RCHP##	;CHANGE HARDWARE PARAMETERS REQUEST BIT
	TDNE	T1,LDBBYT##(U)	;WAITING TO CHANGE?
	JRST	TTDCHP		;CHANGE IF NECESSARY
	MOVSI	T1,LTLACK##	;WAITING FOR ACK
	TDNN	T1,LDBTTD##(U)	;IS IT WAITING
	SKIPL	LDBDCH##(U)	;OR IS THIS LINE IDLE?
	JRST	TTDSCN		;CANNOT OUTPUT, TRY FOR ANOTHER LINE
	PUSH	P,P1		;SAVE P1
	MOVE	P1,[POINT 8,.CP20B##] ;GET POINTER TO STRING AREA
TTDSC1:	PUSHJ	P,XMTCHR##	;GET A CHARACTER TO SEND
	  JRST	TTDSC2		;LINE IS IDLE
	IDPB	T3,P1		;STORE CHARACTER IN BUFFER
	AOS	T1,.CP20F##	;ADVANCE COUNT
	TLZ	T1,-1		;CLEAR FLAG BITS
	CAIL	T1,TTDMOS##	;HAVE AS MANY CHARS AS WE WANT?
	JRST	TTDSC3		;YES, SEND WHAT WE'VE GOT
	JRST	TTDSC1		;TRY FOR ANOTHER CHARACTER
TTDSC2:	HRRZ	T1,.CP20F##	;ANY CHARACTERS FOUND THIS PASS
	JUMPE	T1,[POP	P,P1	;NO, RESTORE P1
 		    JRST TTDSCN] ;AND LOOK FOR ANOTHER LINE
TTDSC3:	POP	P,P1		;RESTORE
	PUSHJ	P,SAVE4##	;SAVE P1-P4
	PUSHJ	P,STDTQ		;SET UP DTEQUE ARGUMENTS
	HRRI	P2,EM.IND+.EMSTR ;OUTPUT INDIRECT STRING TO DLS
	HRR	P3,.CP20F##	;SET P3 TO DLS LINE #,,COUNT
	MOVE	P4,[POINT 8,.CP20B##] ;POINT TO INDIRECT STRING
	LDB	S,LDPLNO##	;REMEMBER LINE NUMBER
	HRLI	S,TTDPST	;POST ADDRESS
	S0PSHJ	DTEQUE##	;QUEUE THE REQUEST
	  HLLZS	.CP20F##	;FAILED, UNBLOCK CODE
	POPJ	P,		;RETURN

;HERE IF RUNNING SECONDARY PROTOCOL

TTDSC4:	LDB	T1,LDPLNO##	;GET LINE NUMBER
	HRRZ	T2,.CPCTN##	;GET CTY ON THIS CPU
	CAIE	T1,(T2)		;THIS IT
	JRST	TTDSC5		;NO, IGNORE DATA
	SKIPGE	LDBDCH##(U)	;LINE IDLE?
	PUSHJ	P,XMTCHR##	;YES, GET CHARACTER FOR OUTPUT
	  POPJ	P,		;IDLE, RETURN
	PUSHJ	P,CLRIRM##	;CLEAR LOST ACK FLAG
	PJRST	SPCTYO##	;AND TYPE OUT ON CTY
TTDSC5:	SKIPGE	LDBDCH##(U)	;LINE IDLE
	PUSHJ	P,XMTCHR##	;YES, GET A CHARACTER
	  POPJ	P,		;ALL DONE
	JRST	.-2		;THROW IT AWAY
SUBTTL	ROUTINE TO CHANGE HARDWARE PARAMETERS

;ENTRY TTDCHP IS USED WHEN SCANNING THE 'START OUTPUT' QUEUE.
;IT CLEARS THE L1RCHP BIT IN LDBBYT BEFORE SENDING THE CHP MESSAGE.
;ARGS:	T1/BIT TO CLEAR, SETUP BY MOVEI T1,L1RCHP
;	U/LDB ADDRESS
;	PUSHJ	P,TTDCHP
;	RETURN HERE

TTDCHP:	PUSHJ	P,SAVE4##	;SAVE P1-P4
	ANDCAM	T1,LDBBYT##(U)	;CLEAR CHP REQUEST BIT
	MOVSI	T1,LTLCTO##	;CONTROL-O STRUCK
	TDNE	T1,LDBTTD##(U)	;WAS IT
	PUSHJ	P,TTDCTO	;YES, TELL -20F
	MOVSI	T1,LTLXFF##	;SEND XOFF STATUS BIT
	TDNN	T1,LDBTTD##(U)	;DO WE WANT TO?
	 JRST	TTDCH2		;NO, SKIP THE CHECKS
	ANDCAM	T1,LDBTTD##(U)	;YES, CLEAR THE BIT
	MOVSI	T2,LOLSTP##	;CONTROL-S STRUCK
	MOVSI	T1,LTLXOF##	;GET TTD XOF BIT
	TDNN	T2,LDBOST##(U)	;WAS IT ^S
	JRST	TTDCH1		;NO, NOT ^S
	TDNN	T1,LDBTTD##(U)	;YES, DID WE KNOW THAT?
	PUSHJ	P,TTDXOF	;SEND XOF MESSAGE FOR LINE
	JRST	TTDCH2		;NOW SET SPEEDS
TTDCH1:	TDNE	T1,LDBTTD##(U)	;NOT ^S DID WE THINK IT WAS?
	PUSHJ	P,TTDXON	;SEND XON MESSAGE FOR LINE
TTDCH2:	PUSHJ	P,TTDSSP	;SEND SPEEDS
	MOVSI	T2,LPLXNF##	;TERMINAL PAGE SET
	MOVSI	T1,LTLAXF##	;AUTO XOFF ENABLE SET
	TDNN	T2,LDBPAG##(U)	;ARE WE IN PAGE MODE?
	 JRST	TTDC2A		;NO
	TDNN	T1,LDBTTD##(U)	;HAS IT BEEN SET YET?
	PUSHJ	P,TTDAXF	;NO, GO DO IT
	JRST	TTDCH3		;
TTDC2A:	TDNE	T1,LDBTTD##(U)	;HAS IT BEEN CLEARED YET?
	PUSHJ	P,TTDAXF	;NO, DO SO NOW
TTDCH3:	MOVEI	T1,LTR8BE##	;STATE WE LAST SENT
	MOVSI	T2,LAL8BT##	;AND CURRENT SCNSER STATE
	TDNN	T2,LDBATR##(U)	;ARE WE IN 8-BIT MODE?
	JRST	TTDC3A		;NO
	TDNN	T1,LDBTTD##(U)	;YES DID WE KNOW THAT?
	PUSHJ	P,TTD8BT	;SEND 8BIT MESSAGE FOR LINE
	JRST	TTDCH4		;
TTDC3A:	TDNE	T1,LDBTTD##(U)	;HAS IT BEEN CLEARED YET?
	PUSHJ	P,TTD8BT	;NO, DO SO NOW
TTDCH4:	PJRST	TOPOKE##	;LOOK AT MORE (AND THIS) NEXT TICK
SUBTTL	SET LINE SPEEDS

;HERE TO SET SPEEDS FOR RSX-20F FRONT-END LINE
;ARGS:	U/LDB ADDRESS
;CALL:	SAVE P1-P4
;	PUSHJ	P,TTDSSP
;	RETURN HERE
;WILL NOT SEND SPEEDS TO -20F IF THEY DIDN'T CHANGE FROM LAST TIME.  IF A LINE
;	GETS CONFUSED, MUST SET TO ANOTHER SPEED AND THEN BACK TO DESIRED ONE.

TTDSSP:	MOVE	T3,[POINT ^D16,.CP20B##] ;POINT TO PLACE IN CDB
	SETO	T4,		;INDICATE BOTH CHANGED
	SETCM	T1,LDBDCH##(U)	;COMPLEMENT DATASET BIT
	HLL	T1,LDBTTD##(U)	;GET REMOTE FOR -20F
	MOVE	T2,LDBTTD##(U)	;GET OTHER -20F BITS
	TRNN	T2,LTRABR##	;MUST SEND IF DECLARING FOR AUTOBAUD
	TDNN	T1,[LTLRBS##,,LDRDSD##] ;ALREADY TOLD -20F
	TRZ	T4,-1		;NO, MUST SEND SPEED
	LDB	T1,LDPRSP##	;GET CODE FOR LINE TRANSMIT SPEED
	LDB	T2,[POINT 4,LDBTTD##(U),3] ;REMEMBERED SPEED
	CAIN	T1,(T2)		;DID SPEED CHANGE
	AOSA	T4		;NO, COUNT NUMBER THAT DIDN'T
	DPB	T1,[POINT 4,LDBTTD##(U),3] ;REMEMBERED SPEED
	MOVE	T1,LSPTAB##(T1)	;CONVERT TO BAUD
	IDPB	T1,T3		;BUILD THE SPEED MESSAGE
	LDB	T1,LDPTSP##	;GET CODE FOR LINE RECEIVE SPEED
	LDB	T2,[POINT 4,LDBTTD##(U),7] ;REMEMBERED SPEED
	CAIN	T1,(T2)		;DID THIS ONE CHANGE
	AOJG	T4,CPOPJ##	;RETURN IF NEITHER CHANGED
	DPB	T1,[POINT 4,LDBTTD##(U),7] ;REMEMBERED SPEED
	MOVE	T1,LSPTAB##(T1)	;CONVERT TO BAUD
	IDPB	T1,T3		;BUILD THE SPEED MESSAGE
	MOVEI	T2,1		;ASSUME ONE STOP BIT
	CAIG	T1,^D110	;LESS THAN OR EQUAL TO 110 BAUD?
	MOVEI	T2,2		;YES, SO USE TWO STOP BITS
	MOVE	T1,LDBDCH##(U)	;GET LINE CHARACTERISTICS WORD
	TRNE	T1,LDRDSD##	;DATASET LINE?
	JRST   [MOVSI	T1,LTLRBS##;YES, GET "REMOTE BIT SENT" BIT
		TDNE	T1,LDBTTD##(U);REMOTE BIT ALREADY SENT?
		JRST	.+1	;YES, BACK TO MAIN CODE
		IORM	T1,LDBTTD##(U);NO, MARK IT SENT AS OF NOW
		TRO	T2,140000;SET REMOTE BIT AND AUTO BAUD
		JRST	.+1]	;BACK TO MAIN CODE
	MOVEI	T1,LTRABR##	;BIT FOR -20F AUTOBAUD
	TDNE	T1,LDBTTD##(U)	;WANT TO TELL -20F ABOUT .TOEAB?
	JRST   [ANDCAM	T1,LDBTTD##(U) ;YES, CLEAR BIT FOR NEXT TIME
		TRO	T2,40000 ;SET AUTOBAUD BIT
		JRST	.+1]	;BACK TO MAIN CODE
	IDPB	T2,T3		;STORE ARGUMENT
	PUSHJ	P,STDTQ		;SET UP DTEQUE ARGUMENTS
	HRRI	P2,EM.16B+EM.IND+.EMHLS ;SET DLS LINE SPEEDS
	HRRI	P3,6		;SIX BYTES OF ARGUMENT
	MOVE	P4,[POINT ^D16,.CP20B##] ;POINT TO SPEED MESSAGE
	HLLOS	.CP20F##	;MARK BUFFER IN USE
	MOVSI	S,TTDSS1	;POST ADDRESS
	S0PSHJ	DTEQUE##	;QUEUE THE REQUEST
TTDSS1:	  HLLZS	.CP20F##	;FAILED (OR DONE)
	POPJ	P,		;RETURN

;NOTE:	THE NONSENSE WITH THE LTLRBS BIT IN THE CODE ABOVE IS NECESSITATED
;BY A QUIRK OF THE RSX-20F FRONT-END.  THE REMOTE BIT IN A LINE-SPEED
;MESSAGE SHOULD BE SENT ONLY ONCE; IF IT'S SENT AGAIN AFTER A USER HAS
;DIALED-IN, IT CAUSES THE DATASET TO BE DISCONNECTED.
SUBTTL	XOFF/AUTO-XOFF/XON/CONTROL-O PROCESSING

;ROUTINE TO SEND AUTO-XOFF/XOFF/XON/CNTRL-O FOR ^S/^Q/^O ON AN RSX-20F LINE
;ARGS:	U/LDB ADDRESS
;	T1/BIT TO SET/CLEAR IN LDBTTD
;CALL:	SAVE P1-P4
;	PUSHJ	P,TTDXXX	WHERE XXX IS AXF, XOF, XON, CTO, OR 8BT
;	RETURN HERE

TTDAXF:	MOVEI	P2,.EMAXF	;ENABLE/DISABLE AUTO XOFF FUNCTION
	PUSHJ	P,STDTQ		;SET UP DTEQUE ARGUMENTS
	MOVSI	T2,LPLXNF##	;GET TERMINAL PAGE BIT
	TDNE	T2,LDBPAG##(U)	;IS IT SET?
	 JRST	TTDAX1		;YES
	TRZ	P3,-1		;NO, CLEAR AUTO-XOFF
	ANDCAM	T1,LDBTTD##(U)	;AND SHOW IT AS CLEAR
	JRST	TTDXO2		;GO QUEUE IT
TTDAX1:	HRRI	P3,1		;ENABLE AUTO-XOFF
	IORM	T1,LDBTTD##(U)	;AND SHOW IT AS SET
	JRST	TTDXO2		;GO QUEUE IT

TTD8BT:	XORB	T1,LDBTTD##(U)	;CHANGE THE BIT
	MOVEI	P2,.EM8BE	;8-BIT ENABLE
	TRNN	T1,LTR8BE##	;UNLESS WE JUST CLEARED IT,
	MOVEI	P2,.EM8BD	;THEN IT'S 8-BIT DISABLE
	JRST	TTDXO1		;TRY TO TELL THE FE

TTDXOF:	MOVEI	P2,.EMXOF	;XOF FOR DLS
	IORM	T1,LDBTTD##(U)	;SET REQUESTED BIT
	JRST	TTDXO1		;GO SET UP DTESER ARGUMENTS
TTDCTO:	SKIPA	P2,[.EMFLO]	;FLUSH OUTPUT FOR DLS LINE
TTDXON:	MOVEI	P2,.EMXON	;XON FOR DLS
	ANDCAM	T1,LDBTTD##(U)	;CLEAR REQUESTED BIT

TTDXO1:	PUSHJ	P,STDTQ		;SET UP DTEQUE ARGUMENTS
TTDXO2:	S0PSHJ	DTEQUE##	;QUEUE THE REQUEST
	  JFCL			;FAILED, IGNORE IT
	POPJ	P,		;RETURN

SUBTTL	DATASET CONTROL

;SUBROUTINE TO EXERCISE CONTROL OVER A DATASET
;ARGS:	U/DSCTAB INDEX
;	T3/TRANSACTION CODE
;CALL:	PUSHJ	P,TTDDSC
;	RETURN HERE

TTDDSC:	CAIN	T3,DSTON##	;WANT TO TURN DATASET ON?
	PJRST	TTDCND		;YES
	CAIN	T3,DSTOFF##	;WANT TO TURN IT OFF?
	PJRST	TTDHUD		;YES, TELL RSX-20F TO HANG UP DATASET
	CAIN	T3,DSTREQ##	;WANT TO KNOW STATUS?
	MOVEI	T3,DSTNAC##	;YES, TELL SYSINI NOT TO TAKE ACTION
	POPJ	P,		;RETURN

TTDHUD:	PUSHJ	P,SAVE4##	;SAVE P1-P4
	HRRZ	P3,DSCTAB##(U)	;GET MONITOR LINE NUMBER
	PUSHJ	P,STDT1		;SET UP DTEQUE ARGUMENTS
	HRRI	P2,.EMHUD	;HANG UP DATASET FOR DLS LINE
	S0PSHJ	DTEQUE##	;QUEUE THE REQUEST
	  JFCL			;FAILED, JUST IGNORE
	POPJ	P,		;RETURN
TTDCND:	PUSHJ	P,SAVE4##	;SAVE P1-P4
	HRRZ	P3,DSCTAB##(U)	;GET MONITOR LINE NUMBER
	PUSHJ	P,STDT1		;SET UP DTEQUE ARGUMENTS
	HRRI	P2,.EMDSC	;CONNECT DATASET
	S0PSHJ	DTEQUE##	;QUEUE THE REQUEST
	  JFCL			;FAILED, JUST IGNORE
	POPJ	P,		;RETURN
SUBTTL	TAKE LINE SPEEDS FROM FRONT-END

;HERE FROM DTESER WHEN RSX-20F SENDS LINE SPEEDS

TTDILS:	TDZA	S,S		;HERE ON COMPLETION OF INDIRECT TRANSFER
TTDHLS:	MOVSI	S,TTDILS	;HERE ON START OF MESSAGE
	PUSHJ	P,CHKP1		;CHECK P1 FROM DTESER
	  PJRST	EATMSG##	;FAILED, IGNORE THIS MESSAGE
	HLRZ	U,P3		;GET DLS LINE NUMBER
	PUSHJ	P,DLSMON	;CONVERT TO MONITOR LINE NUMBER IN U
	  PJRST	EATMSG##	;OUT OF RANGE, IGNORE THIS MESSAGE
	MOVE	U,LINTAB##(U)	;GET LDB ADDRESS
	MOVE	P4,[POINT ^D16,.CP20S##] ;WHERE TO PUT INDIRECT DATA
	JUMPE	S,TTDIL1	;BRANCH IF HAVE INDIRECT DATA
	MOVEI	P3,6		;WE WANT 6 8-BIT BYTES
	POPJ	P,		;RETURN

TTDIL1:	ILDB	T1,P4		;GET LINE TRANSMIT SPEED IN BAUD
	PUSHJ	P,FNDSPD	;SET T1 TO CODED SPEED VALUE
	SE1ENT			;ENTER SECTION 1
	JUMPE	T1,TTDIL2	;IGNORE IF -20F DOESN'T KNOW
	DPB	T1,LDPRSP##	;SAVE IN LDB
	DPB	T1,[POINT 4,LDBTTD##(U),3] ;REMEMBERED SPEED
	ILDB	T1,P4		;GET LINE RECEIVE SPEED IN BAUD
	PUSHJ	P,FNDSPD	;SET T1 TO CODED SPEED VALUE
	DPB	T1,LDPTSP##	;SAVE IN LDB
	DPB	T1,[POINT 4,LDBTTD##(U),7] ;REMEMBERED SPEED
TTDIL2:	SETZB	P3,P4		;TELL DTESER WE'RE DONE
	MOVSI	T1,LTLAXF##	;IF -20F TOLD US THE SPEEDS
	ANDCAM	T1,LDBTTD##(U)	;IT ALSO CLEARED AUTO-XOFF ENABLE
IFN FTNET,<
	SKIPGE	LDBREM##(U)	;IF A VTM HOSTED AWAY,
	PUSHJ	P,VTMSPD##	;TELL NETVTM THE NEW SPEED
> ;END IFN FTNET
	PJRST	SETCHP##	;EXIT, WILL SEND ENABLE AUTO-XOFF AT TTDCHP

;ROUTINE TO FIND CODED VALUE OF LINE SPEED IN BAUD
;ARGS:	T1/SPEED IN BAUD
;CALL:	PUSHJ	P,FNDSPD
;	RETURN HERE, CODED VALUE IN T1

FNDSPD:	MOVSI	T2,-LSPLEN##	;MAKE AOBJN POINTER
	CAME	T1,LSPTAB##(T2)	;IS THIS THE SPEED?
	AOBJN	T2,.-1		;NO, TRY NEXT ONE
	SKIPL	T2		;MAYBE, POINTER STILL VALID?
	MOVEI	T2,0		;NO, INVALID SPEED, BUT SAY 0
	HRRZ	T1,T2		;PUT CODE IN T1
	POPJ	P,
SUBTTL	HANDLE DATASET(S) ANSWERED

;HERE FROM DTESER WHEN A DATASET WAS ANSWERED BY RSX-20F

TTDDWA:	PUSHJ	P,CHKP1		;CHECK P1 FROM DTESER
	  PJRST	EATMSG##	;COULDN'T, IGNORE THIS MESSAGE
TTDDW1:	SUBI	P3,2		;ACCOUNT FOR TWO BYTES/ARGUMENT
	JUMPL	P3,CPOPJ##	;RETURN WHEN COUNT EXHAUSTED
	ILDB	U,P4		;GET DLS LINE NUMBER

;ZERO THE LINE'S SPEED BYTES SO THAT INITIA WON'T GET A MISTAKEN NOTION AS TO
;WHAT THIS LINE'S SPEED IS.  RSX20F SHOULD BE COMING ALONG SOON TO TELL US WHAT
;THE SPEED REALLY IS.  THIS IS WORKING ON THE ASSUMPTION THAT ALL RSX20F
;DIALUPS ARE ALSO AUTOBAUD DETECT LINES, WHICH IS CURRENTLY THE CASE.  SHOULD
;THIS EVER CHANGE ...

	PUSHJ	P,DLSMON	;CONVERT TO MONITOR LINE NUMBER IN U
	  PJRST	EATMSG##	;OUT OF RANGE, IGNORE THIS MESSAGE
	MOVE	U,LINTAB##(U)	;GET LDB ADDRESS
	SE1ENT			;ENTER SECTION 1
	SETZ	T1,		;GET LINE SPEED BYTE FOR ZERO
	DPB	T1,LDPSPD##	;CLEAR SPEEDS IN LDB
	DPB	T1,[POINT 4+4,LDBTTD##(U),7] ;BOTH SPEEDS, BOTH PLACES
	MOVSI	T1,LTLACK##!LTLTIM##	;MAKE SURE WE AREN'T WAITING
	ANDCAM	T1,LDBTTD##(U)	; FOR AN ACK ON THIS LINE
	LDB	U,P4		;GET THE DLS LINE NUMBER AGAIN
	IBP	P4		;MOVE PAST UNUSED BYTE
	PUSHJ	P,TTDCDD	;CONVERT DLS LINE # TO DSCTAB INDEX
	  JRST	TTDDW1		;OUT OF RANGE, LOOP FOR NEXT ARGUMENT
	MOVEI	T3,DSTRNG##	;GET CODE FOR PHONE RANG
	PUSHJ	P,DSCREC##	;CALL SCNSER
	MOVEI	T3,DSTON##	;RSX-20F ALREADY HAS DATASET ON
	PUSHJ	P,DSCREC##	;TELL SCNSER
	JRST	TTDDW1		;LOOP FOR NEXT ARGUMENT


SUBTTL	HANDLE DATASET(S) HUNG UP

;HERE FROM DTESER ON DATASET(S) HUNG UP

TTDDHU:	PUSHJ	P,CHKP1		;CHECK P1 FROM DTESER
	  PJRST	EATMSG##	;COULDN'T, IGNORE THIS MESSAGE
TTDDH1:	SUBI	P3,2		;ACCOUNT FOR TWO BYTES/ARGUMENT
	JUMPL	P3,CPOPJ##	;RETURN IF COUNT EXHAUSTED
	ILDB	U,P4		;GET DLS LINE NUMBER
	IBP	P4		;MOVE PAST UNUSED BYTE
	PUSHJ	P,TTDCDD	;CONVERT DLS LINE # TO DSCTAB INDEX
	  JRST	TTDDH1		;OUT OF RANGE, LOOP FOR NEXT ARGUMENT
	MOVEI	T3,DSTOFF##	;GET CODE FOR DATASET OFF
	PUSHJ	P,DSCREC##	;TELL SCNSER
	JRST	TTDDH1		;LOOP FOR NEXT ARGUMENT
SUBTTL	RECEIVE LINE DATA FROM RSX-20F

;HERE TO HANDLE CHARACTER DATA FOR DLS LINES
;THIS ROUTINE PROCESSES "MULTIPLEXED" INPUT (DATA,LINE,DATA,LINE,...)

DLSLND:	PUSHJ	P,CHKP1		;CHECK P1 FROM DTESER
	  PJRST	EATMSG##	;COULDN'T, IGNORE THIS MESSAGE
DLSLN1:	SUBI	P3,2		;DECREMENT COUNT BY 2
	JUMPL	P3,CPOPJ##	;RETURN IF DONE
	ILDB	T3,P4		;GET DATA
	ILDB	U,P4		;GET DLS LINE NUMBER
	PUSHJ	P,DLSMON	;CONVERT TO MONITOR LINE NUMBER IN U
	  JRST	DLSLN1		;OUT OF RANGE, LOOP FOR NEXT ARGUMENT
	PUSHJ	P,GIVLND	;GIVE CHARACTER TO SCNSER
	JRST	DLSLN1		;LOOP FOR MORE



;HERE TO HANDLE CHARACTER DATA FOR CTY

CTYLND:	PUSHJ	P,CHKP1		;CHECK P1 FROM DTESER
	  PJRST	EATMSG##	;COULDN'T, IGNORE THIS MESSAGE
	HRRZ	U,.CPCTN##	;GET CTY LINE NUMBER
CTYLN1:	SUBI	P3,2		;ACCOUNT FOR TWO BYTES/ARGUMENT
	JUMPL	P3,CPOPJ##	;RETURN IF COUNT EXHAUSTED
	ILDB	T3,P4		;GET DATA
	IBP	P4		;FIX UP POINTER
	PUSHJ	P,GIVLND	;GIVE CHARACTER TO SCNSER
	JRST	CTYLN1		;LOOP FOR ANY MORE



;HERE TO HAND THE CHARACTER TO SCNSER, CHECK TO XOFF HANDLED BY -20F

GIVLND:	SE1ENT			;ENTER SECTION 1
	MOVE	U,LINTAB##(U)	;GET LDB ADDRESS
	ANDI	T3,CK.CHR	;KEEP ONLY CHARACTER
	MOVE	T1,T3		;COPY THE CHARACTER
	SKIPL	LDBATR##(U)	;EIGHT-BIT TERMINAL?
	ANDI	T1,CK.CH7	;NO, KEEP ONLY ASCII PART
	CAIE	T1,"S"-100	;INCOMING XOFF
	CAIN	T1,"Q"-100	;OR XON
	 CAIA			;YES, DO SOME CHECKING
	PJRST	RECPTY##	;NO, GIVE IT TO SCNSER
	MOVSI	T2,LTLAXF##	;HAVE WE ENABLED AUTO-XOFF YET
	TDNN	T2,LDBTTD##(U)	;DON'T SAY -20F STOPPED IF IT DIDN'T
	 JRST	GIVLN1		;
	MOVSI	T2,LTLXOF##	;BIT SAYING WE TOLD -20F TO STOP OUTPUT
	CAIN	T1,"S"-100	;XOFF?
	IORM	T2,LDBTTD##(U)	;MARK SINCE IT DID IT ITSELF
	CAIN	T1,"Q"-100	;XON?
	ANDCAM	T2,LDBTTD##(U)	;CLEAR SINCE IT DID IT ITSELF
	PUSHJ	P,SETCHP##	;COME BACK AND CHECK IF XOFF/XON IS A DATA CHAR
GIVLN1:	PJRST	RECPTY##	;NOW GIVE THE XOFF/XON TO SCNSER
SUBTTL	PROCESS NORMAL ACK MESSAGE FOR TERMINALS

;HERE TO PROCESS ACK MESSAGE FOR DLS LINES

DLSACK:	PUSHJ	P,CHKP1		;CHECK P1 FROM DTESER
	  PJRST	EATMSG##	;COULDN'T, IGNORE THIS MESSAGE
DLSAC1:	SUBI	P3,2		;DECREMENT COUNT BY 2
	JUMPL	P3,CPOPJ##	;RETURN WHEN COUNT EXHAUSTED
	ILDB	U,P4		;GET DLS LINE NUMBER
	IBP	P4		;MOVE PAST UNUSED BYTE
	PUSHJ	P,DLSMON	;GET MONITOR LINE NUMBER IN U
	  JRST	DLSAC1		;OUT OF RANGE, LOOP FOR NEXT ARGUMENT
	PUSHJ	P,PRCACK	;ACK THE LINE
	JRST	DLSAC1		;LOOP FOR NEXT ARGUMENT



;HERE FROM DTESER ON ACK MESSAGE FOR CTY

CTYACK:	PUSHJ	P,CHKP1		;CHECK P1 FROM DTESER
	  PJRST	EATMSG##	;COULDN'T, IGNORE THIS MESSAGE
CTYAC1:	SUBI	P3,2		;ACCOUNT FOR TWO BYTES/ARGUMENT
	JUMPL	P3,CPOPJ##	;RETURN WHEN COUNT EXHAUSTED
	ILDB	T1,P4		;GET DLS LINE NUMBER
	IBP	P4		;MOVE PAST UNUSED BYTE
	HLRZ	U,.CPCTN##	;GET CTY DLS LINE NUMBER
	CAME	T1,U		;IS THIS IT?
	JRST	CTYAC1		;NO, LOOP FOR NEXT ARGUMENT
	HRRZ	U,.CPCTN##	;GET -10 LINE NUMBER
PRCACK:	SE1ENT			;ENTER SECTION 1
	MOVE	U,LINTAB##(U)	;GET LDB ADDRESS
	MOVSI	T1,LTLACK##!LTLTIM##	;WAITING FOR ACK
	ANDCAM	T1,LDBTTD##(U)	;NOT ANYMORE
	PJRST	TOREQ##		;GET LINE STARTED AGAIN
SUBTTL	ACK ALL PROCESSING FOR RSX-20F TERMINALS

;HERE TO HANDLE ACK ALL MESSAGE FOR DLS LINES

DLSAAL:	SE1ENT			;ENTER SECTION 1
	PUSHJ	P,CHKP1		;CHECK P1 FROM DTESER
	  PJRST	EATMSG##	;COULDN'T, IGNORE THIS MESSAGE
	PUSHJ	P,SAVE3##	;SAVE DTESER'S ACS
	MOVE	P1,.CPCPN##	;GET CPU NUMBER
	MOVE	P2,TTDOFS##(P1)	;GET STARTING LINE NUMBER FOR TTD GROUP
	MOVSI	P3,LTLACK##!LTLTIM##	;WAITING FOR ACK
DLSAA1:	CAML	P2,TTDLOM##(P1)	;STILL IN THIS TTD GROUP?
	PJRST	DLSAA2		;NO, ACK CTY AND RETURN
	MOVE	U,LINTAB##(P2)	;YES, GET LDB ADDRESS
	ANDCAM	P3,LDBTTD##(U)	;SIGNAL LINE ACK'ED
	PUSHJ	P,TOREQ##	;KICK THE LINE
	AOJA	P2,DLSAA1	;LOOP FOR NEXT LINE
DLSAA2:	HRRZ	U,.CPCTN##	;GET CTY LINE NUMBER
	MOVE	U,LINTAB##(U)	;GET LDB ADDRESS
	ANDCAM	P3,LDBTTD##(U)	;SIGNAL LINE ACK'ED
	PJRST	TOREQ##		;EXIT, GIVING THE LINE A KICK
SUBTTL	ONCE A SECOND ROUTINES

;HERE ONCE A SECOND (CALLED THROUGH ISRCHK DISPATCH)

TTDSEC:	PUSHJ	P,SKPMPP##	;RUNNING PRIMARY PROTOCOL
	  POPJ	P,		;NO, WAIT UNTIL WE ARE
	PUSHJ	P,SAVE4##	;SAVE NOW IN CASE WE NEED THEM
	MOVSI	T2,F20LPP	;DID WE SWITCH PROTOCOL AND BACK AGAIN
	TDNN	T2,.CP20F##	; SET BY SVPPC
	JRST	TTDSE1		;NO, GO CHECK OUT DATASETS
	ANDCAM	T2,.CP20F##	;YES, CLEAR BIT
	HRLZ	P1,.CPCPN##	;GET CPU,,0 FOR DTEQUE
	MOVEI	P2,EM.IND+.EMSNA ;THIS IS A SEND ALL
	MOVEI	P3,CONSIZ	;SIZE OF CONTINUED MESSAGE
	MOVE	P4,[POINT 8,CONMSG] ;POINT TO THE MESSAGE
	SETZ	S,		;NO POST ADDRESS
	SKIPL	DEBUGF##	;DON'T BOTHER IF DEBUGGING
	S0PSHJ	DTEQUE##	;TELL TERMINAL USERS WE ARE NOT "NOT RUNNING"
	  JFCL			;IGNORE ERRORS HERE
TTDSE1:	MOVSI	P1,F20SDT	;DOES DTESER WANT US TO TELL
	TDNE	P1,.CP20F##	;THE FRONT-END ABOUT A DATE TIME CHANGE?
	PUSHJ	P,DTEDTM##	;YES, DO SO
	ANDCAM	P1,.CP20F##	;AND CLEAR THE FLAG
	MOVEI	T1,ST.NRL	;GET BIT FOR NO REMOTE LOGINS
	MOVSI	T2,F20ADS	;ANSWER DATASET FLAG
	TDNE	T1,STATES##	;REMOTE LOGINS ALLOWED?
	JRST	[TDNN T2,.CP20F## ;IS -20F ANSWERING DATASETS
		 JRST TTDSE3	;NO, DO NEXT THING IN SECOND CODE
		 ANDCAM T2,.CP20F## ;CLEAR FLAG THAT WE TOLD -20F ITS OK
		 JRST TTDSE2]	;AND TELL IT TO STOP ANSWERING
	TDNE	T2,.CP20F##	;IS -20F ANSWERING DATASETS
	JRST	TTDSE3		;YES, GO ON TO NEXT THING
	IORM	T2,.CP20F##	;MARK THAT WE TOLD IT TO ANSWER
	TDZA	P3,P3		;ZERO MEANS ENABLE TO ANSWER DATASETS
TTDSE2:	MOVEI	P3,1		;NON-ZERO MEANS DON'T ANSWER DATASETS
	HRLZ	P1,.CPCPN##	;GET CPU,,0 FOR DTEQUE
	MOVE	P2,[.EMDH1,,.EMEDR];ENABLE/DISABLE DATASETS FOR DH11 LINES
	SETZB	P4,S		;NO BYTE POINTER OR POST ROUTINE
	S0PSHJ	DTEQUE##	;QUEUE THE REQUEST
	  JFCL			;IGNORE ANY FAILURE
TTDSE3:	POPJ	P,		;DONE WITH ONCE-A-SECOND CODE FOR NOW

;HERE ONCE A SECOND (CALLED FROM SCNSEC)

TTDSIN::MOVSI	T2,LTLACK##	;GET BIT IMPLYING HUNG CHECKING IS DESIRED
	TDNN	T2,LDBTTD##(U)	;IS IT ON?
	POPJ	P,		;NO, NOTHING TO DO HERE
	LDB	T2,LDPTDT##	;YES, GET CURRENT TIMEOUT VALUE
	SOJLE	T2,TTDSI1	;GO IF EXPIRED
	DPB	T2,LDPTDT##	;STORE UPDATED VALUE IF NOT
	POPJ	P,		;DONE FOR THIS SECOND
TTDSI1:	JUMPL	T2,CPOPJ##	;LTLACK MUST HAVE CLEARED WHILE WE WERE LOOKING
	MOVSI	T2,LTLACK##!LTLTIM## ;GET BITS TO CLEAR
	ANDCAM	T2,LDBTTD##(U)	;ALLOW THE LINE TO GO AGAIN
	PUSH	P,T1		;PRESERVE LDBDCH
	PUSHJ	P,TOPOKE##	;KICK THE LINE
	JRST	TPOPJ##		;RETURN HAPPY
SUBTTL	COMMON SUBROUTINES FOR TTDINT

;ROUTINE TO CHECK P1 AS SUPPLIED BY DTESER FOR VALID -20F DTE
;ARGS:	P1/CPU,,DTE (FROM DTESER)
;CALL:	PUSHJ 	P,CHKP1
;	  RETURN HERE IF NOT A -20F FRONT END
;	RETURN HERE IF IT IS

CHKP1:	HRLZ	T1,.CPCPN##	;GET THIS CPU,,0
	CAMN	T1,P1		;THIS IT
	AOS	(P)		;YES, OK TO PROCEED
	POPJ	P,		;NO, IGNORE CALL


;ROUTINE TO SET UP FOR CALL TO DTEQUE FOR DLS LINE FUNCTIONS
;ARGS:	U/LDB ADDRESS  (ENTER AT STDT1 IF P3 IS ALREADY THE LINE NUMBER)
;CALL:	PUSHJ	P,STDTQ
;	ALWAYS RETURNS HERE WITH
;		P1/CPU # ,, DTE #
;		P2/.EMDLS ,, <UNCHANGED>
;		P3/DLS # ,, 0
;		P4/ 0
;		S/  0

STDTQ:	LDB	P3,LDPLNO##	;GET -10 LINE NUMBER
STDT1:	MOVE	P1,.CPCTN##	;GET DLS,,-10 LINE NUMBERS FOR CTY ON THIS CPU
	CAIE	P3,(P1)		;IS THIS THE CTY
	JRST	STDT2		;NO, WORK HARDER
	HLLZ	P3,P1		;GET DLS # ,, 0
	JRST	STDT3		;FINISH UP AND RETURN
STDT2:	MOVE	P4,.CPCPN##	;GET CPU NUMBER
	SUB	P3,TTDOFS##(P4)	;CONVERT TO A DLS LINE ON THIS CPU
	HLRZS	P1		;ISOLATE CTY LINE NUMBER
	CAIL	P3,(P1)		;LINE BELOW THE CTY
	AOS	P3		;NO, ACCOUNT FOR THE HOLE
	HRLZS	P3		;POSITION THE ANSWER
STDT3:	HRLZ	P1,.CPCPN##	;GET CPU,,0 FOR DTEQUE
	HRLI	P2,.EMDLS	;SET LH P2 = DLS FUNCTION
	SETZB	P4,S		;CLEAR BYTE POINTER AND POST ADDRESS
	POPJ	P,		;AND RETURN
;ROUTINE TO CONVERT DLS LINE # TO DSCTAB INDEX AND RANGE CHECK
;ARGS:	U/DLS LINE NUMBER
;CALL:	PUSHJ	P,TTDCDD
;	  RETURN HERE IF OUT OF RANGE OR CTY ( NOT IN DSCTAB )
;	RETURN HERE IF VALID, DSCTAB INDEX IN U

TTDCDD:	PUSHJ	P,DLSMON	;FIRST, CONVERT TO -10 LINE NUMBER
	  POPJ	P,		;OUT OF RANGE
	PUSH	P,T1		;SAVE T1
	HRRZ	T1,.CPCTN##	;GET CTY FOR THIS CPU
	CAIN	T1,(U)		;THIS IT
	JRST	TPOPJ##		;YES, CTY'S ARE NOT IN DSCTAB, OUT OF RANGE
	MOVEI	U,TTDDSO##(U)	;ADJUST FOR DSCTAB
	JRST	TPOPJ1##	;AND RETURN



;ROUTINE TO CONVERT DLS LINE NUMBER TO MONITOR LINE NUMBER AND RANGE CHECK
;ARGS:	U/DLS LINE NUMBER
;CALL:	PUSHJ	P,DLSMON
;	  RETURN HERE IF LINE NUMBER OUT OF RANGE
;	RETURN HERE, MONITOR LINE NUMBER IN U

DLSMON:	PUSH	P,T1		;SAVE ALL
	MOVS	T1,.CPCTN##	;GET -10 LINE NUMBER,,DLS LINE NUMBER
	CAIN	U,(T1)		;IS THIS CTY ON THIS CPU
	JRST	DLSMN1		;YES
	CAIL	U,(T1)		;IS THIS LINE BELOW CTY#
	SOS	U		;NO, COMPENSATE FOR HOLE
	MOVE	T1,.CPCPN##	;GET CPU WE ARE ON
	ADD	U,TTDOFS##(T1)	;ADD TO START OF LINES ON THIS CPU
	CAMGE	U,TTDLOM##(T1)	;IN RANGE?
	AOS	-1(P)		;YES, GIVE GOOD RETURN
	JRST	TPOPJ##		;RESTORE T1 AND RETURN
DLSMN1:	HLRZ	U,T1		;GET CTY LINE NUMBER
	JRST	TPOPJ1##	;AND TAKE GOOD RETURN


	END