mewhenthe/bfhaskell
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix exit code

Browse Source
This commit is contained in:
mewhenthe 2025-06-22 13:43:18 +02:00
parent d7e57cfa9c
commit cb90f6b4a0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
main.hs
View File

@ -8,7 +8,7 @@ add_bf = "\n\tmov bl, [tape+rax]\n\tadd bl, 1\n\tmov [tape+rax], bl"
sub_bf = "\n\tmov bl, [tape+rax]\n\tsub bl, 1\n\tmov [tape+rax], bl"
dot = "\n\tpush rax\n\tpush qword [tape+rax]\n\tmov rax, 1\n\tmov rdi, 1,\n\tmov rsi, rsp\n\tmov rdx, 1\n\tsyscall\n\tpop rax\n\tpop rax"
comma = "\n\tpush rax\n\tmov rax, 0\n\tmov rdi, 0\n\tmov rsi, buf\n\tmov rdx, 1\n\tsyscall\n\tpop rax\n\tmov rbx, [buf]\n\tmov [tape+rax], bl"
end = "\n\n\n\tmov rdi, [tape+rax]\n\tmov rax, 60\n\tsyscall"
end = "\n\n\n\tmov rdi, 0\n\tmov rax, 60\n\tsyscall"
opbrack = ":\n\tcmp byte [tape+rax], 0\n\tje close_"
closbrack = ":\n\tcmp byte [tape+rax], 0\n\tjne open_"