Fixed typos.

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

diff --git a/src/ptysrh.mac b/src/ptysrh.mac
index 1e2b1e5..a98f4a9 100644 (file)
--- a/src/ptysrh.mac
+++ b/src/ptysrh.mac
@@ -52,10 +52,10 @@ PTYDDB:     SIXBIT  /PTY0/
        Z\r
        XP      PTYCSV,.-ZZ\r
        Z\r
-       XP      PTYDDS,.-ZZ\r
+       XP      PTYSAC,.-ZZ\r
        BLOCK   13\r
        XP      PTYBND,PTYSAC+12\r
-       XP      PTYDM1,PTYBND-1\r
+       XP      PTYBM1,PTYBND-1\r
        XP      PTYDDS,.-ZZ     ;SIZE OF PTY DDB\r
 \r
 PTYSA2:        BLT     SCNHAC,0\r
@@ -106,9 +106,8 @@ PTYREL:     LDB LINE,[POINT 6,DEVCHR(DDB),23]
 ;SET IN THE OF IOS)\r
 \r
 \r
-EXTERNAL TCONLN,TTYTIBTPYTAB,PTYTAB,SETIOD\r
-EXTERNAL ADVBFF,RUNIT,RECIN3,PUTCHI\r
-EXTERNAL TTIBUF,SPCHEK,DDBSRC,LINTAB,CNCTST,TIFCTR,INBFUL\r
+EXTERNAL TCOMLN,TTYTAB,TCOMM,TPYTAB,PTYTAB,ITMCNT,SETIOD\r
+EXTERNAL ADVBFE,PUNIT\r
 \r
 PTYOUT:        LDB LINE,PUNIT\r
        JSR PTYSAV\r
@@ -172,7 +171,7 @@ PTYOU4:     CAIE CHREC,"^"
        MOVEM IOS,DEVIOS(DDB)   ;SAVE TTY STATE\r
        TRO PIOS,IOPTRE         ;LET USER KNOW\r
 \r
-PTYOU3:        JRS PTYRET              ;RESTORE ACS\r
+PTYOU3:        JSR PTYRET              ;RESTORE ACS\r
        EXCH    IOS,PIOS\r
 PTYOU8:        TLZE IOS,IOW\r
        PUSHJ PDP,SETIOD        ;START PTY JOB\r
@@ -189,7 +188,7 @@ PTYOU5:     TRZ IOS,IOACT+IOPTW     ;CONSIDER OUTPUT COMPLETED
        TLO IOS,IOFST\r
        MOVEM IOS,DEVIOS(DDB)\r
        POPJ PDP,\r
-\fEXTERNAL TCONLN,TTYTAB,SETIOD,ADVBFF,STOSQD,ADRERR\r
+\fEXTERNAL TCONLN,TTYTAB,SETIOD,STODAT,ADVBFF,STOSQD,ADRERR\r
 \r
 PTYIN: LDB LINE,[POINT 6,DEVCHR(DDB),23]\r
        ADDI LINE,TCONLN\r
@@ -213,7 +212,7 @@ PTYIN1:     PUSH PDP,LINE
        JUMPE CHREC,PTYIN5+1    ;NO\r
                                ;YES,SAVE LINE NO.\r
 PTYIN4:        TLNN PIOS,IO+SP         ;IS TTY DONE?\r
-       JRST PTYI38             ;YES. THATS ALL\r
+       JRST PTYI3B             ;YES. THATS ALL\r
        MOVE DAT,CHREC\r
        PUSHJ PDP,STODAT        ;STORE CHARACTER\r
        JRST    ADRERR\r
@@ -258,9 +257,9 @@ PTYIN8:     MOVEM IOS, DEVIOS(DDB)
 IFE FTCHECK+FTMONP,<\r
 PTYSAV:        0\r
 >\r
-PTYSA0:        MOVEM SCHHAC,PTYBDN(DDB)        ;SAVE HIGH AC\r
+PTYSA0:        MOVEM SCNHAC,PTYBND(DDB)        ;SAVE HIGH AC\r
        HRRZ SCNHAC,DDB\r
-       ADDI SCHNHAC,PTYBM1\r
+       ADDI SCNHAC,PTYBM1\r
        HRRM SCNHAC,PTYSA2\r
        SUBI SCNHAC,SCNHAC-1\r
        XCT     PTYSA2          ;DO BLT SCNHAC\r
@@ -352,6 +351,7 @@ PTYSET:     MOVE    PDDB,LINE
        IORB    PIOS,DEVIOS(PDDB)\r
        TRNE    PIOS,IOPTW      ;IS LINKED TTY JOB IN INPUT WAIT?\r
        PUSHJ PDP,PTWAKE        ;YES, WAKE UP CONTROL JOB\r
-       JSRT ACRET\r
+       JRST ACRET\r
 \f      END\r
 \f\r
+\0\0\0\0
\ No newline at end of file