1 # Print an error message and exit.
 2 
 3 == code
 4 #   instruction                     effective address                                                   register    displacement    immediate
 5 # . op          subop               mod             rm32          base        index         scale       r32
 6 # . 1-3 bytes   3 bits              2 bits          3 bits        3 bits      3 bits        2 bits      2 bits      0/1/2/4 bytes   0/1/2/4 bytes
 7 
 8 # write(out, "Error: "+msg+"\n") then stop(ed, 1)
 9 error:  # ed : (address exit-descriptor), out : fd or (address stream), msg : (address array byte) -> <void>
10     # . prolog
11     55/push-EBP
12     89/copy                         3/mod/direct    5/rm32/EBP    .           .             .           4/r32/ESP   .               .                 # copy ESP to EBP
13     # write(out, "Error: ")
14     # . . push args
15     68/push  "Error: "/imm32
16     ff          6/subop/push        1/mod/*+disp8   5/rm32/EBP    .           .             .           .           0xc/disp8       .                 # push *(EBP+12)
17     # . . call
18     e8/call  write/disp32
19     # . . discard args
20     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
21     # write(out, msg)
22     # . . push args
23     ff          6/subop/push        1/mod/*+disp8   5/rm32/EBP    .           .             .           .           0x10/disp8      .                 # push *(EBP+16)
24     ff          6/subop/push        1/mod/*+disp8   5/rm32/EBP    .           .             .           .           0xc/disp8       .                 # push *(EBP+12)
25     # . . call
26     e8/call  write/disp32
27     # . . discard args
28     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
29     # write(out, Newline)
30     # . . push args
31     68/push  Newline/imm32
32     ff          6/subop/push        1/mod/*+disp8   5/rm32/EBP    .           .             .           .           0xc/disp8       .                 # push *(EBP+12)
33     # . . call
34     e8/call  write/disp32
35     # . . discard args
36     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
37     # stop(ed, 1)
38     # . . push args
39     68/push  1/imm32
40     ff          6/subop/push        1/mod/*+disp8   5/rm32/EBP    .           .             .           .           8/disp8         .                 # push *(EBP+8)
41     # . . call
42     e8/call  stop/disp32
43     # should never get past this point
44 $error:dead-end:
45     # . epilog
46     89/copy                         3/mod/direct    4/rm32/ESP    .           .             .           5/r32/EBP   .               .                 # copy EBP to ESP
47     5d/pop-to-EBP
48     c3/return
49 
50 # . . vim:nowrap:textwidth=0