URL https://opencores.org/ocsvn/6809_6309_compatible_core/6809_6309_compatible_core/trunk

Subversion Repositories 6809_6309_compatible_core

[/] [6809_6309_compatible_core/] [trunk/] [sim/] [instructions_test.asm] - Diff between revs 4 and 5

Rev 4	Rev 5

`; simple instruction excerciser`	`; simple instruction excerciser`

	`ldd #$AABB`
	`ldx #$1234`
	`ldy #$5678`
	`tfr x,u ; 16 bit transfer`
	`tfr a,u ; high to high`
	`tfr b,u`
	`tfr x,a ; gets high byte`
	`tfr x,b ; gets low byte`


`lda #$02`	`lda #$02`
`ldb #$00`	`ldb #$00`
`sta $0`	`sta $0`
`stb $1`	`stb $1`
`ldx $0 ; load saved value`	`ldx $0 ; load saved value`
`ldy #$0`	`ldy #$0`
`cmpx ,y ; compare`	`cmpx ,y ; compare`
`beq test_push_pull`	`beq test_push_pull`

`error: bra error`	`error: bra error`

`test_push_pull: lds #$00ff`	`test_push_pull: lds #$00ff`
`pshs a,b`	`pshs a,b`
`puls x`	`puls x`
`cmpx ,y ; compare again`	`cmpx ,y ; compare again`
`bne error`	`bne error`

`bsr test_bsr`	`bsr test_bsr`
`bne error ; push/pull with sub don't work`	`bne error ; push/pull with sub don't work`
`lbsr test_lea`	`lbsr test_lea`
`bne error`	`bne error`
`ok: bra ok`	`ok: bra ok`

`test_bsr: pshs y`	`test_bsr: pshs y`
`puls y`	`puls y`
`cmpx 0,y`	`cmpx 0,y`
`rts`	`rts`

`test_lea: leau 1,y`	`test_lea: leau 1,y`
`leay 0,y`	`leay 0,y`
`rts`	`rts`