X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/bb920f47d2b4fd2ac0c46c72df890dfe6931e943..0000ed8f3efcdbf411f6c91517909089e5d7ef5d:/src/dlsint.mac

diff --git a/src/dlsint.mac b/src/dlsint.mac
index 9699578..7d9de3a 100644
--- a/src/dlsint.mac
+++ b/src/dlsint.mac
@@ -20,9 +20,12 @@ IFN FTTTYSER,<XP FULTWX,4>
 
 ;BYTE POINTERS
 
+
 EXTERNAL PLASTC
 
 
+
+
 DLS=240			;DC10 DEVICE NUMBER
 ;BITS IN CHREC TO COMMUNCATE WITH DLS
 
@@ -59,8 +62,7 @@ SCNINT:	CONSO	DLS,30		;ANY INTERRUPTS ON DLS
 	JRST	RECINT		;YES, RECEIVER INT. HANDLER
 	DATAO	DLS,[EXP TDSABL]	;CLEAR HARDWARE FLAG
 	JRST	XMTINT		;GO PROCESS CHAR IN SCNSRF OR SCNSRH
-
-;COMMON PARTS OF CTY AND SCANNER INTERRUPT SERVICE ROUTINES.
+;COMMON PARTS OF CTY AND SCANNER INTERRUPT SERVICE ROUTINES.
 
 EXTERNAL INJEST,DDBSRC
 INTERNAL TCOMM
@@ -82,9 +84,7 @@ TCOMM:
 SCNIN2:	DATAO	DLS,[EXP TDSABL]		;SET TRANSMIT DISABLE BIT AND OUTPUT IT
 				;(JUST INCASE, ELSE IT WILL INTERRUPT IMMEDIATLY AGAIN)
 	POPJ	PDP,		;DISMISS INTERRUPT
-
-
-;COMMON TO RECEIVE AND TRANSMIT.
+;COMMON TO RECEIVE AND TRANSMIT.
 
 INUSE: HRRZS  DDB	;LINE DISABLED IF RH TTYTAB=-1
 	CAIN DDB,-1
@@ -116,5 +116,4 @@ DLSTYP:	HRL	CHREC,LINE	;SET UP LINE NUMBER IN CHREC
 	POPJ PDP,
 
 	LIT
-
 DLSEND:	END