Код:
;для начала включим этот режим
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
если чего работает неправильно - пишите поправлю
UlaPlus
Ответить с цитированием
Размещение рекламы на форуме способствует его дальнейшему развитию 
Сообщение от cherkasy
