X-Git-Url: http://git.joshuawise.com/fpgaboy.git/blobdiff_plain/318331120b0bd48a06902e70a63b4f536a85de5f..fc443a4f61b38236a17ab2928bd90327edc68266:/rom.asm?ds=sidebyside

diff --git a/rom.asm b/rom.asm
index 437f01e..0c25fab 100644
--- a/rom.asm
+++ b/rom.asm
@@ -5,24 +5,28 @@ main:
 	ld a, $FF
 	ld [c],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
-
-	call insntest
+coqs: jr coqs
 
-	call waitsw
+	section "Diq", HOME[$38]
+fuqed:
 	di
-
-	jr main
+	jr fuqed
 
 	section "fuq",HOME[$100]
 irqhand:
@@ -30,229 +34,32 @@ 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
-	POP HL
-	POP DE
-	POP BC
-	POP AF
-	RETI
-
-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
+	ld hl, $DF81
+	ld a, [hl]
+	ld b, 1
 	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:
+	ld [c], a
+	ld [hl], a
 
-	; 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
+	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
 
-; Serial port manipulation functions.
 putc:
 	ld b, 0
 	ld c, $50
@@ -264,13 +71,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