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

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [include/] [pass_fail.asm] - Blame information for rev 179

Details | Compare with Previous | View Log


        ;; *******************************************************************
        ;; $Id: pass_fail.asm 179 2009-04-01 19:48:38Z arniml $
        ;;
        ;; Provides pass/fail signalling via port L.
        ;;
        ;; Result value is expected in accumuator.
        ;;
        ;; Signalling on L:
        ;;   0x0R
        ;;   0xaR
        ;;   0x5R
        ;;     0x0R  -> pass
        ;;     0xfR  -> fail
        ;;
 
        ;; catch spurious code execution
        jmp     fail
 
pass:
        lei     0x4
        ;; save result to M
        x       0x0
        ;; output 0x0R to Q
        clra
        camq
        ;; output 0xaR to Q
        aisc    0xa
        camq
        ;; output 0x5R to Q
        clra
        aisc    0x5
        camq
        ;; output 0x0R to Q
        clra
        camq
        jp      .
 
fail:
        lei     0x4
        ;; save result to M
        x       0x0
        ;; output 0x0R to Q
        clra
        camq
        ;; output 0xaR to Q
        aisc    0xa
        camq
        ;; output 0x5R to Q
        clra
        aisc    0x5
        camq
        ;; output 0xfR to Q
        clra
        aisc    0xf
        camq
        jp      .

Line No.	Rev	Author	Line
1	2	arniml	`;; *******************************************************************`
2	179	arniml	`;; $Id: pass_fail.asm 179 2009-04-01 19:48:38Z arniml $`
3	2	arniml	`;;`
4			`;; Provides pass/fail signalling via port L.`
5			`;;`
6			`;; Result value is expected in accumuator.`
7			`;;`
8			`;; Signalling on L:`
9			`;; 0x0R`
10			`;; 0xaR`
11			`;; 0x5R`
12			`;; 0x0R -> pass`
13			`;; 0xfR -> fail`
14			`;;`
15
16			`;; catch spurious code execution`
17			`jmp fail`
18
19			`pass:`
20			`lei 0x4`
21			`;; save result to M`
22			`x 0x0`
23			`;; output 0x0R to Q`
24			`clra`
25			`camq`
26			`;; output 0xaR to Q`
27			`aisc 0xa`
28			`camq`
29			`;; output 0x5R to Q`
30			`clra`
31			`aisc 0x5`
32			`camq`
33			`;; output 0x0R to Q`
34			`clra`
35			`camq`
36			`jp .`
37
38			`fail:`
39			`lei 0x4`
40			`;; save result to M`
41			`x 0x0`
42			`;; output 0x0R to Q`
43			`clra`
44			`camq`
45			`;; output 0xaR to Q`
46			`aisc 0xa`
47			`camq`
48			`;; output 0x5R to Q`
49			`clra`
50			`aisc 0x5`
51			`camq`
52			`;; output 0xfR to Q`
53			`clra`
54			`aisc 0xf`
55			`camq`
56			`jp .`

Browse

Tools

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [include/] [pass_fail.asm] - Blame information for rev 179