Сегмент стека

[Santilos]

Народ, помогите решить задачу: требуется вывести из сегмента стека заданное количество байт в шестнадцатеричном виде. Я в ассемблере дуб. Подправьте, пожалуйста, код. Вот мой кривой исходник(написан в TASM)

 
.model small
.stack 100h
.data
text db 'vvedite colitchestvo bait'
.code
    mov ax,@data              
    mov ds,ax
    mov dx, offset text
mov ah, 9h
int 21h
mov ah, 8h                
    int 21h                    
    cmp al, 0dh                
    jne f1        
    mov si,0               ;установка значения 0 в инд рег
f1:    mov dl,ss:[si]         ;помещаем первый байт сегмента кода в рег dl
 
 
    mov bl,dl              ;поместить значение рег dl  
    mov cx,2               ;установка рег сх значение 2
    push bx                ;положить значение рег bx в стек
    
    shr bl,4                ;сдвиг рег bx на 4 рзряда
srav:
    cmp bl,9               ;сравнить рег bl c 9
    jle cifra              ;если меньше то переход на метку  
    add bl,37h             ; ИНАЧЕ прибавить 55
    mov ah,2               ;поместить в рег ah счисло 2
    mov dl,bl              ;поместить в рег  
    int 21h                ;вызов 21 прерывания
    jmp two                ;переход на метку
cifra:
    add bl,30h             ;прибавить к рег bl 48
    mov ah,2               ;поместить в рег ah число 2
    mov dl,bl              ;поместить в рег dl значение рег bl
    int 21h                ;вызов 21 прерывания  
 
two:
    pop bx                 ;взять значение из стека и поместить в рег bx
    and bl,0fh             ; обнуление 4 битов рег bl
    loop srav              ;переход по метке
    inc si                 ;увеличить si на 1
      
    cmp si,15              ;сравнить рег si c 15
        jne f1                    ; если меньше или равно переход на метку
 
        mov ah,08h            ;ожидание нажатия клавиши
        int 21h
    mov ah,4ch            ;завершение программы
    int 21h
end                           ;конец

[airyashov]

а что здесь конкретно не работает?

[smileman]

Если я правильно понял задачу,то у тебя белеберда какая-то..
примерно так должно быть:

.model small
.stack 100h
.data
text db 'vvedite colitchestvo bait$'

.code
    mov ax,@data              
    mov ds,ax
    mov dx, offset text
    mov ah,09h
    int 21h

r1: mov ah,08h                
    int 21h
    cmp al,'0'  ;Если это служебный символ -> r1
    jb r1
    cmp al,'9'  ;Если это не цифра -> r1
    ja r1
          
    xor dx,dx
    mov dl,al
    mov ah,2
    int 21h
    sub dl,30h
    
    mov si,0
                   
    mov cx,dx
f1: mov dl,ss:[si]         
    add dl,'0'
    mov ah,2
    int 21h
    
    inc si
    
    
    loop f1
    
    mov ah,08h
    int 21h
    mov ah,4ch            
    int 21h
end

заданное количество байт выводит,только вот не 16-ричной системе..