
Сообщение от
Vamos
проверку на переполнение 12 бит регистра 176570 / 010000
В приложении - тестовая версия загрузчика Boot_RT-11_from_HX0.bin, которая читает байты из порта так:
Код:
B.ChIn:
Clr R5 ; R5 = Timeout count
In.Try:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
BiT #10000, @#TKS ; Overrun bit test
BEq 1$ ; 1801VP1-035 -065 ==> ONLY <==
Mov #Overrun, (SP) ;
RtI ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1$:
TstB @#TKS
BMi In.OK
SOB R5, In.Try
Mov #BadPak, (SP)
RtI
In.OK:
Clr R5
BiSB @#TKB, R5
Add R5, R0
RtI