     1 000000           ; > ASCII prints all the ASCII characters on the console
     2 000000           ;   Uses polling to check UART is free
     3 000000           ;
     4 000000                   ORG     O1000
     5 001000 012706            MOV     #O1000,R6       ; init stack
     5 001002 001000    
     6 001004 012702            MOV     #96,R2          ; set limit - highest possible character
     6 001006 000140    
     7 001010 012701    CRLF:   MOV     #13,R1          ; do <CR>
     7 001012 000015    
     8 001014 004737            JSR     R7,@#SND
     8 001016 001050    
     9 001020 012701            MOV     #10,R1          ; do <LF>
     9 001022 000012    
    10 001024 004737            JSR     R7,@#SND
    10 001026 001050    
    11 001030 012701            MOV     #&20,R1         ; space character
    11 001032 000040    
    12 001034 004737    LOOP:   JSR     R7,@#SND
    12 001036 001050    
    13 001040 005201            INC     R1
    14 001042 020102            CMP     R1,R2
    15 001044 001373            BNE     LOOP
    16 001046 000760            BR      CRLF
    17 001050 033727    SND:    BIT     @#O177564,#200  ; test CSR - bit7=ready
    17 001052 177564    
    17 001054 000310    
    18 001056 001774            BEQ     SND
    19 001060 010137            MOV     R1,@#O177566    ; send character
    19 001062 177566    
    20 001064 000207            RTS     R7
