ПЭВМ "ИРИША"

**KokaF77** · 16.01.2011, 02:17

esl, Там не всё так просто. В CONOUT есть куча функций, просто заглушенных. Часть из них ссылается на область в которой находится знакогенератор. По структуре данных, находящихся в ПЗУ, я делаю вывод, что писалось на другой машине. И доводилось напильником. Если по нормальному скомпоновать, то что там есть, освободится ещё и некоторое место. Так не пишется на ассемблере.

---------- Post added at 02:17 ---------- Previous post was at 02:16 ----------

А исходники у меня для модуля программатора, на бумаге.

**esl** · 16.01.2011, 02:18

Сообщение от KokaF77

esl, Там не всё так просто. В CONOUT есть куча функций, просто заглушенных. Часть из них ссылается на область в которой находится знакогенератор. По структуре данных, находящихся в ПЗУ, я делаю вывод, что писалось на другой машине. И доводилось напильником. Если по нормальному скомпоновать, то что там есть, освободится ещё и некоторое место. Так не пишется на ассемблере.

эт куда посмотреть ?
адресс в пзу ?

**KokaF77** · 16.01.2011, 02:25

Сообщение от esl

эт куда посмотреть ?
адресс в пзу ?

Сейчас, сразу не скажу. У меня их две версии, и не перед глазами. Сделаю выборку скину в тему.
Посмотрите хотя бы на то, как реализовано главное меню. Вас ничего не смущает? Это ассемблер в чистом виде?

**esl** · 16.01.2011, 05:41

Сообщение от KokaF77

Сейчас, сразу не скажу. У меня их две версии, и не перед глазами. Сделаю выборку скину в тему.
Посмотрите хотя бы на то, как реализовано главное меню. Вас ничего не смущает? Это ассемблер в чистом виде?

посмотрел, (блин пол пятого утра ...)

уж ТАКОЕ точно копилятор не сгенерит
посмотрел CONOUT и старт

нашлось нечто похожее на копирайт

0x7F9: rtv0687

**L Juriy** · 16.01.2011, 07:40

Вот нашел у себя кусочек кода.
Может пригодится.
Остальное еще или пока не успел дизассемблировать.

**b2m** · 16.01.2011, 15:10

Сообщение от esl

b2m вроде как смотрел эти биосы ?

Смотрел, и фортом там не пахнет. Все форты для 8080 были основаны на прямом шитом коде. А там есть лишь одна процедура, которая может вызвать сомнение, но это лишь извлечение из упакованного массива. Т.е. на входе 8-битное число, на выходе 16-битное число из массива, но массив не сплошной, а имеет значения только для определённых индексов. Есть ещё пара мест, где сплошные JMP, но я думаю, это просто векторизированные заголовки каких-то библиотек.

**esl** · 16.01.2011, 15:36

вот что я накопал по дисководу
куча непонятного

собственно что забавно, если ромдиска нет, то его нет и в меню
но "Диск" есть всегда, правда в зависимости от некого теста выаолняются два сильно разных куска кода

первый, порты 50/51 это ВГ93?
грузим сектор м передаем ему управление _runDisk1?

очень странно выглядит кусок кода loc_1800
инициализация кучи неизвестных портов и сразу передача управления ...

Код:

 prepare menu ....

02D5                 ld      de, aDisk       ; "disk"
02D8                 push    de
02D9                 ld      a, _C7_0
02DB                 out     (PPA_RUS), a
02DD                 in      a, (PPA_B)
02DF                 rla
02E0                 rla
02E1                 jp      nc, loc_390
02E4                 ld      de, _runDisk1?
02E7
02E7 loc_2E7:                                ; CODE XREF: 0393j
02E7                 push    de; куда передать управление

prepare menu continue

....

0390 ; ---------------------------------------------------------------------------
0390
0390 loc_390:                                ; CODE XREF: 02E1j
0390                 ld      de, loc_423
0393                 jp      loc_2E7
0393 ; ---------------------------------------------------------------------------

0423 ; ---------------------------------------------------------------------------
0423
0423 loc_423:                                ; DATA XREF: loc_390o
0423                 nop
0424                 nop
0425                 nop
0426                 jp      loc_1800


