URL
https://opencores.org/ocsvn/t400/t400/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 176 |
Rev 179 |
;; *******************************************************************
|
;; *******************************************************************
|
;; $Id: test.asm,v 1.1.1.1 2006-05-06 01:56:45 arniml Exp $
|
;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $
|
;;
|
;;
|
;; Checks the SKGBZ instruction.
|
;; Checks the SKGBZ 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
|
|
|
;; output 0x0 on G
|
;; output 0x0 on G
|
x 0x0
|
x 0x0
|
omg
|
omg
|
;; check G0
|
;; check G0
|
skgbz 0x0
|
skgbz 0x0
|
jmp fail
|
jmp fail
|
;; check G1
|
;; check G1
|
skgbz 0x1
|
skgbz 0x1
|
jmp fail
|
jmp fail
|
;; check G2
|
;; check G2
|
skgbz 0x2
|
skgbz 0x2
|
jmp fail
|
jmp fail
|
;; check G3
|
;; check G3
|
skgbz 0x3
|
skgbz 0x3
|
jmp fail
|
jmp fail
|
|
|
;; output 0x1 on G
|
;; output 0x1 on G
|
clra
|
clra
|
aisc 0x1
|
aisc 0x1
|
x 0x0
|
x 0x0
|
omg
|
omg
|
;; check G0
|
;; check G0
|
skgbz 0x0
|
skgbz 0x0
|
jmp ok_0
|
jmp ok_0
|
jmp fail
|
jmp fail
|
ok_0:
|
ok_0:
|
;; check G1
|
;; check G1
|
skgbz 0x1
|
skgbz 0x1
|
jmp fail
|
jmp fail
|
;; check G2
|
;; check G2
|
skgbz 0x2
|
skgbz 0x2
|
jmp fail
|
jmp fail
|
;; check G3
|
;; check G3
|
skgbz 0x3
|
skgbz 0x3
|
jmp fail
|
jmp fail
|
|
|
;; output 0x2 on G
|
;; output 0x2 on G
|
clra
|
clra
|
aisc 0x2
|
aisc 0x2
|
x 0x0
|
x 0x0
|
omg
|
omg
|
;; check G0
|
;; check G0
|
skgbz 0x0
|
skgbz 0x0
|
jmp fail
|
jmp fail
|
;; check G1
|
;; check G1
|
skgbz 0x1
|
skgbz 0x1
|
jmp ok_1
|
jmp ok_1
|
jmp fail
|
jmp fail
|
ok_1:
|
ok_1:
|
;; check G2
|
;; check G2
|
skgbz 0x2
|
skgbz 0x2
|
jmp fail
|
jmp fail
|
;; check G3
|
;; check G3
|
skgbz 0x3
|
skgbz 0x3
|
jmp fail
|
jmp fail
|
|
|
;; output 0x4 on G
|
;; output 0x4 on G
|
clra
|
clra
|
aisc 0x4
|
aisc 0x4
|
x 0x0
|
x 0x0
|
omg
|
omg
|
;; check G0
|
;; check G0
|
skgbz 0x0
|
skgbz 0x0
|
jmp fail
|
jmp fail
|
;; check G1
|
;; check G1
|
skgbz 0x1
|
skgbz 0x1
|
jmp fail
|
jmp fail
|
;; check G2
|
;; check G2
|
skgbz 0x2
|
skgbz 0x2
|
jmp ok_2
|
jmp ok_2
|
jmp fail
|
jmp fail
|
ok_2:
|
ok_2:
|
;; check G3
|
;; check G3
|
skgbz 0x3
|
skgbz 0x3
|
jmp fail
|
jmp fail
|
|
|
;; output 0x1 on G to break monitoring sequence
|
;; output 0x1 on G to break monitoring sequence
|
;; on T411L
|
;; on T411L
|
clra
|
clra
|
aisc 0x1
|
aisc 0x1
|
x 0x0
|
x 0x0
|
omg
|
omg
|
|
|
;; output 0x8 on G
|
;; output 0x8 on G
|
clra
|
clra
|
aisc 0x8
|
aisc 0x8
|
x 0x0
|
x 0x0
|
omg
|
omg
|
;; check G0
|
;; check G0
|
skgbz 0x0
|
skgbz 0x0
|
jmp fail
|
jmp fail
|
;; check G1
|
;; check G1
|
skgbz 0x1
|
skgbz 0x1
|
jmp fail
|
jmp fail
|
;; check G2
|
;; check G2
|
skgbz 0x2
|
skgbz 0x2
|
jmp fail
|
jmp fail
|
;; check G3
|
;; check G3
|
skgbz 0x3
|
skgbz 0x3
|
jmp pass
|
jmp pass
|
jmp fail
|
jmp fail
|
|
|
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.