2018-12-01 00:45:15 +00:00
|
|
|
# Example reading commandline arguments: compute length of first arg.
|
2018-08-14 03:44:28 +00:00
|
|
|
#
|
2018-10-01 19:28:30 +00:00
|
|
|
# To run (from the subx directory):
|
2018-12-30 08:36:07 +00:00
|
|
|
# $ ./subx translate examples/ex8.subx -o examples/ex8
|
|
|
|
# $ ./subx run examples/ex8 abc de fghi
|
2018-08-14 03:44:28 +00:00
|
|
|
# Expected result:
|
|
|
|
# $ echo $?
|
2018-09-01 17:04:58 +00:00
|
|
|
# 3 # length of 'abc'
|
|
|
|
#
|
|
|
|
# At the start of a SubX program:
|
|
|
|
# argc: *ESP
|
|
|
|
# argv[0]: *(ESP+4)
|
|
|
|
# argv[1]: *(ESP+8)
|
|
|
|
# ...
|
|
|
|
# Locals start from ESP-4 downwards.
|
|
|
|
|
2019-05-18 07:00:18 +00:00
|
|
|
== code 0x09000000
|
2018-11-30 19:10:44 +00:00
|
|
|
# instruction effective address register displacement immediate
|
|
|
|
# . op subop mod rm32 base index scale r32
|
|
|
|
# . 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
|
2018-11-26 08:26:20 +00:00
|
|
|
|
2018-11-30 19:10:44 +00:00
|
|
|
# . prolog
|
2018-11-30 18:54:42 +00:00
|
|
|
89/copy 3/mod/direct 5/rm32/EBP . . . 4/r32/ESP . . # copy ESP to EBP
|
2018-12-01 00:45:15 +00:00
|
|
|
# EAX = ascii-length(argv[1])
|
2018-11-30 19:10:44 +00:00
|
|
|
# . . push args
|
2018-12-29 21:36:06 +00:00
|
|
|
ff 6/subop/push 1/mod/*+disp8 5/rm32/EBP . . . . 8/disp8 . # push *(EBP+8)
|
2018-11-30 19:10:44 +00:00
|
|
|
# . . call
|
2018-11-30 18:54:42 +00:00
|
|
|
e8/call ascii-length/disp32
|
2018-11-30 19:10:44 +00:00
|
|
|
# . . discard args
|
2018-11-30 18:54:42 +00:00
|
|
|
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add to ESP
|
2018-09-01 17:04:58 +00:00
|
|
|
|
2018-11-30 18:54:42 +00:00
|
|
|
# exit(EAX)
|
|
|
|
89/copy 3/mod/direct 3/rm32/EBX . . . 0/r32/EAX . . # copy EAX to EBX
|
|
|
|
b8/copy-to-EAX 1/imm32/exit
|
|
|
|
cd/syscall 0x80/imm8
|
2018-08-14 03:44:28 +00:00
|
|
|
|
2018-12-01 00:45:15 +00:00
|
|
|
ascii-length: # s : (address array byte) -> n/EAX
|
|
|
|
# EDX = s
|
2018-11-30 18:54:42 +00:00
|
|
|
8b/copy 1/mod/*+disp8 4/rm32/sib 4/base/ESP 4/index/none . 2/r32/EDX 4/disp8 . # copy *(ESP+4) to EDX
|
2018-12-01 00:45:15 +00:00
|
|
|
# var result/EAX = 0
|
2018-11-30 18:54:42 +00:00
|
|
|
b8/copy-to-EAX 0/imm32
|
2019-04-17 04:13:41 +00:00
|
|
|
$ascii-length:loop:
|
2018-12-01 00:45:15 +00:00
|
|
|
# var c/ECX = *s
|
2019-02-15 00:49:10 +00:00
|
|
|
8a/copy-byte 0/mod/* 2/rm32/EDX . . . 1/r32/CL . . # copy byte at *EDX to CL
|
2019-02-15 00:24:20 +00:00
|
|
|
# if (c == '\0') break
|
2018-11-30 18:54:42 +00:00
|
|
|
81 7/subop/compare 3/mod/direct 1/rm32/ECX . . . . . 0/imm32 # compare ECX
|
2019-04-17 04:13:41 +00:00
|
|
|
74/jump-if-equal $ascii-length:end/disp8
|
2018-11-30 18:54:42 +00:00
|
|
|
# ++s
|
2019-01-13 06:24:06 +00:00
|
|
|
42/increment-EDX
|
2018-11-30 18:54:42 +00:00
|
|
|
# ++result
|
2019-04-17 05:43:17 +00:00
|
|
|
40/increment-EAX
|
2018-11-30 18:54:42 +00:00
|
|
|
# loop
|
2019-04-17 04:13:41 +00:00
|
|
|
eb/jump $ascii-length:loop/disp8
|
|
|
|
$ascii-length:end:
|
2018-12-01 00:45:15 +00:00
|
|
|
# return EAX
|
2018-11-30 18:54:42 +00:00
|
|
|
c3/return
|
2018-10-05 17:42:16 +00:00
|
|
|
|
2018-11-30 19:10:44 +00:00
|
|
|
# . . vim:nowrap:textwidth=0
|