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

Subversion Repositories blue

[/] [blue/] [trunk/] [blue8/] [intel.asm] - Blame information for rev 4

Go to most recent revision | Details | Compare with Previous | 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
 

Line No.	Rev	Author	Line
1	2	wd5gnr	`#define BLUEMON 1`
2			`#include "blue.inc"`
3
4			`ORG 0x100`
5			`call print_msgcr`
6			`ds "Use Escape to exit\xff"`
7			`toploop:`
8			`call crlf`
9			`lda #'?'`
10			`call printchar`
11			`lda #' '`
12			`call printchar`
13			`call waitcharecho`
14			`cmp escape`
15			`snz`
16			`jmp bluemon`
17			`push`
18			`call crlf`
19			`pop`
20			`push`
21			`call printchar`
22			`lda #'='`
23			`call printchar`
24			`pop`
25			`call hexout2`
26			`jmp toploop`
27
28			`END`
29

Browse

Tools

Subversion Repositories blue

[/] [blue/] [trunk/] [blue8/] [intel.asm] - Blame information for rev 4