;; *******************************************************************
|
;; *******************************************************************
|
;; $Id: test.asm,v 1.1 2006-05-20 01:53:06 arniml Exp $
|
;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $
|
;;
|
;;
|
;; Checks the XABR instruction.
|
;; Checks the XABR 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 digit 0 of all registers with different data
|
;; preload digit 0 of all registers with different data
|
lbi 0, 0
|
lbi 0, 0
|
stii 0x4
|
stii 0x4
|
stii 0x0 ; register number
|
stii 0x0 ; register number
|
lbi 1, 0
|
lbi 1, 0
|
stii 0x5
|
stii 0x5
|
stii 0x1 ; register number
|
stii 0x1 ; register number
|
lbi 2, 0
|
lbi 2, 0
|
stii 0x6
|
stii 0x6
|
stii 0x2 ; register number
|
stii 0x2 ; register number
|
lbi 3, 0
|
lbi 3, 0
|
stii 0x7
|
stii 0x7
|
stii 0x3 ; register number
|
stii 0x3 ; register number
|
|
|
|
|
;; *******************************************************************
|
;; *******************************************************************
|
;; check Br -> A path of XABR
|
;; check Br -> A path of XABR
|
;;
|
;;
|
lbi 0, 0
|
lbi 0, 0
|
xabr
|
xabr
|
lbi 0, 1
|
lbi 0, 1
|
ske ; check against preloaded register number
|
ske ; check against preloaded register number
|
jmp fail
|
jmp fail
|
;;
|
;;
|
lbi 1, 0
|
lbi 1, 0
|
xabr
|
xabr
|
lbi 1, 1
|
lbi 1, 1
|
ske ; check against preloaded register number
|
ske ; check against preloaded register number
|
jmp fail
|
jmp fail
|
;;
|
;;
|
lbi 2, 0
|
lbi 2, 0
|
xabr
|
xabr
|
lbi 2, 1
|
lbi 2, 1
|
ske ; check against preloaded register number
|
ske ; check against preloaded register number
|
jmp fail
|
jmp fail
|
;;
|
;;
|
lbi 3, 0
|
lbi 3, 0
|
xabr
|
xabr
|
lbi 3, 1
|
lbi 3, 1
|
ske ; check against preloaded register number
|
ske ; check against preloaded register number
|
jmp fail
|
jmp fail
|
|
|
|
|
;; *******************************************************************
|
;; *******************************************************************
|
;; check A -> Br path of XABR
|
;; check A -> Br path of XABR
|
;;
|
;;
|
lbi 0, 0 ; set Bd
|
lbi 0, 0 ; set Bd
|
|
|
;; check for Br = 3
|
;; check for Br = 3
|
clra
|
clra
|
aisc 0x3
|
aisc 0x3
|
xabr
|
xabr
|
;; expect 0x7 @ 3, 0
|
;; expect 0x7 @ 3, 0
|
clra
|
clra
|
aisc 0x7
|
aisc 0x7
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
;; check for Br = 2
|
;; check for Br = 2
|
clra
|
clra
|
aisc 0x2
|
aisc 0x2
|
xabr
|
xabr
|
;; expect 0x6 @ 2, 0
|
;; expect 0x6 @ 2, 0
|
clra
|
clra
|
aisc 0x6
|
aisc 0x6
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
;; check for Br = 1
|
;; check for Br = 1
|
clra
|
clra
|
aisc 0x1
|
aisc 0x1
|
xabr
|
xabr
|
;; expect 0x5 @ 1, 0
|
;; expect 0x5 @ 1, 0
|
clra
|
clra
|
aisc 0x5
|
aisc 0x5
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
;; check for Br = 0
|
;; check for Br = 0
|
clra
|
clra
|
xabr
|
xabr
|
;; expect 0x4 @ 0, 0
|
;; expect 0x4 @ 0, 0
|
clra
|
clra
|
aisc 0x4
|
aisc 0x4
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
|
|
jmp pass
|
jmp pass
|
|
|
|
|
include "pass_fail.asm"
|
include "pass_fail.asm"
|
|
|