	INCLUDE mn_hp_mr3ram.asm
; 
;<MR3MAIN>================================================================================
         EXT      JSRSUB,BUFFCLR,BUFFCLR1,DATASET,JSRSUBL
; 
         EXT      MPGM,BLGM,MSGM,YMGM,SLGM,CDGM,SRGM,ALGM,BNGM
         EXT      PYGM,MZGM,SPGM,MTGM 
; 
;<MR3END0>================================================================================
         EXT      E000,E001,E002,E003,E004,E005,E006,E007,E008,E00A 
         EXT      E00B,E00C,E00D,E00E,E00F,E010 
         EXT      E106,E10D,E11D,E112,E113,E127 
         EXT      E280
         EXT      E403
         EXT      E605
         EXT      E71E
; 
;<MR3DAT3>================================================================================
         EXT      TWOBGDT,BETASET,HAT1SET,HAT2SET,BYM0SET,BYM1SET,BYM2SET 
         EXT      BDK0SET,BDK1SET,DKY0SET,DKY1SET,TAIHSET,HASISET,HAT3SET 
         EXT      KORASET,BDK2SET,BDK3SET,BDK4SET,KURGSET,CIKUSET,DOR2SET 
; 
         EXT      YPINCST 
; 
;<MR3BGD1>================================================================================
         EXT      B106,B10D,B112,B113,B127,B11D 
; 
         EXT      B280
;<MR3BGD6>================================================================================
         EXT      B605
; 
         EXT      B71E
;<MR3BGD4>================================================================================
         GLB      COLADR9,ALLCRS9,DTRMST9,KAH9SET,KOT9SET 
         GLB      DTRMSTA,DTRMSTB 
;;;;         GLB      COLADRA,ALLCRSA,DTRMSTA,KAHASET,KOTASET 
; 
         GLB      MIZ30,BOX00,BOX01,BOX02,BOX03,BOX04,BOX05,BOX06,BOX07 
         GLB      UPYJ0,UPYJ1,LFYJ0,LFYJ1,RIYJ0,RIYJ1,QTYJ0,QTYJ1 
         GLB      TDK01,TDK0D,DKAD4,TTOG0,TTOG1,BDK10,BDK11,BDK12 
         GLB      KURA0,BDOK3,BDOK4,TDK14,TDK15,TDK19,TDK1A,SPBK0
	 GLB	  MISE0,MISE1,MISE2,MISE3,MISE4,MISE5,MISE6,MISE7
	 GLB	  MISE8,MISE9,SHSP0
;
         GLB      B400,B401,B402,B403,B404,B405,B406,B407,B408,B409,B40A,B40B,B40C,B40D,B40E,B40F 
         GLB      B410,B411,B412,B413,B414,B415,B416,B417,B418,B419,B41A,B41B,B41C,B41D,B41E,B41F 
         GLB      B420,B421,B422,B423,B424,B425,B426,B427,B428,B429,B42A,B42B,B42C,B42D,B42E,B42F 
         GLB      B430,B431,B432,B433,B434,B435,B436,B437,B438,B439,B43A,B43B,B43C,B43D,B43E,B43F 
; 
         GLB      B406L,B406H 
;
;<MR3BGD4>================================================================================
	EXT	MISESET
;
;-----------------------------------------------------------------------------------------
;
         ORG      0258000H
		EXTEND
		IDX8
		MEM8
; 
;-----------------------------------------------------------------------------------------
;======= suichu display unnit-no. data ===============================
COLADR9  EQU      $           ; chika game 1 display
MIZU00   EQU      $ 
		WORD	010FFH,010FFH,010FFH,010FFH	; 00
		WORD	010FFH,010FFH,010FFH,010FFH	; 01
		WORD	010FFH,010FFH,010FFH,010FFH	; 02
JPTOMI		WORD	01005H,01006H,01007H,01008H	; 03
GHASI0		WORD	01005H,00CD6H,01007H,00CD6H	; 04 ha-si (te-su-ri)
GHASI1		WORD	014E8H,014E9H,014EAH,014EBH	; 05
SHSPC4		WORD	010FFH,01099H,01099H,01099H	; 06
SHSPC5		WORD	01099H,01099H,010FFH,01099H	; 07
SHSPC6		WORD	01099H,01099H,01099H,010FFH	; 08
SHSPC7		WORD	010FFH,010FFH,010FFH,010FFH	; 09
;
SPYUK0		WORD	01062H,010FDH,01062H,010FDH	; 0A
SPYUK1		WORD	01063H,010FFH,01063H,010FFH	; 0B
TTOGE0		WORD	0147CH,0147DH,0147CH,0147DH	; 0C
TTOGE1		WORD	0147EH,0147FH,0147EH,0147FH	; 0D
		WORD	010FFH,010FFH,010FFH,010FFH	; 0E
		WORD	010FFH,010FFH,010FFH,010FFH	; 0F
		WORD	010FFH,010FFH,010FFH,010FFH	; 10
		WORD	010FFH,010FFH,010FFH,010FFH	; 11
		WORD	010FFH,010FFH,010FFH,010FFH	; 12
		WORD	010FFH,010FFH,010FFH,010FFH	; 13
		WORD	010FFH,010FFH,010FFH,010FFH	; 14
		WORD	010FFH,010FFH,010FFH,010FFH	; 15
		WORD	010FFH,010FFH,010FFH,010FFH	; 16
		WORD	010FFH,010FFH,010FFH,010FFH	; 17
		WORD	010FFH,010FFH,010FFH,010FFH	; 18
		WORD	010FFH,010FFH,010FFH,010FFH	; 19
		WORD	010FFH,010FFH,010FFH,010FFH	; 1A
		WORD	010FFH,010FFH,010FFH,010FFH	; 1B
		WORD	010FFH,010FFH,010FFH,010FFH	; 1C
		WORD	010FFH,010FFH,010FFH,010FFH	; 1D
		WORD	010FFH,010FFH,010FFH,010FFH	; 1E
		WORD	010FFH,010FFH,010FFH,010FFH	; 1F
		WORD	010FFH,010FFH,010FFH,010FFH	; 20
		WORD	010FFH,010FFH,010FFH,010FFH	; 21
		WORD	010FFH,010FFH,010FFH,010FFH	; 22
		WORD	010FFH,010FFH,010FFH,010FFH	; 23
		WORD	010FFH,010FFH,010FFH,010FFH	; 24
		WORD	010FFH,010FFH,010FFH,010FFH	; 25
		WORD	010FFH,010FFH,010FFH,010FFH	; 26
		WORD	010FFH,010FFH,010FFH,010FFH	; 27
		WORD	010FFH,010FFH,010FFH,010FFH	; 28
		WORD	010FFH,010FFH,010FFH,010FFH	; 29
		WORD	010FFH,010FFH,010FFH,010FFH	; 2A
		WORD	010FFH,010FFH,010FFH,010FFH	; 2B
		WORD	010FFH,010FFH,010FFH,010FFH	; 2C
		WORD	010FFH,010FFH,010FFH,010FFH	; 2D
NSJUMP		WORD	014B8H,014B9H,014BAH,014BBH	; 2E --------------
HKABE9		WORD	014B8H,014B9H,014BAH,014BBH	; 2F  nomal
HNJUMP		WORD	014B8H,014B9H,014BAH,014BBH	; 30   jump dai
HSJUMP		WORD	014B8H,014B9H,014BAH,014BBH	; 31 --------------
KOHRA0		WORD	014BCH,014BDH,014BEH,014BFH	; 32 ice Block
		WORD	010FFH,010FFH,010FFH,010FFH	; 33
		WORD	010FFH,010FFH,010FFH,010FFH	; 34
		WORD	010FFH,010FFH,010FFH,010FFH	; 35
		WORD	010FFH,010FFH,010FFH,010FFH	; 36
		WORD	010FFH,010FFH,010FFH,010FFH	; 37
		WORD	010FFH,010FFH,010FFH,010FFH	; 38
		WORD	010FFH,010FFH,010FFH,010FFH	; 39
		WORD	010FFH,010FFH,010FFH,010FFH	; 3A
		WORD	010FFH,010FFH,010FFH,010FFH	; 3B
		WORD	010FFH,010FFH,010FFH,010FFH	; 3C
		WORD	010FFH,010FFH,010FFH,010FFH	; 3D
		WORD	010FFH,010FFH,010FFH,010FFH	; 3E
		WORD	010FFH,010FFH,010FFH,010FFH	; 3F
;
MIZU10		EQU	$
GCOIN0		WORD	01CDCH,01CDDH,01CDEH,01CDFH	; 00 BG coin
GCOIN1		WORD	01405H,01406H,01407H,01408H	; 01
DOOR0D		WORD	01664H,01674H,01665H,01675H	; 02 door
DOOR1D		WORD	01264H,01274H,01265H,01275H	; 03 door
CNTOMI		WORD	01405H,01406H,01407H,01408H	; 04
UPTOMI		WORD	01405H,01406H,01407H,01408H	; 05
SPTOMI		WORD	01405H,01406H,01407H,01408H	; 06
BACK00		WORD	01405H,01406H,01407H,01408H	; 07
SHSPC0		WORD	00CFCH,00CFCH,00CFCH,00CFCH	; 08 --------------
SHSPC1		WORD	00CFCH,00CFCH,00CFCH,00CFCH	; 09  shop
SHSPC2		WORD	00CFCH,00CFCH,00CFCH,00CFCH	; 0A   back be-ta
SHSPC3		WORD	00CFCH,00CFCH,00CFCH,00CFCH	; 0B --------------
;;;NOM;;;SHSPC0		WORD	01899H,01899H,01899H,01899H	; 08 --------------
;;;NOM;;;SHSPC1		WORD	01099H,01899H,01099H,01899H	; 09  shop
;;;NOM;;;SHSPC2		WORD	01099H,01899H,01099H,01099H	; 0A   back be-ta
;;;NOM;;;SHSPC3		WORD	01899H,01899H,01099H,01099H	; 0B --------------
;;K;;SHSPC0		WORD	01499H,01499H,01499H,01499H	; 08
;;K;;SHSPC1		WORD	014FFH,01499H,014FFH,01499H	; 09
;;K;;SHSPC2		WORD	014FFH,01499H,014FFH,014FFH	; 0A
;;K;;SHSPC3		WORD	01499H,01499H,014FFH,014FFH	; 0B
;
DOKAD0		WORD	01C1AH,01C4CH,01C4AH,01E7EH	; 0C --------------
DOKAD1		WORD	01C4AH,01E7EH,01C1CH,01C4DH	; 0D	|
DOKAD2		WORD	01C4CH,01C1BH,01E7EH,01C4BH	; 0E	|
DOKAD3		WORD	01E7EH,01C4BH,01C4DH,01C1DH	; 0F  ta-te scroll
DOKAD4		WORD	01C1EH,01C4CH,01C4AH,01E7EH	; 10   do-ka-n tu-na-gi
DOKAD5		WORD	01C4AH,01E7EH,01C2EH,01C4DH	; 11	|
DOKAD6		WORD	01C4CH,01C1FH,01E7EH,01C4BH	; 12	|
DOKAD7		WORD	01E7EH,01C4BH,01C4DH,01C2FH	; 13 --------------
UPYAJ0		WORD	01844H,01854H,01845H,01855H	; 14
UPYAJ1		WORD	01846H,01856H,01847H,01857H	; 15
LFYAJ0		WORD	01844H,01854H,01878H,0187AH	; 16
LFYAJ1		WORD	01879H,0187BH,01847H,01857H	; 17
RIYAJ0		WORD	01844H,01854H,01820H,01822H	; 18
RIYAJ1		WORD	01821H,01823H,01847H,01857H	; 19
QTYAJ0		WORD	01844H,01854H,01830H,01832H	; 1A
MARUTB		WORD	0105CH,0105DH,0105EH,0105FH	; 1B ti-ku-wa block
QTYAJ1		WORD	01831H,01833H,01847H,01857H	; 1C
MZYUK0		WORD	01409H,0144CH,0144AH,0167EH	; 1D
MZYUK1		WORD	0144AH,0167EH,0144AH,0167EH	; 1E
NSBLOK		WORD	01E54H,01E55H,01E56H,01E57H	; 1F no move block
KNQEST		WORD	01C98H,01C99H,01C9AH,01C9BH	; 20 --------------
HNQEST		WORD	01C98H,01C99H,01C9AH,01C9BH	; 21	|
HSQEST		WORD	01C98H,01C99H,01C9AH,01C9BH	; 22 ha-te-na
CNQEST		WORD	01C98H,01C99H,01C9AH,01C9BH	; 23   block
HCQEST		WORD	01C98H,01C99H,01C9AH,01C9BH	; 24	|
TCQEST		WORD	01C98H,01C99H,01C9AH,01C9BH	; 25 --------------
ENQEST		WORD	01C92H,01C93H,01CCAH,01CCBH	; 26 BG pa-ku-n
BLBLK0		WORD	01CB4H,01CB5H,01CB6H,01CB7H	; 27 --------------
KNBLOK		WORD	01CB4H,01CB5H,01CB6H,01CB7H	; 28	|
HNBLOK		WORD	01CB4H,01CB5H,01CB6H,01CB7H	; 29	|
HSBLOK		WORD	01CB4H,01CB5H,01CB6H,01CB7H	; 2A	|
CNBLOK		WORD	01CB4H,01CB5H,01CB6H,01CB7H	; 2B  wa-re-ru
HCBLOK		WORD	01CB4H,01CB5H,01CB6H,01CB7H	; 2C   block
TCBLOK		WORD	01CB4H,01CB5H,01CB6H,01CB7H	; 2D	|
UPBLOK		WORD	01CB4H,01CB5H,01CB6H,01CB7H	; 2E	|
RPBLOK		WORD	01CB4H,01CB5H,01CB6H,01CB7H	; 2F	|
ENBLOK		WORD	01CB4H,01CB5H,01CB6H,01CB7H	; 30 --------------
SPJMP0		WORD	010B8H,010B9H,010BAH,010BBH	; 31
NSJMPY		WORD	01244H,01245H,01246H,01247H	; 32 --------------
KNJMPY		WORD	01244H,01245H,01246H,01247H	; 33  si-ma
HNJMPY		WORD	01244H,01245H,01246H,01247H	; 34   block
HSJMPY		WORD	01244H,01245H,01246H,01247H	; 35 --------------
TAIHO0		WORD	01648H,01649H,0164AH,0164BH	; 36 houdai top
TAIHO1		WORD	0164CH,0164DH,0164EH,0164FH	; 37 houdai center
TAIHO2		WORD	01658H,01658H,01659H,01659H	; 38 houdai down
BLBLK1		WORD	01244H,01245H,01246H,01247H	; 39 si-ma block
SABAK0		WORD	014D5H,014B2H,014D5H,014B2H	; 3A
SABAK2		WORD	014B2H,014B2H,014B2H,014B2H	; 3B
MZYUK2		WORD	0144AH,0167EH,0140AH,0144DH	; 3C
MZYUK3		WORD	0144CH,0140BH,0167EH,0144BH	; 3D
MZYUK4		WORD	0167EH,0144BH,0167EH,0144BH	; 3E
MZYUK5		WORD	0167EH,0144BH,0144DH,0140CH	; 3F
;
MIZU20		EQU	$
BETA20		WORD	01805H,01806H,01807H,01808H	; 00
BOOX00		WORD	01840H,01844H,01841H,01845H	; 01 --------------
BOOX01		WORD	01842H,01846H,01843H,01847H	; 02  shop
BOOX02		WORD	01848H,0184CH,01849H,0184DH	; 03   item box
BOOX03		WORD	0184AH,0184EH,0184BH,0184FH	; 04 --------------
HANA06		WORD	01CC4H,01CC4H,01CC6H,01CC6H	; 05 tu-ru
BOOX04		WORD	01850H,01854H,01851H,01855H	; 06 shop open box left
BOOX05		WORD	01852H,01856H,01853H,01857H	; 07 shop open box right
BOOX06		WORD	0186CH,0186DH,0186EH,0186FH	; 08
BOOX07		WORD	01860H,0186DH,01861H,0186FH	; 09
;;;;MIZ304		WORD	018FEH,018FEH,018FEH,018FEH	; 0A --------------
MIZ304		WORD	018FFH,018FFH,018FFH,018FFH	; 0A --------------
MIZ300		WORD	00C84H,00C06H,00C85H,00C08H	; 0B	|
MIZ301		WORD	01805H,01806H,01807H,01808H	; 0C  water
MIZ302		WORD	018F0H,018F2H,018F1H,018F3H	; 0D	|
MIZ303		WORD	018F2H,018F2H,018F3H,018F3H	; 0E --------------
SANGO0		WORD	01880H,01890H,01881H,01891H	; 0F wa-ka-me
SANGO1		WORD	01882H,01890H,01883H,01891H	; 10 wa-ka-me
;
TDOK00		WORD	01E40H,01E50H,01E41H,01E51H	; 11 --------------
TDOK01		WORD	01E42H,01E52H,01E43H,01E53H	; 12	|
TDOK02		WORD	01C4EH,01C04H,01C4FH,01C0DH	; 13	|
TDOK03		WORD	01C04H,01C04H,01C0DH,01C0DH	; 14	|
TDOK04		WORD	01C04H,01C4EH,01C0DH,01C4FH	; 15	|
TDOK05		WORD	01C48H,01C58H,01C49H,01C59H	; 16	|
TDOK06		WORD	01C49H,01C59H,01C49H,01C59H	; 17	|

