X-Git-Url: http://git.joshuawise.com/fpgaboy.git/blobdiff_plain/318331120b0bd48a06902e70a63b4f536a85de5f..00573fd53c3dc0b2aca146f085d30801a3aed576:/rom.asm diff --git a/rom.asm b/rom.asm index 437f01e..1504c71 100644 --- a/rom.asm +++ b/rom.asm @@ -1,28 +1,31 @@ SECTION "a",HOME main: - ld c, $51 ; Note that we are alive. - ld a, $FF - ld [c],a + ld a, $FF ; Note that we are alive. + ld [$FF51],a - ld sp, $DFFF - - ld hl, signon - call puts + ld sp, $DFF0 + + ld hl, $DF81 + ld a, $80 + ld [hl], a ld c, $07 ld a, $04 ;start timer, 4.096KHz ld [c], a +;diqs: ei +; ld a, $80 +; ld c, $51 +; ld [c], a +; jr diqs + call irqhand ei - - call memtest +coqs: jr coqs - call insntest - - call waitsw + section "Diq", HOME[$38] +fuqed: di - - jr main + jr fuqed section "fuq",HOME[$100] irqhand: @@ -30,229 +33,30 @@ irqhand: PUSH BC PUSH DE PUSH HL + xor a ld c, $0F ; ack the irq ld [c], a + ld a, $41 ; print A call putc + + ld hl, $DF81 + inc [hl] + ld a, [hl] + ld c, $51 + ld [c], a + + POP HL POP DE POP BC POP AF RETI + db $18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE + db $18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE + db $18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE -signon: - db $0D,$0A,$1B,"[1mFPGABoy Diagnostic ROM",$1B,"[0m",$0D,$0A,0 - -; Memory tester: writes h ^ l to all addresses from C000 to DF80. -memtest: - ld hl,memteststr - call puts - - ld hl, $C000 ; Write loop -.wr: - ld a,h - xor l - ld [hli],a - ld a, $DF - cp h - jr nz, .wr - ld a, $80 - cp l - jr nz, .wr - - ld hl, $C000 ; Read loop -.rd: - ld a,h - xor l - ld b,a - ld a, [hli] - cp b - jr nz, .memfail - - ld a, $DF - cp h - jr nz, .rd - ld a, $80 - cp l - jr nz, .rd - - ld hl, testokstr ; Say we're OK - call puts - ret -.memfail: ; Say we failed (sadface) - ; decrement hl the easy way - ld a,[hld] - push hl - ld hl, failatstr - call puts - pop hl - ld a, h - call puthex - ld a, l - call puthex - ld a, $0A - call putc - ld a, $0D - call putc - ret -memteststr: - db "Testing memory from $C000 to $DF80...",0 -testokstr: - db " OK!",$0D,$0A,0 -failatstr: - db " Test failed at $",0 - -puthex: ; Put two hex nibbles to the serial console. - push af - rra - rra - rra - rra - ld b,$0F - and b - ld b,$30 - add b - call putc - pop af - ld b,$0F - and b - ld b,$30 - add b - call putc - ret - -; Wait for switches to be flipped on and off again. -waitsw: - ld hl,waitswstr - call puts - - ld c, $51 - xor a - ld [c],a - - ld b, $0 -.loop1: - ld a,[c] - cp b - jr z,.loop1 -.loop2: - ld a,[c] - cp b - jr nz,.loop2 - ret - -waitswstr: - db "Diagnostic ROM complete; flip switches to nonzero and then to zero to reset. Expect A.",$0D,$0A,0 - -; Core instruction basic acceptance tests. -insntest: - ld hl, .insnteststr - call puts - - ; Test PUSH and POP. - ld b, $12 - ld c, $34 - ld d, $56 - ld e, $78 - push bc - pop de - ld hl, .pushpopfail - ld a, d - cp b - jr nz,.fail - ld a, e - cp c - jr nz,.fail - - ; Test ALU (HL). - ld hl, .ff - ld a, $FF - xor [hl] - ld hl, .xorhlfail - jr nz, .fail - - ; Test JP (HL) - ld hl, .jphl - jp [hl] - ld hl, .jphlfail - jr .fail - rst $00 -.jphl: - - ; Test JR - ld a, $FF - ld b, $00 - cp b - jr nz,.jr - ld hl, .jrfail - jr .fail - rst $00 -.jr: - - ; Test inc16 - ld d, $12 - ld e, $FF - ld hl, .inc16fail - inc de - ld a, $13 - cp d - jr nz, .fail - ld a, $00 - cp e - jr nz, .fail - - ; Test CP. - ld hl, .cpfail - ld a, $10 - ld b, $20 - cp b - jr nc,.fail - ld a, $20 - ld b, $10 - cp b - jr c,.fail - - ; Test CPL - ld hl, .cplfail - ld a, $55 - ld b, $AA - cpl - cp b - jr nz,.fail - - ld hl, .ok - call puts - ret -.fail: - call puts - ld hl, .testfailed - call puts - ret -.insnteststr: - db "Testing instructions... ",0 -.pushpopfail: - db "PUSH/POP",0 -.ff: - db $FF -.xorhlfail: - db "XOR [HL]",0 -.jphlfail: - db "JP [HL]",0 -.jrfail: - db "JR",0 -.cpfail: - db "CP",0 -.cplfail: - db "CPL",0 -.inc16fail: - db "INC16",0 -.testfailed: - db " test failed.",$0D,$0A,0 -.ok: - db "OK!",$0D,$0A,0 - -; Serial port manipulation functions. putc: ld b, 0 ld c, $50 @@ -264,13 +68,3 @@ putc: pop af ld [c],a ret - -puts: - ld a, [hli] - ld b, $00 - cp b - jr z, .done - call putc - jr puts -.done: - ret