URL
https://opencores.org/ocsvn/t400/t400/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
| Rev 50 |
Rev 176 |
;; *******************************************************************
|
;; *******************************************************************
|
;; $Id: test.asm,v 1.1 2006-05-22 23:17:59 arniml Exp $
|
;; $Id: test.asm,v 1.1 2006-05-22 23:17:59 arniml Exp $
|
;;
|
;;
|
;; Checks the ININ instruction.
|
;; Checks the ININ instruction.
|
;;
|
;;
|
|
|
;; the cpu type is defined on asl's command line
|
;; the cpu type is defined on asl's command line
|
|
|
org 0x00
|
org 0x00
|
clra
|
clra
|
|
|
;; preload reference data
|
;; preload reference data
|
stii 0x0
|
stii 0x0
|
stii 0x1
|
stii 0x1
|
stii 0x2
|
stii 0x2
|
stii 0x3
|
stii 0x3
|
stii 0x4
|
stii 0x4
|
stii 0x5
|
stii 0x5
|
stii 0x6
|
stii 0x6
|
stii 0x7
|
stii 0x7
|
stii 0x8
|
stii 0x8
|
stii 0x9
|
stii 0x9
|
stii 0xa
|
stii 0xa
|
stii 0xb
|
stii 0xb
|
stii 0xc
|
stii 0xc
|
stii 0xd
|
stii 0xd
|
stii 0xe
|
stii 0xe
|
stii 0xf
|
stii 0xf
|
|
|
;; output 0 on G and check
|
;; output 0 on G and check
|
ogi 0x0
|
ogi 0x0
|
inin
|
inin
|
lbi 0, 0
|
lbi 0, 0
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
;; output 8 on G and check
|
;; output 8 on G and check
|
ogi 0x8
|
ogi 0x8
|
inin
|
inin
|
lbi 0, 8
|
lbi 0, 8
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
;; output 1 on G and check
|
;; output 1 on G and check
|
ogi 0x1
|
ogi 0x1
|
inin
|
inin
|
lbi 0, 1
|
lbi 0, 1
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
;; output 4 on G and check
|
;; output 4 on G and check
|
ogi 0x4
|
ogi 0x4
|
inin
|
inin
|
lbi 0, 4
|
lbi 0, 4
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
;; output 15 on G and check
|
;; output 15 on G and check
|
ogi 0xf
|
ogi 0xf
|
inin
|
inin
|
lbi 0, 15
|
lbi 0, 15
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
|
|
|
|
jmp pass
|
jmp pass
|
|
|
|
|
org 0x100
|
org 0x100
|
include "pass_fail.asm"
|
include "pass_fail.asm"
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.