Assembler Code:
  1. data segment
  2.     mass db 10101010b,11111111b,0101010b, 11111111b, 10101010b, 11111111b,11111111b, 11111111b, 11111111b
  3. data ends
  4. code segment
  5. assume cs: code, ds:data
  6. START: mov ax, data
  7.     mov ds, ax
  8.     xor ax,ax
  9.     lea bx, mass
  10.     mov cx, 9
  11.     
  12.     beg: mov al, [bx]
  13.     push cx
  14.     mov cx,8
  15.     
  16. pr:shl al,1
  17.     jc no
  18.     test al, 10000000b
  19.     jz no
  20.     inc dl
  21.     
  22. no:
  23.     loop pr
  24.     pop cx
  25.     inc bx
  26.     loop beg
  27.     
  28. xor ax, ax    
  29. mov ax, 4c00h ; ??? ?????????? 0
  30. Int 21h ; ????? ? DOS
  31. code ends
  32. end START