X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/cda2ba6d27526e5ef6f27f7b3391cfb55055bf2e..8975ed2f727e4bb0190f22b1401821e5981cf7c2:/src/ptysrf.mac

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