Merge pull request boriel-basic#578 from boriel/fix/usr_str

fix: fixes USR_STR using old binary constant format
boriel · Oct 24, 2021 · f2b39de · f2b39de
2 parents e8a58bc + 739ee4d
commit f2b39de
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/src/arch/zx48k/library-asm/usr_str.asm b/src/arch/zx48k/library-asm/usr_str.asm
@@ -30,7 +30,7 @@ USR_STR:
 
     inc hl
     ld a, (hl) ; Only the 1st char is needed
-    and 11011111b ; Convert it to UPPER CASE
+    and %11011111 ; Convert it to UPPER CASE
     sub 144   ; CODE(UDG "A")
     jr nc, CONT
     add a, 144   ; It was a letter
@@ -71,4 +71,3 @@ USR_ERROR:
     ENDP
 
     pop namespace
-
diff --git a/src/arch/zxnext/library-asm/usr_str.asm b/src/arch/zxnext/library-asm/usr_str.asm
@@ -30,7 +30,7 @@ USR_STR:
 
     inc hl
     ld a, (hl) ; Only the 1st char is needed
-    and 11011111b ; Convert it to UPPER CASE
+    and %11011111 ; Convert it to UPPER CASE
     sub 144   ; CODE(UDG "A")
     jr nc, CONT
     add a, 144   ; It was a letter
@@ -71,4 +71,3 @@ USR_ERROR:
     ENDP
 
     pop namespace
-