Batty: Routine at 48591

48591: Routine at BDCF

Used by the routine at StartGame.
48591	LD DE,16384
48594	LD HL,55808
48597	LD B,0
48599	LD A,192
48601	EX AF,AF'
48602	LD C,32
48604	PUSH DE
48605	LDIR
48607	POP DE
48608	LD A,D
48609	INC D
48610	CPL
48611	AND 7
48613	JR NZ,48625
48615	LD A,E
48616	ADD A,32
48618	LD E,A
48619	JR C,48625
48621	LD A,D
48622	SUB 8
48624	LD D,A
48625	EX AF,AF'
48626	DEC A
48627	JR NZ,48601
48629	RET
This entry point is used by the routine at StartGame.
48630	LD DE,22528
48633	LD HL,55040
48636	LD BC,768
48639	LDIR
48641	RET
This entry point is used by the routine at 38493.
48642	LD C,(HL)
48643	LD A,(DE)
48644	LD (HL),A
48645	LD A,C
48646	LD (DE),A
48647	INC HL
48648	INC DE
48649	DJNZ 48642
48651	RET
This entry point is used by the routine at StartGame.
48652	LD A,(47088)
48655	AND A
48656	RET Z
48657	LD DE,(38793)
48661	PUSH DE
48662	LD A,(47090)
48665	CALL 38777
48668	POP DE
48669	LD BC,24832
48672	LD A,180
48674	EX AF,AF'
48675	LD A,(DE)
48676	PUSH AF
48677	LD A,(BC)
48678	LD (HL),A
48679	POP AF
48680	LD (BC),A
48681	INC HL
48682	INC DE
48683	INC BC
48684	EX AF,AF'
48685	DEC A
48686	JR NZ,48674
This entry point is used by the routine at StartGame.
48688	LD HL,47080
48691	LD DE,47088
48694	LD B,8
48696	CALL 48642
48699	LD HL,47014
48702	LD DE,47048
48705	LD B,10
48707	CALL 48642
48710	LD A,(47080)
48713	AND A
48714	RET Z
48715	LD A,(47078)
48718	XOR 1
48720	LD (47078),A
48723	RET
This entry point is used by the routine at StartGame.
48724	CALL 38774
48727	PUSH HL
48728	CALL 47289
48731	POP HL
48732	LD B,180
48734	LD C,0
48736	LD A,(HL)
48737	AND 160
48739	JR NZ,48742
48741	INC C
48742	INC HL
48743	DJNZ 48736
48745	LD A,C
48746	LD (47081),A
48749	RET
This entry point is used by the routine at StartGame.
48750	LD HL,47036
48753	LD DE,47086
48756	LD B,3
48758	LD A,(DE)
48759	CP (HL)
48760	RET C
48761	JR NZ,48767
48763	DEC DE
48764	DEC HL
48765	DJNZ 48758
48767	LD DE,47034
48770	LD HL,47084
48773	LD BC,3
48776	LDIR
48778	RET
This entry point is used by the routine at StartGame.
48779	LD HL,36576
48782	LD A,(47082)
48785	AND 3
48787	ADD A,A
48788	CALL PrintLine_9
48791	LD E,(HL)
48792	INC HL
48793	LD D,(HL)
48794	LD (48802),DE
48798	LD HL,3840
48801	LD DE,49173
48804	CALL PrintLine_10
48807	CALL 46659
48810	LD A,16
48812	ADD A,L
48813	LD L,A
48814	JR NZ,48801
48816	LD L,0
48818	LD A,H
48819	ADD A,16
48821	LD H,A
48822	CP 207
48824	JR NZ,48801
48826	LD HL,40704
48829	LD DE,27535
48832	EXX
48833	LD HL,48896
48836	LD DE,27455
48839	LD B,7
48841	PUSH BC
48842	PUSH DE
48843	LD L,0
48845	CALL PrintLine_10
48848	CALL 46659
48851	LD L,248
48853	CALL PrintLine_10
48856	CALL 46659
48859	POP DE
48860	LD A,200
48862	ADD A,H
48863	LD H,A
48864	EXX
48865	POP BC
48866	DJNZ 48841
48868	LD HL,55617
48871	LD A,4
48873	LD DE,32
48876	LD C,D
48877	EX AF,AF'
48878	LD B,28
48880	PUSH HL
48881	RES 7,(HL)
48883	ADD HL,DE
48884	DJNZ 48881
48886	POP HL
48887	PUSH HL
48888	LD A,L
48889	ADD A,29
48891	LD L,A
48892	LD B,28
48894	RES 0,(HL)
48896	ADD HL,DE
48897	DJNZ 48894
48899	POP HL
48900	LD B,7
48902	ADD HL,BC
48903	EX AF,AF'
48904	DEC A
48905	JR NZ,48877
48907	LD DE,32
48910	LD B,6
48912	LD HL,55646
48915	LD A,(55645)
48918	LD (HL),A
48919	ADD HL,DE
48920	DJNZ 48918
48922	LD HL,49127
48925	EXX
48926	LD HL,1792
48929	EXX
48930	LD E,(HL)
48931	INC HL
48932	LD D,(HL)
48933	INC HL
48934	PUSH DE
48935	EXX
48936	POP DE
48937	CALL PrintLine_10
48940	CALL 46659
48943	LD A,32
48945	ADD A,L
48946	LD L,A
48947	JR NC,48929
48949	LD HL,56065
48952	LD DE,49143
48955	LD B,30
48957	LD A,(DE)
48958	AND (HL)
48959	LD (HL),A
48960	INC L
48961	INC DE
48962	DJNZ 48957
48964	LD A,8
48966	LD (39876),A
48969	LD A,(47080)
48972	DEC A
48973	JR Z,49002
48975	LD B,A
48976	LD IX,39874
48980	PUSH BC
48981	CALL 46724
48984	CALL 39184
48987	LD A,(39876)
48990	ADD A,16
48992	CP 233
48994	JR NC,48999
48996	LD (39876),A
48999	POP BC
49000	DJNZ 48980
49002	LD A,(47077)
49005	CP 2
49007	JR NZ,49019
49009	LD IX,39918
49013	CALL 46724
49016	CALL 39184
49019	LD IX,39892
49023	LD (IX+2),28
49027	LD (IX+1),1
49031	CALL 46724
49034	CALL 39184
49037	INC (IX+1)
49040	LD (IX+2),204
49044	CALL 46724
49047	CALL 39184
49050	INC (IX+1)
49053	LD (IX+2),120
49057	CALL 46724
49060	CALL 39184
49063	LD HL,(47014)
49066	EXX
49067	LD HL,47086
49070	CALL 38654
49073	LD HL,(47048)
49076	EXX
49077	LD HL,47094
49080	CALL 38654
49083	LD HL,(47030)
49086	EXX
49087	LD HL,47036
49090	CALL 38654
49093	CALL 36172
49096	CALL 44513
49099	CALL 49103
49102	RET
49103	LD HL,55073
49106	LD B,23
49108	LD DE,32
49111	RES 6,(HL)
49113	ADD HL,DE
49114	DJNZ 49111
49116	LD HL,55074
49119	LD B,29
49121	RES 6,(HL)
49123	INC L
49124	DJNZ 49121
49126	RET
49127	CALL 62827
49130	LD L,E
49131	DEC E
49132	LD L,H
49133	PUSH AF
49134	LD L,E
49135	LD B,L
49136	LD L,H
49137	LD L,L
49138	LD L,H
49139	LD B,L
49140	LD L,H
49141	SUB L
49142	LD L,H
49143	NOP
49144	NOP
49145	INC BC
49146	RST 56
49147	RST 56
49148	RST 56
49149	RET NZ
49150	NOP
49151	NOP
49152	NOP
49153	INC BC
49154	RST 56
49155	RST 56
49156	RST 56
49157	RET NZ
49158	INC BC
49159	RST 56
49160	RST 56
49161	RST 56
49162	RET NZ
49163	NOP
49164	NOP
49165	NOP
49166	INC BC
49167	RST 56
49168	RST 56
49169	RST 56
49170	RET NZ
49171	NOP
49172	NOP