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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
%ifndef DTOS_INC
%define DTOS_INC
%ifndef MONAD_INC
%include "monad.inc"
%endif
section .data
_NUMERALS db "0123456789ABCDEF"
_DATA_BYTE_BUFFER times 63 db "0"
_FIRST_DIGIT db "0", 0x0A, 0
m_make DTOS_RESULT, _DATA_BYTE_BUFFER
%macro dtomz_h 1
mov rax, %1
mov rcx, 16
call data_to_zstring
%endm
%macro dtomz_d 1
mov rax, %1
mov rcx, 10
call data_to_zstring
%endm
%macro dtomz_o 1
mov rax, %1
mov rcx, 8
call data_to_zstring
%endm
%macro dtomz_b 1
mov rax, %1
mov rcx, 2
call data_to_zstring
%endm
section .text
clear_data_zstring:
push rbp
mov rbp, rsp
push rdi
cld
lea rdi, [rel _DATA_BYTE_BUFFER]
mov al, "0"
mov rcx, 64
rep stosb
std
pop rdi
mov rsp, rbp
pop rbp
ret
data_to_zstring:
;; rax: Value
;; rcx: Base
push rbp
mov rbp, rsp
;;
push rax
push rcx
call clear_data_zstring
pop rcx
pop rax
cmp rcx, 16
ja .err_exit
cmp rcx, 2
jb .err_exit
std
;; Preserve Caller-saved registers
push rsi
push rdi
;; Initially include newline character
lea rdi, [rel _FIRST_DIGIT]
.loop:
;; Get lowest digit
xor rdx, rdx
div rcx
;; Set the numeral
lea rsi, [rel _NUMERALS]
add rsi, rdx
movsb
cmp rax, 0
jne .loop
mov rax, rdi
inc rax
cld
;; Recover Registers
pop rdi
pop rsi
m_return rel m_DTOS_RESULT, rax
jmp .exit
.err_exit:
m_Nothing rel m_DTOS_RESULT
.exit:
lea rax, [rel m_DTOS_RESULT]
;;
mov rsp, rbp
pop rbp
ret
data_to_zstring_mh:
mov rcx, 16
call data_to_zstring
ret
data_to_zstring_md:
mov rcx, 10
call data_to_zstring
ret
data_to_zstring_mo:
mov rcx, 8
call data_to_zstring
ret
data_to_zstring_mb:
mov rcx, 2
call data_to_zstring
ret
%endif
|
