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

Subversion Repositories t400

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

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 50 arniml
        ;; *******************************************************************
2
        ;; $Id: test.asm,v 1.1 2006-05-22 23:17:59 arniml Exp $
3
        ;;
4
        ;; Checks the ININ instruction.
5
        ;;
6
 
7
        ;; the cpu type is defined on asl's command line
8
 
9
        org     0x00
10
        clra
11
 
12
        ;; preload reference data
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
        stii    0x8
22
        stii    0x9
23
        stii    0xa
24
        stii    0xb
25
        stii    0xc
26
        stii    0xd
27
        stii    0xe
28
        stii    0xf
29
 
30
        ;; output 0 on G and check
31
        ogi     0x0
32
        inin
33
        lbi     0, 0
34
        ske
35
        jmp     fail
36
 
37
        ;; output 8 on G and check
38
        ogi     0x8
39
        inin
40
        lbi     0, 8
41
        ske
42
        jmp     fail
43
 
44
        ;; output 1 on G and check
45
        ogi     0x1
46
        inin
47
        lbi     0, 1
48
        ske
49
        jmp     fail
50
 
51
        ;; output 4 on G and check
52
        ogi     0x4
53
        inin
54
        lbi     0, 4
55
        ske
56
        jmp     fail
57
 
58
        ;; output 15 on G and check
59
        ogi     0xf
60
        inin
61
        lbi     0, 15
62
        ske
63
        jmp     fail
64
 
65
 
66
 
67
        jmp     pass
68
 
69
 
70
        org     0x100
71
        include "pass_fail.asm"

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.