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

Subversion Repositories blue

[/] [blue/] [trunk/] [blue8/] [intel.asm] - Rev 3

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

#define BLUEMON 1
#include "blue.inc"
                        
     ORG 0x100
        call print_msgcr
        ds "Use Escape to exit\xff"
toploop:
        call crlf
        lda #'?'   
        call printchar
        lda #' '
        call printchar
        call waitcharecho
        cmp escape
        snz
        jmp bluemon
        push
        call crlf
        pop
        push
        call printchar
        lda #'='
        call printchar
        pop
        call hexout2
        jmp toploop
        
        END

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

Browse

Tools

Subversion Repositories blue

[/] [blue/] [trunk/] [blue8/] [intel.asm] - Rev 3