Adventurer #08
31 августа 1998

Обмен опытом - о том как оперировать в ассемблере с длинными числами типа Long.

      (C) Maximum/INTEGER

        LONG ??? Что это такое ?
     ─────────────────────────────

      Так  обозначаются  длинные числа на
PC и на AMIGA . Т. е это числа, лежащие в
диапазоне  от 0 до 4294967295, для предс-
тавления  которых  отводится  4  (четыре)
байта в памяти.
      В  данной статье я научу вас опери-
ровать  с  такими числами. И для чего это
надо? например, вы пишете игру, в которой
есть такие параметры,как деньги, золото и
т.  д.  Как  водится, денег в таких играх
бывает  намного  больше,  чем  65535. Вот
здесь-то как раз и пригодятся LONG цифер-
ки...
      Итак, у нас есть число 12. 000. 00.
В Long оно выглядит так: #00B71B00
      В ассемблере же стоит набирать так:
long_num DW #00B7, #1B00
      Формат задания любого Long числа:
      ...
      LD HL,#00B7
      EXX
      LD HL,#1B00
      ...
      Т.е в HL старшая  часть  числа, а в
HL' его младшая часть.

        Сложение двух Long чисел
      ────────────────────────────

      Надо  просто сложить младшие части,
а  потом с учетом флага C сложить и стар-
шие:
L_ADD
      ADD HL,DE
      EXX
      ADC HL,DE
      EXX
      RET
      На  входе  у  процедуры: HL и HL' -
первое число, в DE и DE' - второе число.
      На  выходе: HL и HL' сумма двух чи-
сел.
       Разность двух Long чисел
     ────────────────────────────


      Здесь примерно то же самое:
L_SUB
      AND A
      SBC HL,DE
      EXX
      SBC HL,DE
      RET
      Параметры такие же, как у L_ADD.

           Печать Long чисел
         ─────────────────────


      Для  печати числа нам нужно его пе-
рекодировать  из Long в ASCII коды, что и
делает следующая процедура:
L_PR      LD IX,L_TAB; см.ниже
          LD A,10    ; число из 10 знаков
L_PR0     EX AF,AF'
          EXX
          LD E,(IX+0); ст.слово из табл.
          LD D,(IX+1)
          EXX
          LD E,(IX+2); мл.слово из табл.
          LD D,(IX+3)
          LD A,'0'-1
L_PR1     CALL L_SUB ; отнимаем пока не
          INC A      ; включится флаг C
          JR NC,L_PR1;
          CALL L_ADD ; востановим число
          LD (BC),A  ; в буфер его
          INC BC
          INC IX
          INC IX
          INC IX
          INC IX
          EX AF,AF'
          DEC A
          JR NZ,L_PR0; все числа
          RET        ; ...

;таблица чисел:

L_TAB     DW #3B9A,#CA00 ; 1000000000
          DW #05F5,#E100 ; 100000000
          DW #0098,#9680 ; 10000000
          DW #000F,#4240 ; 1000000
          DW #0001,#86A0 ; 100000
          DW #0000,#2710 ; 10000
          DW #0000,#03E8 ; 1000
          DW #0000,#0064 ; 100
          DW #0000,#000A ; 10
          DW #0000,#0001 ; 1

   Перед  вызовом  в HL и HL' число, а в
BC адрес буфера для числа. Пример:

          ORG #6000
          LD HL,#FFFF
          EXX
          LD HL,#FFFF
          LD BC,BUFF
          CALL L_PR
          CALL 3435
          LD A,2
          CALL 5633
          LD HL,BUFF
          LD B,10
LOOP      LD A,(HL)
          RST 16
          INC HL
          DJNZ LOOP
          RET

BUFF      DS 10

             Ввод Long числа.
           ───────────────────


   Вернее не ввод, а преобразование числа
