UlaPlus

[jerri]

Почитал, посмотрел, а ведь весьма я скажу вам интересная штучка

Определение наличия ULAplus

;для начала включим этот режим
ld bc,#bf3b
ld a,#40
out (c),a
ld b,#ff
ld a,#01
out (c),a

ld b,#BF
out (c),a
ld b,#FF
ld a,#18
out (c),a
;автор рекомендует на этом месте делать PAUSE 1

in a,(c)
cp #18
ret nz
;поскольку регистр данных читабелен должно считаться тоже что и записали
;если считалось что-то другое - значит ULA обычная

теперь еще из того же учебника - перевод компа в режим ULAplus c загрузкой стандартной палитры
правда я позволил себе немножко подкорректировать код

    ld    hl,palette
    ld    de,#bfff
    ld    bc,#bf3b
    ld    a,#40
    out    (c),a
    ld    b,e
    outi
    xor    a
pal0
    ld    b,d
    out    (c),a
    ld    b,e
    outi
    inc    a
    and    #3f
    jr    nz,pal0
    ret
palette    db    #01
    db    #00,#02,#18,#1b,#c0,#c3,#b8,#db    ;ink
    db    #00,#02,#18,#1b,#c0,#c3,#b8,#db    ;paper
    db    #00,#03,#1c,#1f,#e0,#e3,#fc,#ff       ;+bright
    db    #00,#03,#1c,#1f,#e0,#e3,#fc,#ff
    db    #db,#b8,#c3,#c0,#1b,#18,#02,#00     ;+flash
    db    #db,#b8,#c3,#c0,#1b,#18,#02,#00
    db    #ff,#fc,#e3,#e0,#1f,#1c,#03,#00        ;+bright
    db    #ff,#fc,#e3,#e0,#1f,#1c,#03,#00        ;+flash

если чего работает неправильно - пишите поправлю
код не тестировал - нету ничего под рукой

[Advertiser]