about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2019-07-10 09:35:24 -0700
committerKartik Agaram <vc@akkartik.com>2019-07-10 09:35:24 -0700
commit7e9cdf3c7a7c7b1c000d9847db7c198cd5ee1cb2 (patch)
tree2b00893b84f78eff7303aa2bc4009e8ecbeb3d21
parent57714dd4fc385b51e879569f8df2eb61ff1f3154 (diff)
downloadmu-7e9cdf3c7a7c7b1c000d9847db7c198cd5ee1cb2.tar.gz
.
-rwxr-xr-xsubx/apps/surveybin38623 -> 38602 bytes
-rw-r--r--subx/apps/survey.subx13
2 files changed, 5 insertions, 8 deletions
diff --git a/subx/apps/survey b/subx/apps/survey
index 0f7434f6..f33cafb9 100755
--- a/subx/apps/survey
+++ b/subx/apps/survey
Binary files differdiff --git a/subx/apps/survey.subx b/subx/apps/survey.subx
index cd73bbf6..b4558754 100644
--- a/subx/apps/survey.subx
+++ b/subx/apps/survey.subx
@@ -392,13 +392,12 @@ compute-offsets:  # in : (address buffered-file), segments : (address stream {st
     56/push-ESI
     57/push-EDI
     # curr-segment-name = {0, 0}
-    c7          0/subop/copy        0/mod/indirect  5/rm32/.disp32            .             .           .           compute-offsets:curr-segment-name/disp32  0/imm32        # copy to *compute-offsets:word-slice
-    c7          0/subop/copy        0/mod/indirect  5/rm32/.disp32            .             .           .           compute-offsets:curr-segment-name:end/disp32  0/imm32    # copy to *(compute-offsets:word-slice+4)
+    c7          0/subop/copy        0/mod/indirect  5/rm32/.disp32            .             .           .           compute-offsets:curr-segment-name/disp32  0/imm32         # copy to *compute-offsets:curr-segment-name
+    c7          0/subop/copy        0/mod/indirect  5/rm32/.disp32            .             .           .           compute-offsets:curr-segment-name:end/disp32  0/imm32     # copy to *(compute-offsets:curr-segment-name+4)
     # file-offset = 0
-    b8/copy-to-EAX  0/imm32
-    89/copy                         0/mod/indirect  5/rm32/.disp32            .             .           0/r32/EAX   compute-offsets:file-offset/disp32      # copy EAX to *file-offset
+    c7          0/subop/copy        0/mod/indirect  5/rm32/.disp32            .             .           .           compute-offsets:file-offset/disp32  0/imm32               # copy to *compute-offsets:word-slice
     # segment-offset = 0
-    c7          0/subop/copy        0/mod/indirect  5/rm32/.disp32            .             .           .           compute-offsets:segment-offset/disp32  0/imm32        # copy to *compute-offsets:word-slice
+    c7          0/subop/copy        0/mod/indirect  5/rm32/.disp32            .             .           .           compute-offsets:segment-offset/disp32  0/imm32            # copy to *compute-offsets:word-slice
     # line/ECX = new-stream(512, 1)
     # . EAX = new-stream(512, 1)
     # . . push args
@@ -428,9 +427,7 @@ $compute-offsets:line-loop:
     3d/compare-EAX-and  0/imm32
     0f 84/jump-if-equal  $compute-offsets:end/disp32
 $compute-offsets:word-loop:
-    # var word-slice/EDX = {0, 0}
-    c7          0/subop/copy        0/mod/indirect  5/rm32/.disp32            .             .           .           compute-offsets:word-slice/disp32  0/imm32        # copy to *compute-offsets:word-slice
-    c7          0/subop/copy        0/mod/indirect  5/rm32/.disp32            .             .           .           compute-offsets:word-slice:end/disp32  0/imm32    # copy to *(compute-offsets:word-slice+4)
+    # EDX = word-slice
     ba/copy-to-EDX  compute-offsets:word-slice/imm32
     # next-word(line/ECX, word-slice/EDX)
     52/push-EDX