Про MultiColor и Pentagon

[DenisGrachev]

Тема косвенно из ветки про Sector
Решил попробовать добавить поддержку Pentagon для AlterEgo 2.
Для этого мне нужен мультиколор 8х2 в 30 средних знакомест (как в NIRVANA от нашего бразильского друга).Можно и все 32 знакоместа, если возможно.

Моих знаний крепкого середнячка для это не хватит, поэтому,возможно уже у кого-то есть наработки - буду очень признателен если поделитесь.

Возможно это попроще чем с классикой, т.к. нет медленной памяти. Но всё равно за гранью моих возможностей. Для начала, хотя бы задержу которая ждёт ровно до начала отрисовки основного экрана (ксатати сколько там 17989 tStates?)

PS: Аппаратные доработки пока опустим.

[Advertiser]

[Hacker VBI]

start of paper: 17989
per line: 224
per int: 71680

в твоём случае на линию можно юзать 224*2, так понимаю.

всё из данных эмулятора по пентагону

[DenisGrachev]

start of paper: 17989
per line: 224
per int: 71680

в твоём случае на линию можно юзать 224*2, так понимаю.

всё из данных эмулятора по пентагону

Хмм... Я так понимаю точно выровнять не получится, почему-то в начале прерывания всегда разное кол-во тактов. Или я не прав ???

[goodboy]

Хмм... Я так понимаю точно выровнять не получится, почему-то в начале прерывания всегда разное кол-во тактов.

в отличии от фирменного спека так и есть. выравнивать можно программно.
в этом журнале есть статья про общие принципы http://vtrdos.ru/book/REVU9645.ZIP

[jerri]

Хмм... Я так понимаю точно выровнять не получится, почему-то в начале прерывания всегда разное кол-во тактов. Или я не прав ???

Там биение от 1 до 3 тактов, за счет биения кстати сделан более плавный скролл в Hidden Part INSULT megademo

---------- Post added at 13:51 ---------- Previous post was at 12:44 ----------

/*
nirvana
        ld      sp, $5822+(ROWREPT*32)+5    ;10  reference columns 5 and 6
        ld      hl, 0                       ;10  columns 27 and 28(*)
        ld      de, 0                       ;10  columns 7 and 8(*)
        ld      bc, 0                       ;10  columns 9 and 10(*)
        exx			    ;4
        ld      hl, 0                       ;10 columns 11 and 12(*)
        ld      de, 0                       ;10 columns 19 and 20(*)
        ld      bc, 0                       ;10 columns 3 and 4(*)
        ld      ix, 0                       ;14 columns 1 and 2(*)
        ld      iy, 0                       ;14 columns 5 and 6 (*)
        ld      ($5820+(ROWREPT*32)+1), ix  ;20 columns 1 and 2
        push    iy                          ;15 columns 5 and 6
        push    bc                          ;11 columns 3 and 4
        ld      sp, $5822+(ROWREPT*32)+19   ;10 reference columns 19 and 20
        ld      ix, 0                       ;14 columns 17 and 18(*)
        push    de                          ;11 columns 19 and 20
        ld      de, 0                       ;10 columns 13 and 14(*)
        ld      bc, 0                       ;10 columns 15 and 16(*)
        push    ix                          ;15 columns 17 and 18
        push    bc                          ;11 columns 15 and 16
        push    de                          ;11 columns 13 and 14
        push    hl                          ;11 columns 11 and 12
        exx		              ;4
        push    bc                          ;11 columns 9 and 10
        push    de                          ;11 columns 7 and 8
        ld      sp, $5822+(ROWREPT*32)+27   ;10 reference columns 27 and 28
        push    hl                          ;11 columns 27 and 28
        ld      hl, 0                       ;10 columns 21 and 22(*)
        ld      de, 0                       ;10 columns 23 and 24(*)
        ld      bc, 0                       ;10 columns 25 and 26(*)
        push    bc                          ;11 columns 25 and 26
        push    de                          ;11 columns 23 and 24
        push    hl                          ;11 columns 21 and 22
        ld      hl, 0                       ;10 columns 29 and 30(*)
        ld      ($5820+(ROWREPT*32)+29), hl ;16 columns 29 and 30
        sbc     hl, hl                      ;15 extra delay
;402
;448
*/

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

[DenisGrachev]

Эту функцию из нирваны я переписал, она теперь выполняется 224 * 2 = 448 тактов на Пентагоне.
Осталось с первоначальной задержкой разобраться.
Путём подгонок уже есть стабильный 8х2 в одной линии, но уже пора идти домой с работы, а дома не до этого

[jerri]

Эту функцию из нирваны я переписал, она теперь выполняется 224 * 2 = 448 тактов на Пентагоне.
Осталось с первоначальной задержкой разобраться.
Путём подгонок уже есть стабильный 8х2 в одной линии, но уже пора идти домой с работы, а дома не до этого

как то мало ты работаешь
первоначальная задержка задается совсем просто

; synchronize with the raster beam
        ld      bc, $0c06
        ld      a, 14
        jr      sync_raster
delay_128k:
        ld      b, $0f

sync_raster:
        nop                             ; extra delay
sync_raster_loop:
        djnz    sync_raster_loop
        ld      b, a
        dec     c
        ld      hl, ($4000)             ; synchronize
        jr      nz, sync_raster

; wait for the raster beam
        ld      b, 12
wait_raster:
        djnz    wait_raster

но точные значения конечно надо подобрать на каком то конкретном исходнике.

[Hacker VBI]

jerri, а что делает эта синхронизация? чот не пойму принцип
хорошая работа у Дени)

[introspec]

jerri, а что делает эта синхронизация? чот не пойму принцип
хорошая работа у Дени)

На пентагоне - ничего не делает. Эта процедура - для медленной памяти, из пентагоновского рендера ее нужно выкинуть.

[NovaStorm]

Там биение от 1 до 3 тактов, за счет биения кстати сделан более плавный скролл в Hidden Part INSULT megademo

Это как так? Что значит "более плавный"? Задержку на один такт и без этого биения варьировать можно, а точнее нельзя и шаг будет 2 пикселя, так?