TDOK07		WORD	01C49H,01C59H,01C48H,01C58H	; 18	|
TDOK08		WORD	01C40H,01C41H,01C40H,01C41H	; 19	|
TDOK09		WORD	01C50H,01C51H,01C70H,01C71H	; 1A	|
TDOK0A		WORD	01C50H,01C51H,01C70H,01C71H	; 1B	|
TDOK0B		WORD	01C50H,01C51H,01C70H,01C71H	; 1C	|
TDOK0C		WORD	01C42H,01C43H,01C42H,01C43H	; 1D	|
TDOK0D		WORD	01C52H,01C53H,01C72H,01C73H	; 1E  ta-te scroll
TDOK0E		WORD	01C52H,01C53H,01C72H,01C73H	; 1F   do-ka-n
TDOK0F		WORD	01C52H,01C53H,01C72H,01C73H	; 20	(no-re-ru)
TDOK10		WORD	01C3CH,01C3EH,01E62H,01E62H	; 21	|
TDOK11		WORD	01E62H,01E62H,01C3DH,01C3FH	; 22	|
TDOK12		WORD	01C60H,01C61H,01E61H,01E61H	; 23	|
TDOK13		WORD	01E62H,01E62H,01C64H,01C65H	; 24	|
TDOK14		WORD	01C68H,01C41H,01C69H,01C41H	; 25	|
TDOK15		WORD	01C6AH,01C41H,01C6BH,01C41H	; 26	|
TDOK16		WORD	01C38H,01C41H,01C39H,01C41H	; 27	|
TDOK17		WORD	01C62H,01C63H,01E61H,01E61H	; 28	|
TDOK18		WORD	01E62H,01E62H,01C66H,01C67H	; 29	|
TDOK19		WORD	01C42H,01C6CH,01C42H,01C6DH	; 2A	|
TDOK1A		WORD	01C42H,01C6EH,01C42H,01C6FH	; 2B	|
TDOK1B		WORD	01C42H,01C3AH,01C42H,01C3BH	; 2C --------------
BLDOK1		WORD	01E40H,01E50H,01E41H,01E51H	; 2D --------------
BLDOK2		WORD	01E42H,01E52H,01E43H,01E53H	; 2E	|
BLDOK5		WORD	01E40H,01E50H,01E41H,01E51H	; 2F	|
BLDOK6		WORD	01E42H,01E52H,01E43H,01E53H	; 30	|
BLDOK7		WORD	01E40H,01E50H,01E41H,01E51H	; 31	|
BLDOK8		WORD	01E42H,01E52H,01E43H,01E53H	; 32	|
BLDOKE		WORD	01E40H,01E50H,01E41H,01E51H	; 33	|
BLDOKF		WORD	01E42H,01E52H,01E43H,01E53H	; 34	|
BLDOK9		WORD	01C52H,01C53H,01C72H,01C73H	; 35  do-ka-n
BLDOKA		WORD	01C52H,01C53H,01C72H,01C73H	; 36	|
BLDOKB		WORD	01C50H,01C51H,01C70H,01C71H	; 37	|
BLDOKC		WORD	01C40H,01C41H,01C40H,01C41H	; 38	|
BLDOKD		WORD	01C42H,01C43H,01C42H,01C43H	; 39	|
BLDOK3		WORD	01E60H,01E60H,01E61H,01E61H	; 3A	|
BLDOK4		WORD	01E62H,01E62H,01E63H,01E63H	; 3B --------------
JUMP01		WORD	018B8H,018B9H,018BAH,018BBH	; 3C all corss jump dai
BDOK10		WORD	01E40H,01E50H,01E41H,01E51H	; 3D do-ka-n
BDOK11		WORD	01E42H,01E52H,01E43H,01E53H	; 3E do-ka-n
BDOK12		WORD	01852H,01853H,01872H,01873H	; 3F
;
MIZU30		EQU	$
TTDK00		WORD	01840H,01841H,01840H,01841H	; 00
GHASI3		WORD	01C05H,01C06H,01C07H,01C08H	; 01
TTDK01		WORD	01850H,01851H,01870H,01871H	; 02 --------------
TTDK02		WORD	01842H,01843H,01842H,01843H	; 03	|
TTDK03		WORD	01852H,01853H,01872H,01873H	; 04	|
TTDK04		WORD	01A40H,01A50H,01A41H,01A51H	; 05	|
TTDK05		WORD	01A42H,01A52H,01A43H,01A53H	; 06	|
TTDK06		WORD	01A60H,01A60H,01A61H,01A61H	; 07	|
TTDK07		WORD	01A62H,01A62H,01A63H,01A63H	; 08 ta-te scroll
TTDK08		WORD	0184EH,01804H,0184FH,0180DH	; 09  do-ka-n
TTDK09		WORD	01804H,01804H,0180DH,0180DH	; 0A   (no-re-na-i)
TTDK0A		WORD	01804H,0184EH,0180DH,0184FH	; 0B	|
TTDK0B		WORD	01848H,01858H,01849H,01859H	; 0C	|
TTDK0C		WORD	01849H,01859H,01849H,01859H	; 0D	|
TTDK0D		WORD	01849H,01859H,01848H,01858H	; 0E --------------
MZIWA4		WORD	0152DH,0153DH,0152EH,0153EH	; 0F mi-zu i-wa
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 10
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 11
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 12
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 13
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 14
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 15
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 16
BKBOT0		WORD	000FFH,00CE6H,000FFH,00CE7H	; 17 break P swich
CKROK0		WORD	01CB3H,01CCDH,01CB3H,01CCFH	; 18
CKROK1		WORD	01CCCH,01CCDH,01CCEH,01CCFH	; 19
CKROK2		WORD	01CFCH,01CCDH,01CFCH,01CCFH	; 1A
MIZU35		WORD	01CC5H,01CFEH,01CC5H,01CFEH	; 1B
MIZU36		WORD	00CC7H,00CFEH,00CC7H,00CFEH	; 1C
MIZU37		WORD	01CD4H,01CFEH,01CD4H,01CFEH	; 1D
MIZU38		WORD	00CFEH,00CFEH,00CFEH,00CFEH	; 1E
MIZU39		WORD	01CFCH,01CFEH,01CFCH,01CFEH	; 1F
TAKI00		WORD	00CA6H,00CAEH,00CA7H,00CAFH	; 20
TAKI01		WORD	00CACH,00CAEH,00CADH,00CAFH	; 21
;;K;;TAKI00		WORD	01CAAH,01CABH,01CAAH,01CABH	; 20
;;K;;TAKI01		WORD	01CABH,01CABH,01CABH,01CABH	; 21
;
SANGO2		WORD	01074H,01075H,01076H,01077H	; 22 mi-zu ti-ku-wa
KAI000		WORD	01C0DH,01C0AH,01C09H,01C0BH	; 23
MYUKA0		WORD	01C0CH,01CFEH,01C0CH,01CFEH	; 24
MYUKA1		WORD	01CFEH,01CFEH,01CFEH,01CFEH	; 25
SPBLK0		WORD	00C68H,00C69H,00C6AH,00C6BH	; 26 shop block
MZIWA0		WORD	01434H,0145AH,01435H,0153DH	; 27 --------------
MZIWA1		WORD	01436H,0153EH,01435H,0153DH	; 28 	|
MZIWA2		WORD	01436H,0153DH,01437H,0153FH	; 29  mi-zu i-wa
MZIWA3		WORD	0145AH,0145BH,0152EH,0153EH	; 2A	|
MZIWA5		WORD	0152DH,0153DH,0152FH,0153FH	; 2B --------------
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 2C
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 2D
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 2E
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 2F
RENGA0		WORD	01C02H,01C12H,01C03H,01C13H	; 30
GHASI2		WORD	01CD7H,01C06H,01CD7H,01C08H	; 31
BKBOT1		WORD	00CE0H,00CE1H,00CE2H,00CE3H	; 32 P swich
SPACE0		WORD	01C05H,01C06H,01C07H,01C08H	; 33 BG chenge unit
KURAG0		WORD	01494H,01495H,01496H,01497H	; 34 ku-ra-ge
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 35
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 36
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 37
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 38
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 39
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 3A
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 3B
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 3C
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 3D
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 3E
		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 3F
;
DOOR2D		WORD	01270H,01272H,01271H,01273H	; 100 door
MIZUNK		WORD	01CFFH,01CFFH,01CFFH,01CFFH	; 101 mizu nuki
MISE00		WORD	00C04H,00C05H,0CC05H,0CC04H	; 102 ---------
MISE01		WORD	00C00H,00C02H,0CC05H,00C07H	; 103	|
MISE02		WORD	00C04H,00C09H,00C01H,00C03H	; 104	|
MISE03		WORD	0CC07H,00C05H,0CC02H,0CC06H	; 105	|
MISE04		WORD	0CC03H,0CC08H,0CC09H,0CC04H	; 106  shop
MISE05		WORD	0CC03H,00C02H,0CC02H,00C03H	; 107 	|
MISE06		WORD	0CC03H,0CC01H,0CC09H,0CC04H	; 108	|
MISE07		WORD	0CC07H,00C05H,0CC02H,0CC00H	; 109	|
MISE08		WORD	00C04H,00C09H,00C08H,00C03H	; 10A	|
MISE09		WORD	00C06H,00C02H,0CC05H,00C07H	; 10B ---------
;
;=====================================================================
JPTOM    EQU      (JPTOMI-MIZU00)/8
GHAS0    EQU      (GHASI0-MIZU00)/8
GHAS1    EQU      (GHASI1-MIZU00)/8
SHSP4    EQU      (SHSPC4-MIZU00)/8
SHSP5    EQU      (SHSPC5-MIZU00)/8
SHSP6    EQU      (SHSPC6-MIZU00)/8
SHSP7    EQU      (SHSPC7-MIZU00)/8
;
SPYK0    EQU      (SPYUK0-MIZU00)/8
SPYK1    EQU      (SPYUK1-MIZU00)/8
KURA0    EQU      (KURAG0-MIZU00)/8
TTOG0    EQU      (TTOGE0-MIZU00)/8
TTOG1    EQU      (TTOGE1-MIZU00)/8
NSJMP    EQU      (NSJUMP-MIZU00)/8
HKAB9    EQU      (HKABE9-MIZU00)/8
HNJMP    EQU      (HNJUMP-MIZU00)/8
HSJMP    EQU      (HSJUMP-MIZU00)/8
KOHRA    EQU      (KOHRA0-MIZU00)/8
;
;
GCOIN    EQU      (GCOIN0-MIZU00)/8
GCIN1    EQU      (GCOIN1-MIZU00)/8
DOOR0    EQU      (DOOR0D-MIZU00)/8
DOOR1    EQU      (DOOR1D-MIZU00)/8
CNTOM    EQU      (CNTOMI-MIZU00)/8
UPTOM    EQU      (UPTOMI-MIZU00)/8
SPTOM    EQU      (SPTOMI-MIZU00)/8
BACK0    EQU      (BACK00-MIZU00)/8
SHSP0    EQU      (SHSPC0-MIZU00)/8
SHSP1    EQU      (SHSPC1-MIZU00)/8
SHSP2    EQU      (SHSPC2-MIZU00)/8
SHSP3    EQU      (SHSPC3-MIZU00)/8
;
DKAD0    EQU      (DOKAD0-MIZU00)/8
DKAD1    EQU      (DOKAD1-MIZU00)/8
DKAD2    EQU      (DOKAD2-MIZU00)/8
DKAD3    EQU      (DOKAD3-MIZU00)/8
DKAD4    EQU      (DOKAD4-MIZU00)/8
DKAD5    EQU      (DOKAD5-MIZU00)/8
DKAD6    EQU      (DOKAD6-MIZU00)/8
DKAD7    EQU      (DOKAD7-MIZU00)/8
UPYJ0    EQU      (UPYAJ0-MIZU00)/8
UPYJ1    EQU      (UPYAJ1-MIZU00)/8
LFYJ0    EQU      (LFYAJ0-MIZU00)/8
LFYJ1    EQU      (LFYAJ1-MIZU00)/8
RIYJ0    EQU      (RIYAJ0-MIZU00)/8
RIYJ1    EQU      (RIYAJ1-MIZU00)/8
QTYJ0    EQU      (QTYAJ0-MIZU00)/8
MARUB    EQU      (MARUTB-MIZU00)/8
QTYJ1    EQU      (QTYAJ1-MIZU00)/8
MYUK0    EQU      (MZYUK0-MIZU00)/8
MYUK1    EQU      (MZYUK1-MIZU00)/8
NSBLK    EQU      (NSBLOK-MIZU00)/8
KNQST    EQU      (KNQEST-MIZU00)/8
HNQST    EQU      (HNQEST-MIZU00)/8
HSQST    EQU      (HSQEST-MIZU00)/8
CNQST    EQU      (CNQEST-MIZU00)/8
HCQST    EQU      (HCQEST-MIZU00)/8
TCQST    EQU      (TCQEST-MIZU00)/8
ENQST    EQU      (ENQEST-MIZU00)/8
BBLK0    EQU      (BLBLK0-MIZU00)/8
KNBLK    EQU      (KNBLOK-MIZU00)/8
HNBLK    EQU      (HNBLOK-MIZU00)/8
HSBLK    EQU      (HSBLOK-MIZU00)/8
CNBLK    EQU      (CNBLOK-MIZU00)/8
HCBLK    EQU      (HCBLOK-MIZU00)/8
TCBLK    EQU      (TCBLOK-MIZU00)/8
UPBLK    EQU      (UPBLOK-MIZU00)/8
RPBLK    EQU      (RPBLOK-MIZU00)/8
ENBLK    EQU      (ENBLOK-MIZU00)/8
SPJP0    EQU      (SPJMP0-MIZU00)/8
NSJPY    EQU      (NSJMPY-MIZU00)/8
KNJPY    EQU      (KNJMPY-MIZU00)/8
HNJPY    EQU      (HNJMPY-MIZU00)/8
HSJPY    EQU      (HSJMPY-MIZU00)/8
TAIH0    EQU      (TAIHO0-MIZU00)/8
TAIH1    EQU      (TAIHO1-MIZU00)/8
TAIH2    EQU      (TAIHO2-MIZU00)/8
BBLK1    EQU      (BLBLK1-MIZU00)/8
SABA0    EQU      (SABAK0-MIZU00)/8
SABA2    EQU      (SABAK2-MIZU00)/8
MYUK2    EQU      (MZYUK2-MIZU00)/8
MYUK3    EQU      (MZYUK3-MIZU00)/8
MYUK4    EQU      (MZYUK4-MIZU00)/8
MYUK5    EQU      (MZYUK5-MIZU00)/8
;
;
BOX00    EQU      (BOOX00-MIZU00)/8
BOX01    EQU      (BOOX01-MIZU00)/8
BOX02    EQU      (BOOX02-MIZU00)/8
BOX03    EQU      (BOOX03-MIZU00)/8
BOX04    EQU      (BOOX04-MIZU00)/8
HANA6    EQU      (HANA06-MIZU00)/8
BOX05    EQU      (BOOX05-MIZU00)/8
BOX06    EQU      (BOOX06-MIZU00)/8
BOX07    EQU      (BOOX07-MIZU00)/8
BET20    EQU      (BETA20-MIZU00)/8
MIZ34    EQU      (MIZ304-MIZU00)/8
MIZ30    EQU      (MIZ300-MIZU00)/8
MIZ31    EQU      (MIZ301-MIZU00)/8
MIZ32    EQU      (MIZ302-MIZU00)/8
MIZ33    EQU      (MIZ303-MIZU00)/8
SANG0    EQU      (SANGO0-MIZU00)/8
SANG1    EQU      (SANGO1-MIZU00)/8
;
TDK00    EQU      (TDOK00-MIZU00)/8
TDK01    EQU      (TDOK01-MIZU00)/8
TDK02    EQU      (TDOK02-MIZU00)/8
TDK03    EQU      (TDOK03-MIZU00)/8
TDK04    EQU      (TDOK04-MIZU00)/8
TDK05    EQU      (TDOK05-MIZU00)/8
TDK06    EQU      (TDOK06-MIZU00)/8
TDK07    EQU      (TDOK07-MIZU00)/8
TDK08    EQU      (TDOK08-MIZU00)/8
TDK09    EQU      (TDOK09-MIZU00)/8
TDK0A    EQU      (TDOK0A-MIZU00)/8
TDK0B    EQU      (TDOK0B-MIZU00)/8
TDK0C    EQU      (TDOK0C-MIZU00)/8
TDK0D    EQU      (TDOK0D-MIZU00)/8
TDK0E    EQU      (TDOK0E-MIZU00)/8
TDK0F    EQU      (TDOK0F-MIZU00)/8
TDK10    EQU      (TDOK10-MIZU00)/8
TDK11    EQU      (TDOK11-MIZU00)/8
TDK12    EQU      (TDOK12-MIZU00)/8
TDK13    EQU      (TDOK13-MIZU00)/8
TDK14    EQU      (TDOK14-MIZU00)/8
TDK15    EQU      (TDOK15-MIZU00)/8
TDK16    EQU      (TDOK16-MIZU00)/8
TDK17    EQU      (TDOK17-MIZU00)/8
TDK18    EQU      (TDOK18-MIZU00)/8
TDK19    EQU      (TDOK19-MIZU00)/8
TDK1A    EQU      (TDOK1A-MIZU00)/8
TDK1B    EQU      (TDOK1B-MIZU00)/8
BDOK1    EQU      (BLDOK1-MIZU00)/8
BDOK2    EQU      (BLDOK2-MIZU00)/8
BDOK5    EQU      (BLDOK5-MIZU00)/8
BDOK6    EQU      (BLDOK6-MIZU00)/8
BDOK7    EQU      (BLDOK7-MIZU00)/8
BDOK8    EQU      (BLDOK8-MIZU00)/8
BDOKE    EQU      (BLDOKE-MIZU00)/8
BDOKF    EQU      (BLDOKF-MIZU00)/8
BDOK9    EQU      (BLDOK9-MIZU00)/8
BDOKA    EQU      (BLDOKA-MIZU00)/8
BDOKB    EQU      (BLDOKB-MIZU00)/8
BDOKC    EQU      (BLDOKC-MIZU00)/8
BDOKD    EQU      (BLDOKD-MIZU00)/8
BDOK3    EQU      (BLDOK3-MIZU00)/8
BDOK4    EQU      (BLDOK4-MIZU00)/8
JUMP1    EQU      (JUMP01-MIZU00)/8
BDK10    EQU      (BDOK10-MIZU00)/8
BDK11    EQU      (BDOK11-MIZU00)/8
BDK12    EQU      (BDOK12-MIZU00)/8
;
;
TTDK0    EQU      (TTDK00-MIZU00)/8
TTDK1    EQU      (TTDK01-MIZU00)/8
TTDK2    EQU      (TTDK02-MIZU00)/8
TTDK3    EQU      (TTDK03-MIZU00)/8
TTDK4    EQU      (TTDK04-MIZU00)/8
TTDK5    EQU      (TTDK05-MIZU00)/8
TTDK6    EQU      (TTDK06-MIZU00)/8
TTDK7    EQU      (TTDK07-MIZU00)/8
TTDK8    EQU      (TTDK08-MIZU00)/8
TTDK9    EQU      (TTDK09-MIZU00)/8
TTDKA    EQU      (TTDK0A-MIZU00)/8
TTDKB    EQU      (TTDK0B-MIZU00)/8
TTDKC    EQU      (TTDK0C-MIZU00)/8
TTDKD    EQU      (TTDK0D-MIZU00)/8
MIWA4    EQU      (MZIWA4-MIZU00)/8
BKBT0    EQU      (BKBOT0-MIZU00)/8
CKRK0    EQU      (CKROK0-MIZU00)/8
CKRK1    EQU      (CKROK1-MIZU00)/8
CKRK2    EQU      (CKROK2-MIZU00)/8
MIZ35    EQU      (MIZU35-MIZU00)/8
MIZ36    EQU      (MIZU36-MIZU00)/8
MIZ37    EQU      (MIZU37-MIZU00)/8
MIZ38    EQU      (MIZU38-MIZU00)/8
MIZ39    EQU      (MIZU39-MIZU00)/8
TAKI0    EQU      (TAKI00-MIZU00)/8
TAKI1    EQU      (TAKI01-MIZU00)/8
;
SANG2    EQU      (SANGO2-MIZU00)/8
KAI00    EQU      (KAI000-MIZU00)/8
MYK00    EQU      (MYUKA0-MIZU00)/8
MYK01    EQU      (MYUKA1-MIZU00)/8
MIWA0    EQU      (MZIWA0-MIZU00)/8
MIWA1    EQU      (MZIWA1-MIZU00)/8
MIWA2    EQU      (MZIWA2-MIZU00)/8
MIWA3    EQU      (MZIWA3-MIZU00)/8
MIWA5    EQU      (MZIWA5-MIZU00)/8
SPBK0    EQU      (SPBLK0-MIZU00)/8
RENG0    EQU      (RENGA0-MIZU00)/8
GHAS2    EQU      (GHASI2-MIZU00)/8
GHAS3    EQU      (GHASI3-MIZU00)/8
BKBT1    EQU      (BKBOT1-MIZU00)/8
SPACE    EQU      (SPACE0-MIZU00)/8
;
DOOR2	 EQU   	  (DOOR2D-MIZU00)/8	
MIZNK	 EQU   	  (MIZUNK-MIZU00)/8	
MISE0	 EQU	  (MISE00-MIZU00)/8
MISE1	 EQU	  (MISE01-MIZU00)/8
MISE2	 EQU	  (MISE02-MIZU00)/8
MISE3	 EQU	  (MISE03-MIZU00)/8
MISE4	 EQU	  (MISE04-MIZU00)/8
MISE5	 EQU	  (MISE05-MIZU00)/8
MISE6	 EQU	  (MISE06-MIZU00)/8
MISE7	 EQU	  (MISE07-MIZU00)/8
MISE8	 EQU	  (MISE08-MIZU00)/8
MISE9	 EQU	  (MISE09-MIZU00)/8
;
;
ALLCRS9  EQU      $ 
         BYTE     SPYK0 
         BYTE     DKAD0 
         BYTE     TDK00 
         BYTE     SANG2 
; 
         BYTE     SPYK0 
         BYTE     DKAD0 
         BYTE     TDK00 
         BYTE     SANG2 
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;x       JSR      DTRMST9   (data buffer clear sub)                  x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
DTRMST9  EQU      $
;;NOM;;	 LDY	  #003H+003H+005H 
;;NOM;;	 LDA	  [<DATANO],Y
;;NOM;;	 AND	  #00001111B
;;NOM;;	 STA	  !BG3SCRF		;BG3 screen flag set
;
         LDX      #00H
; 
DM9000   EQU      $ 
;;NOM;;         LDA      #MIZ34		;mizu nuki set (BG3 mizu not use)
;;NOM;;	 LDY	  !BG3SCRF
;;NOM;;	 CPY	  #001H
;;NOM;;	 BNE	  DM9010		;BG3 mizu ?
;;NOM;;;					;yes
	 LDA	  #MIZ34		;normal nuki set (BG3 mizu use)
;;NOM;;DM9010   EQU      $ 
         JSL      >BUFFCLR1
         JSL      >BUFFCLR 
         CPX      #0F0H 
         BNE      DM9000
;
         JSL      >DATASET 
	 RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;x       JSR      DTRMSTA   (data buffer clear sub)                  x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
DTRMSTA  EQU      $ 
         LDX      #00H
; 
DMA050   EQU      $ 
         LDA      #DOOR0
         JSL      >BUFFCLR 
         CPX      #0F0H 
         BNE      DMA050
; 
         LDX      #030H 
; 
DMA100   EQU      $ 
         LDA      #SHSP0
         JSL      >BUFFCLR1
         INX
         CPX      #0E0H 
         BNE      DMA100
; 
DMA150   EQU      $ 
         LDA      #SPYK0
         JSL      >BUFFCLR1
         INX
         LDA      #SPYK1
         JSL      >BUFFCLR1
         INX
         CPX      #0F0H 
         BNE      DMA150
; 
         JSL      >DATASET 
	 RTL
