# HG changeset patch
# User boisy
# Date 1050668746 0
# Node ID 9960b62583740327e848a73cee45fba984bfcb0a
# Parent  8b0ecedcdbfb2682456f7c1f2c447e653e7b6263
Fixed problem where program exited with error, also rearranged position of
text within module.

diff -r 8b0ecedcdbfb -r 9960b6258374 level1/cmds/cputype.asm
--- a/level1/cmds/cputype.asm	Wed Apr 16 05:15:02 2003 +0000
+++ b/level1/cmds/cputype.asm	Fri Apr 18 12:25:46 2003 +0000
@@ -6,7 +6,7 @@
 * Ed.    Comments                                       Who YY/MM/DD
 * ------------------------------------------------------------------
 *   1    Started                                        ADK ??/??/??
-*   2    Fixed a crash bug on 6809, now just reports    BGP 03/04/02
+*   2r1  Fixed a crash bug on 6809, now just reports    BGP 03/04/02
 *        6809 message on a 6809
 
          nam   CPUType
@@ -18,7 +18,7 @@
 
 tylg     set   Prgrm+Objct
 atrv     set   Reent+Rev
-rev      set   0
+rev      set   1
 edition  set   2
 
          org   0
@@ -36,10 +36,17 @@
          fcb   C$CR
 L6809    equ   *-c.6809
 
+m.6809   fcc   /running in 6809 mode./
+         fcb   C$CR
+
+m.6309   fcc   /running in 6309 native mode./
+         fcb   C$CR
+
 is.6809  leax  c.6809,pc
          ldy   #L6809
          lda   #1
          os9   I$WritLn
+         clrb
          os9   F$Exit
 
 * Entry of program
@@ -83,12 +90,6 @@
          clrb             no errors
          OS9   F$Exit
 
-m.6809   fcc   /running in 6809 mode./
-         fcb   C$CR
-
-m.6309   fcc   /running in 6309 native mode./
-         fcb   C$CR
-
          emod
 eom      equ   *
          end