From a8a27aca55dd636e58cd23132b7bcd4623d83e8d Mon Sep 17 00:00:00 2001
From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Fri, 14 Aug 2020 22:36:55 +0300
Subject: [PATCH] replaced some JPs with JRs

---
 parser_number.zas | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/parser_number.zas b/parser_number.zas
index 7102e59..7325033 100644
--- a/parser_number.zas
+++ b/parser_number.zas
@@ -59,7 +59,7 @@ PARSE_NUMBER:
   jr    c,.not_a_number_carry_set
   cp    10
   ; nope, do not allow it, all numbers must start with a digit
-  ;jp    nc,.must_be_hex_with_sfx
+  ;jr    nc,.must_be_hex_with_sfx
   ccf
   jr    c,.not_a_number_carry_set
 .do_normal_decimal:
@@ -70,7 +70,7 @@ PARSE_NUMBER:
   call  .getDigit
   jr    c,.decimal_done
   cp    10
-  jp    nc,.must_be_hex_with_sfx
+  jr    nc,.must_be_hex_with_sfx
   ; HL=HL*10
   add   hl,hl
   ld    de,hl
@@ -89,11 +89,11 @@ PARSE_NUMBER:
   ld    a,(iy)
   and   %11011111   ; cheap uppercase
   cp    'H'
-  jp    z,.must_be_hex_with_sfx
+  jr    z,.must_be_hex_with_sfx
   cp    'B'
-  jp    z,.bin_with_sfx
+  jr    z,.bin_with_sfx
   cp    'O'
-  jp    z,.oct_with_sfx
+  jr    z,.oct_with_sfx
   ; no suffix, we're done
 
 .success:
@@ -168,7 +168,7 @@ PARSE_NUMBER:
   cp    'O'
   jr    z,.octprefix
   ; do not reparse '0', no need to backup
-  jp    .do_normal_decimal
+  jr    .do_normal_decimal
 
 .must_be_hex_with_sfx:
   ; reparse as hex, and check for suffix
@@ -180,7 +180,7 @@ PARSE_NUMBER:
   inc   iy
   and   %11011111   ; cheap uppercase
   cp    'H'
-  jp    z,.success
+  jr    z,.success
 
 .bin_with_sfx:
   ; reparse as bin, skip suffix (it is guaranteed to be there)
@@ -191,7 +191,7 @@ PARSE_NUMBER:
   jr    c,.not_a_number_carry_set
   ; skip suffix
   inc   iy
-  jp    .success
+  jr    .success
 
 .oct_with_sfx:
   ; reparse as bin, skip suffix (it is guaranteed to be there)
-- 
2.11.4.GIT