Red-assembler/test.reds at main · isoux/Red-assembler · 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
Red/System[
    Title:  "Instruction processing test"
    Author: "Isoux"
    File:   %test.reds
    Tabs:   4
    Rights: "Copyright (C) 2023 Isoux isa@isoux.org. All rights reserved."
    License: {
        Distributed under the Boost Software License, Version 1.0.
        See https://github.com/isoux/Red-assembler/blob/main/LICENSE
    }
    Note: {
        The processing result is emitted to text.bin file like a valid binary file.
        The result is visible in the console output or text.dump file after objdump cmd.

    }
]

#include %system/asm-compiler.reds
#include %system/asm-label.reds
#include %system/emit-file.reds
#include %asm.reds

; Register to register
mov [al bl]
lab1: label!
lab3: request!
ja [rel16 :lab3]
mov [ah bh]
mov [eax ebx]
lab2: request!
jae [rel16 :lab2]

; Immediate to register
mov [al  DFh]
mov [ax  A06Eh]
mov [ebx F1B2C3A4h]


; Memmory to register
mov [al byte-ptr ABCDEF48h]     ; load byte from mem-location to AL
je  [rel8 :lab2]
mov [cl byte-ptr C5B6h]
mov [ah byte-ptr ABCDEF48h]
mov [bh byte-ptr ABCDEF48h]
jbe [rel8 lab1]
mov [ax word-ptr 1A2B3C4Dh]
mov [cx word-ptr 1A2B3C4Dh]

mov [eax dword-ptr FEDCAB98h]
mov [edx dword-ptr FEDCAB98h]

lab2: label!
; Register to memmory
mov [byte-ptr FEDCAB98h al]     ; load AL to byte ptr of mem-location
mov [byte-ptr FEDCAB98h cl]
mov [byte-ptr FEDCAB98h ah]
mov [byte-ptr FEDCAB98h bh]

mov [word-ptr FEDCAB98h ax]
mov [word-ptr FEDCAB98h dx]
js  [rel8 :lab3]
mov [dword-ptr FEDCAB98h eax]
mov [dword-ptr FEDCAB98h ebx]

; Register to specific memory segment
mov [byte-ptr fs FEDCAB98h al]  ; load AL to byte ptr of fs:mem-location
mov [byte-ptr gs FEDCAB98h cl]

mov [word-ptr ss FEDCAB98h bx]
mov [word-ptr es FEDCAB98h dx]
jg [rel16 lab1]
mov [dword-ptr ds FEDCAB98h eax]
mov [dword-ptr fs FEDCAB98h esi]
jnp  [rel8 lab2]

lab3: label!
; Byte swap
bswap ebx
jecxz [rel8 lab2]
nop

link_labels
emit_to_file "text.bin"  pc_buf    pc_size

free_compiler
free_labels