Subversion Repositories blue

        /* Now C comments work too but don't show in list */


#include "blue.inc"     


;; This tests the indexing
;; by using index to point to the UART in some way
        ORG 0
start0: DEFSTACK
        call print_msg           
        ds "BLUE: \r\n"
        dw 0xffff 
        

start:  ldx uart                ; contrived: use index register to uart
        LDIM('0',var)
loop:           
        call xmitwait           ; wait for transmit ready
        lda var
        stax 1                  ; write and recycle if necessary        
        cmp nine
        snz
        lda zero
        inca
        sta var
        call waitchar
        lda var
        jmp loop

var:    DW 0
zero:   DW 0x002F
nine:   DW 0x0039       
tmask:  DW 0x7FFF
        ds 'Test single'
        ds "Test double"
        ds '\r\n'
        dw 'A'                  ; test
        dw 'XY'                 ; test

#include "syslib.inc"   

        END