Battlezone: Routine at B1F4

B1F4: Routine at B1F4

Used by the routines at 977E, AD0C, AD3E and B676.
B1F4	LD A,$12	FLASH: OFF.
B1F6	RST $10
B1F7	SUB A
B1F8	RST $10
B1F9	LD A,$13	BRIGHT: ON.
B1FB	RST $10
B1FC	LD A,$01
B1FE	RST $10
B1FF	LD A,$14	INVERSE: OFF.
B201	RST $10
B202	SUB A
B203	RST $10
B204	LD A,$15	OVER: OFF.
B206	RST $10
B207	SUB A
B208	RST $10
B209	CALL $8000	Call 8000.
B20C	LD HL,$4000	Write 00 to 1800 bytes of the screen buffer, starting at 4000.
B20F	LD DE,$4001
B212	LD BC,$17FF
B215	LD (HL),$00
B217	LDIR
B219	LD HL,$5800	Write INK: GREEN, PAPER: BLACK (BRIGHT) to 0300 bytes of the attribute buffer, starting at 5800.
B21C	LD DE,$5801
B21F	LD (HL),$44
B221	LD BC,$02FF
B224	LDIR
B226	LD HL,$FE00	Write 00 to 00FF bytes, starting from FE00.
B229	LD DE,$FE01
B22C	LD (HL),$00
B22E	LD BC,$00FF
B231	LDIR
B233	LD HL,$C8B4	Write C8B4 to *CHARS.
B236	LD ($5C36),HL	Write C8B4 to *CHARS.
B239	LD HL,$6400	Write 6400 to *FE60.
B23C	LD ($FE60),HL	Write 6400 to *FE60.
B23F	LD HL,$0000	Write 0000 to: FE5E FE62
B242	LD ($FE5E),HL
B245	LD ($FE62),HL
B248	LD A,$30	Write 30 to *FE68.
B24A	LD ($FE68),A	Write 30 to *FE68.
B24D	LD HL,$CA28	Write CA28 to *FE42.
B250	LD ($FE42),HL	Write CA28 to *FE42.
B253	LD HL,$CA5E	Write CA5E to *FE46.
B256	LD ($FE46),HL	Write CA5E to *FE46.
B259	LD A,($FE62)
B25C	ADD A,$10
B25E	LD ($FE62),A
B261	LD HL,($FE60)
B264	LD DE,$FE0C
B267	ADD HL,DE
B268	LD ($FE60),HL
B26B	LD HL,($FE5E)
B26E	LD ($FE4A),HL
B271	LD HL,($FE60)
B274	LD ($FE4C),HL
B277	LD HL,$DD06
B27A	LD ($FE32),HL
B27D	LD HL,$DDB6
B280	LD ($FE36),HL
B283	LD L,A
B284	LD A,$1A
B286	CALL $88EA	Call 88EA.
B289	LD HL,($FE32)
B28C	LD ($FE34),HL
B28F	LD HL,$C9F2
B292	LD ($FE32),HL
B295	LD HL,$DEC4
B298	LD ($FE38),HL
B29B	LD HL,$DEFC
B29E	LD ($FE3A),HL
B2A1	LD A,$16	A=16.
B2A3	CALL $8660	Call 8660.
B2A6	LD A,$FD
B2A8	IN A,($FE)
B2AA	AND $02
B2AC	JP Z,$B0BC
B2AF	LD HL,$C91A
B2B2	LD ($FE02),HL
B2B5	CALL $805C
B2B8	CALL $8C3C
B2BB	LD A,($FE68)
B2BE	DEC A
B2BF	LD ($FE68),A
B2C2	JP NZ,$B24D
B2C5	LD B,$1A
B2C7	LD HL,$CE12
B2CA	LD A,(HL)
B2CB	PUSH HL
B2CC	PUSH BC
B2CD	RST $10
B2CE	POP BC
B2CF	POP HL
B2D0	INC HL
B2D1	DJNZ $B2CA
B2D3	LD A,$14
This entry point is used by the routine at B2F5.
B2D5	LD HL,$5800
B2D8	INC (HL)
B2D9	BIT 3,(HL)
B2DB	JP NZ,$B2F5
B2DE	LD DE,$5801
B2E1	LD BC,$02FF
B2E4	LDIR
B2E6	PUSH AF
B2E7	LD A,$FD
B2E9	IN A,($FE)
B2EB	LD C,A
B2EC	POP AF
B2ED	BIT 1,C
B2EF	JP Z,$B0BC
B2F2	JP $B2D5	Jump to B2D5.