URL
https://opencores.org/ocsvn/t48/t48/trunk
Subversion Repositories t48
[/] [t48/] [tags/] [rel_0_4_beta/] [sw/] [verif/] [black_box/] [cnt/] [cnt/] [test.asm] - Rev 292
Compare with Previous | Blame | View Log
;; *******************************************************************;; $Id: test.asm,v 1.2 2004-05-16 16:25:46 arniml Exp $;;;; Test Counter.;; *******************************************************************INCLUDE "cpu.inc"INCLUDE "pass_fail.inc"ORG 0;; Start of testmov a, #0FEHmov t, astrt cntjtf fail;; apply falling edge on T1anl P1, #0FDHjtf failmov a, tcpl aadd a, #0FFHcpl ajnz fail;; apply rising edge on T1orl P1, #002Hjtf fail;; apply falling edge on T1anl P1, #0FDHjtf goonjmp failgoon: jtf failmov a, tjnz fail;; apply rising edge on T1orl P1, #002Hjtf fail;; apply falling edge on T1anl P1, #0FDHjtf failmov a, tdec ajnz fail;; check inactivity of counterstop tcntmov a, #0FFHmov t, a;; apply rising edge on T1orl P1, #002Hjtf fail;; apply falling edge on T1anl P1, #0FDHjtf fail;; apply rising edge on T1orl P1, #002Hjtf fail;; apply falling edge on T1anl P1, #0FDHjtf failstrt cnt;; apply rising edge on T1orl P1, #002Hjtf fail;; apply falling edge on T1anl P1, #0FDHjtf goon2jmp failgoon2:pass: PASSfail: FAIL