X-Git-Url: http://git.joshuawise.com/fpgaboy.git/blobdiff_plain/06ad3a30038ac8ca45dd7b0c34213c0c8335c17c..62940da0dd1b60db11e9861d6dd55a43c5756114:/rom.asm diff --git a/rom.asm b/rom.asm index 93f8524..5527ea8 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,7 +105,7 @@ 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 @@ -138,13 +138,8 @@ 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 [c], a + ld a, $41 + call putc ret ; Core instruction basic acceptance tests. @@ -258,10 +253,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 +266,8 @@ puts: ld a, [hli] ld b, $00 cp b - ret z + jr z, .done call putc jr puts +.done: + ret