X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/8c11230d54654d010d9027c672dcf4011d2cf539..5d24e9e035e495646b261b56872a3e31c2ed244c:/src/scnsrf.mac

diff --git a/src/scnsrf.mac b/src/scnsrf.mac
index 76fda9d..fc3ef80 100644
--- a/src/scnsrf.mac
+++ b/src/scnsrf.mac
@@ -1008,7 +1008,7 @@ GETLIN:	SKIPGE	TAC,@UUO		;DOES USER WANT ONE LINE CHAR. WD.?
 	JUMPE	TAC,GETLN1		;IF NONE, NO LINES.
 	SKIPLE	TISYNC(DEVDAT)		;ANY TYPE-IN?
 	TLO	LINE,LINRDY		;YES. FLAG.
-GETLN1:	MOVE	LINE,@UUO		;GIVE IT TO USER
+GETLN1:	MOVEM	LINE,@UUO		;GIVE IT TO USER
 	POPJ	PDP,
 
 ;ROUTINE TO SET LINE CHARACTERISTICS THAT ARE SETABLE
@@ -1283,7 +1283,7 @@ TTYKIL:	MOVSI	IOS,TTYIOW+IOW+TTYDTC+SYNC+DDTM+USRB
 	TLZ	LINE,LGLSET	;INITIALIZE OTHER MODES
 	HLLM	LINE,LINTAB(LINE)
 	SETZB TAC,DEVLOG(DEVDAT)	;CLEAR LOGICAL NAME
-	MOVE TAC,[XWD TTYUSR+TTYATC,ASSCON+ASSPRG]
+	MOVE TAC,[XWD TTYUSE+TTYATC,ASSCON+ASSPRG]
 	ANDCAM TAC,DEVMOD(DEVDAT)	;CLEAR ATTACH,USE, AND ASSIGN BITS
 TTYKL1:	LDB LINE,PUNIT			;LINE NO.
 	SETZM TTYTAB(LINE)		;CLEAR TRANSLATOR TABLE
@@ -1957,7 +1957,7 @@ TYP:
 TYPL:	TLNE	LINE,PTYLIN
 	POPJ PDP,		;YES
 	PUSHJ	PDP,PEVEN8	;GENERATE CORRECT PARITY
-	TLNE LINE,CTYLIN	;NO,CONSOLE TTY?
+	TLNN LINE,CTYLIN	;NO,CONSOLE TTY?
 	JRST	SCNTYP			;TYPE CHAR.
 CTYP:	DATAO TTY,CHREC
 	DPB	CHREC,PLASTC
@@ -2014,7 +2014,7 @@ DDBSRC:	HRRZ	TAC,LINE		;NUMBER OF LINE ONLY
 	POPJ PDP,		;YES.
 	MOVSI IOS,MLTTYL	;NO. OF TTY DDBS
 	MOVEI DEVDAT,TTYLST	;ADDRESS OF FIRST TTY DDB
-	SKIPA	TAC,[XWD TTYUSE+TTYATC,ASSPRG+ASSCON]
+	SKIPA	TAC,[XWD TTYUSE+TTYATC,ASSCON+ASSPRG]
 	HLRZ DEVDAT,DEVSER(DEVDAT)	;CHAIN THRU DDBS
 	TDNE TAC,DEVMOD(DEVDAT)	;USE,ATTACH OR ASSIGN BITS ON?
 	AOBJN IOS,.-2		;YES. DONE?