about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--subx/apps/crenshaw2-1.subx256
1 files changed, 128 insertions, 128 deletions
diff --git a/subx/apps/crenshaw2-1.subx b/subx/apps/crenshaw2-1.subx
index 35966a22..08f679fc 100644
--- a/subx/apps/crenshaw2-1.subx
+++ b/subx/apps/crenshaw2-1.subx
@@ -37,12 +37,12 @@
     81          7/subop/compare     1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0/disp8         1/imm32           # compare *EBP
     7e/jump-if-lesser-or-equal  $run-main/disp8
     # and if (argv[1] == "test")
-    # . push args
+    # . . push args
     68/push  "test"/imm32
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0x8/disp8       .                 # push *(EBP+8)
-    # . call
+    # . . call
     e8/call  kernel-string-equal/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # . check result
     3d/compare-EAX  1/imm32
@@ -60,14 +60,14 @@ $run-main:
     # . clear ed->target (so we really exit)
     c7/copy                         0/mod/direct    0/rm32/EAX    .           .             .           .           .               0/imm32           # copy to *EAX
     # compile(Stdin, 1/stdout, 2/stderr, ed)
-    # . push args
+    # . . push args
     50/push-EAX/ed
     68/push  2/imm32/stderr
     68/push  1/imm32/stdout
     68/push  Stdin/imm32
-    # . call
+    # . . call
     e8/call  compile/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               0x10/imm32        # add to ESP
     # syscall(exit, 0)
     bb/copy-to-EBX  0/imm32
@@ -84,11 +84,11 @@ compile:  # in : fd or (address stream), out : fd or (address stream), err : fd
     50/push-EAX
     51/push-ECX
     # Look = get-char(in)
-    # . push args
+    # . . push args
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           8/disp8      .                    # push *(EBP+8)
-    # . call
+    # . . call
     e8/call  get-char/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               4/imm32           # add to ESP
     # var num/ECX : (address stream) on the stack
     # Numbers can be 32 bits or 8 hex bytes long. One of them will be in 'Look', so we need space for 7 bytes.
