أريد مساعدة في هذا الكود

هذا الكود منقول من كتاب قديم .

لقد ترجمته بإستخدام MASM ثم ربطه (link)

فأطاني تحذير no stack

هل هو لا يعمل لأن الكتاب قديم.

وشكرأً ....

; ASCII to BINARY & binary to ascii

code	segment	para 'code'
	assume	cs:code,ds:code,ss:code
	org	100H
BEGIN:	jmp	short main

asc	db	'1234'
bin	dw	0
asclen	dw	4
mult10	dw	1

main	proc	near
	call	ascbin
	call	binasc
	ret
main	endp

ascbin	proc
	mov	cx,10	;multiply factor
	lea	si,asc-1;address of asc
	mov	bx,asclen
xxx:
	mov	al,[si+bx]
	and	ax,000fh
	mul	mult10
	add	bin,ax
	mov	ax,mult10
	mul	cx
	mov	mult10,ax
	dec	bx
	jnz	xxx
	ret
ascbin	endp

binasc	proc
	mov	cx,0010	;divide factor
	lea	si,asc+1;address of asc
	mov	ax,bin
rrr:
	cmp	ax,0010	;bin<10?
	jb	below	;yes exit
	xor	dx,dx
	div	cx	;divid by 10
	or	dl,30h
	mov	[si],dl	;store ascii char
	dec	si
	jmp	rrr
below:	or	al,30h
	mov	[si],al
	ret
binasc	endp
code	ends
	end	begin