///. Интерфейс с внешними устройствами
MOV.В R7, Rll ashift RLA.B Rll
MOV.В Rll, R12
AND.В #080h, R12
CMP.В #00h, R12
JNZ one
CALL Isendzero
JMP zero
one CALL #sendone
zero DEC R13
JNZ ashift
RET *********************************
; подтверждение (АСК) не принято, ; и busy
sbusy |
CALL #pbit ADD #02h, SP
MOV. В | #00h, 28 (SP) |
POP | R13 |
POP | R12 |
POP | Rll |
POP | RIO |
POP | R15 |
POP | R14 |
POP | R9 |
POP | R8 |
POP | R7 |
POP | SR |
RET |
копировать адрес в Rll сдвиг влево, при этом СЗР 7-битного адреса будет находиться на 7-й позиции скопировать его для возможности маскирования без потери данных маскировать все биты кроме СЗР сравнить с С
отправить «1»
отправить «О» декремент счётчика если счётчик <7 бит, повторить сдвиг
********************* отправить STOP
********************* отправить STOP и busy удалить данные из стека, так как инструкция RET не использовалась ; код ошибки восстановление регистров
.******************************** ■ Обработка занятости системы
*********************