OpenCores
URL https://opencores.org/ocsvn/blue/blue/trunk

Subversion Repositories blue

[/] [blue/] [trunk/] [blue8/] [itest.asm] - Rev 4

Go to most recent revision | Compare with Previous | Blame | View Log

        /* 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

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.