DATA1 SEGMENT
DAT DW 1111110101010101B
ASCII DB 30H,30H,',',30H,30H,'$'
DATA1 ENDS
STACK1 SEGMENT PARA STACK
       DW 40 DUP(0)
STACK1 ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA1,SS:STACK1
BEGIN:MOV AX,DATA1
MOV DS,AX
MOV AX,DAT
MOV DL,0
MOV DH,0
MOV CX,16              
RPT:SHL AX,1                 
JC AA                      
INC BX
JMP BB
AA:INC DL
BB:LOOP RPT
MOV AX,BX
MOV BL,10
DIV BL
ADD ASCII,AL
ADD ASCII+1,AH
MOV AX,DX
DIV BL
ADD ASCII+3,AL
ADD ASCII+4,AH
LEA DX,ASCII
MOV AH,09H
INT 21H
MOV AH,4CH
INT 21H
CODE ENDS
END BEGIN