Монолоадер для чайников.

[ZX_NOVOSIB]

при проверке режима можно сначала включить четвертую, а потом третью.

ld a,20
......
dec a ; a=19

уже экономим байт
и вместо

ld (xxxx),a
.......
ld a,(xxxx)

сделать

ld hl,xxxx
ld (hl),a
.......
ld a,(hl)

ещё экономим байт

Экономить по байту - не наш метод! )

К тому же, как заметил Шынни, проверка не корректная (мало ли что окажется в памяти перед запуском игры). В общем, я упростил некоторые конструкции и убил таким образом сразу двух зайцев: сэкономил 14 байт, и проверка стала корректной "Всё и сразу" (с)

        ORG 23894

        LD   BC,#1605
        LD   HL,42000
        CALL    LOAD
        CALL    42000
        DI
        LD   BC,#7D05
        LD   HL,26000
        CALL    LOAD

        LD   A,18
        CALL    PAGE

        LD   A,(50100)
        CP   84
        JR   Z,ZX48

 ZX128  CALL    PAGE

        LD   BC,#1105
        LD   HL,49152
        CALL    LOAD
        CALL    49152

        LD   A,16
        CALL    PAGE

        LD   SP,24137
        CALL    26000
 RUN    JP      24158

 ZX48   LD   SP,24137
        CALL    26000
        XOR A
        LD  (29326),A
        JR RUN

 LOAD   LD  DE,(23796)
        CALL    15635
        RET

 PAGE   LD   BC,32765
        OUT  (C),A
        RET

[Advertiser]

[goodboy]

осталось все сжатые блоки расположить с одного адреса.
и можно будет экономить

ld b,x
call load
..........
load ld c,5
     ld hl,26000
.......

[Shiny]

ZX_NOVOSIB, я предвкушаю тот момент, когда ты обратишься в сторону написания tiny intro xD

Например, LOAD и PAGE можно объединить и сократить, если нужно.

[ZX_NOVOSIB]

ld b,x

Разъединение bc дало экономию в 1 байт. При условии, что у нас 3 блока. Если блока будет 2, то экономия будет отрицательной.

осталось все сжатые блоки расположить с одного адреса.

Картинку можно с основным блоком расположить с одного адреса. Но ведь третий блок (музыка) надо грузить с 49152

[goodboy]

третий блок (музыка) надо грузить с 49152

ну так и разжимай его на 49152, а сжатый размещай по другому адресу.
грузи/разжимай его на страницу после загрузки картинки,
(без проверки режима)
на 48к он потом затрётся, на 128 будет на своём месте

[Shiny]

коль пошла речь о экономии:

        LD   HL,49152
        CALL    LOAD
        CALL    49152

похожий вызов с 42000. поставь в LOAD push hl и убери CALL. -5 байт вроде

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

упс, не так


LD HL,26000
CALL LOAD1

LOAD
push hl
LOAD1

[ZX_NOVOSIB]

ну так и разжимай его на 49152, а сжатый размещай по другому адресу.
грузи/разжимай его на страницу после загрузки картинки,
(без проверки режима)
на 48к он потом затрётся, на 128 будет на своём месте

Я понял.
Но тут вопрос идеологический. Выходит в 48-ом режиме зря будет что-то грузиться, а это не айс. Если на это забить, то можно вообще было бы блоки склеить и за один раз всё загрузить, или по крайней мере за 2 захода всё загрузить. Но мне больше нравится когда всё по отдельности. Это если бы под код загрузчика вообще места не было, тада другое дело.

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

Шынни, про push не совсем понятно. Где push, там по идее и pop, как гласит народная мудрость. Но как это всё применить в загрузчике пока не пойму.

[Shiny]

Шынни, про push не совсем понятно. Где push, там по идее и pop, как гласит народная мудрость

сделаешь push hl, на стеке будет помещен адрес, RET бросит на адрес. Тот же CALL. (вызов не нужен после загрузки)

[ZX_NOVOSIB]

Шынни, наконец до меня дошло Минус 5 байт.

[Shiny]

еще один незначительный выигрыш: при вызове LOAD ты используешь

LD BC,#xx05 - три раза

если оставить LD b,#xx а в процедуре LOAD ld c,5 , то выигрыш 1 байт

И далее:

LD SP,24137
CALL 26000
RUN JP 24158

ZX48 LD SP,24137
CALL 26000
XOR A
LD (29326),A
JR RUN
неясно, зачем заносить 0 в 29326, но 8 лишних байт итак видно.