; 
;---------------------------------------------------------------------
RABGDA0  EQU      7E2000H           ;0
RABGDA1  EQU      7E20F0H           ;1
RABGDA2  EQU      7E21E0H           ;2
RABGDA3  EQU      7E22D0H           ;3
RABGDA4  EQU      7E23C0H           ;4
RABGDA5  EQU      7E24B0H           ;5
RABGDA6  EQU      7E25A0H           ;6
RABGDA7  EQU      7E2690H           ;7
RABGDA8  EQU      7E2780H           ;8
RABGDA9  EQU      7E2870H           ;9
RABGDAA  EQU      7E2960H           ;10
RABGDAB  EQU      7E2A50H           ;11
RABGDAC  EQU      7E2B40H           ;12
RABGDAD  EQU      7E2C30H           ;13
RABGDAE  EQU      7E2D20H           ;14
RABGDAF  EQU      7E2E10H           ;15
;
RBGDAH0  EQU      7E4000H           ;0
RBGDAH1  EQU      7E40F0H           ;1
RBGDAH2  EQU      7E41E0H           ;2
RBGDAH3  EQU      7E42D0H           ;3
RBGDAH4  EQU      7E43C0H           ;4
RBGDAH5  EQU      7E44B0H           ;5
RBGDAH6  EQU      7E45A0H           ;6
RBGDAH7  EQU      7E4690H           ;7
RBGDAH8  EQU      7E4780H           ;8
RBGDAH9  EQU      7E4870H           ;9
RBGDAHA  EQU      7E4960H           ;10 
RBGDAHB  EQU      7E4A50H           ;11 
RBGDAHC  EQU      7E4B40H           ;12 
RBGDAHD  EQU      7E4C30H           ;13 
RBGDAHE  EQU      7E4D20H           ;14 
RBGDAHF  EQU      7E4E10H           ;15 
;
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;x       JSR      BUFTCLR   ( buffer data set sub )                  x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
BUFTCLR		EQU	$
		PHB
		LDY	#BANK RABGDA0
		PHY
		PLB
;
		STA	RABGDA0,X 
		STA	RABGDA1,X 
		STA	RABGDA2,X 
		STA	RABGDA3,X 
		STA	RABGDA4,X 
		STA	RABGDA5,X 
		STA	RABGDA6,X 
		STA	RABGDA7,X 
		STA	RABGDA8,X 
		STA	RABGDA9,X 
		STA	RABGDAA,X 
		STA	RABGDAB,X 
		STA	RABGDAC,X 
		STA	RABGDAD,X 
		STA	RABGDAE,X 
		STA	RABGDAF,X 
;
		STZ	RBGDAH0,X
		STZ	RBGDAH1,X
		STZ	RBGDAH2,X
		STZ	RBGDAH3,X
		STZ	RBGDAH4,X
		STZ	RBGDAH5,X
		STZ	RBGDAH6,X
		STZ	RBGDAH7,X
		STZ	RBGDAH8,X
		STZ	RBGDAH9,X
		STZ	RBGDAHA,X
		STZ	RBGDAHB,X
		STZ	RBGDAHC,X
		STZ	RBGDAHD,X
		STZ	RBGDAHE,X
		STZ	RBGDAHF,X
		INX
		PLB
		RTS
;
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;x       JSR      DTRMSTB   (data buffer clear sub)                  x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
DTRMSTB		EQU	$
		LDX	#00H
		PHY
;
DMB000		EQU	$
		LDA	#MIZ32
		JSR	BUFTCLR
		CPX	#0F0H
		BNE	DMB000
;
		PLY
		JSL	>DATASET
		RTL
; 
;=====================================================================
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
;x       JSR      KAH9SET                             x 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
POIND    EQU      $ 
         HEX      00,0F,1E,2D,3C,4B,5A,69 
; 
KAH9SET  EQU      $ 
         LDA      <WORKE 
         AND      #11100000B
         LSR      A 
         LSR      A 
         LSR      A 
         LSR      A 
         LSR      A 
         TAX
; 
         LDA      !UNITFG 
         LSR      A 
         LSR      A 
         LSR      A 
         LSR      A 
         CLC
         ADC      >POIND,X 
         TAX
         DEX
         TXA
         JSL      >JSRSUBL
KAH901   LWORD     TDK0SET              ; V-scroll dokan 0 data set
KAH902   LWORD     TDK1SET              ; V-scroll dokan 1 data set
KAH903   LWORD     TDK2SET              ; V-scroll dokan 2 data set
KAH904   LWORD     TDK3SET              ; V-scroll dokan 3 data set
KAH905   LWORD     TDK4SET              ; V-scroll dokan 4 data set
KAH906   LWORD     TDK5SET              ; V-scroll dokan 5 data set
KAH907   LWORD     TDK6SET              ; V-scroll dokan 6 data set
KAH908   LWORD     TDK7SET              ; V-scroll dokan 7 data set
KAH909   LWORD     TYUKSET              ; V-scroll suichu yuka data set
KAH90A   LWORD     SBK0SET              ; shop block tate data set 
KAH90B   LWORD     SBK1SET              ; shop block yoko data set 
KAH90C   LWORD     SKAGSET              ; shop kage tate data set
KAH90D   LWORD     SANGSET              ; sangosyo data set
KAH90E   LWORD     SANGSET              ; sangosyo data set
KAH90F   LWORD     TOG0SET              ; V-scroll toge down data set
KAH911   LWORD     HAT2SET              ; kowareru block data set
KAH912   LWORD     HAT2SET              ; hatena coin block data set 
KAH913   LWORD     HAT2SET              ; kowareru coin block data set 
KAH914   LWORD     HAT2SET              ; kowarenai block data set 
KAH915   LWORD     HAT2SET              ; all cross jump dai data set
KAH916   LWORD     HAT2SET              ; up & down cross jump dai data set
KAH917   LWORD     HAT2SET              ; left & rigth jump dai data set 
KAH918   LWORD     HAT2SET              ; coin data set
KAH919   LWORD     BDK0SET              ; bill dokan up data set 
KAH91A   LWORD     BDK0SET              ; bill hairenai dokan up data set
KAH91B   LWORD     BDK0SET              ; bill one display dokan up data set 
KAH91C   LWORD     BDK1SET              ; bill dokan down data set 
KAH91D   LWORD     BDK1SET              ; bill hairenai dokan down data set
KAH91E   LWORD     DKY0SET              ; dokan yoko left hairenai data set
KAH91F   LWORD     DKY0SET              ; dokan yoko left haireru data set 
KAH921   LWORD     DKY1SET              ; dokan yoko rigth hairenai data set 
KAH922   LWORD     DKY1SET              ; dokan yoko rigth haireru data set
KAH923   LWORD     TAIHSET              ; taiho data set 
KAH924   LWORD     HASISET              ; hashi data set 
KAH925   LWORD     HASISET              ; yureru hashi data set
KAH926   LWORD     HAT3SET              ; taki data set
KAH927   LWORD     HAT3SET              ; left nagareru kawa data set
KAH928   LWORD     HAT3SET              ; nagarenai kawa data set
KAH929   LWORD     HAT3SET              ; rigth nagareru kawa data set 
KAH92A   LWORD     HAT3SET              ; chika iwa data set 
KAH92B   LWORD     HAT3SET              ; chika renga data set 
KAH92C   LWORD     HAT3SET              ; sabaku data set
KAH92D   LWORD     HAT3SET              ; ryusa data set 
KAH92E   LWORD     KORASET              ; koura data set 
KAH92F   LWORD     BDK2SET              ; dokan tate scroll data set 
KAH931   LWORD     BDK3SET              ; dokan end display data set 
KAH932   LWORD     BDK4SET              ; dokan end display data set 
KAH933   LWORD     HOLESET              ; suichu hole data set 
KAH934   LWORD     MIWASET              ; mizu iwa data set
KAH935   LWORD     MYUKSET              ; mizu yuka data set 
KAH936   LWORD     SPB0SET              ; shop blak beta yoko data set 
KAH937   LWORD     SPB1SET              ; shop blak beta tate data set 
KAH938   LWORD     KURGSET              ; kurage data set
KAH939   LWORD     TDK8SET              ; V-scroll dokan 8 data set
KAH93A   LWORD     SAN1SET              ; sango yoka data set
KAH93B   LWORD     CIKUSET              ; chikuwa data set 
KAH93C   LWORD     TOG1SET              ; V-scroll toge up data set
KAH93D   LWORD     MIZ0SET              ; suichu data set
KAH93E   LWORD     MISESET              ; shop data set
;
VTDOK0   EQU      (KAH901-KAH901)/3*010H+010H 
VTDOK1   EQU      (KAH902-KAH901)/3*010H+010H 
VTDOK2   EQU      (KAH903-KAH901)/3*010H+010H 
VTDOK3   EQU      (KAH904-KAH901)/3*010H+010H 
VTDOK4   EQU      (KAH905-KAH901)/3*010H+010H 
VTDOK5   EQU      (KAH906-KAH901)/3*010H+010H 
VTDOK6   EQU      (KAH907-KAH901)/3*010H+010H 
VTDOK7   EQU      (KAH908-KAH901)/3*010H+010H 
VTYUKA   EQU      (KAH909-KAH901)/3*010H+010H 
VSBLKT   EQU      (KAH90A-KAH901)/3*010H+010H 
VSBLKY   EQU      (KAH90B-KAH901)/3*010H+010H 
VSKAGE   EQU      (KAH90C-KAH901)/3*010H+010H 
VSANG0   EQU      (KAH90D-KAH901)/3*010H+010H 
VSANG1   EQU      (KAH90E-KAH901)/3*010H+010H 
VTTOG0   EQU      (KAH90F-KAH901)/3*010H+010H 
; 
VBBLK0   EQU      (KAH911-KAH911)/3*010H+010H 
VCNQST   EQU      (KAH912-KAH911)/3*010H+010H 
VCNBLK   EQU      (KAH913-KAH911)/3*010H+010H 
VBBLK1   EQU      (KAH914-KAH911)/3*010H+010H 
VHZJP0   EQU      (KAH915-KAH911)/3*010H+010H 
VHZJP1   EQU      (KAH916-KAH911)/3*010H+010H 
VHZJP2   EQU      (KAH917-KAH911)/3*010H+010H 
VGCOIN   EQU      (KAH918-KAH911)/3*010H+010H 
VBLDK0   EQU      (KAH919-KAH911)/3*010H+010H 
VBLDK3   EQU      (KAH91A-KAH911)/3*010H+010H 
VBLDK2   EQU      (KAH91B-KAH911)/3*010H+010H 
VBLDK1   EQU      (KAH91C-KAH911)/3*010H+010H 
VBLDK4   EQU      (KAH91D-KAH911)/3*010H+010H 
VDOKY0   EQU      (KAH91E-KAH911)/3*010H+010H 
VDOKY1   EQU      (KAH91F-KAH911)/3*010H+010H 
; 
VDOKY2   EQU      (KAH921-KAH921)/3*010H+010H 
VDOKY3   EQU      (KAH922-KAH921)/3*010H+010H 
VTAIHO   EQU      (KAH923-KAH921)/3*010H+010H 
VHASI0   EQU      (KAH924-KAH921)/3*010H+010H 
VHASI1   EQU      (KAH925-KAH921)/3*010H+010H 
VTAKI0   EQU      (KAH926-KAH921)/3*010H+010H 
VREVR0   EQU      (KAH927-KAH921)/3*010H+010H 
VREVR1   EQU      (KAH928-KAH921)/3*010H+010H 
VREVR2   EQU      (KAH929-KAH921)/3*010H+010H 
VCKROK   EQU      (KAH92A-KAH921)/3*010H+010H 
VCKREN   EQU      (KAH92B-KAH921)/3*010H+010H 
VSABA0   EQU      (KAH92C-KAH921)/3*010H+010H 
VSABA1   EQU      (KAH92D-KAH921)/3*010H+010H 
VKORA0   EQU      (KAH92E-KAH921)/3*010H+010H 
VBLDKT   EQU      (KAH92F-KAH921)/3*010H+010H 
; 
VBLDK5   EQU      (KAH931-KAH931)/3*010H+010H 
VBLDK6   EQU      (KAH932-KAH931)/3*010H+010H 
VHOLE0   EQU      (KAH933-KAH931)/3*010H+010H 
VMZIWA   EQU      (KAH934-KAH931)/3*010H+010H 
VMZYUK   EQU      (KAH935-KAH931)/3*010H+010H 
VSPBT0   EQU      (KAH936-KAH931)/3*010H+010H 
VSPBT1   EQU      (KAH937-KAH931)/3*010H+010H 
VKURAG   EQU      (KAH938-KAH931)/3*010H+010H 
VTDOK8   EQU      (KAH939-KAH931)/3*010H+010H 
VSANG2   EQU      (KAH93A-KAH931)/3*010H+010H 
VCIKUW   EQU      (KAH93B-KAH931)/3*010H+010H 
VTTOG1   EQU      (KAH93C-KAH931)/3*010H+010H 
VSUISU   EQU      (KAH93D-KAH931)/3*010H+010H 
VMISES   EQU      (KAH93E-KAH931)/3*010H+010H 
;
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
;x       JSR      KOT9SET                             x 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
KOT9SET  EQU      $ 
         LDA      <WORKE 
         AND      #11100000B
         LSR      A 
         CLC
         ADC      !UNITFG 
         TAX
         JSL      >JSRSUBL
KOT900   LWORD     DKD0SET              ; dokan kado 0 data set
KOT901   LWORD     DKD0SET              ; dokan kado 1 data set
KOT902   LWORD     DKD0SET              ; dokan kado 2 data set
KOT903   LWORD     DKD0SET              ; dokan kado 3 data set
KOT904   LWORD     YAJISET              ; yajirushi up data set
KOT905   LWORD     YAJISET              ; yajirushi left data set
KOT906   LWORD     YAJISET              ; yajirushi rigth data set 
KOT907   LWORD     YAJISET              ; yajirushi qestion data set 
KOT908   LWORD     BOX0SET              ; shop box big data set
KOT909   LWORD     BOX1SET              ; shop box smoll data set
KOT90A   LWORD     DOR2SET              ; shop door data set 
KOT90B   LWORD     KAI0SET              ; kai data set 
KOT90C   LWORD     BET0SET              ; nuki data set
KOT90D   LWORD     MIZUSET              ; mizu data set
KOT90E   LWORD     SPK0SET              ; shop kage kado 1 dtaa set
KOT90F   LWORD     SPK0SET              ; shop kage kado 2 dtaa set
KOT910   LWORD     HAT1SET              ; hatena kinoko block data set 
KOT911   LWORD     HAT1SET              ; hatena hana block data set 
KOT912   LWORD     HAT1SET              ; hatena hoshi block data set
KOT913   LWORD     HAT1SET              ; hatena coin & hoshi block data set 
KOT914   LWORD     HAT1SET              ; hatena ten coin block data set 
KOT915   LWORD     HAT1SET              ; hatena enmey block data set
KOT916   LWORD     HAT1SET              ; wareru kinoko block data set 
KOT917   LWORD     HAT1SET              ; wareru hana block data set 
KOT918   LWORD     HAT1SET              ; wareru hoshi block data set
KOT919   LWORD     HAT1SET              ; wareru coin & hoshi block data set 
KOT91A   LWORD     HAT1SET              ; wareru ten coin block data set 
KOT91B   LWORD     HAT1SET              ; wareru 1 up block data set 
KOT91C   LWORD     HAT1SET              ; wareru rop block data set
KOT91D   LWORD     HAT1SET              ; wareru enmey block data set
KOT91E   LWORD     HAT1SET              ; tohmei coin block data set 
KOT91F   LWORD     HAT1SET              ; tohmei 1 up block data set 
KOT920   LWORD     HAT1SET              ; tohmei jump dai block data set 
KOT921   LWORD     HAT1SET              ; up & down jump dai kinoko data set 
KOT922   LWORD     HAT1SET              ; up & down jump dai hana data set 
KOT923   LWORD     HAT1SET              ; up & down jump dai star data set 
KOT924   LWORD     HAT1SET              ; left & rigth jump dai kinoko data set
KOT925   LWORD     HAT1SET              ; left & rigth jump dai hana data set
KOT926   LWORD     HAT1SET              ; left & rigth jump dai star data set
KOT927   LWORD     HAT1SET              ; bill spaer jmup dai data set 
KOT928   LWORD     HAT1SET              ; bill bakdan swichi data set
KOT929   LWORD     BETASET              ; bill blak beta data set
; 
FDKAD0   EQU      (KOT900-KOT900)/3 
FDKAD1   EQU      (KOT901-KOT900)/3 
FDKAD2   EQU      (KOT902-KOT900)/3 
FDKAD3   EQU      (KOT903-KOT900)/3 
FUPYAJ   EQU      (KOT904-KOT900)/3 
FLFYAJ   EQU      (KOT905-KOT900)/3 
FRIYAJ   EQU      (KOT906-KOT900)/3 
FQTYAJ   EQU      (KOT907-KOT900)/3 
FSPBX0   EQU      (KOT908-KOT900)/3 
FSPBX1   EQU      (KOT909-KOT900)/3 
FSDOOR   EQU      (KOT90A-KOT900)/3 
FKAI00   EQU      (KOT90B-KOT900)/3 
FBET20   EQU      (KOT90C-KOT900)/3 
FMIZU0   EQU      (KOT90D-KOT900)/3 
FSPKG0   EQU      (KOT90E-KOT900)/3 
FSPKG1   EQU      (KOT90F-KOT900)/3 
; 
FKNQST   EQU      (KOT910-KOT910)/3 
FHNQST   EQU      (KOT911-KOT910)/3 
FHSQST   EQU      (KOT912-KOT910)/3 
FHCQST   EQU      (KOT913-KOT910)/3 
FTCQST   EQU      (KOT914-KOT910)/3 
FENQST   EQU      (KOT915-KOT910)/3 
FKNBLK   EQU      (KOT916-KOT910)/3 
FHNBLK   EQU      (KOT917-KOT910)/3 
FHSBLK   EQU      (KOT918-KOT910)/3 
FHCBLK   EQU      (KOT919-KOT910)/3 
FTCBLK   EQU      (KOT91A-KOT910)/3 
FUPBLK   EQU      (KOT91B-KOT910)/3 
FRPBLK   EQU      (KOT91C-KOT910)/3 
FENBLK   EQU      (KOT91D-KOT910)/3 
FCNTOM   EQU      (KOT91E-KOT910)/3 
FUPTOM   EQU      (KOT91F-KOT910)/3 
; 
FJPTOM   EQU      (KOT920-KOT920)/3 
FKNJMP   EQU      (KOT921-KOT920)/3 
FHNJMP   EQU      (KOT922-KOT920)/3 
FHSJMP   EQU      (KOT923-KOT920)/3 
FKNJMY   EQU      (KOT924-KOT920)/3 
FHNJMY   EQU      (KOT925-KOT920)/3 
FHSJMY   EQU      (KOT926-KOT920)/3 
FSPJP0   EQU      (KOT927-KOT920)/3 
FBOTAN   EQU      (KOT928-KOT920)/3 
FBLBET   EQU      (KOT929-KOT920)/3 
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      TDK0SET     ( dokan 0 data set )                   x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
HENKD1   EQU      $ 
         BYTE     TDK08,TDK0C,TDK06,BDOKC,BDOKD 
; 
HENKD2   EQU      $ 
         BYTE     TDK12,TDK17,TDK10,TDK12,TDK17 
; 
HENKD3   EQU      $ 
         BYTE     TDK13,TDK18,TDK11,TDK13,TDK18 
; 
TDK0SET  EQU      $ 
         LDA      !UNITFG 
         AND      #00001111B
         STA      <WORK2 
         LDY      !XYPSFG 
; 
;;K;;         LDA      (<BUFFNO),Y
	LDA	[<BUFFNO],Y
         CMP      #TDK00
         BNE      T0T000
; 
         LDA      #BDOK3
         JMP      T0T010
; 
T0T000   EQU      $ 
         LDA      #TDK00
; 
T0T010   EQU      $ 
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         INY
;;K;;         LDA      (<BUFFNO),Y
	LDA	[<BUFFNO],Y
         CMP      #TDK01
         BNE      T0T020
; 
         LDA      #BDOK4
         JMP      T0T030
; 
T0T020   EQU      $ 
         LDA      #TDK01
; 
T0T030   EQU      $ 
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         JMP      T0T100
; 
T0T050   EQU      $ 
         JSR      HENKAN1 
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         INY
         JSR      HENKAN2 
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
; 
T0T100   EQU      $ 
         LDA      !XYPSFG 
         CLC
         ADC      #010H 
         STA      !XYPSFG 
         TAY
; 
         LDA      <BUFFNO+1
         ADC      #00H
         STA      <BUFFNO+1
; 
         DEC      <WORK2 
         BNE      T0T050
; 
         LDA      #TDK00
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         INY
         LDA      #TDK01
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      HENKAN1     ( henkan sub 1 )                       x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
HENKAN1  EQU      $ 
         LDX      #(HENKD2-HENKD1)-1
;;K;;         LDA      (<BUFFNO),Y
	LDA	[<BUFFNO],Y
; 
HK1050   EQU      $
         CMP      >HENKD1,X
         BEQ      HK1100
; 
         DEX
         BPL      HK1050
; 
         LDA      #BDOK3
         JMP      HK1150
; 
HK1100   EQU      $
         LDA      >HENKD2,X
; 
HK1150   EQU      $ 
         RTS
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      HENKAN2     ( henkan sub 2 )                       x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
HENKAN2  EQU      $ 
         LDX      #(HENKD2-HENKD1)-1
;;K;;         LDA      (<BUFFNO),Y
	LDA	[<BUFFNO],Y
; 
HK2050   EQU      $
         CMP      >HENKD1,X
         BEQ      HK2100
; 
         DEX
         BPL      HK2050
; 
         LDA      #BDOK4
         JMP      HK2150
; 
HK2100   EQU      $
         LDA      >HENKD3,X
; 
HK2150   EQU      $ 
         RTS
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      TDK1SET     ( dokan 1 data set )                   x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
TDOKD1   EQU      $ 
         BYTE     TDK08,TDK0C 
