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