URL
https://opencores.org/ocsvn/t400/t400/trunk
Subversion Repositories t400
[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [xabr/] [test.asm] - Rev 179
Compare with Previous | Blame | View Log
;; *******************************************************************;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $;;;; Checks the XABR instruction.;;;; the cpu type is defined on asl's command lineorg 0x00clra;; preload digit 0 of all registers with different datalbi 0, 0stii 0x4stii 0x0 ; register numberlbi 1, 0stii 0x5stii 0x1 ; register numberlbi 2, 0stii 0x6stii 0x2 ; register numberlbi 3, 0stii 0x7stii 0x3 ; register number;; *******************************************************************;; check Br -> A path of XABR;;lbi 0, 0xabrlbi 0, 1ske ; check against preloaded register numberjmp fail;;lbi 1, 0xabrlbi 1, 1ske ; check against preloaded register numberjmp fail;;lbi 2, 0xabrlbi 2, 1ske ; check against preloaded register numberjmp fail;;lbi 3, 0xabrlbi 3, 1ske ; check against preloaded register numberjmp fail;; *******************************************************************;; check A -> Br path of XABR;;lbi 0, 0 ; set Bd;; check for Br = 3clraaisc 0x3xabr;; expect 0x7 @ 3, 0clraaisc 0x7skejmp fail;; check for Br = 2clraaisc 0x2xabr;; expect 0x6 @ 2, 0clraaisc 0x6skejmp fail;; check for Br = 1clraaisc 0x1xabr;; expect 0x5 @ 1, 0clraaisc 0x5skejmp fail;; check for Br = 0clraxabr;; expect 0x4 @ 0, 0clraaisc 0x4skejmp failjmp passinclude "pass_fail.asm"