; 
TDOKD2   EQU      $ 
         BYTE     TDK09,TDK0D 
; 
TDK1SET  EQU      $ 
         LDA      !UNITFG 
         AND      #00001111B
         STA      <WORK2 
         LDX      #00H
         STX      <WORK4 
; 
T1T050   EQU      $ 
         LDY      !XYPSFG 
         LDA      <WORK2 
         STA      <WORK3 
; 
         LDA      >TDOKD2,X
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         JMP      T1T150
; 
T1T100   EQU      $ 
         JSR      HENKAN3 
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
; 
T1T150   EQU      $ 
         INY
         DEC      <WORK3 
         BPL      T1T100
; 
         LDA      !XYPSFG 
         CLC
         ADC      #010H 
         STA      !XYPSFG 
         LDA      <BUFFNO+1
         ADC      #00H
         STA      <BUFFNO+1
; 
         INX
         STX      <WORK4 
         CPX      #02H
         BNE      T1T050
; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      HENKAN3     ( henkan sub 3 )                       x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
HENKD4   EQU      $ 
         BYTE     BDOK3,BDOK4,TDK03 
; 
HENKD5   EQU      $ 
         BYTE     TDK14,TDK15,TDK16 
; 
HENKD6   EQU      $ 
         BYTE     TDK19,TDK1A,TDK1B 
; 
HENKAN3  EQU      $ 
         LDX      #02H
;;K;;         LDA      (<BUFFNO),Y
	LDA	[<BUFFNO],Y
; 
HK3050   EQU      $
         CMP      >HENKD4,X
         BEQ      HK3100
; 
         DEX
         BPL      HK3050
; 
         LDX      <WORK4 
         LDA      >TDOKD1,X
         JMP      HK3200
; 
HK3100   EQU      $ 
         LDA      <WORK4 
         BNE      HK3150
; 
         LDA      >HENKD5,X
         JMP      HK3200
; 
HK3150   EQU      $ 
         LDA      >HENKD6,X
; 
HK3200   EQU      $ 
         LDX      <WORK4 
         RTS
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      TDK2SET     ( daokn 2 data set )                   x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
TDK2SET  EQU      $ 
         LDA      !UNITFG 
         AND      #00001111B
         STA      <WORK2 
         LDX      #00H
         STX      <WORK4 
; 
T2T050   EQU      $ 
         LDY      !XYPSFG 
         LDA      <WORK2 
         STA      <WORK3 
; 
T2T100   EQU      $ 
         JSR      HENKAN3 
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         INY
         DEC      <WORK3 
         BNE      T2T100
; 
         LDA      >TDOKD2,X
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
; 
         LDA      !XYPSFG 
         CLC
         ADC      #010H 
         STA      !XYPSFG 
         LDA      <BUFFNO+1
         ADC      #00H
         STA      <BUFFNO+1
; 
         INX
         STX      <WORK4 
         CPX      #02H
         BNE      T2T050
; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      TDK3SET     ( dokan 3 data set )                   x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
TDK3SET  EQU      $ 
;;K;;         LDA      !UNITFG 
;;K;;         AND      #00001111B
;;K;;         TAX
;;K;;         LDY      !XYPSFG 
;;K;;; 
;;K;;         LDA      #TTDK4
;;K;;	STA	[<BUFFNO],Y
;;K;;         INY
;;K;;         LDA      #TTDK5
;;K;;	STA	[<BUFFNO],Y
;;K;;         JMP      T3T100
;;K;;; 
T3T050   EQU      $ 
;;K;;         LDA      #TTDK6
;;K;;	STA	[<BUFFNO],Y
;;K;;         INY
;;K;;         LDA      #TTDK7
;;K;;	STA	[<BUFFNO],Y
;;K;;; 
T3T100   EQU      $ 
;;K;;         LDA      !XYPSFG 
;;K;;         CLC
;;K;;         ADC      #010H 
;;K;;         STA      !XYPSFG 
;;K;;         TAY
;;K;;         LDA      <BUFFNO+1
;;K;;         ADC      #00H
;;K;;         STA      <BUFFNO+1
;;K;;; 
;;K;;         DEX
;;K;;         BNE      T3T050
;;K;;; 
;;K;;         LDA      #TTDK4
;;K;;	STA	[<BUFFNO],Y
;;K;;         INY
;;K;;         LDA      #TTDK5
;;K;;	STA	[<BUFFNO],Y
;;K;;; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      TDK4SET     ( dokan 4 data set )                   x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
TDK4SET  EQU      $ 
;;K;;         LDA      !UNITFG 
;;K;;         AND      #00001111B
;;K;;         TAX
;;K;;         LDY      !XYPSFG 
;;K;;; 
;;K;;         LDA      #TTDK8
;;K;;	STA	[<BUFFNO],Y
;;K;;         JMP      T4T100
;;K;;; 
T4T050   EQU      $ 
;;K;;         LDA      #TTDK9
;;K;;	STA	[<BUFFNO],Y
;;K;;; 
T4T100   EQU      $ 
;;K;;         TYA
;;K;;         CLC
;;K;;         ADC      #010H 
;;K;;         TAY
;;K;;         LDA      <BUFFNO+1
;;K;;         ADC      #00H
;;K;;         STA      <BUFFNO+1
;;K;;; 
;;K;;         DEX
;;K;;         BNE      T4T050
;;K;;; 
;;K;;         LDA      #TTDKA
;;K;;	STA	[<BUFFNO],Y
;;K;;; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      TDK5SET     ( dokan 5 data set )                   x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
TDOKD3   EQU      $ 
         BYTE     TTDK0,TTDK2 
; 
TDOKD4   EQU      $ 
         BYTE     TTDK1,TTDK3 
; 
TDK5SET  EQU      $ 
;;K;;         LDA      !UNITFG 
;;K;;         AND      #00001111B
;;K;;         STA      <WORK2 
;;K;;         LDX      #00H
;;K;;; 
T5T050   EQU      $ 
;;K;;         LDY      !XYPSFG 
;;K;;         LDA      <WORK2 
;;K;;         STA      <WORK3 
;;K;;; 
;;K;;         LDA      >TDOKD4,X
;;K;;	STA	[<BUFFNO],Y
;;K;;         JMP      T5T150
;;K;;; 
T5T100   EQU      $
;;K;;         LDA      >TDOKD3,X
;;K;;	STA	[<BUFFNO],Y
;;K;;;
T5T150   EQU      $ 
;;K;;         INY
;;K;;         DEC      <WORK3 
;;K;;         BPL      T5T100
;;K;;; 
;;K;;         LDA      !XYPSFG 
;;K;;         CLC
;;K;;         ADC      #010H 
;;K;;         STA      !XYPSFG 
;;K;;         LDA      <BUFFNO+1
;;K;;         ADC      #00H
;;K;;         STA      <BUFFNO+1
;;K;;; 
;;K;;         INX
;;K;;         CPX      #02H
;;K;;         BNE      T5T050
;;K;;; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      TDK6SET     ( dokan 6 data set )                   x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
TDK6SET  EQU      $ 
;;K;;         LDA      !UNITFG 
;;K;;         AND      #00001111B
;;K;;         STA      <WORK2 
;;K;;         LDX      #00H
;;K;;; 
T6T050   EQU      $ 
;;K;;         LDY      !XYPSFG 
;;K;;         LDA      <WORK2 
;;K;;         STA      <WORK3 
;;K;;; 
T6T100   EQU      $
;;K;;         LDA      >TDOKD3,X
;;K;;	STA	[<BUFFNO],Y
;;K;;         INY
;;K;;         DEC      <WORK3 
;;K;;         BNE      T6T100
;;K;;; 
;;K;;         LDA      >TDOKD4,X
;;K;;	STA	[<BUFFNO],Y
;;K;;; 
;;K;;         LDA      !XYPSFG 
;;K;;         CLC
;;K;;         ADC      #010H 
;;K;;         STA      !XYPSFG 
;;K;;         LDA      <BUFFNO+1
;;K;;         ADC      #00H
;;K;;         STA      <BUFFNO+1
;;K;;; 
;;K;;         INX
;;K;;         CPX      #02H
;;K;;         BNE      T6T050
;;K;;; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      TDK7SET     ( dokan 7 data set )                   x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
TDK7SET  EQU      $ 
;;K;;         LDA      !UNITFG 
;;K;;         AND      #00001111B
;;K;;         TAX
;;K;;         LDY      !XYPSFG 
;;K;;; 
;;K;;         LDA      #TTDKB
;;K;;	STA	[<BUFFNO],Y
;;K;;         JMP      T7T100
;;K;;; 
T7T050   EQU      $ 
;;K;;         LDA      #TTDKC
;;K;;	STA	[<BUFFNO],Y
;;K;;; 
T7T100   EQU      $ 
;;K;;         INY
;;K;;         DEX
;;K;;         BNE      T7T050
;;K;;; 
;;K;;         LDA      #TTDKD
;;K;;	STA	[<BUFFNO],Y
;;K;;; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      TDK8SET     ( dokan 8 data set )                   x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
TDK8SET		EQU	$
		LDA	!UNITFG
		AND	#00001111B
		TAX
		LDY	!XYPSFG
;
		LDA	#TDK05
		STA	[<BUFFNO],Y
		BRA	T8T100
;
T8T050		EQU	$
		LDA	#TDK06
		STA	[<BUFFNO],Y
;
T8T100		EQU	$
		INY
		DEX
		BNE	T8T050
;
		LDA	#TDK07
		STA	[<BUFFNO],Y
;
		RTL
;
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      TYUKSET     ( V-scroll suichu yuka data set sub )  x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
TYUKSET  EQU      $ 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      SANGSET     ( sangosyo data set )                  x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
SANGD0   EQU      $ 
         BYTE     SANG0,SANG2 
; 
SANGD1   EQU      $ 
         BYTE     SANG1,SANG2 
; 
SANGSET  EQU      $ 
         LDA      !UNITFG 
         PHA
         SEC
         SBC      #VSANG0 
         LSR      A 
         LSR      A 
         LSR      A 
         LSR      A 
         TAX
         PLA
         AND      #00001111B
         STA      <WORK2 
         LDY      !XYPSFG 
; 
         LDA      >SANGD0,X
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         BRA      SGT100
; 
SGT050   EQU      $
         LDA      >SANGD1,X
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
; 
SGT100   EQU      $ 
         TYA
         CLC
         ADC      #010H 
         TAY
         LDA      <BUFFNO+1
         ADC      #00H
         STA      <BUFFNO+1
; 
         DEC      <WORK2 
         BPL      SGT050
; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      DKD0SET     ( dokankado data set sub )             x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
DKADD1   EQU      $ 
         BYTE     DKAD4,DKAD0,DKAD0,DKAD0 
; 
DKADD2   EQU      $ 
         BYTE     DKAD1,DKAD5,DKAD1,DKAD1 
; 
DKADD3   EQU      $ 
         BYTE     DKAD2,DKAD2,DKAD6,DKAD2 
; 
DKADD4   EQU      $ 
         BYTE     DKAD3,DKAD3,DKAD3,DKAD7 
; 
DKD0SET  EQU      $ 
         LDX      !UNITFG 
         LDY      !XYPSFG 
; 
         LDA      >DKADD1,X
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         INY
         LDA      >DKADD2,X
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
; 
         LDA      !XYPSFG 
         CLC
         ADC      #010H 
         STA      !XYPSFG 
         TAY
         LDA      <BUFFNO+1
         ADC      #00H
         STA      <BUFFNO+1
; 
         LDA      >DKADD3,X
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         INY
         LDA      >DKADD4,X
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
; 
         RTL
; 
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      TOG1SET     ( toge 1 data set sub )                x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
TOG1SET  EQU      $ 
         LDX      #01H
         BRA      TOG000
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      TOG0SET     ( toge 0 data set sub )                x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
TOGED    EQU      $ 
         BYTE     TTOG0,TTOG1 
; 
TOG0SET  EQU      $ 
         LDX      #00H
; 
TOG000   EQU      $ 
         LDA      !UNITFG 
         AND      #00001111B
         STA      <WORK2 
         LDY      !XYPSFG 
; 
TOG050   EQU      $
         LDA      >TOGED,X 
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         INY
         DEC      <WORK2 
         BPL      TOG050
; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      BET0SET     ( beta data set )                      x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
BET0SET		EQU	$
		LDX	#00
;
BAT050		EQU	$
		LDA	#BET20
		JSR	BUFTCLR
		CPX	#0F0H
		BNE	BAT050
;
		RTL
;
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      HOLESET     ( suichu hole data set sub )           x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
HOLESET  EQU      $ 
         LDA      <BUFFNO
         STA      <WORK0 
         LDA      <BUFFNO+1
         STA      <WORK1 
; 
         LDA      !UNITFG 
         AND      #00001111B
         STA      <WORK2 
         LDY      !XYPSFG 
         LDX      #01H
; 
HET050   EQU      $ 
         LDA      <WORK2 
         STA      <WORK3 
; 
HET100   EQU      $ 
         LDA      #MIZ31
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         JSL      >YPINCST 
         DEC      <WORK3 
         BPL      HET100
; 
         LDA      <WORK0 
         STA      <BUFFNO
         LDA      <WORK1 
         STA      <BUFFNO+1
; 
         LDA      !XYPSFG 
         CLC
         ADC      #010H 
         STA      !XYPSFG 
         TAY
         DEX
         BPL      HET050
; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      MIWASET     ( mizu iwa data set sub )              x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
MIWAD1   EQU      $ 
         BYTE     MIWA0,MIWA3 
; 
MIWAD2   EQU      $ 
         BYTE     MIWA1,MIWA4 
; 
MIWAD3   EQU      $ 
         BYTE     MIWA2,MIWA5 
; 
MIWASET  EQU      $ 
         LDA      <BUFFNO
         STA      <WORK0 
         LDA      <BUFFNO+1
         STA      <WORK1 
; 
         LDA      !UNITFG 
         AND      #00001111B
         STA      <WORK2 
         LDX      #00H
; 
MAT050   EQU      $ 
         LDA      <WORK2 
         STA      <WORK3 
         LDY      !XYPSFG 
;;K;;         LDA      (<BUFFNO),Y
	LDA	[<BUFFNO],Y
         CMP      #MYUK0
         BCC      MAT070
; 
         CMP      #MYUK2
         BCC      MAT200
; 
MAT070   EQU      $
         LDA      >MIWAD1,X
         BRA      MAT150
; 
MAT100   EQU      $
         LDA      >MIWAD2,X
; 
MAT150   EQU      $ 
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         JSL      >YPINCST 
         DEC      <WORK3 
         BNE      MAT100
; 
         LDA      >MIWAD3,X
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
; 
         LDA      <WORK0 
         STA      <BUFFNO
         LDA      <WORK1 
         STA      <BUFFNO+1
; 
         LDA      !XYPSFG 
         CLC
         ADC      #010H 
         STA      !XYPSFG 
         LDA      <BUFFNO+1
         ADC      #00H
         STA      <BUFFNO+1
         STA      <WORK1 
; 
         LDX      #01H
         JMP      MAT050
; 
MAT200   EQU      $ 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      MYUKSET     ( mizu yuka data set sub )             x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
MYUKD1   EQU      $ 
         BYTE     MYUK0,MYUK3 
; 
MYUKD2   EQU      $ 
         BYTE     MYUK1,MYUK4 
; 
MYUKD3   EQU      $ 
         BYTE     MYUK2,MYUK5 
; 
MYUKSET  EQU      $ 
         LDY      #00H
;;K;;         LDA      (<DATANO),Y
	LDA	[<DATANO],Y
         STA      <WORK3 
         LDA      <DATANO
         CLC
         ADC      #01H
         STA      <DATANO
         LDA      <DATANO+1
         ADC      #00H
         STA      <DATANO+1
; 
         LDA      <BUFFNO
         STA      <WORK0 
         LDA      <BUFFNO+1
         STA      <WORK1 
; 
         LDA      !UNITFG 
         AND      #00001111B
         STA      <WORK2 
         LDX      #00H
; 
MKT050   EQU      $
         LDA      <WORK3 
         STA      <WORK4 
         LDY      !XYPSFG 
         LDA      >MYUKD1,X
         JMP      MKT150
; 
MKT100   EQU      $
         LDA      >MYUKD2,X
; 
MKT150   EQU      $ 
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         JSL      >YPINCST 
         DEC      <WORK4 
         BNE      MKT100
; 
         LDA      >MYUKD3,X
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
; 
         LDA      <WORK0 
         STA      <BUFFNO
         LDA      <WORK1 
         STA      <BUFFNO+1
; 
         LDA      !XYPSFG 
         CLC
         ADC      #010H 
         STA      !XYPSFG 
         LDA      <BUFFNO+1
         ADC      #00H
         STA      <BUFFNO+1
         STA      <WORK1 
; 
         LDX      #01H
         DEC      <WORK2 
         BPL      MKT050
; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      SPB0SET     ( shop blak beta data set sub )        x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
SPB0SET  EQU      $ 
         LDA      !UNITFG 
         AND      #00001111B
         TAX
         LDY      !XYPSFG 
; 
SP0050   EQU      $ 
         LDA      #SHSP7
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         JSL      >YPINCST 
         DEX
         BPL      SP0050
; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      SPB1SET     ( shop blak beta data set sub )        x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
SPB1SET  EQU      $ 
         LDA      !UNITFG 
         AND      #00001111B
         TAX
         LDY      !XYPSFG 
; 
SP1050   EQU      $ 
         LDA      #SHSP7
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         TYA
         CLC
         ADC      #010H 
         TAY
         LDA      <BUFFNO+1
         ADC      #00H
         STA      <BUFFNO+1
         DEX
         BPL      SP1050
; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      SAN1SET     ( sango yoko data set sub )            x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
SAN1SET  EQU      $ 
         LDA      !UNITFG 
         AND      #00001111B
         TAX
         LDY      !XYPSFG 
; 
SA1050   EQU      $ 
         LDA      #SANG2
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         JSL      >YPINCST 
         DEX
         BPL      SA1050
; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      MIZ0SET     ( mizu data set sub )                  x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
MIZ0SET  EQU      $ 
         LDY      #00H
;;K;;         LDA      (<DATANO),Y
	LDA	[<DATANO],Y
         STA      <WORK2 
; 
         LDA      <DATANO
         CLC
         ADC      #01H
         STA      <DATANO
         LDA      <DATANO+1
         ADC      #00H
         STA      <DATANO+1
; 
         LDA      <BUFFNO
         STA      <WORK0 
         LDA      <BUFFNO+1
         STA      <WORK1 
; 
         LDA      !UNITFG 
         AND      #00011111B
         STA      <WORK3 
         LDY      !XYPSFG 
         LDX      <WORK2 
; 
MZ0050   EQU      $ 
         LDA      #MIZ30
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         JSL      >YPINCST 
         DEX
         CPX      #0FFH 
         BNE      MZ0050
; 
         BRA      MZ0150
; 
MZ0100   EQU      $ 
         LDX      <WORK2 
; 
MZ0120   EQU      $ 
         LDA      #MIZ31
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         JSL      >YPINCST 
         DEX
         CPX      #0FFH 
         BNE      MZ0120
; 
MZ0150   EQU      $ 
         LDA      <WORK0 
         STA      <BUFFNO
         LDA      <WORK1 
         STA      <BUFFNO+1
; 
         LDA      !XYPSFG 
         CLC
         ADC      #010H 
         STA      !XYPSFG 
         TAY
         LDA      <BUFFNO+1
         ADC      #00H
         STA      <BUFFNO+1
         STA      <WORK1 
; 
         DEC      <WORK3 
         BPL      MZ0100
; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      YAJISET     ( yajiruahi data set sub )             x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
YAJID0   EQU      $ 
         BYTE     UPYJ0,LFYJ0,RIYJ0,QTYJ0 
; 
YAJID1   EQU      $ 
         BYTE     UPYJ1,LFYJ1,RIYJ1,QTYJ1 
; 
YAJISET  EQU      $ 
         LDA      !UNITFG 
         SEC
         SBC      #FUPYAJ 
         TAX
         LDY      !XYPSFG 
;
         LDA      >YAJID0,X
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         INY
; 
         LDA      >YAJID1,X
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      KAI0SET     ( kai data set )                       x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
KAI0SET  EQU      $ 
         LDY      !XYPSFG 
; 
         LDA      #KAI00
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;        JSR      MIZUSET     ( mizu data set sub )                  x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
MIZUSET  EQU      $ 
         LDA      <BUFFNO
         STA      <WORK0 
         LDA      <BUFFNO+1
         STA      <WORK1 
; 
         LDA      <WORKE 
         AND      #00011111B
         STA      <WORK2 
         LDA      #01AH 
         SEC
         SBC      <WORK2 
         STA      <WORK2 
         LDY      !XYPSFG 
         LDX      #0EFH 
; 
MUT050   EQU      $ 
	 LDA	  !BG3SCRF
	 CMP	  #001H
	 BEQ	  MUT100		; BG3 mizu set?
;					; no
         LDA      #MIZ30
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         JSL      >YPINCST 
         DEX
         CPX      #0FFH 
         BNE      MUT050
; 
         BRA      MUT150