из ASCII кодов в Long формат. Применить
это можно так:

          ...
          LD HL,BUFF
          ...
          CALL INPUT ;Вводим число
          LD HL,BUFF
          CALL L_DC
          ...

   На входе у процедуры: HL-адрес буфера,
где сидит число:

BUFF      DB "212042067"
          DB 0           ;Маркер конца т.е
                         ;код <"0" и >"9"


   После вызова в HL и HL' будет число.

L_DC      PUSH HL
          LD B,0
L_DC1     LD A,(HL)   ;Подсчитаем сколько
          CP "0"      ;циферок у нашего
          JR C,L_DC2  ;числа
          CP "9"+1
          JR NC,L_DC2
          INC B
          INC HL
          JR L_DC1
L_DC2     EXX
          POP BC      ;в BC его
          LD HL,0     ;Обнулим
          EXX         ;новое
          LD HL,0     ;число
          EXX
L_DC3     LD A,B      ;все зделали ?
          LD DE,0-4
          AND A
          RET Z       ;нееет !
          EXX
          DEC A        ;используя таблицу
          LD IX,L_TAB+36
          JR Z,L_DC4  ;найдем
          ADD IX,DE   ;нужный
          DEC A       ;нам
          JR Z,L_DC4  ;разряд
          ADD IX,DE   ;числа
          DEC A
          JR Z,L_DC4
          ADD IX,DE
          DEC A
          JR Z,L_DC4
          ADD IX,DE
          DEC A
          JR Z,L_DC4
          ADD IX,DE
          DEC A
          JR Z,L_DC4
          ADD IX,DE
          DEC A
          JR Z,L_DC4
          ADD IX,DE
          DEC A
          JR Z,L_DC4
          ADD IX,DE
          DEC A
          JR Z,L_DC4
          ADD IX,DE
L_DC4     DEC B       ;ага, нашли
          LD E,(IX)   ;берем то что
          LD D,(IX+1) ;мы будем
          EXX         ;прибавлять
          LD E,(IX+2)   LD D,(IX+3) ;новому числу
          LD A,(BC)   ;какое у вас число ?
          INC BC
L_DC5     CP "0"      ;пока не "ноль"
          JR Z,L_DC3
          CALL L_ADD  ;прибавляем разряд
          DEC A
          JR L_DC5

      Ну  все, я дал уже достаточно много
информации  про Long, так что пользуйтесь
на здоровье...
      Надеюсь,  что данная статья кому-то
поможет.  Еще  хочу напомнить, что такими
числами  уже  успешно воспользовался всем
известный  Слава  Медноногов в своей UFO.
Больше  я  такого  метода  пока  нигде не
встречал.

                  * * *




Другие статьи номера:

От автора - помощь: Новые глюки в новой оболочке.

От автора - автора: об авторах журнала.

Презентация - Авторские программы: Installer to AUTORUN DISK v2. 0, адвентюрная игра Diamond.

Презентация - программа для защиты программ TRICK v1. 003b.

Презентация - HELP Z_80: Руководство пользователя.

Интерфейс - письма читателей: Черный ворон, Секрет игры NEW DIZZY, Об ошибках игры APOLLO, о новой веросии отладчика STS 6.2, Как пройти игру Святогор.

Интерфейс - PC vs Amiga: Так ли AMIGA RULEZ? Первые впечатления неофита.

Интерфейс - о поддержке производителями "железа" своих "творений" после того, как они (творения) попадают в руки пользователей.

Интерфейс - мысли вслух: "SPECCY компьютер для молодых. Если у нас так много крутых кодеров, то почему так мало крутого отечественного soft'а?"

Интерфейс - загоны от CAV inc: "SPECCY это не работа, это отдых, это, даже, больше, чем отдых, это стиль жизни, и, если за это вам еще удается получить деньги..."

Интерфейс - SPECCY за и против, Размышления Spy/Eternity Industry.

