Cleanup typos.

[retro-software/dec/tops10/v4.5.git] / src / dlsint.mac

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