stack segment stack 'stack'
      dw 32 dup(0)
stack ends
data segment
INPUT DB 'PLEASE INPUT N(0-20):',0AH,'$'
LFB DB '0  $1  $2  $4  $9  $16 $25 $36  $49 $64 $81 $100$121$144$169$196$225$256$289$324$361$400$'
IBUF DB 5,0,5 DUP(0)
data ends
code segment
start proc far
     assume ss:stack,cs:code,ds:data
     push ds
     sub ax,ax
     push ax
     mov ax,data
     mov ds,ax
     MOV DX,OFFSET INPUT
     MOV AH,9
     INT 21H
     MOV DL,0AH
     MOV AH,2
     INT 21H
     MOV DX,OFFSET IBUF
     MOV AH,10
     INT 21H
     MOV BL,IBUF+1
     MOV BH,0
     MOV IBUF[BX+2],'$'
     MOV AL,IBUF+3
     AND AL,0FH
     MOV DL,AL
     MOV AL,IBUF+2
     AND AL,0FH
     MOV CL,4
     SHL AL,CL
     ADD DL,AL
     MOV CL,2
     SHL DL,CL
     MOV DH,0
     ADD DX,OFFSET LFB
     MOV AH,9
     INT 21H
     ret
start endp
code ends
     end start