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

[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