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

diff --git a/src/mongen.mac b/src/mongen.mac
index f0db53d..94996dc 100644
--- a/src/mongen.mac
+++ b/src/mongen.mac
@@ -175,13 +175,14 @@ ENTERR:	PUSHJ P,OUTTTY
 	PUSHJ P,ASKYN			;FIND OUT IF 10/40 WITH DISK
 	ASCIIZ <;DISK?>
 	JUMPE N,SYSOUT			;DISK SYSTEM?
-SYS1:	AOS SYS50N
-	AOS DSKN
+SYS1:	AOS DSKN
 	AOS LOGINN
 SYSOUT:	MOVE N,SYS40N			;DEFINE 10/40 SYSTEM SYMBOL
 	PUSHJ P,OUTXP
 	ASCIIZ <XP SYS40N,*>
-	MOVEI N,SYS50N	
+	MOVEI N,0			;ASSUME 10/40
+	SKIPN SYS40N			;10/40 SYSTEM?
+	MOVEI N,1			;NO, MUST BE 10/50,SET TO 1
 	PUSHJ P,OUTXP
 	ASCIIZ <XP SYS50N,*>
 	MOVE N,DSKN
@@ -356,7 +357,7 @@ DEVOUT:	PUSHJ P,OUTSTR			;SUBSTUTITE ANSWER FOR *
 	ASCIIZ	</>>
 
 	SUBTTL	SET-UP TTY CONFIGURATION
-	PUSHJ P,ASKYN
+DLSASK:	PUSHJ P,ASKYN
 	ASCIIZ <;DATA LINE SCANNER(DC10)?[N = WILL ASK FOR 680 OR 630]>
 	MOVEM N,DLSN
 	JUMPN N,DLSOUT
@@ -1129,4 +1130,4 @@ FCRLF:	MOVEI CH,15
 	END	MONGEN
 
 
-   
\ No newline at end of file
+   
