PUBLIC SUM
SUMCODE    SEGMENT
SUM    PROC FAR
       ASSUME CS:SUMCODE
       MOV CX,AX
       MOV BX,0
AGAIN1:MOV AX,CX
       ADD AX,AX
       ADC BX,AX
       LOOP AGAIN1
       RET
SUM    ENDP
SUMCODE ENDS
        END SUM