URL
https://opencores.org/ocsvn/t48/t48/trunk
Subversion Repositories t48
[/] [t48/] [tags/] [rel_1_3/] [sw/] [verif/] [black_box/] [in/] [test.asm] - Rev 344
Go to most recent revision | Compare with Previous | Blame | View Log
;; *******************************************************************
;; $Id: test.asm 320 2022-12-25 20:53:05Z arniml $
;;
;; Test IN A, Pp.
;; *******************************************************************
INCLUDE "cpu.inc"
INCLUDE "pass_fail.inc"
ORG 0
;; Start of test
mov a, #055H
outl p1, a
mov a, #0AAH
outl p2, a
clr a
in a, p1
xrl a, #055H
jnz fail
in a, p2
xrl a, #0AAH
jnz fail
mov a, #0AAH
outl p1, a
clr a
mov a, #055H
outl p2, a
clr a
in a, p1
xrl a, #0AAH
jnz fail
;in a, p2
;xrl a, #055H
;jnz fail
pass: PASS
fail: FAIL
Go to most recent revision | Compare with Previous | Blame | View Log