section         .text

                global          _start

_start:
                mov             rsi, buf
read_again:
                xor             eax, eax
                xor             edi, edi
                mov             rdx, buf_size
                syscall

                test            rax, rax
                jz              quit
                js              read_error
                mov             rdx, rax


                mov             rax, 1
                mov             rdi, 1
                mov             rsi, buf
                syscall
                jmp             read_again

quit:
                mov             rax, 60
                xor             rdi, rdi
                syscall

read_error:
                mov             eax, 1
                mov             edi, 2
                mov             rsi, read_error_msg
                mov             rdx, read_error_len
                syscall

                mov             rax, 60
                mov             edi, 1
                syscall

                section         .rodata

read_error_msg: db              "read falure", 0x0a
read_error_len: equ             $ - read_error_msg

                section         .bss

buf_size:       equ             8192
buf             resb            buf_size