Вывод переменной на экран.

[hydr0]

Сделал задачу, получил результат. Вывести не могу. Дос.

.model small		
.stack 100h		
.data	
s1	db 24,'preved medved ot medveda'
s2	db 6,'medved' 
s3  db 'nomer elementa=$',a
a db 0			
.code
	mov	ax, @data	
	mov	ds, ax			
	mov	es, ax
	xor bx,bx 			
	ln1=s1[0]
	ln2=s2[0]
	
poisk:  
    lea di,[s1+1]
    cld 
    mov cl,ln1         
    cmp cl,ln2           
    js exit 
    
    mov ah,0
    mov al,[s2+1]              
    repne scasb             
    jne exit 
    
    mov bl,ln1
    sub bl,cl
    dec bl 
    
    lea si,[s2+1]
    lea di,[s1+1][bx]          
    cld     
    
    mov cl,ln2          
    repe cmpsb
    je sovpadenie
                     
    inc bl                
    jmp poisk                                             
 
sovpadenie:
    add a,bl
    inc a
;----------------------------------------
    mov ah,9                 
    mov	dx,offset s3
    int 21h
    jmp exit
;----------------------------------------
	 
	
exit:
	mov	ax, 4C00h
	int 	21h			
end

Помогите пожалуйста с правильным кодом вывода значения переменной а.
Спасибо.

[hydr0]

все еще интересует ответ на данный вопрос.

[Serge_Bliznykov]

не знаю, что делает Ваша программа,
но, попробуйте так:
(с) Ant1971on пример взят тут

.model small		
.stack 100h		
.data	
s1	db 24,'preved medved ot medveda'
s2	db 6,'medved' 
s3  db 'nomer elementa=$'
a   db 0			
.code
	mov	ax, @data	
	mov	ds, ax			
	mov	es, ax
	xor bx,bx 			
	ln1=s1[0]
	ln2=s2[0]
	
poisk:  
    lea di,[s1+1]
    cld 
    mov cl,ln1         
    cmp cl,ln2           
    js exit 
    
    mov ah,0
    mov al,[s2+1]              
    repne scasb             
    jne exit 
    
    mov bl,ln1
    sub bl,cl
    dec bl 
    
    lea si,[s2+1]
    lea di,[s1+1][bx]          
    cld     
    
    mov cl,ln2          
    repe cmpsb
    je sovpadenie
                     
    inc bl                
    jmp poisk                                             
 
sovpadenie:
    add a,bl
    inc a
;----------------------------------------
    mov ah,9                 
    mov	dx,offset s3
    int 21h

;вывод значения a
        xor ax,ax
        mov al,a
        aam 
        add ax,3030h 
        mov dl,ah 
        mov dh,al 
        mov ah,02 
        int 21h 
        mov dl,dh 
        int 21h


;----------------------------------------
	
exit:
	mov	ax, 4C00h
	int 	21h			
end

[hydr0]

большое спасибо

[hydr0]

кстати, если интересно, то программа ищет номер элемента, с которого начинается вхождение подстроки в строку.

[BiG(CaH9)]

Может ктото памоч!!! уже целих 4 часа ищу и ни как не магу!!!
Нужно написать програму на Ассемблере которая отнимает 1 число от другого наприклад:

100-25 = и вивод на екран!!! ( в режиме дос )

вот ето я нашол но к нему не хватает початку и конца!

mov AX,100
mov BX,60
sub АХ,ВХ

[Пепел Феникса]

эта задача решаеться за 5 минут максимум.
разбейте её на под задачи и гуглите по ним.

[BiG(CaH9)]

Сообщение от Пепел Феникса

эта задача решаеться за 5 минут максимум.
разбейте её на под задачи и гуглите по ним.

Ну если 5 мин? так может паможеш? А то я 4 часа искал и ненашол!!

[Пепел Феникса]

а вы оплатите за то что я поработаю за вас?

[BiG(CaH9)]

Сообщение от Пепел Феникса

а вы оплатите за то что я поработаю за вас?

Нет не собираю платить! Сам розобрался))) Вот код програми


.model tiny
.stack 100h
.code
start:
mov ax,@data
mov ds,ax
mov ax,100
mov bx,60
sub ax,bx
mov ax,4c00h
int 21h
end start

Но воно не виводить на екран дос ответ ((