; 
MUT100   EQU      $ 
         LDA      #MIZ31
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         JSL      >YPINCST 
         DEX
         CPX      #0FFH 
         BNE      MUT100
; 
MUT150   EQU      $ 
         LDA      <WORK0 
         STA      <BUFFNO
         LDA      <WORK1 
         STA      <BUFFNO+1
; 
         LDA      !XYPSFG 
         CLC
         ADC      #010H 
         STA      !XYPSFG 
         TAY
         LDA      <BUFFNO+1
         ADC      #00H
         STA      <BUFFNO+1
         STA      <WORK1 
; 
         LDX      #0EFH 
         DEC      <WORK2 
         BPL      MUT100
; 
         RTL
; 
;======= shop BG data RAM set ========================================
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;x       JSR      SBK0SET     ( shop block tate data set sub )       x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
SBK0SET  EQU      $ 
         LDA      !UNITFG 
         AND      #00001111B
         TAX
         LDY      !XYPSFG 
; 
SB0050   EQU      $ 
         LDA      #SPBK0
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         TYA
         CLC
         ADC      #010H 
         TAY
; 
         LDA      <BUFFNO+1
         ADC      #00H
         STA      <BUFFNO+1
; 
         DEX
         BPL      SB0050
; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;x       JSR      SBK1SET     ( shop block yoko data set sub )       x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
SHOPDT   EQU      $ 
         BYTE     SHSP1,SPBK0 
; 
SBK1SET  EQU      $ 
         LDA      <BUFFNO
         STA      <WORK0 
         LDA      <BUFFNO+1
         STA      <WORK1 
         LDX      #01H
; 
SB1050   EQU      $ 
         LDA      !UNITFG 
         AND      #00001111B
         STA      <WORK2 
         LDY      !XYPSFG 
; 
SB1100   EQU      $ 
         LDA      >SHOPDT,X
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         JSL      >YPINCST 
; 
         DEC      <WORK2 
         BPL      SB1100
; 
         LDA      <WORK0 
         STA      <BUFFNO
         LDA      <WORK1 
         STA      <BUFFNO+1
; 
         LDA      !XYPSFG 
         CLC
         ADC      #010H 
         STA      !XYPSFG 
; 
         LDA      <BUFFNO+1
         ADC      #00H
         STA      <BUFFNO+1
         STA      <WORK1 
; 
         DEX
         BPL      SB1050
; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;x       JSR      SKAGSET     ( shop kage tate data set sub )        x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
SKAGSET  EQU      $ 
         LDA      !UNITFG 
         AND      #00001111B
         STA      <WORK2 
         LDY      !XYPSFG 
; 
KGT050   EQU      $ 
;;K;;         LDA      (<BUFFNO),Y
	LDA	[<BUFFNO],Y
         CMP      #SHSP1
         BNE      KGT100
; 
         LDX      #SHSP2
         JMP      KGT150
; 
KGT100   EQU      $ 
         LDX      #SHSP3
; 
KGT150   EQU      $ 
         TXA
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         TYA
         CLC
         ADC      #010H 
         TAY
; 
         LDA      <BUFFNO+1
         ADC      #00H
         STA      <BUFFNO+1
; 
         DEC      <WORK2 
         BPL      KGT100
; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;x       JSR      BOX0SET     ( shop box data set sub )              x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
BITDAT0  EQU      $ 
         HEX      02,05,08,0B 
; 
BITDAT1  EQU      $ 
         HEX      08,04,02,01 
; 
BOXDT    EQU      $ 
         BYTE     BOX00,BOX01 
         BYTE     BOX02,BOX03 
; 
BOX0SET  EQU      $ 
         LDX      #00H
         LDY      !XYPSFG 
; 
BOX050   EQU      $ 
         LDA      >BOXDT,X 
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         INY
         INX
         TXA
         AND      #00000001B
         BNE      BOX050
; 
         LDA      !XYPSFG 
         CLC
         ADC      #010H 
         TAY
; 
         LDA      <BUFFNO+1
         ADC      #00H
         STA      <BUFFNO+1
; 
         CPX      #04H
         BNE      BOX050
; 
         LDX      #03H
; 
         LDA      !XYPSFG 
         AND      #00001111B
; 
BOX100   EQU      $ 
         CMP      >BITDAT0,X 
         BEQ      BOX150
; 
         DEX
         BNE      BOX100
; 
BOX150   EQU      $ 
         LDY      !SHPINT 
         LDA      !SHPBUF,Y 
         AND      >BITDAT1,X 
         BEQ      BOX200
; 
         LDY      !XYPSFG 
         LDA      #BOX04
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
         INY
         LDA      #BOX05
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
; 
BOX200   EQU      $ 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;x       JSR      BOX1SET     ( shop box smoll data set sub )        x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
BOX1SET  EQU      $ 
         LDY      !XYPSFG 
; 
         LDA      #BOX06
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
; 
         LDX      #03H
         TYA
         AND      #00001111B
; 
X1T050   EQU      $ 
         CMP      >BITDAT0,X 
         BEQ      X1T100
; 
         DEX
         BNE      X1T050
; 
X1T100   EQU      $ 
         LDY      !SHPINT 
         LDA      !SHPBUF,Y 
         AND      >BITDAT1,X 
         BEQ      X1T150
; 
         LDY      !XYPSFG 
         LDA      #BOX07
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
; 
X1T150   EQU      $ 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;x       JSR      SPK0SET     ( shop kage kado data set sub )        x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
SHKGD    EQU      $ 
         BYTE     SHSP4,SHSP5 
; 
SPK0SET  EQU      $ 
         LDA      !UNITFG 
         SEC
         SBC      #FSPKG0 
         LSR      A 
         LSR      A 
         LSR      A 
         LSR      A 
         TAX
         LDY      !XYPSFG 
; 
         LDA      >SHKGD,X 
;;K;;         STA      (<BUFFNO),Y
	STA	[<BUFFNO],Y
; 
         RTL
; 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;x                BG data                                            x
;x                                                                   x
;x       BYTE     00000000B,00000000B                                x
;x                |~|||~~|     |||~|                                 x
;x                 | |  |       | |_ BG color no. 0 ~ 111            x
;x                 | |  |       |___ OBJ color no. 0 ~ 11            x
;x                 | |  |                                            x
;x                 | |  |                                            x
;x                 | |  |                                            x
;x                 | |  |                                            x
;x                 | |  |___________ display no. data 0 ~ 1111       x
;x                 | |______________ player jyoutai bit 0 or 1       x
;x                 |________________ player Y-position 0 ~ 111       x
;x                                                                   x
;x                                                                   x
;x                    Y      X                                       x
;x       BYTE     00000000B,000H,+000H                         x
;x                |~||~~~|   ||  |~~~~|   |__ data counter 0 ~ F     x
;x                 |   |     ||    |_________ BG data set no.        x
;x                 |   |     ||                                      x
;x                 |   |     ||______________ X-position             x
;x                 |   |     |_______________ display no.            x
;x                 |   |                                             x
;x                 |   |_____________________ Y-position             x
;x                 |_________________________ BG data set no. chenge x
;x                                                                   x
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;=====================================================================
; 
;=====================================================================
B400     EQU      $ 
; 
         LWORD     B106        ; BG data address 
         LWORD     E106        ; Enmy data address 
; 
         BYTE     00100111B,00000000B,10000001B,00000110B,00000010B,00000000B
	 BYTE	  000H
;0
         BYTE     0FFH
; 
;=====================================================================
B401     EQU      $ 
; 
         LWORD     B106        ; BG data address 
         LWORD     E106        ; Enmy data address 
; 
         BYTE     00000111B,10000010B,10110001B,00001000B,00000001B,00000000B
	 BYTE	  009H
;
         BYTE     00000000B+000H,000H,FBET20
; 
         BYTE     00100000B+000H,000H,VBBLK1+00FH 
         BYTE     00100000B+001H,000H,VBBLK1+000H 
         BYTE     00100000B+002H,000H,VBBLK1+000H 
         BYTE     00100000B+003H,000H,VBBLK1+000H 
         BYTE     00100000B+004H,000H,VBBLK1+000H 
         BYTE     00100000B+005H,000H,VBBLK1+000H 
         BYTE     00100000B+006H,000H,VBBLK1+000H 
         BYTE     00100000B+007H,000H,VBBLK1+000H 
         BYTE     00100000B+008H,000H,VBBLK1+000H 
         BYTE     00100000B+009H,000H,VBBLK1+000H 
         BYTE     00100000B+00AH,000H,VBBLK1+000H 
         BYTE     00100000B+00BH,000H,VBBLK1+000H 
         BYTE     00100000B+00CH,000H,VBBLK1+000H 
         BYTE     00100000B+00DH,000H,VBBLK1+000H 
         BYTE     00100000B+00EH,000H,VBBLK1+002H 
         BYTE     00100000B+001H,00FH,VBBLK1+000H 
         BYTE     00100000B+002H,00FH,VBBLK1+000H 
         BYTE     00100000B+003H,00FH,VBBLK1+000H 
         BYTE     00100000B+004H,00FH,VBBLK1+000H 
         BYTE     00100000B+005H,00FH,VBBLK1+000H 
         BYTE     00100000B+006H,00FH,VBBLK1+000H 
         BYTE     00100000B+007H,00FH,VBBLK1+000H 
         BYTE     00100000B+008H,00FH,VBBLK1+000H 
         BYTE     00100000B+009H,00FH,VBBLK1+000H 
         BYTE     00100000B+00AH,00DH,VBBLK1+002H 
         BYTE     00100000B+00BH,00DH,VBBLK1+002H 
         BYTE     00100000B+00CH,00DH,VBBLK1+002H 
         BYTE     00100000B+00DH,00DH,VBBLK1+002H 
         BYTE     00100000B+00EH,00FH,VBBLK1+000H 
         BYTE     00100000B+000H,010H,VBBLK1+000H 
         BYTE     00100000B+001H,010H,VBBLK1+000H 
         BYTE     00100000B+002H,010H,VBBLK1+00FH 
         BYTE     00100000B+003H,010H,VBBLK1+00FH 
         BYTE     00100000B+000H,01FH,VBBLK1+000H 
         BYTE     00100000B+001H,01FH,VBBLK1+000H 
         BYTE     00100000B+00AH,004H,VBBLK1+001H 
         BYTE     00100000B+00BH,004H,VBBLK1+001H 
         BYTE     00100000B+00CH,004H,VBBLK1+001H 
         BYTE     00100000B+00DH,004H,VBBLK1+001H 
         BYTE     00100000B+00EH,004H,VBBLK1+001H 
         BYTE     00100000B+00AH,007H,VBBLK1+001H 
         BYTE     00100000B+00BH,007H,VBBLK1+001H 
         BYTE     00100000B+00CH,007H,VBBLK1+001H 
         BYTE     00100000B+00DH,007H,VBBLK1+001H 
         BYTE     00100000B+00EH,007H,VBBLK1+001H 
         BYTE     00100000B+00AH,00AH,VBBLK1+001H 
         BYTE     00100000B+00BH,00AH,VBBLK1+001H 
         BYTE     00100000B+00CH,00AH,VBBLK1+001H 
         BYTE     00100000B+00DH,00AH,VBBLK1+001H 
         BYTE     00100000B+00EH,00AH,VBBLK1+001H 
         BYTE     00100000B+00CH,014H,VGCOIN+003H 
         BYTE     00100000B+00DH,014H,VGCOIN+003H 
         BYTE     00100000B+00EH,012H,VGCOIN+005H 
         BYTE     00100000B+000H,022H,VGCOIN+005H 
         BYTE     00100000B+001H,022H,VGCOIN+005H 
         BYTE     00100000B+002H,022H,VGCOIN+005H 
; 
         BYTE     00100000B+000H,00DH,VBLDK1+005H 
         BYTE     11100000B+000H,073H,012H
         BYTE     00100000B+005H,006H,VGCOIN+000H 
         BYTE     00100000B+005H,009H,VGCOIN+000H 
         BYTE     00100000B+006H,005H,VGCOIN+000H 
         BYTE     00100000B+006H,007H,VGCOIN+001H 
         BYTE     00100000B+006H,00AH,VGCOIN+000H 
         BYTE     00100000B+002H,009H,FUPTOM
; 
         BYTE     00000000B+002H,01DH,VTDOK0+004H 
         BYTE     00000000B+004H,014H,VTDOK2+002H 
         BYTE     00000000B+009H,011H,VTDOK1+007H 
         BYTE     00000000B+005H,012H,VTDOK0+008H 
         BYTE     00000000B+00AH,010H,VTDOK0+008H 
         BYTE     00000000B+00AH,018H,VTDOK0+008H 
         BYTE     00000000B+003H,021H,VTDOK1+007H 
         BYTE     00100000B+00BH,014H,VGCOIN+003H 
         BYTE     00100000B+00BH,01DH,VBBLK1+001H 
         BYTE     00100000B+000H,02AH,VBBLK1+001H 
         BYTE     00000000B+001H,024H,VTDOK0+005H 
         BYTE     00000000B+005H,026H,VTDOK0+008H 
         BYTE     00000000B+006H,029H,VTDOK4+005H 
         BYTE     00100000B+005H,02CH,VHZJP1+000H 
         BYTE     01000000B+009H,020H,VDOKY3+002H 
         BYTE     00100000B+009H,02EH,VBLDK3+007H 
         BYTE     00100000B+00CH,02BH,VHZJP1+001H 
         BYTE     00000000B+00EH,023H,VTDOK1+002H 
         BYTE     00000000B+00EH,026H,VTDOK2+001H 
         BYTE     00000000B+001H,035H,VTDOK1+002H 
         BYTE     00000000B+001H,038H,VTDOK2+001H 
         BYTE     00100000B+002H,03EH,VDOKY1+001H 
         BYTE     00100000B+004H,03CH,VDOKY1+003H 
         BYTE     00100000B+006H,03AH,VDOKY1+005H 
         BYTE     00000000B+004H,032H,VTDOK3+006H 
         BYTE     00000000B+006H,034H,VTDOK3+004H 
         BYTE     01100000B+00AH,030H,VTDOK8+006H 
         BYTE     01100000B+00AH,038H,VTDOK8+007H 
         BYTE     01100000B+000H,045H,VTDOK8+004H 
         BYTE     00000000B+001H,045H,VTDOK5+002H 
         BYTE     00000000B+001H,048H,VTDOK6+002H 
         BYTE     00100000B+002H,04CH,VCNBLK+001H 
         BYTE     00100000B+002H,04EH,FUPTOM
         BYTE     00000000B+005H,041H,VTDOK7+005H 
         BYTE     00000000B+007H,041H,VTDOK7+003H 
         BYTE     00000000B+006H,04AH,VTDOK1+001H 
         BYTE     00000000B+006H,04CH,VTDOK2+001H 
         BYTE     00100000B+009H,04AH,VBBLK0+003H 
         BYTE     00100000B+00AH,047H,VHZJP1+000H 
         BYTE     00100000B+009H,04CH,FTCQST
         BYTE     00100000B+00CH,049H,FHNQST
         BYTE     00100000B+00CH,04EH,VCNQST+000H 
         BYTE     00100000B+00EH,037H,VBBLK1+000H 
; 
         BYTE     00000000B+00DH,042H,VTDOK0+004H 
         BYTE     00000000B+00DH,049H,VTDOK1+005H 
         BYTE     00000000B+00EH,048H,VTDOK0+00AH 
         BYTE     00000000B+00EH,04EH,VTDOK0+00AH 
         BYTE     00000000B+002H,056H,VTDOK0+007H 
         BYTE     00100000B+005H,05BH,VCNQST+002H 
         BYTE     00000000B+004H,053H,VTDOK3+006H 
         BYTE     00000000B+009H,05CH,VTDOK0+004H 
         BYTE     00000000B+00DH,054H,VTDOK1+008H 
         BYTE     00100000B+001H,05DH,FUPTOM
; 
         BYTE     00000000B+001H,06AH,VTDOK5+001H 
         BYTE     00000000B+001H,06CH,VTDOK6+001H 
         BYTE     00000000B+00EH,053H,VTDOK0+006H 
         BYTE     00000000B+004H,068H,VTDOK0+007H 
         BYTE     00000000B+005H,06CH,VTDOK0+007H 
         BYTE     01000000B+006H,060H,VDOKY3+002H 
         BYTE     00100000B+006H,068H,VDOKY1+007H 
         BYTE     00000000B+008H,060H,VTDOK1+00FH 
; 
         BYTE     00000000B+00CH,062H,VTDOK5+003H 
         BYTE     00000000B+00BH,066H,VTDOK3+006H 
         BYTE     00000000B+00CH,068H,VTDOK6+002H 
         BYTE     00100000B+001H,072H,VCNQST+002H 
         BYTE     01100000B+001H,079H,VTDOK8+005H 
         BYTE     01100000B+005H,072H,VTDOK8+003H 
         BYTE     00000000B+004H,078H,VTDOK5+002H 
         BYTE     00000000B+004H,07BH,VTDOK6+002H 
         BYTE     01100000B+009H,078H,VTDOK8+003H 
; 
         BYTE     00100000B+00AH,070H,VBBLK1+00FH 
         BYTE     00100000B+00BH,070H,VBBLK1+00FH 
         BYTE     00100000B+00CH,070H,VBBLK1+00FH 
         BYTE     00100000B+00DH,070H,VBBLK1+00FH 
         BYTE     00100000B+00EH,070H,VBBLK1+00FH 
; 
         BYTE     00000000B+004H,012H,FDKAD0
         BYTE     00000000B+009H,010H,FDKAD0
         BYTE     00000000B+009H,018H,FDKAD1
         BYTE     00000000B+003H,020H,FDKAD2
         BYTE     00000000B+003H,028H,FDKAD3
         BYTE     00000000B+00DH,048H,FDKAD0
         BYTE     00000000B+00DH,04EH,FDKAD1
         BYTE     00000000B+00DH,053H,FDKAD0
         BYTE     00000000B+00DH,05CH,FDKAD3
; 
         BYTE     0FFH
; 
;=====================================================================
;;;;;;;;; 7/22
;shop data
;        takarabako 3tu 
B402     EQU      $ 
; 
         LWORD     0000H       ; BG data address 
         LWORD     0000H       ; Enmy data address 
; 
         BYTE     01100000B,10000010B,01000111B,00000111B,11000111B,00000000B 
	 BYTE	  017H
;0
;;K;;         BYTE     01100000B+00FH,000H,VSPBT0+00FH 
;;K;;         BYTE     01100000B+010H,000H,VSPBT0+00FH 
;;K;;         BYTE     00000000B+00FH,004H,VSBLKY+007H 
;;K;;         BYTE     00000000B+010H,002H,VSBLKY+002H 
;;K;;         BYTE     00000000B+010H,00BH,VSBLKY+002H 
;;K;;         BYTE     01100000B+011H,000H,VSPBT0+000H 
;;K;;         BYTE     00000000B+011H,001H,VSBLKY+001H 
;;K;;         BYTE     00000000B+011H,00DH,VSBLKY+001H 
;;K;;         BYTE     01100000B+011H,00FH,VSPBT0+000H 
;;K;;         BYTE     00000000B+012H,000H,VSBLKY+001H 
;;K;;         BYTE     00000000B+012H,00EH,VSBLKY+001H 
;;K;;         BYTE     00000000B+013H,000H,VSBLKT+002H 
;;K;;         BYTE     00000000B+013H,00FH,VSBLKT+003H 
;;K;;         BYTE     00000000B+016H,000H,VSBLKY+002H 
;;K;;         BYTE     00000000B+016H,00CH,VSBLKY+002H 
;;K;;         BYTE     01100000B+017H,000H,VSPBT1+003H 
;;K;;         BYTE     01100000B+017H,001H,VSPBT1+003H 
;;K;;         BYTE     00000000B+017H,002H,VSBLKT+002H 
;;K;;         BYTE     00000000B+017H,00DH,VSBLKT+002H 
;;K;;         BYTE     01100000B+017H,00EH,VSPBT1+003H 
;;K;;         BYTE     01100000B+017H,00FH,VSPBT1+003H 
;;K;;         BYTE     00000000B+01AH,002H,VSBLKY+00BH 
;
         BYTE     01100000B+010H,005H,VSPBT0+005H
         BYTE     01100000B+011H,003H,VSPBT0+009H
         BYTE     01100000B+012H,002H,VSPBT0+00BH
         BYTE     01100000B+013H,001H,VSPBT0+00DH
         BYTE     01100000B+014H,001H,VSPBT0+00DH
         BYTE     01100000B+015H,001H,VSPBT0+00DH
         BYTE     01100000B+016H,003H,VSPBT0+009H
         BYTE     01100000B+017H,003H,VSPBT0+009H
         BYTE     01100000B+018H,003H,VSPBT0+009H
         BYTE     01100000B+019H,003H,VSPBT0+009H
	 BYTE	  01100000B+00FH,004H,VMISES+007H,001H
	 BYTE	  01100000B+010H,002H,VMISES+002H,002H
	 BYTE	  01100000B+010H,00BH,VMISES+002H,003H
	 BYTE	  01100000B+011H,001H,VMISES+001H,002H
	 BYTE	  01100000B+011H,00DH,VMISES+001H,003H
	 BYTE	  01100000B+012H,000H,VMISES+001H,002H
	 BYTE	  01100000B+012H,00EH,VMISES+001H,003H
	 BYTE	  01100000B+013H,000H,VMISES+003H,000H
	 BYTE	  01100000B+013H,00FH,VMISES+003H,000H
	 BYTE	  01100000B+016H,000H,VMISES+002H,006H
	 BYTE	  01100000B+016H,00DH,VMISES+002H,005H
	 BYTE	  01100000B+017H,002H,VMISES+003H,000H
	 BYTE	  01100000B+017H,00DH,VMISES+003H,000H
	 BYTE	  01100000B+01AH,002H,VMISES+00BH,004H
