URL https://opencores.org/ocsvn/t400/t400/trunk

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [adt/] [test.asm] - Blame information for rev 179

Details | Compare with Previous | View Log


        ;; *******************************************************************
        ;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $
        ;;
        ;; Checks the ADT instruction.
        ;;
 
        ;; the cpu type is defined on asl's command line
 
        org     0x00
        clra
 
        ;; preload M0 with 0xa
        smb     0x3
        rmb     0x2
        smb     0x1
        rmb     0x0
 
        ;; test 0 + 10
        adt
        ske
        jmp     fail
 
        ;; preload M0 with 0x4
        rmb     0x3
        smb     0x2
        rmb     0x1
        rmb     0x0
 
        ;; test 0xa + 10
        adt
        ske
        jmp     fail
 
 
        jmp     pass
 
        org     0x100
        include "pass_fail.asm"

Line No.	Rev	Author	Line
1	2	arniml	`;; *******************************************************************`
2	179	arniml	`;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $`
3	2	arniml	`;;`
4			`;; Checks the ADT instruction.`
5			`;;`
6
7			`;; the cpu type is defined on asl's command line`
8
9			`org 0x00`
10			`clra`
11
12			`;; preload M0 with 0xa`
13			`smb 0x3`
14			`rmb 0x2`
15			`smb 0x1`
16			`rmb 0x0`
17
18	22	arniml	`;; test 0 + 10`
19	2	arniml	`adt`
20			`ske`
21			`jmp fail`
22
23	22	arniml	`;; preload M0 with 0x4`
24			`rmb 0x3`
25			`smb 0x2`
26			`rmb 0x1`
27			`rmb 0x0`
28	2	arniml
29	22	arniml	`;; test 0xa + 10`
30			`adt`
31			`ske`
32			`jmp fail`
33
34
35	2	arniml	`jmp pass`
36
37			`org 0x100`
38			`include "pass_fail.asm"`

Browse

Tools

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [adt/] [test.asm] - Blame information for rev 179