Joshua Wise's Git repositories - fpgaboy.git/blame_incremental

... / ...

Commit	Line	Data
	1	SECTION "boot", HOME[$0]
	2	boot: ld a, $AA
	3	ld [$FF51], A ; Poke the LEDs
	4
	5	ld sp, $FFFE
	6
	7	ld hl, signon
	8	call puts
	9
	10	.wait: ld a, [$FF53]
	11	and $02
	12	jr z, .nodata
	13	ld a, [$FF52]
	14	ld [$FF51], a
	15
	16	cp $1B ; Escape
	17	jp z, .cbc
	18	ld [$FF52], a
	19	.cbc: call z, bootcmd
	20
	21	.nodata: ld a, [$FF51]
	22	cp $00
	23	jr nz, .wait
	24
	25	doboot: xor a
	26	ld h, a
	27	ld l, a
	28	ld [hl], $01 ; Select the GB boot rom
	29
	30	ld a, $55
	31	ld [c], a
	32
	33	ld hl, booting
	34	call puts
	35
	36	rst $00 ; Boot
	37
	38	signon:
	39	db $0D,$0A,$1B,"[1mFPGABoy Boot ROM",$1B,"[0m",$0D,$0A,0
	40	booting:
	41	db "Booting...",$0D,$0A,0
	42
	43	putc:
	44	ld c, $53
	45	push af
	46	.waitport:
	47	ld a,[c]
	48	and $01
	49	jr nz,.waitport
	50	pop af
	51	ld [$FF52],a
	52	ret
	53
	54	puts:
	55	ld a, [hli]
	56	cp $00
	57	ret z
	58	call putc
	59	jr puts
	60
	61	getc:
	62	ld a, [$FF53]
	63	and $02
	64	jr z, getc
	65	ld a, [$FF52]
	66	ret
	67
	68	bootcmd:
	69	call getc
	70	cp $56 ;V
	71	jr z,.version
	72	cp $41 ;A
	73	jr z,.addr
	74	cp $44 ;D
	75	jr z,.data
	76	cp $50 ;P
	77	jr z,.prog
	78	cp $42 ;B
	79	jr z,doboot
	80	cp $1B
	81	jr z,bootcmd ; If you keep yelling, you're bound to get the thing's attention.
	82	ld a, $3f ;?
	83	jr putc
	84	.version:
	85	ld hl, .verstr
	86	jr puts
	87	.verstr:
	88	db "V1.00",0
	89	.addr:
	90	call getc
	91	ld [$FF60], A
	92	call getc
	93	ld [$FF61], A
	94	call getc
	95	ld [$FF62], A
	96	ld A, $41 ;A
	97	jr putc
	98	.data:
	99	call getc ; byte count
	100	ld c, a
	101	.dl: dec c
	102	jr z, .done
	103	call getc
	104	ld [$FF63], A
	105	jr .dl
	106	.done: ld A, $44 ;D
	107	jr putc
	108
	109	.prog:
	110	ld hl, $D800
	111	ld c, $00
	112	.pl: dec c
	113	jp z, .progboot
	114	call getc
	115	ld [hli], a
	116	jr .pl
	117	.progboot:
	118	ld a, $50 ;P
	119	call putc
	120	jp $D800
	121
	122	SECTION "a", HOME[$100]
	123	nop ; Make sure we don't overflow.
	124