; > ASCII prints all the ASCII characters on the console
;   Uses polling to check UART is free
;
        ORG     O1000
        MOV     #O1000,R6       ; init stack
        MOV     #96,R2          ; set limit - highest possible character
CRLF:   MOV     #13,R1          ; do <CR>
        JSR     R7,@#SND
        MOV     #10,R1          ; do <LF>
        JSR     R7,@#SND
        MOV     #&20,R1         ; space character
LOOP:   JSR     R7,@#SND
        INC     R1
        CMP     R1,R2
        BNE     LOOP
        BR      CRLF
SND:    BIT     @#O177564,#200  ; test CSR - bit7=ready
        BEQ     SND
        MOV     R1,@#O177566    ; send character
        RTS     R7
