Печать двухбайтового числа без знака и со знаком в машкоде

[Oleg N. Cher]

Не очень я это понимаю. Потратить 524 такта в инициализации - лишнее нагроможение, а при печати каждого символа - норм.

Ну можно конечно сделать в Basic.Init отдельную секцию, открывающую канал 2 при включенной опции ROM_OUTPUT. Сделаю.

Кстати, а как можно реализовать CLS? Есть варианты, превосходящие LDIR по скорости? (10 кб кода на очистку экрана во фрейм не рассматриваем, код нужен по возможности компактный).

PS INPUT у вас реализован? Надо пример?

Пример не помешает.

У нас есть Console.ReadInt и ReadIntRange(min, max) для всего экрана (а не для канала 0), но он простенький.

[Advertiser]

[SaNchez]

Кстати, а как можно реализовать CLS? Есть варианты, превосходящие LDIR по скорости? (10 кб кода на очистку экрана во фрейм не рассматриваем, код нужен по возможности компактный).

Вариант средний по скорости и длине:

      ld hl,#4000
      ld de,#4001
      ld bc,#1800
      ld (hl),0
loop1 dup 32
      ldi
      edup
      jp pe,loop1
      ld bc,#300
      ld (hl),7; байт атрибута
loop2 dup 32
      ldi
      edup
      jp pe,loop2
      ret

[tiboh]

Кстати, а как можно реализовать CLS? Есть варианты, превосходящие LDIR по скорости? (10 кб кода на очистку экрана во фрейм не рассматриваем, код нужен по возможности компактный).

Компактно и быстро:

LD D,7;цвет атрибутов
LD B,6
LD HL,0
ADD HL,SP
LD SP,#5b00
cls LD E,D
PUSH DE;повторить 64 раза
DJNZ $-64
LD A,D
OR A
LD D,B
LD B,48
JR NZ,cls
LD SP,HL
RET

[SaNchez]

Ну это до тех пор, пока вдруг стек не укажет на ROM

[Alex Rider]

Пример не помешает.

В первых версиях Sprite Graber'а имя файла (8 символов) с помощью ROM-editor'а запрашивалось вот так (в буфер по адресу Variables.input_buffer):

@chan_open              equ #1601
@set_min                equ #16b0
@editor                 equ #0f2c

@flagx                  equ #5c71
@k_cur                  equ #5c5b
@err_sp                 equ #5c2d
@worksp                 equ #5c61


input_line:
        ld hl,flagx
        set 7,(hl)
        set 5,(hl)
        call set_min

        ld bc,#0001
        rst #30
        ld (hl),#0d
        ld (k_cur),hl
        ld hl,input_line_exit
        push hl
        ld (err_sp),sp
        call editor
        pop hl
        ld hl,(worksp)
        ld de,Variables.input_buffer
        ld b,#08
input_line_copy:
        ld a,(hl)
        cp #0d
        jr z,input_line_exit
        ld (de),a
        inc hl
        inc de
        djnz input_line_copy
input_line_exit:
        ld a,2
        call chan_open
        jp set_min

- - - Добавлено - - -

UPD: процедура нещадно портит err_sp, надо сохранять и восстанавилвать, иначе после любого rst #08 в ПЗУ случится вылет в параллельную вселенную.

- - - Добавлено - - -

UPD2: Если случится переполнение буфера или всякое STOP in INPUT, буфер по адресу Variables.input_buffer не изменится. Все подобные спецэффекты можно обрабатывать в процедуре, адрес которой запоминается на стеке перед занесением sp в err_sp. set_min при любом исходе категорически рекомендуется во избежание зажора навсегда памяти в workspace Basic'а. chan_open - по вкусу