;
		INCLUDE	zel_ram.asm
;
;------------------------------------------------------------------------
;
;		PAL_ZELDA-3 (GERMAN)			1991.09.19(THU)
;
;------------------------------------------------------------------------
;
		ORG	07FD80H
;
;=============================================== (zel_init) =============
		GLB	UROJCST,ROBJCST
;
		GLB	RBGCDT,CGPTDT
;========================================================================
;
		EXTEND
		MEM8
		IDX8
;
;
;
;
;========================================================================
;
;
;************************************************************************
;*		Enemy character point set		(ROBJCST)	*
;************************************************************************
ROBJCDT		EQU	$		; character table
		HEX	00,00,00,00,00,00,00,00		; zenhan
		HEX	00,00,00,00,00,00,00,00
		HEX	00,00,00,00,00,00,00,00
		HEX	00,00,00,02,02,00,00,00
		HEX	00,00,00,02,02,00,00,00
		HEX	00,00,00,02,02,00,00,00
		HEX	00,00,00,00,00,00,00,00
		HEX	00,00,00,00,00,00,00,00
ROBJCD0		EQU	$
		HEX	07,07,07,10,10,10,10,10		; chuban
		HEX	07,07,07,10,10,10,10,04
		HEX	06,06,00,03,03,00,0D,0A
		HEX	06,06,01,01,01,02,05,05
		HEX	06,06,06,01,01,04,05,05
		HEX	06,09,0F,00,00,0B,0B,05
		HEX	08,08,0A,04,04,04,04,04
		HEX	08,08,0A,04,04,04,04,04
ROBJCD1		EQU	$
		HEX	07,07,1A,10,10,10,10,10		; kouhan
		HEX	07,07,1A,10,10,10,10,04
		HEX	06,06,00,03,03,00,0D,0A
		HEX	06,06,1C,1C,1C,02,05,05
		HEX	06,06,1B,1C,1C,00,05,05
		HEX	06,00,0F,00,00,23,23,05
		HEX	1F,1F,0A,20,20,20,20,20
		HEX	1F,1F,0A,20,20,20,20,20
;;;;;;;;		HEX	25,25,1A,21,21,21,21,21		; kouhan
;;;;;;;;		HEX	25,25,1A,21,21,21,21,20
;;;;;;;;		HEX	1B,1B,12,1D,1D,12,24,22
;;;;;;;;		HEX	1B,1B,1C,1C,1C,1C,1E,1E
;;;;;;;;		HEX	1B,1B,1B,1C,1C,12,1E,1E
;;;;;;;;		HEX	1B,12,0F,12,12,23,23,1E
;;;;;;;;		HEX	1F,1F,22,20,20,20,20,20
;;;;;;;;		HEX	1F,1F,22,20,20,20,20,20
ROBJCD2		EQU	$
		HEX	13,13,17,14,14,14,14,14		; URA
		HEX	13,13,17,14,14,14,14,16
		HEX	15,15,12,13,13,18,16,16
		HEX	15,15,13,26,26,13,17,17
		HEX	15,15,15,26,26,13,17,17
		HEX	15,15,11,13,13,18,18,17
		HEX	16,16,18,13,13,19,19,19
		HEX	16,16,18,13,18,19,19,19
UROJCDT		EQU	$		; URA
;
;
ROJCCDT		EQU	$		; color table
		HEX	01,01,01,01,01,01,01,01
		HEX	01,01,01,01,01,01,01,01
		HEX	01,01,01,01,01,01,01,01
		HEX	01,01,01,01,01,01,01,01
		HEX	01,01,01,01,01,01,01,01
		HEX	01,01,01,01,01,01,01,01
		HEX	01,01,01,01,01,01,01,01
		HEX	01,01,01,01,01,01,01,01
ROJCCD0		EQU	$
		HEX	05,05,06,09,09,09,09,09
		HEX	05,05,06,09,09,09,09,03
		HEX	01,01,00,02,02,00,06,03
		HEX	01,01,01,01,01,03,07,07
		HEX	01,01,01,01,01,03,07,07
		HEX	01,00,01,00,00,03,03,07
		HEX	04,04,00,03,03,03,03,03
		HEX	04,04,00,03,03,03,03,03
ROJCCD1		EQU	$
		HEX	05,05,06,09,09,09,09,09
		HEX	05,05,06,09,09,09,09,03
		HEX	01,01,00,02,02,00,06,03
		HEX	01,01,01,01,01,03,07,07
		HEX	01,01,01,01,01,03,07,07
		HEX	01,00,01,00,00,03,03,07
		HEX	04,04,00,03,03,03,03,03
		HEX	04,04,00,03,03,03,03,03