0439 ; ---------------------------------------------------------------------------
0439
0439 _runDisk1?:                             ; CODE XREF: 0440j
0439                                         ; 045Dj
0439                                         ; DATA XREF: ...
0439                 ld      a, 0A0h ; '&#225;'
043B                 out     (50h), a
043D                 call    _dsk_Wait?
0440                 jp      c, _runDisk1?
0443                 ld      a, 23h ; '#'
0445                 out     (50h), a
0447                 ld      hl, byte_A000
044A                 ld      c, 80h ; '&#199;'
044C
044C loc_44C:                                ; CODE XREF: 044Fj
044C                                         ; 0457j
044C                 in      a, (50h)
044E                 rla
044F                 jp      nc, loc_44C
0452                 in      a, (51h)
0454                 ld      (hl), a
0455                 inc     hl
0456                 dec     c
0457                 jp      nz, loc_44C
045A                 call    _dsk_Wait?
045D                 jp      c, _runDisk1?
0460                 jp      byte_A000
0463
0463 ; =============== S U B R O U T I N E =======================================
0463
0463
0463 _dsk_Wait?:                             ; CODE XREF: 043Dp
0463                                         ; 045Ap ...
0463                 in      a, (50h)
0465                 rla
0466                 rla
0467                 rla
0468                 rla
0469                 jp      nc, _dsk_Wait?
046C                 rra
046D                 ret
046D ; End of function _dsk_Wait?
046D
046E ; ---------------------------------------------------------------------------

1800 ; ---------------------------------------------------------------------------
1800 loc_1800:                               ; CODE XREF: 0426j
1800                 ld      a, 0FFh
1802                 out     (20h), a
1804                 out     (21h), a
1806                 out     (22h), a
1808                 out     (23h), a
180A                 out     (28h), a
180C                 out     (29h), a
180E                 out     (2Ah), a
1810                 out     (2Bh), a
1812                 out     (2Ch), a
1814                 out     (2Dh), a
1816                 out     (2Eh), a
1818                 out     (2Fh), a
181A                 ld      a, 0Dh
181C                 out     (24h), a
181E                 out     (25h), a
1820                 ld      a, 7
1822                 out     (26h), a
1824                 ld      a, 0Bh
1826                 out     (27h), a
1828                 ld      a, 0
182A                 out     (38h), a

182C                 ld      hl, _Out12JPHL
182F                 ld      (hl), 0D3h ; '+'
1831                 inc     hl
1832                 ld      (hl), PPA_C
1834                 inc     hl
1835                 ld      (hl), 0E9h ; 'T'
1837                 ld      a, _C6_0
1839                 ld      hl, 4000h
183C                 jp      _Out12JPHL

BA00 ; ---------------------------------------------------------------------------
BA00
BA00 _Out12JPHL:                             ; CODE XREF: 183Cj
BA00                                         ; DATA XREF: 182Co
BA00                 out     (PPA_C), a
BA02                 jp      (hl)

**esl** · 16.01.2011, 15:46

вот _Irisha_Disassm_esl.zipекспортнул из IDA
собственно тут по большому счету только toplevel вызовов приведен в хоть какой-то вид
глубже особо не копал, нужно только если детали выяснять

названия функция по красной книжке, очень похоже на правду
кроме того что в таблице входов ошибка
58: AROMR
5B: CONST
5E: CONIN

а реально

58: CONST
5B: CONIN
5E: AROMR

**esl** · 16.01.2011, 15:55

[QUOTE;350237]но это лишь извлечение из упакованного массива. Т.е. на входе 8-битное число, на выходе 16-битное число из массива, но массив не сплошной, а имеет значения только для определённых индексов.[/QUOTE]

ага. я на это вчера удивленно смотрел

странная идея, как-то очень заумно.

---------- Post added at 14:55 ---------- Previous post was at 14:51 ----------

Сообщение от Viktor2312

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

0x7F9: rtv0687

скорее всего, это код в июне 1987 года написал человек с ником/инициалами RTV
правда это только предположение
и вроде как в списках человека с такими инициалами не заметно

**b2m** · 16.01.2011, 18:30

Сообщение от esl

порты 50/51 это ВГ93?

Нет, это какой-то странный контроллер дисковода.

Сообщение от esl

очень странно выглядит кусок кода loc_1800
инициализация кучи неизвестных портов и сразу передача управления ...

Всё вроде нормально, после инициализации неизвестных портов включается другая раскладка памяти и переход на 4000h, где и должен быть другой драйвер диска. Видимо это ПЗУ было частью контроллера дисковода.

---------- Post added at 20:30 ---------- Previous post was at 19:57 ----------

Сообщение от esl

в зависимости от некого теста выполняются два сильно разных куска кода

Это тест наличия оборудования. В порту С старший бит отвечает за выбор группы устройств, а младшие биты порта В - за наличие(0)/отсутствие(1).

User Tag List

Тема: ПЭВМ "ИРИША"

Опции темы

Отображение

Информация о теме

Пользователи, просматривающие эту тему

Похожие темы

Владельцам ПЭВМ "Байт" и "Байт-01" посвящается...

Кто-нибудь видел БК сделанные на заводах "Мезон" (Кишинев), "Мион" (Тбилиси),"Бином"?

ПЭВМ "Байт" 1991

Arok 2008: "Shepherd's truecolor swings" (riskej), "What da bitch" (SG)

Телевизор "Чайка 61-ТЦ-32ДВ" (3УСЦТ). Ремонт. Подключение "Спектрума" через RGB.

Ваши права