scan_to_ascii_al macro
    local pushed
        push ax
        push bp
        push dx

        cmp al, 80h
        jb pushed
            sub al, 80h

        pushed:
            xor ah, ah
            mov bp, ax
            mov ax, 2h
            sub bp, ax
            mov dl, scan_ascii_arr[bp]

        mov ebp, 0B8030h
        mov es:[ebp], dl

        pop dx
        pop bp
        pop ax
    endm