Battlezone: Routine at 45556

45556: Routine at B1F4

Used by the routines at 38782, 44300, 44350 and 46710.
45556	LD A,18	FLASH: OFF.
45558	RST 16
45559	SUB A
45560	RST 16
45561	LD A,19	BRIGHT: ON.
45563	RST 16
45564	LD A,1
45566	RST 16
45567	LD A,20	INVERSE: OFF.
45569	RST 16
45570	SUB A
45571	RST 16
45572	LD A,21	OVER: OFF.
45574	RST 16
45575	SUB A
45576	RST 16
45577	CALL 32768	Call 32768.
45580	LD HL,16384	Write 0 to 6144 bytes of the screen buffer, starting at 16384.
45583	LD DE,16385
45586	LD BC,6143
45589	LD (HL),0
45591	LDIR
45593	LD HL,22528	Write INK: GREEN, PAPER: BLACK (BRIGHT) to 0768 bytes of the attribute buffer, starting at 22528.
45596	LD DE,22529
45599	LD (HL),68
45601	LD BC,767
45604	LDIR
45606	LD HL,65024	Write 0 to 0255 bytes, starting from 65024.
45609	LD DE,65025
45612	LD (HL),0
45614	LD BC,255
45617	LDIR
45619	LD HL,51380	Write 51380 to *CHARS.
45622	LD (23606),HL	Write 51380 to *CHARS.
45625	LD HL,25600	Write 25600 to *65120.
45628	LD (65120),HL	Write 25600 to *65120.
45631	LD HL,0	Write 0000 to: 65118 65122
45634	LD (65118),HL
45637	LD (65122),HL
45640	LD A,48	Write 48 to *65128.
45642	LD (65128),A	Write 48 to *65128.
45645	LD HL,51752	Write 51752 to *65090.
45648	LD (65090),HL	Write 51752 to *65090.
45651	LD HL,51806	Write 51806 to *65094.
45654	LD (65094),HL	Write 51806 to *65094.
45657	LD A,(65122)
45660	ADD A,16
45662	LD (65122),A
45665	LD HL,(65120)
45668	LD DE,65036
45671	ADD HL,DE
45672	LD (65120),HL
45675	LD HL,(65118)
45678	LD (65098),HL
45681	LD HL,(65120)
45684	LD (65100),HL
45687	LD HL,56582
45690	LD (65074),HL
45693	LD HL,56758
45696	LD (65078),HL
45699	LD L,A
45700	LD A,26
45702	CALL 35050	Call 35050.
45705	LD HL,(65074)
45708	LD (65076),HL
45711	LD HL,51698
45714	LD (65074),HL
45717	LD HL,57028
45720	LD (65080),HL
45723	LD HL,57084
45726	LD (65082),HL
45729	LD A,22	A=22.
45731	CALL 34400	Call 34400.
45734	LD A,253
45736	IN A,(254)
45738	AND 2
45740	JP Z,45244
45743	LD HL,51482
45746	LD (65026),HL
45749	CALL 32860
45752	CALL 35900
45755	LD A,(65128)
45758	DEC A
45759	LD (65128),A
45762	JP NZ,45645
45765	LD B,26
45767	LD HL,52754
45770	LD A,(HL)
45771	PUSH HL
45772	PUSH BC
45773	RST 16
45774	POP BC
45775	POP HL
45776	INC HL
45777	DJNZ 45770
45779	LD A,20
This entry point is used by the routine at 45813.
45781	LD HL,22528
45784	INC (HL)
45785	BIT 3,(HL)
45787	JP NZ,45813
45790	LD DE,22529
45793	LD BC,767
45796	LDIR
45798	PUSH AF
45799	LD A,253
45801	IN A,(254)
45803	LD C,A
45804	POP AF
45805	BIT 1,C
45807	JP Z,45244
45810	JP 45781	Jump to 45781.