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

diff --git a/src/dlsint.mac b/src/dlsint.mac
index 7d9de3a..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>
 
@@ -26,12 +26,12 @@ EXTERNAL PLASTC
 
 
 
-DLS=240			;DC10 DEVICE NUMBER
-;BITS IN CHREC TO COMMUNCATE WITH DLS
+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 AFER DATAI DLS,CHREC
+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
@@ -39,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
 
@@ -51,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
@@ -76,13 +76,13 @@ 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.