X-Git-Url: http://git.joshuawise.com/fpgaboy.git/blobdiff_plain/00573fd53c3dc0b2aca146f085d30801a3aed576..4d90f272baf43caf90927ca7e893518d526649e5:/diag.asm diff --git a/diag.asm b/diag.asm index 8d6aec8..bc164a0 100644 --- a/diag.asm +++ b/diag.asm @@ -1,3 +1,6 @@ + section "end",HOME[1024] + nop + SECTION "a",HOME[$00] start: jp main @@ -13,17 +16,15 @@ start: jp main main: ld a, $FF - ld [$FF51],a + ld c, $51 + ld [c], a -; ld a, $04 -; ld [$FFFF], a - ld sp, $DFF0 ld a, $04 ;start timer, 4.096KHz ld c, $07 ld [c], a - + ld hl, $DF81 xor a ld [hli], a @@ -31,6 +32,8 @@ main: ld hl, signon call puts + + call putscreen ei @@ -47,14 +50,100 @@ main: signon: db $0D,$0A,$1B,"[1mFPGABoy Diagnostic ROM",$1B,"[0m",$0D,$0A,0 +putscreen: + ; Wait for vblank +;.stat: ld a, [$FF41] ; STAT +; and $03 ; mode +; cp $01 ; VBLANK +;' jp nz, .stat + + ld hl, $8000 ; Copy two tiles. + ld a, $AA + ld [hli], a + ld [hli], a + ld a, $55 + ld [hli], a + ld [hli], a + ld a, $AA + ld [hli], a + ld [hli], a + ld a, $55 + ld [hli], a + ld [hli], a + ld a, $AA + ld [hli], a + ld [hli], a + ld a, $55 + ld [hli], a + ld [hli], a + ld a, $AA + ld [hli], a + ld [hli], a + ld a, $55 + ld [hli], a + ld [hli], a + xor a + ld [hli], a + ld [hli], a + ld [hli], a + ld [hli], a + ld [hli], a + ld [hli], a + ld [hli], a + ld [hli], a + ld [hli], a + ld [hli], a + ld [hli], a + ld [hli], a + ld [hli], a + ld [hli], a + ld [hli], a + ld [hli], a + + ld hl, $9800 +.loop: ld a, $01 + ld [hli], a + xor a + ld [hli], a + ld a, h + cp $9C + jp nz,.loop + ret + vbl: -lcdc: PUSH AF + PUSH BC + PUSH DE + PUSH HL xor a - ld c, $0F + ld [$FF0F], a + + ld c, $42 ; SCY + ld a, [c] + inc a ld [c], a + ld c, $43 ; SCX + ld a, [c] + inc a + ld [c], a + + POP HL + POP DE + POP BC + POP AF + + RETI + +lcdc: + PUSH AF + PUSH BC + + xor a + ld [$FF0F], a + + POP BC POP AF reti @@ -66,22 +155,23 @@ tmro: PUSH HL xor a - ld c, $0F + 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: - ld hl, $DF81 - ld a, [hl] - add 1 - ld [hl], a - ld c, $51 - ld [c], a + ld a, [$DF81] + inc a + ld [$DF81], a + ld [$FF51], a POP HL POP DE @@ -94,7 +184,7 @@ memtest: ld hl,memteststr call puts - ld hl, $C001 ; Write loop + ld hl, $C000 ; Write loop .wr: ld a,h xor l @@ -106,7 +196,7 @@ memtest: cp $80 jr nz, .wr - ld hl, $C001 ; Read loop + ld hl, $C000 ; Read loop .rd: ld a,h xor l @@ -127,7 +217,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 @@ -340,3 +430,4 @@ puts: ret z call putc jr puts +