Подмена другим устройством B:

           ;Эмуляция B:
           MOV   #TXT,R1
           CLR   R2
           EMT   20
1:         EMT   6
           CMPB  R0,#3
           BEQ   1EXIT
           CMPB  R0,#101
           BLOS  1
           CMPB  R0,#200
           BHIS  1
           EMT   16
           SUB   #101,R0
           MOV   R0,DRV
           MOV   #NAC,R1
           MOV   #CON,R2
           MOV   #170000,R3
           MOV   R3,@#175776
2:         MOV   (R1)+,(R3)+
           CMP   R2,R1
           BHIS  2
           MOV   #TXT2,R1
           CLR   R2
           EMT   20
           EMT   6
1EXIT:     RET
NAC:       NOP
           BR    222
           BR    EM6
  ;        CMPB  34(R3),#'B-101
  ;        BNE   1
           CCC
           RET
222:       CMPB  34(R3),#'B-101
           BNE   1
           MOVB  DRV,34(R3)
           ADD   #6,@SP
           JSR   PC,@(SP)+
           MOVB  #'B-101,34(R3)
           CCC
           RET
1:
A1:         ADD   #6,@SP
           RET
EM6:
;          CMPB  34(R3),#'B-101
;          BNE   A1
           PUSH  34(R3)
           PUSH  32(R3)
           PUSH  30(R3)
           PUSH  26(R3)
           CMPB  34(R3),#'B-101
           BNE   121
           MOVB  DRV,34(R3)
121:       CLR   R0
           MOVB  60(R3),R2
           MOVB  33(R3),R1
           BEQ   1$
           ADD   R2,R0
           ADD   R2,R0
           SOB   R1,.-4
1$:        TSTB  32(R3)
           BEQ   1
           ADD   R2,R0
1:         MOVB  35(R3),R1
           DEC   R1
           ADD   R1,R0
           MOV   26(R3),R2
           MOV   30(R3),R1
           CALL  @#160004
           CMPB  DRV,34(R3)
           BNE   122
           MOVB  #'B-101,34(R3)
122:       POP   26(R3)
           POP   30(R3)
           POP   32(R3)
           POP   34(R3)
           CCC
           RET

DRV:       .WORD 0
CON:
TXT:       .ASCIZ <232>/
                 /<234>/EM_B: для контроллера /<234>/
                 /<234>/ ALTpro  /<234>/
                 /<234>/(C) RSC, 1996-2002/<234>/

Введи устройство: /
TXT2:      .ASCIZ /
Драйвер установлен/
           .EVEN
.END