From df0d6a4503a26508553510b4050eaa79f52e4e4e Mon Sep 17 00:00:00 2001 From: Aleksey Veresov Date: Sun, 18 Oct 2020 18:22:31 +0300 Subject: Another step to release. --- ia32/bitwise.sts | 27 ----------- ia32/branch.sts | 11 ----- ia32/const.sts | 3 -- ia32/core.sts | 17 ------- ia32/elf/begin.sts | 129 ------------------------------------------------- ia32/elf/end.sts | 21 -------- ia32/elf/syscall.sts | 41 ---------------- ia32/float/control.sts | 19 -------- ia32/float/float.sts | 3 -- ia32/float/math.sts | 32 ------------ ia32/float/stack.sts | 25 ---------- ia32/ia32.sts | 8 --- ia32/macro.sts | 86 --------------------------------- ia32/math.sts | 68 -------------------------- ia32/memory.sts | 10 ---- ia32/stack.sts | 41 ---------------- 16 files changed, 541 deletions(-) delete mode 100644 ia32/bitwise.sts delete mode 100644 ia32/branch.sts delete mode 100644 ia32/const.sts delete mode 100644 ia32/core.sts delete mode 100644 ia32/elf/begin.sts delete mode 100644 ia32/elf/end.sts delete mode 100644 ia32/elf/syscall.sts delete mode 100644 ia32/float/control.sts delete mode 100644 ia32/float/float.sts delete mode 100644 ia32/float/math.sts delete mode 100644 ia32/float/stack.sts delete mode 100644 ia32/ia32.sts delete mode 100644 ia32/macro.sts delete mode 100644 ia32/math.sts delete mode 100644 ia32/memory.sts delete mode 100644 ia32/stack.sts (limited to 'ia32') diff --git a/ia32/bitwise.sts b/ia32/bitwise.sts deleted file mode 100644 index 205e618..0000000 --- a/ia32/bitwise.sts +++ /dev/null @@ -1,27 +0,0 @@ -defasm xor - # 5b ?' ; pop ebx - # 58 ?' ; pop eax - # 31 ?' # d8 ?' ; xor eax, ebx - # 50 ?' ; push eax -next - -defasm and - # 5b ?' ; pop ebx - # 58 ?' ; pop eax - # 21 ?' # d8 ?' ; and eax, ebx - # 50 ?' ; push eax -next - -defasm shr - # 59 ?' ; pop ecx - # 58 ?' ; pop eax - # d3 ?' # e8 ?' ; shr eax, cl - # 50 ?' ; push eax -next - -defasm shl - # 59 ?' ; pop ecx - # 58 ?' ; pop eax - # d3 ?' # e0 ?' ; shl eax, cl - # 50 ?' ; push eax -next diff --git a/ia32/branch.sts b/ia32/branch.sts deleted file mode 100644 index 35177f6..0000000 --- a/ia32/branch.sts +++ /dev/null @@ -1,11 +0,0 @@ -defasm branch - # 8b ?' # 36 ?' ; mov esi, [esi] -next - -defasm 0branch - # 58 ?' ; pop eax - # 83 ?' # c6 ?' # 4 ?' ; add esi, 4 - # 83 ?' # f8 ?' # 0 ?' ; cmp eax, 0 - # 75 ?' # 3 ?' ; jne +3 - # 8b ?' # 76 ?' # fc ?' ; mov esi, [esi - 4] -next diff --git a/ia32/const.sts b/ia32/const.sts deleted file mode 100644 index 31f8041..0000000 --- a/ia32/const.sts +++ /dev/null @@ -1,3 +0,0 @@ -defconst word_size 4 -defconst word_max ffffffff -defconst word_endianness 0 diff --git a/ia32/core.sts b/ia32/core.sts deleted file mode 100644 index 4a5e692..0000000 --- a/ia32/core.sts +++ /dev/null @@ -1,17 +0,0 @@ -defasm docol - # 83 ?' # ed ?' # 4 ?' ; sub ebp, 4 - # 89 ?' # 75 ?' # 0 ?' ; mov [ebp], esi - # 83 ?' # c0 ?' # 4 ?' ; add eax, 4 - # 89 ?' # c6 ?' ; mov esi, eax - # ad ?' # ff ?' # 20 ?' ; go next -next - -defasm exit - # 8b ?' # 75 ?' # 0 ?' ; mov esi, [ebp] - # 83 ?' # c5 ?' # 4 ?' ; add ebp, 4 -next - -defasm lit - # ad ?' ; lodsd - # 50 ?' ; push eax -next diff --git a/ia32/elf/begin.sts b/ia32/elf/begin.sts deleted file mode 100644 index 8dab930..0000000 --- a/ia32/elf/begin.sts +++ /dev/null @@ -1,129 +0,0 @@ -?create ?? _code_segment -_code_segment ?choose - -# 08048000 ?org -# 4 ?size -# 0 ?endianness - -?create ?? _data_segment -_data_segment ?choose - -# 09048000 ?org -# 4 ?size -# 0 ?endianness - -_code_segment ?choose - -; ELF header -; EI_MAG - ELF magic number -# 7f ?' # 45 ?' # 4c ?' # 46 ?' -; EI_CLASS - 32-bit format -# 1 ?' -; EI_DATA - little-endiann -# 1 ?' -; EI_VERSION - current ELF header version -# 1 ?' -; EI_OSABI - Linux ABI -# 3 ?' -; EI_ABIVERSION - none -# 0 ?' -; EI_PAD - padding -# 7 ?res -; Executable file type -# 2 ?2. -; IA-32 architecture -# 3 ?2. -; ELF version -# 1 ?4. -; Entry point -?$ ?? _elf_entry -# 0 ?4. -; Program headers offset -# 34 ?4. -; Section headers offset -# 0 ?4. -; Extra flags -# 0 ?4. -; ELF header size -# 34 ?2. -; Program header size -# 20 ?2. -; Number of program headers -# 2 ?2. -; Section header size -# 28 ?2. -; Number of section headers -# 0 ?2. -; Section name section index -# 0 ?2. - -; ELF CODE PROGRAM HEADER -; Segment type -# 1 ?4. -; Segment offset -# 0 ?4. -; Segment virtual address -?$$ ?4. -; Segment physical address -?$$ ?4. -; Segment file size -?$ ?? _code_segment_file_size -# 0 ?4. -; Segment memory size -?$ ?? _code_segment_memory_size -# 0 ?4. -; Segment flags -# 5 ?4. -; Segment alignment -# 1000 ?4. - -; ELF DATA PROGRAM HEADER -; Segment type -# 1 ?4. -; Segment offset -?$ ?? _data_segment_offset -# 0 ?4. -; Segment virtual address -_data_segment ?choose -?$$ -_code_segment ?choose -?4. -; Segment physical address -_data_segment ?choose -?$$ -_code_segment ?choose -?4. -; Segment file size -?$ ?? _data_segment_file_size -# 0 ?4. -; Segment memory size -?$ ?? _data_segment_memory_size -# 0 ?4. -; Segment flags -# 6 ?4. -; Segment alignment -# 1000 ?4. - -; Return stack -_data_segment ?choose -1000 ?res -?$ ?dup ?? _return_stack -_code_segment ?choose - -; PROGRAM ENTRY CODE -?$ _elf_entry ?! -; mov ebp, _return_stack -# bd ?' -_return_stack ?. -; mov esi, _threaded_code_entry -# be ?' -?$ ?? _threaded_code_entry -# 0 ?. -; lodsd -# ad ?' -; jmp dword [eax] -# ff ?' # 20 ?' - -module ia32/ia32.sts -module ia32/elf/syscall.sts -module common/common.sts diff --git a/ia32/elf/end.sts b/ia32/elf/end.sts deleted file mode 100644 index 7c80eec..0000000 --- a/ia32/elf/end.sts +++ /dev/null @@ -1,21 +0,0 @@ -; Code segment alignment -# 1000 ?$ # 1000 ?mod ?- ?dup ?res - -; Code segment ELF sizes -?$ ?$$ ?- _code_segment_file_size ?! -?$ ?$$ ?- _code_segment_memory_size ?! - -; Data segment ELF offset -?$ ?$$ ?- -_code_segment ?choose -_data_segment_offset ?! - -; Data segment ELF sizes -_data_segment ?choose -?$ ?$$ ?- -_code_segment ?choose -_data_segment_file_size ?! -_data_segment ?choose -?$ ?$$ ?- -_code_segment ?choose -_data_segment_memory_size ?! diff --git a/ia32/elf/syscall.sts b/ia32/elf/syscall.sts deleted file mode 100644 index 3acfef2..0000000 --- a/ia32/elf/syscall.sts +++ /dev/null @@ -1,41 +0,0 @@ -defasm sys_exit - # b8 ?' # 1 ?. ; mov eax, 1 - # 31 ?' # db ?' ; xor ebx, ebx - # cd ?' # 80 ?' ; int 0x80 -; no need in next since this is the last instruction - -_data_segment ?choose - ?$ ?? _iobuf # 0 ?. -_code_segment ?choose - -defasm sys_read - # b8 ?' # 3 ?. ; mov eax, 3 - # 31 ?' # db ?' ; xor ebx, ebx - # b9 ?' _iobuf ?. ; mov ecx, _iobuf - # ba ?' # 1 ?. ; mov edx, 1 - # cd ?' # 80 ?' ; int 0x80 - # 31 ?' # db ?' ; xor ebx, ebx - # 8a ?' # 1d ?' _iobuf ?. ; mov bl, [_iobuf] - # 53 ?' ; push ebx - # 50 ?' ; push eax -next - -defasm sys_write - # 58 ?' ; pop eax - # a2 ?' _iobuf ?. ; mov [_iobuf], al - # b8 ?' # 4 ?. ; mov eax, 4 - # bb ?' # 1 ?. ; mov ebx, 1 - # b9 ?' _iobuf ?. ; mov ecx, _iobuf - # ba ?' # 1 ?. ; mov edx, 1 - # cd ?' # 80 ?' ; int 0x80 -next - -defasm sys_write_err - # 58 ?' ; pop eax - # a2 ?' _iobuf ?. ; mov [_iobuf], al - # b8 ?' # 4 ?. ; mov eax, 4 - # bb ?' # 2 ?. ; mov ebx, 2 - # b9 ?' _iobuf ?. ; mov ecx, _iobuf - # ba ?' # 1 ?. ; mov edx, 1 - # cd ?' # 80 ?' ; int 0x80 -next diff --git a/ia32/float/control.sts b/ia32/float/control.sts deleted file mode 100644 index 3863f5f..0000000 --- a/ia32/float/control.sts +++ /dev/null @@ -1,19 +0,0 @@ -defasm float_init - # 9b ?' ; wait - # db ?' # e3 ?' ; fninit -next - -defasm float_cload - # d9 ?' # 2c ?' # 24 ?' ; fldcw [esp] - # 58 ?' ; pop eax -next - -defasm float_sstore - # 9b ?' # df ?' # e0 ?' ; fstsw ax - # 50 ?' ; push eax -next - -defasm float_cstore - # 50 ?' ; push eax - # d9 ?' # 3c ?' # 24 ?' ; fstcw [esp] -next diff --git a/ia32/float/float.sts b/ia32/float/float.sts deleted file mode 100644 index d6907ca..0000000 --- a/ia32/float/float.sts +++ /dev/null @@ -1,3 +0,0 @@ -module ia32/float/control.sts -module ia32/float/stack.sts -module ia32/float/math.sts diff --git a/ia32/float/math.sts b/ia32/float/math.sts deleted file mode 100644 index d02b491..0000000 --- a/ia32/float/math.sts +++ /dev/null @@ -1,32 +0,0 @@ -defasm float_add - # de ?' # c1 ?' ; faddp st1, st0 -next - -defasm float_sub - # de ?' # e9 ?' ; fsubp st1, st0 -next - -defasm float_mul - # de ?' # c9 ?' ; fmullp st1, st0 -next - -defasm float_div - # de ?' # f9 ?' ; fdivp st1, st0 -next - -defasm float_sqrt - # d9 ?' # fa ?' ; fsqrt -next - -defasm float_more - # de ?' # d9 ?' ; fcompp - # 9b ?' # df ?' # e0 ?' ; fstsw ax - # 25 ?' # 100 ?. ; and eax, 0x100 - # c1 ?' # e8 ?' # 8 ?' ; shr eax, 8 - # 50 ?' ; push eax -next - -defword float_less - float_more - 0 = -exit diff --git a/ia32/float/stack.sts b/ia32/float/stack.sts deleted file mode 100644 index 8c16fef..0000000 --- a/ia32/float/stack.sts +++ /dev/null @@ -1,25 +0,0 @@ -defasm float_fload - # d9 ?' # 04 ?' # 24 ?' ; fld dword [esp] - # 58 ?' ; pop eax -next - -defasm float_iload - # db ?' # 04 ?' # 24 ?' ; fild dword [esp] - # 58 ?' ; pop eax -next - -defasm float_dload - # df ?' # 2c ?' # 24 ?' ; fild qword [esp] - # 58 ?' ; pop eax - # 58 ?' ; pop eax -next - -defasm float_fstore - # 50 ?' ; push eax - # d9 ?' # 1c ?' # 24 ?' ; fstp dword [esp] -next - -defasm float_istore - # 50 ?' ; push eax - # db ?' # 1c ?' # 24 ?' ; fistp dword [esp] -next diff --git a/ia32/ia32.sts b/ia32/ia32.sts deleted file mode 100644 index 38b5919..0000000 --- a/ia32/ia32.sts +++ /dev/null @@ -1,8 +0,0 @@ -module ia32/macro.sts -module ia32/const.sts -module ia32/core.sts -module ia32/stack.sts -module ia32/branch.sts -module ia32/memory.sts -module ia32/math.sts -module ia32/bitwise.sts diff --git a/ia32/macro.sts b/ia32/macro.sts deleted file mode 100644 index fa9510b..0000000 --- a/ia32/macro.sts +++ /dev/null @@ -1,86 +0,0 @@ -[ next 0 - # ad ?' # ff ?' # 20 ?' -] - -[ defasm 1 - [ %1% 0 - _%0% ?. - \] - ?$ ?? _%1% - ?$ # 4 ?+ ?. -] - -[ defword 1 - [ %1% 0 - _%0% ?. - \] - ?$ ?? _%1% - _docol # 4 ?+ ?. -] - -[ defconst 2 - defasm %1% - # 68 ?' # %2% ?. ; push %2% - next -] - -[ defarr 2 - _data_segment ?choose - ?$ ?? _%1%_arr - # %2% # 4 ?* ?res - _code_segment ?choose - defasm %1% - # 68 ?' _%1%_arr ?. ; push _%1%_arr - next -] - -[ defvar 1 - defarr %1% 1 -] - -[ as 1 - _data_segment ?choose - defword %1% - lit ?$ # 0 ?. - exit - _code_segment ?choose - lit ?. ! -] - -[ literal 0 - lit # %1% ?. -] - -[ set_entry 0 - ?$ _threaded_code_entry ?! -] - -[ if 0 - 0branch ?$ # 0 ?. -] - -[ fi 0 - ?$ ?swap ?! -] - -[ else 0 - branch ?$ # 0 ?. - ?swap ?$ ?swap ?! -] - -[ do 0 - ?$ -] - -[ untilod 0 - 0branch ?. -] - -[ until 0 - 0 = 0branch ?$ # 0 ?. -] - -[ od 0 - branch ?swap ?. - ?$ ?swap ?! -] diff --git a/ia32/math.sts b/ia32/math.sts deleted file mode 100644 index 609a21a..0000000 --- a/ia32/math.sts +++ /dev/null @@ -1,68 +0,0 @@ -defasm + - # 58 ?' ; pop eax - # 01 ?' # 04 ?' # 24 ?' ; add [esp], eax -next - -defasm - - # 58 ?' ; pop eax - # 29 ?' # 04 ?' # 24 ?' ; sub [esp], eax -next - -defasm mul - # 5b ?' ; pop ebx - # 58 ?' ; pop eax - # f7 ?' # e3 ?' ; mul ebx - # 50 ?' ; push eax -next - -defasm mod - # 5b ?' ; pop ebx - # 58 ?' ; pop eax - # 31 ?' # d2 ?' ; xor edx, edx - # f7 ?' # f3 ?' ; div ebx - # 52 ?' ; push edx -next - -defasm div - # 5b ?' ; pop ebx - # 58 ?' ; pop eax - # 31 ?' # d2 ?' ; xor edx, edx - # f7 ?' # f3 ?' ; div ebx - # 50 ?' ; push eax -next - -defasm = - # 5b ?' ; pop ebx - # 58 ?' ; pop eax - # 39 ?' # d8 ?' ; cmp eax, ebx - # 0f ?' # 94 ?' # c0 ?' ; sete al - # 0f ?' # b6 ?' # c0 ?' ; movzx eax, al - # 50 ?' ; push eax -next - -defasm != - # 5b ?' ; pop ebx - # 58 ?' ; pop eax - # 39 ?' # d8 ?' ; cmp eax, ebx - # 0f ?' # 95 ?' # c0 ?' ; setne al - # 0f ?' # b6 ?' # c0 ?' ; movzx eax, al - # 50 ?' ; push eax -next - -defasm < - # 5b ?' ; pop ebx - # 58 ?' ; pop eax - # 39 ?' # d8 ?' ; cmp eax, ebx - # 0f ?' # 92 ?' # c0 ?' ; setb al - # 0f ?' # b6 ?' # c0 ?' ; movzx eax, al - # 50 ?' ; push eax -next - -defasm > - # 5b ?' ; pop ebx - # 58 ?' ; pop eax - # 39 ?' # d8 ?' ; cmp eax, ebx - # 0f ?' # 97 ?' # c0 ?' ; seta al - # 0f ?' # b6 ?' # c0 ?' ; movzx eax, al - # 50 ?' ; push eax -next diff --git a/ia32/memory.sts b/ia32/memory.sts deleted file mode 100644 index 240c598..0000000 --- a/ia32/memory.sts +++ /dev/null @@ -1,10 +0,0 @@ -defasm @ - # 58 ?' ; pop eax - # ff ?' # 30 ?' ; push dword [eax] -next - -defasm ! - # 5b ?' ; pop ebx - # 58 ?' ; pop eax - # 89 ?' # 03 ?' ; mov [ebx], eax -next diff --git a/ia32/stack.sts b/ia32/stack.sts deleted file mode 100644 index e884098..0000000 --- a/ia32/stack.sts +++ /dev/null @@ -1,41 +0,0 @@ -defasm top - # 54 ?' ; push esp -next - -defasm ref - # 58 ?' ; pop eax - # c1 ?' # e0 ?' # 2 ?' ; shl eax, 2 - # 01 ?' # e0 ?' ; add eax, esp - # 50 ?' ; push eax -next - -defasm get - # 58 ?' ; pop eax - # 8b ?' # 4 ?' # 84 ?' ; mov eax, [esp + 4 * eax] - # 50 ?' ; push eax -next - -defasm set - # 5b ?' ; pop ebx - # 58 ?' ; pop eax - # 89 ?' # 04 ?' # 9c ?' ; mov [esp + 4 * ebx], eax -next - -defasm drop - # 58 ?' ; pop eax -next - -defasm dup - # ff ?' # 34 ?' # 24 ?' ; push dword [esp] -next - -defasm over - # ff ?' # 74 ?' # 24 ?' # 4 ?' ; push dword [esp + 4] -next - -defasm swap - # 58 ?' ; pop eax - # 5b ?' ; pop ebx - # 50 ?' ; push eax - # 53 ?' ; push ebx -next -- cgit v1.2.3