Cleanup more typos.

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

diff --git a/src/lptser.mac b/src/lptser.mac
index f5c3273..58a0ae2 100644 (file)
--- a/src/lptser.mac
+++ b/src/lptser.mac
@@ -18,6 +18,7 @@ SUBTTL        T. W. MCMANUS /TNM   TS   20 MAY 69
 \r
        EXTERNAL ADVBFE, IOSET, OUT, SETACT, STOIOS\r
 \r
+\r
 ;THE FOLLOWING SYMBOLS ARE REFERENCED OUTSIDE OF LPTSER:\r
 \r
        INTERN LPTINT, LPTNXT, LPTECM, LPTDON, LPTDSP\r
@@ -35,11 +36,13 @@ LPTSER:
        LPTDCM=7B35                     ;DONE CHANNEL MASK\r
        LPTBDM=LPTBSY+LPTDON            ;BUSY/DONE FLAG MASK\r
 \r
+\r
 ;LINE PRINTER DEVICE DEPENDANT I/O STATUS MNEMONIC DEFINITIONS\r
 \r
        LPTEND=Z(1B10)                  ;CLOSE UUO HAS BEEN DONE\r
        LPTSYN=Z(1B11)                  ;CREF AFTER CLOSE UUO HAS BEEN SENT\r
 \r
+\r
 ;LINE PRINTER DEVICE DATA BLOCK ADDRESSING MNEMNIC DEFINITIONS\r
 \r
        LPTCON=-4                       ;RH = SKIP CHAIN MASK REGISTER\r
@@ -57,6 +60,7 @@ LPTSER:
        LPTDTO=27                       ;DATAO LP?,(TAC)\r
        LPTBKO=30                       ;BLKO  LP?,LP?PTR\r
 \r
+\r
 ;LINE PRINTER SERVICE DISPATCH TABLE\r
 \r
        JRST LPTINI                     ;INITIALIZE\r
@@ -106,6 +110,7 @@ LPTINI: MOVEI TAC,LPTCLR            ;CLEAR THE LINE PRINTER
        JRST CPOPJ1                     ;SKIP RETURN IF ENTERED AT LPTINI\r
                                        ; TO FORCE CALL FOR EACH LPT\r
 \r
+\r
 ;LINE PRINTER CLOSE UUO ROUTINE\r
 \r
 LPTCLS:        TLO IOS,LPTEND                  ;TURN ON THE END FLAG\r
@@ -223,9 +228,3 @@ LPTSET:     MOVEI TAC,@DEVOAD(DEVDAT)       ;GET ABS. ADDR. OF CURRENT BUFFER
 \r
 \r
        END\r
-\r
-\r
-\r
-\r
-       \r
-\0\0\0\0
\ No newline at end of file