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

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [jsr/] [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 JSR instruction.
        ;;
 
        ;; the cpu type is defined on asl's command line
 
        org     0x00
        clra
 
        ;; preload data memory with jsr target values
        stii    0x0
        stii    0x1
        stii    0x2
        stii    0x3
        stii    0x4
        stii    0x5
        stii    0x6
        stii    0x7
 
        cab
        jsr     target_0
        ;;
        aisc    0x1
        cab
        clra
        jsr     target_1
        ;;
        aisc    0x2
        cab
        clra
        jsr     target_2
        ;;
        aisc    0x3
        cab
        clra
        jsr     target_3
        ;;
        IF      MOMCPUNAME <> "COP410"
        aisc    0x4
        cab
        clra
        jsr     target_4
        ;;
        aisc    0x5
        cab
        clra
        jsr     target_5
        ;;
        aisc    0x6
        cab
        clra
        jsr     target_6
        ;;
        aisc    0x7
        cab
        clra
        jsr     target_7
        ENDIF
 
        jmp     pass
 
        ;; subroutine targets
        org     0x06f
target_0:
        ske
        jmp     fail
        ret
        ;;
        org     0x09e
target_1:
        aisc    0x1
        ske
        jmp     fail
        clra
        ret
        ;;
        org     0x12d
target_2:
        aisc    0x2
        ske
        jmp     fail
        clra
        ret
        ;;
        org     0x13c
target_3:
        aisc    0x3
        ske
        jmp     fail
        clra
        ret
        ;;
        IF      MOMCPUNAME <> "COP410"
        org     0x24b
target_4:
        aisc    0x4
        ske
        jmp     fail
        clra
        ret
        ;;
        org     0x2da
target_5:
        aisc    0x5
        ske
        jmp     fail
        clra
        ret
        ;;
        org     0x369
target_6:
        aisc    0x6
        ske
        jmp     fail
        clra
        ret
        ;;
        org     0x378
target_7:
        aisc    0x7
        ske
        jmp     fail
        clra
        ret
        ENDIF
 
        org     0x1d0
        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 JSR instruction.`
5			`;;`
6
7			`;; the cpu type is defined on asl's command line`
8
9			`org 0x00`
10			`clra`
11
12			`;; preload data memory with jsr target values`
13			`stii 0x0`
14			`stii 0x1`
15			`stii 0x2`
16			`stii 0x3`
17			`stii 0x4`
18			`stii 0x5`
19			`stii 0x6`
20			`stii 0x7`
21
22			`cab`
23			`jsr target_0`
24			`;;`
25			`aisc 0x1`
26			`cab`
27			`clra`
28			`jsr target_1`
29			`;;`
30			`aisc 0x2`
31			`cab`
32			`clra`
33			`jsr target_2`
34			`;;`
35			`aisc 0x3`
36			`cab`
37			`clra`
38			`jsr target_3`
39			`;;`
40			`IF MOMCPUNAME <> "COP410"`
41			`aisc 0x4`
42			`cab`
43			`clra`
44			`jsr target_4`
45			`;;`
46			`aisc 0x5`
47			`cab`
48			`clra`
49			`jsr target_5`
50			`;;`
51			`aisc 0x6`
52			`cab`
53			`clra`
54			`jsr target_6`
55			`;;`
56			`aisc 0x7`
57			`cab`
58			`clra`
59			`jsr target_7`
60			`ENDIF`
61
62			`jmp pass`
63
64			`;; subroutine targets`
65			`org 0x06f`
66			`target_0:`
67			`ske`
68			`jmp fail`
69			`ret`
70			`;;`
71			`org 0x09e`
72			`target_1:`
73			`aisc 0x1`
74			`ske`
75			`jmp fail`
76			`clra`
77			`ret`
78			`;;`
79			`org 0x12d`
80			`target_2:`
81			`aisc 0x2`
82			`ske`
83			`jmp fail`
84			`clra`
85			`ret`
86			`;;`
87			`org 0x13c`
88			`target_3:`
89			`aisc 0x3`
90			`ske`
91			`jmp fail`
92			`clra`
93			`ret`
94			`;;`
95			`IF MOMCPUNAME <> "COP410"`
96			`org 0x24b`
97			`target_4:`
98			`aisc 0x4`
99			`ske`
100			`jmp fail`
101			`clra`
102			`ret`
103			`;;`
104			`org 0x2da`
105			`target_5:`
106			`aisc 0x5`
107			`ske`
108			`jmp fail`
109			`clra`
110			`ret`
111			`;;`
112			`org 0x369`
113			`target_6:`
114			`aisc 0x6`
115			`ske`
116			`jmp fail`
117			`clra`
118			`ret`
119			`;;`
120			`org 0x378`
121			`target_7:`
122			`aisc 0x7`
123			`ske`
124			`jmp fail`
125			`clra`
126			`ret`
127			`ENDIF`
128
129			`org 0x1d0`
130			`include "pass_fail.asm"`

Browse

Tools

Subversion Repositories t400

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