stack segment stack'stack'
      dw 32 dup(?)
stack ends
data segment

data ends
code segment
begin proc far
      assume ss:stack,cs:code,ds:data
      push ds
      sub ax,ax
      push ax
      mov ax,data
      mov ds,ax
      MOV CL,248
      XOR AX,AX
      MOV CH,8
      AG:SHL CL,1
         ADC AL,AL
       DAA
       ADC AH,AH
       DEC CH
       JNZ AG
      ret
begin endp
code ends
     end begin