Flunky: Routine at 34425

34425: Print Menu Items

Used by the routines at GameStart and 55844.
PrintMenuItems	34425	PUSH IX	Stash IX and HL on the stack.
	34427	PUSH HL	Stash IX and HL on the stack.
	34428	CALL RestoreDefaultFont	Call RestoreDefaultFont.
	34431	LD IX,34784	IX=34784.
	34435	LD IY,34693	IY=34693.
	34439	LD A,(34282)	Load E with SelectedLanguage.
	34442	LD E,A	Load E with SelectedLanguage.
PrintMenuItems_0	34443	SRL E
	34445	JR C,PrintMenuItems_1
	34447	LD A,13	A=13.
	34449	JR PrintMenuItems_2	Jump to PrintMenuItems_2.
PrintMenuItems_1	34451	LD A,14	A=14.
PrintMenuItems_2	34453	LD L,(IX+0)
	34456	INC IX
	34458	LD H,(IX+0)
	34461	INC IX
	34463	PUSH DE
	34464	CALL PrintMessage	Call PrintMessage.
	34467	POP DE
	34468	INC IY
	34470	LD A,(IY+0)
	34473	CP 93
	34475	JR Z,PrintMenuItems_3
	34477	CP 120
	34479	JR NZ,PrintMenuItems_0
	34481	INC IY
	34483	LD HL,34653	Write 34653 to *56050.
	34486	LD (56050),HL	Write 34653 to *56050.
	34489	JR PrintMenuItems_0	Jump to PrintMenuItems_0.
PrintMenuItems_3	34491	CALL RestoreDefaultFont	Call RestoreDefaultFont.
	34494	LD HL,22971	HL=22971.
	34497	LD IY,28128	IY=28128.
Print the "TOTAL" and "HiScore" values.
	34501	LD B,2	B=2.
PrintTotalHiScoreValues_Loop	34503	PUSH BC	Stash the counter on the stack.
	34504	LD A,71	A=INK: WHITE, PAPER: BLACK (BRIGHT) .
	34506	CALL PrintMessage	Call PrintMessage.
	34509	INC IY
	34511	LD BC,92
	34514	ADD HL,BC
	34515	POP BC	Restore the counter from the stack.
	34516	DJNZ PrintTotalHiScoreValues_Loop	Decrease the counter by one and loop back to PrintTotalHiScoreValues_Loop until the counter is zero.
	34518	LD HL,34653	Write 34653 to *56050.
	34521	LD (56050),HL	Write 34653 to *56050.
	34524	LD IX,34784	IX=34784.
	34528	LD IY,34283	IY=34283.
	34532	LD B,8	B=8.
PrintMenuItems_4	34534	PUSH BC	Stash BC on the stack.
	34535	LD L,(IX+0)	L=*IX+0.
	34538	INC IX	Increment IX by one.
	34540	LD H,(IX+0)	H=*IX+0.
	34543	INC IX	Increment IX by one.
	34545	DEC HL	Decrease HL by two.
	34546	DEC HL	Decrease HL by two.
	34547	LD D,0	D=0.
	34549	RRC (IY+0)
	34553	JR C,PrintMenuItems_5
	34555	LD E,4	E=4.
	34557	LD A,9	A=9.
	34559	JR PrintMenuItems_6
PrintMenuItems_5	34561	LD E,D
	34562	LD A,79
PrintMenuItems_6	34564	LD (28054),A
	34567	CALL PrintDoubleHeightCharacter	Call PrintDoubleHeightCharacter.
	34570	POP BC
	34571	DJNZ PrintMenuItems_4
	34573	CALL RestoreDefaultFont	Call RestoreDefaultFont.
	34576	LD IX,34643
	34580	LD IY,55734
	34584	LD B,5
PrintMenuItems_7	34586	PUSH BC
	34587	LD L,(IX+0)
	34590	INC IX
	34592	LD H,(IX+0)
	34595	INC IX
	34597	LD A,(IY+0)
	34600	INC IY
	34602	LD E,A
	34603	LD D,0
	34605	CP 63
	34607	JR NZ,PrintMenuItems_8
	34609	LD A,248
	34611	JR PrintMenuItems_9	Jump to PrintMenuItems_9.
PrintMenuItems_8	34613	LD A,14
PrintMenuItems_9	34615	LD (28054),A
	34618	CALL PrintDoubleHeightCharacter	Call PrintDoubleHeightCharacter.
	34621	POP BC
	34622	DJNZ PrintMenuItems_7
	34624	LD A,8
	34626	CALL 55449
	34629	CALL 55638
	34632	POP HL
	34633	POP IX
	34635	RET	Return.
RestoreDefaultFont	34636	LD HL,15360	Write 15360 (CHARSET-256) to *56050.
	34639	LD (56050),HL	Write 15360 (CHARSET-256) to *56050.
	34642	RET	Return.