ArtStudio - исследование

[Rubts0FF]

Не нашел в куда обратиться с этим вопросом и решил создать отдельную тему.

Сейчас "развлекаюсь" тем, что исследую графический редактор ArtStudio, ни какой конкретной цели, заинтересовала система меню, ну и остальное.

Структурно ArtStudio разбита на подпрограммы согласно меню и вот некоторые из них, после опроса нажатых клавиш управления, вызывают следующую подпрограмму. Я что то такого нигде раньше не встречал. Эта подпрограмма благополучно выкидывается из общей структуры, но интересно же.

laa79   ld a,(l87ff):cp 4:ret nz
        di:ld hl,l86fa
        ld a,h:ld i,a:im 2
        ld hl,laac8:ld (l86fa),hl 
        ld hl,laad1:ld (l86fc),hl 
        ld hl,laaf0:ld (l86ff),hl
        ld a,#4f:out (#5f),a
        ld hl,l86fa
        ld a,l:out (#5f),a 
        ld a,#87:out (#5f),a 
        ld a,#4f:out (#7f),a 
        ld hl,l86fc
        ld a,l:out (#7f),a
        ld a,#87:out (#7f),a
        call laaf2
        ld l,a:ld h,0:ld (lacd9),hl
        call laaf6:ld l,a
        ld (lacdb),hl:ei:ret

laac8   push af:in a,(#1f)
        push hl:ld hl,lacdd:jr laad8

laad1   push af:in a,(#3f)
        push hl:ld hl,lacde

laad8   and 1:jr nz,laadf
        inc (hl):jr laae0

laadf   dec (hl)

laae0   pop hl:pop af:ex (sp),hl
        push af:dec hl
        ld a,(hl):cp #76:jr z,laaeb
        inc hl 
laaeb   pop af:ex (sp),hl:ei:reti

laaf0   ei:ret

laaf2   ld a,(lacdd):ret

laaf6   ld a,(lacde):ret

laafa   ld b,#0a

laafc   in a,(#df):or #1f:inc a:ret z
        djnz laafc:ret

Все эти действия, порты, мне лично ни о чем не говорят, но .., уже говорил, интересно к какому "железу" это относится.

p.s. Тему завел, надо будет делиться и результатами .. исследований.

[Advertiser]