
Сообщение от
AFZ
А еще возможно, что вот та самая проверка на возврат звездочки - это не тест, а обход тормозного запуска КЦГД
У нас тут одни, блин, Ванги собрались. Тогда провангуй вот этот код
Код:
..............................................................................
;
; Проверка - не замкнут ли вход на выход консоли
;
; Флаг TSTMOD - TVKBNC - не замкнут
; TVKBC - замкнут
;
PROCEDURE CLUPBC
BEGIN
THRU R2 := #0
TSTB @#TPS ; выход консоли готов?
IF RESULT IS MI LEAVE LOOP ; MI, если да
END ; продолжаем ждать
LET @#TPB := #ASTER ; попробуем послать *
THRU R2 := #0 ;
TSTB @#TKS ; вход консоли готов?
BMI 50$ ; MI, если да
END ; продолжаем ждать
40$:
LET @#TSTMOD := #TVKBNC ; выход на выход НЕ замкнут
BR 60$
50$:
CMP #ASTER,@#TKB ; прилетела * ?
BNE 40$ ; нет
LET @#TSTMOD := #TVKBC ; выход на выход НЕ замкнут
60$:
RETURN
END CLUPBC
134 прошивка, с адреса 012556