Вывод чисел на экран в шестнадцатеричном виде с помощью функций PC BIOS

; BinHex
mov ebx, 0100_1110_1100_0010_1010_0001_0011_1111b ; hex: 4_E_C_2_A_1_3_F
 
mov ah, 0Eh    ; режим вывода текста
mov cx, 8      ; количество итераций
 
Iter:
 rol ebx, 4    ; перевод 4 бит в BL
test bl, 06h   ; 0000_0110
  jz Digit     ; 0,1,8,9
test bl, 08h   ; 0000_1000
  jz Digit     ; 2..7
 jmp Letter
 
Digit:
mov al, bl     ; копия, чтобы сберечь BL
and al, 0Fh    ; оставляем нижние 4 бита
add al, 48     ; ASCII[X+48] -> 0..9
jmp Print
 
Letter:
mov al, bl     ; копия, чтобы сберечь BL
and al, 0Fh    ; оставляем нижние 4 бита
add al, 55     ; ASCII[X+55] -> A..F
 
Print:
int 10h
loop Iter

        mov     ah,0eh
        mov     ebx,123F456Ah
 
        mov     ecx,8       ; разрядов в HEX-числе
@@:     xor     edx,edx     ;
        shld    edx,ebx,4   ; 4-ст.бита EBX = 4-мл.бита EDX
        shl     ebx,4       ; ...(убрать их из EBX)
        cmp     dl,9        ;
        jbe     @02         ; если <= 9
        add     dl,7        ; коррекция для A..F
@02:    add     dl,30h      ; число в символ
        xchg    al,dl       ; в AL его для вывода
        int     10h         ;
        loop    @b          ; мотаем цикл ECX-раз..

; BinHex
mov ebx, 4EC2A13Fh ; 0100_1110_1100_0010_1010_0001_0011_1111
 
mov ah, 14     ; режим вывода текста
mov cx, 8      ; количество итераций
 
Iter:
 rol ebx, 4    ; перевод 4 бит в bl
 mov al, 15    ; 0000_1111
 and al, bl    ; если al:0000_1111, bl:XXXX_YYYY, то al=0000_YYYY
test al, 6     ; 0000_0110
  jz Digit     ; 0,1,8,9
test al, 8     ; 0000_1000
  jz Digit     ; 2..7
 add al, 55    ; ASCII -> A..F
 jmp Print
 
Digit:
add al, 48     ; ASCII -> 0..9
 
Print:
int 10h
loop Iter

; ... код
; -----------------------------
NewLine:
mov al, 0Ah  ; LF
int 10h
mov al, 0Dh  ; CR
int 10h
;                    как здесь остановится и вернуться отсюда к *
; -----------------------------
; ... код НЕ ОТНОСЯЩИЙСЯ к NewLine
 
mov al, 'X'
int 10h
  jmp NewLine        ; Как вернуться и
mov al, 'Y'          ; выполнить эту строку*
 
; ... код
  jmp NewLine        ; та же история

;........
     nop
     call  printStr
mess0      db  'Hello World!',13,10
           db  'This is int-10h --> ah=13h example'
mLen       =   $-mess0       
 
; выводим мессагу, что мы по адресу 0:7C00h
printStr:
     pop   bp         ; ВР = адрес строки
     mov   ax,1301h   ; AH=13h, AL=01 (атрибут в BL, и сместить курсор)
     mov   bx,0Fh     ; BH=0 (страница), BL=0Fh (атрибут символа = фон/цвет)
     mov   cx,mLen    ; CX = длина строки
     xor   dx,dx      ; DH=0 (строка), DL=0 (столбец)
     int   10h        ; видеосервис!
;........
     nop

; BinHex 3
mov ebx, 0xE4C2A13F
mov ah, 14    ; режим вывода текста
mov cx, 8     ; количество итераций
 
Iter:
rol ebx, 4    ; YYYY -> BL[XXXX_....]
mov al, 15    ;   0000_1111
and al, bl    ; & XXXX_YYYY -> 0000_YYYY
add al, 48    ; 0..9
cmp al, 58 
 jl Print     ; AL+48 < 58
add al, 7     ; A..F
 
Print:
int 10h
loop Iter