[fuse-emulator-cvs] SF.net SVN: fuse-emulator:[4005] trunk/fusetest/findcontention.asm

[<pa...@us...>]

Revision: 4005
          http://fuse-emulator.svn.sourceforge.net/fuse-emulator/?rev=4005&view=rev
Author:   pak21
Date:     2009-04-12 15:05:50 +0000 (Sun, 12 Apr 2009)

Log Message:
-----------
Contention finder now pretty much there.

Modified Paths:
--------------
    trunk/fusetest/findcontention.asm

Modified: trunk/fusetest/findcontention.asm
===================================================================
--- trunk/fusetest/findcontention.asm	2009-04-12 14:41:24 UTC (rev 4004)
+++ trunk/fusetest/findcontention.asm	2009-04-12 15:05:50 UTC (rev 4005)
@@ -44,30 +44,65 @@
 	call printa
 	ld a, 0x0d
 	rst 0x10
-
+_loop
 	ld a, (_state)
 	cp 0x80
 	jp nc, _end
 
-	ld hl, _testingstring
-	call printstring
+;	ld hl, _testingstring
+;	call printstring
 	ld bc, (_testvalue)
 	ld a, b
 	call printa
 	ld a, c
 	call printa
+	ld a, 0x20
+	rst 0x10
+	ld a, (_state)
+	call printa
 	ld hl, _ellipsisstring
 	call printstring
 
 	ld hl, (_testvalue)
 	call testcontention
 
+	push af
 	jr z, _uncontended
 	ld hl, _contendedstring
 _printresult
 	call printstring
-	jr z, _end
 
+	ld a, (_state)
+	add a, a
+	ld b, a
+	add a, a
+	add a, b
+	ld b, a
+
+	pop af
+	ld a, b
+	jr z, _uncontended2
+	add a, 0x03
+
+_uncontended2
+	ld c, a
+	ld b, 0x00
+
+	ld hl, _statemachine
+	add hl, bc
+
+	ld a, (hl)
+	ld (_state), a
+	inc hl
+	ld e, (hl)
+	inc hl
+	ld d, (hl)
+	ld hl, (_testvalue)
+	add hl, de
+	ld (_testvalue), hl
+
+	jr _loop
+	
 _uncontended
 	ld hl, _uncontendedstring
 	jr _printresult
@@ -128,7 +163,7 @@
 	defw -224
 
 _state	defb 0		; Our current state
-_testvalue defw 20000   ; Current tstate being tested
+_testvalue defw 19881   ; Current tstate being tested
 	
 _framestring defb 'Frame length ', 0
 _unknownstring defb 'unknown', 0x0d, 0


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.