Added version 10 of basic.

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

diff --git a/src/lptser.mac b/src/lptser.mac
index 05dade0..95304f0 100644 (file)
--- a/src/lptser.mac
+++ b/src/lptser.mac
@@ -16,7 +16,8 @@ SUBTTL        T. W. MCMANUS /TNM   TS   20 MAY 69
 \r
 ;THE FOLLOWING EXTERNAL SYMBOLS ARE DEFINED IN UUCON:\r
 \r
-       EXTERNAL ADVBFE, IDSET, OUT, SETACT, STOIOS\r
+       EXTERNAL ADVBFE, IOSET, OUT, SETACT, STOIOS\r
+\r
 \r
 ;THE FOLLOWING SYMBOLS ARE REFERENCED OUTSIDE OF LPTSER:\r
 \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
@@ -168,7 +173,7 @@ LPTWCK:     TLZE IOS,IOW                    ;IS JOB WAITING FOR I/O COMPLETION?
 LPTEX2:        JRST STOIOS                     ;SAVE IOS, RESET HUNG DEVICE COUNT\r
                                        ; AND DISMISS INTERRUPT\r
 \r
-LTPOFF:        TLNN IOS,LPTEND                 ;SKIP IF CLOSE HAS BEEN DONE\r
+LPTOFF:        TLNN IOS,LPTEND                 ;SKIP IF CLOSE HAS BEEN DONE\r
        JRST LPTOF1                     ; GO TURN PRINTER OFF UNTIL NEXT OUTPUT\r
        TLON IOS,LPTSYN                 ;HAS FINAL CRFF BEEN OUTPUT?\r
        JRST LPTBG2                     ; NO, SO GO DO IT\r
@@ -189,19 +194,19 @@ LPTER1:   MOVEM TAC,LPTSV2(DEVDAT)        ;SAVE TAC IN DDB
        MOVEI TAC,LPTLOV                ;GET LINE OVERFLOW ERROR MASK\r
        XCT LPTCSO(DEVDAT)              ;SKIP IF LINE OVERFLOW FLAG IS ON\r
        JRST LPTER2                     ; GO CHECK IF PREVIOUS ERROR OCCURRED\r
-       MOVN TAC,[EXP 100001]           ;DECREMENT BLK0 POINTER\r
+       MOVN TAC,[EXP 1000001]          ;DECREMENT BLK0 POINTER\r
        ADDM TAC,LPTPTR(DEVDAT)\r
        MOVE TAC,[EXP 15B6+12B13]       ;PRINT CRLF\r
        XCT LPTDTO(DEVDAT)\r
        JRST LPTER4\r
 \r
-LPTER4:        XCT LPTECH(DEVDAT)              ;SKIP IF ERROR INTERRUPT NOT ASSIGNED\r
+LPTER2:        XCT LPTECH(DEVDAT)              ;SKIP IF ERROR INTERRUPT NOT ASSIGNED\r
        JRST LPTER5                     ; ERROR CONDITION DETECTED\r
        MOVE TAC,LPTCH(DEVDAT)          ;GET INTERRUPT CHANNEL ASSIGNMENTS\r
        ANDI TAC,LPTDCM                 ;MASK OUT ERROR CHANNEL\r
        IORI TAC,LPTBSY                 ;SET THE BUSY FLAG\r
        XCT LPTCNO(DEVDAT)              ;SEND IT OUT TO THE LPT\r
-       MOVEI TAC,LPTRLOV+LPTERR+LPTDON ;ENABLE FOR ALL INTERRUPTS\r
+       MOVEI TAC,LPTLOV+LPTERR+LPTDON  ;ENABLE FOR ALL INTERRUPTS\r
 LPTER3:        HRRM TAC,LPTCON(DEVDAT)         ;SAVE SKIP CHAIN MASK FLAGS\r
 LPTER4:        MOVE TAC,LPTSV2(DEVDAT)         ;RESTORE SAVED ACCUMULATOR\r
        JRST LPTEX1(DEVDAT)             ; AND GO DISMISS INTERRUPT\r
@@ -223,8 +228,3 @@ LPTSET:     MOVEI TAC,@DEVOAD(DEVDAT)       ;GET ABS. ADDR. OF CURRENT BUFFER
 \r
 \r
        END\r
-\r
-\r
-\r
-\r
-       
\ No newline at end of file