about summary refs log tree commit diff stats
path: root/subx/apps
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2019-01-15 14:11:26 -0800
committerKartik Agaram <vc@akkartik.com>2019-01-15 14:11:26 -0800
commit7011322ad1640067d354e5a8f68a07963f7b898e (patch)
tree7e5faff3ca588b6d10e007668ad3d5591be60215 /subx/apps
parent84724062098cbd0d9a0eb61f946d6cadc7bb582b (diff)
downloadmu-7011322ad1640067d354e5a8f68a07963f7b898e.tar.gz
4929
Clean up primitives for converting from/to hex chars.
Diffstat (limited to 'subx/apps')
-rwxr-xr-xsubx/apps/crenshaw2-1bin14191 -> 14144 bytes
-rwxr-xr-xsubx/apps/crenshaw2-1bbin14750 -> 14703 bytes
-rwxr-xr-xsubx/apps/factorialbin13109 -> 13062 bytes
-rwxr-xr-xsubx/apps/handlebin13902 -> 13855 bytes
-rwxr-xr-xsubx/apps/hexbin17170 -> 17123 bytes
-rw-r--r--subx/apps/hex.subx12
6 files changed, 6 insertions, 6 deletions
diff --git a/subx/apps/crenshaw2-1 b/subx/apps/crenshaw2-1
index 1d314e4e..8010cdac 100755
--- a/subx/apps/crenshaw2-1
+++ b/subx/apps/crenshaw2-1
Binary files differdiff --git a/subx/apps/crenshaw2-1b b/subx/apps/crenshaw2-1b
index b18e13a1..3cdb555e 100755
--- a/subx/apps/crenshaw2-1b
+++ b/subx/apps/crenshaw2-1b
Binary files differdiff --git a/subx/apps/factorial b/subx/apps/factorial
index dc2b81ad..4489b6ad 100755
--- a/subx/apps/factorial
+++ b/subx/apps/factorial
Binary files differdiff --git a/subx/apps/handle b/subx/apps/handle
index 6a6d12f9..65b94caa 100755
--- a/subx/apps/handle
+++ b/subx/apps/handle
Binary files differdiff --git a/subx/apps/hex b/subx/apps/hex
index 95f1956c..66aa0dce 100755
--- a/subx/apps/hex
+++ b/subx/apps/hex
Binary files differdiff --git a/subx/apps/hex.subx b/subx/apps/hex.subx
index 0d2caefe..52e910f8 100644
--- a/subx/apps/hex.subx
+++ b/subx/apps/hex.subx
@@ -131,10 +131,10 @@ convert-next-octet:  # in : (address buffered-file), err : (address buffered-fil
     # pseudocode:
     #   EAX = scan-next-byte(in, err, ed)
     #   if (EAX == 0xffffffff) return
-    #   ECX = parse-hex-digit(EAX)
+    #   ECX = from-hex-char(EAX)
     #   EAX = scan-next-byte(in, err, ed)
     #   if (EAX == 0xffffffff) error("partial byte found.")
-    #   EAX = parse-hex-digit(EAX)
+    #   EAX = from-hex-char(EAX)
     #   EAX = (ECX << 4) | EAX
     #   return
     #
@@ -155,8 +155,8 @@ convert-next-octet:  # in : (address buffered-file), err : (address buffered-fil
     # if (EAX == 0xffffffff) return
     81          7/subop/compare     3/mod/direct    0/rm32/EAX    .           .             .           .           .               0xffffffff/imm32  # compare EAX
     74/jump-if-equal  $convert-next-octet:end/disp8
-    # EAX = parse-hex-digit(EAX)
-    e8/call parse-hex-digit/disp32
+    # EAX = from-hex-char(EAX)
+    e8/call from-hex-char/disp32
     # ECX = EAX
     89/copy                         3/mod/direct    1/rm32/ECX    .           .             .           0/r32/EAX   .               .                 # copy EAX to ECX
     # EAX = scan-next-byte(in, err, ed)
@@ -180,8 +180,8 @@ convert-next-octet:  # in : (address buffered-file), err : (address buffered-fil
     # . . call
     e8/call  error-byte/disp32  # never returns
 $convert-next-octet:convert:
-    # EAX = parse-hex-digit(EAX)
-    e8/call parse-hex-digit/disp32
+    # EAX = from-hex-char(EAX)
+    e8/call from-hex-char/disp32
     # EAX = (ECX << 4) | EAX
     # . ECX <<= 4
     c1/shift    4/subop/left        3/mod/direct    1/rm32/ECX    .           .             .           .           .               4/imm8            # shift ECX left by 4 bits