URL
https://opencores.org/ocsvn/lattice6502/lattice6502/trunk
[/] [lattice6502/] [ghdl/] [kernel4.asm] - Diff between revs 2 and 7
Show entire file |
Details |
Blame |
View Log
| Rev 2 |
Rev 7 |
| Line 15... |
Line 15... |
|
|
led equ $4007
|
led equ $4007
|
dat232 equ $4000
|
dat232 equ $4000
|
stat232 equ $4001
|
stat232 equ $4001
|
tx232 equ $4000
|
tx232 equ $4000
|
|
irq equ $4002
|
|
nmi equ $4003
|
|
break equ $10
|
|
intrpt equ $04
|
|
|
;dat232 equ $290 ;used to help debug
|
;dat232 equ $290 ;used to help debug
|
;stat232 equ $291
|
;stat232 equ $291
|
;tx232 equ $292
|
;tx232 equ $292
|
|
|
| Line 396... |
Line 400... |
page
|
page
|
code
|
code
|
txt2hex ldy #$0
|
txt2hex ldy #$0
|
sty hexword
|
sty hexword
|
sty hexword + 1
|
sty hexword + 1
|
|
irq equ $4002
|
|
nmi equ $4003
|
|
break equ $10
|
|
intrpt equ $04
|
loophex ldx txtpt
|
loophex ldx txtpt
|
lda inbuff,x ;input buffer
|
lda inbuff,x ;input buffer
|
jsr inctxt ;inc counter
|
jsr inctxt ;inc counter
|
ldy #$0
|
ldy #$0
|
nomatch cmp asctbl,y
|
nomatch cmp asctbl,y
|
| Line 454... |
Line 461... |
asctbl asc "0123456789ABCDEF"
|
asctbl asc "0123456789ABCDEF"
|
code
|
code
|
|
|
page ;All the start up stuff
|
page ;All the start up stuff
|
|
|
nmi_srv lda #"N"
|
nmi_srv lda #$01
|
|
sta nmi
|
|
lda #"N"
|
|
jsr sendtxt
|
|
lda #"M"
|
|
jsr sendtxt
|
|
lda #"I"
|
|
jsr sendtxt
|
|
lda #"\r"
|
jsr sendtxt
|
jsr sendtxt
|
rti
|
rti
|
|
|
irq_srv lda #"I"
|
irq_srv pla
|
|
pha
|
|
and #break
|
|
beq irqish
|
|
lda #"B"
|
jsr sendtxt
|
jsr sendtxt
|
rti
|
lda #"R"
|
|
jsr sendtxt
|
|
lda #"K"
|
|
jsr sendtxt
|
|
lda #"\r"
|
|
jsr sendtxt
|
|
jmp endish
|
|
|
|
|
|
irqish lda #$01
|
|
sta irq
|
|
lda #$01
|
|
sta irq
|
|
lda #"I"
|
|
jsr sendtxt
|
|
lda #"R"
|
|
jsr sendtxt
|
|
lda #"Q"
|
|
jsr sendtxt
|
|
lda #"\r"
|
|
jsr sendtxt
|
|
endish rti
|
|
|
* =$fff0
|
* =$fff0
|
jmp sendtxt ;Links for usrcode
|
jmp sendtxt ;Links for usrcode
|
jmp hex2txt
|
jmp hex2txt
|
dw back2
|
dw back2 ;jmp ($FFF6) in user code.
|
|
|
* = $fff8
|
* = $fff8
|
;
|
;
|
indjmp dw main
|
indjmp dw main
|
nmi dw nmi_srv
|
nmi_int dw nmi_srv
|
rst dw main ;Should be main, this is for test only
|
rst dw main ;Should be main, this is for test only
|
irq dw irq_srv
|
irq_int dw irq_srv
|
irq_int dw irq_srv
|
irq_int dw irq_srv
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.