URL
https://opencores.org/ocsvn/t48/t48/trunk
Subversion Repositories t48
[/] [t48/] [tags/] [rel_1_0/] [sw/] [verif/] [black_box/] [anld/] [test.asm] - Rev 292
Compare with Previous | Blame | View Log
;; *******************************************************************;; $Id: test.asm,v 1.1 2006-07-11 23:37:31 arniml Exp $;;;; Test ANLD.;; *******************************************************************INCLUDE "cpu.inc"INCLUDE "pass_fail.inc"ORG 0;; Start of test;; port 4mov a, #00fhmovd p4, amov a, #00chanld p4, acpl amovd a, p6xrl a, #00chjnz failmovd a, p4xrl a, #00chjnz failmov a, #003hanld p4, amovd a, p6jnz failmovd a, p4jnz fail;; port 5mov a, #00fhmovd p5, amov a, #003hanld p5, acpl amovd a, p7xrl a, #003hjnz failmovd a, p5xrl a, #003hjnz failmov a, #009hanld p5, amovd a, p7xrl a, #001hjnz failmovd a, p5xrl a, #001hjnz fail;; port 6mov a, #00fhmovd p6, amov a, #005hanld p6, acpl amovd a, p4xrl a, #005hjnz failmovd a, p6xrl a, #005hjnz failmov a, #00ehanld p6, amovd a, p4xrl a, #004hjnz failmovd a, p6xrl a, #004hjnz fail;; port 7mov a, #00fhmovd p7, amov a, #00ahanld p7, acpl amovd a, p5xrl a, #00ahjnz failmovd a, p7xrl a, #00ahjnz failmov a, #00dhanld p7, amovd a, p5xrl a, #008hjnz failmovd a, p7xrl a, #008hjnz failjmp passjmp failpass: PASSfail: FAIL