esl, скинул в соседней теме более свежую версию CONOUT. Этого бага в нём нет.
http://www.zx.pk.ru/showpost.php?p=430073&postcount=29
P.S. Надо бы сверить бинарник из эмулятора b2m с дампами из МПСиС и красной книги, может быть какие-нибудь ошибочки найдутся?
Разыскиваю всё, что связано с ПЭВМ "Ириша".
С любовью к вам, Yandex.Direct
Размещение рекламы на форуме способствует его дальнейшему развитию
у меня с этим ромом не стартует эмулятор ...
Это только CONOUTСообщение от esl
Попробуй так:
Должно заработать.Код:bootm : Memory { rom="Irisha\irisha.rom" } conout : Memory { rom="Irisha\conout30.rom" } mm : MemMap { map[0][0000-1FFF]=bootm[0000] map[0][2000-3FFF]=conout[0000]
Последний раз редактировалось KokaF77; 14.11.2011 в 12:03.
Разыскиваю всё, что связано с ПЭВМ "Ириша".
Может это не баг, а фича?
В конце-концов, после смены режима можно делать Esc+L - окно во весь экран, отрабатывает нормально.
Во как! Прикольно. Что-то в этом есть.Может это не баг, а фича?
В конце-концов, после смены режима можно делать Esc+L - окно во весь экран, отрабатывает нормально.
Разыскиваю всё, что связано с ПЭВМ "Ириша".
заработало, похоже я криво ромы склеил
думаб что баг, таки
вот новый код
тут все прямо и понятноКод:RAM:24FA RAM:24FA __ESC_Q_SetMODE: ; DATA XREF: RAM:_ESC_Q_SetMODEo RAM:24FA ani 10h RAM:24FC mvi a, 0 RAM:24FE jnz _1 RAM:2501 mov a, c RAM:2502 ani 3 RAM:2504 lxi h, _FixModeBits RAM:2507 mov e, a RAM:2508 mvi d, 0 RAM:250A dad d RAM:250B mvi a, 11101100b RAM:250D ana c RAM:250E ora m RAM:250F RAM:250F _1: ; CODE XREF: RAM:24FEj RAM:250F sta _ConOut_Mode RAM:2512 call sub_24BE RAM:2515 RAM:2515 loc_2515: ; DATA XREF: RAM:2115o RAM:2515 xra a RAM:2516 sta _ConOut_WIN_Left RAM:2519 sta _ConOut_WIN_Up RAM:251C call _CO_GetWidth RAM:251F sta _ConOut_WIN_Right RAM:2522 call _CO_GetScreenLines RAM:2525 sta _ConOut_WIN_Down RAM:2528 ret RAM:2528 ; --------------------------------------------------------------------------- RAM:2529 _FixModeBits: .db 0 ; DATA XREF: RAM:2504o RAM:252A .db 10h RAM:252B .db 1 RAM:252C .db 2 RAM:252D RAM:252D ; =============== S U B R O U T I N E ======================================= RAM:252D RAM:252D RAM:252D _CO_GetWidth: ; CODE XREF: RAM:2254p RAM:252D ; RAM:251Cp RAM:252D lda _ConOut_Mode RAM:2530 ani 1 RAM:2532 mvi a, 40 RAM:2534 rz RAM:2535 rlc RAM:2536 ret RAM:2536 ; End of function _CO_GetWidth RAM:2536 RAM:2537 RAM:2537 ; =============== S U B R O U T I N E ======================================= RAM:2537 RAM:2537 RAM:2537 _CO_GetScreenLines: ; CODE XREF: RAM:2522p RAM:2537 lda _ConOut_Mode RAM:253A ani 1000000b RAM:253C mvi a, 20 RAM:253E rz RAM:253F mvi a, 25 RAM:2541 ret RAM:2541 ; End of function _CO_GetScreenLines RAM:2541
Я не клеил, просто конфиг подправил.заработало, похоже я криво ромы склеил
esl, у тебя не будет желания и возможностей разобрать эти обе версии версии CONOUT по запчастям?
СПАСИБО!
Разыскиваю всё, что связано с ПЭВМ "Ириша".
времени и желания не хватит ...
первый я частично разобрал, и выкладывал тут.
Ясно...Тогда, что мне думать о себе?
Я помню, и очень благодарен.
Разыскиваю всё, что связано с ПЭВМ "Ириша".
это абсолютно не важно, сам по себе регистр флагов мало интересен
он нужен ТОЛЬКО после выполнения операции
т.к. в нем будет установлен соответствующий флаг стоять
который мы дальше и проверим
и обычно после этой проверки нам он уже и опять не важен
для отдельных битов есть команды установки сброса
типа STC/CMC для С
z можно сбросить ORA A
где-то так.
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)
Ваши права
Ответить с цитированием
