URL
https://opencores.org/ocsvn/t48/t48/trunk
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
| Rev 90 |
Rev 95 |
| Line 1... |
Line 1... |
;; *******************************************************************
|
;; *******************************************************************
|
;; $Id: test.asm,v 1.1 2004-05-16 15:31:55 arniml Exp $
|
;; $Id: test.asm,v 1.2 2004-05-16 16:25:46 arniml Exp $
|
;;
|
;;
|
;; Test Counter.
|
;; Test Counter.
|
;; *******************************************************************
|
;; *******************************************************************
|
|
|
INCLUDE "cpu.inc"
|
INCLUDE "cpu.inc"
|
| Line 31... |
Line 31... |
|
|
;; apply falling edge on T1
|
;; apply falling edge on T1
|
anl P1, #0FDH
|
anl P1, #0FDH
|
jtf goon
|
jtf goon
|
jmp fail
|
jmp fail
|
goon: mov a, t
|
goon: jtf fail
|
|
mov a, t
|
jnz fail
|
jnz fail
|
|
|
;; apply rising edge on T1
|
;; apply rising edge on T1
|
orl P1, #002H
|
orl P1, #002H
|
jtf fail
|
jtf fail
|
| Line 45... |
Line 46... |
jtf fail
|
jtf fail
|
mov a, t
|
mov a, t
|
dec a
|
dec a
|
jnz fail
|
jnz fail
|
|
|
|
;; check inactivity of counter
|
|
stop tcnt
|
|
mov a, #0FFH
|
|
mov t, a
|
|
|
|
;; apply rising edge on T1
|
|
orl P1, #002H
|
|
jtf fail
|
|
;; apply falling edge on T1
|
|
anl P1, #0FDH
|
|
jtf fail
|
|
;; apply rising edge on T1
|
|
orl P1, #002H
|
|
jtf fail
|
|
;; apply falling edge on T1
|
|
anl P1, #0FDH
|
|
jtf fail
|
|
|
|
strt cnt
|
|
;; apply rising edge on T1
|
|
orl P1, #002H
|
|
jtf fail
|
|
;; apply falling edge on T1
|
|
anl P1, #0FDH
|
|
jtf goon2
|
|
jmp fail
|
|
|
|
goon2:
|
|
|
pass: PASS
|
pass: PASS
|
|
|
fail: FAIL
|
fail: FAIL
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.