Cleanup more typos.

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

diff --git a/src/ptysrh.mac b/src/ptysrh.mac
index a98f4a9..08a5184 100644 (file)
--- a/src/ptysrh.mac
+++ b/src/ptysrh.mac
@@ -7,12 +7,10 @@ ENTRY PTYSRH          ;DUMMY GLOBAL FOR FULL DUPLEX PTY
 PTYSRH:\r
 \r
 \r
-\r
 ;ACCUMULATOR ASSIGNMENTS\r
 \r
        DDB=DEVDAT\r
        LINE=TAC1\r
-\r
        CHREC=TEM\r
        SCNHAC=12\r
        PIOS=13\r
@@ -29,6 +27,7 @@ IOPTW=4000            ;OUTPUT WAIT (OBJ. JOB HAS DONE INPUT)
 IOPTRE=2000            ;PTY RESPONSE IS READY\r
 MONMOD=1000            ;PTY IS IN MONITOR MODE\r
 \r
+\r
 INTERNAL FTCHECK,FTMONP\r
 IFN FTCHECK+FTMONP,<\r
 EXTERNAL PTYDDB,PTYCSV,PTYSAC,PTYBND,PTYBM1,PTYDDS,PIOSAV,PDDSAV\r
@@ -47,6 +46,7 @@ PTYDDB:       SIXBIT  /PTY0/
        EXP     PTYDSP\r
        XWD     DVIN+DVOUT,3\r
        Z\r
+       Z\r
        XWD     PROG,0\r
        XWD     PROG,0\r
        Z\r
@@ -62,7 +62,8 @@ PTYSA2:       BLT     SCNHAC,0
 PIOSAV:        0\r
 PDDSAV:        0\r
 >\r
-\fINTERNAL PTYDSP\r
+\f\r
+INTERNAL PTYDSP\r
 EXTERNAL OUT\r
        POPJ    PDP,    ;INITIALIZE\r
        POPJ    PDP,            ;PRINT ERROR, STOP JOB\r
@@ -126,7 +127,7 @@ PTYOUT:     LDB LINE,PUNIT
        POPJ PDP,\r
 \r
 PTYOU6:        TLO     IOS,T37+IOFST   ;FORCE BUFFER RESET\r
-                               ;T37 SO TABS, ETC NOT TRNSLATED (TIMING ERRO OTHERWI)\r
+                               ;T37 SO TABS, ETC NOT TRNSLATED (TIMING ERROR OTHERWISE)\r
        MOVEM IOS,DEVIOS(DDB)\r
        JSR PTYRET              ;RESTORE ACS\r
 \r
@@ -145,6 +146,7 @@ PTYOU0:     TRNE    IOS,IOPTRE
        JUMPE ITEM,PTYOU8       ;BUFFER EMPTY>\r
 \f      PUSHJ PDP,ITMCNT\r
        MOVEM ITEM,DEVCTR(DDB)\r
+\r
 \fPTYOU1:       TRO IOS,IOACT\r
        TRZ IOS,IOPTRE\r
        JSR PTYSAV              ;SAVE ACS\r
@@ -164,7 +166,6 @@ PTYOU7:     PUSHJ PDP,TCOMM         ;SEND NEXT CHARACTER
        JRST    PTYOU3          ;YES, BUFFER NOT MOVED INTO OBJECT\r
                                ;JOB TTY IN BUFFER \r
        JRST PTYOU2             ;NO\r
-\r
 PTYOU4:        CAIE CHREC,"^"\r
        JRST PTYOU7\r
        MOVEM CHREC,PTYCSV(PDDB);YES. FLUSH OUTPUT\r
@@ -231,7 +232,9 @@ PTYIN5:     JUMPE ITEM,PTYI3A       ;IF COUNT RUNS OUT
        EXCH PDDB,DDB\r
        PUSH PDP,LINE\r
        JRST PTYIN4\r
-\fPTYI3A:       TRZ     IOS,IOBKTL\r
+\r
+\f\r
+PTYI3A:        TRZ     IOS,IOBKTL\r
        TRO     IOS,IOPTRE      ;INPUT READY\r
 PTYI3B:        PUSHJ PDP,STOSQD\r
        JRST    ADRERR\r
@@ -249,6 +252,8 @@ PTYI10:     TLZE IOS, IOW
        POP PDP, LINE\r
 PTYIN8:        MOVEM IOS, DEVIOS(DDB)\r
        POPJ PDP,\r
+\r
+\r
 \f;SAVE ACCUMULATORS\r
 ;CALL  MOVEI DDB,ADDRESS OF PTYDB\r
 ;      JSR PTYSAV\r
@@ -266,10 +271,12 @@ PTYSA0:   MOVEM SCNHAC,PTYBND(DDB)        ;SAVE HIGH AC
        MOVE PDDB,DDB\r
        JRST @PTYSAV\r
 \r
+\r
 ;RESTORE ACCUMULATORS\r
 ;CALL  MOVEI PDDB,PTY DATA BLOCK ADDRESS\r
 ;      JSR PTYRET\r
 \r
+\r
 IFE FTCHECK+FTMONP,<\r
 PTYRET:        0\r
 >\r
@@ -281,6 +288,7 @@ PTYRE0:     HRRZ SCNHAC,PDDB
 \r
 ;SAVE ONLY PIOS AND PDDB\r
 \r
+\r
 IFE FTCHECK+FTMONP,<\r
 PACSAV:        0\r
 >\r
@@ -310,7 +318,6 @@ PTYPE:      MOVE PDDB,LINE
 PTWAKE:        PUSH PDP,TEM\r
        PUSH    PDP,TAC1\r
        LDB     TAC,[POINT 6,DEVCHR(PDDB),5]    ;PTY JOB NR\r
-\r
        HRRZ    TAC1,CLOCK              ;LAST JOB IN CLOCK QUEUE\r
 PTWAK2:        CAIN    TAC1,CIPWTM1            ;LOOKED AT ALL JOBS\r
        JRST PTWAK1                     ;YES, WAS NOT SLEEPING\r
@@ -332,15 +339,16 @@ PTWAK1:   POP     PDP,TAC1
 \r
 INTERNAL PTYOW,PTMNMD,PTMNMZ\r
 \r
-PTMNMD:        PUSH    PDP,PIOS\r
+\r
+PTMNMD:        JSR     PACSAV          ;SAVE 2 AC'S\r
        MOVEI   PIOS,MONMOD     ;PTY INTO MONITOR MODE\r
        JRST    PTYSET\r
 \r
-PTMNMZ:        PUSH    PDP,PIOS\r
+PTMNMZ:        JSR     PACSAV          ;SAVE AC'S\r
        HRROI   PIOS,MONMOD     ;PTY OUT OF MONITOR MODE\r
        JRST    PTYSET\r
 \r
-PTYOW: PUSH    PDP,PIOS\r
+PTYOW: JSR     PACSAV\r
        MOVEI   PIOS,IOPTW      ;PTY IN OUTPUT WAIT\r
 \r
 PTYSET:        MOVE    PDDB,LINE\r
@@ -352,6 +360,5 @@ PTYSET:     MOVE    PDDB,LINE
        TRNE    PIOS,IOPTW      ;IS LINKED TTY JOB IN INPUT WAIT?\r
        PUSHJ PDP,PTWAKE        ;YES, WAKE UP CONTROL JOB\r
        JRST ACRET\r
+\r
 \f      END\r
-\f\r
-\0\0\0\0
\ No newline at end of file