main:
    call parse_args

    cmp ax, 0000h
    je @@next_step
    lea dx, error_msg
    mov ah, 09h
    int 21h
    jmp @@exit

@@next_step:
    mov bx, [setting_flags]
    test bx, 1000h
    jz @@exit

    lea dx, help
    mov ah, 09h
    int 21h


    call change_mode

    call init_snake

    call draw_walls

    call draw_art

    push es
    mov ah, 35h
    mov al, 09h
    int 21h
    mov word ptr old_09_code + 1, bx
    mov word ptr old_09_code + 3, es
    mov dx, offset m09_handler
    mov ah, 25h
    mov al, 09h
    int 21h
    pop es

    push es
    mov ah, 35h
    mov al, 1ch
    int 21h
    mov word ptr old_08_code + 1, bx
    mov word ptr old_08_code + 3, es
    mov dx, offset m08_handler
    mov ah, 25h
    mov al, 1ch
    int 21h
    pop es

main_loop:
    mov al, cur_teak
    cmp al, delay
    jge @@move
    jmp @@end

@@move:
    call move_snake
    call play_sounds
    mov cur_teak, 0h
@@end:

    mov al, ext_flag
    test al, al
    jz main_loop

    call final_music
    ;mov ah, 00h
    ;int 16h


    push ds
    mov dx, word ptr old_08_code + 1
    mov ds, word ptr old_08_code + 3
    mov ah, 25h
    mov al, 1ch
    int 21h
    pop ds

    push ds
    mov dx, word ptr old_09_code + 1
    mov ds, word ptr old_09_code + 3
    mov ah, 25h
    mov al, 09h
    int 21h
    pop ds

    xor ax, ax
    mov al, [old_vm]
    push ax
    mov al, [old_page]
    push ax
    call change_vm
@@exit:

ret