changeset 2108:9bb5e68b5e0c

Fixed minor source problems
author boisy
date Thu, 19 Apr 2007 03:04:07 +0000
parents 418f8a0937ab
children 6f39160e9096
files level1/cmds/dcheck.asm level1/cmds/format.asm
diffstat 2 files changed, 11 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/level1/cmds/dcheck.asm	Wed Apr 11 22:23:03 2007 +0000
+++ b/level1/cmds/dcheck.asm	Thu Apr 19 03:04:07 2007 +0000
@@ -2635,7 +2635,7 @@
          tstb  
          lbeq  L1DF4
          ldb   ,s
-         cmpb  #'%'             ; $25
+         cmpb  #'%             ; $25
          beq   L1BF4
          ldd   >$010D,s
          addd  #$0001
@@ -2655,7 +2655,7 @@
          stb   $08,s
          clr   $06,s
          ldb   [>$0111,s]
-         cmpb  #'-'             ; $2D
+         cmpb  #'-             ; $2D
          bne   L1C1C
          ldd   >$0111,s
          addd  #$0001
@@ -2681,7 +2681,7 @@
          clra  
          std   $02,s
 L1C46    ldb   [>$0111,s]
-         cmpb  #'.'            ; $2E
+         cmpb  #'.            ; $2E
          bne   L1C68
          ldd   >$0111,s
          addd  #$0001
@@ -2699,17 +2699,17 @@
          ldb   ,s
          clra  
          lbsr  L1E87
-         cmpb  #'d'          ; $64
+         cmpb  #'d          ; $64
          beq   L1C9D
-         cmpb  #'u'          ; $75
+         cmpb  #'u          ; $75
          beq   L1CCA
-         cmpb  #'x'          ; $78
+         cmpb  #'x          ; $78
          lbeq  L1CD0
-         cmpb  #'o'          ; $6F
+         cmpb  #'o          ; $6F
          lbeq  L1CD6
-         cmpb  #'c'          ; $63
+         cmpb  #'c          ; $63
          lbeq  L1D00
-         cmpb  #'s'          ; $73
+         cmpb  #'s          ; $73
          lbeq  L1D22
          lbra  L1DDD
 
--- a/level1/cmds/format.asm	Wed Apr 11 22:23:03 2007 +0000
+++ b/level1/cmds/format.asm	Thu Apr 19 03:04:07 2007 +0000
@@ -590,9 +590,9 @@
                          
 DoFormat                 
          lda   ,x+        Get next char
-         cmpa  #'D'       Do a dragon disk ?
+         cmpa  #'D       Do a dragon disk ?
          beq   DoFmtDragon
-         cmpa  #'d'      
+         cmpa  #'d      
          bne   DoFmtDragon
          clr   IsDragon,u Mark it as a normal CoCo (or other) disk
          clrb