;
;;K;;         BYTE     00000000B+010H,00AH,VSKAGE+000H 
;;K;;         BYTE     00000000B+011H,00CH,VSKAGE+000H 
;;K;;         BYTE     00000000B+012H,00DH,VSKAGE+000H 
;;K;;         BYTE     00000000B+013H,00EH,VSKAGE+002H 
;;K;;         BYTE     00000000B+016H,00CH,VSKAGE+003H 
;
         BYTE     00000000B+018H,004H,FSPBX0
         BYTE     00000000B+018H,007H,FSPBX0
         BYTE     00000000B+018H,00AH,FSPBX0
; 
         BYTE     0FFH
; 
;=====================================================================
B403     EQU      $ 
; 
         LWORD     B113        ; BG data address 
         LWORD     E113        ; Enmy data address 
; 
         BYTE     00001001B,10011100B,10000001B,00000110B,00000010B,00010001B
	 BYTE	  001H
; 
;0
         BYTE     00000000B+000H,000H,FMIZU0
         BYTE     01100000B+000H,000H,VKURAG+00FH 
         BYTE     01100000B+000H,010H,VKURAG+00FH 
         BYTE     01100000B+000H,020H,VKURAG+00FH 
         BYTE     01100000B+000H,030H,VKURAG+00FH 
         BYTE     01100000B+000H,040H,VKURAG+00FH 
         BYTE     01100000B+000H,050H,VKURAG+00FH 
         BYTE     01100000B+000H,060H,VKURAG+00FH 
         BYTE     01100000B+000H,070H,VKURAG+00FH 
         BYTE     01100000B+000H,080H,VKURAG+00FH 
         BYTE     01100000B+000H,090H,VKURAG+00FH 
         BYTE     01100000B+006H,030H,VSUISU+00AH,03CH
         BYTE     01100000B+01AH,000H,VMZYUK+000H,01FH
         BYTE     01100000B+01AH,022H,VMZYUK+000H,07FH
         BYTE     01100000B+016H,000H,VMZIWA+006H 
         BYTE     00000000B+016H,00AH,VSANG0+003H 
         BYTE     00000000B+015H,00CH,VSANG0+004H 
         BYTE     00100000B+012H,009H,VGCOIN+004H 
         BYTE     01000000B+014H,000H,VDOKY3+002H 
;1
         BYTE     01100000B+016H,017H,VMZIWA+002H 
         BYTE     00000000B+00BH,010H,VSANG1+007H 
         BYTE     00000000B+012H,011H,VSANG1+000H 
         BYTE     00000000B+011H,012H,VSANG1+002H 
         BYTE     01100000B+011H,013H,VSANG2+002H 
         BYTE     01100000B+010H,014H,VSANG2+000H 
         BYTE     01100000B+012H,01AH,VSANG2+000H 
         BYTE     01100000B+013H,01AH,VSANG2+002H 
         BYTE     01100000B+014H,01CH,VSANG2+003H 
         BYTE     01100000B+015H,01FH,VSANG2+002H 
         BYTE     01100000B+016H,01FH,VSANG2+000H 
         BYTE     00100000B+014H,011H,VBBLK1+002H 
         BYTE     00100000B+017H,01FH,VBBLK1+001H 
         BYTE     00000000B+017H,01BH,VSANG0+002H 
         BYTE     00100000B+012H,019H,FKNQST
;2
         BYTE     01100000B+014H,024H,VMZIWA+001H 
         BYTE     00000000B+00BH,02AH,VSANG1+004H 
         BYTE     00000000B+00FH,02BH,VSANG1+003H 
         BYTE     01100000B+010H,02CH,VSANG2+001H 
         BYTE     01100000B+015H,027H,VSANG2+000H 
         BYTE     01100000B+016H,027H,VSANG2+002H 
         BYTE     01100000B+017H,029H,VSANG2+002H 
         BYTE     01100000B+018H,02BH,VSANG2+004H 
         BYTE     01100000B+019H,02BH,VSANG2+000H 
         BYTE     00000000B+016H,02DH,VSANG1+001H 
         BYTE     00000000B+017H,02FH,VSANG1+000H 
         BYTE     00100000B+011H,021H,VGCOIN+004H 
;4
         BYTE     01100000B+006H,04DH,VKURAG+000H 
         BYTE     01100000B+007H,046H,VKURAG+000H 
         BYTE     01100000B+008H,049H,VKURAG+000H 
         BYTE     01100000B+008H,04FH,VKURAG+000H 
         BYTE     01100000B+009H,041H,VKURAG+000H 
         BYTE     01100000B+009H,04CH,VKURAG+000H 
         BYTE     01100000B+00AH,04EH,VKURAG+000H 
         BYTE     01100000B+00BH,04AH,VKURAG+000H 
         BYTE     01100000B+00CH,044H,VKURAG+000H 
         BYTE     01100000B+00FH,048H,VKURAG+000H 
         BYTE     01100000B+010H,04CH,VKURAG+000H 
         BYTE     01100000B+011H,04AH,VKURAG+000H 
         BYTE     01100000B+011H,04EH,VKURAG+000H 
         BYTE     01100000B+012H,045H,VKURAG+000H 
         BYTE     01100000B+012H,04DH,VKURAG+000H 
         BYTE     01100000B+013H,042H,VKURAG+000H 
         BYTE     01100000B+013H,048H,VKURAG+000H 
;5
         BYTE     01100000B+007H,051H,VKURAG+000H 
         BYTE     01100000B+007H,05AH,VKURAG+000H 
         BYTE     01100000B+009H,051H,VKURAG+000H 
         BYTE     01100000B+009H,056H,VKURAG+000H 
         BYTE     01100000B+00AH,053H,VKURAG+000H 
         BYTE     01100000B+00DH,059H,VKURAG+000H 
         BYTE     01100000B+00FH,050H,VKURAG+000H 
         BYTE     01100000B+010H,053H,VKURAG+000H 
         BYTE     01100000B+011H,051H,VKURAG+000H 
         BYTE     01100000B+011H,056H,VKURAG+000H 
         BYTE     01100000B+011H,05CH,VKURAG+000H 
         BYTE     01100000B+013H,050H,VKURAG+000H 
;7
         BYTE     00000000B+015H,070H,VSANG1+004H 
         BYTE     00000000B+016H,071H,VSANG1+000H 
         BYTE     00000000B+014H,073H,VSANG1+002H 
         BYTE     00000000B+00BH,07BH,VSANG1+006H 
         BYTE     00000000B+011H,07CH,VSANG1+003H 
         BYTE     01100000B+012H,07DH,VSANG2+002H 
         BYTE     01100000B+011H,07FH,VSANG2+000H 
         BYTE     01100000B+014H,079H,VSANG2+003H 
         BYTE     01100000B+015H,07BH,VSANG2+000H 
         BYTE     00000000B+016H,075H,VSANG0+003H 
         BYTE     00000000B+014H,077H,VSANG0+005H 
         BYTE     00100000B+011H,072H,FKNQST
         BYTE     00100000B+012H,076H,VGCOIN+003H 
         BYTE     00100000B+016H,07BH,VBBLK1+000H 
;8
         BYTE     01100000B+015H,081H,VMZIWA+002H 
         BYTE     01100000B+018H,08BH,VMZIWA+003H 
         BYTE     00000000B+00DH,08EH,VSANG1+003H 
         BYTE     01100000B+010H,08AH,VSANG2+002H 
         BYTE     01100000B+011H,08CH,VSANG2+003H 
         BYTE     01100000B+016H,08BH,VSANG2+007H 
         BYTE     00000000B+015H,08DH,VSANG1+002H 
         BYTE     00000000B+015H,088H,VSANG0+004H 
         BYTE     00000000B+017H,086H,VSANG0+002H 
         BYTE     00100000B+012H,084H,VGCOIN+003H 
;9
         BYTE     00000000B+00BH,09AH,VSANG1+005H 
         BYTE     00000000B+00FH,099H,VSANG1+000H 
         BYTE     00000000B+011H,092H,VSANG1+005H 
         BYTE     00000000B+015H,093H,VSANG1+000H 
         BYTE     00100000B+012H,095H,VGCOIN+003H 
         BYTE     01100000B+017H,097H,VMZIWA+002H 
         BYTE     01100000B+016H,09AH,VMZIWA+005H 
         BYTE     00100000B+014H,09CH,VDOKY0+003H 
         BYTE     11100000B+009H,073H,023H
         BYTE     00100000B+011H,09AH,VBBLK1+001H 
; 
         BYTE     0FFH
; 
; 
;=====================================================================
;;;;;;;;; 7/22
B404     EQU      $ 
; 
         LWORD     B605        ; BG data address 
         LWORD     E605        ; Enmy data address 
; 
         BYTE     00000011B,10000000B,10111001B,00001000B,00000010B,00000000B
	 BYTE	  000H
;                             Y    X
;3
         BYTE     00000000B+000H,000H,FBET20
         BYTE     00100000B+00BH,030H,VBBLK1+00FH 
         BYTE     00100000B+005H,033H,VBBLK1+009H 
         BYTE     00100000B+006H,033H,VBBLK1+009H 
         BYTE     00100000B+007H,033H,VBBLK1+009H 
         BYTE     00100000B+008H,033H,VBBLK1+009H 
         BYTE     00100000B+009H,033H,VBBLK1+009H 
         BYTE     00100000B+00AH,033H,VBBLK1+009H 
         BYTE     00100000B+007H,030H,VBBLK1+001H 
         BYTE     00100000B+007H,03EH,VBBLK1+001H 
         BYTE     00100000B+001H,034H,VBBLK1+002H 
         BYTE     00100000B+00DH,023H,VBBLK1+002H 
         BYTE     00100000B+00CH,028H,VBBLK1+004H 
         BYTE     01000000B+005H,034H,VREVR1+004H,007H
         BYTE     01000000B+001H,035H,VTAKI0+003H,000H
         BYTE     01000000B+00DH,024H,VTAKI0+002H,000H
         BYTE     00100000B+008H,037H,VBLDK3+002H 
;2
         BYTE     00100000B+00EH,010H,VBBLK1+00FH 
         BYTE     00100000B+000H,020H,VBBLK1+00FH 
         BYTE     00100000B+005H,025H,VBBLK1+006H 
         BYTE     00100000B+006H,025H,VBBLK1+006H 
         BYTE     00100000B+00AH,022H,VBBLK1+002H 
         BYTE     00100000B+00AH,028H,VBBLK1+004H 
         BYTE     00100000B+00BH,028H,VBBLK1+004H 
         BYTE     01000000B+00BH,02AH,VTAKI0+009H,000H
         BYTE     01000000B+00AH,023H,VTAKI0+002H,000H
         BYTE     01000000B+00AH,029H,VREVR2+001H,002H
         BYTE     01000000B+005H,029H,VTAKI0+006H,000H
         BYTE     01000000B+005H,026H,VREVR2+000H,004H
         BYTE     01000000B+00DH,016H,VTAKI0+007H,000H
         BYTE     01000000B+009H,010H,VREVR1+004H,00FH
         BYTE     00100000B+00CH,010H,VBBLK1+003H 
         BYTE     00100000B+00CH,01CH,VBBLK1+003H 
         BYTE     00100000B+00DH,010H,VBBLK1+003H 
         BYTE     00100000B+00DH,01CH,VBBLK1+003H 
         BYTE     00100000B+007H,022H,VCNQST+002H 
         BYTE     00100000B+007H,023H,FKNQST
;1
         BYTE     01000000B+00DH,001H,VTAKI0+00BH,000H
         BYTE     01000000B+001H,014H,VTAKI0+008H,000H
         BYTE     01000000B+004H,017H,VTAKI0+005H,000H
         BYTE     01000000B+004H,018H,VTAKI0+005H,000H
         BYTE     01000000B+001H,01BH,VTAKI0+008H,000H
         BYTE     01000000B+00DH,00EH,VTAKI0+00BH,000H
         BYTE     01000000B+000H,016H,VREVR1+004H,003H
         BYTE     01000000B+00EH,005H,VREVR1+004H,005H
         BYTE     01000000B+00DH,004H,VREVR1+003H,007H
         BYTE     01000000B+00CH,003H,VREVR1+004H,009H
         BYTE     01000000B+00CH,002H,VREVR1+003H,00BH
         BYTE     01000000B+00CH,000H,VREVR1+001H,00FH
         BYTE     00100000B+00CH,003H,VBBLK1+009H 
         BYTE     00100000B+00DH,004H,VBBLK1+007H 
         BYTE     00100000B+00EH,005H,VBBLK1+005H 
         BYTE     00100000B+00EH,000H,VBBLK1+000H 
         BYTE     00100000B+00EH,00FH,VBBLK1+000H 
         BYTE     00100000B+000H,016H,VBBLK1+003H 
         BYTE     00100000B+001H,017H,VBBLK1+001H 
         BYTE     00100000B+001H,012H,VBBLK1+000H 
         BYTE     00100000B+001H,01DH,VBBLK1+000H 
         BYTE     00100000B+002H,013H,VBBLK1+000H 
         BYTE     00100000B+002H,01CH,VBBLK1+000H 
         BYTE     00100000B+004H,015H,VBBLK1+000H 
         BYTE     00100000B+004H,01AH,VBBLK1+000H 
         BYTE     00100000B+005H,016H,VBBLK1+000H 
         BYTE     00100000B+005H,019H,VBBLK1+000H 
;0
         BYTE     01000000B+003H,002H,VTAKI0+009H,000H
         BYTE     01000000B+005H,00DH,VTAKI0+007H,000H
         BYTE     01000000B+005H,000H,VREVR1+000H,000H
         BYTE     01000000B+003H,002H,VREVR1+000H,006H
         BYTE     01000000B+003H,008H,VREVR1+002H,001H
         BYTE     01000000B+005H,00AH,VREVR1+001H,002H
         BYTE     01000000B+004H,00DH,VREVR1+001H,000H
         BYTE     01000000B+004H,00EH,VREVR1+002H,001H
         BYTE     00100000B+001H,001H,VBBLK1+000H 
         BYTE     00100000B+002H,001H,VBBLK1+000H 
         BYTE     00100000B+002H,00DH,VBBLK1+002H 
         BYTE     00100000B+003H,001H,VBBLK1+000H 
         BYTE     00100000B+003H,009H,VBBLK1+000H 
         BYTE     00100000B+003H,00DH,VBBLK1+002H 
         BYTE     00100000B+004H,001H,VBBLK1+000H 
         BYTE     00100000B+004H,003H,VBBLK1+004H 
         BYTE     00100000B+004H,009H,VBBLK1+000H 
         BYTE     00100000B+004H,00DH,VBBLK1+002H 
         BYTE     00100000B+005H,001H,VBBLK1+000H 
         BYTE     00100000B+005H,003H,VBBLK1+004H 
         BYTE     00100000B+006H,000H,VBBLK1+001H 
         BYTE     00100000B+006H,003H,VBBLK1+007H 
         BYTE     00100000B+006H,00FH,VBBLK1+000H 
         BYTE     00100000B+007H,000H,VBBLK1+001H 
         BYTE     00100000B+007H,003H,VBBLK1+009H 
         BYTE     00100000B+007H,00EH,VBBLK1+001H 
         BYTE     00100000B+008H,000H,VBBLK1+001H 
         BYTE     00100000B+008H,00EH,VBBLK1+001H 
         BYTE     00100000B+000H,00EH,VDOKY0+001H 
         BYTE     11100000B+000H,073H,014H
; 
         BYTE     0FFH
; 
; 
;=====================================================================
B405     EQU      $ 
; 
         LWORD     B10D        ; BG data address 
         LWORD     E10D        ; Enmy data address 
; 
         BYTE     10000111B,10011100B,10100001B,00000110B,00000010B,00010001B
	 BYTE	  021H
;
         BYTE     00000000B+00AH,000H,FMIZU0
; 
         BYTE     01100000B+019H,000H,VMZYUK+001H,019H
         BYTE     01100000B+00BH,000H,VMZIWA+005H 
         BYTE     01000000B+009H,000H,VDOKY3+005H 
; 
         BYTE     01100000B+00FH,009H,VMZYUK+001H,003H
         BYTE     00000000B+015H,008H,VSANG1+003H 
         BYTE     00100000B+016H,00AH,VGCOIN+002H 
         BYTE     00000000B+00DH,00CH,VSANG1+001H 
         BYTE     00000000B+015H,00EH,VSANG1+003H 
         BYTE     01100000B+00EH,00FH,VKURAG+000H 
; 
         BYTE     00100000B+005H,016H,VBBLK1+00FH 
         BYTE     00100000B+006H,016H,VBBLK1+00FH 
         BYTE     00100000B+007H,016H,VBBLK1+00FH 
         BYTE     00100000B+008H,016H,VBBLK1+00FH 
         BYTE     00100000B+009H,016H,VBBLK1+00FH 
         BYTE     00100000B+00AH,016H,VBBLK1+00FH 
         BYTE     00100000B+00BH,016H,VBBLK1+00FH 
; 
         BYTE     00100000B+005H,026H,VBBLK1+002H 
         BYTE     00100000B+006H,026H,VBBLK1+002H 
         BYTE     00100000B+007H,026H,VBBLK1+002H 
         BYTE     00100000B+008H,026H,VBBLK1+002H 
         BYTE     00100000B+009H,026H,VBBLK1+002H 
         BYTE     00100000B+00AH,026H,VBBLK1+002H 
         BYTE     00100000B+00BH,026H,VBBLK1+002H 
         BYTE     01100000B+019H,01EH,VMZYUK+001H,017H
         BYTE     01100000B+013H,011H,VMZIWA+002H 
         BYTE     00100000B+00FH,017H,VBBLK1+000H 
         BYTE     00100000B+010H,017H,VBBLK1+000H 
         BYTE     00100000B+011H,017H,VBBLK1+000H 
         BYTE     00100000B+012H,017H,VBBLK1+000H 
         BYTE     00100000B+012H,018H,FKNQST
         BYTE     00100000B+012H,019H,VCNQST+001H 
         BYTE     00000000B+015H,017H,VSANG0+003H 
         BYTE     00000000B+016H,018H,VSANG0+002H 
         BYTE     00100000B+013H,01BH,VCNBLK+002H 
         BYTE     01100000B+00EH,01DH,VKURAG+000H 
         BYTE     01100000B+00DH,017H,VKURAG+000H 
         BYTE     00100000B+017H,01EH,VBLDK3+001H 
         BYTE     00100000B+003H,01FH,VBBLK1+002H 
; 
         BYTE     01100000B+00FH,02AH,VMZYUK+001H,005H
         BYTE     00000000B+017H,021H,VSANG0+001H 
         BYTE     00000000B+016H,022H,VSANG0+002H 
         BYTE     01100000B+014H,022H,VKURAG+000H 
         BYTE     01100000B+015H,024H,VMZIWA+001H 
         BYTE     01100000B+00CH,026H,VKURAG+000H 
         BYTE     00100000B+017H,028H,VGCOIN+002H 
         BYTE     00100000B+017H,02CH,VGCOIN+002H 
         BYTE     00000000B+00DH,02EH,VSANG1+001H 
         BYTE     00100000B+004H,020H,VBBLK1+000H 
         BYTE     00100000B+002H,020H,FTCBLK
; 
         BYTE     01100000B+009H,034H,VMZYUK+002H,005H
         BYTE     01100000B+01AH,038H,VMZYUK+000H,013H
         BYTE     01100000B+015H,039H,VMZYUK+001H,003H
         BYTE     01100000B+015H,03EH,VMZYUK+001H,008H
         BYTE     01100000B+017H,031H,VMZIWA+002H 
         BYTE     00000000B+014H,032H,VSANG1+002H 
         BYTE     01100000B+012H,034H,VKURAG+000H 
         BYTE     00100000B+00CH,036H,VBLDK4+001H 
         BYTE     00100000B+014H,036H,VGCOIN+001H 
         BYTE     00100000B+017H,036H,VGCOIN+001H 
         BYTE     00000000B+012H,039H,VSANG1+002H 
         BYTE     00000000B+013H,03AH,VSANG1+001H 
         BYTE     00000000B+014H,03BH,VSANG1+000H 
         BYTE     01100000B+00CH,03DH,VKURAG+000H 
         BYTE     01100000B+011H,03FH,VKURAG+000H 
; 
         BYTE     01100000B+00DH,04EH,VMZYUK+001H,002H
         BYTE     00100000B+018H,040H,VGCOIN+006H 
         BYTE     01100000B+00EH,044H,VKURAG+000H 
         BYTE     00100000B+018H,048H,VBLDK2+001H 
         BYTE     00000000B+00BH,04EH,VSANG1+001H 
