diff options
Diffstat (limited to '04b/guessing_game')
| -rw-r--r-- | 04b/guessing_game | 238 |
1 files changed, 0 insertions, 238 deletions
diff --git a/04b/guessing_game b/04b/guessing_game deleted file mode 100644 index 415851d..0000000 --- a/04b/guessing_game +++ /dev/null @@ -1,238 +0,0 @@ -global 0x1000 exit_code -global y -y = 4 -exit_code = main() -exit(exit_code) - -function main - local secret_number - local guess - global 32 input_line - local p_line - p_line = &input_line - secret_number = getrand(100) - fputs(1, .str_intro) - - :guess_loop - fputs(1, .str_guess) - syscall(0, 0, p_line, 30) - guess = stoi(p_line) - if guess < secret_number goto too_low - if guess > secret_number goto too_high - fputs(1, .str_got_it) - return 0 - :too_low - fputs(1, .str_too_low) - goto guess_loop - :too_high - fputs(1, .str_too_high) - goto guess_loop - -:str_intro - string I'm thinking of a number. - byte 10 - byte 0 - -:str_guess - string Guess what it is: - byte 32 - byte 0 - -:str_got_it - string You got it! - byte 10 - byte 0 - -:str_too_low - string Too low! - byte 10 - byte 0 - -:str_too_high - string Too high! - byte 10 - byte 0 - -; get a "random" number from 0 to x using the system clock -function getrand - argument x - global 16 getrand_time - local ptime - local n - - ptime = &getrand_time - syscall(228, 1, ptime) - ptime += 8 ; nanoseconds at offset 8 in struct timespec - n = *4ptime - n %= x - return n - -; returns a pointer to a null-terminated string containing the number given -function itos - global 32 itos_string - argument x - local c - local p - p = &itos_string - p += 30 - :itos_loop - c = x % 10 - c += '0 - *1p = c - x /= 10 - if x == 0 goto itos_loop_end - p -= 1 - goto itos_loop - :itos_loop_end - return p - - -; returns the number at the start of the given string -function stoi - argument s - local p - local n - local c - n = 0 - p = s - :stoi_loop - c = *1p - if c < '0 goto stoi_loop_end - if c > '9 goto stoi_loop_end - n *= 10 - n += c - '0 - p += 1 - goto stoi_loop - :stoi_loop_end - return n - - -function strlen - argument s - local c - local p - p = s - :strlen_loop - c = *1p - if c == 0 goto strlen_loop_end - p += 1 - goto strlen_loop - :strlen_loop_end - return p - s - -function fputs - argument fd - argument s - local length - length = strlen(s) - syscall(1, fd, s, length) - return - - -function fputn - argument fd - argument n - local s - s = itos(n) - fputs(fd, s) - return - -function exit - argument status_code - syscall(0x3c, status_code) - -function syscall - ; I've done some testing, and this should be okay even if - ; rbp-56 goes beyond the end of the stack. - ; mov rax, [rbp-16] - byte 0x48 - byte 0x8b - byte 0x85 - byte 0xf0 - byte 0xff - byte 0xff - byte 0xff - ; mov rdi, rax - byte 0x48 - byte 0x89 - byte 0xc7 - - ; mov rax, [rbp-24] - byte 0x48 - byte 0x8b - byte 0x85 - byte 0xe8 - byte 0xff - byte 0xff - byte 0xff - ; mov rsi, rax - byte 0x48 - byte 0x89 - byte 0xc6 - - ; mov rax, [rbp-32] - byte 0x48 - byte 0x8b - byte 0x85 - byte 0xe0 - byte 0xff - byte 0xff - byte 0xff - ; mov rdx, rax - byte 0x48 - byte 0x89 - byte 0xc2 - - ; mov rax, [rbp-40] - byte 0x48 - byte 0x8b - byte 0x85 - byte 0xd8 - byte 0xff - byte 0xff - byte 0xff - ; mov r10, rax - byte 0x49 - byte 0x89 - byte 0xc2 - - ; mov rax, [rbp-48] - byte 0x48 - byte 0x8b - byte 0x85 - byte 0xd0 - byte 0xff - byte 0xff - byte 0xff - ; mov r8, rax - byte 0x49 - byte 0x89 - byte 0xc0 - - ; mov rax, [rbp-56] - byte 0x48 - byte 0x8b - byte 0x85 - byte 0xc8 - byte 0xff - byte 0xff - byte 0xff - ; mov r9, rax - byte 0x49 - byte 0x89 - byte 0xc1 - - ; mov rax, [rbp-8] - byte 0x48 - byte 0x8b - byte 0x85 - byte 0xf8 - byte 0xff - byte 0xff - byte 0xff - - ; syscall - byte 0x0f - byte 0x05 - - return |