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

Subversion Repositories t48

[/] [t48/] [tags/] [rel_1_3/] [sw/] [verif/] [black_box/] [in/] [test.asm] - Blame information for rev 344

Line No.	Rev	Author	Line
1	12	arniml	`;; *******************************************************************`
2	295	arniml	`;; $Id: test.asm 320 2022-12-25 20:53:05Z arniml $`
3	12	arniml	`;;`
4			`;; Test IN A, Pp.`
5			`;; *******************************************************************`
6
7			`INCLUDE "cpu.inc"`
8			`INCLUDE "pass_fail.inc"`
9
10			`ORG 0`
11
12			`;; Start of test`
13			`mov a, #055H`
14			`outl p1, a`
15			`mov a, #0AAH`
16			`outl p2, a`
17
18			`clr a`
19			`in a, p1`
20	320	arniml	`xrl a, #055H`
21	12	arniml	`jnz fail`
22
23			`in a, p2`
24	320	arniml	`xrl a, #0AAH`
25	12	arniml	`jnz fail`
26
27	320	arniml	`mov a, #0AAH`
28			`outl p1, a`
29			`clr a`
30			`mov a, #055H`
31			`outl p2, a`
32
33			`clr a`
34			`in a, p1`
35			`xrl a, #0AAH`
36			`jnz fail`
37
38			`;in a, p2`
39			`;xrl a, #055H`
40			`;jnz fail`
41
42	12	arniml	`pass: PASS`
43
44			`fail: FAIL`