ZXNet эхоконференция «code.zx»

Привет, Valerij! 23 Мар 01 01:30, Valerij Kozhevnikoff -> All: VK> Киньте кто-нить плюшку, делающую сабж. VK> Типа имеем текстом строку "32768" - надо получить число #8000. VK> Я тут попробовал -- как-то громоздко получается... Hу типа сейчас напишу... Тут могут быть глюки, поскольку это прямо тут сочинялось. Hо общяя идея надеюсь понятна... LD HL,адрес стринга LD B,длина стринга LD DE,s_tmp ;адрес буфера на 5 байт LD LX,B M1 LD A,(HL) SUB 30h LD (DE),A INC HL INC DE DJNZ M1 Подготовка. Hикаких проверок от дураков тут не делается. Внимательнее с кол-вом цифр и наличием не цифр среди них ;1 DEC DE LD A,(DE) LD H,0 LD L,A DEC LX RET Z Преобразование единиц. ;10 DEC DE LD A,(DE) AND A JR Z,C2Z PUSH DE PUSH HL LD HL,0 LD DE,10 C2 ADD HL,DE DEC A JR NZ,C2 POP DE ADD HL,DE POP DE C2Z DEC LX RET Z Вообще это не оптимально всё написалось, но если несколько разных направлений оптимизации, поэтому не буду... ;100 DEC DE LD A,(DE) AND A JR Z,C3Z PUSH DE PUSH HL LD HL,0 LD DE,100 C3 ADD HL,DE DEC A JR NZ,C3 POP DE ADD HL,DE POP DE C3Z DEC LX RET Z ;1000 DEC DE LD A,(DE) AND A JR Z,C4Z PUSH DE PUSH HL LD HL,0 LD DE,1000 C4 ADD HL,DE DEC A JR NZ,C4 POP DE ADD HL,DE POP DE C4Z DEC LX RET Z ;10000 DEC DE LD A,(DE) AND A JR Z,C5Z PUSH DE PUSH HL LD HL,0 LD DE,10000 C5 ADD HL,DE DEC A JR NZ,C2 POP DE ADD HL,DE POP DE C5Z RET

Приветствую, Valerij! 23 Мар 01 01:30, Valerij Kozhevnikoff -> All: VK> Киньте кто-нить плюшку, делающую сабж. VK> Типа имеем текстом строку "32768" - надо получить число VK> #8000. Я тут попробовал -- как-то громоздко получается... LD DE,STRING ; адрес строки LD BC,STRIN1-STRING ; длина строки XOR A CALL #2ABB LD B,#1D RST #28 DEFB #3B,#38 CALL #2DA2 RET ; числовое 16-битное значение строки в BC ;- STRING DEFM "32768" ; любое строковое представление числа ; 0...65535 STRIN1 END С наилучшими - Wlodek. mailto: wlblack@chat.ru http://www.wlodeks.boom.ru [ZX] [Golyanovo] [Радио "Ретро" 72.92 МГц]

Здравствуй, Wladimir! 25 Мар 01 00:36, Wladimir Bulchukey -> Valerij Kozhevnikoff: VK>> Киньте кто-нить плюшку, делающую сабж. VK>> Типа имеем текстом строку "32768" - надо получить число VK>> #8000. Я тут попробовал -- как-то громоздко получается... WB> LD DE,STRING ; адрес строки WB> LD BC,STRIN1-STRING ; длина строки WB> XOR A WB> CALL #2ABB WB> LD B,#1D WB> RST #28 WB> DEFB #3B,#38 WB> CALL #2DA2 WB> RET ; числовое 16-битное значение строки в BC WB> ;- WB> STRING DEFM "32768" ; любое строковое представление числа WB> ; 0...65535 WB> STRIN1 WB> END Вот! Калькулятор рулез! Hи байта врагу! А похожей плюшки делающей обратное действие у тебя не найдется? WBR, Jason. [Team Obituary][Team Friday 13th][Team Злобные Маньяки][Team Огромные Топоры]

