| f& Texas iNSiraJMENTS | ///. Интерфейс с внешними устройствами | |||
| ; под счётчик | ||||
| CALL | #blkr | |||
| POP | R1C | ; переместить счётчик | ||
| ; в R10 | ||||
| ADD | #06h, | SP | ||
| POP | R9 | ; читать из стека код | ||
| ; ошибки | ||||
| CMP | #00h, | R9 | ||
| JZ | error | ; ошибочное завершение - |
; вызов обработчика ; ошибок
| PUSH | SR |
| PUSH | R7 |
| PUSH | R8 |
| PUSH | R9 |
| PUSH | R14 |
| PUSH | R15 |
| PUSH | R1C |
| PUSH | Rll |
| PUSH | R12 |
| PUSH | R13 |
| MOV. В | #00h, Rib | циклический байтовый |
| счётчик | ||
| MOV. В | 26 (SP), R8 | параметр команды |
| MOV. В | 28 (SP), R7 | параметр адреса |
| MOV | 24 (SP), R9 | стартовый адрес блока |
| CALL | #sbit | отправить стартовую |
| посылку и адрес | ||
| CALL | tsendzero | отправить «0» для |
| записи | ||
| CALL | #ack | ждём подтверждения |
| (АСК) | ||
| CALL | #sbyte | отправить код команды |
| CALL | #ack | ждём подтверждения |
| (АСК) | ||
| CALL | #rsbit | отправить повторяющие |
| ся стартовую посылку | ||
| и адрес | ||
| CALL | #sendone | отправить «1» для |
| чтения | ||
| CALL | #ack | ждём подтверждения |
| (АСК) |
CALL #rbyte