Subversion Repositories w11

; $Id: simple_echo.mac 504 2013-04-13 15:37:24Z mueller $
;
; simple echo test for DL11 interface
;
        RCSR = 177560
        RBUF = 177562
        XCSR = 177564
        XBUF = 177566
;
        CR = 015
        LF = 012
;
; transfer vector
;
        .asect
        . = 200
        jmp     start
;
; test code
;
        . = 1000
;
start:  mov     #start,sp
;
1$:     tstb    @#RCSR          ; input ready ?
        bpl     1$              ; if not poll
        movb    @#RBUF,r0       ; get input char
2$:     tstb    @#XCSR          ; output ready ?
        bpl     2$              ; if not poll
        movb    r0,@#XBUF       ; echo received char
        cmpb    #CR,r0          ; was it CR ?
        bne     1$              ; if not, wait for next input
3$:     tstb    @#XCSR          ; output ready ?
        bpl     3$
        movb    #LF,@#XBUF      ; send LF
        br      1$
;
        .end