(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. Больше я такого метода пока нигде не встречал. * * *