URL
https://opencores.org/ocsvn/t48/t48/trunk
Subversion Repositories t48
[/] [t48/] [tags/] [rel_1_1/] [sw/] [verif/] [black_box/] [orld/] [test.asm] - Rev 292
Compare with Previous | Blame | View Log
;; *******************************************************************;; $Id: test.asm,v 1.1 2006-07-11 23:42:19 arniml Exp $;;;; Test ORLD.;; *******************************************************************INCLUDE "cpu.inc"INCLUDE "pass_fail.inc"ORG 0;; Start of test;; port 4mov a, #000hmovd p4, amov a, #001horld p4, acpl amovd a, p6xrl a, #001hjnz failmovd a, p4xrl a, #001hjnz failmov a, #00ehorld p4, amovd a, p6xrl a, #00fhjnz failmovd a, p4xrl a, #00fhjnz fail;; port 5mov a, #000hmovd p5, amov a, #006horld p5, acpl amovd a, p7xrl a, #006hjnz failmovd a, p5xrl a, #006hjnz failmov a, #003horld p5, amovd a, p7xrl a, #007hjnz failmovd a, p5xrl a, #007hjnz fail;; port 6mov a, #000hmovd p6, amov a, #009horld p6, acpl amovd a, p4xrl a, #009hjnz failmovd a, p6xrl a, #009hjnz failmov a, #006horld p6, amovd a, p4xrl a, #00fhjnz failmovd a, p6xrl a, #00fhjnz failjmp pass;; port 7mov a, #000hmovd p7, amov a, #004horld p7, acpl amovd a, p5xrl a, #004hjnz failmovd a, p7xrl a, #004hjnz failmov a, #00ahorld p7, amovd a, p5xrl a, #00ehjnz failmovd a, p7xrl a, #00ehjnz failjmp passjmp failpass: PASSfail: FAIL