@@ -99,87 +99,87 @@ compile:  # in : fd or (address stream), out : fd or (address stream), err : fd
     # num->length = 7
     c7/copy                         1/mod/*+disp8   1/rm32/ECX    .           .             .           .           8/disp8         7/imm32           # copy to *(ECX+8)
     # clear-stream(num)
-    # . push args
+    # . . push args
     51/push-ECX
-    # . call
+    # . . call
     e8/call  clear-stream/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               4/imm32           # add to ESP
     # get-num(in, num, err, ed)
-    # . push args
+    # . . push args
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0x14/disp8      .                 # push *(EBP+20)
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0x10/disp8      .                 # push *(EBP+16)
     51/push-ECX/num
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           8/disp8      .                    # push *(EBP+8)
-    # . call
+    # . . call
     e8/call  get-num/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               0x10/imm32        # add to ESP
     # EAX = write(_test-stream, "Ab")
-    # . push args
+    # . . push args
     68/push  "Ab"/imm32
     68/push  _test-stream/imm32
-    # . call
+    # . . call
     e8/call  write/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # EAX = write(out, "bb/copy-to-EBX  ")
-    # . push args
+    # . . push args
     68/push  "bb/copy-to-EBX  "/imm32
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0xc/disp8       .                 # push *(EBP+12)
-    # . call
+    # . . call
     e8/call  write/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # write-stream(out, num)
-    # . push args
+    # . . push args
     51/push-ECX/num
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0xc/disp8       .                 # push *(EBP+12)
-    # . call
+    # . . call
     e8/call  write-stream/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # write(out, Newline)
-    # . push args
+    # . . push args
     68/push  Newline/imm32
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0xc/disp8       .                 # push *(EBP+12)
-    # . call
+    # . . call
     e8/call  write/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # EAX = write(out, "b8/copy-to-EAX  1/imm32/exit")
-    # . push args
+    # . . push args
     68/push  "b8/copy-to-EAX  1/imm32/exit"/imm32
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0xc/disp8       .                 # push *(EBP+12)
-    # . call
+    # . . call
     e8/call  write/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # EAX = write(out, Newline)
-    # . push args
+    # . . push args
     68/push  Newline/imm32
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0xc/disp8       .                 # push *(EBP+12)
-    # . call
+    # . . call
     e8/call  write/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # EAX = write(out, "cd/syscall  0x80/imm8")
-    # . push args
+    # . . push args
     68/push  "cd/syscall  0x80/imm8"/imm32
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0xc/disp8       .                 # push *(EBP+12)
-    # . call
+    # . . call
     e8/call  write/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # EAX = write(out, Newline)
-    # . push args
+    # . . push args
     68/push  Newline/imm32
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0xc/disp8       .                 # push *(EBP+12)
-    # . call
+    # . . call
     e8/call  write/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
-    # . restore registers
+    # . . restore registers
     59/pop-to-ECX
     58/pop-to-EAX
     # . epilog
@@ -215,11 +215,11 @@ get-num:  # in : (address buffered-file), out : (address stream), err : fd or (a
     55/push-EBP
     89/copy                         3/mod/direct    5/rm32/EBP    .           .             .           4/r32/ESP   .               .                 # copy ESP to EBP
     # EAX = is-digit?(Look)
-    # . push args
+    # . . push args
     ff          6/subop/push        0/mod/indirect  5/rm32/.disp32            .             .           .           Look/disp32     .                 # push *Look
-    # . call
+    # . . call
     e8/call  is-digit?/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               4/imm32           # add to ESP
     # if EAX == 0 error
     3d/compare-EAX  0/imm32
@@ -254,13 +254,13 @@ $get-num:main:
     3b/compare                      3/mod/direct    1/rm32/ECX    .           .             .           2/r32/EDX   .               .                 # compare EDX with ECX
     7d/jump-if-lesser  $get-num:stage2/disp8
     # error(ed, err, "get-num: too many digits in number")  # TODO: show full number
-    # . push args
+    # . . push args
     68/push  "get-num: too many digits in number"/imm32
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0x10/disp8      .                 # push *(EBP+16)
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0x14/disp8      .                 # push *(EBP+20)
-    # . call
+    # . . call
     e8/call  error/disp32  # never returns
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               0xc/imm32         # add to ESP
 $get-num:stage2:
     # out->data[out->write] = LSB(Look)
@@ -270,11 +270,11 @@ $get-num:stage2:
     # ++out->write
     41/increment-ECX
     # Look = get-char(in)
-    # . push args
+    # . . push args
     56/push-ESI
-    # . call
+    # . . call
     e8/call  get-char/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               4/imm32           # add to ESP
 $get-num:loop-end:
     # persist necessary variables from registers
@@ -298,43 +298,43 @@ test-get-num-reads-single-digit:
     89/copy                         3/mod/direct    5/rm32/EBP    .           .             .           4/r32/ESP   .               .                 # copy ESP to EBP
     # - clear all streams
     # clear-stream(_test-stream)
-    # . push args
+    # . . push args
     68/push  _test-stream/imm32
-    # . call
+    # . . call
     e8/call  clear-stream/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               4/imm32           # add to ESP
     # clear-stream(_test-buffered-file+4)
-    # . push args
+    # . . push args
     b8/copy-to-EAX  _test-buffered-file/imm32
     05/add-to-EAX  4/imm32
     50/push-EAX
-    # . call
+    # . . call
     e8/call  clear-stream/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               4/imm32           # add to ESP
     # clear-stream(_test-output-stream)
-    # . push args
+    # . . push args
     68/push  _test-output-stream/imm32
-    # . call
+    # . . call
     e8/call  clear-stream/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               4/imm32           # add to ESP
     # clear-stream(_test-error-stream)
-    # . push args
+    # . . push args
     68/push  _test-error-stream/imm32
-    # . call
+    # . . call
     e8/call  clear-stream/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               4/imm32           # add to ESP
     # - initialize 'in'
     # write(_test-stream, "3")
-    # . push args
+    # . . push args
     68/push  "3"/imm32
     68/push  _test-stream/imm32
-    # . call
+    # . . call
     e8/call  write/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # - initialize exit-descriptor 'ed'
     # allocate on stack
@@ -343,41 +343,41 @@ test-get-num-reads-single-digit:
     8d/copy-address                 0/mod/indirect  4/rm32/sib    4/base/ESP  4/index/none  .           0/r32/EAX   .               .                 # copy ESP to EAX
     # size the exit-descriptor for the call to get-num below
     # tailor-exit-descriptor(ed, 16)
-    # . push args
+    # . . push args
     68/push  0x10/imm32/nbytes-of-args-for-get-num
     50/push-EAX/ed
-    # . call
+    # . . call
     e8/call  tailor-exit-descriptor/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # - prime the pump
     # get-char(_test-buffered-file)
-    # . push args
+    # . . push args
     68/push  _test-buffered-file/imm32
-    # . call
+    # . . call
     e8/call  get-char/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               4/imm32           # add to ESP
     ## get-num(in, out, err, ed)
-    # . push args
+    # . . push args
     50/push-EAX/ed
     68/push  _test-error-stream/imm32
     68/push  _test-output-stream/imm32
     68/push  _test-buffered-file/imm32
-    # . call
+    # . . call
     e8/call  get-num/disp32
     ## registers except ESP may be clobbered at this point
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               0x10/imm32        # add to ESP
     # check-ints-equal(*_test-output-stream.data, '3')
-    # . push args
+    # . . push args
     68/push  "F - test-get-num-reads-single-digit"/imm32
     68/push  0x33/imm32
     b8/copy-to-EAX  _test-output-stream/imm32
     ff          6/subop/push        1/mod/*+disp8   0/rm32/EAX    .           .             .           .           0xc/disp8       .                 # push *(EAX+12)
-    # . call
+    # . . call
     e8/call  check-ints-equal/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               0xc/imm32         # add to ESP
     # reclaim locals
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
@@ -391,43 +391,43 @@ test-get-num-aborts-on-non-digit-in-Look:
     89/copy                         3/mod/direct    5/rm32/EBP    .           .             .           4/r32/ESP   .               .                 # copy ESP to EBP
     # - clear all streams
     # clear-stream(_test-stream)
-    # . push args
+    # . . push args
     68/push  _test-stream/imm32
-    # . call
+    # . . call
     e8/call  clear-stream/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               4/imm32           # add to ESP
     # clear-stream(_test-buffered-file+4)
-    # . push args
+    # . . push args
     b8/copy-to-EAX  _test-buffered-file/imm32
     05/add-to-EAX  4/imm32
     50/push-EAX
-    # . call
+    # . . call
     e8/call  clear-stream/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               4/imm32           # add to ESP
     # clear-stream(_test-output-stream)
-    # . push args
+    # . . push args
     68/push  _test-output-stream/imm32
-    # . call
+    # . . call
     e8/call  clear-stream/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               4/imm32           # add to ESP
     # clear-stream(_test-error-stream)
-    # . push args
+    # . . push args
     68/push  _test-error-stream/imm32
-    # . call
+    # . . call
     e8/call  clear-stream/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               4/imm32           # add to ESP
     # - initialize 'in'
     # write(_test-stream, "3")
-    # . push args
+    # . . push args
     68/push  "3"/imm32
     68/push  _test-stream/imm32
-    # . call
+    # . . call
     e8/call  write/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # - initialize exit-descriptor 'ed'
     # allocate on stack
@@ -436,35 +436,35 @@ test-get-num-aborts-on-non-digit-in-Look:
     8d/copy-address                 0/mod/indirect  4/rm32/sib    4/base/ESP  4/index/none  .           0/r32/EAX   .               .                 # copy ESP to EAX
     # size the exit-descriptor for the call to get-num below
     # tailor-exit-descriptor(ed, 16)
-    # . push args
+    # . . push args
     68/push  0x10/imm32/nbytes-of-args-for-get-num
     50/push-EAX/ed
-    # . call
+    # . . call
     e8/call  tailor-exit-descriptor/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # - don't initialize Look
     # - get-num(in, out, err, ed)
-    # . push args
+    # . . push args
     50/push-EAX/ed
     68/push  _test-error-stream/imm32
     68/push  _test-output-stream/imm32
     68/push  _test-buffered-file/imm32
-    # . call
+    # . . call
     e8/call  get-num/disp32
     # registers except ESP may be clobbered at this point
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               0x10/imm32        # add to ESP
     # - check that get-num tried to call exit(1)
     # check-ints-equal(ed->value, 2, msg)  # i.e. stop was called with value 1
-    # . push args
+    # . . push args
     68/push  "F - test-get-num-aborts-on-non-digit-in-Look"/imm32
     68/push  2/imm32
     # . push ed->value
     ff          6/subop/push        1/mod/*+disp8   0/rm32/EAX    .           .             .           .           4/disp8         .                 # push *(EAX+4)
-    # . call
+    # . . call
     e8/call  check-ints-equal/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               0xc/imm32         # add to ESP
     # reclaim locals
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
@@ -479,42 +479,42 @@ expected:  # ed : (address exit-descriptor), f : fd or (address stream), s : (ad
     55/push-EBP
     89/copy                         3/mod/direct    5/rm32/EBP    .           .             .           4/r32/ESP   .               .                 # copy ESP to EBP
     # write(f, "Error: ")
-    # . push args
+    # . . push args
     68/push  "Error: "/imm32
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0xc/disp8       .                 # push *(EBP+12)
-    # . call
+    # . . call
     e8/call  write/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # write(f, s)
-    # . push args
+    # . . push args
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0x10/disp8      .                 # push *(EBP+16)
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0xc/disp8       .                 # push *(EBP+12)
-    # . call
+    # . . call
     e8/call  write/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # write(f, " expected")
-    # . push args
+    # . . push args
     68/push  " expected"/imm32
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0xc/disp8       .                 # push *(EBP+12)
-    # . call
+    # . . call
     e8/call  write/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # write(f, Newline)
-    # . push args
+    # . . push args
     68/push  Newline/imm32
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0xc/disp8       .                 # push *(EBP+12)
-    # . call
+    # . . call
     e8/call  write/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # stop(ed, 1)
-    # . push args
+    # . . push args
     68/push  1/imm32
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           8/disp8         .                 # push *(EBP+8)
-    # . call
+    # . . call
     e8/call  stop/disp32
     ## should never get past this point
     # . epilog
@@ -528,34 +528,34 @@ error:  # ed : (address exit-descriptor), f : fd or (address stream), s : (addre
     55/push-EBP
     89/copy                         3/mod/direct    5/rm32/EBP    .           .             .           4/r32/ESP   .               .                 # copy ESP to EBP
     # write(f, "Error: ")
-    # . push args
+    # . . push args
     68/push  "Error: "/imm32
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0xc/disp8       .                 # push *(EBP+12)
-    # . call
+    # . . call
     e8/call  write/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # write(f, s)
-    # . push args
+    # . . push args
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0x10/disp8      .                 # push *(EBP+16)
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0xc/disp8       .                 # push *(EBP+12)
-    # . call
+    # . . call
     e8/call  write/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # write(f, Newline)
-    # . push args
+    # . . push args
     68/push  Newline/imm32
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0xc/disp8       .                 # push *(EBP+12)
-    # . call
+    # . . call
     e8/call  write/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # stop(ed, 1)
-    # . push args
+    # . . push args
     68/push  1/imm32
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           8/disp8         .                 # push *(EBP+8)
-    # . call
+    # . . call
     e8/call  stop/disp32
     ## should never get past this point
     # . epilog
@@ -571,11 +571,11 @@ get-char:  # f : (address buffered-file) -> <void>
     # . save registers
     50/push-EAX
     # read-byte(f)
-    # . push args
+    # . . push args
     ff          6/subop/push        1/mod/*+disp8   4/rm32/sib    5/base/EBP  4/index/none  .           .           0x8/disp8       .                 # push *(EBP+8)
-    # . call
+    # . . call
     e8/call  read-byte/disp32
-    # . discard args
+    # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               4/imm32           # add to ESP
     # save EAX to Look
     89/copy                         0/mod/indirect  5/rm32/.disp32            .             .           0/r32/EAX   Look/disp32     .                 # copy EAX to *Look