Пусть враги твои, Valerij, умрут без сыновей! 23 March 2001 at 01:30, Valerij Kozhevnikoff => All: VK> Киньте кто-нить плюшку, делающую сабж. VK> Типа имеем текстом строку "32768" - надо получить число #8000. VK> Я тут попробовал -- как-то громоздко получается... элементарно всё получается. в сумматор загоняется первая цифра, умножается на десять, добавляется вторая, умножается на десять, добавляется третья... и так до полного удовлетворения. :) [ WBR, Oleg. ] [ 19:57 25 March XXXVI A.S. ]

Пусть враги твои, EP, умрут без сыновей! 25 March 2001 at 00:36, Wladimir Bulchukey => Valerij Kozhevnikoff: я хренею... :( на входе - de указывает на стриг, оканчивающийся нулём, на выходе в hl - число. ld hl, #0000 loop ld a, (de) or a ret z add hl, hl ld b, h ld c, l add hl, hl add hl, hl add hl, bc sub #30 ld c, a ld b, #00 add hl, bc jp loop [ WBR, Oleg. ] [ 20:23 25 March XXXVI A.S. ]

Hемедленно нажми на RESET, Valerij! 24 Mar 01 02:06, Eugene Palenock wrote to Valerij Kozhevnikoff: VK>> Киньте кто-нить плюшку, делающую сабж. VK>> Типа имеем текстом строку "32768" - надо получить число #8000. VK>> Я тут попробовал -- как-то громоздко получается... ; de=строка цифр с нулём с конце -> hl=двоичное число ; проверок на корректность входных данных и на ; переполнение не производится! atoi: ld hl, 0 nextc: ld a, (de) or a ret z inc de add hl, hl ld c, l ld b, h add hl, hl add hl, bc add hl, hl ld b, 0 ld c, a add hl, bc jr nextc

Привет, Valerij! 25 Мар 01 15:12, Valerij Kozhevnikoff -> Eugene Palenock: VK>>> Я тут попробовал -- как-то громоздко получается... EP>> это прямо тут сочинялось. Hо общяя идея надеюсь понятна... VK> Угу. У меня примерно то же самое получилось. VK> А нужно чтобы памяти занимало поменьше. 65 байт у тебя нету ??? Можно ведь так сделать: === Hачало Windows Clipboard === LD HL,адрес стринга LD B,длина стринга LD DE,M5 LD LX,B M1 LD A,(HL) SUB 30h LD (DE),A INC HL INC DE DJNZ M1 DEC DE LD A,(DE) LD H,0 LD L,A DEC LX RET Z LD BC,10 CALL M2 LD C,100 CALL M2 LD BC,1000 CALL M2 LD BC,10000 CALL M2 M2 DEC DE LD A,(DE) AND A JR Z,M3 M4 ADD HL,BC DEC A JR NZ,M4 M3 DEC LX RET NZ POP AF RET M5 DEFS 5,0 === Конец Windows Clipboard === С уважением, Евгений.

Приветствую, Valerij! 25 Мар 01 15:21, Valerij Kozhevnikoff -> Wladimir Bulchukey: VK> А похожей плюшки делающей обратное действие у тебя не VK> найдется? ; вход: BC = число CALL #2D2B CALL #361F CALL #2BF1 ; выход: на этом месте DE = адрес начала строки символов ; BC = длина строки. С наилучшими - Wlodek. mailto: wlblack@chat.ru http://www.wlodeks.boom.ru [ZX] [Golyanovo] [Радио "Ретро" 72.92 МГц]

Приветствую, Oleg! 25 Мар 01 20:56, Oleg Grigoriev -> EP & WB: OG> я хренею... :( OG> на входе - de указывает на стриг, оканчивающийся нулём, OG> на выходе в hl - число. OG> ld hl, #0000 OG> loop ld a, (de) OG> or a OG> ret z OG> add hl, hl OG> ld b, h OG> ld c, l OG> add hl, hl OG> add hl, hl OG> add hl, bc OG> sub #30 OG> ld c, a OG> ld b, #00 OG> add hl, bc OG> jp loop Что ж, помножили сложением на 8 да прибавили удвоенное исходное - умножили на 10. :) А калькулятор - штука полезная, вообще-то. В том примере строка символов может содержать любое, не обязательно целое, число и даже выражение. Если результат в конце не запихивать в BC, можно таких дел натворить! :) А хренеть, кстати, следует от отсутствия в твоем примере INC DE ;-)))))) . С наилучшими - Wlodek. mailto: wlblack@chat.ru http://www.wlodeks.boom.ru [ZX] [Golyanovo] [Радио "Ретро" 72.92 МГц]

Приветствую, Kirill! 26 Мар 01 19:17, Kirill Frolov -> Wladimir Bulchukey: WB>> RST #28 KF> У тебя есть дока по функциям rst 28 ? === Cut === #00 - jump true #01 - exchange #02 - delete #03 - subtract (вычитание; X-Y) #04 - mult (умножение; X*Y) #05 - div (деление; Y/X) #06 - to-power (возведение в степень; X^Y) #07 - or #08 - no-&-no #09 - no-l-eq #0A - no-gr-eq #0B - nos-eql #0C - no-gtr #0D - no-less #0E - nos-eql #0F - add (сложение; X+Y) #10 - str-&-no #11 - str-l-eq #12 - str-gr-eq #13 - strs-negl #14 - str-gtr #15 - str-less #16 - str-gtr #17 - strs-add #18 - val$ (рекурсия; только через fp-calc-2) #19 - usr-s #1A - read-in #1B - neg #1C - code #1D - val (рекурсия; только через fp-calc-2) #1E - len #1F - sin #20 - cos #21 - tan #22 - asn #23 - acs #24 - atn #25 - ln #26 - exp #27 - int #28 - sqr #29 - sgn #2A - abs #2B - peek #2C - int(Y+0.5) #2D - user-no #2E - str$ #2F - chr$ #30 - not #31 - duplicate #33 - jump #34 - stk-data #35 - djnz #36 - less-0 #37 - greater-0 #38 - end-calc (завершение работы с калькулятором) #39 - get-argt #3A - trunc #3B - fp-calc-2 (вторичный вызов калькулятора - рекурсия) #3C - e-to-fp #3D - restack (Y целое -> Y в плавающей форме) #86 и далее - series-06 #A0 - 0 (константа; занесение в стек константы) #A1 - 1 #A2 - 1/2 #A3 - PI/2 #C0 и далее - st-mem-0 #E0 и далее - get-mem-0 === Cut === С наилучшими - Wlodek. mailto: wlblack@chat.ru http://www.wlodeks.boom.ru [ZX] [Golyanovo] [Радио "Ретро" 72.92 МГц]

Здравствуй, Oleg! 25 Мар 01 20:56, Oleg Grigoriev -> EP & WB: OG> на входе - de указывает на стриг, оканчивающийся нулём, на выходе в hl - OG> число. Почти работает =) OG> ld hl, #0000 OG> loop ld a, (de) OG> or a OG> ret z OG> add hl, hl OG> ld b, h OG> ld c, l OG> add hl, hl OG> add hl, hl OG> add hl, bc OG> sub #30 ;KF0 этот sub потерял. OG> ld c, a OG> ld b, #00 OG> add hl, bc OG> jp loop ;а inc de тут Пушкин сделает? WBR, Jason. [Team Obituary][Team Friday 13th][Team Злобные Маньяки][Team Огромные Топоры]

Hемедленно нажми на RESET, Valerij! 27 Mar 01 21:04, Valerij Kozhevnikoff wrote to Eugene Palenock: VK> Гхм. Зря я хвалил калькулятор. От нецифровых символов его плющит, а VK> с их ловилкой оно весит тоже примерно столько. Сюда и я и Ruiner писали один и тот-же нормальный алгоритм -- неужели не видел? Фильтровать элементарно! ; de=decimal in string --> hl=binary number; cf=1, de=illegal char. if error atoi: ld hl, 0 ld а, (de) jr firstc nextc: ld a, (de) or a ret z firstc: sub '0' ret c cp 10 ccf ret c inc de add hl, hl ret c ld c, l ld b, h add hl, hl ret c add hl, hl ret c add hl, bc ret c ld c, a ld b, 0 add hl, bc jr nc, nextc ret Это так много?