URL
https://opencores.org/ocsvn/t400/t400/trunk
Subversion Repositories t400
Compare Revisions
- This comparison shows the changes necessary to convert path
/t400/trunk/sw/verif/black_box/skt
- from Rev 35 to Rev 176
- ↔ Reverse comparison
Rev 35 → Rev 176
/t42x
--- test.asm (nonexistent)
+++ test.asm (revision 176)
@@ -0,0 +1,69 @@
+ ;; *******************************************************************
+ ;; $Id: test.asm,v 1.1 2006-05-20 02:46:20 arniml Exp $
+ ;;
+ ;; Checks the SKT instruction.
+ ;;
+
+ ;; the cpu type is defined on asl's command line
+
+ org 0x00
+ clra
+
+ ;; timer not elapsed right after power-on reset
+ skt
+ jp ok_1
+ jmp fail
+ok_1:
+
+
+ ;; preload timeout value
+ stii 0x4
+ stii 0x0
+ stii 0x0
+
+ ;; *******************************************************************
+ ;; Poll for timer flag with and time out after a while.
+ ;;
+poll_loop:
+ ;; decrement timeout counter
+ lbi 0, 2
+ sc
+ clra
+ aisc 0x1
+ casc ; M(0, 2) - 1
+ jp proc_digit_1
+ x 0
+ jp dec_finished
+
+proc_digit_1:
+ xds 0 ; A loads 0 from M
+ sc
+ aisc 0x1
+ casc ; M(0, 1) - 1
+ jp proc_digit_0
+ x 0
+ jp dec_finished
+
+proc_digit_0:
+ xds 0 ; A loads 0 from M
+ sc
+ aisc 0x1
+ casc ; M(0, 0) - 1
+ jmp fail ; TIMEOUT!
+ x 0
+dec_finished:
+
+ ;; poll timer flag
+ skt
+ jp poll_loop
+
+ ;; check that last skt cleared the flag
+ skt
+ jp ok_2
+ jmp fail
+ok_2:
+
+
+ jmp pass
+
+ include "pass_fail.asm"