aboutsummaryrefslogtreecommitdiff
path: root/src/main.S
blob: 50e894d31016237933d9fb6646edb29957691b6b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
#include "helpers/function.S"
#include "libs/sdl.S"

#define SCREEN_WIDTH 800
#define SCREEN_HEIGHT 600

// integer-params:  RDI, RSI, RDX, RCX, R8, R9
// caller-saved:    RAX, RCX, RDX, RSI, RDI, R8-R11
// callee-saved:    RBX, RSP, RBP, R12-R15

.section .rodata
  failed_to_create_window:  .string "Window could not be created\nSDL_error: %s\n"
  failed_to_initialize_sdl: .string "SDL could not be initialized\nSDL_error: %s\n"
  greeting:                 .string "Hello, SDL!\n"
  window_title:             .string "snake.s"

.section .text

  //! @function _print_sdl_error(char const * format)
  function_begin _print_sdl_error

    push %rdi
    sub $8, %rsp
 
    call SDL_GetError@PLT
    mov %rax, %rsi
 
    add $8, %rsp
    pop %rdi

    call printf@PLT

  function_end

  function_begin main

    define_local window_handle, 8
    allocate_locals

    // initialize SDL
    mov $SDL_INIT_VIDEO, %rdi
    call SDL_Init@PLT

    // check if initialization was successful
    test %rax, %rax
    jae 1f
      lea failed_to_initialize_sdl(%rip), %rdi
      call _print_sdl_error@PLT
      mov $1, %rax
      function_exit
  1:

    // create a window
    lea window_title(%rip), %rdi
    mov $SDL_WINDOWPOS_UNDEFINED, %rsi
    mov $SDL_WINDOWPOS_UNDEFINED, %rdx
    mov $SCREEN_WIDTH, %rcx
    mov $SCREEN_HEIGHT, %r8
    mov $SDL_WINDOW_SHOWN, %r9
    call SDL_CreateWindow@PLT

    store_local %rax, window_handle

    // check if window creation was successful
    test %rax, %rax
    jne 1f
      lea failed_to_create_window(%rip), %rdi
      call _print_sdl_error@PLT
      mov $1, %rax
      function_exit
  1:

    load_local window_handle, %rdi
    call SDL_DestroyWindow@PLT

    call SDL_Quit@PLT

  .Lsuccess:
    lea greeting(%rip), %rdi
    xor %rax, %rax
    call printf@PLT

    xor %rax, %rax

  function_end