Вид для печати
О, нет. Заглянул точно не один. Я ж еще когда удивился похожести макропрограммирования на бейсико-паскалевую смесь (сам то я родом из масмов-тасмов-турбодебаггеров, там это несколько иначе выглядит). Потом, тема все равно на форуме останется, другим ценителям ВМ1,2,3 тоже будет интересно глянуть на поток реверсерской мысли.
Ну и писал бы сразу по-человечески.Цитата:
Сообщение от Hunta
И что тут военного? Посылаем звездочку, ждем ее возврата, проверяя готовность приемника. Дождавшись, вернем в переменной TSTMOD код TVKBC Если за 65536 проверок готовность не появится, вернем код TVKBNC. Скорее всего, вызывающая программа в цикле вызывает эту программу, смотрит эту TSTMOD и ждет, пока она не станет TVKBNC. Как-то так... А 6105 в это время прогревает катод.Цитата:
Сообщение от Hunta
Я Вас и имел ввиду. Судя по тому, что вопрос возник через десяток сообщений после моего о том, что выложил... А потом как то никто не удивлялся - или все заинтересованные видели этот вопрос и ответ или....Цитата:
Сообщение от Korchagin
Кто-то в DEC нарисовал набор макросов (и даже как минимум в одной из системных программ они были использовано), я после появления у меня Квант-а слегка поковырялся, даже начал использовать и слегка подрихтовал под Modula-2 подобность. Ну, а когда начал дизассемблить 134 долго парился с отслеживанием всех этих переходов и меток, а потом вспомнил, попробовал - и на удивление быстро причесал код. По крайне мере теперь стало гораздо меньше локальных меток (то есть тех, на которые идёт переход из одного двух мест) и стало гораздо проще логику ловить. Но из за работы как режиме halt, так и в обычном режиме - всё равно голову ещё приходится ломать..
В целом - писать с их использованием проще (хотя надо почувствовать и знать возможные варианты написания - до сих пор в исходники подглядываю) и с учётом некоей высокоуровневости кода - проще понимать (особенно знакомым с Паскалем), но с учётом того, что это всё равно транслируется ассемблером - на вложенных (по крайне мере) IF-ах получаются лишние BR-анчи. И как минимум пару ошибок в макросах - например, оператор ELSEIF (или ELSIF - не помню, как макрос назвали) есть, но код генерится неправильный. И ещё какую то ошибку находил...
Скорей посмотреть - а что там в ПЗУ-ах делается...Цитата:
Сообщение от Korchagin
- - - Добавлено - - -
Я взял кусок кода из дизассмеблированной 134-ой.Цитата:
Сообщение от AFZ
А теперь после этого "замечательного гадания" смотрим на этот кодЦитата:
Сообщение от AFZ
и на этот кодКод:..............................................................................
;
;
;
PROCEDURE L06006
BEGIN
IF @#PWRUP EQ #123456 THEN
CALL L13316
JUMPTO L02152
END
; Интересный вариант повтора после определения замкнутости входа на выход :)
LOOP
IF @#TSTMOD EQ #TVKBC THEN ; вход на выход замкнут ?
IF @#HV002 NE #0 THEN
LET @#HV002 := #0
LET @#HV154 := R2
CALL TEST4 ; T4
END
LET @#HV160 := @#HV160 + #1
LET @#HV156 := #0
CALL L12556
LET @#PWRUP := #0 ; вечное включение питания
JUMPTO TEST0 ; T0 и возврат в эту процедуру
END
IF @#TSTMOD EQ #TVKBNC THEN ; вход на выход НЕ замкнут ?
LET @#PWRUP := #123456 ; все, питание включено
JUMPTO TEST0 ; однократный прогон T0 и в пульт
END
; А ещё не знаем, поэтому - на определение
CALL CLUPBC
LET @#HV154 := #0
LET @#HV160 := #0
LET @#HV002 := #0
END
END L06006
LPB, если что - это регистр принтера, тот, который буфер для печатаемого байтаКод:..............................................................................
;
;
;
PROCEDURE L12556
BEGIN
IF #TVKBNC NE @#TSTMOD THEN
IF @#HV160 GE #20
LET @#HV160 := #1
END
LET R2 := @#HV156 + @#HV160 + @#HV050
LET @#LPB := R2
END
RETURN
END L12556
- - - Добавлено - - -
- - - Добавлено - - -
Каким образом символ, посланный на для вывода на экран - прилетит через входной регистр клавиатуры, а?Цитата:
Сообщение от AFZ
- - - Добавлено - - -
То есть выводы делаем даже не заглянув в код ПЗУ. По всей видимости.Цитата:
Сообщение от AFZ
Мои то (возможные) ошибки хоть каким то кодом подкреплены...
Скорее всего, 181/182 первым делом настраивают этот возврат - разреши прерывания от приемной половины -065, получив его, перешли код из приемного регистра =065 в передающий. Далее инитим все, что надо, в конце подключаем нормальную работу с приемом/передачей. Может быть, КЦГД еще что-то высылает, по окончании своей инициализации, отличное от звездочки - тогла вообще почти все сходится.Цитата:
Сообщение от Hunta
Проверить это можно достаточно просто - накидай по-быстрому на писюке свой мини-терминал, который раз 100-1000 вернет полученную звездочку и только после этого начнет работать нормально.
- - - Добавлено - - -
В общем-то это правильно икс его три, сколько времени будет инититься этот КЦГД ? А первые три теста пролетят с гарантией быстрее, и что будет на экране? Правильно, обрезанная строка "Доступное ОЗУ" Чтобы этого не было, в 134-ю прикрутили своего рода синхронизацию с КЦГД, точнее, ожидание его готовности. А, чтобы оно могло работать не только с КЦГД, сделали такую смешную проверку.
Это вывод на основании анализа кода 181 прошивки? (которая стоит у меня)Цитата:
Сообщение от AFZ
Это вывод на основании анализа кода 181 прошивки?Цитата:
Сообщение от AFZ
Ради интереса, я пробежался по коду инициализации 181 прошивки в том дизассемблированном варианте, который у меня есть. Я не увидел ничего (вполне мог пропустить), что бы подтверждало эти гадания.
Проверить это можно гораздо проще - выкинув КЦГД, переключив второй порт на адреса консоли у .04, подключив принтер и замкнув вход второго порта на выход.Цитата:
Сообщение от AFZ
Те, кто используют PC-юк в качестве консоли - могут сделать это очень быстро. Мне надо восстановить шлейф принтера - возможно, доберусь в выходные.
Нет, конечно. Это как я стал бы решать эту проблему, столкнувшись с пропаданием части начальной строки.Цитата:
Сообщение от Hunta
Кстати, ещё не доказано, что она не пропала. Эмулятор Патрона - это догадки и подгонка, у MiX-а нажатие на кнопку УСТ - и показ текущего значения PC - 4 (это код вылетела на вектора, что ли?) - в отличии от моего варианта - когда видно, что программа была прервана в недрах halt пзу, конкретно вот это место:Цитата:
Сообщение от AFZ
Код:1655 004622 ..............................................................................
1656 ;
1657 ;
1658 ;
1659 004622 PROCEDURE KBIN
004622 KBIN:
1660 004622 BEGIN
1661 004622 REPEAT
004622 1001$:
1662 004622 UNTILB @#TKS MI #0
004622 105737 177560 TSTB @#TKS
004626 100375 BPL 1001$
004630 1002$:
1663
1664 004630 LET R4 := @#TKB OFF.BY #^C<177>
004630 013704 177562 MOV @#TKB, R4
004634 042704 177600 BIC #^C<177>, R4
1665
1666 004640 RETURN
004640 000207 RTS PC
1667 004642 END KBIN
Я не гадаю на кофейной гуще - я дизассемблировал прошивку и смотрю, что в коде. Ещё и прошью свою прошивку, что бы можно было уточнять мутные места. Ну и в выходные постараюсь провести натурные испытания, если принтер ещё живЦитата:
Сообщение от AFZ
Надо ещё учитывать что режим старта у каждого разный (переключатели, перемычки).Цитата:
Сообщение от Hunta
Сфоткать плату можно, так что бы были видны переключатели?
SA2Цитата:
Сообщение от Hunta
1-1
2-1
3-0
4-0
5-0
6-1
7-1
8-0
SA1
все-0
Первые считаются от краевого разъёма.