-
Notifications
You must be signed in to change notification settings - Fork 0
/
flow.inc
86 lines (64 loc) · 866 Bytes
/
flow.inc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
;
; expects
; - word in rax
;
flow_in:
call word_input_stack_effects
mov rdi, rsi
.loop:
dec ecx
js .done
lea rbx, [rdi + (rcx * 8)]
mov rbx, [rbx]
cmp bl, _REGISTER
jne .bad_se
and rbx, REG_MASK
shr rbx, REG_OFFSET
call data_stack_pop
cmp eax, _IMMEDIATE
jne .flow_reg
.flow_lit:
mov al, 0xb8
add al, bl
call b_comma
call data_stack_pop
call d_comma
jmp .loop
.flow_reg:
and ebx, 7
and rax, REG_MASK
shr rax, REG_OFFSET
and eax, 7
shl eax, 3
or ebx, eax
or ebx, 0xc0
mov al, 0x89
call b_comma
mov al, bl
call b_comma
jmp .loop
.done:
ret
.bad_se:
die ERR_BAD_SE
;
; expects
; - word in rax
;
push_flow_in:
call word_input_stack_effects
.loop:
dec ecx
js .done
lea rax, [rsi + (rcx * 8)]
mov rax, [rax]
call data_stack_push
jmp .loop
.done:
ret
;
; expects
; - word in rax
;
flow_out:
ret