cleaned up typos

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

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