URL
https://opencores.org/ocsvn/t400/t400/trunk
Subversion Repositories t400
[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [xas/] [test.asm] - Rev 179
Compare with Previous | Blame | View Log
;; *******************************************************************;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $;;;; Checks the XAS instruction.;;;; the cpu type is defined on asl's command lineorg 0x00clra;; *******************************************************************;; Test counter functionality;;lei 0x5;; enable counterclracamq;; clear SKLxasnop ; spend some time to let effect of SKLnop ; falling edge pass bynop ;;; -------------------------------------------------------------------;; step 1;; decrement counter from 1 to 0;; test SO by controlling SI via SO;;;; load 0x1 to counterclraaisc 0x1xas;; decrement via SOlei 0xdnop ; ensure minimum '1' durationlei 0x5nop ;nop ; ensure minimum '0' durationnop ;xas;; check for 0x0xad 3, 15clrax 0xad 3, 15skejmp fail;; -------------------------------------------------------------------;; step 2;; decrement counter from 0 to 0xf;; test SKL by controlling SI via SK;;;; set SKL to '1'sc ; SKL = '1'xas;; load 0x0 to counter, decrement via SKclrarcxasnop ;nop ; ensure minimum '0' durationnop ;xas;; check for 0xfxad 3, 15clraaisc 0xfx 0xad 3, 15skejmp fail;; -------------------------------------------------------------------;; step 3;; check minimum high time on SI;;;; load 0x0 to counterclraxas;; clock on SIlei 0xdlei 0x5 ; high time too shortnop ;nop ; ensure minimum '0' durationnop ;xas;; check for 0x0xad 3, 15clrax 0xad 3, 15skejmp fail;; -------------------------------------------------------------------;; step 4;; check minimum low time on SI;;;; load 0x0 to counterclraxas;; clock on SIlei 0xdnop ; ensure minimum '1' durationlei 0x5lei 0xd ; low time too shortxas;; check for 0x0xad 3, 15clrax 0xad 3, 15skejmp fail;; *******************************************************************;; Test shift register functionality;;lei 0xc ; SO = SIO output;; enable shift registeraisc 0x1camq;; shift out 0x5aisc 0x4scxas;;nop ;nop ; shift for four clocks on SKrc ;xas ; stop SK;; check for 0x2xad 3, 15clraaisc 0x2x 0xad 3, 15skejmp fail;; shift out 0x0clrascxas;;nop ;nop ; shift for four clocks on SKrc ;xas ; stop SK;; check for 0x8xad 3, 15clraaisc 0x8x 0xad 3, 15skejmp fail;; now disable SO and check that only '0' is shifted inlei 0x4 ; SO = '0';; shift out 0xfclraaisc 0xfscxas;;nop ;nop ; shift for four clocks on SKrc ;xas ; stop SK;; check for 0x0xad 3, 15clrax 0xad 3, 15skejmp fail;; enable SOlei 0xc;; shift out 0x1 to force SI to '1' via SOclraaisc 0x1scxas;;nop ;nop ; shift for four clocks on SKrc ;xas ; stop SK;; shift out 0x0 with disabled SKclraxas;;nop ;nop ; shift for four clocks on SKnop ;xas;; check for 0xfxad 3, 15clraaisc 0xfx 0xad 3, 15skejmp failjmp passorg 0x100include "pass_fail.asm"