X-Git-Url: http://git.joshuawise.com/fpgaboy.git/blobdiff_plain/fe3dc8909a6c72ce4208cb5b8b64bc6b2f8cebd6..ee31adcb22c5011aeaaa0149ee22fa18e45317a5:/diag.asm diff --git a/diag.asm b/diag.asm index e3afaa4..e9fff6a 100644 --- a/diag.asm +++ b/diag.asm @@ -24,7 +24,7 @@ main: ld a, $04 ;start timer, 4.096KHz ld c, $07 ld [c], a - + ld hl, $DF81 xor a ld [hli], a @@ -32,6 +32,8 @@ main: ld hl, signon call puts + + call putscreen ei @@ -48,14 +50,143 @@ main: signon: db $0D,$0A,$1B,"[1mFPGABoy Diagnostic ROM",$1B,"[0m",$0D,$0A,0 +tiles: + db %01111100 + db %11000110 + db %11000110 + db %11111110 + db %11000110 + db %11000110 + db %11000110 + db %00000000 + + db %11111100 + db %11000110 + db %11000110 + db %11111100 + db %11000110 + db %11000110 + db %11111100 + db %00000000 + + db %01111100 + db %11000110 + db %11000010 + db %11000000 + db %11000010 + db %11000110 + db %01111100 + db %00000000 + + db %11111100 + db %11000110 + db %11000110 + db %11000110 + db %11000110 + db %11000110 + db %11111100 + db %00000000 + +putscreen: + ; Wait for vblank + call .vblwait + + ld hl, $8000 ; Copy two tiles. + ld de, tiles + ld c, $20 +.cloop: ld a, [de] + inc de + ld [hli], a + ld [hli], a + dec c + xor a + cp c + jr nz, .cloop + + ld hl, $9800 +.vloop: call .vblwait + ld c, $40 + ld b, 0 +.loop: ld a, b + inc b + and $03 + ld [hli], a + ld a, h + cp $9C + ret z + dec c + xor a + cp c + jr nz,.loop + jr .vloop + +.vblwait: +.stat1: ld a, [$FF41] ; STAT + and $03 + cp $00 + jp nz, .stat1 +.stat2: ld a, [$FF41] + and $03 + cp $01 + jr nz, .stat2 + ret + vbl: + PUSH AF + PUSH BC + PUSH DE + PUSH HL + + xor a + ld [$FF0F], a + + ld a, [$FF51] + bit 7, a + jr z, .nothing + + bit 0, a + call nz, .scyup + + bit 1, a + call nz, .scydown + + bit 2, a + call nz, .scxup + + bit 3, a + call nz, .scxdown + +.nothing: + POP HL + POP DE + POP BC + POP AF + + RETI + +.scyup: ld hl, $FF42 + inc [hl] + ret + +.scydown: ld hl, $FF42 + dec [hl] + ret + +.scxup: ld hl, $FF43 + inc [hl] + ret + +.scxdown: ld hl, $FF43 + dec [hl] + ret + + lcdc: PUSH AF PUSH BC xor a - ld c, $0F - ld [c], a + ld [$FF0F], a POP BC POP AF @@ -69,20 +200,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: - 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 @@ -95,7 +229,7 @@ memtest: ld hl,memteststr call puts - ld hl, $C001 ; Write loop + ld hl, $C000 ; Write loop .wr: ld a,h xor l @@ -107,7 +241,7 @@ memtest: cp $80 jr nz, .wr - ld hl, $C001 ; Read loop + ld hl, $C000 ; Read loop .rd: ld a,h xor l @@ -128,7 +262,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