Added Macro version 37.

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

diff --git a/src/dlsint.mac b/src/dlsint.mac
index 9699578..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
@@ -20,15 +20,18 @@ IFN FTTTYSER,<XP FULTWX,4>
 \r
 ;BYTE POINTERS\r
 \r
+\r
 EXTERNAL PLASTC\r
 \r
 \r
-DLS=240                        ;DC10 DEVICE NUMBER\r
-;BITS IN CHREC TO COMMUNCATE 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
+\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 AFTER DATAI DLS,CHREC\r
 \f\r
 ;DEVICE DEPENDENT PORTION OF INITIALIZATION CODE\r
 ;CALL: MOVEI   TAC,CHANNEL NUMER\r
@@ -36,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
@@ -48,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
@@ -59,8 +62,7 @@ SCNINT:       CONSO   DLS,30          ;ANY INTERRUPTS ON DLS
        JRST    RECINT          ;YES, RECEIVER INT. HANDLER\r
        DATAO   DLS,[EXP TDSABL]        ;CLEAR HARDWARE FLAG\r
        JRST    XMTINT          ;GO PROCESS CHAR IN SCNSRF OR SCNSRH\r
-\f\r
-;COMMON PARTS OF CTY AND SCANNER INTERRUPT SERVICE ROUTINES.\r
+\f;COMMON PARTS OF CTY AND SCANNER INTERRUPT SERVICE ROUTINES.\r
 \r
 EXTERNAL INJEST,DDBSRC\r
 INTERNAL TCOMM\r
@@ -74,17 +76,15 @@ 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\r
-\r
-;COMMON TO RECEIVE AND TRANSMIT.\r
+\f;COMMON TO RECEIVE AND TRANSMIT.\r
 \r
 INUSE: HRRZS  DDB      ;LINE DISABLED IF RH TTYTAB=-1\r
        CAIN DDB,-1\r
@@ -116,5 +116,4 @@ DLSTYP:     HRL     CHREC,LINE      ;SET UP LINE NUMBER IN CHREC
        POPJ PDP,\r
 \r
        LIT\r
-\r
 DLSEND:        END\r