URL
https://opencores.org/ocsvn/t400/t400/trunk
Subversion Repositories t400
[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [xis/] [test.asm] - Rev 179
Compare with Previous | Blame | View Log
;; *******************************************************************;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $;;;; Checks the XIS instruction.;;;; the cpu type is defined on asl's command lineorg 0x00clra;; *******************************************************************;; XOR 0jsr init_ram;; xor 0 in digit 0lbi 0, 14;;cbacompxis 0 ; 0, 0xe = 0x1;;cbacompxis 0 ; 0, 0xf = 0x0jmp fail;; xor 0 in digit 1lbi 1, 14;;cbacompaisc 1 << 2xis 0 ; 1, 0xe = 0x5;;cbacompaisc 1 << 2xis 0 ; 1, 0xf = 0x4jmp fail;; xor 0 in digit 2lbi 2, 14;;cbacompaisc 2 << 2xis 0 ; 2, 0xe = 0x9;;cbacompaisc 2 << 2xis 0 ; 2, 0xf = 0x8jmp fail;; xor 0 in digit 3lbi 3, 14;;cbacompaisc 3 << 2xis 0 ; 3, 0xe = 0xd;;cbacompaisc 3 << 2xis 0 ; 3, 0xf = 0xcjmp failjsr check_ram;; *******************************************************************;; XOR 1jsr init_ram;;;; xor 1 in digit 0 & 1;;lbi 0, 14;;cbacompxis 1 ; 0, 0xe = 0x1;;cbacompaisc 1 << 2xis 1 ; 1, 0xf = 0x4jmp fail;; check remaining Br == 0clracabaisc 0x3 ; marker valueskejmp fail;; reload to Br = 1lbi 1, 14;;cbacompaisc 1 << 2xis 1 ; 1, 0xe = 0x5;;cbacompxis 1 ; 0, 0xf = 0x0jmp fail;; check remaining Br == 1clracabaisc 0x7 ; marker valueskejmp failjmp pass;;;; xor 1 in digit 2 & 3;;lbi 2, 14;;cbacompaisc 2 << 2xis 1 ; 2, 0xe = 0x9;;cbacompaisc 3 << 2xis 1 ; 3, 0xf = 0xcjmp fail;; check remaining Br == 2clracabaisc 0xb ; marker valueskejmp fail;; reload to Br = 3lbi 3, 14;;cbacompaisc 3 << 2xis 1 ; 3, 0xe = 0xc;;cbacompaisc 2 << 2xis 1 ; 2, 0xf = 0x8jmp fail;; check remaining BR == 3clracabaisc 0xf ; marker valueskejmp failjsr check_ram;; *******************************************************************;; XOR 2jsr init_ram;;;; xor 2 in digit 0 & 2;;lbi 0, 14;;cbacompxis 2 ; 0, 0xe = 0x1;;cbacompaisc 2 << 2xis 2 ; 2, 0xf = 0x8jmp fail;; check remainig Br == 0clracabaisc 0xb ; marker valueskejmp fail;; reload to Br == 2lbi 2, 14;;cbacompaisc 2 << 2xis 2 ; 2, 0xe = 0x9;;cbacompxis 2 ; 0, 0xf = 0x0jmp fail;; check remainig Br == 2clracabaisc 0x3 ; marker valueskejmp fail;;;; xor 2 in digit 1 & 3;;lbi 1, 14;;cbacompaisc 1 << 2xis 2 ; 1, 0xe = 0x5;;cbacompaisc 3 << 2xis 2 ; 3, 0xf = 0xcjmp fail;; check remaining Br == 1clracabaisc 0x7 ; marker valueskejmp fail;; reload to Br = 3lbi 3, 14;;cbacompaisc 3 << 2xis 2 ; 3, 0xe = 0xd;;cbacompaisc 1 << 2xis 2 ; 1, 0xf = 0x4jmp fail;; check remaining Br == 3clracabaisc 0xf ; marker valueskejmp failjsr check_ram;; *******************************************************************;; XOR 3jsr init_ram;;;; xor 3 in digit 0 & 3;;lbi 0, 14;;cbacompxis 3 ; 0, 0xe = 0x1;;cbacompaisc 3 << 2xis 3 ; 3, 0xf = 0xcjmp fail;; check remaining BR == 0clracabaisc 0x3 ; marker valueskejmp fail;; reload BR = 3lbi 3, 14;;cbacompaisc 3 << 2xis 3 ; 3, 0xe = 0xd;;cbacompxis 3 ; 0, 0xf = 0x0jmp fail;; check remaining BR == 3clracabaisc 0xf ; marker valueskejmp fail;;;; xor 3 in digit 1 & 2;;lbi 1, 14;;cbacompaisc 1 << 2xis 3 ; 1, 0xe = 0x5;;cbacompaisc 2 << 2xis 3 ; 2, 0xf = 0x8jmp fail;; check remaining BR == 1clracabaisc 0x7 ; marker valueskejmp fail;; reload BR = 2lbi 2, 14;;cbacompaisc 2 << 2xis 3 ; 2, 0xe = 0x9;;cbacompaisc 1 << 2xis 3 ; 1, 0xf = 0x4jmp fail;; check remaining BR == 2clracabaisc 0xb ; marker valueskejmp failjsr check_ramjmp passorg 0x150;; preload digits of each data registerinit_ram:;; Br = 0lbi 0, 14stii 0x3stii 0x2stii 0x3 ; marker value;; Br = 1lbi 1, 14stii 0x7stii 0x6stii 0x7 ; marker value;; Br = 2lbi 2, 14stii 0xbstii 0xastii 0xb ; marker value;; Br = 3lbi 3, 14stii 0xfstii 0xestii 0xf ; marker valueretcheck MACRO dig;; check dig, 14clraaisc 0xecabcompIF dig > 0aisc dig << 2ENDIFskejmp fail;; check 0, 15clraaisc 0xfcabcompIF dig > 0aisc dig << 2ENDIFskejmp failENDM;; check contents of RAM entriescheck_ram:;; check digit 0lbi 0, 0check 0;; check digit 1lbi 1, 0check 1;; check digit 2lbi 2, 0check 2;; check digit 3lbi 3, 0check 3retinclude "pass_fail.asm"