По количеству секунд, прошедших с начала суток, найти количество полных часов

mov bx,3600
div bx

.model small
 
.stack 100h
 
.data
        asResult        db      'Hours: ', '$'
        CrLf            db      0Dh, 0Ah, '$'
        msgPressAnyKey  db      0Dh, 0Ah, 'Press any key to exit...', '$'
 
        N               dd      (23*60+59)*60+59        ;23ч59м59с
        Hours           dw      ?
.code
 
main    proc
        ;инициализация сегментного регистра ds адресом сегмента данных
        mov     ax,     @data
        mov     ds,     ax
 
        mov     ax,     word ptr [N]
        mov     dx,     word ptr [N+2]
        mov     bx,     3600
 
        div     bx
        mov     [Hours],        ax
 
        mov     ah,     09h
        lea     dx,     [asResult]
        int     21h
 
        mov     ax,     [Hours]
        aam
        add     ax,     '00'
        mov     dl,     ah
        mov     dh,     al
        mov     ah,     02h
        int     21h
        mov     dl,     dh
        int     21h
 
        ;ожидание нажатия любой клавиши
        mov     ah,     09h
        lea     dx,     [msgPressAnyKey]
        int     21h
 
        mov     ah,     00h
        int     16h
 
        mov     ax,     4C00h
        int     21h
main    endp
 
end     main