Форум программистов [Powered by Invision Power Board]

Код

.386


BigShlCount proc         far
        public       BigShlCount
; procedure BigShlCount(var mas,len,count:word)
; mas - адреса байтового масиву
@mas         equ         [bp+10]; адреса адреси 
; len - кiлькiсть байт масива, якi необхiдно вивести на екран
@len         equ         [bp+8]; адреса кiлькостi
; count - кiлькiсть бiт зсуву
@count       equ         [bp+6]; адреса кiлькостi
;
;
        push    bp
        mov     bp,sp        ; базова адреса фактичних параметрiв


; ax - кол-во итераций (по 4 байта)
; ebx - данные
; cx - величина сдвига (меньше 8)
; edx - перенос
; si - адрес откуда считываем
; di - адрес куда пишем


    mov    dx, @count
    mov    cx, dx
    shr    dx, 3 ;count/8
    and    cx, 0111b ;count mod 8
        
    lds    si, @mas ;грузим сегмент в ds, а смещение в si

    mov    bx, @len
    mov    di, bx ;di = len
    dec    di ; len - 1
    add    di, si ; адрес последнего элемента в массиве
    sub    bx, dx ;bx = len - count/8
    jle    @bsc3  ;такой большой сдвиг, что результат будет 0. Сразу на обнуление.
    mov    ax, bx ;ax = len - count/8
    dec    bx     ;bx = len - count/8 - 1  (номер последнего элемента, который надо сдвигать)
    shr    ax, 2  ;ax = (len - count/8) / 4 (кол-во 4-байтных кусков)

    xor    edx, edx ;тут будет храниться перенос
    add    si, bx ;адрес последнего элемента, который надо сдвигать
    or    ax, ax ;ничего не дедаем, но выставляем флаги
    jz    @bsc1_new
    sub    si, 3 ;начало последних 4-х байт для считывания
    sub    di, 3 ;начало последних 4-х байт для записи
    
    mov    ebx, [si] ; читаем последние 4 байта для сдвига
    shl    ebx, cl      ; сдвиг
    mov    [di], ebx ; запись
        
    dec    ax      ; одни 4 байта уже отработали
    jz    @bsc0      ; если группы по 4 байта закончились
@bsc2:
    sub    si, 4      ; переходим на следующие 4 байта
    sub    di, 4      ; переходим на следующие 4 байта
    mov    ebx, [si] ; читаем 4 байта
    mov    edx, ebx  
; тут ebx = edx = sssxxxxx, где s - это те данные, которые нам надо выделить как перенос, 
; а x - это мусор
    shl    ebx, cl   ; ebx = xxxxx000
    mov    [di], ebx ; записали
    shr    ebx, cl   ; ebx = 000xxxxx, edx = sssxxxxx
    sub    edx, ebx  ; edx = sss00000
    rol    edx, cl   ; edx = 00000sss (циклич. сдвиг)
    add    [di+4], edx ; прибавили перенос к предыдущему

    dec    ax    ;и так ax раз
    jnz    @bsc2

@bsc0:
    dec    si ;теперь указывает на незавершенный байт
    dec    di ;теперь указывает на незавершенный байт

@bsc1:  
    mov    ax, @mas
    cmp    si, ax ;сколько осталось?
    jl    @bsc3  ; всё готово
    jz    @bsc4  ; еще один байт
    ;больше одного (2 или 3). Скопируем сначала 2 байта
    dec    si ;теперь указывает на 2 байта
    dec    di ;теперь указывает на 2 байта
    mov    bx, [si] ;читаем 2 байта

    mov    dx, bx  
; тут ebx = edx = sssxxxxx, где s - это те данные, которые нам надо выделить как перенос, 
; а x - это мусор
    shl    bx, cl   ; bx = xxxxx000
    mov    [di], bx ; записали
; !!!! был ли предыдущий??
    shr    bx, cl   ; bx = 000xxxxx, dx = sssxxxxx
    sub    dx, bx   ; dx = sss00000
    rol    dx, cl   ; dx = 00000sss (циклич. сдвиг)
    add    [di+2], dx ; прибавили перенос к предыдущему

    dec    si
    dec    di
    cmp    si, ax ;если равны, то надо еще один байт. Иначе все.
    jnz    @bsc3

@bsc4: ;надо скопировать 1 байт
    mov    bl, [si] ;читаем байт
    mov    dl, bl
; тут ebx = edx = sssxxxxx, где s - это те данные, которые нам надо выделить как перенос, 
; а x - это мусор
    shl    bl, cl   ; bl = xxxxx000
    mov    [di], bl ; записали
; !!!! был ли предыдущий??
    shr    bl, cl   ; bl = 000xxxxx, dl = sssxxxxx
    sub    dl, bl   ; dl = sss00000
    rol    dl, cl   ; dl = 00000sss (циклич. сдвиг)
    add    [di+1], dl ; прибавили перенос к предыдущему
    dec    di
    jmp    @bsc3


;то же самое, только для ПЕРВЫХ БАЙТ массива. (не надо прибавлять перенос к предыдущему)
@bsc1_new:
    mov    ax, @mas
    cmp    si, ax ;сколько осталось?
    jl    @bsc3  ; всё готово
    jz    @bsc4_new  ; еще один байт
    ;больше одного (2 или 3). Скопируем сначала 2 байта
    dec    si ;теперь указывает на 2 байта
    dec    di ;теперь указывает на 2 байта
    mov    bx, [si] ;читаем 2 байта

    mov    dx, bx  
    shl    bx, cl   ; bx = xxxxx000
    mov    [di], bx ; записали

    dec    si
    dec    di
    cmp    si, ax ;если равны, то надо еще один байт. Иначе все.
    jnz    @bsc3

    jmp    @bsc4
@bsc4_new: ;надо скопировать 1 байт
    mov    bl, [si] ;читаем байт
    mov    dl, bl
    shl    bl, cl   ; bl = xxxxx000
    mov    [di], bl ; записали
    dec    di


@bsc3: ;заполняем нулями остаток
;di - это первый элемент, который надо обнулить. Если массив еще не закончился.
    xor    edx, edx

    mov    ax, @mas
    mov    cx, di
    inc    cx
    sub    cx,ax ;cx = кол-во элементов для обнуления
    mov    ax,cx ;ax = кол-во элементов для обнуления

    shr    cx, 2 ;cx = кол-во/4
    jz    @bsc6 ; кол-во/4 = 0
    inc    di    ; элемент перед началом первых 4-х байт для обнуления
@bsc5:
    sub    di, 4 ;следующие 4 байта
    mov    [di], edx ;обнуляем
    loop    @bsc5 ;цикл

    dec    di ;байт для обнуления
@bsc6:    
    and    ax, 011b ;кол-во mod 4
    jz    @bscExit ; если все обнулили, то выходим
@bsc7:
    mov    [di],dl
    dec    di ;байт для обнуления
    dec    ax
    jnz    @bsc7 ; цикл

@bscExit:
        pop     bp
        ret     8
BigShlCount endp
_text   ends
        end