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/hex.subx | |
parent | a220427e7238d2f8363a4bc717eecd22ec9c6dd8 (diff) | |
download | mu-feec2292b5926872de8455d079b92e560a484a7f.tar.gz |
4925
Diffstat (limited to 'subx/apps/hex.subx')
-rw-r--r-- | subx/apps/hex.subx | 8 |
1 files changed, 4 insertions, 4 deletions
diff --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' |