Deathchase: Routine at 65B3

65B3: Start a new game

Used by the routine at 6711.
65B3	LD HL,$5DC0	Clear all the status flags
65B6	LD DE,$5DC1
65B9	LD BC,$0030
65BC	LD (HL),$00
65BE	LDIR
65C0	CALL $6371
65C3	LD A,$03
65C5	LD ($5DC8),A	Both bikes running
65C8	LD ($5DC3),A
65CB	LD ($5DC2),A
65CE	LD ($5DCC),A
65D1	LD ($5DD5),A	Bikes far away
65D4	LD A,$33
65D6	LD ($6987),A	Set 3 lives
65D9	CALL $6530	Clear the screen
65DC	CALL $686B	Stop any firing
65DF	CALL $6918	Display the bike
65E2	LD HL,$02E0	Large playing area
65E5	LD ($5DE6),HL
65E8	CALL $6772	Get rid of any trees
65EB	LD HL,$01A0	Small playing area
65EE	LD ($5DE6),HL
65F1	LD A,$01
65F3	LD ($5DE8),A	Set bike not moving
65F6	LD ($5DD1),A	Set to sector 1
65F9	CALL $64B7	Work out what trees we need
65FC	LD A,$55
65FE	LD ($5DD3),A	Set to day patrol
6601	LD B,$0A
6603	PUSH BC
6604	CALL $5E00	Draw the playing area
6607	POP BC
6608	DJNZ $6603
660A	XOR A	Reset the following flags :
660B	LD ($5DE8),A	Bike not moving
660E	LD ($5DD1),A	Sector 1
6611	LD ($5DD6),A	Enemies far away
6614	LD ($5DC6),A	Default enemy bike 1 position
6617	LD A,$20
6619	LD ($5DC7),A	Default enemy bike 2 position
661C	LD A,$02
661E	LD ($5DEC),A	Idle speed
6621	CALL $5F89	Print objects on the playing field
6624	CALL $62CB	Switch to a new sector
6627	CALL $628D	Print "KEYBOARD"
662A	CALL $6BDD	Update high score
Set the current score to 0
662D	LD B,$06	Six digits
662F	LD HL,$6BCD	Point to score buffer
6632	LD (HL),$30	"0"
6634	INC HL	Next character
6635	DJNZ $6632
6637	CALL $6969	Print score
663A	CALL $6BFC	Print high score