URL
https://opencores.org/ocsvn/t48/t48/trunk
Subversion Repositories t48
[/] [t48/] [tags/] [rel_0_2_beta/] [sw/] [verif/] [black_box/] [movp/] [test.asm] - Rev 252
Go to most recent revision | Compare with Previous | Blame | View Log
;; *******************************************************************
;; $Id: test.asm,v 1.1.1.1 2004-03-25 22:29:18 arniml Exp $
;;
;; Test MOVP A, @ A and MOVP3 A, @ A.
;; *******************************************************************
INCLUDE "cpu.inc"
INCLUDE "pass_fail.inc"
table MACRO data
DB data & 0FFH
ENDM
ORG 0
;; Start of test
mov r1, #008H
loop: mov a, r1
dec a
call fetch_table1
mov r0, a
mov a, r1
dec a
call fetch_table3
add a, r0
cpl a
jnz fail
djnz r1, loop
pass: PASS
fail: FAIL
ORG 0100H
db 0AFH
db 033H
db 0C0H
db 012H
db 055H
db 061H
db 02BH
db 0F4H
fetch_table1:
movp a, @a
ret
fetch_table3:
movp3 a, @a
ret
ORG 0300H
db 050H
db 0CCH
db 03FH
db 0EDH
db 0AAH
db 09EH
db 0D4H
db 00BH
Go to most recent revision | Compare with Previous | Blame | View Log