title strings
.model small
;===========================================================
; Author: Khokhlov Nickolay, Soft KciNKh (c)
; Module: strings
; Description:
; Creation date: 20.06.2008 19:45:41
; Remarks:
;===========================================================
.stack 100h
.data
hello db 'Helloworl'
entr db 10, 13, '$'
symb db ?
count db ?
.code
main proc
mov ax, @data
mov ds, ax
m1:
mov ah, 1
int 21h
cmp al, '0' ; Error Input data
jl m1
cmp al, '9'
jg m1 ; Error Input data
; Ok Input - number symbol
sub al, 30h
mov symb,al
m2:
mov ah, 1
int 21h
cmp al, '0' ; Error Input data
jl m2
cmp al, '9'
jg m2 ; Error Input data
; Ok Input - count symbols
sub al, 30h
mov byte ptr count,al
mov cx, 30
l0:
push cx
mov bx, offset hello
xor ax, ax
mov al, symb
add bx, ax
mov dl, byte ptr [bx]
xor cx, cx
mov cl, byte ptr count
l1:
mov ah, 02h
int 21h
loop l1
mov ah, 09h
lea dx, entr
int 21h
pop cx
loop l0
exit:
mov ax, 4c00h
int 21h
main endp
end main |
