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

Subversion Repositories socgen

[/] [socgen/] [trunk/] [Projects/] [opencores.org/] [Mos6502/] [sw/] [io_poll_2/] [io_poll_2.asm] - Blame information for rev 131

Details | Compare with Previous | View Log


 
   include  ../io_module/io_module.asm
 
 
 
             * = $ff00  ; assemble start
               code
 
.start             nop
                   ldx #00
                   ldy #00
                   lda io_base+io_gpio_0
                   sec
                   adc #00
                   sta io_base+io_gpio_0
                   lda io_base+io_gpio_0
                   sec
                   adc #00
                   sta io_base+io_gpio_0
 
 
 
 
                   lda #$c0
                   sta io_base+io_uart_cnt
                   lda #$42
                   sta io_base+io_uart_xmt
 
.lab_80            lda io_base+io_pic_int
                   sta io_base+io_gpio_1
                   and #$04
                   beq .lab_80
                   lda io_base+io_uart_rcv
                   sec
                   adc #01
                   sta io_base+io_uart_xmt
                   inc io_base+io_gpio_0
                   jmp .lab_80
 
 
 
 
.irq_vec           pha
                   txa
                   tax
                   pla
                   rti
 
.nmi_vec           pha
                   pla
                   rti
 
             * = $fffa  ; vectors
 
 
     dw .nmi_vec               ;
     dw .start                 ;
     dw .irq_vec               ;
 
 code
 
 
 
 
 
 

Line No.	Rev	Author	Line
1	131	jt_eaton
2			`include ../io_module/io_module.asm`
3
4
5
6			`* = $ff00 ; assemble start`
7			`code`
8
9			`.start nop`
10			`ldx #00`
11			`ldy #00`
12			`lda io_base+io_gpio_0`
13			`sec`
14			`adc #00`
15			`sta io_base+io_gpio_0`
16			`lda io_base+io_gpio_0`
17			`sec`
18			`adc #00`
19			`sta io_base+io_gpio_0`
20
21
22
23
24			`lda #$c0`
25			`sta io_base+io_uart_cnt`
26			`lda #$42`
27			`sta io_base+io_uart_xmt`
28
29			`.lab_80 lda io_base+io_pic_int`
30			`sta io_base+io_gpio_1`
31			`and #$04`
32			`beq .lab_80`
33			`lda io_base+io_uart_rcv`
34			`sec`
35			`adc #01`
36			`sta io_base+io_uart_xmt`
37			`inc io_base+io_gpio_0`
38			`jmp .lab_80`
39
40
41
42
43			`.irq_vec pha`
44			`txa`
45			`tax`
46			`pla`
47			`rti`
48
49			`.nmi_vec pha`
50			`pla`
51			`rti`
52
53			`* = $fffa ; vectors`
54
55
56			`dw .nmi_vec ;`
57			`dw .start ;`
58			`dw .irq_vec ;`
59
60			`code`
61
62
63
64
65
66

Browse

Tools

Subversion Repositories socgen

[/] [socgen/] [trunk/] [Projects/] [opencores.org/] [Mos6502/] [sw/] [io_poll_2/] [io_poll_2.asm] - Blame information for rev 131