Wew-Lisp/utils.asm at master · Paul-Andre/Wew-Lisp · GitHub

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
123
124
125

SECTION .data
    genericErrorMsg: db `\nERROR!\n`
	genericErrorMsgLen equ $-genericErrorMsg
    genericExitErrorMsg: db `\nTHERE WAS SOME ERROR!\n`
	genericExitErrorMsgLen equ $-genericExitErrorMsg


%macro errorMsg 1

    jmp %%over
    %%msg: db %1
    %%len equ $-%%msg

    %%over:

    mov rsi, %%msg
    mov rdx, %%len

    call printAndExit

%endmacro


%macro errorNe 1

    je %%over

    errorMsg %1

    %%over:
%endmacro


%macro errorE 1
    jne %%over

    errorMsg %1

    %%over:
%endmacro


printAndExit:
    ; This is to be used in the macros

    ; rsi should be message
    ; rdx should be length

        mov rax, 1
        mov rdi, 2 ; stderr
        syscall

    ; First print a generic error message:
        mov rax, 1
        mov rdi, 2 ; stderr
        mov rsi, genericErrorMsg
        mov rdx, genericErrorMsgLen
        syscall


    ; rdi specifies return code
        mov rax, 60
        mov rdi, 1
        syscall


exitError:

    ; First print a generic error message:
        mov rax, 1
        mov rdi, 2 ; stderr
        mov rsi, genericExitErrorMsg
        mov rdx, genericExitErrorMsgLen
        syscall


    ; rdi specifies return code
        mov rax, 60
        mov rdi, 1
        syscall


%macro pushEverything 0
    push rax
    push rbx
    push rcx
    push rdx
    push rsi
    push rdi
    push r8
    push r9
    push r10
    push r11
    push r12
    push r13
    push r14
    push r15

%endmacro

%macro popEverything 0
    pop r15
    pop r14
    pop r13
    pop r12
    pop r11
    pop r10
    pop r9
    pop r8
    pop rdi
    pop rsi
    pop rdx
    pop rcx
    pop rbx
    pop rax

%endmacro