diff options
author | Kartik Agaram <vc@akkartik.com> | 2019-01-14 16:54:41 -0800 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2019-01-14 16:54:41 -0800 |
commit | feec2292b5926872de8455d079b92e560a484a7f (patch) | |
tree | 2617c116c252bd4be3c02658bcb5e1caa2bc7d7e /subx/apps | |
parent | a220427e7238d2f8363a4bc717eecd22ec9c6dd8 (diff) | |
download | mu-feec2292b5926872de8455d079b92e560a484a7f.tar.gz |
4925
Diffstat (limited to 'subx/apps')
-rwxr-xr-x | subx/apps/crenshaw2-1 | bin | 13272 -> 13641 bytes | |||
-rwxr-xr-x | subx/apps/crenshaw2-1b | bin | 13831 -> 14200 bytes | |||
-rwxr-xr-x | subx/apps/factorial | bin | 12190 -> 12559 bytes | |||
-rwxr-xr-x | subx/apps/handle | bin | 12983 -> 13352 bytes | |||
-rwxr-xr-x | subx/apps/hex | bin | 16251 -> 16620 bytes | |||
-rw-r--r-- | subx/apps/hex.subx | 8 |
6 files changed, 4 insertions, 4 deletions
diff --git a/subx/apps/crenshaw2-1 b/subx/apps/crenshaw2-1 index 3b046452..13b71386 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 41374cc1..a6bc19cf 100755 --- a/subx/apps/crenshaw2-1b +++ b/subx/apps/crenshaw2-1b Binary files differdiff --git a/subx/apps/factorial b/subx/apps/factorial index 4878eaa5..bad6fe72 100755 --- a/subx/apps/factorial +++ b/subx/apps/factorial Binary files differdiff --git a/subx/apps/handle b/subx/apps/handle index be6ae850..76c7950a 100755 --- a/subx/apps/handle +++ b/subx/apps/handle Binary files differdiff --git a/subx/apps/hex b/subx/apps/hex index 35c55cc3..bfbba407 100755 --- a/subx/apps/hex +++ b/subx/apps/hex Binary files differdiff --git a/subx/apps/hex.subx b/subx/apps/hex.subx index 8f6e1575..0d2caefe 100644 --- a/subx/apps/hex.subx +++ b/subx/apps/hex.subx @@ -490,7 +490,7 @@ scan-next-byte: # in : (address buffered-file), err : (address buffered-file), # repeatedly # EAX = read-byte(in) # if EAX == 0xffffffff return EAX - # if is-hex-byte?(EAX) return EAX + # if is-hex-digit?(EAX) return EAX # if EAX == ' ' or '\t' or '\n' continue # if EAX == '#' skip-until-newline(in) # else error-byte(ed, err, "invalid byte: " EAX) @@ -510,14 +510,14 @@ $scan-next-byte:loop: # if (EAX == 0xffffffff) return EAX 3d/compare-with-EAX 0xffffffff/imm32 74/jump-if-equal $scan-next-byte:end/disp8 - # if is-hex-byte?(EAX) return EAX + # if is-hex-digit?(EAX) return EAX # . save EAX for now 50/push-EAX - # . is-hex-byte?(EAX) + # . is-hex-digit?(EAX) # . . push args 50/push-EAX # . . call - e8/call is-hex-byte?/disp32 + e8/call is-hex-digit?/disp32 # . . discard args 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add to ESP # . compare with 'false' |