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

Subversion Repositories t48

[/] [t48/] [tags/] [rel_1_0/] [sw/] [verif/] [black_box/] [anld/] [test.asm] - Blame information for rev 292

Details | Compare with Previous | View Log

Line No.	Rev	Author	Line
1	246	arniml	`;; *******************************************************************`
2			`;; $Id: test.asm,v 1.1 2006-07-11 23:37:31 arniml Exp $`
3			`;;`
4			`;; Test ANLD.`
5			`;; *******************************************************************`
6
7			`INCLUDE "cpu.inc"`
8			`INCLUDE "pass_fail.inc"`
9
10			`ORG 0`
11
12			`;; Start of test`
13
14			`;; port 4`
15			`mov a, #00fh`
16			`movd p4, a`
17			`mov a, #00ch`
18			`anld p4, a`
19			`cpl a`
20			`movd a, p6`
21			`xrl a, #00ch`
22			`jnz fail`
23			`movd a, p4`
24			`xrl a, #00ch`
25			`jnz fail`
26
27			`mov a, #003h`
28			`anld p4, a`
29			`movd a, p6`
30			`jnz fail`
31			`movd a, p4`
32			`jnz fail`
33
34			`;; port 5`
35			`mov a, #00fh`
36			`movd p5, a`
37			`mov a, #003h`
38			`anld p5, a`
39			`cpl a`
40			`movd a, p7`
41			`xrl a, #003h`
42			`jnz fail`
43			`movd a, p5`
44			`xrl a, #003h`
45			`jnz fail`
46
47			`mov a, #009h`
48			`anld p5, a`
49			`movd a, p7`
50			`xrl a, #001h`
51			`jnz fail`
52			`movd a, p5`
53			`xrl a, #001h`
54			`jnz fail`
55
56			`;; port 6`
57			`mov a, #00fh`
58			`movd p6, a`
59			`mov a, #005h`
60			`anld p6, a`
61			`cpl a`
62			`movd a, p4`
63			`xrl a, #005h`
64			`jnz fail`
65			`movd a, p6`
66			`xrl a, #005h`
67			`jnz fail`
68
69			`mov a, #00eh`
70			`anld p6, a`
71			`movd a, p4`
72			`xrl a, #004h`
73			`jnz fail`
74			`movd a, p6`
75			`xrl a, #004h`
76			`jnz fail`
77
78			`;; port 7`
79			`mov a, #00fh`
80			`movd p7, a`
81			`mov a, #00ah`
82			`anld p7, a`
83			`cpl a`
84			`movd a, p5`
85			`xrl a, #00ah`
86			`jnz fail`
87			`movd a, p7`
88			`xrl a, #00ah`
89			`jnz fail`
90
91			`mov a, #00dh`
92			`anld p7, a`
93			`movd a, p5`
94			`xrl a, #008h`
95			`jnz fail`
96			`movd a, p7`
97			`xrl a, #008h`
98			`jnz fail`
99
100
101			`jmp pass`
102
103			`jmp fail`
104			`pass: PASS`
105
106			`fail: FAIL`

Browse

Tools

Subversion Repositories t48

[/] [t48/] [tags/] [rel_1_0/] [sw/] [verif/] [black_box/] [anld/] [test.asm] - Blame information for rev 292