Ассемблер

[artem55555p]

Дан массив из 9 байт. Рассматривая его как массив из 72 бит, посчитать число переходов между нулями и единицами.

[Stilet]

Попытки? Наработки?

[artem55555p]

code segment
 assume cs:code,ds:data
 begin:
     mov ax, data
     mov ds, ax
     ;mov cx,4
     xor ax,ax
     xor si,si
     xor bh,bh
     xor bl,bl
     mov cx, 9
     P:
     mov fff, cx
         mov al, mass[si] ;take 8 bit
         mov cx,8
         mov dl,8
         O:
         push ax
             push cx         
                     dec dl
                     mov cl, dl
                     shr al, cl
                     and al, 00000001B
                     xor bl, al
                     add bh,bl
                     mov bl, al
             pop cx
         pop ax
         loop O
         inc si      
     mov cx, word ptr fff
     loop P
 
     ; перевод в 16 систему - можете не обращать внимания,работает 100%, это проверено
 
     mov cx,4
     mov bl,12
     mov si,0
     xor ax,ax
     mov ax,bh
     k1:
         push ax
         push cx
             mov cl,bl
             shr ax,cl
         pop cx 
         and ax,000fh
     
         cmp al,9
         ja m4
             add al,30h
         jmp a3
         m4: add al,37h
         a3:mov byte ptr digit+[si],al   
         sub bl,4
         inc si
         pop ax
     loop k1
     
     mov ax, data
     mov ds, ax
     mov dx, offset digit
     mov ah, 09h
     int 21h 
     
     mov ah, 4ch
     mov al,0
     int 21h
 code ends
 data segment use16
     mass db 1h,2h,3h,4h,5h,6h,7h,8h,9h
     digit  db 0,0,0,0,'h$'
     ggg db '1$'
         fff db 0
 data ends
 stk segment stack
 db 256 dup(0)
 stk ends
 end begin

чето пытался сделать, но не вышло....

[artem55555p]

Можно как-то по другому реализовать?

[artem55555p]

data segment 'data' 
mas db 4,70,58,55,1,2,8,7,80
cflag db 0
data ends 
code segment 'code' 
 assume ds: data, cs:code 
start: mov ax,data 
mov AX,CS
    mov DS,AX
 
    mov DI,offset mas
    mov SI,DI
    add SI,9
    mov AL,byte ptr [DI]
    mov cflag,AL
    xor BX,BX
 
nextByte:
    mov AL,[DI]
    mov AH,cflag
    ror AH,1
    xor AH,AL
    test AH,10000000b
    jz ctbIkO
    inc BX
ctbIkO:
    mov DL,AL
 
    shr DL,1
    jc Scfl
    mov cflag,byte ptr 0
    jmp tuda
  Scfl:
    mov cflag,byte ptr 1
 tuda:
 
    xor AL,DL
    mov CL,1
  vse:
    test AL,CL
    jz nextEl
    inc BX
nextEl:
    shl CL,1
    jnc vse
 
    inc DI
    cmp DI,SI
    jne nextByte
 
    mov AX,4c00h
    int 21h
code ends 
 end start

вроде сделал, кому не сложно, проверьте

[Stilet]

А я примерно так себе это представляю:

 xor ax,ax
 xor dx,dx
 xor bx,bx
 mov cx,8

 mov si,a
for1:
 push cx
 mov al,[si]
 mov ah,al
 shr ah,1
 xor al,ah
  cmp al,1
   jne next1
   inc bx
  next1:

 mov cx,7
 for:
  cmp al,1
  jz next
  inc bx
  next:
  shr al,1
 loop for
 pop cx
 inc si
loop for1

В BX результат.

Могу ошибаться.

[artem55555p]

Сообщение от Stilet

А я примерно так себе это представляю:

 xor ax,ax
 xor dx,dx
 xor bx,bx
 mov cx,8

 mov si,a
for1:
 push cx
 mov al,[si]
 mov ah,al
 shr ah,1
 xor al,ah
  cmp al,1
   jne next1
   inc bx
  next1:

 mov cx,7
 for:
  cmp al,1
  jz next
  inc bx
  next:
  shr al,1
 loop for
 pop cx
 inc si
loop for1

В BX результат.

Могу ошибаться.

т.е. так:
data segment 'data'
mas db 4,70,58,55,1,2,8,7,80
cflag db 0
data ends
code segment 'code'
assume ds: data, cs:code
start: mov ax,data
xor ax,ax
xor dx,dx
xor bx,bx
mov cx,8

mov si,a
for1:
push cx
mov al,[si]
mov ah,al
shr ah,1
xor al,ah
cmp al,1
jne next1
inc bx
next1:

mov cx,7
for:
cmp al,1
jz next
inc bx
next:
shr al,1
loop for
pop cx
inc si
loop for1
int 21h
code ends
end start


http://clip2net.com/s/3pjI59M ????

[artem55555p]

Аы можете объяснить то, что вы написали? И у меня не работает это(

[Mikl___]

artem55555p,
посмотри здесь