CODES SEGMENT
    ASSUME CS:CODES
START:mov ah,1
      int 21h
      call newline
      mov bl,al
      mov cx,8
      next: shl bl,1
      mov dl,30h
      adc dl,0
      mov ah,2
      int 21h
      loop next
      mov dl,'B'
      mov ah,2
      int 21h
      MOV AH,4CH
    INT 21H
    
    newline proc 
    push ax
    push dx
    mov dl,0dh
    mov ah,2
    int 21h
    mov dl,0ah
    mov ah,2
    int 21h
    pop dx
    pop ax
    ret
    newline endp
    
CODES ENDS
    END START