ROJCCD2		EQU	$
		HEX	0E,0E,10,0C,0C,0C,0C,0C
		HEX	0E,0E,10,0C,0C,0C,0C,0A
		HEX	10,10,00,0E,0E,00,0D,0A
		HEX	10,10,10,0E,0E,0E,0D,0D
		HEX	10,10,10,0E,0E,0E,0D,0D
		HEX	10,10,0B,0E,0E,0E,0E,0D
		HEX	0F,0F,00,0E,0E,0E,0E,0E
		HEX	0F,0F,00,0E,0E,0E,0E,0E
UROJCCD		EQU	$		; URA
;
;
;
;
UROJCST		EQU	$
		PHB
		PHK
		PLB			; (DBR) set
;
		MEM16
		IDX16
		REP	#00110000B	; memory,index 16bit mode
;
		LDY	#(UROJCDT-ROBJCDT)-2
		LDX	#(8*8)-2
ROJCS60		EQU	$
		LDA	ROBJCDT+000H,Y
		STA	>ROBJTBL+040H,X
		LDA	ROJCCDT+000H,Y
		STA	>ROJCTBL+040H,X
		DEY
		DEY
		DEX
		DEX
		BPL	ROJCS60		; set end ?
;					; yes
		BRA	ROJCS00
;
;
ROBJCST		EQU	$
		PHB
		PHK
		PLB			; (DBR) set
;
		MEM16
		IDX16
		REP	#00110000B	; memory,index 16bit mode
ROJCS00		EQU	$
		LDY	#(ROBJCD0-ROBJCDT)-2
		LDA	>MODTBL0
		AND	#000FFH
		CMP	#00002H
		BCC	ROJCS20		; zenhan ?
;					; no
		LDY	#(ROBJCD1-ROBJCDT)-2
		CMP	#00003H
		BNE	ROJCS20		; kouhan ?
;					; yes
		LDY	#(ROBJCD2-ROBJCDT)-2
ROJCS20		EQU	$
		LDX	#(8*8)-2
ROJCS40		EQU	$
		LDA	ROBJCDT+000H,Y
		STA	>ROBJTBL+000H,X
		LDA	ROJCCDT+000H,Y
		STA	>ROJCTBL+000H,X
		DEY
		DEY
		DEX
		DEX
		BPL	ROJCS40		; set end ?
;					; yes
		MEM8
		IDX8
		SEP	#00110000B	; memory,index 8bit mode
;
		PLB			; (DBR) reset
		RTL
;
;
;
;
;************************************************************************
;*		Ground BG. character & CG. point data			*
;************************************************************************
RBGCDT		EQU	$
		HEX	21,21,21,22,22,22,22,22
		HEX	21,21,21,22,22,22,22,27
		HEX	23,23,20,29,29,20,29,29
		HEX	23,23,20,24,24,27,25,25
		HEX	23,23,23,24,24,20,25,25
		HEX	23,2A,21,20,20,27,20,25
		HEX	2B,2B,20,27,27,27,27,27
		HEX	2B,2B,20,27,27,27,27,27
;
		HEX	3E,3E,3E,41,41,41,41,3C
		HEX	3E,3E,3E,41,41,41,41,40
		HEX	3F,3F,30,40,40,30,40,30
		HEX	3F,3F,30,3B,3B,40,3D,3D
		HEX	3F,3F,3F,3B,3B,30,3D,3D
		HEX	3F,3F,30,30,30,40,30,3D
		HEX	42,42,30,40,40,42,42,40
		HEX	42,42,30,40,40,42,42,30
;
;
CGPTDT		EQU	$
		HEX	06,06,08,07,07,07,07,07
		HEX	06,06,08,07,07,07,07,04
		HEX	08,08,00,01,01,00,09,00
		HEX	08,08,00,02,02,04,09,09
		HEX	08,08,08,02,02,00,09,09
		HEX	08,08,01,00,00,04,00,09
		HEX	09,00,00,04,04,04,04,04
		HEX	09,09,00,04,04,04,04,04
;
		HEX	1B,1B,1E,17,17,17,17,18
		HEX	1B,1B,1E,17,17,17,17,1D
		HEX	1E,1E,10,1E,1E,10,1E,10
		HEX	1E,1E,10,12,12,10,1A,1A
		HEX	1E,1E,1E,12,12,10,1A,1A
		HEX	1E,10,12,10,10,1D,10,1A
		HEX	1C,1C,10,1D,1D,1C,1C,10
		HEX	1C,1C,10,1D,1D,1C,1C,10
;
		HEX	0A,0A,0A,0A,02,02,02,0A
;
;
;
;
;
;
		END