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

diff --git a/src/dlsint.mac b/src/dlsint.mac
index 9699578..c930d94 100644
--- a/src/dlsint.mac
+++ b/src/dlsint.mac
@@ -1,11 +1,11 @@
 TITLE	DLSINT - INT. SERV. FOR DLS (DATA LINE SCANNER DC10)
-SUBTTL	M.FREDRIKSEN/RCC TS  01 JUN 69 V005
+SUBTTL	M. FREDRIKSEN/RCC TS  01 JUN 69 V005
 XP	VDLSIT,005
 		;PUT VERSION NUMBER IN GLOB LISTING AND LOADER STORAGE MAP
 
 ;MODULAR HARDWARE INTERFACE WITH EITHER SCNSER OR TTYSER
 
-EXTERN TYPX
+EXTERNAL TYPX
 
 IFE FTTTYSER,<XP FULTWX,200000>
 
@@ -20,15 +20,18 @@ IFN FTTTYSER,<XP FULTWX,4>
 
 ;BYTE POINTERS
 
+
 EXTERNAL PLASTC
 
 
-DLS=240			;DC10 DEVICE NUMBER
-;BITS IN CHREC TO COMMUNCATE WITH DLS
 
-USDRLN=100		;USE DIRECTED LINE NUMBER
-TDSABL=400		;TRANSMIT DISABLE
-RCVBIT=400		;RECEIVE BIT AFER DATAI DLS,CHREC
+
+DLS=240				;DC10 DEVICE NUMBER
+;BITS IN CHREC TO COMMUNICATE WITH DLS
+
+USDRLN=100			;USE DIRECTED LINE NUMBER
+TDSABL=400			;TRANSMIT DISABLE
+RCVBIT=400			;RECEIVE BIT AFTER DATAI DLS,CHREC
 
 ;DEVICE DEPENDENT PORTION OF INITIALIZATION CODE
 ;CALL:	MOVEI	TAC,CHANNEL NUMER
@@ -36,11 +39,11 @@ RCVBIT=400		;RECEIVE BIT AFER DATAI DLS,CHREC
 
 INTERNAL SCNINI
 DLSINI:
-SCNINI:	CONO	DLS,40		;INIT DLS COMPLETELY (I/O/RESET)
+SCNINI:	CONO	DLS,40		;INIT DLS COMPLETELY (I/O RESET)
 	CONO	DLS,(TAC)	;ASSIGN PI CHANNEL NUMBER
 	POPJ	PDP,
 
-;SCANNER INTERRUPT SERVICE ROUTINE
+;SCANNER INTERRUPT SERVICE ROUTINE.
 
 ENTRY DLSINT
 
@@ -48,7 +51,7 @@ INTERNAL SCNINT
 EXTERNAL SCNSAV,TCONLN,TTYTAB,XMTINT,TYPE,INUS2,RECINT
 
 DLSINT:
-SCNINT:	CONSO	DLS,30		;ANY INTERRUPTS ON DLS
+SCNINT:	CONSO	DLS,30		;ANY INTERRUPTS ON DLS?
 	JRST SCNINT		;NO
 	JSR SCNSAV
 	DATAI 	DLS,CHREC	;GET CHARACTER & LINE INFO
@@ -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
@@ -74,17 +76,15 @@ TCOMM:
 	CAILE LINE,TCONLN	;PSEUDO CONSOLE?
 	JRST INJEST		;YES
 	CAIN	LINE,TCONLN	;IS IT THE CTY ?
-	JRST INUS2		;YES, ACCPT CHAR AND PROCESS
+	JRST INUS2		;YES, ACCEPT CHAR AND PROCESS
 	JRST TYPE		;NO, ECHO CHAR ON FULL DUPLEX
 				;BEFORE PROCESSING IT
 
 				;HERE IF LINE NUMBER TOO BIG
 SCNIN2:	DATAO	DLS,[EXP TDSABL]		;SET TRANSMIT DISABLE BIT AND OUTPUT IT
-				;(JUST INCASE, ELSE IT WILL INTERRUPT IMMEDIATLY AGAIN)
+				;(JUST INCASE, ELSE IT WILL INTERRUPT IMMEDIATELY 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