;
data segment
SQTAB DB 10 dup(?)
NUM DB 7
RESULT DB ?
data ends
;
code segment
assume cs:code,ds:data
start:
mov ax,data
mov ds,ax
;
mov es,ax
sub dx,dx
mov di,Length SQTAB - 1
std
next:
mov ax,di
imul al
stosb
cmp di,dx
jne next
;
lea bx,SQTAB
lea si,NUM
lodsb
xlat
lea di,RESULT
stosb
;
mov ax,4c00H
int 21H
code ends
end start