OpenCores

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

Subversion Repositories tv80

[/] [tv80/] [branches/] [restruc1/] [tests/] [blk_mem_inst.c] - Diff between revs 40 and 43

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 40	Rev 43
Line 36...	Line 36...

`test_ldi_loop:`	`test_ldi_loop:`
`ldi`	`ldi`
`ld a, #0x00`	`ld a, #0x00`
`cp c`	`cp c`
`jp z, test_ldi_loop_exit`	`jp nz, test_ldi_loop`
`cp b`	`cp b`
`jp nz, test_ldi_loop`	`jp nz, test_ldi_loop`

`test_ldi_loop_exit:`
`_endasm;`	`_endasm;`

`rv = 1;`	`rv = 1;`
`for (i=0; i<BUF_SIZE; i++) {`	`for (i=0; i<BUF_SIZE; i++) {`
`if (bufa[i] != bufb[i]) rv = 0;`	`if (bufa[i] != bufb[i]) rv = 0;`
Line 61...	Line 60...

`_asm`	`_asm`
`ld de, #_bufb`	`ld de, #_bufb`
`ld hl, #_bufa`	`ld hl, #_bufa`
`ld bc, #128`	`ld bc, #128`
`dec bc`

`ldir`	`ldir`

`_endasm;`	`_endasm;`

Line 94...	Line 92...

`test_ldd_loop:`	`test_ldd_loop:`
`ldd`	`ldd`
`ld a, #0x00`	`ld a, #0x00`
`cp c`	`cp c`
`jp z, test_ldd_loop_exit`	`jp nz, test_ldd_loop`
`cp b`	`cp b`
`jp nz, test_ldd_loop`	`jp nz, test_ldd_loop`

`test_ldd_loop_exit:`
`_endasm;`	`_endasm;`

`rv = 1;`	`rv = 1;`
`for (i=0; i<BUF_SIZE; i++) {`	`for (i=0; i<BUF_SIZE; i++) {`
`if (bufa[i] != bufb[i]) rv = 0;`	`if (bufa[i] != bufb[i]) rv = 0;`
Line 122...	Line 119...
`ld bc, #127`	`ld bc, #127`
`add hl, bc`	`add hl, bc`
`ex de, hl`	`ex de, hl`
`ld hl, #_bufa`	`ld hl, #_bufa`
`add hl, bc`	`add hl, bc`
	`inc bc`

`lddr`	`lddr`

`_endasm;`	`_endasm;`

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.