X-Git-Url: http://git.joshuawise.com/fpgaboy.git/blobdiff_plain/06ad3a30038ac8ca45dd7b0c34213c0c8335c17c..3785d05a183aa8de851f361432c5da2cc8f11c16:/rom.asm

diff --git a/rom.asm b/rom.asm
index 93f8524..7994d3e 100644
--- a/rom.asm
+++ b/rom.asm
@@ -4,7 +4,7 @@ main:
 	ld c, $51	; Note that we are alive.
 	ld a, $FF
 	ld [c],a
-
+	
 	ld sp, $DFFF
 
 	ld hl, signon
@@ -105,13 +105,15 @@ waitsw:
 	call puts
 	
 	ld c, $07
-	ld a, $07	;start timer, 4.096KHz
+	ld a, $04	;start timer, 4.096KHz
 	ld [c], a
 	
 	ld c, $51
 	ld a, $00
 	ld [c],a
 	
+	ld e, a
+	
 .loop1:
 	push bc
 	call testa
@@ -138,13 +140,13 @@ testa:
 	ret z
 	xor a
 	ld [c], a
-	ld hl, $D000
-	ld c, [hl]
-	inc bc
-	ld [hl], c
-	ld a, c
-	ld c, $50
+	ld a, $41
+	call putc
+	ld a, 1
+	add e
+	ld c, $51
 	ld [c], a
+	ld e, a
 	ret
 
 ; Core instruction basic acceptance tests.
@@ -258,10 +260,12 @@ insntest:
 putc:
 	ld b, 0
 	ld c, $50
+	push af
 .waitport:
 	ld a,[c]
 	cp b
 	jr nz,.waitport
+	pop af
 	ld [c],a
 	ret
 
@@ -269,6 +273,8 @@ puts:
 	ld a, [hli]
 	ld b, $00
 	cp b
-	ret z
+	jr z, .done
 	call putc
 	jr puts
+.done:
+	ret