DATA1 DB 97H
  COUNT DB ?
  SUB BL,BL 
  MOV DL,8 
  MOV AL,DATA1
AGAIN: ROL AL,1 
  JNC NEXT 
  INC BL 
NEXT: DEC DL 
  JNZ AGAIN 
  MOV COUNT,BL