X-Git-Url: http://git.joshuawise.com/fpgaboy.git/blobdiff_plain/03202f62407e24bd964016dccc06de95df622e3c..b598de01e4664cfd8e13d33b046db022c202ea04:/diag.asm diff --git a/diag.asm b/diag.asm index 8016400..8e09874 100644 --- a/diag.asm +++ b/diag.asm @@ -55,9 +55,8 @@ vbl: PUSH HL xor a - ld c, $0F - ld [c], a - + ld [$FF0F], a + ld c, $42 ; SCY ld a, [c] inc a @@ -75,8 +74,7 @@ lcdc: PUSH BC xor a - ld c, $0F - ld [c], a + ld [$FF0F], a POP BC POP AF @@ -90,25 +88,23 @@ tmro: PUSH HL xor a - ld c, $0F - ld [c], a + ld [$FF0F], a ld c, $45 ; LYC ld a, [c] inc a ld [c], a - ld hl, $DF82 - ld a, [hld] + ld a, [$DF82] cp 0 jr z, .noprint ld a, $41 ; print A call putc .noprint: - inc [hl] - ld a, [hl] - ld c, $51 - ld [c], a + ld a, [$DF81] + inc a + ld [$DF81], a + ld [$FF51], a POP HL POP DE @@ -121,7 +117,7 @@ memtest: ld hl,memteststr call puts - ld hl, $C001 ; Write loop + ld hl, $C000 ; Write loop .wr: ld a,h xor l @@ -133,7 +129,7 @@ memtest: cp $80 jr nz, .wr - ld hl, $C001 ; Read loop + ld hl, $C000 ; Read loop .rd: ld a,h xor l @@ -154,7 +150,7 @@ memtest: ret .memfail: ; Say we failed (sadface) ; decrement hl the easy way - ld a,[hld] + dec [hl] push hl ld hl, failatstr call puts