Найдите k-ю цифру числа n справа

@stack  segment para stack
        db      1024 dup(?)
@stack  ends
 
@data   segment
        N       dw      12345
        K       dw      4
        D       dw      ?
        Msg     db      'Result: '
        Result  db      ?
        CrLf    db      0Dh, 0Ah, '$'
@data   ends
 
@code   segment
        assume  cs:@code, ds:@data, ss:@stack
main    proc
        ;инициализация сегментного регистра данных
        mov     ax,     @data
        mov     ds,     ax
        ;вычисление K-ой цифры
        mov     ax,     [N]             ;ax:=N
        mov     bx,     10
        mov     cx,     [K]             ;for i:=1 to K do
        @@For:
                mov     dx,     0       ;  dx:=ax mod 10
                div     bx              ;  ax:=ax div 10
        loop    @@For
        mov     [D],    dx              ;D:=dx
        ;вывод результата
        mov     ax,     dx
        aam
        add     ax,     '00'
        mov     [Result],al
        mov     ah,     09h
        lea     dx,     [Msg]
        int     21h
        ;завершение программы
        mov     ax,     4C00h
        int 21h
main    endp
 
@code   ends
 
        end     main