; 
         BYTE     00100000B+005H,054H,VBBLK1+006H 
         BYTE     00100000B+006H,054H,VBBLK1+006H 
         BYTE     00100000B+007H,054H,VBBLK1+006H 
         BYTE     00100000B+008H,054H,VBBLK1+006H 
         BYTE     00100000B+009H,054H,VBBLK1+006H 
         BYTE     00100000B+00AH,054H,VBBLK1+006H 
         BYTE     00100000B+00BH,054H,VBBLK1+006H 
; 
         BYTE     01100000B+019H,054H,VMZYUK+001H,007H
         BYTE     01100000B+014H,051H,VKURAG+000H 
         BYTE     00100000B+012H,052H,VCNQST+002H 
         BYTE     00100000B+012H,053H,FKNQST
         BYTE     01100000B+00DH,054H,VKURAG+000H 
         BYTE     01100000B+013H,056H,VMZIWA+001H 
         BYTE     01100000B+010H,059H,VMZIWA+001H 
         BYTE     00100000B+00CH,05EH,VBLDK4+006H 
         BYTE     00100000B+015H,05FH,FUPTOM
; 
         BYTE     00100000B+005H,05DH,VBBLK1+002H 
         BYTE     00100000B+006H,05DH,VBBLK1+002H 
         BYTE     00100000B+007H,05DH,VBBLK1+002H 
         BYTE     00100000B+008H,05DH,VBBLK1+002H 
         BYTE     00100000B+009H,05DH,VBBLK1+002H 
         BYTE     00100000B+00AH,05DH,VBBLK1+002H 
         BYTE     00100000B+00BH,05DH,VBBLK1+002H 
         BYTE     00100000B+005H,060H,VBBLK1+00FH 
         BYTE     00100000B+006H,060H,VBBLK1+00FH 
         BYTE     00100000B+007H,060H,VBBLK1+00FH 
         BYTE     00100000B+008H,060H,VBBLK1+00FH 
         BYTE     00100000B+009H,060H,VBBLK1+00FH 
         BYTE     00100000B+00AH,060H,VBBLK1+00FH 
         BYTE     00100000B+00BH,060H,VBBLK1+00FH 
; 
         BYTE     01100000B+019H,069H,VMZYUK+001H,016H
         BYTE     01100000B+00EH,062H,VKURAG+000H 
         BYTE     00100000B+010H,063H,VGCOIN+002H 
         BYTE     01100000B+016H,063H,VKURAG+000H 
         BYTE     00100000B+018H,064H,VBLDK3+002H 
         BYTE     01100000B+013H,067H,VKURAG+000H 
         BYTE     01100000B+012H,06AH,VMZIWA+001H 
         BYTE     00100000B+013H,06EH,VGCOIN+002H 
         BYTE     01100000B+016H,06EH,VMZIWA+002H 
         BYTE     01100000B+00DH,065H,VKURAG+000H 
         BYTE     01100000B+00EH,069H,VKURAG+000H 
         BYTE     01100000B+010H,067H,VKURAG+000H 
         BYTE     00100000B+003H,062H,VBBLK1+002H 
         BYTE     00100000B+004H,063H,VBBLK1+000H 
         BYTE     00100000B+002H,063H,FTCBLK
; 
         BYTE     01100000B+011H,07CH,VMZIWA+003H 
         BYTE     01100000B+011H,072H,VMZYUK+001H,003H
         BYTE     01100000B+011H,07CH,VMZYUK+009H,003H
         BYTE     00000000B+00DH,073H,VSANG1+003H 
         BYTE     00000000B+016H,077H,VSANG0+002H 
         BYTE     00000000B+015H,079H,VSANG0+003H 
         BYTE     00000000B+017H,07AH,VSANG0+001H 
         BYTE     01100000B+00CH,072H,VKURAG+000H 
         BYTE     01100000B+00FH,070H,VKURAG+000H 
         BYTE     00100000B+000H,07DH,VBBLK1+002H 
         BYTE     00100000B+001H,07DH,VBBLK1+002H 
         BYTE     00100000B+002H,07DH,VBBLK1+002H 
         BYTE     00100000B+003H,07DH,VBBLK1+002H 
         BYTE     00100000B+004H,07DH,VBBLK1+002H 
         BYTE     00100000B+005H,07DH,VBBLK1+002H 
         BYTE     00100000B+006H,07DH,VBBLK1+002H 
         BYTE     00100000B+007H,07DH,VBBLK1+002H 
         BYTE     00100000B+008H,07DH,VBBLK1+002H 
         BYTE     00100000B+009H,07DH,VBBLK1+002H 
         BYTE     00100000B+00AH,07DH,VBBLK1+002H 
         BYTE     00100000B+00BH,07DH,VBBLK1+002H 
         BYTE     00100000B+00CH,07DH,VBBLK1+002H 
         BYTE     00100000B+00DH,07EH,VBBLK1+001H 
         BYTE     00100000B+00EH,07EH,VBBLK1+001H 
; 
         BYTE     00100000B+00FH,07EH,VDOKY0+001H 
; 
         BYTE     11100000B+007H,01010011B,010H 
         BYTE     11100000B+004H,002H,014H    ;bonasu goto data 
; 
         BYTE     0FFH
; 
; 
;=====================================================================
;;;;;;;;;; 7/22 
;shop data
;        takarabako 1tu 
B406     EQU      $ 
; 
         LWORD     0000H       ; BG data address 
         LWORD     0000H       ; Enmy data address 
;
         BYTE     01100000B,10000010B,01000111B,00000111B,11000111B,00000000B
	 BYTE	  017H
;0
;;K;;         BYTE     01100000B+00FH,000H,VSPBT0+00FH 
;;K;;         BYTE     01100000B+010H,000H,VSPBT0+00FH 
;;K;;         BYTE     00000000B+00FH,004H,VSBLKY+007H 
;;K;;         BYTE     00000000B+010H,002H,VSBLKY+002H 
;;K;;         BYTE     00000000B+010H,00BH,VSBLKY+002H 
;;K;;         BYTE     01100000B+011H,000H,VSPBT0+000H 
;;K;;         BYTE     00000000B+011H,001H,VSBLKY+001H 
;;K;;         BYTE     00000000B+011H,00DH,VSBLKY+001H 
;;K;;         BYTE     01100000B+011H,00FH,VSPBT0+000H 
;;K;;         BYTE     00000000B+012H,000H,VSBLKY+001H 
;;K;;         BYTE     00000000B+012H,00EH,VSBLKY+001H 
;;K;;         BYTE     00000000B+013H,000H,VSBLKT+002H 
;;K;;         BYTE     00000000B+013H,00FH,VSBLKT+003H 
;;K;;         BYTE     00000000B+016H,000H,VSBLKY+002H 
;;K;;         BYTE     00000000B+016H,00CH,VSBLKY+002H 
;;K;;         BYTE     01100000B+017H,000H,VSPBT1+003H 
;;K;;         BYTE     01100000B+017H,001H,VSPBT1+003H 
;;K;;         BYTE     00000000B+017H,002H,VSBLKT+002H 
;;K;;         BYTE     00000000B+017H,00DH,VSBLKT+002H 
;;K;;         BYTE     01100000B+017H,00EH,VSPBT1+003H 
;;K;;         BYTE     01100000B+017H,00FH,VSPBT1+003H 
;;K;;         BYTE     00000000B+01AH,002H,VSBLKY+00BH 
;
         BYTE     01100000B+010H,005H,VSPBT0+005H
         BYTE     01100000B+011H,003H,VSPBT0+009H
         BYTE     01100000B+012H,002H,VSPBT0+00BH
         BYTE     01100000B+013H,001H,VSPBT0+00DH
         BYTE     01100000B+014H,001H,VSPBT0+00DH
         BYTE     01100000B+015H,001H,VSPBT0+00DH
         BYTE     01100000B+016H,003H,VSPBT0+009H
         BYTE     01100000B+017H,003H,VSPBT0+009H
         BYTE     01100000B+018H,003H,VSPBT0+009H
         BYTE     01100000B+019H,003H,VSPBT0+009H
	 BYTE	  01100000B+00FH,004H,VMISES+007H,001H
	 BYTE	  01100000B+010H,002H,VMISES+002H,002H
	 BYTE	  01100000B+010H,00BH,VMISES+002H,003H
	 BYTE	  01100000B+011H,001H,VMISES+001H,002H
	 BYTE	  01100000B+011H,00DH,VMISES+001H,003H
	 BYTE	  01100000B+012H,000H,VMISES+001H,002H
	 BYTE	  01100000B+012H,00EH,VMISES+001H,003H
	 BYTE	  01100000B+013H,000H,VMISES+003H,000H
	 BYTE	  01100000B+013H,00FH,VMISES+003H,000H
	 BYTE	  01100000B+016H,000H,VMISES+002H,006H
	 BYTE	  01100000B+016H,00DH,VMISES+002H,005H
	 BYTE	  01100000B+017H,002H,VMISES+003H,000H
	 BYTE	  01100000B+017H,00DH,VMISES+003H,000H
	 BYTE	  01100000B+01AH,002H,VMISES+00BH,004H
;
;;K;;         BYTE     00000000B+010H,00AH,VSKAGE+000H 
;;K;;         BYTE     00000000B+011H,00CH,VSKAGE+000H 
;;K;;         BYTE     00000000B+012H,00DH,VSKAGE+000H 
;;K;;         BYTE     00000000B+013H,00EH,VSKAGE+002H 
;;K;;         BYTE     00000000B+016H,00CH,VSKAGE+003H 
;
         BYTE     00000000B+018H,007H,FSPBX0
; 
         BYTE     0FFH
; 
B406L    EQU      B406&0FFH
B406H    EQU      B406/100H 
;=====================================================================
B407     EQU      $ 
; 
         LWORD     B71E        ; BG data address 
         LWORD     E71E        ; Enmy data address 
; 
         BYTE     00000100B,10000010B,10110010B,00001000B,00000001B,00000000B 
	 BYTE	  009H
;
         BYTE     00000000B+000H,000H,FBET20
         BYTE     00100000B+000H,000H,VBBLK1+00FH 
         BYTE     00100000B+005H,004H,VBLDK0+001H 
         BYTE     00100000B+007H,000H,VBBLK1+007H 
         BYTE     00100000B+008H,000H,VBBLK1+007H 
         BYTE     00100000B+009H,000H,VBBLK1+007H 
         BYTE     00100000B+007H,00BH,VBBLK1+004H 
         BYTE     00100000B+008H,00BH,VBBLK1+004H 
         BYTE     00100000B+009H,00BH,VBBLK1+004H 
         BYTE     01000000B+00DH,000H,VDOKY3+004H 
         BYTE     00100000B+00DH,008H,VDOKY1+007H 
         BYTE     00000000B+004H,01CH,FQTYAJ
         BYTE     01000000B+006H,010H,VDOKY3+009H 
         BYTE     00100000B+006H,01CH,VDOKY1+003H 
         BYTE     00000000B+000H,021H,VTDOK0+002H 
         BYTE     00000000B+00EH,012H,VTDOK1+006H 
         BYTE     00000000B+009H,021H,VTDOK1+00CH 
         BYTE     00000000B+004H,015H,VTDOK0+00FH 
         BYTE     00000000B+000H,028H,VTDOK0+00CH 
         BYTE     00000000B+00CH,01EH,VTDOK0+00CH 
         BYTE     00000000B+006H,021H,VTDOK0+003H 
         BYTE     00000000B+005H,02BH,VTDOK0+008H 
         BYTE     00100000B+001H,02CH,FKNQST
         BYTE     00100000B+002H,036H,VDOKY1+009H 
         BYTE     01000000B+002H,030H,VDOKY3+001H 
         BYTE     00100000B+001H,039H,VBLDK3+003H 
         BYTE     00100000B+005H,039H,VBBLK1+001H 
         BYTE     00000000B+006H,033H,FUPYAJ
         BYTE     00100000B+009H,033H,VBBLK1+005H 
         BYTE     00100000B+00AH,039H,VBLDK3+001H 
         BYTE     00100000B+00CH,039H,VBBLK1+001H 
         BYTE     00000000B+00DH,03CH,FQTYAJ
         BYTE     00100000B+004H,03EH,VBLDK3+004H 
         BYTE     00100000B+009H,03EH,VBLDK4+004H 
         BYTE     00100000B+001H,048H,VBBLK1+006H 
         BYTE     00000000B+007H,045H,FUPYAJ
         BYTE     00000000B+008H,04DH,FSDOOR
         BYTE     00100000B+00AH,040H,VDOKY1+008H 
         BYTE     01000000B+00AH,049H,VDOKY3+006H 
; 
         BYTE     00000000B+00EH,011H,FDKAD0
         BYTE     00000000B+00EH,018H,FDKAD1
         BYTE     00000000B+009H,021H,FDKAD2
         BYTE     00000000B+009H,02EH,FDKAD3
; 
         BYTE     11100000B+004H,01111000B,085H 
         BYTE     11100000B+000H,012H,099H
; 
         BYTE     0FFH
; 
;=====================================================================
B408     EQU      $ 
         LWORD     B11D
         LWORD     E11D
; 
         BYTE     01000111B,00011100B,10100001B,00000110B,00000010B,00010001B 
	 BYTE	  001H
;0
         BYTE     00000000B+002H,000H,FMIZU0
         BYTE     01100000B+00BH,002H,VMZYUK+009H,007H
         BYTE     01100000B+01AH,000H,VMZYUK+000H,07FH
         BYTE     01100000B+00BH,00AH,VMZIWA+00FH 
         BYTE     00000000B+006H,008H,VSANG0+004H 
         BYTE     00000000B+007H,00AH,VSANG0+003H 
         BYTE     00000000B+017H,005H,VSANG0+002H 
         BYTE     00000000B+017H,003H,VSANG1+002H 
         BYTE     00100000B+017H,008H,FKNQST
;1
         BYTE     01100000B+00BH,01AH,VMZIWA+00FH 
         BYTE     00000000B+008H,011H,VSANG1+002H 
         BYTE     00000000B+007H,01AH,VSANG0+003H 
         BYTE     00000000B+008H,01CH,VSANG0+002H 
         BYTE     00100000B+009H,014H,VBLDK3+001H 
;2
         BYTE     00100000B+009H,024H,VBLDK3+001H 
         BYTE     00000000B+016H,02CH,VSANG1+003H 
         BYTE     00000000B+017H,02EH,VSANG0+002H 
;3
         BYTE     00100000B+000H,033H,VBLDK4+00CH 
         BYTE     00100000B+017H,033H,VBLDK3+003H 
         BYTE     00100000B+000H,035H,VBBLK1+00BH 
         BYTE     00100000B+001H,035H,VBBLK1+00BH 
         BYTE     00100000B+002H,035H,VBBLK1+00BH 
         BYTE     00100000B+003H,035H,VBBLK1+00BH 
         BYTE     00100000B+004H,035H,VBBLK1+00BH 
         BYTE     00100000B+005H,035H,VBBLK1+00BH 
         BYTE     00100000B+006H,035H,VBBLK1+00BH 
         BYTE     00100000B+007H,035H,VBBLK1+00BH 
         BYTE     00100000B+008H,035H,VBBLK1+00BH 
         BYTE     00100000B+009H,035H,VBBLK1+00BH 
         BYTE     00100000B+00AH,035H,VBBLK1+00BH 
         BYTE     00100000B+00BH,035H,VBBLK1+00BH 
         BYTE     00100000B+00CH,035H,VBBLK1+00BH 
         BYTE     00100000B+00DH,035H,VBBLK1+00BH 
         BYTE     00100000B+00EH,035H,VBBLK1+00BH 
         BYTE     00100000B+00FH,035H,VBBLK1+00BH 
         BYTE     00100000B+010H,035H,VBBLK1+00BH 
         BYTE     00100000B+011H,035H,VBBLK1+00BH 
         BYTE     00100000B+012H,035H,VBBLK1+003H 
         BYTE     00100000B+013H,035H,VBBLK1+003H 
;;;;     BYTE     00100000B+014H,035H,VBBLK1+003H 
         BYTE     00100000B+012H,03DH,VBBLK1+003H 
         BYTE     00100000B+013H,03DH,VBBLK1+003H 
;;;;     BYTE     00100000B+014H,03DH,VBBLK1+003H 
         BYTE     00100000B+012H,039H,VGCOIN+003H 
         BYTE     00100000B+013H,039H,VGCOIN+003H 
;4
         BYTE     00100000B+000H,043H,VBBLK1+004H 
         BYTE     00100000B+001H,043H,VBBLK1+004H 
         BYTE     00100000B+002H,043H,VBBLK1+004H 
         BYTE     00100000B+003H,043H,VBBLK1+004H 
         BYTE     00100000B+004H,043H,VBBLK1+004H 
         BYTE     00100000B+005H,043H,VBBLK1+004H 
         BYTE     00100000B+006H,043H,VBBLK1+004H 
         BYTE     00100000B+000H,04BH,VBBLK1+007H 
         BYTE     00100000B+001H,04BH,VBBLK1+007H 
         BYTE     00100000B+002H,04BH,VBBLK1+007H 
         BYTE     00100000B+003H,04BH,VBBLK1+007H 
         BYTE     00100000B+004H,04BH,VBBLK1+007H 
         BYTE     00100000B+005H,04BH,VBBLK1+007H 
         BYTE     00100000B+006H,04BH,VBBLK1+007H 
         BYTE     00100000B+007H,043H,VBBLK1+00FH 
         BYTE     00100000B+008H,043H,VBBLK1+00FH 
         BYTE     00100000B+009H,043H,VBBLK1+00FH 
         BYTE     00100000B+00AH,043H,VBBLK1+00FH 
         BYTE     00100000B+00BH,043H,VBBLK1+00FH 
         BYTE     00100000B+000H,041H,VBLDK4+00CH 
         BYTE     00100000B+000H,04EH,VBLDK4+00CH 
         BYTE     00100000B+016H,041H,VBLDK3+003H 
         BYTE     00100000B+003H,049H,FKNQST
         BYTE     00100000B+012H,04DH,VGCOIN+000H 
         BYTE     00100000B+014H,04BH,VGCOIN+000H 
         BYTE     00100000B+017H,04AH,VGCOIN+000H 
         BYTE     00100000B+014H,04EH,FKNQST
         BYTE     00100000B+014H,04FH,VCNQST+000H 
         BYTE     00000000B+016H,045H,VSANG0+003H 
         BYTE     00000000B+015H,047H,VSANG0+004H 
;5
         BYTE     00100000B+012H,050H,VGCOIN+000H 
         BYTE     00100000B+014H,052H,VGCOIN+000H 
         BYTE     00100000B+017H,053H,VGCOIN+000H 
         BYTE     01100000B+00CH,058H,VMZIWA+00BH 
         BYTE     00000000B+008H,05AH,VSANG0+003H 
         BYTE     00000000B+006H,05EH,VSANG0+005H 
;6
         BYTE     00000000B+007H,060H,VSANG0+004H 
         BYTE     00000000B+003H,06FH,VSANG0+002H 
         BYTE     01100000B+004H,062H,VMZYUK+001H,005H
         BYTE     01100000B+006H,06EH,VMZYUK+002H,005H
         BYTE     01100000B+00CH,066H,VMZYUK+003H,016H
         BYTE     00000000B+006H,064H,VSANG1+002H 
         BYTE     00000000B+008H,069H,VSANG1+003H 
         BYTE     00100000B+012H,066H,VHZJP1+001H 
         BYTE     00100000B+016H,066H,VHZJP1+001H 
         BYTE     00100000B+012H,06BH,VHZJP1+000H 
         BYTE     00100000B+014H,069H,VHZJP1+000H 
         BYTE     00100000B+014H,06DH,VHZJP1+000H 
         BYTE     00100000B+017H,06BH,VHZJP1+000H 
         BYTE     01100000B+010H,06DH,VMZYUK+001H,001H
;7
         BYTE     01100000B+010H,072H,VMZYUK+001H,001H
         BYTE     01100000B+018H,077H,VMZIWA+001H 
         BYTE     00000000B+003H,071H,VSANG0+002H 
         BYTE     00100000B+013H,078H,VGCOIN+004H 
         BYTE     00100000B+014H,078H,VGCOIN+004H 
         BYTE     00100000B+015H,078H,VGCOIN+004H 
         BYTE     00100000B+012H,079H,VGCOIN+002H 
         BYTE     00100000B+016H,079H,VGCOIN+002H 
         BYTE     00100000B+012H,07DH,VBLDK3+007H 
         BYTE     00100000B+000H,07CH,VBLDK1+004H 
         BYTE     01100000B+00CH,07FH,VMZYUK+00EH,001H
         BYTE     00100000B+000H,07EH,VBBLK1+001H 
         BYTE     00100000B+001H,07EH,VBBLK1+001H 
         BYTE     00100000B+002H,07EH,VBBLK1+001H 
         BYTE     00100000B+003H,07EH,VBBLK1+001H 
         BYTE     00100000B+004H,07EH,VBBLK1+001H 
         BYTE     00100000B+005H,07EH,VBBLK1+001H 
         BYTE     00100000B+006H,07EH,VBBLK1+001H 
         BYTE     00100000B+014H,07AH,FUPBLK
         BYTE     00100000B+012H,070H,VHZJP1+000H 
         BYTE     00100000B+012H,075H,VHZJP1+000H 
         BYTE     00100000B+014H,073H,VHZJP1+000H 
         BYTE     00100000B+014H,077H,VHZJP1+000H 
         BYTE     00100000B+017H,075H,VHZJP1+000H 
         BYTE     01100000B+01AH,07AH,VHOLE0+001H 
