assume cs:code
stack segment
db 128 dup(0)
stack ends
code segment
start:
     mov ax,stack
     mov ss,ax
     mov sp,128
     
     mov ax,0b800h
     mov es,ax
     mov ah,'A'
   s:
     mov dl,0
     mov cx,49
     s5: push cx
         push ax
         mov al,160
         mul dl
         mov bx,ax
         
         pop ax
         mov di,0
         mov cx,80         
     s4: mov byte ptr es:[bx+di],ah
         mov byte ptr es:[bx+di+1],2
         add di,2
         loop s4
         
         inc dl
         pop cx
         loop s5
    
     call s1
     inc ah
     cmp ah,'Z'
     jna s
     mov ax,4c00h
     int 21h
     
   s1:push ax
      push dx
      mov dx,1000h
      mov ax,0
     s2:sub ax,1
        sbb dx,0
        cmp ax,0
        jne s2
        cmp dx,0
        jne s2
        pop dx
        pop ax
        ret
code ends
end start