Atic Atac: Routine at 38070

38070: Place Key Pieces

Used by the routine at StartGame.
PlaceKeyPieces	38070	LD A,(23672)
	38073	LD C,A
	38074	LD A,(24082)
	38077	ADD A,C
	38078	AND 7
	38080	LD C,A
	38081	ADD A,A
	38082	ADD A,C
	38083	LD L,A
	38084	LD H,0
	38086	LD BC,38109
	38089	ADD HL,BC
	38090	EX DE,HL
	38091	LD HL,24614
	38094	LD BC,8
	38097	LD A,3
PlaceKeyPieces_0	38099	EX AF,AF'
	38100	LD A,(DE)
	38101	LD (HL),A
	38102	ADD HL,BC
	38103	INC DE
	38104	EX AF,AF'
	38105	DEC A
	38106	JR NZ,PlaceKeyPieces_0
	38108	RET
	38109	ADD A,C
	38110	LD B,L
	38111	LD A,H
	38112	ADD A,L
	38113	LD C,C
	38114	DEC HL
	38115	LD L,D
	38116	DEC SP
	38117	LD A,H
	38118	LD L,C
	38119	LD (HL),C
	38120	DEC HL
	38121	LD H,A
	38122	ADD A,L
	38123	LD A,H
	38124	LD L,B
	38125	LD A,A
	38126	DEC HL
	38127	LD C,L
	38128	LD (HL),E
	38129	LD A,H
	38130	RLA
	38131	DJNZ RandomiseDoors_2