; 
         BYTE     11100000B+007H,063H,020H
; 
         BYTE     0FFH
; 
;=====================================================================
B409     EQU      $ 
; 
         LWORD     B280        ; BG data address 
         LWORD     E280        ; Enmy data address 
;
         BYTE     00001011B,10000010B,10111110B,00001000B,00000001B,00010001B 
	 BYTE	  009H
;
         BYTE     00000000B+000H,000H,FBET20
         BYTE     00100000B+000H,000H,VBBLK1+000H 
         BYTE     00100000B+001H,000H,VBBLK1+000H 
         BYTE     00100000B+002H,000H,VBBLK1+000H 
         BYTE     00100000B+003H,000H,VBBLK1+000H 
         BYTE     00100000B+004H,000H,VBBLK1+000H 
         BYTE     00100000B+005H,000H,VBBLK1+000H 
         BYTE     00100000B+006H,000H,VBBLK1+000H 
         BYTE     00100000B+007H,000H,VBBLK1+000H 
         BYTE     00100000B+008H,000H,VBBLK1+000H 
         BYTE     00100000B+009H,000H,VBBLK1+000H 
         BYTE     00100000B+00AH,000H,VBBLK1+000H 
         BYTE     00100000B+00BH,000H,VBBLK1+000H 
         BYTE     00100000B+00CH,000H,VBBLK1+000H 
         BYTE     00100000B+00DH,000H,VBBLK1+000H 
         BYTE     00100000B+00EH,000H,VBBLK1+000H 
         BYTE     00100000B+000H,010H,VBBLK1+000H 
         BYTE     00100000B+001H,010H,VBBLK1+000H 
         BYTE     00100000B+002H,010H,VBBLK1+000H 
         BYTE     00100000B+003H,010H,VBBLK1+000H 
         BYTE     00100000B+004H,010H,VBBLK1+000H 
         BYTE     00100000B+005H,010H,VBBLK1+000H 
         BYTE     00100000B+006H,010H,VBBLK1+000H 
         BYTE     00100000B+007H,010H,VBBLK1+000H 
         BYTE     00100000B+008H,010H,VBBLK1+000H 
         BYTE     00100000B+009H,010H,VBBLK1+000H 
         BYTE     00100000B+00AH,010H,VBBLK1+000H 
         BYTE     00100000B+00BH,010H,VBBLK1+000H 
         BYTE     00100000B+00CH,010H,VBBLK1+000H 
         BYTE     00100000B+00DH,010H,VBBLK1+000H 
         BYTE     00100000B+00EH,010H,VBBLK1+000H 
         BYTE     00100000B+000H,005H,VBBLK1+000H 
         BYTE     00100000B+001H,005H,VBBLK1+000H 
         BYTE     00100000B+002H,005H,VBBLK1+000H 
         BYTE     00100000B+003H,005H,VBBLK1+000H 
         BYTE     00100000B+004H,005H,VBBLK1+000H 
         BYTE     00100000B+005H,005H,VBBLK1+000H 
         BYTE     00100000B+006H,005H,VBBLK1+000H 
         BYTE     00100000B+007H,005H,VBBLK1+000H 
         BYTE     00100000B+008H,005H,VBBLK1+000H 
         BYTE     00100000B+009H,005H,VBBLK1+000H 
         BYTE     00100000B+00AH,005H,VBBLK1+000H 
         BYTE     00100000B+00BH,005H,VBBLK1+000H 
         BYTE     00100000B+00CH,005H,VBBLK1+000H 
         BYTE     00100000B+00DH,005H,VBBLK1+000H 
         BYTE     00100000B+00EH,005H,VBBLK1+000H 
         BYTE     00100000B+000H,015H,VBBLK1+000H 
         BYTE     00100000B+001H,015H,VBBLK1+000H 
         BYTE     00100000B+002H,015H,VBBLK1+000H 
         BYTE     00100000B+003H,015H,VBBLK1+000H 
         BYTE     00100000B+004H,015H,VBBLK1+000H 
         BYTE     00100000B+005H,015H,VBBLK1+000H 
         BYTE     00100000B+006H,015H,VBBLK1+000H 
         BYTE     00100000B+007H,015H,VBBLK1+000H 
         BYTE     00100000B+008H,015H,VBBLK1+000H 
         BYTE     00100000B+009H,015H,VBBLK1+000H 
         BYTE     00100000B+00AH,015H,VBBLK1+000H 
         BYTE     00100000B+00BH,015H,VBBLK1+000H 
         BYTE     00100000B+00CH,015H,VBBLK1+000H 
         BYTE     00100000B+00DH,015H,VBBLK1+000H 
         BYTE     00100000B+00EH,015H,VBBLK1+000H 
; 
         BYTE     00100000B+000H,002H,VBLDK4+001H 
         BYTE     00100000B+000H,00AH,VBLDK4+00FH 
         BYTE     00100000B+000H,01AH,VBLDK1+003H 
         BYTE     00100000B+002H,016H,VBBLK1+002H 
         BYTE     00100000B+002H,01DH,VBBLK1+002H 
         BYTE     00100000B+007H,018H,VBBLK0+000H 
         BYTE     00100000B+007H,01DH,VBBLK0+000H 
         BYTE     00100000B+008H,019H,VBBLK0+003H 
         BYTE     00100000B+009H,016H,VBBLK0+000H 
         BYTE     00100000B+00CH,017H,VBBLK0+000H 
         BYTE     00100000B+000H,029H,VBBLK0+000H 
         BYTE     00100000B+003H,02CH,VBBLK0+002H 
         BYTE     00100000B+005H,023H,VHZJP1+000H 
         BYTE     00100000B+005H,027H,VBBLK0+000H 
         BYTE     00100000B+007H,02AH,VBBLK0+001H 
         BYTE     01000000B+008H,025H,FHNJMP
         BYTE     00100000B+00BH,028H,VHZJP1+000H 
         BYTE     00100000B+00BH,025H,VBBLK1+000H 
; 
         BYTE     00000000B+007H,038H,VTDOK5+003H 
         BYTE     00000000B+007H,03CH,VTDOK6+002H 
         BYTE     00000000B+00BH,03CH,VTDOK4+009H 
         BYTE     00000000B+006H,044H,VTDOK3+00EH 
         BYTE     00000000B+001H,05CH,VTDOK7+003H 
         BYTE     00000000B+004H,059H,VTDOK7+004H 
         BYTE     00000000B+002H,065H,VTDOK5+002H 
         BYTE     00000000B+002H,06AH,VTDOK6+002H 
         BYTE     00000000B+00CH,058H,VTDOK3+00AH 
         BYTE     00000000B+008H,062H,VTDOK3+009H 
         BYTE     00000000B+002H,07AH,VTDOK4+00BH 
         BYTE     00000000B+002H,07CH,VTDOK4+00BH 
         BYTE     00000000B+007H,073H,VTDOK7+005H 
; 
         BYTE     00000000B+004H,08CH,VTDOK3+00EH 
         BYTE     00000000B+00AH,082H,VTDOK5+003H 
         BYTE     00000000B+00AH,086H,VTDOK6+002H 
         BYTE     00000000B+001H,094H,VTDOK4+006H 
         BYTE     00000000B+001H,096H,VTDOK4+006H 
         BYTE     00000000B+00AH,096H,VTDOK5+003H 
         BYTE     00000000B+00AH,09AH,VTDOK6+001H 
;
;;K;;         BYTE     01000000B+00DH,0A0H,VREVR1+00FH,00FH
;;K;;         BYTE     00100000B+00CH,0B7H,VBLDK0+002H 
;;K;;         BYTE     00100000B+00FH,0B0H,VBBLK1+00FH 
;;K;;         BYTE     00100000B+00AH,0B3H,VBLDK3+004H 
;;K;;         BYTE     00100000B+00BH,0BDH,VBLDK3+003H 
;
         BYTE     01000000B+00DH,0A0H,VREVR1+00CH,00FH
         BYTE     00100000B+008H,0B7H,VBLDK0+002H 
         BYTE     00100000B+00BH,0B0H,VBBLK1+00FH 
         BYTE     00100000B+006H,0B3H,VBLDK3+004H 
         BYTE     00100000B+007H,0BDH,VBLDK3+003H 
;
         BYTE     00100000B+008H,027H,VGCOIN+002H 
         BYTE     00100000B+009H,049H,VGCOIN+000H 
         BYTE     00100000B+00DH,048H,VGCOIN+000H 
         BYTE     00100000B+002H,057H,VGCOIN+000H 
         BYTE     00100000B+00AH,059H,VGCOIN+000H 
         BYTE     00100000B+000H,06BH,VGCOIN+000H 
         BYTE     00100000B+007H,06CH,VGCOIN+000H 
         BYTE     00100000B+009H,06CH,VGCOIN+000H 
         BYTE     00100000B+00BH,06CH,VGCOIN+000H 
         BYTE     00100000B+000H,07AH,VGCOIN+000H 
         BYTE     00100000B+003H,079H,VGCOIN+000H 
         BYTE     00100000B+006H,078H,VGCOIN+000H 
         BYTE     00100000B+002H,086H,VGCOIN+000H 
         BYTE     00100000B+005H,087H,VGCOIN+000H 
         BYTE     00100000B+009H,086H,VGCOIN+000H 
         BYTE     00100000B+00DH,087H,VGCOIN+000H 
         BYTE     00100000B+002H,0A7H,VGCOIN+001H 
         BYTE     00100000B+004H,0A7H,VGCOIN+001H 
; 
         BYTE     11100000B+001H,061H,022H
         BYTE     11100000B+00BH,00010010B,088H 
; 
         BYTE     0FFH
; 
;=====================================================================
B40A     EQU      $ 
; 
         LWORD     B112        ; BG data address 
         LWORD     E112        ; Enmy data address 
; 
         BYTE     00000111B,10000010B,10110001B,00001000B,10000001B,00000000B 
	 BYTE	  009H
;
         BYTE     00000000B+000H,000H,FBET20
; 
         BYTE     00100000B+00DH,000H,VBBLK1+001H 
         BYTE     00100000B+00EH,000H,VBBLK1+001H 
         BYTE     00100000B+000H,010H,VBBLK1+001H 
         BYTE     00100000B+001H,010H,VBBLK1+001H 
         BYTE     00100000B+00DH,00FH,VBBLK1+000H 
         BYTE     00100000B+00EH,00FH,VBBLK1+000H 
         BYTE     00100000B+000H,01FH,VBBLK1+000H 
         BYTE     00100000B+001H,01FH,VBBLK1+000H 
         BYTE     00100000B+000H,007H,VBLDK1+006H 
         BYTE     00100000B+009H,001H,FUPTOM
         BYTE     01100000B+00CH,005H,VTTOG1+006H 
         BYTE     00100000B+00DH,005H,VDOKY1+003H 
         BYTE     00100000B+000H,015H,VDOKY1+003H 
         BYTE     01000000B+00DH,009H,VDOKY3+002H 
         BYTE     01000000B+000H,019H,VDOKY3+002H 
         BYTE     00000000B+008H,018H,FQTYAJ
         BYTE     00100000B+00AH,01DH,VCNQST+000H 
         BYTE     00100000B+00BH,014H,VCNQST+001H 
         BYTE     00100000B+00CH,01BH,VBBLK1+000H 
         BYTE     00100000B+00DH,01BH,VBBLK1+000H 
         BYTE     00100000B+00EH,01BH,VBBLK1+002H 
         BYTE     00100000B+00BH,020H,VBBLK1+009H 
         BYTE     00100000B+00CH,020H,VBBLK1+009H 
         BYTE     00100000B+00DH,020H,VBBLK1+009H 
         BYTE     00100000B+00BH,02DH,VBBLK1+002H 
         BYTE     00100000B+00CH,02DH,VBBLK1+002H 
         BYTE     00100000B+00DH,02DH,VBBLK1+002H 
         BYTE     00100000B+000H,02BH,VBBLK1+002H 
         BYTE     00100000B+000H,024H,VCNQST+001H 
         BYTE     00100000B+001H,02BH,VCNQST+002H 
         BYTE     00000000B+003H,028H,FLFYAJ
         BYTE     00100000B+004H,028H,VCNQST+001H 
         BYTE     00000000B+007H,024H,FUPYAJ
         BYTE     00000000B+009H,02DH,FRIYAJ
         BYTE     00000000B+00EH,020H,VTTOG0+008H 
         BYTE     00000000B+00EH,02EH,VTTOG0+001H 
         BYTE     01100000B+00AH,020H,VTTOG1+009H 
         BYTE     01100000B+00AH,02DH,VTTOG1+002H 
         BYTE     00100000B+005H,037H,VCNQST+005H 
         BYTE     00100000B+005H,039H,FHNQST
         BYTE     00000000B+006H,032H,FLFYAJ
         BYTE     00000000B+009H,03DH,FRIYAJ
         BYTE     00000000B+00DH,03DH,VTDOK0+008H 
         BYTE     00000000B+00CH,038H,FQTYAJ
         BYTE     00100000B+00CH,035H,VBBLK1+000H 
         BYTE     00100000B+00DH,030H,VBBLK1+005H 
         BYTE     00100000B+00EH,030H,VBBLK1+005H 
         BYTE     00100000B+00DH,03FH,VBBLK1+000H 
         BYTE     00100000B+00EH,03FH,VBBLK1+000H 
         BYTE     00100000B+00AH,03CH,VBBLK1+000H 
         BYTE     00100000B+00BH,03CH,VBBLK1+000H 
         BYTE     00100000B+00CH,03CH,VBBLK1+000H 
         BYTE     00100000B+00DH,03CH,VBBLK1+000H 
         BYTE     00100000B+00EH,03CH,VBBLK1+000H 
         BYTE     00100000B+000H,040H,VBBLK1+005H 
         BYTE     00100000B+001H,040H,VBBLK1+005H 
         BYTE     00100000B+002H,040H,VBBLK1+002H 
         BYTE     00100000B+003H,040H,VBBLK1+002H 
         BYTE     00100000B+004H,040H,VBBLK1+002H 
         BYTE     00100000B+005H,040H,VBBLK1+002H 
         BYTE     00100000B+006H,040H,VBBLK1+002H 
         BYTE     00100000B+007H,040H,VBBLK1+002H 
         BYTE     00100000B+000H,04CH,VBBLK1+000H 
         BYTE     00100000B+001H,04CH,VBBLK1+000H 
         BYTE     00100000B+002H,04CH,VBBLK1+000H 
         BYTE     00100000B+003H,04CH,VBBLK1+000H 
         BYTE     00100000B+004H,04CH,VBBLK1+000H 
         BYTE     00100000B+005H,04CH,VBBLK1+000H 
         BYTE     00100000B+006H,04CH,VBBLK1+000H 
         BYTE     00100000B+007H,04CH,VBBLK1+000H 
         BYTE     00100000B+008H,04CH,VBBLK1+000H 
         BYTE     00100000B+000H,04FH,VBBLK1+000H 
         BYTE     00100000B+001H,04FH,VBBLK1+000H 
         BYTE     00100000B+002H,04FH,VBBLK1+000H 
         BYTE     00100000B+003H,04FH,VBBLK1+000H 
         BYTE     00100000B+004H,04FH,VBBLK1+000H 
         BYTE     00100000B+005H,04FH,VBBLK1+000H 
         BYTE     00100000B+006H,04FH,VBBLK1+000H 
         BYTE     00100000B+004H,04BH,VCNQST
         BYTE     00100000B+005H,048H,VCNQST+001H 
         BYTE     00000000B+006H,044H,VTDOK0+004H 
         BYTE     00000000B+009H,048H,FRIYAJ
         BYTE     00100000B+009H,04CH,VCNQST+000H 
         BYTE     01100000B+00DH,04BH,VTTOG1+000H 
         BYTE     00100000B+00EH,04BH,VCNQST+000H 
         BYTE     00100000B+000H,054H,VGCOIN+002H 
         BYTE     00100000B+001H,053H,VGCOIN+000H 
         BYTE     00100000B+001H,057H,VGCOIN+000H 
         BYTE     01100000B+003H,05CH,VTTOG1+000H 
         BYTE     00100000B+004H,05CH,VCNQST+000H 
         BYTE     00100000B+004H,055H,VHZJP1+000H 
         BYTE     00100000B+008H,054H,VBBLK0+003H 
         BYTE     00100000B+008H,056H,FTCBLK
         BYTE     00000000B+009H,05BH,FUPYAJ
         BYTE     01100000B+00CH,054H,VCIKUW+004H 
         BYTE     00100000B+00CH,05EH,VCNQST+000H 
         BYTE     00100000B+00EH,051H,VHZJP1+000H 
; 
         BYTE     00100000B+001H,06BH,VDOKY1+001H 
         BYTE     01000000B+001H,06DH,VDOKY3+001H 
         BYTE     00100000B+003H,062H,VCNQST+000H 
         BYTE     01100000B+003H,068H,VCIKUW+001H 
         BYTE     00100000B+007H,064H,VBLDK3+002H 
         BYTE     00100000B+007H,068H,VGCOIN+002H 
         BYTE     00000000B+008H,06DH,FQTYAJ
         BYTE     00100000B+00AH,064H,VCNQST+001H 
         BYTE     01100000B+00BH,067H,VCIKUW+002H 
         BYTE     00100000B+00BH,068H,VHZJP1+000H 
         BYTE     00100000B+00DH,065H,VGCOIN+001H 
         BYTE     00100000B+00EH,067H,VGCOIN+000H 
         BYTE     00100000B+001H,079H,VGCOIN+001H 
         BYTE     00100000B+002H,07BH,VGCOIN+000H 
; 
         BYTE     00100000B+00DH,06CH,VBBLK1+000H 
         BYTE     00100000B+00EH,06CH,VBBLK1+003H 
         BYTE     00100000B+00EH,060H,VBBLK1+001H 
         BYTE     00100000B+000H,070H,VBBLK1+002H 
         BYTE     00100000B+001H,070H,VBBLK1+003H 
         BYTE     00100000B+002H,070H,VBBLK1+004H 
         BYTE     00100000B+003H,070H,VBBLK1+005H 
         BYTE     00100000B+004H,070H,VBBLK1+006H 
         BYTE     00100000B+005H,070H,VBBLK1+007H 
         BYTE     00100000B+006H,075H,VBBLK1+003H 
         BYTE     00100000B+007H,075H,VBBLK1+004H 
         BYTE     00100000B+008H,075H,VBBLK1+005H 
         BYTE     00100000B+009H,075H,VBBLK1+006H 
         BYTE     00100000B+00AH,070H,VBBLK1+00FH 
         BYTE     00100000B+00BH,070H,VBBLK1+00FH 
         BYTE     00100000B+000H,07DH,VBBLK1+002H 
         BYTE     00100000B+001H,07DH,VBBLK1+002H 
         BYTE     00100000B+002H,07EH,VBBLK1+001H 
         BYTE     00100000B+003H,07EH,VBBLK1+001H 
;;;;;    BYTE     00000000B+008H,072H,FSDOOR
; 
;;;;;    BYTE     11100000B+007H,01111000B,041H  ;next
         BYTE     11100000B+000H,053H,032H  ;next 
; 
         BYTE     0FFH
; 
;=====================================================================
B40B     EQU      $ 
B40C     EQU      $ 
B40D     EQU      $ 
B40E     EQU      $ 
B40F     EQU      $ 
B410     EQU      $ 
B411     EQU      $ 
B412     EQU      $ 
B413     EQU      $ 
B414     EQU      $ 
B415     EQU      $ 
B416     EQU      $ 
B417     EQU      $ 
B418     EQU      $ 
B419     EQU      $ 
B41A     EQU      $ 
B41B     EQU      $ 
B41C     EQU      $ 
B41D     EQU      $ 
B41E     EQU      $ 
B41F     EQU      $ 
B420     EQU      $ 
B421     EQU      $ 
B422     EQU      $ 
B423     EQU      $ 
B424     EQU      $ 
B425     EQU      $ 
B426     EQU      $ 
B427     EQU      $ 
B428     EQU      $ 
B429     EQU      $ 
B42A     EQU      $ 
B42B     EQU      $ 
B42C     EQU      $ 
B42D     EQU      $ 
B42E     EQU      $ 
B42F     EQU      $ 
B430     EQU      $ 
B431     EQU      $ 
B432     EQU      $ 
B433     EQU      $ 
B434     EQU      $ 
B435     EQU      $ 
B436     EQU      $ 
B437     EQU      $ 
B438     EQU      $ 
B439     EQU      $ 
B43A     EQU      $ 
B43B     EQU      $ 
B43C     EQU      $ 
B43D     EQU      $ 
B43E     EQU      $ 
B43F     EQU      $ 
; 
         LWORD     0000        ; BG data address 
         LWORD     0000        ; Enmy data address 
; 
         BYTE     00000000B,00000000B,00000000B,00000000B,00000010B,00000000B
; 
; 
         BYTE     0FFH
; 
;=====================================================================
; 
		END
