[shurikan]

warezhka84
Ссылка на E-mail недоступна, кладу здесь.

Код:

.286
.model large

.code

inbuffer	db 10,0
		db 10 dup(?)

outbuffer	db '         ' ;;; <- здесь не видно, но пробелов 9 штук
outtail		db '$'

signed		dw 0
ten		dw 10

;;;
;;; Получить в AX число.
;;;
public get_in_AX

get_in_AX proc
	push	ax
	push	bp
	mov	bp,sp

	push	si
	push	bx
	push	cx
	push	ds

	push	cs
	pop	ds
	lea	dx,inbuffer
	mov	ah,0Ah
	int	21h

	xor	cx,cx
	mov	cl,inbuffer+1
	jcxz	gAXerr

	lea	si,inbuffer+2
	xor	bx,bx
	mov	signed,bx

gAXloop:
	lodsb

	cmp	al,'+'
	je	@1

	cmp	al,'-'
	jne	@2

	mov	signed,1

@1:
	cmp	si,offset inbuffer+3
	jne	gAXerr

@2:
	cmp	al,'0'
	jb	gAXerr

	cmp	al,'9'
	ja	gAXerr

	xor	ah,ah
	sub	ax,'0'
	xchg	ax,bx

	mul	ten
	add	ax,bx
	js	gAXerr

	xchg	ax,bx

	loop	gAXloop

	jmp	short gAXok

gAXerr:
	stc
	jmp	short gAXdone

gAXok:
	mov	ax,signed
	test	ax,ax
	je	@3

	neg	bx
@3:
	mov	[bp+2],bx
	clc
gAXdone:
	pop	cx
	pop	bx
	pop	si
	pop	ds
	pop	bp
	pop	ax
	ret
get_in_AX endp


;;;
;;; Вывести число из AX на экран*.
;;;
public print_AX

print_AX proc
	std
	mov	signed,0
	test	ax,8000h
	je	@4

	mov	signed,1
	neg	ax

@4:
	push	di
	lea	di,outtail-1

	push	cs
	pop	es

@7:
	test	ax,ax
	je	@5

	xor	dx,dx
	div	ten
	xchg	ax,dx
	add	al,'0'
	stosb
	xchg	ax,dx
	jmp	short @7

@5:
	cmp	di,offset outtail-1
	jne	@6
	add	al,'0'
	stosb

@6:
	mov	ax,signed
	test	ax,ax
	jne	@8

	mov	al,'-'
	stosb

@8:
	push	ds

	push	cs
	pop	ds
	mov	dx,di
	mov	ah,09h
	int	21h

	pop	ds
	pop	di
	cld
	ret
print_AX endp


end