Added version 10 of basic.

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

diff --git a/src/ptysrf.mac b/src/ptysrf.mac
index 176ef20..541b216 100644 (file)
--- a/src/ptysrf.mac
+++ b/src/ptysrf.mac
@@ -7,12 +7,10 @@ ENTRY PTYSRF          ;DUMMY GLOBAL FOR FULL DUPLEX PTY
 PTYSRF:\r
 \r
 \r
-\r
 ;ACCUMULATOR ASSIGNMENTS\r
 \r
        DDB=DEVDAT\r
        LINE=TAC1\r
-\r
        CHREC=TEM\r
        PIOS=13\r
        PDDB=14\r
@@ -50,6 +48,7 @@ PTYDDB:       SIXBIT  /PTY0/
        XWD     0,10000+STTYBF+1        ;PTY0 IS UNIT 1,PTY1 IS UNIT 2, ETC.\r
        Z\r
        EXP     PTYDSP\r
+       XWD     DVIN+DVOUT,3\r
        Z\r
        Z\r
        XWD     PROG,0\r
@@ -76,7 +75,6 @@ PTYREL:       LDB LINE,PUNIT
        HRRZ DDB,TTYTAB(LINE)\r
        PUSHJ PDP,TTYKIL\r
        POP PDP,DDB\r
-\r
        LDB LINE,PUNIT\r
        SETZM PTYTAB(LINE)\r
        POPJ PDP,\r
@@ -101,8 +99,8 @@ PTYREL:      LDB LINE,PUNIT
 ;SET IN THE OF IOS)\r
 \r
 \r
-EXTERNAL TCONLN,TTYTIBTPYTAB,PTYTAB,SETIOD\r
-EXTERNAL ADVBFF,RUNIT,RECIN3,PUTCHI\r
+EXTERNAL TCONLN,TTYTAB,TPYTAB,PTYTAB,SETIOD\r
+EXTERNAL ADVBFF,PUNIT,RECIN3,PUTCHI\r
 EXTERNAL TTIBUF,SPCHEK,DDBSRC,LINTAB,CNCTST,TIFCTR,INBFUL\r
 \r
 PTYOUT:        LDB     LINE,PUNIT\r
@@ -116,7 +114,7 @@ PTYOUT:     LDB     LINE,PUNIT
        PUSHJ   PDP,DDBSRC\r
        TROA    PIOS,IODERR\r
        JRST    PTYOU2\r
-       MOVEM   PIOS,DEVIOS(RDDB)\r
+       MOVEM   PIOS,DEVIOS(PDDB)\r
 \r
 PTEXCH:        EXCH    IOS,PIOS\r
        EXCH    DDB,PDDB\r
@@ -140,7 +138,6 @@ PTYOU3:     ILDB    CHREC,AC1
        MOVEI   CHREC,175\r
        MOVEI   IOS,0\r
        TLNE    TAC,BREAKB+FCSBRK\r
-\r
        MOVSI   IOS,SYNC\r
        IORB    IOS,DEVIOS(DDB)\r
        CAIN    CHREC,3         ;CONTROL C\r
@@ -166,11 +163,11 @@ PTYOUW:   PUSHJ   PDP,INBFUL              ;TURN OFF SYNC, CHECK FOR
                                        ; PANIC CONTROL C.\r
        TRO     PIOS,IOBKTL     ;CANT PUT BATCH IN IOW\r
        JRST    PTYOU6          ;ABORT BUFFER AND RETURN TO BATCH\r
-\fEXTERNAL TCONLN,TTYTAB,SETIOD,ADVBFF,ADRERR,TTYPTR\r
+\fEXTERNAL TCONLN,TTYTAB,SETIOD,ADVBFE,ADRERR,TTYPTR\r
 EXTERNAL BUFCLR,XMTINT,PTYGET,TTYCHR,TTOBUF\r
 \r
 PTYIN: LDB DAT,PUNIT\r
-       SKIPF PDDB,TPYTAB(DAT)  ;TTY DDB ADDRESS\r
+       SKIPE PDDB,TPYTAB(DAT)  ;TTY DDB ADDRESS\r
        JRST    PTYIN1\r
        TRO IOS,IOIMPM          ;YES, THAT'S ALL.\r
        JRST PTYIN3\r
@@ -189,7 +186,7 @@ PTYIN4:     TRO     IOS,IOPTRE
        MOVEM   IOS,DEVIOS(DDB)\r
        MOVSI   IOS,TOIP        ;MARK TYPE-OUT ACTIVE\r
        IORM    IOS,TTYPTR(DDB)\r
-       PUSHJ   PDP,XMITINT\r
+       PUSHJ   PDP,XMTINT\r
        SKIPA\r
 \r
 PTYIN2:        PUSHJ   PDP,PTYGET              ;SHOULD BE XMITIN1+1\r