O^кики(.proc sendch,2(mov     r12,    r7(mov     *r10+,  r12(mov     *r10+,  r0(sla     r0,     8 $10     tb      22(jne     $10(ldcr    r0,     8(mov     r7,     r12(b       *r11( (.func getch,1(.ref kscan(mov     r12,    r7(mov     *r10+,  r12(mov     r11,    *r10(li      r2,     3000h(clr     r0 $10     tb      21(jne     $20(stcr    r0,     8(sbz     18(srl     r0,     8 $15     mov     r7,     r12(mov     *r10,   r11(mov     r0,     *r10(b       *r11 $20     bl      @kscan(cb      r0,     @quit(jne     $30(li      r0,     257(jmp     $15 $30     dec     r2(mov     r2,     r2(jne     $10(li      r0,     256(jmp     $15 quit    .byte   8Fh nak     .byte   21(       (.func putbuf,3(.public rec(.ref kscan(mov     r12,    @r12sv(li      r12,    1300h(sbo     7(mov     *r10+,  r12(mov     *r10+,  r0(mov     *r10+,  r1(mov     r11,    *r10(a       r0,     r1(mov     r1,     @savbuf(li      r0,     0100h $10     tb      22(jne     $10(ldcr    r0,     8(mov     @rec,   r0(sla     r0,     8 $20     tb      22(jne     $20(ldcr    r0,     8(inv     r0 $30     tb      22(jne     $30(ldcr    r0,     8(clr     r3(clr     r2 $40     tb      22(jeq     $50(bl      @kscan  (cb      r0,     @quit(jne     $40(li      r0,     12(jmp     out $50     ldcr    *r1,    8(movb    *r1+,   r0(srl     r0,     8(a       r0,     r3(andi    r3,     00FFh(inc     r2(ci      r2,     128(jne     $40         sla     r3,     8 $60     tb      22(jne     $60         ldcr    r3,     8(li      r2,     3000h $70     tb      21(jeq     $80(bl      @kscan(cb      r0,     @quit(jne     $75(li      r0,     12(jmp     out $75     dec     r2(mov     r2,     r2(jne     $70(li      r0,     13(jmp     out $80     stcr    r0,     8         sbz     18(cb      r0,     @ack(jne     $85(clr     r0(jmp     out $85     cb      r0,     @nak(jne     $90(li      r0,     1(jmp     out $90     cb      r0,     @can(jne     $70(li      r0,     11 out     li      r12,    1300h(sbz     7(mov     *r10,   r11(mov     r0,     *r10(mov     @r12sv, r12(b       *r11  r12sv   .word savbuf  .word ack     .byte 6 nak     .byte 21 can     .byte 24 quit    .byte 8Fh  (.func getbuf,3(.public rec,timer(.ref kscan(mov     r12,    @r12sv(li      r12,    1300h(sbo     7(mov     *r10+,  r12(mov     *r10+,  r0(mov     *r10+,  r1(mov     r11,    *r10(a       r0,     r1(mov     r1,     @savbuf(sbz     20(sbo     13(li      r0,     0FF00h(ldcr    r0,     8(clr     r2 loop    bl      @kscan(cb      r0,     @quit(jne     chr(li      r0,     12 out     mov     *r10,   r11(li      r12,    1300h(sbz     7(mov     @r12sv, r12(mov     r0,     *r10(b       *r11 chr     tb      21(jne     tim         stcr    r0,     8         sbz     18(cb      r0,     @can(jne     $10(li      r0,     11(jmp     out $10     cb      r0,     @eot(jne     $20(li      r0,     10(jmp     out $20     cb      r0,     @soh(jeq     start tim     tb      25(jne     loop(sbz     20(inc     r2(c       r2,     @timer(jne     loop(li      r0,     13(jmp     out  can     .byte   24 soh     .byte   1 eot     .byte   4 ack     .byte   6  start   seto    r3(bl      @rech(movb    r0,     r3(clr     r4(bl      @rech(movb    r0,     r4(clr     r6(clr     r2 $10     bl      @rech(movb    r0,     *r1+(srl     r0,     8(a       r0,     r6(andi    r6,     00FFh(inc     r2(ci      r2,     128(jne     $10(bl      @rech(srl     r0,     8(c       r0,     r6(jeq     $15(li      r1,     1(jmp     $40 $15     clr     r1(inv     r4(c       r3,     r4(jeq     $20(li      r1,     3         jmp     $40 $20     srl     r3,     8(c       r3,     @rec(jeq     $40(inc     r3(c       r3,     @rec(jeq     $30(li      r1,     4(jmp     $40 $30     li      r1,     2 $40     mov     *r10,   r11(mov     r1,     *r10(li      r12,    1300h(sbz     7(mov     @r12sv, r12(b       *r11(( rech    dect    r10(mov     r11,    *r10(li      r5,     3000h $5      tb      21(jeq     $20         dec     r5(mov     r5,     r5(jne     $10(li      r0,     13         jmp     $15 $10     bl      @kscan(movb    r0,     r0(jeq     $5(cb      r0,     @quit(jne     $5(li      r0,     12 $15     inct    r10(mov     *r10,   r11(li      r12,    1300h(sbz     7(mov     @r12sv, r12(mov     r0,     *r10(b       *r11 $20     stcr    r0,     8(sbz     18 $30     mov     *r10+,  r11(b       *r11( quit    .byte   8Fh f       .byte r12sv   .word savbuf  .word(.end