New

lib.asm

+%define RD 0
+%define WR 1
+%define IN 0
+%define OUT 1
+
+
 section .text
  
- 
 ; Принимает код возврата и завершает текущий процесс
-exit: 
-    xor rax, rax,
-    ret 
+exit:
+    mov rax, 60
+    syscall        
 
 ; Принимает указатель на нуль-терминированную строку, возвращает её длину
 string_length:
     xor rax, rax
+.len_loop:
+    cmp byte [rdi], 0
+    je .done
+    inc rax
+    inc rdi
+    jmp .len_loop
+.done:
     ret
-
+    
 ; Принимает указатель на нуль-терминированную строку, выводит её в stdout
 print_string:
-    xor rax, rax
+    push rdi
+    call string_length
+    pop rdi
+    mov rdx, rax
+
+    mov rsi, rdi
+    mov rax, WR
+    mov rdi, OUT    
+
+    syscall                
+    ret
+
+print_newline:
+    mov rdi, 0xA
+    call print_char
     ret
 
 ; Принимает код символа и выводит его в stdout
 print_char:
-    xor rax, rax
+    push rdi
+    mov rax, WR
+    mov rsi, rsp 
+    mov rdi, OUT
+    mov rdx, 1
+    syscall    
+    pop rdi         
     ret
 
 ; Переводит строку (выводит символ с кодом 0xA)
 print_newline:
-    xor rax, rax
-    ret
+    mov rdi, 0xA
+    jmp print_char
 
 ; Выводит беззнаковое 8-байтовое число в десятичном формате 
 ; Совет: выделите место в стеке и храните там результаты деления
 ; Не забудьте перевести цифры в их ASCII коды.
+
 print_uint:
-    xor rax, rax
+    sub rsp, 24
+    mov rax, rdi
+    mov rdi, 10
+    mov byte [rsp+23], 0
+    lea rsi, [rsp+23]
+.loop:
+    xor rdx, rdx
+    div rdi
+    add dl, '0'
+    dec rsi
+    mov byte [rsi], dl
+    test rax, rax
+    je .print
+    jmp .loop
+.print:
+    mov rdi, rsi
+    call print_string
+    add rsp, 24
     ret
 
 ; Выводит знаковое 8-байтовое число в десятичном формате 
 print_int:
-    xor rax, rax
-    ret
-
+    test rdi, rdi
+    jns print_uint
+    push rdi 
+    mov rdi, '-'
+    call print_char
+    pop rdi
+    neg rdi
+    jmp print_uint
 ; Принимает два указателя на нуль-терминированные строки, возвращает 1 если они равны, 0 иначе
 string_equals:
     xor rax, rax
+.compare_loop:
+    mov al, [rdi]
+    cmp al, [rsi]
+    jne .not_equal
+    cmp al, 0
+    je .equal
+    inc rdi
+    inc rsi
+    jmp .compare_loop
+.not_equal:
+    xor rax, rax
+    ret
+.equal:
+    mov rax, 1
     ret
 
 ; Читает один символ из stdin и возвращает его. Возвращает 0 если достигнут конец потока
 read_char:
-    xor rax, rax
-    ret 
+    push 0
+    mov rax, RD
+    mov rdi, IN
+    mov rsi, rsp
+    mov rdx, 1
+    syscall
+    pop rax
+    ret
 
 ; Принимает: адрес начала буфера, размер буфера
 ; Читает в буфер слово из stdin, пропуская пробельные символы в начале, .
 ; Эта функция должна дописывать к слову нуль-терминатор
 
 read_word:
+    push rbx
+    push r12
+    push r13
+    
+    mov r12, rsi
+    mov rbx, rdi
+    
+    test r12, r12
+    je .ov
+
+.skip_space:
+    call read_char
+    test al, al
+    je .terminate
+    cmp al, ' '
+    je .skip_space
+    cmp al, 0x9
+    je .skip_space
+    cmp al, 0xA
+    je .skip_space
+
+    xor r13, r13
+.read_loop:
+    test r12, r12
+    je .ov
+    mov [rbx+r13], al
+    inc r13
+    dec r12
+
+    call read_char 
+
+    test al, al
+    je .terminate
+    cmp al, 0x20
+    je .terminate
+    cmp al, 0x9
+    je .terminate
+    cmp al, 0xA
+    je .terminate
+
+    jmp .read_loop
+.ov:
+    xor rax, rax 
+    xor rdx, rdx           ; при переполнении возвращаем 0
+    jmp .pop_and_ret
+.end_read:
+    xor rax, rax
+    xor rdx, rdx
+    jmp .pop_and_ret
+.terminate:
+    mov rdx, r13
+    mov byte [rbx+r13], 0
+    mov rax, rbx     
+.pop_and_ret:
+    pop r13
+    pop r12
+    pop rbx                 ; восстанавливаем rbx
     ret
- 
 
 ; Принимает указатель на строку, пытается
 ; прочитать из её начала беззнаковое число.
 ; rdx = 0 если число прочитать не удалось
 parse_uint:
     xor rax, rax
+    xor rcx, rcx 
+    xor rdx, rdx
+.uint_parse_loop:
+    mov sil, byte [rdi + rcx] 
+    test sil, sil
+    jz .end_parse
+
+    sub rsi, '0'
+    cmp rsi, 9
+    ja .end_parse
+
+    imul rax, 10
+    add rax, rsi
+
+    inc rcx
+    jmp .uint_parse_loop
+.end_parse:  
+    mov     rdx, rcx
+    test    rcx, rcx                 ; Проверяем, удалось ли прочитать хотя бы одну цифру
+    jnz     .done
+    xor     rax, rax                 ; Если не удалось прочитать число, rax = 0
+.done:
     ret
 
 
 ; Возвращает в rax: число, rdx : его длину в символах (включая знак, если он был) 
 ; rdx = 0 если число прочитать не удалось
 parse_int:
-    xor rax, rax
-    ret 
+
+    mov sil, byte [rdi+rdx]
+    cmp sil, '-'
+    je .negativ
+    push rdi
+    call parse_uint
+    pop rdi
+    ret
+.negativ:
+    inc rdi
+    push rdi
+    call parse_uint
+    pop rdi
+    neg rax
+    inc rdx
+    ret
 
 ; Принимает указатель на строку, указатель на буфер и длину буфера
 ; Копирует строку в буфер
 ; Возвращает длину строки если она умещается в буфер, иначе 0
 string_copy:
-    xor rax, rax
-    ret
+  xor rax, rax
+copy_loop:
+  cmp byte [rdi], 0 
+  je .end_copy
+
+  cmp rax, rdx
+  jae .buffer_too_small
+
+  mov cl, byte [rdi]
+  mov byte [rsi], cl
+
+  inc rdi
+  inc rsi
+  inc rax
+  jmp copy_loop
+
+.buffer_too_small:
+  xor rax, rax 
+  ret
+
+.end_copy:
+  mov byte [rsi], 0
+  ret

[Andrey Zhdanov]

лаба была сдана в !238 (closed)