Важная информация

User Tag List

Показано с 1 по 1 из 1

Тема: 32-битное деление чисел, ассемблер Z80. HАЙДЕHА ЖУТКАЯ ОШИБКА!

  1. #1
    Kirill Frolov (2:5020/400)
    Гость

    По умолчанию 32-битное деление чисел, ассемблер Z80. HАЙДЕHА ЖУТКАЯ ОШИБКА!

    FromNet: NET_Moscow_Russia_(245_02/09/2005) (commserv.rpb.ru)

    From: Kirill Frolov <fk0@fk0.pp.ru>

    Hемедленно нажми на RESET, All!

    В неоднократно публиковавшемся здесь алгоритме 32-битного деления
    обнаружена серьёзная ошибка!

    === cut here ===

    ifused ldiv
    ifndef ldiv
    ; Беззнаковое 32-разрядное деление
    ; функция состоит из двух частей:
    ; 1. 32-разрядное делимое и 16-разрядный
    ; делитель.
    ; 2. 32-раздядное делимое и 32-разрядный
    ; делитель.
    ; hl'hl = hl'hl / de'de
    ; de'de = hl'hl % de'de
    ldiv
    push hl
    xor a
    ld l, a
    ld h, a
    sub e
    ld e, a
    sbc a, d
    sub e
    ld d, a
    exx

    === cut here ===

    Это начальные строки ОШИБОЧHОЙ ПРОГРАММЫ.
    Для устранения ошибки их следует ЗАМЕHИТЬ на следующие:

    ldiv
    push hl
    xor a
    ld l, a
    ld h, a
    sub e
    ld e, a
    + ld a, h ; a=0. -- эта строка добавлена
    sbc a, d
    ld d, a
    exx


    Ошибка была обнаружена lvd. Задаётся вопрос об авторстве:
    автороство, по видимости, коллективное, по результатам переписки
    в телеконференциях, иначе я обычно указываю откуда взято.

    Полный текст функции выглядит следующим образом:

    ifused ldiv
    ifndef ldiv
    ; версия от 2006-12-18T15:11:28+0300
    ; Беззнаковое 32-разрядное деление
    ; функция состоит из двух частей:
    ; 1. 32-разрядное делимое и 16-разрядный
    ; делитель.
    ; 2. 32-раздядное делимое и 32-разрядный
    ; делитель.
    ; hl'hl = hl'hl / de'de
    ; de'de = hl'hl % de'de
    ldiv
    push hl
    xor a
    ld l, a
    ld h, a
    sub e
    ld e, a
    ld a, h
    sbc a, d
    ld d, a
    exx
    pop bc
    ld a, 0
    sbc a, e
    ld e, a
    sbc a, d ; de'de=0-divisor
    sub e
    ld d, a
    and e
    inc a ; Z=short divisor
    push hl
    ld hl, 0 ; hl'hl=reminder
    exx
    pop bc
    ld a, b ; a,c,bc'=divident

    jr nz, ldiv_long


    ; divisor = -00de
    ld b, 8
    rla
    ldivs0
    rl l
    add hl, de
    jr c, ldivs1
    sbc hl, de
    ldivs1 rla
    djnz ldivs0

    ld b, c
    ld c, a
    ld a, b
    ld b, 8
    rla
    ldivs2
    adc hl, hl
    add hl, de
    jr c, ldivs3
    sbc hl, de
    ldivs3 rla
    djnz ldivs2
    jr ldiv_long1


    ; divisor=-de'de
    ldiv_long
    call ldiv_8
    ld b, c
    ld c, a
    ld a, b
    call ldiv_8
    ldiv_long1
    exx
    exa
    ld a, b
    exa
    ld b, a
    exa
    exx
    call ldiv_8
    exx
    exa
    ld a, c
    exa
    ld c, a
    exa
    exx
    call ldiv_8

    ; result=c,bc',a -> hl'hl
    ; reminder=hl'hl -> de'de

    ex de, hl
    ld l, a
    ld a, c
    exx
    ex de, hl
    ld h, a
    ld l, b
    ld a, c
    exx
    ld h, a
    ret


    ; hl'hl=reminder
    ; de'de=divisor
    ; a=divident
    ldiv_8
    ld b, 8
    rla
    ldiv_8_0
    adc hl, hl
    exx
    adc hl, hl
    exx
    add hl, de
    exx
    adc hl, de
    exx
    jr c, ldiv_8_1
    sbc hl, de
    exx
    sbc hl, de
    exx
    ldiv_8_1
    rla
    djnz ldiv_8_0
    ret

    endif
    endif

  2. #1
    С любовью к вам, Yandex.Direct
    Размещение рекламы на форуме способствует его дальнейшему развитию

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Pentagon-1024SL/v1.4: ошибка в схеме!
    от m.d. в разделе Pentagon
    Ответов: 3
    Последнее: 04.07.2011, 06:41
  2. Плз, срочно надо. Ошибка 200 в SN
    от TomCaT в разделе Утилиты
    Ответов: 11
    Последнее: 15.09.2005, 10:11
  3. деление синхросигнала
    от Splinter в разделе Unsorted
    Ответов: 3
    Последнее: 01.08.2005, 00:53
  4. ZX ассемблер (и не только?) с библиотеками
    от shade в разделе Программирование
    Ответов: 24
    Последнее: 04.03.2005, 19:43

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •