with carry

.MODEL SMALL

.CODE
        MOV AH, 01H
        INT 21H
        
        SUB AL, '0'
        MOV BL, AL
        
        ; Print character
        MOV AH, 02H
        
        ; Newline and Carriage Return
        MOV DL, 0DH
        INT 21H
        
        MOV DL, 0AH
        INT 21H
        
        ; Print 1st bit
        MOV CH, 00H
        MOV CL, 08H

AGAIN:
        SHR BL, 1

        MOV DL, '0'
        JNC SKIP_LOOP
        MOV DL, '1'
SKIP_LOOP:
        INT 21H
        
        LOOP AGAIN

END