;在数据段偏移地址0100H处开始,存放0-9的平方值,任给一自然数
;在0110H单元中,查表求平方值.
data segment
org 0100h
h1 db 0,1,4,9,16,25,36,49,64,81
org 0110h
h2 db 9
data ends
stack segment stack
h3 db 100 dup(?)
stack ends
code segment
assume cs:code,ds:data,ss:stack
start:mov ax,data
      mov ds,ax
      lea bx,h1
      mov al,h2
      xlat h1        ;mov ah,0  add bx,ax  mov al,[bx]
      mov [h2+1],al
;******************************************************
      mov ch,al
      mov cl,4
      shr al,cl
      add al,30h
      call z1
      mov al,ch
      and al,0fh
      add al,30h 
      call z1
      mov al,'H'
      call z1
      mov ah,4ch
      int 21h
z1    proc 
      push ax
      push bx
      push cx
      push dx
      mov dl,al 
      mov ah,2 
      int 21h 
      pop dx 
      pop cx
      pop bx
      pop ax
      ret 
z1    endp 
;******************************************************
code  ends
      end start