M1      M2      M3      M4      M5      M6      
п
п
п
╕O^лГл(6 ;I N I T ******************************(.proc initrs,2(mov     r12,    r7(mov     *r10+,  r12(ci      r12,    1300h(jeq     $10(sbo     16(sbz     18 $10     mov     *r10+,  r12(sbo     16(sbz     18(mov     r7,     r12(b       *r11( ;V D P B Y T E *************************(.func   vdpbyte,1(mov     *r10+,  r1(swpb    r1(movb    r1,     @8C02h(swpb    r1(movb    r1,     @8C02h(swpb    r1(movb    @8800h, r2(srl     r2,     8(mov     r2,     *r10(b       *r11( ;T E P *********************************(.func tep,2(.def crut,crup,svcur(.ref disp,xbuf,setvdp,kscan,chcnt(.ref xmit,recv,functn,wricur(.ref scrcol,coltbl( init    mov     *r10+,  @crut(mov     *r10+,  @crup(mov     r15,    *r10(dect    r10(mov     r14,    *r10(dect    r10(mov     r13,    *r10(dect    r10(mov     r12,    *r10(dect    r10(mov     r11,    *r10(dect    r10(li      r12,    1F00h(sbz     0(li      r15,    8800h(li      r14,    8C00h(clr     r0(bl      @setvdp(clr     r7 $5      movb    *r15,   @svcur(r7)(inc     r7(ci      r7,     8(jl      $5(mov     @scrcol,r1(mov     r1,     r1(jeq     $10(dec     r1 $10     movb    @coltbl(r1),r1(movb    r1,     @2(r14)(li      r1,     8700h(movb    r1,     @2(r14)(clr     r1(clr     r2(clr     r3(clr     r4(clr     @chcnt(li      r5,     4800h   ;cursor position(bl      @wricur   main    bl      @kscan(movb    r0,     r0      ;if zero no char(jeq     recvch(cb      r0,     @chfunc ;check for function key(jl      $10(bl      @functn(jmp     recvch $10     movb    r0,     @xbuf(r3) ;load into xmit buffer(inc     r3(andi    r3,     1Fh recvch  bl      @recv           ;uart recv buff loaded xmitch  c       r3,     r4      ;fill ptr to empty ptr(jeq     dispch(bl      @xmit         mov     @rscons,@rscnt         bl      @rson dispch  c       r1,     r2      ;chk for empty recv buffer(jeq     $20(mov     @rscons,@rscnt(bl      @rson(bl      @disp(mov     r0,     r0(jne     $20(bl      @wricur $20     c       @rscnt, @nil(jeq     main(c       @rscnt, @one(jne     $30(bl      @rsoff $30     dec     @rscnt(jmp     main  ;R S O N ******************************* rson    li      r12,    1300h(sbo     7(mov     @crut,  r12(b       *r11( ;R S O F F ***************************** rsoff   li      r12,    1300h(sbz     7(mov     @crut,  r12(b       *r11( ;G L O B A L S *************************  crut    .word crup    .word rscnt   .word rscons  .word   60 nil     .word   0 one     .word   1 chfunc  .byte   80h fill4   .byte svcur   .block  8 (.end(