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

User Tag List

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

Тема: str2int

  1. #1
    Guru Аватар для breeze
    Регистрация
    11.02.2005
    Адрес
    【RB】
    Сообщений
    3,690
    Спасибо Благодарностей отдано 
    27
    Спасибо Благодарностей получено 
    42
    Поблагодарили
    30 сообщений
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)

    Exclamation str2int

    Нужна готовая процедура перевода строки десятичных цифр в 16-битное число.

    Что-то типа:

    Код:
           ld hl,string
           call str2int
           ret                  ; на выходе в DE число #4000
    string db "16384",0
    может есть у кого готовое решение? кстати чисел в строке не обязательно должно быть пять, может быть и одно число

    заранее спасибо.
    (๑•̀ㅂ•́)و✧ Doors UI → https://t.me/doorsui | https://t.me/atari_xl_xe ← Atari XL/XE (●´ω`●)ゞ

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

  3. #2
    --- Аватар для Shadow Maker
    Регистрация
    01.03.2005
    Адрес
    Саранск
    Сообщений
    5,823
    Спасибо Благодарностей отдано 
    0
    Спасибо Благодарностей получено 
    235
    Поблагодарили
    100 сообщений
    Mentioned
    4 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Ну почти такое, сам уж конвертацию ascii в нужный формат сделаешь поди.

    (DE).4 8-digit packed decimal number
    <HL> Adress from result
    (HL).4 4-byte result


    DEBU1: PUSH BC
    LD B,20 ;[B]=32D, cycles counter
    DED11: XOR A ;<CY>=0
    CALL DH4 ;devision into two parts
    CALL RR4 ;4-Byte shift to right
    DJNZ DED11
    POP BC
    RET

    RR4: PUSH BC
    PUSH HL
    LD B,4
    RR41: RR (HL)
    INC HL
    DJNZ RR41
    POP HL
    POP BC
    RET

    DH4: LD C,4
    DHN: PUSH BC
    PUSH DE
    DHN1: LD A,(DE)
    RRA
    PUSH AF
    BIT 3,A ;handling carried
    JR Z, DHN2
    SUB 3
    DHN2: CP 80H ;handling carried
    JR C,DHN3
    SUB 30H
    DHN3 LD (DE),A
    POP AF
    INC DE
    DEC C
    JR NZ,DHN1
    POP DE
    POP BC
    RET

    Gomez
    Свирепый агрессивно-депрессивный мордовец!
    Не уверен - не напрягай!

    Не сдавайся. Дыши?

    Virtual TR-DOS

  4. #3
    Guru Аватар для breeze
    Регистрация
    11.02.2005
    Адрес
    【RB】
    Сообщений
    3,690
    Спасибо Благодарностей отдано 
    27
    Спасибо Благодарностей получено 
    42
    Поблагодарили
    30 сообщений
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Не совсем понял что на вход подавать?
    (๑•̀ㅂ•́)و✧ Doors UI → https://t.me/doorsui | https://t.me/atari_xl_xe ← Atari XL/XE (●´ω`●)ゞ

  5. #4
    Veteran Аватар для Destr
    Регистрация
    26.03.2008
    Адрес
    Питкяранта
    Сообщений
    1,800
    Спасибо Благодарностей отдано 
    249
    Спасибо Благодарностей получено 
    112
    Поблагодарили
    86 сообщений
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Тут есть распознавайка: http://zxpress.ru/article.php?id=8555
    (в процессе разбора поймёшь много других полезных вещей, гарантирую)

  6. #5
    Guru Аватар для breeze
    Регистрация
    11.02.2005
    Адрес
    【RB】
    Сообщений
    3,690
    Спасибо Благодарностей отдано 
    27
    Спасибо Благодарностей получено 
    42
    Поблагодарили
    30 сообщений
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)

    Talking

    Цитата Сообщение от Destr Посмотреть сообщение
    Тут есть распознавайка: http://zxpress.ru/article.php?id=8555
    (в процессе разбора поймёшь много других полезных вещей, гарантирую)
    спасибо, при случае почитаю ну а пока написал свой вариант…
    (๑•̀ㅂ•́)و✧ Doors UI → https://t.me/doorsui | https://t.me/atari_xl_xe ← Atari XL/XE (●´ω`●)ゞ

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

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

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

Ваши права

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