Система - Обзор системных программ: ZX-IBM Editor v1.5M , PPF v1.05, Multistudio v2.0p, Mods Player v2.0, Bitmap Viewer v2.0, Corrector v2.0, Storm v1.1, 866 v1.2, HRUM v3.5, TDU v1.0, HRUST v1.0, RLE-Compressor v1.21, Оверлеи Consul Commander.

Обзор игрушек - Обзор новых игровых программ: Rabbit Jazzy, Quadrax, Komplex, Math of the day, Cue Boy, Zly Sen, Prva Aakcia, Outlaw, The Dark Empire, Gary Linekers.

Обзор игрушек - демоверсии: Little Ghost, The Dark Empire, Worms, Смагли 3, Monster Land, Цивилизация, Тайны капитана Шелтона.

Гости - Презентация группы группы из Коврова - Eternity Industry.

Гости - Filix о создании игры ВИННИ ПУХ-2.

Гости - экстремальщики: новая рубрика, освещающая аспекты жизни и творчества экстремальных рыбинских музыкантов. Сегодня в гостях Марат и Демон - стоявшие у истоков такой известной (в узких кругах) команды "Disgust".

Раскрутка - Как играть в игру Encyclopedia of WAR.

Раскрутка - прохождение игры Where time Stood Still.

Раскрутка - описание игры Elopement: back to the Earth.

Раскрутка - прохождение текстовой адвентюры Остров тьмы (Island Darkness).

Раскрутка - прохождение текстовой адвентюры Knightmare.

Обмен опытом - Русские глюки: игра Остров тьмы (о том, как НЕ НАДО писать адвентюрные игры).

Обмен опытом - Доработка ZX-ASM v3.0 от Ивана Рощина.

Обмен опытом - Особенности видеоконтроллера ZX Spectrum (для программистов).

Обмен опытом - Графический эффект IRIS (плазма).

Обмен опытом - процедура вывода окна с рамкой.

Обмен опытом - о том как оперировать в ассемблере с длинными числами типа Long.

Обмен опытом - Art Studio и принцип открытой архитектуры (как написать свои модули к редактору).

Обмен опытом - процедура Движение атрибутной надписи по пикселям (плавающие атрубуты).

Оттяг - Повесть про Пентиума Пентиумовича Пентиумова. 20 вещей , которые можно сделать, если ваша любимая команда проиграла в гостях. Унитаз, как мерило человеческих ценностей.

Оттяг - Тест "Формацевт, проверка на подлинность".

Оттяг - Тест "Ты случайно не тупая задница".

Оттяг - Тест "Есть ли у тебя чувство юмора".

Оттяг - Тест "Какой из тебя студент".

Оттяг - Как ПРАВИЛЬНО убить Windows'95.

Оттяг - Винни-Пух и все-все-все - 2.

Новелла - Сказки Капрала Джилана (по игре Laser Squad).

Новелла - Побег из космоса (по игре Elite).

Новелла - Ежики мутанты.

Новости - новости от Рыбинских спектрумистов: Infosoft, Shrsoft, Surgeon, Chasm, Protecvision, Groboclone, Volume 4, Expеrience, Mr. Vano, Ant, Demon, Miguel, Veka, RDM, Auryn.

Новости - новости от Ярославских спектрмистов: Marchy, Kav Software, Nicolas Viper, Dr Shura, Harkonnen, MacKeymn, DJ Reason.

Реклама - реклама и обьявления.


Темы: Игры, Программное обеспечение, Пресса, Аппаратное обеспечение, Сеть, Демосцена, Люди, Программирование

Похожие статьи:
Железо - IDE HDD для iS-Dos: схeма кoнтрoллeра IDE винчeстeра, прoизвoдимoгo фирмoй (C)Nemo, для кoмпьютeрoв с систeмнoй шинoй типа Nemo-bus.
Welcome - о том как я работал на дедушку Welcome (часть 1).
Горячая линия - Внимание! Изменились наши адреса!

В этот день...   20 июня