diff options
| author | Kartik Agaram <vc@akkartik.com> | 2019-01-15 14:11:26 -0800 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2019-01-15 14:11:26 -0800 |
| commit | 7011322ad1640067d354e5a8f68a07963f7b898e (patch) | |
| tree | 7e5faff3ca588b6d10e007668ad3d5591be60215 /subx/apps | |
| parent | 84724062098cbd0d9a0eb61f946d6cadc7bb582b (diff) | |
| download | mu-7011322ad1640067d354e5a8f68a07963f7b898e.tar.gz | |
4929
Clean up primitives for converting from/to hex chars.
Diffstat (limited to 'subx/apps')
| -rwxr-xr-x | subx/apps/crenshaw2-1 | bin | 14191 -> 14144 bytes | |||
| -rwxr-xr-x | subx/apps/crenshaw2-1b | bin | 14750 -> 14703 bytes | |||
| -rwxr-xr-x | subx/apps/factorial | bin | 13109 -> 13062 bytes | |||
| -rwxr-xr-x | subx/apps/handle | bin | 13902 -> 13855 bytes | |||
| -rwxr-xr-x | subx/apps/hex | bin | 17170 -> 17123 bytes | |||
| -rw-r--r-- | subx/apps/hex.subx | 12 |
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 |