URL
https://opencores.org/ocsvn/t400/t400/trunk
Subversion Repositories t400
[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [lbi_short/] [test.asm] - Rev 179
Compare with Previous | Blame | View Log
;; *******************************************************************;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $;;;; Checks the LBI instruction (single byte).;;;; the cpu type is defined on asl's command lineorg 0x00clra;;;; initialize 4 x 8 RAM digits;;;; register 0stii 0x0aisc 0x9cabstii 0x1stii 0x2stii 0x3stii 0x4stii 0x5stii 0x6stii 0x7;; register 1ld 0x1stii 0x4cbaaisc 0x8cabstii 0x5stii 0x6stii 0x7stii 0x8stii 0x9stii 0xastii 0xb;; register 2ld 0x3stii 0x8cbaaisc 0x8cabstii 0x9stii 0xastii 0xbstii 0xcstii 0xdstii 0xestii 0xf;; register 3ld 0x1stii 0xccbaaisc 0x8cabstii 0xdstii 0xestii 0xfstii 0x0stii 0x1stii 0x2stii 0x3jmp test_code;; subroutine page 2org 0x80lbi_call_reg0:lbi 0, 0lbi 0, 9lbi 0, 10lbi 0, 11lbi 0, 12lbi 0, 13lbi 0, 14lbi 0, 15retlbi_call_reg1:lbi 1, 0lbi 1, 9lbi 1, 10lbi 1, 11lbi 1, 12lbi 1, 13lbi 1, 14lbi 1, 15retlbi_call_reg2:lbi 2, 0lbi 2, 9lbi 2, 10lbi 2, 11lbi 2, 12lbi 2, 13lbi 2, 14lbi 2, 15retlbi_call_reg3:lbi 3, 0lbi 3, 9lbi 3, 10lbi 3, 11lbi 3, 12lbi 3, 13lbi 3, 14lbi 3, 15retorg 0x100;;;; now test each register digit;;test_code:;; register 0;; digit 0clrajsrp lbi_call_reg0 + 0skejmp fail;; digit 9aisc 0x1jsrp lbi_call_reg0 + 1skejmp fail;; digit 10aisc 0x1jsrp lbi_call_reg0 + 2skejmp fail;; digit 11aisc 0x1jsrp lbi_call_reg0 + 3skejmp fail;; digit 12aisc 0x1jsrp lbi_call_reg0 + 4skejmp fail;; digit 13aisc 0x1jsrp lbi_call_reg0 + 5skejmp fail;; digit 14aisc 0x1jsrp lbi_call_reg0 + 6skejmp fail;; digit 15aisc 0x1jsrp lbi_call_reg0 + 7skejmp fail;; register 1;; digit 0clraaisc 0x4jsrp lbi_call_reg1 + 0skejmp fail;; digit 9aisc 0x1jsrp lbi_call_reg1 + 1skejmp fail;; digit 10aisc 0x1jsrp lbi_call_reg1 + 2skejmp fail;; digit 11aisc 0x1jsrp lbi_call_reg1 + 3skejmp fail;; digit 12aisc 0x1jsrp lbi_call_reg1 + 4skejmp fail;; digit 13aisc 0x1jsrp lbi_call_reg1 + 5skejmp fail;; digit 14aisc 0x1jsrp lbi_call_reg1 + 6skejmp fail;; digit 15aisc 0x1jsrp lbi_call_reg1 + 7skejmp fail;; register 2;; digit 0clraaisc 0x8jsrp lbi_call_reg2 + 0skejmp fail;; digit 9aisc 0x1jsrp lbi_call_reg2 + 1skejmp fail;; digit 10aisc 0x1jsrp lbi_call_reg2 + 2skejmp fail;; digit 11aisc 0x1jsrp lbi_call_reg2 + 3skejmp fail;; digit 12aisc 0x1jsrp lbi_call_reg2 + 4skejmp fail;; digit 13aisc 0x1jsrp lbi_call_reg2 + 5skejmp fail;; digit 14aisc 0x1jsrp lbi_call_reg2 + 6skejmp fail;; digit 15aisc 0x1jsrp lbi_call_reg2 + 7skejmp fail;; register 3;; digit 0clraaisc 0xcjsrp lbi_call_reg3 + 0skejmp fail;; digit 9aisc 0x1jsrp lbi_call_reg3 + 1skejmp fail;; digit 10aisc 0x1jsrp lbi_call_reg3 + 2skejmp fail;; digit 11aisc 0x1jsrp lbi_call_reg3 + 3skejmp fail;; digit 12aisc 0x1nopjsrp lbi_call_reg3 + 4skejmp fail;; digit 13aisc 0x1jsrp lbi_call_reg3 + 5skejmp fail;; digit 14aisc 0x1jsrp lbi_call_reg3 + 6skejmp fail;; digit 15aisc 0x1jsrp lbi_call_reg3 + 7skejmp failjmp passinclude "pass_fail.asm"