File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0001

     1                          ;************************************************************************
     2                          ;*									*
     3                          ;*	title name	: "yossy"					*
     4                          ;*	proccess	: enemy main					*
     5                          ;*	file name	: ys_enmy					*
     6                          ;*									*
     7                          ;************************************************************************
     8                          ;
     9                          ;
    10                          		SALL
    11                          ;
    12                          		include		ys_header.inc
    13                          		include		ys_unit.h
    14                          		include		ys_presno.h
    15                          		include		ys_color.h
    16                          		include		ys_pld.h
    17                          		include		../union/ys_bgcheck.h
    18                          ;
    19                          		XALL
    20                          ;
    21                          ;
    22                          ;------------------------------------------------------------------------
    23                          ;-		global symbol						-
    24                          ;------------------------------------------------------------------------
    25                          		GLB	ENEMY,ENEMY_IN,ENINSB,ENCSET,ENCSET_DM,ENRAMCLR
    26                          		GLB	ENMOVE,ENCLEAR,ENCLEAR_NORETN,ENCLEAR_NORETN2,ENRETURN
    27                          		GLB	DISPCK0,DISPCK1,DISPCK2,DISPCK3,DISPCK4
    28                          		GLB	ENINSR,ENINSR2,EEXCHK,EEYCHK,EEXYCK,ESTATST
    29                          		GLB	ENINSR_I,ENINSR2_I
    30                          		GLB	ESINSR
    31                          		GLB	EN_XYMOVE,EN_XYMOVE2,EN_TIMER,ENEAT_CANCEL,ENCHRB_SET
    32                          		GLB	PL_1UP_SET,PL_3UP_SET,PL_UP_SET,BEAT_P_SET
    33                          		GLB	BEAT_P_SET_2
    34                          		GLB	PL_1UP_SET_P
    35                          		GLB	SCOREST,COLD_KIRA_ST,SHOT_EN_KILL,SHOT_EN_KILL_S
    36                          		GLB	SHOT_EN_KILL_2,ENFALL_END  ;,ENDEATH_END,ENDEATH_END_2
    37                          		GLB	ENMDCK,XSDOWN,EPCRCK,MUKEOR,XSPEOR,MKEOR2,PLFLST,PLFLST_S
    38                          		GLB	PLFLST_2,XSDOWN2
    39                          		GLB	ANGLCAL,EGG_WARE,POBBGCR,POBBGCR_2,POBBGCR_3,POBBGCR_X,PLCRMKCK
    40                          		GLB	POBBGCR_H
    41                          		GLB	ENRINT
    42                          		GLB	EGGSET,EGG_SP_CHECK,EGG_OPTION,EGG_PLCROSS
    43                          		GLB	NAGE_POS_SET
    44                          		GLB	BOBBGCR,BOBBGCR_2,PDON0ST,PDON0ST_2
    45                          		GLB	EGGKILL,EGGKILL_ALL,EGG00_MVINT,ENDEATH_SET,ENDEATH_SET_2
    46                          		GLB	ENDEATH_SET_3,ENDEATH_SET_4
    47                          		GLB	AUTO_SCROLL,ATSCRL_XYCL_L
    48                          		GLB	TROBJ_CANCEL
    49                          		GLB	TROBJ_OAM_2x2,TROBJ_OAM_2x2_I
    50                          		GLB	TROBJ_OAM_4x4,TROBJ_OAM_4x4_I
    51                          		GLB	TROBJ_OAM_8x4,TROBJ_OAM_8x4_I
    52                          		GLB	TROBJ_OAM_8x8,TROBJ_OAM_8x8_I
    53                          		GLB	TROBJ_OAM_8H8,TROBJ_OAM_8H8_I
    54                          		GLB	TROBJ_SR_2x2,TROBJ_SR_2x2_CL
    55                          		GLB	TROBJ_SR_4x4,TROBJ_SR_4x4_CL
    56                          		GLB	TROBJ_SR_6x4,TROBJ_SR_6x4_CL
    57                          		GLB	TROBJ_SR_8x4,TROBJ_SR_8x4_CL
    58                          		GLB	TROBJ_SR_8x8,TROBJ_SR_8x8_CL
    59                          		GLB	TROBJ_CLEAR,TROBJ_CLEAR_CHK
    60                          		GLB	EXIST_CHECK,EXIST_CHECK2,EXIST_CHECK_S,EXIST_CHECK_S2,EXIST_CHECK_S3
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0002

    61                          		GLB	NON_EXIST_SET,NON_EXIST_SET2,NON_EXIST_SET3,QKM_NON_EXIST
    62                          		GLB	ENFAIL_FALL
    63                          ;
    64                          		GLB	PLAYER_REBOUND
    65                          ;
    66                          		GLB	EINIT,EFAIL,EMOVE,EEATM,ENOSE,ECHNG,ERINT
    67                          		GLB	EFALL,EFIRE
    68                          ;
    69                          		GLB	WAVLF,CDOOR,MPACW,TRBX2,MRBLK,COLD0,COLDX,SUIKA
    70                          		GLB	KPEXB,FIRE0,TAIH0,BOMB0,BOSSQ
    71                          		GLB	GOAL1,GOALX,BONSX,BG3D2,M_ITM,BOSDR,BSCLW,BSCLR
    72                          		GLB	MISA0,DTELE,GEROZ
    73                          		GLB	FIREX,SOPB0,SKILF,WTRLF,YUKID,YKDLF,HEIH0,RDOOR,BAKLF
    74                          		GLB	EGG00,EGG01,EGG02,EGG03,KPBOM,YSEGG,DRKEY
    75                          		GLB	EGG08,EGG09
    76                          		GLB	NAMAZ,SLIME,SLEYE,NZANA,NEZMI,SANPO,NZAN2
    77                          		GLB	NEZM2,TSUBO,OBAKE,IWATS,GHOST,DOROB,OBFIR
    78                          		GLB	POLY1,HINAQ,HINQ2,BOSSK,SESAW,BKSLM,LUIGI,KONOT
    79                          		GLB	DNXG2,BHEIR,BHEIG,INGER,BBBRS,TBHIH,KAMC2
    80                          		GLB	KERO0,POLDR,GATE0,GITAN,FACE8,FUSEN,KAMCS,MILL0
    81                          		GLB	MILS0,BG3FL,DORBF,CSTAR,QSPAK,HBLK5,GITNS
    82                          		GLB	GITNL,BABYM,PANDA,BETO0,MILL1,COINR,ZPACK,HIMIT,HBLK2
    83                          		GLB	HBLK3,HBLK4,HBLK7,JBLKL,PPCKL,PPCKR,JBLK0,KANI0,TELEL
    84                          		GLB	GABON,GABNB,SPRKL,SPRKR,DAI00,DAI01
    85                          		GLB	DAI02,KIL00,KIL01,KIL02,BG3KT
    86                          		GLB	DWNBG,FYUKA,ZBUB0,ZBUB1,WANG0,BGKM0
    87                          		GLB	HARIO,COIN0,EG1UP,MSTAR,NLFLR,NLFUD,FBOM0,GOLYS
    88                          		GLB	MC1UP,KAMC3,OSARU,BG3DO,DEATH,KOROG,ZDOOR,HBLK6
    89                          		GLB	BLKLF,BLKL2,POWSW,MARUT,WARPS,DORB2,DRBF2,ZSAB2
    90                          		GLB	BOMBX,ZPAC3,ROTLF,GABN2,GBNB2,SW000,MBALL
    91                          		GLB	ZPAC2,TULIP,HACHI,GENKI,DORBL,DORBR,UNBAB,AWANG
    92                          		GLB	AWANM,AWANS,AWANP,SHEIH,ITEGG,KPBKG,MSGBX,BOSS0
    93                          		GLB	CHG00,CHG01,CHG02,CHG03,PUUUU,CHG05
    94                          		GLB	QKM00,QKM01,QKM02,QKM03,QKM04,QKM05,QKM06,QKM07
    95                          		GLB	QKM08,QKM09,QKM0A,QKM0B,QKM0C,QKM0D,QKM0E,QKM0F
    96                          		GLB	QKM10,QKM11,QKM12,QKM13,QKM14,LBSDR,QKM16,QKM17
    97                          		GLB	FKPBM,KPFIR,KPBLK,SNXGO,DNXGO,PUCHA,PUCHG,PUCHB
    98                          		GLB	BG_00,BG3UL,BKMKJ,AW_FG,TJUGM,TTUBO,BG3BL,YGORO
    99                          		GLB	DMPLC,ON_DW,WPKPK,JFISH,HBNBN,BOBK0,BOBK1,HSAN0
   100                          		GLB	HSAN1,TUMUJ,BBROS,AHOBD,AHOB2,OTAMA,OTAMH,VOWVW
   101                          		GLB	VOWV2,NIKOP,NIKP2,NIKP3,BBFLW,TAKEH,MSHIH,EGFLW,BATSN
   102                          		GLB	KAMO0,KAMO1,AWAFK,ZSABO,STAMA,ZFLWR,YARIH,YARH2
   103                          		GLB	KARAT,ENRGB,POCHI,PUPBB,GURU1,GURU2,GHEIH,MONK4,HOMOL
   104                          		GLB	HOMOR,SUIKT,PONTA,KATI0,KATI1,KATI2,DOSUN,DHEIH,TRBOX,BTELE
   105                          		GLB	ZFLW2,PURIN,PURI0,MCHO2,BULET,COIN1,FLOAT,TIKU0
   106                          		GLB	TIKU1,NUNOO,MITSN,JUGEM,KINTO,JTAMA,RLTLF,RLTL2
   107                          		GLB	RLTL3,CNTLF,ARIH0,KAMC4,BAK20,BAK21,MAKI0,MAKI1
   108                          		GLB	FWAVE,WATAB,KUSAH,DEBU0,COMCH,YOSSY,FHOTM,FVOTM
   109                          		GLB	KEYDR,SSLIM,CHKH0,KOOPA,QCHAN,QCHN2
   110                          		GLB	DWBL0,DWBL1,DWBL2,DWBL3,IEKI0
   111                          		GLB	FLIPP,KOMO0,KOMO1,FLIPH,PKPK0,PKPK1,PKPK2,PKPK3,TEPPO
   112                          		GLB	KEME0,KEME1,SNXG2,JBKL2
   113                          		GLB	REFC0,REFC1,REFC2,REFC3,REFC4,REFC5,REFC6,REFC7,REFC8
   114                          		GLB	MOTH0,BAHOB,AWANH,DBAHO,MATO0,AJGM0,DBAH2,TONG0,TONG1
   115                          		GLB	BAMBO,RBLKG,RBLKY,MILL2,RFLSG,RFLSY,HIMI2,RFLLG,JTAM2
   116                          		GLB	P_KN2,P_KUN,THJGM
   117                          		GLB	KORA0,KORA1,HNOK0,HNOK1,NKNK0,NKNK1,PTPT0,PTPT1,PTPT2
   118                          		GLB	JGEMW
   119                          		GLB	SWAVM,SWAV0,SWAV1,MPACK,MPACH,RMARU
   120                          		GLB	FUSN0,FUSN1,FUSN2,FUSN3,FUSN4,FUSN5,FUSN6,FUSN7,FUSN8
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0003

   121                          		GLB	FUSN9,FUSNa,FUSNb,BALON,SABO0
   122                          		GLB	BAKLF,PANSY,DGFLY,BTFLY,TARKN,NRLF0,NRLF1,HRLF0,HRLF1
   123                          		GLB	NRLF2,NRLF3,HRLF2,HRLF3,SRLF0,SRLF1,GRPLF,TURAR,SUZUM
   124                          		GLB	FLWH0,BG3DO,KOUNB,GRCKS,GROCK,YAJI0,YAJI1,NISEF,GSTH0
   125                          		GLB	STRKN,FTRKN,BATSA,BATSB,BATSC,FIRBR,FIRB2,TIMKN,SKLNZ
   126                          		GLB	CORKS,MONK0,MONK1,MONK2,MONK3,BFISH,NEXTG,YGFSH,BLTLS
   127                          		GLB	KOKER,KAMEC,MAGIC,COIN2,BG3LF,PONPU,RAKUG,BG3EX
   128                          ;
   129                          		GLB	CH_00,CH_01,CH_02,CH_03,CH_04,CH_05,CH_06,CH_07
   130                          		GLB	CH_08,CH_09,CH_0A,CH_0B,CH_0C,CH_0D,CH_0E,CH_0F
   131                          ;
   132                          		GLB	AT_00,AT_01,AT_02,AT_03,AT_04
   133                          		GLB	AT_05,AT_06,AT_07,AT_08,AT_09
   134                          		GLB	AT_0A
   135                          		GLB	SC_MX
   136                          		GLB	TMJ_S,TMJ_E
   137                          		GLB	JGM_E
   138                          		GLB	WAT_E
   139                          		GLB	POC_E
   140                          		GLB	KOM_S,KOM_E,KM2_S,KM2_E
   141                          		GLB	AJM_S,AJM_E
   142                          		GLB	BB_S0,BB_EN
   143                          		GLB	TJM_E
   144                          		GLB	MTH_S,MTH_E
   145                          		GLB	PKN_S,PKN_E
   146                          		GLB	FSB_S,FSB_E,FBM_S,FBM_E
   147                          		GLB	FSN_S,FSN_E
   148                          		GLB	RP0_S
   149                          		GLB	SSL_S,SSL_E
   150                          		GLB	FUR_E
   151                          		GLB	AHO_E
   152                          		GLB	WAT_S
   153                          		GLB	BTL_E
   154                          ;
   155                          		GLB	M_THO,M_TAM,M_DR0,M_LIF
   156                          		GLB	M_DR2,M_FUS
   157                          		GLB	M_DR4,M_SUI,M_DR5
   158                          ;
   159                          ;
   160                          		GLB	EATMXS,NOSWT,EGGTM
   161                          ;
   162                          		GLB	TROBJ_PLOT_X,TROBJ_PLOT_Y,TROBJ_CHAR_NO
   163                          ;
   164                          		GLB	EGOPAD,QKM_COIN_XSP,QKM_COIN_YSP,TIMKN_CHANGE
   165                          ;
   166                          		GLB	ENFAIL0
   167                          ;
   168                          		GLB	FSMK0_SET2,FSMK0_SET2_2,FSMK0_SET3,FSMK0_SET4,FSMK0_SET
   169                          		GLB	FSMK2_SET,FSMK0_SET5,FSMK2_ST2
   170                          		GLB	FUNDA_ENFALL_L
   171                          		GLB	SCORE_SET,COIN1_END_SET,EX_COIN_SET,EX_COIN_SET_2
   172                          		GLB	BLUE_COIN_INC
   173                          		GLB	EX_COIN_SET_3,EGG00_COL_SET,FSMK0_SET_S
   174                          ;
   175                          ;------------------------------------------------------------------------
   176                          ;-		extern symbol						-
   177                          ;------------------------------------------------------------------------
   178                          ;
   179                          ;-------------< ys_main >------------------------------------------------
   180                          		EXT	SOUND_3_ON,RANDAM
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0004

   181                          		EXT	INT_STAT
   182                          ;
   183                          ;-------------< ys_rpro >------------------------------------------------
   184                          		EXT	JSRSUB,CHIPON,CHIPON_RAM_READ
   185                          		EXT	CHIPON_SPECIAL
   186                          ;
   187                          ;-------------< ys_init >------------------------------------------------
   188                          		EXT	UNCOMPRES_X,VRAMDX_ST
   189                          ;
   190                          		EXT	BG1CHRBK,BG1COLBK
   191                          ;
   192                          ;-------------< ys_game >------------------------------------------------
   193                          		EXT	BGM_SET
   194                          ;
   195                          ;-------------< ys_bgsc >------------------------------------------------
   196                          		EXT	UNITCHG
   197                          		EXT	BGCG,BCG2
   198                          ;
   199                          ;-------------< ys_play >------------------------------------------------
   200                          		EXT	BERO_CANCEL,SCRL_CXY_SET
   201                          		EXT	TIMEUP_SET,PLTYPE_RAMCLR
   202                          		EXT	EGG_WARE_SET
   203                          		EXT	BGSTAT,BGSTAT2,EBSTAT,SAKADT,SDCRDT
   204                          		EXT	PFAL,PSTP,PMOV,PCHG,PDEM,PDKN
   205                          		EXT	PFLP
   206                          ;
   207                          		EXT	PUSHTM
   208                          ;
   209                          ;-------------< ys_enmy2 >-----------------------------------------------
   210                          		EXT	WAVLFIN,CDOORIN,MRBLKIN,COLD0IN
   211                          		EXT	COLDXIN,SUIKAIN,FIRE0IN,TAIH0IN
   212                          		EXT	MISA0IN,DTELEIN,FIREXIN,SOPB0IN
   213                          		EXT	SKILFIN,WTRLFIN,YKDLFIN,HEIH0IN
   214                          		EXT	NAMAZIN
   215                          		EXT	SANPOIN,GHOSTIN
   216                          		EXT	GITANIN,FACE8IN
   217                          		EXT	CSTARIN,GITNSIN,GITNLIN,NLFLRIN
   218                          		EXT	NLFUDIN,DEATHIN,HACHIIN
   219                          		EXT	CHKH0IN,KUSAHIN
   220                          		EXT	NRLF0IN,NRLF1IN,HRLF0IN,HRLF1IN,NRLF2IN,NRLF3IN
   221                          		EXT	HRLF2IN,HRLF3IN,SRLF0IN,SRLF1IN,GRPLFIN
   222                          		EXT	FLWH0IN,MILL0IN,MILL1IN,MILL2IN,MILS0IN,PUPBBIN
   223                          		EXT	COIN1IN,SWAVMIN,SWAV0IN,SWAV1IN,TIKU0IN,TIKU1IN
   224                          		EXT	CNTLFIN,GABONIN,GABNBIN,PONTAIN,HSAN0IN
   225                          		EXT	GABN2IN,GBNB2IN
   226                          ;
   227                          		EXT	WAVLFMV,CDOORMV,MRBLKMV,COLD0MV
   228                          		EXT	COLDXMV,SUIKAMV,FIRE0MV,TAIH0MV
   229                          		EXT	MISA0MV,DTELEMV,FIREXMV,SOPB0MV
   230                          		EXT	SKILFMV,WTRLFMV,YKDLFMV,HEIH0MV
   231                          		EXT	NAMAZMV
   232                          		EXT	SANPOMV,GHOSTMV
   233                          		EXT	GITANMV,FACE8MV
   234                          		EXT	CSTARMV,GITNSMV
   235                          		EXT	GITNLMV,NLFLRMV,NLFUDMV,DEATHMV
   236                          		EXT	HACHIMV,CHKH0MV,KUSAHMV
   237                          		EXT	NRLF0MV,NRLF1MV,HRLF0MV,HRLF1MV,NRLF2MV,NRLF3MV
   238                          		EXT	HRLF2MV,HRLF3MV,SRLF0MV,SRLF1MV,GRPLFMV
   239                          		EXT	FLWH0MV,MILL0MV,MILL1MV,MILL2MV,MILS0MV,PUPBBMV
   240                          		EXT	COIN1MV,SWAVMMV,SWAV0MV,SWAV1MV,TIKU0MV,TIKU1MV
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0005

   241                          		EXT	CNTLFMV,GABONMV,GABNBMV,PONTAMV,HSAN0MV
   242                          		EXT	GABN2MV,GBNB2MV
   243                          ;
   244                          		EXT	DNXG2FL,CSTARFL,HEIH0FL
   245                          ;
   246                          		EXT	GHOSTNS,KUSAHNS
   247                          ;
   248                          		EXT	FUSNB_SET,KINOMI_CANCEL,KINOMI_CANCEL_2,KINOMI_CANCEL_3
   249                          		EXT	TO_PLDOWN
   250                          ;
   251                          		EXT	HEIH0_TO_GURU,HEIH0_DEATH_CHK
   252                          ;
   253                          ;-------------< ys_enmy3 >-----------------------------------------------
   254                          		EXT	TSUBOIN,OBAKEIN,IWATSIN,OBFIRIN,POLY1IN
   255                          		EXT	KERO0IN,POLDRIN,GATE0IN
   256                          		EXT	DWNBGIN,MSTARIN
   257                          		EXT	GOLYSIN,ITEGGIN,KPBKGIN,BG_00IN,BKMKJIN,AW_FGIN
   258                          		EXT	ON_DWIN,DRKEYIN,KEYDRIN,ZDOORIN
   259                          		EXT	DWBL0IN,DWBL1IN,DWBL2IN,DWBL3IN,IEKI0IN
   260                          		EXT	GOAL1IN
   261                          		EXT	M_ITMIN,BOSDRIN,LBSDRIN,BSCLWIN,BSCLRIN
   262                          		EXT	HBLK7IN,MONK0IN,MONK1IN,MONK2IN,MONK3IN,NEXTGIN
   263                          		EXT	UNBABIN,MONK4IN,INGERIN,BHEIRIN,BHEIGIN
   264                          		EXT	DNXGOIN,DNXG2IN,SNXGOIN
   265                          		EXT	KPBOMIN,SNXG2IN,KPFIRIN,KPEXBIN
   266                          ;
   267                          		EXT	TSUBOMV,OBAKEMV,IWATSMV,OBFIRMV,POLY1MV
   268                          		EXT	KERO0MV,POLDRMV,GATE0MV
   269                          		EXT	DWNBGMV,MSTARMV
   270                          		EXT	GOLYSMV,ITEGGMV,KPBKGMV,BG_00MV,BKMKJMV,AW_FGMV
   271                          		EXT	ON_DWMV,DRKEYMV,KEYDRMV,ZDOORMV
   272                          		EXT	DWBL0MV,DWBL1MV,DWBL2MV,DWBL3MV,IEKI0MV
   273                          		EXT	GOAL1MV
   274                          		EXT	M_ITMMV,BOSDRMV,LBSDRMV,BSCLWMV,BSCLRMV
   275                          		EXT	HBLK7MV,MONK0MV,MONK1MV,MONK2MV,MONK3MV,NEXTGMV
   276                          		EXT	UNBABMV,MONK4MV,INGERMV,BHEIRMV,BHEIGMV
   277                          		EXT	DNXGOMV,DNXG2MV,SNXGOMV
   278                          		EXT	KPBOMMV,SNXG2MV,KPFIRMV,KPEXBMV
   279                          ;
   280                          		EXT	KUMOB_SET,KUMOB_SET_2,KIRAKIRA_SET,QAROW_SET_CK
   281                          		EXT	MONKY_FAIL_SET,TO_COIN_CHANGE,SUIKT_DOWN_ST
   282                          ;
   283                          ;-------------< ys_enmy4 >-----------------------------------------------
   284                          		EXT	HBLK2IN,HBLK3IN
   285                          		EXT	HBLK4IN,HBLK5IN,JBLK0IN
   286                          		EXT	KANI0IN,TELELIN
   287                          		EXT	DAI00IN,DAI01IN,DAI02IN
   288                          		EXT	KIL00IN,KIL01IN,KIL02IN
   289                          		EXT	FYUKAIN,ZBUB0IN,ZBUB1IN,WANG0IN,COIN0IN
   290                          		EXT	OSARUIN,KOROGIN,HBLK6IN
   291                          		EXT	BLKLFIN,BLKL2IN,BOSSKIN,SESAWIN
   292                          		EXT	ZPACKIN,ZPAC2IN,BBROSIN
   293                          		EXT	ARIH0IN,JBLKLIN,JBKL2IN,FUSENIN
   294                          		EXT	ZPAC3IN,WARPSIN,NIKOPIN,NIKP2IN,NIKP3IN,BETO0IN
   295                          		EXT	VOWVWIN,VOWV2IN,BAK20IN,BAK21IN,BAKLFIN,YUKIDIN
   296                          		EXT	MSGBXIN,BTELEIN,FLOATIN,NUNOOIN,RLTLFIN,RLTL2IN
   297                          		EXT	RLTL3IN,POWSWIN,PKPK2IN,PKPK3IN
   298                          ;
   299                          		EXT	HBLK2MV,HBLK3MV
   300                          		EXT	HBLK4MV,HBLK5MV,JBLK0MV
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0006

   301                          		EXT	KANI0MV,TELELMV
   302                          		EXT	DAI00MV,DAI01MV,DAI02MV
   303                          		EXT	KIL00MV,KIL01MV,KIL02MV
   304                          		EXT	FYUKAMV,ZBUB0MV,ZBUB1MV,WANG0MV,COIN0MV
   305                          		EXT	OSARUMV,KOROGMV,HBLK6MV
   306                          		EXT	BLKLFMV,BLKL2MV,BOSSKMV,SESAWMV
   307                          		EXT	ZPACKMV,ZPAC2MV,BBROSMV
   308                          		EXT	ARIH0MV,JBLKLMV,JBKL2MV,FUSENMV
   309                          		EXT	ZPAC3MV,WARPSMV,NIKOPMV,NIKP2MV,NIKP3MV,BETO0MV
   310                          		EXT	VOWVWMV,VOWV2MV,BAK20MV,BAK21MV,BAKLFMV,YUKIDMV
   311                          		EXT	MSGBXMV,BTELEMV,FLOATMV,NUNOOMV,RLTLFMV,RLTL2MV
   312                          		EXT	RLTL3MV,POWSWMV,PKPK2MV,PKPK3MV
   313                          ;
   314                          		EXT	KIL00FL,KIL01FL,KIL02FL,KIL03FL,KIL04FL,SESAWFL
   315                          ;
   316                          		EXT	BABYMNS
   317                          ;
   318                          		EXT	BBROS_CHECK
   319                          ;
   320                          ;-------------< ys_enmy5 >-----------------------------------------------
   321                          		EXT	BOSS0IN
   322                          		EXT	DMPLCIN
   323                          		EXT	PURININ,PURI0IN,HARIOIN,TUMUJIN,SUIKTIN
   324                          ;
   325                          		EXT	BOSS0MV
   326                          		EXT	DMPLCMV
   327                          		EXT	PURINMV,PURI0MV,HARIOMV,TUMUJMV,SUIKTMV
   328                          ;
   329                          ;-------------< ys_enmy6 >-----------------------------------------------
   330                          		EXT	BOMBXIN,ROTLFIN
   331                          		EXT	MBALLIN,AWANGIN
   332                          		EXT	AWANMIN,AWANSIN,AWANPIN,BOBK0IN,BOBK1IN
   333                          		EXT	AHOBDIN,AHOB2IN
   334                          		EXT	KAMO0IN,KAMO1IN,AWAFKIN,ZSABOIN,STAMAIN
   335                          		EXT	ZFLWRIN,ZFLW2IN,JTAMAIN,HSAN1IN,DBAHOIN,MATO0IN
   336                          		EXT	DBAH2IN,BOMB0IN,JTAM2IN,GENKIIN,BAHOBIN,ZSAB2IN
   337                          		EXT	SW000IN,YGOROIN
   338                          ;
   339                          		EXT	BOMBXMV,ROTLFMV
   340                          		EXT	MBALLMV,AWANGMV
   341                          		EXT	AWANMMV,AWANSMV,AWANPMV,BOBK0MV,BOBK1MV
   342                          		EXT	AHOBDMV,AHOB2MV
   343                          		EXT	KAMO0MV,KAMO1MV,AWAFKMV,ZSABOMV,STAMAMV
   344                          		EXT	ZFLWRMV,ZFLW2MV,JTAMAMV,HSAN1MV,DBAHOMV,MATO0MV
   345                          		EXT	DBAH2MV,BOMB0MV,JTAM2MV,GENKIMV,BAHOBMV,ZSAB2MV
   346                          		EXT	SW000MV,YGOROMV
   347                          ;
   348                          		EXT	MATO0_DEATH_CHK
   349                          ;
   350                          ;-------------< ys_enmy7 >-----------------------------------------------
   351                          		EXT	OTAMAIN, OTAMHIN, BBFLWIN, EGFLWIN
   352                          		EXT	TAKEHIN
   353                          		EXT	BATSNIN
   354                          		EXT	YARIHIN, YARH2IN
   355                          		EXT	ENRGBIN, MCHO2IN, BULETIN
   356                          		EXT	POCHIIN
   357                          		EXT	MITSNIN
   358                          		EXT	JUGEMIN, WATABIN, FHOTMIN, FVOTMIN
   359                          		EXT	DEBU0IN
   360                          		EXT	KOMO0IN, KOMO1IN
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0007

   361                          		EXT	PKPK0IN, PKPK1IN
   362                          		EXT	KEME0IN, KEME1IN
   363                          		EXT	REFC0IN, REFC1IN, REFC2IN, REFC3IN, REFC4IN
   364                          		EXT	REFC5IN, REFC6IN, REFC7IN, REFC8IN
   365                          		EXT	MOTH0IN
   366                          		EXT	TEPPOIN
   367                          		EXT	AJGM0IN
   368                          		EXT	TONG0IN, TONG1IN, BAMBOIN, KARATIN
   369                          		EXT	KORA0IN, KORA1IN, HNOK0IN, HNOK1IN, NKNK0IN, NKNK1IN
   370                          		EXT	PTPT0IN, PTPT1IN, PTPT2IN, JGEMWIN, THJGMIN, P_KUNIN
   371                          		EXT	P_KN2IN
   372                          		EXT	FUSN0IN, FUSN1IN, FUSN2IN, FUSN3IN, FUSN4IN
   373                          		EXT	FUSN5IN, FUSN6IN, FUSN7IN, FUSN8IN, FUSN9IN
   374                          		EXT	FUSNaIN, FUSNbIN, BALONIN, SABO0IN, FKPBMIN
   375                          ;
   376                          		EXT	OTAMAMV, OTAMHMV, BBFLWMV, EGFLWMV
   377                          		EXT	TAKEHMV
   378                          		EXT	BATSNMV
   379                          		EXT	YARIHMV, YARH2MV
   380                          		EXT	ENRGBMV, MCHO2MV, BULETMV
   381                          		EXT	POCHIMV
   382                          		EXT	MITSNMV
   383                          		EXT	JUGEMMV, WATABMV, FHOTMMV, FVOTMMV
   384                          		EXT	DEBU0MV
   385                          		EXT	KOMO0MV, KOMO1MV
   386                          		EXT	PKPK0MV, PKPK1MV
   387                          		EXT	KEME0MV, KEME1MV
   388                          		EXT	REFC0MV, REFC1MV, REFC2MV, REFC3MV, REFC4MV
   389                          		EXT	REFC5MV, REFC6MV, REFC7MV, REFC8MV
   390                          		EXT	MOTH0MV
   391                          		EXT	TEPPOMV
   392                          		EXT	AJGM0MV
   393                          		EXT	TONG0MV, TONG1MV, BAMBOMV, KARATMV
   394                          		EXT	KORA0MV, KORA1MV, HNOK0MV, HNOK1MV, NKNK0MV, NKNK1MV
   395                          		EXT	PTPT0MV, PTPT1MV, PTPT2MV, JGEMWMV, THJGMMV, P_KUNMV
   396                          		EXT	P_KN2MV
   397                          		EXT	FUSN0MV, FUSN1MV, FUSN2MV, FUSN3MV, FUSN4MV
   398                          		EXT	FUSN5MV, FUSN6MV, FUSN7MV, FUSN8MV, FUSN9MV
   399                          		EXT	FUSNaMV, FUSNbMV, BALONMV, SABO0MV, FKPBMMV
   400                          ;
   401                          		EXT	OTAMAFL, OTAMHFL
   402                          		EXT	TAKEHFL
   403                          		EXT	JUGEMFL
   404                          		EXT	KEME0FL, KEME1FL
   405                          		EXT	AJGM0FL, KARATFL
   406                          		EXT	KORA0FL, KORA1FL, HNOK0FL, HNOK1FL, NKNK0FL, NKNK1FL
   407                          		EXT	PTPT0FL, PTPT1FL, PTPT2FL, JGEMWFL, THJGMFL
   408                          ;
   409                          		EXT	AJGM0_INIT
   410                          ;
   411                          ;-------------< ys_enmy8 >-----------------------------------------------
   412                          		EXT	GURU1IN,GURU2IN,GHEIHIN,HOMOLIN,HOMORIN
   413                          		EXT	DOSUNIN,DHEIHIN
   414                          		EXT	TRBOXIN
   415                          		EXT	MAKI0IN,MAKI1IN
   416                          		EXT	QCHANIN,QCHN2IN,FLIPPIN,FLIPHIN
   417                          		EXT	AWANHIN,RBLKGIN,RBLKYIN,RFLSGIN,RFLSYIN
   418                          		EXT	RFLLGIN,SPRKLIN,SPRKRIN,PPCKLIN,PPCKRIN
   419                          		EXT	HINAQIN,RMARUIN
   420                          		EXT	HINQ2IN,TRBX2IN,TTUBOIN,KINTOIN
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0008

   421                          		EXT	KATI0IN,KATI1IN,KATI2IN,MARUTIN
   422                          ;
   423                          		EXT	GURU1MV,GURU2MV,GHEIHMV,HOMOLMV,HOMORMV
   424                          		EXT	DOSUNMV,DHEIHMV
   425                          		EXT	TRBOXMV
   426                          		EXT	MAKI0MV,MAKI1MV
   427                          		EXT	QCHANMV,QCHN2MV,FLIPPMV,FLIPHMV
   428                          		EXT	AWANHMV,RBLKGMV,RBLKYMV,RFLSGMV,RFLSYMV
   429                          		EXT	RFLLGMV,SPRKLMV,SPRKRMV,PPCKLMV,PPCKRMV
   430                          		EXT	HINAQMV,RMARUMV
   431                          		EXT	HINQ2MV,TRBX2MV,TTUBOMV,KINTOMV
   432                          		EXT	KATI0MV,KATI1MV,KATI2MV,MARUTMV
   433                          ;
   434                          		EXT	PONTA_CHECK
   435                          ;
   436                          ;-------------< ys_enmy9 >-----------------------------------------------
   437                          		EXT	TURARIN, SUZUMIN, GRCKSIN, GROCKIN, YAJI0IN, YAJI1IN
   438                          		EXT	NISEFIN, KOUNBIN, TARKNIN, STRKNIN, FTRKNIN
   439                          		EXT	BATSBIN, FIRBRIN, FIRB2IN, TIMKNIN
   440                          		EXT	NZANAIN, NZAN2IN, NEZMIIN, NEZM2IN, CORKSIN, BFISHIN
   441                          		EXT	YGFSHIN, KOKERIN, MAGICIN, TULIPIN, WPKPKIN, JFISHIN
   442                          		EXT	HBNBNIN, KAMC2IN, TBHIHIN, COIN2IN, COINRIN, BG3LFIN
   443                          		EXT	PONPUIN, RAKUGIN, YOSSYIN, MSHIHIN
   444                          		EXT	PANDAIN, BATSAIN, BATSCIN, SKLNZIN, BLTLSIN, KAMECIN
   445                          		EXT	COMCHIN, GSTH0IN
   446                          ;
   447                          		EXT	TURARMV, SUZUMMV, GRCKSMV, GROCKMV, YAJI0MV, YAJI1MV
   448                          		EXT	NISEFMV, KOUNBMV, TARKNMV, STRKNMV, FTRKNMV
   449                          		EXT	BATSBMV, FIRBRMV, FIRB2MV, TIMKNMV
   450                          		EXT	NZANAMV, NZAN2MV, NEZMIMV, NEZM2MV, CORKSMV, BFISHMV
   451                          		EXT	YGFSHMV, KOKERMV, MAGICMV, TULIPMV, WPKPKMV, JFISHMV
   452                          		EXT	HBNBNMV, KAMC2MV, TBHIHMV, COIN2MV, COINRMV, BG3LFMV
   453                          		EXT	PONPUMV, RAKUGMV, YOSSYMV, MSHIHMV
   454                          		EXT	PANDAMV, BATSAMV, BATSCMV, SKLNZMV, BLTLSMV, KAMECMV
   455                          		EXT	COMCHMV, GSTH0MV
   456                          ;
   457                          		EXT	PANDAFL, BATSAFL, BATSCFL, BLTLSFL, KAMECFL
   458                          		EXT	COMCHFL, GSTH0FL
   459                          ;
   460                          		EXT	GSTH0_CHRST, GSTH0_CRCRINST
   461                          		EXT	MSHIHCHRST, COIN_CATCH
   462                          ;
   463                          ;-------------< ys_enmy10 >-----------------------------------------------
   464                          		EXT	GOALXIN, BONSXIN, PANSYIN, KONOTIN, RDOORIN
   465                          		EXT	DGFLYIN, BTFLYIN
   466                          		EXT	LUIGIIN, HIMITIN, EG1UPIN, HIMI2IN
   467                          ;
   468                          		EXT	GOALXMV, BONSXMV, PANSYMV, KONOTMV, RDOORMV
   469                          		EXT	DGFLYMV, BTFLYMV
   470                          		EXT	LUIGIMV, HIMITMV, EG1UPMV, HIMI2MV
   471                          ;
   472                          		EXT	PANSYFL
   473                          ;
   474                          ;-------------< ys_enmy11 >-----------------------------------------------
   475                          		EXT	KAMC4IN
   476                          		EXT	FBOM0IN, MC1UPIN
   477                          ;
   478                          		EXT	KAMC4MV
   479                          		EXT	FBOM0MV, MC1UPMV
   480                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0009

   481                          ;-------------< ys_enmy12 >-----------------------------------------------
   482                          		EXT	KAMCSIN,SHEIHIN
   483                          ;
   484                          		EXT	KAMCSMV,SHEIHMV
   485                          ;
   486                          ;-------------< ys_boss1 >------------------------------------------------
   487                          		EXT	SLIMEIN,BKSLMIN,SLEYEIN,SSLIMIN
   488                          ;
   489                          		EXT	SLIMEMV,BKSLMMV,SLEYEMV,SSLIMMV
   490                          ;
   491                          ;-------------< ys_boss2 >------------------------------------------------
   492                          		EXT	MPACKIN,MPACHIN,MPACWIN
   493                          ;
   494                          		EXT	MPACKMV,MPACHMV,MPACWMV
   495                          ;
   496                          ;-------------< ys_koopa >------------------------------------------------
   497                          		EXT	KOOPAIN,KAMC3IN,FWAVEIN,KPBLKIN,BGKM0IN
   498                          ;
   499                          		EXT	KOOPAMV,KAMC3MV,FWAVEMV,KPBLKMV,BGKM0MV
   500                          ;
   501                          		EXT	KOOPANS
   502                          ;
   503                          ;-------------< ys_enmy14 >----------------------------------------------
   504                          		EXT	BOSSQIN,PUCHGIN,PUCHBIN,QSPAKIN
   505                          ;
   506                          		EXT	BOSSQMV,PUCHGMV,PUCHBMV,QSPAKMV
   507                          ;
   508                          ;-------------< ys_dorobo >----------------------------------------------
   509                          		EXT	DOROBIN,DORB2IN,DORBFIN,DRBF2IN,DORBLIN,DORBRIN
   510                          		EXT	GEROZIN,TJUGMIN
   511                          ;
   512                          		EXT	DOROBMV,DORB2MV,DORBFMV,DRBF2MV,DORBLMV,DORBRMV
   513                          		EXT	GEROZMV,TJUGMMV
   514                          ;
   515                          		EXT	DOROBFL,DORB2FL,DORBLFL,DORBRFL
   516                          		EXT	GEROZFL,TJUGMFL
   517                          ;
   518                          		EXT	DORB2WK,DORBLWK,DORBRWK,POSITION_SAVE
   519                          ;
   520                          		EXT	GEROZ_TO_FALL
   521                          ;
   522                          ;-------------< ys_hajime-chan >-------------------------------------------
   523                          		EXT	BABYMIN
   524                          ;
   525                          		EXT	BABYMMV
   526                          ;
   527                          ;-------------< ys_enmy13 >----------------------------------------------
   528                          		EXT	BG3FLIN, BG3BLIN, BG3ULIN, BG3DOIN
   529                          		EXT	BG3KTIN, BG3D2IN
   530                          ;
   531                          		EXT	BG3FLMV, BG3BLMV, BG3ULMV, BG3DOMV
   532                          		EXT	BG3KTMV, BG3D2MV
   533                          ;
   534                          ;-------------< ys_bbbros >------------------------------------------------
   535                          		EXT	BBBRSIN, PUCHAIN, BG3EXIN
   536                          ;
   537                          		EXT	BBBRSMV, PUCHAMV, BG3EXMV
   538                          ;
   539                          ;-------------< ys_exst >------------------------------------------------
   540                          		EXT	EXSTRA,EXINSR
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0010

   541                          		EXT	WTUP0,WTUP1,SCORE,SMOK1,AWASP,DOON0
   542                          		EXT	EGGWR,DSMK0,FSMK0,FSMK1
   543                          		EXT	COLDK,ICECL,FLKIR,FSMK2,YKCHI,COINX
   544                          ;
   545                          		EXT	FSMK2P
   546                          ;
   547                          ;-------------< ys_mini >------------------------------------------------
   548                          		EXT	M_LIFIN,M_DR2IN,M_FUSIN
   549                          ;
   550                          		EXT	M_LIFMV,M_DR2MV,M_FUSMV
   551                          ;
   552                          ;-------------< ys_mini1 >-----------------------------------------------
   553                          		EXT	M_THOIN,M_TAMIN,M_DR0IN
   554                          		EXT	M_DR4IN,M_SUIIN
   555                          		EXT	M_DR5IN
   556                          ;
   557                          		EXT	M_THOMV,M_TAMMV,M_DR0MV
   558                          		EXT	M_DR4MV,M_SUIMV
   559                          		EXT	M_DR5MV
   560                          ;
   561                          ;-------------< ys_pldt_e >----------------------------------------------
   562                          		EXT	BABY_AD_X,BABY_AD_Y
   563                          		EXT	EGG_AD_X,EGG_AD_Y
   564                          ;
   565                          ;-------------< ys_data >------------------------------------------------
   566                          		EXT	COS,SIN
   567                          ;
   568                          ;------------------------------------------------------------------------
   569                          ;-		define symbol						-
   570                          ;------------------------------------------------------------------------
   571          000000          BABY_INDEX	EQU	00
   572                          ;
   573          000048          EATEGGEND	EQU	48H	;[ 注）<ys_mpldt.asm>に存在！！ ]
   574                          ;
   575                          ;
   576                          ;
   577                          ;
   578                          ;************************************************************************
   579                          ;*									*
   580                          ;*		program start						*
   581                          ;*									*
   582                          ;************************************************************************
   583                          ;
   584                          ;
   585                          		EXTEND
   586                          ;
   587                          		MEM8
   588                          		IDX8
   589                          ;
   590                          ;
   591                          Group_3		GROUP	Enemy_pro
   592                          Enemy_pro	SECT	REL
   593                          ;
   594                          ;****************************************************************
   595                          ;*		enemy initial name				*
   596                          ;****************************************************************
   597          000000          EINADR		EQU	$
   598  E000000 000000"         WAVLFN		LWORD	WAVLFIN		;[WAVLF]
   599  E000003 000000"         CDOORN		LWORD	CDOORIN		;[CDOOR]
   600  E000006 000000"         MPACWN		LWORD	MPACWIN		;[MPACW]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0011

   601  E000009 000000"         TRBX2N		LWORD	TRBX2IN		;[TRBX2]
   602  E00000C 000000"         MRBLKN		LWORD	MRBLKIN		;[MRBLK]
   603  E00000F 000000"         COLD0N		LWORD	COLD0IN		;[COLD0]
   604  E000012 000000"         COLDXN		LWORD	COLDXIN		;[COLDX]
   605  E000015 000000"         SUIKAN		LWORD	SUIKAIN		;[SUIKA]
   606  E000018 000000"         KPEXBN		LWORD	KPEXBIN		;[KPEXB]
   607  E00001B 000000"         FIRE0N		LWORD	FIRE0IN		;[FIRE0]
   608  E00001E 000000"         TAIH0N		LWORD	TAIH0IN		;[TAIH0]
   609  E000021 000000"         BOMB0N		LWORD	BOMB0IN		;[BOMB0]
   610  E000024 000000"         BOSSQN		LWORD	BOSSQIN		;[BOSSQ]
   611  E000027 000000"         GOAL1N		LWORD	GOAL1IN		;[GOAL1]
   612  E00002A 000000"         GOALXN		LWORD	GOALXIN		;[GOALX]
   613  E00002D 000000"         BONSXN		LWORD	BONSXIN		;[BONSX]
   614  E000030 000000"         BG3D2N		LWORD	BG3D2IN		;[BG3D2]
   615  E000033 000000"         M_ITMN		LWORD	M_ITMIN		;[M_ITM]
   616  E000036 000000"         BOSDRN		LWORD	BOSDRIN		;[BOSDR]
   617  E000039 000000"         BSCLWN		LWORD	BSCLWIN		;[BSCLW]
   618  E00003C 000000"         BSCLRN		LWORD	BSCLRIN		;[BSCLR]
   619  E00003F 000000"         MISA0N		LWORD	MISA0IN		;[MISA0]
   620  E000042 000000"         DTELEN		LWORD	DTELEIN		;[DTELE]
   621  E000045 000000"         GEROZN		LWORD	GEROZIN		;[GEROZ]
   622  E000048 000000"         FIREXN		LWORD	FIREXIN		;[FIREX]
   623  E00004B 000000"         SOPB0N		LWORD	SOPB0IN		;[SOPB0]
   624  E00004E 000000"         SKILFN		LWORD	SKILFIN		;[SKILF]
   625  E000051 000000"         WTRLFN		LWORD	WTRLFIN		;[WTRLF]
   626  E000054 000000"         YUKIDN		LWORD	YUKIDIN		;[YUKID]
   627  E000057 000000"         YKDLFN		LWORD	YKDLFIN		;[YKDLF]
   628  E00005A 000000"         HEIH0N		LWORD	HEIH0IN		;[HEIH0]
   629  E00005D 000000"         RDOORN		LWORD	RDOORIN		;[RDOOR]
   630  E000060 000000"         DOROBN		LWORD	DOROBIN		;[DOROB]
   631  E000063 000000"         BAKLFN		LWORD	BAKLFIN		;[BAKLF]
   632  E000066 003742'         EGG00N		LWORD	EGG00IN		;[EGG00]
   633  E000069 003746'         EGG02N		LWORD	EGG02IN		;[EGG02]
   634  E00006C 003746'         EGG01N		LWORD	EGG01IN		;[EGG01]
   635  E00006F 003759'         EGG03N		LWORD	EGG03IN		;[EGG03]
   636  E000072 000000"         KPBOMN		LWORD	KPBOMIN		;[KPBOM]
   637  E000075 000000"         DRKEYN		LWORD	DRKEYIN		;[DRKEY]
   638  E000078 000000"         KAMO1N		LWORD	KAMO1IN		;[KAMO1]
   639  E00007B 003759'         YSEGGN		LWORD	YSEGGIN		;[YSEGG]
   640  E00007E 003759'         EGG08N		LWORD	EGG08IN		;[EGG08]
   641  E000081 003759'         EGG09N		LWORD	EGG09IN		;[EGG09]
   642  E000084 000000"         NAMAZN		LWORD	NAMAZIN		;[NAMAZ]
   643  E000087 000000"         SLIMEN		LWORD	SLIMEIN		;[SLIME]
   644  E00008A 000000"         SLEYEN		LWORD	SLEYEIN		;[SLEYE]
   645  E00008D 000000"         NZANAN		LWORD	NZANAIN		;[NZANA]
   646  E000090 000000"         NEZMIN		LWORD	NEZMIIN		;[NEZMI]
   647  E000093 000000"         SANPON		LWORD	SANPOIN		;[SANPO]
   648  E000096 000000"         NZAN2N		LWORD	NZAN2IN		;[NZAN2]
   649  E000099 000000"         NEZM2N		LWORD	NEZM2IN		;[NEZM2]
   650  E00009C 000000"         TSUBON		LWORD	TSUBOIN		;[TSUBO]
   651  E00009F 000000"         OBAKEN		LWORD	OBAKEIN		;[OBAKE]
   652  E0000A2 000000"         IWATSN		LWORD	IWATSIN		;[IWATS]
   653  E0000A5 000000"         GHOSTN		LWORD	GHOSTIN		;[GHOST]
   654  E0000A8 000000"         OBFIRN		LWORD	OBFIRIN		;[OBFIR]
   655  E0000AB 000000"         POLY1N		LWORD	POLY1IN		;[POLY1]
   656  E0000AE 000000"         HINAQN		LWORD	HINAQIN		;[HINAQ]
   657  E0000B1 000000"         HINQ2N		LWORD	HINQ2IN		;[HINQ2]
   658  E0000B4 000000"         BOSSKN		LWORD	BOSSKIN		;[BOSSK]
   659  E0000B7 000000"         SESAWN		LWORD	SESAWIN		;[SESAW]
   660  E0000BA 000000"         MARUTN		LWORD	MARUTIN		;[MARUT]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0012

   661  E0000BD 000000"         BKSLMN		LWORD	BKSLMIN		;[BKSLM]
   662  E0000C0 000000"         LUIGIN		LWORD	LUIGIIN		;[LUIGI]
   663  E0000C3 000000"         KONOTN		LWORD	KONOTIN		;[KONOT]
   664  E0000C6 000000"         DNXG2N		LWORD	DNXG2IN		;[DNXG2]
   665  E0000C9 000000"         BHEIRN		LWORD	BHEIRIN		;[BHEIR]
   666  E0000CC 000000"         BHEIGN		LWORD	BHEIGIN		;[BHEIG]
   667  E0000CF 000000"         INGERN		LWORD	INGERIN		;[INGER]
   668  E0000D2 000000"         BBBRSN		LWORD	BBBRSIN		;[BBBRS]
   669  E0000D5 000000"         TBHIHN		LWORD	TBHIHIN		;[TBHIH]
   670  E0000D8 000000"         KAMC2N		LWORD	KAMC2IN		;[KAMC2]
   671  E0000DB 000000"         SWAVMN		LWORD	SWAVMIN		;[SWAVM]
   672  E0000DE 000000"         SWAV0N		LWORD	SWAV0IN		;[SWAV0]
   673  E0000E1 000000"         SWAV1N		LWORD	SWAV1IN		;[SWAV1]
   674  E0000E4 000000"         ZSAB2N		LWORD	ZSAB2IN		;[ZSAB2]
   675  E0000E7 000000"         KERO0N		LWORD	KERO0IN		;[KERO0]
   676  E0000EA 000000"         POLDRN		LWORD	POLDRIN		;[POLDR]
   677  E0000ED 000000"         GATE0N		LWORD	GATE0IN		;[GATE0]
   678  E0000F0 000000"         GITANN		LWORD	GITANIN		;[GITAN]
   679  E0000F3 000000"         FACE8N		LWORD	FACE8IN		;[FACE8]
   680  E0000F6 000000"         FUSENN		LWORD	FUSENIN		;[FUSEN]
   681  E0000F9 000000"         KAMCSN		LWORD	KAMCSIN		;[KAMCS]
   682  E0000FC 000000"         ZPAC3N		LWORD	ZPAC3IN		;[ZPAC3]
   683  E0000FF 000000"         MILL0N		LWORD	MILL0IN		;[MILL0]
   684  E000102 000000"         MILS0N		LWORD	MILS0IN		;[MILS0]
   685  E000105 000000"         BG3FLN		LWORD	BG3FLIN		;[BG3FL]
   686  E000108 000000"         DORBFN		LWORD	DORBFIN		;[DORBF]
   687  E00010B 000000"         CSTARN		LWORD	CSTARIN		;[CSTAR]
   688  E00010E 000000"         QSPAKN		LWORD	QSPAKIN		;[QSPAK]
   689  E000111 000000"         DORB2N		LWORD	DORB2IN		;[DORB2]
   690  E000114 000000"         DRBF2N		LWORD	DRBF2IN		;[DRBF2]
   691  E000117 000000"         HBLK5N		LWORD	HBLK5IN		;[HBLK5]
   692  E00011A 000000"         GITNSN		LWORD	GITNSIN		;[GITNS]
   693  E00011D 000000"         GITNLN		LWORD	GITNLIN		;[GITNL]
   694  E000120 000000"         BOMBXN		LWORD	BOMBXIN		;[BOMBX]
   695  E000123 000000"         BABYMN		LWORD	BABYMIN		;[BABYM]
   696  E000126 000000"         PANDAN		LWORD	PANDAIN		;[PANDA]
   697  E000129 000000"         BETO0N		LWORD	BETO0IN		;[BETO0]
   698  E00012C 000000"         MILL1N		LWORD	MILL1IN		;[MILL1]
   699  E00012F 000000"         COINRN		LWORD	COINRIN		;[COINR]
   700  E000132 000000"         ZPACKN		LWORD	ZPACKIN		;[ZPACK]
   701  E000135 000000"         HIMITN		LWORD	HIMITIN		;[HIMIT]
   702  E000138 000000"         HBLK2N		LWORD	HBLK2IN		;[HBLK2]
   703  E00013B 000000"         HBLK4N		LWORD	HBLK4IN		;[HBLK4]
   704  E00013E 000000"         HBLK3N		LWORD	HBLK3IN		;[HBLK3]
   705  E000141 000000"         HBLK7N		LWORD	HBLK7IN		;[HBLK7]
   706  E000144 000000"         JBLKLN		LWORD	JBLKLIN		;[JBLKL]
   707  E000147 000000"         PPCKLN		LWORD	PPCKLIN		;[PPCKL]
   708  E00014A 000000"         PPCKRN		LWORD	PPCKRIN		;[PPCKR]
   709  E00014D 000000"         JBLK0N		LWORD	JBLK0IN		;[JBLK0]
   710  E000150 000000"         KANI0N		LWORD	KANI0IN		;[KANI0]
   711  E000153 000000"         TELELN		LWORD	TELELIN		;[TELEL]
   712  E000156 000000"         RAKUGN		LWORD	RAKUGIN		;[RAKUG]
   713  E000159 000000"         PONPUN		LWORD	PONPUIN		;[PONPU]
   714  E00015C 000000"         GABONN		LWORD	GABONIN		;[GABON]
   715  E00015F 000000"         GABNBN		LWORD	GABNBIN		;[GABNB]
   716  E000162 000000"         SPRKLN		LWORD	SPRKLIN		;[SPRKL]
   717  E000165 000000"         SPRKRN		LWORD	SPRKRIN		;[SPRKR]
   718  E000168 000000"         DAI00N		LWORD	DAI00IN		;[DAI00]
   719  E00016B 000000"         DAI01N		LWORD	DAI01IN		;[DAI01]
   720  E00016E 000000"         DAI02N		LWORD	DAI02IN		;[DAI02]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0013

   721  E000171 000000"         KIL00N		LWORD	KIL00IN		;[KIL00]
   722  E000174 000000"         KIL01N		LWORD	KIL01IN		;[KIL01]
   723  E000177 000000"         KIL02N		LWORD	KIL02IN		;[KIL02]
   724  E00017A 000000"         DWNBGN		LWORD	DWNBGIN		;[DWNBG]
   725  E00017D 000000"         FYUKAN		LWORD	FYUKAIN		;[FYUKA]
   726  E000180 000000"         ZBUB0N		LWORD	ZBUB0IN		;[ZBUB0]
   727  E000183 000000"         ZBUB1N		LWORD	ZBUB1IN		;[ZBUB1]
   728  E000186 000000"         WANG0N		LWORD	WANG0IN		;[WANG0]
   729  E000189 000000"         BGKM0N		LWORD	BGKM0IN		;[BGKM0]
   730  E00018C 000000"         NEXTGN		LWORD	NEXTGIN		;[NEXTG]
   731  E00018F 000000"         HARION		LWORD	HARIOIN		;[HARIO]
   732  E000192 000000"         COIN0N		LWORD	COIN0IN		;[COIN0]
   733  E000195 000000"         EG1UPN		LWORD	EG1UPIN		;[EG1UP]
   734  E000198 000000"         MSTARN		LWORD	MSTARIN		;[MSTAR]
   735  E00019B 000000"         NLFLRN		LWORD	NLFLRIN		;[NLFLR]
   736  E00019E 000000"         NLFUDN		LWORD	NLFUDIN		;[NLFUD]
   737  E0001A1 000000"         FBOM0N		LWORD	FBOM0IN		;[FBOM0]
   738  E0001A4 000000"         GOLYSN		LWORD	GOLYSIN		;[GOLYS]
   739  E0001A7 000000"         MC1UPN		LWORD	MC1UPIN		;[MC1UP]
   740  E0001AA 000000"         KAMC3N		LWORD	KAMC3IN		;[KAMC3]
   741  E0001AD 000000"         OSARUN		LWORD	OSARUIN		;[OSARU]
   742  E0001B0 000000"         BG3KTN		LWORD	BG3KTIN		;[BG3KT]
   743  E0001B3 000000"         DEATHN		LWORD	DEATHIN		;[DEATH]
   744  E0001B6 000000"         KOROGN		LWORD	KOROGIN		;[KOROG]
   745  E0001B9 000000"         ZDOORN		LWORD	ZDOORIN		;[ZDOOR]
   746  E0001BC 000000"         HBLK6N		LWORD	HBLK6IN		;[HBLK6]
   747  E0001BF 000000"         BLKLFN		LWORD	BLKLFIN		;[BLKLF]
   748  E0001C2 000000"         BLKL2N		LWORD	BLKL2IN		;[BLKL2]
   749  E0001C5 000000"         POWSWN		LWORD	POWSWIN		;[POWSW]
   750  E0001C8 000000"         WARPSN		LWORD	WARPSIN		;[WARPS]
   751  E0001CB 000000"         JTAM2N		LWORD	JTAM2IN		;[JTAM2]
   752  E0001CE 000000"         ROTLFN		LWORD	ROTLFIN		;[ROTLF]
   753  E0001D1 000000"         GABN2N		LWORD	GABN2IN		;[GABN2]
   754  E0001D4 000000"         GBNB2N		LWORD	GBNB2IN		;[GBNB2]
   755  E0001D7 000000"         SW000N		LWORD	SW000IN		;[SW000]
   756  E0001DA 000000"         MBALLN		LWORD	MBALLIN		;[MBALL]
   757  E0001DD 000000"         ZPAC2N		LWORD	ZPAC2IN		;[ZPAC2]
   758  E0001E0 000000"         TULIPN		LWORD	TULIPIN		;[TULIP]
   759  E0001E3 000000"         HACHIN		LWORD	HACHIIN		;[HACHI]
   760  E0001E6 000000"         GENKIN		LWORD	GENKIIN		;[GENKI]
   761  E0001E9 000000"         DORBLN		LWORD	DORBRIN		;[DORBL]
   762  E0001EC 000000"         DORBRN		LWORD	DORBRIN		;[DORBR]
   763  E0001EF 000000"         UNBABN		LWORD	UNBABIN		;[UNBAB]
   764  E0001F2 000000"         AWANGN		LWORD	AWANGIN		;[AWANG]
   765  E0001F5 000000"         AWANMN		LWORD	AWANMIN		;[AWANM]
   766  E0001F8 000000"         AWANSN		LWORD	AWANSIN		;[AWANS]
   767  E0001FB 000000"         AWANPN		LWORD	AWANPIN		;[AWANP]
   768  E0001FE 000000"         SHEIHN		LWORD	SHEIHIN		;[SHEIH]
   769  E000201 000000"         ITEGGN		LWORD	ITEGGIN		;[ITEGG]
   770  E000204 000000"         KPBKGN		LWORD	KPBKGIN		;[KPBKG]
   771  E000207 000000"         MSGBXN		LWORD	MSGBXIN		;[MSGBX]
   772  E00020A 000000"         BOSS0N		LWORD	BOSS0IN		;[BOSS0]
   773  E00020D 004183'         CHG00N		LWORD	CHG00IN		;[CHG00]
   774  E000210 004183'         CHG01N		LWORD	CHG01IN		;[CHG01]
   775  E000213 004183'         CHG02N		LWORD	CHG02IN		;[CHG02]
   776  E000216 004183'         CHG03N		LWORD	CHG03IN		;[CHG03]
   777  E000219 001A6B'         PUUUUN		LWORD	RTLSUB		;[PUUUU]
   778  E00021C 004183'         CHG05N		LWORD	CHG05IN		;[CHG05]
   779  E00021F 00407F'         QKM00N		LWORD	QKM00IN		;[QKM00]
   780  E000222 004179'         QKM01N		LWORD	QKM01IN		;[QKM01]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0014

   781  E000225 004179'         QKM02N		LWORD	QKM02IN		;[QKM02]
   782  E000228 004179'         QKM03N		LWORD	QKM03IN		;[QKM03]
   783  E00022B 0041C0'         QKM04N		LWORD	QKM04IN		;[QKM04]
   784  E00022E 0041C0'         QKM05N		LWORD	QKM05IN		;[QKM05]
   785  E000231 0041C0'         QKM06N		LWORD	QKM06IN		;[QKM06]
   786  E000234 0041C0'         QKM07N		LWORD	QKM07IN		;[QKM07]
   787  E000237 004179'         QKM08N		LWORD	QKM08IN		;[QKM08]
   788  E00023A 0041A2'         QKM09N		LWORD	QKM09IN		;[QKM09]
   789  E00023D 004179'         QKM0AN		LWORD	QKM0AIN		;[QKM0A]
   790  E000240 004179'         QKM0BN		LWORD	QKM0BIN		;[QKM0B]
   791  E000243 004179'         QKM0CN		LWORD	QKM0CIN		;[QKM0C]
   792  E000246 0041C0'         QKM0DN		LWORD	QKM0DIN		;[QKM0D]
   793  E000249 0041C0'         QKM0EN		LWORD	QKM0EIN		;[QKM0E]
   794  E00024C 0041C0'         QKM0FN		LWORD	QKM0FIN		;[QKM0F]
   795  E00024F 0041C0'         QKM10N		LWORD	QKM10IN		;[QKM10]
   796  E000252 0041C0'         QKM11N		LWORD	QKM11IN		;[QKM11]
   797  E000255 0041C0'         QKM12N		LWORD	QKM12IN		;[QKM12]
   798  E000258 0041C0'         QKM13N		LWORD	QKM13IN		;[QKM13]
   799  E00025B 0041C0'         QKM14N		LWORD	QKM14IN		;[QKM14]
   800  E00025E 000000"         LBSDRN		LWORD	LBSDRIN		;[LBSDR]
   801  E000261 0041C4'         QKM16N		LWORD	QKM16IN		;[QKM16]
   802  E000264 004179'         QKM17N		LWORD	QKM17IN		;[QKM17]
   803  E000267 000000"         FKPBMN		LWORD	FKPBMIN		;[FKPBM]
   804  E00026A 000000"         KPFIRN		LWORD	KPFIRIN		;[KPFIR]
   805  E00026D 000000"         KPBLKN		LWORD	KPBLKIN		;[KPBLK]
   806  E000270 000000"         SNXGON		LWORD	SNXGOIN		;[SNXGO]
   807  E000273 000000"         DNXGON		LWORD	DNXGOIN		;[DNXGO]
   808  E000276 000000"         PUCHAN		LWORD	PUCHAIN		;[PUCHA]
   809  E000279 000000"         PUCHGN		LWORD	PUCHGIN		;[PUCHG]
   810  E00027C 000000"         PUCHBN		LWORD	PUCHBIN		;[PUCHB]
   811  E00027F 000000"         BG_00N		LWORD	BG_00IN		;[BG_00]
   812  E000282 000000"         BG3ULN		LWORD	BG3ULIN		;[BG3UL]
   813  E000285 000000"         BKMKJN		LWORD	BKMKJIN		;[BKMKJ]
   814  E000288 000000"         AW_FGN		LWORD	AW_FGIN		;[AW_FG]
   815  E00028B 000000"         TJUGMN		LWORD	TJUGMIN		;[TJUGM]
   816  E00028E 000000"         TTUBON		LWORD	TTUBOIN		;[TTUBO]
   817  E000291 000000"         BG3BLN		LWORD	BG3BLIN		;[BG3BL]
   818  E000294 000000"         YGORON		LWORD	YGOROIN		;[YGORO]
   819  E000297 000000"         DMPLCN		LWORD	DMPLCIN		;[DMPLC]
   820  E00029A 000000"         ON_DWN		LWORD	ON_DWIN		;[ON_DW]
   821  E00029D 000000"         WPKPKN		LWORD	WPKPKIN		;[WPKPK]
   822  E0002A0 000000"         JFISHN		LWORD	JFISHIN		;[JFISH]
   823  E0002A3 000000"         HBNBNN		LWORD	HBNBNIN		;[HBNBN]
   824  E0002A6 000000"         BOBK0N		LWORD	BOBK0IN		;[BOBK0]
   825  E0002A9 000000"         BOBK1N		LWORD	BOBK1IN		;[BOBK1]
   826  E0002AC 000000"         HSAN0N		LWORD	HSAN0IN		;[HSAN0]
   827  E0002AF 000000"         HSAN1N		LWORD	HSAN1IN		;[HSAN1]
   828  E0002B2 000000"         TUMUJN		LWORD	TUMUJIN		;[TUMUJ]
   829  E0002B5 000000"         BBROSN		LWORD	BBROSIN		;[BBROS]
   830  E0002B8 000000"         AHOBDN		LWORD	AHOBDIN		;[AHOBD]
   831  E0002BB 000000"         AHOB2N		LWORD	AHOB2IN		;[AHOB2]
   832  E0002BE 000000"         OTAMAN		LWORD	OTAMAIN		;[OTAMA]
   833  E0002C1 000000"         OTAMHN		LWORD	OTAMHIN		;[OTAMH]
   834  E0002C4 000000"         VOWVWN		LWORD	VOWVWIN		;[VOWVW]
   835  E0002C7 000000"         VOWV2N		LWORD	VOWV2IN		;[VOWV2]
   836  E0002CA 000000"         NIKOPN		LWORD	NIKOPIN		;[NIKOP]
   837  E0002CD 000000"         NIKP2N		LWORD	NIKP2IN		;[NIKP2]
   838  E0002D0 000000"         NIKP3N		LWORD	NIKP3IN		;[NIKP3]
   839  E0002D3 000000"         BBFLWN		LWORD	BBFLWIN		;[BBFLW]
   840  E0002D6 000000"         TAKEHN		LWORD	TAKEHIN		;[TAKEH]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0015

   841  E0002D9 000000"         MSHIHN		LWORD	MSHIHIN		;[MSHIH]
   842  E0002DC 000000"         EGFLWN		LWORD	EGFLWIN		;[EGFLW]
   843  E0002DF 000000"         BATSNN		LWORD	BATSNIN		;[BATSN]
   844  E0002E2 000000"         KAMO0N		LWORD	KAMO0IN		;[KAMO0]
   845  E0002E5 000000"         AWAFKN		LWORD	AWAFKIN		;[AWAFK]
   846  E0002E8 000000"         ZSABON		LWORD	ZSABOIN		;[ZSABO]
   847  E0002EB 000000"         STAMAN		LWORD	STAMAIN		;[STAMA]
   848  E0002EE 000000"         ZFLWRN		LWORD	ZFLWRIN		;[ZFLWR]
   849  E0002F1 000000"         YARIHN		LWORD	YARIHIN		;[YARIH]
   850  E0002F4 000000"         YARH2N		LWORD	YARH2IN		;[YARH2]
   851  E0002F7 000000"         KARATN		LWORD	KARATIN		;[KARAT]
   852  E0002FA 000000"         ENRGBN		LWORD	ENRGBIN		;[ENRGB]
   853  E0002FD 000000"         POCHIN		LWORD	POCHIIN		;[POCHI]
   854  E000300 000000"         PUPBBN		LWORD	PUPBBIN		;[PUPBB]
   855  E000303 000000"         GURU1N		LWORD	GURU1IN		;[GURU1]
   856  E000306 000000"         GURU2N		LWORD	GURU2IN		;[GURU2]
   857  E000309 000000"         GHEIHN		LWORD	GHEIHIN		;[GHEIH]
   858  E00030C 000000"         BFISHN		LWORD	BFISHIN		;[BFISH] 骨魚
   859  E00030F 000000"         HOMOLN		LWORD	HOMOLIN		;[HOMOL]
   860  E000312 000000"         HOMORN		LWORD	HOMORIN		;[HOMOR]
   861  E000315 000000"         SUIKTN		LWORD	SUIKTIN		;[SUIKT]
   862  E000318 000000"         PONTAN		LWORD	PONTAIN		;[PONTA]
   863  E00031B 000000"         KATI0N		LWORD	KATI0IN		;[KATI0]
   864  E00031E 000000"         KATI1N		LWORD	KATI1IN		;[KATI1]
   865  E000321 000000"         KATI2N		LWORD	KATI2IN		;[KATI2]
   866  E000324 000000"         DOSUNN		LWORD	DOSUNIN		;[DOSUN]
   867  E000327 000000"         DHEIHN		LWORD	DHEIHIN		;[DHEIH]
   868  E00032A 000000"         TRBOXN		LWORD	TRBOXIN		;[TRBOX]
   869  E00032D 000000"         BTELEN		LWORD	BTELEIN		;[BTELE]
   870  E000330 000000"         ZFLW2N		LWORD	ZFLW2IN		;[ZFLW2]
   871  E000333 000000"         PURINN		LWORD	PURININ		;[PURIN]
   872  E000336 000000"         PURI0N		LWORD	PURI0IN		;[PURI0]
   873  E000339 000000"         MCHO2N		LWORD	MCHO2IN		;[MCHO2]
   874  E00033C 000000"         BULETN		LWORD	BULETIN		;[BULET]
   875  E00033F 000000"         COIN1N		LWORD	COIN1IN		;[COIN1]
   876  E000342 000000"         FLOATN		LWORD	FLOATIN		;[FLOAT]
   877  E000345 000000"         TIKU0N		LWORD	TIKU0IN		;[TIKU0]
   878  E000348 000000"         TIKU1N		LWORD	TIKU1IN		;[TIKU1]
   879  E00034B 000000"         NUNOON		LWORD	NUNOOIN		;[NUNOO]
   880  E00034E 000000"         MITSNN		LWORD	MITSNIN		;[MITSN]
   881  E000351 000000"         JUGEMN		LWORD	JUGEMIN		;[JUGEM]
   882  E000354 000000"         KINTON		LWORD	KINTOIN		;[KINTO]
   883  E000357 000000"         JTAMAN		LWORD	JTAMAIN		;[JTAMA]
   884  E00035A 000000"         RLTLFN		LWORD	RLTLFIN		;[RLTLF]
   885  E00035D 000000"         RLTL2N		LWORD	RLTL2IN		;[RLTL2]
   886  E000360 000000"         RLTL3N		LWORD	RLTL3IN		;[RLTL3]
   887  E000363 000000"         CNTLFN		LWORD	CNTLFIN		;[CNTLF]
   888  E000366 000000"         BAK20N		LWORD	BAK20IN		;[BAK20]
   889  E000369 000000"         BAK21N		LWORD	BAK21IN		;[BAK21]
   890  E00036C 000000"         ARIH0N		LWORD	ARIH0IN		;[ARIH0]
   891  E00036F 000000"         KAMC4N		LWORD	KAMC4IN		;[KAMC4]
   892  E000372 000000"         MAKI0N		LWORD	MAKI0IN		;[MAKI0]
   893  E000375 000000"         MAKI1N		LWORD	MAKI1IN		;[MAKI1]
   894  E000378 000000"         FWAVEN		LWORD	FWAVEIN		;[FWAVE]
   895  E00037B 000000"         WATABN		LWORD	WATABIN		;[WATAB]
   896  E00037E 000000"         KUSAHN		LWORD	KUSAHIN		;[KUSAH]
   897  E000381 000000"         DEBU0N		LWORD	DEBU0IN		;[DEBU0]
   898  E000384 000000"         COMCHN		LWORD	COMCHIN		;[COMCH]
   899  E000387 000000"         YOSSYN		LWORD	YOSSYIN		;[YOSSY]
   900  E00038A 000000"         BG3EXN		LWORD	BG3EXIN		;[BG3EX]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0016

   901  E00038D 000000"         FHOTMN		LWORD	FHOTMIN		;[FHOTM]
   902  E000390 000000"         FVOTMN		LWORD	FVOTMIN		;[FVOTM]
   903  E000393 000000"         KEYDRN		LWORD	KEYDRIN		;[KEYDR]
   904  E000396 000000"         SSLIMN		LWORD	SSLIMIN		;[SSLIM]
   905  E000399 000000"         CHKH0N		LWORD	CHKH0IN		;[CHKH0]
   906  E00039C 000000"         KOOPAN		LWORD	KOOPAIN		;[KOOPA]
   907  E00039F 000000"         QCHANN		LWORD	QCHANIN		;[QCHAN]
   908  E0003A2 000000"         QCHN2N		LWORD	QCHN2IN		;[QCHN2]
   909  E0003A5 000000"         DWBL0N		LWORD	DWBL0IN		;[DWBL0]
   910  E0003A8 000000"         DWBL1N		LWORD	DWBL1IN		;[DWBL1]
   911  E0003AB 000000"         DWBL2N		LWORD	DWBL2IN		;[DWBL2]
   912  E0003AE 000000"         DWBL3N		LWORD	DWBL3IN		;[DWBL3]
   913  E0003B1 000000"         IEKI0N		LWORD	IEKI0IN		;[IEKI0]
   914  E0003B4 000000"         FLIPPN		LWORD	FLIPPIN		;[FLIPP]
   915  E0003B7 000000"         KOMO0N		LWORD	KOMO0IN		;[KOMO0]
   916  E0003BA 000000"         KOMO1N		LWORD	KOMO1IN		;[KOMO1]
   917  E0003BD 000000"         PKPK0N		LWORD	PKPK0IN		;[PKPK0]
   918  E0003C0 000000"         PKPK1N		LWORD	PKPK1IN		;[PKPK1]
   919  E0003C3 000000"         PKPK2N		LWORD	PKPK2IN		;[PKPK2]
   920  E0003C6 000000"         PKPK3N		LWORD	PKPK3IN		;[PKPK3]
   921  E0003C9 000000"         TEPPON		LWORD	TEPPOIN		;[TEPPO]
   922  E0003CC 000000"         FLIPHN		LWORD	FLIPHIN		;[FLIPH]
   923  E0003CF 000000"         KEME0N		LWORD	KEME0IN		;[KEME0]
   924  E0003D2 000000"         KEME1N		LWORD	KEME1IN		;[KEME1]
   925  E0003D5 000000"         SNXG2N		LWORD	SNXG2IN		;[SNXG2]
   926  E0003D8 000000"         JBKL2N		LWORD	JBKL2IN		;[JBKL2]
   927  E0003DB 000000"         REFC0N		LWORD	REFC0IN		;[REFC0]
   928  E0003DE 000000"         REFC1N		LWORD	REFC1IN		;[REFC1]
   929  E0003E1 000000"         REFC2N		LWORD	REFC2IN		;[REFC2]
   930  E0003E4 000000"         REFC3N		LWORD	REFC3IN		;[REFC3]
   931  E0003E7 000000"         REFC4N		LWORD	REFC4IN		;[REFC4]
   932  E0003EA 000000"         REFC5N		LWORD	REFC5IN		;[REFC5]
   933  E0003ED 000000"         REFC6N		LWORD	REFC6IN		;[REFC6]
   934  E0003F0 000000"         REFC7N		LWORD	REFC7IN		;[REFC7]
   935  E0003F3 000000"         REFC8N		LWORD	REFC8IN		;[REFC8]
   936  E0003F6 000000"         MOTH0N		LWORD	MOTH0IN		;[MOTH0]
   937  E0003F9 000000"         BAHOBN		LWORD	BAHOBIN		;[BAHOB]
   938  E0003FC 000000"         AWANHN		LWORD	AWANHIN		;[AWANH]
   939  E0003FF 000000"         DBAHON		LWORD	DBAHOIN		;[DBAHO]
   940  E000402 000000"         MATO0N		LWORD	MATO0IN		;[MATO0]
   941  E000405 000000"         AJGM0N		LWORD	AJGM0IN		;[AJGM0]
   942  E000408 000000"         DBAH2N		LWORD	DBAH2IN		;[DBAH2]
   943  E00040B 000000"         TONG0N		LWORD	TONG0IN		;[TONG0]
   944  E00040E 000000"         TONG1N		LWORD	TONG1IN		;[TONG1]
   945  E000411 000000"         BAMBON		LWORD	BAMBOIN		;[BAMBO]
   946  E000414 000000"         RBLKGN		LWORD	RBLKGIN		;[RBLKG]
   947  E000417 000000"         RBLKYN		LWORD	RBLKYIN		;[RBLKY]
   948  E00041A 000000"         MILL2N		LWORD	MILL2IN		;[MILL2]
   949  E00041D 000000"         RFLSGN		LWORD	RFLSGIN		;[RFLSG]
   950  E000420 000000"         RFLSYN		LWORD	RFLSYIN		;[RFLSY]
   951  E000423 000000"         HIMI2N		LWORD	HIMI2IN		;[HIMI2]
   952  E000426 000000"         RFLLGN		LWORD	RFLLGIN		;[RFLLG]
   953  E000429 000000"         SABO0N		LWORD	SABO0IN		;[SABO0]
   954  E00042C 000000"         P_KN2N		LWORD	P_KN2IN		;[P_KN2]
   955  E00042F 000000"         P_KUNN		LWORD	P_KUNIN		;[P_KUN]
   956  E000432 000000"         THJGMN		LWORD	THJGMIN		;[THJGM]
   957  E000435 000000"         KORA0N		LWORD	KORA0IN		;[KORA0]
   958  E000438 000000"         KORA1N		LWORD	KORA1IN		;[KORA1]
   959  E00043B 000000"         HNOK0N		LWORD	HNOK0IN		;[HNOK0]
   960  E00043E 000000"         HNOK1N		LWORD	HNOK1IN		;[HNOK1]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0017

   961  E000441 000000"         NKNK0N		LWORD	NKNK0IN		;[NKNK0]
   962  E000444 000000"         NKNK1N		LWORD	NKNK1IN		;[NKNK1]
   963  E000447 000000"         PTPT0N		LWORD	PTPT0IN		;[PTPT0]
   964  E00044A 000000"         PTPT1N		LWORD	PTPT1IN		;[PTPT1]
   965  E00044D 000000"         PTPT2N		LWORD	PTPT2IN		;[PTPT2]
   966  E000450 000000"         JGEMWN		LWORD	JGEMWIN		;[JGEMW]
   967  E000453 000000"         MPACKN		LWORD	MPACKIN		;[MPACK]
   968  E000456 000000"         MPACHN		LWORD	MPACHIN		;[MPACH]
   969  E000459 000000"         FUSN0N		LWORD	FUSN0IN		;[FUSN0]
   970  E00045C 000000"         FUSN1N		LWORD	FUSN1IN		;[FUSN1]
   971  E00045F 000000"         FUSN2N		LWORD	FUSN2IN		;[FUSN2]
   972  E000462 000000"         FUSN3N		LWORD	FUSN3IN		;[FUSN3]
   973  E000465 000000"         FUSN4N		LWORD	FUSN4IN		;[FUSN4]
   974  E000468 000000"         FUSN5N		LWORD	FUSN5IN		;[FUSN5]
   975  E00046B 000000"         FUSN6N		LWORD	FUSN6IN		;[FUSN6]
   976  E00046E 000000"         FUSN7N		LWORD	FUSN7IN		;[FUSN7]
   977  E000471 000000"         FUSN8N		LWORD	FUSN8IN		;[FUSN8]
   978  E000474 000000"         FUSN9N		LWORD	FUSN9IN		;[FUSN9]
   979  E000477 000000"         FUSNaN		LWORD	FUSNaIN		;[FUSNa]
   980  E00047A 000000"         FUSNbN		LWORD	FUSNbIN		;[FUSNb]
   981  E00047D 000000"         BALONN		LWORD	BALONIN		;[BALON]
   982  E000480 000000"         RMARUN		LWORD	RMARUIN		;[RMARU]
   983  E000483 000000"         PANSYN		LWORD	PANSYIN		;[PANSY]
   984  E000486 000000"         DGFLYN		LWORD	DGFLYIN		;[DGFLY] とんぼ
   985  E000489 000000"         BTFLYN		LWORD	BTFLYIN		;[BTFLY] 蝶々
   986  E00048C 000000"         TARKNN		LWORD	TARKNIN		;[TARKN] ターくん
   987  E00048F 000000"         NRLF0N		LWORD	NRLF0IN		;[NRLF0]
   988  E000492 000000"         NRLF1N		LWORD	NRLF1IN		;[NRLF1]
   989  E000495 000000"         HRLF0N		LWORD	HRLF0IN		;[HRLF0]
   990  E000498 000000"         HRLF1N		LWORD	HRLF1IN		;[HRLF1]
   991  E00049B 000000"         NRLF2N		LWORD	NRLF2IN		;[NRLF2]
   992  E00049E 000000"         NRLF3N		LWORD	NRLF3IN		;[NRLF3]
   993  E0004A1 000000"         HRLF2N		LWORD	HRLF2IN		;[HRLF2]
   994  E0004A4 000000"         HRLF3N		LWORD	HRLF3IN		;[HRLF3]
   995  E0004A7 000000"         SRLF0N		LWORD	SRLF0IN		;[SRLF0]
   996  E0004AA 000000"         SRLF1N		LWORD	SRLF1IN		;[SRLF1]
   997  E0004AD 000000"         GRPLFN		LWORD	GRPLFIN		;[GRPLF]
   998  E0004B0 000000"         TURARN		LWORD	TURARIN		;[TURAR]
   999  E0004B3 000000"         SUZUMN		LWORD	SUZUMIN		;[SUZUM]
  1000  E0004B6 000000"         FLWH0N		LWORD	FLWH0IN		;[FLWH0]
  1001  E0004B9 000000"         BG3DON		LWORD	BG3DOIN		;[BG3DO] ＢＧ３土管おばけ
  1002  E0004BC 000000"         KOUNBN		LWORD	KOUNBIN		;[KOUNB] 子ウンババ
  1003  E0004BF 000000"         GRCKSN		LWORD	GRCKSIN		;[GRCKS] ぐらぐら岩
  1004  E0004C2 000000"         GROCKN		LWORD	GROCKIN		;[GROCK] ぐらぐら岩
  1005  E0004C5 000000"         YAJI0N		LWORD	YAJI0IN		;[YAJI0] 矢印
  1006  E0004C8 000000"         YAJI1N		LWORD	YAJI1IN		;[YAJI1] 矢印(斜め)
  1007  E0004CB 000000"         NISEFN		LWORD	NISEFIN		;[NISEF] 偽フラワー
  1008  E0004CE 000000"         GSTH0N		LWORD	GSTH0IN		;[GSTH0] 幽霊ヘイホー
  1009  E0004D1 000000"         STRKNN		LWORD	STRKNIN		;[STRKN] ターくん２号(スライディングターくん)
  1010  E0004D4 000000"         FTRKNN		LWORD	FTRKNIN		;[FTRKN] ターくん３号(フライングターくん)
  1011  E0004D7 000000"         BATSAN		LWORD	BATSAIN		;[BATSA] 骨あほーどり
  1012  E0004DA 000000"         BATSBN		LWORD	BATSBIN		;[BATSB] 骨あほーどり(地上)
  1013  E0004DD 000000"         BATSCN		LWORD	BATSCIN		;[BATSC] 爆撃骨あほーどり
  1014  E0004E0 000000"         FIRBRN		LWORD	FIRBRIN		;[FIRBR] 炎の棒
  1015  E0004E3 000000"         FIRB2N		LWORD	FIRB2IN		;[FIRB2] 炎の棒
  1016  E0004E6 000000"         TIMKNN		LWORD	TIMKNIN		;[TIMKN] タイムくん
  1017  E0004E9 000000"         SKLNZN		LWORD	SKLNZIN		;[SKLNZ] 骸骨鼠
  1018  E0004EC 000000"         CORKSN		LWORD	CORKSIN		;[CORKS] フカンコースの栓
  1019  E0004EF 000000"         MONK0N		LWORD	MONK0IN		;[MONK0] 逃げ猿［２］
  1020  E0004F2 000000"         MONK1N		LWORD	MONK1IN		;[MONK1] 種ふき猿
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0018

  1021  E0004F5 000000"         MONK2N		LWORD	MONK2IN		;[MONK2] 投げ猿
  1022  E0004F8 000000"         MONK3N		LWORD	MONK3IN		;[MONK3] さらい猿
  1023  E0004FB 000000"         MONK4N		LWORD	MONK4IN		;[MONK4] インベーダー猿
  1024  E0004FE 000000"         YGFSHN		LWORD	YGFSHIN		;[YGFSH] 溶岩鉄砲魚
  1025  E000501 000000"         BLTLSN		LWORD	BLTLSIN		;[BLTLS] バルーンテレサ
  1026  E000504 000000"         KOKERN		LWORD	KOKERIN		;[KOKER] 子蛙
  1027  E000507 000000"         KAMECN		LWORD	KAMECIN		;[KAMEC] カメック
  1028  E00050A 000000"         MAGICN		LWORD	MAGICIN		;[MAGIC] カメック魔法
  1029  E00050D 000000"         COIN2N		LWORD	COIN2IN		;[COIN2] コイン
  1030  E000510 000000"         BG3LFN		LWORD	BG3LFIN		;[BG3LF] ＢＧ３リフト
  1031                          ;
  1032  E000513 000000"         M_THON		LWORD	M_THOIN		;[M_THO] ※ミニゲーム用（砲台）
  1033  E000516 000000"         M_TAMN		LWORD	M_TAMIN		;[M_TAM] ※ミニゲーム用（弾）
  1034  E000519 000000"         M_DR0N		LWORD	M_DR0IN		;[M_DR0] ※ミニゲーム用（ドロボー１）
  1035  E00051C 000000"         M_LIFN		LWORD	M_LIFIN		;[M_LIF] ※ミニゲーム用（リフト）
  1036  E00051F 000000"         M_DR2N		LWORD	M_DR2IN		;[M_DR2] ※ミニゲーム用（ドロボー３）
  1037  E000522 000000"         M_FUSN		LWORD	M_FUSIN		;[M_FUS] ※ミニゲーム用（風船）
  1038  E000525 000000"         M_DR4N		LWORD	M_DR4IN		;[M_DR4] ※ミニゲーム用（ドロボー５）
  1039  E000528 000000"         M_SUIN		LWORD	M_SUIIN		;[M_SUI] ※ミニゲーム用（西瓜湧きだし）
  1040  E00052B 000000"         M_DR5N		LWORD	M_DR5IN		;[M_SU1] ※ミニゲーム用（ドロボー６）
  1041                          ;
  1042          00052E          ENENDN		EQU	$
  1043                          ;
  1044                          ;****************************************************************
  1045                          ;*		enemy name					*
  1046                          ;****************************************************************
  1047          00052E          ENMY_NAME	EQU	$
  1048          000000          WAVLF		EQU	(WAVLFN-EINADR)/3	;溶岩サーフィン丸太横
  1049                          ;							（Ｘ：０−＞溶岩に浮く）
  1050                          ;							（    １−＞ＢＧ３水に浮く）
  1051          000001          CDOOR		EQU	(CDOORN-EINADR)/3	;クローズドア（一方通行ドア）
  1052          000002          MPACW		EQU	(MPACWN-EINADR)/3	;×^マザーパックンのつた
  1053          000003          TRBX2		EQU	(TRBX2N-EINADR)/3	;鍵がでてくる宝箱
  1054          000004          MRBLK		EQU	(MRBLKN-EINADR)/3	;ハテナブロック
  1055          000005          COLD0		EQU	(COLD0N-EINADR)/3	;氷の息のでる実(氷スイカ）
  1056          000006          COLDX		EQU	(COLDXN-EINADR)/3	;×^アイスブレス
  1057          000007          SUIKA		EQU	(SUIKAN-EINADR)/3	;すいか
  1058          000008          KPEXB		EQU	(KPEXBN-EINADR)/3	;×大クッパ効果ブロック
  1059          000009          FIRE0		EQU	(FIRE0N-EINADR)/3	;火を吹く実(火スイカ）
  1060          00000A          TAIH0		EQU	(TAIH0N-EINADR)/3	;大砲
  1061          00000B          BOMB0		EQU	(BOMB0N-EINADR)/3	;×^大砲のたま
  1062          00000C          BOSSQ		EQU	(BOSSQN-EINADR)/3	;ボスＱちゃん
  1063          00000D          GOAL1		EQU	(GOAL1N-EINADR)/3	;ゴールタイプ１（ヨッシーカラー緑）
  1064          00000E          GOALX		EQU	(GOALXN-EINADR)/3	;ゴール文字
  1065          00000F          BONSX		EQU	(BONSXN-EINADR)/3	;ボーナス文字
  1066                          ;10h
  1067          000010          BG3D2		EQU	(BG3D2N-EINADR)/3	;土管お化け２号
  1068          000011          M_ITM		EQU	(M_ITMN-EINADR)/3	;※ミニゲーム用獲得アイテム
  1069          000012          BOSDR		EQU	(BOSDRN-EINADR)/3	;ボスドア
  1070          000013          BSCLW		EQU	(BSCLWN-EINADR)/3	;ボスクリアーウィンドウ効果
  1071          000014          BSCLR		EQU	(BSCLRN-EINADR)/3	;ボスクリアーデモ
  1072          000015          MISA0		EQU	(MISA0N-EINADR)/3	;×^潜水艦ヨッシーの魚雷
  1073          000016          DTELE		EQU	(DTELEN-EINADR)/3	;ダイナミックテレサ（ボス）
  1074          000017          GEROZ		EQU	(GEROZN-EINADR)/3	;げろぞー
  1075          000018          FIREX		EQU	(FIREXN-EINADR)/3	;×^プレイヤー火
  1076          000019          SOPB0		EQU	(SOPB0N-EINADR)/3	;×^プレイヤーあわ
  1077          00001A          SKILF		EQU	(SKILFN-EINADR)/3	;スキーリフト
  1078          00001B          WTRLF		EQU	(WTRLFN-EINADR)/3	;浮きリフト（丸太縦）
  1079                          ;							（Ｘ：０−＞溶岩に浮く）
  1080                          ;							（    １−＞ＢＧ３水に浮く）
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0019

  1081          00001C          YUKID		EQU	(YUKIDN-EINADR)/3	;雪ダルマ
  1082                          ;						  Ｘ	０	 １
  1083                          ;						Ｙ
  1084                          ;						０	空っぽ	 タイムスター
  1085                          ;						１	１ＵＰ	 タークン
  1086                          ;
  1087          00001D          YKDLF		EQU	(YKDLFN-EINADR)/3	;雪ダルマリフト
  1088          00001E          HEIH0		EQU	(HEIH0N-EINADR)/3	;ヘイホー（土管の左上セットでわきだしヘイホー）
  1089                          ;						  Ｘ	０	 １
  1090                          ;						Ｙ
  1091                          ;						０	緑	 赤
  1092                          ;						１	黄     ピンク
  1093                          ;
  1094          00001F          RDOOR		EQU	(RDOORN-EINADR)/3	;ルーレットドア
  1095                          ;20h
  1096          000020          DOROB		EQU	(DOROBN-EINADR)/3	;どろぼう君
  1097          000021          BAKLF		EQU	(BAKLFN-EINADR)/3	;バケツリフト
  1098                          ;							（Ｘ：０−＞溶岩に浮く）
  1099                          ;							（    １−＞ＢＧ３水に浮く）
  1100          000022          EGG00		EQU	(EGG00N-EINADR)/3	;赤たまご
  1101          000023          EGG02		EQU	(EGG02N-EINADR)/3	;ピンクたまご
  1102          000024          EGG01		EQU	(EGG01N-EINADR)/3	;黄たまご
  1103          000025          EGG03		EQU	(EGG03N-EINADR)/3	;緑たまご
  1104          000026          KPBOM		EQU	(KPBOMN-EINADR)/3	;大クッパ用投げ爆弾
  1105          000027          DRKEY		EQU	(DRKEYN-EINADR)/3	;かぎ（単体）
  1106          000028          KAMO1		EQU	(KAMO1N-EINADR)/3	;カルガモ子
  1107          000029          YSEGG		EQU	(YSEGGN-EINADR)/3	;×^マリオ変身中のヨッシータマゴ
  1108          00002A          EGG08		EQU	(EGG08N-EINADR)/3	;たまご（大）
  1109          00002B          EGG09		EQU	(EGG09N-EINADR)/3	;たまご（大）
  1110          00002C          NAMAZ		EQU	(NAMAZN-EINADR)/3	;ノモズ
  1111          00002D          SLIME		EQU	(SLIMEN-EINADR)/3	;スライム
  1112          00002E          SLEYE		EQU	(SLEYEN-EINADR)/3	;×^スライムの目
  1113          00002F          NZANA		EQU	(NZANAN-EINADR)/3	;穴（NEZM2と同じ所にセット）
  1114                          ;30h
  1115          000030          NEZMI		EQU	(NEZMIN-EINADR)/3	;ネズミ（単体）
  1116          000031          SANPO		EQU	(SANPON-EINADR)/3	;サボテン
  1117          000032          NZAN2		EQU	(NZAN2N-EINADR)/3	;飾りネズミ
  1118                          ;							（Ｘ：０−＞穴から目だけ出てる）
  1119                          ;							（    １−＞奥でネズミが出たり引っ込んだり）
  1120                          ;							（ＢＧタイプは溶岩で）
  1121          000033          NEZM2		EQU	(NEZM2N-EINADR)/3	;ネズミ（NZANAと同じ所にセット）
  1122          000034          TSUBO		EQU	(TSUBON-EINADR)/3	;つぼ（ＢＧ３）
  1123          000035          OBAKE		EQU	(OBAKEN-EINADR)/3	;×つぼお化け
  1124          000036          IWATS		EQU	(IWATSN-EINADR)/3	;倒れる壁（行きと帰りで左右セット、ＢＧ３）
  1125          000037          GHOST		EQU	(GHOSTN-EINADR)/3	;とりつくお化け（死神くん）
  1126          000038          OBFIR		EQU	(OBFIRN-EINADR)/3	;×お化けの火
  1127          000039          POLY1		EQU	(POLY1N-EINADR)/3	;横回転床（ＢＧ３）
  1128          00003A          HINAQ		EQU	(HINAQN-EINADR)/3	;ひなキュー（キューチャンの小さい奴、３匹１セット）
  1129          00003B          HINQ2		EQU	(HINQ2N-EINADR)/3	;ひなキュー（キューチャンの小さい奴、１匹セット）
  1130          00003C          BOSSK		EQU	(BOSSKN-EINADR)/3	;ボスカチカチ君
  1131          00003D          SESAW		EQU	(SESAWN-EINADR)/3	;シーソー
  1132          00003E          MARUT		EQU	(MARUTN-EINADR)/3	;丸太橋風揺れる橋（４つブロック）
  1133                          ;40h
  1134          00003F          BKSLM		EQU	(BKSLMN-EINADR)/3	;ブロックスライム
  1135          000040          LUIGI		EQU	(LUIGIN-EINADR)/3	;×ルイージ
  1136          000041          KONOT		EQU	(KONOTN-EINADR)/3	;×鸛
  1137          000042          DNXG2		EQU	(DNXG2N-EINADR)/3	;下キー入れなくてもＮＥＸＴ−ＧＯＴＯ
  1138          000043          BHEIR		EQU	(BHEIRN-EINADR)/3	;ビッグヘイホー（赤）
  1139          000044          BHEIG		EQU	(BHEIGN-EINADR)/3	;ビッグヘイホー（緑）
  1140          000045          INGER		EQU	(INGERN-EINADR)/3	;ゲロゲ〜ロの胃袋
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0020

  1141          000046          BBBRS		EQU	(BBBRSN-EINADR)/3	;ビッグバウンドブロス
  1142          000047          TBHIH		EQU	(TBHIHN-EINADR)/3	;壷ヘイホー
  1143          000048          KAMC2		EQU	(KAMC2N-EINADR)/3	;カメック２
  1144          000049          SWAVM		EQU	(SWAVMN-EINADR)/3	;×
  1145          00004A          SWAV0		EQU	(SWAV0N-EINADR)/3	;×
  1146          00004B          SWAV1		EQU	(SWAV1N-EINADR)/3	;×
  1147          00004C          ZSAB2		EQU	(ZSAB2N-EINADR)/3	;逆さズームサボテン（Ｖフリップ）
  1148          00004D          KERO0		EQU	(KERO0N-EINADR)/3	;(無くなる）
  1149          00004E          POLDR		EQU	(POLDRN-EINADR)/3	;ミニゲームドア
  1150                          ;50h
  1151          00004F          GATE0		EQU	(GATE0N-EINADR)/3	;中間ポイントのリング
  1152                          ;							  （中心セット）
  1153          000050          GITAN		EQU	(GITANN-EINADR)/3	;ＢＧ３の床（ＢＧ３）
  1154          000051          FACE8		EQU	(FACE8N-EINADR)/3	;ＢＧ３の八面体（ＢＧ３）
  1155          000052          FUSEN		EQU	(FUSENN-EINADR)/3	;風船リフト（一応、単体でも使える）
  1156                          ;						（Ｘ：０−＞１個だけセット、１−＞そのＸラインわきだし））
  1157          000053          KAMCS		EQU	(KAMCSN-EINADR)/3	;マザーパックン用かめっく
  1158          000054          ZPAC3		EQU	(ZPAC3N-EINADR)/3	;逆さズームパックン（Ｖフリップ）
  1159          000055          MILL0		EQU	(MILL0N-EINADR)/3	;水車リフト（大）
  1160          000056          MILS0		EQU	(MILS0N-EINADR)/3	;水車リフト（小）
  1161          000057          BG3FL		EQU	(BG3FLN-EINADR)/3	;ごっつうでかいＢＧ３の床
  1162          000058          DORBF		EQU	(DORBFN-EINADR)/3	;空飛ぶどろぼう
  1163          000059          CSTAR		EQU	(CSTARN-EINADR)/3	;連続スター（マリオの時だけ現れる敵）
  1164          00005A          QSPAK		EQU	(QSPAKN-EINADR)/3	;Ｑちゃんボスのスパーク
  1165          00005B          DORB2		EQU	(DORB2N-EINADR)/3	;どろぼうのどろぼう
  1166          00005C          DRBF2		EQU	(DRBF2N-EINADR)/3	;空飛ぶどろぼうのどろぼう
  1167          00005D          HBLK5		EQU	(HBLK5N-EINADR)/3	;？ブロック（コイン出る）
  1168                          ;60h
  1169          00005E          GITNS		EQU	(GITNSN-EINADR)/3	;ＢＧ３の床（小）
  1170          00005F          GITNL		EQU	(GITNLN-EINADR)/3	;ＢＧ３の床（小）勝手に回る
  1171          000060          BOMBX		EQU	(BOMBXN-EINADR)/3	;×爆弾
  1172          000061          BABYM		EQU	(BABYMN-EINADR)/3	;×赤ちゃん
  1173          000062          PANDA		EQU	(PANDAN-EINADR)/3	;クリボー
  1174          000063          BETO0		EQU	(BETO0N-EINADR)/3	;ヨッシーを乗せて突っ走る奴
  1175          000064          MILL1		EQU	(MILL1N-EINADR)/3	;水車リフト（大、移動しない）
  1176                          ;							（Ｘ：０−＞時計回りに回転）
  1177                          ;							（    １−＞反時計回りに回転）
  1178          000065          COINR		EQU	(COINRN-EINADR)/3	;赤コイン
  1179          000066          ZPACK		EQU	(ZPACKN-EINADR)/3	;ズームパックン
  1180          000067          HIMIT		EQU	(HIMITN-EINADR)/3	;ゴロゴロ岩で秘密
  1181                          ;						  Ｘ	    ０		    １
  1182                          ;						Ｙ
  1183                          ;						０	タイムスター	フラワーリフト
  1184                          ;						１	フラワー	  １ＵＰ
  1185                          ;
  1186          000068          HBLK2		EQU	(HBLK2N-EINADR)/3	;？ブロック（たたくと赤タマゴに変わる）
  1187          000069          HBLK4		EQU	(HBLK4N-EINADR)/3	;？ブロック（たたくとピンクタマゴに変わる）
  1188          00006A          HBLK3		EQU	(HBLK3N-EINADR)/3	;？ブロック（たたくと黄タマゴに変わる）
  1189          00006B          HBLK7		EQU	(HBLK7N-EINADR)/3	;×？ブロック
  1190          00006C          JBLKL		EQU	(JBLKLN-EINADR)/3	;ジャンプブロック大（覚えていない）
  1191          00006D          PPCKL		EQU	(PPCKLN-EINADR)/3	;パックン（ＢＧ１タイプ土管内用）
  1192                          ;							（左、囲んだ地形の外側を回る）
  1193                          ;70h
  1194          00006E          PPCKR		EQU	(PPCKRN-EINADR)/3	;パックン（ＢＧ１タイプ土管内用）
  1195                          ;							（右、囲んだ地形の外側を回る）
  1196          00006F          JBLK0		EQU	(JBLK0N-EINADR)/3	;ジャンプブロック小
  1197          000070          KANI0		EQU	(KANI0N-EINADR)/3	;ズームはさみカニ
  1198          000071          TELEL		EQU	(TELELN-EINADR)/3	;テレサ（大）
  1199          000072          RAKUG		EQU	(RAKUGN-EINADR)/3	;落書きヘイホー
  1200          000073          PONPU		EQU	(PONPUN-EINADR)/3	;ＢＧ３リフトのポンプ
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0021

  1201          000074          GABON		EQU	(GABONN-EINADR)/3	;ガボン（鉄球）
  1202          000075          GABNB		EQU	(GABNBN-EINADR)/3	;×ガボンのたま
  1203          000076          SPRKL		EQU	(SPRKLN-EINADR)/3	;スパーク（左、囲んだ地形の外側を回る）
  1204          000077          SPRKR		EQU	(SPRKRN-EINADR)/3	;スパーク（右、囲んだ地形の外側を回る）
  1205          000078          DAI00		EQU	(DAI00N-EINADR)/3	;キラー砲台（サーチキラー）
  1206          000079          DAI01		EQU	(DAI01N-EINADR)/3	;キラー砲台（バウンドキラー、回転砲台）
  1207          00007A          DAI02		EQU	(DAI02N-EINADR)/3	;キラー砲台（ノーマルキラー）
  1208          00007B          KIL00		EQU	(KIL00N-EINADR)/3	;×
  1209          00007C          KIL01		EQU	(KIL01N-EINADR)/3	;×
  1210          00007D          KIL02		EQU	(KIL02N-EINADR)/3	;×
  1211          00007E          DWNBG		EQU	(DWNBGN-EINADR)/3	;×落ちる床
  1212                          ;80h
  1213          00007F          FYUKA		EQU	(FYUKAN-EINADR)/3	;不安定床（セットはＢＧといっしょ）
  1214          000080          ZBUB0		EQU	(ZBUB0N-EINADR)/3	;ズームバブル
  1215          000081          ZBUB1		EQU	(ZBUB1N-EINADR)/3	;ななめズームバブル
  1216          000082          WANG0		EQU	(WANG0N-EINADR)/3	;ワンワン（根元セット）
  1217          000083          BGKM0		EQU	(BGKM0N-EINADR)/3	;大クッパ用遠景雲（小）
  1218          000084          NEXTG		EQU	(NEXTGN-EINADR)/3	;当たるとＮＥＸＴ−ＧＯＴＯ
  1219          000085          HARIO		EQU	(HARION-EINADR)/3	;ハリマンネン（ハリネズミ）
  1220          000086          COIN0		EQU	(COIN0N-EINADR)/3	;ＯＢＪコイン
  1221          000087          EG1UP		EQU	(EG1UPN-EINADR)/3	;１ｕｐ卵
  1222          000088          MSTAR		EQU	(MSTARN-EINADR)/3	;マリオに変身するアイテム
  1223          000089          NLFLR		EQU	(NLFLRN-EINADR)/3	;リフト左右
  1224          00008A          NLFUD		EQU	(NLFUDN-EINADR)/3	;リフト上下
  1225          00008B          FBOM0		EQU	(FBOM0N-EINADR)/3	;風船ボム
  1226          00008C          GOLYS		EQU	(GOLYSN-EINADR)/3	;×ゴールで飛んでるヨッシー
  1227                          ;90h
  1228          00008D          MC1UP		EQU	(MC1UPN-EINADR)/3	;１ｕｐムーチョ
  1229                          ;						  Ｘ	    ０		  １
  1230                          ;						Ｙ
  1231                          ;						０	タイムスター   赤コイン
  1232                          ;						１	１ＵＰ		１ＵＰ
  1233                          ;
  1234          00008E          KAMC3		EQU	(KAMC3N-EINADR)/3	;クッパデモ用カメック
  1235          00008F          OSARU		EQU	(OSARUN-EINADR)/3	;おさる（根元セット）
  1236          000090          BG3KT		EQU	(BG3KTN-EINADR)/3	;ＢＧ３きん○ま
  1237          000091          DEATH		EQU	(DEATHN-EINADR)/3	;死神ムーチョ
  1238          000092          KOROG		EQU	(KOROGN-EINADR)/3	;ころがり君
  1239          000093          ZDOOR		EQU	(ZDOORN-EINADR)/3	;ＮＥＸＴ  ＧＯＴＯ  ドア
  1240          000094          HBLK6		EQU	(HBLK6N-EINADR)/3	;たたくと大きくなるブロック
  1241          000095          BLKLF		EQU	(BLKLFN-EINADR)/3	;ヒット後リフトへ変わるブロック（左右）
  1242          000096          BLKL2		EQU	(BLKL2N-EINADR)/3	;ヒット後リフトへ変わるブロック（上下）
  1243          000097          POWSW		EQU	(POWSWN-EINADR)/3	;ＰＯＷスイッチ
  1244          000098          WARPS		EQU	(WARPSN-EINADR)/3	;ワープスイッチ
  1245          000099          JTAM2		EQU	(JTAM2N-EINADR)/3	;×
  1246          00009A          ROTLF		EQU	(ROTLFN-EINADR)/3	;回転リフト
  1247          00009B          GABN2		EQU	(GABN2N-EINADR)/3	;鉄球兵士
  1248          00009C          GBNB2		EQU	(GBNB2N-EINADR)/3	;×鉄球兵士のたま
  1249                          ;a0h
  1250          00009D          SW000		EQU	(SW000N-EINADR)/3	;スイッチ
  1251          00009E          MBALL		EQU	(MBALLN-EINADR)/3	;動く玉
  1252          00009F          ZPAC2		EQU	(ZPAC2N-EINADR)/3	;ズームパックン（中ボス）
  1253          0000A0          TULIP		EQU	(TULIPN-EINADR)/3	;チューリップ
  1254          0000A1          HACHI		EQU	(HACHIN-EINADR)/3	;×サンボの鉢
  1255          0000A2          GENKI		EQU	(GENKIN-EINADR)/3	;×
  1256          0000A3          DORBL		EQU	(DORBLN-EINADR)/3	;どろぼう（左、半当たりに隠れてる）
  1257          0000A4          DORBR		EQU	(DORBRN-EINADR)/3	;どろぼう（右、半当たりに隠れてる）
  1258          0000A5          UNBAB		EQU	(UNBABN-EINADR)/3	;ビッグウンババ
  1259          0000A6          AWANG		EQU	(AWANGN-EINADR)/3	;遠くから降ってくるワンワン（１回落ちて終り）
  1260          0000A7          AWANM		EQU	(AWANMN-EINADR)/3	;遠くから降ってくるワンワン（何回も落ちてくる）
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0022

  1261          0000A8          AWANS		EQU	(AWANSN-EINADR)/3	;×ズームワンワン
  1262          0000A9          AWANP		EQU	(AWANPN-EINADR)/3	;×ズームワンワン
  1263          0000AA          SHEIH		EQU	(SHEIHN-EINADR)/3	;小さいヘイホー（遠くに見える）
  1264          0000AB          ITEGG		EQU	(ITEGGN-EINADR)/3	;×いつでもタマゴアイテムデモ用タマゴ
  1265          0000AC          KPBKG		EQU	(KPBKGN-EINADR)/3	;×大クッパ落下ブロック影
  1266                          ;b0h
  1267          0000AD          MSGBX		EQU	(MSGBXN-EINADR)/3	;メッセージブロック
  1268          0000AE          BOSS0		EQU	(BOSS0N-EINADR)/3	;カメボス
  1269          0000AF          CHG00		EQU	(CHG00N-EINADR)/3	;車	     に変身する雲
  1270          0000B0          CHG01		EQU	(CHG01N-EINADR)/3	;モグラ	     に変身する雲
  1271          0000B1          CHG02		EQU	(CHG02N-EINADR)/3	;ヘリコプターに変身する雲
  1272          0000B2          CHG03		EQU	(CHG03N-EINADR)/3	;汽車	     に変身する雲
  1273          0000B3          PUUUU		EQU	(PUUUUN-EINADR)/3	;ワタボー”プ〜”アタック
  1274          0000B4          CHG05		EQU	(CHG05N-EINADR)/3	;潜水艦	     に変身する雲
  1275          0000B5          QKM00		EQU	(QKM00N-EINADR)/3	;まと君０（触れたら雲出現）
  1276                          ;						  Ｘ	０	   １
  1277                          ;						Ｙ
  1278                          ;						０	１ＵＰ	   タイムスター
  1279                          ;						１	スイッチ   タイムスター
  1280                          ;
  1281          0000B6          QKM01		EQU	(QKM01N-EINADR)/3	;まと君１（まと君を中心にコイン８枚（ヌキの所のみ））
  1282          0000B7          QKM02		EQU	(QKM02N-EINADR)/3	;まと君２（シャボン１ＵＰ）
  1283          0000B8          QKM03		EQU	(QKM03N-EINADR)/3	;まと君３（フラワー）
  1284          0000B9          QKM04		EQU	(QKM04N-EINADR)/3	;まと君４（ＰＯＷ）
  1285          0000BA          QKM05		EQU	(QKM05N-EINADR)/3	;まと君５（階段が出現する）
  1286          0000BB          QKM06		EQU	(QKM06N-EINADR)/3	;まと君６（橋が出来る）
  1287                          ;							（Ｘ：０−＞右へ橋が伸びる、１−＞左へ橋が伸びる））
  1288          0000BC          QKM07		EQU	(QKM07N-EINADR)/3	;まと君７（どろぼう）
  1289          0000BD          QKM08		EQU	(QKM08N-EINADR)/3	;まと君８（コイン１枚）
  1290          0000BE          QKM09		EQU	(QKM09N-EINADR)/3	;まと君９（１ＵＰ）
  1291          0000BF          QKM0A		EQU	(QKM0AN-EINADR)/3	;まと君Ａ（城のカギ）
  1292                          ;							（Ｘ：０−＞そのままセット、１−＞まと君から出現））
  1293          0000C0          QKM0B		EQU	(QKM0BN-EINADR)/3	;まと君Ｂ（コインばらまき少、１枚から３枚、ランダム）
  1294          0000C1          QKM0C		EQU	(QKM0CN-EINADR)/3	;まと君Ｃ（コインばらまき多、５枚から７枚、ランダム）
  1295          0000C2          QKM0D		EQU	(QKM0DN-EINADR)/3	;まと君Ｄ（ドア出現）
  1296                          ;d0h
  1297          0000C3          QKM0E		EQU	(QKM0EN-EINADR)/3	;まと君Ｅ（ＢＧ書き換えで地形変わる）
  1298          0000C4          QKM0F		EQU	(QKM0FN-EINADR)/3	;まと君Ｆ（すいか）
  1299          0000C5          QKM10		EQU	(QKM10N-EINADR)/3	;まと君１０（火すいか）
  1300          0000C6          QKM11		EQU	(QKM11N-EINADR)/3	;まと君１１（氷すいか）
  1301          0000C7          QKM12		EQU	(QKM12N-EINADR)/3	;まと君１２（ひまわりリフト（５ユニット））
  1302          0000C8          QKM13		EQU	(QKM13N-EINADR)/3	;まと君１３（ひまわりリフト（１１ユニット））
  1303          0000C9          QKM14		EQU	(QKM14N-EINADR)/3	;×空き
  1304          0000CA          LBSDR		EQU	(LBSDRN-EINADR)/3	;ラストボスドア
  1305          0000CB          QKM16		EQU	(QKM16N-EINADR)/3	;まと君１６（敵が変わった？雲）
  1306          0000CC          QKM17		EQU	(QKM17N-EINADR)/3	;まと君１７（スイッチ）
  1307          0000CD          FKPBM		EQU	(FKPBMN-EINADR)/3	;×大クッパ用爆弾
  1308          0000CE          KPFIR		EQU	(KPFIRN-EINADR)/3	;×大クッパ用ファイヤー
  1309          0000CF          KPBLK		EQU	(KPBLKN-EINADR)/3	;×大クッパ用ブロック
  1310          0000D0          SNXGO		EQU	(SNXGON-EINADR)/3	;横キーでＮＥＸＴ−ＧＯＴＯ
  1311                          ;							（ヨッシーの足下セット）
  1312                          ;							（敵セットの左に当たるＢＧがあれば左ドア）
  1313                          ;							（無ければ右ドア）
  1314          0000D1          DNXGO		EQU	(DNXGON-EINADR)/3	;下キーでＮＥＸＴ−ＧＯＴＯ
  1315                          ;							（スイッチＯＮ時のみ入れる）
  1316          0000D2          PUCHA		EQU	(PUCHAN-EINADR)/3	;アトミックプチプチ
  1317                          ;e0h
  1318          0000D3          PUCHG		EQU	(PUCHGN-EINADR)/3	;ジャイアントプチプチ
  1319          0000D4          PUCHB		EQU	(PUCHBN-EINADR)/3	;ビッグプチプチ
  1320          0000D5          BG_00		EQU	(BG_00N-EINADR)/3	;×カメボス用のＯＢＪ背景
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0023

  1321          0000D6          BG3UL		EQU	(BG3ULN-EINADR)/3	;バカボンウンババリフト
  1322          0000D7          BKMKJ		EQU	(BKMKJN-EINADR)/3	;ボスケメクジ
  1323          0000D8          AW_FG		EQU	(AW_FGN-EINADR)/3	;ワンワンの看板
  1324          0000D9          TJUGM		EQU	(TJUGMN-EINADR)/3	;釣りジュゲム
  1325          0000DA          TTUBO		EQU	(TTUBON-EINADR)/3	;宝のつぼ
  1326                          ;						  Ｘ	０	 １
  1327                          ;						Ｙ
  1328                          ;						０	カギ	 コイン
  1329                          ;						１	コイン	 空っぽ
  1330                          ;
  1331          0000DB          BG3BL		EQU	(BG3BLN-EINADR)/3	;ＢＧ３ブロック
  1332          0000DC          YGORO		EQU	(YGORON-EINADR)/3	;雪ごろごろ
  1333          0000DD          DMPLC		EQU	(DMPLCN-EINADR)/3	;×デモプレイヤー
  1334          0000DE          ON_DW		EQU	(ON_DWN-EINADR)/3	;×乗ったら落ちるＢＧ
  1335          0000DF          WPKPK		EQU	(WPKPKN-EINADR)/3	;水中プクプク
  1336          0000E0          JFISH		EQU	(JFISHN-EINADR)/3	;海月
  1337          0000E1          HBNBN		EQU	(HBNBNN-EINADR)/3	;針ボンボン
  1338          0000E2          BOBK0		EQU	(BOBK0N-EINADR)/3	;ビョンお化け
  1339                          ;f0h
  1340          0000E3          BOBK1		EQU	(BOBK1N-EINADR)/3	;ビョンお化け（手にスパーク）
  1341          0000E4          HSAN0		EQU	(HSAN0N-EINADR)/3	;ヘデイングサンボ
  1342          0000E5          HSAN1		EQU	(HSAN1N-EINADR)/3	;ヘデイングサンボのたま
  1343          0000E6          TUMUJ		EQU	(TUMUJN-EINADR)/3	;つむじ君
  1344                          ;							（Ｘ：０−＞左に飛ぶ、	１−＞右に飛ぶ））
  1345                          ;							（Ｙ：０−＞単体セット、１−＞わきだしセット））
  1346          0000E7          BBROS		EQU	(BBROSN-EINADR)/3	;バウンドブラザーズ（どんぶりブラザーズ）
  1347          0000E8          AHOBD		EQU	(AHOBDN-EINADR)/3	;アホウ鳥
  1348          0000E9          AHOB2		EQU	(AHOB2N-EINADR)/3	;歩きアホウ鳥３匹
  1349          0000EA          OTAMA		EQU	(OTAMAN-EINADR)/3	;おたまオバケ
  1350          0000EB          OTAMH		EQU	(OTAMHN-EINADR)/3	;おたまオバケ（左右）
  1351          0000EC          VOWVW		EQU	(VOWVWN-EINADR)/3	;ボーボー（火の敵、バウンドタイプ）
  1352          0000ED          VOWV2		EQU	(VOWV2N-EINADR)/3	;ボーボー（火の敵、走り回るタイプ）
  1353          0000EE          NIKOP		EQU	(NIKOPN-EINADR)/3	;開く花（ニコプーひまわり）
  1354          0000EF          NIKP2		EQU	(NIKP2N-EINADR)/3	;×
  1355          0000F0          NIKP3		EQU	(NIKP3N-EINADR)/3	;×
  1356          0000F1          BBFLW		EQU	(BBFLWN-EINADR)/3	;バブルフラワー
  1357          0000F2          TAKEH		EQU	(TAKEHN-EINADR)/3	;竹馬ヘイホー（カラーはヘイホーと同じ）
  1358                          ;100h
  1359          0000F3          MSHIH		EQU	(MSHIHN-EINADR)/3	;ムーンサルトへイホー
  1360          0000F4          EGFLW		EQU	(EGFLWN-EINADR)/3	;たまごフラワー
  1361          0000F5          BATSN		EQU	(BATSNN-EINADR)/3	;バットさん
  1362          0000F6          KAMO0		EQU	(KAMO0N-EINADR)/3	;親子かも
  1363          0000F7          AWAFK		EQU	(AWAFKN-EINADR)/3	;アワふきくん
  1364          0000F8          ZSABO		EQU	(ZSABON-EINADR)/3	;×ズームサンボ（サボテン砲台）
  1365          0000F9          STAMA		EQU	(STAMAN-EINADR)/3	;ズームサンボのたま
  1366          0000FA          ZFLWR		EQU	(ZFLWRN-EINADR)/3	;ズームフラワー
  1367          0000FB          YARIH		EQU	(YARIHN-EINADR)/3	;ヤリホー（槍を持ったヘイホー、槍が長い）
  1368          0000FC          YARH2		EQU	(YARH2N-EINADR)/3	;ヤリホー（槍を持ったヘイホー、槍が短い）
  1369          0000FD          KARAT		EQU	(KARATN-EINADR)/3	;空手家
  1370          0000FE          ENRGB		EQU	(ENRGBN-EINADR)/3	;×空手家の波動拳のタマ
  1371          0000FF          POCHI		EQU	(POCHIN-EINADR)/3	;名犬ポチ
  1372          000100          PUPBB		EQU	(PUPBBN-EINADR)/3	;×１ＵＰバブル
  1373          000101          GURU1		EQU	(GURU1N-EINADR)/3	;グルグルバー（１本、セット位置によって回転方向が変わる）
  1374          000102          GURU2		EQU	(GURU2N-EINADR)/3	;グルグルバー（２本、セット位置によって回転方向が変わる）
  1375                          ;110h
  1376          000103          GHEIH		EQU	(GHEIHN-EINADR)/3	;グルグルバーを回すヘイホー（セット位置によって回す方向が変わる）
  1377          000104          BFISH		EQU	(BFISHN-EINADR)/3	;骨魚
  1378          000105          HOMOL		EQU	(HOMOLN-EINADR)/3	;バケツリレーヘイホー（行きと帰りで左右セット）
  1379          000106          HOMOR		EQU	(HOMORN-EINADR)/3	;バケツリレーヘイホー（行きと帰りで左右セット）
  1380          000107          SUIKT		EQU	(SUIKTN-EINADR)/3	;×すいかの種
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0024

  1381          000108          PONTA		EQU	(PONTAN-EINADR)/3	;ポンタ
  1382          000109          KATI0		EQU	(KATI0N-EINADR)/3	;カチカチ君（ＢＧチェックなし）
  1383          00010A          KATI1		EQU	(KATI1N-EINADR)/3	;カチカチ君（ＢＧチェックあり）
  1384          00010B          KATI2		EQU	(KATI2N-EINADR)/3	;カチカチ君（動かない）
  1385          00010C          DOSUN		EQU	(DOSUNN-EINADR)/3	;ドスン
  1386          00010D          DHEIH		EQU	(DHEIHN-EINADR)/3	;ドスン用ヘイホー
  1387          00010E          TRBOX		EQU	(TRBOXN-EINADR)/3	;宝箱
  1388          00010F          BTELE		EQU	(BTELEN-EINADR)/3	;目隠しテレサ
  1389          000110          ZFLW2		EQU	(ZFLW2N-EINADR)/3	;ズームフラワー２
  1390          000111          PURIN		EQU	(PURINN-EINADR)/3	;プリン
  1391          000112          PURI0		EQU	(PURI0N-EINADR)/3	;×プリンの飛び散り
  1392                          ;120h
  1393          000113          MCHO2		EQU	(MCHO2N-EINADR)/3	;ムーチョ２（弾吐き）
  1394          000114          BULET		EQU	(BULETN-EINADR)/3	;×ムーチョ２のたま
  1395          000115          COIN1		EQU	(COIN1N-EINADR)/3	;×ズームコイン
  1396          000116          FLOAT		EQU	(FLOATN-EINADR)/3	;水中回転リフト
  1397          000117          TIKU0		EQU	(TIKU0N-EINADR)/3	;×チクワブロック
  1398          000118          TIKU1		EQU	(TIKU1N-EINADR)/3	;×チクワブロック
  1399          000119          NUNOO		EQU	(NUNOON-EINADR)/3	;布オバケ（回転のみ）
  1400          00011A          MITSN		EQU	(MITSNN-EINADR)/3	;ミットさん
  1401          00011B          JUGEM		EQU	(JUGEMN-EINADR)/3	;ジュゲム（フラグ、（Ｘ：０−＞１匹、１−＞２匹））
  1402          00011C          KINTO		EQU	(KINTON-EINADR)/3	;×ジュゲムの雲
  1403          00011D          JTAMA		EQU	(JTAMAN-EINADR)/3	;×ジュゲムのたま
  1404          00011E          RLTLF		EQU	(RLTLFN-EINADR)/3	;城回転リフト（ノーマル）
  1405          00011F          RLTL2		EQU	(RLTL2N-EINADR)/3	;城回転リフト（タイマーで消える）
  1406          000120          RLTL3		EQU	(RLTL3N-EINADR)/3	;城回転リフト（玉子回転リフト）
  1407          000121          CNTLF		EQU	(CNTLFN-EINADR)/3	;カウントリフト
  1408          000122          BAK20		EQU	(BAK20N-EINADR)/3	;バケツ（どろぼう）
  1409                          ;130h
  1410          000123          BAK21		EQU	(BAK21N-EINADR)/3	;バケツ（コイン５枚）
  1411          000124          ARIH0		EQU	(ARIH0N-EINADR)/3	;アリホー（カラーはヘイホーと同じ）
  1412          000125          KAMC4		EQU	(KAMC4N-EINADR)/3	;最終デモ用カメック
  1413          000126          MAKI0		EQU	(MAKI0N-EINADR)/3	;巻き上げドスン
  1414          000127          MAKI1		EQU	(MAKI1N-EINADR)/3	;×巻き上げドスンのたま
  1415          000128          FWAVE		EQU	(FWAVEN-EINADR)/3	;クッパの部屋の床波
  1416          000129          WATAB		EQU	(WATABN-EINADR)/3	;×ワタボー（フラグセットのみ）
  1417          00012A          KUSAH		EQU	(KUSAHN-EINADR)/3	;草陰ヘイホー
  1418          00012B          DEBU0		EQU	(DEBU0N-EINADR)/3	;デブヘイホー（赤、歩いてる、ＢＧチェックなし）
  1419          00012C          COMCH		EQU	(COMCHN-EINADR)/3	;コインムーチョ（Ｘ：０−＞赤コイン）
  1420                          ;						;	       （Ｘ：１−＞コイン×１、×３、
  1421                          ;						;			 コイン×５、１ＵＰ
  1422                          ;						;			 と当てるたびに変化する）
  1423          00012D          YOSSY		EQU	(YOSSYN-EINADR)/3	;×Ｗ１デモヨッシー！！
  1424          00012E          BG3EX		EQU	(BG3EXN-EINADR)/3	;×ＢＧ３効果！！
  1425          00012F          FHOTM		EQU	(FHOTMN-EINADR)/3	;ファイヤーおたま（横）
  1426          000130          FVOTM		EQU	(FVOTMN-EINADR)/3	;ファイヤーおたま（縦）
  1427          000131          KEYDR		EQU	(KEYDRN-EINADR)/3	;カギドア
  1428          000132          SSLIM		EQU	(SSLIMN-EINADR)/3	;チビスライム
  1429          000133          CHKH0		EQU	(CHKH0N-EINADR)/3	;地下ヘイホー赤
  1430          000134          KOOPA		EQU	(KOOPAN-EINADR)/3	;クッパ
  1431          000135          QCHAN		EQU	(QCHANN-EINADR)/3	;キューチャン（ノーマル）
  1432          000136          QCHN2		EQU	(QCHN2N-EINADR)/3	;キューチャン（動きがランダム）
  1433          000137          DWBL0		EQU	(DWBL0N-EINADR)/3	;テトリスブロック（縦６ｘ横３）
  1434          000138          DWBL1		EQU	(DWBL1N-EINADR)/3	;テトリスブロック（縦３ｘ横３）
  1435          000139          DWBL2		EQU	(DWBL2N-EINADR)/3	;テトリスブロック（縦９ｘ横３）
  1436          00013A          DWBL3		EQU	(DWBL3N-EINADR)/3	;テトリスブロック（縦３ｘ横６）
  1437          00013B          IEKI0		EQU	(IEKI0N-EINADR)/3	;ゲロゲーロの胃袋の胃液
  1438          00013C          FLIPP		EQU	(FLIPPN-EINADR)/3	;フリッパー（縦ぬけ）
  1439          00013D          KOMO0		EQU	(KOMO0N-EINADR)/3	;コウモリ（天井にはりつく）
  1440          00013E          KOMO1		EQU	(KOMO1N-EINADR)/3	;コウモリ（空中セット）
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0025

  1441          00013F          PKPK0		EQU	(PKPK0N-EINADR)/3	;プクプク（行ったり来たり）
  1442                          ;140h
  1443          000140          PKPK1		EQU	(PKPK1N-EINADR)/3	;プクプク（行ったり来たり＋ランダムジャンブ）
  1444          000141          PKPK2		EQU	(PKPK2N-EINADR)/3	;プクプク（固定位置をジャンブ）
  1445          000142          PKPK3		EQU	(PKPK3N-EINADR)/3	;プクプク（画面左ｏｒ右から三段ジャンブ）
  1446          000143          TEPPO		EQU	(TEPPON-EINADR)/3	;てっぽううお
  1447          000144          FLIPH		EQU	(FLIPHN-EINADR)/3	;フリッパー（横ぬけ）
  1448          000145          KEME0		EQU	(KEME0N-EINADR)/3	;ケメクジ（天井はり付いてる時動いてる）
  1449          000146          KEME1		EQU	(KEME1N-EINADR)/3	;ケメクジ（天井はり付いてる時止まってる）
  1450          000147          SNXG2		EQU	(SNXG2N-EINADR)/3	;横キーでＮＥＸＴ−ＧＯＴＯ逆タイプ
  1451          000148          JBKL2		EQU	(JBKL2N-EINADR)/3	;ジャンプブロック大（覚えてる）
  1452          000149          REFC0		EQU	(REFC0N-EINADR)/3	;反射雲（上）
  1453          00014A          REFC1		EQU	(REFC1N-EINADR)/3	;反射雲（右上）
  1454          00014B          REFC2		EQU	(REFC2N-EINADR)/3	;反射雲（右）
  1455          00014C          REFC3		EQU	(REFC3N-EINADR)/3	;反射雲（右下）
  1456          00014D          REFC4		EQU	(REFC4N-EINADR)/3	;反射雲（下）
  1457          00014E          REFC5		EQU	(REFC5N-EINADR)/3	;反射雲（左下）
  1458          00014F          REFC6		EQU	(REFC6N-EINADR)/3	;反射雲（左）
  1459                          ;150h
  1460          000150          REFC7		EQU	(REFC7N-EINADR)/3	;反射雲（左上）
  1461          000151          REFC8		EQU	(REFC8N-EINADR)/3	;反射雲（８方向、時計まわりに回転）
  1462          000152          MOTH0		EQU	(MOTH0N-EINADR)/3	;ハナチャン成虫
  1463          000153          BAHOB		EQU	(BAHOBN-EINADR)/3	;爆撃アホー鳥（Ｘセットあり、アホー鳥と同じ）
  1464          000154          AWANH		EQU	(AWANHN-EINADR)/3	;ＢＧ３ワンワン
  1465          000155          DBAHO		EQU	(DBAHON-EINADR)/3	;デブアホー鳥（羽根あり）
  1466          000156          MATO0		EQU	(MATO0N-EINADR)/3	;マトさん（Ｘ：０−＞１個、１−＞３個）
  1467          000157          AJGM0		EQU	(AJGM0N-EINADR)/3	;穴ジュゲム
  1468          000158          DBAH2		EQU	(DBAH2N-EINADR)/3	;デブアホー鳥（羽根なし）
  1469          000159          TONG0		EQU	(TONG0N-EINADR)/3	;とんがり君（王様、歩いてるやつ）
  1470          00015A          TONG1		EQU	(TONG1N-EINADR)/3	;とんがり君（王様、走っているやつ）
  1471          00015B          BAMBO		EQU	(BAMBON-EINADR)/3	;バンブーダンサーズ
  1472          00015C          RBLKG		EQU	(RBLKGN-EINADR)/3	;小さい回転床スイッチ緑
  1473          00015D          RBLKY		EQU	(RBLKYN-EINADR)/3	;小さい回転床スイッチ黄
  1474          00015E          MILL2		EQU	(MILL2N-EINADR)/3	;水車リフト（大、敵付き、移動しない）
  1475          00015F          RFLSG		EQU	(RFLSGN-EINADR)/3	;小さい回転床緑
  1476                          ;160h
  1477          000160          RFLSY		EQU	(RFLSYN-EINADR)/3	;小さい回転床黄
  1478          000161          HIMI2		EQU	(HIMI2N-EINADR)/3	;隠しアイテム
  1479          000162          RFLLG		EQU	(RFLLGN-EINADR)/3	;大きい回転床
  1480          000163          SABO0		EQU	(SABO0N-EINADR)/3	;×風船サボテンの頭
  1481          000164          P_KN2		EQU	(P_KN2N-EINADR)/3	;プチパックン（地上セット）
  1482          000165          P_KUN		EQU	(P_KUNN-EINADR)/3	;プチパックン（空中セット）
  1483          000166          THJGM		EQU	(THJGMN-EINADR)/3	;雷ジュゲム（フラグ、（Ｘ：０−＞１匹、１−＞２匹））
  1484          000167          KORA0		EQU	(KORA0N-EINADR)/3	;カメ甲羅緑
  1485          000168          KORA1		EQU	(KORA1N-EINADR)/3	;カメ甲羅赤
  1486          000169          HNOK0		EQU	(HNOK0N-EINADR)/3	;裸ノコノコ緑（ＢＧチェックなし）
  1487          00016A          HNOK1		EQU	(HNOK1N-EINADR)/3	;裸ノコノコ赤（ＢＧチェックあり）
  1488          00016B          NKNK0		EQU	(NKNK0N-EINADR)/3	;ノコノコ緑（ＢＧチェックなし）
  1489          00016C          NKNK1		EQU	(NKNK1N-EINADR)/3	;ノコノコ赤（ＢＧチェックあり）
  1490          00016D          PTPT0		EQU	(PTPT0N-EINADR)/3	;パタパタ緑（はねる）
  1491          00016E          PTPT1		EQU	(PTPT1N-EINADR)/3	;パタパタ赤（左右いったりきたり、中心セット１２キャラ）
  1492                          ;							  （Ｘ：０−＞左から右、１−＞右から左）
  1493                          ;							  （そこから左に６キャラ、右に６キャラ移動）
  1494          00016F          PTPT2		EQU	(PTPT2N-EINADR)/3	;パタパタ赤（上下いったりきたり、移動距離１２キャラ）
  1495                          ;							  （Ｘ：０−＞上から下、１−＞下から上）
  1496                          ;170h
  1497          000170          JGEMW		EQU	(JGEMWN-EINADR)/3	;ジュゲム（ＢＧ１タイプ土管内用）
  1498          000171          MPACK		EQU	(MPACKN-EINADR)/3	;マザーパックン
  1499          000172          MPACH		EQU	(MPACHN-EINADR)/3	;×マザーパックン
  1500          000173          FUSN0		EQU	(FUSN0N-EINADR)/3	;風船ヘイホー
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0026

  1501          000174          FUSN1		EQU	(FUSN1N-EINADR)/3	;風船サボテン
  1502          000175          FUSN2		EQU	(FUSN2N-EINADR)/3	;風船爆弾
  1503          000176          FUSN3		EQU	(FUSN3N-EINADR)/3	;風船ドロボー
  1504          000177          FUSN4		EQU	(FUSN4N-EINADR)/3	;風船ジャンプ台
  1505          000178          FUSN5		EQU	(FUSN5N-EINADR)/3	;風船１ＵＰ
  1506          000179          FUSN6		EQU	(FUSN6N-EINADR)/3	;風船カギ
  1507          00017A          FUSN7		EQU	(FUSN7N-EINADR)/3	;風船コイン
  1508          00017B          FUSN8		EQU	(FUSN8N-EINADR)/3	;風船スイカ
  1509          00017C          FUSN9		EQU	(FUSN9N-EINADR)/3	;風船火スイカ
  1510          00017D          FUSNa		EQU	(FUSNaN-EINADR)/3	;風船氷スイカ
  1511          00017E          FUSNb		EQU	(FUSNbN-EINADR)/3	;風船宝箱
  1512          00017F          BALON		EQU	(BALONN-EINADR)/3	;×切れた風船
  1513                          ;180h
  1514          000180          RMARU		EQU	(RMARUN-EINADR)/3	;回転丸太リフト（２秒おきに回転＜ー＞静止を繰り返す）
  1515          000181          PANSY		EQU	(PANSYN-EINADR)/3	;パンジーさん
  1516          000182          DGFLY		EQU	(DGFLYN-EINADR)/3	;とんぼ（飾りでプレイヤーには当たらない）
  1517          000183          BTFLY		EQU	(BTFLYN-EINADR)/3	;ちょうちょ（飾りでプレイヤーには当たらない）
  1518          000184          TARKN		EQU	(TARKNN-EINADR)/3	;タークン
  1519          000185          NRLF0		EQU	(NRLF0N-EINADR)/3	;線リフト（ノーマル、動いてる、右向き）
  1520          000186          NRLF1		EQU	(NRLF1N-EINADR)/3	;線リフト（ノーマル、動いてる、左向き）
  1521          000187          HRLF0		EQU	(HRLF0N-EINADR)/3	;線リフト（ハイスピード、動いてる、右向き）
  1522          000188          HRLF1		EQU	(HRLF1N-EINADR)/3	;線リフト（ハイスピード、動いてる、左向き）
  1523          000189          NRLF2		EQU	(NRLF2N-EINADR)/3	;線リフト（ノーマル、乗ると動く、右向き）
  1524          00018A          NRLF3		EQU	(NRLF3N-EINADR)/3	;線リフト（ノーマル、乗ると動く、左向き）
  1525          00018B          HRLF2		EQU	(HRLF2N-EINADR)/3	;線リフト（ハイスピード、乗ると動く、右向き）
  1526          00018C          HRLF3		EQU	(HRLF3N-EINADR)/3	;線リフト（ハイスピード、乗ると動く、左向き）
  1527          00018D          SRLF0		EQU	(SRLF0N-EINADR)/3	;線リフト（超ハイスピード、乗ると動く、右向き）
  1528          00018E          SRLF1		EQU	(SRLF1N-EINADR)/3	;線リフト（超ハイスピード、乗ると動く、左向き）
  1529          00018F          GRPLF		EQU	(GRPLFN-EINADR)/3	;ぐるぐる線リフト
  1530                          ;190h
  1531          000190          TURAR		EQU	(TURARN-EINADR)/3	;つらら（敵セットでプレイヤーが近づくと落ちる）
  1532                          ;						       （敵セットしないと卵を当てると落ちる）
  1533          000191          SUZUM		EQU	(SUZUMN-EINADR)/3	;すずめ（飾りでプレイヤーには当たらない）
  1534          000192          FLWH0		EQU	(FLWH0N-EINADR)/3	;花束ヘイホー（カラーはヘイホーと同じ）
  1535          000193          BG3DO		EQU	(BG3DON-EINADR)/3	;ＢＧ３土管おばけ
  1536          000194          KOUNB		EQU	(KOUNBN-EINADR)/3	;コウンババ
  1537          000195          GRCKS		EQU	(GRCKSN-EINADR)/3	;×グラグラ岩
  1538          000196          GROCK		EQU	(GROCKN-EINADR)/3	;×グラグラ岩
  1539          000197          YAJI0		EQU	(YAJI0N-EINADR)/3	;装飾用矢印（縦横）
  1540          000198          YAJI1		EQU	(YAJI1N-EINADR)/3	;装飾用矢印（斜め）
  1541          000199          NISEF		EQU	(NISEFN-EINADR)/3	;にせフラワー
  1542          00019A          GSTH0		EQU	(GSTH0N-EINADR)/3	;幽霊ヘイホー
  1543          00019B          STRKN		EQU	(STRKNN-EINADR)/3	;スライディングタークン
  1544          00019C          FTRKN		EQU	(FTRKNN-EINADR)/3	;フライングタークン
  1545          00019D          BATSA		EQU	(BATSAN-EINADR)/3	;骨アホー鳥（飛ぶ）
  1546          00019E          BATSB		EQU	(BATSBN-EINADR)/3	;骨アホー鳥（走る）
  1547          00019F          BATSC		EQU	(BATSCN-EINADR)/3	;爆撃骨アホー鳥
  1548                          ;1a0h
  1549          0001A0          FIRBR		EQU	(FIRBRN-EINADR)/3	;ファイヤーバー（長い）
  1550          0001A1          FIRB2		EQU	(FIRB2N-EINADR)/3	;ファイヤーバー（短い）
  1551          0001A2          TIMKN		EQU	(TIMKNN-EINADR)/3	;×タイム君
  1552          0001A3          SKLNZ		EQU	(SKLNZN-EINADR)/3	;骸骨ネズミ
  1553          0001A4          CORKS		EQU	(CORKSN-EINADR)/3	;ドカンのフタ
  1554          0001A5          MONK0		EQU	(MONK0N-EINADR)/3	;おちょくり逃げ猿
  1555          0001A6          MONK1		EQU	(MONK1N-EINADR)/3	;スイカの種ふき猿
  1556          0001A7          MONK2		EQU	(MONK2N-EINADR)/3	;スイカ投げ猿
  1557          0001A8          MONK3		EQU	(MONK3N-EINADR)/3	;さらい猿（岡嶋猿、傘泥棒猿）
  1558          0001A9          MONK4		EQU	(MONK4N-EINADR)/3	;インベーダー猿
  1559          0001AA          YGFSH		EQU	(YGFSHN-EINADR)/3	;溶岩鉄砲魚
  1560          0001AB          BLTLS		EQU	(BLTLSN-EINADR)/3	;バルーンテレサ
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0027

  1561          0001AC          KOKER		EQU	(KOKERN-EINADR)/3	;子蛙
  1562          0001AD          KAMEC		EQU	(KAMECN-EINADR)/3	;カメック
  1563          0001AE          MAGIC		EQU	(MAGICN-EINADR)/3	;×カメック魔法
  1564          0001AF          COIN2		EQU	(COIN2N-EINADR)/3	;コイン
  1565                          ;1b0h
  1566          0001B0          BG3LF		EQU	(BG3LFN-EINADR)/3	;×ＢＧ３リフト
  1567                          ;
  1568          0001B1          MINI_ST		EQU	M_THO			;<ys_ename.h> を作るためのマーカー
  1569                          ;
  1570          0001B1          M_THO		EQU	(M_THON-EINADR)/3
  1571          0001B2          M_TAM		EQU	(M_TAMN-EINADR)/3
  1572          0001B3          M_DR0		EQU	(M_DR0N-EINADR)/3
  1573          0001B4          M_LIF		EQU	(M_LIFN-EINADR)/3
  1574          0001B5          M_DR2		EQU	(M_DR2N-EINADR)/3
  1575          0001B6          M_FUS		EQU	(M_FUSN-EINADR)/3
  1576          0001B7          M_DR4		EQU	(M_DR4N-EINADR)/3
  1577          0001B8          M_SUI		EQU	(M_SUIN-EINADR)/3
  1578          0001B9          M_DR5		EQU	(M_DR5N-EINADR)/3
  1579                          ;
  1580                          ;-------------- enemy end pointer -------------------------------
  1581          0001BA          ENEND		EQU	(ENENDN-EINADR)/3
  1582                          ;
  1583                          ;
  1584                          ;-------------- 特殊モードＮｏ． --------------------------------
  1585                          ;				（Ｘアドレス ０＜−バンクチェンジ  １＜ー カラーチェンジ）
  1586                          ;
  1587          0001BA          CH_00		EQU	ENEND		;キャラクター入れ替えモード（地下）
  1588          0001BB          CH_01		EQU	CH_00+1		;		”	   （草）
  1589          0001BC          CH_02		EQU	CH_01+1		;		”	   （水中）
  1590          0001BD          CH_03		EQU	CH_02+1		;		”	   （溶岩）
  1591          0001BE          CH_04		EQU	CH_03+1		;		”	   （雪）
  1592          0001BF          CH_05		EQU	CH_04+1		;		”	   （バブル）
  1593          0001C0          CH_06		EQU	CH_05+1		;		”	   （カベ）
  1594          0001C1          CH_07		EQU	CH_06+1		;		”	   （花）
  1595          0001C2          CH_08		EQU	CH_07+1		;		”	   （地下’）
  1596          0001C3          CH_09		EQU	CH_08+1		;		”	   （草’）
  1597          0001C4          CH_0A		EQU	CH_09+1		;		”	   （水中’）
  1598          0001C5          CH_0B		EQU	CH_0A+1		;		”	   （土管）
  1599          0001C6          CH_0C		EQU	CH_0B+1		;		”	   （雪’）
  1600          0001C7          CH_0D		EQU	CH_0C+1		;		”	   （空）
  1601          0001C8          CH_0E		EQU	CH_0D+1		;		”	   （カベ’）
  1602          0001C9          CH_0F		EQU	CH_0E+1		;		”	   （花’）
  1603                          ;
  1604          0001CA          SPMD_ST		EQU	AT_00			;<ys_ename.h> を作るためのマーカー
  1605                          ;
  1606          0001CA          AT_00		EQU	CH_0F+1		;オートスクロール（）
  1607          0001CB          AT_01		EQU	AT_00+1
  1608          0001CC          AT_02		EQU	AT_01+1
  1609          0001CD          AT_03		EQU	AT_02+1
  1610          0001CE          AT_04		EQU	AT_03+1
  1611          0001CF          AT_05		EQU	AT_04+1
  1612          0001D0          AT_06		EQU	AT_05+1
  1613          0001D1          AT_07		EQU	AT_06+1
  1614          0001D2          AT_08		EQU	AT_07+1
  1615          0001D3          AT_09		EQU	AT_08+1
  1616          0001D4          AT_0A		EQU	AT_09+1
  1617                          ;[1995.06.03.SA]AT_0B		EQU	AT_0A+1
  1618                          ;
  1619          0001D5          BTL_E		EQU	AT_0A+1		;バルーンテレサのＥＮＤ
  1620                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0028

  1621          0001D6          SC_MX		EQU	BTL_E+1		;ＭＡＸスクロール値セット
  1622                          ;
  1623          0001D7          TMJ_S		EQU	SC_MX+1		;つむじ風のわきだし
  1624          0001D8          TMJ_E		EQU	TMJ_S+1		;	 ”	   ＥＮＤ
  1625                          ;
  1626          0001D9          JGM_E		EQU	TMJ_E+1		;ジュゲムのわきだしＥＮＤ
  1627                          ;
  1628          0001DA          WAT_E		EQU	JGM_E+1		;わたぼーのわきだしＥＮＤ
  1629                          ;
  1630          0001DB          POC_E		EQU	WAT_E+1		;ぽちのわきだしＥＮＤ
  1631                          ;
  1632          0001DC          KOM_S		EQU	POC_E+1		;こうもりのわきだし
  1633          0001DD          KOM_E		EQU	KOM_S+1		;	 "         エンド
  1634          0001DE          KM2_S		EQU	KOM_E+1		;こうもりのわきだし
  1635          0001DF          KM2_E		EQU	KM2_S+1		;	 "         エンド
  1636                          ;
  1637          0001E0          AJM_S		EQU	KM2_E+1		;穴ジュゲムのわきだし
  1638          0001E1          AJM_E		EQU	AJM_S+1		;	 "         エンド
  1639                          ;
  1640          0001E2          BB_S0		EQU	AJM_E+1		;ばんぶーダンサーズ　ダンススタート
  1641                          ;						  Ｘ	０	 １
  1642                          ;						Ｙ
  1643                          ;						０    ダンス０	ダンス１
  1644                          ;						１    ダンス２	ダンス３
  1645                          ;
  1646                          ;		ＬＪＰ（左へＪＵＭＰ）	、ＲＪＰ（右へＪＵＭＰ）  、ＬＥＧ（その場で足踏み）
  1647                          ;		ＬＭＶ（回転左移動）	、ＲＭＶ（回転右移動）	  、ＪＭＰ（その場でＪＵＭＰ）
  1648                          ;		ＲＫＮ（右向きケンケン）、ＬＫＮ（左向きケンケン）、ＨＩＰ（その場で尻振り）
  1649                          ;
  1650                          ;ダンス０ (ばんぶーのＸ：０）ＬＥＧ，ＬＭＶ，ＬＫＮ，ＲＭＶ，ＪＭＰ，ＲＭＶ，ＲＫＮ，ＬＭＶ
  1651                          ;ダンス１ (ばんぶーのＸ：１）ＪＭＰ，ＲＭＶ，ＲＫＮ，ＬＭＶ，ＬＥＧ，ＬＭＶ，ＬＫＮ，ＲＭＶ
  1652                          ;
  1653                          ;ダンス０ (ばんぶーのＸ：０）ＲＫＮ，ＬＫＮ，ＨＩＰ，ＬＪＰ，ＬＫＮ，ＲＫＮ，ＨＩＰ，ＲＪＰ
  1654                          ;ダンス１ (ばんぶーのＸ：１）ＬＫＮ，ＲＫＮ，ＨＩＰ，ＲＪＰ，ＲＫＮ，ＬＫＮ，ＨＩＰ，ＬＪＰ
  1655                          ;
  1656                          ;ダンス０ (ばんぶーのＸ：０）ＪＭＰ，ＬＥＧ，ＲＫＮ，ＬＭＶ，ＪＭＰ，ＬＥＧ，ＬＫＮ，ＲＭＶ
  1657                          ;ダンス１ (ばんぶーのＸ：１）ＪＭＰ，ＬＥＧ，ＬＫＮ，ＲＭＶ，ＪＭＰ，ＬＥＧ，ＲＫＮ，ＬＭＶ
  1658                          ;
  1659                          ;ダンス０ (ばんぶーのＸ：０）ＬＫＮ，ＲＭＶ，ＨＩＰ，ＬＪＰ，ＬＫＮ，ＲＭＶ，ＬＥＧ，ＬＪＰ
  1660                          ;ダンス１ (ばんぶーのＸ：１）ＬＫＮ，ＲＭＶ，ＬＥＧ，ＬＪＰ，ＬＫＮ，ＲＭＶ，ＨＩＰ，ＬＪＰ
  1661                          ;
  1662          0001E3          BB_EN		EQU	BB_S0+1		;	　”	　　 ダンスエンド
  1663                          ;
  1664          0001E4          TJM_E		EQU	BB_EN+1		; 雷ジュゲムのわきだしＥＮＤ
  1665                          ;
  1666          0001E5          MTH_S		EQU	TJM_E+1		; 花ちゃん成虫のわきだし
  1667          0001E6          MTH_E		EQU	MTH_S+1		; 花ちゃん成虫のわきだしＥＮＤ
  1668                          ;
  1669          0001E7          PKN_S		EQU	MTH_E+1		; プチパックンのわきだし
  1670          0001E8          PKN_E		EQU	PKN_S+1		; プチパックンのわきだしＥＮＤ
  1671                          ;
  1672          0001E9          FSB_S		EQU	PKN_E+1		; 風船仙人掌のわきだし
  1673          0001EA          FSB_E		EQU	FSB_S+1		; 風船仙人掌のわきだしＥＮＤ
  1674          0001EB          FBM_S		EQU	FSB_E+1		; 風船爆弾のわきだし
  1675          0001EC          FBM_E		EQU	FBM_S+1		; 風船爆弾のわきだしＥＮＤ
  1676                          ;
  1677          0001ED          FSN_S		EQU	FBM_E+1		;風船リフトスタート
  1678          0001EE          FSN_E		EQU	FSN_S+1		;風船リフトＥＮＤ
  1679                          ;
  1680          0001EF          RP0_S		EQU	FSN_E+1		;ロープリフトタイプ０セット
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0029

  1681                          ;
  1682          0001F0          SSL_S		EQU	RP0_S+1		;ちびぷよのわきだしスタート
  1683          0001F1          SSL_E		EQU	SSL_S+1		;ちびぷよのわきだしＥＮＤ
  1684                          ;
  1685          0001F2          FUR_E		EQU	SSL_E+1		;ワタボー”フラフラ”キャンセル
  1686                          ;
  1687          0001F3          AHO_E		EQU	FUR_E+1		;あほーどりのわきだしＥＮＤ
  1688                          ;
  1689          0001F4          WAT_S		EQU	AHO_E+1		;わたぼーのわきだしスタート
  1690                          ;
  1691          0001F4          ENAME_END	EQU	WAT_S
  1692                          ;
  1693                          ;
  1694                          ;****************************************************************
  1695                          ;*		enemy move name					*
  1696                          ;****************************************************************
  1697          00052E          EMVADR		EQU	$
  1698  E00052E 000000"         		LWORD	WAVLFMV		;[WAVLF]
  1699  E000531 000000"         		LWORD	CDOORMV		;[CDOOR]
  1700  E000534 000000"         		LWORD	MPACWMV		;[MPACW]
  1701  E000537 000000"         		LWORD	TRBX2MV		;[TRBX2]
  1702  E00053A 000000"         		LWORD	MRBLKMV		;[MRBLK]
  1703  E00053D 000000"         		LWORD	COLD0MV		;[COLD0]
  1704  E000540 000000"         		LWORD	COLDXMV		;[COLDX]
  1705  E000543 000000"         		LWORD	SUIKAMV		;[SUIKA]
  1706  E000546 000000"         		LWORD	KPEXBMV		;[KPEXB]
  1707  E000549 000000"         		LWORD	FIRE0MV		;[FIRE0]
  1708  E00054C 000000"         		LWORD	TAIH0MV		;[TAIH0]
  1709  E00054F 000000"         		LWORD	BOMB0MV		;[BOMB0]
  1710  E000552 000000"         		LWORD	BOSSQMV		;[BOSSQ]
  1711  E000555 000000"         		LWORD	GOAL1MV		;[GOAL1]
  1712  E000558 000000"         		LWORD	GOALXMV		;[GOALX]
  1713  E00055B 000000"         		LWORD	BONSXMV		;[BONSX]
  1714  E00055E 000000"         		LWORD	BG3D2MV		;[BG3D2]
  1715  E000561 000000"         		LWORD	M_ITMMV		;[M_ITM]
  1716  E000564 000000"         		LWORD	BOSDRMV		;[BOSDR]
  1717  E000567 000000"         		LWORD	BSCLWMV		;[BSCLW]
  1718  E00056A 000000"         		LWORD	BSCLRMV		;[BSCLR]
  1719  E00056D 000000"         		LWORD	MISA0MV		;[MISA0]
  1720  E000570 000000"         		LWORD	DTELEMV		;[DTELE]
  1721  E000573 000000"         		LWORD	GEROZMV		;[GEROZ]
  1722  E000576 000000"         		LWORD	FIREXMV		;[FIREX]
  1723  E000579 000000"         		LWORD	SOPB0MV		;[SOPB0]
  1724  E00057C 000000"         		LWORD	SKILFMV		;[SKILF]
  1725  E00057F 000000"         		LWORD	WTRLFMV		;[WTRLF]
  1726  E000582 000000"         		LWORD	YUKIDMV		;[YUKID]
  1727  E000585 000000"         		LWORD	YKDLFMV		;[YKDLF]
  1728  E000588 000000"         		LWORD	HEIH0MV		;[HEIH0]
  1729  E00058B 000000"         		LWORD	RDOORMV		;[RDOOR]
  1730  E00058E 000000"         		LWORD	DOROBMV		;[DOROB]
  1731  E000591 000000"         		LWORD	BAKLFMV		;[BAKLF]
  1732  E000594 00386E'         		LWORD	EGG00MV		;[EGG00]
  1733  E000597 003872'         		LWORD	EGG02MV		;[EGG02]
  1734  E00059A 003872'         		LWORD	EGG01MV		;[EGG01]
  1735  E00059D 003872'         		LWORD	EGG03MV		;[EGG03]
  1736  E0005A0 000000"         		LWORD	KPBOMMV		;[KPBOM]
  1737  E0005A3 000000"         		LWORD	DRKEYMV		;[DRKEY]
  1738  E0005A6 000000"         		LWORD	KAMO1MV		;[KAMO1]
  1739  E0005A9 0037B4'         		LWORD	YSEGGMV		;[YSEGG]
  1740  E0005AC 003872'         		LWORD	EGG08MV		;[EGG08]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0030

  1741  E0005AF 003872'         		LWORD	EGG09MV		;[EGG09]
  1742  E0005B2 000000"         		LWORD	NAMAZMV		;[NAMAZ]
  1743  E0005B5 000000"         		LWORD	SLIMEMV		;[SLIME]
  1744  E0005B8 000000"         		LWORD	SLEYEMV		;[SLEYE]
  1745  E0005BB 000000"         		LWORD	NZANAMV		;[NZANA]
  1746  E0005BE 000000"         		LWORD	NEZMIMV		;[NEZMI]
  1747  E0005C1 000000"         		LWORD	SANPOMV		;[SANPO]
  1748  E0005C4 000000"         		LWORD	NZAN2MV		;[NZAN2]
  1749  E0005C7 000000"         		LWORD	NEZM2MV		;[NEZM2]
  1750  E0005CA 000000"         		LWORD	TSUBOMV		;[TSUBO]
  1751  E0005CD 000000"         		LWORD	OBAKEMV		;[OBAKE]
  1752  E0005D0 000000"         		LWORD	IWATSMV		;[IWATS]
  1753  E0005D3 000000"         		LWORD	GHOSTMV		;[GHOST]
  1754  E0005D6 000000"         		LWORD	OBFIRMV		;[OBFIR]
  1755  E0005D9 000000"         		LWORD	POLY1MV		;[POLY1]
  1756  E0005DC 000000"         		LWORD	HINAQMV		;[HINAQ]
  1757  E0005DF 000000"         		LWORD	HINQ2MV		;[HINQ2]
  1758  E0005E2 000000"         		LWORD	BOSSKMV		;[BOSSK]
  1759  E0005E5 000000"         		LWORD	SESAWMV		;[SESAW]
  1760  E0005E8 000000"         		LWORD	MARUTMV		;[MARUT]
  1761  E0005EB 000000"         		LWORD	BKSLMMV		;[BKSLM]
  1762  E0005EE 000000"         		LWORD	LUIGIMV		;[LUIGI]
  1763  E0005F1 000000"         		LWORD	KONOTMV		;[KONOT]
  1764  E0005F4 000000"         		LWORD	DNXG2MV		;[DNXG2]
  1765  E0005F7 000000"         		LWORD	BHEIRMV		;[BHEIR]
  1766  E0005FA 000000"         		LWORD	BHEIGMV		;[BHEIG]
  1767  E0005FD 000000"         		LWORD	INGERMV		;[INGER]
  1768  E000600 000000"         		LWORD	BBBRSMV		;[BBBRS]
  1769  E000603 000000"         		LWORD	TBHIHMV		;[TBHIH]
  1770  E000606 000000"         		LWORD	KAMC2MV		;[KAMC2]
  1771  E000609 000000"         		LWORD	SWAVMMV		;[SWAVM]
  1772  E00060C 000000"         		LWORD	SWAV0MV		;[SWAV0]
  1773  E00060F 000000"         		LWORD	SWAV1MV		;[SWAV1]
  1774  E000612 000000"         		LWORD	ZSAB2MV		;[ZSAB2]
  1775  E000615 000000"         		LWORD	KERO0MV		;[KERO0]
  1776  E000618 000000"         		LWORD	POLDRMV		;[POLDR]
  1777  E00061B 000000"         		LWORD	GATE0MV		;[GATE0]
  1778  E00061E 000000"         		LWORD	GITANMV		;[GITAN]
  1779  E000621 000000"         		LWORD	FACE8MV		;[FACE8]
  1780  E000624 000000"         		LWORD	FUSENMV		;[FUSEN]
  1781  E000627 000000"         		LWORD	KAMCSMV		;[KAMCS]
  1782  E00062A 000000"         		LWORD	ZPAC3MV		;[ZPAC3]
  1783  E00062D 000000"         		LWORD	MILL0MV		;[MILL0]
  1784  E000630 000000"         		LWORD	MILS0MV		;[MILS0]
  1785  E000633 000000"         		LWORD	BG3FLMV		;[BG3FL]
  1786  E000636 000000"         		LWORD	DORBFMV		;[DORBF]
  1787  E000639 000000"         		LWORD	CSTARMV		;[CSTAR]
  1788  E00063C 000000"         		LWORD	QSPAKMV		;[QSPAK]
  1789  E00063F 000000"         		LWORD	DORB2MV		;[DORB2]
  1790  E000642 000000"         		LWORD	DRBF2MV		;[DRBF2]
  1791  E000645 000000"         		LWORD	HBLK5MV		;[HBLK5]
  1792  E000648 000000"         		LWORD	GITNSMV		;[GITNS]
  1793  E00064B 000000"         		LWORD	GITNLMV		;[GITNL]
  1794  E00064E 000000"         		LWORD	BOMBXMV		;[BOMBX]
  1795  E000651 000000"         		LWORD	BABYMMV		;[BABYM]
  1796  E000654 000000"         		LWORD	PANDAMV		;[PANDA]
  1797  E000657 000000"         		LWORD	BETO0MV		;[BETO0]
  1798  E00065A 000000"         		LWORD	MILL1MV		;[MILL1]
  1799  E00065D 000000"         		LWORD	COINRMV		;[COINR]
  1800  E000660 000000"         		LWORD	ZPACKMV		;[ZPACK]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0031

  1801  E000663 000000"         		LWORD	HIMITMV		;[HIMIT]
  1802  E000666 000000"         		LWORD	HBLK2MV		;[HBLK2]
  1803  E000669 000000"         		LWORD	HBLK4MV		;[HBLK4]
  1804  E00066C 000000"         		LWORD	HBLK3MV		;[HBLK3]
  1805  E00066F 000000"         		LWORD	HBLK7MV		;[HBLK7]
  1806  E000672 000000"         		LWORD	JBLKLMV		;[JBLKL]
  1807  E000675 000000"         		LWORD	PPCKLMV		;[PPCKL]
  1808  E000678 000000"         		LWORD	PPCKRMV		;[PPCKR]
  1809  E00067B 000000"         		LWORD	JBLK0MV		;[JBLK0]
  1810  E00067E 000000"         		LWORD	KANI0MV		;[KANI0]
  1811  E000681 000000"         		LWORD	TELELMV		;[TELEL]
  1812  E000684 000000"         		LWORD	RAKUGMV		;[RAKUG]
  1813  E000687 000000"         		LWORD	PONPUMV		;[PONPU]
  1814  E00068A 000000"         		LWORD	GABONMV		;[GABON]
  1815  E00068D 000000"         		LWORD	GABNBMV		;[GABNB]
  1816  E000690 000000"         		LWORD	SPRKLMV		;[SPRKL]
  1817  E000693 000000"         		LWORD	SPRKRMV		;[SPRKR]
  1818  E000696 000000"         		LWORD	DAI00MV		;[DAI00]
  1819  E000699 000000"         		LWORD	DAI01MV		;[DAI01]
  1820  E00069C 000000"         		LWORD	DAI02MV		;[DAI02]
  1821  E00069F 000000"         		LWORD	KIL00MV		;[KIL00]
  1822  E0006A2 000000"         		LWORD	KIL01MV		;[KIL01]
  1823  E0006A5 000000"         		LWORD	KIL02MV		;[KIL02]
  1824  E0006A8 000000"         		LWORD	DWNBGMV		;[DWNBG]
  1825  E0006AB 000000"         		LWORD	FYUKAMV		;[FYUKA]
  1826  E0006AE 000000"         		LWORD	ZBUB0MV		;[ZBUB0]
  1827  E0006B1 000000"         		LWORD	ZBUB1MV		;[ZBUB1]
  1828  E0006B4 000000"         		LWORD	WANG0MV		;[WANG0]
  1829  E0006B7 000000"         		LWORD	BGKM0MV		;[BGKM0]
  1830  E0006BA 000000"         		LWORD	NEXTGMV		;[NEXTG]
  1831  E0006BD 000000"         		LWORD	HARIOMV		;[HARIO]
  1832  E0006C0 000000"         		LWORD	COIN0MV		;[COIN0]
  1833  E0006C3 000000"         		LWORD	EG1UPMV		;[EG1UP]
  1834  E0006C6 000000"         		LWORD	MSTARMV		;[MSTAR]
  1835  E0006C9 000000"         		LWORD	NLFLRMV		;[NLFLR]
  1836  E0006CC 000000"         		LWORD	NLFUDMV		;[NLFUD]
  1837  E0006CF 000000"         		LWORD	FBOM0MV		;[FBOM0]
  1838  E0006D2 000000"         		LWORD	GOLYSMV		;[GOLYS]
  1839  E0006D5 000000"         		LWORD	MC1UPMV		;[MC1UP]
  1840  E0006D8 000000"         		LWORD	KAMC3MV		;[KAMC3]
  1841  E0006DB 000000"         		LWORD	OSARUMV		;[OSARU]
  1842  E0006DE 000000"         		LWORD	BG3KTMV		;[BG3KT]
  1843  E0006E1 000000"         		LWORD	DEATHMV		;[DEATH]
  1844  E0006E4 000000"         		LWORD	KOROGMV		;[KOROG]
  1845  E0006E7 000000"         		LWORD	ZDOORMV		;[ZDOOR]
  1846  E0006EA 000000"         		LWORD	HBLK6MV		;[HBLK6]
  1847  E0006ED 000000"         		LWORD	BLKLFMV		;[BLKLF]
  1848  E0006F0 000000"         		LWORD	BLKL2MV		;[BLKL2]
  1849  E0006F3 000000"         		LWORD	POWSWMV		;[POWSW]
  1850  E0006F6 000000"         		LWORD	WARPSMV		;[WARPS]
  1851  E0006F9 000000"         		LWORD	JTAM2MV		;[JTAM2]
  1852  E0006FC 000000"         		LWORD	ROTLFMV		;[ROTLF]
  1853  E0006FF 000000"         		LWORD	GABN2MV		;[GABN2]
  1854  E000702 000000"         		LWORD	GBNB2MV		;[GBNB2]
  1855  E000705 000000"         		LWORD	SW000MV		;[SW000]
  1856  E000708 000000"         		LWORD	MBALLMV		;[MBALL]
  1857  E00070B 000000"         		LWORD	ZPAC2MV		;[ZPAC2]
  1858  E00070E 000000"         		LWORD	TULIPMV		;[TULIP]
  1859  E000711 000000"         		LWORD	HACHIMV		;[HACHI]
  1860  E000714 000000"         		LWORD	GENKIMV		;[GENKI]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0032

  1861  E000717 000000"         		LWORD	DORBLMV		;[DORBL]
  1862  E00071A 000000"         		LWORD	DORBRMV		;[DORBR]
  1863  E00071D 000000"         		LWORD	UNBABMV		;[UNBAB]
  1864  E000720 000000"         		LWORD	AWANGMV		;[AWANG]
  1865  E000723 000000"         		LWORD	AWANMMV		;[AWANM]
  1866  E000726 000000"         		LWORD	AWANSMV		;[AWANS]
  1867  E000729 000000"         		LWORD	AWANPMV		;[AWANP]
  1868  E00072C 000000"         		LWORD	SHEIHMV		;[SHEIH]
  1869  E00072F 000000"         		LWORD	ITEGGMV		;[ITEGG]
  1870  E000732 000000"         		LWORD	KPBKGMV		;[KPBKG]
  1871  E000735 000000"         		LWORD	MSGBXMV		;[MSGBX]
  1872  E000738 000000"         		LWORD	BOSS0MV		;[BOSS0]
  1873  E00073B 0042BF'         		LWORD	CHG00MV		;[CHG00]
  1874  E00073E 0042BF'         		LWORD	CHG01MV		;[CHG01]
  1875  E000741 0042BF'         		LWORD	CHG02MV		;[CHG02]
  1876  E000744 0042BF'         		LWORD	CHG03MV		;[CHG03]
  1877  E000747 001F4E'         		LWORD	PUUUUMV		;[PUUUU]
  1878  E00074A 0042BF'         		LWORD	CHG05MV		;[CHG05]
  1879  E00074D 00408C'         		LWORD	QKM00MV		;[QKM00]
  1880  E000750 0042BF'         		LWORD	QKM01MV		;[QKM01]
  1881  E000753 0042BF'         		LWORD	QKM02MV		;[QKM02]
  1882  E000756 0042BF'         		LWORD	QKM03MV		;[QKM03]
  1883  E000759 0042BF'         		LWORD	QKM04MV		;[QKM04]
  1884  E00075C 0042BF'         		LWORD	QKM05MV		;[QKM05]
  1885  E00075F 0042BF'         		LWORD	QKM06MV		;[QKM06]
  1886  E000762 0042BF'         		LWORD	QKM07MV		;[QKM07]
  1887  E000765 0042BF'         		LWORD	QKM08MV		;[QKM08]
  1888  E000768 0042BF'         		LWORD	QKM09MV		;[QKM09]
  1889  E00076B 0042BF'         		LWORD	QKM0AMV		;[QKM0A]
  1890  E00076E 0042BF'         		LWORD	QKM0BMV		;[QKM0B]
  1891  E000771 0042BF'         		LWORD	QKM0CMV		;[QKM0C]
  1892  E000774 0042BF'         		LWORD	QKM0DMV		;[QKM0D]
  1893  E000777 0042BF'         		LWORD	QKM0EMV		;[QKM0E]
  1894  E00077A 0042BF'         		LWORD	QKM0FMV		;[QKM0F]
  1895  E00077D 0042BF'         		LWORD	QKM10MV		;[QKM10]
  1896  E000780 0042BF'         		LWORD	QKM11MV		;[QKM11]
  1897  E000783 0042BF'         		LWORD	QKM12MV		;[QKM12]
  1898  E000786 0042BF'         		LWORD	QKM13MV		;[QKM13]
  1899  E000789 0042BF'         		LWORD	QKM14MV		;[QKM14]
  1900  E00078C 000000"         		LWORD	LBSDRMV		;[LBSDR]
  1901  E00078F 0042BF'         		LWORD	QKM16MV		;[QKM16]
  1902  E000792 0042BF'         		LWORD	QKM17MV		;[QKM17]
  1903  E000795 000000"         		LWORD	FKPBMMV		;[FKPBM]
  1904  E000798 000000"         		LWORD	KPFIRMV		;[KPFIR]
  1905  E00079B 000000"         		LWORD	KPBLKMV		;[KPBLK]
  1906  E00079E 000000"         		LWORD	SNXGOMV		;[SNXGO]
  1907  E0007A1 000000"         		LWORD	DNXGOMV		;[DNXGO]
  1908  E0007A4 000000"         		LWORD	PUCHAMV		;[PUCHA]
  1909  E0007A7 000000"         		LWORD	PUCHGMV		;[PUCHG]
  1910  E0007AA 000000"         		LWORD	PUCHBMV		;[PUCHB]
  1911  E0007AD 000000"         		LWORD	BG_00MV		;[BG_00]
  1912  E0007B0 000000"         		LWORD	BG3ULMV		;[BG3UL]
  1913  E0007B3 000000"         		LWORD	BKMKJMV		;[BKMKJ]
  1914  E0007B6 000000"         		LWORD	AW_FGMV		;[AW_FG]
  1915  E0007B9 000000"         		LWORD	TJUGMMV		;[TJUGM]
  1916  E0007BC 000000"         		LWORD	TTUBOMV		;[TTUBO]
  1917  E0007BF 000000"         		LWORD	BG3BLMV		;[BG3BL]
  1918  E0007C2 000000"         		LWORD	YGOROMV		;[YGORO]
  1919  E0007C5 000000"         		LWORD	DMPLCMV		;[DMPLC]
  1920  E0007C8 000000"         		LWORD	ON_DWMV		;[ON_DW]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0033

  1921  E0007CB 000000"         		LWORD	WPKPKMV		;[WPKPK]
  1922  E0007CE 000000"         		LWORD	JFISHMV		;[JFISH]
  1923  E0007D1 000000"         		LWORD	HBNBNMV		;[HBNBN]
  1924  E0007D4 000000"         		LWORD	BOBK0MV		;[BOBK0]
  1925  E0007D7 000000"         		LWORD	BOBK1MV		;[BOBK1]
  1926  E0007DA 000000"         		LWORD	HSAN0MV		;[HSAN0]
  1927  E0007DD 000000"         		LWORD	HSAN1MV		;[HSAN1]
  1928  E0007E0 000000"         		LWORD	TUMUJMV		;[TUMUJ]
  1929  E0007E3 000000"         		LWORD	BBROSMV		;[BBROS]
  1930  E0007E6 000000"         		LWORD	AHOBDMV		;[AHOBD]
  1931  E0007E9 000000"         		LWORD	AHOB2MV		;[AHOB2]
  1932  E0007EC 000000"         		LWORD	OTAMAMV		;[OTAMA]
  1933  E0007EF 000000"         		LWORD	OTAMHMV		;[OTAMH]
  1934  E0007F2 000000"         		LWORD	VOWVWMV		;[VOWVW]
  1935  E0007F5 000000"         		LWORD	VOWV2MV		;[VOWV2]
  1936  E0007F8 000000"         		LWORD	NIKOPMV		;[NIKOP]
  1937  E0007FB 000000"         		LWORD	NIKP2MV		;[NIKP2]
  1938  E0007FE 000000"         		LWORD	NIKP3MV		;[NIKP3]
  1939  E000801 000000"         		LWORD	BBFLWMV		;[BBFLW]
  1940  E000804 000000"         		LWORD	TAKEHMV		;[TAKEH]
  1941  E000807 000000"         		LWORD	MSHIHMV		;[MSHIH]
  1942  E00080A 000000"         		LWORD	EGFLWMV		;[EGFLW]
  1943  E00080D 000000"         		LWORD	BATSNMV		;[BATSN]
  1944  E000810 000000"         		LWORD	KAMO0MV		;[KAMO0]
  1945  E000813 000000"         		LWORD	AWAFKMV		;[AWAFK]
  1946  E000816 000000"         		LWORD	ZSABOMV		;[ZSABO]
  1947  E000819 000000"         		LWORD	STAMAMV		;[STAMA]
  1948  E00081C 000000"         		LWORD	ZFLWRMV		;[ZFLWR]
  1949  E00081F 000000"         		LWORD	YARIHMV		;[YARIH]
  1950  E000822 000000"         		LWORD	YARH2MV		;[YARH2]
  1951  E000825 000000"         		LWORD	KARATMV		;[KARAT]
  1952  E000828 000000"         		LWORD	ENRGBMV		;[ENRGB]
  1953  E00082B 000000"         		LWORD	POCHIMV		;[POCHI]
  1954  E00082E 000000"         		LWORD	PUPBBMV		;[PUPBB]
  1955  E000831 000000"         		LWORD	GURU1MV		;[GURU1]
  1956  E000834 000000"         		LWORD	GURU2MV		;[GURU2]
  1957  E000837 000000"         		LWORD	GHEIHMV		;[GHEIH]
  1958  E00083A 000000"         		LWORD	BFISHMV		;[BFISH]
  1959  E00083D 000000"         		LWORD	HOMOLMV		;[HOMOL]
  1960  E000840 000000"         		LWORD	HOMORMV		;[HOMOR]
  1961  E000843 000000"         		LWORD	SUIKTMV		;[SUIKT]
  1962  E000846 000000"         		LWORD	PONTAMV		;[PONTA]
  1963  E000849 000000"         		LWORD	KATI0MV		;[KATI0]
  1964  E00084C 000000"         		LWORD	KATI1MV		;[KATI1]
  1965  E00084F 000000"         		LWORD	KATI2MV		;[KATI2]
  1966  E000852 000000"         		LWORD	DOSUNMV		;[DOSUN]
  1967  E000855 000000"         		LWORD	DHEIHMV		;[DHEIH]
  1968  E000858 000000"         		LWORD	TRBOXMV		;[TRBOX]
  1969  E00085B 000000"         		LWORD	BTELEMV		;[BTELE]
  1970  E00085E 000000"         		LWORD	ZFLW2MV		;[ZFLW2]
  1971  E000861 000000"         		LWORD	PURINMV		;[PURIN]
  1972  E000864 000000"         		LWORD	PURI0MV		;[PURI0]
  1973  E000867 000000"         		LWORD	MCHO2MV		;[MCHO2]
  1974  E00086A 000000"         		LWORD	BULETMV		;[BULET]
  1975  E00086D 000000"         		LWORD	COIN1MV		;[COIN1]
  1976  E000870 000000"         		LWORD	FLOATMV		;[FLOAT]
  1977  E000873 000000"         		LWORD	TIKU0MV		;[TIKU0]
  1978  E000876 000000"         		LWORD	TIKU1MV		;[TIKU1]
  1979  E000879 000000"         		LWORD	NUNOOMV		;[NUNOO]
  1980  E00087C 000000"         		LWORD	MITSNMV		;[MITSN]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0034

  1981  E00087F 000000"         		LWORD	JUGEMMV		;[JUGEM]
  1982  E000882 000000"         		LWORD	KINTOMV		;[KINTO]
  1983  E000885 000000"         		LWORD	JTAMAMV		;[JTAMA]
  1984  E000888 000000"         		LWORD	RLTLFMV		;[RLTLF]
  1985  E00088B 000000"         		LWORD	RLTL2MV		;[RLTL2]
  1986  E00088E 000000"         		LWORD	RLTL3MV		;[RLTL3]
  1987  E000891 000000"         		LWORD	CNTLFMV		;[CNTLF]
  1988  E000894 000000"         		LWORD	BAK20MV		;[BAK20]
  1989  E000897 000000"         		LWORD	BAK21MV		;[BAK21]
  1990  E00089A 000000"         		LWORD	ARIH0MV		;[ARIH0]
  1991  E00089D 000000"         		LWORD	KAMC4MV		;[KAMC4]
  1992  E0008A0 000000"         		LWORD	MAKI0MV		;[MAKI0]
  1993  E0008A3 000000"         		LWORD	MAKI1MV		;[MAKI1]
  1994  E0008A6 000000"         		LWORD	FWAVEMV		;[FWAVE]
  1995  E0008A9 000000"         		LWORD	WATABMV		;[WATAB]
  1996  E0008AC 000000"         		LWORD	KUSAHMV		;[KUSAH]
  1997  E0008AF 000000"         		LWORD	DEBU0MV		;[DEBU0]
  1998  E0008B2 000000"         		LWORD	COMCHMV		;[COMCH]
  1999  E0008B5 000000"         		LWORD	YOSSYMV		;[YOSSY]
  2000  E0008B8 000000"         		LWORD	BG3EXMV		;[BG3EX]
  2001  E0008BB 000000"         		LWORD	FHOTMMV		;[FHOTM]
  2002  E0008BE 000000"         		LWORD	FVOTMMV		;[FVOTM]
  2003  E0008C1 000000"         		LWORD	KEYDRMV		;[KEYDR]
  2004  E0008C4 000000"         		LWORD	SSLIMMV		;[SSLIM]
  2005  E0008C7 000000"         		LWORD	CHKH0MV		;[CHKH0]
  2006  E0008CA 000000"         		LWORD	KOOPAMV		;[KOOPA]
  2007  E0008CD 000000"         		LWORD	QCHANMV		;[QCHAN]
  2008  E0008D0 000000"         		LWORD	QCHN2MV		;[QCHN2]
  2009  E0008D3 000000"         		LWORD	DWBL0MV		;[DWBL0]
  2010  E0008D6 000000"         		LWORD	DWBL1MV		;[DWBL1]
  2011  E0008D9 000000"         		LWORD	DWBL2MV		;[DWBL2]
  2012  E0008DC 000000"         		LWORD	DWBL3MV		;[DWBL3]
  2013  E0008DF 000000"         		LWORD	IEKI0MV		;[IEKI0]
  2014  E0008E2 000000"         		LWORD	FLIPPMV		;[FLIPP]
  2015  E0008E5 000000"         		LWORD	KOMO0MV		;[KOMO0]
  2016  E0008E8 000000"         		LWORD	KOMO1MV		;[KOMO1]
  2017  E0008EB 000000"         		LWORD	PKPK0MV		;[PKPK0]
  2018  E0008EE 000000"         		LWORD	PKPK1MV		;[PKPK1]
  2019  E0008F1 000000"         		LWORD	PKPK2MV		;[PKPK2]
  2020  E0008F4 000000"         		LWORD	PKPK3MV		;[PKPK3]
  2021  E0008F7 000000"         		LWORD	TEPPOMV		;[TEPPO]
  2022  E0008FA 000000"         		LWORD	FLIPHMV		;[FLIPH]
  2023  E0008FD 000000"         		LWORD	KEME0MV		;[KEME0]
  2024  E000900 000000"         		LWORD	KEME1MV		;[KEME1]
  2025  E000903 000000"         		LWORD	SNXG2MV		;[SNXG2]
  2026  E000906 000000"         		LWORD	JBKL2MV		;[JBKL2]
  2027  E000909 000000"         		LWORD	REFC0MV		;[REFC0]
  2028  E00090C 000000"         		LWORD	REFC1MV		;[REFC1]
  2029  E00090F 000000"         		LWORD	REFC2MV		;[REFC2]
  2030  E000912 000000"         		LWORD	REFC3MV		;[REFC3]
  2031  E000915 000000"         		LWORD	REFC4MV		;[REFC4]
  2032  E000918 000000"         		LWORD	REFC5MV		;[REFC5]
  2033  E00091B 000000"         		LWORD	REFC6MV		;[REFC6]
  2034  E00091E 000000"         		LWORD	REFC7MV		;[REFC7]
  2035  E000921 000000"         		LWORD	REFC8MV		;[REFC8]
  2036  E000924 000000"         		LWORD	MOTH0MV		;[MOTH0]
  2037  E000927 000000"         		LWORD	BAHOBMV		;[BAHOB]
  2038  E00092A 000000"         		LWORD	AWANHMV		;[AWANH]
  2039  E00092D 000000"         		LWORD	DBAHOMV		;[DBAHO]
  2040  E000930 000000"         		LWORD	MATO0MV		;[MATO0]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0035

  2041  E000933 000000"         		LWORD	AJGM0MV		;[AJGM0]
  2042  E000936 000000"         		LWORD	DBAH2MV		;[DBAH2]
  2043  E000939 000000"         		LWORD	TONG0MV		;[TONG0]
  2044  E00093C 000000"         		LWORD	TONG1MV		;[TONG1]
  2045  E00093F 000000"         		LWORD	BAMBOMV		;[BAMBO]
  2046  E000942 000000"         		LWORD	RBLKGMV		;[RBLKG]
  2047  E000945 000000"         		LWORD	RBLKYMV		;[RBLKY]
  2048  E000948 000000"         		LWORD	MILL2MV		;[MILL2]
  2049  E00094B 000000"         		LWORD	RFLSGMV		;[RFLSG]
  2050  E00094E 000000"         		LWORD	RFLSYMV		;[RFLSY]
  2051  E000951 000000"         		LWORD	HIMI2MV		;[HIMI2]
  2052  E000954 000000"         		LWORD	RFLLGMV		;[RFLLG]
  2053  E000957 000000"         		LWORD	SABO0MV		;[SABO0]
  2054  E00095A 000000"         		LWORD	P_KN2MV		;[P_KN2]
  2055  E00095D 000000"         		LWORD	P_KUNMV		;[P_KUN]
  2056  E000960 000000"         		LWORD	THJGMMV		;[THJGM]
  2057  E000963 000000"         		LWORD	KORA0MV		;[KORA0]
  2058  E000966 000000"         		LWORD	KORA1MV		;[KORA1]
  2059  E000969 000000"         		LWORD	HNOK0MV		;[HNOK0]
  2060  E00096C 000000"         		LWORD	HNOK1MV		;[HNOK1]
  2061  E00096F 000000"         		LWORD	NKNK0MV		;[NKNK0]
  2062  E000972 000000"         		LWORD	NKNK1MV		;[NKNK1]
  2063  E000975 000000"         		LWORD	PTPT0MV		;[PTPT0]
  2064  E000978 000000"         		LWORD	PTPT1MV		;[PTPT1]
  2065  E00097B 000000"         		LWORD	PTPT2MV		;[PTPT2]
  2066  E00097E 000000"         		LWORD	JGEMWMV		;[JGEMW]
  2067  E000981 000000"         		LWORD	MPACKMV		;[MPACK]
  2068  E000984 000000"         		LWORD	MPACHMV		;[MPACH]
  2069  E000987 000000"         		LWORD	FUSN0MV		;[FUSN0]
  2070  E00098A 000000"         		LWORD	FUSN1MV		;[FUSN1]
  2071  E00098D 000000"         		LWORD	FUSN2MV		;[FUSN2]
  2072  E000990 000000"         		LWORD	FUSN3MV		;[FUSN3]
  2073  E000993 000000"         		LWORD	FUSN4MV		;[FUSN4]
  2074  E000996 000000"         		LWORD	FUSN5MV		;[FUSN5]
  2075  E000999 000000"         		LWORD	FUSN6MV		;[FUSN6]
  2076  E00099C 000000"         		LWORD	FUSN7MV		;[FUSN7]
  2077  E00099F 000000"         		LWORD	FUSN8MV		;[FUSN8]
  2078  E0009A2 000000"         		LWORD	FUSN9MV		;[FUSN9]
  2079  E0009A5 000000"         		LWORD	FUSNaMV		;[FUSNa]
  2080  E0009A8 000000"         		LWORD	FUSNbMV		;[FUSNb]
  2081  E0009AB 000000"         		LWORD	BALONMV		;[BALON]
  2082  E0009AE 000000"         		LWORD	RMARUMV		;[RMARU]
  2083  E0009B1 000000"         		LWORD	PANSYMV		;[PANSY]
  2084  E0009B4 000000"         		LWORD	DGFLYMV		;[DGFLY]
  2085  E0009B7 000000"         		LWORD	BTFLYMV		;[BTFLY]
  2086  E0009BA 000000"         		LWORD	TARKNMV		;[TARKN]
  2087  E0009BD 000000"         		LWORD	NRLF0MV		;[NRLF0]
  2088  E0009C0 000000"         		LWORD	NRLF1MV		;[NRLF1]
  2089  E0009C3 000000"         		LWORD	HRLF0MV		;[HRLF0]
  2090  E0009C6 000000"         		LWORD	HRLF1MV		;[HRLF1]
  2091  E0009C9 000000"         		LWORD	NRLF2MV		;[NRLF2]
  2092  E0009CC 000000"         		LWORD	NRLF3MV		;[NRLF3]
  2093  E0009CF 000000"         		LWORD	HRLF2MV		;[HRLF2]
  2094  E0009D2 000000"         		LWORD	HRLF3MV		;[HRLF3]
  2095  E0009D5 000000"         		LWORD	SRLF0MV		;[SRLF0]
  2096  E0009D8 000000"         		LWORD	SRLF1MV		;[SRLF1]
  2097  E0009DB 000000"         		LWORD	GRPLFMV		;[GRPLF]
  2098  E0009DE 000000"         		LWORD	TURARMV		;[TURAR]
  2099  E0009E1 000000"         		LWORD	SUZUMMV		;[SUZUM]
  2100  E0009E4 000000"         		LWORD	FLWH0MV		;[FLWH0]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0036

  2101  E0009E7 000000"         		LWORD	BG3DOMV		;[BG3DO]
  2102  E0009EA 000000"         		LWORD	KOUNBMV		;[KOUNB] 子ウンババ
  2103  E0009ED 000000"         		LWORD	GRCKSMV		;[GRCKS] ぐらぐら岩
  2104  E0009F0 000000"         		LWORD	GROCKMV		;[GROCK] ぐらぐら岩
  2105  E0009F3 000000"         		LWORD	YAJI0MV		;[YAJI0] 矢印
  2106  E0009F6 000000"         		LWORD	YAJI1MV		;[YAJI1] 矢印(斜め)
  2107  E0009F9 000000"         		LWORD	NISEFMV		;[NISEF]
  2108  E0009FC 000000"         		LWORD	GSTH0MV		;[GSTH0]
  2109  E0009FF 000000"         		LWORD	STRKNMV		;[STRKN] ターくん２号(スライディングターくん)
  2110  E000A02 000000"         		LWORD	FTRKNMV		;[FTRKN] ターくん３号(フライングターくん)
  2111  E000A05 000000"         		LWORD	BATSAMV		;[BATSA]
  2112  E000A08 000000"         		LWORD	BATSBMV		;[BATSB]
  2113  E000A0B 000000"         		LWORD	BATSCMV		;[BATSC]
  2114  E000A0E 000000"         		LWORD	FIRBRMV		;[FIRBR]
  2115  E000A11 000000"         		LWORD	FIRB2MV		;[FIRB2]
  2116  E000A14 000000"         		LWORD	TIMKNMV		;[TIMKN]
  2117  E000A17 000000"         		LWORD	SKLNZMV		;[SKLNZ]
  2118  E000A1A 000000"         		LWORD	CORKSMV		;[CORKS]
  2119  E000A1D 000000"         		LWORD	MONK0MV		;[MONK0]
  2120  E000A20 000000"         		LWORD	MONK1MV		;[MONK1]
  2121  E000A23 000000"         		LWORD	MONK2MV		;[MONK2]
  2122  E000A26 000000"         		LWORD	MONK3MV		;[MONK3]
  2123  E000A29 000000"         		LWORD	MONK4MV		;[MONK4]
  2124  E000A2C 000000"         		LWORD	YGFSHMV		;[YGFSH]
  2125  E000A2F 000000"         		LWORD	BLTLSMV		;[BLTLS]
  2126  E000A32 000000"         		LWORD	KOKERMV		;[KOKER]
  2127  E000A35 000000"         		LWORD	KAMECMV		;[KAMEC]
  2128  E000A38 000000"         		LWORD	MAGICMV		;[MAGIC]
  2129  E000A3B 000000"         		LWORD	COIN2MV		;[COIN2] コイン
  2130  E000A3E 000000"         		LWORD	BG3LFMV		;[BG3LF] ＢＧ３リフト
  2131                          ;
  2132  E000A41 000000"         		LWORD	M_THOMV		;[M_THO] ※ミニゲーム用（砲台）
  2133  E000A44 000000"         		LWORD	M_TAMMV		;[M_TAM] ※ミニゲーム用（弾）
  2134  E000A47 000000"         		LWORD	M_DR0MV		;[M_DR0] ※ミニゲーム用（ドロボー１）
  2135  E000A4A 000000"         		LWORD	M_LIFMV		;[M_LIF] ※ミニゲーム用（リフト）
  2136  E000A4D 000000"         		LWORD	M_DR2MV		;[M_DR2] ※ミニゲーム用（ドロボー３）
  2137  E000A50 000000"         		LWORD	M_FUSMV		;[M_FUS] ※ミニゲーム用（風船）
  2138  E000A53 000000"         		LWORD	M_DR4MV		;[M_DR4] ※ミニゲーム用（ドロボー５）
  2139  E000A56 000000"         		LWORD	M_SUIMV		;[M_SUI] ※ミニゲーム用（西瓜湧きだし）
  2140  E000A59 000000"         		LWORD	M_DR5MV		;[M_DR5] ※ミニゲーム用（ドロボー６）
  2141                          ;
  2142                          ;****************************************************************
  2143                          ;*		enemy fail name					*
  2144                          ;****************************************************************
  2145          000A5C          EFLADR		EQU	$
  2146  E000A5C 001A6B'         		LWORD	RTLSUB		;[WAVLF]
  2147  E000A5F 001A6B'         		LWORD	RTLSUB		;[CDOOR]
  2148  E000A62 001A6B'         		LWORD	RTLSUB		;[MPACW]
  2149  E000A65 001A6B'         		LWORD	RTLSUB		;[TRBX2]
  2150  E000A68 001A6B'         		LWORD	RTLSUB		;[MRBLK]
  2151  E000A6B 001F9F'         		LWORD	ENFAIL_FALL	;[COLD0]
  2152  E000A6E 001A6B'         		LWORD	RTLSUB		;[COLDX]
  2153  E000A71 001F9F'         		LWORD	ENFAIL_FALL	;[SUIKA]
  2154  E000A74 001A6B'         		LWORD	RTLSUB		;[KPEXB]
  2155  E000A77 001F9F'         		LWORD	ENFAIL_FALL	;[FIRE0]
  2156  E000A7A 001A6B'         		LWORD	RTLSUB		;[TAIH0]
  2157  E000A7D 001A6B'         		LWORD	RTLSUB		;[BOMB0]
  2158  E000A80 001A6B'         		LWORD	RTLSUB		;[BOSSQ]
  2159  E000A83 001A6B'         		LWORD	RTLSUB		;[GOAL1]
  2160  E000A86 001A6B'         		LWORD	RTLSUB		;[GOALX]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0037

  2161  E000A89 001A6B'         		LWORD	RTLSUB		;[BONSX]
  2162  
  2163  E000A8C 001A6B'         		LWORD	RTLSUB		;[BG3D2]
  2164  E000A8F 001A6B'         		LWORD	RTLSUB		;[M_ITM]
  2165  E000A92 001A6B'         		LWORD	RTLSUB		;[BOSDR]
  2166  E000A95 001A6B'         		LWORD	RTLSUB		;[BSCLW]
  2167  E000A98 001A6B'         		LWORD	RTLSUB		;[BSCLR]
  2168  E000A9B 001A6B'         		LWORD	RTLSUB		;[MISA0]
  2169  E000A9E 001A6B'         		LWORD	RTLSUB		;[DTELE]
  2170  E000AA1 000000"         		LWORD	GEROZFL		;[GEROZ]
  2171  E000AA4 001A6B'         		LWORD	RTLSUB		;[FIREX]
  2172  E000AA7 001A6B'         		LWORD	RTLSUB		;[SOPB0]
  2173  E000AAA 001A6B'         		LWORD	RTLSUB		;[SKILF]
  2174  E000AAD 001A6B'         		LWORD	RTLSUB		;[WTRLF]
  2175  E000AB0 001A6B'         		LWORD	RTLSUB		;[YUKID]
  2176  E000AB3 001A6B'         		LWORD	RTLSUB		;[YKDLF]
  2177  E000AB6 000000"         		LWORD	HEIH0FL		;[HEIH0]
  2178  E000AB9 001A6B'         		LWORD	RTLSUB		;[RDOOR]
  2179  
  2180  E000ABC 000000"         		LWORD	DOROBFL		;[DOROB]
  2181  E000ABF 001A6B'         		LWORD	RTLSUB		;[BAKLF]
  2182  E000AC2 001F9B'         		LWORD	EGG00_FALL	;[EGG00]
  2183  E000AC5 001F9F'         		LWORD	ENFAIL_FALL	;[EGG02]
  2184  E000AC8 001F9F'         		LWORD	ENFAIL_FALL	;[EGG01]
  2185  E000ACB 001F9F'         		LWORD	ENFAIL_FALL	;[EGG03]
  2186  E000ACE 001A6B'         		LWORD	RTLSUB		;[KPBOM]
  2187  E000AD1 001F9F'         		LWORD	ENFAIL_FALL	;[DRKEY]
  2188  E000AD4 001F9F'         		LWORD	ENFAIL_FALL	;[KAMO1]
  2189  E000AD7 001F9F'         		LWORD	ENFAIL_FALL	;[YSEGG]
  2190  E000ADA 001F9F'         		LWORD	ENFAIL_FALL	;[EGG08]
  2191  E000ADD 001F9F'         		LWORD	ENFAIL_FALL	;[EGG09]
  2192  E000AE0 001A6B'         		LWORD	RTLSUB		;[NAMAZ]
  2193  E000AE3 001A6B'         		LWORD	RTLSUB		;[SLIME]
  2194  E000AE6 001A6B'         		LWORD	RTLSUB		;[SLEYE]
  2195  E000AE9 001A6B'         		LWORD	RTLSUB		;[NZANA]
  2196  E000AEC 001F9F'         		LWORD	ENFAIL0		;[NEZMI]
  2197  E000AEF 001A6B'         		LWORD	RTLSUB		;[SANPO]
  2198  E000AF2 001A6B'         		LWORD	RTLSUB		;[NZAN2]
  2199  E000AF5 001F9F'         		LWORD	ENFAIL0		;[NEZM2]
  2200  E000AF8 001A6B'         		LWORD	RTLSUB		;[TSUBO]
  2201  E000AFB 001A6B'         		LWORD	RTLSUB		;[OBAKE]
  2202  
  2203  E000AFE 001A6B'         		LWORD	RTLSUB		;[IWATS]
  2204  E000B01 001A6B'         		LWORD	RTLSUB		;[GHOST]
  2205  E000B04 001A6B'         		LWORD	RTLSUB		;[OBFIR]
  2206  E000B07 001A6B'         		LWORD	RTLSUB		;[POLY1]
  2207  E000B0A 001A6B'         		LWORD	RTLSUB		;[HINAQ]
  2208  E000B0D 001A6B'         		LWORD	RTLSUB		;[HINQ2]
  2209  E000B10 001A6B'         		LWORD	RTLSUB		;[BOSSK]
  2210  E000B13 001A6B'         		LWORD	RTLSUB		;[SESAW]
  2211  E000B16 001A6B'         		LWORD	RTLSUB		;[MARUT]
  2212  E000B19 001A6B'         		LWORD	RTLSUB		;[BKSLM]
  2213  E000B1C 001A6B'         		LWORD	RTLSUB		;[LUIGI]
  2214  E000B1F 001A6B'         		LWORD	RTLSUB		;[KONOT]
  2215  E000B22 001A6B'         		LWORD	RTLSUB		;[DNXG2]
  2216  E000B25 001F9F'         		LWORD	ENFAIL0		;[BHEIR]
  2217  E000B28 001F9F'         		LWORD	ENFAIL0		;[BHEIG]
  2218  E000B2B 001A6B'         		LWORD	RTLSUB		;[INGER]
  2219  E000B2E 001A6B'         		LWORD	RTLSUB		;[BBBRS]
  2220  E000B31 001A6B'         		LWORD	RTLSUB		;[TBHIH]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0038

  2221  E000B34 001A6B'         		LWORD	RTLSUB		;[KAMC2]
  2222  E000B37 001A6B'         		LWORD	RTLSUB		;[SWAVM]
  2223  E000B3A 001A6B'         		LWORD	RTLSUB		;[SWAV0]
  2224  E000B3D 001A6B'         		LWORD	RTLSUB		;[SWAV1]
  2225  E000B40 001A6B'         		LWORD	RTLSUB		;[ZSAB2]
  2226  E000B43 001A6B'         		LWORD	RTLSUB		;[KERO0]
  2227  E000B46 001A6B'         		LWORD	RTLSUB		;[POLDR]
  2228  E000B49 001A6B'         		LWORD	RTLSUB		;[GATE0]
  2229  E000B4C 001A6B'         		LWORD	RTLSUB		;[GITAN]
  2230  E000B4F 001A6B'         		LWORD	RTLSUB		;[FACE8]
  2231  E000B52 001A6B'         		LWORD	RTLSUB		;[FUSEN]
  2232  E000B55 001A6B'         		LWORD	RTLSUB		;[KAMCS]
  2233  E000B58 001A6B'         		LWORD	RTLSUB		;[ZPAC3]
  2234  E000B5B 001A6B'         		LWORD	RTLSUB		;[MILL0]
  2235  E000B5E 001A6B'         		LWORD	RTLSUB		;[MILS0]
  2236  E000B61 001A6B'         		LWORD	RTLSUB		;[BG3FL]
  2237  E000B64 001F9F'         		LWORD	ENFAIL0		;[DORBF]
  2238  E000B67 001A6B'         		LWORD	RTLSUB		;[CSTAR]
  2239  E000B6A 001A6B'         		LWORD	RTLSUB		;[QSPAK]
  2240  E000B6D 000000"         		LWORD	DORB2FL		;[DORB2]
  2241  E000B70 001F9F'         		LWORD	ENFAIL0		;[DRBF2]
  2242  E000B73 001A6B'         		LWORD	RTLSUB		;[HBLK5]
  2243  E000B76 001A6B'         		LWORD	RTLSUB		;[GITNS]
  2244  E000B79 001A6B'         		LWORD	RTLSUB		;[GITNL]
  2245  E000B7C 001A6B'         		LWORD	RTLSUB		;[BOMBX]
  2246  E000B7F 001A6B'         		LWORD	RTLSUB		;[BABYM]
  2247  E000B82 000000"         		LWORD	PANDAFL		;[PANDA]
  2248  E000B85 001A6B'         		LWORD	RTLSUB		;[BETO0]
  2249  E000B88 001A6B'         		LWORD	RTLSUB		;[MILL1]
  2250  E000B8B 001A6B'         		LWORD	RTLSUB		;[COINR]
  2251  E000B8E 001A6B'         		LWORD	RTLSUB		;[ZPACK]
  2252  E000B91 001A6B'         		LWORD	RTLSUB		;[HIMIT]
  2253  E000B94 001A6B'         		LWORD	RTLSUB		;[HBLK2]
  2254  E000B97 001A6B'         		LWORD	RTLSUB		;[HBLK4]
  2255  E000B9A 001A6B'         		LWORD	RTLSUB		;[HBLK3]
  2256  E000B9D 001A6B'         		LWORD	RTLSUB		;[HBLK7]
  2257  E000BA0 001A6B'         		LWORD	RTLSUB		;[JBLKL]
  2258  E000BA3 001A6B'         		LWORD	RTLSUB		;[PPCKL]
  2259  E000BA6 001A6B'         		LWORD	RTLSUB		;[PPCKR]
  2260  E000BA9 001A6B'         		LWORD	RTLSUB		;[JBLK0]
  2261  E000BAC 001A6B'         		LWORD	RTLSUB		;[KANI0]
  2262  E000BAF 001A6B'         		LWORD	RTLSUB		;[TELEL]
  2263  E000BB2 001A6B'         		LWORD	RTLSUB		;[RAKUG]
  2264  E000BB5 001A6B'         		LWORD	RTLSUB		;[PONPU]
  2265  E000BB8 001A6B'         		LWORD	RTLSUB		;[GABON]
  2266  E000BBB 001A6B'         		LWORD	RTLSUB		;[GABNB]
  2267  E000BBE 001A6B'         		LWORD	RTLSUB		;[SPRKL]
  2268  E000BC1 001A6B'         		LWORD	RTLSUB		;[SPRKR]
  2269  E000BC4 001A6B'         		LWORD	RTLSUB		;[DAI00]
  2270  E000BC7 001A6B'         		LWORD	RTLSUB		;[DAI01]
  2271  E000BCA 001A6B'         		LWORD	RTLSUB		;[DAI02]
  2272  E000BCD 000000"         		LWORD	KIL00FL		;[KIL00]
  2273  E000BD0 000000"         		LWORD	KIL01FL		;[KIL01]
  2274  E000BD3 000000"         		LWORD	KIL02FL		;[KIL02]
  2275  E000BD6 001A6B'         		LWORD	RTLSUB		;[DWNBG]
  2276  E000BD9 001A6B'         		LWORD	RTLSUB		;[FYUKA]
  2277  E000BDC 001A6B'         		LWORD	RTLSUB		;[ZBUB0]
  2278  E000BDF 001A6B'         		LWORD	RTLSUB		;[ZBUB1]
  2279  E000BE2 001A6B'         		LWORD	RTLSUB		;[WANG0]
  2280  E000BE5 001A6B'         		LWORD	RTLSUB		;[BGKM0]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0039

  2281  E000BE8 001A6B'         		LWORD	RTLSUB		;[NEXTG]
  2282  E000BEB 001A6B'         		LWORD	RTLSUB		;[HARIO]
  2283  E000BEE 001A6B'         		LWORD	RTLSUB		;[COIN0]
  2284  E000BF1 001A6B'         		LWORD	RTLSUB		;[EG1UP]
  2285  E000BF4 001A6B'         		LWORD	RTLSUB		;[MSTAR]
  2286  E000BF7 001A6B'         		LWORD	RTLSUB		;[NLFLR]
  2287  E000BFA 001A6B'         		LWORD	RTLSUB		;[NLFUD]
  2288  E000BFD 001A6B'         		LWORD	RTLSUB		;[FBOM0]
  2289  E000C00 001A6B'         		LWORD	RTLSUB		;[GOLYS]
  2290  E000C03 001A6B'         		LWORD	RTLSUB		;[MC1UP]
  2291  E000C06 001A6B'         		LWORD	RTLSUB		;[KAMC3]
  2292  E000C09 001A6B'         		LWORD	RTLSUB		;[OSARU]
  2293  E000C0C 001A6B'         		LWORD	RTLSUB		;[BG3KT]
  2294  E000C0F 001FED'         		LWORD	KPBOM_FALL	;[DEATH]
  2295  E000C12 001A6B'         		LWORD	RTLSUB		;[KOROG]
  2296  E000C15 001A6B'         		LWORD	RTLSUB		;[ZDOOR]
  2297  E000C18 001A6B'         		LWORD	RTLSUB		;[HBLK6]
  2298  E000C1B 001A6B'         		LWORD	RTLSUB		;[BLKLF]
  2299  E000C1E 001A6B'         		LWORD	RTLSUB		;[BLKL2]
  2300  E000C21 001A6B'         		LWORD	RTLSUB		;[POWSW]
  2301  E000C24 001A6B'         		LWORD	RTLSUB		;[WARPS]
  2302  E000C27 001A6B'         		LWORD	RTLSUB		;[JTAM2]
  2303  E000C2A 001A6B'         		LWORD	RTLSUB		;[ROTLF]
  2304  E000C2D 001A6B'         		LWORD	RTLSUB		;[GABN2]
  2305  E000C30 001A6B'         		LWORD	RTLSUB		;[GBNB2]
  2306  E000C33 001A6B'         		LWORD	RTLSUB		;[SW000]
  2307  E000C36 001A6B'         		LWORD	RTLSUB		;[MBALL]
  2308  E000C39 001A6B'         		LWORD	RTLSUB		;[ZPAC2]
  2309  E000C3C 001A6B'         		LWORD	RTLSUB		;[TULIP]
  2310  E000C3F 001A6B'         		LWORD	RTLSUB		;[HACHI]
  2311  E000C42 001A6B'         		LWORD	RTLSUB		;[GENKI]
  2312  E000C45 000000"         		LWORD	DORBLFL		;[DORBL]
  2313  E000C48 000000"         		LWORD	DORBRFL		;[DORBR]
  2314  E000C4B 001A6B'         		LWORD	RTLSUB		;[UNBAB]
  2315  E000C4E 001A6B'         		LWORD	RTLSUB		;[AWANG]
  2316  E000C51 001A6B'         		LWORD	RTLSUB		;[AWANM]
  2317  E000C54 001A6B'         		LWORD	RTLSUB		;[AWANS]
  2318  E000C57 001A6B'         		LWORD	RTLSUB		;[AWANP]
  2319  E000C5A 001A6B'         		LWORD	RTLSUB		;[SHEIH]
  2320  E000C5D 001A6B'         		LWORD	RTLSUB		;[ITEGG]
  2321  E000C60 001A6B'         		LWORD	RTLSUB		;[KPBKG]
  2322  E000C63 001A6B'         		LWORD	RTLSUB		;[MSGBX]
  2323  E000C66 001A6B'         		LWORD	RTLSUB		;[BOSS0]
  2324  E000C69 001A6B'         		LWORD	RTLSUB		;[CHG00]
  2325  E000C6C 001A6B'         		LWORD	RTLSUB		;[CHG01]
  2326  E000C6F 001A6B'         		LWORD	RTLSUB		;[CHG02]
  2327  E000C72 001A6B'         		LWORD	RTLSUB		;[CHG03]
  2328  E000C75 001A6B'         		LWORD	RTLSUB		;[PUUUU]
  2329  E000C78 001A6B'         		LWORD	RTLSUB		;[CHG05]
  2330  E000C7B 001A6B'         		LWORD	RTLSUB		;[QKM00]
  2331  E000C7E 001A6B'         		LWORD	RTLSUB		;[QKM01]
  2332  E000C81 001A6B'         		LWORD	RTLSUB		;[QKM02]
  2333  E000C84 001A6B'         		LWORD	RTLSUB		;[QKM03]
  2334  E000C87 001A6B'         		LWORD	RTLSUB		;[QKM04]
  2335  E000C8A 001A6B'         		LWORD	RTLSUB		;[QKM05]
  2336  E000C8D 001A6B'         		LWORD	RTLSUB		;[QKM06]
  2337  E000C90 001A6B'         		LWORD	RTLSUB		;[QKM07]
  2338  E000C93 001A6B'         		LWORD	RTLSUB		;[QKM08]
  2339  E000C96 001A6B'         		LWORD	RTLSUB		;[QKM09]
  2340  E000C99 001A6B'         		LWORD	RTLSUB		;[QKM0A]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0040

  2341  E000C9C 001A6B'         		LWORD	RTLSUB		;[QKM0B]
  2342  E000C9F 001A6B'         		LWORD	RTLSUB		;[QKM0C]
  2343  E000CA2 001A6B'         		LWORD	RTLSUB		;[QKM0D]
  2344  E000CA5 001A6B'         		LWORD	RTLSUB		;[QKM0E]
  2345  E000CA8 001A6B'         		LWORD	RTLSUB		;[QKM0F]
  2346  E000CAB 001A6B'         		LWORD	RTLSUB		;[QKM10]
  2347  E000CAE 001A6B'         		LWORD	RTLSUB		;[QKM11]
  2348  E000CB1 001A6B'         		LWORD	RTLSUB		;[QKM12]
  2349  E000CB4 001A6B'         		LWORD	RTLSUB		;[QKM13]
  2350  E000CB7 001A6B'         		LWORD	RTLSUB		;[QKM14]
  2351  E000CBA 001A6B'         		LWORD	RTLSUB		;[LBSDR]
  2352  E000CBD 001A6B'         		LWORD	RTLSUB		;[QKM16]
  2353  E000CC0 001A6B'         		LWORD	RTLSUB		;[QKM17]
  2354  E000CC3 001A6B'         		LWORD	RTLSUB		;[FKPBM]
  2355  E000CC6 001A6B'         		LWORD	RTLSUB		;[KPFIR]
  2356  E000CC9 001A6B'         		LWORD	RTLSUB		;[KPBLK]
  2357  E000CCC 001A6B'         		LWORD	RTLSUB		;[SNXGO]
  2358  E000CCF 001A6B'         		LWORD	RTLSUB		;[DNXGO]
  2359  E000CD2 001A6B'         		LWORD	RTLSUB		;[PUCHA]
  2360  E000CD5 000000"         		LWORD	PUCHGMV		;[PUCHG]
  2361  E000CD8 000000"         		LWORD	PUCHBMV		;[PUCHB]
  2362  E000CDB 001A6B'         		LWORD	RTLSUB		;[BG_00]
  2363  E000CDE 001A6B'         		LWORD	RTLSUB		;[BG3UL]
  2364  E000CE1 001A6B'         		LWORD	RTLSUB		;[BKMKJ]
  2365  E000CE4 001A6B'         		LWORD	RTLSUB		;[AW_FG]
  2366  E000CE7 000000"         		LWORD	TJUGMFL		;[TJUGM]
  2367  E000CEA 001A6B'         		LWORD	RTLSUB		;[TTUBO]
  2368  E000CED 001A6B'         		LWORD	RTLSUB		;[BG3BL]
  2369  E000CF0 001A6B'         		LWORD	RTLSUB		;[YGORO]
  2370  E000CF3 001A6B'         		LWORD	RTLSUB		;[DMPLC]
  2371  E000CF6 001A6B'         		LWORD	RTLSUB		;[ON_DW]
  2372  E000CF9 001A6B'         		LWORD	RTLSUB		;[WPKPK]
  2373  E000CFC 001A6B'         		LWORD	RTLSUB		;[JFISH]
  2374  E000CFF 001A6B'         		LWORD	RTLSUB		;[HBNBN]
  2375  E000D02 001A6B'         		LWORD	RTLSUB		;[BOBK0]
  2376  E000D05 001A6B'         		LWORD	RTLSUB		;[BOBK1]
  2377  E000D08 001A6B'         		LWORD	RTLSUB		;[HSAN0]
  2378  E000D0B 001A6B'         		LWORD	RTLSUB		;[HSAN1]
  2379  E000D0E 001A6B'         		LWORD	RTLSUB		;[TUMUJ]
  2380  E000D11 001A6B'         		LWORD	RTLSUB		;[BBROS]
  2381  E000D14 001A6B'         		LWORD	RTLSUB		;[AHOBD]
  2382  E000D17 001A6B'         		LWORD	RTLSUB		;[AHOB2]
  2383  E000D1A 000000"         		LWORD	OTAMAFL		;[OTAMA]
  2384  E000D1D 000000"         		LWORD	OTAMHFL		;[OTAMH]
  2385  E000D20 001A6B'         		LWORD	RTLSUB		;[VOWVW]
  2386  E000D23 001A6B'         		LWORD	RTLSUB		;[VOWV2]
  2387  E000D26 001A6B'         		LWORD	RTLSUB		;[NIKOP]
  2388  E000D29 001A6B'         		LWORD	RTLSUB		;[NIKP2]
  2389  E000D2C 001A6B'         		LWORD	RTLSUB		;[NIKP3]
  2390  E000D2F 001A6B'         		LWORD	RTLSUB		;[BBFLW]
  2391  E000D32 000000"         		LWORD	TAKEHFL		;[TAKEH]
  2392  E000D35 001F9F'         		LWORD	ENFAIL0		;[MSHIH]
  2393  E000D38 001A6B'         		LWORD	RTLSUB		;[EGFLW]
  2394  E000D3B 001A6B'         		LWORD	RTLSUB		;[BATSN]
  2395  E000D3E 001A6B'         		LWORD	RTLSUB		;[KAMO0]
  2396  E000D41 001A6B'         		LWORD	RTLSUB		;[AWAFK]
  2397  E000D44 001A6B'         		LWORD	RTLSUB		;[ZSABO]
  2398  E000D47 001A6B'         		LWORD	RTLSUB		;[STAMA]
  2399  E000D4A 001A6B'         		LWORD	RTLSUB		;[ZFLWR]
  2400  E000D4D 001A6B'         		LWORD	RTLSUB		;[YARIH]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0041

  2401  E000D50 001A6B'         		LWORD	RTLSUB		;[YARH2]
  2402  E000D53 000000"         		LWORD	KARATFL		;[KARAT]
  2403  E000D56 001A6B'         		LWORD	RTLSUB		;[ENRGB]
  2404  E000D59 001A6B'         		LWORD	RTLSUB		;[POCHI]
  2405  E000D5C 001A6B'         		LWORD	RTLSUB		;[PUPBB]
  2406  E000D5F 001A6B'         		LWORD	RTLSUB		;[GURU1]
  2407  E000D62 001A6B'         		LWORD	RTLSUB		;[GURU2]
  2408  E000D65 001A6B'         		LWORD	RTLSUB		;[GHEIH]
  2409  E000D68 001A6B'         		LWORD	RTLSUB		;[BFISH]
  2410  E000D6B 001A6B'         		LWORD	RTLSUB		;[HOMOL]
  2411  E000D6E 001A6B'         		LWORD	RTLSUB		;[HOMOR]
  2412  E000D71 001F9F'         		LWORD	ENFAIL_FALL	;[SUIKT]
  2413  E000D74 001A6B'         		LWORD	RTLSUB		;[PONTA]
  2414  E000D77 001A6B'         		LWORD	RTLSUB		;[KATI0]
  2415  E000D7A 001A6B'         		LWORD	RTLSUB		;[KATI1]
  2416  E000D7D 001A6B'         		LWORD	RTLSUB		;[KATI2]
  2417  E000D80 001A6B'         		LWORD	RTLSUB		;[DOSUN]
  2418  E000D83 001A6B'         		LWORD	RTLSUB		;[DHEIH]
  2419  E000D86 001A6B'         		LWORD	RTLSUB		;[TRBOX]
  2420  E000D89 001A6B'         		LWORD	RTLSUB		;[BTELE]
  2421  E000D8C 001A6B'         		LWORD	RTLSUB		;[ZFLW2]
  2422  E000D8F 001A6B'         		LWORD	RTLSUB		;[PURIN]
  2423  E000D92 001A6B'         		LWORD	RTLSUB		;[PURI0]
  2424  E000D95 001A6B'         		LWORD	RTLSUB		;[MCHO2]
  2425  E000D98 001A6B'         		LWORD	RTLSUB		;[BULET]
  2426  E000D9B 001A6B'         		LWORD	RTLSUB		;[COIN1]
  2427  E000D9E 001A6B'         		LWORD	RTLSUB		;[FLOAT]
  2428  E000DA1 001A6B'         		LWORD	RTLSUB		;[TIKU0]
  2429  E000DA4 001A6B'         		LWORD	RTLSUB		;[TIKU1]
  2430  E000DA7 001A6B'         		LWORD	RTLSUB		;[NUNOO]
  2431  E000DAA 001A6B'         		LWORD	RTLSUB		;[MITSN]
  2432  E000DAD 000000"         		LWORD	JUGEMFL		;[JUGEM]
  2433  E000DB0 001A6B'         		LWORD	RTLSUB		;[KINTO]
  2434  E000DB3 001A6B'         		LWORD	RTLSUB		;[JTAMA]
  2435  E000DB6 001A6B'         		LWORD	RTLSUB		;[RLTLF]
  2436  E000DB9 001A6B'         		LWORD	RTLSUB		;[RLTL2]
  2437  E000DBC 001A6B'         		LWORD	RTLSUB		;[RLTL3]
  2438  E000DBF 001A6B'         		LWORD	RTLSUB		;[CNTLF]
  2439  E000DC2 001A6B'         		LWORD	RTLSUB		;[BAK20]
  2440  E000DC5 001A6B'         		LWORD	RTLSUB		;[BAK21]
  2441  E000DC8 001F9F'         		LWORD	ENFAIL0		;[ARIH0]
  2442  E000DCB 001A6B'         		LWORD	RTLSUB		;[KAMC4]
  2443  E000DCE 001A6B'         		LWORD	RTLSUB		;[MAKI0]
  2444  E000DD1 001A6B'         		LWORD	RTLSUB		;[MAKI1]
  2445  E000DD4 001A6B'         		LWORD	RTLSUB		;[FWAVE]
  2446  E000DD7 001A6B'         		LWORD	RTLSUB		;[WATAB]
  2447  E000DDA 001A6B'         		LWORD	RTLSUB		;[KUSAH]
  2448  E000DDD 001A6B'         		LWORD	RTLSUB		;[DEBU0]
  2449  E000DE0 000000"         		LWORD	COMCHFL		;[COMCH]
  2450  E000DE3 001A6B'         		LWORD	RTLSUB		;[YOSSY]
  2451  E000DE6 001A6B'         		LWORD	RTLSUB		;[BG3EX]
  2452  E000DE9 001A6B'         		LWORD	RTLSUB		;[FHOTM]
  2453  E000DEC 001A6B'         		LWORD	RTLSUB		;[FVOTM]
  2454  E000DEF 001A6B'         		LWORD	RTLSUB		;[KEYDR]
  2455  E000DF2 001A6B'         		LWORD	RTLSUB		;[SSLIM]
  2456  E000DF5 000000"         		LWORD	HEIH0FL		;[CHKH0]
  2457  E000DF8 001A6B'         		LWORD	RTLSUB		;[KOOPA]
  2458  E000DFB 001A6B'         		LWORD	RTLSUB		;[QCHAN]
  2459  E000DFE 001A6B'         		LWORD	RTLSUB		;[QCHN2]
  2460  E000E01 001A6B'         		LWORD	RTLSUB		;[DWBL0]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0042

  2461  E000E04 001A6B'         		LWORD	RTLSUB		;[DWBL1]
  2462  E000E07 001A6B'         		LWORD	RTLSUB		;[DWBL2]
  2463  E000E0A 001A6B'         		LWORD	RTLSUB		;[DWBL3]
  2464  E000E0D 001A6B'         		LWORD	RTLSUB		;[IEKI0]
  2465  E000E10 001A6B'         		LWORD	RTLSUB		;[FLIPP]
  2466  E000E13 001A6B'         		LWORD	RTLSUB		;[KOMO0]
  2467  E000E16 001A6B'         		LWORD	RTLSUB		;[KOMO1]
  2468  E000E19 001A6B'         		LWORD	RTLSUB		;[PKPK0]
  2469  E000E1C 001A6B'         		LWORD	RTLSUB		;[PKPK1]
  2470  E000E1F 001A6B'         		LWORD	RTLSUB		;[PKPK2]
  2471  E000E22 001A6B'         		LWORD	RTLSUB		;[PKPK3]
  2472  E000E25 001A6B'         		LWORD	RTLSUB		;[TEPPO]
  2473  E000E28 001A6B'         		LWORD	RTLSUB		;[FLIPH]
  2474  E000E2B 000000"         		LWORD	KEME0FL		;[KEME0]
  2475  E000E2E 000000"         		LWORD	KEME1FL		;[KEME1]
  2476  E000E31 001A6B'         		LWORD	RTLSUB		;[SNXG2]
  2477  E000E34 001A6B'         		LWORD	RTLSUB		;[JBKL2]
  2478  E000E37 001A6B'         		LWORD	RTLSUB		;[REFC0]
  2479  E000E3A 001A6B'         		LWORD	RTLSUB		;[REFC1]
  2480  E000E3D 001A6B'         		LWORD	RTLSUB		;[REFC2]
  2481  E000E40 001A6B'         		LWORD	RTLSUB		;[REFC3]
  2482  E000E43 001A6B'         		LWORD	RTLSUB		;[REFC4]
  2483  E000E46 001A6B'         		LWORD	RTLSUB		;[REFC5]
  2484  E000E49 001A6B'         		LWORD	RTLSUB		;[REFC6]
  2485  E000E4C 001A6B'         		LWORD	RTLSUB		;[REFC7]
  2486  E000E4F 001A6B'         		LWORD	RTLSUB		;[REFC8]
  2487  E000E52 001A6B'         		LWORD	RTLSUB		;[MOTH0]
  2488  E000E55 001A6B'         		LWORD	RTLSUB		;[BAHOB]
  2489  E000E58 001A6B'         		LWORD	RTLSUB		;[AWANH]
  2490  E000E5B 001A6B'         		LWORD	RTLSUB		;[DBAHO]
  2491  E000E5E 001A6B'         		LWORD	RTLSUB		;[MATO0]
  2492  E000E61 000000"         		LWORD	AJGM0FL		;[AJGM0]
  2493  E000E64 001A6B'         		LWORD	RTLSUB		;[DBAH2]
  2494  E000E67 001A6B'         		LWORD	RTLSUB		;[TONG0]
  2495  E000E6A 001A6B'         		LWORD	RTLSUB		;[TONG1]
  2496  E000E6D 001A6B'         		LWORD	RTLSUB		;[BAMBO]
  2497  E000E70 001A6B'         		LWORD	RTLSUB		;[RBLKG]
  2498  E000E73 001A6B'         		LWORD	RTLSUB		;[RBLKY]
  2499  E000E76 001A6B'         		LWORD	RTLSUB		;[MILL2]
  2500  E000E79 001A6B'         		LWORD	RTLSUB		;[RFLSG]
  2501  E000E7C 001A6B'         		LWORD	RTLSUB		;[RFLSY]
  2502  E000E7F 001A6B'         		LWORD	RTLSUB		;[HIMI2]
  2503  E000E82 001A6B'         		LWORD	RTLSUB		;[RFLLG]
  2504  E000E85 001A6B'         		LWORD	RTLSUB		;[SABO0]
  2505  E000E88 001A6B'         		LWORD	RTLSUB		;[P_KN2]
  2506  E000E8B 001A6B'         		LWORD	RTLSUB		;[P_KUN]
  2507  E000E8E 000000"         		LWORD	THJGMFL		;[THJGM]
  2508  E000E91 000000"         		LWORD	KORA0FL		;[KORA0]
  2509  E000E94 000000"         		LWORD	KORA1FL		;[KORA1]
  2510  E000E97 000000"         		LWORD	HNOK0FL		;[HNOK0]
  2511  E000E9A 000000"         		LWORD	HNOK1FL		;[HNOK1]
  2512  E000E9D 000000"         		LWORD	NKNK0FL		;[NKNK0]
  2513  E000EA0 000000"         		LWORD	NKNK1FL		;[NKNK1]
  2514  E000EA3 000000"         		LWORD	PTPT0FL		;[PTPT0]
  2515  E000EA6 000000"         		LWORD	PTPT1FL		;[PTPT1]
  2516  E000EA9 000000"         		LWORD	PTPT2FL		;[PTPT2]
  2517  E000EAC 000000"         		LWORD	JGEMWFL		;[JGEMW]
  2518  E000EAF 001A6B'         		LWORD	RTLSUB		;[MPACK]
  2519  E000EB2 001A6B'         		LWORD	RTLSUB		;[MPACH]
  2520  E000EB5 001A6B'         		LWORD	RTLSUB		;[FUSN0]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0043

  2521  E000EB8 001A6B'         		LWORD	RTLSUB		;[FUSN1]
  2522  E000EBB 001A6B'         		LWORD	RTLSUB		;[FUSN2]
  2523  E000EBE 001A6B'         		LWORD	RTLSUB		;[FUSN3]
  2524  E000EC1 001A6B'         		LWORD	RTLSUB		;[FUSN4]
  2525  E000EC4 001A6B'         		LWORD	RTLSUB		;[FUSN5]
  2526  E000EC7 001A6B'         		LWORD	RTLSUB		;[FUSN6]
  2527  E000ECA 001A6B'         		LWORD	RTLSUB		;[FUSN7]
  2528  E000ECD 001A6B'         		LWORD	RTLSUB		;[FUSN8]
  2529  E000ED0 001A6B'         		LWORD	RTLSUB		;[FUSN9]
  2530  E000ED3 001A6B'         		LWORD	RTLSUB		;[FUSNa]
  2531  E000ED6 001A6B'         		LWORD	RTLSUB		;[FUSNb]
  2532  E000ED9 001A6B'         		LWORD	RTLSUB		;[BALON]
  2533  E000EDC 001A6B'         		LWORD	RTLSUB		;[RMARU]
  2534  E000EDF 000000"         		LWORD	PANSYFL		;[PANSY]
  2535  E000EE2 001A6B'         		LWORD	RTLSUB		;[DGFLY]
  2536  E000EE5 001A6B'         		LWORD	RTLSUB		;[BTFLY]
  2537  E000EE8 001F9F'         		LWORD	ENFAIL0		;[TARKN]
  2538  E000EEB 001A6B'         		LWORD	RTLSUB		;[NRLF0]
  2539  E000EEE 001A6B'         		LWORD	RTLSUB		;[NRLF1]
  2540  E000EF1 001A6B'         		LWORD	RTLSUB		;[HRLF0]
  2541  E000EF4 001A6B'         		LWORD	RTLSUB		;[HRLF1]
  2542  E000EF7 001A6B'         		LWORD	RTLSUB		;[NRLF2]
  2543  E000EFA 001A6B'         		LWORD	RTLSUB		;[NRLF3]
  2544  E000EFD 001A6B'         		LWORD	RTLSUB		;[HRLF2]
  2545  E000F00 001A6B'         		LWORD	RTLSUB		;[HRLF3]
  2546  E000F03 001A6B'         		LWORD	RTLSUB		;[SRLF0]
  2547  E000F06 001A6B'         		LWORD	RTLSUB		;[SRLF1]
  2548  E000F09 001A6B'         		LWORD	RTLSUB		;[GRPLF]
  2549  E000F0C 001A6B'         		LWORD	RTLSUB		;[TURAR]
  2550  E000F0F 001A6B'         		LWORD	RTLSUB		;[SUZUM]
  2551  E000F12 001A6B'         		LWORD	RTLSUB		;[FLWH0]
  2552  E000F15 001A6B'         		LWORD	RTLSUB		;[BG3DO]
  2553  E000F18 001A6B'         		LWORD	RTLSUB		;[KOUNB] 子ウンババ
  2554  E000F1B 001A6B'         		LWORD	RTLSUB		;[GRCKS] ぐらぐら岩
  2555  E000F1E 001A6B'         		LWORD	RTLSUB		;[GROCK] ぐらぐら岩
  2556  E000F21 001A6B'         		LWORD	RTLSUB		;[YAJI0] 矢印
  2557  E000F24 001A6B'         		LWORD	RTLSUB		;[YAJI1] 矢印(斜め)
  2558  E000F27 001A6B'         		LWORD	RTLSUB		;[NISEF]
  2559  E000F2A 000000"         		LWORD	GSTH0FL		;[GSTH0]
  2560  E000F2D 001F9F'         		LWORD	ENFAIL0		;[STRKN]
  2561  E000F30 001F9F'         		LWORD	ENFAIL0		;[FTRKN]
  2562  E000F33 000000"         		LWORD	BATSAFL		;[BATSA]
  2563  E000F36 001A6B'         		LWORD	RTLSUB		;[BATSB]
  2564  E000F39 000000"         		LWORD	BATSCFL		;[BATSC]
  2565  E000F3C 001A6B'         		LWORD	RTLSUB		;[FIRBR]
  2566  E000F3F 001A6B'         		LWORD	RTLSUB		;[FIRB2]
  2567  E000F42 001A6B'         		LWORD	RTLSUB		;[TIMKN]
  2568  E000F45 001A6B'         		LWORD	RTLSUB		;[SKLNZ]
  2569  E000F48 001A6B'         		LWORD	RTLSUB		;[CORKS]
  2570  E000F4B 001F9F'         		LWORD	ENFAIL_FALL	;[MONK0]
  2571  E000F4E 001F9F'         		LWORD	ENFAIL_FALL	;[MONK1]
  2572  E000F51 001F9F'         		LWORD	ENFAIL_FALL	;[MONK2]
  2573  E000F54 001F9F'         		LWORD	ENFAIL_FALL	;[MONK3]
  2574  E000F57 001F9F'         		LWORD	ENFAIL_FALL	;[MONK4]
  2575  E000F5A 001A6B'         		LWORD	RTLSUB		;[YGFSH]
  2576  E000F5D 000000"         		LWORD	BLTLSFL		;[BLTLS]
  2577  E000F60 001A6B'         		LWORD	RTLSUB		;[KOKER]
  2578  E000F63 000000"         		LWORD	KAMECFL		;[KAMEC]
  2579  E000F66 001A6B'         		LWORD	RTLSUB		;[MAGIC]
  2580  E000F69 001A6B'         		LWORD	RTLSUB		;[COIN2]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0044

  2581  E000F6C 001A6B'         		LWORD	RTLSUB		;[BG3LF]
  2582                          ;
  2583  E000F6F 001A6B'         		LWORD	RTLSUB		;[M_THO] ※ミニゲーム用（砲台）
  2584  E000F72 001A6B'         		LWORD	RTLSUB		;[M_TAM] ※ミニゲーム用（弾）
  2585  E000F75 001A6B'         		LWORD	RTLSUB		;[M_DR0] ※ミニゲーム用（ドロボー１）
  2586  E000F78 001A6B'         		LWORD	RTLSUB		;[M_LIF] ※ミニゲーム用（リフト）
  2587  E000F7B 001A6B'         		LWORD	RTLSUB		;[M_DR2] ※ミニゲーム用（ドロボー３）
  2588  E000F7E 001A6B'         		LWORD	RTLSUB		;[M_FUS] ※ミニゲーム用（風船）
  2589  E000F81 001F9F'         		LWORD	ENFAIL_FALL	;[M_DR4] ※ミニゲーム用（ドロボー５）
  2590  E000F84 001A6B'         		LWORD	RTLSUB		;[M_SUI] ※ミニゲーム用（西瓜湧きだし）
  2591  E000F87 001A6B'         		LWORD	RTLSUB		;[M_DR5] ※ミニゲーム用（ドロボー６）
  2592                          ;
  2593                          ;****************************************************************
  2594                          ;*		enemy nose name					*
  2595                          ;****************************************************************
  2596          000F8A          ENSADR		EQU	$
  2597  E000F8A 001A6B'         		LWORD	RTLSUB		;[WAVLF]
  2598  E000F8D 001A6B'         		LWORD	RTLSUB		;[CDOOR]
  2599  E000F90 001A6B'         		LWORD	RTLSUB		;[MPACW]
  2600  E000F93 001A6B'         		LWORD	RTLSUB		;[TRBX2]
  2601  E000F96 001A6B'         		LWORD	RTLSUB		;[MRBLK]
  2602  E000F99 001A6B'         		LWORD	RTLSUB		;[COLD0]
  2603  E000F9C 001A6B'         		LWORD	RTLSUB		;[COLDX]
  2604  E000F9F 001A6B'         		LWORD	RTLSUB		;[SUIKA]
  2605  E000FA2 001A6B'         		LWORD	RTLSUB		;[KPEXB]
  2606  E000FA5 001A6B'         		LWORD	RTLSUB		;[FIRE0]
  2607  E000FA8 001A6B'         		LWORD	RTLSUB		;[TAIH0]
  2608  E000FAB 001A6B'         		LWORD	RTLSUB		;[BOMB0]
  2609  E000FAE 001A6B'         		LWORD	RTLSUB		;[BOSSQ]
  2610  E000FB1 001A6B'         		LWORD	RTLSUB		;[GOAL1]
  2611  E000FB4 001A6B'         		LWORD	RTLSUB		;[GOALX]
  2612  E000FB7 001A6B'         		LWORD	RTLSUB		;[BONSX]
  2613  E000FBA 001A6B'         		LWORD	RTLSUB		;[BG3D2]
  2614  E000FBD 001A6B'         		LWORD	RTLSUB		;[M_ITM]
  2615  E000FC0 001A6B'         		LWORD	RTLSUB		;[BOSDR]
  2616  E000FC3 001A6B'         		LWORD	RTLSUB		;[BSCLW]
  2617  E000FC6 001A6B'         		LWORD	RTLSUB		;[BSCLR]
  2618  E000FC9 001A6B'         		LWORD	RTLSUB		;[MISA0]
  2619  E000FCC 001A6B'         		LWORD	RTLSUB		;[DTELE]
  2620  E000FCF 001A6B'         		LWORD	RTLSUB		;[GEROZ]
  2621  E000FD2 001A6B'         		LWORD	RTLSUB		;[FIREX]
  2622  E000FD5 001A6B'         		LWORD	RTLSUB		;[SOPB0]
  2623  E000FD8 001A6B'         		LWORD	RTLSUB		;[SKILF]
  2624  E000FDB 001A6B'         		LWORD	RTLSUB		;[WTRLF]
  2625  E000FDE 001A6B'         		LWORD	RTLSUB		;[YUKID]
  2626  E000FE1 001A6B'         		LWORD	RTLSUB		;[YKDLF]
  2627  E000FE4 001A6B'         		LWORD	RTLSUB		;[HEIH0]
  2628  E000FE7 001A6B'         		LWORD	RTLSUB		;[RDOOR]
  2629  E000FEA 001A6B'         		LWORD	RTLSUB		;[DOROB]
  2630  E000FED 001A6B'         		LWORD	RTLSUB		;[BAKLF]
  2631  E000FF0 001A6B'         		LWORD	RTLSUB		;[EGG00]
  2632  E000FF3 001A6B'         		LWORD	RTLSUB		;[EGG02]
  2633  E000FF6 001A6B'         		LWORD	RTLSUB		;[EGG01]
  2634  E000FF9 001A6B'         		LWORD	RTLSUB		;[EGG03]
  2635  E000FFC 001A6B'         		LWORD	RTLSUB		;[KPBOM]
  2636  E000FFF 001A6B'         		LWORD	RTLSUB		;[DRKEY]
  2637  E001002 001A6B'         		LWORD	RTLSUB		;[KAMO1]
  2638  E001005 001A6B'         		LWORD	RTLSUB		;[YSEGG]
  2639  E001008 001A6B'         		LWORD	RTLSUB		;[EGG08]
  2640  E00100B 001A6B'         		LWORD	RTLSUB		;[EGG09]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0045

  2641  E00100E 001A6B'         		LWORD	RTLSUB		;[NAMAZ]
  2642  E001011 001A6B'         		LWORD	RTLSUB		;[SLIME]
  2643  E001014 001A6B'         		LWORD	RTLSUB		;[SLEYE]
  2644  E001017 001A6B'         		LWORD	RTLSUB		;[NZANA]
  2645  E00101A 001A6B'         		LWORD	RTLSUB		;[NEZMI]
  2646  E00101D 001A6B'         		LWORD	RTLSUB		;[SANPO]
  2647  E001020 001A6B'         		LWORD	RTLSUB		;[NZAN2]
  2648  E001023 001A6B'         		LWORD	RTLSUB		;[NEZM2]
  2649  E001026 001A6B'         		LWORD	RTLSUB		;[TSUBO]
  2650  E001029 001A6B'         		LWORD	RTLSUB		;[OBAKE]
  2651  E00102C 001A6B'         		LWORD	RTLSUB		;[IWATS]
  2652  E00102F 000000"         		LWORD	GHOSTNS		;[GHOST]
  2653  E001032 001A6B'         		LWORD	RTLSUB		;[OBFIR]
  2654  E001035 001A6B'         		LWORD	RTLSUB		;[POLY1]
  2655  E001038 001A6B'         		LWORD	RTLSUB		;[HINAQ]
  2656  E00103B 001A6B'         		LWORD	RTLSUB		;[HINQ2]
  2657  E00103E 001A6B'         		LWORD	RTLSUB		;[BOSSK]
  2658  E001041 001A6B'         		LWORD	RTLSUB		;[SESAW]
  2659  E001044 001A6B'         		LWORD	RTLSUB		;[MARUT]
  2660  E001047 001A6B'         		LWORD	RTLSUB		;[BKSLM]
  2661  E00104A 001A6B'         		LWORD	RTLSUB		;[LUIGI]
  2662  E00104D 001A6B'         		LWORD	RTLSUB		;[KONOT]
  2663  E001050 001A6B'         		LWORD	RTLSUB		;[DNXG2]
  2664  E001053 001A6B'         		LWORD	RTLSUB		;[BHEIR]
  2665  E001056 001A6B'         		LWORD	RTLSUB		;[BHEIG]
  2666  E001059 001A6B'         		LWORD	RTLSUB		;[INGER]
  2667  E00105C 001A6B'         		LWORD	RTLSUB		;[BBBRS]
  2668  E00105F 001A6B'         		LWORD	RTLSUB		;[TBHIH]
  2669  E001062 001A6B'         		LWORD	RTLSUB		;[KAMC2]
  2670  E001065 001A6B'         		LWORD	RTLSUB		;[SWAVM]
  2671  E001068 001A6B'         		LWORD	RTLSUB		;[SWAV0]
  2672  E00106B 001A6B'         		LWORD	RTLSUB		;[SWAV1]
  2673  E00106E 001A6B'         		LWORD	RTLSUB		;[ZSAB2]
  2674  E001071 001A6B'         		LWORD	RTLSUB		;[KERO0]
  2675  E001074 001A6B'         		LWORD	RTLSUB		;[POLDR]
  2676  E001077 001A6B'         		LWORD	RTLSUB		;[GATE0]
  2677  E00107A 001A6B'         		LWORD	RTLSUB		;[GITAN]
  2678  E00107D 001A6B'         		LWORD	RTLSUB		;[FACE8]
  2679  E001080 001A6B'         		LWORD	RTLSUB		;[FUSEN]
  2680  E001083 001A6B'         		LWORD	RTLSUB		;[KAMCS]
  2681  E001086 001A6B'         		LWORD	RTLSUB		;[ZPAC3]
  2682  E001089 001A6B'         		LWORD	RTLSUB		;[MILL0]
  2683  E00108C 001A6B'         		LWORD	RTLSUB		;[MILS0]
  2684  E00108F 001A6B'         		LWORD	RTLSUB		;[BG3FL]
  2685  E001092 001A6B'         		LWORD	RTLSUB		;[DORBF]
  2686  E001095 001A6B'         		LWORD	RTLSUB		;[CSTAR]
  2687  E001098 001A6B'         		LWORD	RTLSUB		;[QSPAK]
  2688  E00109B 001A6B'         		LWORD	RTLSUB		;[DORB2]
  2689  E00109E 001A6B'         		LWORD	RTLSUB		;[DRBF2]
  2690  E0010A1 001A6B'         		LWORD	RTLSUB		;[HBLK5]
  2691  E0010A4 001A6B'         		LWORD	RTLSUB		;[GITNS]
  2692  E0010A7 001A6B'         		LWORD	RTLSUB		;[GITNL]
  2693  E0010AA 001A6B'         		LWORD	RTLSUB		;[BOMBX]
  2694  E0010AD 000000"         		LWORD	BABYMNS		;[BABYM]
  2695  E0010B0 001A6B'         		LWORD	RTLSUB		;[PANDA]
  2696  E0010B3 001A6B'         		LWORD	RTLSUB		;[BETO0]
  2697  E0010B6 001A6B'         		LWORD	RTLSUB		;[MILL1]
  2698  E0010B9 001A6B'         		LWORD	RTLSUB		;[COINR]
  2699  E0010BC 001A6B'         		LWORD	RTLSUB		;[ZPACK]
  2700  E0010BF 001A6B'         		LWORD	RTLSUB		;[HIMIT]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0046

  2701  E0010C2 001A6B'         		LWORD	RTLSUB		;[HBLK2]
  2702  E0010C5 001A6B'         		LWORD	RTLSUB		;[HBLK4]
  2703  E0010C8 001A6B'         		LWORD	RTLSUB		;[HBLK3]
  2704  E0010CB 001A6B'         		LWORD	RTLSUB		;[HBLK7]
  2705  E0010CE 001A6B'         		LWORD	RTLSUB		;[JBLKL]
  2706  E0010D1 001A6B'         		LWORD	RTLSUB		;[PPCKL]
  2707  E0010D4 001A6B'         		LWORD	RTLSUB		;[PPCKR]
  2708  E0010D7 001A6B'         		LWORD	RTLSUB		;[JBLK0]
  2709  E0010DA 001A6B'         		LWORD	RTLSUB		;[KANI0]
  2710  E0010DD 001A6B'         		LWORD	RTLSUB		;[TELEL]
  2711  E0010E0 001A6B'         		LWORD	RTLSUB		;[RAKUG]
  2712  E0010E3 001A6B'         		LWORD	RTLSUB		;[PONPU]
  2713  E0010E6 001A6B'         		LWORD	RTLSUB		;[GABON]
  2714  E0010E9 001A6B'         		LWORD	RTLSUB		;[GABNB]
  2715  E0010EC 001A6B'         		LWORD	RTLSUB		;[SPRKL]
  2716  E0010EF 001A6B'         		LWORD	RTLSUB		;[SPRKR]
  2717  E0010F2 001A6B'         		LWORD	RTLSUB		;[DAI00]
  2718  E0010F5 001A6B'         		LWORD	RTLSUB		;[DAI01]
  2719  E0010F8 001A6B'         		LWORD	RTLSUB		;[DAI02]
  2720  E0010FB 001A6B'         		LWORD	RTLSUB		;[KIL00]
  2721  E0010FE 001A6B'         		LWORD	RTLSUB		;[KIL01]
  2722  E001101 001A6B'         		LWORD	RTLSUB		;[KIL02]
  2723  E001104 001A6B'         		LWORD	RTLSUB		;[DWNBG]
  2724  E001107 001A6B'         		LWORD	RTLSUB		;[FYUKA]
  2725  E00110A 001A6B'         		LWORD	RTLSUB		;[ZBUB0]
  2726  E00110D 001A6B'         		LWORD	RTLSUB		;[ZBUB1]
  2727  E001110 001A6B'         		LWORD	RTLSUB		;[WANG0]
  2728  E001113 001A6B'         		LWORD	RTLSUB		;[BGKM0]
  2729  E001116 001A6B'         		LWORD	RTLSUB		;[NEXTG]
  2730  E001119 001A6B'         		LWORD	RTLSUB		;[HARIO]
  2731  E00111C 001A6B'         		LWORD	RTLSUB		;[COIN0]
  2732  E00111F 001A6B'         		LWORD	RTLSUB		;[EG1UP]
  2733  E001122 001A6B'         		LWORD	RTLSUB		;[MSTAR]
  2734  E001125 001A6B'         		LWORD	RTLSUB		;[NLFLR]
  2735  E001128 001A6B'         		LWORD	RTLSUB		;[NLFUD]
  2736  E00112B 001A6B'         		LWORD	RTLSUB		;[FBOM0]
  2737  E00112E 001A6B'         		LWORD	RTLSUB		;[GOLYS]
  2738  E001131 001A6B'         		LWORD	RTLSUB		;[MC1UP]
  2739  E001134 001A6B'         		LWORD	RTLSUB		;[KAMC3]
  2740  E001137 001A6B'         		LWORD	RTLSUB		;[OSARU]
  2741  E00113A 001A6B'         		LWORD	RTLSUB		;[BG3KT]
  2742  E00113D 001A6B'         		LWORD	RTLSUB		;[DEATH]
  2743  E001140 001A6B'         		LWORD	RTLSUB		;[KOROG]
  2744  E001143 001A6B'         		LWORD	RTLSUB		;[ZDOOR]
  2745  E001146 001A6B'         		LWORD	RTLSUB		;[HBLK6]
  2746  E001149 001A6B'         		LWORD	RTLSUB		;[BLKLF]
  2747  E00114C 001A6B'         		LWORD	RTLSUB		;[BLKL2]
  2748  E00114F 001A6B'         		LWORD	RTLSUB		;[POWSW]
  2749  E001152 001A6B'         		LWORD	RTLSUB		;[WARPS]
  2750  E001155 001A6B'         		LWORD	RTLSUB		;[JTAM2]
  2751  E001158 001A6B'         		LWORD	RTLSUB		;[ROTLF]
  2752  E00115B 001A6B'         		LWORD	RTLSUB		;[GABN2]
  2753  E00115E 001A6B'         		LWORD	RTLSUB		;[GBNB2]
  2754  E001161 001A6B'         		LWORD	RTLSUB		;[SW000]
  2755  E001164 001A6B'         		LWORD	RTLSUB		;[MBALL]
  2756  E001167 001A6B'         		LWORD	RTLSUB		;[ZPAC2]
  2757  E00116A 001A6B'         		LWORD	RTLSUB		;[TULIP]
  2758  E00116D 001A6B'         		LWORD	RTLSUB		;[HACHI]
  2759  E001170 001A6B'         		LWORD	RTLSUB		;[GENKI]
  2760  E001173 001A6B'         		LWORD	RTLSUB		;[DORBL]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0047

  2761  E001176 001A6B'         		LWORD	RTLSUB		;[DORBR]
  2762  E001179 001A6B'         		LWORD	RTLSUB		;[UNBAB]
  2763  E00117C 001A6B'         		LWORD	RTLSUB		;[AWANG]
  2764  E00117F 001A6B'         		LWORD	RTLSUB		;[AWANM]
  2765  E001182 001A6B'         		LWORD	RTLSUB		;[AWANS]
  2766  E001185 001A6B'         		LWORD	RTLSUB		;[AWANP]
  2767  E001188 001A6B'         		LWORD	RTLSUB		;[SHEIH]
  2768  E00118B 001A6B'         		LWORD	RTLSUB		;[ITEGG]
  2769  E00118E 001A6B'         		LWORD	RTLSUB		;[KPBKG]
  2770  E001191 001A6B'         		LWORD	RTLSUB		;[MSGBX]
  2771  E001194 001A6B'         		LWORD	RTLSUB		;[BOSS0]
  2772  E001197 001A6B'         		LWORD	RTLSUB		;[CHG00]
  2773  E00119A 001A6B'         		LWORD	RTLSUB		;[CHG01]
  2774  E00119D 001A6B'         		LWORD	RTLSUB		;[CHG02]
  2775  E0011A0 001A6B'         		LWORD	RTLSUB		;[CHG03]
  2776  E0011A3 001A6B'         		LWORD	RTLSUB		;[PUUUU]
  2777  E0011A6 001A6B'         		LWORD	RTLSUB		;[CHG05]
  2778  E0011A9 001A6B'         		LWORD	RTLSUB		;[QKM00]
  2779  E0011AC 001A6B'         		LWORD	RTLSUB		;[QKM01]
  2780  E0011AF 001A6B'         		LWORD	RTLSUB		;[QKM02]
  2781  E0011B2 001A6B'         		LWORD	RTLSUB		;[QKM03]
  2782  E0011B5 001A6B'         		LWORD	RTLSUB		;[QKM04]
  2783  E0011B8 001A6B'         		LWORD	RTLSUB		;[QKM05]
  2784  E0011BB 001A6B'         		LWORD	RTLSUB		;[QKM06]
  2785  E0011BE 001A6B'         		LWORD	RTLSUB		;[QKM07]
  2786  E0011C1 001A6B'         		LWORD	RTLSUB		;[QKM08]
  2787  E0011C4 001A6B'         		LWORD	RTLSUB		;[QKM09]
  2788  E0011C7 001A6B'         		LWORD	RTLSUB		;[QKM0A]
  2789  E0011CA 001A6B'         		LWORD	RTLSUB		;[QKM0B]
  2790  E0011CD 001A6B'         		LWORD	RTLSUB		;[QKM0C]
  2791  E0011D0 001A6B'         		LWORD	RTLSUB		;[QKM0D]
  2792  E0011D3 001A6B'         		LWORD	RTLSUB		;[QKM0E]
  2793  E0011D6 001A6B'         		LWORD	RTLSUB		;[QKM0F]
  2794  E0011D9 001A6B'         		LWORD	RTLSUB		;[QKM10]
  2795  E0011DC 001A6B'         		LWORD	RTLSUB		;[QKM11]
  2796  E0011DF 001A6B'         		LWORD	RTLSUB		;[QKM12]
  2797  E0011E2 001A6B'         		LWORD	RTLSUB		;[QKM13]
  2798  E0011E5 001A6B'         		LWORD	RTLSUB		;[QKM14]
  2799  E0011E8 001A6B'         		LWORD	RTLSUB		;[LBSDR]
  2800  E0011EB 001A6B'         		LWORD	RTLSUB		;[QKM16]
  2801  E0011EE 001A6B'         		LWORD	RTLSUB		;[QKM17]
  2802  E0011F1 001A6B'         		LWORD	RTLSUB		;[FKPBM]
  2803  E0011F4 001A6B'         		LWORD	RTLSUB		;[KPFIR]
  2804  E0011F7 001A6B'         		LWORD	RTLSUB		;[KPBLK]
  2805  E0011FA 001A6B'         		LWORD	RTLSUB		;[SNXGO]
  2806  E0011FD 001A6B'         		LWORD	RTLSUB		;[DNXGO]
  2807  E001200 001A6B'         		LWORD	RTLSUB		;[PUCHA]
  2808  E001203 001A6B'         		LWORD	RTLSUB		;[PUCHG]
  2809  E001206 001A6B'         		LWORD	RTLSUB		;[PUCHB]
  2810  E001209 001A6B'         		LWORD	RTLSUB		;[BG_00]
  2811  E00120C 001A6B'         		LWORD	RTLSUB		;[BG3UL]
  2812  E00120F 001A6B'         		LWORD	RTLSUB		;[BKMKJ]
  2813  E001212 001A6B'         		LWORD	RTLSUB		;[AW_FG]
  2814  E001215 001A6B'         		LWORD	RTLSUB		;[TJUGM]
  2815  E001218 001A6B'         		LWORD	RTLSUB		;[TTUBO]
  2816  E00121B 001A6B'         		LWORD	RTLSUB		;[BG3BL]
  2817  E00121E 001A6B'         		LWORD	RTLSUB		;[YGORO]
  2818  E001221 001A6B'         		LWORD	RTLSUB		;[DMPLC]
  2819  E001224 001A6B'         		LWORD	RTLSUB		;[ON_DW]
  2820  E001227 001A6B'         		LWORD	RTLSUB		;[WPKPK]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0048

  2821  E00122A 001A6B'         		LWORD	RTLSUB		;[JFISH]
  2822  E00122D 001A6B'         		LWORD	RTLSUB		;[HBNBN]
  2823  E001230 001A6B'         		LWORD	RTLSUB		;[BOBK0]
  2824  E001233 001A6B'         		LWORD	RTLSUB		;[BOBK1]
  2825  E001236 001A6B'         		LWORD	RTLSUB		;[HSAN0]
  2826  E001239 001A6B'         		LWORD	RTLSUB		;[HSAN1]
  2827  E00123C 001A6B'         		LWORD	RTLSUB		;[TUMUJ]
  2828  E00123F 001A6B'         		LWORD	RTLSUB		;[BBROS]
  2829  E001242 001A6B'         		LWORD	RTLSUB		;[AHOBD]
  2830  E001245 001A6B'         		LWORD	RTLSUB		;[AHOB2]
  2831  E001248 001A6B'         		LWORD	RTLSUB		;[OTAMA]
  2832  E00124B 001A6B'         		LWORD	RTLSUB		;[OTAMH]
  2833  E00124E 001A6B'         		LWORD	RTLSUB		;[VOWVW]
  2834  E001251 001A6B'         		LWORD	RTLSUB		;[VOWV2]
  2835  E001254 001A6B'         		LWORD	RTLSUB		;[NIKOP]
  2836  E001257 001A6B'         		LWORD	RTLSUB		;[NIKP2]
  2837  E00125A 001A6B'         		LWORD	RTLSUB		;[NIKP3]
  2838  E00125D 001A6B'         		LWORD	RTLSUB		;[BBFLW]
  2839  E001260 001A6B'         		LWORD	RTLSUB		;[TAKEH]
  2840  E001263 001A6B'         		LWORD	RTLSUB		;[MSHIH]
  2841  E001266 001A6B'         		LWORD	RTLSUB		;[EGFLW]
  2842  E001269 001A6B'         		LWORD	RTLSUB		;[BATSN]
  2843  E00126C 001A6B'         		LWORD	RTLSUB		;[KAMO0]
  2844  E00126F 001A6B'         		LWORD	RTLSUB		;[AWAFK]
  2845  E001272 001A6B'         		LWORD	RTLSUB		;[ZSABO]
  2846  E001275 001A6B'         		LWORD	RTLSUB		;[STAMA]
  2847  E001278 001A6B'         		LWORD	RTLSUB		;[ZFLWR]
  2848  E00127B 001A6B'         		LWORD	RTLSUB		;[YARIH]
  2849  E00127E 001A6B'         		LWORD	RTLSUB		;[YARH2]
  2850  E001281 001A6B'         		LWORD	RTLSUB		;[KARAT]
  2851  E001284 001A6B'         		LWORD	RTLSUB		;[ENRGB]
  2852  E001287 001A6B'         		LWORD	RTLSUB		;[POCHI]
  2853  E00128A 001A6B'         		LWORD	RTLSUB		;[PUPBB]
  2854  E00128D 001A6B'         		LWORD	RTLSUB		;[GURU1]
  2855  E001290 001A6B'         		LWORD	RTLSUB		;[GURU2]
  2856  E001293 001A6B'         		LWORD	RTLSUB		;[GHEIH]
  2857  E001296 001A6B'         		LWORD	RTLSUB		;[BFISH]
  2858  E001299 001A6B'         		LWORD	RTLSUB		;[HOMOL]
  2859  E00129C 001A6B'         		LWORD	RTLSUB		;[HOMOR]
  2860  E00129F 001A6B'         		LWORD	RTLSUB		;[SUIKT]
  2861  E0012A2 001A6B'         		LWORD	RTLSUB		;[PONTA]
  2862  E0012A5 001A6B'         		LWORD	RTLSUB		;[KATI0]
  2863  E0012A8 001A6B'         		LWORD	RTLSUB		;[KATI1]
  2864  E0012AB 001A6B'         		LWORD	RTLSUB		;[KATI2]
  2865  E0012AE 001A6B'         		LWORD	RTLSUB		;[DOSUN]
  2866  E0012B1 001A6B'         		LWORD	RTLSUB		;[DHEIH]
  2867  E0012B4 001A6B'         		LWORD	RTLSUB		;[TRBOX]
  2868  E0012B7 001A6B'         		LWORD	RTLSUB		;[BTELE]
  2869  E0012BA 001A6B'         		LWORD	RTLSUB		;[ZFLW2]
  2870  E0012BD 001A6B'         		LWORD	RTLSUB		;[PURIN]
  2871  E0012C0 001A6B'         		LWORD	RTLSUB		;[PURI0]
  2872  E0012C3 001A6B'         		LWORD	RTLSUB		;[MCHO2]
  2873  E0012C6 001A6B'         		LWORD	RTLSUB		;[BULET]
  2874  E0012C9 001A6B'         		LWORD	RTLSUB		;[COIN1]
  2875  E0012CC 001A6B'         		LWORD	RTLSUB		;[FLOAT]
  2876  E0012CF 001A6B'         		LWORD	RTLSUB		;[TIKU0]
  2877  E0012D2 001A6B'         		LWORD	RTLSUB		;[TIKU1]
  2878  E0012D5 001A6B'         		LWORD	RTLSUB		;[NUNOO]
  2879  E0012D8 001A6B'         		LWORD	RTLSUB		;[MITSN]
  2880  E0012DB 001A6B'         		LWORD	RTLSUB		;[JUGEM]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0049

  2881  E0012DE 001A6B'         		LWORD	RTLSUB		;[KINTO]
  2882  E0012E1 001A6B'         		LWORD	RTLSUB		;[JTAMA]
  2883  E0012E4 001A6B'         		LWORD	RTLSUB		;[RLTLF]
  2884  E0012E7 001A6B'         		LWORD	RTLSUB		;[RLTL2]
  2885  E0012EA 001A6B'         		LWORD	RTLSUB		;[RLTL3]
  2886  E0012ED 001A6B'         		LWORD	RTLSUB		;[CNTLF]
  2887  E0012F0 001A6B'         		LWORD	RTLSUB		;[BAK20]
  2888  E0012F3 001A6B'         		LWORD	RTLSUB		;[BAK21]
  2889  E0012F6 001A6B'         		LWORD	RTLSUB		;[ARIH0]
  2890  E0012F9 001A6B'         		LWORD	RTLSUB		;[KAMC4]
  2891  E0012FC 001A6B'         		LWORD	RTLSUB		;[MAKI0]
  2892  E0012FF 001A6B'         		LWORD	RTLSUB		;[MAKI1]
  2893  E001302 001A6B'         		LWORD	RTLSUB		;[FWAVE]
  2894  E001305 001A6B'         		LWORD	RTLSUB		;[WATAB]
  2895  E001308 000000"         		LWORD	KUSAHNS		;[KUSAH]
  2896  E00130B 001A6B'         		LWORD	RTLSUB		;[DEBU0]
  2897  E00130E 001A6B'         		LWORD	RTLSUB		;[COMCH]
  2898  E001311 001A6B'         		LWORD	RTLSUB		;[YOSSY]
  2899  E001314 001A6B'         		LWORD	RTLSUB		;[BG3EX]
  2900  E001317 001A6B'         		LWORD	RTLSUB		;[FHOTM]
  2901  E00131A 001A6B'         		LWORD	RTLSUB		;[FVOTM]
  2902  E00131D 001A6B'         		LWORD	RTLSUB		;[KEYDR]
  2903  E001320 001A6B'         		LWORD	RTLSUB		;[SSLIM]
  2904  E001323 001A6B'         		LWORD	RTLSUB		;[CHKH0]
  2905  E001326 000000"         		LWORD	KOOPANS		;[KOOPA]
  2906  E001329 001A6B'         		LWORD	RTLSUB		;[QCHAN]
  2907  E00132C 001A6B'         		LWORD	RTLSUB		;[QCHN2]
  2908  E00132F 001A6B'         		LWORD	RTLSUB		;[DWBL0]
  2909  E001332 001A6B'         		LWORD	RTLSUB		;[DWBL1]
  2910  E001335 001A6B'         		LWORD	RTLSUB		;[DWBL2]
  2911  E001338 001A6B'         		LWORD	RTLSUB		;[DWBL3]
  2912  E00133B 001A6B'         		LWORD	RTLSUB		;[IEKI0]
  2913  E00133E 001A6B'         		LWORD	RTLSUB		;[FLIPP]
  2914  E001341 001A6B'         		LWORD	RTLSUB		;[KOMO0]
  2915  E001344 001A6B'         		LWORD	RTLSUB		;[KOMO1]
  2916  E001347 001A6B'         		LWORD	RTLSUB		;[PKPK0]
  2917  E00134A 001A6B'         		LWORD	RTLSUB		;[PKPK1]
  2918  E00134D 001A6B'         		LWORD	RTLSUB		;[PKPK2]
  2919  E001350 001A6B'         		LWORD	RTLSUB		;[PKPK3]
  2920  E001353 001A6B'         		LWORD	RTLSUB		;[TEPPO]
  2921  E001356 001A6B'         		LWORD	RTLSUB		;[FLIPH]
  2922  E001359 001A6B'         		LWORD	RTLSUB		;[KEME0]
  2923  E00135C 001A6B'         		LWORD	RTLSUB		;[KEME1]
  2924  E00135F 001A6B'         		LWORD	RTLSUB		;[SNXG2]
  2925  E001362 001A6B'         		LWORD	RTLSUB		;[JBKL2]
  2926  E001365 001A6B'         		LWORD	RTLSUB		;[REFC0]
  2927  E001368 001A6B'         		LWORD	RTLSUB		;[REFC1]
  2928  E00136B 001A6B'         		LWORD	RTLSUB		;[REFC2]
  2929  E00136E 001A6B'         		LWORD	RTLSUB		;[REFC3]
  2930  E001371 001A6B'         		LWORD	RTLSUB		;[REFC4]
  2931  E001374 001A6B'         		LWORD	RTLSUB		;[REFC5]
  2932  E001377 001A6B'         		LWORD	RTLSUB		;[REFC6]
  2933  E00137A 001A6B'         		LWORD	RTLSUB		;[REFC7]
  2934  E00137D 001A6B'         		LWORD	RTLSUB		;[REFC8]
  2935  E001380 001A6B'         		LWORD	RTLSUB		;[MOTH0]
  2936  E001383 001A6B'         		LWORD	RTLSUB		;[BAHOB]
  2937  E001386 001A6B'         		LWORD	RTLSUB		;[AWANH]
  2938  E001389 001A6B'         		LWORD	RTLSUB		;[DBAHO]
  2939  E00138C 001A6B'         		LWORD	RTLSUB		;[MATO0]
  2940  E00138F 001A6B'         		LWORD	RTLSUB		;[AJGM0]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0050

  2941  E001392 001A6B'         		LWORD	RTLSUB		;[DBAH2]
  2942  E001395 001A6B'         		LWORD	RTLSUB		;[TONG0]
  2943  E001398 001A6B'         		LWORD	RTLSUB		;[TONG1]
  2944  E00139B 001A6B'         		LWORD	RTLSUB		;[BAMBO]
  2945  E00139E 001A6B'         		LWORD	RTLSUB		;[RBLKG]
  2946  E0013A1 001A6B'         		LWORD	RTLSUB		;[RBLKY]
  2947  E0013A4 001A6B'         		LWORD	RTLSUB		;[MILL2]
  2948  E0013A7 001A6B'         		LWORD	RTLSUB		;[RFLSG]
  2949  E0013AA 001A6B'         		LWORD	RTLSUB		;[RFLSY]
  2950  E0013AD 001A6B'         		LWORD	RTLSUB		;[HIMI2]
  2951  E0013B0 001A6B'         		LWORD	RTLSUB		;[RFLLG]
  2952  E0013B3 001A6B'         		LWORD	RTLSUB		;[SABO0]
  2953  E0013B6 001A6B'         		LWORD	RTLSUB		;[P_KN2]
  2954  E0013B9 001A6B'         		LWORD	RTLSUB		;[P_KUN]
  2955  E0013BC 001A6B'         		LWORD	RTLSUB		;[THJGM]
  2956  E0013BF 001A6B'         		LWORD	RTLSUB		;[KORA0]
  2957  E0013C2 001A6B'         		LWORD	RTLSUB		;[KORA1]
  2958  E0013C5 001A6B'         		LWORD	RTLSUB		;[HNOK0]
  2959  E0013C8 001A6B'         		LWORD	RTLSUB		;[HNOK1]
  2960  E0013CB 001A6B'         		LWORD	RTLSUB		;[NKNK0]
  2961  E0013CE 001A6B'         		LWORD	RTLSUB		;[NKNK1]
  2962  E0013D1 001A6B'         		LWORD	RTLSUB		;[PTPT0]
  2963  E0013D4 001A6B'         		LWORD	RTLSUB		;[PTPT1]
  2964  E0013D7 001A6B'         		LWORD	RTLSUB		;[PTPT2]
  2965  E0013DA 001A6B'         		LWORD	RTLSUB		;[JGEMW]
  2966  E0013DD 001A6B'         		LWORD	RTLSUB		;[MPACK]
  2967  E0013E0 001A6B'         		LWORD	RTLSUB		;[MPACH]
  2968  E0013E3 001A6B'         		LWORD	RTLSUB		;[FUSN0]
  2969  E0013E6 001A6B'         		LWORD	RTLSUB		;[FUSN1]
  2970  E0013E9 001A6B'         		LWORD	RTLSUB		;[FUSN2]
  2971  E0013EC 001A6B'         		LWORD	RTLSUB		;[FUSN3]
  2972  E0013EF 001A6B'         		LWORD	RTLSUB		;[FUSN4]
  2973  E0013F2 001A6B'         		LWORD	RTLSUB		;[FUSN5]
  2974  E0013F5 001A6B'         		LWORD	RTLSUB		;[FUSN6]
  2975  E0013F8 001A6B'         		LWORD	RTLSUB		;[FUSN7]
  2976  E0013FB 001A6B'         		LWORD	RTLSUB		;[FUSN8]
  2977  E0013FE 001A6B'         		LWORD	RTLSUB		;[FUSN9]
  2978  E001401 001A6B'         		LWORD	RTLSUB		;[FUSNa]
  2979  E001404 001A6B'         		LWORD	RTLSUB		;[FUSNb]
  2980  E001407 001A6B'         		LWORD	RTLSUB		;[BALON]
  2981  E00140A 001A6B'         		LWORD	RTLSUB		;[RMARU]
  2982  E00140D 001A6B'         		LWORD	RTLSUB		;[PANSY]
  2983  E001410 001A6B'         		LWORD	RTLSUB		;[DGFLY]
  2984  E001413 001A6B'         		LWORD	RTLSUB		;[BTFLY]
  2985  E001416 001A6B'         		LWORD	RTLSUB		;[TARKN]
  2986  E001419 001A6B'         		LWORD	RTLSUB		;[NRLF0]
  2987  E00141C 001A6B'         		LWORD	RTLSUB		;[NRLF1]
  2988  E00141F 001A6B'         		LWORD	RTLSUB		;[HRLF0]
  2989  E001422 001A6B'         		LWORD	RTLSUB		;[HRLF1]
  2990  E001425 001A6B'         		LWORD	RTLSUB		;[NRLF2]
  2991  E001428 001A6B'         		LWORD	RTLSUB		;[NRLF3]
  2992  E00142B 001A6B'         		LWORD	RTLSUB		;[HRLF2]
  2993  E00142E 001A6B'         		LWORD	RTLSUB		;[HRLF3]
  2994  E001431 001A6B'         		LWORD	RTLSUB		;[SRLF0]
  2995  E001434 001A6B'         		LWORD	RTLSUB		;[SRLF1]
  2996  E001437 001A6B'         		LWORD	RTLSUB		;[GRPLF]
  2997  E00143A 001A6B'         		LWORD	RTLSUB		;[TURAR]
  2998  E00143D 001A6B'         		LWORD	RTLSUB		;[SUZUM]
  2999  E001440 001A6B'         		LWORD	RTLSUB		;[FLWH0]
  3000  E001443 001A6B'         		LWORD	RTLSUB		;[BG3DO]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0051

  3001  E001446 001A6B'         		LWORD	RTLSUB		;[KOUNB] 子ウンババ
  3002  E001449 001A6B'         		LWORD	RTLSUB		;[GRCKS] ぐらぐら岩
  3003  E00144C 001A6B'         		LWORD	RTLSUB		;[GROCK] ぐらぐら岩
  3004  E00144F 001A6B'         		LWORD	RTLSUB		;[YAJI0] 矢印
  3005  E001452 001A6B'         		LWORD	RTLSUB		;[YAJI1] 矢印(斜め)
  3006  E001455 001A6B'         		LWORD	RTLSUB		;[NISEF]
  3007  E001458 001A6B'         		LWORD	RTLSUB		;[GSTH0]
  3008  E00145B 001A6B'         		LWORD	RTLSUB		;[STRKN]
  3009  E00145E 001A6B'         		LWORD	RTLSUB		;[FTRKN]
  3010  E001461 001A6B'         		LWORD	RTLSUB		;[BATSA]
  3011  E001464 001A6B'         		LWORD	RTLSUB		;[BATSB]
  3012  E001467 001A6B'         		LWORD	RTLSUB		;[BATSC]
  3013  E00146A 001A6B'         		LWORD	RTLSUB		;[FIRBR]
  3014  E00146D 001A6B'         		LWORD	RTLSUB		;[FIRB2]
  3015  E001470 001A6B'         		LWORD	RTLSUB		;[TIMKN]
  3016  E001473 001A6B'         		LWORD	RTLSUB		;[SKLNZ]
  3017  E001476 001A6B'         		LWORD	RTLSUB		;[CORKS]
  3018  E001479 001A6B'         		LWORD	RTLSUB		;[MONK0]
  3019  E00147C 001A6B'         		LWORD	RTLSUB		;[MONK1]
  3020  E00147F 001A6B'         		LWORD	RTLSUB		;[MONK2]
  3021  E001482 001A6B'         		LWORD	RTLSUB		;[MONK3]
  3022  E001485 001A6B'         		LWORD	RTLSUB		;[MONK4]
  3023  E001488 001A6B'         		LWORD	RTLSUB		;[YGFSH]
  3024  E00148B 001A6B'         		LWORD	RTLSUB		;[BLTLS]
  3025  E00148E 001A6B'         		LWORD	RTLSUB		;[KOKER]
  3026  E001491 001A6B'         		LWORD	RTLSUB		;[KAMEC]
  3027  E001494 001A6B'         		LWORD	RTLSUB		;[MAGIC]
  3028  E001497 001A6B'         		LWORD	RTLSUB		;[COIN2]
  3029  E00149A 001A6B'         		LWORD	RTLSUB		;[BG3LF]
  3030                          ;
  3031  E00149D 001A6B'         		LWORD	RTLSUB		;[M_THO] ※ミニゲーム用（砲台）
  3032  E0014A0 001A6B'         		LWORD	RTLSUB		;[M_TAM] ※ミニゲーム用（弾）
  3033  E0014A3 001A6B'         		LWORD	RTLSUB		;[M_DR0] ※ミニゲーム用（ドロボー１）
  3034  E0014A6 001A6B'         		LWORD	RTLSUB		;[M_LIF] ※ミニゲーム用（リフト）
  3035  E0014A9 001A6B'         		LWORD	RTLSUB		;[M_DR2] ※ミニゲーム用（ドロボー３）
  3036  E0014AC 001A6B'         		LWORD	RTLSUB		;[M_FUS] ※ミニゲーム用（風船）
  3037  E0014AF 001A6B'         		LWORD	RTLSUB		;[M_DR4] ※ミニゲーム用（ドロボー５）
  3038  E0014B2 001A6B'         		LWORD	RTLSUB		;[M_SUI] ※ミニゲーム用（西瓜湧きだし）
  3039  E0014B5 001A6B'         		LWORD	RTLSUB		;[M_DR5] ※ミニゲーム用（ドロボー６）
  3040                          ;
  3041                          ;****************************************************************
  3042                          ;*		敵ＲＡＭクリアー				*
  3043                          ;****************************************************************
  3044          0014B8          ENRAMCLR	EQU	$
  3045                          ;
  3046                          		MI16
  3046+ E0014B8 C2 30           		REP	#00110000b	
  3047                          ;
  3048  E0014BA A2 009C         		LDX	#(CEXNO+CENNO-1)*4
  3049  E0014BD A9 00FF         		LDA	#0FFH
  3050          0014C0          GMIN000		EQU	$
  3051  E0014C0 9E 6EC0         		STZ	EXMODE,X	;enemy clear
  3052  E0014C3 9D 7462         		STA	EXYUSN,X	;OAM not set
  3053  E0014C6 CA              		DEX
  3054  E0014C7 CA              		DEX
  3055  E0014C8 CA              		DEX
  3056  E0014C9 CA              		DEX
  3057  E0014CA 10 F4           		BPL	GMIN000
  3058                          ;
  3059                          		MI8
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0052

  3059+ E0014CC E2 30           		SEP	#00110000b	
  3060                          ;
  3061  E0014CE 6B              		RTL
  3062                          ;
  3063                          ;************************************************************************
  3064                          ;*		enemy OAM set						*
  3065                          ;************************************************************************
  3066                          ;
  3067          0014CF          ENCSET_DM	EQU	$
  3068                          ;
  3069                          		M16
  3069+ E0014CF C2 20           		REP	#00100000b	
  3070                          ;
  3071  E0014D1 80 20           		BRA	ENCSET_0010
  3072                          ;
  3073          0014D3          ENCSET		EQU	$
  3074  E0014D3 AD 7E2A         		LDA	SP_SCRL_FG
  3075  E0014D6 D0 2D           		BNE	ENCSET_0050	;スクロール基準特殊？ ( yes:ENCSET_0050 )
  3076                          ;
  3077                          		M16
  3077+ E0014D8 C2 20           		REP	#00100000b	
  3078                          ;
  3079  E0014DA AD 021A         		LDA	MAPOINT
  3080  E0014DD C9 0000"        		CMP	#INT_STAT
  3081  E0014E0 F0 14           		BEQ	ENCSET_0020	;１Ｗ−０？ ( yes:ENCSET_0020 )
  3082  E0014E2 C9 0032         		CMP	#((5-1)*12)+(3-1)
  3083  E0014E5 F0 05           		BEQ	ENCSET_0000	;５Ｗ−３？ ( yes:ENCSET_0000 )
  3084  E0014E7 C9 0038         		CMP	#((5-1)*12)+(9-1)
  3085  E0014EA D0 07           		BNE	ENCSET_0010	;５Ｗ−９？ ( no:ENCSET_0010 )
  3086          0014EC          ENCSET_0000	EQU	$
  3087  E0014EC AC 60AE         		LDY	PLTYPE
  3088  E0014EF C0 0E           		CPY	#P_SKI
  3089  E0014F1 F0 03           		BEQ	ENCSET_0020	;スキーヨッシー？ ( yes:ENCSET_0020 )
  3090          0014F3          ENCSET_0010	EQU	$
  3091  E0014F3 A9 0000         		LDA	#0
  3092          0014F6          ENCSET_0020	EQU	$
  3093  E0014F6 8D 3006         		STA	R3		;(R3) <-- １Ｗ−０フラグ
  3094                          		M_CHIPS GAMENCHK	;enemy OAM set
  3094+ E0014F9 A2 09           		LDX	#BANK GAMENCHK
  3094+ E0014FB A9 8925         		LDA	#GAMENCHK
  3094+ E0014FE 22 000000"      		JSL	>CHIPON_SPECIAL
  3095                          ;
  3096                          		M8
  3096+ E001502 E2 20           		SEP	#00100000b	
  3097                          ;
  3098  E001504 6B              		RTL
  3099                          ;
  3100                          ;-------------- スクロール基準特殊 敵の状態保存セット -------------------
  3101          001505          ENCSET_0050	EQU	$
  3102                          ;
  3103                          		M8
  3103+ E001505 E2 20           		SEP	#00100000b	
  3104                          ;
  3105  E001507 A2 17           		LDX	#ENNO-1		;敵の状態保存チェックデータセット
  3106  E001509 A0 5C           		LDY	#(ENNO-1)*4
  3107          00150B          ENCSET_0100	EQU	$
  3108  E00150B BD 0C98         		LDA	SP_SCRL_SVENFG,X
  3109  E00150E F0 0A           		BEQ	ENCSET_0150	;状態保存？ ( no:ENCSET_0150 )
  3110                          ;
  3111  E001510 B9 7040         		LDA	ENMOD2,Y
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0053

  3112  E001513 95 00           		STA	<WORK,X
  3113  E001515 29 F3           		AND	#11110011B	;範囲外クリアー無しセット
  3114  E001517 99 7040         		STA	ENMOD2,Y
  3115          00151A          ENCSET_0150	EQU	$
  3116  E00151A 88              		DEY
  3117  E00151B 88              		DEY
  3118  E00151C 88              		DEY
  3119  E00151D 88              		DEY
  3120  E00151E CA              		DEX
  3121  E00151F 10 EA           		BPL	ENCSET_0100
  3122                          ;
  3123                          		M16
  3123+ E001521 C2 20           		REP	#00100000b	
  3124                          ;
  3125  E001523 AD 021A         		LDA	MAPOINT
  3126  E001526 38              		SEC
  3127  E001527 E9 0000"        		SBC	#INT_STAT
  3128  E00152A 8D 3006         		STA	R3		;(R3) <-- １Ｗ−０フラグ
  3129                          		M_CHIPS GAMENCHK	;enemy OAM set
  3129+ E00152D A2 09           		LDX	#BANK GAMENCHK
  3129+ E00152F A9 8925         		LDA	#GAMENCHK
  3129+ E001532 22 000000"      		JSL	>CHIPON_SPECIAL
  3130                          ;
  3131                          		M8
  3131+ E001536 E2 20           		SEP	#00100000b	
  3132                          ;
  3133                          ;-------------- スクロール基準特殊 敵の状態保存リセット -----------------
  3134  E001538 A2 17           		LDX	#ENNO-1		;敵の状態保存チェックデータセット
  3135  E00153A A0 5C           		LDY	#(ENNO-1)*4
  3136          00153C          ENCSET_0200	EQU	$
  3137  E00153C BD 0C98         		LDA	SP_SCRL_SVENFG,X
  3138  E00153F F0 05           		BEQ	ENCSET_0250	;状態保存？ ( no:ENCSET_0250 )
  3139                          ;
  3140  E001541 B5 00           		LDA	<WORK,X		;範囲外クリアー情報復帰
  3141  E001543 99 7040         		STA	ENMOD2,Y
  3142          001546          ENCSET_0250	EQU	$
  3143  E001546 88              		DEY
  3144  E001547 88              		DEY
  3145  E001548 88              		DEY
  3146  E001549 88              		DEY
  3147  E00154A CA              		DEX
  3148  E00154B 10 EF           		BPL	ENCSET_0200
  3149  E00154D 6B              		RTL
  3150                          ;
  3151                          ;
  3152                          ;****************************************************************
  3153                          ;*		enemy initial					*
  3154                          ;****************************************************************
  3155                          ;
  3156                          ;
  3157                          		DPAGE	EN0RAM
  3158                          ;
  3159                          ;
  3160          00154E          ENINSB		EQU	$
  3161  E00154E 8B              		PHB			;(DBR) save
  3162  E00154F 4B              		PHK			;(DBR) <-- (PBR)
  3163  E001550 AB              		PLB
  3164  E001551 0B              		PHD			;(D) save
  3165                          ;
  3166                          		M16
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0054

  3166+ E001552 C2 20           		REP	#00100000b	
  3167                          ;
  3168  E001554 A9 7960         		LDA	#EN0RAM		;(D) <-- enemy 0 page
  3169  E001557 5B              		TCD
  3170                          ;
  3171  E001558 A0 3C           		LDY	#(EXNO-1)*4	;exstra area counter reset
  3172  E00155A 8C 7E4A         		STY	EXSTCT
  3173                          ;
  3174  E00155D AD 0039         		LDA	SCCH1
  3175  E001560 85 0E           		STA	<EWORK+14
  3176  E001562 38              		SEC
  3177  E001563 E9 0160         		SBC	#0120H+0030H+0010H
  3178  E001566 8D 0039         		STA	SCCH1
  3179  E001569 9C 0073         		STZ	SCHMK1
  3180          00156C          ENI020		EQU	$
  3181  E00156C AD 0039         		LDA	SCCH1
  3182  E00156F 18              		CLC
  3183  E001570 69 0010         		ADC	#0010H
  3184  E001573 8D 0039         		STA	SCCH1
  3185  E001576 20 1596'        		JSR	ENDTRD
  3186  E001579 AD 0039         		LDA	SCCH1
  3187  E00157C C5 0E           		CMP	<EWORK+14
  3188  E00157E D0 EC           		BNE	ENI020
  3189                          ;
  3190  E001580 A9 4000         		LDA	#4000H		;画面内ＢＧチェック用書き換え座標リセット
  3191  E001583 8D 60A4         		STA	WRSCH1
  3192  E001586 8D 60A6         		STA	WRSCV1
  3193                          ;
  3194                          		M8
  3194+ E001589 E2 20           		SEP	#00100000b	
  3195                          ;
  3196  E00158B 2B              		PLD
  3197  E00158C AB              		PLB
  3198  E00158D 6B              		RTL
  3199                          ;
  3200                          ;****************************************************************
  3201                          ;*		enemy data read					*
  3202                          ;****************************************************************
  3203          00158E          ENCKXA		EQU	$
  3204  E00158E 0120 FFD0       		WORD	0120H,0FFD0H
  3205          001592          ENCKYA		EQU	$
  3206  E001592 0110 FFE0       		WORD	0110H,0FFE0H
  3207                          ;
  3208                          		MEM16
  3209                          		IDX8
  3210                          ;
  3211          001596          ENDTRD		EQU	$
  3212  E001596 AE 0073         		LDX	SCHMK1
  3213  E001599 AD 0039         		LDA	SCCH1
  3214  E00159C 18              		CLC
  3215  E00159D 7D 158E'        		ADC	!ENCKXA,X
  3216  E0015A0 8D 3002         		STA	R1
  3217  E0015A3 AD 003B         		LDA	SCCV1
  3218  E0015A6 38              		SEC
  3219  E0015A7 E9 0020         		SBC	#0020H
  3220  E0015AA 8D 3004         		STA	R2
  3221  E0015AD AE 0075         		LDX	SCVMK1
  3222  E0015B0 AD 003B         		LDA	SCCV1
  3223  E0015B3 18              		CLC
  3224  E0015B4 7D 1592'        		ADC	!ENCKYA,X
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0055

  3225  E0015B7 8D 3006         		STA	R3
  3226  E0015BA AD 0039         		LDA	SCCH1
  3227  E0015BD 38              		SEC
  3228  E0015BE E9 0030         		SBC	#0030H
  3229  E0015C1 8D 3008         		STA	R4
  3230                          		M_CHIP	ENDTSR
  3230+ E0015C4 A2 09           		LDX	#BANK ENDTSR
  3230+ E0015C6 A9 8000         		LDA	#ENDTSR
  3230+ E0015C9 22 000000"      		JSL	>CHIPON
  3231                          ;
  3232                          		I16
  3232+ E0015CD C2 10           		REP	#00010000b	
  3233                          ;
  3234  E0015CF A2 0000         		LDX	#00
  3235          0015D2          ERD000		EQU	$
  3236  E0015D2 BF 7027CE       		LDA	>EDSRBF,X
  3237  E0015D6 10 03           		BPL	ERD010		;search data nothing ? ( no:ERD010 )
  3238                          ;
  3239  E0015D8 E2 10           		SEP	#00010000B	;index 8 bit mode
  3240  E0015DA 60              		RTS
  3241                          ;
  3242                          ;-------------- enemy status data set ---------------------------
  3243          0015DB          ERD010		EQU	$
  3244  E0015DB 38              		SEC
  3245  E0015DC E9 01BA         		SBC	#ENEND
  3246  E0015DF 90 08           		BCC	ERD018		;特殊モード？ ( no:ERD018 )
  3247                          ;
  3248                          ;-------------- 特殊モードセット ------------------------
  3249  E0015E1 20 179E'        		JSR	ESINSR_S
  3250  E0015E4 90 5A           		BCC	ERD022
  3251  E0015E6 4C 177F'        		JMP	ERD060
  3252                          ;
  3253                          ;-------------- 敵セット --------------------------------
  3254          0015E9          ERD018		EQU	$
  3255  E0015E9 AD 7E2A         		LDA	SP_SCRL_FG
  3256  E0015EC F0 41           		BEQ	ERD019		;スクロール基準特殊？ ( no:ERD019 )
  3257                          ;
  3258  E0015EE 9B              		TXY
  3259  E0015EF BF 7027CE       		LDA	>EDSRBF,X
  3260  E0015F3 0A              		ASL	A
  3261  E0015F4 AA              		TAX
  3262  E0015F5 BF 0A9555       		LDA	>ENMODE1,X
  3263  E0015F9 BB              		TYX
  3264  E0015FA 29 6000         		AND	#0110000000000000B
  3265  E0015FD D0 30           		BNE	ERD019		;敵？ ( no:ERD019 )
  3266                          ;
  3267  E0015FF AD 7E2A         		LDA	SP_SCRL_FG
  3268  E001602 1A              		INC	A
  3269  E001603 F0 3B           		BEQ	ERD022		;スクロール基準特殊解除？ ( yes:ERD022 )
  3270                          ;
  3271                          ;-------------- スクロール基準特殊時の敵のセットキャンセルチェック
  3272  E001605 BF 7027D0       		LDA	>EDSRBF+2,X
  3273  E001609 0A              		ASL	A
  3274  E00160A 0A              		ASL	A
  3275  E00160B 0A              		ASL	A
  3276  E00160C 0A              		ASL	A
  3277  E00160D 38              		SEC
  3278  E00160E ED 608C         		SBC	PLXPSL
  3279  E001611 18              		CLC
  3280  E001612 69 0060         		ADC	#060H
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0056

  3281  E001615 C9 00C1         		CMP	#060H*2+1
  3282  E001618 B0 15           		BCS	ERD019		;セットＯＫ？ ( yes:ERD019 )
  3283                          ;
  3284  E00161A BF 7027D2       		LDA	>EDSRBF+4,X
  3285  E00161E 0A              		ASL	A
  3286  E00161F 0A              		ASL	A
  3287  E001620 0A              		ASL	A
  3288  E001621 0A              		ASL	A
  3289  E001622 38              		SEC
  3290  E001623 ED 6090         		SBC	PLYPSL
  3291  E001626 18              		CLC
  3292  E001627 69 0060         		ADC	#060H
  3293  E00162A C9 00C1         		CMP	#060H*2+1
  3294  E00162D 90 11           		BCC	ERD022		;セットＯＫ？ ( no:ERD022 )
  3295                          ;
  3296          00162F          ERD019		EQU	$
  3297  E00162F A0 005C         		LDY	#(ENNO-1)*4
  3298          001632          ERD020		EQU	$
  3299  E001632 B9 6F00         		LDA	ENMODE,Y
  3300  E001635 F0 1D           		BEQ	ERD030
  3301  E001637 88              		DEY
  3302  E001638 88              		DEY
  3303  E001639 88              		DEY
  3304  E00163A 88              		DEY
  3305  E00163B C0 0018         		CPY	#((1+1+4)*4)
  3306  E00163E B0 F2           		BCS	ERD020
  3307                          ;
  3308          001640          ERD022		EQU	$
  3309  E001640 9B              		TXY			;(X) save
  3310                          ;
  3311                          		MI8
  3311+ E001641 E2 30           		SEP	#00110000b	
  3312                          ;
  3313  E001643 BF 7027D4       		LDA	>EDSRBF+6,X
  3314  E001647 AA              		TAX
  3315  E001648 A9 00           		LDA	#00
  3316  E00164A 9F 7028CA       		STA	>EDSWBF,X
  3317                          ;
  3318                          		MI16
  3318+ E00164E C2 30           		REP	#00110000b	
  3319                          ;
  3320  E001650 BB              		TYX			;(X) load
  3321  E001651 4C 177F'        		JMP	ERD060
  3322                          ;
  3323          001654          ERD030		EQU	$
  3324  E001654 BF 7027D0       		LDA	>EDSRBF+2,X
  3325  E001658 0A              		ASL	A
  3326  E001659 0A              		ASL	A
  3327  E00165A 0A              		ASL	A
  3328  E00165B 0A              		ASL	A
  3329  E00165C 99 70E2         		STA	ENXPSL,Y
  3330  E00165F BF 7027D2       		LDA	>EDSRBF+4,X
  3331  E001663 0A              		ASL	A
  3332  E001664 0A              		ASL	A
  3333  E001665 0A              		ASL	A
  3334  E001666 0A              		ASL	A
  3335  E001667 99 7182         		STA	ENYPSL,Y
  3336  E00166A A9 0000         		LDA	#0000
  3337  E00166D 99 7D96         		STA	ENCOLD,Y
  3338  E001670 99 7220         		STA	ENXSPD,Y
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0057

  3339  E001673 99 7222         		STA	ENYSPD,Y
  3340  E001676 99 7976         		STA	ENCONT,Y
  3341  E001679 99 70E0         		STA	ENEMU0,Y	;[ & STA ENXSDR,Y ]
  3342  E00167C 99 7D36         		STA	ECRSFG,Y	;[ & STA ENCRPT,Y ]
  3343  E00167F 99 7978         		STA	ENWRK0,Y	;[ & STA ENWRK1,Y ]
  3344  E001682 99 79D6         		STA	ENWRK2,Y	;[ & STA ENWRK3,Y ]
  3345  E001685 99 79D8         		STA	ENWRK4,Y	;[ & STA ENWRK5,Y ]
  3346  E001688 99 7A36         		STA	ENWRK6,Y	;[ & STA ENWRK7,Y ]
  3347  E00168B 99 7A38         		STA	ENWRK8,Y	;[ & STA ENWRK9,Y ]
  3348  E00168E 99 7900         		STA	ENWRKA,Y	;[ & STA ENWRKB,Y ]
  3349  E001691 99 7902         		STA	ENWRKC,Y	;[ & STA ENWRKD,Y ]
  3350  E001694 99 7A96         		STA	ENTIM0,Y
  3351  E001697 99 7A98         		STA	ENTIM1,Y
  3352  E00169A 99 7AF6         		STA	ENTIM2,Y
  3353  E00169D 99 7AF8         		STA	ENTIM3,Y
  3354  E0016A0 99 7402         		STA	ENCHPT,Y
  3355  E0016A3 99 7860         		STA	ENCBFG,Y
  3356  E0016A6 99 6F02         		STA	ENSLOP,Y	;[ & STA EN_ADD_XSP,Y ]
  3357  E0016A9 99 7D38         		STA	ENSHOT,Y
  3358  E0016AC 99 7720         		STA	ENBGYP,Y
  3359  E0016AF 99 7680         		STA	ENDSXL,Y
  3360  E0016B2 99 7682         		STA	ENDSYL,Y
  3361  E0016B5 99 7540         		STA	ENXPOW,Y
  3362  E0016B8 99 75E0         		STA	ENXMAX,Y
  3363  E0016BB 99 77C0         		STA	ENWRKX,Y	;[ & STA ENSPTM,Y ]
  3364  E0016BE 3A              		DEC	A		;[ LDA #0FFFFH ]
  3365  E0016BF 99 7362         		STA	ENOAML,Y
  3366  E0016C2 99 7722         		STA	ENTROB,Y
  3367  E0016C5 A9 1FFF         		LDA	#0FFH+(((100H/8)-1)*100H)
  3368  E0016C8 99 7862         		STA	ENWATR,Y
  3369  E0016CB BF 7027CE       		LDA	>EDSRBF,X
  3370  E0016CF 99 7360         		STA	ENMYNO,Y
  3371  E0016D2 DA              		PHX
  3372  E0016D3 0A              		ASL	A
  3373  E0016D4 AA              		TAX
  3374                          ;
  3375                          		M8
  3375+ E0016D5 E2 20           		SEP	#00100000b	
  3376                          ;
  3377  E0016D7 5A              		PHY			;(Y) save
  3378                          ;
  3379  E0016D8 BF 0AA54D       		LDA	>ENCHR_BNK,X	;(A) <-- 敵キャラクターバンク
  3380  E0016DC A0 0006         		LDY	#6
  3381          0016DF          ERD032		EQU	$
  3382  E0016DF D9 6EB5         		CMP	OBJCHR_BNK-1,Y
  3383  E0016E2 F0 06           		BEQ	ERD034		;自分のキャラクターバンク有り？ ( yes:ERD034 )
  3384  E0016E4 88              		DEY
  3385  E0016E5 D0 F8           		BNE	ERD032
  3386  E0016E7 98              		TYA			;[ LDA #0 ]
  3387  E0016E8 80 05           		BRA	ERD036
  3388                          ;
  3389          0016EA          ERD034		EQU	$
  3390  E0016EA 98              		TYA
  3391                          ;;;;		    CLC			;[ * CMP : (Z)=(C) ]
  3392  E0016EB 69 06           		ADC	#(8-1)-1	;[ 8 --> 8*4*8 = 100H ]
  3393  E0016ED 0A              		ASL	A		;[ 9 --> 9*4*8 = 120H ]
  3394  E0016EE 0A              		ASL	A		;[	   "          ]
  3395                          ;
  3396          0016EF          ERD036		EQU	$
  3397                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0058

  3398                          		M16
  3398+ E0016EF C2 20           		REP	#00100000b	
  3399                          ;
  3400  E0016F1 29 00FF         		AND	#00FFH
  3401  E0016F4 7A              		PLY			;(Y) load
  3402  E0016F5 99 7180         		STA	ENCHRB,Y	;[ & STA ENYSDR,Y ]
  3403                          ;
  3404  E0016F8 BF 0A9D52       		LDA	>ENDATA0+1,X
  3405  E0016FC 29 00FF         		AND	#00FFH
  3406  E0016FF 49 0020         		EOR	#0020H		;pri. initial set
  3407  E001702 99 7042         		STA	ENCLOR,Y
  3408  E001705 BF 0A9D51       		LDA	>ENDATA0,X
  3409  E001709 29 00FF         		AND	#00FFH
  3410  E00170C 99 74A2         		STA	ENYUSN,Y
  3411  E00170F BF 0AA14E       		LDA	>ENDATA1-1,X
  3412  E001713 29 FF00         		AND	#0FF00H
  3413  E001716 10 03           		BPL	ERD040
  3414  E001718 09 00FF         		ORA	#00FFH
  3415          00171B          ERD040		EQU	$
  3416  E00171B EB              		XBA
  3417  E00171C 99 7542         		STA	ENGPOW,Y
  3418  E00171F BF 0AA14F       		LDA	>ENDATA1,X
  3419  E001723 29 FF00         		AND	#0FF00H
  3420  E001726 10 03           		BPL	ERD050
  3421  E001728 09 00FF         		ORA	#00FFH
  3422          00172B          ERD050		EQU	$
  3423  E00172B EB              		XBA
  3424  E00172C 0A              		ASL	A
  3425  E00172D 0A              		ASL	A
  3426  E00172E 0A              		ASL	A
  3427  E00172F 0A              		ASL	A
  3428  E001730 99 75E2         		STA	ENGMAX,Y
  3429  E001733 BF 0A9953       		LDA	>ENMODE2,X
  3430  E001737 99 7040         		STA	ENMOD2,Y
  3431  E00173A BF 0A9555       		LDA	>ENMODE1,X
  3432  E00173E 99 6FA2         		STA	ENMOD1,Y
  3433  E001741 BF 0A9157       		LDA	>ENMODE0,X
  3434  E001745 99 6FA0         		STA	ENMOD0,Y
  3435  E001748 29 001F         		AND	#001FH
  3436  E00174B 0A              		ASL	A
  3437  E00174C 0A              		ASL	A
  3438  E00174D 0A              		ASL	A
  3439  E00174E AA              		TAX
  3440  E00174F BF 0A9057       		LDA	>ENCRDT,X
  3441  E001753 99 7B56         		STA	ECNTXW,Y
  3442  E001756 BF 0A9059       		LDA	>ENCRDT+2,X
  3443  E00175A 99 7B58         		STA	ECNTYW,Y
  3444  E00175D BF 0A905B       		LDA	>ENCRDT+4,X
  3445  E001761 99 7BB6         		STA	EWIDEX,Y
  3446  E001764 BF 0A905D       		LDA	>ENCRDT+6,X
  3447  E001768 99 7BB8         		STA	EWIDEY,Y
  3448  E00176B FA              		PLX
  3449  E00176C AD 0073         		LDA	SCHMK1		;muki set
  3450  E00176F 99 7400         		STA	ENMUKI,Y
  3451  E001772 A9 0002         		LDA	#EINIT
  3452  E001775 99 6F00         		STA	ENMODE,Y
  3453  E001778 BF 7027D4       		LDA	>EDSRBF+6,X
  3454  E00177C 99 74A0         		STA	ENRETN,Y	;[ & STA ENDORE,Y ]
  3455                          ;
  3456          00177F          ERD060		EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0059

  3457  E00177F 8A              		TXA
  3458  E001780 18              		CLC
  3459  E001781 69 0008         		ADC	#0008H
  3460  E001784 AA              		TAX
  3461  E001785 4C 15D2'        		JMP	ERD000
  3462                          ;
  3463                          ;＊湧きだしフラグ
  3464                          ;
  3465                          		MEM16
  3466                          		IDX8
  3467          001788          ESINSR		EQU	$
  3468  E001788 8B              		PHB
  3469  E001789 4B              		PHK
  3470  E00178A AB              		PLB
  3471  
  3472  E00178B 38              		SEC
  3473  E00178C E9 01BA         		SBC	#ENEND
  3474                          		I16
  3474+ E00178F C2 10           		REP	#00010000b	
  3475  E001791 20 179E'        		JSR	ESINSR_S
  3476                          		I8
  3476+ E001794 E2 10           		SEP	#00010000b	
  3477  
  3478  E001796 A9 00FF         		LDA	#000FFH
  3479  E001799 99 0C0C         		STA	ESRETN,Y
  3480  
  3481  E00179C AB              		PLB
  3482  E00179D 6B              		RTL
  3483                          ;
  3484                          		MEM16
  3485                          		IDX16
  3486          00179E          ESINSR_S	EQU	$
  3487                          ;
  3488                          ;-------------- 特殊モードセット ------------------------
  3489  E00179E DA              		PHX			;(X) save
  3490                          ;
  3491  E00179F A0 0006         		LDY	#(ESNO-1)*2
  3492          0017A2          ESINSR_S012	EQU	$
  3493  E0017A2 BE 0C04         		LDX	ESMODE,Y
  3494  E0017A5 F0 07           		BEQ	ESINSR_S014	;空きあり？ ( yes:ESINSR_S014 )
  3495  E0017A7 88              		DEY
  3496  E0017A8 88              		DEY
  3497  E0017A9 10 F7           		BPL	ESINSR_S012
  3498                          ;
  3499  E0017AB FA              		PLX
  3500  E0017AC 18              		CLC
  3501  E0017AD 60              		RTS
  3502                          ;
  3503                          ;-------------- 特殊モード初期セット ------------
  3504          0017AE          ESINSR_S014	EQU	$
  3505  E0017AE 1A              		INC	A		;[ １〜 ]
  3506  E0017AF 99 0C04         		STA	ESMODE,Y
  3507  E0017B2 0A              		ASL	A
  3508  E0017B3 FA              		PLX			;(X) load
  3509  E0017B4 DA              		PHX			;(X) save
  3510  E0017B5 48              		PHA			;(A) save
  3511  E0017B6 BF 7027D4       		LDA	>EDSRBF+6,X
  3512  E0017BA 99 0C0C         		STA	ESRETN,Y
  3513  E0017BD BF 7027D0       		LDA	>EDSRBF+2,X
  3514  E0017C1 8D 7960         		STA	EWORK0		;(EWK0,1) <-- セットＸ位置
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0060

  3515  E0017C4 BF 7027D2       		LDA	>EDSRBF+4,X
  3516  E0017C8 8D 7962         		STA	EWORK2		;(EWK2,3) <-- セットＹ位置
  3517  E0017CB 68              		PLA			;(A) load
  3518  E0017CC AA              		TAX
  3519  E0017CD FC 546D'        		JSR	(!ESINIT,X)
  3520                          ;
  3521  E0017D0 FA              		PLX			;(X) load
  3522  E0017D1 38              		SEC
  3523  E0017D2 60              		RTS
  3524                          ;
  3525                          		IDX8
  3526                          ;
  3527                          ;************************************************************************
  3528                          ;*		enemy main						*
  3529                          ;************************************************************************
  3530                          ;
  3531          0017D3          ENEMY_IN	EQU	$
  3532  E0017D3 8B              		PHB			;(DBR) save
  3533  E0017D4 4B              		PHK			;(DBR) <-- (PBR)
  3534  E0017D5 AB              		PLB
  3535  E0017D6 0B              		PHD			;(D) save
  3536                          ;
  3537                          		M16
  3537+ E0017D7 C2 20           		REP	#00100000b	
  3538                          ;
  3539  E0017D9 A9 7960         		LDA	#EN0RAM		;(D) <-- enemy 0 page
  3540  E0017DC 5B              		TCD
  3541  E0017DD 80 0D           		BRA	ENMFFF
  3542                          ;
  3543          0017DF          ENEMY		EQU	$
  3544  E0017DF 8B              		PHB			;(DBR) save
  3545  E0017E0 4B              		PHK			;(DBR) <-- (PBR)
  3546  E0017E1 AB              		PLB
  3547  E0017E2 0B              		PHD			;(D) save
  3548                          ;
  3549                          		M16
  3549+ E0017E3 C2 20           		REP	#00100000b	
  3550                          ;
  3551  E0017E5 A9 7960         		LDA	#EN0RAM		;(D) <-- enemy 0 page
  3552  E0017E8 5B              		TCD
  3553                          ;
  3554                          ;-------------- enemy data read ---------------------------------
  3555  E0017E9 20 1596'        		JSR	ENDTRD		;enemy data read
  3556                          ;
  3557          0017EC          ENMFFF		EQU	$
  3558  E0017EC AD 61B0         		LDA	ENSTFG
  3559  E0017EF 0D 0B55         		ORA	BIRIBIRI
  3560  E0017F2 0D 0398         		ORA	ITEMNO
  3561  E0017F5 D0 0B           		BNE	ENM000		;enemy stop ? ( yes:ENM000 )
  3562                          ;
  3563                          ;-------------- frame counter set -------------------------------
  3564  E0017F7 E6 14           		INC	<FRCNT2
  3565                          ;
  3566                          ;-------------- pos calculate -----------------------------------
  3567                          		M_CHIP	XYMOVE
  3567+ E0017F9 A2 09           		LDX	#BANK XYMOVE
  3567+ E0017FB A9 884C         		LDA	#XYMOVE
  3567+ E0017FE 22 000000"      		JSL	>CHIPON
  3568                          ;
  3569          001802          ENM000		EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0061

  3570                          ;
  3571                          ;-------------- BG check ----------------------------------------
  3572                          ;
  3573                          ;-------------- サウンドフラグ入れ替え ------------------
  3574  E001802 9C 607A         		STZ	MSOUND3
  3575                          ;
  3576  E001805 A9 29CC         		LDA	#ENBGCK_DATA	;BG check point data buffer start pointer set
  3577  E001808 8F 7029CA       		STA	>ENBGCK_DATA_P
  3578                          		M_CHIPS M_ENBGCK	;BG check
  3578+ E00180C A2 0A           		LDX	#BANK M_ENBGCK
  3578+ E00180E A9 CE24         		LDA	#M_ENBGCK
  3578+ E001811 22 000000"      		JSL	>CHIPON_SPECIAL
  3579                          ;
  3580                          ;-------------- cross check -------------------------------------
  3581  E001815 A9 0008         		LDA	#008H		;player cross check data set
  3582  E001818 8D 6120         		STA	PWIDEX
  3583  E00181B 18              		CLC
  3584  E00181C 6D 608C         		ADC	PLXPSL
  3585  E00181F 8D 611C         		STA	PCENTX
  3586  E001822 A9 000C         		LDA	#0CH
  3587  E001825 AE 60AE         		LDX	PLTYPE		;(X) <-- プレイヤータイプ
  3588  E001828 E0 08           		CPX	#P_TRAIN
  3589  E00182A D0 21           		BNE	ENM001		;汽車プレイヤー？ ( no:ENM001 )
  3590                          ;
  3591                          ;-------------- 汽車衝突サイズセット --------------------
  3592  E00182C AC 6180         		LDY	PTR_MODE
  3593  E00182F F0 24           		BEQ	ENM002		;レールモード？ ( no:ENM002 )
  3594                          ;
  3595  E001831 A9 0004         		LDA	#04H
  3596  E001834 8D 6120         		STA	PWIDEX
  3597  E001837 8D 6122         		STA	PWIDEY
  3598  E00183A A9 00FF         		LDA	#0FFH
  3599  E00183D AC 60C4         		LDY	PLCMKI
  3600  E001840 F0 01           		BEQ	ENM0000
  3601  E001842 4A              		LSR	A		;[ LDA #07FH ]
  3602          001843          ENM0000		EQU	$
  3603  E001843 4D 617E         		EOR	PTR_ANGL
  3604  E001846 1A              		INC	A
  3605  E001847 A8              		TAY			;(Y) <-- 回転角度
  3606  E001848 A9 0015         		LDA	#014H+1		;(A) <-- 中心までのＹ距離＋１
  3607  E00184B 80 27           		BRA	ENM0028
  3608                          ;
  3609          00184D          ENM001		EQU	$
  3610  E00184D AC 60C2         		LDY	PLSITD
  3611  E001850 F0 03           		BEQ	ENM002		;しゃがんでる？ ( no:ENM002 )
  3612                          ;
  3613  E001852 A9 0006         		LDA	#06H
  3614          001855          ENM002		EQU	$
  3615  E001855 8D 6122         		STA	PWIDEY
  3616  E001858 E0 10           		CPX	#P_MARIO
  3617  E00185A D0 2A           		BNE	ENM003		;マリオ？ ( no:ENM003 )
  3618  E00185C AC 6180         		LDY	PMR_BGCF
  3619  E00185F F0 25           		BEQ	ENM003		;ソニックモード？ ( no:ENM003 )
  3620                          ;
  3621                          ;-------------- マリオ衝突サイズセット ------------------
  3622  E001861 EE 6122         		INC	PWIDEY
  3623  E001864 AD 617E         		LDA	PMR_ANGL
  3624  E001867 AC 60C4         		LDY	PLCMKI
  3625  E00186A D0 04           		BNE	ENM0020
  3626  E00186C 49 00FF         		EOR	#0FFH
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0062

  3627  E00186F 1A              		INC	A
  3628          001870          ENM0020		EQU	$
  3629  E001870 A8              		TAY			;(Y) <-- 回転角度
  3630  E001871 A9 0021         		LDA	#020H+1		;(A) <-- 中心までのＹ距離＋１
  3631          001874          ENM0028		EQU	$
  3632  E001874 8D 3008         		STA	R4		;(R4) <-- 中心までのＹ距離＋１
  3633  E001877 98              		TYA			;[ * AND #00FFH ]
  3634  E001878 8D 3002         		STA	R1		;(R1) <-- 回転角度
  3635                          		M_CHIP	MARIO_SIZEST
  3635+ E00187B A2 09           		LDX	#BANK MARIO_SIZEST
  3635+ E00187D A9 F9FE         		LDA	#MARIO_SIZEST
  3635+ E001880 22 000000"      		JSL	>CHIPON
  3636  E001884 80 0F           		BRA	ENM0030
  3637                          ;
  3638          001886          ENM003		EQU	$
  3639  E001886 38              		SEC
  3640  E001887 E9 0020         		SBC	#020H
  3641  E00188A 49 FFFF         		EOR	#0FFFFH
  3642  E00188D 1A              		INC	A
  3643  E00188E 18              		CLC
  3644  E00188F 6D 6090         		ADC	PLYPSL		;player cross check center Y pos set
  3645  E001892 8D 611E         		STA	PCENTY
  3646                          ;
  3647          001895          ENM0030		EQU	$
  3648                          		M_CHIP	ENCROSS		;cross check
  3648+ E001895 A2 09           		LDX	#BANK ENCROSS
  3648+ E001897 A9 8084         		LDA	#ENCROSS
  3648+ E00189A 22 000000"      		JSL	>CHIPON
  3649                          ;
  3650                          ;-------------- サウンドフラグセット --------------------
  3651  E00189E AD 607A         		LDA	MSOUND3
  3652  E0018A1 F0 04           		BEQ	ENM004		;サウンドセット？ ( no:ENM004 )
  3653                          ;
  3654  E0018A3 22 000000"      		JSL	>SOUND_3_ON
  3655          0018A7          ENM004		EQU	$
  3656                          ;
  3657                          ;------------------------------------------------------------------------
  3658                          ;-		効果							-
  3659                          ;------------------------------------------------------------------------
  3660  E0018A7 22 000000"      		JSL	>EXSTRA		;kouka
  3661                          ;
  3662                          ;------------------------------------------------------------------------
  3663                          ;-		敵							-
  3664                          ;------------------------------------------------------------------------
  3665  E0018AB AD 7E2A         		LDA	SP_SCRL_FG
  3666  E0018AE 3A              		DEC	A		;[ * 0 or < 0 ]
  3667  E0018AF 30 06           		BMI	ENM012		;スクロール基準特殊？ ( no:ENM012 )
  3668                          ;
  3669  E0018B1 A9 FFF8         		LDA	#-8H
  3670  E0018B4 8D 7E2A         		STA	SP_SCRL_FG	;スクロール基準特殊フラグ”ＯＦＦ”
  3671                          ;
  3672          0018B7          ENM012		EQU	$
  3673  E0018B7 9C 0CC2         		STZ	POLYINFG	;BG3 polygon 1st check flag "ON" !!
  3674  E0018BA 9C 61BA         		STZ	ONLFXS		;lift on X speed clear !!
  3675                          ;
  3676  E0018BD A9 FFFF         		LDA	#0FFFFH
  3677  E0018C0 8D 0D96         		STA	ENEATFG
  3678                          ;
  3679  E0018C3 A2 5C           		LDX	#(ENNO-1)*4
  3680          0018C5          ENM020		EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0063

  3681  E0018C5 BD 6F00         		LDA	ENMODE,X
  3682  E0018C8 F0 15           		BEQ	ENM021		;敵健在？ ( no:ENM021 )
  3683                          ;
  3684  E0018CA 86 12           		STX	<ENINDX
  3685                          ;
  3686  E0018CC 8B              		PHB			;(DBR) save
  3687                          ;
  3688                          ;----------------------------------------------------------------
  3689                          ;-		random set					-
  3690                          ;----------------------------------------------------------------
  3691  E0018CD AC 2137         		LDY	2137H
  3692  E0018D0 AC 213F         		LDY	213FH
  3693  E0018D3 AD 213C         		LDA	213CH
  3694                          ;;;;		    CLC
  3695  E0018D6 65 10           		ADC	<RANDM0
  3696  E0018D8 85 10           		STA	<RANDM0
  3697                          ;----------------------------------------------------------------
  3698                          ;
  3699  E0018DA 22 001A12'      		JSL	>ENMAIN
  3700  E0018DE AB              		PLB			;  "   load
  3701                          ;
  3702          0018DF          ENM021		EQU	$
  3703  E0018DF CA              		DEX
  3704  E0018E0 CA              		DEX
  3705  E0018E1 CA              		DEX
  3706  E0018E2 CA              		DEX
  3707  E0018E3 10 E0           		BPL	ENM020
  3708                          ;
  3709                          ;------------------------------------------------------------------------
  3710                          ;		特殊モード						-
  3711                          ;------------------------------------------------------------------------
  3712                          ;
  3713  E0018E5 AC 0C50         		LDY	BAMBO_ST_FG	;ばんぶーダンサーズいる ?
  3714  E0018E8 F0 0D           		BEQ	ENM028		;  no: ENM028
  3715  
  3716  E0018EA AC 0C54         		LDY	BAMBO_TIMER
  3717  E0018ED C0 30           		CPY	#030H
  3718  E0018EF 30 03           		BMI	ENM022
  3719  
  3720  E0018F1 9C 0C54         		STZ	BAMBO_TIMER
  3721  
  3722          0018F4          ENM022		EQU	$
  3723  E0018F4 EE 0C54         		INC	BAMBO_TIMER
  3724  
  3725          0018F7          ENM028		EQU	$
  3726                          		I16
  3726+ E0018F7 C2 10           		REP	#00010000b	
  3727                          ;
  3728  E0018F9 A0 0006         		LDY	#(ESNO-1)*2
  3729          0018FC          ENM030		EQU	$
  3730  E0018FC B9 0C04         		LDA	ESMODE,Y
  3731  E0018FF F0 05           		BEQ	ENM040		;セットあり？ ( no:ENM040 )
  3732                          ;
  3733  E001901 0A              		ASL	A
  3734  E001902 AA              		TAX
  3735  E001903 FC 54E3'        		JSR	(!ESMOVE,X)
  3736          001906          ENM040		EQU	$
  3737  E001906 88              		DEY
  3738  E001907 88              		DEY
  3739  E001908 10 F2           		BPL	ENM030
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0064

  3740                          ;
  3741                          		I8
  3741+ E00190A E2 10           		SEP	#00010000b	
  3742                          ;
  3743                          ;------------------------------------------------------------------------
  3744                          ;-		スクロール基準特殊解除モード				-
  3745                          ;------------------------------------------------------------------------
  3746          00190C          SP_SCRL_RETN	EQU	$
  3747  E00190C AD 7E2A         		LDA	SP_SCRL_FG
  3748  E00190F 10 42           		BPL	SP_SCRL_RETN_01 ;スクロール基準特殊解除？ ( no:SP_SCRL_RETN_01 )
  3749                          ;
  3750  E001911 AD 0D0F         		LDA	MSGMOD
  3751  E001914 D0 22           		BNE	SP_SCRL_RETN_00 ;メッセージ表示中？ ( yes:SP_SCRL_RETN_00 )
  3752                          ;
  3753                          ;;;;		    JSL	    >SP_SCRL_PSTOPST ;[ (Y) <-- ＳＴＯＰ”ＯＮ／ＯＦＦ”フラグ ]
  3754                          ;
  3755  E001916 EE 7E2A         		INC	SP_SCRL_FG
  3756  E001919 10 3B           		BPL	SP_SCRL_RETN_02 ;ウェイト？ ( no:SP_SCRL_RETN_02 )
  3757                          ;
  3758  E00191B AD 60B0         		LDA	PLDSXL
  3759  E00191E C9 0038         		CMP	#LEFT_X+030H
  3760  E001921 30 15           		BMI	SP_SCRL_RETN_00 ;プレイヤー左端オーバー？ ( yes:SP_SCRL_RETN_00 )
  3761  E001923 C9 00B8         		CMP	#RIGHT_X-030H
  3762  E001926 10 10           		BPL	SP_SCRL_RETN_00 ;プレイヤー右端オーバー？ ( yes:SP_SCRL_RETN_00 )
  3763  E001928 AD 60B2         		LDA	PLDSYL
  3764  E00192B C9 0040         		CMP	#UP_Y+030H
  3765  E00192E 30 08           		BMI	SP_SCRL_RETN_00 ;プレイヤー上端オーバー？ ( yes:SP_SCRL_RETN_00 )
  3766  E001930 C9 0080         		CMP	#LOW_Y-030H
  3767  E001933 10 03           		BPL	SP_SCRL_RETN_00 ;プレイヤー下端オーバー？ ( yes:SP_SCRL_RETN_00 )
  3768  E001935 4C 19BF'        		JMP	SP_SCRL_RETN_22
  3769                          ;
  3770          001938          SP_SCRL_RETN_00 EQU	$
  3771  E001938 A9 0001         		LDA	#01H
  3772  E00193B 8D 61AE         		STA	PLSTFG		;プレイヤーＳＴＯＰ！！
  3773  E00193E 8D 61B0         		STA	ENSTFG		;敵ＳＴＯＰ！！
  3774                          ;
  3775                          ;;;;		    LDA	    #01H
  3776  E001941 8D 0C1E         		STA	ATSCRL_H	;オートスクロールフラグ”ＯＮ”
  3777  E001944 8D 0C20         		STA	ATSCRL_V
  3778                          ;
  3779  E001947 AD 0039         		LDA	SCCH1		;スクロール復帰用オートスクロールカウンターセット
  3780  E00194A 8D 0C23         		STA	ATSCRL_SCCH1
  3781  E00194D AD 003B         		LDA	SCCV1
  3782  E001950 8D 0C27         		STA	ATSCRL_SCCV1
  3783          001953          SP_SCRL_RETN_01 EQU	$
  3784  E001953 4C 19CE'        		JMP	SP_SCRL_RETN_30
  3785                          ;
  3786          001956          SP_SCRL_RETN_02 EQU	$
  3787  E001956 CE 7E2A         		DEC	SP_SCRL_FG
  3788                          ;
  3789          001959          SP_SCRL_RETN_04 EQU	$
  3790                          ;;;;		    STA	    ENSTFG	    ;敵ＳＴＯＰフラグ”ＯＮ／ＯＦＦ”セット
  3791                          ;
  3792                          ;;;;		    LDA	    #01H
  3793                          ;;;;		    STA	    ATSCRL_H	    ;オートスクロールフラグ”ＯＮ”
  3794                          ;;;;		    STA	    ATSCRL_V
  3795                          ;
  3796  E001959 AD 0C94         		LDA	SP_SCRL_RET_H
  3797  E00195C 8D 3002         		STA	R1		;(R1) <-- 目標Ｘ座標
  3798  E00195F AD 0C96         		LDA	SP_SCRL_RET_V
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0065

  3799  E001962 8D 3004         		STA	R2		;(R2) <--  ” Ｙ ”
  3800  E001965 AD 0C23         		LDA	ATSCRL_SCCH1
  3801  E001968 8D 3006         		STA	R3		;(R3) <-- 現在Ｘ ”
  3802  E00196B AD 0C27         		LDA	ATSCRL_SCCV1
  3803  E00196E 8D 3008         		STA	R4		;(R4) <--  ” Ｙ ”
  3804  E001971 A9 0600         		LDA	#0600H
  3805  E001974 8D 300C         		STA	R6		;(R6) <-- サーチスピード
  3806                          		M_CHIP	SEARCH_SPEED
  3806+ E001977 A2 09           		LDX	#BANK SEARCH_SPEED
  3806+ E001979 A9 907C         		LDA	#SEARCH_SPEED
  3806+ E00197C 22 000000"      		JSL	>CHIPON
  3807                          ;
  3808  E001980 AD 3002         		LDA	R1
  3809  E001983 8D 0C2A         		STA	ATSCRL_XSPD	;Ｘスピードセット
  3810  E001986 AD 3004         		LDA	R2
  3811  E001989 8D 0C2C         		STA	ATSCRL_YSPD	;Ｙ	 ”
  3812                          ;
  3813                          		I16
  3813+ E00198C C2 10           		REP	#00010000b	
  3814                          ;
  3815  E00198E 20 5997'        		JSR	ATSCRL_XYCL	;Ｘ，Ｙ座標計算
  3816                          ;
  3817                          		I8
  3817+ E001991 E2 10           		SEP	#00010000b	
  3818                          ;
  3819  E001993 AD 0C94         		LDA	SP_SCRL_RET_H
  3820  E001996 38              		SEC
  3821  E001997 ED 0C23         		SBC	ATSCRL_SCCH1
  3822  E00199A F0 0B           		BEQ	SP_SCRL_RETN_10 ;プレイヤーのＸ位置に帰った？ ( yes:SP_SCRL_RETN_10 )
  3823  E00199C 4D 0C2A         		EOR	ATSCRL_XSPD
  3824  E00199F 10 2D           		BPL	SP_SCRL_RETN_30 ;	       ”	      ( no:SP_SCRL_RETN_30 )
  3825                          ;
  3826  E0019A1 AD 0C94         		LDA	SP_SCRL_RET_H	;Ｘ座標補正
  3827  E0019A4 8D 0C23         		STA	ATSCRL_SCCH1
  3828                          ;
  3829          0019A7          SP_SCRL_RETN_10 EQU	$
  3830  E0019A7 AD 0C96         		LDA	SP_SCRL_RET_V
  3831  E0019AA 38              		SEC
  3832  E0019AB ED 0C27         		SBC	ATSCRL_SCCV1
  3833  E0019AE F0 0B           		BEQ	SP_SCRL_RETN_20 ;プレイヤーのＹ位置に帰った？ ( yes:SP_SCRL_RETN_20 )
  3834  E0019B0 4D 0C2C         		EOR	ATSCRL_YSPD
  3835  E0019B3 10 19           		BPL	SP_SCRL_RETN_30 ;	       ”	      ( no:SP_SCRL_RETN_30 )
  3836                          ;
  3837  E0019B5 AD 0C96         		LDA	SP_SCRL_RET_V	;Ｙ座標補正
  3838  E0019B8 8D 0C27         		STA	ATSCRL_SCCV1
  3839                          ;
  3840                          ;-------------- プレイヤースクロールへ戻る ----------------------
  3841          0019BB          SP_SCRL_RETN_20 EQU	$
  3842  E0019BB 22 000000"      		JSL	>SCRL_CXY_SET	;スクロール基準セット
  3843          0019BF          SP_SCRL_RETN_22 EQU	$
  3844  E0019BF 9C 7E2A         		STZ	SP_SCRL_FG
  3845  E0019C2 9C 61AE         		STZ	PLSTFG
  3846  E0019C5 9C 61B0         		STZ	ENSTFG
  3847  E0019C8 9C 0C1E         		STZ	ATSCRL_H	;オートスクロールフラグ”ＯＦＦ”
  3848  E0019CB 9C 0C20         		STZ	ATSCRL_V
  3849                          ;
  3850          0019CE          SP_SCRL_RETN_30 EQU	$
  3851                          ;
  3852                          		M8
  3852+ E0019CE E2 20           		SEP	#00100000b	
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0066

  3853                          ;
  3854  E0019D0 2B              		PLD
  3855  E0019D1 AB              		PLB
  3856  E0019D2 6B              		RTL
  3857                          ;
  3858                          		MEM16
  3859                          ;
  3860                          ;------------------------------------------------------------------------
  3861                          ;-		スクロール基準特殊モード座標計算			-
  3862                          ;------------------------------------------------------------------------
  3863          0019D3          SP_SCRL_XYMOVE	EQU	$
  3864  E0019D3 AD 7E35         		LDA	SP_SCRL_XSP-1
  3865  E0019D6 29 FF00         		AND	#0FF00H
  3866  E0019D9 18              		CLC
  3867  E0019DA 6D 7E32         		ADC	SP_SCRL_XSDR
  3868  E0019DD 8D 7E32         		STA	SP_SCRL_XSDR	;(C) set
  3869                          ;
  3870  E0019E0 AD 7E36         		LDA	SP_SCRL_XSP
  3871  E0019E3 29 FF00         		AND	#0FF00H
  3872  E0019E6 10 03           		BPL	SP_SCRL_XYMV_10
  3873  E0019E8 09 00FF         		ORA	#00FFH
  3874          0019EB          SP_SCRL_XYMV_10 EQU	$
  3875  E0019EB EB              		XBA
  3876  E0019EC 6D 7E2E         		ADC	SP_SCRL_XPS
  3877  E0019EF 8D 7E2E         		STA	SP_SCRL_XPS
  3878                          ;
  3879  E0019F2 AD 7E37         		LDA	SP_SCRL_YSP-1
  3880  E0019F5 29 FF00         		AND	#0FF00H
  3881  E0019F8 18              		CLC
  3882  E0019F9 6D 7E34         		ADC	SP_SCRL_YSDR
  3883  E0019FC 8D 7E34         		STA	SP_SCRL_YSDR	;(C) set
  3884                          ;
  3885  E0019FF AD 7E38         		LDA	SP_SCRL_YSP
  3886  E001A02 29 FF00         		AND	#0FF00H
  3887  E001A05 10 03           		BPL	SP_SCRL_XYMV_20
  3888  E001A07 09 00FF         		ORA	#00FFH
  3889          001A0A          SP_SCRL_XYMV_20 EQU	$
  3890  E001A0A EB              		XBA
  3891  E001A0B 6D 7E30         		ADC	SP_SCRL_YPS
  3892  E001A0E 8D 7E30         		STA	SP_SCRL_YPS
  3893  E001A11 60              		RTS
  3894                          ;
  3895                          ;************************************************************************
  3896                          ;*		enemy mode select					*
  3897                          ;************************************************************************
  3898          001A12          ENMAIN		EQU	$
  3899  E001A12 BD 70E2         		LDA	ENXPSL,X
  3900  E001A15 8D 6EBC         		STA	ENXP2L
  3901  E001A18 BD 7182         		LDA	ENYPSL,X
  3902  E001A1B 8D 6EBE         		STA	ENYP2L
  3903                          ;
  3904  E001A1E AD 61B0         		LDA	ENSTFG
  3905  E001A21 0D 0B55         		ORA	BIRIBIRI
  3906  E001A24 0D 0398         		ORA	ITEMNO
  3907  E001A27 D0 20           		BNE	ENS050		;enemy stop ? ( yes:ENS050 )
  3908                          ;
  3909  E001A29 BD 7A96         		LDA	ENTIM0,X
  3910  E001A2C F0 03           		BEQ	ENS020
  3911  E001A2E DE 7A96         		DEC	ENTIM0,X
  3912          001A31          ENS020		EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0067

  3913  E001A31 BD 7A98         		LDA	ENTIM1,X
  3914  E001A34 F0 03           		BEQ	ENS030
  3915  E001A36 DE 7A98         		DEC	ENTIM1,X
  3916          001A39          ENS030		EQU	$
  3917  E001A39 BD 7AF6         		LDA	ENTIM2,X
  3918  E001A3C F0 03           		BEQ	ENS040
  3919  E001A3E DE 7AF6         		DEC	ENTIM2,X
  3920          001A41          ENS040		EQU	$
  3921  E001A41 BD 7AF8         		LDA	ENTIM3,X
  3922  E001A44 F0 03           		BEQ	ENS050
  3923  E001A46 DE 7AF8         		DEC	ENTIM3,X
  3924                          ;
  3925          001A49          ENS050		EQU	$
  3926  E001A49 BC 77C1         		LDY	ENSPTM,X
  3927  E001A4C F0 03           		BEQ	ENS060
  3928  E001A4E DE 77C1         		DEC	ENSPTM,X
  3929          001A51          ENS060		EQU	$
  3930                          ;
  3931  E001A51 BC 6F00         		LDY	ENMODE,X
  3932  E001A54 B9 1A57'        		LDA	!EMDADR,Y
  3933  E001A57 48              		PHA
  3934  E001A58 60              		RTS
  3935                          ;
  3936          001A57          EMDADR		EQU	$-2
  3937  E001A59 1A6D'           EM02		WORD	ENINIT-1
  3938  E001A5B 1A6D'           EM04		WORD	ENINIT-1
  3939  E001A5D 2246'           EM06		WORD	ENCHNG-1
  3940  E001A5F 1AC7'           EM08		WORD	ENEATM-1
  3941  E001A61 211C'           EM0A		WORD	ENNOSE-1
  3942  E001A63 1F8C'           EM0C		WORD	ENFALL-1
  3943  E001A65 2084'           EM0E		WORD	ENFAIL-1
  3944  E001A67 1A8F'           EM12		WORD	ENMOVE-1
  3945  E001A69 200A'           EM16		WORD	ENFIRE-1
  3946                          ;- - - - - - - - - - - - - - - -
  3947          001A6B          ENNOTH		EQU	$
  3948          001A6B          RTLSUB		EQU	$
  3949  E001A6B 6B              		RTL
  3950                          ;- - - - - - - - - - - - - - - -
  3951          000002          EINIT		EQU	EM02-EMDADR
  3952          000004          ERINT		EQU	EM04-EMDADR
  3953          000006          ECHNG		EQU	EM06-EMDADR
  3954          000008          EEATM		EQU	EM08-EMDADR
  3955          00000A          ENOSE		EQU	EM0A-EMDADR
  3956          00000C          EFALL		EQU	EM0C-EMDADR
  3957          00000E          EFAIL		EQU	EM0E-EMDADR
  3958          000010          EMOVE		EQU	EM12-EMDADR
  3959          000012          EFIRE		EQU	EM16-EMDADR
  3960                          ;
  3961                          ;************************************************************************
  3962                          ;*		enemy intial mode					*
  3963                          ;************************************************************************
  3964          001A6C          ENRINT		EQU	$
  3965  E001A6C 4B              		PHK			;(DBR) <-- (PBR)
  3966  E001A6D AB              		PLB
  3967                          ;
  3968          001A6E          ENINIT		EQU	$
  3969  E001A6E A9 0010         		LDA	#EMOVE		;next goto move !!
  3970  E001A71 9D 6F00         		STA	ENMODE,X
  3971  E001A74 BD 7360         		LDA	ENMYNO,X
  3972  E001A77 0A              		ASL	A		;[ (C) <-- 0 : =<32767 ]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0068

  3973  E001A78 7D 7360         		ADC	ENMYNO,X
  3974                          ;
  3975                          		I16
  3975+ E001A7B C2 10           		REP	#00010000b	
  3976                          ;
  3977  E001A7D A8              		TAY
  3978  E001A7E B9 0000'        		LDA	!EINADR,Y
  3979  E001A81 85 00           		STA	<EWORK
  3980  E001A83 B9 0002'        		LDA	!EINADR+2,Y
  3981  E001A86 85 02           		STA	<EWORK+2
  3982                          ;
  3983                          		I8
  3983+ E001A88 E2 10           		SEP	#00010000b	
  3984                          ;
  3985  E001A8A A8              		TAY
  3986  E001A8B 5A              		PHY			;(DBR) <-- (PBR)
  3987  E001A8C AB              		PLB
  3988  E001A8D DC 7960         		JML	(EWORK)
  3989                          ;
  3990                          ;************************************************************************
  3991                          ;*		enemy move mode						*
  3992                          ;************************************************************************
  3993          001A90          ENMOVE		EQU	$
  3994  E001A90 BD 7360         		LDA	ENMYNO,X
  3995  E001A93 0A              		ASL	A		;[ (C) <-- 0 : =<32767 ]
  3996  E001A94 7D 7360         		ADC	ENMYNO,X
  3997                          ;
  3998                          		I16
  3998+ E001A97 C2 10           		REP	#00010000b	
  3999                          ;
  4000  E001A99 DA              		PHX
  4001  E001A9A AA              		TAX
  4002  E001A9B BF 00052E'      		LDA	>EMVADR,X
  4003  E001A9F 85 00           		STA	<EWORK
  4004  E001AA1 BF 000530'      		LDA	>EMVADR+2,X
  4005  E001AA5 85 02           		STA	<EWORK+2
  4006  E001AA7 FA              		PLX
  4007                          ;
  4008                          		I8
  4008+ E001AA8 E2 10           		SEP	#00010000b	
  4009                          ;
  4010  E001AAA A8              		TAY
  4011  E001AAB 5A              		PHY			;(DBR) <-- (PBR)
  4012  E001AAC AB              		PLB
  4013  E001AAD DC 7960         		JML	(EWORK)
  4014                          ;
  4015                          ;************************************************************************
  4016                          ;*		enemy eat mode						*
  4017                          ;************************************************************************
  4018          000500          EATMXS		EQU	0500H
  4019          001AB0          KINOMI_BON_XSP	EQU	$
  4020  E001AB0 FF00 0100       		WORD	0FF00H,00100H
  4021                          ;
  4022          001AB4          EATOF_HOSEI	EQU	$
  4023  E001AB4 FFFE 0002       		WORD	0FFFEH,00002H
  4024                          ;
  4025          001AB8          EAT_SHOT_XHS	EQU	$
  4026                          ; PLCMKI -->		 [0]	[2]	;[BERFLG]
  4027  E001AB8 000C FFF4       		WORD	0000CH,0FFF4H	;[1]
  4028  E001ABC 0000 0000       		WORD	00000H,00000H	;[3]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0069

  4029          001AC0          EAT_SHOT_YHS	EQU	$
  4030  E001AC0 FFFC FFFC       		WORD	0FFFCH,0FFFCH	;[1]
  4031  E001AC4 FFFA FFFA       		WORD	0FFFAH,0FFFAH	;[3]
  4032                          ;
  4033          001AC8          ENEATM		EQU	$
  4034  E001AC8 22 001A90'      		JSL	>ENMOVE		;OAM set
  4035  E001ACC BD 7040         		LDA	ENMOD2,X	;範囲外クリアー無しセット
  4036  E001ACF 29 FFF3         		AND	#1111111111110011B
  4037  E001AD2 9D 7040         		STA	ENMOD2,X
  4038                          ;
  4039  E001AD5 4B              		PHK			;(DBR) <-- (PBR)
  4040  E001AD6 AB              		PLB
  4041                          ;
  4042  E001AD7 AD 61B0         		LDA	ENSTFG
  4043  E001ADA 0D 0B55         		ORA	BIRIBIRI
  4044  E001ADD 0D 0398         		ORA	ITEMNO
  4045  E001AE0 F0 01           		BEQ	EAT0FE		;enemy stop ? ( no:EAT0FE )
  4046  E001AE2 6B              		RTL
  4047                          ;
  4048          001AE3          EAT0FE		EQU	$
  4049  E001AE3 A0 00           		LDY	#0
  4050  E001AE5 AD 6164         		LDA	EATOFX
  4051  E001AE8 F0 13           		BEQ	EAT0FE2
  4052  E001AEA 10 02           		BPL	EAT0FE0
  4053  E001AEC A0 02           		LDY	#2
  4054          001AEE          EAT0FE0		EQU	$
  4055  E001AEE 18              		CLC
  4056  E001AEF 79 1AB4'        		ADC	!EATOF_HOSEI,Y
  4057  E001AF2 8D 6164         		STA	EATOFX
  4058  E001AF5 59 1AB4'        		EOR	!EATOF_HOSEI,Y
  4059  E001AF8 30 03           		BMI	EAT0FE2
  4060  E001AFA 9C 6164         		STZ	EATOFX
  4061                          ;
  4062          001AFD          EAT0FE2		EQU	$
  4063  E001AFD A0 00           		LDY	#0
  4064  E001AFF AD 6166         		LDA	EATOFY
  4065  E001B02 F0 13           		BEQ	EAT0FE6
  4066  E001B04 10 02           		BPL	EAT0FE4
  4067  E001B06 A0 02           		LDY	#2
  4068          001B08          EAT0FE4		EQU	$
  4069  E001B08 18              		CLC
  4070  E001B09 79 1AB4'        		ADC	!EATOF_HOSEI,Y
  4071  E001B0C 8D 6166         		STA	EATOFY
  4072  E001B0F 59 1AB4'        		EOR	!EATOF_HOSEI,Y
  4073  E001B12 30 03           		BMI	EAT0FE6
  4074  E001B14 9C 6166         		STZ	EATOFY
  4075                          ;
  4076          001B17          EAT0FE6		EQU	$
  4077  E001B17 AD 615A         		LDA	BRCNTX		;eat enemy X pos set
  4078  E001B1A 18              		CLC
  4079  E001B1B 6D 6164         		ADC	EATOFX
  4080  E001B1E 38              		SEC
  4081  E001B1F E9 0008         		SBC	#08H
  4082  E001B22 9D 70E2         		STA	ENXPSL,X
  4083  E001B25 AD 615C         		LDA	BRCNTY		;     "    Y    "
  4084  E001B28 18              		CLC
  4085  E001B29 6D 6166         		ADC	EATOFY
  4086  E001B2C 38              		SEC
  4087  E001B2D E9 0008         		SBC	#08H
  4088  E001B30 9D 7182         		STA	ENYPSL,X
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0070

  4089                          ;
  4090  E001B33 AD 6152         		LDA	BERXPS
  4091  E001B36 0D 6154         		ORA	BERYPS
  4092  E001B39 F0 01           		BEQ	EAT010		;eat end ? ( yes:EAT010 )
  4093          001B3B          EAT0FF		EQU	$
  4094  E001B3B 6B              		RTL
  4095                          ;
  4096                          ;-------------- enemy clear -----------------------------
  4097          001B3C          EAT010		EQU	$
  4098                          ;
  4099                          		M8
  4099+ E001B3C E2 20           		SEP	#00100000b	
  4100                          ;
  4101  E001B3E A9 FF           		LDA	#0FFH
  4102  E001B40 9D 74A2         		STA	ENYUSN,X
  4103  E001B43 AD 6168         		LDA	EATSTP
  4104  E001B46 D0 03           		BNE	EAT0100		;eat stop ? ( yes:EAT0100 )
  4105  E001B48 4C 1DA7'        		JMP	EAT020
  4106                          ;
  4107                          ;-------------- eat stop -----------------------
  4108          001B4B          EAT0100		EQU	$
  4109                          ;
  4110                          		M16
  4110+ E001B4B C2 20           		REP	#00100000b	
  4111                          ;
  4112                          ;;;;		    JSL	    >TROBJ_CLEAR_CHK
  4113                          ;
  4114  E001B4D AD 6162         		LDA	EATFLG
  4115  E001B50 D0 03           		BNE	EAT01000	;now eat stop ? ( yes:EAT01000 )
  4116  E001B52 4C 1BBC'        		JMP	EAT0102
  4117                          ;
  4118          001B55          EAT01000	EQU	$
  4119  E001B55 BD 7360         		LDA	ENMYNO,X
  4120  E001B58 C9 0022         		CMP	#EGG00
  4121  E001B5B 90 09           		BCC	EAT01001	;egg eat ? ( no:EAT01001 )
  4122  E001B5D C9 002C         		CMP	#EGG09+1
  4123  E001B60 B0 04           		BCS	EAT01001	;	    "
  4124                          ;
  4125  E001B62 5C 003F87'      		JMP	>EGGKILL
  4126                          ;
  4127          001B66          EAT01001	EQU	$
  4128  E001B66 A0 01           		LDY	#01
  4129  E001B68 C9 0009         		CMP	#FIRE0
  4130  E001B6B F0 2B           		BEQ	EAT01002	;fire kun ? ( yes:EAT01002 )
  4131  E001B6D C9 00EC         		CMP	#VOWVW		;火種 ?
  4132  E001B70 F0 0F           		BEQ	EAT010010	;
  4133  E001B72 C9 00ED         		CMP	#VOWV2		;
  4134  E001B75 F0 0A           		BEQ	EAT010010	;
  4135  E001B77 C9 0080         		CMP	#ZBUB0		;
  4136  E001B7A F0 05           		BEQ	EAT010010	; yes: EAT010010
  4137  E001B7C C9 0081         		CMP	#ZBUB1		;
  4138  E001B7F D0 05           		BNE	EAT010011	;  no: EAT010011
  4139  
  4140          001B81          EAT010010	EQU	$
  4141  E001B81 9E 7402         		STZ	ENCHPT,X
  4142  E001B84 80 12           		BRA	EAT01002
  4143  
  4144          001B86          EAT010011	EQU	$
  4145  E001B86 C8              		INY			;[ LDY #02 ]
  4146  E001B87 C9 0019         		CMP	#SOPB0
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0071

  4147  E001B8A F0 0C           		BEQ	EAT01002	;soap bable ? ( yes:EAT01002 )
  4148  E001B8C C8              		INY
  4149  E001B8D C9 0007         		CMP	#SUIKA
  4150  E001B90 F0 06           		BEQ	EAT01002	;スイカ？ ( yes:EAT01002 )
  4151  E001B92 C8              		INY
  4152  E001B93 C9 0005         		CMP	#COLD0
  4153  E001B96 D0 A3           		BNE	EAT0FF		;凍らせ？ ( no:EAT0FF )
  4154                          ;
  4155                          ;-------------- fire shot flag "ON" ----
  4156          001B98          EAT01002	EQU	$
  4157  E001B98 8C 616A         		STY	EATSPF		;スペシャルショットフラグセット
  4158  E001B9B A9 001E         		LDA	#30		;スイカの種数セット
  4159  E001B9E BC 7402         		LDY	ENCHPT,X
  4160  E001BA1 F0 03           		BEQ	EAT01004	;噛りスイカ？ ( no:EAT01004 )
  4161  E001BA3 A9 000A         		LDA	#10		;スイカの種数セット（小）
  4162          001BA6          EAT01004	EQU	$
  4163  E001BA6 8D 6170         		STA	SUIKA_NO
  4164  E001BA9 9C 616C         		STZ	EATSPC		;	”	   カウンターセット
  4165                          ;;;;		    LDA	    #03H+010H	    ;	    ”	       タイマーセット
  4166  E001BAC A9 0010         		LDA	#010H		;	”	   タイマーセット
  4167  E001BAF 8D 616E         		STA	EATSPT
  4168  E001BB2 8D 61AE         		STA	PLSTFG		;プレイヤーＳＴＯＰ
  4169  E001BB5 8D 61B0         		STA	ENSTFG		;敵ＳＴＯＰ
  4170  E001BB8 5C 00232E'      		JMP	>ENCLEAR_NORETN ;enemy clear !!
  4171                          ;
  4172          001BBC          EAT0102		EQU	$
  4173  E001BBC AD 61E0         		LDA	PSHOTM
  4174  E001BBF C9 0003         		CMP	#04H-1
  4175  E001BC2 90 03           		BCC	EAT0104		;shot timming ? ( yes:EAT0104 )
  4176  E001BC4 4C 1DA6'        		JMP	EAT012
  4177                          ;
  4178          001BC7          EAT0104		EQU	$
  4179                          ;
  4180                          ;-------------- ショットＢＧチェック ----------------------------
  4181  E001BC7 AD 6150         		LDA	BERFLG
  4182  E001BCA 3A              		DEC	A
  4183  E001BCB 0A              		ASL	A
  4184  E001BCC 0D 60C4         		ORA	PLCMKI
  4185  E001BCF A8              		TAY
  4186  E001BD0 BD 70E2         		LDA	ENXPSL,X
  4187  E001BD3 18              		CLC
  4188  E001BD4 79 1AB8'        		ADC	!EAT_SHOT_XHS,Y
  4189  E001BD7 9D 70E2         		STA	ENXPSL,X
  4190  E001BDA 18              		CLC
  4191  E001BDB 69 0008         		ADC	#08H
  4192  E001BDE 8D 3010         		STA	R8		;(R8) <-- ＢＧチェックＸ座標
  4193  E001BE1 BD 7182         		LDA	ENYPSL,X
  4194  E001BE4 18              		CLC
  4195  E001BE5 79 1AC0'        		ADC	!EAT_SHOT_YHS,Y
  4196  E001BE8 9D 7182         		STA	ENYPSL,X
  4197  E001BEB 18              		CLC
  4198  E001BEC 69 0008         		ADC	#08H
  4199  E001BEF 8D 3000         		STA	R0		;(R0) <-- ＢＧチェックＹ座標
  4200  E001BF2 5A              		PHY			;(Y) save
  4201                          		M_CHIPR M_BGUNIT_READ
  4201+ E001BF3 A2 0A           		LDX	#BANK M_BGUNIT_READ
  4201+ E001BF5 A9 CC66         		LDA	#M_BGUNIT_READ
  4201+ E001BF8 22 000000"      		JSL	>CHIPON_RAM_READ
  4202  E001BFC 7A              		PLY			;(Y) load
  4203  E001BFD A6 12           		LDX	<ENINDX
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0072

  4204                          ;
  4205  E001BFF AD 300E         		LDA	R7
  4206  E001C02 29 0006         		AND	#AL+SK
  4207  E001C05 F0 0A           		BEQ	EAT0106		;ＢＧ当たり？ ( no:EAT0106 )
  4208                          ;
  4209                          ;-------------- ショットキャンセル ----------------------
  4210  E001C07 AD 6168         		LDA	EATSTP
  4211  E001C0A 8D 6162         		STA	EATFLG
  4212  E001C0D 9C 6150         		STZ	BERFLG		;舌ショットフラグリセット
  4213  E001C10 6B              		RTL
  4214                          ;
  4215          001C11          EAT0106		EQU	$
  4216  E001C11 9C 6150         		STZ	BERFLG		;舌ショットフラグリセット
  4217  E001C14 9C 6168         		STZ	EATSTP		;
  4218                          ;
  4219  E001C17 BD 7360         		LDA	ENMYNO,X
  4220                          ;		CMP	#MATO0			;まとくん ?
  4221                          ;		BNE	EAT0108			;  no: EAT0108
  4222                          ;
  4223                          ;		JSL	>MATO0_TO_MOVE
  4224                          ;		JMP	EAT011F10
  4225                          ;
  4226                          ;EAT0108		EQU	$
  4227  E001C1A C9 001E         		CMP	#HEIH0			;ヘイホー、地下ヘイホー、草かげヘイホー ?
  4228  E001C1D F0 0F           		BEQ	EAT0109			;
  4229  E001C1F C9 0133         		CMP	#CHKH0			;
  4230  E001C22 F0 0A           		BEQ	EAT0109			; yes: EAT0109
  4231  E001C24 C9 012A         		CMP	#KUSAH			;
  4232  E001C27 F0 05           		BEQ	EAT0109			; yes: EAT0109
  4233  E001C29 C9 0074         		CMP	#GABON			;
  4234  E001C2C D0 2A           		BNE	EAT010A			;  no: EAT010A
  4235  
  4236          001C2E          EAT0109		EQU	$
  4237  E001C2E C0 04           		CPY	#04			;上向きショット ?
  4238  E001C30 B0 13           		BCS	EAT01090		; yes: EAT01090
  4239  
  4240  E001C32 AD 60C4         		LDA	PLCMKI
  4241  E001C35 49 0002         		EOR	#02
  4242  E001C38 9D 7400         		STA	ENMUKI,X
  4243  E001C3B 9E 7220         		STZ	ENXSPD,X
  4244  E001C3E 22 000000"      		JSL	>HEIH0_TO_GURU
  4245  E001C42 4C 1D2E'        		JMP	EAT011F10
  4246  
  4247          001C45          EAT01090	EQU	$
  4248  E001C45 A9 0E81         		LDA	#0000111010000001B	;ＢＧチェック有り
  4249  E001C48 9D 6FA2         		STA	ENMOD1,X		;
  4250  E001C4B BD 7042         		LDA	ENCLOR,X		;すべてのＢＧの前に
  4251  E001C4E 09 0020         		ORA	#00020H			;
  4252  E001C51 9D 7042         		STA	ENCLOR,X		;
  4253  
  4254  E001C54 74 76           		STZ	<ENWRK2,X
  4255  E001C56 80 75           		BRA	EAT0112
  4256                          ;
  4257          001C58          EAT010A		EQU	$
  4258  E001C58 C9 0017         		CMP	#GEROZ			;ゲロゾー ?
  4259  E001C5B D0 07           		BNE	EAT010B			;  no: EAT010B
  4260  
  4261  E001C5D 22 000000"      		JSL	>GEROZ_TO_FALL
  4262  E001C61 4C 1D2E'        		JMP	EAT011F10
  4263  
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0073

  4264          001C64          EAT010B		EQU	$
  4265  E001C64 C9 0092         		CMP	#KOROG			;ころがりくん ?
  4266  E001C67 D0 14           		BNE	EAT010C			;  no: EAT010C
  4267  
  4268  E001C69 9E 7D38         		STZ	ENSHOT,X
  4269  E001C6C A9 0010         		LDA	#00010H			;プレイヤーチェックロックタイマーセット
  4270  E001C6F 9D 7AF6         		STA	ENTIM2,X		;
  4271  E001C72 A9 0002         		LDA	#00002
  4272  E001C75 9D 7402         		STA	ENCHPT,X
  4273  E001C78 95 76           		STA	<ENWRK2,X
  4274  E001C7A 4C 1D2E'        		JMP	EAT011F10
  4275                          ;
  4276          001C7D          EAT010C		EQU	$
  4277  E001C7D C0 04           		CPY	#04
  4278  E001C7F B0 4C           		BCS	EAT0112		; 上向きショット？ [yes->EAT0112]
  4279                          ;
  4280                          ;;;;;;;;		LDA	ENMYNO,X
  4281  E001C81 C9 019A         		CMP	#GSTH0
  4282  E001C84 D0 2A           		BNE	EAT011		; 幽霊ヘイホー ? [no->EAT011]
  4283                          ;
  4284  E001C86 5A              		PHY
  4285  E001C87 22 001D28'      		JSL	>EAT011F1
  4286  E001C8B 7A              		PLY
  4287                          ;
  4288                          ;-------------- 幽霊ヘイホー初期セット --------------------------
  4289  E001C8C 84 00           		STY	<EWORK
  4290  E001C8E 22 002F0D'      		JSL	>TROBJ_CLEAR_CHK
  4291                          ;
  4292  E001C92 22 002D24'      		JSL	>TROBJ_SR_2x2
  4293                          ;
  4294  E001C96 A0 00           		LDY	#00
  4295  E001C98 94 78           		STY	<ENWRK4,X
  4296  E001C9A A4 00           		LDY	<EWORK
  4297                          ;[1995.06.17.SA]			PHY				; (Y) Save !!
  4298  E001C9C 8B              		PHB
  4299  E001C9D A9 0000"        		LDA	#BANK GSTH0_CHRST
  4300  E001CA0 EB              		XBA
  4301  E001CA1 48              		PHA
  4302  E001CA2 AB              		PLB
  4303  E001CA3 AB              		PLB				; DBR Set !!
  4304                          ;
  4305  E001CA4 5A              		PHY
  4306  E001CA5 22 000000"      		JSL	>GSTH0_CHRST
  4307  E001CA9 7A              		PLY
  4308                          ;
  4309  E001CAA 22 000000"      		JSL	>GSTH0_CRCRINST
  4310                          ;
  4311  E001CAE AB              		PLB				; DBR Reset !!
  4312                          ;[1995.06.17.SA]			PLY				; (Y) Load !!
  4313                          ;
  4314  E001CAF 6B              		RTL
  4315                          ;[1995.06.17.SA]		BRA	EAT011F1		; [->EAT011F1]
  4316                          ;
  4317          001CB0          EAT011		EQU	$
  4318  E001CB0 C9 00F3         		CMP	#MSHIH
  4319  E001CB3 D0 18           		BNE	EAT0112			; ムーンサルトヘイホー？ [no->EAT0112]
  4320                          ;
  4321  E001CB5 5A              		PHY
  4322  E001CB6 22 001D28'      		JSL	>EAT011F1
  4323  E001CBA 7A              		PLY
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0074

  4324                          ;
  4325                          ;[1995.06.17.SA]		PHY				; (Y) Save !!
  4326  E001CBB 8B              		PHB
  4327  E001CBC A0 00"          		LDY	#BANK MSHIHCHRST
  4328  E001CBE 5A              		PHY
  4329  E001CBF AB              		PLB				; DBR Set !!
  4330  E001CC0 22 000000"      		JSL	>MSHIHCHRST
  4331                          ;
  4332  E001CC4 AB              		PLB				; DBR Reset !!
  4333                          ;[1995.06.17.SA]		PLY				; (Y) Load !!
  4334                          ;
  4335                          		M8				; memory 8bit mode !!
  4335+ E001CC5 E2 20           		SEP	#00100000b	
  4336                          ;
  4337  E001CC7 9E 7901         		STZ	!ENWRKB,X
  4338                          ;
  4339                          		M16				; memory 16bit mode !!
  4339+ E001CCA C2 20           		REP	#00100000b	
  4340                          ;
  4341  E001CCC 6B              		RTL
  4342                          ;[1995.06.17.SA]		BRA	EAT011F1		; [->EAT011F1]
  4343                          ;
  4344          001CCD          EAT0112		EQU	$
  4345                          ;-------------- normal shot ---------------------
  4346                          ;
  4347                          ;-------------- 転送エリア確保 ------------------
  4348                          ;
  4349                          		I16
  4349+ E001CCD C2 10           		REP	#00010000b	
  4350                          ;
  4351  E001CCF BD 7360         		LDA	ENMYNO,X
  4352  E001CD2 0A              		ASL	A
  4353  E001CD3 AA              		TAX
  4354  E001CD4 BF 0AA94B       		LDA	>ETCADR,X
  4355                          ;
  4356                          		I8
  4356+ E001CD8 E2 10           		SEP	#00010000b	
  4357                          ;
  4358  E001CDA A6 12           		LDX	<ENINDX
  4359  E001CDC C9 0000         		CMP	#00
  4360  E001CDF F0 28           		BEQ	EAT011F		;bitmap chara nothing ? ( yes:EAT011F )
  4361                          ;
  4362  E001CE1 08              		PHP			;(N) save
  4363                          ;
  4364  E001CE2 22 002F0D'      		JSL	>TROBJ_CLEAR_CHK
  4365                          ;
  4366  E001CE6 28              		PLP			;(N) load
  4367  E001CE7 30 11           		BMI	EAT011E		;2x2 size ? ( no:EAT011E )
  4368                          ;
  4369  E001CE9 22 002D24'      		JSL	>TROBJ_SR_2x2
  4370  E001CED 90 1A           		BCC	EAT011F		;ズームＯＢＪエリア空き無し？ ( yes:EAT011F )
  4371  E001CEF A9 0100         		LDA	#01H*100H	;ズームＯＢＪパターンＮｏ．セット（２×２）
  4372  E001CF2 1D 7402         		ORA	ENCHPT,X
  4373  E001CF5 9D 7402         		STA	ENCHPT,X
  4374  E001CF8 80 0F           		BRA	EAT011F
  4375                          ;
  4376          001CFA          EAT011E		EQU	$
  4377  E001CFA 22 002D74'      		JSL	>TROBJ_SR_4x4
  4378  E001CFE 90 09           		BCC	EAT011F		;ズームＯＢＪエリア空き無し？ ( yes:EAT011F )
  4379  E001D00 A9 0200         		LDA	#02H*100H	;ズームＯＢＪパターンＮｏ．セット（４×４）
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0075

  4380  E001D03 1D 7402         		ORA	ENCHPT,X
  4381  E001D06 9D 7402         		STA	ENCHPT,X
  4382                          ;
  4383          001D09          EAT011F		EQU	$
  4384  E001D09 74 18           		STZ	<ENWRK0,X	;bound flag set
  4385  E001D0B 74 16           		STZ	<ENCONT,X	;rotation angle reset !!
  4386  E001D0D A9 0400         		LDA	#0400H
  4387  E001D10 9D 75E2         		STA	ENGMAX,X	;max G power set
  4388  E001D13 A9 0040         		LDA	#040H
  4389  E001D16 9D 7542         		STA	ENGPOW,X	;G power set
  4390  E001D19 9E 7540         		STZ	ENXPOW,X
  4391  E001D1C BD 6FA2         		LDA	ENMOD1,X	;ヨコＢＧ当たりで反転！！
  4392  E001D1F 29 F83F         		AND	#1111100000111111B
  4393  E001D22 09 0040         		ORA	#0000000001000000B
  4394  E001D25 9D 6FA2         		STA	ENMOD1,X
  4395                          ;
  4396          001D28          EAT011F1	EQU	$
  4397  E001D28 A9 0020         		LDA	#020H
  4398  E001D2B 9D 7D38         		STA	ENSHOT,X	;enemy shot flag "ON" !! [ 020H:食べれないタイマー ]
  4399  
  4400          001D2E          EAT011F10	EQU	$
  4401                          ;
  4402                          ;-------------- 敵サーチショットスピードセット --
  4403  E001D2E A6 12           		LDX	<ENINDX
  4404  E001D30 AD 60E4         		LDA	PLNAGX
  4405  E001D33 4D 60A8         		EOR	PLXSPD
  4406  E001D36 0A              		ASL	A		;(C) <-- (N)
  4407  E001D37 AD 60E4         		LDA	PLNAGX
  4408  E001D3A B0 03           		BCS	EAT011F2
  4409                          ;;;;		    CLC
  4410  E001D3C 6D 60A8         		ADC	PLXSPD
  4411          001D3F          EAT011F2	EQU	$
  4412  E001D3F 9D 7220         		STA	ENXSPD,X	;ショットＸスピードセット
  4413  E001D42 AD 60E6         		LDA	PLNAGY
  4414  E001D45 38              		SEC
  4415  E001D46 E9 0300         		SBC	#0400H-0100H
  4416  E001D49 10 03           		BPL	EAT011F4
  4417  E001D4B A9 0000         		LDA	#00H
  4418          001D4E          EAT011F4	EQU	$
  4419  E001D4E 38              		SEC
  4420  E001D4F E9 0200         		SBC	#0200H
  4421  E001D52 6D 60E6         		ADC	PLNAGY
  4422  E001D55 9D 7222         		STA	ENYSPD,X	;ショットＹスピードセット
  4423  E001D58 AD 60C4         		LDA	PLCMKI
  4424  E001D5B 49 0002         		EOR	#02H
  4425  E001D5E 9D 7400         		STA	ENMUKI,X	;muki set
  4426                          ;
  4427          001D61          EAT0200		EQU	$
  4428  E001D61 A9 0004         		LDA	#04H		;[♪]
  4429  E001D64 22 000000"      		JSL	>SOUND_3_ON
  4430                          ;
  4431          001D68          ENEAT_CANCEL	EQU	$
  4432  E001D68 A9 0010         		LDA	#EMOVE
  4433  E001D6B 9D 6F00         		STA	ENMODE,X	;return to normal move
  4434  E001D6E A9 00FF         		LDA	#00FFH
  4435  E001D71 1D 7862         		ORA	ENWATR,X
  4436  E001D74 9D 7862         		STA	ENWATR,X	;水中フラグ初期セット
  4437                          ;
  4438  E001D77 9B              		TXY
  4439                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0076

  4440                          		I16
  4440+ E001D78 C2 10           		REP	#00010000b	
  4441                          ;
  4442  E001D7A B9 7360         		LDA	ENMYNO,Y
  4443  E001D7D 0A              		ASL	A
  4444  E001D7E AA              		TAX
  4445  E001D7F BF 0A9D51       		LDA	>ENDATA0,X
  4446  E001D83 29 00FF         		AND	#00FFH
  4447  E001D86 99 74A2         		STA	ENYUSN,Y
  4448  E001D89 B9 7360         		LDA	ENMYNO,Y
  4449  E001D8C C9 0108         		CMP	#PONTA
  4450  E001D8F D0 05           		BNE	ENEAT_CANCEL_10 ;プチプチ君？ ( no:ENEAT_CANCEL_10 )
  4451                          ;
  4452                          ;-------------- プチプチボス用チェック --------------------------
  4453  E001D91 B9 7900         		LDA	ENWRKA,Y
  4454  E001D94 D0 04           		BNE	ENEAT_CANCEL_20 ;プチプチボス用？ ( yes:ENEAT_CANCEL_20 )
  4455                          ;
  4456          001D96          ENEAT_CANCEL_10 EQU	$
  4457  E001D96 BF 0A9953       		LDA	>ENMODE2,X
  4458          001D9A          ENEAT_CANCEL_20 EQU	$
  4459  E001D9A 29 000C         		AND	#00001100B
  4460  E001D9D 19 7040         		ORA	ENMOD2,Y
  4461  E001DA0 99 7040         		STA	ENMOD2,Y
  4462                          ;
  4463                          		I8
  4463+ E001DA3 E2 10           		SEP	#00010000b	
  4464                          ;
  4465  E001DA5 BB              		TYX
  4466                          ;
  4467          001DA6          EAT012		EQU	$
  4468  E001DA6 6B              		RTL
  4469                          ;
  4470                          ;-------------- eat end set --------------------
  4471                          ;
  4472                          		MEM8
  4473                          ;
  4474          001DA7          EAT020		EQU	$
  4475          001DA7          SCOREST		EQU	$
  4476                          ;
  4477                          		M16
  4477+ E001DA7 C2 20           		REP	#00100000b	
  4478                          ;
  4479  E001DA9 AD 0B57         		LDA	GOAL_IN
  4480  E001DAC 0D 0B59         		ORA	GOAL_BOSS_CLEAR
  4481  E001DAF F0 04           		BEQ	EAT021		;コースクリアー？ ( no:EAT021 )
  4482                          ;
  4483  E001DB1 5C 00232E'      		JMP	>ENCLEAR_NORETN
  4484                          ;
  4485          001DB5          EAT021		EQU	$
  4486  E001DB5 8B              		PHB			;(DBR) save
  4487  E001DB6 4B              		PHK			;(DBR) <-- (PBR)
  4488  E001DB7 AB              		PLB
  4489                          ;
  4490  E001DB8 AD 6150         		LDA	BERFLG
  4491  E001DBB F0 08           		BEQ	EAT022		;eat end ? ( yes:EAT022 )
  4492                          ;
  4493  E001DBD C9 0043         		CMP	#EATEGGEND+7-(4*3)
  4494  E001DC0 B0 03           		BCS	EAT022		;タマゴセット？ ( yes:EAT022 )
  4495  E001DC2 4C 1ECE'        		JMP	EAT040
  4496                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0077

  4497          001DC5          EAT022		EQU	$
  4498  E001DC5 BD 6FA2         		LDA	ENMOD1,X
  4499                          ;;;;		    AND	    #1000000000000000B
  4500  E001DC8 10 03           		BPL	EAT022F		;タマゴ産む？ ( yes:EAT022F )
  4501                          ;
  4502  E001DCA 4C 1E4E'        		JMP	EAT028
  4503                          ;
  4504                          ;-------------- タマゴ産む ----------------------
  4505          001DCD          EAT022F		EQU	$
  4506  E001DCD 22 000000"      		JSL	>PONTA_CHECK	;ぷちぷちくんカウントチェック
  4507                          ;
  4508                          ;-------------- サウンドセット座標セット --------
  4509  E001DD1 A9 003B         		LDA	#03BH
  4510  E001DD4 22 003212'      		JSL	>SOUND_XYST	;[♪]
  4511                          ;
  4512  E001DD8 22 002F0D'      		JSL	>TROBJ_CLEAR_CHK
  4513                          ;
  4514  E001DDC BD 7360         		LDA	ENMYNO,X
  4515  E001DDF C9 008B         		CMP	#FBOM0
  4516  E001DE2 D0 1D           		BNE	EAT0222		;爆弾風船？ ( no:EAT0222 )
  4517                          ;
  4518                          ;-------------- 爆弾風船特殊産み ----------------
  4519  E001DE4 22 00232E'      		JSL	>ENCLEAR_NORETN
  4520  E001DE8 A9 0087         		LDA	#EG1UP		;(A) <-- 敵Ｎｏ．
  4521  E001DEB 9B              		TXY			;(Y) <-- 敵インデックス
  4522  E001DEC 22 002366'      		JSL	>ENINSR2	;敵変更
  4523  E001DF0 AC 60C4         		LDY	PLCMKI
  4524  E001DF3 B9 1AB0'        		LDA	!KINOMI_BON_XSP,Y
  4525  E001DF6 9D 7220         		STA	ENXSPD,X
  4526  E001DF9 A9 FE00         		LDA	#0FE00H
  4527  E001DFC 9D 7222         		STA	ENYSPD,X
  4528  E001DFF 80 35           		BRA	EAT026
  4529                          ;
  4530          001E01          EAT0222		EQU	$
  4531  E001E01 C9 0129         		CMP	#WATAB
  4532  E001E04 D0 03           		BNE	EAT0224		;ワタボー？ ( no:EAT0224 )
  4533                          ;
  4534                          ;-------------- ワタボー”プ〜”モード初期セット -
  4535  E001E06 4C 1ED4'        		JMP	WATAB_PUUUU_IN
  4536                          ;
  4537          001E09          EAT0224		EQU	$
  4538  E001E09 C9 012B         		CMP	#DEBU0
  4539  E001E0C F0 0E           		BEQ	EAT023		;デブホー？ ( yes:EAT023 )
  4540                          ;
  4541  E001E0E 22 000000"      		JSL	>BBROS_CHECK
  4542                          ;
  4543  E001E12 A9 0025         		LDA	#EGG03		;(A) <-- 敵Ｎｏ．
  4544  E001E15 AC 0146         		LDY	DSPMOD
  4545  E001E18 C0 0D           		CPY	#0DH
  4546  E001E1A D0 03           		BNE	EAT024		;ゲロゲーロの胃袋？ ( no:EAT024 )
  4547                          ;
  4548          001E1C          EAT023		EQU	$
  4549  E001E1C A9 002B         		LDA	#EGG09		;(A) <-- 敵Ｎｏ．
  4550          001E1F          EAT024		EQU	$
  4551  E001E1F 9E 6F00         		STZ	ENMODE,X
  4552  E001E22 9B              		TXY
  4553  E001E23 22 002366'      		JSL	>ENINSR2
  4554  E001E27 A9 0010         		LDA	#EMOVE
  4555  E001E2A 9D 6F00         		STA	ENMODE,X
  4556  E001E2D 22 003EB9'      		JSL	>EGGSET
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0078

  4557  E001E31 A9 FFA2         		LDA	#-EGG_OP_INJMP+2
  4558  E001E34 95 76           		STA	<ENWRK2,X
  4559                          ;
  4560          001E36          EAT026		EQU	$
  4561  E001E36 AD 608C         		LDA	PLXPSL
  4562  E001E39 9D 70E2         		STA	ENXPSL,X
  4563  E001E3C AD 6090         		LDA	PLYPSL
  4564  E001E3F 18              		CLC
  4565  E001E40 69 0010         		ADC	#010H
  4566  E001E43 9D 7182         		STA	ENYPSL,X
  4567  E001E46 AD 60C4         		LDA	PLCMKI
  4568  E001E49 9D 7400         		STA	ENMUKI,X
  4569                          ;
  4570  E001E4C AB              		PLB
  4571  E001E4D 6B              		RTL
  4572                          ;
  4573          001E4E          EAT028		EQU	$
  4574  E001E4E BD 7360         		LDA	ENMYNO,X
  4575  E001E51 C9 01A2         		CMP	#TIMKN
  4576  E001E54 D0 2F           		BNE	EAT031		;タイムくん？ [no->EAT031]
  4577                          ;
  4578  E001E56 A9 0009         		LDA	#09H		;[♪]
  4579  E001E59 22 000000"      		JSL	>SOUND_3_ON
  4580                          ;
  4581  E001E5D BD 70E2         		LDA	!ENXPSL,X
  4582  E001E60 8D 0000         		STA	WORK0
  4583  E001E63 BD 7182         		LDA	!ENYPSL,X
  4584  E001E66 8D 0002         		STA	WORK2
  4585  E001E69 A9 0003         		LDA	#3
  4586  E001E6C 8D 0004         		STA	WORK4
  4587  E001E6F 22 0024C3'      		JSL	>SCORE_SET
  4588                          ;
  4589  E001E73 AD 0396         		LDA	!TIMCNT_UP
  4590  E001E76 18              		CLC
  4591  E001E77 69 000A         		ADC	#0010
  4592  E001E7A 8D 0396         		STA	!TIMCNT_UP
  4593  E001E7D A9 0082         		LDA	#60*2+0010	;強制ＯＢＪタイマー表示！！
  4594  E001E80 8D 0B7F         		STA	OBJ_TIMER_DISP
  4595  E001E83 80 41           		BRA	EAT03180
  4596  
  4597          001E85          EAT031		EQU	$
  4598  E001E85 C9 0115         		CMP	#COIN1		;オブジェコイン ?
  4599  E001E88 D0 2D           		BNE	EAT03170	;  no: EAT03170
  4600                          ;
  4601  E001E8A BD 7042         		LDA	ENCLOR,X
  4602  E001E8D 89 0002         		BIT	#00000010B	;(A) <-- コインカラー
  4603  E001E90 F0 14           		BEQ	EAT03100	;青コイン？ ( no:EAT03100 )
  4604                          ;
  4605  E001E92 A9 0093         		LDA	#00093H
  4606  E001E95 EE 03B4         		INC	CORS_COIN
  4607  E001E98 AC 03B4         		LDY	CORS_COIN
  4608  E001E9B C0 14           		CPY	#014H
  4609  E001E9D 30 01           		BMI	EAT031000
  4610  
  4611  E001E9F 1A              		INC	A
  4612                          ;;;;;;;;		LDA	#00094H
  4613  
  4614          001EA0          EAT031000	EQU	$
  4615                          ;;;;;;;;		LDA	#018H		;[♪]
  4616  E001EA0 22 000000"      		JSL	>SOUND_3_ON
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0079

  4617  E001EA4 80 07           		BRA	EAT03110
  4618                          ;
  4619          001EA6          EAT03100	EQU	$
  4620  E001EA6 A9 0009         		LDA	#09H		;[♪]
  4621  E001EA9 22 000000"      		JSL	>SOUND_3_ON
  4622          001EAD          EAT03110	EQU	$
  4623  E001EAD 22 002520'      		JSL	>EX_COIN_SET_3
  4624  E001EB1 22 000000"      		JSL	>COIN_CATCH
  4625  E001EB5 80 13           		BRA	EAT032
  4626                          ;
  4627          001EB7          EAT03170	EQU	$
  4628  E001EB7 C9 01B2         		CMP	#M_TAM
  4629  E001EBA D0 0A           		BNE	EAT03180	;ミニゲームコイン？ ( no:EAT03180 )
  4630                          ;
  4631  E001EBC A9 0009         		LDA	#09H		;[♪]
  4632  E001EBF 22 000000"      		JSL	>SOUND_3_ON
  4633                          ;
  4634  E001EC3 EE 03BA         		INC	SPECIAL_P	;[ ※ミニゲーム用 ]
  4635                          ;
  4636          001EC6          EAT03180	EQU	$
  4637  E001EC6 22 003288'      		JSL	>ENDEATH_SET_2	;敵の死亡セット
  4638          001ECA          EAT032		EQU	$
  4639  E001ECA 22 00232E'      		JSL	>ENCLEAR_NORETN
  4640                          ;
  4641          001ECE          EAT040		EQU	$
  4642  E001ECE AB              		PLB
  4643  E001ECF 6B              		RTL
  4644                          ;
  4645                          ;------------------------------------------------------------------------
  4646                          ;-		ワタボー”プ〜”モード初期セット			-
  4647                          ;------------------------------------------------------------------------
  4648                          ;
  4649                          ;-------------- ワタボーけむりセットＸ補正値 ----------------------------
  4650          001ED0          WATAB_BON_XA	EQU	$
  4651                          ; PLCMKI ->		 [0]	[2]
  4652  E001ED0 FFF8 0018       		WORD	0FFF8H,00018H
  4653                          ;
  4654          001ED4          WATAB_PUUUU_IN	EQU	$
  4655  E001ED4 A9 0021         		LDA	#00021H		;[♪]
  4656  E001ED7 22 000000"      		JSL	>SOUND_3_ON
  4657                          ;
  4658  E001EDB A9 0400         		LDA	#00400H
  4659  E001EDE 8D 7FE8         		STA	FURA_FG
  4660  E001EE1 A9 0003         		LDA	#03H
  4661  E001EE4 8D 61CA         		STA	BG2OF_FG
  4662  E001EE7 A9 0010         		LDA	#010H
  4663  E001EEA 8D 0B55         		STA	BIRIBIRI
  4664                          ;
  4665  E001EED 22 00231E'      		JSL	>ENCLEAR
  4666  E001EF1 A9 00B3         		LDA	#PUUUU		;(A) <-- 敵Ｎｏ．
  4667  E001EF4 9B              		TXY
  4668  E001EF5 22 002366'      		JSL	>ENINSR2	;敵エリア確保
  4669  E001EF9 A9 0040         		LDA	#040H		;”プ〜”モードタイマーセット
  4670  E001EFC 9D 7A96         		STA	ENTIM0,X
  4671  E001EFF A9 0001         		LDA	#01H		;ショットフラグセット
  4672  E001F02 9D 7D38         		STA	ENSHOT,X
  4673                          ;
  4674  E001F05 AC 60C4         		LDY	PLCMKI
  4675  E001F08 AD 608C         		LDA	PLXPSL
  4676  E001F0B 18              		CLC
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0080

  4677  E001F0C 79 1ED0'        		ADC	!WATAB_BON_XA,Y
  4678  E001F0F 9D 7CD6         		STA	ECENTX,X
  4679  E001F12 38              		SEC
  4680  E001F13 E9 0008         		SBC	#08H
  4681  E001F16 9D 70E2         		STA	ENXPSL,X
  4682  E001F19 AD 6090         		LDA	PLYPSL
  4683  E001F1C 18              		CLC
  4684  E001F1D 69 0010         		ADC	#010H
  4685  E001F20 9D 7CD8         		STA	ECENTY,X
  4686  E001F23 38              		SEC
  4687  E001F24 E9 0008         		SBC	#08H
  4688  E001F27 9D 7182         		STA	ENYPSL,X
  4689                          ;
  4690  E001F2A AB              		PLB
  4691                          ;
  4692          001F2B          FSMK0_SET_S	EQU	$
  4693  E001F2B A9 0000"        		LDA	#FSMK0		;(A) <-- 効果Ｎｏ．
  4694  E001F2E 22 000000"      		JSL	>EXINSR		;効果エリア確保
  4695  E001F32 BD 7CD6         		LDA	ECENTX,X
  4696  E001F35 99 70A2         		STA	EXXPSL,Y
  4697  E001F38 BD 7CD8         		LDA	ECENTY,X
  4698  E001F3B 99 7142         		STA	EXYPSL,Y
  4699  E001F3E A9 0004         		LDA	#04H
  4700  E001F41 99 7782         		STA	EXTIM0,Y
  4701  E001F44 A9 0006         		LDA	#06H
  4702  E001F47 99 73C2         		STA	EXCHPT,Y
  4703  E001F4A 99 7E4C         		STA	EXWRK0,Y
  4704  E001F4D 6B              		RTL
  4705                          ;
  4706                          ;************************************************************************
  4707                          ;*		ワタボー”プ〜”アタック				*
  4708                          ;************************************************************************
  4709          001F4E          PUUUUMV		EQU	$
  4710  E001F4E AD 61B0         		LDA	ENSTFG
  4711  E001F51 0D 0B55         		ORA	BIRIBIRI
  4712  E001F54 0D 0398         		ORA	ITEMNO
  4713  E001F57 F0 01           		BEQ	PUUUUMV_010	;enemy stop ? ( no:PUUUUMV_010 )
  4714  E001F59 6B              		RTL
  4715                          ;
  4716          001F5A          PUUUUMV_010	EQU	$
  4717  E001F5A BD 7A96         		LDA	ENTIM0,X
  4718  E001F5D D0 03           		BNE	PUUUUMV_020	;ワタボー”プ〜”終了？ ( no:PUUUUMV_020 )
  4719  E001F5F 4C 231E'        		JMP	ENCLEAR
  4720                          ;
  4721          001F62          PUUUUMV_020	EQU	$
  4722  E001F62 BC 7D36         		LDY	ECRSFG,X
  4723  E001F65 88              		DEY
  4724  E001F66 30 24           		BMI	PUUUUMV_050	;敵と衝突？ ( no:PUUUUMV_050 )
  4725                          ;
  4726                          ;-------------- 敵と衝突 ------------------------
  4727  E001F68 B9 6F00         		LDA	ENMODE,Y
  4728  E001F6B C9 0010         		CMP	#EMOVE
  4729  E001F6E D0 1C           		BNE	PUUUUMV_050	;enemy move ? ( no:PUUUUMV_050 )
  4730                          ;
  4731  E001F70 B9 7D96         		LDA	ENCOLD,Y
  4732  E001F73 F0 08           		BEQ	PUUUUMV_030	;凍ってる？ ( no:PUUUUMV_020 )
  4733                          ;
  4734  E001F75 BB              		TYX
  4735  E001F76 22 003595'      		JSL	>ICECL_SET
  4736  E001F7A A6 12           		LDX	<ENINDX
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0081

  4737  E001F7C 6B              		RTL
  4738                          ;
  4739          001F7D          PUUUUMV_030	EQU	$
  4740  E001F7D B9 6FA0         		LDA	ENMOD0,Y
  4741  E001F80 29 0020         		AND	#0000000000100000B
  4742  E001F83 D0 07           		BNE	PUUUUMV_050	;shot enemy cross ok ? ( no:EMDC060 )
  4743                          ;
  4744                          ;-------------- 敵を蹴散らす --------------------
  4745  E001F85 BB              		TYX
  4746  E001F86 22 00325B'      		JSL	>ENDEATH_SET_4	;敵を蹴散らしセット
  4747  E001F8A A6 12           		LDX	<ENINDX
  4748                          ;
  4749          001F8C          PUUUUMV_050	EQU	$
  4750  E001F8C 6B              		RTL
  4751                          ;
  4752                          ;************************************************************************
  4753                          ;*		enemy fall mode						*
  4754                          ;************************************************************************
  4755          001F8D          ENFALL		EQU	$
  4756  E001F8D 22 001A90'      		JSL	>ENMOVE		;OAM set
  4757                          ;
  4758          001F91          ENFALL_END	EQU	$
  4759  E001F91 22 00231E'      		JSL	>ENCLEAR	;敵の死亡終了セット
  4760  E001F95 9B              		TXY
  4761  E001F96 5C 0034D6'      		JMP	>FSMK2_SET
  4762                          ;
  4763          001F9A          ENFALL_010	EQU	$
  4764  E001F9A 6B              		RTL
  4765                          ;
  4766                          ;************************************************************************
  4767                          ;*		enemy fall fail						*
  4768                          ;************************************************************************
  4769          001F9B          EGG00_FALL	EQU	$
  4770  E001F9B 22 00375E'      		JSL	>EGG00_COL_SET	;赤コインタマゴカラーセット
  4771                          ;
  4772          001F9F          ENFAIL0		EQU	$
  4773          001F9F          ENFAIL_FALL	EQU	$
  4774  E001F9F 22 001A90'      		JSL	>ENMOVE		;OAM set
  4775                          ;
  4776  E001FA3 BD 7040         		LDA	ENMOD2,X	;範囲クリアーサイズセット
  4777  E001FA6 29 FFF3         		AND	#1111111111110011B
  4778  E001FA9 09 0004         		ORA	#0000000000000100B
  4779  E001FAC 9D 7040         		STA	ENMOD2,X
  4780                          ;
  4781  E001FAF BD 7042         		LDA	ENCLOR,X
  4782  E001FB2 09 0080         		ORA	#10000000B	;Ｖフリップセット
  4783  E001FB5 29 00CF         		AND	#11001111B
  4784  E001FB8 09 0020         		ORA	#00100000B	;ＢＧ優先順位セット
  4785  E001FBB BC 7862         		LDY	ENWATR,X
  4786  E001FBE 88              		DEY
  4787  E001FBF 10 03           		BPL	ENFAIL_FALL_010 ;水中？ ( yes:ENFAIL_FALL_010 )
  4788  E001FC1 09 0030         		ORA	#00110000B
  4789          001FC4          ENFAIL_FALL_010 EQU	$
  4790  E001FC4 9D 7042         		STA	ENCLOR,X
  4791  E001FC7 9E 74A2         		STZ	ENYUSN,X
  4792                          ;
  4793  E001FCA A9 0040         		LDA	#040H		;重力セット
  4794  E001FCD 9D 7542         		STA	ENGPOW,X
  4795  E001FD0 A9 0400         		LDA	#0400H
  4796  E001FD3 9D 75E2         		STA	ENGMAX,X
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0082

  4797                          ;
  4798  E001FD6 BD 6FA0         		LDA	ENMOD0,X	;敵との衝突チェック無しセット
  4799  E001FD9 29 F9FF         		AND	#1111100111111111B
  4800  E001FDC 9D 6FA0         		STA	ENMOD0,X
  4801  E001FDF BD 6FA2         		LDA	ENMOD1,X	;ＢＧチェック無しセット
  4802  E001FE2 29 FFE0         		AND	#1111111111100000B
  4803  E001FE5 9D 6FA2         		STA	ENMOD1,X
  4804  E001FE8 6B              		RTL
  4805                          ;
  4806                          ;************************************************************************
  4807                          ;*		大クッパバクダンでヤラレタ飛んでる敵落下		*
  4808                          ;************************************************************************
  4809          001FE9          KPBOM_FAL_XMX	EQU	$
  4810  E001FE9 FF80 0080       		WORD	0FF80H,0080H
  4811                          ;
  4812          001FED          KPBOM_FALL	EQU	$
  4813  E001FED BD 7682         		LDA	ENDSYL,X
  4814  E001FF0 C9 00F0         		CMP	#0F0H
  4815  E001FF3 30 04           		BMI	KPBOM_FALL_0050 ;終了？ ( no:KPBOM_FALL_0050 )
  4816  E001FF5 5C 00231E'      		JMP	>ENCLEAR
  4817                          ;
  4818          001FF9          KPBOM_FALL_0050 EQU	$
  4819  E001FF9 A0 00           		LDY	#0
  4820  E001FFB BD 70E2         		LDA	ENXPSL,X
  4821  E001FFE D5 18           		CMP	<ENWRK0,X
  4822  E002000 10 02           		BPL	KPBOM_FALL_0060
  4823  E002002 A0 02           		LDY	#2
  4824          002004          KPBOM_FALL_0060 EQU	$
  4825  E002004 B9 1FE9'        		LDA	!KPBOM_FAL_XMX,Y
  4826  E002007 9D 75E0         		STA	ENXMAX,X
  4827  E00200A 6B              		RTL
  4828                          ;
  4829                          ;************************************************************************
  4830                          ;*		火で燃えたモード					*
  4831                          ;************************************************************************
  4832          00200B          ENFIRE		EQU	$
  4833  E00200B 22 001A90'      		JSL	>ENMOVE		;OAM set
  4834                          ;
  4835  E00200F A9 0060         		LDA	#0000000001100000B
  4836  E002012 9D 6FA0         		STA	ENMOD0,X	;衝突チェック無しセット
  4837  E002015 BD 6FA2         		LDA	ENMOD1,X	;ＢＧチェック無しセット
  4838  E002018 29 FFE0         		AND	#1111111111100000B
  4839  E00201B 9D 6FA2         		STA	ENMOD1,X
  4840  E00201E BD 7040         		LDA	ENMOD2,X
  4841  E002021 29 FFF3         		AND	#1111111111110011B
  4842  E002024 09 0004         		ORA	#0000000000000100B
  4843  E002027 9D 7040         		STA	ENMOD2,X	;範囲クリアーサイズセット
  4844  E00202A BD 7042         		LDA	ENCLOR,X
  4845  E00202D 29 00CF         		AND	#11001111B
  4846  E002030 09 0020         		ORA	#00100000B	;ＢＧ優先順位セット
  4847  E002033 BC 7862         		LDY	ENWATR,X
  4848  E002036 88              		DEY
  4849  E002037 10 03           		BPL	ENFIRE_0010 ;水中？ ( yes:ENFIRE_0010 )
  4850  E002039 09 0030         		ORA	#00110000B
  4851          00203C          ENFIRE_0010	EQU	$
  4852  E00203C 9D 7042         		STA	ENCLOR,X
  4853  E00203F 9E 74A2         		STZ	ENYUSN,X
  4854                          ;
  4855  E002042 A9 0040         		LDA	#040H		;重力セット
  4856  E002045 9D 7542         		STA	ENGPOW,X
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0083

  4857  E002048 A9 0400         		LDA	#0400H
  4858  E00204B 9D 75E2         		STA	ENGMAX,X
  4859                          ;
  4860  E00204E BD 7A96         		LDA	ENTIM0,X
  4861  E002051 D0 31           		BNE	ENFIRE_0050	;けむりセット？ ( no:ENFIRE_0050 )
  4862                          ;
  4863  E002053 A9 0008         		LDA	#08H
  4864  E002056 9D 7A96         		STA	ENTIM0,X
  4865                          ;
  4866  E002059 A9 0000"        		LDA	#DSMK0		;(A) <-- 効果Ｎｏ．
  4867  E00205C 22 000000"      		JSL	>EXINSR		;効果エリア確保
  4868  E002060 BD 70E2         		LDA	ENXPSL,X
  4869  E002063 99 70A2         		STA	EXXPSL,Y	;Ｘ座標セット
  4870  E002066 BD 7182         		LDA	ENYPSL,X
  4871  E002069 99 7142         		STA	EXYPSL,Y	;Ｙ座標セット
  4872  E00206C A9 0005         		LDA	#05H
  4873  E00206F 99 7E4C         		STA	EXWRK0,Y	;初期カウンターセット
  4874  E002072 A9 0005         		LDA	#05H
  4875  E002075 99 73C2         		STA	EXCHPT,Y	;初期パターンＮｏ．セット
  4876  E002078 A9 0004         		LDA	#04H
  4877  E00207B 99 7782         		STA	EXTIM0,Y	;初期タイマーセット
  4878  E00207E A9 FE80         		LDA	#0FE80H
  4879  E002081 99 71E2         		STA	EXYSPD,Y	;上昇スピードセット
  4880                          ;
  4881          002084          ENFIRE_0050	EQU	$
  4882  E002084 6B              		RTL
  4883                          ;
  4884                          ;************************************************************************
  4885                          ;*		enemy fail mode						*
  4886                          ;************************************************************************
  4887          002085          ENFAIL		EQU	$
  4888  E002085 BD 7360         		LDA	ENMYNO,X
  4889  E002088 0A              		ASL	A		;[ (C) <-- 0 : =<32767 ]
  4890  E002089 7D 7360         		ADC	ENMYNO,X
  4891                          ;
  4892                          		I16
  4892+ E00208C C2 10           		REP	#00010000b	
  4893                          ;
  4894  E00208E A8              		TAY
  4895  E00208F B9 0A5C'        		LDA	!EFLADR,Y
  4896  E002092 85 00           		STA	<EWORK
  4897  E002094 B9 0A5E'        		LDA	!EFLADR+2,Y
  4898  E002097 85 02           		STA	<EWORK+2
  4899                          ;
  4900                          		I8
  4900+ E002099 E2 10           		SEP	#00010000b	
  4901                          ;
  4902  E00209B A8              		TAY
  4903  E00209C 5A              		PHY			;(DBR) <-- (PBR)
  4904  E00209D AB              		PLB
  4905  E00209E DC 7960         		JML	(EWORK)
  4906                          ;
  4907                          ;----------------------------------------------------------------
  4908                          ;-		VS enemy "Doon" set				-
  4909                          ;----------------------------------------------------------------
  4910          0020A1          DON0ST		EQU	$
  4911  E0020A1 AD 0CCE         		LDA	DOONTM
  4912  E0020A4 D0 3E           		BNE	DONS010		;set timming ? ( no:DONS010 )
  4913                          ;
  4914  E0020A6 A9 0010         		LDA	#10H
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0084

  4915  E0020A9 8D 0CCE         		STA	DOONTM
  4916                          ;
  4917          0020AC          DON0ST2		EQU	$
  4918  E0020AC A9 000C         		LDA	#0CH		;[♪]
  4919  E0020AF 22 000000"      		JSL	>SOUND_3_ON
  4920                          ;
  4921  E0020B3 A9 0000"        		LDA	#DOON0		;(A) <-- exstra no.
  4922  E0020B6 22 000000"      		JSL	>EXINSR		;exstra index search
  4923  E0020BA BD 7C76         		LDA	ECROSX,X
  4924  E0020BD C9 8000         		CMP	#8000H
  4925  E0020C0 6A              		ROR	A
  4926  E0020C1 18              		CLC
  4927  E0020C2 7D 7CD6         		ADC	ECENTX,X
  4928  E0020C5 38              		SEC
  4929  E0020C6 E9 0008         		SBC	#08H
  4930  E0020C9 99 70A2         		STA	EXXPSL,Y	;X pos set
  4931  E0020CC BD 7C78         		LDA	ECROSY,X
  4932  E0020CF C9 8000         		CMP	#8000H
  4933  E0020D2 6A              		ROR	A
  4934  E0020D3 18              		CLC
  4935  E0020D4 7D 7CD8         		ADC	ECENTY,X
  4936  E0020D7 38              		SEC
  4937  E0020D8 E9 0008         		SBC	#08H
  4938                          ;
  4939          0020DB          DONS000		EQU	$
  4940  E0020DB 99 7142         		STA	EXYPSL,Y	;Y pos set
  4941                          ;
  4942  E0020DE A9 0005         		LDA	#5
  4943  E0020E1 99 7782         		STA	EXTIM0,Y	;timer set
  4944                          ;
  4945          0020E4          DONS010		EQU	$
  4946  E0020E4 6B              		RTL
  4947                          ;
  4948                          ;----------------------------------------------------------------
  4949                          ;-		VS player "Doon" set				-
  4950                          ;----------------------------------------------------------------
  4951          0020E5          PDON0ST		EQU	$
  4952  E0020E5 A0 0C           		LDY	#0CH		;[♪] (Y) <-- サウンドフラグ
  4953          0020E7          PDON0ST_2	EQU	$
  4954  E0020E7 AD 0CCE         		LDA	DOONTM
  4955  E0020EA D0 F8           		BNE	DONS010		;set timming ? ( no:DONS010 )
  4956                          ;
  4957  E0020EC 98              		TYA			;[♪]
  4958  E0020ED 22 000000"      		JSL	>SOUND_3_ON
  4959                          ;
  4960  E0020F1 A9 0010         		LDA	#10H
  4961  E0020F4 8D 0CCE         		STA	DOONTM
  4962                          ;
  4963  E0020F7 A9 0000"        		LDA	#DOON0		;(A) <-- exstra no.
  4964  E0020FA 22 000000"      		JSL	>EXINSR		;exstra index search
  4965  E0020FE BD 7C16         		LDA	EPWIDX,X
  4966  E002101 C9 8000         		CMP	#8000H
  4967  E002104 6A              		ROR	A
  4968  E002105 18              		CLC
  4969  E002106 6D 608C         		ADC	PLXPSL
  4970  E002109 99 70A2         		STA	EXXPSL,Y	;X pos set
  4971  E00210C BD 7C18         		LDA	EPWIDY,X
  4972  E00210F C9 8000         		CMP	#8000H
  4973  E002112 6A              		ROR	A
  4974  E002113 18              		CLC
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0085

  4975  E002114 6D 6122         		ADC	PWIDEY
  4976  E002117 18              		CLC
  4977  E002118 6D 6090         		ADC	PLYPSL
  4978  E00211B 80 BE           		BRA	DONS000
  4979                          ;
  4980                          ;************************************************************************
  4981                          ;*		enemy nose mode						*
  4982                          ;************************************************************************
  4983          000010          NOSWT		EQU	10H
  4984                          ;
  4985          00211D          ENNOSE		EQU	$
  4986  E00211D 22 001A90'      		JSL	>ENMOVE		;OAM set
  4987                          ;
  4988  E002121 4B              		PHK			;(DBR) <-- (PBR)
  4989  E002122 AB              		PLB
  4990                          ;
  4991                          ;;;;		    LDA	    ENSTFG
  4992                          ;;;;		    BEQ	    ENOS000	    ;enemy stop ? ( no:ENOS000 )
  4993                          ;;;;		    RTL
  4994                          ;;;;;
  4995                          ;;;;ENOS000	    EQU	    $
  4996  E002123 9E 7220         		STZ	ENXSPD,X
  4997  E002126 9E 7222         		STZ	ENYSPD,X
  4998                          ;
  4999  E002129 BD 7AF8         		LDA	ENTIM3,X
  5000  E00212C F0 19           		BEQ	ENOS20		;sit down wait ? ( no:ENOS20 )
  5001                          ;
  5002                          ;-------------- player nose sit down ----------------------------
  5003  E00212E A9 0010         		LDA	#NOSWT
  5004  E002131 38              		SEC
  5005  E002132 FD 7AF8         		SBC	ENTIM3,X
  5006  E002135 4A              		LSR	A
  5007  E002136 1A              		INC	A
  5008  E002137 C9 0004         		CMP	#04
  5009  E00213A 90 03           		BCC	ENOS10
  5010  E00213C A9 0003         		LDA	#03
  5011          00213F          ENOS10		EQU	$
  5012  E00213F CD 60C2         		CMP	PLSITD
  5013  E002142 90 03           		BCC	ENOS20		;sit down set ok ? ( no:ENOS20 )
  5014  E002144 8D 60C2         		STA	PLSITD
  5015                          ;
  5016          002147          ENOS20		EQU	$
  5017                          ;
  5018                          		I16
  5018+ E002147 C2 10           		REP	#00010000b	
  5019                          ;
  5020  E002149 AC 60BE         		LDY	PLPATN
  5021  E00214C B9 FFFF"        		LDA	!BABY_AD_Y-1,Y
  5022  E00214F 29 FF00         		AND	#0FF00H
  5023  E002152 10 03           		BPL	ENOS22
  5024  E002154 09 00FF         		ORA	#00FFH
  5025          002157          ENOS22		EQU	$
  5026  E002157 EB              		XBA
  5027  E002158 18              		CLC
  5028  E002159 6D 6090         		ADC	PLYPSL
  5029  E00215C 9D 7182         		STA	ENYPSL,X	;Y pos set
  5030                          ;
  5031  E00215F B9 0000"        		LDA	!BABY_AD_X,Y
  5032  E002162 AC 611A         		LDY	PLYUSN		;プレイヤー消えてる ?
  5033  E002165 88              		DEY			;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0086

  5034  E002166 30 0B           		BMI	ENOS30		; yes: ENOS30
  5035  E002168 A0 0004         		LDY	#04H
  5036  E00216B 29 0040         		AND	#040H
  5037  E00216E F0 03           		BEQ	ENOS30		;優先順位プレイヤーの前？ ( no:ENOS30 )
  5038  E002170 A0 0002         		LDY	#02H
  5039          002173          ENOS30		EQU	$
  5040                          		M8
  5040+ E002173 E2 20           		SEP	#00100000b	
  5041  E002175 98              		TYA
  5042  E002176 9D 74A2         		STA	ENYUSN,X
  5043                          		M16
  5043+ E002179 C2 20           		REP	#00100000b	
  5044                          ;
  5045  E00217B AC 60BE         		LDY	PLPATN
  5046  E00217E B9 FFFF"        		LDA	!BABY_AD_X-1,Y
  5047  E002181 29 BF00         		AND	#0BF00H
  5048  E002184 10 03           		BPL	ENOS40
  5049  E002186 09 40FF         		ORA	#040FFH
  5050          002189          ENOS40		EQU	$
  5051  E002189 EB              		XBA
  5052  E00218A AC 60C4         		LDY	PLCMKI
  5053  E00218D D0 04           		BNE	ENOS50
  5054  E00218F 49 FFFF         		EOR	#0FFFFH
  5055  E002192 1A              		INC	A
  5056          002193          ENOS50		EQU	$
  5057  E002193 18              		CLC
  5058  E002194 6D 608C         		ADC	PLXPSL
  5059  E002197 9D 70E2         		STA	ENXPSL,X	;X pos set
  5060  E00219A AD 60C4         		LDA	PLCMKI
  5061  E00219D 9D 7400         		STA	ENMUKI,X	;muki set
  5062                          ;
  5063                          		I8
  5063+ E0021A0 E2 10           		SEP	#00010000b	
  5064                          ;
  5065                          ;-------------- enemy nose move select --------------------------
  5066  E0021A2 BD 7360         		LDA	ENMYNO,X
  5067  E0021A5 0A              		ASL	A		;[ (C) <-- 0 : =<32767 ]
  5068  E0021A6 7D 7360         		ADC	ENMYNO,X
  5069                          ;
  5070                          		I16
  5070+ E0021A9 C2 10           		REP	#00010000b	
  5071                          ;
  5072  E0021AB A8              		TAY
  5073  E0021AC B9 0F8A'        		LDA	!ENSADR,Y
  5074  E0021AF 85 00           		STA	<EWORK
  5075  E0021B1 B9 0F8C'        		LDA	!ENSADR+2,Y
  5076  E0021B4 85 02           		STA	<EWORK+2
  5077                          ;
  5078                          		I8
  5078+ E0021B6 E2 10           		SEP	#00010000b	
  5079                          ;
  5080  E0021B8 A8              		TAY
  5081  E0021B9 5A              		PHY			;(DBR) <-- (PBR)
  5082  E0021BA AB              		PLB
  5083  E0021BB DC 7960         		JML	(EWORK)
  5084                          ;
  5085                          ;------------------------------------------------------------------------
  5086                          ;-		止まってる敵とプレイヤーとの衝突チェック		-
  5087                          ;------------------------------------------------------------------------
  5088          0021BE          STOP_EPCRCK	EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0087

  5089  E0021BE BC 7D36         		LDY	ECRSFG,X
  5090  E0021C1 10 08           		BPL	STOP_EPCRCK_010 ;プレイヤーと当たった？ ( no:STOP_EPCRCK_010 )
  5091                          ;
  5092  E0021C3 22 00535D'      		JSL	>PLCRMKCK	;プレイヤー衝突位置チェック
  5093  E0021C7 BB              		TYX			;(X) <-- プレイヤーとの衝突位置
  5094  E0021C8 FC 21CC'        		JSR	(!EFALL_INIT,X)
  5095                          ;
  5096          0021CB          STOP_EPCRCK_010 EQU	$
  5097  E0021CB 6B              		RTL
  5098                          ;
  5099                          ;----------------------------------------------------------------
  5100                          ;-		敵の落下死の初期セットルーチンテーブル		-
  5101                          ;----------------------------------------------------------------
  5102          0021CC          EFALL_INIT	EQU	$
  5103  E0021CC 21D4'           		WORD	EFALL_INIT_0	;[0] 右
  5104  E0021CE 21D4'           		WORD	EFALL_INIT_1	;[2] 左
  5105  E0021D0 2209'           		WORD	EFALL_INIT_2	;[4] 頭
  5106  E0021D2 222E'           		WORD	EFALL_INIT_3	;[6] 足
  5107                          ;
  5108                          ;----------------------------------------------------------------
  5109                          ;-		敵の落下死の初期セット（右、左）		-
  5110                          ;----------------------------------------------------------------
  5111          0021D4          EFALL_INIT_0	EQU	$
  5112          0021D4          EFALL_INIT_1	EQU	$
  5113  E0021D4 A6 12           		LDX	<ENINDX
  5114          0021D6          EFALL_INIT_SD	EQU	$
  5115  E0021D6 9E 7540         		STZ	ENXPOW,X
  5116                          ;
  5117  E0021D9 AD 60A8         		LDA	PLXSPD
  5118                          		ASR16
  5118+ E0021DC C9 8000         		CMP	#8000h
  5118+ E0021DF 6A              		ROR	A
  5119  E0021E0 8D 60A8         		STA	PLXSPD
  5120  E0021E3 AD 60A8         		LDA	PLXSPD
  5121                          		ASR16
  5121+ E0021E6 C9 8000         		CMP	#8000h
  5121+ E0021E9 6A              		ROR	A
  5122  E0021EA 9D 7220         		STA	ENXSPD,X
  5123  E0021ED 30 04           		BMI	EFALL_INIT_0_10
  5124  E0021EF 49 FFFF         		EOR	#0FFFFH
  5125  E0021F2 1A              		INC	A
  5126          0021F3          EFALL_INIT_0_10 EQU	$
  5127  E0021F3 18              		CLC
  5128  E0021F4 69 FCC0         		ADC	#0FCC0H
  5129  E0021F7 9D 7222         		STA	ENYSPD,X
  5130                          ;
  5131          0021FA          EFAIL_COLDCK	EQU	$
  5132  E0021FA BD 7D96         		LDA	ENCOLD,X
  5133  E0021FD D0 05           		BNE	EFAIL_COLDCK_30 ;凍ってる？ ( yes:EFAIL_COLDCK_30 )
  5134                          ;
  5135  E0021FF 22 00351F'      		JSL	>FSMK0_SET3
  5136  E002203 60              		RTS
  5137                          ;
  5138                          ;-------------- 氷になった敵の崩れるセット ----------------------
  5139          002204          EFAIL_COLDCK_30 EQU	$
  5140  E002204 22 003595'      		JSL	>ICECL_SET
  5141  E002208 60              		RTS
  5142                          ;
  5143                          ;----------------------------------------------------------------
  5144                          ;-		敵の落下死の初期セット（頭）			-
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0088

  5145                          ;----------------------------------------------------------------
  5146          002209          EFALL_INIT_2	EQU	$
  5147  E002209 A6 12           		LDX	<ENINDX
  5148          00220B          EFALL_INIT_HD	EQU	$
  5149  E00220B 9E 7540         		STZ	ENXPOW,X
  5150                          ;
  5151  E00220E BD 7C16         		LDA	EPWIDX,X
  5152  E002211 0A              		ASL	A
  5153  E002212 0A              		ASL	A
  5154  E002213 0A              		ASL	A
  5155  E002214 0A              		ASL	A
  5156  E002215 0A              		ASL	A
  5157  E002216 9D 7220         		STA	ENXSPD,X
  5158  E002219 AD 60AA         		LDA	PLYSPD
  5159  E00221C 10 03           		BPL	EFALL_INIT_2_10
  5160  E00221E 9C 60AA         		STZ	PLYSPD
  5161                          ;
  5162          002221          EFALL_INIT_2_10 EQU	$
  5163  E002221 C9 FC00         		CMP	#0FC00H
  5164  E002224 30 03           		BMI	EFALL_INIT_2_20
  5165  E002226 A9 FC00         		LDA	#0FC00H
  5166          002229          EFALL_INIT_2_20 EQU	$
  5167  E002229 9D 7222         		STA	ENYSPD,X
  5168  E00222C 80 CC           		BRA	EFAIL_COLDCK
  5169                          ;
  5170                          ;----------------------------------------------------------------
  5171                          ;-		敵の落下死の初期セット（足）			-
  5172                          ;----------------------------------------------------------------
  5173          00222E          EFALL_INIT_3	EQU	$
  5174  E00222E A6 12           		LDX	<ENINDX
  5175          002230          EFALL_INIT_FT	EQU	$
  5176  E002230 9E 7540         		STZ	ENXPOW,X
  5177                          ;
  5178  E002233 9E 7220         		STZ	ENXSPD,X
  5179  E002236 9E 7222         		STZ	ENYSPD,X
  5180  E002239 A9 FC00         		LDA	#0FC00H		;player Y speed set
  5181  E00223C 8D 60AA         		STA	PLYSPD
  5182  E00223F A9 8001         		LDA	#01H+8000H
  5183  E002242 8D 60D2         		STA	PLSPJP		;ジタバタジャンプフラグ”ＯＮ”
  5184  E002245 80 B3           		BRA	EFAIL_COLDCK
  5185                          ;
  5186                          ;************************************************************************
  5187                          ;*									*
  5188                          ;*		他のものに変わるモード					*
  5189                          ;*									*
  5190                          ;************************************************************************
  5191                          ;
  5192          002247          ENCHNG		EQU	$
  5193  E002247 22 000000"      		JSL	>KUMOB_SET	;雲セット
  5194  E00224B 22 001A90'      		JSL	>ENMOVE		;OAM set
  5195  E00224F 4B              		PHK			;(DBR) <-- (PBR)
  5196  E002250 AB              		PLB
  5197                          ;
  5198                          ;-------------- 他のものに変える！！ ------------------------------------
  5199  E002251 A9 003B         		LDA	#03BH		;[♪]
  5200  E002254 22 000000"      		JSL	>SOUND_3_ON
  5201                          ;
  5202                          ;;;;		    LDA	    ENMYNO,X
  5203                          ;;;;		    PHA			    ;return enemy no. save
  5204                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0089

  5205                          		M8
  5205+ E002258 E2 20           		SEP	#00100000b	
  5206                          ;
  5207  E00225A BD 74A0         		LDA	ENRETN,X
  5208  E00225D 48              		PHA			;return enmey data pointer save
  5209  E00225E A9 FF           		LDA	#0FFH
  5210  E002260 9D 74A0         		STA	ENRETN,X
  5211                          ;
  5212                          		M16
  5212+ E002263 C2 20           		REP	#00100000b	
  5213                          ;
  5214  E002265 22 00231E'      		JSL	>ENCLEAR	;敵クリアー
  5215                          ;
  5216  E002269 BD 0B91         		LDA	EN_SP_WRK0,X	;(A) <-- enemy no.
  5217  E00226C 10 0F           		BPL	ECHG_FFF	;効果コインセット？ ( no:ECHG_FFF )
  5218                          ;
  5219                          ;-------------- 効果コインセット --------------------------------
  5220  E00226E A9 0004         		LDA	#00000100B	;(A) <-- コインカラー
  5221  E002271 22 0024E9'      		JSL	>EX_COIN_SET
  5222                          ;
  5223  E002275 7A              		PLY			;[ pull ]
  5224  E002276 A9 0009         		LDA	#09H		;[♪]
  5225  E002279 5C 000000"      		JMP	>SOUND_3_ON
  5226                          ;
  5227          00227D          ECHG_FFF	EQU	$
  5228  E00227D 9B              		TXY			;(Y) <-- set enemy index
  5229  E00227E 22 00234E'      		JSL	>ENINSR2_I
  5230                          ;
  5231                          		M8
  5231+ E002282 E2 20           		SEP	#00100000b	
  5232                          ;
  5233  E002284 68              		PLA
  5234  E002285 9D 74A0         		STA	ENRETN,X	;return enemy data pointer load
  5235                          ;
  5236                          		M16
  5236+ E002288 C2 20           		REP	#00100000b	
  5237                          ;
  5238                          ;;;;		    PLA
  5239                          ;;;;		    STA	    EN_SP_WRK0,X    ;return enemy no. set
  5240  E00228A BD 7360         		LDA	ENMYNO,X
  5241  E00228D C9 0115         		CMP	#COIN1
  5242  E002290 D0 06           		BNE	ECHG_000	;ＹスピードセットＯＫ？ ( no:ECHG_000 )
  5243                          ;
  5244  E002292 A9 FD00         		LDA	#0FD00H
  5245  E002295 9D 7222         		STA	ENYSPD,X	;Ｙスピードセット
  5246          002298          ECHG_000	EQU	$
  5247  E002298 6B              		RTL
  5248                          ;
  5249                          ;************************************************************************
  5250                          ;*		enemy clear set						*
  5251                          ;************************************************************************
  5252          002299          DISPCK4		EQU	$		;check only!!!
  5253  E002299 BD 7680         		LDA	ENDSXL,X
  5254  E00229C 18              		CLC
  5255  E00229D 69 0100         		ADC	#00100H
  5256  E0022A0 C9 0300         		CMP	#0100H+(0100H*2)
  5257  E0022A3 B0 0A           		BCS	D_CHK4010	;X pos display ? ( no:D_CHK4010 )
  5258  E0022A5 BD 7682         		LDA	ENDSYL,X
  5259  E0022A8 18              		CLC
  5260  E0022A9 69 0100         		ADC	#00100H
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0090

  5261  E0022AC C9 02E0         		CMP	#0E0H+(0100H*2) ;Y pos display ?
  5262  
  5263          0022AF          D_CHK4010	EQU	$
  5264  E0022AF 6B              		RTL
  5265                          ;
  5266          0022B0          DISPCK3		EQU	$		;check only!!!
  5267  E0022B0 BD 7680         		LDA	ENDSXL,X
  5268  E0022B3 18              		CLC
  5269  E0022B4 69 0080         		ADC	#080H
  5270  E0022B7 C9 0200         		CMP	#0100H+(080H*2)
  5271  E0022BA B0 0A           		BCS	D_CHK3010	;X pos display ? ( no:D_CHK3010 )
  5272  E0022BC BD 7682         		LDA	ENDSYL,X
  5273  E0022BF 18              		CLC
  5274  E0022C0 69 0080         		ADC	#080H
  5275  E0022C3 C9 01E0         		CMP	#0E0H+(080H*2) ;Y pos display ?
  5276  
  5277          0022C6          D_CHK3010	EQU	$
  5278  E0022C6 6B              		RTL
  5279                          ;
  5280          0022C7          DISPCK2		EQU	$		;check only!!!
  5281  E0022C7 BD 7680         		LDA	ENDSXL,X
  5282  E0022CA 18              		CLC
  5283  E0022CB 69 0040         		ADC	#040H
  5284  E0022CE C9 0180         		CMP	#0100H+(040H*2)
  5285  E0022D1 B0 0A           		BCS	D_CHK2010	;X pos display ? ( no:D_CHK2010 )
  5286  E0022D3 BD 7682         		LDA	ENDSYL,X
  5287  E0022D6 18              		CLC
  5288  E0022D7 69 0040         		ADC	#040H
  5289  E0022DA C9 0160         		CMP	#0E0H+(040H*2) ;Y pos display ?
  5290  
  5291          0022DD          D_CHK2010	EQU	$
  5292  E0022DD 6B              		RTL
  5293                          ;
  5294          0022DE          DISPCK1		EQU	$
  5295  E0022DE BD 7680         		LDA	ENDSXL,X
  5296  E0022E1 18              		CLC
  5297  E0022E2 69 0080         		ADC	#080H
  5298  E0022E5 C9 0200         		CMP	#0100H+(080H*2)
  5299  E0022E8 B0 26           		BCS	ENCLEAR_CK	 ;X pos display ? ( no:ENCLEAR_CK )
  5300  E0022EA BD 7682         		LDA	ENDSYL,X
  5301  E0022ED 18              		CLC
  5302  E0022EE 69 0080         		ADC	#080H
  5303  E0022F1 C9 01E0         		CMP	#0E0H+(080H*2)
  5304  E0022F4 B0 1A           		BCS	ENCLEAR_CK	;Y pos display ? ( no:ENCLEAR_CK )
  5305  E0022F6 80 53           		BRA	ECLR10
  5306                          ;
  5307          0022F8          DISPCK0		EQU	$
  5308  E0022F8 BD 7680         		LDA	ENDSXL,X
  5309  E0022FB 18              		CLC
  5310  E0022FC 69 0040         		ADC	#040H
  5311  E0022FF C9 0180         		CMP	#0100H+(040H*2)
  5312  E002302 B0 0C           		BCS	ENCLEAR_CK	;X pos display ? ( no:ENCLEAR_CK )
  5313  E002304 BD 7682         		LDA	ENDSYL,X
  5314  E002307 18              		CLC
  5315  E002308 69 0040         		ADC	#040H
  5316  E00230B C9 0160         		CMP	#0E0H+(040H*2)
  5317  E00230E 90 3B           		BCC	ECLR10		;Y pos display ? ( yes:ECLR10 )
  5318                          ;
  5319          002310          ENCLEAR_CK	EQU	$
  5320  E002310 AD 7E2A         		LDA	SP_SCRL_FG
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0091

  5321  E002313 F0 09           		BEQ	ENCLEAR		;スクロール基準特殊？ ( no:ENCLEAR )
  5322                          ;
  5323  E002315 8A              		TXA
  5324  E002316 4A              		LSR	A
  5325  E002317 4A              		LSR	A
  5326  E002318 A8              		TAY
  5327  E002319 B9 0C98         		LDA	SP_SCRL_SVENFG,Y
  5328  E00231C D0 2D           		BNE	ECLR10		;状態保存？ ( yes:ECLR10 )
  5329                          ;
  5330          00231E          ENCLEAR		EQU	$
  5331                          ;
  5332                          		M8
  5332+ E00231E E2 20           		SEP	#00100000b	
  5333                          ;
  5334  E002320 DA              		PHX
  5335                          ;
  5336  E002321 BD 74A0         		LDA	ENRETN,X
  5337  E002324 AA              		TAX
  5338  E002325 A9 00           		LDA	#00
  5339  E002327 9F 7028CA       		STA	>EDSWBF,X
  5340                          ;
  5341  E00232B FA              		PLX
  5342                          ;
  5343                          		M16
  5343+ E00232C C2 20           		REP	#00100000b	
  5344                          ;
  5345          00232E          ENCLEAR_NORETN	EQU	$
  5346  E00232E 9E 6F00         		STZ	ENMODE,X
  5347          002331          ENCLEAR_NORETN2 EQU	$
  5348  E002331 A9 00FF         		LDA	#00FFH
  5349  E002334 9D 74A2         		STA	ENYUSN,X
  5350  E002337 BC 7722         		LDY	ENTROB,X
  5351  E00233A 30 06           		BMI	ECLR00		;転送エリア使用？ ( no:ECLR00 )
  5352                          ;
  5353  E00233C B9 7ECE         		LDA	TROBJ_SIZE,Y
  5354  E00233F 1C 7ECC         		TRB	TROBJ_ARIA
  5355  
  5356          002342          ECLR00		EQU	$
  5357  E002342 EC 61B6         		CPX	PONLFFG
  5358  E002345 D0 03           		BNE	ECLR08
  5359  
  5360  E002347 9C 61B6         		STZ	PONLFFG
  5361  
  5362          00234A          ECLR08		EQU	$
  5363  E00234A 38              		SEC
  5364          00234B          ECLR10		EQU	$
  5365  E00234B 6B              		RTL
  5366                          ;
  5367                          ;************************************************************************
  5368                          ;*		enemy area search					*
  5369                          ;*			in  : (A) <-- enemy no.				*
  5370                          ;*			out : (C) <-- 0:area nothing			*
  5371                          ;*				1:find (Y) <- index			*
  5372                          ;************************************************************************
  5373          00234C          ENINSR_I	EQU	$
  5374  E00234C A0 5C           		LDY	#(ENNO-1)*4
  5375          00234E          ENINSR2_I	EQU	$
  5376  E00234E 48              		PHA
  5377          00234F          ENIS00		EQU	$
  5378  E00234F B9 6F00         		LDA	ENMODE,Y
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0092

  5379  E002352 F0 0B           		BEQ	ENIS02		;area find ? ( yes:ENIS02 )
  5380  E002354 88              		DEY
  5381  E002355 88              		DEY
  5382  E002356 88              		DEY
  5383  E002357 88              		DEY
  5384  E002358 C0 18           		CPY	#((1+1+4)*4)
  5385  E00235A B0 F3           		BCS	ENIS00
  5386  E00235C 68              		PLA
  5387  E00235D 18              		CLC
  5388  E00235E 6B              		RTL
  5389                          ;
  5390          00235F          ENIS02		EQU	$
  5391  E00235F A9 0002         		LDA	#EINIT
  5392  E002362 80 19           		BRA	ENIS21
  5393                          ;
  5394          002364          ENINSR		EQU	$
  5395  E002364 A0 5C           		LDY	#(ENNO-1)*4
  5396          002366          ENINSR2		EQU	$
  5397  E002366 48              		PHA
  5398          002367          ENIS10		EQU	$
  5399  E002367 B9 6F00         		LDA	ENMODE,Y
  5400  E00236A F0 0E           		BEQ	ENIS20		;area find ? ( yes:ENIS20 )
  5401  E00236C 88              		DEY
  5402  E00236D 88              		DEY
  5403  E00236E 88              		DEY
  5404  E00236F 88              		DEY
  5405  E002370 C0 18           		CPY	#((1+1+4)*4)
  5406  E002372 B0 F3           		BCS	ENIS10
  5407  E002374 68              		PLA
  5408  E002375 18              		CLC
  5409  E002376 6B              		RTL
  5410                          ;
  5411          002377          ESTATST		EQU	$
  5412  E002377 48              		PHA
  5413  E002378 80 1B           		BRA	ENIS22
  5414                          ;
  5415          00237A          ENIS20		EQU	$
  5416  E00237A A9 0010         		LDA	#EMOVE
  5417          00237D          ENIS21		EQU	$
  5418  E00237D 99 6F00         		STA	ENMODE,Y
  5419  E002380 A9 00FF         		LDA	#00FFH
  5420  E002383 99 74A0         		STA	ENRETN,Y	;[ & STA ENDORE,Y ]
  5421  E002386 A9 0000         		LDA	#0000
  5422  E002389 99 7400         		STA	ENMUKI,Y
  5423  E00238C 99 7D96         		STA	ENCOLD,Y
  5424  E00238F 99 7900         		STA	ENWRKA,Y
  5425  E002392 99 7902         		STA	ENWRKC,Y
  5426                          ;
  5427          002395          ENIS22		EQU	$
  5428  E002395 A9 0000         		LDA	#0000
  5429  E002398 99 7220         		STA	ENXSPD,Y
  5430  E00239B 99 7222         		STA	ENYSPD,Y
  5431  E00239E 99 7976         		STA	ENCONT,Y
  5432  E0023A1 99 70E0         		STA	ENEMU0,Y	;[ & STA ENXSDR,Y ]
  5433  E0023A4 99 7D36         		STA	ECRSFG,Y	;[ & STA ENCRPT,Y ]
  5434  E0023A7 99 7978         		STA	ENWRK0,Y	;[ & STA ENWRK1,Y ]
  5435  E0023AA 99 79D6         		STA	ENWRK2,Y	;[ & STA ENWRK3,Y ]
  5436  E0023AD 99 79D8         		STA	ENWRK4,Y	;[ & STA ENWRK5,Y ]
  5437  E0023B0 99 7A36         		STA	ENWRK6,Y	;[ & STA ENWRK7,Y ]
  5438  E0023B3 99 7A38         		STA	ENWRK8,Y	;[ & STA ENWRK9,Y ]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0093

  5439  E0023B6 99 7A96         		STA	ENTIM0,Y
  5440  E0023B9 99 7A98         		STA	ENTIM1,Y
  5441  E0023BC 99 7AF6         		STA	ENTIM2,Y
  5442  E0023BF 99 7AF8         		STA	ENTIM3,Y
  5443  E0023C2 99 7402         		STA	ENCHPT,Y
  5444  E0023C5 99 7860         		STA	ENCBFG,Y
  5445  E0023C8 99 6F02         		STA	ENSLOP,Y	;[ & STA EN_ADD_XSP,Y ]
  5446  E0023CB 99 7D38         		STA	ENSHOT,Y
  5447  E0023CE 99 7720         		STA	ENBGYP,Y
  5448  E0023D1 99 7680         		STA	ENDSXL,Y
  5449  E0023D4 99 7682         		STA	ENDSYL,Y
  5450  E0023D7 99 7540         		STA	ENXPOW,Y
  5451  E0023DA 99 75E0         		STA	ENXMAX,Y
  5452  E0023DD 99 77C0         		STA	ENWRKX,Y	;[ & STA ENSPTM,Y ]
  5453  E0023E0 3A              		DEC	A		;[ LDA #0FFFFH ]
  5454  E0023E1 99 7362         		STA	ENOAML,Y
  5455  E0023E4 99 7722         		STA	ENTROB,Y
  5456  E0023E7 A9 1FFF         		LDA	#0FFH+(((100H/8)-1)*100H)
  5457  E0023EA 99 7862         		STA	ENWATR,Y
  5458  E0023ED 68              		PLA
  5459  E0023EE 99 7360         		STA	ENMYNO,Y
  5460  E0023F1 DA              		PHX
  5461  E0023F2 0A              		ASL	A
  5462                          ;
  5463                          		I16
  5463+ E0023F3 C2 10           		REP	#00010000b	
  5464                          ;
  5465  E0023F5 AA              		TAX
  5466                          ;
  5467                          		M8
  5467+ E0023F6 E2 20           		SEP	#00100000b	
  5468                          ;
  5469  E0023F8 5A              		PHY			;(Y) save
  5470                          ;
  5471  E0023F9 BF 0AA54D       		LDA	>ENCHR_BNK,X	;(A) <-- 敵キャラクターバンク
  5472  E0023FD A0 0006         		LDY	#6
  5473          002400          ENIS24		EQU	$
  5474  E002400 D9 6EB5         		CMP	OBJCHR_BNK-1,Y
  5475  E002403 F0 06           		BEQ	ENIS26		;自分のキャラクターバンク有り？ ( yes:ENIS26 )
  5476  E002405 88              		DEY
  5477  E002406 D0 F8           		BNE	ENIS24
  5478  E002408 98              		TYA			;[ LDA #0 ]
  5479  E002409 80 05           		BRA	ENIS28
  5480                          ;
  5481          00240B          ENIS26		EQU	$
  5482  E00240B 98              		TYA
  5483                          ;;;;		    CLC			;[ * CMP : (Z)=(C) ]
  5484  E00240C 69 06           		ADC	#(8-1)-1	;[ 8 --> 8*4*8 = 100H ]
  5485  E00240E 0A              		ASL	A		;[ 9 --> 9*4*8 = 120H ]
  5486  E00240F 0A              		ASL	A		;[	   "          ]
  5487                          ;
  5488          002410          ENIS28		EQU	$
  5489                          ;
  5490                          		M16
  5490+ E002410 C2 20           		REP	#00100000b	
  5491                          ;
  5492  E002412 29 00FF         		AND	#00FFH
  5493  E002415 7A              		PLY			;(Y) load
  5494  E002416 99 7180         		STA	ENCHRB,Y	;[ & STA ENYSDR,Y ]
  5495  E002419 BF 0A9D52       		LDA	>ENDATA0+1,X
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0094

  5496  E00241D 29 00FF         		AND	#00FFH
  5497  E002420 49 0020         		EOR	#0020H		;pri. initial set
  5498  E002423 99 7042         		STA	ENCLOR,Y
  5499  E002426 BF 0A9D51       		LDA	>ENDATA0,X
  5500  E00242A 29 00FF         		AND	#00FFH
  5501  E00242D 99 74A2         		STA	ENYUSN,Y
  5502  E002430 BF 0AA14E       		LDA	>ENDATA1-1,X
  5503  E002434 29 FF00         		AND	#0FF00H
  5504  E002437 10 03           		BPL	ENIS30
  5505  E002439 09 00FF         		ORA	#00FFH
  5506          00243C          ENIS30		EQU	$
  5507  E00243C EB              		XBA
  5508  E00243D 99 7542         		STA	ENGPOW,Y
  5509  E002440 BF 0AA14F       		LDA	>ENDATA1,X
  5510  E002444 29 FF00         		AND	#0FF00H
  5511  E002447 10 03           		BPL	ENIS40
  5512  E002449 09 00FF         		ORA	#00FFH
  5513          00244C          ENIS40		EQU	$
  5514  E00244C EB              		XBA
  5515  E00244D 0A              		ASL	A
  5516  E00244E 0A              		ASL	A
  5517  E00244F 0A              		ASL	A
  5518  E002450 0A              		ASL	A
  5519  E002451 99 75E2         		STA	ENGMAX,Y
  5520  E002454 BF 0A9953       		LDA	>ENMODE2,X
  5521  E002458 99 7040         		STA	ENMOD2,Y
  5522  E00245B BF 0A9555       		LDA	>ENMODE1,X
  5523  E00245F 99 6FA2         		STA	ENMOD1,Y
  5524  E002462 BF 0A9157       		LDA	>ENMODE0,X
  5525  E002466 99 6FA0         		STA	ENMOD0,Y
  5526  E002469 29 001F         		AND	#001FH
  5527  E00246C 0A              		ASL	A
  5528  E00246D 0A              		ASL	A
  5529  E00246E 0A              		ASL	A
  5530  E00246F AA              		TAX
  5531  E002470 BF 0A9057       		LDA	>ENCRDT,X
  5532  E002474 99 7B56         		STA	ECNTXW,Y
  5533  E002477 BF 0A9059       		LDA	>ENCRDT+2,X
  5534  E00247B 99 7B58         		STA	ECNTYW,Y
  5535  E00247E BF 0A905B       		LDA	>ENCRDT+4,X
  5536  E002482 99 7BB6         		STA	EWIDEX,Y
  5537  E002485 BF 0A905D       		LDA	>ENCRDT+6,X
  5538  E002489 99 7BB8         		STA	EWIDEY,Y
  5539                          ;
  5540                          		I8
  5540+ E00248C E2 10           		SEP	#00010000b	
  5541                          ;
  5542  E00248E FA              		PLX
  5543  E00248F 38              		SEC
  5544  E002490 6B              		RTL
  5545                          ;
  5546                          ;************************************************************************
  5547                          ;*		プレイヤー１ｕｐセット					*
  5548                          ;************************************************************************
  5549          002491          PL_3UP_SET	EQU	$
  5550  E002491 A9 0003         		LDA	#3		;(A) <-- 3up
  5551  E002494 80 0F           		BRA	PL_UP_SET
  5552                          ;
  5553          002496          PL_1UP_SET_P	EQU	$
  5554  E002496 BD 70E2         		LDA	ENXPSL,X
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0095

  5555  E002499 8D 0000         		STA	WORK0		;(WK0,1) <-- セットＸ座標
  5556  E00249C BD 7182         		LDA	ENYPSL,X
  5557  E00249F 8D 0002         		STA	WORK2		;(WK2,3) <-- セットＹ座標
  5558                          ;
  5559          0024A2          PL_1UP_SET	EQU	$
  5560  E0024A2 A9 0001         		LDA	#1		;(A) <-- 1up
  5561                          ;
  5562          0024A5          PL_UP_SET	EQU	$
  5563  E0024A5 8D 0004         		STA	WORK4		;(WK4) <-- player count-up no
  5564                          ;
  5565  E0024A8 18              		CLC
  5566  E0024A9 6D 0379         		ADC	PLCONT		;player count-up !!
  5567  E0024AC 8D 0379         		STA	PLCONT
  5568  E0024AF AD 0004         		LDA	WORK4
  5569  E0024B2 18              		CLC
  5570  E0024B3 6D 037F         		ADC	PLUPCT
  5571  E0024B6 8D 037F         		STA	PLUPCT
  5572                          ;
  5573  E0024B9 A9 0008         		LDA	#08H		;[♪]
  5574  E0024BC 22 000000"      		JSL	>SOUND_3_ON
  5575                          ;
  5576  E0024C0 4E 0004         		LSR	WORK4		;(WK4) <-- pattern no. [ 0,1,2 <-- 1,3,5 ]
  5577                          ;
  5578          0024C3          SCORE_SET	EQU	$
  5579  E0024C3 A9 0000"        		LDA	#SCORE		;(A) <-- exstra no.
  5580  E0024C6 22 000000"      		JSL	>EXINSR		;exstra index search
  5581                          ;;;;		    STA	    EXCHPT,Y	    ;pattern no. set
  5582  E0024CA AD 0000         		LDA	WORK0
  5583  E0024CD 99 70A2         		STA	EXXPSL,Y	;X pos set
  5584  E0024D0 AD 0002         		LDA	WORK2
  5585  E0024D3 99 7142         		STA	EXYPSL,Y	;Y pos set
  5586  E0024D6 AD 0004         		LDA	WORK4
  5587  E0024D9 99 73C2         		STA	EXCHPT,Y	;pattern no. set
  5588  E0024DC A9 0040         		LDA	#040H
  5589  E0024DF 99 7782         		STA	EXTIM0,Y	;wait timer set
  5590  E0024E2 A9 FF00         		LDA	#0FF00H
  5591  E0024E5 99 71E2         		STA	EXYSPD,Y	;Y speed set
  5592  E0024E8 6B              		RTL
  5593                          ;
  5594          0024E9          EX_COIN_SET	EQU	$
  5595  E0024E9 8D 0006         		STA	!WORK6
  5596  E0024EC BD 70E2         		LDA	!ENXPSL,X
  5597  E0024EF 8D 0000         		STA	!WORK0
  5598  E0024F2 BD 7182         		LDA	!ENYPSL,X
  5599          0024F5          EX_COIN_SET_2	EQU	$
  5600  E0024F5 8D 0002         		STA	!WORK2
  5601  E0024F8 A9 0000"        		LDA	#COINX		;(A) <-- exstra no.
  5602  E0024FB 22 000000"      		JSL	>EXINSR		;exstra index search
  5603                          ;
  5604  E0024FF AD 0000         		LDA	!WORK0
  5605  E002502 99 70A2         		STA	!EXXPSL,Y	; Ｘポジションセット！！
  5606  E002505 AD 0002         		LDA	!WORK2
  5607  E002508 99 7142         		STA	!EXYPSL,Y	; Ｙポジションセット！！
  5608  E00250B B9 7002         		LDA	!EXCLOR,Y
  5609  E00250E 0D 0006         		ORA	!WORK6
  5610  E002511 99 7002         		STA	!EXCLOR,Y	; アトリビュートセット！！
  5611  E002514 A9 0040         		LDA	#040H
  5612  E002517 99 7782         		STA	!EXTIM0,Y	; タイマーセット！！
  5613  E00251A A9 FE80         		LDA	#0FE80H
  5614  E00251D 99 71E2         		STA	!EXYSPD,Y	; Ｙスピードセット！！
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0096

  5615                          ;
  5616          002520          EX_COIN_SET_3	EQU	$
  5617  E002520 EE 037B         		INC	COIN_CNT	;コインカウンターｕｐ
  5618  E002523 AD 037B         		LDA	COIN_CNT
  5619  E002526 C9 0064         		CMP	#100
  5620  E002529 90 0D           		BCC	EX_COIN_SET_010 ;１ｕｐ？ ( no:EX_COIN_SET_010 )
  5621                          ;
  5622                          ;-------------- １ｕｐ ------------------------------------------
  5623  E00252B 22 0024A2'      		JSL	>PL_1UP_SET
  5624  E00252F A9 FE40         		LDA	#0FE40H		;ちょっと高く！
  5625  E002532 99 71E2         		STA	EXYSPD,Y
  5626                          ;
  5627  E002535 9C 037B         		STZ	COIN_CNT
  5628          002538          EX_COIN_SET_010 EQU	$
  5629  E002538 6B              		RTL
  5630                          ;
  5631                          ;************************************************************************
  5632                          ;*		enemy X search						*
  5633                          ;*			in  : (Y)    <-- serach enemy index		*
  5634                          ;*			out : (Y)(A) <-- muki 0:left 2:right		*
  5635                          ;*			      (EWK6) <-- ABS( scale )			*
  5636                          ;*			      (EWK8) <-- scale				*
  5637                          ;************************************************************************
  5638          002539          EEXCHK		EQU	$
  5639  E002539 B9 70E2         		LDA	ENXPSL,Y
  5640  E00253C A0 00           		LDY	#00
  5641  E00253E 38              		SEC
  5642  E00253F FD 70E2         		SBC	ENXPSL,X
  5643  E002542 85 08           		STA	<EWORK+8
  5644  E002544 10 06           		BPL	EEX010
  5645  E002546 49 FFFF         		EOR	#0FFFFH
  5646  E002549 1A              		INC	A
  5647  E00254A A0 02           		LDY	#02
  5648          00254C          EEX010		EQU	$
  5649  E00254C 85 06           		STA	<EWORK+6
  5650  E00254E 98              		TYA
  5651  E00254F 6B              		RTL
  5652                          ;
  5653                          ;************************************************************************
  5654                          ;*		enemy Y search						*
  5655                          ;*			in  : (Y)     <-- serach enemy index		*
  5656                          ;*			out : (Y)(A)  <-- muki 0:down 2:up		*
  5657                          ;*			      (EWK12) <-- ABS( scale )			*
  5658                          ;*			      (EWK14) <-- scale				*
  5659                          ;************************************************************************
  5660          002550          EEYCHK		EQU	$
  5661  E002550 A0 00           		LDY	#00
  5662  E002552 B9 7182         		LDA	ENYPSL,Y
  5663  E002555 38              		SEC
  5664  E002556 FD 7182         		SBC	ENYPSL,X
  5665  E002559 85 0E           		STA	<EWORK+14
  5666  E00255B 10 06           		BPL	EEY010
  5667  E00255D 49 FFFF         		EOR	#0FFFFH
  5668  E002560 1A              		INC	A
  5669  E002561 A0 02           		LDY	#02
  5670          002563          EEY010		EQU	$
  5671  E002563 85 0C           		STA	<EWORK+12
  5672  E002565 98              		TYA
  5673  E002566 6B              		RTL
  5674                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0097

  5675                          ;************************************************************************
  5676                          ;*		enemy X,Y search					*
  5677                          ;*			in  : (Y)    <-- serach enemy index		*
  5678                          ;*			out : (Y)(A) <-- muki 0:left 2:right		*
  5679                          ;*					      4:down 6:up		*
  5680                          ;*			      (EWK4)  <-- X muki			*
  5681                          ;*			      (EWK6)  <-- ABS( X scale )		*
  5682                          ;*			      (EWK8)  <-- X scale			*
  5683                          ;*			      (EWK10) <-- Y muki			*
  5684                          ;*			      (EWK12) <-- ABS( Y scale )		*
  5685                          ;*			      (EWK14) <-- Y scale			*
  5686                          ;************************************************************************
  5687          002567          EEXYCK		EQU	$
  5688  E002567 5A              		PHY
  5689  E002568 22 002550'      		JSL	>EEYCHK
  5690  E00256C 84 0A           		STY	<EWORK+10
  5691  E00256E 7A              		PLY
  5692  E00256F 22 002539'      		JSL	>EEXCHK
  5693  E002573 84 04           		STY	<EWORK+4
  5694  E002575 A5 06           		LDA	<EWORK+6
  5695  E002577 C5 0C           		CMP	<EWORK+12
  5696  E002579 B0 06           		BCS	EEXY10		;X search ? ( yes:EEXY10 )
  5697  E00257B A4 0A           		LDY	<EWORK+10
  5698  E00257D C8              		INY
  5699  E00257E C8              		INY
  5700  E00257F C8              		INY
  5701  E002580 C8              		INY
  5702          002581          EEXY10		EQU	$
  5703  E002581 98              		TYA
  5704  E002582 6B              		RTL
  5705                          ;
  5706                          ;************************************************************************
  5707                          ;*		X speed down sub					*
  5708                          ;************************************************************************
  5709          002583          XSDWDT		EQU	$
  5710  E002583 FF40 00C0       		WORD	0FF40H,000C0H	;[0]
  5711  E002587 FFA0 0060       		WORD	0FFA0H,00060H	;ショットされた敵の減速
  5712                          ;
  5713          00258B          XSDOWN2		EQU	$
  5714  E00258B 9B              		TXY
  5715  E00258C A2 04           		LDX	#04
  5716  E00258E 80 03           		BRA	XSD008
  5717  
  5718          002590          XSDOWN		EQU	$
  5719  E002590 9B              		TXY
  5720  E002591 A2 00           		LDX	#00
  5721  
  5722          002593          XSD008		EQU	$
  5723  E002593 B9 7220         		LDA	ENXSPD,Y
  5724  E002596 F0 18           		BEQ	XSD020
  5725  E002598 10 02           		BPL	XSD010
  5726  E00259A E8              		INX
  5727  E00259B E8              		INX
  5728          00259C          XSD010		EQU	$
  5729  E00259C 18              		CLC
  5730  E00259D 7F 002583'      		ADC	>XSDWDT,X
  5731  E0025A1 99 7220         		STA	ENXSPD,Y
  5732  E0025A4 5F 002583'      		EOR	>XSDWDT,X
  5733  E0025A8 30 06           		BMI	XSD020
  5734  E0025AA A9 0000         		LDA	#00
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0098

  5735  E0025AD 99 7220         		STA	ENXSPD,Y
  5736          0025B0          XSD020		EQU	$
  5737  E0025B0 BB              		TYX
  5738  E0025B1 6B              		RTL
  5739                          ;
  5740                          ;
  5741                          ;************************************************************************
  5742                          ;*									*
  5743                          ;*		敵のＯＢＪ衝突チェック					*
  5744                          ;*									*
  5745                          ;************************************************************************
  5746          0025B2          EPCRCK_S	EQU	$
  5747  E0025B2 22 0025B7'      		JSL	>EPCRCK
  5748  E0025B6 6B              		RTL
  5749                          ;
  5750          0025B7          EPCRCK		EQU	$
  5751  E0025B7 BC 7D36         		LDY	ECRSFG,X
  5752  E0025BA F0 34           		BEQ	EPCRTL2		;player or enemy cross ? ( no:EPCRTL2 )
  5753                          ;
  5754  E0025BC 10 70           		BPL	EPC100		;VS player cross ? ( no:EPC100 )
  5755                          ;
  5756                          ;-------------- プレイヤーと衝突！！ ------------------------------------
  5757          0025BE          EPCRCK_P	EQU	$
  5758  E0025BE BD 7D96         		LDA	ENCOLD,X
  5759  E0025C1 F0 06           		BEQ	EPC000		;凍ってる？ ( no:EPC000 )
  5760                          ;
  5761  E0025C3 68              		PLA			;pull pull return !!
  5762  E0025C4 7A              		PLY
  5763  E0025C5 5C 003595'      		JMP	>ICECL_SET
  5764                          ;
  5765          0025C9          EPC000		EQU	$
  5766  E0025C9 BD 7C18         		LDA	EPWIDY,X
  5767  E0025CC 38              		SEC
  5768  E0025CD ED 6122         		SBC	PWIDEY
  5769  E0025D0 38              		SEC
  5770  E0025D1 FD 7BB8         		SBC	EWIDEY,X
  5771  E0025D4 C9 FFF6         		CMP	#0FFF6H
  5772  E0025D7 90 20           		BCC	EPC020		;foot cross ? ( yes:EPC020 )
  5773                          ;
  5774                          ;-------------- プレイヤーが踏んだ ------------------------------
  5775  E0025D9 9B              		TXY
  5776  E0025DA A2 0C           		LDX	#06H*2		;(X) <-- 上に乗る
  5777  E0025DC AD 60AA         		LDA	PLYSPD
  5778  E0025DF 30 09           		BMI	EPC010		;上昇中？ ( yes:EPC010 )
  5779                          ;
  5780  E0025E1 B9 6FA1         		LDA	ENMOD0+1,Y
  5781  E0025E4 29 0038         		AND	#00111000B
  5782  E0025E7 4A              		LSR	A
  5783  E0025E8 4A              		LSR	A
  5784  E0025E9 AA              		TAX
  5785          0025EA          EPC010		EQU	$
  5786  E0025EA FC 2655'        		JSR	(!PL_FUNDA,X)
  5787  E0025ED 68              		PLA			;pull pull return !!
  5788  E0025EE 7A              		PLY
  5789                          ;
  5790          0025EF          EPCRTL		EQU	$
  5791  E0025EF 6B              		RTL
  5792                          ;
  5793          0025F0          EPCRTL2		EQU	$
  5794  E0025F0 EC 61B6         		CPX	PONLFFG			;プレイヤーに乗られてた ?
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0099

  5795  E0025F3 D0 03           		BNE	EPCRTL2800		;  no: EPCRTL2800
  5796  
  5797  E0025F5 9C 61B6         		STZ	PONLFFG
  5798  
  5799          0025F8          EPCRTL2800	EQU	$
  5800  E0025F8 6B              		RTL
  5801                          ;
  5802                          ;-------------- プレイヤーと横当たり ----------------------------
  5803          0025F9          EPC020		EQU	$
  5804  E0025F9 BD 6FA0         		LDA	ENMOD0,X
  5805  E0025FC 29 3800         		AND	#0011100000000000B
  5806  E0025FF C9 2800         		CMP	#0010100000000000B
  5807  E002602 F0 19           		BEQ	EPC024		;ダッシュプレイヤーチェックＯＫ？ ( no:EPC024 )
  5808                          ;
  5809                          ;-------------- ダッシュプレイヤー敵、蹴散らしチェック --
  5810  E002604 AD 60D8         		LDA	PLDASH
  5811  E002607 D0 14           		BNE	EPC024		;プレイヤーダッシュ溜め中？ ( yes:EPC024 )
  5812  E002609 AD 60A8         		LDA	PLXSPD
  5813  E00260C 10 04           		BPL	EPC022
  5814  E00260E 49 FFFF         		EOR	#0FFFFH
  5815  E002611 1A              		INC	A
  5816          002612          EPC022		EQU	$
  5817  E002612 C9 0400         		CMP	#0400H
  5818  E002615 90 06           		BCC	EPC024		;プレイヤーダッシュ中？ ( no:EPC024 )
  5819                          ;
  5820  E002617 68              		PLA			;pull pull return !!
  5821  E002618 7A              		PLY
  5822  E002619 20 21D6'        		JSR	EFALL_INIT_SD
  5823  E00261C 6B              		RTL
  5824                          ;
  5825          00261D          EPC024		EQU	$
  5826  E00261D BD 6FA0         		LDA	ENMOD0,X
  5827  E002620 29 C000         		AND	#1100000000000000B
  5828  E002623 0A              		ASL	A
  5829  E002624 2A              		ROL	A
  5830  E002625 2A              		ROL	A
  5831  E002626 0A              		ASL	A
  5832  E002627 AA              		TAX
  5833  E002628 FC 2665'        		JSR	(!SIDE_CROSS,X)
  5834  E00262B 68              		PLA			;pull pull return !!
  5835  E00262C 7A              		PLY
  5836  E00262D 6B              		RTL
  5837                          ;
  5838                          ;-------------- 敵と衝突！！ --------------------------------------------
  5839          00262E          EPC100		EQU	$
  5840  E00262E EC 61B6         		CPX	PONLFFG		;プレイヤーに乗られてた ?
  5841  E002631 D0 03           		BNE	EPC101		;  no: EPC101
  5842  
  5843  E002633 9C 61B6         		STZ	PONLFFG
  5844  
  5845          002636          EPC101		EQU	$
  5846  E002636 6B              		RTL
  5847                          ;
  5848                          ;************************************************************************
  5849                          ;*		muki EOR set						*
  5850                          ;************************************************************************
  5851          002637          MUKEOR		EQU	$
  5852  E002637 BD 7400         		LDA	ENMUKI,X	;muki EOR
  5853  E00263A 49 0002         		EOR	#02H
  5854  E00263D 9D 7400         		STA	ENMUKI,X
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0100

  5855          002640          XSPEOR		EQU	$
  5856  E002640 BD 7220         		LDA	ENXSPD,X	;X speed EOR
  5857  E002643 49 FFFF         		EOR	#0FFFFH
  5858  E002646 1A              		INC	A
  5859  E002647 9D 7220         		STA	ENXSPD,X
  5860  E00264A 6B              		RTL
  5861                          ;
  5862          00264B          MKEOR2		EQU	$
  5863  E00264B BD 7400         		LDA	ENMUKI,X	;muki EOR
  5864  E00264E 49 0002         		EOR	#02H
  5865  E002651 9D 7400         		STA	ENMUKI,X
  5866          002654          MUKEOR_010	EQU	$
  5867  E002654 6B              		RTL
  5868                          ;
  5869                          ;
  5870                          ;------------------------------------------------------------------------
  5871                          ;-		プレイヤーが踏んだら、どうする？			-
  5872                          ;------------------------------------------------------------------------
  5873          002655          PL_FUNDA	EQU	$		;[ENMOD2 & 0011100000000000B]
  5874  E002655 266D'           		WORD	FUNDA_ENFAIL	;[0] プレイヤーに踏まれてヤラレ
  5875  E002657 26B5'           		WORD	FUNDA_EGG	;[1] タマゴに変わる（緑）
  5876  E002659 26B5'           		WORD	FUNDA_EGG	;[2]	   "       （  ）
  5877  E00265B 26B5'           		WORD	FUNDA_EGG	;[3]	   "       （  ）
  5878  E00265D 26D6'           		WORD	FUNDA_ENCLEAR	;[4] 敵消滅
  5879  E00265F 27A4'           		WORD	PLFAIL_SET_ON	;[5] プレイヤーダメージ
  5880  E002661 26F5'           		WORD	FUNDA_PLON	;[6] プレイヤーが上に乗る
  5881  E002663 2789'           		WORD	FUNDA_ENFALL	;[7] プレイヤーに踏まれて死ぬ
  5882                          ;
  5883                          ;------------------------------------------------------------------------
  5884                          ;-		プレイヤーと横当たったら、どうする？			-
  5885                          ;------------------------------------------------------------------------
  5886          002665          SIDE_CROSS	EQU	$		;[ENMOD0 & 1100000000000000B]
  5887  E002665 27AB'           		WORD	PL_BOUND	;[0] プレイヤーを跳ね返す
  5888  E002667 27A4'           		WORD	PLFAIL_SET_SIDE ;[1] プレイヤーダメージ
  5889  E002669 2806'           		WORD	EN_SHOOT	;[2] 蹴る（オートで食べる）
  5890  E00266B 280B'           		WORD	NO_CROSS	;[3] 当たり無し
  5891                          ;
  5892                          ;
  5893                          ;----------------------------------------------------------------
  5894                          ;-		プレイヤーに踏まれてヤラレ			-
  5895                          ;----------------------------------------------------------------
  5896          00266D          FUNDA_ENFAIL	EQU	$
  5897  E00266D AD 60C0         		LDA	PLJUMP
  5898  E002670 D0 03           		BNE	FUNDA_ENFAIL_10 ;プレイヤージャンプ中？ ( yes:FUNDA_ENFAIL_10 )
  5899                          ;
  5900  E002672 4C 27A4'        		JMP	PLFAIL_SET_ON
  5901                          ;
  5902          002675          FUNDA_ENFAIL_10 EQU	$
  5903  E002675 A6 12           		LDX	<ENINDX
  5904  E002677 BD 7C16         		LDA	EPWIDX,X
  5905  E00267A 0A              		ASL	A
  5906  E00267B 0A              		ASL	A
  5907  E00267C 0A              		ASL	A
  5908  E00267D 0A              		ASL	A
  5909  E00267E 9D 7220         		STA	ENXSPD,X
  5910  E002681 9E 7540         		STZ	ENXPOW,X
  5911  E002684 9E 7222         		STZ	ENYSPD,X
  5912  E002687 A9 0400         		LDA	#0400H
  5913  E00268A 9D 75E2         		STA	ENGMAX,X	;max G power set
  5914  E00268D A9 0040         		LDA	#040H
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0101

  5915  E002690 9D 7542         		STA	ENGPOW,X	;G power set
  5916  E002693 A9 FC00         		LDA	#0FC00H		;player Y speed set
  5917  E002696 8D 60AA         		STA	PLYSPD
  5918  E002699 A9 8001         		LDA	#01H+8000H
  5919  E00269C 8D 60D2         		STA	PLSPJP		;ジタバタジャンプフラグ”ＯＮ”
  5920                          ;
  5921                          ;-------------- 敵の死亡セット ------------------------------------------
  5922  E00269F A9 000E         		LDA	#EFAIL		;ヤラレモードセット
  5923  E0026A2 9D 6F00         		STA	ENMODE,X
  5924  E0026A5 22 003288'      		JSL	>ENDEATH_SET_2
  5925                          ;
  5926  E0026A9 AC 0146         		LDY	DSPMOD
  5927  E0026AC C0 09           		CPY	#09H
  5928  E0026AE F0 04           		BEQ	FUNDA_ENFAIL_20 ;ボスＱちゃん？ ( yes:FUNDA_ENFAIL_20 )
  5929                          ;
  5930  E0026B0 22 003523'      		JSL	>FSMK0_SET3_2
  5931          0026B4          FUNDA_ENFAIL_20 EQU	$
  5932  E0026B4 60              		RTS
  5933                          ;
  5934                          ;----------------------------------------------------------------
  5935                          ;-		タマゴに変わる					-
  5936                          ;----------------------------------------------------------------
  5937          0026B5          FUNDA_EGG	EQU	$
  5938  E0026B5 A6 12           		LDX	<ENINDX
  5939  E0026B7 A0 3A           		LDY	#03AH		;[♪] (Y) <-- サウウンドフラグ
  5940  E0026B9 22 0020E7'      		JSL	>PDON0ST_2	;"Doon" set
  5941                          ;
  5942          0026BD          FUNDA_EGG_030	EQU	$
  5943  E0026BD A9 000E         		LDA	#EFAIL
  5944  E0026C0 9D 6F00         		STA	ENMODE,X
  5945  E0026C3 9E 7220         		STZ	ENXSPD,X
  5946  E0026C6 9E 7222         		STZ	ENYSPD,X
  5947  E0026C9 A9 FC00         		LDA	#0FC00H		;player Y speed set
  5948  E0026CC 8D 60AA         		STA	PLYSPD
  5949  E0026CF A9 8001         		LDA	#01H+8000H
  5950  E0026D2 8D 60D2         		STA	PLSPJP		;ジタバタジャンプフラグ”ＯＮ”
  5951          0026D5          FUNDA_EGG_040	EQU	$
  5952  E0026D5 60              		RTS
  5953                          ;
  5954                          ;----------------------------------------------------------------
  5955                          ;-		敵消滅						-
  5956                          ;----------------------------------------------------------------
  5957          0026D6          FUNDA_ENCLEAR	EQU	$
  5958  E0026D6 A9 FC00         		LDA	#0FC00H		;player Y speed set
  5959  E0026D9 8D 60AA         		STA	PLYSPD
  5960  E0026DC A9 8001         		LDA	#01H+8000H
  5961  E0026DF 8D 60D2         		STA	PLSPJP		;ジタバタジャンプフラグ”ＯＮ”
  5962  E0026E2 A6 12           		LDX	<ENINDX
  5963  E0026E4 22 0034D6'      		JSL	>FSMK2_SET
  5964  E0026E8 22 003288'      		JSL	>ENDEATH_SET_2	;敵の死亡セット
  5965  E0026EC 22 00231E'      		JSL	>ENCLEAR
  5966  E0026F0 60              		RTS
  5967                          ;
  5968                          ;----------------------------------------------------------------
  5969                          ;-		プレイヤーが上に乗る				-
  5970                          ;----------------------------------------------------------------
  5971          0026F1          PLON_XHSOK_BGC	EQU	$
  5972  E0026F1 0180 0060       		WORD	110000000B,001100000B
  5973                          ;
  5974          0026F5          FUNDA_PLON	EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0102

  5975  E0026F5 A6 12           		LDX	<ENINDX
  5976  E0026F7 AD 60D4         		LDA	PLDOSN
  5977  E0026FA F0 0B           		BEQ	FUNDA_PLON_010	;プレイヤー”ドスーン！！”？ ( no:FUNDA_PLON_010 )
  5978                          ;
  5979  E0026FC BD 6FA2         		LDA	ENMOD1,X
  5980  E0026FF 29 6000         		AND	#0110000000000000B
  5981  E002702 D0 03           		BNE	FUNDA_PLON_010	;敵？ ( no:FUNDA_PLON_010 )
  5982  E002704 4C 2789'        		JMP	FUNDA_ENFALL
  5983                          ;
  5984                          ;-------------- プレイヤーが上に乗る ------------
  5985          002707          FUNDA_PLON_010	EQU	$
  5986  E002707 AD 0D94         		LDA	PLEATFG			;プレイヤー食われてる ?
  5987  E00270A F0 0A           		BEQ	FUNDA_PLON_013		;  no: FUNDA_PLON_013
  5988  
  5989  E00270C EC 61B6         		CPX	PONLFFG			;プレイヤー乗せてた ?
  5990  E00270F D0 76           		BNE	FUNDA_PLON_020		;  no: FUNDA_PLON_020
  5991  
  5992  E002711 9C 61B6         		STZ	PONLFFG
  5993  E002714 80 71           		BRA	FUNDA_PLON_020
  5994  
  5995          002716          FUNDA_PLON_013	EQU	$
  5996  E002716 BD 6FA0         		LDA	ENMOD0,X		;プレイヤー乗せる ?
  5997  E002719 29 3800         		AND	#0011100000000000B	;
  5998  E00271C C9 3000         		CMP	#0011000000000000B	;
  5999  E00271F D0 10           		BNE	FUNDA_PLON_016		;  no: FUNDA_PLON_016
  6000  
  6001  E002721 EC 61B6         		CPX	PONLFFG			;プレイヤー乗せてた ?
  6002  E002724 F0 08           		BEQ	FUNDA_PLON_015		; yes: FUNDA_PLON_015
  6003  
  6004  E002726 AD 61B6         		LDA	PONLFFG
  6005  E002729 29 00FF         		AND	#000FFH
  6006  E00272C D0 59           		BNE	FUNDA_PLON_020
  6007  
  6008          00272E          FUNDA_PLON_015	EQU	$
  6009  E00272E 8E 61B6         		STX	PONLFFG
  6010  
  6011          002731          FUNDA_PLON_016	EQU	$
  6012  E002731 AD 60FC         		LDA	PLBGCR
  6013  E002734 29 0018         		AND	#000011000B
  6014  E002737 D0 20           		BNE	FUNDA_PLON_017	;頭ＢＧ当たり？ ( yes:FUNDA_PLON_017 )
  6015                          ;
  6016  E002739 BD 7C18         		LDA	EPWIDY,X
  6017  E00273C 38              		SEC
  6018  E00273D ED 6122         		SBC	PWIDEY
  6019  E002740 38              		SEC
  6020  E002741 FD 7BB8         		SBC	EWIDEY,X
  6021  E002744 38              		SEC
  6022  E002745 6D 6090         		ADC	PLYPSL
  6023  E002748 8D 6090         		STA	PLYPSL		;player foot pos hosei
  6024  E00274B BD 7182         		LDA	ENYPSL,X
  6025  E00274E 38              		SEC
  6026  E00274F ED 6EBE         		SBC	ENYP2L
  6027  E002752 38              		SEC
  6028  E002753 6D 6090         		ADC	PLYPSL
  6029  E002756 8D 6090         		STA	PLYPSL
  6030                          ;
  6031          002759          FUNDA_PLON_017	EQU	$
  6032  E002759 AD 60AA         		LDA	PLYSPD
  6033  E00275C 30 29           		BMI	FUNDA_PLON_020	;プレイヤー上昇中？ ( yes:FUNDA_PLON_020 )
  6034                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0103

  6035  E00275E BD 7222         		LDA	ENYSPD,X
  6036  E002761 10 03           		BPL	FUNDA_PLON_018
  6037  E002763 A9 0000         		LDA	#00
  6038          002766          FUNDA_PLON_018	EQU	$
  6039  E002766 8D 60AA         		STA	PLYSPD
  6040  E002769 A0 00           		LDY	#0
  6041  E00276B BD 72C0         		LDA	ENMOVX,X
  6042  E00276E 30 02           		BMI	FUNDA_PLON_019	;左へ補正？ ( yes:FUNDA_PLON_019 )
  6043  E002770 A0 02           		LDY	#2
  6044          002772          FUNDA_PLON_019	EQU	$
  6045  E002772 AD 60FC         		LDA	PLBGCR
  6046  E002775 39 26F1'        		AND	!PLON_XHSOK_BGC,Y
  6047  E002778 D0 0A           		BNE	FUNDA_PLON_0190 ;補正方向ＢＧ当たり？ ( yes:FUNDA_PLON_0190 )
  6048                          ;
  6049  E00277A BD 72C0         		LDA	ENMOVX,X
  6050  E00277D 18              		CLC
  6051  E00277E 6D 608C         		ADC	PLXPSL
  6052  E002781 8D 608C         		STA	PLXPSL		;player X pos hosei
  6053          002784          FUNDA_PLON_0190 EQU	$
  6054  E002784 EE 61B4         		INC	ONLFFG		;lift on set
  6055          002787          FUNDA_PLON_020	EQU	$
  6056  E002787 68              		PLA			;[ pull pull return !! ]
  6057  E002788 6B              		RTL
  6058                          ;
  6059                          ;----------------------------------------------------------------
  6060                          ;-		プレイヤーに踏まれて死ぬ			-
  6061                          ;----------------------------------------------------------------
  6062          002789          FUNDA_ENFALL	EQU	$
  6063  E002789 A6 12           		LDX	<ENINDX
  6064  E00278B 22 00351F'      		JSL	>FSMK0_SET3
  6065                          ;
  6066  E00278F A9 FC00         		LDA	#0FC00H		;player Y speed set
  6067  E002792 8D 60AA         		STA	PLYSPD
  6068  E002795 A9 8001         		LDA	#01H+8000H
  6069  E002798 8D 60D2         		STA	PLSPJP		;ジタバタジャンプフラグ”ＯＮ”
  6070          00279B          RTSSUB		EQU	$
  6071  E00279B 60              		RTS
  6072                          ;
  6073          00279C          FUNDA_ENFALL_L	EQU	$
  6074  E00279C 20 2789'        		JSR	FUNDA_ENFALL
  6075  E00279F 6B              		RTL
  6076                          ;
  6077                          ;----------------------------------------------------------------
  6078                          ;-		プレイヤーダメージセット			-
  6079                          ;----------------------------------------------------------------
  6080          0027A0          PLFAIL_EJMP_YSP EQU	$
  6081  E0027A0 0100 FF00       		WORD	00100H,0FF00H
  6082                          ;
  6083          0027A4          PLFAIL_SET_SIDE EQU	$
  6084          0027A4          PLFAIL_SET_ON	EQU	$
  6085  E0027A4 A6 12           		LDX	<ENINDX
  6086  E0027A6 22 002858'      		JSL	>PLFLST		;player fail set
  6087                          ;
  6088          0027AA          PLFAIL_SET_010	EQU	$
  6089  E0027AA 60              		RTS
  6090                          ;
  6091                          ;
  6092                          ;----------------------------------------------------------------
  6093                          ;-		プレイヤーを跳ね返す				-
  6094                          ;----------------------------------------------------------------
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0104

  6095          0027AB          PL_BOUND	EQU	$
  6096  E0027AB A6 12           		LDX	<ENINDX
  6097  E0027AD AD 60A8         		LDA	PLXSPD
  6098  E0027B0 1D 7220         		ORA	ENXSPD,X
  6099  E0027B3 F0 E6           		BEQ	RTSSUB		;player & enemy not move ? ( yes:RTSSUB )
  6100                          ;
  6101                          		I16
  6101+ E0027B5 C2 10           		REP	#00010000b	
  6102                          ;
  6103  E0027B7 AD 60A8         		LDA	PLXSPD
  6104  E0027BA 5D 7220         		EOR	ENXSPD,X
  6105  E0027BD 0A              		ASL	A		;(C) <-- player & enemy speed muki check
  6106  E0027BE AD 60A8         		LDA	PLXSPD
  6107  E0027C1 48              		PHA
  6108  E0027C2 BD 7220         		LDA	ENXSPD,X
  6109  E0027C5 A8              		TAY
  6110  E0027C6 5D 7C16         		EOR	EPWIDX,X
  6111  E0027C9 30 07           		BMI	PL_BOUND_010
  6112  E0027CB B0 14           		BCS	PL_BOUND_030
  6113  E0027CD 9C 60A8         		STZ	PLXSPD
  6114  E0027D0 80 0F           		BRA	PL_BOUND_030
  6115                          ;
  6116          0027D2          PL_BOUND_010	EQU	$
  6117  E0027D2 B0 0A           		BCS	PL_BOUND_020
  6118  E0027D4 98              		TYA
  6119  E0027D5 38              		SEC
  6120  E0027D6 ED 60A8         		SBC	PLXSPD
  6121  E0027D9 4D 60A8         		EOR	PLXSPD
  6122  E0027DC 30 03           		BMI	PL_BOUND_030
  6123          0027DE          PL_BOUND_020	EQU	$
  6124  E0027DE 8C 60A8         		STY	PLXSPD
  6125          0027E1          PL_BOUND_030	EQU	$
  6126  E0027E1 68              		PLA
  6127  E0027E2 A8              		TAY
  6128  E0027E3 5D 7C16         		EOR	EPWIDX,X
  6129  E0027E6 10 07           		BPL	PL_BOUND_040
  6130  E0027E8 B0 15           		BCS	PL_BOUND_060
  6131  E0027EA 9E 7220         		STZ	ENXSPD,X
  6132  E0027ED 80 10           		BRA	PL_BOUND_060
  6133                          ;
  6134          0027EF          PL_BOUND_040	EQU	$
  6135  E0027EF B0 0A           		BCS	PL_BOUND_050
  6136  E0027F1 98              		TYA
  6137  E0027F2 38              		SEC
  6138  E0027F3 FD 7220         		SBC	ENXSPD,X
  6139  E0027F6 5D 7220         		EOR	ENXSPD,X
  6140  E0027F9 30 04           		BMI	PL_BOUND_060
  6141          0027FB          PL_BOUND_050	EQU	$
  6142  E0027FB 98              		TYA
  6143  E0027FC 9D 7220         		STA	ENXSPD,X
  6144          0027FF          PL_BOUND_060	EQU	$
  6145                          ;
  6146                          		I8
  6146+ E0027FF E2 10           		SEP	#00010000b	
  6147                          ;
  6148  E002801 22 0020E5'      		JSL	>PDON0ST	;"Doon" set
  6149  E002805 60              		RTS
  6150                          ;
  6151                          ;----------------------------------------------------------------
  6152                          ;-		蹴る						-
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0105

  6153                          ;----------------------------------------------------------------
  6154          002806          EN_SHOOT	EQU	$
  6155  E002806 A6 12           		LDX	<ENINDX
  6156  E002808 4C 21D6'        		JMP	EFALL_INIT_SD
  6157                          ;
  6158                          ;----------------------------------------------------------------
  6159                          ;-		当たり無し					-
  6160                          ;----------------------------------------------------------------
  6161          00280B          NO_CROSS	EQU	$
  6162  E00280B A6 12           		LDX	<ENINDX
  6163  E00280D 68              		PLA			;[ pull pull return !! ]
  6164  E00280E 6B              		RTL
  6165                          ;
  6166                          ;----------------------------------------------------------------
  6167                          ;-		プレイヤーダメージセット			-
  6168                          ;----------------------------------------------------------------
  6169          00280F          PLFLST2_EJMP_YSP EQU	$
  6170  E00280F 0100 FF00       		WORD	00100H,0FF00H
  6171                          ;
  6172          002813          PLFLST_2	EQU	$
  6173  E002813 A6 12           		LDX	<ENINDX
  6174  E002815 AD 61D6         		LDA	PLFLSH
  6175  E002818 D0 36           		BNE	PLFLST_2800	;player safty ? ( yes:PLFLST_2800 )
  6176                          ;
  6177  E00281A BD 6FA2         		LDA	ENMOD1,X
  6178  E00281D 29 6000         		AND	#0110000000000000B
  6179  E002820 D0 28           		BNE	PLFAIL_2_SET	;敵？ ( no:PLFAIL_2_SET )
  6180                          ;
  6181  E002822 FE 7D38         		INC	ENSHOT,X	;enemy shot flag "ON" !!
  6182  E002825 74 18           		STZ	<ENWRK0,X	;bound flag set
  6183  E002827 A9 0400         		LDA	#0400H
  6184  E00282A 9D 75E2         		STA	ENGMAX,X	;max G power set
  6185  E00282D A9 0040         		LDA	#040H
  6186  E002830 9D 7542         		STA	ENGPOW,X	;G power set
  6187  E002833 9E 7540         		STZ	ENXPOW,X	;X power set
  6188  E002836 9E 7860         		STZ	ENCBFG,X	;行ったり来りしない様に
  6189                          ;
  6190  E002839 9B              		TXY
  6191  E00283A BE 77C2         		LDX	EPXMUK,Y
  6192  E00283D BF 0027A0'      		LDA	>PLFAIL_EJMP_YSP,X
  6193  E002841 99 7220         		STA	ENXSPD,Y
  6194  E002844 A9 FE00         		LDA	#0FE00H
  6195  E002847 99 7222         		STA	ENYSPD,Y
  6196                          ;
  6197          00284A          PLFAIL_2_SET	EQU	$
  6198  E00284A A6 12           		LDX	<ENINDX
  6199  E00284C 22 002858'      		JSL	>PLFLST		;player fail set
  6200          002850          PLFLST_2800	EQU	$
  6201  E002850 68              		PLA			;pull pull return !!
  6202  E002851 7A              		PLY
  6203  E002852 6B              		RTL
  6204                          ;
  6205                          ;
  6206                          ;************************************************************************
  6207                          ;*		player fail initial set					*
  6208                          ;************************************************************************
  6209          002853          PLFLST_S	EQU	$
  6210  E002853 9C 7972         		STZ	ENINDX		;敵以外との当たり！！
  6211  E002856 80 0D           		BRA	PLFLST_FFF
  6212                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0106

  6213          002858          PLFLST		EQU	$
  6214  E002858 AD 7E04         		LDA	SUPER_FLAG
  6215  E00285B F0 08           		BEQ	PLFLST_FFF	;無敵？ ( no:PLFLST_FFF )
  6216                          ;
  6217                          ;-------------- 無敵 敵蹴散らし！！ -------------------------------------
  6218  E00285D AC 7972         		LDY	ENINDX
  6219  E002860 F0 37           		BEQ	PLFLST_010	;敵以外との当たり？ ( yes:PLFLST_010 )
  6220  E002862 4C 325B'        		JMP	ENDEATH_SET_4
  6221                          ;
  6222          002865          PLFLST_FFF	EQU	$
  6223  E002865 AD 61D6         		LDA	PLFLSH
  6224  E002868 0D 61AE         		ORA	PLSTFG
  6225                          ;
  6226  E00286B 0D 10DA         		ORA	FUFUFU		;[ デバックモード ]
  6227                          ;
  6228  E00286E D0 29           		BNE	PLFLST_010	;player safty ? ( yes:PLFLST_010 )
  6229  E002870 AD 60AC         		LDA	PLMODE		;[ CMP #PMOV ]
  6230  E002873 C9 0001"        		CMP	#PDEM+1
  6231  E002876 B0 21           		BCS	PLFLST_010	;プレイヤーモードＯＫ？ ( no:PLFLST_010 )
  6232  E002878 AD 60B2         		LDA	PLDSYL
  6233  E00287B 18              		CLC
  6234  E00287C 69 0010         		ADC	#010H
  6235                          ;;;;		    CMP	    #0B8H+010H+1
  6236  E00287F C9 00E9         		CMP	#0D8H+010H+1
  6237  E002882 B0 15           		BCS	PLFLST_010	;表示中？ ( no:PLFLST_010 )
  6238                          ;
  6239  E002884 A9 0017         		LDA	#017H		;[♪]
  6240  E002887 22 000000"      		JSL	>SOUND_3_ON
  6241  E00288B 8D 607A         		STA	MSOUND3		;[ Ｍ−ｃｈｉｐからのＣａｌｌ時の為 ]
  6242                          ;
  6243  E00288E 9C 60D4         		STZ	PLDOSN		;”ドスーン！！”リセット
  6244                          ;
  6245  E002891 AE 60AE         		LDX	PLTYPE
  6246  E002894 FC 289A'        		JSR	(!FLSTSEL,X)
  6247                          ;
  6248  E002897 A6 12           		LDX	<ENINDX
  6249          002899          PLFLST_010	EQU	$
  6250  E002899 6B              		RTL
  6251                          ;
  6252                          ;------------------------------------------------------------------------
  6253                          ;-		ダメージ初期セット					-
  6254                          ;------------------------------------------------------------------------
  6255          00289A          FLSTSEL		EQU	$
  6256  E00289A 28CF'           		WORD	YOSSYFLST	;普通のヨッシー
  6257  E00289C 28FC'           		WORD	CARFLST		;クルマ
  6258  E00289E 2936'           		WORD	MOGURAFLST	;モグラ
  6259  E0028A0 28AE'           		WORD	HERIFLST	;ヘリコプター
  6260  E0028A2 28C1'           		WORD	TRAINFLST	;汽車
  6261  E0028A4 294A'           		WORD	KASAKFLST	;キノコ
  6262  E0028A6 2940'           		WORD	SUBMRFLST	;潜水艦
  6263                          ;;;;		    WORD    BOMBFLST	    ;ばくだんくん
  6264  E0028A8 294B'           		WORD	SKIFLST		;スキー
  6265  E0028AA 2901'           		WORD	MARIOFLST	;マリオ
  6266  E0028AC 28D3'           		WORD	EGGFLST		;タマゴ
  6267                          ;
  6268                          ;
  6269                          ;----------------------------------------------------------------
  6270                          ;-		ヘリコプター					-
  6271                          ;----------------------------------------------------------------
  6272          0028AE          HERIFLST	EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0107

  6273  E0028AE A9 0068         		LDA	#40H+(8*3)+10H	;player safty timer set
  6274  E0028B1 8D 61D6         		STA	PLFLSH
  6275                          ;
  6276  E0028B4 9C 60A8         		STZ	PLXSPD		;Ｘスピードクリアー
  6277  E0028B7 9C 60B4         		STZ	PLMVSP
  6278  E0028BA A9 1000         		LDA	#1000H		;回転スピードセット
  6279  E0028BD 8D 6180         		STA	PHR_ANSP
  6280  E0028C0 60              		RTS
  6281                          ;
  6282                          ;----------------------------------------------------------------
  6283                          ;-		汽車						-
  6284                          ;----------------------------------------------------------------
  6285          0028C1          TRAINFLST	EQU	$
  6286  E0028C1 A9 0090         		LDA	#50H+040H	;player safty timer set
  6287  E0028C4 8D 61D6         		STA	PLFLSH
  6288  E0028C7 9C 618E         		STZ	PTR_FLCT	;ダメージカウンターリセット
  6289  E0028CA 60              		RTS
  6290                          ;
  6291                          ;;;;;----------------------------------------------------------------
  6292                          ;;;;;-		    爆弾君					    -
  6293                          ;;;;;----------------------------------------------------------------
  6294                          ;;;;BOMBFLST	    EQU	    $
  6295                          ;;;;		    INC	    PLDMGF	    ;ダメージフラグセット
  6296                          ;;;;		    BRA	    YOSSYFLST_0050
  6297                          ;
  6298                          ;----------------------------------------------------------------
  6299                          ;-		普通のプレイヤー				-
  6300                          ;----------------------------------------------------------------
  6301          0028CB          YSFAIL_XSP	EQU	$
  6302                          ; EPXMUK -->		  [0]	 [2]
  6303  E0028CB FE00 0200       		WORD	0FE00H,00200H
  6304                          ;
  6305          0028CF          YOSSYFLST	EQU	$
  6306  E0028CF 22 000000"      		JSL	>BERO_CANCEL	;舌ショットキャンセル
  6307                          ;
  6308          0028D3          EGGFLST		EQU	$
  6309  E0028D3 AD 61B2         		LDA	BABYNO
  6310  E0028D6 30 1F           		BMI	YOSSYFLST_0050	;赤ちゃん乗ってる？ ( yes:YOSSYFLST_0050 )
  6311  E0028D8 AD 0390         		LDA	ENMYNSFG
  6312  E0028DB 30 1A           		BMI	YOSSYFLST_0050	;へいほー乗ってる？ ( yes:YOSSYFLST_0050 )
  6313                          ;
  6314  E0028DD AD 60A8         		LDA	PLXSPD
  6315  E0028E0 18              		CLC
  6316  E0028E1 69 02C0         		ADC	#02C0H
  6317  E0028E4 C9 0581         		CMP	#02C0H*2+1
  6318  E0028E7 A9 0180         		LDA	#0180H		;プレイヤー回転ダメージ
  6319  E0028EA 90 03           		BCC	YOSSYFLST_0010
  6320  E0028EC A9 0240         		LDA	#0240H		;プレイヤー回転ダメージ（ダウン）
  6321          0028EF          YOSSYFLST_0010	EQU	$
  6322  E0028EF 8D 614A         		STA	PROTSP
  6323  E0028F2 A9 0080         		LDA	#080H		;(A) <-- player safty timer set
  6324  E0028F5 80 0D           		BRA	YOSSYFLST_0100
  6325                          ;
  6326                          ;
  6327                          ;
  6328          0028F7          YOSSYFLST_0050	EQU	$
  6329  E0028F7 A9 00A0         		LDA	#40H+(8*3*2)+10H+32 ;player safty timer set
  6330  E0028FA 80 08           		BRA	YOSSYFLST_0100
  6331                          ;
  6332                          ;----------------------------------------------------------------
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0108

  6333                          ;-		クルマ						-
  6334                          ;-		マリオ						-
  6335                          ;----------------------------------------------------------------
  6336          0028FC          CARFLST		EQU	$
  6337  E0028FC A9 0040         		LDA	#40H		;player safty timer set
  6338  E0028FF 80 03           		BRA	YOSSYFLST_0100
  6339                          ;
  6340          002901          MARIOFLST	EQU	$
  6341  E002901 A9 0068         		LDA	#40H+(8*3)+10H	;player safty timer set
  6342          002904          YOSSYFLST_0100	EQU	$
  6343  E002904 8D 61D6         		STA	PLFLSH
  6344                          ;
  6345  E002907 AC 7972         		LDY	ENINDX
  6346  E00290A F0 0B           		BEQ	YOSSYFLST_0110	;敵以外との当たり？ ( yes:YOSSYFLST_0110 )
  6347                          ;
  6348  E00290C BE 77C2         		LDX	EPXMUK,Y	;プレイヤー跳ね返りＸスピードセット
  6349  E00290F BF 0028CB'      		LDA	>YSFAIL_XSP,X
  6350  E002913 BB              		TYX
  6351  E002914 8D 60B4         		STA	PLMVSP
  6352          002917          YOSSYFLST_0110	EQU	$
  6353  E002917 AC 60AE         		LDY	PLTYPE
  6354  E00291A C0 02           		CPY	#P_CAR
  6355  E00291C F0 05           		BEQ	YOSSYFLST_0111
  6356  
  6357  E00291E AD 60C0         		LDA	PLJUMP
  6358  E002921 D0 0C           		BNE	YOSSYFLST_0120	;プレイヤージャンプ中？ ( yes:YOSSYFLST_0120 )
  6359                          ;
  6360          002923          YOSSYFLST_0111	EQU	$
  6361  E002923 A9 0008         		LDA	#P008		;プレイヤージャンプフラグセット
  6362  E002926 8D 60C0         		STA	PLJUMP
  6363  E002929 A9 FC00         		LDA	#0FC00H		;プレイヤー跳ね返りＹスピードセット
  6364  E00292C 8D 60AA         		STA	PLYSPD
  6365          00292F          YOSSYFLST_0120	EQU	$
  6366  E00292F A9 0008         		LDA	#08H		;プレイヤーダメージタイマーセット
  6367  E002932 8D 0CCC         		STA	PLFLTM
  6368  E002935 60              		RTS
  6369                          ;
  6370                          ;----------------------------------------------------------------
  6371                          ;-		 モグラ						-
  6372                          ;----------------------------------------------------------------
  6373          002936          MOGURAFLST	EQU	$
  6374  E002936 A9 0090         		LDA	#50H+040H	;player safty timer set
  6375  E002939 8D 61D6         		STA	PLFLSH
  6376  E00293C 9C 6194         		STZ	PMG_FLCT	;ダメージカウンターリセット
  6377  E00293F 60              		RTS
  6378                          ;
  6379                          ;----------------------------------------------------------------
  6380                          ;-		潜水艦						-
  6381                          ;----------------------------------------------------------------
  6382          002940          SUBMRFLST	EQU	$
  6383  E002940 A9 00D0         		LDA	#50H+080H	;player safty timer set
  6384  E002943 8D 61D6         		STA	PLFLSH
  6385  E002946 9C 6180         		STZ	PSB_FLCT	;ダメージカウンターリセット
  6386  E002949 60              		RTS
  6387                          ;
  6388                          ;----------------------------------------------------------------
  6389                          ;-		car yoshi fail initial set			-
  6390                          ;----------------------------------------------------------------
  6391          00294A          KASAKFLST	EQU	$
  6392  E00294A 60              		RTS
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0109

  6393                          ;
  6394                          ;----------------------------------------------------------------
  6395                          ;-		 スキーヨッシー					-
  6396                          ;----------------------------------------------------------------
  6397          00294B          SKIFLST		EQU	$
  6398  E00294B AD 6180         		LDA	PSK_FAIL
  6399  E00294E D0 15           		BNE	SKIFLST_0010	;すでに転んでる？ ( yes:SKIFLST_0010 )
  6400                          ;
  6401  E002950 A9 0080         		LDA	#080H		;転びフラグセット
  6402  E002953 8D 6180         		STA	PSK_FAIL
  6403  E002956 A9 0080         		LDA	#080H		;転びタイマーセット
  6404  E002959 8D 61F6         		STA	PSK_TIM0
  6405  E00295C A9 FE00         		LDA	#0FE00H		;ジャンプＹスピードセット
  6406  E00295F 8D 60AA         		STA	PLYSPD
  6407  E002962 9C 617E         		STZ	PSK_ANGL
  6408          002965          SKIFLST_0010	EQU	$
  6409  E002965 60              		RTS
  6410                          ;
  6411                          ;************************************************************************
  6412                          ;*		angle calculate						*
  6413                          ;*			in  : (EWK0,1) <-- X wide			*
  6414                          ;*			      (EWK2,3) <-- Y  "                         *
  6415                          ;*			out : (A) <-- angle				*
  6416                          ;************************************************************************
  6417          002966          ANGCKD		EQU	$	;[ ???H/2+[XXH] : XXH = NEG flag ]
  6418  E002966 0000 8040 8000  		WORD	000H/2+0000H,080H/2+8000H,000H/2+8000H,180H/2+0000H
        E00296C 00C0 
  6419  E00296E 8080 0040 0080  		WORD	100H/2+8000H,080H/2+0000H,100H/2+0000H,180H/2+8000H
        E002974 80C0 
  6420                          ;
  6421          002976          ANGLCAL		EQU	$
  6422  E002976 DA              		PHX			;(X) save
  6423                          ;
  6424  E002977 A0 00           		LDY	#00H		;(Y) <-- angle pos check data
  6425  E002979 A5 00           		LDA	<EWORK0
  6426  E00297B 10 06           		BPL	ANCL010
  6427  E00297D A0 04           		LDY	#04H
  6428  E00297F 49 FFFF         		EOR	#0FFFFH
  6429  E002982 1A              		INC	A
  6430          002983          ANCL010		EQU	$
  6431  E002983 85 04           		STA	<EWORK4		;(EWK4,5) <-- ABS( X wide )
  6432  E002985 AA              		TAX
  6433                          ;
  6434  E002986 A5 02           		LDA	<EWORK2
  6435  E002988 10 06           		BPL	ANCL020
  6436  E00298A C8              		INY
  6437  E00298B C8              		INY
  6438  E00298C 49 FFFF         		EOR	#0FFFFH
  6439  E00298F 1A              		INC	A
  6440          002990          ANCL020		EQU	$
  6441  E002990 C5 04           		CMP	<EWORK4
  6442  E002992 90 04           		BCC	ANCL030		;X < Y ? ( yes:ANCL030 )
  6443  E002994 C8              		INY
  6444  E002995 AA              		TAX
  6445  E002996 A5 04           		LDA	<EWORK4
  6446          002998          ANCL030		EQU	$
  6447  E002998 EB              		XBA
  6448  E002999 8D 4204         		STA	4204H		;div
  6449  E00299C 8E 4206         		STX	4206H
  6450                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0110

  6451  E00299F 98              		TYA			;---+
  6452  E0029A0 0A              		ASL	A		;   |
  6453  E0029A1 AA              		TAX			;   |
  6454  E0029A2 EA              		NOP			;   |
  6455  E0029A3 EA              		NOP			;   +--- 16 cycle wait
  6456  E0029A4 EA              		NOP			;   |
  6457  E0029A5 EA              		NOP			;   |
  6458                          ;					;   |
  6459                          		I16			;---+
  6459+ E0029A6 C2 10           		REP	#00010000b	
  6460                          ;
  6461  E0029A8 AD 4214         		LDA	4214H		;(X) <-- div ans
  6462  E0029AB 0A              		ASL	A
  6463  E0029AC A8              		TAY
  6464  E0029AD C0 0202         		CPY	#(0100H+1)*2
  6465  E0029B0 90 03           		BCC	ANCL040
  6466  E0029B2 A0 0200         		LDY	#(0100H*2)
  6467          0029B5          ANCL040		EQU	$
  6468  E0029B5 BF 002966'      		LDA	>ANGCKD,X
  6469  E0029B9 0A              		ASL	A		;(C) <-- NEG flag
  6470  E0029BA 85 04           		STA	<EWORK4
  6471  E0029BC BB              		TYX
  6472  E0029BD BF 0BA010       		LDA	>ATAN,X
  6473  E0029C1 90 04           		BCC	ANCL050
  6474  E0029C3 49 FFFF         		EOR	#0FFFFH
  6475  E0029C6 1A              		INC	A
  6476          0029C7          ANCL050		EQU	$
  6477  E0029C7 18              		CLC
  6478  E0029C8 65 04           		ADC	<EWORK4		;(A) <-- angle
  6479                          ;
  6480                          		I8
  6480+ E0029CA E2 10           		SEP	#00010000b	
  6481                          ;
  6482  E0029CC FA              		PLX
  6483  E0029CD 6B              		RTL
  6484                          ;
  6485                          ;************************************************************************
  6486                          ;*									*
  6487                          ;*		転送エリアセットデータ					*		       *
  6488                          ;*									*
  6489                          ;************************************************************************
  6490                          ;
  6491                          ;-------------- プロットＸ座標 ------------------------------------------
  6492          0029CE          TROBJ_PLOT_X	EQU	$
  6493  E0029CE 0000            		WORD	000H	 ;[0]
  6494  E0029D0 0010            		WORD	010H	 ;[1]
  6495  E0029D2 0000            		WORD	000H	 ;[2]
  6496  E0029D4 0010            		WORD	010H	 ;[3]
  6497  E0029D6 0020            		WORD	020H	 ;[4]
  6498  E0029D8 0030            		WORD	030H	 ;[5]
  6499  E0029DA 0020            		WORD	020H	 ;[6]
  6500  E0029DC 0030            		WORD	030H	 ;[7]
  6501  E0029DE 0040            		WORD	040H	 ;[8]
  6502  E0029E0 0050            		WORD	050H	 ;[9]
  6503  E0029E2 0040            		WORD	040H	 ;[A]
  6504  E0029E4 0050            		WORD	050H	 ;[B]
  6505  E0029E6 0060            		WORD	060H	 ;[C]
  6506  E0029E8 0070            		WORD	070H	 ;[D]
  6507  E0029EA 0060            		WORD	060H	 ;[E]
  6508  E0029EC 0070            		WORD	070H	 ;[F]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0111

  6509                          ;
  6510                          ;-------------- プロットＹ座標 ------------------------------------------
  6511          0029EE          TROBJ_PLOT_Y	EQU	$
  6512  E0029EE 0000            		WORD	000H	 ;[0]
  6513  E0029F0 0000            		WORD	000H	 ;[1]
  6514  E0029F2 0010            		WORD	010H	 ;[2]
  6515  E0029F4 0010            		WORD	010H	 ;[3]
  6516  E0029F6 0000            		WORD	000H	 ;[4]
  6517  E0029F8 0000            		WORD	000H	 ;[5]
  6518  E0029FA 0010            		WORD	010H	 ;[6]
  6519  E0029FC 0010            		WORD	010H	 ;[7]
  6520  E0029FE 0000            		WORD	000H	 ;[8]
  6521  E002A00 0000            		WORD	000H	 ;[9]
  6522  E002A02 0010            		WORD	010H	 ;[A]
  6523  E002A04 0010            		WORD	010H	 ;[B]
  6524  E002A06 0000            		WORD	000H	 ;[C]
  6525  E002A08 0000            		WORD	000H	 ;[D]
  6526  E002A0A 0010            		WORD	010H	 ;[E]
  6527  E002A0C 0010            		WORD	010H	 ;[F]
  6528                          ;
  6529                          ;-------------- キャラＮｏ． --------------------------------------------
  6530          002A0E          TROBJ_CHAR_NO	EQU	$
  6531  E002A0E 01C0            		WORD	1C0H	 ;[0]
  6532  E002A10 01C2            		WORD	1C2H	 ;[1]
  6533  E002A12 01E0            		WORD	1E0H	 ;[2]
  6534  E002A14 01E2            		WORD	1E2H	 ;[3]
  6535  E002A16 01C4            		WORD	1C4H	 ;[4]
  6536  E002A18 01C6            		WORD	1C6H	 ;[5]
  6537  E002A1A 01E4            		WORD	1E4H	 ;[6]
  6538  E002A1C 01E6            		WORD	1E6H	 ;[7]
  6539  E002A1E 01C8            		WORD	1C8H	 ;[8]
  6540  E002A20 01CA            		WORD	1CAH	 ;[9]
  6541  E002A22 01E8            		WORD	1E8H	 ;[A]
  6542  E002A24 01EA            		WORD	1EAH	 ;[B]
  6543  E002A26 01CC            		WORD	1CCH	 ;[C]
  6544  E002A28 01CE            		WORD	1CEH	 ;[D]
  6545  E002A2A 01EC            		WORD	1ECH	 ;[E]
  6546  E002A2C 01EE            		WORD	1EEH	 ;[F]
  6547                          ;
  6548                          ;************************************************************************
  6549                          ;*									*
  6550                          ;*		２×２転送エリアＯＡＭデータセット			*
  6551                          ;*									*
  6552                          ;*			ＩＮ   ： （Ｘ）← 敵インデックス		*
  6553                          ;*									*
  6554                          ;*			ＢＲＫ ： （Ａ）				*
  6555                          ;*				  （Ｙ）				*		*
  6556                          ;*									*
  6557                          ;************************************************************************
  6558                          ;
  6559                          		MEM16
  6560                          		IDX8
  6561                          ;
  6562          002A2E          TROBJ_OAM_2x2	EQU	$
  6563  E002A2E BC 74A2         		LDY	ENYUSN,X
  6564  E002A31 C0 FF           		CPY	#0FFH
  6565  E002A33 F0 1C           		BEQ	TROBJ_OAM_2x210 ;ＯＡＭセット？ ( no:TROBJ_OAM_2x210 )
  6566                          ;
  6567                          		I16
  6567+ E002A35 C2 10           		REP	#00010000b	
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0112

  6568                          ;
  6569  E002A37 BC 7362         		LDY	ENOAML,X
  6570  E002A3A 30 13           		BMI	TROBJ_OAM_2x200 ;ＯＡＭセット？ ( no:TROBJ_OAM_2x210 )
  6571                          ;
  6572          002A3C          TROBJ_OAM_2x2_I EQU	$
  6573  E002A3C DA              		PHX			;(X) save
  6574                          ;
  6575  E002A3D BD 7722         		LDA	ENTROB,X
  6576  E002A40 AA              		TAX
  6577  E002A41 B9 6004         		LDA	SOAM_DX+4,Y
  6578  E002A44 29 FE00         		AND	#0FE00H
  6579  E002A47 1F 002A0E'      		ORA	>TROBJ_CHAR_NO,X
  6580  E002A4B 99 6004         		STA	SOAM_DX+4,Y
  6581                          ;
  6582  E002A4E FA              		PLX
  6583                          ;
  6584          002A4F          TROBJ_OAM_2x200 EQU	$
  6585                          ;
  6586                          		I8
  6586+ E002A4F E2 10           		SEP	#00010000b	
  6587                          ;
  6588          002A51          TROBJ_OAM_2x210 EQU	$
  6589  E002A51 6B              		RTL
  6590                          ;
  6591                          ;************************************************************************
  6592                          ;*									*
  6593                          ;*		４×４転送エリアＯＡＭデータセット			*
  6594                          ;*									*
  6595                          ;*			ＩＮ   ： （Ｘ）← 敵インデックス		*
  6596                          ;*									*
  6597                          ;*			ＢＲＫ ： （Ａ）				*
  6598                          ;*				  （Ｙ）				*		*
  6599                          ;*									*
  6600                          ;************************************************************************
  6601                          ;
  6602          002A52          TROBJ_OAM_4x4	EQU	$
  6603  E002A52 BC 74A2         		LDY	ENYUSN,X
  6604  E002A55 C0 FF           		CPY	#0FFH
  6605  E002A57 F0 43           		BEQ	TROBJ_OAM_4x410 ;ＯＡＭセット？ ( no:TROBJ_OAM_4x410 )
  6606                          ;
  6607                          		I16
  6607+ E002A59 C2 10           		REP	#00010000b	
  6608                          ;
  6609  E002A5B BC 7362         		LDY	ENOAML,X
  6610  E002A5E 30 3A           		BMI	TROBJ_OAM_4x400 ;ＯＡＭセット？ ( no:TROBJ_OAM_4x400 )
  6611                          ;
  6612          002A60          TROBJ_OAM_4x4_I EQU	$
  6613  E002A60 DA              		PHX			;(X) save
  6614                          ;
  6615  E002A61 BD 7722         		LDA	ENTROB,X
  6616  E002A64 AA              		TAX
  6617                          ;
  6618  E002A65 B9 6004         		LDA	SOAM_DX+4,Y
  6619  E002A68 29 FE00         		AND	#0FE00H
  6620  E002A6B 1F 002A0E'      		ORA	>TROBJ_CHAR_NO,X
  6621  E002A6F 99 6004         		STA	SOAM_DX+4,Y
  6622  E002A72 B9 600C         		LDA	SOAM_DX+(8*1)+4,Y
  6623  E002A75 29 FE00         		AND	#0FE00H
  6624  E002A78 1F 002A10'      		ORA	>TROBJ_CHAR_NO+2,X
  6625  E002A7C 99 600C         		STA	SOAM_DX+(8*1)+4,Y
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0113

  6626  E002A7F B9 6014         		LDA	SOAM_DX+(8*2)+4,Y
  6627  E002A82 29 FE00         		AND	#0FE00H
  6628  E002A85 1F 002A12'      		ORA	>TROBJ_CHAR_NO+4,X
  6629  E002A89 99 6014         		STA	SOAM_DX+(8*2)+4,Y
  6630  E002A8C B9 601C         		LDA	SOAM_DX+(8*3)+4,Y
  6631  E002A8F 29 FE00         		AND	#0FE00H
  6632  E002A92 1F 002A14'      		ORA	>TROBJ_CHAR_NO+6,X
  6633  E002A96 99 601C         		STA	SOAM_DX+(8*3)+4,Y
  6634                          ;
  6635  E002A99 FA              		PLX
  6636                          ;
  6637          002A9A          TROBJ_OAM_4x400 EQU	$
  6638                          ;
  6639                          		I8
  6639+ E002A9A E2 10           		SEP	#00010000b	
  6640                          ;
  6641          002A9C          TROBJ_OAM_4x410 EQU	$
  6642  E002A9C 6B              		RTL
  6643                          ;
  6644                          ;************************************************************************
  6645                          ;*									*
  6646                          ;*		８×４転送エリアＯＡＭデータセット			*
  6647                          ;*									*
  6648                          ;*			ＩＮ   ： （Ｘ）← 敵インデックス		*
  6649                          ;*									*
  6650                          ;*			ＢＲＫ ： （Ａ）				*
  6651                          ;*				  （Ｙ）				*		*
  6652                          ;*									*
  6653                          ;************************************************************************
  6654                          ;
  6655          002A9D          TROBJ_OAM_8x4	EQU	$
  6656  E002A9D BC 74A2         		LDY	ENYUSN,X
  6657  E002AA0 C0 FF           		CPY	#0FFH
  6658  E002AA2 F0 77           		BEQ	TROBJ_OAM_8x410 ;ＯＡＭセット？ ( no:TROBJ_OAM_8x410 )
  6659                          ;
  6660                          		I16
  6660+ E002AA4 C2 10           		REP	#00010000b	
  6661                          ;
  6662  E002AA6 BC 7362         		LDY	ENOAML,X
  6663  E002AA9 30 6E           		BMI	TROBJ_OAM_8x400 ;ＯＡＭセット？ ( no:TROBJ_OAM_8x400 )
  6664                          ;
  6665          002AAB          TROBJ_OAM_8x4_I EQU	$
  6666  E002AAB DA              		PHX			;(X) save
  6667                          ;
  6668  E002AAC BD 7722         		LDA	ENTROB,X
  6669  E002AAF AA              		TAX
  6670                          ;
  6671  E002AB0 B9 6004         		LDA	SOAM_DX+4,Y
  6672  E002AB3 29 FE00         		AND	#0FE00H
  6673  E002AB6 1F 002A0E'      		ORA	>TROBJ_CHAR_NO,X
  6674  E002ABA 99 6004         		STA	SOAM_DX+4,Y
  6675  E002ABD B9 600C         		LDA	SOAM_DX+(8*1)+4,Y
  6676  E002AC0 29 FE00         		AND	#0FE00H
  6677  E002AC3 1F 002A10'      		ORA	>TROBJ_CHAR_NO+2,X
  6678  E002AC7 99 600C         		STA	SOAM_DX+(8*1)+4,Y
  6679  E002ACA B9 6014         		LDA	SOAM_DX+(8*2)+4,Y
  6680  E002ACD 29 FE00         		AND	#0FE00H
  6681  E002AD0 1F 002A12'      		ORA	>TROBJ_CHAR_NO+4,X
  6682  E002AD4 99 6014         		STA	SOAM_DX+(8*2)+4,Y
  6683  E002AD7 B9 601C         		LDA	SOAM_DX+(8*3)+4,Y
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0114

  6684  E002ADA 29 FE00         		AND	#0FE00H
  6685  E002ADD 1F 002A14'      		ORA	>TROBJ_CHAR_NO+6,X
  6686  E002AE1 99 601C         		STA	SOAM_DX+(8*3)+4,Y
  6687  E002AE4 B9 6024         		LDA	SOAM_DX+(8*4)+4,Y
  6688  E002AE7 29 FE00         		AND	#0FE00H
  6689  E002AEA 1F 002A16'      		ORA	>TROBJ_CHAR_NO+8,X
  6690  E002AEE 99 6024         		STA	SOAM_DX+(8*4)+4,Y
  6691  E002AF1 B9 602C         		LDA	SOAM_DX+(8*5)+4,Y
  6692  E002AF4 29 FE00         		AND	#0FE00H
  6693  E002AF7 1F 002A18'      		ORA	>TROBJ_CHAR_NO+10,X
  6694  E002AFB 99 602C         		STA	SOAM_DX+(8*5)+4,Y
  6695  E002AFE B9 6034         		LDA	SOAM_DX+(8*6)+4,Y
  6696  E002B01 29 FE00         		AND	#0FE00H
  6697  E002B04 1F 002A1A'      		ORA	>TROBJ_CHAR_NO+12,X
  6698  E002B08 99 6034         		STA	SOAM_DX+(8*6)+4,Y
  6699  E002B0B B9 603C         		LDA	SOAM_DX+(8*7)+4,Y
  6700  E002B0E 29 FE00         		AND	#0FE00H
  6701  E002B11 1F 002A1C'      		ORA	>TROBJ_CHAR_NO+14,X
  6702  E002B15 99 603C         		STA	SOAM_DX+(8*7)+4,Y
  6703                          ;
  6704  E002B18 FA              		PLX
  6705                          ;
  6706          002B19          TROBJ_OAM_8x400 EQU	$
  6707                          ;
  6708                          		I8
  6708+ E002B19 E2 10           		SEP	#00010000b	
  6709                          ;
  6710          002B1B          TROBJ_OAM_8x410 EQU	$
  6711  E002B1B 6B              		RTL
  6712                          ;
  6713                          ;************************************************************************
  6714                          ;*									*
  6715                          ;*		８×８転送エリアＯＡＭデータセット			*
  6716                          ;*									*
  6717                          ;*			ＩＮ   ： （Ｘ）← 敵インデックス		*
  6718                          ;*									*
  6719                          ;*			ＢＲＫ ： （Ａ）				*
  6720                          ;*				  （Ｙ）				*		*
  6721                          ;*									*
  6722                          ;************************************************************************
  6723                          ;
  6724          002B1C          TROBJ_OAM_8x8	EQU	$
  6725  E002B1C BC 74A2         		LDY	ENYUSN,X
  6726  E002B1F C0 FF           		CPY	#0FFH
  6727  E002B21 F0 F8           		BEQ	TROBJ_OAM_8x410 ;ＯＡＭセット？ ( no:TROBJ_OAM_8x410 )
  6728                          ;
  6729                          		I16
  6729+ E002B23 C2 10           		REP	#00010000b	
  6730                          ;
  6731  E002B25 BC 7362         		LDY	ENOAML,X
  6732  E002B28 10 03           		BPL	TROBJ_OAM_8x8_I ;ＯＡＭセット？ ( no:TROBJ_OAM_8x8_I )
  6733  E002B2A 4C 2BF7'        		JMP	TROBJ_OAM_8x800
  6734                          ;
  6735          002B2D          TROBJ_OAM_8x8_I EQU	$
  6736  E002B2D DA              		PHX			;(X)   save
  6737  E002B2E 8B              		PHB			;(DBR)	 "
  6738  E002B2F 4B              		PHK			;(DBR) <-- (PBR)
  6739  E002B30 AB              		PLB
  6740                          ;
  6741  E002B31 BD 7722         		LDA	ENTROB,X
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0115

  6742  E002B34 AA              		TAX
  6743                          ;
  6744  E002B35 B9 6004         		LDA	SOAM_DX+4,Y
  6745  E002B38 29 FE00         		AND	#0FE00H
  6746  E002B3B 1D 2A0E'        		ORA	TROBJ_CHAR_NO,X
  6747  E002B3E 99 6004         		STA	SOAM_DX+4,Y
  6748  E002B41 B9 600C         		LDA	SOAM_DX+(8*1)+4,Y
  6749  E002B44 29 FE00         		AND	#0FE00H
  6750  E002B47 1D 2A10'        		ORA	TROBJ_CHAR_NO+2,X
  6751  E002B4A 99 600C         		STA	SOAM_DX+(8*1)+4,Y
  6752  E002B4D B9 6014         		LDA	SOAM_DX+(8*2)+4,Y
  6753  E002B50 29 FE00         		AND	#0FE00H
  6754  E002B53 1D 2A12'        		ORA	TROBJ_CHAR_NO+4,X
  6755  E002B56 99 6014         		STA	SOAM_DX+(8*2)+4,Y
  6756  E002B59 B9 601C         		LDA	SOAM_DX+(8*3)+4,Y
  6757  E002B5C 29 FE00         		AND	#0FE00H
  6758  E002B5F 1D 2A14'        		ORA	TROBJ_CHAR_NO+6,X
  6759  E002B62 99 601C         		STA	SOAM_DX+(8*3)+4,Y
  6760  E002B65 B9 6024         		LDA	SOAM_DX+(8*4)+4,Y
  6761  E002B68 29 FE00         		AND	#0FE00H
  6762  E002B6B 1D 2A16'        		ORA	TROBJ_CHAR_NO+8,X
  6763  E002B6E 99 6024         		STA	SOAM_DX+(8*4)+4,Y
  6764  E002B71 B9 602C         		LDA	SOAM_DX+(8*5)+4,Y
  6765  E002B74 29 FE00         		AND	#0FE00H
  6766  E002B77 1D 2A18'        		ORA	TROBJ_CHAR_NO+10,X
  6767  E002B7A 99 602C         		STA	SOAM_DX+(8*5)+4,Y
  6768  E002B7D B9 6034         		LDA	SOAM_DX+(8*6)+4,Y
  6769  E002B80 29 FE00         		AND	#0FE00H
  6770  E002B83 1D 2A1A'        		ORA	TROBJ_CHAR_NO+12,X
  6771  E002B86 99 6034         		STA	SOAM_DX+(8*6)+4,Y
  6772  E002B89 B9 603C         		LDA	SOAM_DX+(8*7)+4,Y
  6773  E002B8C 29 FE00         		AND	#0FE00H
  6774  E002B8F 1D 2A1C'        		ORA	TROBJ_CHAR_NO+14,X
  6775  E002B92 99 603C         		STA	SOAM_DX+(8*7)+4,Y
  6776  E002B95 B9 6044         		LDA	SOAM_DX+(8*8)+4,Y
  6777  E002B98 29 FE00         		AND	#0FE00H
  6778  E002B9B 1D 2A1E'        		ORA	TROBJ_CHAR_NO+16,X
  6779  E002B9E 99 6044         		STA	SOAM_DX+(8*8)+4,Y
  6780  E002BA1 B9 604C         		LDA	SOAM_DX+(8*9)+4,Y
  6781  E002BA4 29 FE00         		AND	#0FE00H
  6782  E002BA7 1D 2A20'        		ORA	TROBJ_CHAR_NO+18,X
  6783  E002BAA 99 604C         		STA	SOAM_DX+(8*9)+4,Y
  6784  E002BAD B9 6054         		LDA	SOAM_DX+(8*10)+4,Y
  6785  E002BB0 29 FE00         		AND	#0FE00H
  6786  E002BB3 1D 2A22'        		ORA	TROBJ_CHAR_NO+20,X
  6787  E002BB6 99 6054         		STA	SOAM_DX+(8*10)+4,Y
  6788  E002BB9 B9 605C         		LDA	SOAM_DX+(8*11)+4,Y
  6789  E002BBC 29 FE00         		AND	#0FE00H
  6790  E002BBF 1D 2A24'        		ORA	TROBJ_CHAR_NO+22,X
  6791  E002BC2 99 605C         		STA	SOAM_DX+(8*11)+4,Y
  6792  E002BC5 B9 6064         		LDA	SOAM_DX+(8*12)+4,Y
  6793  E002BC8 29 FE00         		AND	#0FE00H
  6794  E002BCB 1D 2A26'        		ORA	TROBJ_CHAR_NO+24,X
  6795  E002BCE 99 6064         		STA	SOAM_DX+(8*12)+4,Y
  6796  E002BD1 B9 606C         		LDA	SOAM_DX+(8*13)+4,Y
  6797  E002BD4 29 FE00         		AND	#0FE00H
  6798  E002BD7 1D 2A28'        		ORA	TROBJ_CHAR_NO+26,X
  6799  E002BDA 99 606C         		STA	SOAM_DX+(8*13)+4,Y
  6800  E002BDD B9 6074         		LDA	SOAM_DX+(8*14)+4,Y
  6801  E002BE0 29 FE00         		AND	#0FE00H
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0116

  6802  E002BE3 1D 2A2A'        		ORA	TROBJ_CHAR_NO+28,X
  6803  E002BE6 99 6074         		STA	SOAM_DX+(8*14)+4,Y
  6804  E002BE9 B9 607C         		LDA	SOAM_DX+(8*15)+4,Y
  6805  E002BEC 29 FE00         		AND	#0FE00H
  6806  E002BEF 1D 2A2C'        		ORA	TROBJ_CHAR_NO+30,X
  6807  E002BF2 99 607C         		STA	SOAM_DX+(8*15)+4,Y
  6808                          ;
  6809  E002BF5 AB              		PLB
  6810  E002BF6 FA              		PLX
  6811                          ;
  6812          002BF7          TROBJ_OAM_8x800 EQU	$
  6813                          ;
  6814                          		I8
  6814+ E002BF7 E2 10           		SEP	#00010000b	
  6815                          ;
  6816          002BF9          TROBJ_OAM_8x810 EQU	$
  6817  E002BF9 6B              		RTL
  6818                          ;
  6819                          ;************************************************************************
  6820                          ;*									*
  6821                          ;*		８×８Ｈフリップ転送エリアＯＡＭデータセット		*
  6822                          ;*									*
  6823                          ;*			ＩＮ   ： （Ｘ）← 敵インデックス		*
  6824                          ;*									*
  6825                          ;*			ＢＲＫ ： （Ａ）				*
  6826                          ;*				  （Ｙ）				*		*
  6827                          ;*									*
  6828                          ;************************************************************************
  6829                          ;
  6830          002BFA          TROBJ_OAM_8H8	EQU	$
  6831  E002BFA BC 74A2         		LDY	ENYUSN,X
  6832  E002BFD C0 FF           		CPY	#0FFH
  6833  E002BFF F0 F8           		BEQ	TROBJ_OAM_8x810 ;ＯＡＭセット？ ( no:TROBJ_OAM_8x810 )
  6834                          ;
  6835                          		I16
  6835+ E002C01 C2 10           		REP	#00010000b	
  6836                          ;
  6837  E002C03 BC 7362         		LDY	ENOAML,X
  6838  E002C06 10 03           		BPL	TROBJ_OAM_8H8_I ;ＯＡＭセット？ ( no:TROBJ_OAM_8H_I )
  6839  E002C08 4C 2CED'        		JMP	TROBJ_OAM_8H800
  6840                          ;
  6841          002C0B          TROBJ_OAM_8H8_I EQU	$
  6842  E002C0B DA              		PHX			;(X)   save
  6843  E002C0C 8B              		PHB			;(DBR)	 "
  6844  E002C0D 4B              		PHK			;(DBR) <-- (PBR)
  6845  E002C0E AB              		PLB
  6846                          ;
  6847  E002C0F BD 7722         		LDA	ENTROB,X
  6848  E002C12 AA              		TAX
  6849                          ;
  6850  E002C13 B9 6004         		LDA	SOAM_DX+4,Y
  6851  E002C16 29 FE00         		AND	#0FE00H
  6852  E002C19 1D 2A0E'        		ORA	TROBJ_CHAR_NO,X
  6853  E002C1C 99 6004         		STA	SOAM_DX+4,Y
  6854  E002C1F B9 600C         		LDA	SOAM_DX+(8*1)+4,Y
  6855  E002C22 29 FE00         		AND	#0FE00H
  6856  E002C25 1D 2A10'        		ORA	TROBJ_CHAR_NO+2,X
  6857  E002C28 99 600C         		STA	SOAM_DX+(8*1)+4,Y
  6858  E002C2B B9 6014         		LDA	SOAM_DX+(8*2)+4,Y
  6859  E002C2E 29 FE00         		AND	#0FE00H
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0117

  6860  E002C31 1D 2A12'        		ORA	TROBJ_CHAR_NO+4,X
  6861  E002C34 99 6014         		STA	SOAM_DX+(8*2)+4,Y
  6862  E002C37 B9 601C         		LDA	SOAM_DX+(8*3)+4,Y
  6863  E002C3A 29 FE00         		AND	#0FE00H
  6864  E002C3D 1D 2A14'        		ORA	TROBJ_CHAR_NO+6,X
  6865  E002C40 99 601C         		STA	SOAM_DX+(8*3)+4,Y
  6866                          ;
  6867  E002C43 B9 6024         		LDA	SOAM_DX+(8*4)+4,Y
  6868  E002C46 29 FE00         		AND	#0FE00H
  6869  E002C49 49 4000         		EOR	#04000H
  6870  E002C4C 1D 2A10'        		ORA	TROBJ_CHAR_NO+2,X
  6871  E002C4F 99 6024         		STA	SOAM_DX+(8*4)+4,Y
  6872  E002C52 B9 602C         		LDA	SOAM_DX+(8*5)+4,Y
  6873  E002C55 29 FE00         		AND	#0FE00H
  6874  E002C58 49 4000         		EOR	#04000H
  6875  E002C5B 1D 2A0E'        		ORA	TROBJ_CHAR_NO,X
  6876  E002C5E 99 602C         		STA	SOAM_DX+(8*5)+4,Y
  6877  E002C61 B9 6034         		LDA	SOAM_DX+(8*6)+4,Y
  6878  E002C64 29 FE00         		AND	#0FE00H
  6879  E002C67 49 4000         		EOR	#04000H
  6880  E002C6A 1D 2A14'        		ORA	TROBJ_CHAR_NO+6,X
  6881  E002C6D 99 6034         		STA	SOAM_DX+(8*6)+4,Y
  6882  E002C70 B9 603C         		LDA	SOAM_DX+(8*7)+4,Y
  6883  E002C73 29 FE00         		AND	#0FE00H
  6884  E002C76 49 4000         		EOR	#04000H
  6885  E002C79 1D 2A12'        		ORA	TROBJ_CHAR_NO+4,X
  6886  E002C7C 99 603C         		STA	SOAM_DX+(8*7)+4,Y
  6887                          ;
  6888  E002C7F B9 6044         		LDA	SOAM_DX+(8*8)+4,Y
  6889  E002C82 29 FE00         		AND	#0FE00H
  6890  E002C85 1D 2A16'        		ORA	TROBJ_CHAR_NO+8,X
  6891  E002C88 99 6044         		STA	SOAM_DX+(8*8)+4,Y
  6892  E002C8B B9 604C         		LDA	SOAM_DX+(8*9)+4,Y
  6893  E002C8E 29 FE00         		AND	#0FE00H
  6894  E002C91 1D 2A18'        		ORA	TROBJ_CHAR_NO+10,X
  6895  E002C94 99 604C         		STA	SOAM_DX+(8*9)+4,Y
  6896  E002C97 B9 6054         		LDA	SOAM_DX+(8*10)+4,Y
  6897  E002C9A 29 FE00         		AND	#0FE00H
  6898  E002C9D 1D 2A1A'        		ORA	TROBJ_CHAR_NO+12,X
  6899  E002CA0 99 6054         		STA	SOAM_DX+(8*10)+4,Y
  6900  E002CA3 B9 605C         		LDA	SOAM_DX+(8*11)+4,Y
  6901  E002CA6 29 FE00         		AND	#0FE00H
  6902  E002CA9 1D 2A1C'        		ORA	TROBJ_CHAR_NO+14,X
  6903  E002CAC 99 605C         		STA	SOAM_DX+(8*11)+4,Y
  6904                          ;
  6905  E002CAF B9 6064         		LDA	SOAM_DX+(8*12)+4,Y
  6906  E002CB2 29 FE00         		AND	#0FE00H
  6907  E002CB5 49 4000         		EOR	#04000H
  6908  E002CB8 1D 2A18'        		ORA	TROBJ_CHAR_NO+10,X
  6909  E002CBB 99 6064         		STA	SOAM_DX+(8*12)+4,Y
  6910  E002CBE B9 606C         		LDA	SOAM_DX+(8*13)+4,Y
  6911  E002CC1 29 FE00         		AND	#0FE00H
  6912  E002CC4 49 4000         		EOR	#04000H
  6913  E002CC7 1D 2A16'        		ORA	TROBJ_CHAR_NO+8,X
  6914  E002CCA 99 606C         		STA	SOAM_DX+(8*13)+4,Y
  6915  E002CCD B9 6074         		LDA	SOAM_DX+(8*14)+4,Y
  6916  E002CD0 29 FE00         		AND	#0FE00H
  6917  E002CD3 49 4000         		EOR	#04000H
  6918  E002CD6 1D 2A1C'        		ORA	TROBJ_CHAR_NO+14,X
  6919  E002CD9 99 6074         		STA	SOAM_DX+(8*14)+4,Y
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0118

  6920  E002CDC B9 607C         		LDA	SOAM_DX+(8*15)+4,Y
  6921  E002CDF 29 FE00         		AND	#0FE00H
  6922  E002CE2 49 4000         		EOR	#04000H
  6923  E002CE5 1D 2A1A'        		ORA	TROBJ_CHAR_NO+12,X
  6924  E002CE8 99 607C         		STA	SOAM_DX+(8*15)+4,Y
  6925                          ;
  6926  E002CEB AB              		PLB
  6927  E002CEC FA              		PLX
  6928                          ;
  6929          002CED          TROBJ_OAM_8H800 EQU	$
  6930                          ;
  6931                          		I8
  6931+ E002CED E2 10           		SEP	#00010000b	
  6932                          ;
  6933  E002CEF 6B              		RTL
  6934                          ;
  6935                          ;************************************************************************
  6936                          ;*									*
  6937                          ;*		検索チェックデータ					*
  6938                          ;*									*
  6939                          ;************************************************************************
  6940          002CF0          ARIA_8x4_CHECK	EQU	$
  6941  E002CF0 FF00            		WORD	1111111100000000B
  6942  E002CF2 0FF0            		WORD	0000111111110000B
  6943  E002CF4 00FF            		WORD	0000000011111111B
  6944          002CF6          ARIA_4x4_CHECK	EQU	$
  6945  E002CF6 F000            		WORD	1111000000000000B
  6946  E002CF8 0F00            		WORD	0000111100000000B
  6947  E002CFA 00F0            		WORD	0000000011110000B
  6948  E002CFC 000F            		WORD	0000000000001111B
  6949          002CFE          ARIA_6x4_CHECK	EQU	$
  6950  E002CFE FA00            		WORD	1111101000000000B
  6951  E002D00 0FA0            		WORD	0000111110100000B
  6952  E002D02 00FA            		WORD	0000000011111010B
  6953          002D04          ARIA_2x2_CHECK	EQU	$
  6954  E002D04 8000            		WORD	1000000000000000B
  6955  E002D06 4000            		WORD	0100000000000000B
  6956  E002D08 2000            		WORD	0010000000000000B
  6957  E002D0A 1000            		WORD	0001000000000000B
  6958  E002D0C 0800            		WORD	0000100000000000B
  6959  E002D0E 0400            		WORD	0000010000000000B
  6960  E002D10 0200            		WORD	0000001000000000B
  6961  E002D12 0100            		WORD	0000000100000000B
  6962  E002D14 0080            		WORD	0000000010000000B
  6963  E002D16 0040            		WORD	0000000001000000B
  6964  E002D18 0020            		WORD	0000000000100000B
  6965  E002D1A 0010            		WORD	0000000000010000B
  6966  E002D1C 0008            		WORD	0000000000001000B
  6967  E002D1E 0004            		WORD	0000000000000100B
  6968  E002D20 0002            		WORD	0000000000000010B
  6969  E002D22 0001            		WORD	0000000000000001B
  6970                          ;
  6971                          ;************************************************************************
  6972                          ;*									*
  6973                          ;*		２×２転送エリア検索ルーチン				*
  6974                          ;*									*
  6975                          ;*			ＩＮ   ： （Ｘ）← 敵インデックス		*
  6976                          ;*									*
  6977                          ;*			ＯＵＴ ： （Ｃ）← ０：エリア空き無し		*
  6978                          ;*					   １：エリア確保！！		*
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0119

  6979                          ;*				  （ＥＮＴＲＯＢ）← エリアＮｏ．(1,3..)*
  6980                          ;*									*
  6981                          ;*			ＢＲＫ ： （Ａ）				*
  6982                          ;*				  （Ｙ）				*
  6983                          ;*				  （ＷＯＲＫ０〜１）			*
  6984                          ;*									*
  6985                          ;************************************************************************
  6986                          ;
  6987          002D24          TROBJ_SR_2x2	EQU	$
  6988  E002D24 DA              		PHX			;(X)   save
  6989  E002D25 8B              		PHB			;(DBR)	"
  6990  E002D26 4B              		PHK			;(DBR) <-- (PBR)
  6991  E002D27 AB              		PLB
  6992                          ;
  6993                          ;-------------- ４×４エリア検索 ----------------------------------------
  6994  E002D28 38              		SEC
  6995  E002D29 6E 0000         		ROR	WORK1-1		;(WK1) <-- ４×４エリア空きポインター初期セット
  6996  E002D2C A2 06           		LDX	#(4-1)*2
  6997          002D2E          SR_2x2_050	EQU	$
  6998  E002D2E AD 7ECC         		LDA	TROBJ_ARIA	;(A) <-- 転送エリア情報
  6999  E002D31 3D 2CF6'        		AND	!ARIA_4x4_CHECK,X
  7000  E002D34 D0 05           		BNE	SR_2x2_100	;４×４エリア空き？ ( no:SR_2x2_100 )
  7001  E002D36 8E 0001         		STX	WORK1		;(WK1) <-- ４×４エリア空きポインター
  7002  E002D39 80 05           		BRA	SR_2x2_150
  7003                          ;
  7004          002D3B          SR_2x2_100	EQU	$
  7005  E002D3B DD 2CF6'        		CMP	!ARIA_4x4_CHECK,X
  7006  E002D3E D0 09           		BNE	SR_2x2_200	;４×４エリア空き無し？ ( yes:SR_2x2_200 )
  7007          002D40          SR_2x2_150	EQU	$
  7008  E002D40 CA              		DEX
  7009  E002D41 CA              		DEX
  7010  E002D42 10 EA           		BPL	SR_2x2_050
  7011                          ;
  7012  E002D44 AE 0001         		LDX	WORK1
  7013  E002D47 30 13           		BMI	SR_2x2_300	;４×４エリア空き無し？ ( yes:SR_2x2_300 )
  7014                          ;
  7015                          ;-------------- ２×２エリア検索 ----------------------------------------
  7016          002D49          SR_2x2_200	EQU	$
  7017  E002D49 8A              		TXA
  7018  E002D4A 0A              		ASL	A
  7019  E002D4B 0A              		ASL	A
  7020  E002D4C AA              		TAX
  7021  E002D4D AD 7ECC         		LDA	TROBJ_ARIA	;(A) <-- 転送エリア情報
  7022  E002D50 A0 04           		LDY	#4
  7023          002D52          SR_2x2_250	EQU	$
  7024  E002D52 3C 2D04'        		BIT	!ARIA_2x2_CHECK,X
  7025  E002D55 F0 09           		BEQ	SR_2x2_350	;エリア空き？ ( yes:SR_2x2_350 )
  7026  E002D57 E8              		INX
  7027  E002D58 E8              		INX
  7028  E002D59 88              		DEY
  7029  E002D5A D0 F6           		BNE	SR_2x2_250
  7030                          ;
  7031                          ;-------------- エリア空き無し！！ --------------------------------------
  7032          002D5C          SR_2x2_300	EQU	$
  7033  E002D5C AB              		PLB
  7034  E002D5D FA              		PLX
  7035          002D5E          SR_2x2_310	EQU	$
  7036  E002D5E 18              		CLC
  7037  E002D5F 6B              		RTL
  7038                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0120

  7039                          ;-------------- エリア確保！！ ------------------------------------------
  7040          002D60          SR_2x2_350	EQU	$
  7041  E002D60 BD 2D04'        		LDA	!ARIA_2x2_CHECK,X
  7042  E002D63 9D 7ECE         		STA	TROBJ_SIZE,X	;サイズセット(ＡＮＤデータポインター）
  7043  E002D66 0C 7ECC         		TSB	TROBJ_ARIA	;転送エリア情報 ”ＯＮ”
  7044                          ;
  7045  E002D69 8A              		TXA
  7046  E002D6A 29 00FF         		AND	#00FFH
  7047                          ;
  7048  E002D6D AB              		PLB
  7049  E002D6E FA              		PLX
  7050                          ;
  7051  E002D6F 9D 7722         		STA	ENTROB,X
  7052  E002D72 38              		SEC
  7053  E002D73 6B              		RTL
  7054                          ;
  7055                          ;************************************************************************
  7056                          ;*									*
  7057                          ;*		４×４転送エリア検索ルーチン				*
  7058                          ;*									*
  7059                          ;*			ＩＮ   ： （Ｘ）← 敵インデックス		*
  7060                          ;*									*
  7061                          ;*			ＯＵＴ ： （Ｃ）← ０：エリア空き無し		*
  7062                          ;*					   １：エリア確保！！		*
  7063                          ;*				  （ＥＮＴＲＯＢ）← エリアＮｏ．(1,3..)*
  7064                          ;*									*
  7065                          ;*			ＢＲＫ ： （Ａ）				*
  7066                          ;*				  （Ｙ）				*
  7067                          ;*									*
  7068                          ;************************************************************************
  7069                          ;
  7070          002D74          TROBJ_SR_4x4	EQU	$
  7071  E002D74 DA              		PHX			;(X) save
  7072  E002D75 8B              		PHB			;(DBR) save
  7073  E002D76 4B              		PHK			;(DBR) <-- (PBR)
  7074  E002D77 AB              		PLB
  7075                          ;
  7076  E002D78 AD 7ECC         		LDA	TROBJ_ARIA	;(A) <-- 転送エリア情報
  7077  E002D7B A2 06           		LDX	#(4-1)*2
  7078          002D7D          SR_4x4_050	EQU	$
  7079  E002D7D 3C 2CF6'        		BIT	!ARIA_4x4_CHECK,X
  7080  E002D80 F0 08           		BEQ	SR_4x4_100	;４×４エリア空き？ ( yes:SR_4x4_100 )
  7081  E002D82 CA              		DEX
  7082  E002D83 CA              		DEX
  7083  E002D84 10 F7           		BPL	SR_4x4_050
  7084                          ;
  7085                          ;-------------- エリア空き無し！！ --------------------------------------
  7086  E002D86 AB              		PLB
  7087  E002D87 FA              		PLX
  7088  E002D88 18              		CLC
  7089  E002D89 6B              		RTL
  7090                          ;
  7091                          ;-------------- エリア確保！！ ------------------------------------------
  7092          002D8A          SR_4x4_100	EQU	$
  7093  E002D8A 8A              		TXA
  7094  E002D8B 0A              		ASL	A
  7095  E002D8C 0A              		ASL	A
  7096  E002D8D A8              		TAY
  7097  E002D8E BD 2CF6'        		LDA	!ARIA_4x4_CHECK,X
  7098  E002D91 99 7ECE         		STA	TROBJ_SIZE,Y	;サイズセット(ＡＮＤデータ）
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0121

  7099  E002D94 0C 7ECC         		TSB	TROBJ_ARIA	;転送エリア情報 ”ＯＮ”
  7100                          ;
  7101  E002D97 98              		TYA
  7102  E002D98 29 00FF         		AND	#00FFH
  7103                          ;
  7104  E002D9B AB              		PLB
  7105  E002D9C FA              		PLX
  7106                          ;
  7107  E002D9D 9D 7722         		STA	ENTROB,X
  7108  E002DA0 38              		SEC
  7109  E002DA1 6B              		RTL
  7110                          ;
  7111                          ;************************************************************************
  7112                          ;*									*
  7113                          ;*		６×４転送エリア検索ルーチン				*
  7114                          ;*									*
  7115                          ;*			ＩＮ   ： （Ｘ）← 敵インデックス		*
  7116                          ;*									*
  7117                          ;*			ＯＵＴ ： （Ｃ）← ０：エリア空き無し		*
  7118                          ;*					   １：エリア確保！！		*
  7119                          ;*				  （ＥＮＴＲＯＢ）← エリアＮｏ．(1,3..)*
  7120                          ;*									*
  7121                          ;*			ＢＲＫ ： （Ａ）				*
  7122                          ;*				  （Ｙ）				*
  7123                          ;*									*
  7124                          ;************************************************************************
  7125                          ;
  7126          002DA2          TROBJ_SR_6x4	EQU	$
  7127  E002DA2 DA              		PHX			;(X) save
  7128  E002DA3 8B              		PHB			;(DBR) save
  7129  E002DA4 4B              		PHK			;(DBR) <-- (PBR)
  7130  E002DA5 AB              		PLB
  7131                          ;
  7132  E002DA6 AD 7ECC         		LDA	TROBJ_ARIA	;(A) <-- 転送エリア情報
  7133  E002DA9 A2 04           		LDX	#(3-1)*2
  7134          002DAB          SR_6x4_050	EQU	$
  7135  E002DAB 3C 2CFE'        		BIT	!ARIA_6x4_CHECK,X
  7136  E002DAE F0 08           		BEQ	SR_6x4_100	;６×４エリア空き？ ( yes:SR_6x4_100 )
  7137  E002DB0 CA              		DEX
  7138  E002DB1 CA              		DEX
  7139  E002DB2 10 F7           		BPL	SR_6x4_050
  7140                          ;
  7141                          ;-------------- エリア空き無し！！ --------------------------------------
  7142  E002DB4 AB              		PLB
  7143  E002DB5 FA              		PLX
  7144  E002DB6 18              		CLC
  7145  E002DB7 6B              		RTL
  7146                          ;
  7147                          ;-------------- エリア確保！！ ------------------------------------------
  7148          002DB8          SR_6x4_100	EQU	$
  7149  E002DB8 8A              		TXA
  7150  E002DB9 0A              		ASL	A
  7151  E002DBA 0A              		ASL	A
  7152  E002DBB A8              		TAY
  7153  E002DBC BD 2CFE'        		LDA	!ARIA_6x4_CHECK,X
  7154  E002DBF 99 7ECE         		STA	TROBJ_SIZE,Y	;サイズセット(ＡＮＤデータ）
  7155  E002DC2 0C 7ECC         		TSB	TROBJ_ARIA	;転送エリア情報”ＯＮ”
  7156                          ;
  7157  E002DC5 98              		TYA
  7158  E002DC6 29 00FF         		AND	#00FFH
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0122

  7159                          ;
  7160  E002DC9 AB              		PLB
  7161  E002DCA FA              		PLX
  7162                          ;
  7163  E002DCB 9D 7722         		STA	ENTROB,X
  7164  E002DCE 38              		SEC
  7165  E002DCF 6B              		RTL
  7166                          ;
  7167                          ;************************************************************************
  7168                          ;*									*
  7169                          ;*		８×４転送エリア検索ルーチン				*
  7170                          ;*									*
  7171                          ;*			ＩＮ   ： （Ｘ）← 敵インデックス		*
  7172                          ;*									*
  7173                          ;*			ＯＵＴ ： （Ｃ）← ０：エリア空き無し		*
  7174                          ;*					   １：エリア確保！！		*
  7175                          ;*				  （ＥＮＴＲＯＢ）← エリアＮｏ．(1,3..)*
  7176                          ;*									*
  7177                          ;*			ＢＲＫ ： （Ａ）				*
  7178                          ;*				  （Ｙ）				*
  7179                          ;*									*
  7180                          ;************************************************************************
  7181                          ;
  7182          002DD0          TROBJ_SR_8x4	EQU	$
  7183  E002DD0 DA              		PHX			;(X) save
  7184  E002DD1 8B              		PHB			;(DBR) save
  7185  E002DD2 4B              		PHK			;(DBR) <-- (PBR)
  7186  E002DD3 AB              		PLB
  7187                          ;
  7188  E002DD4 AD 7ECC         		LDA	TROBJ_ARIA	;(A) <-- 転送エリア情報
  7189  E002DD7 A2 04           		LDX	#(3-1)*2
  7190          002DD9          SR_8x4_050	EQU	$
  7191  E002DD9 3C 2CF0'        		BIT	!ARIA_8x4_CHECK,X
  7192  E002DDC F0 08           		BEQ	SR_8x4_100	;８×４エリア空き？ ( yes:SR_8x4_100 )
  7193  E002DDE CA              		DEX
  7194  E002DDF CA              		DEX
  7195  E002DE0 10 F7           		BPL	SR_8x4_050
  7196                          ;
  7197                          ;-------------- エリア空き無し！！ --------------------------------------
  7198  E002DE2 AB              		PLB
  7199  E002DE3 FA              		PLX
  7200          002DE4          SERCH_NOT	EQU	$
  7201  E002DE4 18              		CLC
  7202  E002DE5 6B              		RTL
  7203                          ;
  7204                          ;-------------- エリア確保！！ ------------------------------------------
  7205          002DE6          SR_8x4_100	EQU	$
  7206  E002DE6 8A              		TXA
  7207  E002DE7 0A              		ASL	A
  7208  E002DE8 0A              		ASL	A
  7209  E002DE9 A8              		TAY
  7210  E002DEA BD 2CF0'        		LDA	!ARIA_8x4_CHECK,X
  7211  E002DED 99 7ECE         		STA	TROBJ_SIZE,Y	;サイズセット(ＡＮＤデータ）
  7212  E002DF0 0C 7ECC         		TSB	TROBJ_ARIA	;転送エリア情報 ”ＯＮ”
  7213                          ;
  7214  E002DF3 98              		TYA
  7215  E002DF4 29 00FF         		AND	#00FFH
  7216                          ;
  7217  E002DF7 AB              		PLB
  7218  E002DF8 FA              		PLX
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0123

  7219                          ;
  7220  E002DF9 9D 7722         		STA	ENTROB,X
  7221  E002DFC 38              		SEC
  7222  E002DFD 6B              		RTL
  7223                          ;
  7224                          ;************************************************************************
  7225                          ;*									*
  7226                          ;*		８×８転送エリア検索ルーチン				*
  7227                          ;*									*
  7228                          ;*			ＩＮ   ： （Ｘ）← 敵インデックス		*
  7229                          ;*									*
  7230                          ;*			ＯＵＴ ： （Ｃ）← ０：エリア空き無し		*
  7231                          ;*					   １：エリア確保！！		*
  7232                          ;*				  （ＥＮＴＲＯＢ）← エリアＮｏ．(1,3..)*
  7233                          ;*									*
  7234                          ;*			ＢＲＫ ： （Ａ）				*
  7235                          ;*									*
  7236                          ;************************************************************************
  7237                          ;
  7238          002DFE          TROBJ_SR_8x8	EQU	$
  7239  E002DFE AD 7ECC         		LDA	TROBJ_ARIA	;(A) <-- 転送エリア情報
  7240  E002E01 D0 E1           		BNE	SERCH_NOT	;８×８エリア空き？ ( no:SERCH_NOT )
  7241                          ;
  7242                          ;-------------- エリア確保！！ ------------------------------------------
  7243  E002E03 A9 FFFF         		LDA	#1111111111111111B
  7244  E002E06 8D 7ECE         		STA	TROBJ_SIZE	;サイズセット(ＡＮＤデータ）
  7245  E002E09 8D 7ECC         		STA	TROBJ_ARIA	;転送エリア情ﾉj”ＯＮ”
  7246                          ;
  7247  E002E0C 9E 7722         		STZ	ENTROB,X
  7248  E002E0F 38              		SEC
  7249  E002E10 6B              		RTL
  7250                          ;
  7251                          ;************************************************************************
  7252                          ;*									*
  7253                          ;*		２×２転送エリア検索ルーチン（オート）				  *
  7254                          ;*									*
  7255                          ;*			ＩＮ   ： （Ｘ）← 敵インデックス		*
  7256                          ;*									*
  7257                          ;*			ＯＵＴ ： （ＥＮＴＲＯＢ）← エリアＮｏ．(1,3..)*
  7258                          ;*									*
  7259                          ;*			ＢＲＫ ： （Ａ）				*
  7260                          ;*				  （Ｙ）				*
  7261                          ;*				  （ＷＯＲＫ０〜１）			*
  7262                          ;*									*
  7263                          ;************************************************************************
  7264                          ;
  7265          002E11          TROBJ_SR_2x2_CL EQU	$
  7266  E002E11 DA              		PHX			;(X)   save
  7267  E002E12 8B              		PHB			;(DBR)	"
  7268  E002E13 4B              		PHK			;(DBR) <-- (PBR)
  7269  E002E14 AB              		PLB
  7270                          ;
  7271                          ;-------------- ４×４エリア検索 ----------------------------------------
  7272  E002E15 38              		SEC
  7273  E002E16 6E 0000         		ROR	WORK1-1		;(WK1) <-- ４×４エリア空きポインター初期セット
  7274  E002E19 A2 06           		LDX	#(4-1)*2
  7275          002E1B          SR_2x2_CL_050	EQU	$
  7276  E002E1B AD 7ECC         		LDA	TROBJ_ARIA	;(A) <-- 転送エリア情報
  7277  E002E1E 3D 2CF6'        		AND	!ARIA_4x4_CHECK,X
  7278  E002E21 D0 05           		BNE	SR_2x2_CL_100	;４×４エリア空き？ ( no:SR_2x2_CL_100 )
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0124

  7279  E002E23 8E 0001         		STX	WORK1		;(WK1) <-- ４×４エリア空きポインター
  7280  E002E26 80 05           		BRA	SR_2x2_CL_150
  7281                          ;
  7282          002E28          SR_2x2_CL_100	EQU	$
  7283  E002E28 DD 2CF6'        		CMP	!ARIA_4x4_CHECK,X
  7284  E002E2B D0 09           		BNE	SR_2x2_CL_200	;４×４エリア空き無し？ ( yes:SR_2x2_CL_200 )
  7285          002E2D          SR_2x2_CL_150	EQU	$
  7286  E002E2D CA              		DEX
  7287  E002E2E CA              		DEX
  7288  E002E2F 10 EA           		BPL	SR_2x2_CL_050
  7289                          ;
  7290  E002E31 AE 0001         		LDX	WORK1
  7291  E002E34 30 13           		BMI	SR_2x2_CL_300	;４×４エリア空き無し？ ( yes:SR_2x2_CL_300 )
  7292                          ;
  7293                          ;-------------- ２×２エリア検索 ----------------------------------------
  7294          002E36          SR_2x2_CL_200	EQU	$
  7295  E002E36 8A              		TXA
  7296  E002E37 0A              		ASL	A
  7297  E002E38 0A              		ASL	A
  7298  E002E39 AA              		TAX
  7299  E002E3A AD 7ECC         		LDA	TROBJ_ARIA	;(A) <-- 転送エリア情報
  7300  E002E3D A0 04           		LDY	#4
  7301          002E3F          SR_2x2_CL_250	EQU	$
  7302  E002E3F 3C 2D04'        		BIT	!ARIA_2x2_CHECK,X
  7303  E002E42 F0 09           		BEQ	SR_2x2_CL_350	;エリア空き？ ( yes:SR_2x2_CL_350 )
  7304  E002E44 E8              		INX
  7305  E002E45 E8              		INX
  7306  E002E46 88              		DEY
  7307  E002E47 D0 F6           		BNE	SR_2x2_CL_250
  7308                          ;
  7309                          ;-------------- エリア空き無し！！ --------------------------------------
  7310          002E49          SR_2x2_CL_300	EQU	$
  7311  E002E49 AB              		PLB
  7312  E002E4A FA              		PLX
  7313  E002E4B 80 54           		BRA	SERCH_NOT_CL	;"pull pull return !!"
  7314                          ;
  7315                          ;-------------- エリア確保！！ ------------------------------------------
  7316          002E4D          SR_2x2_CL_350	EQU	$
  7317  E002E4D BD 2D04'        		LDA	!ARIA_2x2_CHECK,X
  7318  E002E50 9D 7ECE         		STA	TROBJ_SIZE,X	;サイズセット(ＡＮＤデータポインター）
  7319  E002E53 0C 7ECC         		TSB	TROBJ_ARIA	;転送エリア情報 ”ＯＮ”
  7320                          ;
  7321  E002E56 8A              		TXA
  7322  E002E57 29 00FF         		AND	#00FFH
  7323                          ;
  7324  E002E5A AB              		PLB
  7325  E002E5B FA              		PLX
  7326                          ;
  7327  E002E5C 9D 7722         		STA	ENTROB,X
  7328  E002E5F 6B              		RTL
  7329                          ;
  7330                          ;************************************************************************
  7331                          ;*									*
  7332                          ;*		４×４転送エリア検索ルーチン（オート）			*
  7333                          ;*									*
  7334                          ;*			ＩＮ   ： （Ｘ）← 敵インデックス		*
  7335                          ;*									*
  7336                          ;*			ＯＵＴ ： （ＥＮＴＲＯＢ）← エリアＮｏ．(1,3..)*
  7337                          ;*									*
  7338                          ;*			ＢＲＫ ： （Ａ）				*
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0125

  7339                          ;*				  （Ｙ）				*
  7340                          ;*									*
  7341                          ;************************************************************************
  7342                          ;
  7343          002E60          TROBJ_SR_4x4_CL EQU	$
  7344  E002E60 DA              		PHX			;(X) save
  7345  E002E61 8B              		PHB			;(DBR) save
  7346  E002E62 4B              		PHK			;(DBR) <-- (PBR)
  7347  E002E63 AB              		PLB
  7348                          ;
  7349  E002E64 AD 7ECC         		LDA	TROBJ_ARIA	;(A) <-- 転送エリア情報
  7350  E002E67 A2 06           		LDX	#(4-1)*2
  7351          002E69          SR_4x4_CL_050	EQU	$
  7352  E002E69 3C 2CF6'        		BIT	!ARIA_4x4_CHECK,X
  7353  E002E6C F0 08           		BEQ	SR_4x4_CL_100	;４×４エリア空き？ ( yes:SR_4x4_CL_100 )
  7354  E002E6E CA              		DEX
  7355  E002E6F CA              		DEX
  7356  E002E70 10 F7           		BPL	SR_4x4_CL_050
  7357                          ;
  7358                          ;-------------- エリア空き無し！！ --------------------------------------
  7359  E002E72 AB              		PLB
  7360  E002E73 FA              		PLX
  7361  E002E74 80 2B           		BRA	SERCH_NOT_CL	;"pull pull return !!"
  7362                          ;
  7363                          ;-------------- エリア確保！！ ------------------------------------------
  7364          002E76          SR_4x4_CL_100	EQU	$
  7365  E002E76 8A              		TXA
  7366  E002E77 0A              		ASL	A
  7367  E002E78 0A              		ASL	A
  7368  E002E79 A8              		TAY
  7369  E002E7A BD 2CF6'        		LDA	!ARIA_4x4_CHECK,X
  7370  E002E7D 99 7ECE         		STA	TROBJ_SIZE,Y	;サイズセット(ＡＮＤデータ）
  7371  E002E80 0C 7ECC         		TSB	TROBJ_ARIA	;転送エリア情ﾉj”ＯＮ”
  7372                          ;
  7373  E002E83 98              		TYA
  7374  E002E84 29 00FF         		AND	#00FFH
  7375                          ;
  7376  E002E87 AB              		PLB
  7377  E002E88 FA              		PLX
  7378                          ;
  7379  E002E89 9D 7722         		STA	ENTROB,X
  7380  E002E8C 6B              		RTL
  7381                          ;
  7382                          ;************************************************************************
  7383                          ;*									*
  7384                          ;*		６×４転送エリア検索ルーチン（オート）			*
  7385                          ;*									*
  7386                          ;*			ＩＮ   ： （Ｘ）← 敵インデックス		*
  7387                          ;*									*
  7388                          ;*			ＯＵＴ ： （ＥＮＴＲＯＢ）← エリアＮｏ．(1,3..)*
  7389                          ;*									*
  7390                          ;*			ＢＲＫ ： （Ａ）				*
  7391                          ;*				  （Ｙ）				*
  7392                          ;*									*
  7393                          ;************************************************************************
  7394                          ;
  7395          002E8D          TROBJ_SR_6x4_CL EQU	$
  7396  E002E8D DA              		PHX			;(X) save
  7397  E002E8E 8B              		PHB			;(DBR) save
  7398  E002E8F 4B              		PHK			;(DBR) <-- (PBR)
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0126

  7399  E002E90 AB              		PLB
  7400                          ;
  7401  E002E91 AD 7ECC         		LDA	TROBJ_ARIA	;(A) <-- 転送エリア情報
  7402  E002E94 A2 04           		LDX	#(3-1)*2
  7403          002E96          SR_6x4_CL_050	EQU	$
  7404  E002E96 3C 2CFE'        		BIT	!ARIA_6x4_CHECK,X
  7405  E002E99 F0 0C           		BEQ	SR_6x4_CL_100	;６×４エリア空き？ ( yes:SR_6x4_CL_100 )
  7406  E002E9B CA              		DEX
  7407  E002E9C CA              		DEX
  7408  E002E9D 10 F7           		BPL	SR_6x4_CL_050
  7409                          ;
  7410                          ;-------------- エリア空き無し！！ --------------------------------------
  7411  E002E9F AB              		PLB
  7412  E002EA0 FA              		PLX
  7413                          ;
  7414          002EA1          SERCH_NOT_CL	EQU	$
  7415  E002EA1 68              		PLA
  7416  E002EA2 7A              		PLY
  7417  E002EA3 5C 00231E'      		JMP	>ENCLEAR
  7418                          ;
  7419                          ;-------------- エリア確保！！ ------------------------------------------
  7420          002EA7          SR_6x4_CL_100	EQU	$
  7421  E002EA7 8A              		TXA
  7422  E002EA8 0A              		ASL	A
  7423  E002EA9 0A              		ASL	A
  7424  E002EAA A8              		TAY
  7425  E002EAB BD 2CFE'        		LDA	!ARIA_6x4_CHECK,X
  7426  E002EAE 99 7ECE         		STA	TROBJ_SIZE,Y	;サイズセット(ＡＮＤデータ）
  7427  E002EB1 0C 7ECC         		TSB	TROBJ_ARIA	;転送エリア情ﾉj”ＯＮ”
  7428                          ;
  7429  E002EB4 98              		TYA
  7430  E002EB5 29 00FF         		AND	#00FFH
  7431                          ;
  7432  E002EB8 AB              		PLB
  7433  E002EB9 FA              		PLX
  7434                          ;
  7435  E002EBA 9D 7722         		STA	ENTROB,X
  7436  E002EBD 6B              		RTL
  7437                          ;
  7438                          ;************************************************************************
  7439                          ;*									*
  7440                          ;*		８×４転送エリア検索ルーチン（オート）			*
  7441                          ;*									*
  7442                          ;*			ＩＮ   ： （Ｘ）← 敵インデックス		*
  7443                          ;*									*
  7444                          ;*			ＯＵＴ ： （ＥＮＴＲＯＢ）← エリアＮｏ．(1,3..)*
  7445                          ;*									*
  7446                          ;*			ＢＲＫ ： （Ａ）				*
  7447                          ;*				  （Ｙ）				*
  7448                          ;*									*
  7449                          ;************************************************************************
  7450                          ;
  7451          002EBE          TROBJ_SR_8x4_CL EQU	$
  7452  E002EBE DA              		PHX			;(X) save
  7453  E002EBF 8B              		PHB			;(DBR) save
  7454  E002EC0 4B              		PHK			;(DBR) <-- (PBR)
  7455  E002EC1 AB              		PLB
  7456                          ;
  7457  E002EC2 AD 7ECC         		LDA	TROBJ_ARIA	;(A) <-- 転送エリア情報
  7458  E002EC5 A2 04           		LDX	#(3-1)*2
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0127

  7459          002EC7          SR_8x4_CL_050	EQU	$
  7460  E002EC7 3C 2CF0'        		BIT	!ARIA_8x4_CHECK,X
  7461  E002ECA F0 08           		BEQ	SR_8x4_CL_100	;８×４エリア空き？ ( yes:SR_8x4_CL_100 )
  7462  E002ECC CA              		DEX
  7463  E002ECD CA              		DEX
  7464  E002ECE 10 F7           		BPL	SR_8x4_CL_050
  7465                          ;
  7466                          ;-------------- エリア空き無し！！ --------------------------------------
  7467  E002ED0 AB              		PLB
  7468  E002ED1 FA              		PLX
  7469  E002ED2 80 CD           		BRA	SERCH_NOT_CL	;"pull pull return !!"
  7470                          ;
  7471                          ;-------------- エリア確保！！ ------------------------------------------
  7472          002ED4          SR_8x4_CL_100	EQU	$
  7473  E002ED4 8A              		TXA
  7474  E002ED5 0A              		ASL	A
  7475  E002ED6 0A              		ASL	A
  7476  E002ED7 A8              		TAY
  7477  E002ED8 BD 2CF0'        		LDA	!ARIA_8x4_CHECK,X
  7478  E002EDB 99 7ECE         		STA	TROBJ_SIZE,Y	;サイズセット(ＡＮＤデータ）
  7479  E002EDE 0C 7ECC         		TSB	TROBJ_ARIA	;転送エリア情ﾉj”ＯＮ”
  7480                          ;
  7481  E002EE1 98              		TYA
  7482  E002EE2 29 00FF         		AND	#00FFH
  7483                          ;
  7484  E002EE5 AB              		PLB
  7485  E002EE6 FA              		PLX
  7486                          ;
  7487  E002EE7 9D 7722         		STA	ENTROB,X
  7488  E002EEA 6B              		RTL
  7489                          ;
  7490                          ;************************************************************************
  7491                          ;*									*
  7492                          ;*		８×８転送エリア検索ルーチン（オート）			*
  7493                          ;*									*
  7494                          ;*			ＩＮ   ： （Ｘ）← 敵インデックス		*
  7495                          ;*									*
  7496                          ;*			ＯＵＴ ： （ＥＮＴＲＯＢ）← エリアＮｏ．(1,3..)*
  7497                          ;*									*
  7498                          ;*			ＢＲＫ ： （Ａ）				*
  7499                          ;*									*
  7500                          ;************************************************************************
  7501                          ;
  7502          002EEB          TROBJ_SR_8x8_CL EQU	$
  7503  E002EEB AD 7ECC         		LDA	TROBJ_ARIA	;(A) <-- 転送エリア情報
  7504  E002EEE D0 B1           		BNE	SERCH_NOT_CL	;８×８エリア空き？ ( no:SERCH_NOT_CL )
  7505                          ;
  7506                          ;-------------- エリア確保！！ ------------------------------------------
  7507  E002EF0 A9 FFFF         		LDA	#1111111111111111B
  7508  E002EF3 8D 7ECE         		STA	TROBJ_SIZE	;サイズセット(ＡＮＤデータ）
  7509  E002EF6 8D 7ECC         		STA	TROBJ_ARIA	;転送エリア情ﾉj”ＯＮ”
  7510                          ;
  7511  E002EF9 9E 7722         		STZ	ENTROB,X
  7512  E002EFC 6B              		RTL
  7513                          ;
  7514                          ;************************************************************************
  7515                          ;*									*
  7516                          ;*		転送エリア放棄ルーチン					*
  7517                          ;*									*
  7518                          ;*			ＩＮ   ： （Ｘ）← 敵インデックス		*
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0128

  7519                          ;*									*
  7520                          ;*			ＢＲＫ ： （Ａ）				*
  7521                          ;*				  （Ｙ）				*
  7522                          ;*									*
  7523                          ;************************************************************************
  7524                          ;
  7525          002EFD          TROBJ_CLEAR	EQU	$
  7526  E002EFD BC 7722         		LDY	ENTROB,X
  7527  E002F00 B9 7ECE         		LDA	TROBJ_SIZE,Y
  7528  E002F03 1C 7ECC         		TRB	TROBJ_ARIA
  7529  E002F06 A9 FFFF         		LDA	#0FFFFH
  7530  E002F09 9D 7722         		STA	ENTROB,X
  7531  E002F0C 6B              		RTL
  7532                          ;
  7533                          ;************************************************************************
  7534                          ;*									*
  7535                          ;*		転送エリア放棄ルーチン（使用チェック有)			*
  7536                          ;*									*
  7537                          ;*			ＩＮ   ： （Ｘ）← 敵インデックス		*
  7538                          ;*									*
  7539                          ;*			ＢＲＫ ： （Ａ）				*
  7540                          ;*				  （Ｙ）				*
  7541                          ;*									*
  7542                          ;************************************************************************
  7543                          ;
  7544          002F0D          TROBJ_CLEAR_CHK EQU	$
  7545  E002F0D BC 7722         		LDY	ENTROB,X
  7546  E002F10 30 0C           		BMI	CLEAR_CHK_050	;転送エリア使用？ ( no:CLEAR_CHK_050 )
  7547                          ;
  7548  E002F12 B9 7ECE         		LDA	TROBJ_SIZE,Y
  7549  E002F15 1C 7ECC         		TRB	TROBJ_ARIA
  7550  E002F18 A9 FFFF         		LDA	#0FFFFH
  7551  E002F1B 9D 7722         		STA	ENTROB,X
  7552          002F1E          CLEAR_CHK_050	EQU	$
  7553  E002F1E 6B              		RTL
  7554                          ;
  7555                          ;
  7556                          ;************************************************************************
  7557                          ;*		enemy mode check					*
  7558                          ;*			out  : if out of area then pull,pull return	*
  7559                          ;************************************************************************
  7560          002F1F          ESHTCHIPSB	EQU	$
  7561  E002F1F 867E 8205       		WORD	C_16_ROTZOM,C_32_ROTZOM
  7562                          ;
  7563          002F23          ENMDCK		EQU	$
  7564  E002F23 BD 7D38         		LDA	ENSHOT,X
  7565  E002F26 F0 1A           		BEQ	EMDC0FF		;enemy shot ? ( no:EMDC0FF )
  7566                          ;
  7567                          ;-------------- 転送エリアＯＡＭ変更チェック ----------------------------
  7568  E002F28 BC 7722         		LDY	ENTROB,X
  7569  E002F2B 30 15           		BMI	EMDC0FF		;転送エリア確保？ ( no:EMDC0FF )
  7570                          ;
  7571  E002F2D BD 7403         		LDA	ENCHPT+1,X
  7572  E002F30 29 00FF         		AND	#00FFH
  7573  E002F33 F0 0D           		BEQ	EMDC0FF		;特殊ズームＯＢＪ？ ( no:EMDC0FF )
  7574                          ;
  7575  E002F35 3A              		DEC	A
  7576  E002F36 D0 06           		BNE	EMDC0FE		;2x2 size ? ( no:EMDC0FE )
  7577  E002F38 22 002A2E'      		JSL	>TROBJ_OAM_2x2
  7578  E002F3C 80 04           		BRA	EMDC0FF
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0129

  7579                          ;
  7580          002F3E          EMDC0FE		EQU	$
  7581  E002F3E 22 002A52'      		JSL	>TROBJ_OAM_4x4
  7582                          ;
  7583          002F42          EMDC0FF		EQU	$
  7584  E002F42 BC 6F00         		LDY	ENMODE,X
  7585  E002F45 C0 10           		CPY	#EMOVE
  7586  E002F47 D0 0B           		BNE	EMDC100		;move ? ( no:EMDC100 )
  7587  E002F49 AD 61B0         		LDA	ENSTFG
  7588  E002F4C 0D 0B55         		ORA	BIRIBIRI
  7589  E002F4F 0D 0398         		ORA	ITEMNO
  7590  E002F52 F0 03           		BEQ	EMDC010		;enemy stop ? ( no:EMDC010 )
  7591          002F54          EMDC100		EQU	$
  7592  E002F54 68              		PLA			;pull pull return !!
  7593  E002F55 7A              		PLY
  7594  E002F56 6B              		RTL
  7595                          ;
  7596                          ;-------------- 凍ってるかチェック ------------------------------
  7597          002F57          EMDC010		EQU	$
  7598  E002F57 BD 7D96         		LDA	ENCOLD,X
  7599  E002F5A F0 54           		BEQ	EMDC0106	;凍ってる？ ( no:EMDC0106 )
  7600                          ;
  7601  E002F5C C9 0020         		CMP	#020H
  7602  E002F5F B0 15           		BCS	EMDC0100	;もうすぐ解凍”ブルブル”？ ( no:EMDC0100 )
  7603  E002F61 4A              		LSR	A
  7604  E002F62 D0 07           		BNE	EMDC010F	;解凍サウンドセット？ ( no:EMDC010F )
  7605                          ;
  7606  E002F64 A9 0077         		LDA	#077H		;[♪]
  7607  E002F67 22 000000"      		JSL	>SOUND_3_ON
  7608                          ;
  7609          002F6B          EMDC010F	EQU	$
  7610  E002F6B 29 0001         		AND	#01H
  7611  E002F6E 0A              		ASL	A		;[ (C)=0 ]
  7612  E002F6F 3A              		DEC	A
  7613                          ;;;;		    CLC
  7614  E002F70 7D 70E2         		ADC	ENXPSL,X
  7615  E002F73 9D 70E2         		STA	ENXPSL,X
  7616          002F76          EMDC0100	EQU	$
  7617  E002F76 BD 7042         		LDA	ENCLOR,X	;凍ったカラーセット
  7618  E002F79 29 00F1         		AND	#11110001B
  7619  E002F7C 09 0006         		ORA	#00000110B
  7620  E002F7F 9D 7042         		STA	ENCLOR,X
  7621                          ;
  7622  E002F82 BD 7A98         		LDA	ENTIM1,X
  7623  E002F85 D0 0A           		BNE	EMDC0102	;”凍ったキラキラ”セット？ ( no:EMDC0102 )
  7624                          ;
  7625  E002F87 A9 000C         		LDA	#0CH
  7626  E002F8A 9D 7A98         		STA	ENTIM1,X
  7627  E002F8D 22 0035C3'      		JSL	>COLD_KIRA_ST
  7628          002F91          EMDC0102	EQU	$
  7629  E002F91 BD 7D38         		LDA	ENSHOT,X
  7630  E002F94 D0 20           		BNE	EMDC012		;enemy shot ? ( yes:EMDC012 )
  7631                          ;
  7632  E002F96 DE 7D96         		DEC	ENCOLD,X
  7633  E002F99 D0 0E           		BNE	EMDC0104	;解凍？ ( no:EMDC0104 )
  7634                          ;
  7635                          ;-------------- 解凍！！ --------------------------------
  7636  E002F9B 22 000000"      		JSL	>FUSNB_SET	;効果セット
  7637  E002F9F 22 003078'      		JSL	>ENRETURN	;元に復帰
  7638  E002FA3 A9 FD00         		LDA	#0FD00H		;Ｙスピードセット
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0130

  7639  E002FA6 9D 7222         		STA	ENYSPD,X
  7640                          ;
  7641                          ;-------------- プレイヤーとの衝突チェック ------------------------------
  7642          002FA9          EMDC0104	EQU	$
  7643  E002FA9 22 0021BE'      		JSL	>STOP_EPCRCK
  7644                          ;
  7645  E002FAD 68              		PLA			;pull pull return !!
  7646  E002FAE 7A              		PLY
  7647  E002FAF 6B              		RTL
  7648                          ;
  7649                          ;-------------- enemy shot check --------------------------------
  7650          002FB0          EMDC0106	EQU	$
  7651  E002FB0 BD 7D38         		LDA	ENSHOT,X
  7652  E002FB3 D0 01           		BNE	EMDC012		;enemy shot ? ( yes:EMDC012 )
  7653  E002FB5 6B              		RTL
  7654                          ;
  7655          002FB6          EMDC012		EQU	$
  7656  E002FB6 3A              		DEC	A
  7657  E002FB7 F0 03           		BEQ	EMDC014		;食べれないタイマー減算？ ( no:EMDC014 )
  7658  E002FB9 DE 7D38         		DEC	ENSHOT,X
  7659                          ;
  7660          002FBC          EMDC014		EQU	$
  7661  E002FBC BC 7722         		LDY	ENTROB,X
  7662  E002FBF 30 2F           		BMI	EMDC020		;転送エリア確保？ ( no:EMDC020 )
  7663                          ;
  7664                          ;;;;		    TROBJ_CHK_4
  7665                          ;;;;		    BNE	    EMDC020	    ;転送エリア計算ＯＫ？ ( no:EMDC020 )
  7666                          ;
  7667                          ;-------------- 回転ＯＢＪセット ------------------------
  7668  E002FC1 BD 7403         		LDA	ENCHPT+1,X
  7669  E002FC4 29 00FF         		AND	#00FFH
  7670  E002FC7 F0 27           		BEQ	EMDC020		;特殊ズームＯＢＪ？ ( no:EMDC020 )
  7671                          ;
  7672  E002FC9 B5 16           		LDA	<ENCONT,X	;matrix data set
  7673  E002FCB 18              		CLC
  7674  E002FCC 69 0010         		ADC	#010H
  7675  E002FCF 29 00FF         		AND	#0FFH
  7676  E002FD2 95 16           		STA	<ENCONT,X
  7677  E002FD4 8D 300A         		STA	R5		;(R5) <-- angle
  7678  E002FD7 A9 0100         		LDA	#0100H
  7679  E002FDA 8D 300C         		STA	R6		;(R6) <-- zoom data
  7680                          ;
  7681  E002FDD 22 003631'      		JSL	>EN_BMPCHR_ST
  7682                          ;
  7683  E002FE1 BF 002F1F'      		LDA	>ESHTCHIPSB,X
  7684  E002FE5 A2 08           		LDX	#BANK C_16_ZOOM_XY
  7685  E002FE7 22 000000"      		JSL	>CHIPON
  7686                          ;
  7687  E002FEB EE 0CF9         		INC	OBM7WF		;mode 7 OBJ chara DMA "ON"
  7688                          ;
  7689  E002FEE A6 12           		LDX	<ENINDX
  7690                          ;
  7691                          ;-------------- enemy shot move -------------------------
  7692          002FF0          EMDC020		EQU	$
  7693  E002FF0 BD 7860         		LDA	ENCBFG,X
  7694  E002FF3 29 000C         		AND	#001100B
  7695  E002FF6 F0 33           		BEQ	EMDC030		;side cross ? ( no:EMDC030 )
  7696                          ;
  7697  E002FF8 BD 7542         		LDA	ENGPOW,X
  7698  E002FFB C9 0040         		CMP	#040H
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0131

  7699  E002FFE B0 05           		BCS	EMDC023		;反射？ ( no:EMDC023 )
  7700                          ;
  7701                          ;-------------- サウンドセット座標セット --------
  7702  E003000 20 311B'        		JSR	EGG_BGCR_SOUND
  7703  E003003 80 26           		BRA	EMDC030
  7704                          ;
  7705          003005          EMDC023		EQU	$
  7706  E003005 BD 7220         		LDA	ENXSPD,X	;1/4 X speed EOR
  7707                          		ASR16
  7707+ E003008 C9 8000         		CMP	#8000h
  7707+ E00300B 6A              		ROR	A
  7708                          		ASR16
  7708+ E00300C C9 8000         		CMP	#8000h
  7708+ E00300F 6A              		ROR	A
  7709  E003010 9D 7220         		STA	ENXSPD,X
  7710  E003013 A9 0040         		LDA	#040H
  7711  E003016 9D 7542         		STA	ENGPOW,X
  7712                          ;
  7713  E003019 BD 7D96         		LDA	ENCOLD,X
  7714  E00301C F0 06           		BEQ	EMDC024		;凍ってる？ ( no:EMDC024 )
  7715                          ;
  7716  E00301E 68              		PLA			;pull pull return !!
  7717  E00301F 7A              		PLY
  7718  E003020 5C 003595'      		JMP	>ICECL_SET
  7719                          ;
  7720                          ;-------------- 敵なら死亡 ----------------------
  7721          003024          EMDC024		EQU	$
  7722                          ;
  7723                          ;-------------- サウンドセット座標セット --------
  7724  E003024 A9 001F         		LDA	#01FH		;[♪]
  7725  E003027 22 003212'      		JSL	>SOUND_XYST
  7726                          ;
  7727                          ;;;;		    LDA	    ENMOD1,X
  7728                          ;;;;		    AND	    #0110000000000000B
  7729                          ;;;;		    BNE	    EMDC030	    ;敵？ ( no:EMDC030 )
  7730                          ;;;;;
  7731                          ;;;;		    PLA			    ;pull pull return !!
  7732                          ;;;;		    PLY
  7733                          ;;;;		    JMP	    >FSMK0_SET4
  7734                          ;
  7735          00302B          EMDC030		EQU	$
  7736  E00302B BD 7860         		LDA	ENCBFG,X
  7737  E00302E 89 0001         		BIT	#000001B
  7738  E003031 D0 1A           		BNE	EMDC0300	;foot cross ? ( yes:EMDC0300 )
  7739                          ;
  7740  E003033 29 0002         		AND	#000010B
  7741  E003036 F0 20           		BEQ	EMDC0308	;hed cross ? ( no:EMDC0308 )
  7742                          ;
  7743                          ;-------------- 頭ＢＧ当たり ----------------------------
  7744  E003038 BD 7542         		LDA	ENGPOW,X
  7745  E00303B C9 0040         		CMP	#040H
  7746  E00303E 90 15           		BCC	EMDC0301	;反射？ ( yes:EMDC0301 )
  7747  E003040 9E 7222         		STZ	ENYSPD,X	;Ｙスピードクリアー
  7748                          ;
  7749                          ;-------------- サウンドセット座標セット --------
  7750  E003043 A9 001F         		LDA	#01FH		;[♪]
  7751  E003046 22 003212'      		JSL	>SOUND_XYST
  7752  E00304A 4C 30C1'        		JMP	EMDC050
  7753                          ;
  7754                          ;-------------- 足ＢＧ当たり ----------------------------
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0132

  7755          00304D          EMDC0300	EQU	$
  7756  E00304D BD 7542         		LDA	ENGPOW,X
  7757  E003050 C9 0040         		CMP	#040H
  7758  E003053 B0 06           		BCS	EMDC031		;反射？ ( no:EMDC031 )
  7759                          ;
  7760          003055          EMDC0301	EQU	$
  7761                          ;
  7762                          ;-------------- サウンドセット座標セット --------
  7763  E003055 20 311B'        		JSR	EGG_BGCR_SOUND
  7764                          ;
  7765          003058          EMDC0308	EQU	$
  7766  E003058 4C 30C1'        		JMP	EMDC050
  7767                          ;
  7768          00305B          EMDC031		EQU	$
  7769                          ;
  7770                          ;-------------- サウンドセット座標セット --------
  7771  E00305B A9 001F         		LDA	#01FH		;[♪]
  7772  E00305E 22 003212'      		JSL	>SOUND_XYST
  7773                          ;
  7774  E003062 22 00258B'      		JSL	>XSDOWN2	;X speed down
  7775                          ;
  7776  E003066 B5 18           		LDA	<ENWRK0,X
  7777                          ;;;;		    CMP	    #02H
  7778  E003068 C9 0003         		CMP	#03H
  7779  E00306B 90 3F           		BCC	EMDC040		;bound ok ? ( yes:EMDC040 )
  7780                          ;
  7781                          ;-------------- 敵ならＸスピードが０になるまで --
  7782  E00306D BD 6FA2         		LDA	ENMOD1,X
  7783  E003070 29 6000         		AND	#0110000000000000B
  7784  E003073 D0 03           		BNE	ENRETURN	;敵？ ( no:ENRETURN )
  7785                          ;
  7786  E003075 9E 7220         		STZ	ENXSPD,X
  7787                          ;;;;;;;;		LDA	ENXSPD,X
  7788                          ;;;;;;;;		BNE	EMDC045		;Ｘスピードが０？ ( no:EMDC045 )
  7789                          ;
  7790                          ;-------------- return to normal mode set -------
  7791          003078          ENRETURN	EQU	$
  7792  E003078 22 002F0D'      		JSL	>TROBJ_CLEAR_CHK
  7793                          ;
  7794  E00307C 9B              		TXY			;(Y) <-- index
  7795  E00307D BD 7360         		LDA	ENMYNO,X	;(A) <-- enemy no.
  7796  E003080 22 002377'      		JSL	>ESTATST	;enemy status set
  7797  E003084 BD 77C2         		LDA	EPXMUK,X	;プレイヤーの方に向く
  7798  E003087 29 00FF         		AND	#00FFH
  7799  E00308A 9D 7400         		STA	ENMUKI,X
  7800  E00308D 22 001A6C'      		JSL	>ENRINT		;enemy again initial set
  7801  E003091 BD 7D96         		LDA	ENCOLD,X
  7802  E003094 F0 0F           		BEQ	ENRETURN_010	;凍ってる？ ( no:ENRETURN_010 )
  7803                          ;
  7804  E003096 9E 7220         		STZ	ENXSPD,X	;Ｘスピードクリアー
  7805  E003099 BD 7042         		LDA	ENCLOR,X	;凍ったカラーセット
  7806  E00309C 29 00F1         		AND	#11110001B
  7807  E00309F 09 0006         		ORA	#00000110B
  7808  E0030A2 9D 7042         		STA	ENCLOR,X
  7809          0030A5          ENRETURN_010	EQU	$
  7810  E0030A5 6B              		RTL
  7811  
  7812          0030A4          REBOUND_YSPD	EQU	$-2
  7813  E0030A6 FD80 FDC0 FE00  		WORD	0FD80H,0FDC0H,0FE00H
  7814                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0133

  7815                          ;-------------- bound set -----------------------
  7816          0030AC          EMDC040		EQU	$
  7817  E0030AC F6 18           		INC	<ENWRK0,X
  7818          0030AE          EMDC045		EQU	$
  7819                          ;;;;		    LDA	    #0FD80H
  7820                          ;;;;;;;;		LDA	#0FE00H
  7821  E0030AE B5 18           		LDA	<ENWRK0,X
  7822  E0030B0 0A              		ASL	A
  7823  E0030B1 9B              		TXY
  7824  E0030B2 AA              		TAX
  7825  E0030B3 BF 0030A4'      		LDA	>REBOUND_YSPD,X
  7826  E0030B7 BB              		TYX
  7827  E0030B8 9D 7222         		STA	ENYSPD,X
  7828  E0030BB A9 0040         		LDA	#040H
  7829  E0030BE 9D 7542         		STA	ENGPOW,X
  7830                          ;
  7831                          ;-------------- enemy kill check ----------------
  7832          0030C1          EMDC050		EQU	$
  7833  E0030C1 BC 7D36         		LDY	ECRSFG,X
  7834  E0030C4 88              		DEY
  7835  E0030C5 30 51           		BMI	EMDC060		;敵と衝突？ ( no:EMDC060 )
  7836                          ;
  7837                          ;-------------- 敵と衝突 ------------------------
  7838  E0030C7 B9 6F00         		LDA	ENMODE,Y
  7839  E0030CA C9 0010         		CMP	#EMOVE
  7840  E0030CD D0 49           		BNE	EMDC060		;enemy move ? ( no:EMDC060 )
  7841                          ;
  7842  E0030CF B9 7D96         		LDA	ENCOLD,Y
  7843  E0030D2 F0 0B           		BEQ	EMDC051		;凍ってる？ ( no:EMDC051 )
  7844                          ;
  7845  E0030D4 5A              		PHY			;(Y) save
  7846  E0030D5 BB              		TYX
  7847  E0030D6 22 003595'      		JSL	>ICECL_SET
  7848  E0030DA 7A              		PLY			;(Y) save
  7849  E0030DB A6 12           		LDX	<ENINDX
  7850  E0030DD 80 0F           		BRA	EMDC052
  7851                          ;
  7852          0030DF          EMDC051		EQU	$
  7853  E0030DF B9 6FA0         		LDA	ENMOD0,Y
  7854  E0030E2 29 0020         		AND	#0000000000100000B
  7855  E0030E5 D0 31           		BNE	EMDC060		;shot enemy cross ok ? ( no:EMDC060 )
  7856                          ;
  7857                          ;-------------- 敵を蹴散らす --------------------
  7858  E0030E7 BB              		TYX
  7859  E0030E8 22 00324B'      		JSL	>ENDEATH_SET	;敵を蹴散らしセット
  7860  E0030EC B0 2A           		BCS	EMDC060		;蹴散らせた ? ( no:EMDC060 )
  7861                          ;
  7862                          ;-------------- 自分が跳ね返る ------------------
  7863          0030EE          EMDC052		EQU	$
  7864  E0030EE BD 7542         		LDA	ENGPOW,X
  7865  E0030F1 C9 0040         		CMP	#040H
  7866  E0030F4 B0 15           		BCS	EMDC053		;パワーショット？ ( no:EMDC053 )
  7867  E0030F6 BD 7360         		LDA	ENMYNO,X
  7868  E0030F9 C9 0022         		CMP	#EGG00
  7869  E0030FC 90 0D           		BCC	EMDC053		;タマゴ？ ( no:EMDC053 )
  7870  E0030FE C9 002C         		CMP	#EGG09+1
  7871  E003101 B0 08           		BCS	EMDC053		;タマゴ？ ( no:EMDC053 )
  7872                          ;
  7873                          ;;;;		    LDA	    #01H
  7874                          ;;;;		    STA	    ENWRKC,X	    ;[ ※パワーショットタマゴのスクロールＳＴＯＰ ]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0134

  7875  E003103 A9 0004         		LDA	#04H		;パワーショットキャンセル
  7876  E003106 9D 7542         		STA	ENGPOW,X
  7877  E003109 80 0D           		BRA	EMDC060
  7878                          ;
  7879          00310B          EMDC053		EQU	$
  7880  E00310B BD 7D96         		LDA	ENCOLD,X
  7881  E00310E F0 04           		BEQ	EMDC056		;凍ってる？ ( no:EMDC056 )
  7882                          ;
  7883  E003110 5C 003595'      		JMP	>ICECL_SET
  7884                          ;
  7885          003114          EMDC056		EQU	$
  7886  E003114 22 00324B'      		JSL	>SHOT_EN_KILL	;ショット敵死亡セット
  7887                          ;
  7888          003118          EMDC060		EQU	$
  7889  E003118 68              		PLA			;pull pull return !!
  7890  E003119 7A              		PLY
  7891  E00311A 6B              		RTL
  7892                          ;
  7893                          ;------------------------------------------------------------------------
  7894                          ;-		タマゴＢＧ反射サウンドセット				-
  7895                          ;------------------------------------------------------------------------
  7896          00311B          EGG_BGCR_SOUND	EQU	$
  7897  E00311B C9 0002         		CMP	#2
  7898  E00311E B0 03           		BCS	EGG_BGC_SND_050
  7899  E003120 A9 FFCE         		LDA	#067H-(09CH-2)+1
  7900          003123          EGG_BGC_SND_050 EQU	$
  7901                          ;;;;		    CLC
  7902  E003123 69 0099         		ADC	#(09CH-2)-1
  7903  E003126 C9 009F         		CMP	#09EH+1
  7904  E003129 90 03           		BCC	EGG_BGC_SND_100
  7905  E00312B A9 009E         		LDA	#09EH
  7906          00312E          EGG_BGC_SND_100 EQU	$
  7907  E00312E 22 003212'      		JSL	>SOUND_XYST	;[♪]
  7908  E003132 60              		RTS
  7909                          ;
  7910                          ;------------------------------------------------------------------------
  7911                          ;-		プレイヤー跳ね飛ばし衝突チェック			-
  7912                          ;------------------------------------------------------------------------
  7913          003133          NOFAIL_CRCK	EQU	$
  7914  E003133 BC 7D36         		LDY	ECRSFG,X
  7915  E003136 10 08           		BPL	NOFAIL_CRCK_010 ;プレイヤーと当たった？ ( no:NOFAIL_CRCK_010 )
  7916                          ;
  7917  E003138 22 00535D'      		JSL	>PLCRMKCK	;プレイヤー衝突位置チェック
  7918  E00313C BB              		TYX			;(X) <-- プレイヤーとの衝突位置
  7919  E00313D FC 3141'        		JSR	(!NOFAIL_INIT,X)
  7920                          ;
  7921          003140          NOFAIL_CRCK_010 EQU	$
  7922  E003140 6B              		RTL
  7923                          ;
  7924                          ;----------------------------------------------------------------
  7925                          ;-		プレイヤー跳ね飛ばし衝突チェックルーチンテーブル-
  7926                          ;----------------------------------------------------------------
  7927          003141          NOFAIL_INIT	EQU	$
  7928  E003141 3149'           		WORD	NOFAIL_INIT_0	;[0] 右
  7929  E003143 3149'           		WORD	NOFAIL_INIT_1	;[2] 左
  7930  E003145 318B'           		WORD	NOFAIL_INIT_2	;[4] 頭
  7931  E003147 31C4'           		WORD	NOFAIL_INIT_3	;[6] 足
  7932                          ;
  7933                          ;----------------------------------------------------------------
  7934                          ;-		プレイヤー跳ね飛ばし衝突チェック（右、左）	-
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0135

  7935                          ;----------------------------------------------------------------
  7936          003149          NOFAIL_INIT_0	EQU	$
  7937          003149          NOFAIL_INIT_1	EQU	$
  7938  E003149 A6 12           		LDX	<ENINDX
  7939  E00314B BD 7C16         		LDA	EPWIDX,X
  7940  E00314E 5D 7220         		EOR	ENXSPD,X
  7941  E003151 10 37           		BPL	NOFAIL_INIT_020 ;当たりＯＫ？ ( no:NOFAIL_INIT_020 )
  7942                          ;
  7943  E003153 A9 001C         		LDA	#01CH		;[♪]
  7944  E003156 22 000000"      		JSL	>SOUND_3_ON
  7945                          ;
  7946  E00315A A9 FE00         		LDA	#0FE00H
  7947  E00315D BC 77C2         		LDY	EPXMUK,X
  7948  E003160 F0 03           		BEQ	NOFAIL_INIT_010
  7949  E003162 A9 0200         		LDA	#0200H
  7950          003165          NOFAIL_INIT_010 EQU	$
  7951  E003165 8D 60B4         		STA	PLMVSP		;プレイヤースピードセット
  7952  E003168 8D 60A8         		STA	PLXSPD		;
  7953  E00316B 49 FFFF         		EOR	#0FFFFH
  7954  E00316E 1A              		INC	A
  7955  E00316F 9D 7220         		STA	ENXSPD,X	;敵のスピードセット
  7956  E003172 A9 FD00         		LDA	#0FD00H
  7957  E003175 8D 60AA         		STA	PLYSPD		;プレイヤースピードセット
  7958  E003178 A9 0008         		LDA	#P008
  7959  E00317B 8D 60C0         		STA	PLJUMP		;プレイヤージャンプ”ＯＮ”
  7960  E00317E A9 FD00         		LDA	#0FD00H
  7961  E003181 9D 7222         		STA	ENYSPD,X	;敵のスピードセット
  7962  E003184 A9 0040         		LDA	#040H
  7963  E003187 9D 7542         		STA	ENGPOW,X	;敵の重力セット
  7964          00318A          NOFAIL_INIT_020 EQU	$
  7965  E00318A 60              		RTS
  7966                          ;
  7967                          ;----------------------------------------------------------------
  7968                          ;-		敵プレイヤー跳ね飛ばし衝突チェック（頭）	-
  7969                          ;----------------------------------------------------------------
  7970          00318B          NOFAIL_INIT_2	EQU	$
  7971  E00318B A6 12           		LDX	<ENINDX
  7972  E00318D BD 7C18         		LDA	EPWIDY,X
  7973  E003190 5D 7222         		EOR	ENYSPD,X
  7974  E003193 10 2E           		BPL	NOFAIL_INIT_240 ;当たりＯＫ？ ( no:NOFAIL_INIT_240 )
  7975                          ;
  7976  E003195 A9 001C         		LDA	#01CH		;[♪]
  7977  E003198 22 000000"      		JSL	>SOUND_3_ON
  7978                          ;
  7979  E00319C BD 7222         		LDA	ENYSPD,X
  7980  E00319F 10 03           		BPL	NOFAIL_INIT_210
  7981  E0031A1 A9 0000         		LDA	#00
  7982          0031A4          NOFAIL_INIT_210 EQU	$
  7983  E0031A4 2C 60AA         		BIT	PLYSPD
  7984  E0031A7 30 05           		BMI	NOFAIL_INIT_220
  7985  E0031A9 CD 60AA         		CMP	PLYSPD
  7986  E0031AC 30 03           		BMI	NOFAIL_INIT_230
  7987          0031AE          NOFAIL_INIT_220 EQU	$
  7988  E0031AE 8D 60AA         		STA	PLYSPD		;プレイヤースピードセット
  7989          0031B1          NOFAIL_INIT_230 EQU	$
  7990  E0031B1 A9 0005         		LDA	#05H
  7991  E0031B4 8D 60C2         		STA	PLSITD		;プレイヤーお座りセット
  7992  E0031B7 A9 FC00         		LDA	#0FC00H
  7993  E0031BA 9D 7222         		STA	ENYSPD,X	;敵のスピードセット
  7994  E0031BD A9 0040         		LDA	#040H
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0136

  7995  E0031C0 9D 7542         		STA	ENGPOW,X	;敵の重力セット
  7996          0031C3          NOFAIL_INIT_240 EQU	$
  7997  E0031C3 60              		RTS
  7998                          ;
  7999                          ;----------------------------------------------------------------
  8000                          ;-		プレイヤー跳ね飛ばし衝突チェック（足）		-
  8001                          ;----------------------------------------------------------------
  8002          0031C4          NOFAIL_INIT_3	EQU	$
  8003  E0031C4 A6 12           		LDX	<ENINDX
  8004  E0031C6 BD 7C18         		LDA	EPWIDY,X
  8005  E0031C9 5D 7222         		EOR	ENYSPD,X
  8006  E0031CC 10 3C           		BPL	NOFAIL_INIT_340 ;当たりＯＫ？ ( no:NOFAIL_INIT_340 )
  8007                          ;
  8008  E0031CE A9 001C         		LDA	#01CH		;[♪]
  8009  E0031D1 22 000000"      		JSL	>SOUND_3_ON
  8010                          ;
  8011  E0031D5 AD 60AA         		LDA	PLYSPD
  8012  E0031D8 10 03           		BPL	NOFAIL_INIT_310
  8013  E0031DA A9 0000         		LDA	#00
  8014          0031DD          NOFAIL_INIT_310 EQU	$
  8015  E0031DD 3C 7222         		BIT	ENYSPD,X
  8016  E0031E0 30 05           		BMI	NOFAIL_INIT_320
  8017  E0031E2 DD 7222         		CMP	ENYSPD,X
  8018  E0031E5 30 09           		BMI	NOFAIL_INIT_330
  8019          0031E7          NOFAIL_INIT_320 EQU	$
  8020  E0031E7 9D 7222         		STA	ENYSPD,X	;敵のスピードセット
  8021  E0031EA A9 0040         		LDA	#040H
  8022  E0031ED 9D 7542         		STA	ENGPOW,X	;敵の重力セット
  8023          0031F0          NOFAIL_INIT_330 EQU	$
  8024  E0031F0 AD 60FC         		LDA	!PLBGCR
  8025  E0031F3 29 0018         		AND	#0000000000011000B
  8026  E0031F6 D0 06           		BNE	NOFAIL_INIT_338		; プレイヤー頭当たり？
  8027                          ;						; [yes->NOFAIL_INIT_338]
  8028  E0031F8 A9 FC00         		LDA	#0FC00H
  8029  E0031FB 8D 60AA         		STA	PLYSPD		;プレイヤースピードセット
  8030          0031FE          NOFAIL_INIT_338 EQU	$
  8031  E0031FE A9 0008         		LDA	#P008
  8032  E003201 8D 60C0         		STA	PLJUMP		;プレイヤージャンプ”ＯＮ”
  8033  E003204 A9 8001         		LDA	#01H+8000H
  8034  E003207 8D 60D2         		STA	PLSPJP		;ジタバタジャンプフラグ”ＯＮ”
  8035          00320A          NOFAIL_INIT_340 EQU	$
  8036  E00320A 60              		RTS
  8037                          ;
  8038          00320B          PLAYER_REBOUND	EQU	$		; プレイヤー跳ね返り
  8039  E00320B 9C 60D4         		STZ	!PLDOSN
  8040  E00320E 20 31F0'        		JSR	NOFAIL_INIT_330
  8041  E003211 6B              		RTL
  8042                          ;
  8043                          ;------------------------------------------------------------------------
  8044                          ;-		サウンドセット座標セット				-
  8045                          ;-			in :						-
  8046                          ;-				(A) <-- サウンドフラグ			-
  8047                          ;------------------------------------------------------------------------
  8048          003212          SOUND_XYST	EQU	$
  8049  E003212 22 000000"      		JSL	>SOUND_3_ON
  8050                          ;
  8051  E003216 A9 0040         		LDA	#040H
  8052  E003219 8D 61F2         		STA	SOUND_ON	;サウンドセットフラグセット
  8053  E00321C BD 70E2         		LDA	ENXPSL,X
  8054  E00321F 8D 6EB2         		STA	SOUND_X		;サウンドセットＸ座標セット
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0137

  8055  E003222 BD 7182         		LDA	ENYPSL,X
  8056  E003225 8D 6EB4         		STA	SOUND_Y		;サウンドセットＹ座標セット
  8057  E003228 6B              		RTL
  8058                          ;
  8059                          ;------------------------------------------------------------------------
  8060                          ;-		ショット敵死亡セット					-
  8061                          ;------------------------------------------------------------------------
  8062                          ;
  8063          003223          SCORE_P_DATA	EQU	$-(3*2) ;[EXCHPT]
  8064  E003229 0001            		WORD	1	;[1]
  8065  E00322B 0003            		WORD	3	;[2]
  8066  E00322D 0005            		WORD	5	;[3]
  8067                          ;;;;		    WORD    8	    ;[4]
  8068                          ;;;;		    WORD    -5	    ;[6]
  8069  
  8070                          ;
  8071          00322F          SHOT_EN_KILL_S	EQU	$
  8072  E00322F BC 7D36         		LDY	ECRSFG,X
  8073  E003232 F0 14           		BEQ	SHOT_EN_KILL_20 ;衝突してる？ ( no:SHOT_EN_KILL_20 )
  8074  E003234 10 05           		BPL	SHOT_EN_KILL_10 ;プレイヤーと衝突してる？ ( no:SHOT_EN_KILL_10 )
  8075                          ;
  8076                          ;-------------- プレイヤーとの衝突チェック ----------------------
  8077  E003236 22 0025BE'      		JSL	>EPCRCK_P
  8078  E00323A 6B              		RTL
  8079                          ;
  8080                          ;-------------- 敵との衝突チェック ------------------------------
  8081          00323B          SHOT_EN_KILL_10 EQU	$
  8082  E00323B B9 6EFF         		LDA	ENMODE-1,Y
  8083  E00323E C9 0010         		CMP	#EMOVE
  8084  E003241 D0 05           		BNE	SHOT_EN_KILL_20 ;敵健在？ ( no:SHOT_EN_KILL_10 )
  8085  E003243 B9 7D37         		LDA	ENSHOT-1,Y
  8086  E003246 D0 01           		BNE	SHOT_EN_KILL_30 ;ショット中？ ( yes:SHOT_EN_KILL_30 )
  8087          003248          SHOT_EN_KILL_20 EQU	$
  8088  E003248 6B              		RTL
  8089                          ;
  8090          003249          SHOT_EN_KILL_30 EQU	$
  8091  E003249 88              		DEY			;[-1]
  8092  E00324A BB              		TYX
  8093                          ;
  8094          00324B          SHOT_EN_KILL	EQU	$
  8095                          ;;;;		    JMP	    >ENDEATH_SET    ;敵の死亡セット
  8096                          ;
  8097                          ;------------------------------------------------------------------------
  8098                          ;-		敵の死亡セット						-
  8099                          ;------------------------------------------------------------------------
  8100          00324B          ENDEATH_SET	EQU	$
  8101  E00324B 22 000000"      		JSL	>HEIH0_DEATH_CHK	;ノーマルのへいほー、地下へいほー、草かげへいほー ?
  8102  E00324F F0 06           		BEQ	ENDEATH_SET_100		; yes: ENDEATH_SET_100
  8103  E003251 22 000000"      		JSL	>MATO0_DEATH_CHK	;まとくん殺す ?
  8104  E003255 D0 04           		BNE	ENDEATH_SET_200		; yes: ENDEATH_SET_200
  8105  
  8106          003257          ENDEATH_SET_100 EQU	$
  8107  E003257 A6 12           		LDX	<ENINDX
  8108  E003259 38              		SEC
  8109  E00325A 6B              		RTL
  8110  
  8111          00325B          ENDEATH_SET_200 EQU	$
  8112          00325B          ENDEATH_SET_4	EQU	$
  8113  E00325B BD 7360         		LDA	ENMYNO,X
  8114  E00325E C9 0028         		CMP	#KAMO1
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0138

  8115  E003261 D0 03           		BNE	ENDEATH_SET_FF8 ;カルガモ？ ( no:ENDEATH_SET_FF8 )
  8116          003263          ENDEATH_SET_FF7 EQU	$
  8117  E003263 4C 334C'        		JMP	SHOT_EN_KILL_60
  8118                          ;
  8119          003266          ENDEATH_SET_FF8 EQU	$
  8120  E003266 C9 002B         		CMP	#EGG09
  8121  E003269 D0 08           		BNE	ENDEATH_SET_3	;大きいタマゴ？ ( no:ENDEATH_SET_3 )
  8122  E00326B BD 75E2         		LDA	ENGMAX,X
  8123  E00326E C9 0401         		CMP	#0400H+1
  8124  E003271 B0 F0           		BCS	ENDEATH_SET_FF7 ;重たい？ ( yes:ENDEATH_SET_FF7 )
  8125                          ;
  8126          003273          ENDEATH_SET_3	EQU	$
  8127  E003273 A9 000C         		LDA	#EFALL		;落下死セット
  8128  E003276 9D 6F00         		STA	ENMODE,X
  8129                          ;
  8130  E003279 9E 7222         		STZ	ENYSPD,X
  8131  E00327C A9 0400         		LDA	#0400H
  8132  E00327F 9D 75E2         		STA	ENGMAX,X
  8133  E003282 9E 7220         		STZ	ENXSPD,X
  8134  E003285 9E 7540         		STZ	ENXPOW,X
  8135                          ;
  8136          003288          ENDEATH_SET_2	EQU	$
  8137  E003288 BD 7360         		LDA	ENMYNO,X
  8138  E00328B C9 0022         		CMP	#EGG00
  8139  E00328E 90 40           		BCC	ENDEATH_SET_FFB ;タマゴ？ ( no:ENDEATH_SET_FFB )
  8140  E003290 C9 002C         		CMP	#EGG09+1
  8141  E003293 B0 3B           		BCS	ENDEATH_SET_FFB ;    ”	  ( no:ENDEATH_SET_FFB )
  8142                          ;
  8143  E003295 C9 0026         		CMP	#KPBOM
  8144  E003298 90 25           		BCC	ENDEATH_SET_FFA ;中から何か出るタマゴ？ ( yes:ENDEATH_SET_FFA )
  8145                          ;
  8146  E00329A C9 0027         		CMP	#DRKEY
  8147  E00329D F0 10           		BEQ	ENDEATH_SET_FF9 ;カギ？ ( yes:ENDEATH_SET_FF9 )
  8148                          ;
  8149  E00329F BD 7542         		LDA	ENGPOW,X
  8150  E0032A2 C9 0040         		CMP	#040H
  8151  E0032A5 90 6C           		BCC	SHOT_EN_KILL_2	;消える？ ( yes:SHOT_EN_KILL_2 )
  8152                          ;
  8153  E0032A7 BD 7360         		LDA	ENMYNO,X
  8154  E0032AA C9 0029         		CMP	#YSEGG
  8155  E0032AD B0 64           		BCS	SHOT_EN_KILL_2	;大きいタマゴ？ ( yes:SHOT_EN_KILL_2 )
  8156                          ;
  8157          0032AF          ENDEATH_SET_FF9 EQU	$
  8158  E0032AF A9 0001         		LDA	#01H		;ＢＧ隠れキャンセル！！
  8159  E0032B2 95 18           		STA	<ENWRK0,X
  8160  E0032B4 A9 0040         		LDA	#040H
  8161  E0032B7 9D 7542         		STA	ENGPOW,X
  8162  E0032BA 9E 7D38         		STZ	ENSHOT,X
  8163  E0032BD 80 4C           		BRA	ENDEATH_SET_FFC
  8164                          ;
  8165                          ;-------------- タマゴからアイテム出現 --------------------------
  8166          0032BF          ENDEATH_SET_FFA EQU	$
  8167  E0032BF 20 33C2'        		JSR	EGG_ITEM_OUT
  8168          0032C2          ENDEATH_SET_FFA0 EQU	$
  8169  E0032C2 A9 0040         		LDA	#040H
  8170  E0032C5 9D 7542         		STA	ENGPOW,X
  8171          0032C8          ENDEATH_SET_FFA2 EQU	$
  8172  E0032C8 A9 0010         		LDA	#EMOVE		;モードセット
  8173  E0032CB 9D 6F00         		STA	ENMODE,X
  8174  E0032CE 80 4C           		BRA	SHOT_EN_KILL_3
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0139

  8175                          ;
  8176                          ;-------------- タマゴで無い --------------------------------------------
  8177          0032D0          ENDEATH_SET_FFB EQU	$
  8178  E0032D0 C9 0107         		CMP	#SUIKT
  8179  E0032D3 D0 07           		BNE	ENDEATH_SET_FFB0 ;スイカの種？ ( no:ENDEATH_SET_FFB0 )
  8180                          ;
  8181  E0032D5 22 000000"      		JSL	>SUIKT_DOWN_ST
  8182  E0032D9 4C 33BE'        		JMP	ENDEATH_SET_080
  8183                          ;
  8184          0032DC          ENDEATH_SET_FFB0 EQU	$
  8185  E0032DC A9 0040         		LDA	#040H
  8186  E0032DF 9D 7542         		STA	ENGPOW,X
  8187                          ;
  8188  E0032E2 BD 7360         		LDA	ENMYNO,X
  8189  E0032E5 C9 01A5         		CMP	#MONK0
  8190  E0032E8 90 64           		BCC	ENDEATH_SET_000 ;お猿さん？ ( no:ENDEATH_SET_000 )
  8191  E0032EA C9 01AA         		CMP	#MONK4+1
  8192  E0032ED B0 5F           		BCS	ENDEATH_SET_000 ;     ”    ( no:ENDEATH_SET_000 )
  8193                          ;
  8194  E0032EF BD 7A98         		LDA	ENTIM1,X
  8195  E0032F2 D0 58           		BNE	SHOT_EN_KILL_60 ;プレイヤーと当たり無しウェイト？ ( yes:SHOT_EN_KILL_60 )
  8196                          ;
  8197  E0032F4 A4 12           		LDY	<ENINDX
  8198  E0032F6 5A              		PHY
  8199  E0032F7 86 12           		STX	<ENINDX
  8200  E0032F9 22 000000"      		JSL	>MONKY_FAIL_SET
  8201  E0032FD 7A              		PLY
  8202  E0032FE 84 12           		STY	<ENINDX
  8203  E003300 B9 7360         		LDA	ENMYNO,Y
  8204  E003303 C9 0199         		CMP	#NISEF
  8205  E003306 D0 03           		BNE	ENDEATH_SET_FFC ;偽フラワー？ ( no:ENDEATH_SET_FFC )
  8206  E003308 4C 33AD'        		JMP	ENDEATH_SET_010
  8207                          ;
  8208          00330B          ENDEATH_SET_FFC EQU	$
  8209  E00330B A9 0010         		LDA	#EMOVE		;跳ね返る！！
  8210  E00330E 9D 6F00         		STA	ENMODE,X
  8211  E003311 80 09           		BRA	SHOT_EN_KILL_3
  8212                          ;
  8213          003313          SHOT_EN_KILL_2	EQU	$
  8214  E003313 A9 000E         		LDA	#EFAIL		;落下死セット
  8215  E003316 9D 6F00         		STA	ENMODE,X
  8216  E003319 9E 7D38         		STZ	ENSHOT,X	;ショットフラグリセット
  8217                          ;
  8218          00331C          SHOT_EN_KILL_3	EQU	$
  8219  E00331C A4 12           		LDY	<ENINDX
  8220  E00331E B9 7C76         		LDA	ECROSX,Y
  8221  E003321 D0 05           		BNE	SHOT_EN_KILL_35
  8222                          ;
  8223  E003323 EC 7972         		CPX	ENINDX
  8224  E003326 80 09           		BRA	SHOT_EN_KILL_45
  8225                          ;
  8226          003328          SHOT_EN_KILL_35 EQU	$
  8227  E003328 E4 12           		CPX	<ENINDX
  8228  E00332A F0 04           		BEQ	SHOT_EN_KILL_40
  8229  E00332C 49 FFFF         		EOR	#0FFFFH
  8230  E00332F 1A              		INC	A
  8231          003330          SHOT_EN_KILL_40 EQU	$
  8232  E003330 0A              		ASL	A		;(C) <-- (N)
  8233          003331          SHOT_EN_KILL_45 EQU	$
  8234  E003331 A9 FF00         		LDA	#0FF00H
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0140

  8235  E003334 90 03           		BCC	SHOT_EN_KILL_50
  8236  E003336 A9 0100         		LDA	#0100H
  8237          003339          SHOT_EN_KILL_50 EQU	$
  8238  E003339 9D 7220         		STA	ENXSPD,X
  8239  E00333C A9 FE00         		LDA	#0FE00H
  8240  E00333F 9D 7222         		STA	ENYSPD,X
  8241  E003342 A9 0040         		LDA	#040H
  8242  E003345 9D 7542         		STA	ENGPOW,X
  8243  E003348 22 0020A1'      		JSL	>DON0ST		;"Doon" set
  8244          00334C          SHOT_EN_KILL_60 EQU	$
  8245  E00334C 80 68           		BRA	ENDEATH_SET_070
  8246                          ;
  8247          00334E          ENDEATH_SET_000 EQU	$
  8248  E00334E C9 0115         		CMP	#COIN1
  8249  E003351 D0 2D           		BNE	ENDEATH_SET_002 ;コイン？ ( no:ENDEATH_SET_002 )
  8250                          ;
  8251                          ;-------------- コインカウンター加算 ------------------------------------
  8252          003353          COIN1_END_SET	EQU	$
  8253                          ;;;;		    INC	    COIN_ADD	    ;coin counter add !!
  8254                          ;
  8255  E003353 BD 7042         		LDA	ENCLOR,X
  8256  E003356 89 0002         		BIT	#00000010B	;(A) <-- コインカラー
  8257  E003359 F0 18           		BEQ	ENDEATH_SET_001 ;青コイン？ ( no:ENDEATH_SET_001 )
  8258                          ;
  8259          00335B          BLUE_COIN_INC	EQU	$
  8260  E00335B 22 0024E9'      		JSL	>EX_COIN_SET
  8261  
  8262  E00335F A9 0093         		LDA	#00093H
  8263  E003362 EE 03B4         		INC	CORS_COIN
  8264  E003365 AC 03B4         		LDY	CORS_COIN
  8265  E003368 C0 14           		CPY	#014H
  8266  E00336A 30 01           		BMI	B_C_I000
  8267  
  8268  E00336C 1A              		INC	A
  8269                          ;;;;;;;;		LDA	#00094H
  8270  
  8271          00336D          B_C_I000	EQU	$
  8272                          ;;;;;;;;		LDA	#018H		;[♪]
  8273  E00336D 22 000000"      		JSL	>SOUND_3_ON
  8274  E003371 80 4B           		BRA	ENDEATH_SET_080
  8275                          ;
  8276          003373          ENDEATH_SET_001 EQU	$
  8277  E003373 22 002520'      		JSL	>EX_COIN_SET_3
  8278  E003377 A9 0009         		LDA	#09H		;[♪]
  8279  E00337A 22 000000"      		JSL	>SOUND_3_ON
  8280  E00337E 80 3E           		BRA	ENDEATH_SET_080
  8281                          ;
  8282          003380          ENDEATH_SET_002 EQU	$
  8283  E003380 C9 0100         		CMP	#PUPBB
  8284  E003383 D0 17           		BNE	ENDEATH_SET_008 ;シャボン１ｕｐ？ ( no:ENDEATH_SET_008 )
  8285                          ;
  8286  E003385 BD 70E2         		LDA	ENXPSL,X
  8287  E003388 8D 0000         		STA	WORK0		;(WK0,1) <-- X pos set
  8288  E00338B BD 7182         		LDA	ENYPSL,X
  8289  E00338E 38              		SEC
  8290  E00338F E9 0004         		SBC	#04H
  8291  E003392 8D 0002         		STA	WORK2		;(WK2,3) <-- Y pos set
  8292  E003395 B5 18           		LDA	<ENWRK0,X	;(A) <-- 1up or 3up
  8293  E003397 1A              		INC	A		;[ 1,3 <- 0,2 ]
  8294  E003398 22 0024A5'      		JSL	>PL_UP_SET
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0141

  8295                          ;
  8296          00339C          ENDEATH_SET_008 EQU	$
  8297  E00339C A4 12           		LDY	<ENINDX
  8298  E00339E B9 7360         		LDA	ENMYNO,Y
  8299  E0033A1 C9 0107         		CMP	#SUIKT
  8300  E0033A4 D0 07           		BNE	ENDEATH_SET_010 ;相手はスイカの種？ ( no:ENDEATH_SET_010 )
  8301                          ;
  8302  E0033A6 9B              		TXY			;(Y) <-- (X)
  8303  E0033A7 20 342F'        		JSR	EGG_ITEM_TIMKN
  8304  E0033AA 4C 32C8'        		JMP	ENDEATH_SET_FFA2
  8305                          ;
  8306          0033AD          ENDEATH_SET_010 EQU	$
  8307                          ;
  8308                          		M8
  8308+ E0033AD E2 20           		SEP	#00100000b	
  8309                          ;
  8310  E0033AF A9 FF           		LDA	#0FFH		;再セット無しセット
  8311  E0033B1 9D 74A0         		STA	ENRETN,X
  8312                          ;
  8313                          		M16
  8313+ E0033B4 C2 20           		REP	#00100000b	
  8314                          ;
  8315          0033B6          ENDEATH_SET_070 EQU	$
  8316  E0033B6 EC 61B6         		CPX	PONLFFG
  8317  E0033B9 D0 03           		BNE	ENDEATH_SET_080
  8318  
  8319  E0033BB 9C 61B6         		STZ	PONLFFG
  8320          0033BE          ENDEATH_SET_080 EQU	$
  8321  
  8322  E0033BE A6 12           		LDX	<ENINDX
  8323  E0033C0 18              		CLC
  8324  E0033C1 6B              		RTL
  8325                          ;
  8326                          ;------------------------------------------------------------------------
  8327                          ;-		タマゴからアイテム出現					-
  8328                          ;-			in :						-
  8329                          ;------------------------------------------------------------------------
  8330          0033C2          EGG_ITEM_OUT	EQU	$
  8331  E0033C2 BD 70E2         		LDA	ENXPSL,X	;(WK0,1) <-- タマゴの殻セット用Ｘ座標セット
  8332  E0033C5 8D 0000         		STA	WORK0
  8333  E0033C8 BD 7182         		LDA	ENYPSL,X	;(WK2,3) <--	     ”	       Ｙ    ”
  8334  E0033CB 8D 0002         		STA	WORK2
  8335  E0033CE BD 7042         		LDA	ENCLOR,X	;(WK4,5)  <-- タマゴカラー
  8336  E0033D1 8D 0004         		STA	WORK4
  8337  E0033D4 DA              		PHX			;(X) save
  8338  E0033D5 22 000000"      		JSL	>EGG_WARE_SET	;タマゴ割れ殻セット
  8339  E0033D9 FA              		PLX			;(X) load
  8340                          ;
  8341  E0033DA 9B              		TXY			;(Y) <-- (X)
  8342                          ;
  8343  E0033DB BD 7360         		LDA	ENMYNO,X
  8344  E0033DE 38              		SEC
  8345  E0033DF E9 0022         		SBC	#EGG00
  8346  E0033E2 0A              		ASL	A
  8347  E0033E3 AA              		TAX
  8348  E0033E4 FC 33E9'        		JSR	(!EGG_ITEM_TBL,X)
  8349                          ;
  8350  E0033E7 BB              		TYX
  8351  E0033E8 60              		RTS
  8352                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0142

  8353          0033E9          EGG_ITEM_TBL	EQU	$
  8354  E0033E9 33FA'           		WORD	EGG_ITEM_COIN1R ;[EGG00] 赤コイン
  8355  E0033EB 342A'           		WORD	EGG_ITEM_TIMKNS ;[EGG02] スターくんいっぱい
  8356  E0033ED 341D'           		WORD	EGG_ITEM_COIN1	;[EGG01] 黄コイン
  8357                          ;;;;		    WORD    EGG_ITEM_TIMKN  ;[EGG03] スターくん
  8358  E0033EF 33F1'           		WORD	EGG_ITEM_NOSET	;[EGG03] 何も出ない
  8359                          ;
  8360                          ;----------------------------------------------------------------
  8361                          ;-		何も出ない					-
  8362                          ;----------------------------------------------------------------
  8363          0033F1          EGG_ITEM_NOSET	EQU	$
  8364  E0033F1 BB              		TYX
  8365  E0033F2 68              		PLA		;[ pull pull pull pull return !! ]
  8366  E0033F3 68              		PLA
  8367  E0033F4 22 00231E'      		JSL	>ENCLEAR
  8368  E0033F8 80 C4           		BRA	ENDEATH_SET_080
  8369                          ;
  8370                          ;----------------------------------------------------------------
  8371                          ;-		赤コインセット					-
  8372                          ;----------------------------------------------------------------
  8373          0033FA          EGG_ITEM_COIN1R EQU	$
  8374  E0033FA A9 0115         		LDA	#COIN1		;(A) <-- 敵Ｎｏ．
  8375  E0033FD 22 002377'      		JSL	>ESTATST	;敵エリア確保
  8376                          ;
  8377  E003401 B9 7042         		LDA	ENCLOR,Y	;カラー変更
  8378  E003404 49 0006         		EOR	#00000110B
  8379  E003407 99 7042         		STA	ENCLOR,Y
  8380          00340A          COIN1_INIT_SET	EQU	$
  8381  E00340A A9 0100         		LDA	#0100H		;初期タイマーセット
  8382  E00340D 99 7A96         		STA	ENTIM0,Y
  8383  E003410 A9 0140         		LDA	#0100H+040H
  8384  E003413 99 7A98         		STA	ENTIM1,Y
  8385                          ;;;;;;;;		LDA	#040H
  8386  E003416 A9 0010         		LDA	#010H
  8387  E003419 99 7AF6         		STA	ENTIM2,Y
  8388  E00341C 60              		RTS
  8389                          ;
  8390                          ;----------------------------------------------------------------
  8391                          ;-		黄コインセット					-
  8392                          ;----------------------------------------------------------------
  8393          00341D          EGG_ITEM_COIN1	EQU	$
  8394  E00341D A9 0115         		LDA	#COIN1		;(A) <-- 敵Ｎｏ．
  8395  E003420 22 002377'      		JSL	>ESTATST	;敵エリア確保
  8396                          ;
  8397  E003424 80 E4           		BRA	COIN1_INIT_SET
  8398                          ;
  8399  
  8400                          ;----------------------------------------------------------------
  8401                          ;-		スターくんセット				-
  8402                          ;----------------------------------------------------------------
  8403          003426          TIMKN_CHANGE	EQU	$
  8404  E003426 20 342F'        		JSR	EGG_ITEM_TIMKN
  8405  E003429 6B              		RTL
  8406                          ;
  8407                          ;----------------------------------------------------------------
  8408                          ;-		スターくんセット				-
  8409                          ;----------------------------------------------------------------
  8410          00342A          EGG_ITEM_TIMKNS EQU	$
  8411  E00342A A9 0001         		LDA	#2-1
  8412  E00342D 80 03           		BRA	EG_IT_TIMKN_100
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0143

  8413                          ;
  8414          00342F          EGG_ITEM_TIMKN	EQU	$
  8415  E00342F A9 0000         		LDA	#1-1
  8416          003432          EG_IT_TIMKN_100 EQU	$
  8417  E003432 85 08           		STA	<EWORK8		;(EWK8,9) <-- スターくんセット数
  8418                          ;
  8419  E003434 AD 03B6         		LDA	TIMER
  8420  E003437 C9 012C         		CMP	#300
  8421  E00343A A9 01A2         		LDA	#TIMKN		;(A) <-- 敵Ｎｏ．
  8422  E00343D 90 03           		BCC	EG_IT_TIMKN_150
  8423  E00343F A9 0115         		LDA	#COIN1		;(A) <-- 敵Ｎｏ．
  8424          003442          EG_IT_TIMKN_150 EQU	$
  8425  E003442 22 002377'      		JSL	>ESTATST	;敵エリア確保
  8426  E003446 A9 0000         		LDA	#0
  8427  E003449 99 7D96         		STA	ENCOLD,Y	;凍ってるフラグキャンセル
  8428  E00344C AD 03B6         		LDA	TIMER
  8429  E00344F C9 012C         		CMP	#300
  8430  E003452 90 05           		BCC	EG_IT_TIMKN_200
  8431  E003454 20 340A'        		JSR	COIN1_INIT_SET
  8432  E003457 80 0F           		BRA	EG_IT_TIMKN_250
  8433                          ;
  8434          003459          EG_IT_TIMKN_200 EQU	$
  8435  E003459 A9 0180         		LDA	#0180H		;初期タイマーセット
  8436  E00345C 99 7A96         		STA	ENTIM0,Y
  8437                          ;
  8438                          		M8
  8438+ E00345F E2 20           		SEP	#00100000b	
  8439                          ;
  8440  E003461 A9 FF           		LDA	#0FFH
  8441  E003463 99 74A0         		STA	ENRETN,Y	;再セット無し！！
  8442                          ;
  8443                          		M16
  8443+ E003466 C2 20           		REP	#00100000b	
  8444                          ;
  8445          003468          EG_IT_TIMKN_250 EQU	$
  8446  E003468 A5 08           		LDA	<EWORK8
  8447  E00346A F0 0D           		BEQ	EG_IT_TIMKN_300 ;スターくん１個セット？ ( yes:EG_IT_TIMKN_300 )
  8448                          ;
  8449  E00346C 5A              		PHY			;(Y) save
  8450                          ;
  8451  E00346D AD 03B6         		LDA	TIMER
  8452  E003470 18              		CLC
  8453  E003471 69 000A         		ADC	#10
  8454  E003474 22 004793'      		JSL	>TIMKN_MANY_SET
  8455                          ;
  8456  E003478 7A              		PLY			;(Y) load
  8457          003479          EG_IT_TIMKN_300 EQU	$
  8458  E003479 60              		RTS
  8459                          ;
  8460          00347A          BEAT_P_SET	EQU	$
  8461  E00347A AC 03BA         		LDY	SPECIAL_P	;スペシャルポイント加算
  8462  E00347D C0 1E           		CPY	#30
  8463  E00347F B0 1C           		BCS	BEAT_P_SET_020	;ＭＡＸポイントオーバー？ ( yes:BEAT_P_SET_020 )
  8464                          ;
  8465                          ;-------------- ＢＥＡＴポイント加算 ------------------------------------
  8466          003481          BEAT_P_SET_2	EQU	$
  8467  E003481 DA              		PHX			;(X) save
  8468                          ;
  8469  E003482 85 04           		STA	<EWORK4		;(EWK4,5) <-- pattern no.
  8470  E003484 0A              		ASL	A
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0144

  8471  E003485 AA              		TAX
  8472  E003486 AD 03BA         		LDA	SPECIAL_P	;スペシャルポイント加算
  8473  E003489 18              		CLC
  8474  E00348A 7F 003223'      		ADC	>SCORE_P_DATA,X
  8475  E00348E C9 001E         		CMP	#30
  8476  E003491 90 03           		BCC	BEAT_P_SET_010
  8477  E003493 A9 001E         		LDA	#30
  8478          003496          BEAT_P_SET_010	EQU	$
  8479  E003496 8D 03BA         		STA	SPECIAL_P
  8480                          ;
  8481  E003499 FA              		PLX			;(X) save
  8482  E00349A 4C 24C3'        		JMP	SCORE_SET
  8483                          ;
  8484                          ;-------------- ＢＥＡＴポイントＭＡＸオーバーによるコインセット --------
  8485          00349D          BEAT_P_SET_020	EQU	$
  8486  E00349D A9 0115         		LDA	#COIN1		;(A) <-- 敵Ｎｏ．
  8487  E0034A0 9B              		TXY			;(Y) <-- 敵インデックス
  8488  E0034A1 22 002364'      		JSL	>ENINSR		;敵エリア確保
  8489  E0034A5 90 2E           		BCC	BEAT_P_SET_030	;     ”     ？ ( no:BEAT_P_SET_030 )
  8490                          ;
  8491  E0034A7 A5 00           		LDA	<EWORK0		;Ｘ座標セット
  8492  E0034A9 99 70E2         		STA	ENXPSL,Y
  8493  E0034AC A5 02           		LDA	<EWORK2		;Ｙ座標セット
  8494  E0034AE 99 7182         		STA	ENYPSL,Y
  8495  E0034B1 A9 0030         		LDA	#0030H		;初期タイマーセット
  8496  E0034B4 99 7A96         		STA	ENTIM0,Y
  8497  E0034B7 99 7A98         		STA	ENTIM1,Y
  8498  E0034BA 99 7AF6         		STA	ENTIM2,Y
  8499                          ;;;;		    LDA	    #01H
  8500  E0034BD 99 79D8         		STA	ENWRK4,Y	;特殊セットフラグ”ＯＮ”
  8501  E0034C0 A9 FE80         		LDA	#0FE80H
  8502  E0034C3 99 7222         		STA	ENYSPD,Y	;Ｙスピードセット
  8503  E0034C6 A9 0008         		LDA	#08H
  8504  E0034C9 99 7542         		STA	ENGPOW,Y
  8505  E0034CC B9 6FA2         		LDA	ENMOD1,Y	;ＢＧチェック無しセット
  8506  E0034CF 29 FFE0         		AND	#1111111111100000B
  8507  E0034D2 99 6FA2         		STA	ENMOD1,Y
  8508          0034D5          BEAT_P_SET_030	EQU	$
  8509  E0034D5 6B              		RTL
  8510                          ;
  8511                          ;----------------------------------------------------------------
  8512                          ;-		タマゴが敵に当たった時の効果セット		-
  8513                          ;----------------------------------------------------------------
  8514          0034D6          FSMK2_SET	EQU	$
  8515                          ;-------------- サウンドセット座標セット --------
  8516  E0034D6 5A              		PHY
  8517  E0034D7 A9 003B         		LDA	#03BH		;[♪]
  8518  E0034DA 22 003212'      		JSL	>SOUND_XYST
  8519  E0034DE 7A              		PLY
  8520                          ;
  8521          0034DF          FSMK2_ST2	EQU	$
  8522  E0034DF B9 70E2         		LDA	ENXPSL,Y
  8523  E0034E2 85 00           		STA	<EWORK0
  8524  E0034E4 B9 7182         		LDA	ENYPSL,Y
  8525  E0034E7 85 02           		STA	<EWORK2
  8526                          ;
  8527  E0034E9 A9 0000"        		LDA	#FSMK2		;(A) <-- 効果Ｎｏ．
  8528  E0034EC 22 000000"      		JSL	>EXINSR		;効果エリア確保
  8529                          ;
  8530  E0034F0 A5 00           		LDA	<EWORK0
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0145

  8531  E0034F2 99 70A2         		STA	EXXPSL,Y
  8532  E0034F5 A5 02           		LDA	<EWORK2
  8533  E0034F7 99 7142         		STA	EXYPSL,Y
  8534  E0034FA A9 0003         		LDA	#03H
  8535  E0034FD 99 7782         		STA	EXTIM0,Y
  8536  E003500 A9 0000"        		LDA	#FSMK2P
  8537  E003503 99 73C2         		STA	EXCHPT,Y
  8538  E003506 6B              		RTL
  8539                          ;
  8540                          ;
  8541          003507          FSMK0_SET4	EQU	$
  8542                          ;
  8543                          ;-------------- 敵の死亡セット ------------------------------------------
  8544  E003507 22 00325B'      		JSL	>ENDEATH_SET_4
  8545                          ;
  8546                          ;-------------- 効果セット ----------------------------------------------
  8547          00350B          FSMK0_SET5	EQU	$
  8548  E00350B BD 70E2         		LDA	ENXPSL,X
  8549  E00350E 18              		CLC
  8550  E00350F 69 0008         		ADC	#08H
  8551  E003512 85 00           		STA	<EWORK0
  8552  E003514 BD 7182         		LDA	ENYPSL,X
  8553  E003517 18              		CLC
  8554  E003518 69 0008         		ADC	#08H
  8555  E00351B 85 02           		STA	<EWORK2
  8556  E00351D 80 4C           		BRA	FSMK0_SET0002
  8557                          ;
  8558          00351F          FSMK0_SET3	EQU	$
  8559                          ;
  8560                          ;-------------- 敵の死亡セット ------------------------------------------
  8561  E00351F 22 00325B'      		JSL	>ENDEATH_SET_4
  8562                          ;
  8563                          ;-------------- 効果セット ----------------------------------------------
  8564          003523          FSMK0_SET3_2	EQU	$
  8565  E003523 BD 70E2         		LDA	ENXPSL,X
  8566  E003526 18              		CLC
  8567  E003527 6D 608C         		ADC	PLXPSL
  8568  E00352A C9 8000         		CMP	#08000H
  8569  E00352D 6A              		ROR	A
  8570  E00352E 18              		CLC
  8571  E00352F 69 0008         		ADC	#00008
  8572  E003532 85 00           		STA	<EWORK0
  8573  
  8574  E003534 BD 7182         		LDA	ENYPSL,X
  8575  E003537 18              		CLC
  8576  E003538 6D 6090         		ADC	PLYPSL
  8577  E00353B 80 18           		BRA	FSMK0_SET0000
  8578  
  8579          00353D          FSMK0_SET	EQU	$
  8580  E00353D BD 70E2         		LDA	ENXPSL,X
  8581  E003540 18              		CLC
  8582  E003541 79 70E2         		ADC	ENXPSL,Y
  8583  E003544 C9 8000         		CMP	#08000H
  8584  E003547 6A              		ROR	A
  8585  E003548 18              		CLC
  8586  E003549 69 0008         		ADC	#00008
  8587  E00354C 85 00           		STA	<EWORK0
  8588  
  8589  E00354E BD 7182         		LDA	ENYPSL,X
  8590  E003551 18              		CLC
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0146

  8591  E003552 79 7182         		ADC	ENYPSL,Y
  8592  
  8593          003555          FSMK0_SET0000	EQU	$
  8594  E003555 C9 8000         		CMP	#08000H
  8595  E003558 6A              		ROR	A
  8596  E003559 18              		CLC
  8597  E00355A 69 0002         		ADC	#00002
  8598  E00355D 85 02           		STA	<EWORK2
  8599  
  8600  E00355F AD 0CCE         		LDA	DOONTM
  8601  E003562 F0 01           		BEQ	FSMK0_SET0001
  8602  
  8603  E003564 6B              		RTL
  8604  
  8605          003565          FSMK0_SET0001	EQU	$
  8606  E003565 A9 0010         		LDA	#010H
  8607  E003568 8D 0CCE         		STA	DOONTM
  8608  
  8609          00356B          FSMK0_SET0002	EQU	$
  8610  E00356B A9 0000"        		LDA	#FSMK0
  8611  
  8612          00356E          FSMK0_SET2	EQU	$
  8613  E00356E 48              		PHA			;(A) save
  8614                          ;
  8615                          ;-------------- サウンドセット座標セット --------
  8616  E00356F A9 001C         		LDA	#01CH		;[♪]
  8617  E003572 22 003212'      		JSL	>SOUND_XYST
  8618                          ;
  8619  E003576 68              		PLA			;(A) load
  8620          003577          FSMK0_SET2_2	EQU	$
  8621  E003577 22 000000"      		JSL	>EXINSR
  8622  
  8623  E00357B A5 00           		LDA	<EWORK0
  8624  E00357D 99 70A2         		STA	EXXPSL,Y
  8625  E003580 A5 02           		LDA	<EWORK2
  8626  E003582 99 7142         		STA	EXYPSL,Y
  8627  
  8628  E003585 A9 0004         		LDA	#00004
  8629  E003588 99 7782         		STA	EXTIM0,Y
  8630  
  8631  E00358B A9 0007         		LDA	#00007H
  8632  E00358E 99 73C2         		STA	EXCHPT,Y
  8633  E003591 99 7E4C         		STA	EXWRK0,Y
  8634  E003594 6B              		RTL
  8635                          ;
  8636                          ;------------------------------------------------------------------------
  8637                          ;-		氷になった敵の崩れるセット				-
  8638                          ;------------------------------------------------------------------------
  8639          003595          ICECL_SET	EQU	$
  8640  E003595 A9 00A1         		LDA	#0A1H		;[♪]
  8641  E003598 22 000000"      		JSL	>SOUND_3_ON
  8642                          ;
  8643                          ;-------------- 氷になった敵の崩れる効果セット --------------------------
  8644  E00359C A9 0000"        		LDA	#ICECL		;(A) <-- 効果Ｎｏ．
  8645  E00359F 22 000000"      		JSL	>EXINSR		;効果エリア確保
  8646  E0035A3 BD 70E2         		LDA	ENXPSL,X
  8647  E0035A6 99 70A2         		STA	EXXPSL,Y	;Ｘ座標セット
  8648  E0035A9 BD 7182         		LDA	ENYPSL,X
  8649  E0035AC 99 7142         		STA	EXYPSL,Y	;Ｙ座標セット
  8650  E0035AF A9 000B         		LDA	#0BH
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0147

  8651  E0035B2 99 73C2         		STA	EXCHPT,Y	;初期パターンＮｏ．セット
  8652  E0035B5 A9 0004         		LDA	#04H
  8653  E0035B8 99 7782         		STA	EXTIM0,Y	;初期タイマーセット
  8654                          ;
  8655                          ;-------------- 敵 死亡セット -------------------------------------------
  8656  E0035BB 22 003288'      		JSL	>ENDEATH_SET_2
  8657  E0035BF 5C 00231E'      		JMP	>ENCLEAR
  8658                          ;
  8659                          ;------------------------------------------------------------------------
  8660                          ;-		”凍ったキラキラ”セット				-
  8661                          ;-			in :						-
  8662                          ;-				(A) <-- ヨコサイズ			-
  8663                          ;-				(B) <-- タテ   ”			-
  8664                          ;------------------------------------------------------------------------
  8665                          ;
  8666          0035C3          COLD_KIRA_ST	EQU	$
  8667  E0035C3 22 000000"      		JSL	>RANDAM
  8668  E0035C7 AD 796F         		LDA	RANDM0-1
  8669  E0035CA 29 FF00         		AND	#0FF00H
  8670  E0035CD 1D 7BB8         		ORA	EWIDEY,X
  8671  E0035D0 8D 4202         		STA	4202H
  8672                          ;
  8673  E0035D3 AD 7971         		LDA	RANDM0+1	;ウェイト
  8674  E0035D6 4A              		LSR	A		;	 (C) <-- flag
  8675  E0035D7 EA              		NOP			;
  8676  E0035D8 EA              		NOP			;
  8677                          ;
  8678  E0035D9 AD 4217         		LDA	4217H
  8679  E0035DC 29 00FF         		AND	#00FFH
  8680  E0035DF 90 03           		BCC	COLD_KIRA_ST_10
  8681  E0035E1 49 FFFF         		EOR	#0FFFFH
  8682          0035E4          COLD_KIRA_ST_10 EQU	$
  8683  E0035E4 7D 70E2         		ADC	ENXPSL,X
  8684  E0035E7 85 00           		STA	<EWORK0
  8685                          ;
  8686  E0035E9 22 000000"      		JSL	>RANDAM
  8687  E0035ED AD 796F         		LDA	RANDM0-1
  8688  E0035F0 29 FF00         		AND	#0FF00H
  8689  E0035F3 1D 7BB6         		ORA	EWIDEX,X
  8690  E0035F6 8D 4202         		STA	4202H
  8691                          ;
  8692  E0035F9 AD 7971         		LDA	RANDM0+1	;ウェイト
  8693  E0035FC 4A              		LSR	A		;	 (C) <-- flag
  8694  E0035FD EA              		NOP			;
  8695  E0035FE EA              		NOP			;
  8696                          ;
  8697  E0035FF AD 4217         		LDA	4217H
  8698  E003602 29 00FF         		AND	#00FFH
  8699  E003605 90 03           		BCC	COLD_KIRA_ST_20
  8700  E003607 49 FFFF         		EOR	#0FFFFH
  8701          00360A          COLD_KIRA_ST_20 EQU	$
  8702  E00360A 7D 7182         		ADC	ENYPSL,X
  8703  E00360D 85 02           		STA	<EWORK2
  8704                          ;
  8705  E00360F A9 0000"        		LDA	#COLDK		;(A) <-- 効果Ｎｏ．
  8706  E003612 22 000000"      		JSL	>EXINSR		;効果エリア確保
  8707                          ;
  8708  E003616 A5 00           		LDA	<EWORK0
  8709  E003618 99 70A2         		STA	EXXPSL,Y	;Ｘ座標セット
  8710  E00361B A5 02           		LDA	<EWORK2
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0148

  8711  E00361D 38              		SEC
  8712  E00361E E9 0004         		SBC	#04H
  8713  E003621 99 7142         		STA	EXYPSL,Y	;Ｙ座標セット
  8714  E003624 A9 0006         		LDA	#06H
  8715  E003627 99 7E4C         		STA	EXWRK0,Y	;初期カウンターセット
  8716  E00362A A9 0004         		LDA	#04H
  8717  E00362D 99 7782         		STA	EXTIM0,Y	;初期タイマーセット
  8718  E003630 6B              		RTL
  8719                          ;
  8720                          ;************************************************************************
  8721                          ;*									*
  8722                          ;*		敵のビットマップＯＢＪ情報セット			*
  8723                          ;*									*
  8724                          ;*			ＩＮ   ： （Ｘ）    ← 敵インデックス		*
  8725                          ;*				  （Ｙ）    ← 転送エリアＮｏ．		*
  8726                          ;*									*
  8727                          ;*			ＯＵＴ ： （Ｘ）    ← ビットマップＯＢＪタイプ *
  8728                          ;*					      （０：２×２  ２：４×４）*
  8729                          ;*				  （Ｒ２）  ← プロットＸ座標		*
  8730                          ;*				  （Ｒ３）  ←	   ”  Ｙ ”		*
  8731                          ;*				  （Ｒ１２）← キャラクターアドレス	*
  8732                          ;*				  （Ｒ１３）←		”		*
  8733                          ;*									*
  8734                          ;*			ＢＲＫ ： （Ａ）				*
  8735                          ;*				  （Ｙ）				*
  8736                          ;*				  （ＥＷＫ０，１）			*
  8737                          ;*									*
  8738                          ;************************************************************************
  8739          003631          EN_BMPCHR_ST	EQU	$
  8740                          ;
  8741                          		I16
  8741+ E003631 C2 10           		REP	#00010000b	
  8742                          ;
  8743  E003633 BB              		TYX
  8744  E003634 BF 0029EE'      		LDA	>TROBJ_PLOT_Y,X
  8745  E003638 8D 3004         		STA	R2		;(R2) <-- plot start Y pos
  8746  E00363B BF 0029CE'      		LDA	>TROBJ_PLOT_X,X
  8747  E00363F 8D 3006         		STA	R3		;(R3) <--	"    X  "
  8748  E003642 A6 12           		LDX	<ENINDX
  8749  E003644 A9 0054         		LDA	#BANK CIPCHD
  8750  E003647 8D 301A         		STA	R13		;(R13) <-- chara address(B)
  8751  E00364A BD 7403         		LDA	ENCHPT+1,X
  8752  E00364D 29 00FF         		AND	#00FFH
  8753  E003650 3A              		DEC	A
  8754  E003651 0A              		ASL	A
  8755  E003652 A8              		TAY			;(Y) <-- 回転ＯＢＪルーチンタイプ
  8756  E003653 BD 7360         		LDA	ENMYNO,X
  8757  E003656 0A              		ASL	A
  8758  E003657 AA              		TAX
  8759  E003658 BF 0AA94B       		LDA	>ETCADR,X
  8760  E00365C AA              		TAX
  8761  E00365D 29 0400         		AND	#0400H
  8762  E003660 F0 03           		BEQ	EN_BMPCHR_ST_20
  8763  E003662 A9 8000         		LDA	#08000H
  8764          003665          EN_BMPCHR_ST_20 EQU	$
  8765  E003665 85 00           		STA	<EWORK0
  8766  E003667 8A              		TXA
  8767  E003668 89 0200         		BIT	#0200H
  8768  E00366B F0 02           		BEQ	EN_BMPCHR_ST_30
  8769  E00366D E6 00           		INC	<EWORK0
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0149

  8770          00366F          EN_BMPCHR_ST_30 EQU	$
  8771  E00366F 89 0100         		BIT	#0100H
  8772  E003672 F0 06           		BEQ	EN_BMPCHR_ST_40
  8773  E003674 A9 4000         		LDA	#04000H
  8774  E003677 04 00           		TSB	<EWORK0
  8775  E003679 8A              		TXA
  8776          00367A          EN_BMPCHR_ST_40 EQU	$
  8777  E00367A 29 0080         		AND	#0080H
  8778  E00367D 04 00           		TSB	<EWORK0
  8779  E00367F 8A              		TXA
  8780  E003680 29 0070         		AND	#0070H
  8781  E003683 EB              		XBA
  8782  E003684 4A              		LSR	A
  8783  E003685 04 00           		TSB	<EWORK0
  8784  E003687 8A              		TXA
  8785  E003688 29 000F         		AND	#000FH
  8786  E00368B 0A              		ASL	A
  8787  E00368C 0A              		ASL	A
  8788  E00368D 0A              		ASL	A
  8789  E00368E 05 00           		ORA	<EWORK0
  8790  E003690 8D 3018         		STA	R12		;(R12) <-- chara address(L,H)
  8791                          ;
  8792                          		I8
  8792+ E003693 E2 10           		SEP	#00010000b	
  8793                          ;
  8794  E003695 BB              		TYX
  8795  E003696 6B              		RTL
  8796                          ;
  8797                          ;************************************************************************
  8798                          ;*									*
  8799                          ;*		敵の座標計算						*
  8800                          ;*									*
  8801                          ;************************************************************************
  8802                          ;
  8803          003697          EN_XYMOVE2	EQU	$
  8804  E003697 BD 7860         		LDA	ENCBFG,X
  8805  E00369A 4A              		LSR	A
  8806  E00369B B0 3C           		BCS	EN_XYMOVE_030
  8807  
  8808          00369D          EN_XYMOVE	EQU	$
  8809  E00369D BD 75E2         		LDA	ENGMAX,X
  8810  E0036A0 38              		SEC
  8811  E0036A1 FD 7222         		SBC	ENYSPD,X
  8812  E0036A4 0A              		ASL	A		;(C) <-- (N)
  8813  E0036A5 BD 7542         		LDA	ENGPOW,X
  8814  E0036A8 90 04           		BCC	EN_XYMOVE_010
  8815  E0036AA 49 FFFF         		EOR	#0FFFFH
  8816  E0036AD 1A              		INC	A
  8817          0036AE          EN_XYMOVE_010	EQU	$
  8818  E0036AE 18              		CLC
  8819  E0036AF 7D 7222         		ADC	ENYSPD,X
  8820  E0036B2 9D 7222         		STA	ENYSPD,X
  8821                          ;
  8822  E0036B5 29 00FF         		AND	#00FFH
  8823  E0036B8 EB              		XBA
  8824  E0036B9 18              		CLC
  8825  E0036BA 7D 7180         		ADC	ENYSDR-1,X
  8826  E0036BD 9D 7180         		STA	ENYSDR-1,X	;(C) set
  8827                          ;
  8828  E0036C0 BD 7222         		LDA	ENYSPD,X
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0150

  8829  E0036C3 29 FF00         		AND	#0FF00H
  8830  E0036C6 10 03           		BPL	EN_XYMOVE_020
  8831  E0036C8 09 00FF         		ORA	#00FFH
  8832          0036CB          EN_XYMOVE_020	EQU	$
  8833  E0036CB EB              		XBA
  8834  E0036CC 69 0000         		ADC	#0
  8835  E0036CF 9D 72C2         		STA	ENMOVY,X
  8836                          ;
  8837  E0036D2 18              		CLC
  8838  E0036D3 7D 7182         		ADC	ENYPSL,X
  8839  E0036D6 9D 7182         		STA	ENYPSL,X
  8840  
  8841          0036D9          EN_XYMOVE_030	EQU	$
  8842  E0036D9 BD 75E0         		LDA	ENXMAX,X
  8843  E0036DC 38              		SEC
  8844  E0036DD FD 7220         		SBC	ENXSPD,X
  8845  E0036E0 0A              		ASL	A		;(C) <-- (N)
  8846  E0036E1 BD 7540         		LDA	ENXPOW,X
  8847  E0036E4 90 04           		BCC	EN_XYMOVE_040
  8848  E0036E6 49 FFFF         		EOR	#0FFFFH
  8849  E0036E9 1A              		INC	A
  8850          0036EA          EN_XYMOVE_040	EQU	$
  8851  E0036EA 18              		CLC
  8852  E0036EB 7D 7220         		ADC	ENXSPD,X
  8853  E0036EE 9D 7220         		STA	ENXSPD,X
  8854                          ;
  8855  E0036F1 29 00FF         		AND	#00FFH
  8856  E0036F4 EB              		XBA
  8857  E0036F5 18              		CLC
  8858  E0036F6 7D 70E0         		ADC	ENXSDR-1,X
  8859  E0036F9 9D 70E0         		STA	ENXSDR-1,X	;(C) set
  8860                          ;
  8861  E0036FC BD 7220         		LDA	ENXSPD,X
  8862  E0036FF 29 FF00         		AND	#0FF00H
  8863  E003702 10 03           		BPL	EN_XYMOVE_050
  8864  E003704 09 00FF         		ORA	#00FFH
  8865          003707          EN_XYMOVE_050	EQU	$2
  8866  E003707 EB              		XBA
  8867  E003708 69 0000         		ADC	#0
  8868  E00370B 9D 72C0         		STA	ENMOVX,X
  8869                          ;
  8870  E00370E 18              		CLC
  8871  E00370F 7D 70E2         		ADC	ENXPSL,X
  8872  E003712 9D 70E2         		STA	ENXPSL,X
  8873                          ;
  8874  E003715 6B              		RTL
  8875                          ;
  8876                          ;************************************************************************
  8877                          ;*									*
  8878                          ;*		敵のタイマー計算					*
  8879                          ;*									*
  8880                          ;************************************************************************
  8881          003716          EN_TIMER	EQU	$
  8882  E003716 AD 61B0         		LDA	ENSTFG
  8883  E003719 0D 0B55         		ORA	BIRIBIRI
  8884  E00371C 0D 0398         		ORA	ITEMNO
  8885  E00371F F0 20           		BEQ	EN_TIM0800
  8886  
  8887  E003721 BD 7A96         		LDA	ENTIM0,X
  8888  E003724 F0 03           		BEQ	EN_TIM0100
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0151

  8889  E003726 DE 7A96         		DEC	ENTIM0,X
  8890          003729          EN_TIM0100	EQU	$
  8891  E003729 BD 7A98         		LDA	ENTIM1,X
  8892  E00372C F0 03           		BEQ	EN_TIM0200
  8893  E00372E DE 7A98         		DEC	ENTIM1,X
  8894          003731          EN_TIM0200	EQU	$
  8895  E003731 BD 7AF6         		LDA	ENTIM2,X
  8896  E003734 F0 03           		BEQ	EN_TIM0300
  8897  E003736 DE 7AF6         		DEC	ENTIM2,X
  8898          003739          EN_TIM0300	EQU	$
  8899  E003739 BD 7AF8         		LDA	ENTIM3,X
  8900  E00373C F0 03           		BEQ	EN_TIM0800
  8901  E00373E DE 7AF8         		DEC	ENTIM3,X
  8902          003741          EN_TIM0800	EQU	$
  8903  
  8904  E003741 6B              		RTL
  8905                          ;
  8906                          ;************************************************************************
  8907                          ;*		intial	( タマゴ )					*
  8908                          ;************************************************************************
  8909          003742          EGG00IN		EQU	$
  8910  E003742 22 00375E'      		JSL	>EGG00_COL_SET	;赤コインタマゴカラーセット
  8911                          ;
  8912          003746          EGG01IN		EQU	$
  8913          003746          EGG02IN		EQU	$
  8914  E003746 BD 7902         		LDA	ENWRKC,X
  8915  E003749 D0 0E           		BNE	EGG00IN_0100	;セーブビット情報チェック？ ( no:EGG00IN_0100 )
  8916                          ;
  8917  E00374B 22 0053F8'      		JSL	>EXIST_CHECK2
  8918  E00374F F0 04           		BEQ	EGG00IN_0050	;セットＯＫ？ ( yes:EGG00IN_0050 )
  8919  E003751 5C 00232E'      		JMP	>ENCLEAR_NORETN
  8920                          ;
  8921          003755          EGG00IN_0050	EQU	$
  8922  E003755 22 000000"      		JSL	>POSITION_SAVE
  8923          003759          EGG00IN_0100	EQU	$
  8924                          ;
  8925          003759          EGG03IN		EQU	$
  8926          003759          EGG08IN		EQU	$
  8927          003759          EGG09IN		EQU	$
  8928          003759          YSEGGIN		EQU	$
  8929  E003759 6B              		RTL
  8930                          ;
  8931                          ;------------------------------------------------------------------------
  8932                          ;-		赤コインタマゴカラーセット				-
  8933                          ;------------------------------------------------------------------------
  8934          00375A          EGG00_COL	EQU	$
  8935  E00375A 00 02 04 08     		BYTE	00000000B,00000010B,00000100B,00001000B
  8936                          ;
  8937          00375E          EGG00_COL_SET	EQU	$
  8938  E00375E 9B              		TXY
  8939  E00375F AD 0030         		LDA	FRCNT
  8940  E003762 29 0003         		AND	#03H
  8941  E003765 AA              		TAX
  8942  E003766 B9 7042         		LDA	ENCLOR,Y
  8943  E003769 29 00F1         		AND	#11110001B
  8944  E00376C 1F 00375A'      		ORA	>EGG00_COL,X
  8945  E003770 29 00FF         		AND	#00FFH
  8946  E003773 99 7042         		STA	ENCLOR,Y
  8947  E003776 BB              		TYX
  8948  E003777 6B              		RTL
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0152

  8949                          ;
  8950                          ;************************************************************************
  8951                          ;*		move	( タマゴ )					*
  8952                          ;*			※現在 (ENWRK8,9,A,B) は空き			*
  8953                          ;************************************************************************
  8954                          ;
  8955                          ;-------------- オプションポインターデータ ------------------------------
  8956          003778          EGOPAD		EQU	$
  8957  E003778 0002            		WORD	002H				;プレイヤーがリフトに乗っている時
  8958  E00377A 0018 002C 0040  		WORD	018H,02CH,040H,054H,068H,07CH
        E003780 0054 0068 007C 
  8959                          ;
  8960                          ;-------------- オプションポインター方向チェックデータ ------------------
  8961          003786          EGOPHS		EQU	$
  8962  E003786 0002 FFFE       		WORD	00002H,0FFFEH
  8963                          ;
  8964                          ;-------------- 歩いてる時の”トントン”ジャンプデータ ------------------
  8965          00378A          EG0JPA		EQU	$
  8966  E00378A 0000 0000 FFFF  		WORD	00000H,00000H,0FFFFH,0FFFEH,0FFFEH,0FFFDH,0FFFDH,0FFFDH
        E003790 FFFE FFFE FFFD 
        E003796 FFFD FFFD 
  8967  E00379A FFFD FFFE FFFE  		WORD	0FFFDH,0FFFEH,0FFFEH,0FFFFH,0FFFFH,00000H,00000H,00000H
        E0037A0 FFFF FFFF 0000 
        E0037A6 0000 0000 
  8968                          ;
  8969                          ;-------------- 敵からタマゴになる時のアクションパターンデータ ----------
  8970          0037AA          EGSTPT		EQU	$
  8971  E0037AA 0001 0000 0002  		WORD	1,0,2,3,3
        E0037B0 0003 0003 
  8972          0037B4          EGSTPT_E	EQU	$
  8973          00000A          EGGTM		EQU	EGSTPT_E-EGSTPT
  8974                          ;
  8975                          ;========================================================================
  8976                          ;=		move	( ヨッシー変身タマゴ )				=
  8977                          ;========================================================================
  8978          0037B4          YSEGGMV		EQU	$
  8979  E0037B4 BD 7AF8         		LDA	ENTIM3,X
  8980  E0037B7 D0 03           		BNE	EGG00MV_FFFF	;マリオ解除デモ？ ( yes:EGG00MV_FFFF )
  8981  E0037B9 4C 383C'        		JMP	EGG00MV_0000
  8982                          ;
  8983                          ;------------------------------------------------------------------------
  8984                          ;-		マリオ解除デモ						-
  8985                          ;------------------------------------------------------------------------
  8986          0037BC          EGG00MV_FFFF	EQU	$
  8987  E0037BC DE 7AF8         		DEC	ENTIM3,X
  8988  E0037BF F0 0C           		BEQ	EGG00MV_0010	;マリオ解除？ ( yes:EGG00MV_0010 )
  8989                          ;
  8990  E0037C1 C9 0002         		CMP	#02H
  8991  E0037C4 D0 75           		BNE	EGG00MV_0020	;ヨッシータマゴ消去？ ( no:EGG00MV_0020 )
  8992                          ;
  8993  E0037C6 A9 00FF         		LDA	#0FFH		;表示無しセット
  8994  E0037C9 9D 74A2         		STA	ENYUSN,X
  8995  E0037CC 6B              		RTL
  8996                          ;
  8997          0037CD          EGG00MV_0010	EQU	$
  8998                          ;
  8999                          ;-------------- マリオをヨッシーに変える --------------------------------
  9000                          		M_CHIP	MARIO_PS_HOSEI
  9000+ E0037CD A2 0B           		LDX	#BANK MARIO_PS_HOSEI
  9000+ E0037CF A9 AEB7         		LDA	#MARIO_PS_HOSEI
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0153

  9000+ E0037D2 22 000000"      		JSL	>CHIPON
  9001                          ;
  9002  E0037D6 A9 0010         		LDA	#00010000B	;マリオブロックスイッチ”ＯＦＦ”
  9003  E0037D9 1C 7E08         		TRB	SWITCH_1
  9004  E0037DC 9C 60AE         		STZ	PLTYPE		;マリオをヨッシーに変える
  9005  E0037DF 22 000000"      		JSL	>PLTYPE_RAMCLR
  9006                          ;
  9007  E0037E3 AD 6090         		LDA	PLYPSL		;Ｙ座標補正
  9008  E0037E6 18              		CLC
  9009  E0037E7 69 0004         		ADC	#04H
  9010  E0037EA 8D 6090         		STA	PLYPSL
  9011  E0037ED A9 0008         		LDA	#P008		;ヨッシーパターンＮｏ．セット
  9012  E0037F0 8D 60BE         		STA	PLPATN
  9013                          ;;;;		    LDA	    #P008
  9014  E0037F3 8D 60C0         		STA	PLJUMP		;ヨッシージャンプセット
  9015  E0037F6 A9 FC00         		LDA	#0FC00H
  9016  E0037F9 8D 60AA         		STA	PLYSPD
  9017  E0037FC 9C 60B4         		STZ	PLMVSP		;Ｘスピードセット
  9018  E0037FF 9C 60D2         		STZ	PLSPJP
  9019                          ;
  9020                          ;-------------- ヨッシータマゴを赤ちゃんに変える ------------------------
  9021  E003802 A6 12           		LDX	<ENINDX
  9022  E003804 22 003F87'      		JSL	>EGGKILL	;タマゴオプションキャンセルセット
  9023  E003808 22 00232E'      		JSL	>ENCLEAR_NORETN
  9024                          ;
  9025  E00380C A9 0061         		LDA	#BABYM		;(A) <-- 敵Ｎｏ．
  9026  E00380F 9B              		TXY
  9027  E003810 22 002377'      		JSL	>ESTATST
  9028                          ;
  9029  E003814 A9 0002         		LDA	#EINIT		;モードセット
  9030  E003817 9D 6F00         		STA	ENMODE,X
  9031  E00381A AD 6090         		LDA	PLYPSL
  9032  E00381D 8D 7182         		STA	ENYPSL
  9033  E003820 AD 608C         		LDA	PLXPSL
  9034  E003823 8D 70E2         		STA	ENXPSL
  9035                          ;
  9036  E003826 A9 BC00         		LDA	#CHR64+1E0H*20H ;マリオ変身中のヨッシータマゴキャラクター転送
  9037  E003829 8D 6114         		STA	PCHTRF
  9038                          ;
  9039                          ;-------------- 変身終了 ------------------------------------------------
  9040  E00382C 9C 61AE         		STZ	PLSTFG
  9041  E00382F 9C 61B0         		STZ	ENSTFG
  9042                          ;
  9043                          ;-------------- ＢＧＭセット --------------------------------------------
  9044  E003832 9C 004D         		STZ	SOUND_0
  9045  E003835 22 000000"      		JSL	>BGM_SET	;[♪]
  9046  E003839 A6 12           		LDX	<ENINDX
  9047                          ;
  9048          00383B          EGG00MV_0020	EQU	$
  9049  E00383B 6B              		RTL
  9050                          ;
  9051          00383C          EGG00MV_0000	EQU	$
  9052                          ;
  9053                          ;------------------------------------------------------------------------
  9054                          ;-		タマゴ特別チェック					-
  9055                          ;------------------------------------------------------------------------
  9056  E00383C 22 0039DD'      		JSL	>EGG_SP_CHECK
  9057                          ;
  9058                          ;-------------- ヨッシータマゴ解除チェック ------------------------------
  9059  E003840 AD 7E04         		LDA	SUPER_FLAG
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0154

  9060  E003843 3A              		DEC	A
  9061  E003844 D0 30           		BNE	EGG00MV_0040	;無敵終了？ ( no:EGG00MV_0040 )
  9062                          ;
  9063                          ;-------------- マリオ解除セット --------------------------------
  9064  E003846 AD 611C         		LDA	PCENTX		;Ｘ座標セット
  9065  E003849 18              		CLC
  9066  E00384A 6D 7CD6         		ADC	ECENTX
  9067  E00384D 4A              		LSR	A
  9068  E00384E 85 00           		STA	<EWORK0
  9069  E003850 AD 611E         		LDA	PCENTY		;Ｙ座標セット
  9070  E003853 18              		CLC
  9071  E003854 6D 7CD8         		ADC	ECENTY
  9072  E003857 4A              		LSR	A
  9073  E003858 85 02           		STA	<EWORK2
  9074  E00385A A9 0000"        		LDA	#FSMK1		;(A) <-- けむり効果Ｎｏ．（敵ＳＴＯＰ無視）
  9075  E00385D 22 00356E'      		JSL	>FSMK0_SET2
  9076                          ;
  9077  E003861 A9 0012         		LDA	#012H		;マリオ解除デモタイマーセット
  9078  E003864 9D 7AF8         		STA	ENTIM3,X
  9079                          ;;;;		    LDA	    #01H
  9080  E003867 8D 61AE         		STA	PLSTFG		;プレイヤーＳＴＯＰ！！
  9081  E00386A 8D 61B0         		STA	ENSTFG		;敵ＳＴＯＰ！！
  9082  E00386D 6B              		RTL
  9083                          ;
  9084                          ;========================================================================
  9085                          ;=		move	( 赤コインタマゴ )				=
  9086                          ;========================================================================
  9087          00386E          EGG00MV		EQU	$
  9088  E00386E 22 00375E'      		JSL	>EGG00_COL_SET	;赤コインタマゴカラーセット
  9089                          ;
  9090                          ;========================================================================
  9091                          ;=		move	( 赤タマゴ )					=
  9092                          ;========================================================================
  9093          003872          EGG01MV		EQU	$
  9094                          ;========================================================================
  9095                          ;=		move	( 黄タマゴ )					=
  9096                          ;========================================================================
  9097          003872          EGG02MV		EQU	$
  9098                          ;========================================================================
  9099                          ;=		move	( 緑タマゴ )					=
  9100                          ;========================================================================
  9101          003872          EGG03MV		EQU	$
  9102                          ;========================================================================
  9103                          ;=		move	( 赤大タマゴ )					=
  9104                          ;========================================================================
  9105          003872          EGG08MV		EQU	$
  9106                          ;========================================================================
  9107                          ;=		move	( 緑大タマゴ )					=
  9108                          ;========================================================================
  9109          003872          EGG09MV		EQU	$
  9110                          ;
  9111                          ;------------------------------------------------------------------------
  9112                          ;-		タマゴ特別チェック					-
  9113                          ;------------------------------------------------------------------------
  9114  E003872 22 0039DD'      		JSL	>EGG_SP_CHECK
  9115                          ;
  9116          003876          EGG00MV_0040	EQU	$
  9117  E003876 B5 78           		LDA	<ENWRK4,X
  9118  E003878 F0 03           		BEQ	EGG00MV_0050	;オプションモード？ ( no:EGG00MV_0050 )
  9119                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0155

  9120                          ;-------------- オプションモード ----------------------------------------
  9121  E00387A 4C 396D'        		JMP	EGG00MV_0500
  9122                          ;
  9123          00387D          EGG00MV_0050	EQU	$
  9124  E00387D BD 7A36         		LDA	ENWRK6,X
  9125  E003880 10 01           		BPL	EGG00MV_0051	;パターンチェンジロックでプレイヤーと当たり無し？ ( no:EGG00MV_0051 )
  9126          003882          EGG00MV_00500	EQU	$
  9127  E003882 6B              		RTL
  9128                          ;
  9129          003883          EGG00MV_0051	EQU	$
  9130  E003883 4A              		LSR	A
  9131  E003884 F0 08           		BEQ	EGG00MV_0100	;パターンチェンジロック？ ( no:EGG00MV_0100 )
  9132  E003886 BD 7222         		LDA	ENYSPD,X
  9133  E003889 30 F7           		BMI	EGG00MV_00500	;当たり無し？ ( yes:EGG00MV_00500 )
  9134  E00388B 4C 395E'        		JMP	EGG00MV_0220
  9135                          ;
  9136          00388E          EGG00MV_0100	EQU	$
  9137  E00388E F6 16           		INC	<ENCONT,X	;動作パターンカウンターセット
  9138                          ;
  9139  E003890 9E 7402         		STZ	ENCHPT,X	;通常パターンＮｏ．セット
  9140                          ;
  9141  E003893 B5 18           		LDA	<ENWRK0,X
  9142  E003895 D0 67           		BNE	EGG00MV_0200	;ＢＧ埋まってる？ ( no:EGG00MV_0200 )
  9143                          ;
  9144                          ;------------------------------------------------------------------------
  9145                          ;-		タマゴ隠れ中						-
  9146                          ;------------------------------------------------------------------------
  9147  E003897 BC 7860         		LDY	ENCBFG,X
  9148  E00389A D0 3E           		BNE	EGG00MV_0150	;ＢＧに埋まってる？ ( yes:EGG00MV_0150 )
  9149                          ;
  9150  E00389C A9 0040         		LDA	#040H		;重力セット
  9151  E00389F 9D 7542         		STA	ENGPOW,X
  9152  E0038A2 A9 0400         		LDA	#0400H
  9153  E0038A5 9D 75E2         		STA	ENGMAX,X
  9154                          ;
  9155          0038A8          EGG00_MVINT	EQU	$
  9156  E0038A8 F6 18           		INC	<ENWRK0,X	;タマゴ隠れキャンセル
  9157                          ;
  9158  E0038AA BD 7042         		LDA	ENCLOR,X	;通常ＢＧ優先順位変更
  9159  E0038AD 09 0020         		ORA	#00100000B
  9160  E0038B0 9D 7042         		STA	ENCLOR,X
  9161  E0038B3 BD 6FA0         		LDA	ENMOD0,X
  9162  E0038B6 29 FFBF         		AND	#1111111110111111B ;食べれるように変更
  9163  E0038B9 09 0200         		ORA	#0000001000000000B ;衝突チェックされる様に
  9164  E0038BC 9D 6FA0         		STA	ENMOD0,X
  9165  E0038BF A0 01           		LDY	#01H
  9166  E0038C1 BD 7360         		LDA	ENMYNO,X
  9167  E0038C4 C9 0029         		CMP	#YSEGG
  9168  E0038C7 90 02           		BCC	EGG00MV_0110	;大きいタマゴ？ ( no:EGG00MV_0110 )
  9169  E0038C9 A0 1A           		LDY	#01AH
  9170          0038CB          EGG00MV_0110	EQU	$
  9171  E0038CB 98              		TYA
  9172  E0038CC 85 00           		STA	<EWORK
  9173  E0038CE BD 6FA2         		LDA	ENMOD1,X	;ＢＧチェックサイズセット
  9174  E0038D1 29 FFC0         		AND	#1111111111000000B
  9175  E0038D4 05 00           		ORA	<EWORK
  9176  E0038D6 9D 6FA2         		STA	ENMOD1,X
  9177  E0038D9 6B              		RTL
  9178                          ;
  9179          0038DA          EGG00MV_0150	EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0156

  9180  E0038DA BD 7042         		LDA	ENCLOR,X	;タマゴ隠れ中ＢＧ優先順位変更
  9181  E0038DD 29 00CF         		AND	#11001111B
  9182  E0038E0 9D 7042         		STA	ENCLOR,X
  9183          0038E3          EGG00MV_0160	EQU	$
  9184  E0038E3 6B              		RTL
  9185                          ;
  9186                          ;------------------------------------------------------------------------
  9187                          ;-		タマゴ通常処理						-
  9188                          ;------------------------------------------------------------------------
  9189          0038E4          EGG_CLR_BLINK	EQU	$
  9190  E0038E4 0001 0001 0002  		WORD	01H,01H,02H,02H,04H,04H,08H,08H
        E0038EA 0002 0004 0004 
        E0038F0 0008 0008 
  9191                          ;
  9192          0038F4          EGG_JMP_END	EQU	$
  9193  E0038F4 01 01 00 00 04  		HEX	1,1,0,0,4,4,2,2,4,4
        E0038F9 04 02 02 04 04 
  9194                          ;
  9195          0038FE          EGG00MV_0200	EQU	$
  9196  E0038FE BD 7AF6         		LDA	ENTIM2,X
  9197  E003901 F0 27           		BEQ	EGG00MV_0208	;タマゴ消去ウェイト？ ( no:EGG00MV_0208 )
  9198                          ;
  9199  E003903 4A              		LSR	A
  9200  E003904 D0 09           		BNE	EGG00MV_0202	;消去？ ( no:EGG00MV_0202 )
  9201                          ;
  9202  E003906 9B              		TXY
  9203  E003907 22 0034D6'      		JSL	>FSMK2_SET
  9204  E00390B 5C 00231E'      		JMP	>ENCLEAR
  9205                          ;
  9206          00390F          EGG00MV_0202	EQU	$
  9207  E00390F C9 0040         		CMP	#080H/2
  9208  E003912 B0 16           		BCS	EGG00MV_0208	;点滅？ ( no:EGG00MV_0208 )
  9209  E003914 4A              		LSR	A
  9210  E003915 4A              		LSR	A
  9211  E003916 29 000E         		AND	#07H*2
  9212  E003919 A8              		TAY
  9213  E00391A B9 38E4'        		LDA	!EGG_CLR_BLINK,Y
  9214  E00391D A0 05           		LDY	#05H
  9215  E00391F 3D 7AF6         		AND	ENTIM2,X
  9216  E003922 F0 02           		BEQ	EGG00MV_0204
  9217  E003924 A0 FF           		LDY	#0FFH
  9218          003926          EGG00MV_0204	EQU	$
  9219  E003926 98              		TYA
  9220  E003927 9D 74A2         		STA	ENYUSN,X
  9221                          ;
  9222          00392A          EGG00MV_0208	EQU	$
  9223  E00392A BD 7860         		LDA	ENCBFG,X
  9224  E00392D 4A              		LSR	A		;[ AND #000001B ]
  9225  E00392E B0 10           		BCS	EGG00MV_0210	;着地？ ( yes:EGG00MV_0210 )
  9226                          ;
  9227                          ;-------------- ジャンプ中 ----------------------------------------------
  9228  E003930 A9 000A         		LDA	#02H*5		;着地の瞬間パターンセットタイマーセット
  9229  E003933 9D 7A98         		STA	ENTIM1,X
  9230                          ;
  9231  E003936 BD 7222         		LDA	ENYSPD,X
  9232  E003939 10 23           		BPL	EGG00MV_0220	;下降中？ ( yes:EGG00MV_0220 )
  9233                          ;
  9234  E00393B FE 7402         		INC	ENCHPT,X	;上昇中パターンＮｏ．セット
  9235  E00393E 80 2C           		BRA	EGG00MV_0230	;上昇中はプレイヤーと衝突チェックしない！
  9236                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0157

  9237                          ;-------------- 着地中 --------------------------------------------------
  9238          003940          EGG00MV_0210	EQU	$
  9239  E003940 22 002590'      		JSL	>XSDOWN		;Ｘスピード減速
  9240                          ;
  9241  E003944 BC 7A98         		LDY	ENTIM1,X
  9242  E003947 F0 0B           		BEQ	EGG00MV_0218	;着地の瞬間パターンセット？ ( no:EGG00MV_0218 )
  9243                          ;
  9244  E003949 B9 38F4'        		LDA	!EGG_JMP_END,Y
  9245  E00394C 29 00FF         		AND	#00FFH
  9246  E00394F 9D 7402         		STA	ENCHPT,X
  9247  E003952 80 0A           		BRA	EGG_PLCROSS
  9248                          ;
  9249          003954          EGG00MV_0218	EQU	$
  9250  E003954 B5 16           		LDA	<ENCONT,X	;着地中のパターンＮｏ．セット
  9251  E003956 29 0010         		AND	#010H
  9252  E003959 F0 03           		BEQ	EGG00MV_0220
  9253                          ;
  9254  E00395B FE 7402         		INC	ENCHPT,X
  9255                          ;
  9256                          ;-------------- プレイヤーとの衝突チェック ------------------------------
  9257          00395E          EGG_PLCROSS	EQU	$
  9258          00395E          EGG00MV_0220	EQU	$
  9259  E00395E BC 7D36         		LDY	ECRSFG,X
  9260  E003961 10 09           		BPL	EGG00MV_0230	;プレイヤーと衝突してる？ ( no:EGG00MV_0230 )
  9261                          ;
  9262  E003963 AD 60AE         		LDA	PLTYPE
  9263  E003966 D0 04           		BNE	EGG00MV_0230	;変身中？ ( yes:EGG00MV_0230 )
  9264                          ;
  9265                          ;-------------< タマゴオプションモードセット >-------------------
  9266  E003968 22 003EB9'      		JSL	>EGGSET
  9267                          ;
  9268          00396C          EGG00MV_0230	EQU	$
  9269  E00396C 6B              		RTL
  9270                          ;
  9271                          ;------------------------------------------------------------------------
  9272                          ;-		オプションモード					-
  9273                          ;------------------------------------------------------------------------
  9274          00396D          EGG00MV_0500	EQU	$
  9275  E00396D 22 003B1D'      		JSL	>EGG_OPTION	;[ (Y) <-- オプションポインター ]
  9276                          ;
  9277                          ;----------------------------------------------------------------
  9278                          ;-		オプションタマゴパターンセット			-
  9279                          ;----------------------------------------------------------------
  9280  E003971 9E 7402         		STZ	ENCHPT,X	;通常パターンＮｏ．セット
  9281                          ;
  9282  E003974 B9 0812         		LDA	EGOPT1-1,Y
  9283  E003977 29 FF00         		AND	#0FF00H
  9284  E00397A F0 07           		BEQ	EGG00MV_0510	;ジャンプ中？ ( no:EGG00MV_0510 )
  9285                          ;
  9286                          ;-------------- ジャンプ中 ------------------------------
  9287  E00397C 10 3E           		BPL	EGG00MV_0540	;下降中？ ( yes:EGG00MV_0540 )
  9288                          ;
  9289  E00397E FE 7402         		INC	ENCHPT,X	;上昇中パターンＮｏ．セット
  9290  E003981 80 39           		BRA	EGG00MV_0540
  9291                          ;
  9292                          ;-------------- 着地中 ----------------------------------
  9293          003983          EGG00MV_0510	EQU	$
  9294  E003983 AD 6EBC         		LDA	ENXP2L
  9295  E003986 38              		SEC
  9296  E003987 FD 70E2         		SBC	ENXPSL,X
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0158

  9297  E00398A 85 00           		STA	<EWORK0		;(EWK0,1) <-- Ｘ移動量
  9298  E00398C 0D 60A8         		ORA	PLXSPD
  9299  E00398F F0 1B           		BEQ	EGG00MV_0530	;Ｘ移動？ ( no:EGG00MV_0530 )
  9300                          ;
  9301                          ;-------------- 歩きパターンセット --------------
  9302  E003991 B5 16           		LDA	<ENCONT,X
  9303  E003993 29 000F         		AND	#0FH
  9304  E003996 0A              		ASL	A
  9305  E003997 A8              		TAY
  9306  E003998 B9 378A'        		LDA	!EG0JPA,Y
  9307  E00399B F0 03           		BEQ	EGG00MV_0520	;”トントン”ジャンプ中？ ( no:EGG00MV_0520 )
  9308                          ;
  9309  E00399D FE 7402         		INC	ENCHPT,X
  9310          0039A0          EGG00MV_0520	EQU	$
  9311  E0039A0 A5 00           		LDA	<EWORK0		;(A) <-- パターン切り替えスピード
  9312  E0039A2 F0 1F           		BEQ	EGG00MV_0550
  9313  E0039A4 10 20           		BPL	EGG00MV_0560
  9314  E0039A6 49 FFFF         		EOR	#0FFFFH
  9315  E0039A9 1A              		INC	A
  9316  E0039AA D0 1A           		BNE	EGG00MV_0560
  9317                          ;
  9318                          ;-------------- 止まってる時のパターンセット ------------
  9319          0039AC          EGG00MV_0530	EQU	$
  9320  E0039AC B5 16           		LDA	<ENCONT,X
  9321  E0039AE 18              		CLC
  9322  E0039AF 69 0010         		ADC	#010H
  9323  E0039B2 95 16           		STA	<ENCONT,X
  9324  E0039B4 29 0100         		AND	#100H
  9325  E0039B7 F0 03           		BEQ	EGG00MV_0540
  9326                          ;
  9327  E0039B9 FE 7402         		INC	ENCHPT,X
  9328                          ;
  9329                          ;-------------- パターンカウンターリセット --------------
  9330          0039BC          EGG00MV_0540	EQU	$
  9331  E0039BC B5 16           		LDA	<ENCONT,X
  9332  E0039BE 29 000F         		AND	#0FH
  9333  E0039C1 F0 03           		BEQ	EGG00MV_0560
  9334                          ;
  9335          0039C3          EGG00MV_0550	EQU	$
  9336  E0039C3 A9 0001         		LDA	#01H		;(A) <-- パターン切り替えスピード
  9337          0039C6          EGG00MV_0560	EQU	$
  9338                          ;
  9339                          		I8
  9339+ E0039C6 E2 10           		SEP	#00010000b	
  9340                          ;
  9341  E0039C8 18              		CLC
  9342  E0039C9 75 16           		ADC	<ENCONT,X	;パターンカウンターセット
  9343  E0039CB 95 16           		STA	<ENCONT,X
  9344                          ;
  9345  E0039CD 29 000F         		AND	#0FH		;タマゴ”トントン”セット
  9346  E0039D0 0A              		ASL	A
  9347  E0039D1 A8              		TAY
  9348  E0039D2 BD 7182         		LDA	ENYPSL,X
  9349  E0039D5 18              		CLC
  9350  E0039D6 79 378A'        		ADC	!EG0JPA,Y
  9351  E0039D9 9D 7182         		STA	ENYPSL,X
  9352  E0039DC 6B              		RTL
  9353                          ;
  9354                          ;========================================================================
  9355                          ;=		タマゴ特別チェック					=
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0159

  9356                          ;========================================================================
  9357          0039DD          EGG_SP_CHECK	EQU	$
  9358                          ;
  9359                          ;------------------------------------------------------------------------
  9360                          ;-		食べられキャンセルチェック				-
  9361                          ;------------------------------------------------------------------------
  9362  E0039DD BC 6F00         		LDY	ENMODE,X
  9363  E0039E0 C0 08           		CPY	#EEATM
  9364  E0039E2 D0 5F           		BNE	EGG_SP_CHECK_30 ;食べられてる？ ( no:EGG_SP_CHECK_30 )
  9365                          ;
  9366  E0039E4 AD 6152         		LDA	BERXPS
  9367  E0039E7 18              		CLC
  9368  E0039E8 6D 6154         		ADC	BERYPS
  9369  E0039EB 18              		CLC
  9370  E0039EC 69 0010         		ADC	#010H
  9371  E0039EF C9 0021         		CMP	#010H*2+1
  9372  E0039F2 B0 4F           		BCS	EGG_SP_CHECK_30 ;飛ぶ？ ( no:EGG_SP_CHECK_30 )
  9373                          ;
  9374                          ;-------------- 食べられキャンセル --------------------------------------
  9375  E0039F4 9C 6168         		STZ	EATSTP		;口に入れてるフラグキャンセル
  9376  E0039F7 A9 0010         		LDA	#EMOVE		;通常モードへ
  9377  E0039FA 9D 6F00         		STA	ENMODE,X
  9378  E0039FD 9E 7D38         		STZ	ENSHOT,X	;ショットフラグリセット
  9379                          ;;タマゴ食い込み防止の為;;		  STZ	  ENWRK6,X	  ;パターンチェンジロック解除
  9380  E003A00 9E 7860         		STZ	ENCBFG,X	;ＢＧ当たりフラグセット
  9381  E003A03 9E 7A96         		STZ	ENTIM0,X	;敵からタマゴになる時のアクションタイマーリセット
  9382  E003A06 BD 7360         		LDA	ENMYNO,X
  9383  E003A09 C9 0027         		CMP	#DRKEY
  9384  E003A0C F0 09           		BEQ	EGG_SP_CHECK_00 ;カギ？ ( yes:EGG_SP_CHECK_00 )
  9385                          ;
  9386  E003A0E BD 7040         		LDA	ENMOD2,X	;範囲クリアーセット
  9387  E003A11 09 0004         		ORA	#0000000000000100B
  9388  E003A14 9D 7040         		STA	ENMOD2,X
  9389          003A17          EGG_SP_CHECK_00 EQU	$
  9390  E003A17 A9 0040         		LDA	#040H		;重力セット
  9391  E003A1A 9D 7542         		STA	ENGPOW,X
  9392                          ;
  9393  E003A1D A9 FBC0         		LDA	#0FBC0H
  9394  E003A20 9D 7222         		STA	ENYSPD,X
  9395  E003A23 BD 7C16         		LDA	EPWIDX,X
  9396  E003A26 08              		PHP
  9397  E003A27 10 04           		BPL	EGG_SP_CHECK_10
  9398  E003A29 49 FFFF         		EOR	#0FFFFH
  9399  E003A2C 1A              		INC	A
  9400          003A2D          EGG_SP_CHECK_10 EQU	$
  9401  E003A2D 18              		CLC
  9402  E003A2E 69 0100         		ADC	#0100H
  9403  E003A31 28              		PLP
  9404  E003A32 30 04           		BMI	EGG_SP_CHECK_20
  9405  E003A34 49 FFFF         		EOR	#0FFFFH
  9406  E003A37 1A              		INC	A
  9407          003A38          EGG_SP_CHECK_20 EQU	$
  9408  E003A38 18              		CLC
  9409  E003A39 6D 60A8         		ADC	PLXSPD
  9410  E003A3C 9D 7220         		STA	ENXSPD,X
  9411                          ;
  9412  E003A3F 68              		PLA			;[ pull pull pull pull return !! ]
  9413  E003A40 68              		PLA			;
  9414  E003A41 68              		PLA			;
  9415  E003A42 6B              		RTL
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0160

  9416                          ;
  9417                          ;------------------------------------------------------------------------
  9418                          ;-		ショット中の状態セットチェック				-
  9419                          ;------------------------------------------------------------------------
  9420          003A43          EGG_SP_CHECK_30 EQU	$
  9421  E003A43 BD 7D38         		LDA	ENSHOT,X
  9422  E003A46 D0 0F           		BNE	EGG_SP_CHECK_31 ;ショット中？ ( yes:EGG_SP_CHECK_31 )
  9423                          ;
  9424  E003A48 B5 78           		LDA    <ENWRK4,X
  9425  E003A4A 3A              		DEC	A
  9426  E003A4B 30 06           		BMI	EGG_SP_CHECK_302 ;オプションモード？ ( no:EGG_SP_CHECK_302 )
  9427  E003A4D AD 61AE         		LDA	PLSTFG
  9428  E003A50 D0 01           		BNE	EGG_SP_CHECK_302 ;プレイヤーＳＴＯＰ？ ( yes:EGG_SP_CHECK_302 )
  9429  E003A52 6B              		RTL
  9430                          ;
  9431          003A53          EGG_SP_CHECK_302 EQU	 $
  9432  E003A53 5C 002F23'      		JMP	>ENMDCK		;モードチェック
  9433                          ;
  9434          003A57          EGG_SP_CHECK_31 EQU	$
  9435  E003A57 A0 34           		LDY	#014H+100000B
  9436  E003A59 BD 7360         		LDA	ENMYNO,X
  9437  E003A5C C9 0029         		CMP	#YSEGG
  9438  E003A5F 90 23           		BCC	EGG_SP_CHECK_310 ;大きいタマゴ？ ( no:EGG_SP_CHECK_310 )
  9439                          ;
  9440  E003A61 BD 7860         		LDA	ENCBFG,X
  9441  E003A64 4A              		LSR	A		 ;[ AND #00001B ]
  9442  E003A65 90 1B           		BCC	EGG_SP_CHECK_31E ;着地？ ( no:EGG_SP_CHECK_31E )
  9443                          ;
  9444                          ;-------------- ”ドスーン！！” ----------------------------------------
  9445  E003A67 A9 0060         		LDA	#060H		;地震セット
  9446  E003A6A 8D 61C6         		STA	TILTCT
  9447  E003A6D 22 000000"      		JSL	>TO_COIN_CHANGE
  9448  E003A71 22 003273'      		JSL	>ENDEATH_SET_3
  9449  E003A75 9E 7220         		STZ	ENXSPD,X
  9450                          ;
  9451  E003A78 A9 0047         		LDA	#047H		;[♪]
  9452  E003A7B 22 000000"      		JSL	>SOUND_3_ON
  9453                          ;
  9454  E003A7F 68              		PLA			;[ pull pull return !! ]
  9455  E003A80 7A              		PLY			;[		       ]
  9456  E003A81 6B              		RTL
  9457                          ;
  9458          003A82          EGG_SP_CHECK_31E EQU	$
  9459  E003A82 A0 3A           		LDY	#01AH+100000B
  9460          003A84          EGG_SP_CHECK_310 EQU	$
  9461  E003A84 98              		TYA
  9462  E003A85 85 00           		STA	<EWORK
  9463  E003A87 BD 6FA2         		LDA	ENMOD1,X	;ＢＧチェックタイプ変更（コインチェック）
  9464  E003A8A 29 FFC0         		AND	#1111111111000000B
  9465  E003A8D 05 00           		ORA	<EWORK
  9466  E003A8F 9D 6FA2         		STA	ENMOD1,X
  9467  E003A92 BD 6FA0         		LDA	ENMOD0,X	;衝突する様に
  9468  E003A95 09 0600         		ORA	#0000011000000000B
  9469  E003A98 9D 6FA0         		STA	ENMOD0,X
  9470                          ;
  9471  E003A9B BC 7542         		LDY	ENGPOW,X
  9472  E003A9E C0 40           		CPY	#040H
  9473  E003AA0 B0 B1           		BCS	EGG_SP_CHECK_302 ;パワーショット？ ( no:EGG_SP_CHECK_302 )
  9474                          ;
  9475                          ;-------------- プレイヤーと衝突 ----------------------------------------
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0161

  9476  E003AA2 BD 7A36         		LDA	ENWRK6,X
  9477  E003AA5 3A              		DEC	A
  9478  E003AA6 D0 04           		BNE	EGG_SP_CHECK_32 ;プレイヤーと衝突？ ( no:EGG_SP_CHECK_32 )
  9479                          ;
  9480  E003AA8 22 003133'      		JSL	>NOFAIL_CRCK
  9481                          ;
  9482                          ;-------------- スクロール基準特殊セット --------------------------------
  9483          003AAC          EGG_SP_CHECK_32 EQU	$
  9484  E003AAC BC 77C0         		LDY	ENWRKX,X
  9485  E003AAF D0 2E           		BNE	EGG_SP_CHECK_34 ;スクロールＯＫ？ ( no:EGG_SP_CHECK_34 )
  9486  E003AB1 BD 7A96         		LDA	ENTIM0,X
  9487  E003AB4 D0 1A           		BNE	EGG_SP_CHECK_320 ;スクロールＯＫ？ ( yes:EGG_SP_CHECK_320 )
  9488                          ;
  9489  E003AB6 AD 60B0         		LDA	PLDSXL
  9490  E003AB9 C9 FFF8         		CMP	#LEFT_X-010H
  9491  E003ABC 30 18           		BMI	EGG_SP_CHECK_33 ;プレイヤー左端オーバー？ ( yes:EGG_SP_CHECK_33 )
  9492  E003ABE C9 00F8         		CMP	#RIGHT_X+010H
  9493  E003AC1 10 13           		BPL	EGG_SP_CHECK_33 ;プレイヤー右端オーバー？ ( yes:EGG_SP_CHECK_33 )
  9494  E003AC3 AD 60B2         		LDA	PLDSYL
  9495  E003AC6 C9 0000         		CMP	#UP_Y-010H
  9496  E003AC9 30 0B           		BMI	EGG_SP_CHECK_33 ;プレイヤー上端オーバー？ ( yes:EGG_SP_CHECK_33 )
  9497  E003ACB C9 00C0         		CMP	#LOW_Y+010H
  9498  E003ACE 10 06           		BPL	EGG_SP_CHECK_33 ;プレイヤー下端オーバー？ ( yes:EGG_SP_CHECK_33 )
  9499                          ;
  9500          003AD0          EGG_SP_CHECK_320 EQU	$
  9501  E003AD0 22 004D07'      		JSL	>SP_SCRL_SET_3
  9502  E003AD4 80 09           		BRA	EGG_SP_CHECK_38
  9503                          ;
  9504          003AD6          EGG_SP_CHECK_33 EQU	$
  9505                          ;
  9506                          		M8
  9506+ E003AD6 E2 20           		SEP	#00100000b	
  9507                          ;
  9508  E003AD8 A9 01           		LDA	#01H		;スクロールキャンセル
  9509  E003ADA 9D 77C0         		STA	ENWRKX,X
  9510                          ;
  9511                          		M16
  9511+ E003ADD C2 20           		REP	#00100000b	
  9512                          ;
  9513          003ADF          EGG_SP_CHECK_34 EQU	$
  9514                          ;
  9515                          ;-------------- パワーショット残像セット --------------------------------
  9516          003ADF          EGG_SP_CHECK_38 EQU	$
  9517  E003ADF A5 14           		LDA	<FRCNT2
  9518  E003AE1 29 0001         		AND	#01H
  9519  E003AE4 0D 61B0         		ORA	ENSTFG
  9520  E003AE7 D0 30           		BNE	EGG_SP_CHECK_40 ;残像セット？ ( no:EGG_SP_CHECK_40 )
  9521                          ;
  9522  E003AE9 A9 0000"        		LDA	#DSMK0		;(A) <-- 効果Ｎｏ．
  9523  E003AEC 22 000000"      		JSL	>EXINSR		;効果エリア確保
  9524  E003AF0 BD 70E2         		LDA	ENXPSL,X
  9525  E003AF3 99 70A2         		STA	EXXPSL,Y	;Ｘ座標セット
  9526  E003AF6 BD 7182         		LDA	ENYPSL,X
  9527  E003AF9 99 7142         		STA	EXYPSL,Y	;Ｙ座標セット
  9528  E003AFC BD 7042         		LDA	ENCLOR,X	;ＢＧ優先順位セット
  9529  E003AFF 29 0030         		AND	#00110000B
  9530  E003B02 09 0006         		ORA	#00000110B
  9531  E003B05 99 7002         		STA	EXCLOR,Y
  9532  E003B08 A9 0006         		LDA	#06H
  9533  E003B0B 99 7462         		STA	EXYUSN,Y	;優先順位セット
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0162

  9534  E003B0E 3A              		DEC	A		;[ LDA #05H ]
  9535  E003B0F 99 7E4C         		STA	EXWRK0,Y	;初期カウンターセット
  9536                          ;;;;		    LDA	    #05H
  9537  E003B12 99 73C2         		STA	EXCHPT,Y	;初期パターンＮｏ．セット
  9538  E003B15 3A              		DEC	A		;[ LDA #04H ]
  9539  E003B16 99 7782         		STA	EXTIM0,Y	;初期タイマーセット
  9540                          ;
  9541          003B19          EGG_SP_CHECK_40 EQU	$
  9542  E003B19 5C 002F23'      		JMP	>ENMDCK		;モードチェック
  9543                          ;
  9544                          ;========================================================================
  9545                          ;=		タマゴオプションモード					=
  9546                          ;========================================================================
  9547          003B1D          EGG_OPTION	EQU	$
  9548                          ;
  9549                          ;------------------------------------------------------------------------
  9550                          ;-		タマゴ投げチェック					-
  9551                          ;------------------------------------------------------------------------
  9552  E003B1D 9E 7220         		STZ	ENXSPD,X	;Ｘスピードクリアー
  9553  E003B20 9E 7222         		STZ	ENYSPD,X	;Ｙ	 ”
  9554                          ;
  9555  E003B23 B4 78           		LDY	<ENWRK4,X	;(Y) <-- オプションＮｏ．
  9556  E003B25 30 03           		BMI	EGG_OPTION_0100 ;タマゴ投げ？ ( yes:EGG_OPTION_0100 )
  9557                          ;
  9558                          ;-------------- オプションセット ----------------------------------------
  9559  E003B27 4C 3DA1'        		JMP	EGG_OPTION_0800
  9560                          ;
  9561                          ;----------------------------------------------------------------
  9562                          ;-		タマゴ投げセット				-
  9563                          ;----------------------------------------------------------------
  9564          003B2A          EGG_OPTION_0100 EQU	$
  9565  E003B2A 68              		PLA			;[ pull pull return !! ]
  9566  E003B2B 7A              		PLY			;
  9567                          ;
  9568  E003B2C 9E 7402         		STZ	ENCHPT,X	;通常パターンＮｏ．セット
  9569                          ;
  9570  E003B2F AD 0B57         		LDA	GOAL_IN
  9571  E003B32 D0 05           		BNE	EGG_OPTION_0110 ;ゴールイン？ ( yes:EGG_OPTION_0110 )
  9572                          ;
  9573  E003B34 AC 60DE         		LDY	PLNAGE		;(Y) <-- プレイヤー投げパターン
  9574  E003B37 D0 32           		BNE	EGG_OPTION_0150 ;タマゴ投げキャンセル？ ( no:EGG_OPTION_0150 )
  9575                          ;
  9576                          ;-------------- タマゴ投げキャンセル ----------------------------
  9577          003B39          EGG_OPTION_0110 EQU	$
  9578  E003B39 74 78           		STZ	<ENWRK4,X	;オプション解除
  9579  E003B3B F6 18           		INC	<ENWRK0,X	;タマゴ隠れキャンセル
  9580  E003B3D A9 0040         		LDA	#040H		;重力セット
  9581  E003B40 9D 7542         		STA	ENGPOW,X
  9582                          ;
  9583  E003B43 BD 7360         		LDA	ENMYNO,X
  9584  E003B46 C9 0028         		CMP	#KAMO1
  9585  E003B49 D0 17           		BNE	EGG_OPTION_0111
  9586                          ;
  9587  E003B4B A9 FFFF         		LDA	#0FFFFH
  9588  E003B4E 95 18           		STA	<ENWRK0,X
  9589                          ;
  9590  E003B50 AD 0B57         		LDA	GOAL_IN
  9591  E003B53 D0 07           		BNE	EGG_OPTION_01100 ;ゴール？ ( yes:EGG_OPTION_01100 )
  9592                          ;
  9593  E003B55 A5 10           		LDA	<RANDM0			;まつもとくんにする ?
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0163

  9594  E003B57 29 0003         		AND	#00003H			;
  9595  E003B5A D0 06           		BNE	EGG_OPTION_0111		;  no: EGG_OPTION_0111
  9596                          ;
  9597          003B5C          EGG_OPTION_01100 EQU	$
  9598  E003B5C A9 0030         		LDA	#00030H			;プレイヤーチェックロックタイマーセット
  9599  E003B5F 9D 7AF6         		STA	ENTIM2,X		;
  9600                          ;
  9601          003B62          EGG_OPTION_0111 EQU	$
  9602  E003B62 AD 7FE8         		LDA	FURA_FG
  9603  E003B65 10 03           		BPL	EGG_OPTION_0120 ;”フラフラ”キャンセル？ ( no:EGG_OPTION_0120 )
  9604                          ;
  9605  E003B67 9C 7FE8         		STZ	FURA_FG
  9606          003B6A          EGG_OPTION_0120 EQU	$
  9607  E003B6A 6B              		RTL
  9608                          ;
  9609          003B6B          EGG_OPTION_0150 EQU	$
  9610  E003B6B C0 06           		CPY	#6
  9611  E003B6D B0 1A           		BCS	EGG_OPTION_0170 ;タマゴ投げデモ中？ ( yes:EGG_OPTION_0170 )
  9612                          ;
  9613                          ;----------------------------------------------------------------
  9614                          ;-		プレイヤー投げ向きセット			-
  9615                          ;----------------------------------------------------------------
  9616  E003B6F A0 00           		LDY	#00H
  9617  E003B71 AD 60E4         		LDA	PLNAGX
  9618  E003B74 38              		SEC
  9619  E003B75 FD 70E2         		SBC	ENXPSL,X
  9620  E003B78 F0 08           		BEQ	EGG_OPTION_0162
  9621  E003B7A 10 02           		BPL	EGG_OPTION_0160
  9622  E003B7C A0 02           		LDY	#02H
  9623          003B7E          EGG_OPTION_0160 EQU	$
  9624  E003B7E 98              		TYA
  9625  E003B7F 8D 60C4         		STA	PLCMKI
  9626                          ;
  9627          003B82          EGG_OPTION_0162 EQU	$
  9628  E003B82 AC 60DE         		LDY	PLNAGE		;(Y) <-- プレイヤー投げパターン
  9629  E003B85 C0 02           		CPY	#2
  9630  E003B87 F0 03           		BEQ	EGG_OPTION_0200 ;タマゴ投げセット？ ( yes:EGG_OPTION_0200 )
  9631          003B89          EGG_OPTION_0170 EQU	$
  9632  E003B89 4C 3D2E'        		JMP	EGG_OPTION_0400
  9633                          ;
  9634                          ;----------------------------------------------------------------
  9635                          ;-		タマゴ投げスピードセット			-
  9636                          ;----------------------------------------------------------------
  9637          003B8C          EGG_OPTION_0200 EQU	$
  9638                          ;;;;		    LDA	    #01H	    ;プレイヤーに当たる！！
  9639  E003B8C 9E 7A36         		STZ	ENWRK6,X
  9640                          ;
  9641  E003B8F 74 78           		STZ	<ENWRK4,X	;オプション解除
  9642  E003B91 A9 0020         		LDA	#020H		;投げフラグセット
  9643  E003B94 9D 7D38         		STA	ENSHOT,X
  9644  E003B97 AD 60C4         		LDA	PLCMKI		;向きセット
  9645  E003B9A 49 0002         		EOR	#02H
  9646  E003B9D 9D 7400         		STA	ENMUKI,X
  9647  E003BA0 A0 34           		LDY	#014H+100000B
  9648  E003BA2 BD 7360         		LDA	ENMYNO,X
  9649  E003BA5 C9 0029         		CMP	#YSEGG
  9650  E003BA8 90 0A           		BCC	EGG_OPTION_0210 ;大きいタマゴ？ ( no:EGG_OPTION_0210 )
  9651                          ;
  9652  E003BAA A0 3A           		LDY	#01AH+100000B
  9653  E003BAC AD 7FE8         		LDA	FURA_FG
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0164

  9654  E003BAF 10 03           		BPL	EGG_OPTION_0210 ;”フラフラ”キャンセル？ ( no:EGG_OPTION_0210 )
  9655                          ;
  9656  E003BB1 9C 7FE8         		STZ	FURA_FG
  9657                          ;
  9658          003BB4          EGG_OPTION_0210 EQU	$
  9659  E003BB4 98              		TYA
  9660  E003BB5 85 00           		STA	<EWORK
  9661  E003BB7 BD 6FA2         		LDA	ENMOD1,X	;ＢＧチェックタイプ変更（コインチェック）
  9662  E003BBA 29 FFC0         		AND	#1111111111000000B
  9663  E003BBD 05 00           		ORA	<EWORK
  9664  E003BBF 9D 6FA2         		STA	ENMOD1,X
  9665  E003BC2 74 18           		STZ	<ENWRK0,X	;跳ね返りカウンターリセット
  9666  E003BC4 74 16           		STZ	<ENCONT,X	;回転角初期セット
  9667                          ;
  9668  E003BC6 BD 7360         		LDA	ENMYNO,X
  9669  E003BC9 C9 0029         		CMP	#YSEGG
  9670  E003BCC 90 16           		BCC	EGG_OPTION_0212 ;大きいタマゴ？ ( no:EGG_OPTION_0212 )
  9671  E003BCE AC 0146         		LDY	DSPMOD
  9672  E003BD1 C0 0D           		CPY	#0DH
  9673  E003BD3 F0 0F           		BEQ	EGG_OPTION_0212 ;ゲロゲーロの胃袋？ ( yes:EGG_OPTION_0212 )
  9674                          ;
  9675                          ;-------------- 重たく！！ --------------------------------------
  9676  E003BD5 A9 0060         		LDA	#060H		;パワーショット重力セット
  9677  E003BD8 9D 7542         		STA	ENGPOW,X
  9678  E003BDB A9 0600         		LDA	#0600H		;パワーショットＭＡＸＹスピードセット
  9679  E003BDE 9D 75E2         		STA	ENGMAX,X
  9680          003BE1          EGG_OPTION_0211 EQU	$
  9681  E003BE1 4C 3CD9'        		JMP	EGG_OPTION_0250
  9682                          ;
  9683          003BE4          EGG_OPTION_0212 EQU	$
  9684  E003BE4 9E 7542         		STZ	ENGPOW,X	;パワーショット重力セット
  9685                          ;
  9686  E003BE7 BD 7360         		LDA	ENMYNO,X
  9687  E003BEA C9 0028         		CMP	#KAMO1
  9688  E003BED D0 64           		BNE	EGG_OPTION_0230 ;カルガモ？ ( no:EGG_OPTION_0230 )
  9689                          ;
  9690                          ;-------------- カルガモＭＡＸパワーショット --------------------
  9691  E003BEF BD 70E2         		LDA	ENXPSL,X
  9692  E003BF2 38              		SEC
  9693  E003BF3 ED 60E4         		SBC	PLNAGX
  9694  E003BF6 8D 3002         		STA	R1		;(R1) <-- Ｘ距離
  9695  E003BF9 BD 7182         		LDA	ENYPSL,X
  9696  E003BFC 38              		SEC
  9697  E003BFD ED 60E6         		SBC	PLNAGY
  9698  E003C00 8D 3004         		STA	R2		;(R2) <-- Ｙ距離
  9699                          		M_CHIP	M_RAD_GET
  9699+ E003C03 A2 0B           		LDX	#BANK M_RAD_GET
  9699+ E003C05 A9 A4F8         		LDA	#M_RAD_GET
  9699+ E003C08 22 000000"      		JSL	>CHIPON
  9700                          ;
  9701  E003C0C A6 12           		LDX	<ENINDX
  9702  E003C0E AD 3000         		LDA	R0
  9703  E003C11 BC 7400         		LDY	ENMUKI,X
  9704  E003C14 D0 04           		BNE	EGG_OPTION_0222
  9705  E003C16 49 00FF         		EOR	#0FFH
  9706  E003C19 1A              		INC	A
  9707          003C1A          EGG_OPTION_0222 EQU	$
  9708  E003C1A 38              		SEC
  9709  E003C1B E9 0018         		SBC	#018H
  9710  E003C1E 29 01FE         		AND	#01FEH
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0165

  9711  E003C21 48              		PHA
  9712  E003C22 BC 7400         		LDY	ENMUKI,X
  9713  E003C25 F0 03           		BEQ	EGG_OPTION_0223
  9714  E003C27 09 8000         		ORA	#8000H
  9715          003C2A          EGG_OPTION_0223 EQU	$
  9716  E003C2A 9D 7900         		STA	ENWRKA,X	;ショット角度セット
  9717                          ;
  9718                          		I16
  9718+ E003C2D C2 10           		REP	#00010000b	
  9719                          ;
  9720  E003C2F FA              		PLX
  9721  E003C30 BF 000000"      		LDA	>SIN,X
  9722  E003C34 0A              		ASL	A
  9723  E003C35 0A              		ASL	A
  9724  E003C36 0A              		ASL	A
  9725  E003C37 8D 3004         		STA	R2		;Ｙスピードセット
  9726  E003C3A BF 000000"      		LDA	>COS,X
  9727  E003C3E 0A              		ASL	A
  9728  E003C3F 0A              		ASL	A
  9729  E003C40 0A              		ASL	A
  9730                          ;
  9731                          		I8
  9731+ E003C41 E2 10           		SEP	#00010000b	
  9732                          ;
  9733  E003C43 A6 12           		LDX	<ENINDX
  9734  E003C45 BC 7400         		LDY	ENMUKI,X
  9735  E003C48 D0 04           		BNE	EGG_OPTION_0224
  9736  E003C4A 49 FFFF         		EOR	#0FFFFH
  9737  E003C4D 1A              		INC	A
  9738          003C4E          EGG_OPTION_0224 EQU	$
  9739  E003C4E 8D 3002         		STA	R1		;Ｘスピードセット
  9740  E003C51 80 68           		BRA	EGG_OPTION_0245
  9741                          ;
  9742          003C53          EGG_OPTION_0230 EQU	$
  9743  E003C53 C9 0026         		CMP	#KPBOM
  9744  E003C56 D0 3A           		BNE	EGG_OPTION_0240 ;大クッパ用投げ爆弾？ ( no:EGG_OPTION_0240 )
  9745                          ;
  9746                          ;-------------- ３Ｄ変換用基準Ｘ座標セット ----------------------
  9747  E003C58 BD 70E2         		LDA	ENXPSL,X
  9748  E003C5B 9D 7902         		STA	ENWRKC,X
  9749  E003C5E A9 000C         		LDA	#0CH
  9750  E003C61 9D 7542         		STA	ENGPOW,X	;パワーショット重力セット
  9751  E003C64 A9 0005         		LDA	#05H
  9752  E003C67 9D 74A2         		STA	ENYUSN,X
  9753  E003C6A A9 0060         		LDA	#0000000001100000B ;衝突チェック無しセット
  9754  E003C6D 9D 6FA0         		STA	ENMOD0,X
  9755  E003C70 A9 2000         		LDA	#0010000000000000B ;ＢＧチェック無しセット
  9756  E003C73 9D 6FA2         		STA	ENMOD1,X
  9757  E003C76 BD 7040         		LDA	ENMOD2,X	   ;範囲外クリアー無しセット
  9758  E003C79 29 FFF3         		AND	#111111111111110011B
  9759  E003C7C 9D 7040         		STA	ENMOD2,X
  9760  E003C7F AD 60E4         		LDA	PLNAGX
  9761  E003C82 38              		SEC
  9762  E003C83 FD 70E2         		SBC	ENXPSL,X
  9763  E003C86 10 0A           		BPL	EGG_OPTION_0240
  9764  E003C88 49 FFFF         		EOR	#0FFFFH
  9765  E003C8B 38              		SEC			;[ INC R0 ]
  9766  E003C8C 7D 70E2         		ADC	ENXPSL,X
  9767  E003C8F 8D 60E4         		STA	PLNAGX
  9768                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0166

  9769                          ;-------------- ＭＡＸパワーショット ----------------------------
  9770          003C92          EGG_OPTION_0240 EQU	$
  9771  E003C92 AD 60E4         		LDA	PLNAGX
  9772  E003C95 8D 3002         		STA	R1		;(R1) <-- 目標Ｘ座標
  9773  E003C98 AD 60E6         		LDA	PLNAGY
  9774  E003C9B 8D 3004         		STA	R2		;(R2) <-- 目標Ｙ座標
  9775  E003C9E BD 70E2         		LDA	ENXPSL,X
  9776  E003CA1 8D 3006         		STA	R3		;(R3) <-- 現在Ｘ座標
  9777  E003CA4 BD 7182         		LDA	ENYPSL,X
  9778  E003CA7 8D 3008         		STA	R4		;(R4) <-- 現在Ｙ座標
  9779  E003CAA A9 07F0         		LDA	#07F0H
  9780  E003CAD 8D 300C         		STA	R6		;(R6) <-- サーチスピード
  9781                          		M_CHIP	SEARCH_SPEED
  9781+ E003CB0 A2 09           		LDX	#BANK SEARCH_SPEED
  9781+ E003CB2 A9 907C         		LDA	#SEARCH_SPEED
  9781+ E003CB5 22 000000"      		JSL	>CHIPON
  9782  E003CB9 A6 12           		LDX	<ENINDX
  9783                          ;
  9784          003CBB          EGG_OPTION_0245 EQU	$
  9785  E003CBB A9 0020         		LDA	#020H		;[♪]
  9786  E003CBE 22 000000"      		JSL	>SOUND_3_ON
  9787                          ;
  9788                          		M8
  9788+ E003CC2 E2 20           		SEP	#00100000b	
  9789                          ;
  9790  E003CC4 A9 01           		LDA	#01H
  9791  E003CC6 9D 77C0         		STA	ENWRKX,X	;スクロールＯＫフラグ
  9792                          ;
  9793                          		M16
  9793+ E003CC9 C2 20           		REP	#00100000b	
  9794                          ;
  9795                          ;;;;		    LDA	    #60		    ;スクロールタイマー（１秒）
  9796  E003CCB 9E 7A96         		STZ	ENTIM0,X
  9797  E003CCE AD 3002         		LDA	R1
  9798  E003CD1 9D 7220         		STA	ENXSPD,X	;ショットＸスピードセット
  9799  E003CD4 AD 3004         		LDA	R2
  9800  E003CD7 80 4E           		BRA	EGG_OPTION_0300
  9801                          ;
  9802                          ;-------------- ノーマルショット --------------------------------
  9803          003CD9          EGG_OPTION_0250 EQU	$
  9804  E003CD9 AD 60E4         		LDA	PLNAGX
  9805  E003CDC 8D 3002         		STA	R1		;(R1) <-- 目標Ｘ座標
  9806  E003CDF AD 60E6         		LDA	PLNAGY
  9807  E003CE2 8D 3004         		STA	R2		;(R2) <-- 目標Ｙ座標
  9808  E003CE5 BD 70E2         		LDA	ENXPSL,X
  9809  E003CE8 8D 3006         		STA	R3		;(R3) <-- 現在Ｘ座標
  9810  E003CEB BD 7182         		LDA	ENYPSL,X
  9811  E003CEE 8D 3008         		STA	R4		;(R4) <-- 現在Ｙ座標
  9812  E003CF1 A9 0400         		LDA	#0400H
  9813  E003CF4 8D 300C         		STA	R6		;(R6) <-- サーチスピード
  9814                          		M_CHIP	SEARCH_SPEED
  9814+ E003CF7 A2 09           		LDX	#BANK SEARCH_SPEED
  9814+ E003CF9 A9 907C         		LDA	#SEARCH_SPEED
  9814+ E003CFC 22 000000"      		JSL	>CHIPON
  9815                          ;
  9816  E003D00 A6 12           		LDX	<ENINDX
  9817                          ;
  9818  E003D02 AD 3002         		LDA	R1
  9819  E003D05 4D 60A8         		EOR	PLXSPD
  9820  E003D08 0A              		ASL	A		;(C) <-- (N)
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0167

  9821  E003D09 AD 3002         		LDA	R1
  9822  E003D0C B0 03           		BCS	EGG_OPTION_0254
  9823                          ;;;;		    CLC
  9824  E003D0E 6D 60A8         		ADC	PLXSPD
  9825          003D11          EGG_OPTION_0254 EQU	$
  9826  E003D11 9D 7220         		STA	ENXSPD,X	;ショットＸスピードセット
  9827  E003D14 AD 3004         		LDA	R2
  9828  E003D17 38              		SEC
  9829  E003D18 E9 0300         		SBC	#0400H-0100H
  9830  E003D1B 10 03           		BPL	EGG_OPTION_0260
  9831  E003D1D A9 0000         		LDA	#00H
  9832          003D20          EGG_OPTION_0260 EQU	$
  9833  E003D20 38              		SEC
  9834  E003D21 E9 0100         		SBC	#0100H
  9835  E003D24 6D 3004         		ADC	R2
  9836                          ;
  9837          003D27          EGG_OPTION_0300 EQU	$
  9838  E003D27 9D 7222         		STA	ENYSPD,X	;ショットＹスピードセット
  9839  E003D2A 9C 60E0         		STZ	PLNAGP		;タマゴ投げパワーカウンターリセット
  9840  E003D2D 6B              		RTL
  9841                          ;
  9842                          ;----------------------------------------------------------------
  9843                          ;-		タマゴ投げプレイヤーポーズチェック		-
  9844                          ;----------------------------------------------------------------
  9845          003D2E          EGG_OPTION_0400 EQU	$
  9846  E003D2E C0 06           		CPY	#6
  9847  E003D30 D0 0E           		BNE	EGG_OPTION_0600 ;溜めポーズ？ ( no:EGG_OPTION_0600 )
  9848                          ;
  9849  E003D32 BD 7360         		LDA	ENMYNO,X
  9850  E003D35 C9 0029         		CMP	#YSEGG
  9851  E003D38 90 06           		BCC	EGG_OPTION_0410 ;大きいタマゴ？ ( no:EGG_OPTION_0410 )
  9852                          ;
  9853  E003D3A A9 FFFF         		LDA	#0FFFFH		;”フラフラ”セット
  9854  E003D3D 8D 7FE8         		STA	FURA_FG
  9855                          ;
  9856          003D40          EGG_OPTION_0410 EQU	$
  9857                          ;
  9858                          ;-------------- タマゴ投げ溜めポーズ用位置セット ----------------
  9859          003D40          NAGE_POS_SET	EQU	$
  9860          003D40          EGG_OPTION_0600 EQU	$
  9861  E003D40 8B              		PHB			;(DBR) save
  9862  E003D41 4B              		PHK			;(DBR) <-- (PBR)
  9863  E003D42 AB              		PLB
  9864                          ;
  9865                          		I16
  9865+ E003D43 C2 10           		REP	#00010000b	
  9866                          ;
  9867  E003D45 AC 60BE         		LDY	PLPATN
  9868  E003D48 B9 FFFF"        		LDA	!EGG_AD_Y-1,Y
  9869  E003D4B 29 FF00         		AND	#0FF00H
  9870  E003D4E 10 03           		BPL	EGG_OPTION_0601
  9871  E003D50 09 00FF         		ORA	#00FFH
  9872          003D53          EGG_OPTION_0601 EQU	$
  9873  E003D53 EB              		XBA
  9874  E003D54 18              		CLC
  9875  E003D55 6D 6090         		ADC	PLYPSL
  9876  E003D58 9D 7182         		STA	ENYPSL,X	;Y pos set
  9877                          ;
  9878                          ;;;;		    LDA	    #03H
  9879                          ;;;;		    LDA	    !EGG_AD_X,Y
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0168

  9880                          ;;;;		    AND	    #040H
  9881                          ;;;;		    BEQ	    EGG_OPTION_0602 ;優先順位プレイヤーの前？ ( no:EGG_OPTION_0602 )
  9882  E003D5B A9 0002         		LDA	#02H
  9883                          ;;;;EGG_OPTION_0602 EQU	    $
  9884  E003D5E 9D 74A2         		STA	ENYUSN,X
  9885                          ;
  9886  E003D61 B9 FFFF"        		LDA	!EGG_AD_X-1,Y
  9887  E003D64 29 BF00         		AND	#0BF00H
  9888  E003D67 10 03           		BPL	EGG_OPTION_0604
  9889  E003D69 09 40FF         		ORA	#040FFH
  9890          003D6C          EGG_OPTION_0604 EQU	$
  9891  E003D6C EB              		XBA
  9892  E003D6D AC 60C4         		LDY	PLCMKI
  9893  E003D70 D0 04           		BNE	EGG_OPTION_0606
  9894  E003D72 49 FFFF         		EOR	#0FFFFH
  9895  E003D75 1A              		INC	A
  9896          003D76          EGG_OPTION_0606 EQU	$
  9897  E003D76 18              		CLC
  9898  E003D77 6D 608C         		ADC	PLXPSL
  9899  E003D7A 9D 70E2         		STA	ENXPSL,X	;X pos set
  9900                          ;
  9901                          		I8
  9901+ E003D7D E2 10           		SEP	#00010000b	
  9902                          ;
  9903  E003D7F AB              		PLB			;(DBR) load
  9904  E003D80 6B              		RTL
  9905                          ;
  9906                          ;----------------------------------------------------------------
  9907                          ;-		オプションセット				-
  9908                          ;----------------------------------------------------------------
  9909          003D41          EGG_OP_INJPY	EQU	$-(32*2)
  9910  E003D81 0010 000D 000B  		WORD	00010H,0000DH,0000BH,00009H,00008H,00007H,00007H,00006H
        E003D87 0009 0008 0007 
        E003D8D 0007 0006 
  9911  E003D91 0006 0006 0007  		WORD	00006H,00006H,00007H,00007H,00008H,00009H,0000BH,0000DH
        E003D97 0007 0008 0009 
        E003D9D 000B 000D 
  9912          003DA1          EGG_OP_INJPY_E	EQU	$
  9913          000060          EGG_OP_INJMP	EQU	EGG_OP_INJPY_E-EGG_OP_INJPY
  9914                          ;
  9915          003DA1          EGG_OPTION_0800 EQU	$
  9916  E003DA1 8B              		PHB			;(DBR) save
  9917  E003DA2 4B              		PHK			;(DBR) <-- (PBR)
  9918  E003DA3 AB              		PLB
  9919                          ;
  9920                          ;-------------- オプションポインター移動 ------------------------
  9921  E003DA4 AD 61B8         		LDA	OLD_ONLFFG
  9922  E003DA7 F0 02           		BEQ	EGG_OPTION_0810 ;プレイヤーリフト乗ってた？ ( no:EGG_OPTION_0810 )
  9923                          ;
  9924  E003DA9 A0 00           		LDY	#00		;[ リフトに乗ってる時はプレイヤーに合わさる ]
  9925          003DAB          EGG_OPTION_0810 EQU	$
  9926  E003DAB B9 3778'        		LDA	!EGOPAD,Y
  9927  E003DAE 85 00           		STA	<EWORK0		;(EWK0,1) <-- 目標オプション座標ポインター
  9928  E003DB0 A0 00           		LDY	#00
  9929  E003DB2 D5 76           		CMP	<ENWRK2,X
  9930  E003DB4 F0 67           		BEQ	EGG_OPTION_0850
  9931  E003DB6 10 02           		BPL	EGG_OPTION_0820
  9932  E003DB8 C8              		INY
  9933  E003DB9 C8              		INY
  9934          003DBA          EGG_OPTION_0820 EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0169

  9935  E003DBA B5 76           		LDA	<ENWRK2,X
  9936  E003DBC 18              		CLC
  9937  E003DBD 79 3786'        		ADC	!EGOPHS,Y
  9938  E003DC0 C9 0004         		CMP	#4
  9939  E003DC3 10 34           		BPL	EGG_OPTION_0828 ;初期セットジャンプデモ？ ( no:EGG_OPTION_0828 )
  9940                          ;
  9941  E003DC5 95 76           		STA	<ENWRK2,X
  9942  E003DC7 3A              		DEC	A		;-2
  9943  E003DC8 3A              		DEC	A		;
  9944  E003DC9 49 FFFF         		EOR	#0FFFFH
  9945  E003DCC 1A              		INC	A
  9946  E003DCD C9 0040         		CMP	#32*2
  9947  E003DD0 B0 03           		BCS	EGG_OPTION_0824 ;オプション座標へ補正？ ( no:EGG_OPTION_0824 )
  9948                          ;
  9949                          ;-------------- オプション座標へ補正 ----------------------------
  9950  E003DD2 4C 3E48'        		JMP	EGG_OPTION_HOSE
  9951                          ;
  9952                          ;-------------- 初期セットジャンプデモ --------------------------
  9953          003DD5          EGG_OPTION_0824 EQU	$
  9954  E003DD5 A8              		TAY
  9955  E003DD6 B9 3D41'        		LDA	!EGG_OP_INJPY,Y
  9956  E003DD9 18              		CLC
  9957  E003DDA 6D 6090         		ADC	PLYPSL
  9958  E003DDD 9D 7182         		STA	ENYPSL,X	;Ｙ座標セット
  9959  E003DE0 A9 0060         		LDA	#EGG_OP_INJMP
  9960  E003DE3 18              		CLC
  9961  E003DE4 75 76           		ADC	<ENWRK2,X
  9962  E003DE6 4A              		LSR	A
  9963  E003DE7 BC 7400         		LDY	ENMUKI,X
  9964  E003DEA D0 04           		BNE	EGG_OPTION_0826
  9965  E003DEC 49 FFFF         		EOR	#0FFFFH
  9966  E003DEF 1A              		INC	A
  9967          003DF0          EGG_OPTION_0826 EQU	$
  9968  E003DF0 18              		CLC
  9969  E003DF1 6D 608C         		ADC	PLXPSL
  9970  E003DF4 9D 70E2         		STA	ENXPSL,X	;Ｘ座標セット
  9971                          ;
  9972  E003DF7 AB              		PLB
  9973  E003DF8 6B              		RTL
  9974                          ;
  9975          003DF9          EGG_OPTION_0828 EQU	$
  9976  E003DF9 C0 00           		CPY	#0
  9977  E003DFB D0 1E           		BNE	EGG_OPTION_0840 ;move stop check ok muki ? ( no:EGG_OPTION_0840 )
  9978                          ;
  9979  E003DFD 85 00           		STA	<EWORK0
  9980  E003DFF AD 05C0         		LDA	EGOPTP
  9981                          ;;;;		    SEC			;[ * BEQ = (C)=1 ]
  9982  E003E02 E5 00           		SBC	<EWORK0
  9983  E003E04 10 04           		BPL	EGG_OPTION_0830 ;max pointer over ? ( no:EGG_OPTION_0830 )
  9984  E003E06 18              		CLC
  9985  E003E07 69 0128         		ADC	#EGOPMX
  9986          003E0A          EGG_OPTION_0830 EQU	$
  9987                          ;
  9988                          		I16			;[!]
  9988+ E003E0A C2 10           		REP	#00010000b	
  9989                          ;
  9990  E003E0C A8              		TAY
  9991  E003E0D B9 0813         		LDA	EGOPT1,Y
  9992  E003E10 29 00FF         		AND	#00FFH
  9993  E003E13 D0 08           		BNE	EGG_OPTION_0850 ;move stop ? ( yes:EGG_OPTION_0850 )
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0170

  9994                          ;
  9995  E003E15 A5 00           		LDA	<EWORK0
  9996  E003E17 95 76           		STA	<ENWRK2,X
  9997  E003E19 80 11           		BRA	EGG_OPTION_0870
  9998                          ;
  9999          003E1B          EGG_OPTION_0840 EQU	$
 10000  E003E1B 95 76           		STA	<ENWRK2,X
 10001                          ;
 10002          003E1D          EGG_OPTION_0850 EQU	$
 10003  E003E1D AD 05C0         		LDA	EGOPTP
 10004  E003E20 38              		SEC
 10005  E003E21 F5 76           		SBC	<ENWRK2,X
 10006  E003E23 10 04           		BPL	EGG_OPTION_0860 ;max pointer over ? ( no:EGG_OPTION_0860 )
 10007  E003E25 18              		CLC
 10008  E003E26 69 0128         		ADC	#EGOPMX
 10009          003E29          EGG_OPTION_0860 EQU	$
 10010                          ;
 10011                          		I16
 10011+ E003E29 C2 10           		REP	#00010000b	
 10012                          ;
 10013  E003E2B A8              		TAY
 10014                          ;
 10015                          ;-------------- オプション座標セット ----------------------------
 10016          003E2C          EGG_OPTION_0870 EQU	$
 10017  E003E2C AB              		PLB			;(DBR) load
 10018                          ;
 10019  E003E2D B9 05C2         		LDA	EGOPTX,Y	;Ｘ座標セット
 10020  E003E30 9D 70E2         		STA	ENXPSL,X
 10021  E003E33 B9 06EA         		LDA	EGOPTY,Y	;Ｙ座標セット
 10022  E003E36 9D 7182         		STA	ENYPSL,X
 10023  E003E39 BD 7042         		LDA	ENCLOR,X	;ＢＧ優先順位セット
 10024  E003E3C 29 00CF         		AND	#11001111B
 10025  E003E3F 19 0812         		ORA	EGOPT0,Y
 10026  E003E42 9D 7042         		STA	ENCLOR,X
 10027                          ;
 10028                          		I8
 10028+ E003E45 E2 10           		SEP	#00010000b	
 10029                          ;
 10030  E003E47 6B              		RTL
 10031                          ;
 10032                          ;--------------------------------------------------------
 10033                          ;-		オプション座標へ補正			-
 10034                          ;--------------------------------------------------------
 10035          003E48          EGG_OPTION_HOSE EQU	$
 10036  E003E48 0A              		ASL	A		;x4
 10037  E003E49 0A              		ASL	A		;
 10038  E003E4A 85 02           		STA	<EWORK2
 10039  E003E4C A9 0100         		LDA	#0100H
 10040  E003E4F 38              		SEC
 10041  E003E50 E5 02           		SBC	<EWORK2
 10042  E003E52 8D 300C         		STA	R6		;(R6) <-- 倍率
 10043  E003E55 C9 0100         		CMP	#0100H
 10044  E003E58 90 04           		BCC	EGG_OPTION_0821 ;補正終了？ ( no:EGG_OPTION_0821 )
 10045                          ;
 10046  E003E5A A5 00           		LDA	<EWORK0
 10047  E003E5C 95 76           		STA	<ENWRK2,X
 10048          003E5E          EGG_OPTION_0821 EQU	$
 10049  E003E5E AD 05C0         		LDA	EGOPTP
 10050  E003E61 38              		SEC
 10051  E003E62 E5 00           		SBC	<EWORK0
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0171

 10052  E003E64 10 04           		BPL	EGG_OPTION_0822 ;max pointer over ? ( no:EGG_OPTION_0822 )
 10053  E003E66 18              		CLC
 10054  E003E67 69 0128         		ADC	#EGOPMX
 10055          003E6A          EGG_OPTION_0822 EQU	$
 10056                          ;
 10057                          		I16			;[!]
 10057+ E003E6A C2 10           		REP	#00010000b	
 10058                          ;
 10059  E003E6C A8              		TAY
 10060  E003E6D B9 05C2         		LDA	EGOPTX,Y	;目標オプションＸ座標
 10061  E003E70 38              		SEC
 10062  E003E71 FD 70E2         		SBC	ENXPSL,X
 10063  E003E74 8D 3000         		STA	R0
 10064  E003E77 B9 06EA         		LDA	EGOPTY,Y	;目標オプションＹ座標
 10065  E003E7A 38              		SEC
 10066  E003E7B FD 7182         		SBC	ENYPSL,X
 10067  E003E7E 8D 3002         		STA	R1
 10068                          ;
 10069                          		I8
 10069+ E003E81 E2 10           		SEP	#00010000b	
 10070                          ;
 10071                          		M_CHIP	MULTIPLY
 10071+ E003E83 A2 0F           		LDX	#BANK MULTIPLY
 10071+ E003E85 A9 86B6         		LDA	#MULTIPLY
 10071+ E003E88 22 000000"      		JSL	>CHIPON
 10072  E003E8C A6 12           		LDX	<ENINDX
 10073  E003E8E BD 70E2         		LDA	ENXPSL,X
 10074  E003E91 18              		CLC
 10075  E003E92 6D 3000         		ADC	R0
 10076  E003E95 9D 70E2         		STA	ENXPSL,X
 10077  E003E98 AD 3002         		LDA	R1
 10078  E003E9B 8D 3000         		STA	R0
 10079                          		M_CHIP	MULTIPLY
 10079+ E003E9E A2 0F           		LDX	#BANK MULTIPLY
 10079+ E003EA0 A9 86B6         		LDA	#MULTIPLY
 10079+ E003EA3 22 000000"      		JSL	>CHIPON
 10080  E003EA7 A6 12           		LDX	<ENINDX
 10081  E003EA9 BD 7182         		LDA	ENYPSL,X
 10082  E003EAC 18              		CLC
 10083  E003EAD 6D 3000         		ADC	R0
 10084  E003EB0 9D 7182         		STA	ENYPSL,X
 10085                          ;
 10086  E003EB3 AB              		PLB
 10087  E003EB4 6B              		RTL
 10088                          ;
 10089                          ;----------------------------------------------------------------
 10090                          ;-		タマゴオプションモードセット			-
 10091                          ;----------------------------------------------------------------
 10092          003EB5          EGG_OFF_XSP	EQU	$
 10093  E003EB5 0100 FF00       		WORD	00100H,0FF00H
 10094                          ;
 10095          003EB9          EGGSET		EQU	$
 10096  E003EB9 22 000000"      		JSL	>COIN_CATCH	;セーブビット”ＯＮ”
 10097                          ;
 10098  E003EBD A9 0003         		LDA	#03H		;[♪]
 10099  E003EC0 22 000000"      		JSL	>SOUND_3_ON
 10100                          ;
 10101  E003EC4 AD 7DF6         		LDA	EGGPNT
 10102  E003EC7 1A              		INC	A
 10103  E003EC8 1A              		INC	A
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0172

 10104  E003EC9 C9 000E         		CMP	#06*2+2
 10105  E003ECC 90 47           		BCC	EGST050		;max egg ? ( no:EGST050 )
 10106                          ;
 10107                          ;-------------- egg rotation ------------------------------------
 10108  E003ECE 8B              		PHB			;(DBR) save
 10109  E003ECF 4B              		PHK			;(DBR) <-- (PBR)
 10110  E003ED0 AB              		PLB
 10111                          ;
 10112  E003ED1 AE 7DF8         		LDX	EGGLNK		;1st egg link kill !!
 10113                          ;
 10114  E003ED4 A9 000E         		LDA	#EFAIL		;落下モードセット
 10115  E003ED7 9D 6F00         		STA	ENMODE,X
 10116                          ;
 10117  E003EDA 74 78           		STZ	<ENWRK4,X	;オプションモードキャンセル
 10118  E003EDC 74 18           		STZ	<ENWRK0,X	;ワークＲＡＭクリアー
 10119  E003EDE 74 76           		STZ	<ENWRK2,X	;
 10120  E003EE0 9E 7A36         		STZ	ENWRK6,X	;
 10121  E003EE3 9E 7A38         		STZ	ENWRK8,X	;
 10122  E003EE6 9E 7D38         		STZ	ENSHOT,X	;ショットフラグリセット
 10123                          ;
 10124  E003EE9 BC 77C2         		LDY	EPXMUK,X
 10125  E003EEC B9 3EB5'        		LDA	!EGG_OFF_XSP,Y
 10126  E003EEF 9D 7220         		STA	ENXSPD,X
 10127  E003EF2 A9 FC00         		LDA	#0FC00H
 10128  E003EF5 9D 7222         		STA	ENYSPD,X
 10129  E003EF8 A9 0040         		LDA	#040H		;重力セット
 10130  E003EFB 9D 7542         		STA	ENGPOW,X
 10131                          ;
 10132  E003EFE AB              		PLB			;(DBR) load
 10133                          ;
 10134  E003EFF A0 02           		LDY	#02H
 10135          003F01          EGST010		EQU	$
 10136  E003F01 B9 7DF8         		LDA	EGGLNK,Y
 10137  E003F04 99 7DF6         		STA	EGGLNK-2,Y
 10138  E003F07 AA              		TAX
 10139  E003F08 98              		TYA
 10140  E003F09 95 78           		STA	<ENWRK4,X
 10141  E003F0B C8              		INY
 10142  E003F0C C8              		INY
 10143  E003F0D CC 7DF6         		CPY	EGGPNT		;egg link rotation
 10144  E003F10 90 EF           		BCC	EGST010
 10145                          ;
 10146  E003F12 A6 12           		LDX	<ENINDX
 10147  E003F14 98              		TYA
 10148          003F15          EGST050		EQU	$
 10149  E003F15 8D 7DF6         		STA	EGGPNT
 10150                          ;
 10151                          ;-------------- ドアカギ入れ替えチェック ------------------------
 10152                          ;
 10153                          		I16
 10153+ E003F18 C2 10           		REP	#00010000b	
 10154                          ;
 10155  E003F1A A8              		TAY
 10156  E003F1B C0 0004         		CPY	#04
 10157  E003F1E 90 20           		BCC	EGST060		;１個目のオプション？ ( yes:EGST060 )
 10158                          ;
 10159          003F20          EGST0502	EQU	$
 10160  E003F20 BE 7DF4         		LDX	EGGLNK-4,Y
 10161  E003F23 BD 7360         		LDA	ENMYNO,X
 10162  E003F26 C9 0027         		CMP	#DRKEY
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0173

 10163  E003F29 F0 05           		BEQ	EGST051		;ドアカギ？ ( yes:EGST051 )
 10164  E003F2B C9 0029         		CMP	#YSEGG
 10165  E003F2E D0 0E           		BNE	EGST052		;ヨッシータマゴ？ ( no:EGST052 )
 10166                          ;
 10167          003F30          EGST051		EQU	$
 10168  E003F30 98              		TYA
 10169  E003F31 95 78           		STA	<ENWRK4,X	;option index set
 10170  E003F33 8A              		TXA
 10171  E003F34 99 7DF6         		STA	EGGLNK-2,Y
 10172  E003F37 88              		DEY
 10173  E003F38 88              		DEY
 10174  E003F39 C0 0004         		CPY	#04
 10175  E003F3C B0 E2           		BCS	EGST0502
 10176                          ;
 10177          003F3E          EGST052		EQU	$
 10178  E003F3E A6 12           		LDX	<ENINDX
 10179          003F40          EGST060		EQU	$
 10180  E003F40 98              		TYA
 10181                          ;
 10182                          		I8
 10182+ E003F41 E2 10           		SEP	#00010000b	
 10183                          ;
 10184  E003F43 95 78           		STA	<ENWRK4,X	;option index set
 10185  E003F45 A9 0002         		LDA	#02H
 10186  E003F48 95 76           		STA	<ENWRK2,X	;option buffer start pointer set
 10187  E003F4A A5 12           		LDA	<ENINDX
 10188  E003F4C 99 7DF6         		STA	EGGLNK-2,Y
 10189  E003F4F BD 7040         		LDA	ENMOD2,X
 10190  E003F52 29 FFF3         		AND	#1111111111110011B
 10191  E003F55 9D 7040         		STA	ENMOD2,X	;not display clear "OFF" !!
 10192  E003F58 BD 6FA0         		LDA	ENMOD0,X
 10193  E003F5B 29 F9FF         		AND	#1111100111111111B ;衝突チェック無し
 10194  E003F5E 09 0040         		ORA	#0000000001000000B ;食べられないように変更
 10195  E003F61 AC 0146         		LDY	DSPMOD
 10196  E003F64 C0 0D           		CPY	#0DH
 10197  E003F66 D0 03           		BNE	EGST070		;ゲロゲーロの胃袋？ ( no:EGST070 )
 10198  E003F68 09 0200         		ORA	#0000001000000000B
 10199          003F6B          EGST070		EQU	$
 10200  E003F6B 9D 6FA0         		STA	ENMOD0,X
 10201  E003F6E BD 6FA2         		LDA	ENMOD1,X	;ＢＧチェック無しセット
 10202  E003F71 29 FFC0         		AND	#1111111111000000B
 10203  E003F74 9D 6FA2         		STA	ENMOD1,X
 10204  E003F77 A9 0005         		LDA	#05H		;ＯＢＪ優先順位セット
 10205  E003F7A 9D 74A2         		STA	ENYUSN,X
 10206  E003F7D 9E 7AF6         		STZ	ENTIM2,X	;タマゴ消去タイマーリセット
 10207                          ;
 10208  E003F80 9E 7542         		STZ	ENGPOW,X
 10209  E003F83 9E 7D38         		STZ	ENSHOT,X	;ショットフラグリセット
 10210  E003F86 6B              		RTL
 10211                          ;
 10212                          ;----------------------------------------------------------------
 10213                          ;-		タマゴオプションキャンセルセット		-
 10214                          ;----------------------------------------------------------------
 10215          003F87          EGGKILL		EQU	$
 10216  E003F87 BC 79D8         		LDY	ENWRK4,X
 10217  E003F8A F0 6A           		BEQ	EGKL30		;player option ? ( no:EGKL300 )
 10218  E003F8C 30 68           		BMI	EGKL30		;player option ? ( no:EGKL300 )
 10219                          ;
 10220          003F8E          EGGKILL_SUB	EQU	$
 10221  E003F8E 08              		PHP			;(P) save
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0174

 10222                          ;
 10223                          		I8
 10223+ E003F8F E2 10           		SEP	#00010000b	
 10224                          ;
 10225  E003F91 9E 79D8         		STZ	ENWRK4,X	;オプションモードキャンセル
 10226  E003F94 9E 7978         		STZ	ENWRK0,X	;ワークＲＡＭクリアー
 10227  E003F97 9E 79D6         		STZ	ENWRK2,X	;
 10228  E003F9A 9E 7A36         		STZ	ENWRK6,X	;
 10229  E003F9D 9E 7A38         		STZ	ENWRK8,X	;
 10230                          ;
 10231  E003FA0 BD 7360         		LDA	ENMYNO,X
 10232  E003FA3 C9 0028         		CMP	#KAMO1
 10233  E003FA6 F0 0C           		BEQ	EGKL00		;かるがも？ ( yes:EGKL00 )
 10234                          ;
 10235  E003FA8 BD 6FA0         		LDA	ENMOD0,X
 10236  E003FAB 29 FFBF         		AND	#1111111110111111B ;食べれるように変更
 10237  E003FAE 09 0200         		ORA	#0000001000000000B ;衝突チェックされる様に
 10238  E003FB1 9D 6FA0         		STA	ENMOD0,X
 10239          003FB4          EGKL00		EQU	$
 10240  E003FB4 5A              		PHY			;(Y) save
 10241                          ;
 10242  E003FB5 A0 01           		LDY	#01H
 10243  E003FB7 BD 7360         		LDA	ENMYNO,X
 10244  E003FBA C9 0029         		CMP	#YSEGG
 10245  E003FBD 90 02           		BCC	EGKL02		;大きいタマゴ？ ( no:EGKL02 )
 10246  E003FBF A0 1A           		LDY	#01AH
 10247          003FC1          EGKL02		EQU	$
 10248  E003FC1 98              		TYA
 10249  E003FC2 85 00           		STA	<EWORK
 10250  E003FC4 BD 6FA2         		LDA	ENMOD1,X	;ＢＧチェックサイズセット
 10251  E003FC7 29 FFC0         		AND	#1111111111000000B
 10252  E003FCA 05 00           		ORA	<EWORK
 10253  E003FCC 9D 6FA2         		STA	ENMOD1,X
 10254  E003FCF BD 7040         		LDA	ENMOD2,X	;not display clear "ON"
 10255  E003FD2 09 0004         		ORA	#0000000000000100B
 10256  E003FD5 9D 7040         		STA	ENMOD2,X
 10257                          ;
 10258  E003FD8 7A              		PLY			;(Y) load
 10259                          ;
 10260  E003FD9 DA              		PHX			;(X) save
 10261          003FDA          EGKL10		EQU	$
 10262  E003FDA CC 7DF6         		CPY	EGGPNT
 10263  E003FDD B0 0F           		BCS	EGKL20
 10264  E003FDF B9 7DF8         		LDA	EGGLNK,Y
 10265  E003FE2 99 7DF6         		STA	EGGLNK-2,Y
 10266  E003FE5 AA              		TAX
 10267  E003FE6 98              		TYA
 10268  E003FE7 9D 79D8         		STA	ENWRK4,X
 10269  E003FEA C8              		INY
 10270  E003FEB C8              		INY
 10271  E003FEC 80 EC           		BRA	EGKL10
 10272                          ;
 10273          003FEE          EGKL20		EQU	$
 10274  E003FEE CE 7DF6         		DEC	EGGPNT
 10275  E003FF1 CE 7DF6         		DEC	EGGPNT
 10276  E003FF4 FA              		PLX			;(X) load
 10277                          ;
 10278  E003FF5 28              		PLP			;(P) load
 10279          003FF6          EGKL30		EQU	$
 10280  E003FF6 6B              		RTL
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0175

 10281                          ;
 10282                          ;----------------------------------------------------------------
 10283                          ;-		option egg cancel set				-
 10284                          ;----------------------------------------------------------------
 10285          003FF7          EGGKILL_ALL	EQU	$
 10286  E003FF7 DA              		PHX			;(X) save
 10287                          ;
 10288          003FF8          EGGKILL_ALL_010 EQU	$
 10289  E003FF8 AC 7DF6         		LDY	EGGPNT
 10290  E003FFB F0 41           		BEQ	EGGKILL_ALL_020 ;egg nothing ? ( yes:EGGKILL_ALL_020 )
 10291                          ;
 10292  E003FFD AE 7DF8         		LDX	EGGLNK
 10293  E004000 BD 7360         		LDA	ENMYNO,X
 10294  E004003 C9 0027         		CMP	#DRKEY
 10295  E004006 F0 36           		BEQ	EGGKILL_ALL_020 ;カギ？ ( yes:EGGKILL_ALL_020 )
 10296  E004008 C9 0029         		CMP	#YSEGG
 10297  E00400B F0 31           		BEQ	EGGKILL_ALL_020 ;ヨッシータマゴ？ ( yes:EGGKILL_ALL_020 )
 10298                          ;
 10299  E00400D BC 79D8         		LDY	ENWRK4,X
 10300  E004010 22 003F8E'      		JSL	>EGGKILL_SUB
 10301  E004014 BD 70E2         		LDA	ENXPSL,X
 10302  E004017 38              		SEC
 10303  E004018 ED 608C         		SBC	PLXPSL
 10304  E00401B 0A              		ASL	A
 10305  E00401C 0A              		ASL	A
 10306  E00401D 0A              		ASL	A
 10307  E00401E 9D 7220         		STA	ENXSPD,X	;X speed set
 10308  E004021 A9 FC00         		LDA	#0FC00H
 10309  E004024 9D 7222         		STA	ENYSPD,X	;jump up set
 10310  E004027 9E 79D8         		STZ	ENWRK4,X	;オプションモードキャンセル
 10311  E00402A 9E 7978         		STZ	ENWRK0,X	;ワークＲＡＭクリアー
 10312  E00402D 9E 79D6         		STZ	ENWRK2,X	;
 10313  E004030 9E 7A36         		STZ	ENWRK6,X	;
 10314  E004033 9E 7A38         		STZ	ENWRK8,X	;
 10315  E004036 A9 0200         		LDA	#0200H
 10316  E004039 9D 7AF6         		STA	ENTIM2,X
 10317  E00403C 80 BA           		BRA	EGGKILL_ALL_010
 10318                          ;
 10319          00403E          EGGKILL_ALL_020 EQU	$
 10320  E00403E FA              		PLX			;(X) load
 10321  E00403F 6B              		RTL
 10322                          ;
 10323                          ;----------------------------------------------------------------
 10324                          ;-		タマゴ割れセット				-
 10325                          ;----------------------------------------------------------------
 10326          004040          EGG_WARE	EQU	$
 10327  E004040 22 00231E'      		JSL	>ENCLEAR	;egg clear !!
 10328  E004044 22 003F87'      		JSL	>EGGKILL	;egg link kill
 10329  E004048 BD 70E2         		LDA	ENXPSL,X
 10330  E00404B 8D 7960         		STA	EWORK0
 10331  E00404E BD 7182         		LDA	ENYPSL,X
 10332  E004051 8D 7962         		STA	EWORK2
 10333  E004054 BD 7042         		LDA	ENCLOR,X
 10334  E004057 29 000E         		AND	#07H<<1
 10335  E00405A 8D 7964         		STA	EWORK4
 10336                          ;
 10337  E00405D A9 0000"        		LDA	#DOON0		;(A) <-- exstra no.
 10338  E004060 22 000000"      		JSL	>EXINSR		;exstra index search
 10339  E004064 AD 7960         		LDA	EWORK0
 10340  E004067 18              		CLC
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0176

 10341  E004068 69 0008         		ADC	#08H
 10342  E00406B 99 70A2         		STA	EXXPSL,Y	;X pos set
 10343  E00406E AD 7962         		LDA	EWORK2
 10344  E004071 18              		CLC
 10345  E004072 69 0008         		ADC	#08H
 10346  E004075 99 7142         		STA	EXYPSL,Y	;Y pos set
 10347  E004078 A9 0005         		LDA	#05H
 10348  E00407B 99 7782         		STA	EXTIM0,Y	;timer set
 10349  E00407E 6B              		RTL
 10350                          ;
 10351                          ;************************************************************************
 10352                          ;*		intial	( 見えない？雲 )				*
 10353                          ;************************************************************************
 10354          00407F          QKM00IN		EQU	$
 10355  E00407F 22 005406'      		JSL	>EXIST_CHECK	;取ってるかどうかチェック
 10356  E004083 6B              		RTL
 10357                          ;
 10358                          ;************************************************************************
 10359                          ;*		move	( 見えない？雲 )				*
 10360                          ;************************************************************************
 10361          004084          QKM_CHANGE	EQU	$
 10362  E004084 00BE 00C1 00CC  		WORD	QKM09,QKM0C,QKM17,QKM0C
        E00408A 00C1 
 10363                          ;
 10364          00408C          QKM00MV		EQU	$
 10365  E00408C AD 7E06         		LDA	GRASS_ON
 10366  E00408F D0 3B           		BNE	QKM00MV_0050	;虫めがね使用中？ ( yes:QKM00MV_0050 )
 10367                          ;
 10368  E004091 BC 7D36         		LDY	ECRSFG,X
 10369  E004094 30 36           		BMI	QKM00MV_0050	;プレイヤーと衝突？ ( yes:QKM00MV_0050 )
 10370                          ;
 10371  E004096 88              		DEY
 10372  E004097 30 63           		BMI	QKM00MV_0100	;敵と衝突？ ( no:QKM00MV_0100 )
 10373                          ;
 10374                          ;-------------- 敵と衝突 ------------------------------------------------
 10375  E004099 B9 6F00         		LDA	ENMODE,Y
 10376  E00409C C9 0010         		CMP	#EMOVE
 10377  E00409F D0 5B           		BNE	QKM00MV_0100	;動作中？ ( no:QKM00MV_0100 )
 10378  E0040A1 B9 7D38         		LDA	ENSHOT,Y
 10379  E0040A4 D0 0D           		BNE	QKM00MV_0010	;投げてる？ ( yes:QKM00MV_0010 )
 10380                          ;
 10381  E0040A6 B9 7360         		LDA	ENMYNO,Y
 10382  E0040A9 C9 0018         		CMP	#FIREX
 10383  E0040AC F0 05           		BEQ	QKM00MV_0010	;プレイヤーファイヤー？ ( yes:QKM00MV_0010 )
 10384  E0040AE C9 0006         		CMP	#COLDX
 10385  E0040B1 D0 49           		BNE	QKM00MV_0100	;プレイヤー氷の息？ ( no:QKM00MV_0100 )
 10386                          ;
 10387          0040B3          QKM00MV_0010	EQU	$
 10388  E0040B3 BD 7680         		LDA	ENDSXL,X
 10389  E0040B6 18              		CLC
 10390  E0040B7 69 0008         		ADC	#08H
 10391  E0040BA C9 0101         		CMP	#0F8H+08H+1
 10392  E0040BD B0 3D           		BCS	QKM00MV_0100	;衝突ＯＫ位置？ ( no:QKM00MV_0100 )
 10393  E0040BF BD 7682         		LDA	ENDSYL,X
 10394  E0040C2 C9 00CC         		CMP	#(0D3H-8)+1
 10395  E0040C5 B0 35           		BCS	QKM00MV_0100	;	 "      ( no:QKM00MV_0100 )
 10396                          ;
 10397                          ;-------------- 当たった敵跳ね返りセット ------------------------
 10398  E0040C7 BB              		TYX
 10399  E0040C8 22 00325B'      		JSL	>ENDEATH_SET_4	;ショット敵死亡セット
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0177

 10400                          ;
 10401                          ;-------------- ？雲へ変更 ----------------------------------------------
 10402          0040CC          QKM00MV_0050	EQU	$
 10403  E0040CC A9 0027         		LDA	#027H		;[♪]
 10404  E0040CF 22 000000"      		JSL	>SOUND_3_ON
 10405                          ;
 10406  E0040D3 BD 70E2         		LDA	ENXPSL,X
 10407  E0040D6 29 0010         		AND	#010H
 10408  E0040D9 4A              		LSR	A
 10409  E0040DA 85 00           		STA	<EWORK0
 10410  E0040DC BD 7182         		LDA	ENYPSL,X
 10411  E0040DF 29 0010         		AND	#010H
 10412  E0040E2 05 00           		ORA	<EWORK0
 10413  E0040E4 4A              		LSR	A
 10414  E0040E5 4A              		LSR	A
 10415  E0040E6 A8              		TAY
 10416  E0040E7 B9 4084'        		LDA	!QKM_CHANGE,Y	;(A) <-- 変更敵Ｎｏ．
 10417  E0040EA 9B              		TXY			;(Y) <-- (X)
 10418  E0040EB 22 002377'      		JSL	>ESTATST
 10419  E0040EF A9 0002         		LDA	#EINIT		;初期モードへ
 10420  E0040F2 9D 6F00         		STA	ENMODE,X
 10421  E0040F5 FE 77C0         		INC	ENWRKX,X	;フラッシングモードへ
 10422                          ;
 10423                          ;-------------- 効果けむりセット --------------------------------
 10424  E0040F8 22 00350B'      		JSL	>FSMK0_SET5
 10425                          ;
 10426          0040FC          QKM00MV_0100	EQU	$
 10427  E0040FC 6B              		RTL
 10428                          ;
 10429                          ;************************************************************************
 10430                          ;*		intial	( 変身アイテム )				*
 10431                          ;************************************************************************
 10432          0040FD          QKM_MV_TYPE_X	EQU	$		;[ 0FFH:移動無し  004H:少し移動	 020H:大きく移動 ]
 10433  E0040FD FF 00           		BYTE	0FFH,000H	;[CHG00]
 10434  E0040FF FF 00           		BYTE	0FFH,000H	;[CHG01]
 10435  E004101 FF 00           		BYTE	0FFH,000H	;[CHG02]
 10436  E004103 FF 00           		BYTE	0FFH,000H	;[CHG03]
 10437  E004105 00 00           		BYTE	0,0		;[PUUUU] ×ダミー
 10438  E004107 FF 00           		BYTE	0FFH,000H	;[CHG05]
 10439  E004109 00 00           		BYTE	0,0		;[QKM00] ×ダミー
 10440  E00410B 08 08           		BYTE	008H,008H	;[QKM01]
 10441  E00410D 08 08           		BYTE	008H,008H	;[QKM02]
 10442  E00410F 08 08           		BYTE	008H,008H	;[QKM03]
 10443  E004111 FF FF           		BYTE	0FFH,0FFH	;[QKM04]
 10444  E004113 FF FF           		BYTE	0FFH,0FFH	;[QKM05]
 10445  E004115 FF FF           		BYTE	0FFH,0FFH	;[QKM06]
 10446  E004117 08 08           		BYTE	008H,008H	;[QKM07]
 10447  E004119 FF FF           		BYTE	0FFH,0FFH	;[QKM08]
 10448  E00411B FF FF           		BYTE	0FFH,0FFH	;[QKM09]
 10449  E00411D FF FF           		BYTE	0FFH,0FFH	;[QKM0A]
 10450  E00411F 08 08           		BYTE	008H,008H	;[QKM0B]
 10451  E004121 FF FF           		BYTE	0FFH,0FFH	;[QKM0C]
 10452  E004123 FF FF           		BYTE	0FFH,0FFH	;[QKM0D]
 10453  E004125 FF FF           		BYTE	0FFH,0FFH	;[QKM0E]
 10454  E004127 08 08           		BYTE	008H,008H	;[QKM0F]
 10455  E004129 08 08           		BYTE	008H,008H	;[QKM10]
 10456  E00412B 08 08           		BYTE	008H,008H	;[QKM11]
 10457  E00412D FF FF           		BYTE	0FFH,0FFH	;[QKM12]
 10458  E00412F FF FF           		BYTE	0FFH,0FFH	;[QKM13]
 10459  E004131 08 08           		BYTE	008H,008H	;[QKM14]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0178

 10460  E004133 00 00           		BYTE	0,0		;[LBSDR] ×ダミー
 10461  E004135 FF FF           		BYTE	0FFH,0FFH	;[QKM16]
 10462  E004137 FF 00           		BYTE	0FFH,000H	;[QKM17]
 10463                          ;
 10464          004139          QKM_MV_TYPE_Y	EQU	$		;[ 0FFH:移動無し  004H:少し移動	 020H:大きく移動 ]
 10465  E004139 04 04           		BYTE	004H,004H	;[CHG00]
 10466  E00413B 04 04           		BYTE	004H,004H	;[CHG01]
 10467  E00413D 04 04           		BYTE	004H,004H	;[CHG02]
 10468  E00413F 04 04           		BYTE	004H,004H	;[CHG03]
 10469  E004141 00 00           		BYTE	0,0		;[PUUUU] ×ダミー
 10470  E004143 04 04           		BYTE	004H,004H	;[CHG05]
 10471  E004145 00 00           		BYTE	0,0		;[QKM00] ×ダミー
 10472  E004147 04 04           		BYTE	004H,004H	;[QKM01]
 10473  E004149 04 04           		BYTE	004H,004H	;[QKM02]
 10474  E00414B 04 04           		BYTE	004H,004H	;[QKM03]
 10475  E00414D 04 04           		BYTE	004H,004H	;[QKM04]
 10476  E00414F 08 08           		BYTE	008H,008H	;[QKM05]
 10477  E004151 08 08           		BYTE	008H,008H	;[QKM06]
 10478  E004153 04 04           		BYTE	004H,004H	;[QKM07]
 10479  E004155 04 04           		BYTE	004H,004H	;[QKM08]
 10480  E004157 04 04           		BYTE	004H,004H	;[QKM09]
 10481  E004159 08 08           		BYTE	008H,008H	;[QKM0A]
 10482  E00415B 04 04           		BYTE	004H,004H	;[QKM0B]
 10483  E00415D FF FF           		BYTE	0FFH,0FFH	;[QKM0C]
 10484  E00415F 08 08           		BYTE	008H,008H	;[QKM0D]
 10485  E004161 04 04           		BYTE	004H,004H	;[QKM0E]
 10486  E004163 04 04           		BYTE	004H,004H	;[QKM0F]
 10487  E004165 04 04           		BYTE	004H,004H	;[QKM10]
 10488  E004167 04 04           		BYTE	004H,004H	;[QKM11]
 10489  E004169 08 08           		BYTE	008H,008H	;[QKM12]
 10490  E00416B 08 08           		BYTE	008H,008H	;[QKM13]
 10491  E00416D 04 04           		BYTE	004H,004H	;[QKM14]
 10492  E00416F 00 00           		BYTE	0,0		;[LBSDR] ×ダミー
 10493  E004171 04 04           		BYTE	004H,004H	;[QKM16]
 10494  E004173 04 04           		BYTE	004H,004H	;[QKM17]
 10495                          ;
 10496          004175          CHG00_MVSP	EQU	$
 10497  E004175 FF80 0080       		WORD	0FF80H,00080H
 10498                          ;
 10499                          ;
 10500                          ;;;;QKM16IN	    EQU	    $
 10501                          ;;;;		    LDA	    #0400H	    ;敵が元に戻るまでのタイマーセット
 10502                          ;;;;		    STA	    ENTIM3,X
 10503                          ;;;;		    STZ	    ENYSPD,X	    ;敵みんなハテナ雲からのＹスピードリセット
 10504                          ;;;;		    BRA	    CHG00IN_0020
 10505                          ;
 10506          004179          QKM01IN		EQU	$
 10507          004179          QKM02IN		EQU	$
 10508          004179          QKM03IN		EQU	$
 10509          004179          QKM08IN		EQU	$
 10510          004179          QKM0AIN		EQU	$
 10511          004179          QKM0BIN		EQU	$
 10512          004179          QKM0CIN		EQU	$
 10513          004179          QKM17IN		EQU	$
 10514  E004179 22 005406'      		JSL	>EXIST_CHECK	;取ってるかどうかチェック
 10515  E00417D 22 004236'      		JSL	>BG_BACK_CK	;ＢＧに隠れてるチェック
 10516  E004181 80 3D           		BRA	QKM04IN
 10517                          ;
 10518          004183          CHG00IN		EQU	$
 10519          004183          CHG01IN		EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0179

 10520          004183          CHG02IN		EQU	$
 10521          004183          CHG03IN		EQU	$
 10522          004183          CHG05IN		EQU	$
 10523  E004183 22 004236'      		JSL	>BG_BACK_CK	;ＢＧに隠れてるチェック
 10524                          ;
 10525                          ;;;;		    LDA	    CCHGMK
 10526                          ;;;;		    BEQ	    CHG00IN_0000    ;変身中？ ( no:CHG00IN_0000 )
 10527                          ;;;;		    JMP	    CHG_SP_SET
 10528                          ;;;;;
 10529                          ;;;;CHG00IN_0000    EQU	    $
 10530  E004187 BD 7182         		LDA	ENYPSL,X
 10531  E00418A 29 0010         		AND	#010H
 10532  E00418D F0 35           		BEQ	CHG00IN_0020	;特殊タイプ？ ( no:CHG00IN_0020 )
 10533                          ;
 10534                          ;-------------- 特殊セット ----------------------------------------------
 10535  E00418F BD 70E2         		LDA	ENXPSL,X
 10536  E004192 29 0010         		AND	#010H
 10537  E004195 D0 1B           		BNE	CHG00IN_0010	;見えないタイプ？ ( no:CHG00IN_0010 )
 10538                          ;
 10539                          ;-------------- 見えない ----------------------------------------
 10540  E004197 FE 7A38         		INC	ENWRK8,X	;見えないフラグ”ＯＮ”
 10541  E00419A A9 00FF         		LDA	#0FFH
 10542  E00419D 9D 74A2         		STA	ENYUSN,X
 10543  E0041A0 80 22           		BRA	CHG00IN_0020
 10544                          ;
 10545          0041A2          QKM09IN		EQU	$
 10546  E0041A2 22 005406'      		JSL	>EXIST_CHECK	;取ってるかどうかチェック
 10547  E0041A6 22 004236'      		JSL	>BG_BACK_CK	;ＢＧに隠れてるチェック
 10548                          ;
 10549  E0041AA BD 70E2         		LDA	ENXPSL,X
 10550  E0041AD 29 0010         		AND	#010H
 10551  E0041B0 F0 12           		BEQ	CHG00IN_0020	;見えないタイプ？ ( no:CHG00IN_0020 )
 10552                          ;
 10553                          ;-------------- 移動 --------------------------------------------
 10554          0041B2          CHG00IN_0010	EQU	$
 10555  E0041B2 BC 7400         		LDY	ENMUKI,X
 10556  E0041B5 B9 4175'        		LDA	!CHG00_MVSP,Y
 10557  E0041B8 9D 75E0         		STA	ENXMAX,X
 10558  E0041BB 9D 7220         		STA	ENXSPD,X
 10559  E0041BE 80 04           		BRA	CHG00IN_0020
 10560                          ;
 10561          0041C0          QKM04IN		EQU	$
 10562          0041C0          QKM05IN		EQU	$
 10563          0041C0          QKM06IN		EQU	$
 10564          0041C0          QKM07IN		EQU	$
 10565          0041C0          QKM0DIN		EQU	$
 10566          0041C0          QKM0EIN		EQU	$
 10567          0041C0          QKM0FIN		EQU	$
 10568          0041C0          QKM10IN		EQU	$
 10569          0041C0          QKM11IN		EQU	$
 10570          0041C0          QKM12IN		EQU	$
 10571          0041C0          QKM13IN		EQU	$
 10572          0041C0          QKM14IN		EQU	$
 10573  E0041C0 22 004236'      		JSL	>BG_BACK_CK	;ＢＧに隠れてるチェック
 10574                          ;
 10575          0041C4          QKM16IN		EQU	$
 10576          0041C4          CHG00IN_0020	EQU	$
 10577  E0041C4 BD 7360         		LDA	ENMYNO,X
 10578  E0041C7 38              		SEC
 10579  E0041C8 E9 00AF         		SBC	#CHG00
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0180

 10580  E0041CB 0A              		ASL	A
 10581  E0041CC 85 00           		STA	<EWORK
 10582  E0041CE BD 70E2         		LDA	ENXPSL,X	;基準Ｘ座標保存
 10583  E0041D1 9D 7900         		STA	ENWRKA,X
 10584  E0041D4 29 0010         		AND	#010H
 10585  E0041D7 4A              		LSR	A
 10586  E0041D8 4A              		LSR	A
 10587  E0041D9 4A              		LSR	A
 10588  E0041DA 4A              		LSR	A
 10589  E0041DB 05 00           		ORA	<EWORK0
 10590  E0041DD A8              		TAY
 10591  E0041DE B9 40FC'        		LDA	!QKM_MV_TYPE_X-1,Y
 10592  E0041E1 30 24           		BMI	CHG00IN_0030	;移動無し？ ( yes:CHG00IN_0030 )
 10593                          ;
 10594  E0041E3 EB              		XBA
 10595  E0041E4 29 00FF         		AND	#00FFH
 10596  E0041E7 D0 12           		BNE	CHG00IN_0022	;単体セット？ ( no:CHG00IN_0022 )
 10597                          ;
 10598          0041E9          CHG_SP_SET	EQU	$
 10599  E0041E9 20 4271'        		JSR	CHG_ITEM_CK	;変身アイテム出現”ＯＮ／ＯＦＦ”チェック
 10600                          ;
 10601  E0041EC BD 7182         		LDA	ENYPSL,X	;基準Ｙ座標保存
 10602  E0041EF 9D 7902         		STA	ENWRKC,X
 10603  E0041F2 A9 0003         		LDA	#03H
 10604  E0041F5 95 18           		STA	<ENWRK0,X
 10605  E0041F7 5C 004476'      		JMP	>CHG_KUMO_CANCEL
 10606                          ;
 10607          0041FB          CHG00IN_0022	EQU	$
 10608  E0041FB 18              		CLC
 10609  E0041FC 7D 70E2         		ADC	ENXPSL,X
 10610  E0041FF 95 78           		STA	<ENWRK4,X	;中心Ｘ位置セット
 10611  E004201 A9 0002         		LDA	#02H
 10612  E004204 9D 7540         		STA	ENXPOW,X
 10613                          ;
 10614          004207          CHG00IN_0030	EQU	$
 10615  E004207 BD 7182         		LDA	ENYPSL,X	;基準Ｙ座標保存
 10616  E00420A 9D 7902         		STA	ENWRKC,X
 10617  E00420D 29 0010         		AND	#010H
 10618  E004210 4A              		LSR	A
 10619  E004211 4A              		LSR	A
 10620  E004212 4A              		LSR	A
 10621  E004213 4A              		LSR	A
 10622  E004214 05 00           		ORA	<EWORK0
 10623  E004216 A8              		TAY
 10624  E004217 B9 4138'        		LDA	!QKM_MV_TYPE_Y-1,Y
 10625  E00421A 30 10           		BMI	CHG00IN_0040	;移動無し？ ( yes:CHG00IN_0040 )
 10626                          ;
 10627  E00421C EB              		XBA
 10628  E00421D 29 00FF         		AND	#00FFH
 10629  E004220 18              		CLC
 10630  E004221 7D 7182         		ADC	ENYPSL,X
 10631  E004224 95 76           		STA	<ENWRK2,X	;中心Ｙ位置セット
 10632  E004226 A9 0002         		LDA	#02H
 10633  E004229 9D 7542         		STA	ENGPOW,X
 10634                          ;
 10635          00422C          CHG00IN_0040	EQU	$
 10636  E00422C 9E 7400         		STZ	ENMUKI,X	;向きリセット
 10637  E00422F A9 0002         		LDA	#02		;パターンＮｏ．初期セット
 10638  E004232 9D 7402         		STA	ENCHPT,X
 10639  E004235 6B              		RTL
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0181

 10640                          ;
 10641                          ;------------------------------------------------------------------------
 10642                          ;-		ＢＧに隠れてるチェック					-
 10643                          ;------------------------------------------------------------------------
 10644          004236          BG_BACK_CK	EQU	$
 10645  E004236 BD 70E2         		LDA	ENXPSL,X
 10646  E004239 29 FFF0         		AND	#0FFF0H
 10647  E00423C 09 0008         		ORA	#08H
 10648  E00423F 8D 3010         		STA	R8		;(R8) <-- ＢＧチェックＸ座標
 10649  E004242 BD 7182         		LDA	ENYPSL,X
 10650  E004245 29 FFF0         		AND	#0FFF0H
 10651  E004248 09 0008         		ORA	#08H
 10652  E00424B 8D 3000         		STA	R0		;(R0) <-- ＢＧチェックＹ座標
 10653                          		M_CHIPR M_BGUNIT_READ
 10653+ E00424E A2 0A           		LDX	#BANK M_BGUNIT_READ
 10653+ E004250 A9 CC66         		LDA	#M_BGUNIT_READ
 10653+ E004253 22 000000"      		JSL	>CHIPON_RAM_READ
 10654                          ;
 10655  E004257 A6 12           		LDX	<ENINDX
 10656  E004259 AD 300E         		LDA	R7
 10657  E00425C 29 0002         		AND	#AL
 10658  E00425F F0 09           		BEQ	BG_BACK_CK_0050 ;ＢＧに隠れてる？ ( no:BG_BACK_CK_0050 )
 10659                          ;
 10660                          ;-------------- ＢＧに隠れてる！！ --------------------------------------
 10661  E004261 A0 02           		LDY	#02H		;(Y) <-- 矢印向きセット
 10662  E004263 22 000000"      		JSL	>QAROW_SET_CK	;？矢印セットチェック
 10663                          ;
 10664  E004267 7A              		PLY			;[ pull pull return !! ]
 10665  E004268 80 3B           		BRA	RETURN_INIT
 10666                          ;
 10667          00426A          BG_BACK_CK_0050 EQU	$
 10668  E00426A A9 0002         		LDA	#02H		;表示”ＯＮ”！！
 10669  E00426D 9D 74A2         		STA	ENYUSN,X
 10670  E004270 6B              		RTL
 10671                          ;
 10672                          ;------------------------------------------------------------------------
 10673                          ;-		変身アイテム出現”ＯＮ／ＯＦＦ”チェック		-
 10674                          ;------------------------------------------------------------------------
 10675          004271          CHG_ITEM_CK	EQU	$
 10676  E004271 AC 0BF1         		LDY	CHG_ITEM_SW_PT
 10677  E004274 F0 0F           		BEQ	CHG_ITEM_CK_020 ;変身アイテム出現ＯＫ？ ( yes:CHG_ITEM_CK_020 )
 10678                          ;
 10679                          		M8
 10679+ E004276 E2 20           		SEP	#00100000b	
 10680                          ;
 10681  E004278 BD 74A0         		LDA	ENRETN,X
 10682          00427B          CHG_ITEM_CK_010 EQU	$
 10683  E00427B D9 0BF1         		CMP	CHG_ITEM_SW-1,Y
 10684  E00427E F0 1E           		BEQ	CHG_ITEM_CK_050 ;変身アイテム出現ＯＫ？ ( no:CHG_ITEM_CK_050 )
 10685  E004280 88              		DEY
 10686  E004281 D0 F8           		BNE	CHG_ITEM_CK_010
 10687                          ;
 10688                          		M16
 10688+ E004283 C2 20           		REP	#00100000b	
 10689                          ;
 10690          004285          CHG_ITEM_CK_020 EQU	$
 10691  E004285 B4 18           		LDY	<ENWRK0,X
 10692  E004287 F0 14           		BEQ	CHG_ITEM_CK_040 ;けむり出す？ ( no:CHG_ITEM_CK_040 )
 10693                          ;
 10694  E004289 BD 7A96         		LDA	ENTIM0,X
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0182

 10695  E00428C D0 0C           		BNE	CHG_ITEM_CK_022 ;出現ウェイト？ ( yes:CHG_ITEM_CK_022 )
 10696                          ;
 10697                          ;-------------- けむりセット --------------------------------------------
 10698  E00428E 22 000000"      		JSL	>KUMOB_SET
 10699  E004292 A9 0040         		LDA	#040H		;出現ウェイトタイマーセット
 10700  E004295 9D 7A96         		STA	ENTIM0,X
 10701  E004298 80 0B           		BRA	RETURN_INIT
 10702                          ;
 10703          00429A          CHG_ITEM_CK_022 EQU	$
 10704  E00429A 3A              		DEC	A
 10705  E00429B D0 08           		BNE	RETURN_INIT	;出現初期セット？ ( no:RETURN_INIT )
 10706          00429D          CHG_ITEM_CK_040 EQU	$
 10707  E00429D 60              		RTS
 10708                          ;
 10709                          ;-------------- 変身アイテム出現キャンセル！！ --------------------------
 10710          00429E          CHG_ITEM_CK_050 EQU	$
 10711                          ;
 10712                          		M16
 10712+ E00429E C2 20           		REP	#00100000b	
 10713                          ;
 10714  E0042A0 A9 0001         		LDA	#01H		;変身アイテム出現キャンセルフラグ”ＯＮ”
 10715  E0042A3 95 18           		STA	<ENWRK0,X
 10716                          ;
 10717          0042A5          RETURN_INIT	EQU	$
 10718  E0042A5 A9 0002         		LDA	#EINIT
 10719  E0042A8 9D 6F00         		STA	ENMODE,X
 10720  E0042AB A9 00FF         		LDA	#0FFH
 10721  E0042AE 9D 74A2         		STA	ENYUSN,X
 10722  E0042B1 68              		PLA			;[ pull pull return !! ]
 10723  E0042B2 6B              		RTL
 10724                          ;
 10725                          ;************************************************************************
 10726                          ;*		move	( 変身アイテム )				*
 10727                          ;************************************************************************
 10728          0042B3          CHG00_MAXSP	EQU	$
 10729  E0042B3 FF00 0100       		WORD	0FF00H,00100H
 10730          0042B7          CHG00_PT_AD	EQU	$
 10731  E0042B7 FFFF 0001       		WORD	0FFFFH,00001H
 10732          0042BB          CHG00_PT_CP	EQU	$
 10733  E0042BB 0002 0005       		WORD	00002H,00005H
 10734                          ;
 10735          0042BF          CHG00MV		EQU	$
 10736          0042BF          CHG01MV		EQU	$
 10737          0042BF          CHG02MV		EQU	$
 10738          0042BF          CHG03MV		EQU	$
 10739          0042BF          CHG05MV		EQU	$
 10740          0042BF          QKM01MV		EQU	$
 10741          0042BF          QKM02MV		EQU	$
 10742          0042BF          QKM03MV		EQU	$
 10743          0042BF          QKM04MV		EQU	$
 10744          0042BF          QKM05MV		EQU	$
 10745          0042BF          QKM06MV		EQU	$
 10746          0042BF          QKM07MV		EQU	$
 10747          0042BF          QKM08MV		EQU	$
 10748          0042BF          QKM09MV		EQU	$
 10749          0042BF          QKM0AMV		EQU	$
 10750          0042BF          QKM0BMV		EQU	$
 10751          0042BF          QKM0CMV		EQU	$
 10752          0042BF          QKM0DMV		EQU	$
 10753          0042BF          QKM0EMV		EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0183

 10754          0042BF          QKM0FMV		EQU	$
 10755          0042BF          QKM10MV		EQU	$
 10756          0042BF          QKM11MV		EQU	$
 10757          0042BF          QKM12MV		EQU	$
 10758          0042BF          QKM13MV		EQU	$
 10759          0042BF          QKM14MV		EQU	$
 10760          0042BF          QKM16MV		EQU	$
 10761          0042BF          QKM17MV		EQU	$
 10762  E0042BF B5 18           		LDA	<ENWRK0,X
 10763  E0042C1 F0 03           		BEQ	CHG00MV_0010	;”フワフワ”？ ( yes:CHG00MV_0010 )
 10764  E0042C3 4C 43DF'        		JMP	CHG00MV_0100
 10765                          ;
 10766                          ;------------------------------------------------------------------------
 10767                          ;-		雲”フワフワ”処理					-
 10768                          ;------------------------------------------------------------------------
 10769          0042C6          CHG00MV_0010	EQU	$
 10770  E0042C6 9E 7400         		STZ	ENMUKI,X	;向きリセット
 10771                          ;
 10772  E0042C9 BD 7A38         		LDA	ENWRK8,X
 10773  E0042CC F0 10           		BEQ	CHG00MV_0014	;見えないタイプ？ ( no:CHG00MV_0014 )
 10774                          ;
 10775  E0042CE A0 02           		LDY	#02H		;(Y) <-- 矢印向きセット
 10776  E0042D0 22 000000"      		JSL	>QAROW_SET_CK	;？矢印セットチェック
 10777  E0042D4 A0 FF           		LDY	#0FFH		;(A) <-- ＯＡＭセットフラグ
 10778  E0042D6 90 02           		BCC	CHG00MV_0012	;スイッチ”ＯＮ”？ ( no:CHG00MV_0012 )
 10779                          ;
 10780  E0042D8 A0 02           		LDY	#02H		;(Y) <-- ＯＡＭセットフラグ
 10781          0042DA          CHG00MV_0012	EQU	$
 10782  E0042DA 98              		TYA
 10783  E0042DB 9D 74A2         		STA	ENYUSN,X
 10784                          ;
 10785                          ;-------------- フラッシングチェック ------------------------------------
 10786          0042DE          CHG00MV_0014	EQU	$
 10787  E0042DE BC 77C0         		LDY	ENWRKX,X
 10788  E0042E1 F0 10           		BEQ	CHG00MV_0018	;フラッシング？ ( no:CHG00MV_0018 )
 10789                          ;
 10790  E0042E3 A0 02           		LDY	#02H
 10791  E0042E5 AD 0030         		LDA	FRCNT
 10792  E0042E8 29 0001         		AND	#01H
 10793  E0042EB F0 02           		BEQ	CHG00MV_0016
 10794  E0042ED A0 FF           		LDY	#0FFH
 10795          0042EF          CHG00MV_0016	EQU	$
 10796  E0042EF 98              		TYA
 10797  E0042F0 9D 74A2         		STA	ENYUSN,X
 10798                          ;
 10799          0042F3          CHG00MV_0018	EQU	$
 10800  E0042F3 22 002F23'      		JSL	>ENMDCK		;mode check
 10801                          ;
 10802  E0042F7 B5 76           		LDA	<ENWRK2,X
 10803  E0042F9 F0 0F           		BEQ	CHG00MV_0022	;横”フワフワ”？ ( no:CHG00MV_0022 )
 10804                          ;
 10805                          ;-------------- 横”フワフワ” ------------------------------------------
 10806  E0042FB A0 00           		LDY	#00
 10807  E0042FD DD 7182         		CMP	ENYPSL,X
 10808  E004300 30 02           		BMI	CHG00MV_0020
 10809  E004302 A0 02           		LDY	#02H
 10810          004304          CHG00MV_0020	EQU	$
 10811  E004304 B9 42B3'        		LDA	!CHG00_MAXSP,Y
 10812  E004307 9D 75E2         		STA	ENGMAX,X
 10813                          ;;;;		    LDA	    #00001100B
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0184

 10814                          ;;;;		    STA	    <EWORK0
 10815                          ;;;;		    BRA	    CHG00MV_0026
 10816                          ;
 10817                          ;-------------- 縦”フワフワ” ------------------------------------------
 10818          00430A          CHG00MV_0022	EQU	$
 10819  E00430A B5 78           		LDA	<ENWRK4,X
 10820  E00430C F0 11           		BEQ	CHG00MV_0026	;横”フワフワ”？ ( no:CHG00MV_0026 )
 10821                          ;
 10822  E00430E A0 00           		LDY	#00
 10823  E004310 B5 78           		LDA	<ENWRK4,X
 10824  E004312 DD 70E2         		CMP	ENXPSL,X
 10825  E004315 30 02           		BMI	CHG00MV_0024
 10826  E004317 A0 02           		LDY	#02H
 10827          004319          CHG00MV_0024	EQU	$
 10828  E004319 B9 42B3'        		LDA	!CHG00_MAXSP,Y
 10829  E00431C 9D 75E0         		STA	ENXMAX,X
 10830                          ;
 10831                          ;-------------- ＢＧチェック --------------------------------------------
 10832          00431F          CHG00MV_0026	EQU	$
 10833                          ;
 10834                          ;-------------- パターンセット ------------------------------------------
 10835          00431F          CHG00MV_0028	EQU	$
 10836  E00431F 20 44F1'        		JSR	CHG00_PTSET
 10837                          ;
 10838                          ;-------------- タマゴ衝突チェック --------------------------------------
 10839          004322          CHG00MV_0040	EQU	$
 10840  E004322 BD 7A38         		LDA	ENWRK8,X
 10841  E004325 D0 06           		BNE	CHG00MV_0046	;見える？ ( yes:CHG00MV_0046 )
 10842                          ;
 10843  E004327 BC 7D36         		LDY	ECRSFG,X
 10844  E00432A 88              		DEY
 10845  E00432B 10 01           		BPL	CHG00MV_0047	;敵と衝突してる？ ( yes:CHG00MV_0047 )
 10846          00432D          CHG00MV_0046	EQU	$
 10847  E00432D 6B              		RTL
 10848                          ;
 10849          00432E          CHG00MV_0047	EQU	$
 10850  E00432E B9 6F00         		LDA	ENMODE,Y
 10851  E004331 C9 0010         		CMP	#EMOVE
 10852  E004334 D0 F7           		BNE	CHG00MV_0046	;動作中？ ( no:CHG00MV_0046 )
 10853  E004336 B9 7D38         		LDA	ENSHOT,Y
 10854  E004339 D0 0D           		BNE	CHG00MV_00470	;投げてる？ ( yes:CHG00MV_00470 )
 10855                          ;
 10856  E00433B B9 7360         		LDA	ENMYNO,Y
 10857  E00433E C9 0018         		CMP	#FIREX
 10858  E004341 F0 05           		BEQ	CHG00MV_00470	;プレイヤーファイヤー？ ( yes:CHG00MV_00470 )
 10859  E004343 C9 0006         		CMP	#COLDX
 10860  E004346 D0 E5           		BNE	CHG00MV_0046	;プレイヤー氷の息？ ( no:CHG00MV_0046 )
 10861                          ;
 10862          004348          CHG00MV_00470	EQU	$
 10863  E004348 BD 7680         		LDA	ENDSXL,X
 10864  E00434B 18              		CLC
 10865  E00434C 69 0018         		ADC	#018H
 10866  E00434F C9 0121         		CMP	#0108H+018H+1
 10867  E004352 B0 D9           		BCS	CHG00MV_0046	;衝突ＯＫ位置？ ( no:CHG00MV_0046 )
 10868  E004354 BD 7682         		LDA	ENDSYL,X
 10869  E004357 18              		CLC
 10870  E004358 69 0010         		ADC	#010H
 10871  E00435B C9 00F1         		CMP	#0E0H+010H+1
 10872  E00435E 90 03           		BCC	CHG00MV_0048F	;	 "      ( yes:CHG00MV_0048F )
 10873  E004360 4C 43DE'        		JMP	CHG00MV_0050
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0185

 10874                          ;
 10875                          ;-------------- 当たった敵跳ね返りセット ------------------------
 10876          004363          CHG00MV_0048F	EQU	$
 10877  E004363 BB              		TYX
 10878                          ;
 10879                          ;-------------- サウンドセット座標セット --------
 10880  E004364 A9 0032         		LDA	#032H
 10881  E004367 22 003212'      		JSL	>SOUND_XYST	;[♪]
 10882                          ;
 10883  E00436B 22 00325B'      		JSL	>ENDEATH_SET_4	;ショット敵死亡セット
 10884                          ;
 10885                          ;-------------- 当たり！！ --------------------------------------
 10886  E00436F A9 0002         		LDA	#02H		;フラッシングキャンセル
 10887  E004372 9D 74A2         		STA	ENYUSN,X
 10888                          ;
 10889  E004375 22 004C6B'      		JSL	>SP_SCRL_SET_2	;スクロール基準特殊セット
 10890  E004379 9C 7E36         		STZ	SP_SCRL_XSP	;スクロール基準特殊Ｘスピードセット
 10891  E00437C 9C 7E38         		STZ	SP_SCRL_YSP	;	  ”	   Ｙ	   ”
 10892                          ;
 10893  E00437F BD 7360         		LDA	ENMYNO,X
 10894  E004382 38              		SEC
 10895  E004383 E9 00BA         		SBC	#QKM05
 10896  E004386 4A              		LSR	A
 10897  E004387 F0 0F           		BEQ	CHG00MV_00484	;落下モードあり？ ( yes:CHG00MV_00484 )
 10898                          ;
 10899                          ;-------------- ハテナ雲ズーム初期セット ----------------
 10900  E004389 9E 7222         		STZ	ENYSPD,X
 10901  E00438C 9E 7542         		STZ	ENGPOW,X
 10902  E00438F 9E 75E2         		STZ	ENGMAX,X
 10903  E004392 22 00448B'      		JSL	>QKM_ZOOM_IN
 10904  E004396 80 37           		BRA	CHG00MV_00490
 10905                          ;
 10906                          ;-------------- 落下モード初期セット --------------------
 10907          004398          CHG00MV_00484	EQU	$
 10908  E004398 BD 7040         		LDA	ENMOD2,X	;ＯＡＭセット変更
 10909  E00439B 38              		SEC
 10910  E00439C E9 2001         		SBC	#0010000000000001B ;ＯＢＪ数を５個から１個へ
 10911  E00439F 9D 7040         		STA	ENMOD2,X
 10912  E0043A2 BD 6FA2         		LDA	ENMOD1,X	;ＢＧチェックセット
 10913  E0043A5 09 0001         		ORA	#01H
 10914  E0043A8 9D 6FA2         		STA	ENMOD1,X
 10915  E0043AB BD 7900         		LDA	ENWRKA,X
 10916  E0043AE 29 0010         		AND	#010H
 10917  E0043B1 49 0010         		EOR	#010H		;[ 偶数：右へ  奇数：左へ ]
 10918  E0043B4 D0 03           		BNE	CHG00MV_00485
 10919                          ;
 10920  E0043B6 A9 FFF0         		LDA	#0FFF0H
 10921          0043B9          CHG00MV_00485	EQU	$
 10922  E0043B9 95 76           		STA	<ENWRK2,X	;セット向きセット
 10923                          ;
 10924          0043BB          CHG_KUMO_JUMP	EQU	$
 10925          0043BB          CHG00MV_00486	EQU	$
 10926  E0043BB A9 FC00         		LDA	#0FC00H
 10927  E0043BE 9D 7222         		STA	ENYSPD,X
 10928  E0043C1 A9 0040         		LDA	#040H
 10929  E0043C4 9D 7542         		STA	ENGPOW,X
 10930  E0043C7 A9 0400         		LDA	#0400H
 10931  E0043CA 9D 75E2         		STA	ENGMAX,X
 10932  E0043CD F6 18           		INC	<ENWRK0,X
 10933          0043CF          CHG00MV_00490	EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0186

 10934  E0043CF A9 0002         		LDA	#02H
 10935  E0043D2 9D 74A2         		STA	ENYUSN,X
 10936  E0043D5 9E 7220         		STZ	ENXSPD,X
 10937  E0043D8 9E 75E0         		STZ	ENXMAX,X
 10938  E0043DB 9E 7540         		STZ	ENXPOW,X
 10939          0043DE          CHG00MV_0050	EQU	$
 10940  E0043DE 6B              		RTL
 10941                          ;
 10942          0043DF          CHG00MV_0100	EQU	$
 10943  E0043DF 3A              		DEC	A		;[ CMP #01H ]
 10944  E0043E0 D0 4B           		BNE	CHG00MV_0200	;落下モード？ ( no:CHG00MV_0200 )
 10945                          ;
 10946  E0043E2 22 002F23'      		JSL	>ENMDCK
 10947                          ;
 10948  E0043E6 22 004C6B'      		JSL	>SP_SCRL_SET_2	;スクロール基準特殊セット
 10949                          ;
 10950                          ;-------------- パターンセット ----------------------------------
 10951  E0043EA 20 44F1'        		JSR	CHG00_PTSET
 10952                          ;
 10953  E0043ED BD 7860         		LDA	ENCBFG,X
 10954  E0043F0 29 0001         		AND	#00001B
 10955  E0043F3 1D 7862         		ORA	ENWATR,X
 10956  E0043F6 29 00FF         		AND	#00FFH
 10957  E0043F9 D0 23           		BNE	CHG00MV_0102	;着地？ ( yes:CHG00MV_0102 )
 10958                          ;
 10959                          ;-------------- 特殊着地ＢＧチェック --------------------
 10960  E0043FB BD 7CD6         		LDA	ECENTX,X
 10961  E0043FE 8D 3010         		STA	R8		;(R8) <-- ＢＧチェックＸ座標
 10962  E004401 BD 7182         		LDA	ENYPSL,X
 10963  E004404 18              		CLC
 10964  E004405 69 0010         		ADC	#010H
 10965  E004408 8D 3000         		STA	R0		;(R0) <-- ＢＧチェックＹ座標
 10966                          		M_CHIPR M_BGUNIT_READ
 10966+ E00440B A2 0A           		LDX	#BANK M_BGUNIT_READ
 10966+ E00440D A9 CC66         		LDA	#M_BGUNIT_READ
 10966+ E004410 22 000000"      		JSL	>CHIPON_RAM_READ
 10967                          ;
 10968  E004414 A6 12           		LDX	<ENINDX
 10969  E004416 AD 300C         		LDA	R6
 10970  E004419 CD 1DAE         		CMP	RUT6812
 10971  E00441C D0 0E           		BNE	CHG00MV_0110	;着地？ ( no:CHG00MV_0110 )
 10972                          ;
 10973          00441E          CHG00MV_0102	EQU	$
 10974                          ;;;;		    LDA	    ENYPSL,X	    ;Ｙ座標補正
 10975                          ;;;;		    AND	    #0FFF0H
 10976                          ;;;;		    STA	    ENYPSL,X
 10977  E00441E BD 7040         		LDA	ENMOD2,X	;ＯＡＭセット変更
 10978  E004421 18              		CLC
 10979  E004422 69 2001         		ADC	#0010000000000001B ;ＯＢＪ数を１個から５個へ
 10980  E004425 9D 7040         		STA	ENMOD2,X
 10981  E004428 22 00448B'      		JSL	>QKM_ZOOM_IN
 10982                          ;
 10983          00442C          CHG00MV_0110	EQU	$
 10984  E00442C 6B              		RTL
 10985                          ;
 10986                          ;-------------- ハテナ雲ズーム ----------------------------------
 10987          00442D          CHG00MV_0200	EQU	$
 10988  E00442D 3A              		DEC	A		;[ CMP #02H ]
 10989  E00442E D0 51           		BNE	CHG00MV_0300	;ハテナ雲ズーム？ ( no:CHG00MV_0300 )
 10990                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0187

 10991  E004430 22 002A52'      		JSL	>TROBJ_OAM_4x4
 10992                          ;
 10993  E004434 22 002F23'      		JSL	>ENMDCK
 10994                          ;
 10995  E004438 22 004C6B'      		JSL	>SP_SCRL_SET_2	;スクロール基準特殊セット
 10996                          ;
 10997  E00443C 22 0044AE'      		JSL	>QKM_ZOOM
 10998                          ;
 10999  E004440 9E 7220         		STZ	ENXSPD,X
 11000  E004443 9E 7222         		STZ	ENYSPD,X
 11001  E004446 BD 7A38         		LDA	ENWRK8,X
 11002  E004449 18              		CLC
 11003  E00444A 69 0018         		ADC	#018H
 11004  E00444D 9D 7A38         		STA	ENWRK8,X
 11005  E004450 C9 0370         		CMP	#01F0H+(18H*16)
 11006  E004453 90 2B           		BCC	CHG00MV_0210	;ズームデモ終了？ ( no:CHG00MV_0210 )
 11007                          ;
 11008  E004455 22 002EFD'      		JSL	>TROBJ_CLEAR
 11009                          ;
 11010          004459          CHG_ZOOM_END	EQU	$
 11011  E004459 A9 003B         		LDA	#03BH		;[♪]
 11012  E00445C 22 000000"      		JSL	>SOUND_3_ON
 11013                          ;
 11014  E004460 F6 18           		INC	<ENWRK0,X	;ハテナ雲タイプ別処理へ
 11015  E004462 A9 0003         		LDA	#03H
 11016  E004465 9D 7402         		STA	ENCHPT,X
 11017  E004468 BD 7040         		LDA	ENMOD2,X
 11018  E00446B 18              		CLC
 11019  E00446C 69 0800         		ADC	#0000100000000000B ;[ ＯＢＪ使用数を４個から５個へ ]
 11020  E00446F 9D 7040         		STA	ENMOD2,X
 11021                          ;
 11022  E004472 22 000000"      		JSL	>FUSNB_SET	;効果セット
 11023                          ;
 11024          004476          CHG_KUMO_CANCEL EQU	$
 11025                          ;
 11026                          		I16
 11026+ E004476 C2 10           		REP	#00010000b	
 11027                          ;
 11028  E004478 BD 7360         		LDA	ENMYNO,X
 11029  E00447B 0A              		ASL	A
 11030  E00447C AA              		TAX
 11031  E00447D 7C 43BC'        		JMP	(!CHG_TYPE_IN,X)
 11032                          ;
 11033                          		IDX8
 11034                          ;
 11035          004480          CHG00MV_0210	EQU	$
 11036  E004480 6B              		RTL
 11037                          ;
 11038                          ;-------------- ハテナ雲タイプ別処理 ----------------------------
 11039          004481          CHG00MV_0300	EQU	$
 11040                          ;
 11041                          		I16
 11041+ E004481 C2 10           		REP	#00010000b	
 11042                          ;
 11043  E004483 BD 7360         		LDA	ENMYNO,X
 11044  E004486 0A              		ASL	A
 11045  E004487 AA              		TAX
 11046  E004488 7C 478F'        		JMP	(!CHG_TYPE_MV,X)
 11047                          ;
 11048                          		IDX8
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0188

 11049                          ;
 11050                          ;------------------------------------------------------------------------
 11051                          ;-		ハテナ雲ズーム初期セット				-
 11052                          ;------------------------------------------------------------------------
 11053          00448B          QKM_ZOOM_IN	EQU	$
 11054  E00448B A9 0002         		LDA	#02H
 11055  E00448E 95 18           		STA	<ENWRK0,X
 11056                          ;
 11057  E004490 22 002D74'      		JSL	>TROBJ_SR_4x4
 11058  E004494 B0 05           		BCS	QKM_ZOOM_IN_010 ;エリア空き無し？ ( no:QKM_ZOOM_IN_010 )
 11059                          ;
 11060  E004496 68              		PLA			;[ pull pull return !! ]
 11061  E004497 7A              		PLY			;
 11062  E004498 4C 4459'        		JMP	CHG_ZOOM_END
 11063                          ;
 11064          00449B          QKM_ZOOM_IN_010 EQU	$
 11065  E00449B 9E 7402         		STZ	ENCHPT,X
 11066  E00449E BD 7040         		LDA	ENMOD2,X
 11067  E0044A1 38              		SEC
 11068  E0044A2 E9 0800         		SBC	#0000100000000000B ;[ ＯＢＪ使用数を５個から４個へ ]
 11069  E0044A5 9D 7040         		STA	ENMOD2,X
 11070  E0044A8 A9 0100         		LDA	#0100H
 11071  E0044AB 9D 7A38         		STA	ENWRK8,X
 11072                          ;
 11073                          ;------------------------------------------------------------------------
 11074                          ;-		ハテナ雲ズームキャラセット				-
 11075                          ;------------------------------------------------------------------------
 11076          0044AE          QKM_ZOOM	EQU	$
 11077  E0044AE BD 7A38         		LDA	ENWRK8,X
 11078  E0044B1 C9 01F0         		CMP	#01F0H
 11079  E0044B4 90 03           		BCC	QKM_ZOOM_0010
 11080  E0044B6 A9 01F0         		LDA	#01F0H
 11081          0044B9          QKM_ZOOM_0010	EQU	$
 11082  E0044B9 8D 300C         		STA	R6		;(R6) <-- 倍率
 11083  E0044BC A9 0008         		LDA	#08H
 11084  E0044BF 8D 3010         		STA	R8		;(R8)  <-- 中心＿Ｘ
 11085  E0044C2 8D 3012         		STA	R9		;(R8)  <-- 中心＿Ｙ
 11086  E0044C5 A9 70E0         		LDA	#CIPCHD3+70E0H
 11087  E0044C8 8D 3018         		STA	R12		;(R12) <-- キャラクターアドレス（Ｌ、Ｈ）
 11088  E0044CB A9 0055         		LDA	#BANK CIPCHD3
 11089  E0044CE 8D 301A         		STA	R13		;(R13) <-- キャラクターアドレス（Ｂ）
 11090  E0044D1 BC 7722         		LDY	ENTROB,X
 11091  E0044D4 BB              		TYX
 11092  E0044D5 BF 0029EE'      		LDA	>TROBJ_PLOT_Y,X
 11093  E0044D9 8D 3004         		STA	R2		;(R2)  <-- ビットマップ座標＿Ｙ
 11094  E0044DC BD 29CE'        		LDA	!TROBJ_PLOT_X,X
 11095  E0044DF 8D 3006         		STA	R3		;(R3)  <-- ビットマップ座標＿Ｘ
 11096                          		M_CHIP	C_32_ZOOM_16
 11096+ E0044E2 A2 08           		LDX	#BANK C_32_ZOOM_16
 11096+ E0044E4 A9 82F8         		LDA	#C_32_ZOOM_16
 11096+ E0044E7 22 000000"      		JSL	>CHIPON
 11097                          ;
 11098  E0044EB EE 0CF9         		INC	OBM7WF		;転送キャラクター転送フラグ”ＯＮ”
 11099                          ;
 11100  E0044EE A6 12           		LDX	<ENINDX
 11101  E0044F0 6B              		RTL
 11102                          ;
 11103                          ;------------------------------------------------------------------------
 11104                          ;-		ハテナ雲パターンＮｏ．セット				-
 11105                          ;------------------------------------------------------------------------
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0189

 11106          0044F1          CHG00_PTSET	EQU	$
 11107  E0044F1 BD 7A96         		LDA	ENTIM0,X
 11108  E0044F4 D0 23           		BNE	CHG00_PTSET_020 ;パターン切り替え？ ( no:CHG00_PTSET_020 )
 11109                          ;
 11110  E0044F6 BC 7A36         		LDY	ENWRK6,X
 11111  E0044F9 BD 7402         		LDA	ENCHPT,X
 11112  E0044FC D9 42BB'        		CMP	!CHG00_PT_CP,Y
 11113  E0044FF D0 0B           		BNE	CHG00_PTSET_010 ;パターンＮｏ．ＭＡＸ？ ( no:CHG00_PTSET_010 )
 11114  E004501 98              		TYA
 11115  E004502 49 0002         		EOR	#02H
 11116  E004505 9D 7A36         		STA	ENWRK6,X
 11117  E004508 A8              		TAY
 11118  E004509 BD 7402         		LDA	ENCHPT,X
 11119          00450C          CHG00_PTSET_010 EQU	$
 11120  E00450C 18              		CLC
 11121  E00450D 79 42B7'        		ADC	!CHG00_PT_AD,Y
 11122  E004510 9D 7402         		STA	ENCHPT,X
 11123  E004513 A9 0004         		LDA	#04H		;パターン切り替えタイマーセット
 11124  E004516 9D 7A96         		STA	ENTIM0,X
 11125          004519          CHG00_PTSET_020 EQU	$
 11126  E004519 60              		RTS
 11127                          ;
 11128                          ;------------------------------------------------------------------------
 11129                          ;-		変身アイテムタイプ別初期セットルーチンテーブル		-
 11130                          ;------------------------------------------------------------------------
 11131          0043BC          CHG_TYPE_IN	EQU	$-(CHG00*2)	;[ENEMYNO]
 11132  E00451A 4562'           		WORD	CHG_TYPE_IN_0	;[CHG00]
 11133  E00451C 4562'           		WORD	CHG_TYPE_IN_0	;[CHG01]
 11134  E00451E 4562'           		WORD	CHG_TYPE_IN_0	;[CHG02]
 11135  E004520 4562'           		WORD	CHG_TYPE_IN_0	;[CHG03]
 11136  E004522 0000            		WORD	0		;[PUUUU] ×ダミー
 11137  E004524 4562'           		WORD	CHG_TYPE_IN_0	;[CHG05]
 11138                          ;
 11139  E004526 0000            		WORD	0		;[QKM00] ×ダミー
 11140  E004528 460B'           		WORD	QKM_TYPE_IN_1	;[QKM01] コイン出現
 11141  E00452A 4654'           		WORD	QKM_TYPE_IN_2	;[QKM02] シャボン１ｕｐ
 11142  E00452C 4681'           		WORD	QKM_TYPE_IN_3	;[QKM03] フラワー出現
 11143  E00452E 46A3'           		WORD	QKM_TYPE_IN_4	;[QKM04] 敵みんなコイン
 11144  E004530 46B6'           		WORD	QKM_TYPE_IN_5	;[QKM05] 階段が出現する
 11145  E004532 46B6'           		WORD	QKM_TYPE_IN_6	;[QKM06] 橋がかかる
 11146  E004534 46E3'           		WORD	QKM_TYPE_IN_7	;[QKM07] ドロボー出現
 11147  E004536 470B'           		WORD	QKM_TYPE_IN_8	;[QKM08] コイン出現（１枚）
 11148  E004538 4725'           		WORD	QKM_TYPE_IN_9	;[QKM09] １ｕｐ
 11149  E00453A 4735'           		WORD	QKM_TYPE_IN_A	;[QKM0A] カギ出現
 11150  E00453C 476C'           		WORD	QKM_TYPE_IN_B	;[QKM0B] ＯＢＪコイン（小）
 11151  E00453E 47F5'           		WORD	QKM_TYPE_IN_C	;[QKM0C] ＯＢＪコイン（多）
 11152  E004540 47FB'           		WORD	QKM_TYPE_IN_D	;[QKM0D] ドア出現
 11153  E004542 45E5'           		WORD	QKM_TYPE_IN_E	;[QKM0E] 床が下がる
 11154  E004544 481E'           		WORD	QKM_TYPE_IN_F	;[QKM0F] スイカ出現
 11155  E004546 481E'           		WORD	QKM_TYPE_IN_10	;[QKM10] ファイヤースイカ出現
 11156  E004548 481E'           		WORD	QKM_TYPE_IN_11	;[QKM11] 氷スイカ
 11157  E00454A 483E'           		WORD	QKM_TYPE_IN_12	;[QKM12] ひまわりリフト（５ユニット）
 11158  E00454C 483E'           		WORD	QKM_TYPE_IN_13	;[QKM13] ひまわりリフト（１１ユニット）
 11159  E00454E 0000            		WORD	0		;[QKM14] ×ダミー
 11160  E004550 0000            		WORD	0		;[LBSDR] ×ダミー
 11161  E004552 48A4'           		WORD	QKM_TYPE_IN_16	;[QKM16] 敵が変わった？雲
 11162  E004554 48C9'           		WORD	QKM_TYPE_IN_17	;[QKM17] スイッチ
 11163                          ;
 11164                          ;----------------------------------------------------------------
 11165                          ;-		変身アイテム初期セット				-
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0190

 11166                          ;----------------------------------------------------------------
 11167          004556          CHG_CHR_ADRS	EQU	$
 11168  E004556 6061            		WORD	CIPCHD3+6060H+1 ;クルマ
 11169  E004558 6071            		WORD	CIPCHD3+6070H+1 ;モグラ
 11170  E00455A 7061            		WORD	CIPCHD3+7060H+1 ;ヘリコプター
 11171  E00455C 7071            		WORD	CIPCHD3+7070H+1 ;汽車
 11172  E00455E 0000            		WORD	0		;キノコ
 11173  E004560 70F0            		WORD	CIPCHD3+70F0H	;潜水艦
 11174                          ;
 11175          004562          CHG_TYPE_IN_0	EQU	$
 11176                          ;
 11177                          		I8
 11177+ E004562 E2 10           		SEP	#00010000b	
 11178                          ;
 11179  E004564 A6 12           		LDX	<ENINDX
 11180  E004566 22 002D24'      		JSL	>TROBJ_SR_2x2	;転送エリア確保
 11181  E00456A B0 04           		BCS	CHG_TYPE_IN_010 ;      "       ？ ( yes:CHG_TYPE_IN_010 )
 11182  E00456C 5C 00231E'      		JMP	>ENCLEAR
 11183                          ;
 11184          004570          CHG_TYPE_IN_010 EQU	$
 11185  E004570 BD 7402         		LDA	ENCHPT,X
 11186  E004573 95 78           		STA	<ENWRK4,X	;単体セット？フラグセット
 11187  E004575 F0 06           		BEQ	CHG_TYPE_IN_020 ;単体セット？ ( yes:CHG_TYPE_IN_020 )
 11188                          ;
 11189  E004577 A9 0100         		LDA	#0100H		;落下スピードセット
 11190  E00457A 9D 7222         		STA	ENYSPD,X
 11191          00457D          CHG_TYPE_IN_020 EQU	$
 11192  E00457D A9 0007         		LDA	#07H		;変身アイテムパターンＮｏ．初期セット
 11193  E004580 9D 7402         		STA	ENCHPT,X	;
 11194  E004583 9E 7A36         		STZ	ENWRK6,X	;
 11195  E004586 BD 6FA2         		LDA	ENMOD1,X	;ＢＧチェックセット
 11196  E004589 09 0001         		ORA	#01H
 11197  E00458C 9D 6FA2         		STA	ENMOD1,X
 11198  E00458F A9 0002         		LDA	#02H		;重力セット
 11199  E004592 9D 7542         		STA	ENGPOW,X
 11200  E004595 A9 FFC0         		LDA	#0FFC0H
 11201  E004598 9D 75E2         		STA	ENGMAX,X
 11202  E00459B A9 0020         		LDA	#020H		;ウェイトタイマーセット
 11203  E00459E 9D 7A96         		STA	ENTIM0,X
 11204                          ;
 11205                          ;--------------------------------------------------------
 11206                          ;-		転送キャラクターセット			-
 11207                          ;--------------------------------------------------------
 11208  E0045A1 A9 0100         		LDA	#0100H
 11209  E0045A4 8D 300C         		STA	R6		;(R6)  <-- 倍率
 11210  E0045A7 A9 0008         		LDA	#08H
 11211  E0045AA 8D 3010         		STA	R8		;(R8)  <-- 中心＿Ｘ
 11212  E0045AD 8D 3012         		STA	R9		;(R9)  <-- 中心＿Ｙ
 11213  E0045B0 BD 7360         		LDA	ENMYNO,X
 11214  E0045B3 38              		SEC
 11215  E0045B4 E9 00AF         		SBC	#CHG00
 11216  E0045B7 0A              		ASL	A
 11217  E0045B8 A8              		TAY
 11218  E0045B9 B9 4556'        		LDA	!CHG_CHR_ADRS,Y
 11219  E0045BC 8D 3018         		STA	R12		;(R12) <-- キャラクターアドレス（Ｌ，Ｈ）
 11220  E0045BF A9 0055         		LDA	#BANK CIPCHD3
 11221  E0045C2 8D 301A         		STA	R13		;(R13) <-- キャラクターアドレス（Ｂ）
 11222  E0045C5 BC 7722         		LDY	ENTROB,X
 11223  E0045C8 BB              		TYX
 11224  E0045C9 BF 0029EE'      		LDA	>TROBJ_PLOT_Y,X
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0191

 11225  E0045CD 8D 3004         		STA	R2		;(R2)  <-- ビットマップ座標＿Ｙ
 11226  E0045D0 BD 29CE'        		LDA	!TROBJ_PLOT_X,X
 11227  E0045D3 8D 3006         		STA	R3		;(R3)  <-- ビットマップ座標＿Ｘ
 11228                          		M_CHIP	C_16_ZOOM
 11228+ E0045D6 A2 08           		LDX	#BANK C_16_ZOOM
 11228+ E0045D8 A9 8619         		LDA	#C_16_ZOOM
 11228+ E0045DB 22 000000"      		JSL	>CHIPON
 11229                          ;
 11230  E0045DF EE 0CF9         		INC	OBM7WF		;転送キャラクター転送フラグ”ＯＮ”
 11231                          ;
 11232  E0045E2 A6 12           		LDX	<ENINDX
 11233  E0045E4 6B              		RTL
 11234                          ;
 11235                          ;----------------------------------------------------------------
 11236                          ;-		床が下がる					-
 11237                          ;----------------------------------------------------------------
 11238          0045E5          QKM_TYPE_IN_E	EQU	$
 11239  E0045E5 A6 12           		LDX	<ENINDX
 11240  E0045E7 BD 7680         		LDA	ENDSXL,X
 11241  E0045EA 38              		SEC
 11242  E0045EB E9 0080         		SBC	#0080H
 11243  E0045EE 0A              		ASL	A		;(C) <-- (N)
 11244  E0045EF A9 0000         		LDA	#00
 11245  E0045F2 B0 03           		BCS	QKM_TYPE_IN_E10
 11246  E0045F4 A9 0040         		LDA	#040H
 11247          0045F7          QKM_TYPE_IN_E10 EQU	$
 11248  E0045F7 48              		PHA			;(A) save
 11249                          ;
 11250  E0045F8 18              		CLC
 11251  E0045F9 7D 70E2         		ADC	ENXPSL,X
 11252  E0045FC 9D 70E2         		STA	ENXPSL,X	;スクロール用Ｘ座標セット
 11253                          ;
 11254  E0045FF 68              		PLA			;(A) load
 11255  E004600 38              		SEC
 11256  E004601 E9 0020         		SBC	#020H		;[ ハテナ雲から床までのＸ距離 ]
 11257  E004604 95 78           		STA	<ENWRK4,X
 11258                          ;
 11259  E004606 A9 0090         		LDA	#090H		;ウェイトタイマーセット
 11260  E004609 80 0B           		BRA	QKM_TYPE_IN_110
 11261                          ;
 11262                          ;----------------------------------------------------------------
 11263                          ;-		コイン出現初期セット				-
 11264                          ;----------------------------------------------------------------
 11265          00460B          QKM_TYPE_IN_1	EQU	$
 11266                          ;
 11267                          		I8
 11267+ E00460B E2 10           		SEP	#00010000b	
 11268                          ;
 11269  E00460D A6 12           		LDX	<ENINDX
 11270  E00460F 22 004640'      		JSL	>QKM_NON_EXIST	;情報データセーブビット”ＯＮ”
 11271                          ;
 11272  E004613 A9 0040         		LDA	#040H		;ウェイトタイマーセット
 11273                          ;
 11274          004616          QKM_TYPE_IN_110 EQU	$
 11275                          ;
 11276                          		I8
 11276+ E004616 E2 10           		SEP	#00010000b	
 11277                          ;
 11278  E004618 9D 7A96         		STA	ENTIM0,X
 11279  E00461B BD 7182         		LDA	ENYPSL,X	;Ｙ座標補正
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0192

 11280  E00461E 29 FFF0         		AND	#0FFF0H
 11281  E004621 9D 7182         		STA	ENYPSL,X
 11282          004624          QKM_NODSPST	EQU	$
 11283  E004624 BD 6FA2         		LDA	ENMOD1,X	;ＢＧチェック無しセット
 11284  E004627 29 FFE0         		AND	#1111111111100000B
 11285  E00462A 9D 6FA2         		STA	ENMOD1,X
 11286  E00462D 9E 7040         		STZ	ENMOD2,X	;ＯＡＭセット無しセット
 11287  E004630 A9 00FF         		LDA	#0FFH
 11288  E004633 9D 74A2         		STA	ENYUSN,X
 11289  E004636 9E 7542         		STZ	ENGPOW,X	;移動キャンセル
 11290  E004639 9E 7220         		STZ	ENXSPD,X
 11291  E00463C 9E 7222         		STZ	ENYSPD,X
 11292  E00463F 6B              		RTL
 11293                          ;
 11294                          ;----------------------------------------------------------------
 11295                          ;-		情報データセーブビット”ＯＮ”			-
 11296                          ;----------------------------------------------------------------
 11297          004640          QKM_NON_EXIST	EQU	$
 11298  E004640 BD 7900         		LDA	ENWRKA,X
 11299  E004643 85 04           		STA	<EWORK4
 11300  E004645 BD 7902         		LDA	ENWRKC,X
 11301  E004648 5C 0053F3'      		JMP	>NON_EXIST_SET2 ;取った！！
 11302                          ;
 11303                          ;----------------------------------------------------------------
 11304                          ;-		シャボン１ｕｐ初期セット			-
 11305                          ;----------------------------------------------------------------
 11306          00464C          PUPBB_ST_XS	EQU	$
 11307  E00464C FF80 0080       		WORD	0FF80H,00080H
 11308          004650          PUPBB_ST_XP	EQU	$
 11309  E004650 0110 FFE0       		WORD	00110H,0FFE0H
 11310                          ;
 11311          004654          QKM_TYPE_IN_2	EQU	$
 11312                          ;
 11313                          		I8
 11313+ E004654 E2 10           		SEP	#00010000b	
 11314                          ;
 11315  E004656 A6 12           		LDX	<ENINDX
 11316  E004658 22 002331'      		JSL	>ENCLEAR_NORETN2
 11317                          ;
 11318  E00465C A9 0100         		LDA	#PUPBB		;(A) <-- 敵Ｎｏ．
 11319  E00465F 9B              		TXY
 11320  E004660 22 002377'      		JSL	>ESTATST
 11321                          ;
 11322  E004664 BD 7900         		LDA	ENWRKA,X	;ＮＥＸＴ  ＧＯＴＯセーブビットセット座標セット
 11323  E004667 9D 79D8         		STA	ENWRK4,X
 11324  E00466A BD 7902         		LDA	ENWRKC,X
 11325  E00466D 9D 7A36         		STA	ENWRK6,X
 11326                          ;
 11327                          ;;;;		    LDY	    #00H
 11328                          ;;;;		    LDA	    RANDM0
 11329                          ;;;;		    LSR	    A		    ;(C) set
 11330                          ;;;;		    BCC	    QKM_TYPE_IN_210
 11331                          ;;;;		    LDY	    #02H
 11332                          ;;;;QKM_TYPE_IN_210 EQU	    $
 11333                          ;;;;		    LDA	    !PUPBB_ST_XS,Y
 11334                          ;;;;		    STA	    ENXSPD,X
 11335                          ;;;;		    LDA	    SCCH1
 11336                          ;;;;		    CLC
 11337                          ;;;;		    ADC	    !PUPBB_ST_XP,Y
 11338                          ;;;;		    STA	    ENXPSL,X	    ;Ｘ座標セット
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0193

 11339                          ;;;;		    LDA	    SCCV1
 11340                          ;;;;		    CLC
 11341                          ;;;;		    ADC	    #030H
 11342                          ;;;;		    STA	    ENYPSL,X	    ;Ｙ座標セット
 11343                          ;
 11344  E004670 A9 0002         		LDA	#02H		;(A) <-- ３ｕｐ
 11345  E004673 AC 03A3         		LDY	TIMER_MID
 11346  E004676 C0 03           		CPY	#3
 11347  E004678 F0 03           		BEQ	QKM_TYPE_IN_220 ;３ｕｐ？ ( yes:QKM_TYPE_IN_220 )
 11348  E00467A A9 0000         		LDA	#00		;(A) <-- １ｕｐ
 11349          00467D          QKM_TYPE_IN_220 EQU	$
 11350  E00467D 9D 7978         		STA	ENWRK0,X
 11351  E004680 6B              		RTL
 11352                          ;
 11353                          ;----------------------------------------------------------------
 11354                          ;-		フラワー出現初期セット				-
 11355                          ;----------------------------------------------------------------
 11356          004681          QKM_TYPE_IN_3	EQU	$
 11357                          ;
 11358                          		I8
 11358+ E004681 E2 10           		SEP	#00010000b	
 11359                          ;
 11360  E004683 A6 12           		LDX	<ENINDX
 11361  E004685 22 002331'      		JSL	>ENCLEAR_NORETN2
 11362                          ;
 11363  E004689 A0 71           		LDY	#CHR8FD-CHR10	;(Y) <-- 敵キャラクターバンク
 11364  E00468B 22 004878'      		JSL	>ENCHRB_SET	;キャラクターバンクセット
 11365  E00468F A9 0110         		LDA	#ZFLW2		;(A) <-- 敵Ｎｏ．
 11366  E004692 90 03           		BCC	QKM_TYPE_IN_310 ;ズームＯＢＪフラワー？ ( no:QKM_TYPE_IN_310 )
 11367                          ;
 11368  E004694 A9 00FA         		LDA	#ZFLWR		;(A) <-- 敵Ｎｏ．
 11369          004697          QKM_TYPE_IN_310 EQU	$
 11370  E004697 9B              		TXY
 11371  E004698 22 002377'      		JSL	>ESTATST
 11372                          ;
 11373  E00469C A9 0002         		LDA	#EINIT
 11374  E00469F 9D 6F00         		STA	ENMODE,X
 11375  E0046A2 6B              		RTL
 11376                          ;
 11377                          ;----------------------------------------------------------------
 11378                          ;-		敵みんなコイン					-
 11379                          ;----------------------------------------------------------------
 11380          0046A3          QKM_TYPE_IN_4	EQU	$
 11381                          ;
 11382                          		I8
 11382+ E0046A3 E2 10           		SEP	#00010000b	
 11383                          ;
 11384  E0046A5 A6 12           		LDX	<ENINDX
 11385                          ;
 11386  E0046A7 A9 0047         		LDA	#047H		;[♪]
 11387  E0046AA 22 000000"      		JSL	>SOUND_3_ON
 11388                          ;
 11389  E0046AE 22 000000"      		JSL	>TO_COIN_CHANGE
 11390                          ;
 11391  E0046B2 5C 00232E'      		JMP	>ENCLEAR_NORETN
 11392                          ;
 11393                          ;----------------------------------------------------------------
 11394                          ;-		階段が出現する初期セット			-
 11395                          ;----------------------------------------------------------------
 11396          0046B6          QKM_TYPE_IN_5	EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0194

 11397                          ;----------------------------------------------------------------
 11398                          ;-		橋がかかる初期セット				-
 11399                          ;----------------------------------------------------------------
 11400          0046B6          QKM_TYPE_IN_6	EQU	$
 11401                          ;
 11402                          		I8
 11402+ E0046B6 E2 10           		SEP	#00010000b	
 11403                          ;
 11404  E0046B8 A6 12           		LDX	<ENINDX
 11405  E0046BA 22 004624'      		JSL	>QKM_NODSPST	;表示無しセット
 11406                          ;
 11407  E0046BE BD 7CD6         		LDA	ECENTX,X	;Ｘ座標補正
 11408  E0046C1 9D 70E2         		STA	ENXPSL,X
 11409  E0046C4 BD 7860         		LDA	ENCBFG,X
 11410  E0046C7 4A              		LSR	A		;(C) <-- 着地フラグ
 11411  E0046C8 BD 7182         		LDA	ENYPSL,X	;Ｙ座標補正
 11412  E0046CB B0 03           		BCS	QKM_TYPE_IN_610 ;着地？ ( yes:QKM_TYPE_IN_610 )
 11413                          ;
 11414                          ;;;;		    SEC
 11415  E0046CD E9 0004         		SBC	#05H-1
 11416          0046D0          QKM_TYPE_IN_610 EQU	$
 11417  E0046D0 29 FFF0         		AND	#0FFF0H
 11418  E0046D3 38              		SEC
 11419  E0046D4 E9 0010         		SBC	#010H
 11420  E0046D7 9D 7182         		STA	ENYPSL,X
 11421  E0046DA A9 0060         		LDA	#060H		;ウェイトタイマーセット
 11422  E0046DD 9D 7A96         		STA	ENTIM0,X
 11423  E0046E0 74 78           		STZ	<ENWRK4,X	;サウンドセットカウンターリセット
 11424  E0046E2 6B              		RTL
 11425                          ;
 11426                          ;----------------------------------------------------------------
 11427                          ;-		ドロボー出現					-
 11428                          ;----------------------------------------------------------------
 11429          0046E3          QKM_TYPE_IN_7	EQU	$
 11430                          ;
 11431                          		I8
 11431+ E0046E3 E2 10           		SEP	#00010000b	
 11432                          ;
 11433  E0046E5 A6 12           		LDX	<ENINDX
 11434  E0046E7 22 002331'      		JSL	>ENCLEAR_NORETN2
 11435                          ;
 11436  E0046EB A9 0020         		LDA	#DOROB		;(A) <-- 敵Ｎｏ．
 11437  E0046EE 9B              		TXY
 11438  E0046EF 22 002377'      		JSL	>ESTATST
 11439  E0046F3 A9 0002         		LDA	#EINIT
 11440  E0046F6 9D 6F00         		STA	ENMODE,X
 11441                          ;
 11442  E0046F9 A9 000C         		LDA	#0000CH
 11443  E0046FC 95 76           		STA	<ENWRK2,X
 11444  E0046FE A9 FD00         		LDA	#0FD00H		;Ｙスピードセット
 11445  E004701 9D 7222         		STA	ENYSPD,X
 11446  E004704 A9 0017         		LDA	#17H
 11447  E004707 9D 7402         		STA	ENCHPT,X
 11448  E00470A 6B              		RTL
 11449                          ;
 11450                          ;----------------------------------------------------------------
 11451                          ;-		コイン出現（１枚）				-
 11452                          ;----------------------------------------------------------------
 11453          00470B          QKM_TYPE_IN_8	EQU	$
 11454                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0195

 11455                          		I8
 11455+ E00470B E2 10           		SEP	#00010000b	
 11456                          ;
 11457  E00470D A6 12           		LDX	<ENINDX
 11458  E00470F 22 004640'      		JSL	>QKM_NON_EXIST	;情報データセーブビット”ＯＮ”
 11459                          ;
 11460  E004713 A9 0040         		LDA	#040H		;ウェイトタイマーセット
 11461  E004716 9D 7A96         		STA	ENTIM0,X
 11462  E004719 BD 7182         		LDA	ENYPSL,X	;Ｙ座標補正
 11463  E00471C 29 FFF0         		AND	#0FFF0H
 11464  E00471F 9D 7182         		STA	ENYPSL,X
 11465  E004722 4C 4624'        		JMP	QKM_NODSPST
 11466                          ;
 11467                          ;----------------------------------------------------------------
 11468                          ;-		１ｕｐ						-
 11469                          ;----------------------------------------------------------------
 11470          004725          QKM_TYPE_IN_9	EQU	$
 11471                          ;
 11472                          		I8
 11472+ E004725 E2 10           		SEP	#00010000b	
 11473                          ;
 11474  E004727 A6 12           		LDX	<ENINDX
 11475  E004729 22 004640'      		JSL	>QKM_NON_EXIST	;情報データセーブビット”ＯＮ”
 11476                          ;
 11477  E00472D 22 002496'      		JSL	>PL_1UP_SET_P	;１ｕｐ
 11478  E004731 5C 00232E'      		JMP	>ENCLEAR_NORETN
 11479                          ;
 11480                          ;----------------------------------------------------------------
 11481                          ;-		カギ出現					-
 11482                          ;----------------------------------------------------------------
 11483          004735          QKM_TYPE_IN_A	EQU	$
 11484                          ;
 11485                          		I8
 11485+ E004735 E2 10           		SEP	#00010000b	
 11486                          ;
 11487  E004737 A6 12           		LDX	<ENINDX
 11488  E004739 22 002331'      		JSL	>ENCLEAR_NORETN2
 11489                          ;
 11490  E00473D A9 0027         		LDA	#DRKEY		;(A) <-- 敵Ｎｏ．
 11491  E004740 9B              		TXY
 11492  E004741 22 002377'      		JSL	>ESTATST
 11493                          ;
 11494  E004745 A9 FD00         		LDA	#0FD00H		;Ｙスピードセット
 11495  E004748 9D 7222         		STA	ENYSPD,X
 11496  E00474B 6B              		RTL
 11497                          ;
 11498                          ;----------------------------------------------------------------
 11499                          ;-		ＯＢＪコイン（小）出現				-
 11500                          ;----------------------------------------------------------------
 11501          00474C          QKM_COIN_XSP	EQU	$
 11502  E00474C 0040 FF00 0080  		WORD	00040H,0FF00H,00080H,0FF80H,000C0H,0FF40H,00020H,0FFE0H
        E004752 FF80 00C0 FF40 
        E004758 0020 FFE0 
 11503          00475C          QKM_COIN_YSP	EQU	$
 11504  E00475C FE00 FC00 FC80  		WORD	0FE00H,0FC00H,0FC80H,0FE80H,0FD00H,0FD80H,0FF00H,0FF80H
        E004762 FE80 FD00 FD80 
        E004768 FF00 FF80 
 11505                          ;
 11506          00476C          QKM_TYPE_IN_B	EQU	$
 11507                          ;;;;		    LDA	    #00H
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0196

 11508  E00476C A9 0003         		LDA	#03H
 11509                          ;
 11510          00476F          QKM_COIN_SET	EQU	$
 11511  E00476F 85 08           		STA	<EWORK8		;(EWK8,9) <-- セットコイン数
 11512                          ;
 11513  E004771 A9 0030         		LDA	#030H		;[♪]
 11514  E004774 22 000000"      		JSL	>SOUND_3_ON
 11515                          ;
 11516                          ;;;;		    LDA	    RANDM0
 11517                          ;;;;		    AND	    #03H
 11518                          ;;;;		    BNE	    QKM_TYPE_IN_B00
 11519                          ;;;;		    LDA	    #02H
 11520                          ;;;;QKM_TYPE_IN_B00 EQU	    $
 11521                          ;;;;		    CLC
 11522                          ;;;;		    ADC	    <EWORK8
 11523                          ;;;;		    STA	    <EWORK8
 11524                          ;
 11525                          		I8
 11525+ E004778 E2 10           		SEP	#00010000b	
 11526                          ;
 11527  E00477A A6 12           		LDX	<ENINDX
 11528  E00477C 22 004640'      		JSL	>QKM_NON_EXIST	;情報データセーブビット”ＯＮ”
 11529                          ;
 11530  E004780 BD 70E2         		LDA	ENXPSL,X
 11531  E004783 8D 0000         		STA	WORK0		;(WK0,1) <-- Ｘ座標
 11532  E004786 BD 7182         		LDA	ENYPSL,X
 11533  E004789 8D 0002         		STA	WORK2		;(WK2,3) <-- Ｙ座標
 11534                          ;
 11535  E00478C 22 00232E'      		JSL	>ENCLEAR_NORETN
 11536                          ;
 11537  E004790 AD 03B6         		LDA	TIMER
 11538          004793          TIMKN_MANY_SET	EQU	$
 11539          004793          QKM_TYPE_IN_B10 EQU	$
 11540  E004793 85 04           		STA	<EWORK4		;(EWK4,5) <-- タイマー
 11541                          ;
 11542  E004795 C9 012C         		CMP	#300		;[ (C) set ]
 11543  E004798 A9 01A2         		LDA	#TIMKN		;(A) <-- 敵Ｎｏ．
 11544  E00479B 90 03           		BCC	QKM_TYPE_IN_B12 ;タイマーＭＡＸ？ ( no:QKM_TYPE_IN_B12 )
 11545  E00479D A9 0115         		LDA	#COIN1		;(A) <-- 敵Ｎｏ．
 11546          0047A0          QKM_TYPE_IN_B12 EQU	$
 11547  E0047A0 22 002364'      		JSL	>ENINSR		;敵エリア確保
 11548  E0047A4 90 4C           		BCC	QKM_TYPE_IN_B20 ;      ”    ？ ( no:QKM_TYPE_IN_B20 0
 11549                          ;
 11550  E0047A6 AD 0000         		LDA	WORK0		;Ｘ座標セット
 11551  E0047A9 99 70E2         		STA	ENXPSL,Y
 11552  E0047AC AD 0002         		LDA	WORK2		;Ｙ座標セット
 11553  E0047AF 99 7182         		STA	ENYPSL,Y
 11554  E0047B2 A5 04           		LDA	<EWORK4
 11555  E0047B4 C9 012C         		CMP	#300
 11556  E0047B7 90 05           		BCC	QKM_TYPE_IN_B14 ;タイマーＭＡＸ？ ( no:QKM_TYPE_IN_B14 )
 11557                          ;
 11558  E0047B9 20 340A'        		JSR	COIN1_INIT_SET
 11559  E0047BC 80 06           		BRA	QKM_TYPE_IN_B16
 11560                          ;
 11561          0047BE          QKM_TYPE_IN_B14 EQU	$
 11562  E0047BE A9 0180         		LDA	#0180H		;初期タイマーセット
 11563  E0047C1 99 7A96         		STA	ENTIM0,Y
 11564                          ;
 11565          0047C4          QKM_TYPE_IN_B16 EQU	$
 11566  E0047C4 22 000000"      		JSL	>RANDAM
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0197

 11567  E0047C8 AD 7970         		LDA	RANDM0
 11568  E0047CB 29 000E         		AND	#07H*2
 11569  E0047CE AA              		TAX
 11570  E0047CF BF 00474C'      		LDA	>QKM_COIN_XSP,X
 11571  E0047D3 99 7220         		STA	ENXSPD,Y
 11572  E0047D6 AD 7970         		LDA	RANDM0
 11573  E0047D9 4A              		LSR	A
 11574  E0047DA 4A              		LSR	A
 11575  E0047DB 4A              		LSR	A
 11576  E0047DC 4A              		LSR	A
 11577  E0047DD 29 000E         		AND	#07H*2
 11578  E0047E0 AA              		TAX
 11579  E0047E1 BF 00475C'      		LDA	>QKM_COIN_YSP,X
 11580  E0047E5 99 7222         		STA	ENYSPD,Y
 11581                          ;
 11582  E0047E8 A5 04           		LDA	<EWORK4
 11583  E0047EA 18              		CLC
 11584  E0047EB 69 000A         		ADC	#10
 11585                          ;
 11586  E0047EE C6 08           		DEC	<EWORK8
 11587  E0047F0 D0 A1           		BNE	QKM_TYPE_IN_B10
 11588                          ;
 11589          0047F2          QKM_TYPE_IN_B20 EQU	$
 11590  E0047F2 A6 12           		LDX	<ENINDX
 11591  E0047F4 6B              		RTL
 11592                          ;
 11593                          ;----------------------------------------------------------------
 11594                          ;-		ＯＢＪコイン（多）出現				-
 11595                          ;----------------------------------------------------------------
 11596          0047F5          QKM_TYPE_IN_C	EQU	$
 11597                          ;;;;		    LDA	    #5-1
 11598  E0047F5 A9 0005         		LDA	#5
 11599  E0047F8 4C 476F'        		JMP	QKM_COIN_SET
 11600                          ;
 11601                          ;----------------------------------------------------------------
 11602                          ;-		ドア出現					-
 11603                          ;----------------------------------------------------------------
 11604          0047FB          QKM_TYPE_IN_D	EQU	$
 11605                          ;
 11606                          		I8
 11606+ E0047FB E2 10           		SEP	#00010000b	
 11607                          ;
 11608  E0047FD A6 12           		LDX	<ENINDX
 11609  E0047FF 22 002331'      		JSL	>ENCLEAR_NORETN2
 11610                          ;
 11611  E004803 A9 0093         		LDA	#ZDOOR		;(A) <-- 敵Ｎｏ．
 11612  E004806 9B              		TXY
 11613  E004807 22 002377'      		JSL	>ESTATST
 11614  E00480B A9 0002         		LDA	#EINIT
 11615  E00480E 9D 6F00         		STA	ENMODE,X
 11616  E004811 A9 0040         		LDA	#040H
 11617  E004814 9D 7542         		STA	ENGPOW,X
 11618  E004817 6B              		RTL
 11619                          ;
 11620                          ;----------------------------------------------------------------
 11621                          ;-		スイカ出現					-
 11622                          ;----------------------------------------------------------------
 11623          004818          SUIKA_TYPE	EQU	$
 11624  E004818 0007 0009 0005  		WORD	SUIKA,FIRE0,COLD0
 11625                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0198

 11626          00481E          QKM_TYPE_IN_F	EQU	$
 11627          00481E          QKM_TYPE_IN_10	EQU	$
 11628          00481E          QKM_TYPE_IN_11	EQU	$
 11629                          ;
 11630                          		I8
 11630+ E00481E E2 10           		SEP	#00010000b	
 11631                          ;
 11632  E004820 A6 12           		LDX	<ENINDX
 11633  E004822 22 002331'      		JSL	>ENCLEAR_NORETN2
 11634                          ;
 11635  E004826 BD 7360         		LDA	ENMYNO,X
 11636  E004829 38              		SEC
 11637  E00482A E9 00C4         		SBC	#QKM0F
 11638  E00482D 0A              		ASL	A
 11639  E00482E A8              		TAY
 11640  E00482F B9 4818'        		LDA	!SUIKA_TYPE,Y	;(A) <-- 敵Ｎｏ．
 11641  E004832 9B              		TXY
 11642  E004833 22 002377'      		JSL	>ESTATST
 11643                          ;
 11644  E004837 9E 7902         		STZ	ENWRKC,X
 11645  E00483A 5C 000000"      		JMP	>KINOMI_CANCEL_3
 11646                          ;
 11647                          ;----------------------------------------------------------------
 11648                          ;-		ひまわりリフト初期セット			-
 11649                          ;----------------------------------------------------------------
 11650          00483E          QKM_TYPE_IN_12	EQU	$
 11651          00483E          QKM_TYPE_IN_13	EQU	$
 11652                          ;
 11653                          		I8
 11653+ E00483E E2 10           		SEP	#00010000b	
 11654                          ;
 11655  E004840 A6 12           		LDX	<ENINDX
 11656  E004842 9E 7402         		STZ	ENCHPT,X	;パターンＮｏ．リセット
 11657  E004845 BD 7040         		LDA	ENMOD2,X	;ＯＡＭセット変更
 11658  E004848 38              		SEC
 11659                          ;;;;		    SBC	    #0010000000000101B ;ＯＢＪ数を５個から１個へ、範囲外クリアー無しに
 11660  E004849 E9 2001         		SBC	#0010000000000001B ;ＯＢＪ数を５個から１個へ、範囲外クリアー無しに
 11661  E00484C 9D 7040         		STA	ENMOD2,X
 11662  E00484F BD 6FA2         		LDA	ENMOD1,X	;ＢＧチェックセット
 11663  E004852 09 0001         		ORA	#01H
 11664  E004855 9D 6FA2         		STA	ENMOD1,X
 11665  E004858 BD 7042         		LDA	ENCLOR,X	;カラーセット
 11666  E00485B 09 0002         		ORA	#01H<<1
 11667  E00485E 9D 7042         		STA	ENCLOR,X
 11668  E004861 A9 FFFC         		LDA	#-4		;ＢＧチェック位置補正
 11669  E004864 9D 7720         		STA	ENBGYP,X
 11670                          ;
 11671  E004867 A0 5C           		LDY	#CHRE4C-CHR10	;(Y) <-- 敵キャラクターバンク
 11672  E004869 22 004878'      		JSL	>ENCHRB_SET	;キャラクターバンクセット
 11673                          ;
 11674  E00486D 22 0043BB'      		JSL	>CHG_KUMO_JUMP
 11675  E004871 A9 0007         		LDA	#07H		;ＯＢＪ優先順位変更
 11676  E004874 9D 74A2         		STA	ENYUSN,X
 11677  E004877 6B              		RTL
 11678                          ;
 11679                          ;----------------------------------------------------------------
 11680                          ;-		キャラクターバンクセット			-
 11681                          ;-			in :					-
 11682                          ;-				(Y) <-- 敵キャラクターバンク	-
 11683                          ;-			out :					-
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0199

 11684                          ;-				(C) <-- 1:バンク無し		-
 11685                          ;----------------------------------------------------------------
 11686          004878          ENCHRB_SET	EQU	$
 11687                          ;
 11688                          		M8
 11688+ E004878 E2 20           		SEP	#00100000b	
 11689                          ;
 11690  E00487A 98              		TYA
 11691  E00487B A0 06           		LDY	#6
 11692          00487D          ENCHRB_SET_0050 EQU	$
 11693  E00487D D9 6EB5         		CMP	OBJCHR_BNK-1,Y
 11694  E004880 F0 07           		BEQ	ENCHRB_SET_0100	 ;自分のキャラクターバンク有り？ ( yes:ENCHRB_SET_0100 )
 11695  E004882 88              		DEY
 11696  E004883 D0 F8           		BNE	ENCHRB_SET_0050
 11697  E004885 38              		SEC			;(C) <-- バンク無し
 11698  E004886 98              		TYA
 11699  E004887 80 05           		BRA	ENCHRB_SET_0150
 11700                          ;
 11701          004889          ENCHRB_SET_0100 EQU	$
 11702  E004889 98              		TYA
 11703                          ;;;;		    CLC			;[ * CMP : (Z)=(C) ]
 11704  E00488A 69 06           		ADC	#(8-1)-1	;[ 8 --> 8*4*8 = 100H ]
 11705  E00488C 0A              		ASL	A		;[ 9 --> 9*4*8 = 120H ]
 11706  E00488D 0A              		ASL	A		;[	   "          ]
 11707                          ;
 11708          00488E          ENCHRB_SET_0150 EQU	$
 11709  E00488E 9D 7180         		STA	ENCHRB,X	;[ & STA ENYSDR,X ]
 11710                          ;
 11711                          		M16
 11711+ E004891 C2 20           		REP	#00100000b	
 11712                          ;
 11713  E004893 6B              		RTL
 11714                          ;
 11715                          ;----------------------------------------------------------------
 11716                          ;-		敵が変わった？雲初期セット			-
 11717                          ;----------------------------------------------------------------
 11718          004894          QKM16_SET_ITEM	EQU	$
 11719                          ; RANDM0 & 0FH -->
 11720  E004894 0000 0002 0000  		WORD	COIN_S,TIME_S,COIN_S,P1UP_S,COIN_S,TIME_S,COIN_S,COIN_S
        E00489A 0004 0000 0002 
        E0048A0 0000 0000 
 11721                          ;
 11722          0048A4          QKM_TYPE_IN_16	EQU	$
 11723                          ;
 11724                          		I8
 11724+ E0048A4 E2 10           		SEP	#00010000b	
 11725                          ;
 11726  E0048A6 AD 7970         		LDA	RANDM0
 11727  E0048A9 29 0007         		AND	#07H
 11728  E0048AC 0A              		ASL	A
 11729  E0048AD A8              		TAY
 11730  E0048AE BE 4894'        		LDX	!QKM16_SET_ITEM,Y
 11731  E0048B1 A4 12           		LDY	<ENINDX
 11732  E0048B3 FC 48B8'        		JSR	(!QKM16_SET_SUB,X)
 11733  E0048B6 BB              		TYX
 11734  E0048B7 6B              		RTL
 11735                          ;
 11736                          ;----------------------------------------------------------------
 11737                          ;-		敵が変わった？雲セットアイテム初期セット	-
 11738                          ;----------------------------------------------------------------
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0200

 11739          0048B8          QKM16_SET_SUB	EQU	$
 11740  E0048B8 341D'           COIN_SET	WORD	EGG_ITEM_COIN1	;コイン
 11741  E0048BA 342F'           TIME_SET	WORD	EGG_ITEM_TIMKN	;スターくん
 11742  E0048BC 48BE'           P1UP_SET	WORD	PL1UP_SET	;１ｕｐ
 11743                          ;
 11744          000000          COIN_S		EQU	COIN_SET-QKM16_SET_SUB
 11745          000002          TIME_S		EQU	TIME_SET-QKM16_SET_SUB
 11746          000004          P1UP_S		EQU	P1UP_SET-QKM16_SET_SUB
 11747                          ;
 11748                          ;----------------------------------------------------------------
 11749                          ;-		１ｕｐ初期セット				-
 11750                          ;----------------------------------------------------------------
 11751          0048BE          PL1UP_SET	EQU	$
 11752  E0048BE BB              		TYX
 11753  E0048BF 22 002496'      		JSL	>PL_1UP_SET_P	;１ｕｐ
 11754  E0048C3 22 00232E'      		JSL	>ENCLEAR_NORETN
 11755  E0048C7 9B              		TXY
 11756  E0048C8 60              		RTS
 11757                          ;
 11758                          ;----------------------------------------------------------------
 11759                          ;-		スイッチ出現初期セット				-
 11760                          ;----------------------------------------------------------------
 11761          0048C9          QKM_TYPE_IN_17	EQU	$
 11762                          ;
 11763                          		I8
 11763+ E0048C9 E2 10           		SEP	#00010000b	
 11764                          ;
 11765  E0048CB A6 12           		LDX	<ENINDX
 11766  E0048CD 22 004640'      		JSL	>QKM_NON_EXIST	;情報データセーブビット”ＯＮ”
 11767                          ;
 11768  E0048D1 22 002331'      		JSL	>ENCLEAR_NORETN2
 11769                          ;
 11770  E0048D5 A9 009D         		LDA	#SW000		;(A) <-- 敵Ｎｏ．
 11771  E0048D8 9B              		TXY
 11772  E0048D9 22 002377'      		JSL	>ESTATST
 11773  E0048DD A9 0002         		LDA	#EINIT
 11774  E0048E0 9D 6F00         		STA	ENMODE,X
 11775                          ;
 11776                          		M8
 11776+ E0048E3 E2 20           		SEP	#00100000b	
 11777                          ;
 11778  E0048E5 A9 FF           		LDA	#0FFH
 11779  E0048E7 9D 74A0         		STA	ENRETN,X
 11780                          ;
 11781                          		M16
 11781+ E0048EA C2 20           		REP	#00100000b	
 11782                          ;
 11783  E0048EC 6B              		RTL
 11784                          ;
 11785                          ;------------------------------------------------------------------------
 11786                          ;-		変身アイテムタイプ別ルーチンテーブル			-
 11787                          ;------------------------------------------------------------------------
 11788          00478F          CHG_TYPE_MV	EQU	$-(CHG00*2)	;[ENEMYNO]
 11789  E0048ED 492D'           		WORD	CHG_TYPE_MV_0	;[CHG00]
 11790  E0048EF 492D'           		WORD	CHG_TYPE_MV_0	;[CHG01]
 11791  E0048F1 492D'           		WORD	CHG_TYPE_MV_0	;[CHG02]
 11792  E0048F3 492D'           		WORD	CHG_TYPE_MV_0	;[CHG03]
 11793  E0048F5 0000            		WORD	0		;[PUUUU] ×ダミー
 11794  E0048F7 492D'           		WORD	CHG_TYPE_MV_0	;[CHG05]
 11795                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0201

 11796  E0048F9 0000            		WORD	0		;[QKM00] ×ダミー
 11797  E0048FB 4AF8'           		WORD	QKM_TYPE_MV_1	;[QKM01]
 11798  E0048FD 4B66'           		WORD	QKM_TYPE_MV_2	;[QKM02]
 11799  E0048FF 4B66'           		WORD	QKM_TYPE_MV_3	;[QKM03]
 11800  E004901 4B66'           		WORD	QKM_TYPE_MV_4	;[QKM04]
 11801  E004903 4B6B'           		WORD	QKM_TYPE_MV_5	;[QKM05]
 11802  E004905 4D4F'           		WORD	QKM_TYPE_MV_6	;[QKM06]
 11803  E004907 4B66'           		WORD	QKM_TYPE_MV_7	;[QKM07]
 11804  E004909 4DF2'           		WORD	QKM_TYPE_MV_8	;[QKM08]
 11805  E00490B 4B66'           		WORD	QKM_TYPE_MV_9	;[QKM09]
 11806  E00490D 4B66'           		WORD	QKM_TYPE_MV_A	;[QKM0A]
 11807  E00490F 4B66'           		WORD	QKM_TYPE_MV_B	;[QKM0B]
 11808  E004911 4B66'           		WORD	QKM_TYPE_MV_C	;[QKM0C]
 11809  E004913 4B66'           		WORD	QKM_TYPE_MV_D	;[QKM0D]
 11810  E004915 4E91'           		WORD	QKM_TYPE_MV_E	;[QKM0E]
 11811  E004917 4B66'           		WORD	QKM_TYPE_MV_F	;[QKM0F]
 11812  E004919 4B66'           		WORD	QKM_TYPE_MV_10	;[QKM10]
 11813  E00491B 4B66'           		WORD	QKM_TYPE_MV_11	;[QKM11]
 11814  E00491D 4F58'           		WORD	QKM_TYPE_MV_12	;[QKM12]
 11815  E00491F 4F58'           		WORD	QKM_TYPE_MV_13	;[QKM13]
 11816  E004921 0000            		WORD	0		;[QKM14] ×ダミー
 11817  E004923 0000            		WORD	0		;[LBSDR] ×ダミー
 11818  E004925 4B66'           		WORD	QKM_TYPE_MV_16	;[QKM16]
 11819  E004927 4B66'           		WORD	QKM_TYPE_MV_2	;[QKM17]
 11820                          ;
 11821                          ;----------------------------------------------------------------
 11822                          ;-		変身アイテムルーチン				-
 11823                          ;----------------------------------------------------------------
 11824          004929          CHG_PATN_NO	EQU	$
 11825  E004929 07 06 08 06     		HEX	7,6,8,6
 11826                          ;
 11827          00492D          CHG_TYPE_MV_0	EQU	$
 11828                          ;
 11829                          ;--------------------------------------------------------
 11830                          ;-		ＯＡＭセット				-
 11831                          ;--------------------------------------------------------
 11832  E00492D A6 12           		LDX	<ENINDX
 11833  E00492F B5 18           		LDA	<ENWRK0,X
 11834  E004931 C9 0003         		CMP	#03H
 11835  E004934 F0 05           		BEQ	CHG00MV_0400	;プレイヤー衝突待ち？ ( yes:CHG00MV_0400 )
 11836                          ;
 11837                          		I8
 11837+ E004936 E2 10           		SEP	#00010000b	
 11838                          ;
 11839  E004938 4C 4A65'        		JMP	CHG00MV_0500
 11840                          ;
 11841                          ;--------------------------------------------------------
 11842                          ;-		プレイヤー衝突待ち			-
 11843                          ;--------------------------------------------------------
 11844          00493B          CHG00MV_0400	EQU	$
 11845  E00493B BD 7362         		LDA	ENOAML,X
 11846  E00493E 18              		CLC
 11847  E00493F 69 0020         		ADC	#4*8
 11848  E004942 A8              		TAY
 11849  E004943 22 002A3C'      		JSL	>TROBJ_OAM_2x2_I
 11850                          ;
 11851                          		IDX8
 11852                          ;
 11853  E004947 AD 0D0F         		LDA	MSGMOD
 11854  E00494A F0 01           		BEQ	CHG00MV_04000	;メッセージ表示中？ ( no:CHG00MV_04000 )
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0202

 11855  E00494C 6B              		RTL
 11856                          ;
 11857          00494D          CHG00MV_04000	EQU	$
 11858  E00494D 22 002F23'      		JSL	>ENMDCK		;mode check
 11859                          ;
 11860                          ;-------------- パターンＮｏ．セット --------------------
 11861  E004951 BD 7222         		LDA	ENYSPD,X
 11862  E004954 C9 0100         		CMP	#0100H
 11863  E004957 10 0D           		BPL	CHG00MV_0401	;パターン固定？ ( yes:CHG00MV_0401 )
 11864  E004959 BD 7A36         		LDA	ENWRK6,X
 11865  E00495C 18              		CLC
 11866  E00495D 69 0020         		ADC	#0100H/8
 11867  E004960 29 03FF         		AND	#03FFH
 11868  E004963 9D 7A36         		STA	ENWRK6,X
 11869          004966          CHG00MV_0401	EQU	$
 11870  E004966 BC 7A37         		LDY	ENWRK6+1,X
 11871  E004969 B9 4929'        		LDA	!CHG_PATN_NO,Y
 11872  E00496C 29 00FF         		AND	#00FFH
 11873  E00496F 9D 7402         		STA	ENCHPT,X
 11874                          ;
 11875                          ;-------------- ”フワフワ”セット ----------------------
 11876  E004972 BD 7860         		LDA	ENCBFG,X
 11877  E004975 29 0001         		AND	#00001B
 11878  E004978 F0 03           		BEQ	CHG00MV_0402	;着地？ ( no:CHG00MV_0402 )
 11879  E00497A 9E 7222         		STZ	ENYSPD,X
 11880          00497D          CHG00MV_0402	EQU	$
 11881  E00497D BD 7222         		LDA	ENYSPD,X
 11882  E004980 38              		SEC
 11883  E004981 FD 75E2         		SBC	ENGMAX,X
 11884  E004984 F0 05           		BEQ	CHG00MV_0403
 11885  E004986 5D 75E2         		EOR	ENGMAX,X
 11886  E004989 30 0A           		BMI	CHG00MV_0404
 11887          00498B          CHG00MV_0403	EQU	$
 11888  E00498B BD 75E2         		LDA	ENGMAX,X
 11889  E00498E 49 FFFF         		EOR	#0FFFFH
 11890  E004991 1A              		INC	A
 11891  E004992 9D 75E2         		STA	ENGMAX,X
 11892          004995          CHG00MV_0404	EQU	$
 11893                          ;
 11894                          ;-------------- ”キラキラ”セット ----------------------
 11895  E004995 A5 14           		LDA	<FRCNT2
 11896  E004997 29 000F         		AND	#0FH
 11897  E00499A D0 07           		BNE	CHG00MV_0405
 11898                          ;
 11899  E00499C A9 0808         		LDA	#08H+(08H*100H) ;(A) <-- サイズ
 11900  E00499F 22 000000"      		JSL	>KIRAKIRA_SET
 11901          0049A3          CHG00MV_0405	EQU	$
 11902                          ;
 11903                          ;;;;		    JSR	    CHG00_COLSET    ;カラー替え
 11904                          ;
 11905  E0049A3 BD 7A96         		LDA	ENTIM0,X
 11906  E0049A6 D0 44           		BNE	CHG00MV_0406	;ウェイト？ ( yes:CHG00MV_0406 )
 11907  E0049A8 BC 7D36         		LDY	ECRSFG,X
 11908  E0049AB 10 3F           		BPL	CHG00MV_0406	;プレイヤーと衝突した？ ( no:CHG00MV_0406 )
 11909                          ;
 11910  E0049AD BD 7360         		LDA	ENMYNO,X	;変身タイプＮｏ．セット
 11911  E0049B0 38              		SEC
 11912  E0049B1 E9 00AE         		SBC	#CHG00-1
 11913  E0049B4 0A              		ASL	A
 11914  E0049B5 8D 0C88         		STA	CCHGEN		;player change type set
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0203

 11915                          ;
 11916  E0049B8 AD 0C8A         		LDA	CCHGMK
 11917  E0049BB F0 13           		BEQ	CHG00MV_04050	;変身中？ ( no:CHG00MV_04050 )
 11918                          ;
 11919  E0049BD CD 0C88         		CMP	CCHGEN
 11920  E0049C0 D0 2F           		BNE	CHG00MV_0408	;同じタイプへ？ ( no:CHG00MV_0408 )
 11921                          ;
 11922                          ;-------------- 変身タイマーリスタート ------------------
 11923  E0049C2 A9 0500         		LDA	#500H
 11924  E0049C5 8D 61F4         		STA	PCHNG_TM
 11925  E0049C8 9B              		TXY
 11926  E0049C9 22 0034D6'      		JSL	>FSMK2_SET
 11927  E0049CD 4C 4A8B'        		JMP	CHG_ITEM_ST
 11928                          ;
 11929          0049D0          CHG00MV_04050	EQU	$
 11930  E0049D0 AD 61B2         		LDA	BABYNO
 11931  E0049D3 10 17           		BPL	CHG00MV_0406	;赤ちゃん乗ってる？ ( no:CHG00MV_0406 )
 11932                          ;
 11933  E0049D5 AD 6150         		LDA	BERFLG
 11934  E0049D8 F0 13           		BEQ	CHG00MV_0407	;舌ショット中？ ( no:CHG00MV_0407 )
 11935  E0049DA AD 6162         		LDA	EATFLG
 11936  E0049DD F0 0E           		BEQ	CHG00MV_0407	;食べてる？ ( no:CHG00MV_0407 )
 11937  E0049DF AD 616A         		LDA	EATSPF
 11938  E0049E2 C9 0001         		CMP	#1
 11939  E0049E5 F0 05           		BEQ	CHG00MV_0406	;ファイヤーショット中？ ( yes:CHG00MV_0406 )
 11940  E0049E7 C9 0004         		CMP	#4
 11941  E0049EA D0 01           		BNE	CHG00MV_0407	;氷ショット中？ ( no:CHG00MV_0407 )
 11942                          ;
 11943          0049EC          CHG00MV_0406	EQU	$
 11944  E0049EC 6B              		RTL
 11945                          ;
 11946          0049ED          CHG00MV_0407	EQU	$
 11947  E0049ED 22 000000"      		JSL	>BERO_CANCEL
 11948                          ;
 11949          0049F1          CHG00MV_0408	EQU	$
 11950  E0049F1 A9 0036         		LDA	#036H
 11951  E0049F4 22 000000"      		JSL	>SOUND_3_ON	;[♪]
 11952                          ;
 11953                          ;-------------- 変身デモへ ------------------------------
 11954                          ;
 11955                          ;-------------- 変身プレイヤー初期セット ----------------
 11956                          ;;;;		    STZ	    PLSKIF	    ;skier player flag "OFF" !!
 11957                          ;
 11958  E0049F8 A9 0000"        		LDA	#PCHG		;chara change mode set
 11959  E0049FB 8D 60AC         		STA	PLMODE
 11960  E0049FE 9C 614E         		STZ	CCHGFG
 11961  E004A01 A9 0000         		LDA	#00
 11962  E004A04 8F 70336C       		STA	>CLFDCNT
 11963                          ;
 11964                          ;-------------- 変身カラーフェード初期セット ------------
 11965  E004A08 A9 2D6C         		LDA	#MOTOCOL	;(R1) <-- moto color
 11966  E004A0B 8D 3002         		STA	R1
 11967  E004A0E A9 2F6C         		LDA	#CHNGCOL	;(R2) <-- change color
 11968  E004A11 8D 3004         		STA	R2
 11969  E004A14 A9 65E9         		LDA	#65E9H		;(R3) <-- dec color
 11970  E004A17 8D 3006         		STA	R3
 11971  E004A1A A9 0100         		LDA	#100H		;(R12) <-- number of change color
 11972  E004A1D 8D 3018         		STA	R12
 11973                          ;
 11974                          		M_CHIP	COLRDEC
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0204

 11974+ E004A20 A2 08           		LDX	#BANK COLRDEC
 11974+ E004A22 A9 BC98         		LDA	#COLRDEC
 11974+ E004A25 22 000000"      		JSL	>CHIPON
 11975                          ;
 11976                          		I16
 11976+ E004A29 C2 10           		REP	#00010000b	
 11977                          ;
 11978  E004A2B A9 7FFF         		LDA	#7FFFH
 11979  E004A2E 8F 703070       		STA	>CHNGCOL+(080H+02H)*2
 11980                          ;
 11981  E004A32 A2 001C         		LDX	#(15-1)*2
 11982          004A35          CHG00MV_0450	EQU	$
 11983  E004A35 BF 5FCB2C       		LDA	>COL_ADDRESS+PLAY_CHANGE_COL,X
 11984  E004A39 9F 70310E       		STA	>CHNGCOL+(080H+51H)*2,X
 11985  E004A3D CA              		DEX
 11986  E004A3E CA              		DEX
 11987  E004A3F 10 F4           		BPL	CHG00MV_0450
 11988                          ;
 11989                          		I8
 11989+ E004A41 E2 10           		SEP	#00010000b	
 11990                          ;
 11991  E004A43 A6 12           		LDX	<ENINDX
 11992  E004A45 AD 0C8A         		LDA	CCHGMK
 11993  E004A48 F0 09           		BEQ	CHG00MV_0460	;変身から変身へ？ ( no:CHG00MV_0460 )
 11994                          ;
 11995                          ;-------------- 変身から変身へ！！ ----------------------
 11996  E004A4A A9 0003         		LDA	#03H
 11997  E004A4D 8D 614E         		STA	CCHGFG
 11998  E004A50 4C 4A8B'        		JMP	CHG_ITEM_ST
 11999                          ;
 12000                          ;-------------- ヨッシーから変身！！ --------------------
 12001          004A53          CHG00MV_0460	EQU	$
 12002  E004A53 F6 18           		INC	<ENWRK0,X
 12003  E004A55 A9 00FF         		LDA	#0FFH		;表示無しセット
 12004  E004A58 9D 74A2         		STA	ENYUSN,X
 12005  E004A5B A9 0030         		LDA	#030H
 12006  E004A5E 9D 7A96         		STA	ENTIM0,X	;魔法デモウェイトタイマーセット
 12007  E004A61 9C 614E         		STZ	CCHGFG
 12008  E004A64 6B              		RTL
 12009                          ;
 12010                          ;--------------------------------------------------------
 12011                          ;-		変身デモ				-
 12012                          ;--------------------------------------------------------
 12013          004A65          CHG00MV_0500	EQU	$
 12014  E004A65 AD 0D0F         		LDA	MSGMOD
 12015  E004A68 D0 08           		BNE	CHG00MV_0510	;メッセージ表示中？ ( yes:CHG00MV_0510 )
 12016  E004A6A AC 614E         		LDY	CCHGFG
 12017  E004A6D D0 04           		BNE	CHG00MV_0550	;プレイヤーの上に移動中？ ( no:CHG00MV_0550 )
 12018                          ;
 12019                          ;-------------- 魔法のデモヘ ----------------------------
 12020  E004A6F EE 614E         		INC	CCHGFG		;魔法デモスタート
 12021          004A72          CHG00MV_0510	EQU	$
 12022  E004A72 6B              		RTL
 12023                          ;
 12024          004A73          CHG00MV_0550	EQU	$
 12025  E004A73 DE 7A96         		DEC	ENTIM0,X
 12026  E004A76 10 12           		BPL	CHG00MV_0570	;魔法デモ終了？ ( no:CHG00MV_0570 )
 12027                          ;
 12028                          ;-------------- カラーフェードへ ------------------------
 12029  E004A78 EE 614E         		INC	CCHGFG
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0205

 12030                          ;
 12031                          ;-------------- プレイヤー変身デモ初期セット ------------
 12032  E004A7B A9 0164         		LDA	#PC00		;player pattern no. set
 12033  E004A7E 8D 60BE         		STA	PLPATN
 12034  E004A81 A9 B800         		LDA	#CHR64+1C0H*20H ;変身中の待機状態キャラクター転送
 12035  E004A84 8D 6114         		STA	PCHTRF
 12036  E004A87 4C 4A8B'        		JMP	CHG_ITEM_ST
 12037                          ;
 12038          004A8A          CHG00MV_0570	EQU	$
 12039  E004A8A 6B              		RTL
 12040                          ;
 12041                          ;------------------------------------------------------------------------
 12042                          ;-		変身アイテム出現”ＯＮ／ＯＦＦ”フラグセット		-
 12043                          ;------------------------------------------------------------------------
 12044          004A8B          CHG_ITEM_ST	EQU	$
 12045  E004A8B B5 78           		LDA	<ENWRK4,X
 12046  E004A8D D0 35           		BNE	CHG_ITEM_ST_050 ;単体セット？ ( no:CHG_ITEM_ST_050 )
 12047                          ;
 12048                          		M8
 12048+ E004A8F E2 20           		SEP	#00100000b	
 12049                          ;
 12050  E004A91 EE 0BF1         		INC	CHG_ITEM_SW_PT	;変身アイテム出現”ＯＮ／ＯＦＦ”フラグセット
 12051  E004A94 AC 0BF1         		LDY	CHG_ITEM_SW_PT
 12052  E004A97 BD 74A0         		LDA	ENRETN,X
 12053  E004A9A 99 0BF1         		STA	CHG_ITEM_SW-1,Y
 12054                          ;
 12055                          		M16
 12055+ E004A9D C2 20           		REP	#00100000b	
 12056                          ;
 12057  E004A9F 22 002F0D'      		JSL	>TROBJ_CLEAR_CHK
 12058  E004AA3 BD 7360         		LDA	ENMYNO,X	;(A) <-- 敵Ｎｏ．
 12059  E004AA6 9B              		TXY			;(Y) <-- (X)
 12060  E004AA7 22 002377'      		JSL	>ESTATST
 12061  E004AAB A9 0002         		LDA	#EINIT		;初期セットモードへ
 12062  E004AAE 9D 6F00         		STA	ENMODE,X
 12063  E004AB1 BD 7900         		LDA	ENWRKA,X	;座標復帰
 12064  E004AB4 9D 70E2         		STA	ENXPSL,X
 12065  E004AB7 BD 7902         		LDA	ENWRKC,X
 12066  E004ABA 9D 7182         		STA	ENYPSL,X
 12067  E004ABD A9 00FF         		LDA	#0FFH		;表示無しセット
 12068  E004AC0 9D 74A2         		STA	ENYUSN,X
 12069  E004AC3 6B              		RTL
 12070                          ;
 12071          004AC4          CHG_ITEM_ST_050 EQU	$
 12072  E004AC4 5C 00232E'      		JMP	>ENCLEAR_NORETN
 12073                          ;
 12074                          ;----------------------------------------------------------------
 12075                          ;-		コイン出現ルーチン				-
 12076                          ;----------------------------------------------------------------
 12077          004AC5          COIN_ST_S	EQU	$-3
 12078  E004AC8 0004 000C 000D  		WORD	00004H,0000CH,0000DH,0000EH,0000FH,00010H,00011H,00012H
        E004ACE 000E 000F 0010 
        E004AD4 0011 0012 
 12079          004AD5          COIN_ST_X	EQU	$-3
 12080  E004AD8 FFF0 0020 0010  		WORD	0FFF0H,00020H,00010H,00000H,0FFF0H,0FFE0H,0FFF0H,00000H
        E004ADE 0000 FFF0 FFE0 
        E004AE4 FFF0 0000 
 12081          004AE5          COIN_ST_Y	EQU	$-3
 12082  E004AE8 FFE0 0000 0010  		WORD	0FFE0H,00000H,00010H,00020H,00010H,00000H,0FFF0H,0FFE0H
        E004AEE 0020 0010 0000 
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0206

        E004AF4 FFF0 FFE0 
 12083                          ;
 12084          004AF8          QKM_TYPE_MV_1	EQU	$
 12085                          ;
 12086                          		I8
 12086+ E004AF8 E2 10           		SEP	#00010000b	
 12087                          ;
 12088  E004AFA A6 12           		LDX	<ENINDX
 12089  E004AFC AD 0D0F         		LDA	MSGMOD
 12090  E004AFF D0 08           		BNE	QKM_TYPE_MV_1FF ;メッセージ表示中？ ( yes:QKM_TYPE_MV_1FF )
 12091                          ;
 12092  E004B01 BD 7A96         		LDA	ENTIM0,X
 12093  E004B04 F0 04           		BEQ	QKM_TYPE_MV_100 ;ウェイト？ ( no:QKM_TYPE_MV_100 )
 12094  E004B06 DE 7A96         		DEC	ENTIM0,X
 12095          004B09          QKM_TYPE_MV_1FF EQU	$
 12096  E004B09 6B              		RTL
 12097                          ;
 12098          004B0A          QKM_TYPE_MV_100 EQU	$
 12099  E004B0A A9 0001         		LDA	#01H
 12100  E004B0D 8D 61AE         		STA	PLSTFG		;プレイヤーＳＴＯＰ
 12101  E004B10 8D 61B0         		STA	ENSTFG		;敵ＳＴＯＰ
 12102                          ;
 12103  E004B13 A9 0004         		LDA	#04H		;ウェイトタイマーセット
 12104  E004B16 9D 7A96         		STA	ENTIM0,X
 12105                          ;
 12106  E004B19 B4 18           		LDY	<ENWRK0,X
 12107  E004B1B B9 4AC5'        		LDA	!COIN_ST_S,Y
 12108  E004B1E 5A              		PHY			;(Y) save
 12109  E004B1F 22 000000"      		JSL	>SOUND_3_ON	;[♪]
 12110  E004B23 7A              		PLY			;(Y) load
 12111                          ;
 12112  E004B24 BD 70E2         		LDA	ENXPSL,X
 12113  E004B27 18              		CLC
 12114  E004B28 79 4AD5'        		ADC	!COIN_ST_X,Y
 12115  E004B2B 9D 70E2         		STA	ENXPSL,X
 12116  E004B2E 8D 0091         		STA	BGXPS1		;BG write X pos set
 12117  E004B31 BD 7182         		LDA	ENYPSL,X
 12118  E004B34 18              		CLC
 12119  E004B35 79 4AE5'        		ADC	!COIN_ST_Y,Y
 12120  E004B38 9D 7182         		STA	ENYPSL,X
 12121  E004B3B 8D 0093         		STA	BGYPS1		;    "    Y   "
 12122  E004B3E C8              		INY
 12123  E004B3F C8              		INY
 12124  E004B40 94 18           		STY	<ENWRK0,X
 12125  E004B42 C0 13           		CPY	#(8*2)+3
 12126  E004B44 90 0A           		BCC	QKM_TYPE_MV_110 ;コイン書き換え終了？ ( no:QKM_TYPE_MV_110 )
 12127                          ;
 12128  E004B46 9C 61AE         		STZ	PLSTFG
 12129  E004B49 9C 61B0         		STZ	ENSTFG
 12130  E004B4C 22 00232E'      		JSL	>ENCLEAR_NORETN
 12131          004B50          QKM_TYPE_MV_110 EQU	$
 12132  E004B50 A9 0000"        		LDA	#BCG2
 12133  E004B53 8D 008F         		STA	BGCGNO		; " change type no. set
 12134  E004B56 A9 6000         		LDA	#UT6000
 12135  E004B59 8D 0095         		STA	BGUTNO		;     "    unit no.
 12136  E004B5C 22 000000"      		JSL	>UNITCHG
 12137                          ;
 12138  E004B60 A6 12           		LDX	<ENINDX
 12139  E004B62 5C 000000"      		JMP	>KUMOB_SET_2	;けむりが出て現れる
 12140                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0207

 12141                          ;----------------------------------------------------------------
 12142                          ;-		何もしない					-
 12143                          ;----------------------------------------------------------------
 12144          004B66          QKM_TYPE_MV_2	EQU	$
 12145          004B66          QKM_TYPE_MV_3	EQU	$
 12146          004B66          QKM_TYPE_MV_4	EQU	$
 12147          004B66          QKM_TYPE_MV_7	EQU	$
 12148          004B66          QKM_TYPE_MV_9	EQU	$
 12149          004B66          QKM_TYPE_MV_A	EQU	$
 12150          004B66          QKM_TYPE_MV_B	EQU	$
 12151          004B66          QKM_TYPE_MV_C	EQU	$
 12152          004B66          QKM_TYPE_MV_D	EQU	$
 12153          004B66          QKM_TYPE_MV_F	EQU	$
 12154          004B66          QKM_TYPE_MV_10	EQU	$
 12155          004B66          QKM_TYPE_MV_11	EQU	$
 12156          004B66          QKM_TYPE_MV_16	EQU	$
 12157                          ;
 12158                          		I8
 12158+ E004B66 E2 10           		SEP	#00010000b	
 12159                          ;
 12160  E004B68 A6 12           		LDX	<ENINDX
 12161          004B6A          QKM_RTLSUB	EQU	$
 12162  E004B6A 6B              		RTL
 12163                          ;
 12164                          ;----------------------------------------------------------------
 12165                          ;-		階段が出現するルーチン				-
 12166                          ;----------------------------------------------------------------
 12167          004B6B          QKM_TYPE_MV_5	EQU	$
 12168                          ;
 12169                          		I8
 12169+ E004B6B E2 10           		SEP	#00010000b	
 12170                          ;
 12171  E004B6D A6 12           		LDX	<ENINDX
 12172  E004B6F AD 0D0F         		LDA	MSGMOD
 12173  E004B72 D0 F6           		BNE	QKM_RTLSUB	;メッセージ表示中？ ( yes:QKM_RTLSUB )
 12174                          ;
 12175  E004B74 B5 18           		LDA	<ENWRK0,X
 12176  E004B76 C9 0003         		CMP	#03H
 12177  E004B79 F0 03           		BEQ	QKM_TYPE_MV_501 ;スクロール基準特殊解除ウェイト？ ( no:QKM_TYPE_MV_501 )
 12178  E004B7B 4C 4D5F'        		JMP	SP_SCRL_RETWAIT
 12179                          ;
 12180          004B7E          QKM_TYPE_MV_501 EQU	$
 12181  E004B7E BD 7A96         		LDA	ENTIM0,X
 12182  E004B81 F0 0F           		BEQ	QKM_TYPE_MV_502 ;ウェイト？ ( no:QKM_TYPE_MV_502 )
 12183  E004B83 DE 7A96         		DEC	ENTIM0,X
 12184  E004B86 C9 0010         		CMP	#010H
 12185  E004B89 90 04           		BCC	QKM_TYPE_MV_500 ;スクロールＯＫ？ ( yes:QKM_TYPE_MV_500 )
 12186                          ;
 12187  E004B8B 5C 004C6B'      		JMP	>SP_SCRL_SET_2
 12188                          ;
 12189          004B8F          QKM_TYPE_MV_500 EQU	$
 12190  E004B8F 4C 4C3C'        		JMP	QKM_TYPE_MV_530
 12191                          ;
 12192                          ;-------------- 書き換え可能チェック ----------------------------
 12193          004B92          QKM_TYPE_MV_502 EQU	$
 12194  E004B92 BD 70E2         		LDA	ENXPSL,X
 12195  E004B95 8D 3010         		STA	R8
 12196  E004B98 BD 7182         		LDA	ENYPSL,X
 12197  E004B9B 8D 3000         		STA	R0
 12198                          		M_CHIPR M_BGUNIT_READ
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0208

 12198+ E004B9E A2 0A           		LDX	#BANK M_BGUNIT_READ
 12198+ E004BA0 A9 CC66         		LDA	#M_BGUNIT_READ
 12198+ E004BA3 22 000000"      		JSL	>CHIPON_RAM_READ
 12199                          ;
 12200  E004BA7 A6 12           		LDX	<ENINDX
 12201  E004BA9 20 4D3F'        		JSR	QKM_ST_BG_CK
 12202  E004BAC B0 1F           		BCS	QKM_TYPE_MV_510 ;書き換えＯＫ？ ( no:QKM_TYPE_MV_510 )
 12203                          ;
 12204  E004BAE BD 70E2         		LDA	ENXPSL,X
 12205  E004BB1 18              		CLC
 12206  E004BB2 75 76           		ADC	<ENWRK2,X
 12207  E004BB4 8D 3010         		STA	R8
 12208  E004BB7 BD 7182         		LDA	ENYPSL,X
 12209  E004BBA 8D 3000         		STA	R0
 12210                          		M_CHIPR M_BGUNIT_READ
 12210+ E004BBD A2 0A           		LDX	#BANK M_BGUNIT_READ
 12210+ E004BBF A9 CC66         		LDA	#M_BGUNIT_READ
 12210+ E004BC2 22 000000"      		JSL	>CHIPON_RAM_READ
 12211                          ;
 12212  E004BC6 A6 12           		LDX	<ENINDX
 12213  E004BC8 20 4D3F'        		JSR	QKM_ST_BG_CK
 12214  E004BCB 90 0A           		BCC	QKM_TYPE_MV_520 ;書き換えＯＫ？ ( yes:QKM_TYPE_MV_520 )
 12215                          ;
 12216          004BCD          QKM_TYPE_MV_510 EQU	$
 12217  E004BCD F6 18           		INC	<ENWRK0,X
 12218  E004BCF A9 0030         		LDA	#030H
 12219  E004BD2 9D 7A96         		STA	ENTIM0,X
 12220  E004BD5 80 65           		BRA	QKM_TYPE_MV_530
 12221                          ;
 12222                          ;-------------- 書き換え可能！！ ------------------------
 12223          004BD7          QKM_TYPE_MV_520 EQU	$
 12224  E004BD7 20 4D23'        		JSR	QKM_SOUND_SET	;サウンドセット
 12225                          ;
 12226  E004BDA BD 70E2         		LDA	ENXPSL,X
 12227  E004BDD 8D 0091         		STA	BGXPS1		;BG write X pos set
 12228  E004BE0 BD 7182         		LDA	ENYPSL,X
 12229  E004BE3 8D 0093         		STA	BGYPS1		;    "    Y   "
 12230  E004BE6 A9 0000"        		LDA	#BGCG
 12231  E004BE9 8D 008F         		STA	BGCGNO		; " change type no. set
 12232  E004BEC A9 3D59         		LDA	#UT3D66
 12233  E004BEF B4 77           		LDY	<ENWRK2+1,X
 12234  E004BF1 10 03           		BPL	QKM_TYPE_MV_522
 12235  E004BF3 A9 3D5A         		LDA	#UT3D67
 12236          004BF6          QKM_TYPE_MV_522 EQU	$
 12237  E004BF6 8D 0095         		STA	BGUTNO		;     "    unit no.
 12238  E004BF9 22 000000"      		JSL	>UNITCHG
 12239                          ;
 12240  E004BFD A6 12           		LDX	<ENINDX
 12241  E004BFF AD 0091         		LDA	BGXPS1
 12242  E004C02 18              		CLC
 12243  E004C03 75 76           		ADC	<ENWRK2,X
 12244  E004C05 8D 0091         		STA	BGXPS1		;BG write X pos set
 12245  E004C08 A9 6600         		LDA	#UT6600
 12246  E004C0B B4 77           		LDY	<ENWRK2+1,X
 12247  E004C0D 10 03           		BPL	QKM_TYPE_MV_524
 12248  E004C0F A9 6700         		LDA	#UT6700
 12249          004C12          QKM_TYPE_MV_524 EQU	$
 12250  E004C12 8D 0095         		STA	BGUTNO		;     "    unit no.
 12251  E004C15 22 000000"      		JSL	>UNITCHG
 12252                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0209

 12253  E004C19 A6 12           		LDX	<ENINDX
 12254  E004C1B BD 70E2         		LDA	ENXPSL,X	;次の位置へ移動
 12255  E004C1E 18              		CLC
 12256  E004C1F 75 76           		ADC	<ENWRK2,X
 12257  E004C21 9D 70E2         		STA	ENXPSL,X
 12258  E004C24 BD 7182         		LDA	ENYPSL,X
 12259  E004C27 38              		SEC
 12260  E004C28 E9 0010         		SBC	#010H
 12261  E004C2B 9D 7182         		STA	ENYPSL,X
 12262  E004C2E 22 000000"      		JSL	>KUMOB_SET_2	;けむりが出て現れる
 12263  E004C32 B9 7142         		LDA	EXYPSL,Y
 12264  E004C35 18              		CLC
 12265  E004C36 69 0010         		ADC	#010H
 12266  E004C39 99 7142         		STA	EXYPSL,Y
 12267                          ;
 12268          004C3C          QKM_TYPE_MV_530 EQU	$
 12269                          ;
 12270                          ;------------------------------------------------------------------------
 12271                          ;-		スクロール基準特殊セット				-
 12272                          ;------------------------------------------------------------------------
 12273          004C3C          SP_SCRL_SET	EQU	$
 12274  E004C3C BD 7680         		LDA	ENDSXL,X
 12275  E004C3F 38              		SEC
 12276  E004C40 E9 0080         		SBC	#080H
 12277  E004C43 0A              		ASL	A		;(C) <-- (N)
 12278  E004C44 A9 FF00         		LDA	#0FF00H
 12279  E004C47 B0 03           		BCS	SP_SCRL_SET_002
 12280  E004C49 A9 0100         		LDA	#0100H
 12281          004C4C          SP_SCRL_SET_002 EQU	$
 12282  E004C4C 8D 7E36         		STA	SP_SCRL_XSP	;スクロール基準特殊Ｘスピードセット
 12283                          ;
 12284  E004C4F BD 7682         		LDA	ENDSYL,X
 12285  E004C52 38              		SEC
 12286  E004C53 E9 0060         		SBC	#060H
 12287  E004C56 0A              		ASL	A		;(C) <-- (N)
 12288  E004C57 A9 FF00         		LDA	#0FF00H
 12289  E004C5A B0 03           		BCS	SP_SCRL_SET_004
 12290  E004C5C A9 0100         		LDA	#0100H
 12291          004C5F          SP_SCRL_SET_004 EQU	$
 12292  E004C5F 8D 7E38         		STA	SP_SCRL_YSP	;スクロール基準特殊Ｙスピードセット
 12293                          ;
 12294          004C62          SP_SCRL_SET_1	EQU	$
 12295  E004C62 A9 0001         		LDA	#01H
 12296  E004C65 8D 61AE         		STA	PLSTFG		;プレイヤーＳＴＯＰ
 12297  E004C68 8D 61B0         		STA	ENSTFG		;敵ＳＴＯＰ
 12298                          ;
 12299          004C6B          SP_SCRL_SET_2	EQU	$
 12300  E004C6B AD 7E2A         		LDA	SP_SCRL_FG
 12301  E004C6E D0 4A           		BNE	SP_SCRL_SET_012 ;復帰スクロールカウンターセット？ ( no:SP_SCRL_SET_012 )
 12302                          ;
 12303                          ;-------------- 復帰スクロールカウンターセット --------------------------
 12304  E004C70 AD 0C1E         		LDA	ATSCRL_H
 12305  E004C73 0D 0C20         		ORA	ATSCRL_V
 12306  E004C76 F0 01           		BEQ	SP_SCRL_SET_010 ;スクロール基準特殊セットＯＫ？ ( yes:SP_SCRL_SET_010 )
 12307                          ;;;;		    BNE	    SP_SCRL_SET_040 ;スクロール基準特殊セットＯＫ？ ( no:SP_SCRL_SET_040 )
 12308  E004C78 6B              		RTL
 12309                          ;
 12310          004C79          SP_SCRL_SET_010 EQU	$
 12311  E004C79 BD 7680         		LDA	ENDSXL,X
 12312  E004C7C 38              		SEC
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0210

 12313  E004C7D E9 0010         		SBC	#010H
 12314  E004C80 C9 00D1         		CMP	#(0E0H-010H)+1
 12315  E004C83 B0 0C           		BCS	SP_SCRL_SET_011 ;スクロールＯＫ範囲？ ( yes:SP_SCRL_SET_011 )
 12316  E004C85 BD 7682         		LDA	ENDSYL,X
 12317  E004C88 38              		SEC
 12318  E004C89 E9 0010         		SBC	#010H
 12319  E004C8C C9 00B1         		CMP	#(0C0H-010H)+1
 12320  E004C8F 90 75           		BCC	SP_SCRL_SET_040 ;スクロールＯＫ範囲？ ( no:SP_SCRL_SET_040 )
 12321                          ;
 12322          004C91          SP_SCRL_SET_011 EQU	$
 12323  E004C91 AD 0039         		LDA	SCCH1		;スクロールカウンター保存
 12324  E004C94 8D 0C94         		STA	SP_SCRL_RET_H
 12325  E004C97 AD 003B         		LDA	SCCV1
 12326  E004C9A 8D 0C96         		STA	SP_SCRL_RET_V
 12327                          ;
 12328                          		M8
 12328+ E004C9D E2 20           		SEP	#00100000b	
 12329                          ;
 12330  E004C9F A0 17           		LDY	#ENNO-1		;敵の状態保存チェックデータセット
 12331  E004CA1 A2 5C           		LDX	#(ENNO-1)*4
 12332          004CA3          SP_SCRL_ST_0110 EQU	$
 12333  E004CA3 BD 6F00         		LDA	ENMODE,X
 12334  E004CA6 E4 12           		CPX	<ENINDX
 12335  E004CA8 D0 02           		BNE	SP_SCRL_ST_0112 ;自分自身？ ( no:SP_SCRL_ST_0112 )
 12336  E004CAA A9 00           		LDA	#00
 12337          004CAC          SP_SCRL_ST_0112 EQU	$
 12338  E004CAC 99 0C98         		STA	SP_SCRL_SVENFG,Y
 12339  E004CAF CA              		DEX
 12340  E004CB0 CA              		DEX
 12341  E004CB1 CA              		DEX
 12342  E004CB2 CA              		DEX
 12343  E004CB3 88              		DEY
 12344  E004CB4 10 ED           		BPL	SP_SCRL_ST_0110
 12345  E004CB6 A6 12           		LDX	<ENINDX
 12346                          ;
 12347                          		M16
 12347+ E004CB8 C2 20           		REP	#00100000b	
 12348                          ;
 12349          004CBA          SP_SCRL_SET_012 EQU	$
 12350  E004CBA A9 0001         		LDA	#01H		;スクロール基準特殊フラグセット
 12351  E004CBD 8D 7E2A         		STA	SP_SCRL_FG
 12352  E004CC0 8E 1E2C         		STX	CSP_SCRL_USER	;スクロール基準特殊ユーザーインデックスセット
 12353  E004CC3 BD 70E2         		LDA	ENXPSL,X	;スクロール基準特殊Ｘ座標セット
 12354  E004CC6 8D 7E2E         		STA	SP_SCRL_XPS
 12355  E004CC9 BD 7182         		LDA	ENYPSL,X	;スクロール基準特殊Ｙ座標セット
 12356  E004CCC 8D 7E30         		STA	SP_SCRL_YPS
 12357                          ;
 12358  E004CCF AD 0039         		LDA	SCCH1		;スクロール復帰用オートスクロールカウンターセット
 12359  E004CD2 8D 0C23         		STA	ATSCRL_SCCH1
 12360  E004CD5 AD 003B         		LDA	SCCV1
 12361  E004CD8 8D 0C27         		STA	ATSCRL_SCCV1
 12362                          ;
 12363                          ;-------------- プレイヤー画面位置チェック ------------------------------
 12364          004CDB          SP_SCRL_PSTOPST EQU	$
 12365                          ;;;;		    LDY	    #00H
 12366  E004CDB AD 60B0         		LDA	PLDSXL
 12367  E004CDE C9 0008         		CMP	#LEFT_X
 12368  E004CE1 30 12           		BMI	SP_SCRL_SET_020 ;プレイヤー左端オーバー？ ( yes:SP_SCRL_SET_020 )
 12369  E004CE3 C9 00E8         		CMP	#RIGHT_X
 12370  E004CE6 10 0D           		BPL	SP_SCRL_SET_020 ;プレイヤー右端オーバー？ ( yes:SP_SCRL_SET_020 )
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0211

 12371  E004CE8 AD 60B2         		LDA	PLDSYL
 12372  E004CEB C9 0010         		CMP	#UP_Y
 12373  E004CEE 30 05           		BMI	SP_SCRL_SET_020 ;プレイヤー上端オーバー？ ( yes:SP_SCRL_SET_020 )
 12374  E004CF0 C9 00B0         		CMP	#LOW_Y
 12375                          ;;;;		    BMI	    SP_SCRL_SET_030 ;プレイヤー下端オーバー？ ( no:SP_SCRL_SET_030 )
 12376  E004CF3 30 11           		BMI	SP_SCRL_SET_040 ;プレイヤー下端オーバー？ ( no:SP_SCRL_SET_040 )
 12377          004CF5          SP_SCRL_SET_020 EQU	$
 12378                          ;;;;		    LDY	    #01H
 12379                          ;;;;SP_SCRL_SET_030 EQU	    $
 12380                          ;;;;		    TYA
 12381  E004CF5 A9 0001         		LDA	#01H
 12382  E004CF8 8D 61AE         		STA	PLSTFG		;プレイヤーＳＴＯＰフラグ”ＯＮ／ＯＦＦ”セット
 12383  E004CFB A9 0002         		LDA	#02H		;プレイヤーの安全確保
 12384  E004CFE CD 61D6         		CMP	PLFLSH
 12385  E004D01 90 03           		BCC	SP_SCRL_SET_040
 12386  E004D03 8D 61D6         		STA	PLFLSH
 12387                          ;
 12388          004D06          SP_SCRL_SET_040 EQU	$
 12389  E004D06 6B              		RTL
 12390                          ;
 12391          004D07          SP_SCRL_SET_3	EQU	$
 12392  E004D07 AD 7E2A         		LDA	SP_SCRL_FG
 12393  E004D0A F0 06           		BEQ	SP_SCRL_SET_310 ;スクロール基準特殊中？ ( no:SP_SCRL_SET_310 )
 12394                          ;
 12395  E004D0C EC 1E2C         		CPX	CSP_SCRL_USER
 12396  E004D0F F0 01           		BEQ	SP_SCRL_SET_310 ;スクロール基準特殊ユーザー自分？ ( yes:SP_SCRL_SET_310 )
 12397  E004D11 6B              		RTL
 12398                          ;
 12399          004D12          SP_SCRL_SET_310 EQU	$
 12400  E004D12 22 004C6B'      		JSL	>SP_SCRL_SET_2
 12401  E004D16 BD 7220         		LDA	ENXSPD,X
 12402  E004D19 8D 7E36         		STA	SP_SCRL_XSP	;スクロール基準特殊Ｘスピードセット
 12403  E004D1C BD 7222         		LDA	ENYSPD,X
 12404  E004D1F 8D 7E38         		STA	SP_SCRL_YSP	;スクロール基準特殊Ｙスピードセット
 12405  E004D22 6B              		RTL
 12406                          ;
 12407                          ;----------------------------------------------------------------
 12408                          ;-		サウンドセット					-
 12409                          ;----------------------------------------------------------------
 12410          004D23          QKM_SOUND_SET	EQU	$
 12411  E004D23 A9 0008         		LDA	#08H		;ウェイトタイマーセット
 12412  E004D26 9D 7A96         		STA	ENTIM0,X
 12413                          ;
 12414  E004D29 B5 78           		LDA	<ENWRK4,X
 12415  E004D2B 1A              		INC	A
 12416  E004D2C C9 0006         		CMP	#5+1
 12417  E004D2F 90 03           		BCC	QKM_SOUND_ST_10
 12418  E004D31 A9 0001         		LDA	#1
 12419          004D34          QKM_SOUND_ST_10 EQU	$
 12420  E004D34 95 78           		STA	<ENWRK4,X
 12421  E004D36 18              		CLC
 12422  E004D37 69 004A         		ADC	#04BH-1
 12423  E004D3A 22 000000"      		JSL	>SOUND_3_ON	;[♪]
 12424  E004D3E 60              		RTS
 12425                          ;
 12426                          ;----------------------------------------------------------------
 12427                          ;-		階段＆橋出現ＯＫユニットチェック		-
 12428                          ;-			out :					-
 12429                          ;-				(C) <-- 0:ＯＫ			-
 12430                          ;----------------------------------------------------------------
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0212

 12431          004D3F          QKM_ST_BG_CK	EQU	$
 12432  E004D3F AD 300C         		LDA	R6
 12433  E004D42 C9 0000         		CMP	#UT0000
 12434  E004D45 18              		CLC			;(C) <-- 0
 12435  E004D46 F0 06           		BEQ	QKM_ST_BG_CK_10 ;ヌキ？ ( yes:QKM_ST_BG_CK_10 )
 12436                          ;;;;		    SEC
 12437  E004D48 E9 96D0         		SBC	#UT96E0-1	;[ -1:(C)=0 ]
 12438  E004D4B C9 0009         		CMP	#UT96E8-UT96E0+1
 12439          004D4E          QKM_ST_BG_CK_10 EQU	$
 12440  E004D4E 60              		RTS
 12441                          ;
 12442                          ;----------------------------------------------------------------
 12443                          ;-		橋がかかるルーチン				-
 12444                          ;----------------------------------------------------------------
 12445          004D4F          QKM_TYPE_MV_6	EQU	$
 12446                          ;
 12447                          		I8
 12447+ E004D4F E2 10           		SEP	#00010000b	
 12448                          ;
 12449  E004D51 A6 12           		LDX	<ENINDX
 12450  E004D53 AD 0D0F         		LDA	MSGMOD
 12451  E004D56 D0 19           		BNE	QKM_TYPE_MV_600 ;メッセージ表示中？ ( yes:QKM_TYPE_MV_600 )
 12452                          ;
 12453  E004D58 B5 18           		LDA	<ENWRK0,X
 12454  E004D5A C9 0003         		CMP	#03H
 12455  E004D5D F0 21           		BEQ	QKM_TYPE_MV_601 ;スクロール基準特殊解除ウェイト？ ( no:QKM_TYPE_MV_601 )
 12456                          ;
 12457                          ;-------------- スクロール基準特殊解除ウェイト ------------------
 12458          004D5F          SP_SCRL_RETWAIT EQU	$
 12459  E004D5F BD 7A96         		LDA	ENTIM0,X
 12460  E004D62 F0 0E           		BEQ	SP_SCRL_RTWT_10 ;ウェイト？ ( no:SP_SCRL_RTWT_10 )
 12461                          ;
 12462  E004D64 DE 7A96         		DEC	ENTIM0,X
 12463  E004D67 22 004C62'      		JSL	>SP_SCRL_SET_1
 12464  E004D6B 9C 7E36         		STZ	SP_SCRL_XSP	;スクロール基準特殊Ｘスピードセット
 12465  E004D6E 9C 7E38         		STZ	SP_SCRL_YSP	;スクロール基準特殊Ｙスピードセット
 12466          004D71          QKM_TYPE_MV_600 EQU	$
 12467  E004D71 6B              		RTL
 12468                          ;
 12469          004D72          SP_SCRL_RTWT_10 EQU	$
 12470  E004D72 AD 7E2A         		LDA	SP_SCRL_FG
 12471  E004D75 D0 06           		BNE	SP_SCRL_RTWT_20 ;スクロール基準特殊モード？ ( yes:SP_SCRL_RTWT_20 )
 12472                          ;
 12473  E004D77 9C 61AE         		STZ	PLSTFG		;プレイヤーＳＴＯＰ解除
 12474  E004D7A 9C 61B0         		STZ	ENSTFG		;敵		 ”
 12475          004D7D          SP_SCRL_RTWT_20 EQU	$
 12476  E004D7D 4C 232E'        		JMP	ENCLEAR_NORETN
 12477                          ;
 12478                          ;-------------- 橋の書き換え ------------------------------------
 12479          004D80          QKM_TYPE_MV_601 EQU	$
 12480  E004D80 BD 7A96         		LDA	ENTIM0,X
 12481  E004D83 F0 0C           		BEQ	QKM_TYPE_MV_602 ;ウェイト？ ( no:QKM_TYPE_MV_602 )
 12482  E004D85 DE 7A96         		DEC	ENTIM0,X
 12483  E004D88 C9 0010         		CMP	#010H
 12484  E004D8B 90 62           		BCC	QKM_TYPE_MV_620 ;スクロールＯＫ？ ( yes:QKM_TYPE_MV_620 )
 12485                          ;
 12486  E004D8D 5C 004C6B'      		JMP	>SP_SCRL_SET_2
 12487                          ;
 12488          004D91          QKM_TYPE_MV_602 EQU	$
 12489  E004D91 BD 70E2         		LDA	ENXPSL,X
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0213

 12490  E004D94 8D 3010         		STA	R8
 12491  E004D97 BD 7182         		LDA	ENYPSL,X
 12492  E004D9A 8D 3000         		STA	R0
 12493                          		M_CHIPR M_BGUNIT_READ
 12493+ E004D9D A2 0A           		LDX	#BANK M_BGUNIT_READ
 12493+ E004D9F A9 CC66         		LDA	#M_BGUNIT_READ
 12493+ E004DA2 22 000000"      		JSL	>CHIPON_RAM_READ
 12494                          ;
 12495  E004DA6 A6 12           		LDX	<ENINDX
 12496  E004DA8 20 4D3F'        		JSR	QKM_ST_BG_CK
 12497  E004DAB 90 0A           		BCC	QKM_TYPE_MV_610 ;書き換えＯＫ？ ( yes:QKM_TYPE_MV_610 )
 12498                          ;
 12499  E004DAD F6 18           		INC	<ENWRK0,X
 12500  E004DAF A9 0030         		LDA	#030H
 12501  E004DB2 9D 7A96         		STA	ENTIM0,X
 12502  E004DB5 80 38           		BRA	QKM_TYPE_MV_620
 12503                          ;
 12504                          ;-------------- 書き換え可能！！ ------------------------
 12505          004DB7          QKM_TYPE_MV_610 EQU	$
 12506  E004DB7 20 4D23'        		JSR	QKM_SOUND_SET	;サウンドセット
 12507                          ;
 12508  E004DBA BD 70E2         		LDA	ENXPSL,X
 12509  E004DBD 8D 0091         		STA	BGXPS1		;BG write X pos set
 12510  E004DC0 BD 7182         		LDA	ENYPSL,X
 12511  E004DC3 8D 0093         		STA	BGYPS1		;    "    Y   "
 12512  E004DC6 A9 0000"        		LDA	#BGCG
 12513  E004DC9 8D 008F         		STA	BGCGNO		; " change type no. set
 12514  E004DCC A9 1512         		LDA	#UT1516
 12515  E004DCF 8D 0095         		STA	BGUTNO		;     "    unit no.
 12516  E004DD2 22 000000"      		JSL	>UNITCHG
 12517                          ;
 12518  E004DD6 A6 12           		LDX	<ENINDX
 12519  E004DD8 22 000000"      		JSL	>KUMOB_SET_2	;けむりが出て現れる
 12520  E004DDC B9 7142         		LDA	EXYPSL,Y
 12521  E004DDF 38              		SEC
 12522  E004DE0 E9 0004         		SBC	#04H
 12523  E004DE3 99 7142         		STA	EXYPSL,Y
 12524                          ;
 12525  E004DE6 BD 70E2         		LDA	ENXPSL,X	;次の位置へ移動
 12526  E004DE9 18              		CLC
 12527  E004DEA 75 76           		ADC	<ENWRK2,X
 12528  E004DEC 9D 70E2         		STA	ENXPSL,X
 12529                          ;
 12530          004DEF          QKM_TYPE_MV_620 EQU	$
 12531  E004DEF 4C 4C3C'        		JMP	SP_SCRL_SET
 12532                          ;
 12533                          ;----------------------------------------------------------------
 12534                          ;-		コイン出現（１枚）ルーチン			-
 12535                          ;----------------------------------------------------------------
 12536          004DF2          QKM_TYPE_MV_8	EQU	$
 12537                          ;
 12538                          		I8
 12538+ E004DF2 E2 10           		SEP	#00010000b	
 12539                          ;
 12540  E004DF4 A6 12           		LDX	<ENINDX
 12541  E004DF6 AD 0D0F         		LDA	MSGMOD
 12542  E004DF9 D0 08           		BNE	QKM_TYPE_MV_8FF ;メッセージ表示中？ ( yes:QKM_TYPE_MV_8FF )
 12543                          ;
 12544  E004DFB BD 7A96         		LDA	ENTIM0,X
 12545  E004DFE F0 04           		BEQ	QKM_TYPE_MV_800 ;ウェイト？ ( no:QKM_TYPE_MV_800 )
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0214

 12546  E004E00 DE 7A96         		DEC	ENTIM0,X
 12547          004E03          QKM_TYPE_MV_8FF EQU	$
 12548  E004E03 6B              		RTL
 12549                          ;
 12550          004E04          QKM_TYPE_MV_800 EQU	$
 12551  E004E04 A9 0004         		LDA	#04H
 12552  E004E07 22 000000"      		JSL	>SOUND_3_ON	;[♪]
 12553                          ;
 12554  E004E0B BD 70E2         		LDA	ENXPSL,X
 12555  E004E0E 8D 0091         		STA	BGXPS1		;BG write X pos set
 12556  E004E11 BD 7182         		LDA	ENYPSL,X
 12557  E004E14 8D 0093         		STA	BGYPS1		;    "    Y   "
 12558  E004E17 22 00232E'      		JSL	>ENCLEAR_NORETN
 12559                          ;
 12560  E004E1B A9 0000"        		LDA	#BCG2
 12561  E004E1E 8D 008F         		STA	BGCGNO		; " change type no. set
 12562  E004E21 A9 6000         		LDA	#UT6000
 12563  E004E24 8D 0095         		STA	BGUTNO		;     "    unit no.
 12564  E004E27 22 000000"      		JSL	>UNITCHG
 12565                          ;
 12566  E004E2B A6 12           		LDX	<ENINDX
 12567  E004E2D 5C 000000"      		JMP	>KUMOB_SET_2	;けむりが出て現れる
 12568                          ;
 12569                          ;----------------------------------------------------------------
 12570                          ;-		床が下がる					-
 12571                          ;----------------------------------------------------------------
 12572          004E31          FLOOR_ST_DT	EQU	$
 12573          004E31          FLOOR_ST_2	EQU	$
 12574                          ;;;;		    WORD    UT0000, UT0000, UT0000, UT0000, UT0000, UT0000
 12575                          ;;;;		    WORD    RUT3B09,RUT393B,RUT393C,RUT393B,RUT393C,RUT3B0A
 12576                          ;;;;		    WORD    RUT3B0B,RUT393D,RUT3939,RUT393A,RUT393E,RUT3B0C
 12577  E004E31 0000 0000 0000  		WORD	UT0000, UT0000, UT0000, UT0000, UT0000
        E004E37 0000 0000 
 12578  E004E3B 1D24 1D06 1D08  		WORD	RUT3B09,RUT393B,RUT393C,RUT393B,RUT3B0A
        E004E41 1D06 1D26 
 12579  E004E45 1D28 1D0A 1D02  		WORD	RUT3B0B,RUT393D,RUT3939,RUT393E,RUT3B0C
        E004E4B 1D0C 1D2A 
 12580                          ;
 12581          004E4F          FLOOR_ST_1	EQU	$
 12582                          ;;;;		    WORD    RUT3B00,RUT2A00,RUT2A01,RUT2A00,RUT2A01,RUT3B01
 12583                          ;;;;		    WORD    RUT3B02,RUT3920,RUT3912,RUT3913,RUT3921,RUT3B03
 12584                          ;;;;		    WORD    UT0000, RUT3922,RUT3914,RUT3915,RUT3923,UT0000
 12585  E004E4F 1D12 1C5C 1C5E  		WORD	RUT3B00,RUT2A00,RUT2A01,RUT2A00,RUT3B01
        E004E55 1C5C 1D14 
 12586  E004E59 1D16 1CD0 1CB6  		WORD	RUT3B02,RUT3920,RUT3912,RUT3921,RUT3B03
        E004E5F 1CD2 1D18 
 12587  E004E63 0000 1CD4 1CBA  		WORD	UT0000, RUT3922,RUT3914,RUT3923,UT0000
        E004E69 1CD6 0000 
 12588                          ;
 12589          004E6D          FLOOR_ST_3	EQU	$
 12590                          ;;;;		    WORD    RUT3B00,RUT2A00,RUT2A01,RUT2A00,RUT2A01,RUT3B01
 12591                          ;;;;		    WORD    RUT3B02,RUT3920,RUT3912,RUT3913,RUT3921,RUT3B03
 12592                          ;;;;		    WORD    UT0000, RUT3937,RUT3914,RUT3915,RUT3938,UT0000
 12593  E004E6D 1D12 1C5C 1C5E  		WORD	RUT3B00,RUT2A00,RUT2A01,RUT2A00,RUT3B01
        E004E73 1C5C 1D14 
 12594  E004E77 1D16 1CD0 1CB6  		WORD	RUT3B02,RUT3920,RUT3912,RUT3921,RUT3B03
        E004E7D 1CD2 1D18 
 12595  E004E81 1C5C 1CFE 1CBA  		WORD	RUT2A00,RUT3937,RUT3914,RUT3938,RUT2A00
        E004E87 1D00 1C5C 
 12596                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0215

 12597          004E87          FLOOR_ST_TBL	EQU	$-3-1
 12598  E004E8B 00              		BYTE	FLOOR_ST_2-FLOOR_ST_DT	;[1]
 12599  E004E8C 1E              		BYTE	FLOOR_ST_1-FLOOR_ST_DT	;[2]
 12600  E004E8D 00              		BYTE	FLOOR_ST_2-FLOOR_ST_DT	;[3]
 12601  E004E8E 1E              		BYTE	FLOOR_ST_1-FLOOR_ST_DT	;[4]
 12602  E004E8F 00              		BYTE	FLOOR_ST_2-FLOOR_ST_DT	;[5]
 12603  E004E90 3C              		BYTE	FLOOR_ST_3-FLOOR_ST_DT	;[6]
 12604          004E91          FLOOR_ST_TBL_E	EQU	$
 12605                          ;
 12606          004E91          QKM_TYPE_MV_E	EQU	$
 12607                          ;
 12608                          		I8
 12608+ E004E91 E2 10           		SEP	#00010000b	
 12609                          ;
 12610  E004E93 A6 12           		LDX	<ENINDX
 12611  E004E95 AD 0D0F         		LDA	MSGMOD
 12612  E004E98 F0 01           		BEQ	QKM_TYPE_MV_EFF ;メッセージ表示中？ ( no:QKM_TYPE_MV_EFF )
 12613  E004E9A 6B              		RTL
 12614                          ;
 12615          004E9B          QKM_TYPE_MV_EFF EQU	$
 12616  E004E9B BD 7A96         		LDA	ENTIM0,X
 12617  E004E9E F0 0F           		BEQ	QKM_TYPE_MV_E10 ;ウェイト？ ( no:QKM_TYPE_MV_E10 )
 12618  E004EA0 DE 7A96         		DEC	ENTIM0,X
 12619  E004EA3 C9 0040         		CMP	#040H
 12620  E004EA6 90 04           		BCC	QKM_TYPE_MV_E00 ;プレイヤー＆敵ＳＴＯＰ？ ( yes:QKM_TYPE_MV_E00 )
 12621                          ;
 12622  E004EA8 5C 004C6B'      		JMP	>SP_SCRL_SET_2
 12623                          ;
 12624          004EAC          QKM_TYPE_MV_E00 EQU	$
 12625  E004EAC 4C 4C3C'        		JMP	SP_SCRL_SET
 12626                          ;
 12627          004EAF          QKM_TYPE_MV_E10 EQU	$
 12628  E004EAF A9 0001         		LDA	#01H
 12629  E004EB2 8D 61AE         		STA	PLSTFG		;プレイヤーＳＴＯＰ
 12630  E004EB5 8D 61B0         		STA	ENSTFG		;敵ＳＴＯＰ
 12631                          ;
 12632  E004EB8 A9 0010         		LDA	#010H		;ウェイトタイマーセット
 12633  E004EBB 9D 7A96         		STA	ENTIM0,X
 12634  E004EBE A9 0010         		LDA	#010H
 12635  E004EC1 8D 61C6         		STA	TILTCT		;地震セット
 12636                          ;
 12637  E004EC4 BD 70E2         		LDA	ENXPSL,X
 12638  E004EC7 38              		SEC
 12639  E004EC8 F5 78           		SBC	<ENWRK4,X
 12640  E004ECA 85 04           		STA	<EWORK4		;(EWK4,5) <-- BG write X pos set
 12641  E004ECC BD 7182         		LDA	ENYPSL,X
 12642  E004ECF 38              		SEC
 12643  E004ED0 E9 0010         		SBC	#010H
 12644  E004ED3 8D 0093         		STA	BGYPS1		;BG write Y pos set
 12645                          ;
 12646  E004ED6 B4 18           		LDY	<ENWRK0,X
 12647  E004ED8 C8              		INY			;(Y) <-- BG write data table pointer
 12648  E004ED9 C0 0A           		CPY	#FLOOR_ST_TBL_E-FLOOR_ST_TBL
 12649  E004EDB 90 0A           		BCC	QKM_TYPE_MV_E20 ;床書き換え終了？ ( no:QKM_TYPE_MV_E20 )
 12650                          ;
 12651  E004EDD 9C 61AE         		STZ	PLSTFG
 12652  E004EE0 9C 61B0         		STZ	ENSTFG
 12653  E004EE3 5C 00232E'      		JMP	>ENCLEAR_NORETN
 12654                          ;
 12655          004EE7          QKM_TYPE_MV_E20 EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0216

 12656  E004EE7 94 18           		STY	<ENWRK0,X	;next BG write data pointer set
 12657  E004EE9 B9 4E87'        		LDA	!FLOOR_ST_TBL,Y
 12658  E004EEC A8              		TAY			;(Y) <-- BG write data pointer
 12659                          ;;;;		    CPY	    #FLOOR_ST_2-FLOOR_ST_DT
 12660  E004EED D0 0A           		BNE	QKM_TYPE_MV_E22 ;Y pos change ? ( no:QKM_TYPE_MV_E22 )
 12661                          ;
 12662  E004EEF BD 7182         		LDA	ENYPSL,X	;next Y pos set
 12663  E004EF2 18              		CLC
 12664  E004EF3 69 0010         		ADC	#010H
 12665  E004EF6 9D 7182         		STA	ENYPSL,X
 12666          004EF9          QKM_TYPE_MV_E22 EQU	$
 12667  E004EF9 5A              		PHY			;(Y) save
 12668  E004EFA A9 0047         		LDA	#047H
 12669  E004EFD 22 000000"      		JSL	>SOUND_3_ON	;[♪]
 12670  E004F01 7A              		PLY			;(Y) load
 12671                          ;
 12672                          		I16
 12672+ E004F02 C2 10           		REP	#00010000b	
 12673                          ;
 12674  E004F04 A9 0003         		LDA	#3
 12675  E004F07 85 00           		STA	<EWORK0		;(EWK0,1) <-- Y loop no.
 12676          004F09          QKM_TYPE_MV_E30 EQU	$
 12677  E004F09 A5 04           		LDA	<EWORK4
 12678  E004F0B 8D 0091         		STA	BGXPS1		;BG write X pos set
 12679                          ;
 12680  E004F0E A9 0005         		LDA	#5
 12681  E004F11 85 02           		STA	<EWORK2		;(EWK2,3) <-- X loop no.
 12682          004F13          QKM_TYPE_MV_E40 EQU	$
 12683  E004F13 B9 4E31'        		LDA	!FLOOR_ST_DT,Y
 12684                          ;;;;		    CMP	    #UT0000
 12685  E004F16 F0 04           		BEQ	QKM_TYPE_MV_E50 ;ヌキ？ ( yes:QKM_TYPE_MV_E50 )
 12686                          ;
 12687  E004F18 AA              		TAX
 12688  E004F19 BD 0000         		LDA	0,X
 12689          004F1C          QKM_TYPE_MV_E50 EQU	$
 12690  E004F1C 8D 0095         		STA	BGUTNO		;BG change unit no. set
 12691  E004F1F A9 0000"        		LDA	#BGCG
 12692  E004F22 8D 008F         		STA	BGCGNO		;BG change type no. set
 12693  E004F25 5A              		PHY			;(Y) save
 12694  E004F26 22 000000"      		JSL	>UNITCHG
 12695  E004F2A 7A              		PLY			;(Y) load
 12696                          ;
 12697  E004F2B AD 0091         		LDA	BGXPS1
 12698  E004F2E 18              		CLC
 12699  E004F2F 69 0010         		ADC	#010H
 12700  E004F32 8D 0091         		STA	BGXPS1
 12701                          ;
 12702  E004F35 C8              		INY
 12703  E004F36 C8              		INY
 12704  E004F37 C6 02           		DEC	<EWORK2
 12705  E004F39 D0 D8           		BNE	QKM_TYPE_MV_E40
 12706                          ;
 12707  E004F3B AD 0093         		LDA	BGYPS1
 12708  E004F3E 18              		CLC
 12709  E004F3F 69 0010         		ADC	#010H
 12710  E004F42 8D 0093         		STA	BGYPS1
 12711                          ;
 12712  E004F45 C6 00           		DEC	<EWORK0
 12713  E004F47 D0 C0           		BNE	QKM_TYPE_MV_E30
 12714                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0217

 12715                          		I8
 12715+ E004F49 E2 10           		SEP	#00010000b	
 12716                          ;
 12717  E004F4B A6 12           		LDX	<ENINDX
 12718  E004F4D 4C 4C3C'        		JMP	SP_SCRL_SET
 12719                          ;
 12720                          ;----------------------------------------------------------------
 12721                          ;-		ひまわりリフトルーチン				-
 12722                          ;----------------------------------------------------------------
 12723          004F50          HIMWRLF_OBJNO	EQU	$
 12724                          ;;;;		    WORD    ((18-1)<<11)+0000000000000010B  ;[QKM12]
 12725  E004F50 8802            		WORD	((18-1)<<11)+0000000000000010B	;[QKM12]
 12726                          ;;;;		    WORD    ((30-1)<<11)+0000000000000010B  ;[QKM13]
 12727  E004F52 E802            		WORD	((30-1)<<11)+0000000000000010B	;[QKM13]
 12728          004F54          HIMWR_HIGH	EQU	$
 12729  E004F54 0060            		WORD	(8*3)*4				;[QKM12]
 12730  E004F56 00C0            		WORD	(8*6)*4				;[QKM13]
 12731                          ;
 12732          004F58          QKM_TYPE_MV_12	EQU	$
 12733          004F58          QKM_TYPE_MV_13	EQU	$
 12734                          ;
 12735                          		I8
 12735+ E004F58 E2 10           		SEP	#00010000b	
 12736                          ;
 12737  E004F5A A6 12           		LDX	<ENINDX
 12738  E004F5C B5 18           		LDA	<ENWRK0,X
 12739  E004F5E C9 0004         		CMP	#04H
 12740  E004F61 F0 03           		BEQ	QKM_TYPE_M_12FF ;種落下？ ( yes:QKM_TYPE_M_12FF )
 12741  E004F63 4C 4FDF'        		JMP	QKM_TYPE_M_1240
 12742                          ;
 12743                          ;-------------- 種落下 ------------------------------------------
 12744          004F66          QKM_TYPE_M_12FF EQU	$
 12745  E004F66 AD 0D0F         		LDA	MSGMOD
 12746  E004F69 D0 16           		BNE	QKM_TYPE_M_1200 ;メッセージ表示中？ ( yes:QKM_TYPE_M_1200 )
 12747  E004F6B 22 002F23'      		JSL	>ENMDCK
 12748                          ;
 12749  E004F6F 22 004C6B'      		JSL	>SP_SCRL_SET_2	;スクロール基準特殊セット
 12750                          ;
 12751  E004F73 BD 7860         		LDA	ENCBFG,X
 12752  E004F76 29 0001         		AND	#00001B
 12753  E004F79 D0 07           		BNE	QKM_TYPE_M_1210 ;着地？ ( yes:QKM_TYPE_M_1210 )
 12754                          ;
 12755  E004F7B A9 0020         		LDA	#020H		;ウェイトタイマーセット
 12756  E004F7E 9D 7A96         		STA	ENTIM0,X
 12757          004F81          QKM_TYPE_M_1200 EQU	$
 12758  E004F81 6B              		RTL
 12759                          ;
 12760          004F82          QKM_TYPE_M_1210 EQU	$
 12761  E004F82 BC 7A96         		LDY	ENTIM0,X
 12762  E004F85 F0 24           		BEQ	QKM_TYPE_M_1230 ;ウェイト？ ( no:QKM_TYPE_M_1230 )
 12763                          ;
 12764  E004F87 C0 10           		CPY	#010H
 12765  E004F89 B0 1F           		BCS	QKM_TYPE_M_1220 ;”ブルブル”？ ( no:QKM_TYPE_M_1220 )
 12766                          ;
 12767                          ;-------------- ”ブルブル”セット ----------------------
 12768  E004F8B 98              		TYA
 12769  E004F8C 29 0001         		AND	#01H
 12770  E004F8F 5D 70E2         		EOR	ENXPSL,X
 12771  E004F92 9D 70E2         		STA	ENXPSL,X
 12772                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0218

 12773  E004F95 C0 04           		CPY	#04H
 12774  E004F97 D0 11           		BNE	QKM_TYPE_M_1220 ;けむりセット？ ( no:QKM_TYPE_M_1220 )
 12775                          ;
 12776                          ;-------------- けむりセット ----------------------------
 12777  E004F99 BD 7CD6         		LDA	ECENTX,X	  ;Ｘ座標セット
 12778  E004F9C 85 00           		STA	<EWORK0
 12779  E004F9E BD 7CD8         		LDA	ECENTY,X	  ;Ｙ座標セット
 12780  E004FA1 85 02           		STA	<EWORK2
 12781  E004FA3 A9 0000"        		LDA	#FSMK1		;(A) <-- けむり効果Ｎｏ．（敵ＳＴＯＰ無視）
 12782  E004FA6 22 00356E'      		JSL	>FSMK0_SET2
 12783                          ;
 12784          004FAA          QKM_TYPE_M_1220 EQU	$
 12785  E004FAA 6B              		RTL
 12786                          ;
 12787                          ;-------------- ひまわりリフト成長へ --------------------
 12788          004FAB          QKM_TYPE_M_1230 EQU	$
 12789  E004FAB F6 18           		INC	<ENWRK0,X	;ひまわりリフト成長へ
 12790  E004FAD A9 0001         		LDA	#01H
 12791  E004FB0 8D 61AE         		STA	PLSTFG		;プレイヤーＳＴＯＰ！！
 12792  E004FB3 8D 61B0         		STA	ENSTFG		;敵ＳＴＯＰ！！
 12793  E004FB6 BD 7360         		LDA	ENMYNO,X
 12794  E004FB9 38              		SEC
 12795  E004FBA E9 00C7         		SBC	#QKM12
 12796  E004FBD 0A              		ASL	A
 12797  E004FBE A8              		TAY
 12798  E004FBF BD 7040         		LDA	ENMOD2,X	;ＯＡＭセット変更
 12799  E004FC2 18              		CLC
 12800  E004FC3 79 4F50'        		ADC	!HIMWRLF_OBJNO,Y ;ＯＢＪ数を１個から使用数へ
 12801  E004FC6 29 FFF3         		AND	#1111111111110011B ;範囲外クリアー無しへ
 12802  E004FC9 9D 7040         		STA	ENMOD2,X
 12803  E004FCC B9 4F54'        		LDA	!HIMWR_HIGH,Y	;目標高さセット
 12804  E004FCF 95 16           		STA	<ENCONT,X
 12805  E004FD1 74 76           		STZ	<ENWRK2,X	;高さカウンターリセット
 12806  E004FD3 74 78           		STZ	<ENWRK4,X	;パターンＮｏ．データリセット
 12807  E004FD5 9E 7A36         		STZ	ENWRK6,X	;	     ”
 12808  E004FD8 9E 7A38         		STZ	ENWRK8,X	;花咲きパターンＮｏ．リセット
 12809  E004FDB 9E 7720         		STZ	ENBGYP,X	;ＢＧチェック位置補正
 12810  E004FDE 6B              		RTL
 12811                          ;
 12812                          ;-------------- ひまわりリフト成長 ------------------------------
 12813          004FDF          QKM_TYPE_M_1240 EQU	$
 12814                          ;
 12815                          ;-------------- ひまわりリフトＯＡＭセット --------------
 12816  E004FDF 8A              		TXA
 12817  E004FE0 8D 3002         		STA	R1		;(R1) <-- 敵インデックス
 12818                          		M_CHIP	HIMWR_OAMST
 12818+ E004FE3 A2 09           		LDX	#BANK HIMWR_OAMST
 12818+ E004FE5 A9 98B6         		LDA	#HIMWR_OAMST
 12818+ E004FE8 22 000000"      		JSL	>CHIPON
 12819                          ;
 12820  E004FEC A6 12           		LDX	<ENINDX
 12821  E004FEE AD 0D0F         		LDA	MSGMOD
 12822  E004FF1 D0 37           		BNE	QKM_TYPE_M_1245 ;メッセージ表示中？ ( yes:QKM_TYPE_M_1245 )
 12823                          ;
 12824  E004FF3 B5 18           		LDA	<ENWRK0,X
 12825  E004FF5 C9 0005         		CMP	#05H
 12826  E004FF8 D0 46           		BNE	QKM_TYPE_M_1270 ;リフト処理？ ( yes:QKM_TYPE_M_1270 )
 12827                          ;
 12828  E004FFA BD 7182         		LDA	ENYPSL,X	;スクロール基準特殊Ｙ座標セット
 12829  E004FFD 48              		PHA			;Ｙ座標待避
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0219

 12830  E004FFE 38              		SEC
 12831  E004FFF F5 76           		SBC	<ENWRK2,X
 12832  E005001 9D 7182         		STA	ENYPSL,X
 12833  E005004 38              		SEC			;表示Ｙ座標セット
 12834  E005005 ED 003B         		SBC	SCCV1
 12835  E005008 9D 7682         		STA	ENDSYL,X
 12836  E00500B 22 004C3C'      		JSL	>SP_SCRL_SET	;スクロール基準特殊フラグセット
 12837  E00500F 68              		PLA			;Ｙ座標復帰
 12838  E005010 9D 7182         		STA	ENYPSL,X
 12839                          ;
 12840  E005013 B5 76           		LDA	<ENWRK2,X
 12841  E005015 D5 16           		CMP	<ENCONT,X
 12842  E005017 B0 12           		BCS	QKM_TYPE_M_1250 ;成長中？ ( no:QKM_TYPE_M_1250 )
 12843                          ;
 12844                          ;-------------- 成長中 ----------------------------------
 12845  E005019 F6 76           		INC	<ENWRK2,X
 12846                          ;
 12847                          ;;;;		    SEC
 12848  E00501B E9 0015         		SBC	#016H-1
 12849  E00501E 29 001F         		AND	#01FH
 12850  E005021 D0 07           		BNE	QKM_TYPE_M_1245 ;サウンドセット？ ( no:QKM_TYPE_M_1245 )
 12851                          ;
 12852  E005023 A9 0005         		LDA	#05H		;[♪]
 12853  E005026 22 000000"      		JSL	>SOUND_3_ON
 12854                          ;
 12855          00502A          QKM_TYPE_M_1245 EQU	$
 12856  E00502A 6B              		RTL
 12857                          ;
 12858          00502B          QKM_TYPE_M_1250 EQU	$
 12859  E00502B BD 7A38         		LDA	ENWRK8,X
 12860  E00502E C9 000F         		CMP	#4*4-1
 12861  E005031 B0 04           		BCS	QKM_TYPE_M_1260 ;花咲いた？ ( yes:QKM_TYPE_M_1260 )
 12862                          ;
 12863                          ;-------------- 花咲かせ --------------------------------
 12864  E005033 FE 7A38         		INC	ENWRK8,X
 12865  E005036 6B              		RTL
 12866                          ;
 12867                          ;-------------- 成長完了 --------------------------------
 12868          005037          QKM_TYPE_M_1260 EQU	$
 12869  E005037 F6 18           		INC	<ENWRK0,X	;リフト処理へ
 12870  E005039 9C 61AE         		STZ	PLSTFG		;プレイヤーＳＴＯＰ解除
 12871  E00503C 9C 61B0         		STZ	ENSTFG		;敵ＳＴＯＰ解除
 12872  E00503F 6B              		RTL
 12873                          ;
 12874                          ;-------------- リフト処理 --------------------------------------
 12875          005040          QKM_TYPE_M_1270 EQU	$
 12876  E005040 22 002F23'      		JSL	>ENMDCK
 12877                          ;
 12878                          ;-------------- ひまわりリフト衝突チェック --------------
 12879  E005044 8A              		TXA
 12880  E005045 8D 3002         		STA	R1		;(R1) <-- 敵インデックス
 12881                          		M_CHIP	HIMWR_CROSS
 12881+ E005048 A2 09           		LDX	#BANK HIMWR_CROSS
 12881+ E00504A A9 9B23         		LDA	#HIMWR_CROSS
 12881+ E00504D 22 000000"      		JSL	>CHIPON
 12882  E005051 AD 6000         		LDA	CCWORK0
 12883  E005054 F0 04           		BEQ	QKM_TYPE_M_1280 ;サウンドセット？ ( no:QKM_TYPE_M_1280 )
 12884                          ;
 12885  E005056 22 000000"      		JSL	>SOUND_3_ON	;[♪]
 12886          00505A          QKM_TYPE_M_1280 EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0220

 12887  E00505A A6 12           		LDX	<ENINDX
 12888  E00505C 6B              		RTL
 12889                          ;
 12890                          ;************************************************************************
 12891                          ;*									*
 12892                          ;*		プレイヤーとの全当たりチェック＆補正（挟まれてダウン）	*
 12893                          ;*			out : (EWKC,D) <-- 足当たった時のＹスピード	*
 12894                          ;*			      (EWKE,F) <--	”   か？フラグ		*
 12895                          ;*									*
 12896                          ;************************************************************************
 12897          00505D          POBBGCR_X	EQU	$
 12898  E00505D 64 0E           		STZ	<EWORKE		;(EWKE,F) <-- foot cross flag
 12899  E00505F BC 7D36         		LDY	ECRSFG,X
 12900  E005062 30 02           		BMI	POBCX00		;player cross ? ( yes:POBCX00 )
 12901  E005064 18              		CLC
 12902  E005065 6B              		RTL
 12903                          ;
 12904          005066          POBCX00		EQU	$
 12905  E005066 AD 6122         		LDA	PWIDEY
 12906  E005069 18              		CLC
 12907  E00506A 7D 7BB8         		ADC	EWIDEY,X
 12908  E00506D 85 00           		STA	<EWORK0
 12909  E00506F 18              		CLC
 12910  E005070 7D 7C18         		ADC	EPWIDY,X
 12911  E005073 85 08           		STA	<EWORK8		;(EWK8,9) <-- hed cross dot
 12912                          ;
 12913  E005075 BD 7C18         		LDA	EPWIDY,X
 12914  E005078 38              		SEC
 12915  E005079 E5 00           		SBC	<EWORK0
 12916  E00507B 85 0A           		STA	<EWORKA		;(EWKA,B) <-- foot cross dot
 12917                          ;
 12918  E00507D A0 00           		LDY	#00H
 12919  E00507F 18              		CLC
 12920  E005080 65 08           		ADC	<EWORK8
 12921  E005082 30 02           		BMI	POBCX10		;hed cross ? ( yes:POBCX10 )
 12922  E005084 A0 02           		LDY	#02H
 12923          005086          POBCX10		EQU	$
 12924  E005086 84 0C           		STY	<EWORKC		;(EWKC) <-- hed or foot cross muki
 12925                          ;
 12926  E005088 AD 6120         		LDA	PWIDEX
 12927  E00508B 18              		CLC
 12928  E00508C 7D 7BB6         		ADC	EWIDEX,X
 12929  E00508F 85 00           		STA	<EWORK0
 12930  E005091 18              		CLC
 12931  E005092 7D 7C16         		ADC	EPWIDX,X
 12932  E005095 85 02           		STA	<EWORK2		;(EWK2,3) <-- right cross dot
 12933                          ;
 12934  E005097 BD 7C16         		LDA	EPWIDX,X
 12935  E00509A 38              		SEC
 12936  E00509B E5 00           		SBC	<EWORK0
 12937  E00509D 85 04           		STA	<EWORK4		;(EWK4,5) <-- left cross dot
 12938                          ;
 12939  E00509F A0 00           		LDY	#00H
 12940  E0050A1 18              		CLC
 12941  E0050A2 65 02           		ADC	<EWORK2
 12942  E0050A4 30 02           		BMI	POBCX20		;right cross ? ( yes:POBCX20 )
 12943  E0050A6 A0 02           		LDY	#02H
 12944          0050A8          POBCX20		EQU	$
 12945  E0050A8 84 06           		STY	<EWORK6		;(EWK6) <-- side cross muki
 12946                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0221

 12947  E0050AA B9 7962         		LDA	EWORK2,Y
 12948  E0050AD 10 04           		BPL	POBCX30
 12949  E0050AF 49 FFFF         		EOR	#0FFFFH
 12950  E0050B2 1A              		INC	A
 12951          0050B3          POBCX30		EQU	$
 12952  E0050B3 85 00           		STA	<EWORK0
 12953  E0050B5 A4 0C           		LDY	<EWORKC
 12954  E0050B7 B9 7968         		LDA	EWORK8,Y
 12955  E0050BA 10 04           		BPL	POBCX40
 12956  E0050BC 49 FFFF         		EOR	#0FFFFH
 12957  E0050BF 1A              		INC	A
 12958          0050C0          POBCX40		EQU	$
 12959  E0050C0 C5 00           		CMP	<EWORK0
 12960  E0050C2 90 19           		BCC	POBCX400	;side cross ? ( no:POBCX400 )
 12961                          ;
 12962  E0050C4 B9 7968         		LDA	EWORK8,Y
 12963  E0050C7 30 11           		BMI	POBCX40F	;hed cross ? ( no:POBCX40F )
 12964                          ;
 12965  E0050C9 A5 00           		LDA	<EWORK0
 12966  E0050CB C9 000A         		CMP	#0AH
 12967  E0050CE 90 0A           		BCC	POBCX40F	;プレイヤーダウン？ ( no:POBCX40F )
 12968                          ;
 12969                          		I16
 12969+ E0050D0 C2 10           		REP	#00010000b	
 12970                          ;
 12971  E0050D2 22 000000"      		JSL	>TO_PLDOWN
 12972                          ;
 12973                          		I8
 12973+ E0050D6 E2 10           		SEP	#00010000b	
 12974                          ;
 12975  E0050D8 80 37           		BRA	POBCX42
 12976                          ;
 12977          0050DA          POBCX40F	EQU	$
 12978  E0050DA 4C 5208'        		JMP	POBC090
 12979                          ;
 12980                          ;-------------- hed or foot cross -------------------------------
 12981          0050DD          POBCX400	EQU	$
 12982  E0050DD B9 7968         		LDA	EWORK8,Y
 12983  E0050E0 10 03           		BPL	POBCX401	;foot cross ? ( no:POBCX401 )
 12984  E0050E2 4C 51C4'        		JMP	POBC070
 12985                          ;
 12986                          ;-------------- hed cross -------------------------------
 12987          0050E5          POBCX401	EQU	$
 12988  E0050E5 AD 60C2         		LDA	PLSITD
 12989  E0050E8 F0 0A           		BEQ	POBCX402	;sit down ? ( yes:POBCX402 )
 12990                          ;
 12991  E0050EA B9 7968         		LDA	EWORK8,Y
 12992  E0050ED 18              		CLC
 12993  E0050EE 69 000C         		ADC	#06H*2
 12994  E0050F1 99 7968         		STA	EWORK8,Y
 12995          0050F4          POBCX402	EQU	$
 12996  E0050F4 B9 7968         		LDA	EWORK8,Y
 12997  E0050F7 C9 000A         		CMP	#0AH
 12998  E0050FA 90 15           		BCC	POBCX42		;cross ok ? ( yes:POBCX42 )
 12999                          ;
 13000  E0050FC C9 0012         		CMP	#012H
 13001  E0050FF 90 0A           		BCC	POBCX404	;プレイヤーダウン？ ( no:POBCX404 )
 13002                          ;
 13003                          		I16
 13003+ E005101 C2 10           		REP	#00010000b	
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0222

 13004                          ;
 13005  E005103 22 000000"      		JSL	>TO_PLDOWN
 13006                          ;
 13007                          		I8
 13007+ E005107 E2 10           		SEP	#00010000b	
 13008                          ;
 13009  E005109 80 06           		BRA	POBCX42
 13010                          ;
 13011          00510B          POBCX404	EQU	$
 13012  E00510B A9 0005         		LDA	#05H		;to sit down !!
 13013  E00510E 8D 60C2         		STA	PLSITD
 13014          005111          POBCX42		EQU	$
 13015  E005111 AD 60C0         		LDA	PLJUMP
 13016  E005114 F0 0A           		BEQ	POBCX420	;ジャンプ中？ ( yes:POBCX420 )
 13017                          ;
 13018  E005116 AD 6090         		LDA	PLYPSL		;プレイヤーＹ座標補正（”ドス〜ン”で挟まれる為）
 13019  E005119 18              		CLC
 13020  E00511A 7D 72C2         		ADC	ENMOVY,X
 13021  E00511D 8D 6090         		STA	PLYPSL
 13022          005120          POBCX420	EQU	$
 13023  E005120 4C 51FB'        		JMP	POBC080
 13024                          ;
 13025                          ;************************************************************************
 13026                          ;*									*
 13027                          ;*		プレイヤーとの全当たりチェック＆補正			*
 13028                          ;*			out : (EWKC,D) <-- 足当たった時のＹスピード	*
 13029                          ;*			      (EWKE,F) <--	”   か？フラグ		*
 13030                          ;*									*
 13031                          ;************************************************************************
 13032          005123          POBBGXA		EQU	$
 13033  E005123 0001 FFFF       		WORD	00001H,0FFFFH
 13034                          ;
 13035          005127          POBBGCR		EQU	$
 13036  E005127 64 0E           		STZ	<EWORKE		;(EWKE,F) <-- foot cross flag
 13037          005129          POBBGCR_2	EQU	$
 13038  E005129 BC 7D36         		LDY	ECRSFG,X
 13039  E00512C 30 02           		BMI	POBC000		;player cross ? ( yes:POBC000 )
 13040  E00512E 18              		CLC
 13041  E00512F 6B              		RTL
 13042                          ;
 13043          005130          POBBGCR_3	EQU	$
 13044          005130          POBC000		EQU	$
 13045  E005130 AD 6122         		LDA	PWIDEY
 13046  E005133 18              		CLC
 13047  E005134 7D 7BB8         		ADC	EWIDEY,X
 13048  E005137 85 00           		STA	<EWORK0
 13049  E005139 18              		CLC
 13050  E00513A 7D 7C18         		ADC	EPWIDY,X
 13051  E00513D 85 08           		STA	<EWORK8		;(EWK8,9) <-- hed cross dot
 13052                          ;
 13053  E00513F BD 7C18         		LDA	EPWIDY,X
 13054  E005142 38              		SEC
 13055  E005143 E5 00           		SBC	<EWORK0
 13056  E005145 85 0A           		STA	<EWORKA		;(EWKA,B) <-- foot cross dot
 13057                          ;
 13058  E005147 A0 00           		LDY	#00H
 13059  E005149 18              		CLC
 13060  E00514A 65 08           		ADC	<EWORK8
 13061  E00514C 30 02           		BMI	POBC010		;hed cross ? ( yes:POBC010 )
 13062  E00514E A0 02           		LDY	#02H
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0223

 13063          005150          POBC010		EQU	$
 13064  E005150 84 0C           		STY	<EWORKC		;(EWKC) <-- hed or foot cross muki
 13065                          ;
 13066  E005152 AD 6120         		LDA	PWIDEX
 13067  E005155 18              		CLC
 13068  E005156 7D 7BB6         		ADC	EWIDEX,X
 13069  E005159 85 00           		STA	<EWORK0
 13070  E00515B 18              		CLC
 13071  E00515C 7D 7C16         		ADC	EPWIDX,X
 13072  E00515F 85 02           		STA	<EWORK2		;(EWK2,3) <-- right cross dot
 13073                          ;
 13074  E005161 BD 7C16         		LDA	EPWIDX,X
 13075  E005164 38              		SEC
 13076  E005165 E5 00           		SBC	<EWORK0
 13077  E005167 85 04           		STA	<EWORK4		;(EWK4,5) <-- left cross dot
 13078                          ;
 13079  E005169 A0 00           		LDY	#00H
 13080  E00516B 18              		CLC
 13081  E00516C 65 02           		ADC	<EWORK2
 13082  E00516E 30 02           		BMI	POBC020		;right cross ? ( yes:POBC020 )
 13083  E005170 A0 02           		LDY	#02H
 13084          005172          POBC020		EQU	$
 13085  E005172 84 06           		STY	<EWORK6		;(EWK6) <-- side cross muki
 13086                          ;
 13087  E005174 B9 7962         		LDA	EWORK2,Y
 13088  E005177 10 04           		BPL	POBC030
 13089  E005179 49 FFFF         		EOR	#0FFFFH
 13090  E00517C 1A              		INC	A
 13091          00517D          POBC030		EQU	$
 13092  E00517D 85 00           		STA	<EWORK0
 13093  E00517F A4 0C           		LDY	<EWORKC
 13094  E005181 B9 7968         		LDA	EWORK8,Y
 13095  E005184 10 04           		BPL	POBC040
 13096  E005186 49 FFFF         		EOR	#0FFFFH
 13097  E005189 1A              		INC	A
 13098          00518A          POBC040		EQU	$
 13099  E00518A C5 00           		CMP	<EWORK0
 13100  E00518C 90 03           		BCC	POBC0400	;side cross ? ( no:POBC0400 )
 13101  E00518E 4C 5208'        		JMP	POBC090
 13102                          ;
 13103                          ;-------------- hed or foot cross -------------------------------
 13104          005191          POBC0400	EQU	$
 13105  E005191 B9 7968         		LDA	EWORK8,Y
 13106  E005194 30 2E           		BMI	POBC070		;foot cross ? ( yes:POBC070 )
 13107                          ;
 13108                          ;-------------- hed cross -------------------------------
 13109                          ;;;;		    LDA	    PLBGCR
 13110                          ;;;;		    AND	    #000000111B
 13111                          ;;;;		    BEQ	    POBC050	    ;着地？ ( no:POBC050 )
 13112                          ;
 13113  E005196 AD 60C2         		LDA	PLSITD
 13114  E005199 F0 0A           		BEQ	POBC0402	;sit down ? ( yes:POBC0402 )
 13115                          ;
 13116  E00519B B9 7968         		LDA	EWORK8,Y
 13117  E00519E 18              		CLC
 13118  E00519F 69 000C         		ADC	#06H*2
 13119  E0051A2 99 7968         		STA	EWORK8,Y
 13120          0051A5          POBC0402	EQU	$
 13121  E0051A5 B9 7968         		LDA	EWORK8,Y
 13122  E0051A8 C9 000A         		CMP	#00AH
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0224

 13123  E0051AB 90 06           		BCC	POBC042		;cross ok ? ( yes:POBC042 )
 13124                          ;
 13125  E0051AD A9 0005         		LDA	#05H		;to sit down !!
 13126  E0051B0 8D 60C2         		STA	PLSITD
 13127                          ;
 13128          0051B3          POBC042		EQU	$
 13129  E0051B3 80 46           		BRA	POBC080
 13130                          ;
 13131          0051B5          POBC050		EQU	$
 13132  E0051B5 B9 7968         		LDA	EWORK8,Y
 13133  E0051B8 18              		CLC
 13134  E0051B9 6D 6090         		ADC	PLYPSL
 13135  E0051BC 8D 6090         		STA	PLYPSL		;player foot pos hosei
 13136  E0051BF 9C 60D2         		STZ	PLSPJP
 13137  E0051C2 80 37           		BRA	POBC080
 13138                          ;
 13139                          ;-------------- foot cross ------------------------------
 13140          0051C4          POBC070		EQU	$
 13141  E0051C4 C9 FFF5         		CMP	#-00BH
 13142  E0051C7 30 3F           		BMI	POBC090		;cross ok ? ( no:POBC090 )
 13143                          ;
 13144  E0051C9 38              		SEC
 13145  E0051CA 6D 6090         		ADC	PLYPSL
 13146  E0051CD 8D 6090         		STA	PLYPSL		;player foot pos hosei
 13147  E0051D0 BD 7182         		LDA	ENYPSL,X
 13148  E0051D3 38              		SEC
 13149  E0051D4 ED 6EBE         		SBC	ENYP2L
 13150  E0051D7 38              		SEC
 13151  E0051D8 6D 6090         		ADC	PLYPSL
 13152  E0051DB 8D 6090         		STA	PLYPSL
 13153  E0051DE AC 60AB         		LDY	PLYSPD+1
 13154  E0051E1 30 48           		BMI	POBC100		;player jump up ? ( yes:POBC100 )
 13155                          ;
 13156  E0051E3 BD 70E2         		LDA	ENXPSL,X
 13157  E0051E6 38              		SEC
 13158  E0051E7 ED 6EBC         		SBC	ENXP2L
 13159  E0051EA 18              		CLC
 13160  E0051EB 6D 608C         		ADC	PLXPSL
 13161  E0051EE 8D 608C         		STA	PLXPSL		;player X pos hosei
 13162                          ;;;;;;;;		LDY	PLDOSN
 13163                          ;;;;;;;;		BEQ	POBC078
 13164                          ;;;;;;;;
 13165                          ;;;;;;;;		LDA	#00009		;［Ｓ］
 13166                          ;;;;;;;;		STA	SOUND3
 13167                          ;;;;;;;;
 13168                          ;;;;;;;;POBC078		EQU	$
 13169                          ;;;;;;;;		STZ	PLDOSN
 13170  E0051F1 EE 61B4         		INC	ONLFFG		;lift on flag "ON" !!
 13171  E0051F4 E6 0E           		INC	<EWORKE		;(EWKE,F) <-- foot cross flag "ON"
 13172  E0051F6 AD 60AA         		LDA	PLYSPD
 13173  E0051F9 85 0C           		STA	<EWORKC		;(EWKC,F) <-- foot cross player Y speed
 13174                          ;
 13175          0051FB          POBC080		EQU	$
 13176  E0051FB 38              		SEC
 13177          0051FC          POBC081		EQU	$
 13178  E0051FC BD 7222         		LDA	ENYSPD,X
 13179  E0051FF 10 03           		BPL	POBC082
 13180  E005201 A9 0000         		LDA	#00
 13181          005204          POBC082		EQU	$
 13182  E005204 8D 60AA         		STA	PLYSPD		;player Y speed set
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0225

 13183  E005207 6B              		RTL
 13184                          ;
 13185                          ;-------------- side cross --------------------------------------
 13186          005208          POBC090		EQU	$
 13187  E005208 A6 06           		LDX	<EWORK6
 13188  E00520A A5 00           		LDA	<EWORK0
 13189  E00520C 4A              		LSR	A
 13190  E00520D F0 0B           		BEQ	POBC091		;１ドット当たり？ ( yes:POBC091 )
 13191  E00520F AD 608C         		LDA	PLXPSL
 13192  E005212 18              		CLC
 13193  E005213 7F 005123'      		ADC	>POBBGXA,X
 13194  E005217 8D 608C         		STA	PLXPSL		;player X pos hosei
 13195          00521A          POBC091		EQU	$
 13196  E00521A AD 60B4         		LDA	PLMVSP
 13197  E00521D 5F 005123'      		EOR	>POBBGXA,X
 13198  E005221 10 06           		BPL	POBC092		;player X speed clear ok muki ? ( no:POBC092 )
 13199  E005223 9C 60A8         		STZ	PLXSPD
 13200  E005226 9C 60B4         		STZ	PLMVSP
 13201          005229          POBC092		EQU	$
 13202  E005229 A6 12           		LDX	<ENINDX
 13203          00522B          POBC100		EQU	$
 13204  E00522B 18              		CLC
 13205  E00522C 6B              		RTL
 13206                          ;
 13207                          ;************************************************************************
 13208                          ;*									*
 13209                          ;*		プレイヤーとの半当たりチェック＆補正			*
 13210                          ;*									*
 13211                          ;************************************************************************
 13212          00522D          POBBGCR_H	EQU	$
 13213  E00522D BC 7D36         		LDY	ECRSFG,X
 13214  E005230 30 01           		BMI	POBC_H010	;player cross ? ( yes:POBC_H010 )
 13215  
 13216          005232          POBC_H000	EQU	$
 13217  E005232 6B              		RTL
 13218                          ;
 13219          005233          POBC_H010	EQU	$
 13220  E005233 AD 6090         		LDA	PLYPSL
 13221  E005236 85 00           		STA	<EWORK0
 13222  
 13223  E005238 BD 7CD8         		LDA	ECENTY,X
 13224  E00523B 38              		SEC
 13225  E00523C ED 611E         		SBC	PCENTY
 13226  E00523F 38              		SEC
 13227  E005240 ED 6122         		SBC	PWIDEY
 13228  E005243 38              		SEC
 13229  E005244 FD 7BB8         		SBC	EWIDEY,X
 13230  E005247 C9 FFF6         		CMP	#0FFF6H		;
 13231  E00524A 90 E6           		BCC	POBC_H000	;player foot cross ? ( no:POBC_H000 )
 13232                          ;
 13233                          ;-------------- foot cross ------------------------------
 13234  E00524C 38              		SEC
 13235  E00524D 6D 6090         		ADC	PLYPSL
 13236  E005250 8D 6090         		STA	PLYPSL		;player foot pos hosei
 13237  E005253 BD 7182         		LDA	ENYPSL,X
 13238  E005256 38              		SEC
 13239  E005257 ED 6EBE         		SBC	ENYP2L
 13240  E00525A 38              		SEC			;+1
 13241  E00525B 6D 6090         		ADC	PLYPSL
 13242  E00525E 8D 6090         		STA	PLYPSL
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0226

 13243  
 13244  E005261 38              		SEC
 13245  E005262 E5 00           		SBC	<EWORK0
 13246  E005264 18              		CLC
 13247  E005265 6D 611E         		ADC	PCENTY
 13248  E005268 8D 611E         		STA	PCENTY
 13249  
 13250  E00526B AC 60AB         		LDY	PLYSPD+1
 13251  E00526E 30 C2           		BMI	POBC_H000	;player jump up ? ( yes:POBC_H000 )
 13252                          ;
 13253  E005270 BD 70E2         		LDA	ENXPSL,X
 13254  E005273 38              		SEC
 13255  E005274 ED 6EBC         		SBC	ENXP2L
 13256  E005277 18              		CLC
 13257  E005278 6D 608C         		ADC	PLXPSL
 13258  E00527B 8D 608C         		STA	PLXPSL		;player X pos hosei
 13259  E00527E EE 61B4         		INC	ONLFFG		;lift on flag "ON" !!
 13260  E005281 BD 7222         		LDA	ENYSPD,X
 13261  E005284 10 03           		BPL	POBC_H080
 13262  
 13263  E005286 A9 0000         		LDA	#00
 13264  
 13265          005289          POBC_H080	EQU	$
 13266  E005289 8D 60AA         		STA	PLYSPD		;player Y speed set
 13267  
 13268  E00528C 6B              		RTL
 13269                          ;
 13270                          ;
 13271                          ;************************************************************************
 13272                          ;*									*
 13273                          ;*		赤ちゃんとの全当たりチェック＆補正			*
 13274                          ;*			out : (EWKC,D) <-- 足当たった時のＹスピード	*
 13275                          ;*			      (EWKE,F) <--	”   か？フラグ		*
 13276                          ;*									*
 13277                          ;************************************************************************
 13278          00528D          BOBBGXA		EQU	$
 13279  E00528D 0001 FFFF       		WORD	00001H,0FFFFH
 13280                          ;
 13281          005291          BOBBGCR		EQU	$
 13282  E005291 64 0E           		STZ	<EWORKE		;(EWKE,F) <-- foot cross flag
 13283          005293          BOBBGCR_2	EQU	$
 13284  E005293 AD 61B2         		LDA	BABYNO		;赤ちゃん誰かに乗ってる ?
 13285  E005296 29 C000         		AND	#0C000H		;
 13286  E005299 0D 61CC         		ORA	DEATHCT0	;死神に連れ去られてる ?
 13287  E00529C D0 38           		BNE	BOBC000		; yes: BOBC000
 13288  
 13289  E00529E BD 7BB6         		LDA	EWIDEX,X
 13290  E0052A1 18              		CLC
 13291  E0052A2 6D 7BB6         		ADC	EWIDEX+BABY_INDEX
 13292  E0052A5 85 00           		STA	<EWORK0
 13293  E0052A7 0A              		ASL	A
 13294  E0052A8 85 02           		STA	<EWORK2
 13295  E0052AA BD 7CD6         		LDA	ECENTX,X
 13296  E0052AD 38              		SEC
 13297  E0052AE ED 7CD6         		SBC	ECENTX+BABY_INDEX
 13298  E0052B1 85 04           		STA	<EWORK4
 13299  E0052B3 18              		CLC
 13300  E0052B4 65 00           		ADC	<EWORK0
 13301  E0052B6 C5 02           		CMP	<EWORK2
 13302  E0052B8 B0 1C           		BCS	BOBC000
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0227

 13303  
 13304  E0052BA BD 7BB8         		LDA	EWIDEY,X
 13305  E0052BD 18              		CLC
 13306  E0052BE 6D 7BB8         		ADC	EWIDEY+BABY_INDEX
 13307  E0052C1 85 06           		STA	<EWORK6
 13308  E0052C3 0A              		ASL	A
 13309  E0052C4 85 08           		STA	<EWORK8
 13310  E0052C6 BD 7CD8         		LDA	ECENTY,X
 13311  E0052C9 38              		SEC
 13312  E0052CA ED 7CD8         		SBC	ECENTY+BABY_INDEX
 13313  E0052CD 85 0A           		STA	<EWORKA
 13314  E0052CF 18              		CLC
 13315  E0052D0 65 06           		ADC	<EWORK6
 13316  E0052D2 C5 08           		CMP	<EWORK8
 13317  E0052D4 90 02           		BCC	BOBC008
 13318  
 13319          0052D6          BOBC000		EQU	$
 13320  E0052D6 18              		CLC
 13321  E0052D7 6B              		RTL
 13322                          ;
 13323          0052D8          BOBC008		EQU	$
 13324  E0052D8 A5 0A           		LDA	<EWORKA
 13325  E0052DA 18              		CLC
 13326  E0052DB 65 06           		ADC	<EWORK6
 13327  E0052DD 85 08           		STA	<EWORK8		;(EWK8,9) <-- hed cross dot
 13328                          ;
 13329  E0052DF A5 0A           		LDA	<EWORKA
 13330  E0052E1 38              		SEC
 13331  E0052E2 E5 06           		SBC	<EWORK6
 13332  E0052E4 85 0A           		STA	<EWORKA		;(EWKA,B) <-- foot cross dot
 13333                          ;
 13334  E0052E6 A0 00           		LDY	#00H
 13335  E0052E8 18              		CLC
 13336  E0052E9 65 08           		ADC	<EWORK8
 13337  E0052EB 30 02           		BMI	BOBC010		;hed cross ? ( yes:BOBC010 )
 13338  E0052ED A0 02           		LDY	#02H
 13339          0052EF          BOBC010		EQU	$
 13340  E0052EF 84 0C           		STY	<EWORKC		;(EWKC) <-- hed or foot cross muki
 13341                          ;
 13342  E0052F1 A5 04           		LDA	<EWORK4
 13343  E0052F3 18              		CLC
 13344  E0052F4 65 00           		ADC	<EWORK0
 13345  E0052F6 85 02           		STA	<EWORK2		;(EWK2,3) <-- right cross dot
 13346                          ;
 13347  E0052F8 A5 04           		LDA	<EWORK4
 13348  E0052FA 38              		SEC
 13349  E0052FB E5 00           		SBC	<EWORK0
 13350  E0052FD 85 04           		STA	<EWORK4		;(EWK4,5) <-- left cross dot
 13351                          ;
 13352  E0052FF A0 00           		LDY	#00H
 13353  E005301 18              		CLC
 13354  E005302 65 02           		ADC	<EWORK2
 13355  E005304 30 02           		BMI	BOBC020		;right cross ? ( yes:BOBC020 )
 13356  E005306 A0 02           		LDY	#02H
 13357          005308          BOBC020		EQU	$
 13358  E005308 84 06           		STY	<EWORK6		;(EWK6) <-- side cross muki
 13359                          ;
 13360  E00530A B9 7962         		LDA	EWORK2,Y
 13361  E00530D 10 04           		BPL	BOBC030
 13362  E00530F 49 FFFF         		EOR	#0FFFFH
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0228

 13363  E005312 1A              		INC	A
 13364          005313          BOBC030		EQU	$
 13365  E005313 85 00           		STA	<EWORK0
 13366  E005315 A4 0C           		LDY	<EWORKC
 13367  E005317 B9 7968         		LDA	EWORK8,Y
 13368  E00531A 10 04           		BPL	BOBC040
 13369  E00531C 49 FFFF         		EOR	#0FFFFH
 13370  E00531F 1A              		INC	A
 13371          005320          BOBC040		EQU	$
 13372  E005320 C5 00           		CMP	<EWORK0
 13373  E005322 B0 15           		BCS	BOBC090		;side cross ? ( yes:BOBC090 )
 13374                          ;
 13375                          ;-------------- hed or foot cross -------------------------------
 13376  E005324 C9 0009         		CMP	#09H
 13377  E005327 B0 10           		BCS	BOBC090		;cross ok ? ( no:BOBC090 )
 13378                          ;
 13379  E005329 B9 7968         		LDA	EWORK8,Y
 13380  E00532C 08              		PHP
 13381  E00532D A9 0001         		LDA	#00001
 13382  E005330 28              		PLP
 13383  E005331 30 01           		BMI	BOBC070		;foot cross ? ( yes:BOBC070 )
 13384  
 13385  E005333 0A              		ASL	A		;[ LDA	#00002 ]
 13386  
 13387          005334          BOBC070		EQU	$
 13388  E005334 0C 7860         		TSB	ENCBFG+BABY_INDEX
 13389                          ;
 13390                          ;-------------- hed cross -------------------------------
 13391                          ;		CLC
 13392                          ;		ADC	ENYPSL+BABY_INDEX
 13393                          ;		STA	ENYPSL+BABY_INDEX	;player foot pos hosei
 13394                          ;		BRA	BOBC080
 13395                          ;
 13396                          ;;-------------- foot cross ------------------------------
 13397                          ;BOBC070		EQU	$
 13398                          ;		SEC
 13399                          ;		ADC	ENYPSL+BABY_INDEX
 13400                          ;		STA	ENYPSL+BABY_INDEX	;player foot pos hosei
 13401                          ;		LDA	ENYPSL,X
 13402                          ;		SEC
 13403                          ;		SBC	ENYP2L
 13404                          ;		SEC
 13405                          ;		ADC	ENYPSL+BABY_INDEX
 13406                          ;		STA	ENYPSL+BABY_INDEX
 13407                          ;		LDY	ENYSPD+BABY_INDEX+1
 13408                          ;		BMI	BOBC100		;player jump up ? ( yes:BOBC100 )
 13409                          ;
 13410                          ;		LDA	ENMOVX,X
 13411                          ;		CLC
 13412                          ;		ADC	ENXPSL+BABY_INDEX
 13413                          ;		STA	ENXPSL+BABY_INDEX		;player X pos hosei
 13414                          ;		INC	<EWORKE		;(EWKE,F) <-- foot cross flag "ON"
 13415                          ;		LDA	ENYSPD+BABY_INDEX
 13416                          ;		STA	<EWORKC		;(EWKC,F) <-- foot cross player Y speed
 13417                          ;
 13418                          ;		LDA	ENMOD2,X	;範囲クリアなし
 13419                          ;		AND	#1111111111110011B
 13420                          ;		STA	ENMOD2,X
 13421                          ;
 13422                          ;BOBC080		EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0229

 13423                          ;		LDA	ENYSPD,X
 13424                          ;		BPL	BOBC082
 13425                          ;		LDA	#00
 13426                          ;BOBC082		EQU	$
 13427                          ;		STA	ENYSPD+BABY_INDEX	;player Y speed set
 13428  E005337 38              		SEC
 13429  E005338 6B              		RTL
 13430                          ;
 13431                          ;-------------- side cross --------------------------------------
 13432          005339          BOBC090		EQU	$
 13433  E005339 A6 06           		LDX	<EWORK6
 13434  E00533B AD 70E2         		LDA	ENXPSL+BABY_INDEX
 13435  E00533E 18              		CLC
 13436  E00533F 7F 00528D'      		ADC	>BOBBGXA,X
 13437  E005343 8D 70E2         		STA	ENXPSL+BABY_INDEX	;player X pos hosei
 13438  E005346 AD 7220         		LDA	ENXSPD+BABY_INDEX
 13439  E005349 5F 00528D'      		EOR	>BOBBGXA,X
 13440  E00534D 10 0A           		BPL	BOBC092		;player X speed clear ok muki ? ( no:BOBC092 )
 13441  
 13442  E00534F AD 7220         		LDA	ENXSPD+BABY_INDEX
 13443  E005352 49 FFFF         		EOR	#0FFFFH
 13444  E005355 1A              		INC	A
 13445  E005356 8D 7220         		STA	ENXSPD+BABY_INDEX
 13446          005359          BOBC092		EQU	$
 13447  E005359 A6 12           		LDX	<ENINDX
 13448          00535B          BOBC100		EQU	$
 13449  E00535B 18              		CLC
 13450  E00535C 6B              		RTL
 13451                          ;
 13452                          ;************************************************************************
 13453                          ;*									*
 13454                          ;*		プレイヤーとの衝突状態チェック				*
 13455                          ;*			out : (A) <-- 衝突状態				*
 13456                          ;*				      ０：右  ２：左  ４：上  ６：下	*
 13457                          ;*									*
 13458                          ;************************************************************************
 13459          00535D          PLCRMKCK	EQU	$
 13460  E00535D AD 6122         		LDA	PWIDEY
 13461  E005360 18              		CLC
 13462  E005361 7D 7BB8         		ADC	EWIDEY,X
 13463  E005364 85 00           		STA	<EWORK0
 13464  E005366 18              		CLC
 13465  E005367 7D 7C18         		ADC	EPWIDY,X
 13466  E00536A 85 08           		STA	<EWORK8		;(EWK8,9) <-- hed cross dot
 13467                          ;
 13468  E00536C BD 7C18         		LDA	EPWIDY,X
 13469  E00536F 38              		SEC
 13470  E005370 E5 00           		SBC	<EWORK0
 13471  E005372 85 0A           		STA	<EWORKA		;(EWKA,B) <-- foot cross dot
 13472                          ;
 13473  E005374 A0 04           		LDY	#04H
 13474  E005376 18              		CLC
 13475  E005377 65 08           		ADC	<EWORK8
 13476  E005379 30 02           		BMI	PLCRMKCK_010	;hed cross ? ( yes:PLCRMKCK_010 )
 13477  E00537B A0 06           		LDY	#06H
 13478          00537D          PLCRMKCK_010	EQU	$
 13479  E00537D 84 0C           		STY	<EWORKC		;(EWKC) <-- hed or foot cross muki
 13480                          ;
 13481  E00537F AD 6120         		LDA	PWIDEX
 13482  E005382 18              		CLC
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0230

 13483  E005383 7D 7BB6         		ADC	EWIDEX,X
 13484  E005386 85 00           		STA	<EWORK0
 13485  E005388 18              		CLC
 13486  E005389 7D 7C16         		ADC	EPWIDX,X
 13487  E00538C 85 02           		STA	<EWORK2		;(EWK2,3) <-- right cross dot
 13488                          ;
 13489  E00538E BD 7C16         		LDA	EPWIDX,X
 13490  E005391 38              		SEC
 13491  E005392 E5 00           		SBC	<EWORK0
 13492  E005394 85 04           		STA	<EWORK4		;(EWK4,5) <-- left cross dot
 13493                          ;
 13494  E005396 A0 00           		LDY	#00H
 13495  E005398 18              		CLC
 13496  E005399 65 02           		ADC	<EWORK2
 13497  E00539B 30 02           		BMI	PLCRMKCK_020	;right cross ? ( yes:PLCRMKCK_020 )
 13498  E00539D A0 02           		LDY	#02H
 13499          00539F          PLCRMKCK_020	EQU	$
 13500  E00539F 84 06           		STY	<EWORK6		;(EWK6) <-- side cross muki
 13501                          ;
 13502  E0053A1 B9 7962         		LDA	EWORK2,Y
 13503  E0053A4 10 04           		BPL	PLCRMKCK_030
 13504  E0053A6 49 FFFF         		EOR	#0FFFFH
 13505  E0053A9 1A              		INC	A
 13506          0053AA          PLCRMKCK_030	EQU	$
 13507  E0053AA 85 00           		STA	<EWORK0
 13508  E0053AC A4 0C           		LDY	<EWORKC
 13509  E0053AE B9 7964         		LDA	EWORK8-4,Y
 13510  E0053B1 10 04           		BPL	PLCRMKCK_040
 13511  E0053B3 49 FFFF         		EOR	#0FFFFH
 13512  E0053B6 1A              		INC	A
 13513          0053B7          PLCRMKCK_040	EQU	$
 13514  E0053B7 C5 00           		CMP	<EWORK0
 13515  E0053B9 B0 05           		BCS	PLCRMKCK_050	;side cross ? ( yes:PLCRMKCK_050 )
 13516                          ;
 13517  E0053BB C9 0008         		CMP	#08H
 13518  E0053BE 90 02           		BCC	PLCRMKCK_060	;cross ok ? ( yes:PLCRMKCK_060 )
 13519                          ;
 13520          0053C0          PLCRMKCK_050	EQU	$
 13521  E0053C0 A4 06           		LDY	<EWORK6
 13522                          ;
 13523          0053C2          PLCRMKCK_060	EQU	$
 13524  E0053C2 6B              		RTL
 13525                          ;
 13526                          ;************************************************************************
 13527                          ;*									*
 13528                          ;*		存在チェックルーチン					*
 13529                          ;*									*
 13530                          ;*		ｂｙ　悪にむりやり組まされたかわいそうな市民１号	*
 13531                          ;*									*
 13532                          ;************************************************************************
 13533          0053C3          EXCHK_BUF_ADR	EQU	$
 13534  E0053C3 03C0            		WORD	SV_COIN_BF0
 13535  E0053C5 0440            		WORD	SV_COIN_BF1
 13536  E0053C7 04C0            		WORD	SV_COIN_BF2
 13537  E0053C9 0540            		WORD	SV_COIN_BF3
 13538          0053CB          CHECK_BIT_DATA	EQU	$
 13539  E0053CB 8000            		WORD	1000000000000000B
 13540  E0053CD 4000            		WORD	0100000000000000B
 13541  E0053CF 2000            		WORD	0010000000000000B
 13542  E0053D1 1000            		WORD	0001000000000000B
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0231

 13543  E0053D3 0800            		WORD	0000100000000000B
 13544  E0053D5 0400            		WORD	0000010000000000B
 13545  E0053D7 0200            		WORD	0000001000000000B
 13546  E0053D9 0100            		WORD	0000000100000000B
 13547  E0053DB 0080            		WORD	0000000010000000B
 13548  E0053DD 0040            		WORD	0000000001000000B
 13549  E0053DF 0020            		WORD	0000000000100000B
 13550  E0053E1 0010            		WORD	0000000000010000B
 13551  E0053E3 0008            		WORD	0000000000001000B
 13552  E0053E5 0004            		WORD	0000000000000100B
 13553  E0053E7 0002            		WORD	0000000000000010B
 13554  E0053E9 0001            		WORD	0000000000000001B
 13555                          ;
 13556          0053EB          NON_EXIST_SET	EQU	$
 13557  E0053EB BD 70E2         		LDA	ENXPSL,X
 13558  E0053EE 85 04           		STA	<EWORK4
 13559  E0053F0 BD 7182         		LDA	ENYPSL,X
 13560  
 13561          0053F3          NON_EXIST_SET2	EQU	$
 13562  E0053F3 85 06           		STA	<EWORK6
 13563          0053F5          NON_EXIST_SET3	EQU	$
 13564  E0053F5 38              		SEC
 13565  E0053F6 80 1D           		BRA	EXIST_CHECK0100
 13566  
 13567          0053F8          EXIST_CHECK2	EQU	$
 13568  E0053F8 BD 70E2         		LDA	ENXPSL,X
 13569  E0053FB 85 04           		STA	<EWORK4
 13570  E0053FD BD 7182         		LDA	ENYPSL,X
 13571  
 13572          005400          EXIST_CHECK_S2	EQU	$
 13573  E005400 85 06           		STA	<EWORK6
 13574          005402          EXIST_CHECK_S3	EQU	$
 13575  E005402 A0 02           		LDY	#002
 13576  E005404 80 0C           		BRA	EXIST_CHECK0080
 13577  
 13578          005406          EXIST_CHECK	EQU	$
 13579  E005406 BD 70E2         		LDA	ENXPSL,X
 13580  E005409 85 04           		STA	<EWORK4
 13581  E00540B BD 7182         		LDA	ENYPSL,X
 13582  
 13583          00540E          EXIST_CHECK_S	EQU	$
 13584  E00540E 85 06           		STA	<EWORK6
 13585  E005410 A0 00           		LDY	#000
 13586  
 13587          005412          EXIST_CHECK0080 EQU	$
 13588  E005412 84 0E           		STY	<EWORKE
 13589  E005414 18              		CLC
 13590  
 13591          005415          EXIST_CHECK0100 EQU	$
 13592  E005415 08              		PHP
 13593                          		I16
 13593+ E005416 C2 10           		REP	#00010000b	
 13594  E005418 DA              		PHX
 13595  E005419 A5 04           		LDA	<EWORK4
 13596  E00541B 29 00F0         		AND	#000F0H
 13597  E00541E 4A              		LSR	A
 13598  E00541F 4A              		LSR	A
 13599  E005420 4A              		LSR	A
 13600  E005421 AA              		TAX
 13601  E005422 BF 0053CB'      		LDA	>CHECK_BIT_DATA,X
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0232

 13602  E005426 85 0C           		STA	<EWORKC
 13603  E005428 FA              		PLX
 13604  E005429 DA              		PHX
 13605  
 13606  E00542A AD 0150         		LDA	CORSNO
 13607  E00542D 0A              		ASL	A
 13608  E00542E A8              		TAY
 13609  
 13610  E00542F A5 06           		LDA	<EWORK6		;BG data buffer clear addr. calc.
 13611  E005431 29 0700         		AND	#00700H		;
 13612  E005434 4A              		LSR	A		;
 13613  E005435 4A              		LSR	A		;
 13614  E005436 4A              		LSR	A		;
 13615  E005437 4A              		LSR	A		;
 13616  E005438 85 00           		STA	<EWORK0		;
 13617  E00543A A5 05           		LDA	<EWORK4+1	;
 13618  E00543C 29 000F         		AND	#0000FH		;
 13619  E00543F 05 00           		ORA	<EWORK0		;
 13620  E005441 AA              		TAX			;
 13621  E005442 BD 6CAA         		LDA	UNBUFAD,X
 13622  E005445 29 003F         		AND	#0003FH
 13623  E005448 0A              		ASL	A
 13624  E005449 BB              		TYX
 13625  E00544A 18              		CLC
 13626  E00544B 7F 0053C3'      		ADC	>EXCHK_BUF_ADR,X
 13627  E00544F 85 02           		STA	<EWORK2
 13628  E005451 B2 02           		LDA	(EWORK2)
 13629  E005453 FA              		PLX
 13630                          		I8
 13630+ E005454 E2 10           		SEP	#00010000b	
 13631  E005456 28              		PLP				;ビットクリア ?
 13632  E005457 B0 11           		BCS	EXIST_CHECK0900		; yes: EXIST_CHECK0900
 13633  
 13634  E005459 25 0C           		AND	<EWORKC			;存在してる ?
 13635  E00545B F0 0C           		BEQ	EXIST_CHECK0800		; yes: EXIST_CHECK0800
 13636  
 13637  E00545D A4 0E           		LDY	<EWORKE
 13638  E00545F D0 08           		BNE	EXIST_CHECK0800
 13639  
 13640  E005461 22 00232E'      		JSL	>ENCLEAR_NORETN
 13641  
 13642  E005465 7A              		PLY
 13643  E005466 68              		PLA
 13644  E005467 A0 02           		LDY	#002		;存在してなかったらＢＮＥできけるように
 13645  
 13646          005469          EXIST_CHECK0800 EQU	$
 13647  
 13648  E005469 6B              		RTL
 13649                          ;
 13650          00546A          EXIST_CHECK0900 EQU	$
 13651  E00546A 05 0C           		ORA	<EWORKC
 13652  E00546C 92 02           		STA	(EWORK2)
 13653  
 13654  E00546E 6B              		RTL
 13655                          ;
 13656                          ;
 13657                          ;
 13658                          ;************************************************************************
 13659                          ;*									*
 13660                          ;*		特殊モード初期セットルーチンテーブル			*
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0233

 13661                          ;*									*
 13662                          ;************************************************************************
 13663          00546D          ESINIT		EQU	$-2
 13664  E00546F 555B'           		WORD	CHNG_CHR_INIT	;キャラクター入れ替えモード（地下）
 13665  E005471 555B'           		WORD	CHNG_CHR_INIT	;		”	   （草）
 13666  E005473 555B'           		WORD	CHNG_CHR_INIT	;		”	   （水中）
 13667  E005475 555B'           		WORD	CHNG_CHR_INIT	;		”	   （溶岩）
 13668  E005477 555B'           		WORD	CHNG_CHR_INIT	;		”	   （雪）
 13669  E005479 555B'           		WORD	CHNG_CHR_INIT	;		”	   （バブル）
 13670  E00547B 555B'           		WORD	CHNG_CHR_INIT	;		”	   （カベ）
 13671  E00547D 555B'           		WORD	CHNG_CHR_INIT	;		”	   （パーステスト）
 13672  E00547F 555B'           		WORD	CHNG_CHR_INIT	;		”	   （地下’）
 13673  E005481 555B'           		WORD	CHNG_CHR_INIT	;		”	   （草’）
 13674  E005483 555B'           		WORD	CHNG_CHR_INIT	;		”	   （水中’）
 13675  E005485 555B'           		WORD	CHNG_CHR_INIT	;		”	   （溶岩’）
 13676  E005487 555B'           		WORD	CHNG_CHR_INIT	;		”	   （雪’）
 13677  E005489 555B'           		WORD	CHNG_CHR_INIT	;		”	   （バブル’）
 13678  E00548B 555B'           		WORD	CHNG_CHR_INIT	;		”	   （カベ’）
 13679  E00548D 555B'           		WORD	CHNG_CHR_INIT	;		”	   （パーステスト’）
 13680                          ;
 13681  E00548F 583D'           		WORD	ATSCRL_0_IN	;オートスクロール（AT_00）
 13682  E005491 583D'           		WORD	ATSCRL_0_IN	;	 ”	 （）
 13683  E005493 583D'           		WORD	ATSCRL_0_IN	;	 ”	 （）
 13684  E005495 583D'           		WORD	ATSCRL_0_IN	;	 ”	 （）
 13685  E005497 583D'           		WORD	ATSCRL_0_IN	;	 ”	 （）
 13686  E005499 583D'           		WORD	ATSCRL_0_IN	;	 ”	 （）
 13687  E00549B 583D'           		WORD	ATSCRL_0_IN	;	 ”	 （）
 13688  E00549D 583D'           		WORD	ATSCRL_0_IN	;	 ”	 （）
 13689  E00549F 583D'           		WORD	ATSCRL_0_IN	;	 ”	 （）
 13690  E0054A1 583D'           		WORD	ATSCRL_0_IN	;	 ”	 （）
 13691  E0054A3 583D'           		WORD	ATSCRL_0_IN	;	 ”	 （）
 13692                          ;;;;;;;;		WORD	ATSCRL_0_IN	;	 ”	 （）
 13693                          ;
 13694  E0054A5 63B1'           		WORD	BTLS_EN_IN	;バルーンテレサのＥＮＤ
 13695                          ;
 13696  E0054A7 62B5'           		WORD	SCRL_MAX_IN	;ＭＡＸスクロール値セット
 13697                          ;
 13698  E0054A9 59CA'           		WORD	TUMUJ_ST_IN	;つむじ風のわきだしスタート
 13699  E0054AB 5A58'           		WORD	TUMUJ_EN_IN	;	  ”	   ＥＮＤ
 13700                          ;
 13701  E0054AD 5A5E'           		WORD	JUGEM_EN_IN	;ジュゲムのわきだしＥＮＤ
 13702                          ;
 13703  E0054AF 5A64'           		WORD	WATAB_EN_IN	;わたぼーのわきだしＥＮＤ
 13704                          ;
 13705  E0054B1 5A6A'           		WORD	POCHI_EN_IN	;ぽちのわきだしＥＮＤ
 13706                          ;
 13707  E0054B3 5A70'           		WORD	KOMOR_ST_IN	;こうもりのわきだしスタート
 13708  E0054B5 5B85'           		WORD	KOMOR_EN_IN	;	  "        ＥＮＤ
 13709  E0054B7 5A70'           		WORD	KOMR2_ST_IN	;こうもりのわきだしスタート
 13710  E0054B9 5B85'           		WORD	KOMR2_EN_IN	;	  "        ＥＮＤ
 13711                          ;
 13712  E0054BB 5B8B'           		WORD	AJGM0_ST_IN	;穴ジュゲムのわきだしスタート
 13713  E0054BD 5C2E'           		WORD	AJGM0_EN_IN	;	  "        ＥＮＤ
 13714                          ;
 13715  E0054BF 5C38'           		WORD	BAMBO_S0_IN	;ばんぶーダンサーズ	ダンス
 13716  E0054C1 5DA3'           		WORD	BAMBO_EN_IN	;	　		エンド
 13717                          ;
 13718  E0054C3 5DB8'           		WORD	THJGM_EN_IN	; 雷ジュゲムのわきだしＥＮＤ
 13719                          ;
 13720  E0054C5 5DBE'           		WORD	MOTH0_ST_IN	; 花ちゃん成虫のわきだしスタート
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0234

 13721  E0054C7 5E5A'           		WORD	MOTH0_EN_IN	; 花ちゃん成虫のわきだし終了
 13722                          ;
 13723  E0054C9 5E60'           		WORD	P_KUN_ST_IN	; プチパックンのわきだしスタート
 13724  E0054CB 5F0C'           		WORD	P_KUN_EN_IN	; プチパックンのわきだし終了
 13725                          ;
 13726  E0054CD 5F12'           		WORD	FUSBO_ST_IN	; 風船仙人掌のわきだしスタート
 13727  E0054CF 5FF0'           		WORD	FUSBO_EN_IN	; 風船仙人掌のわきだし終了
 13728  E0054D1 5FF6'           		WORD	FUBOM_ST_IN	; 風船爆弾のわきだしスタート
 13729  E0054D3 60AD'           		WORD	FUBOM_EN_IN	; 風船爆弾のわきだし終了
 13730                          ;
 13731  E0054D5 60B3'           		WORD	FUSEN_ST_IN	;風船リフトのわきだしスタート
 13732  E0054D7 6124'           		WORD	FUSEN_EN_IN	;	  "          ＥＮＤ
 13733                          ;
 13734  E0054D9 6142'           		WORD	RPL_0_ST_IN	;ロープリフトタイプ０セット
 13735                          ;
 13736  E0054DB 61E2'           		WORD	SSLIM_ST_IN	;ちびぷよのわきだしスタート
 13737  E0054DD 62A1'           		WORD	SSLIM_EN_IN	;	  "        ＥＮＤ
 13738                          ;
 13739  E0054DF 62A7'           		WORD	FURA_EN_IN	;ワタボー”フラフラ”キャンセル
 13740                          ;
 13741  E0054E1 62C6'           		WORD	AHOB_EN_IN	;あほーどりのわきだしＥＮＤ
 13742                          ;
 13743  E0054E3 62CC'           		WORD	WATAB_ST_IN	;わたぼーのわきだしスタート
 13744                          ;
 13745                          ;************************************************************************
 13746                          ;*									*
 13747                          ;*		特殊モード処理ルーチンテーブル				*
 13748                          ;*									*
 13749                          ;************************************************************************
 13750          0054E3          ESMOVE		EQU	$-2
 13751  E0054E5 5615'           		WORD	CHNG_CHR_MOVE	;キャラクター入れ替えモード（地下）
 13752  E0054E7 5615'           		WORD	CHNG_CHR_MOVE	;		”	   （草）
 13753  E0054E9 5615'           		WORD	CHNG_CHR_MOVE	;		”	   （水中）
 13754  E0054EB 5615'           		WORD	CHNG_CHR_MOVE	;		”	   （溶岩）
 13755  E0054ED 5615'           		WORD	CHNG_CHR_MOVE	;		”	   （雪）
 13756  E0054EF 5615'           		WORD	CHNG_CHR_MOVE	;		”	   （バブル）
 13757  E0054F1 5615'           		WORD	CHNG_CHR_MOVE	;		”	   （カベ）
 13758  E0054F3 5615'           		WORD	CHNG_CHR_MOVE	;		”	   （パーステスト）
 13759  E0054F5 5615'           		WORD	CHNG_CHR_MOVE	;		”	   （地下’）
 13760  E0054F7 5615'           		WORD	CHNG_CHR_MOVE	;		”	   （草’）
 13761  E0054F9 5615'           		WORD	CHNG_CHR_MOVE	;		”	   （水中’）
 13762  E0054FB 5615'           		WORD	CHNG_CHR_MOVE	;		”	   （溶岩’）
 13763  E0054FD 5615'           		WORD	CHNG_CHR_MOVE	;		”	   （雪’）
 13764  E0054FF 5615'           		WORD	CHNG_CHR_MOVE	;		”	   （バブル’）
 13765  E005501 5615'           		WORD	CHNG_CHR_MOVE	;		”	   （カベ’）
 13766  E005503 5615'           		WORD	CHNG_CHR_MOVE	;		”	   （パーステスト’）
 13767                          ;
 13768  E005505 58D7'           		WORD	ATSCRL_0_MV	;オートスクロール（AT_00）
 13769  E005507 58D7'           		WORD	ATSCRL_0_MV	;	 ”	 （）
 13770  E005509 58D7'           		WORD	ATSCRL_0_MV	;	 ”	 （）
 13771  E00550B 58D7'           		WORD	ATSCRL_0_MV	;	 ”	 （）
 13772  E00550D 58D7'           		WORD	ATSCRL_0_MV	;	 ”	 （）
 13773  E00550F 58D7'           		WORD	ATSCRL_0_MV	;	 ”	 （）
 13774  E005511 58D7'           		WORD	ATSCRL_0_MV	;	 ”	 （）
 13775  E005513 58D7'           		WORD	ATSCRL_0_MV	;	 ”	 （）
 13776  E005515 58D7'           		WORD	ATSCRL_0_MV	;	 ”	 （）
 13777  E005517 58D7'           		WORD	ATSCRL_0_MV	;	 ”	 （）
 13778  E005519 58D7'           		WORD	ATSCRL_0_MV	;	 ”	 （）
 13779                          ;[1995.06.03.SA]		WORD	ATSCRL_0_MV	;	 ”	 （）
 13780                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0235

 13781  E00551B 279B'           		WORD	RTSSUB		;バルーンテレサのＥＮＤ
 13782                          ;
 13783  E00551D 279B'           		WORD	RTSSUB		;ＭＡＸスクロール値セット
 13784                          ;
 13785  E00551F 59E6'           		WORD	TUMUJ_ST_MV	;つむじ風のわきだしスタート
 13786  E005521 279B'           		WORD	RTSSUB		;	  ”	   ＥＮＤ
 13787                          ;
 13788  E005523 279B'           		WORD	RTSSUB		;ジュゲムのわきだしＥＮＤ
 13789                          ;
 13790  E005525 279B'           		WORD	RTSSUB		;わたぼーのわきだしＥＮＤ
 13791                          ;
 13792  E005527 279B'           		WORD	RTSSUB		;ぽちのわきだしＥＮＤ
 13793                          ;
 13794  E005529 5A80'           		WORD	KOMOR_ST_MV	;こうもりのわきだしスタート
 13795  E00552B 279B'           		WORD	RTSSUB		;	  ”	   ＥＮＤ
 13796  E00552D 5AEB'           		WORD	KOMR2_ST_MV	;こうもりのわきだしスタート
 13797  E00552F 279B'           		WORD	RTSSUB		;	  ”	   ＥＮＤ
 13798                          ;
 13799  E005531 5BB7'           		WORD	AJGM0_ST_MV	;穴ジュゲムのわきだしスタート
 13800  E005533 279B'           		WORD	RTSSUB		;	  ”	   ＥＮＤ
 13801                          ;
 13802  E005535 5CEC'           		WORD	BAMBO_S0_MV	;ばんぶーダンサーズ	ダンス
 13803  E005537 279B'           		WORD	RTSSUB		;	　		エンド
 13804                          ;
 13805  E005539 279B'           		WORD	RTSSUB		; 雷ジュゲムのわきだしＥＮＤ
 13806                          ;
 13807  E00553B 5DDA'           		WORD	MOTH0_ST_MV	; 花ちゃん成虫のわきだしスタート
 13808  E00553D 279B'           		WORD	RTSSUB		; 花ちゃん成虫のわきだし終了
 13809                          ;
 13810  E00553F 5E94'           		WORD	P_KUN_ST_MV	; プチパックンのわきだしスタート
 13811  E005541 279B'           		WORD	RTSSUB		; プチパックンのわきだし終了
 13812                          ;
 13813  E005543 5F2E'           		WORD	FUSBO_ST_MV	; 風船仙人掌のわきだしスタート
 13814  E005545 279B'           		WORD	RTSSUB		; 風船仙人掌のわきだし終了
 13815                          ;
 13816  E005547 6002'           		WORD	FUBOM_ST_MV	; 風船爆弾のわきだしスタート
 13817  E005549 279B'           		WORD	RTSSUB		; 風船爆弾のわきだし終了
 13818                          ;
 13819  E00554B 60BF'           		WORD	FUSEN_ST_MV	;風船リフトのわきだしスタート
 13820  E00554D 279B'           		WORD	RTSSUB		;	  "          ＥＮＤ
 13821                          ;
 13822  E00554F 6190'           		WORD	RPL_0_ST_MV	;ロープリフトタイプ０範囲外チェック
 13823                          ;
 13824  E005551 61FB'           		WORD	SSLIM_ST_MV	;ちびぷよのわきだしスタート
 13825  E005553 279B'           		WORD	RTSSUB		;	  "        ＥＮＤ
 13826                          ;
 13827  E005555 279B'           		WORD	RTSSUB		;ワタボー”フラフラ”キャンセル
 13828                          ;
 13829  E005557 279B'           		WORD	RTSSUB		;あほーどりのわきだしＥＮＤ
 13830                          ;
 13831  E005559 630E'           		WORD	WATAB_ST_MV	;わたぼーのわきだしスタート
 13832                          ;
 13833                          		MEM16
 13834                          		IDX16
 13835                          ;
 13836                          ;************************************************************************
 13837                          ;*		キャラクター入れ替えモード初期セット			*
 13838                          ;************************************************************************
 13839          00555B          CHNG_CHR_INIT	EQU	$
 13840  E00555B AD 7960         		LDA	EWORK0
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0236

 13841  E00555E 4A              		LSR	A
 13842  E00555F B0 1D           		BCS	CHNG_COL_INIT	;カラー入れ替え？ ( yes:CHNG_COL_INIT )
 13843                          ;
 13844  E005561 B9 0C04         		LDA	ESMODE,Y
 13845  E005564 38              		SEC
 13846  E005565 E9 0001         		SBC	#(CH_00-ENEND)+1
 13847  E005568 CD 0136         		CMP	BG1TYP
 13848  E00556B D0 03           		BNE	CHNG_CHR_I_010	;今のキャラクラーと同じ？ ( no:CHNG_CHR_I_010 )
 13849  E00556D 4C 562C'        		JMP	ESCLEAR
 13850                          ;
 13851          005570          CHNG_CHR_I_010	EQU	$
 13852  E005570 8D 0136         		STA	BG1TYP		;キャラクタータイプ変更
 13853                          ;
 13854                          ;-------------- 転送エリア開放 ------------------------------------------
 13855  E005573 22 0055E4'      		JSL	>TROBJ_CANCEL
 13856                          ;
 13857                          ;-------------- ＲＡＭ初期セット ----------------------------------------
 13858  E005577 9C 0C14         		STZ	CHNG_CHR_CNT	;カウンター初期セット
 13859  E00557A 9C 0C16         		STZ	CHNG_CHR_BYTE	;解凍データバイト数初期セット
 13860  E00557D 60              		RTS
 13861                          ;
 13862                          ;------------------------------------------------------------------------
 13863                          ;-		カラー入れ替え						-
 13864                          ;------------------------------------------------------------------------
 13865          00557E          CHNG_COL_INIT	EQU	$
 13866  E00557E B9 0C04         		LDA	ESMODE,Y
 13867  E005581 38              		SEC
 13868  E005582 E9 0001         		SBC	#(CH_00-ENEND)+1
 13869  E005585 CD 0138         		CMP	BG1COL
 13870  E005588 F0 57           		BEQ	CHNG_COL_I_030	;今のカラーと同じ？ ( yes:CHNG_COL_I_030 )
 13871                          ;
 13872  E00558A 8D 0138         		STA	BG1COL		;カラータイプ変更
 13873                          ;
 13874                          ;-------------- カラー入れ替え ------------------------------------------
 13875  E00558D 0A              		ASL	A
 13876  E00558E AA              		TAX
 13877  E00558F BF 000000"      		LDA	>BG1COLBK,X
 13878  E005593 AA              		TAX
 13879                          ;
 13880  E005594 5A              		PHY			;(Y) save
 13881  E005595 8B              		PHB			;(DBR) save
 13882  E005596 F4 7020         		PEA	DATACOL/100H	;(DBR) <-- DATACOL(B)
 13883  E005599 AB              		PLB
 13884  E00559A AB              		PLB
 13885                          ;
 13886  E00559B A0 001C         		LDY	#(0FH-1)*2
 13887          00559E          CHNG_COL_I_010	EQU	$
 13888  E00559E BF 5FA01C       		LDA	>COL_ADDRESS+(0FH*1-1)*2,X
 13889  E0055A2 99 2082         		STA	DATACOL+(41H*2),Y
 13890  E0055A5 99 2DEE         		STA	MOTOCOL+(41H*2),Y
 13891  E0055A8 BF 5FA03A       		LDA	>COL_ADDRESS+(0FH*2-1)*2,X
 13892  E0055AC 99 20A2         		STA	DATACOL+(51H*2),Y
 13893  E0055AF 99 2E0E         		STA	MOTOCOL+(51H*2),Y
 13894  E0055B2 CA              		DEX
 13895  E0055B3 CA              		DEX
 13896  E0055B4 88              		DEY
 13897  E0055B5 88              		DEY
 13898  E0055B6 10 E6           		BPL	CHNG_COL_I_010
 13899                          ;
 13900  E0055B8 A0 0006         		LDY	#(04H-1)*2
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0237

 13901          0055BB          CHNG_COL_I_020	EQU	$
 13902  E0055BB BF 5FA060       		LDA	>COL_ADDRESS+(04H*1-1)*2+(0FH*2)*2+(0FH*2),X
 13903  E0055BF 99 2038         		STA	DATACOL+(1CH*2),Y
 13904  E0055C2 99 2DA4         		STA	MOTOCOL+(1CH*2),Y
 13905  E0055C5 BF 5FA068       		LDA	>COL_ADDRESS+(04H*2-1)*2+(0FH*2)*2+(0FH*2),X
 13906  E0055C9 99 2058         		STA	DATACOL+(2CH*2),Y
 13907  E0055CC 99 2DC4         		STA	MOTOCOL+(2CH*2),Y
 13908  E0055CF BF 5FA070       		LDA	>COL_ADDRESS+(04H*3-1)*2+(0FH*2)*2+(0FH*2),X
 13909  E0055D3 99 2078         		STA	DATACOL+(3CH*2),Y
 13910  E0055D6 99 2DE4         		STA	MOTOCOL+(3CH*2),Y
 13911  E0055D9 CA              		DEX
 13912  E0055DA CA              		DEX
 13913  E0055DB 88              		DEY
 13914  E0055DC 88              		DEY
 13915  E0055DD 10 DC           		BPL	CHNG_COL_I_020
 13916                          ;
 13917  E0055DF AB              		PLB
 13918  E0055E0 7A              		PLY
 13919                          ;
 13920          0055E1          CHNG_COL_I_030	EQU	$
 13921  E0055E1 4C 562C'        		JMP	ESCLEAR
 13922                          ;
 13923                          ;------------------------------------------------------------------------
 13924                          ;-		転送エリア開放						-
 13925                          ;------------------------------------------------------------------------
 13926          0055E4          TROBJ_CANCEL	EQU	$
 13927  E0055E4 DA              		PHX			;(X) save
 13928  E0055E5 5A              		PHY			;(Y) save
 13929  E0055E6 08              		PHP			;(P) save
 13930                          ;
 13931                          		M16
 13931+ E0055E7 C2 20           		REP	#00100000b	
 13932                          		I8
 13932+ E0055E9 E2 10           		SEP	#00010000b	
 13933                          ;
 13934  E0055EB A2 5C           		LDX	#(ENNO-1)*4
 13935          0055ED          TROBJ_CANCEL_10 EQU	$
 13936  E0055ED BD 6F00         		LDA	ENMODE,X
 13937  E0055F0 F0 0D           		BEQ	TROBJ_CANCEL_20 ;敵セット？ ( no:TROBJ_CANCEL_20 )
 13938                          ;
 13939                          ;-------------- 転送エリア放棄 ------------------------------------------
 13940  E0055F2 22 002F0D'      		JSL	>TROBJ_CLEAR_CHK
 13941  E0055F6 BD 7402         		LDA	ENCHPT,X
 13942  E0055F9 29 00FF         		AND	#00FFH
 13943  E0055FC 9D 7402         		STA	ENCHPT,X
 13944          0055FF          TROBJ_CANCEL_20 EQU	$
 13945  E0055FF CA              		DEX
 13946  E005600 CA              		DEX
 13947  E005601 CA              		DEX
 13948  E005602 CA              		DEX
 13949  E005603 10 E8           		BPL	TROBJ_CANCEL_10
 13950  E005605 A9 FFFF         		LDA	#0FFFFH		;転送エリア全確保
 13951  E005608 8D 7ECC         		STA	TROBJ_ARIA
 13952                          ;
 13953  E00560B 28              		PLP			;(P) load
 13954  E00560C 7A              		PLY			;(Y) load
 13955  E00560D FA              		PLX			;(X) load
 13956  E00560E 6B              		RTL
 13957                          ;
 13958                          		MEM16
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0238

 13959                          		IDX16
 13960                          ;
 13961                          ;************************************************************************
 13962                          ;*		キャラクター入れ替えモード処理				*
 13963                          ;************************************************************************
 13964          00560F          CHNG_CHR_VRAD	EQU	$
 13965  E00560F 0000 0800 7000  		WORD	0000H,0800H,7000H
 13966                          ;
 13967          005615          CHNG_CHR_MOVE	EQU	$
 13968  E005615 5A              		PHY			;(Y) save
 13969                          ;
 13970  E005616 A9 0800         		LDA	#0800H		;(EWK0,1) <-- 最大転送バイト数
 13971  E005619 85 00           		STA	<EWORK0
 13972                          ;
 13973  E00561B AD 0C16         		LDA	CHNG_CHR_BYTE
 13974  E00561E D0 4A           		BNE	CHNG_CHR_M_010	;圧縮データの解凍？ ( no:CHNG_CHR_M_010 )
 13975                          ;
 13976  E005620 AD 0C14         		LDA	CHNG_CHR_CNT
 13977  E005623 C9 0003         		CMP	#03
 13978  E005626 D0 18           		BNE	CHNG_CHR_M_000	;終了？ ( no:CHNG_CHR_M_000 )
 13979                          ;
 13980  E005628 7A              		PLY			;(Y) load
 13981                          ;
 13982                          ;-------------- キャラクター入れ替え終了 --------------------------------
 13983  E005629 9C 7ECC         		STZ	TROBJ_ARIA	;転送エリア開放
 13984                          ;
 13985          00562C          ESCLEAR		EQU	$
 13986                          ;
 13987                          		MI8
 13987+ E00562C E2 30           		SEP	#00110000b	
 13988                          ;
 13989  E00562E BE 0C0C         		LDX	ESRETN,Y
 13990  E005631 A9 00           		LDA	#00
 13991  E005633 9F 7028CA       		STA	>EDSWBF,X
 13992                          ;
 13993                          		MI16
 13993+ E005637 C2 30           		REP	#00110000b	
 13994                          ;
 13995          005639          ESCLEAR_NORETN	EQU	$
 13996  E005639 A9 0000         		LDA	#00
 13997  E00563C 99 0C04         		STA	ESMODE,Y
 13998  E00563F 60              		RTS
 13999                          ;
 14000          005640          CHNG_CHR_M_000	EQU	$
 14001  E005640 0A              		ASL	A
 14002  E005641 AA              		TAX
 14003  E005642 BD 560F'        		LDA	!CHNG_CHR_VRAD,X
 14004  E005645 8D 0C18         		STA	CHNG_CHR_VRAM	;転送先ＶＲＡＭアドレスセット
 14005  E005648 A9 6800         		LDA	#WOB7CHR+1000H
 14006  E00564B 8D 0C1A         		STA	CHNG_CHR_DTAD	;転送元アドレスセット
 14007                          ;
 14008  E00564E AD 0136         		LDA	BG1TYP		;x3
 14009  E005651 0A              		ASL	A
 14010                          ;;;;		    CLC
 14011  E005652 6D 0136         		ADC	BG1TYP
 14012                          ;;;;		    CLC
 14013  E005655 6D 0C14         		ADC	CHNG_CHR_CNT
 14014  E005658 AA              		TAX
 14015                          ;
 14016                          ;-------------- 圧縮データの解凍 ----------------------------------------
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0239

 14017  E005659 BF 000000"      		LDA	>BG1CHRBK,X
 14018  E00565D 29 00FF         		AND	#00FFH
 14019  E005660 22 000000"      		JSL	>UNCOMPRES_X
 14020                          ;
 14021  E005664 8D 0C16         		STA	CHNG_CHR_BYTE	;解凍データバイト数セット
 14022  E005667 EE 0C14         		INC	CHNG_CHR_CNT	;カウンターＵＰ
 14023                          ;
 14024          00566A          CHNG_CHR_M_010	EQU	$
 14025  E00566A 38              		SEC
 14026  E00566B E9 0800         		SBC	#0800H
 14027  E00566E B0 08           		BCS	CHNG_CHR_M_020	;解凍データ終り？ ( no:CHNG_CHR_M_020 )
 14028                          ;
 14029                          ;;;;		    CLC
 14030  E005670 69 0800         		ADC	#0800H
 14031  E005673 85 00           		STA	<EWORK0		;(EWK0,1) <-- 転送バイト数
 14032  E005675 A9 0000         		LDA	#00
 14033          005678          CHNG_CHR_M_020	EQU	$
 14034  E005678 8D 0C16         		STA	CHNG_CHR_BYTE	;余りの解凍データバイト数セット
 14035                          ;
 14036  E00567B AE 0C1A         		LDX	CHNG_CHR_DTAD	;(X) <----- 転送元アドレス（Ｌ，Ｈ）
 14037  E00567E 8A              		TXA
 14038  E00567F 18              		CLC
 14039  E005680 65 00           		ADC	<EWORK0
 14040  E005682 8D 0C1A         		STA	CHNG_CHR_DTAD	;次の転送元アドレスセット
 14041  E005685 A9 0070         		LDA	#BANK WOB7CHR
 14042  E005688 8D 0001         		STA	WORK1		;(WK1,2) <-- 転送元アドレス（Ｂ）
 14043  E00568B AC 0C18         		LDY	CHNG_CHR_VRAM	;(Y) <----- ＶＲＡＭアドレス
 14044  E00568E A5 00           		LDA	<EWORK0		;(A) <-- 転送バイト数
 14045  E005690 22 000000"      		JSL	>VRAMDX_ST
 14046                          ;
 14047  E005694 A5 00           		LDA	<EWORK0
 14048  E005696 4A              		LSR	A
 14049  E005697 18              		CLC
 14050  E005698 6D 0C18         		ADC	CHNG_CHR_VRAM
 14051  E00569B 8D 0C18         		STA	CHNG_CHR_VRAM	;次のＶＲＡＭアドレスセット
 14052                          ;
 14053  E00569E 7A              		PLY			;(Y) load
 14054  E00569F 60              		RTS
 14055                          ;
 14056                          ;
 14057                          ;
 14058                          ;
 14059                          ;
 14060                          ;************************************************************************
 14061                          ;*									*
 14062                          ;*		オートスクロール処理					*
 14063                          ;*									*
 14064                          ;************************************************************************
 14065                          ;
 14066                          		MEM16
 14067                          		IDX16
 14068                          ;
 14069          0056A0          AUTO_SCROLL	EQU	$
 14070  E0056A0 8B              		PHB			;(DBR) save
 14071  E0056A1 4B              		PHK			;(DBR) <-- (PBR)
 14072  E0056A2 AB              		PLB
 14073                          ;
 14074  E0056A3 AD 0C1C         		LDA	ATSCRL_FLAG
 14075  E0056A6 0A              		ASL	A
 14076  E0056A7 AA              		TAX
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0240

 14077  E0056A8 FC 54E3'        		JSR	(!ESMOVE,X)
 14078                          ;
 14079  E0056AB AB              		PLB
 14080  E0056AC 6B              		RTL
 14081                          ;
 14082                          ;************************************************************************
 14083                          ;*		オートスクロール（）初期セット				*
 14084                          ;************************************************************************
 14085          0056AD          ATSCRL_0_ADRS	EQU	$
 14086  E0056AD 0000            		WORD	ATSCRL_0_DT_0-ATSCRL_0_DT	;[AT_00]
 14087  E0056AF 000D            		WORD	ATSCRL_0_DT_1-ATSCRL_0_DT	;[AT_01]
 14088  E0056B1 0028            		WORD	ATSCRL_0_DT_2-ATSCRL_0_DT	;[AT_02]
 14089  E0056B3 008C            		WORD	ATSCRL_0_DT_3-ATSCRL_0_DT	;[AT_03]
 14090  E0056B5 00AF            		WORD	ATSCRL_0_DT_4-ATSCRL_0_DT	;[AT_04]
 14091  E0056B7 003E            		WORD	ATSCRL_0_DT_5-ATSCRL_0_DT	;[AT_05]
 14092  E0056B9 0090            		WORD	ATSCRL_0_DT_6-ATSCRL_0_DT	;[AT_06]
 14093  E0056BB 00BC            		WORD	ATSCRL_0_DT_7-ATSCRL_0_DT	;[AT_07]
 14094  E0056BD 00F0            		WORD	ATSCRL_0_DT_8-ATSCRL_0_DT	;[AT_08]
 14095  E0056BF 00F7            		WORD	ATSCRL_0_DT_9-ATSCRL_0_DT	;[AT_09]
 14096  E0056C1 012E            		WORD	ATSCRL_0_DT_A-ATSCRL_0_DT	;[AT_0A]
 14097  E0056C3 0138            		WORD	ATSCRL_0_DT_B-ATSCRL_0_DT	;[AT_0B]
 14098                          ;
 14099          0056C5          ATSCRL_0_DT	EQU	$
 14100                          ;;;6-8 kamec
 14101          0056C5          ATSCRL_0_DT_0	EQU	$
 14102                          ;			X  Y  Speed
 14103  E0056C5 20 00 04        		HEX	20,00,04	;[01]
 14104  E0056C8 30 00 04        		HEX	30,00,04	;[02]
 14105  E0056CB 40 00 04        		HEX	40,00,04	;[03]
 14106  E0056CE 80 00 04        		HEX	80,00,04	;[04]
 14107                          ;
 14108  E0056D1 FF              		HEX	FF	;end code
 14109                          ;
 14110                          ;;;6-8 END
 14111                          ;;ATSCRL_0_DT_0 EQU	$
 14112                          ;;;			X  Y  Speed
 14113                          ;;		HEX	2D,70,08	;[01]
 14114                          ;;		HEX	43,66,08	;[02]
 14115                          ;;		HEX	4C,65,08	;[03]
 14116                          ;;		HEX	4E,54,08	;[04]
 14117                          ;;		HEX	50,51,08	;[04']
 14118                          ;;		HEX	7E,50,08	;[05]
 14119                          ;;		HEX	7F,67,08	;[06]
 14120                          ;;		HEX	78,6F,08	;[07]
 14121                          ;;		HEX	65,70,08	;[08]
 14122                          ;;		HEX	62,6B,08	;[09]
 14123                          ;;		HEX	65,65,08	;[10]
 14124                          ;;		HEX	6A,62,08	;[11]
 14125                          ;;		HEX	8D,61,08	;[12]
 14126                          ;;		HEX	9C,6F,08	;[13]
 14127                          ;;		HEX	D0,70,08	;[14]
 14128                          ;;		HEX	FF	;end code
 14129                          ;
 14130                          ;
 14131                          ;
 14132                          ;;;1-5
 14133          0056D2          ATSCRL_0_DT_1	EQU	$
 14134                          ;			X  Y  Speed
 14135  E0056D2 6E 60 06        		HEX	6E,60,06	;[01]
 14136  E0056D5 63 6A 08        		HEX	63,6A,08	;[02]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0241

 14137  E0056D8 5B 6C 08        		HEX	5B,6C,08	;[03]
 14138  E0056DB 3C 6C 06        		HEX	3C,6C,06	;[03']
 14139  E0056DE 1E 6C 05        		HEX	1E,6C,05	;[04]
 14140  E0056E1 16 69 05        		HEX	16,69,05	;[05]
 14141  E0056E4 10 65 05        		HEX	10,65,05	;[06]
 14142  E0056E7 0C 60 05        		HEX	0C,60,05	;[07]
 14143  E0056EA 09 57 05        		HEX	09,57,05	;[08]
 14144  E0056ED 0A 4D 05        ATSCRL_0_DT_2	HEX	0A,4D,05	;[09]
 14145  E0056F0 10 45 05        		HEX	10,45,05	;[0A]
 14146  E0056F3 1A 36 05        		HEX	1A,36,05	;[0C]
 14147  E0056F6 21 2D 05        		HEX	21,2D,05	;[0D]
 14148  E0056F9 30 2B 08        		HEX	30,2B,08	;[0E]
 14149  E0056FC 40 2E 06        		HEX	40,2E,06	;[0F]
 14150  E0056FF 50 2F 05        		HEX	50,2F,05	;[10]
 14151                          ;;;		HEX	3B,2B,05	;[0F]
 14152                          ;;;		HEX	43,27,05	;[10]
 14153                          ;;;		HEX	50,25,05	;[11]
 14154                          ;;;		HEX	5A,26,05	;[12]
 14155                          ;;;		HEX	68,2E,05	;[13]
 14156                          ;;;		HEX	70,30,05	;[14]
 14157                          ;;;		HEX	88,30,05	;[15]
 14158  E005702 FF              		HEX	FF	;end code
 14159                          ;
 14160                          ;;;1-5 END
 14161                          ;
 14162                          ;;;ATSCRL_0_DT_1	EQU	$
 14163                          ;;;;			X  Y  Speed
 14164                          ;;;		HEX	70,60,08	;[01]
 14165                          ;;;		HEX	68,60,08	;[02]
 14166                          ;;;		HEX	5F,62,08	;[03]
 14167                          ;;;		HEX	51,60,08	;[04]
 14168                          ;;;		HEX	4D,5F,08	;[05]
 14169                          ;;;		HEX	48,61,08	;[06]
 14170                          ;;;		HEX	43,61,08	;[07]
 14171                          ;;;		HEX	3E,5F,08	;[08]
 14172                          ;;;		HEX	39,61,08	;[09]
 14173                          ;;;		HEX	35,61,08	;[10]
 14174                          ;;;		HEX	2F,5F,08	;[11]
 14175                          ;;;		HEX	26,5F,08	;[12]
 14176                          ;;;		HEX	20,60,08	;[13]
 14177                          ;;;		HEX	1B,60,08	;[14]
 14178                          ;;;		HEX	18,61,08	;[15]
 14179                          ;;;		HEX	15,62,08	;[16]
 14180                          ;;;		HEX	10,62,08	;[17]
 14181                          ;;;		HEX	0A,60,08	;[18]
 14182                          ;;;		HEX	05,5E,08	;[18']
 14183                          ;;;		HEX	03,5D,08	;[19]
 14184                          ;;;		HEX	01,59,08	;[20]
 14185                          ;;;		HEX	02,55,08	;[21]
 14186                          ;;;		HEX	02,54,08	;[22]
 14187                          ;;;		HEX	02,50,08	;[22']
 14188                          ;;;		HEX	01,4C,08	;[23]
 14189                          ;;;		HEX	01,46,08	;[24]
 14190                          ;;;		HEX	01,42,08	;[25]
 14191                          ;;;		HEX	01,34,08	;[26]
 14192                          ;;;ATSCRL_0_DT_2	HEX	02,2D,08	;[27]
 14193                          ;;;		HEX	03,26,08	;[28]
 14194                          ;;;		HEX	08,22,08	;[29]
 14195                          ;;;		HEX	0E,1C,08	;[30]
 14196                          ;;;		HEX	14,19,08	;[31]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0242

 14197                          ;;;		HEX	1B,17,08	;[32]
 14198                          ;;;		HEX	28,15,08	;[33]
 14199                          ;;;		HEX	33,14,08	;[34]
 14200                          ;;;		HEX	42,14,08	;[35]
 14201                          ;;;		HEX	50,13,08	;[36]
 14202                          ;;;		HEX	59,10,08	;[37]
 14203                          ;;;		HEX	5C,12,08	;[38]
 14204                          ;;;		HEX	66,12,08	;[39]
 14205                          ;;;		HEX	6E,12,08	;[40]
 14206                          ;;;		HEX	7D,12,08	;[41]
 14207                          ;;;		HEX	FF	;end code
 14208                          ;
 14209                          ;
 14210                          ;
 14211                          ;
 14212                          ;;;;6-5
 14213                          ;;ATSCRL_0_DT_3 EQU	$
 14214                          ;;			X  Y  Speed
 14215                          ;;		HEX	40,20,08	;[12]
 14216                          ;;		HEX	50,20,08	;[13]
 14217                          ;;		HEX	60,20,08	;[14]
 14218                          ;;		HEX	70,20,08	;[15]
 14219                          ;;		HEX	80,20,08	;[16]
 14220                          ;;		HEX	90,20,08	;[17]
 14221                          ;;		HEX	A0,20,08	;[18]
 14222                          ;;		HEX	B0,20,08	;[19]
 14223                          ;;		HEX	C0,20,08	;[20]
 14224                          ;;		HEX	D0,24,08	;[21]
 14225                          ;;		HEX	E0,22,08	;[22]
 14226                          ;;		HEX	E2,29,04	;[23]
 14227                          ;;		HEX	E1,30,06	;[24]
 14228                          ;;		HEX	D8,30,08	;[25]
 14229                          ;;ATSCRL_0_DT_4 HEX	C0,31,08	;[26]
 14230                          ;;		HEX	B2,33,08	;[27]
 14231                          ;;		HEX	B0,38,06	;[28]
 14232                          ;;		HEX	B1,40,08	;[29]
 14233                          ;;		HEX	B4,40,08	;[30]
 14234                          ;;		HEX	C0,40,08	;[31]
 14235                          ;;		HEX	D0,40,08	;[32]
 14236                          ;;		HEX	FF	;end code
 14237          005703          ATSCRL_0_DT_5	EQU	$
 14238                          ;			X  Y  Speed
 14239  E005703 0B 30 08        		HEX	0B,30,08	;[01]
 14240  E005706 13 36 08        		HEX	13,36,08	;[02]
 14241  E005709 1B 37 08        		HEX	1B,37,08	;[03]
 14242  E00570C 23 39 08        		HEX	23,39,08	;[04]
 14243  E00570F 2A 3B 08        		HEX	2A,3B,08	;[05]
 14244  E005712 41 3D 08        		HEX	41,3D,08	;[06]
 14245  E005715 4B 3E 08        		HEX	4B,3E,08	;[07]
 14246  E005718 60 4A 08        		HEX	60,4A,08	;[08]
 14247  E00571B 64 52 08        		HEX	64,52,08	;[09]
 14248  E00571E 66 5D 08        		HEX	66,5D,08	;[0A]
 14249  E005721 6E 61 08        		HEX	6E,61,08	;[0B]
 14250  E005724 71 67 08        		HEX	71,67,08	;[0C]
 14251  E005727 6E 6D 08        		HEX	6E,6D,08	;[0D]
 14252  E00572A 64 70 08        		HEX	64,70,08	;[0E]
 14253  E00572D 54 70 06        		HEX	54,70,06	;[0E']
 14254  E005730 4B 70 04        		HEX	4B,70,04	;[0F]
 14255  E005733 46 68 04        		HEX	46,68,04	;[10]
 14256  E005736 41 5E 04        		HEX	41,5E,04	;[11]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0243

 14257  E005739 41 53 04        		HEX	41,53,04	;[12]
 14258  E00573C 43 4D 04        		HEX	43,4D,04	;[13]
 14259  E00573F 48 4B 06        		HEX	48,4B,06	;[14]
 14260  E005742 51 4C 08        		HEX	51,4C,08	;[15]
 14261  E005745 61 51 08        		HEX	61,51,08	;[16]
 14262  E005748 70 55 08        		HEX	70,55,08	;[17]
 14263  E00574B 82 58 06        		HEX	82,58,06	;[18]
 14264  E00574E 8B 59 04        		HEX	8B,59,04	;[18']
 14265          005751          ATSCRL_0_DT_3	EQU	$
 14266  E005751 A0 59 08        		HEX	A0,59,08	;[18']
 14267  E005754 FF              		HEX	FF	;end code
 14268                          ;
 14269                          ;;		HEX	82,58,06	;[18]
 14270                          ;;		HEX	8B,58,04	;[18']
 14271                          ;;		HEX	A6,58,08	;[19]
 14272                          ;;		HEX	AE,53,08	;[1A]
 14273                          ;;		HEX	C3,53,08	;[1B]
 14274                          ;;		HEX	C9,50,08	;[1C]
 14275                          ;;		HEX	D5,50,08	;[1D]
 14276                          ;;		HEX	FF	;end code
 14277                          ;
 14278          005755          ATSCRL_0_DT_6	EQU	$
 14279                          ;			X  Y  Speed
 14280  E005755 11 5C 10        		HEX	11,5C,10	;[01]
 14281  E005758 18 5C 18        		HEX	18,5C,18	;[02]
 14282  E00575B 1F 5D 20        		HEX	1F,5D,20	;[03]
 14283  E00575E 23 5F 1D        		HEX	23,5F,1D	;[04]
 14284  E005761 30 62 14        		HEX	30,62,14	;[05]
 14285  E005764 50 69 12        		HEX	50,69,12	;[06]
 14286  E005767 71 6A 12        		HEX	71,6A,12	;[07]
 14287  E00576A 8F 64 12        		HEX	8F,64,12	;[08]
 14288  E00576D AA 5F 12        		HEX	AA,5F,12	;[09]
 14289  E005770 E0 5F 15        		HEX	E0,5F,15	;[0A]
 14290  E005773 FF              		HEX	FF	;end code
 14291                          ;
 14292                          ;;		HEX	82,62,12	;[08]
 14293                          ;;		HEX	85,61,10	;[09]
 14294                          ;;		HEX	90,5F,10	;[0A]
 14295                          ;;		HEX	FF	;end code
 14296                          ;
 14297          005774          ATSCRL_0_DT_4	EQU	$
 14298  E005774 10 70 05        		HEX	10,70,05	;[01]
 14299  E005777 40 70 07        		HEX	40,70,07	;[01]
 14300  E00577A 70 70 09        		HEX	70,70,09	;[01]
 14301  E00577D A0 70 0B        		HEX	A0,70,0B	;[02]
 14302  E005780 FF              		HEX	FF	;end code
 14303                          ;;;;6-5 END
 14304                          ;
 14305                          ;
 14306                          ;
 14307                          ;;;;5-6
 14308          005781          ATSCRL_0_DT_7	EQU	$
 14309                          ;			X  Y  Speed
 14310  E005781 1A 50 05        		HEX	1A,50,05	;[01]
 14311  E005784 20 4E 05        		HEX	20,4E,05	;[02]
 14312  E005787 2C 50 05        		HEX	2C,50,05	;[03]
 14313  E00578A 39 4E 05        		HEX	39,4E,05	;[04]
 14314  E00578D 42 4A 05        		HEX	42,4A,05	;[05]
 14315  E005790 4D 49 05        		HEX	4D,49,05	;[06]
 14316  E005793 58 48 05        		HEX	58,48,05	;[07]
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0244

 14317  E005796 63 4B 05        		HEX	63,4B,05	;[08]
 14318  E005799 6E 4E 05        		HEX	6E,4E,05	;[09]
 14319  E00579C 7E 4A 05        		HEX	7E,4A,05	;[0A]
 14320  E00579F 8A 47 05        		HEX	8A,47,05	;[0C]
 14321  E0057A2 95 44 05        		HEX	95,44,05	;[0D]
 14322  E0057A5 A2 43 05        		HEX	A2,43,05	;[0E]
 14323  E0057A8 AE 41 05        		HEX	AE,41,05	;[0F]
 14324  E0057AB B9 3F 05        		HEX	B9,3F,05	;[10]
 14325  E0057AE C0 3E 05        		HEX	C0,3E,05	;[11]
 14326  E0057B1 E0 3E 05        		HEX	E0,3E,05	;[12]
 14327                          ;
 14328  E0057B4 FF              		HEX	FF	;end code
 14329                          ;
 14330                          ;;;;5-6 END
 14331                          ;
 14332                          ;
 14333                          ;;;;2-1
 14334                          ;;NOM;;ATSCRL_0_DT_8   EQU     $
 14335                          ;;NOM;;			      X	 Y  Speed
 14336                          ;;NOM;;		       HEX     00,70,02	       ;[01]
 14337                          ;;NOM;;		       HEX     00,60,02	       ;[02]
 14338                          ;;NOM;;		       HEX     00,50,03	       ;[03]
 14339                          ;;NOM;;		       HEX     00,4A,04	       ;[04]
 14340                          ;;NOM;;		       HEX     FE      ;auto scroll clear
 14341                          ;
 14342          0057B5          ATSCRL_0_DT_8	EQU	$
 14343                          ;			X  Y  Speed
 14344  E0057B5 02 20 02        		HEX	02,20,02	;[01]
 14345  E0057B8 02 19 03        		HEX	02,19,03	;[02]
 14346  E0057BB FE              		HEX	FE	;auto scroll clear
 14347                          ;
 14348                          ;;;;2-1 END
 14349                          ;
 14350                          ;
 14351                          ;
 14352                          ;
 14353                          ;;;;6-8 katiboss
 14354          0057BC          ATSCRL_0_DT_9	EQU	$
 14355                          ;			X  Y  Speed
 14356  E0057BC CB 5A 06        		HEX	CB,5A,06	;[01]
 14357  E0057BF C0 5D 08        		HEX	C0,5D,08	;[01']
 14358  E0057C2 B0 5F 08        		HEX	B0,5F,08	;[02]
 14359  E0057C5 AA 5D 08        		HEX	AA,5D,08	;[03]
 14360  E0057C8 A6 5F 08        		HEX	A6,5F,08	;[03]
 14361  E0057CB 98 6C 08        		HEX	98,6C,08	;[04]
 14362  E0057CE 88 6E 08        		HEX	88,6E,08	;[05]
 14363  E0057D1 80 67 06        		HEX	80,67,06	;[06]
 14364  E0057D4 79 60 08        		HEX	79,60,08	;[07]
 14365                          ;
 14366  E0057D7 6B 60 08        		HEX	6B,60,08	;[08]
 14367  E0057DA 4B 5A 08        		HEX	4B,5A,08	;[09]
 14368  E0057DD 40 5D 08        		HEX	40,5D,08	;[09']
 14369  E0057E0 30 5F 08        		HEX	30,5F,08	;[0A]
 14370  E0057E3 2A 5D 08        		HEX	2A,5D,08	;[0A]
 14371  E0057E6 26 5F 08        		HEX	26,5F,08	;[0B]
 14372  E0057E9 18 6C 08        		HEX	18,6C,08	;[0C]
 14373  E0057EC 08 6E 08        		HEX	08,6E,08	;[0D]
 14374  E0057EF 00 67 08        		HEX	00,67,08	;[0E]
 14375  E0057F2 FE              		HEX	FE	;auto scroll clear
 14376                          ;;;;6-8 END
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0245

 14377                          ;
 14378                          ;
 14379                          ;
 14380                          ;;;;extra course
 14381          0057F3          ATSCRL_0_DT_A	EQU	$
 14382                          ;			X  Y  Speed
 14383  E0057F3 20 6F 08        		HEX	20,6F,08	;[00]
 14384  E0057F6 80 6F 08        		HEX	80,6F,08	;[01]
 14385  E0057F9 D8 6F 08        		HEX	D8,6F,08	;[02]
 14386                          ;
 14387  E0057FC FF              		HEX	FF	;end code
 14388                          ;
 14389                          ;;;;extra course END
 14390          0057FD          ATSCRL_0_DT_B	EQU	$
 14391                          ;			X  Y  Speed
 14392  E0057FD 0C 70 08        		HEX	0C,70,08	;[00]
 14393  E005800 14 6E 08        		HEX	14,6E,08	;[01]
 14394  E005803 1E 70 08        		HEX	1E,70,08	;[02]
 14395  E005806 2A 6A 08        		HEX	2A,6A,08	;[03]
 14396  E005809 2E 6A 08        		HEX	2E,6A,08	;[04]
 14397  E00580C 3B 70 08        		HEX	3B,70,08	;[05]
 14398  E00580F 53 70 0A        		HEX	53,70,0A	;[06]
 14399  E005812 71 70 0A        		HEX	71,70,0A	;[07]
 14400  E005815 8F 70 08        		HEX	8F,70,08	;[08]
 14401  E005818 98 67 04        		HEX	98,67,04	;[09]
 14402  E00581B 8F 5B 06        		HEX	8F,5B,06	;[0A]
 14403  E00581E 90 2E 03        		HEX	90,2E,03	;[0C]
 14404  E005821 94 2C 08        		HEX	94,2C,08	;[0D]
 14405  E005824 9D 2C 08        		HEX	9D,2C,08	;[0E]
 14406  E005827 A6 2C 08        		HEX	A6,2C,08	;[0F]
 14407  E00582A AD 2F 0A        		HEX	AD,2F,0A	;[10]
 14408  E00582D B6 36 08        		HEX	B6,36,08	;[11]
 14409  E005830 CA 36 08        		HEX	CA,36,08	;[12]
 14410  E005833 D4 3A 04        		HEX	D4,3A,04	;[13]
 14411  E005836 E2 43 08        		HEX	E2,43,08	;[14]
 14412  E005839 F0 3F 08        		HEX	F0,3F,08	;[15]
 14413  E00583C FF              		HEX	FF	;end code
 14414                          ;
 14415                          ;;ATSCRL_0_DT_C EQU	$
 14416                          ;;		HEX	FF	;end code
 14417                          ;
 14418                          ;;		HEX	FE	;auto scroll clear
 14419                          ;
 14420                          ;
 14421                          ;
 14422                          ;
 14423                          ;
 14424                          ;
 14425                          ;
 14426                          ;
 14427                          ;
 14428                          ;
 14429                          ;
 14430          00583D          ATSCRL_0_IN	EQU	$
 14431  E00583D AD 0C1C         		LDA	ATSCRL_FLAG
 14432  E005840 F0 03           		BEQ	ATSCRL_0_IN_010 ;オートスクロール”ＯＮ”？ ( yes:ATSCRL_0_IN_010 )
 14433  E005842 4C 5639'        		JMP	ESCLEAR_NORETN
 14434                          ;
 14435          005845          ATSCRL_0_IN_010 EQU	$
 14436  E005845 B9 0C04         		LDA	ESMODE,Y
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0246

 14437  E005848 8D 0C1C         		STA	ATSCRL_FLAG	;オートスクロール”ＯＮ”
 14438  E00584B 8D 0C1E         		STA	ATSCRL_H
 14439  E00584E C9 001B         		CMP	#AT_0A-ENEND+1
 14440  E005851 F0 08           		BEQ	ATSCRL_0_IN_020 ;Ｈのみオートスクロール？ ( yes:ATSCRL_0_IN_020 )
 14441  E005853 C9 0011         		CMP	#AT_00-ENEND+1
 14442  E005856 F0 03           		BEQ	ATSCRL_0_IN_020 ;Ｈのみオートスクロール？ ( yes:ATSCRL_0_IN_020 )
 14443                          ;
 14444  E005858 8D 0C20         		STA	ATSCRL_V
 14445          00585B          ATSCRL_0_IN_020 EQU	$
 14446  E00585B 38              		SEC
 14447  E00585C E9 0011         		SBC	#(AT_00-ENEND)+1
 14448  E00585F 0A              		ASL	A
 14449  E005860 AA              		TAX
 14450  E005861 BD 56AD'        		LDA	!ATSCRL_0_ADRS,X
 14451  E005864 8D 0C2E         		STA	ATSCRL_WRK0	;オートスクロールデータポインターセット
 14452  E005867 20 5639'        		JSR	ESCLEAR_NORETN
 14453                          ;
 14454  E00586A AD 6093         		LDA	ESCCH1-1	;スタートスクロールカウンターセット
 14455  E00586D 29 FF00         		AND	#0FF00H
 14456  E005870 8D 0C22         		STA	ATSCRL_SCCH1L
 14457  E005873 AD 6095         		LDA	ESCCH1+1
 14458  E005876 29 00FF         		AND	#00FFH
 14459  E005879 8D 0C24         		STA	ATSCRL_SCCH1H
 14460  E00587C AD 609B         		LDA	ESCCV1-1
 14461  E00587F 29 FF00         		AND	#0FF00H
 14462  E005882 8D 0C26         		STA	ATSCRL_SCCV1L
 14463  E005885 AD 609D         		LDA	ESCCV1+1
 14464  E005888 29 00FF         		AND	#00FFH
 14465  E00588B 8D 0C28         		STA	ATSCRL_SCCV1H
 14466                          ;
 14467  E00588E 9C 0C2A         		STZ	ATSCRL_XSPD	;オートスクロールスピードリセット
 14468  E005891 9C 0C2C         		STZ	ATSCRL_YSPD
 14469                          ;
 14470  E005894 AE 0C2E         		LDX	ATSCRL_WRK0	;(X) <-- オートスクロールデータポインター
 14471          005897          ATSCRL_0_R	EQU	$
 14472  E005897 BD 56C5'        		LDA	!ATSCRL_0_DT,X
 14473  E00589A 29 00FF         		AND	#00FFH
 14474  E00589D 0A              		ASL	A
 14475  E00589E 0A              		ASL	A
 14476  E00589F 0A              		ASL	A
 14477  E0058A0 0A              		ASL	A
 14478  E0058A1 8D 0C30         		STA	ATSCRL_WRK1	;目標Ｘ座標
 14479  E0058A4 38              		SEC
 14480  E0058A5 ED 0C23         		SBC	ATSCRL_SCCH1
 14481  E0058A8 8D 0C36         		STA	ATSCRL_WRK4	;目標Ｘ方向
 14482                          ;
 14483  E0058AB BD 56C6'        		LDA	!ATSCRL_0_DT+1,X
 14484  E0058AE 29 00FF         		AND	#00FFH
 14485  E0058B1 0A              		ASL	A
 14486  E0058B2 0A              		ASL	A
 14487  E0058B3 0A              		ASL	A
 14488  E0058B4 0A              		ASL	A
 14489  E0058B5 18              		CLC
 14490  E0058B6 69 001C         		ADC	#1CH
 14491  E0058B9 8D 0C32         		STA	ATSCRL_WRK2	;目標Ｙ座標
 14492  E0058BC 38              		SEC
 14493  E0058BD ED 0C27         		SBC	ATSCRL_SCCV1
 14494  E0058C0 8D 0C38         		STA	ATSCRL_WRK5	;目標Ｙ方向
 14495                          ;
 14496  E0058C3 BD 56C6'        		LDA	!ATSCRL_0_DT+2-1,X
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0247

 14497  E0058C6 29 FF00         		AND	#0FF00H
 14498  E0058C9 10 03           		BPL	ATSCRL_0_R_010
 14499  E0058CB 09 00FF         		ORA	#00FFH
 14500          0058CE          ATSCRL_0_R_010	EQU	$
 14501  E0058CE EB              		XBA
 14502  E0058CF 0A              		ASL	A
 14503  E0058D0 0A              		ASL	A
 14504  E0058D1 0A              		ASL	A
 14505  E0058D2 0A              		ASL	A
 14506  E0058D3 8D 0C34         		STA	ATSCRL_WRK3	;サーチスピード
 14507  E0058D6 60              		RTS
 14508                          ;
 14509                          ;************************************************************************
 14510                          ;*		オートスクロール（）処理				*
 14511                          ;************************************************************************
 14512          0058D7          ATSCRL_0_MV	EQU	$
 14513  E0058D7 AD 61B0         		LDA	ENSTFG
 14514  E0058DA 0D 0B55         		ORA	BIRIBIRI
 14515  E0058DD 0D 0398         		ORA	ITEMNO
 14516  E0058E0 D0 5B           		BNE	ATSCRL_0_MV_040 ;ＳＴＯＰ？ ( yes:ATSCRL_0_MV_040 )
 14517                          ;
 14518  E0058E2 20 5942'        		JSR	ATSCRL_SPST	;オートスクロールセット
 14519                          ;
 14520  E0058E5 AD 0C23         		LDA	ATSCRL_SCCH1
 14521  E0058E8 38              		SEC
 14522  E0058E9 ED 0C30         		SBC	ATSCRL_WRK1
 14523  E0058EC F0 0B           		BEQ	ATSCRL_0_MV_010 ;次のデータへ？ ( yes:ATSCRL_0_MV_010 )
 14524  E0058EE 4D 0C36         		EOR	ATSCRL_WRK4
 14525  E0058F1 30 06           		BMI	ATSCRL_0_MV_010 ;		 ”
 14526                          ;
 14527  E0058F3 AD 0C30         		LDA	ATSCRL_WRK1
 14528  E0058F6 8D 0C23         		STA	ATSCRL_SCCH1
 14529          0058F9          ATSCRL_0_MV_010 EQU	$
 14530  E0058F9 8D 0000         		STA	WORK		;(WK0,1) <-- 次のデータへ行くかフラグ
 14531                          ;
 14532  E0058FC AD 0C27         		LDA	ATSCRL_SCCV1
 14533  E0058FF 38              		SEC
 14534  E005900 ED 0C32         		SBC	ATSCRL_WRK2
 14535  E005903 F0 0B           		BEQ	ATSCRL_0_MV_020 ;次のデータへ？ ( yes:ATSCRL_0_MV_020 )
 14536  E005905 4D 0C38         		EOR	ATSCRL_WRK5
 14537  E005908 30 06           		BMI	ATSCRL_0_MV_020 ;		 ”
 14538                          ;
 14539  E00590A AD 0C32         		LDA	ATSCRL_WRK2
 14540  E00590D 8D 0C27         		STA	ATSCRL_SCCV1
 14541          005910          ATSCRL_0_MV_020 EQU	$
 14542  E005910 0D 0000         		ORA	WORK
 14543  E005913 30 28           		BMI	ATSCRL_0_MV_040 ;次のデータへ行くか？ ( no:ATSCRL_0_MV_040 )
 14544                          ;
 14545                          ;-------------- 次のデータ読み込み --------------------------------------
 14546  E005915 AE 0C2E         		LDX	ATSCRL_WRK0
 14547  E005918 BD 56C8'        		LDA	!ATSCRL_0_DT+3,X
 14548  E00591B 29 00FF         		AND	#00FFH
 14549  E00591E C9 00FE         		CMP	#00FEH
 14550  E005921 B0 09           		BCS	ATSCRL_0_MV_030 ;データＥＮＤ？ ( yes:ATSCRL_0_MV_030 )
 14551                          ;
 14552  E005923 E8              		INX
 14553  E005924 E8              		INX
 14554  E005925 E8              		INX
 14555  E005926 8E 0C2E         		STX	ATSCRL_WRK0
 14556  E005929 4C 5897'        		JMP	ATSCRL_0_R	;データ読み込み
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0248

 14557                          ;
 14558                          ;-------------- データＥＮＤ --------------------------------------------
 14559          00592C          ATSCRL_0_MV_030 EQU	$
 14560  E00592C D0 06           		BNE	ATSCRL_0_MV_032 ;オートスクロール解除？ ( no:ATSCRL_0_MV_032 )
 14561                          ;
 14562  E00592E 9C 0C1E         		STZ	ATSCRL_H
 14563  E005931 9C 0C20         		STZ	ATSCRL_V
 14564          005934          ATSCRL_0_MV_032 EQU	$
 14565  E005934 9C 0C1C         		STZ	ATSCRL_FLAG	;オートスクロール”ＯＦＦ”
 14566  E005937 9C 0C2A         		STZ	ATSCRL_XSPD	;スクロールスピードクリアー
 14567  E00593A 9C 0C2C         		STZ	ATSCRL_YSPD
 14568                          ;
 14569          00593D          ATSCRL_0_MV_040 EQU	$
 14570  E00593D 60              		RTS
 14571                          ;
 14572                          ;------------------------------------------------------------------------
 14573                          ;-		オートスクロールスピード計算				-
 14574                          ;------------------------------------------------------------------------
 14575          00593E          ATSCR_SP_ADD	EQU	$
 14576  E00593E FFFF 0001       		WORD	0FFFFH,00001H
 14577                          ;
 14578          005942          ATSCRL_SPST	EQU	$
 14579  E005942 AD 0C30         		LDA	ATSCRL_WRK1
 14580  E005945 8D 3002         		STA	R1		;(R1) <-- 目標Ｘ座標
 14581  E005948 AD 0C32         		LDA	ATSCRL_WRK2
 14582  E00594B 8D 3004         		STA	R2		;(R2) <-- 目標Ｙ座標
 14583  E00594E AD 0C23         		LDA	ATSCRL_SCCH1
 14584  E005951 8D 3006         		STA	R3		;(R3) <-- 現在Ｘ座標
 14585  E005954 AD 0C27         		LDA	ATSCRL_SCCV1
 14586  E005957 8D 3008         		STA	R4		;(R4) <-- 現在Ｙ座標
 14587  E00595A AD 0C34         		LDA	ATSCRL_WRK3
 14588  E00595D 8D 300C         		STA	R6		;(R6) <-- サーチスピード
 14589                          ;
 14590                          		I8
 14590+ E005960 E2 10           		SEP	#00010000b	
 14591                          ;
 14592                          		M_CHIP	SEARCH_SPEED
 14592+ E005962 A2 09           		LDX	#BANK SEARCH_SPEED
 14592+ E005964 A9 907C         		LDA	#SEARCH_SPEED
 14592+ E005967 22 000000"      		JSL	>CHIPON
 14593                          ;
 14594  E00596B A2 00           		LDX	#0
 14595  E00596D AD 0C2A         		LDA	ATSCRL_XSPD
 14596  E005970 CD 3002         		CMP	R1
 14597  E005973 F0 0B           		BEQ	ATSCRL_SPST_020
 14598  E005975 10 02           		BPL	ATSCRL_SPST_010
 14599  E005977 A2 02           		LDX	#2
 14600          005979          ATSCRL_SPST_010 EQU	$
 14601  E005979 18              		CLC
 14602  E00597A 7D 593E'        		ADC	!ATSCR_SP_ADD,X
 14603  E00597D 8D 0C2A         		STA	ATSCRL_XSPD	;オートスクロールＸスピードセット
 14604                          ;
 14605          005980          ATSCRL_SPST_020 EQU	$
 14606  E005980 A2 00           		LDX	#0
 14607  E005982 AD 0C2C         		LDA	ATSCRL_YSPD
 14608  E005985 CD 3004         		CMP	R2
 14609  E005988 F0 0B           		BEQ	ATSCRL_SPST_040
 14610  E00598A 10 02           		BPL	ATSCRL_SPST_030
 14611  E00598C A2 02           		LDX	#2
 14612          00598E          ATSCRL_SPST_030 EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0249

 14613  E00598E 18              		CLC
 14614  E00598F 7D 593E'        		ADC	!ATSCR_SP_ADD,X
 14615  E005992 8D 0C2C         		STA	ATSCRL_YSPD	;オートスクロールＹスピードセット
 14616                          ;
 14617          005995          ATSCRL_SPST_040 EQU	$
 14618                          ;
 14619                          		I16
 14619+ E005995 C2 10           		REP	#00010000b	
 14620                          ;
 14621                          ;------------------------------------------------------------------------
 14622                          ;-		オートスクロールカウンター計算				-
 14623                          ;------------------------------------------------------------------------
 14624          005997          ATSCRL_XYCL	EQU	$
 14625  E005997 A2 0000         		LDX	#00
 14626  E00599A AD 0C2A         		LDA	ATSCRL_XSPD
 14627  E00599D 10 01           		BPL	ATSCRL_XYCL_010
 14628  E00599F CA              		DEX			;[ LDX #0FFFFH ]
 14629          0059A0          ATSCRL_XYCL_010 EQU	$
 14630  E0059A0 18              		CLC
 14631  E0059A1 6D 0C22         		ADC	ATSCRL_SCCH1L
 14632  E0059A4 8D 0C22         		STA	ATSCRL_SCCH1L
 14633  E0059A7 8A              		TXA
 14634  E0059A8 6D 0C24         		ADC	ATSCRL_SCCH1H
 14635  E0059AB 8D 0C24         		STA	ATSCRL_SCCH1H
 14636                          ;
 14637  E0059AE A2 0000         		LDX	#00
 14638  E0059B1 AD 0C2C         		LDA	ATSCRL_YSPD
 14639  E0059B4 10 01           		BPL	ATSCRL_XYCL_020
 14640  E0059B6 CA              		DEX			;[ LDX #0FFFFH ]
 14641          0059B7          ATSCRL_XYCL_020 EQU	$
 14642  E0059B7 18              		CLC
 14643  E0059B8 6D 0C26         		ADC	ATSCRL_SCCV1L
 14644  E0059BB 8D 0C26         		STA	ATSCRL_SCCV1L
 14645  E0059BE 8A              		TXA
 14646  E0059BF 6D 0C28         		ADC	ATSCRL_SCCV1H
 14647  E0059C2 8D 0C28         		STA	ATSCRL_SCCV1H
 14648  E0059C5 60              		RTS
 14649                          ;
 14650                          ;************************************************************************
 14651                          ;*		オートスクロールカウンター計算（外部呼出し）		*
 14652                          ;************************************************************************
 14653          0059C6          ATSCRL_XYCL_L	EQU	$
 14654  E0059C6 20 5997'        		JSR	ATSCRL_XYCL
 14655  E0059C9 6B              		RTL
 14656                          ;
 14657                          ;
 14658                          ;************************************************************************
 14659                          ;*		つむじ風のわきだしスタート初期セット			*
 14660                          ;************************************************************************
 14661          0059CA          TUMUJ_ST_IN	EQU	$
 14662  E0059CA AD 0C3A         		LDA	TUMJ_ST_FG
 14663  E0059CD F0 03           		BEQ	TUMUJ_ST_IN_010 ;すでにセット中？ ( yes:TUMUJ_ST_IN_010 )
 14664  E0059CF 4C 562C'        		JMP	ESCLEAR
 14665                          ;
 14666          0059D2          TUMUJ_ST_IN_010 EQU	$
 14667  E0059D2 EE 0C3A         		INC	TUMJ_ST_FG	;つむじ風のわきだしフラグ”ＯＮ”
 14668  E0059D5 60              		RTS
 14669                          ;
 14670                          ;************************************************************************
 14671                          ;*		つむじ風のわきだし処理					*
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0250

 14672                          ;************************************************************************
 14673          0059D6          TUMUJ_ST_XP	EQU	$
 14674  E0059D6 0110 FFE0       		WORD	00110H,0FFE0H
 14675          0059DA          TUMUJ_ST_XS	EQU	$
 14676  E0059DA FE00 0200       		WORD	0FE00H,00200H
 14677  E0059DE FD00 0300       		WORD	0FD00H,00300H
 14678          0059E2          TUMUJ_ST_XPOW	EQU	$
 14679                          ;		WORD	00010H,00018H
 14680  E0059E2 0004 0006       		WORD	00004H,00006H
 14681                          ;
 14682          0059E6          TUMUJ_ST_MV	EQU	$
 14683  E0059E6 AD 0C3A         		LDA	TUMJ_ST_FG
 14684  E0059E9 D0 03           		BNE	TUMUJ_ST_MV_000 ;つむじ風のわきだしＥＮＤ？ ( no:TUMUJ_ST_MV_000 )
 14685  E0059EB 4C 562C'        		JMP	ESCLEAR
 14686                          ;
 14687          0059EE          TUMUJ_ST_MV_000 EQU	$
 14688  E0059EE AD 61B0         		LDA	ENSTFG
 14689  E0059F1 0D 0B55         		ORA	BIRIBIRI
 14690  E0059F4 0D 0398         		ORA	ITEMNO
 14691  E0059F7 D0 5E           		BNE	TUMUJ_ST_MV_020 ;ＳＴＯＰ？ ( yes:TUMUJ_ST_MV_020 )
 14692                          ;
 14693  E0059F9 AD 0CD2         		LDA	TUMUJ_TIMER	;つむじ風セット？
 14694  E0059FC D0 59           		BNE	TUMUJ_ST_MV_020 ;  no: TUMUJ_ST_MV_020
 14695  
 14696  E0059FE A9 0030         		LDA	#00030H
 14697  E005A01 8D 0CD2         		STA	TUMUJ_TIMER
 14698                          ;
 14699                          		I8
 14699+ E005A04 E2 10           		SEP	#00010000b	
 14700                          ;
 14701  E005A06 5A              		PHY			;(Y) save
 14702                          ;
 14703  E005A07 A9 00E6         		LDA	#TUMUJ		;(A) <-- 敵Ｎｏ．
 14704  E005A0A 22 002364'      		JSL	>ENINSR		;敵エリア確保
 14705  E005A0E 90 44           		BCC	TUMUJ_ST_MV_010 ;      ”    ？ ( no:TUMUJ_ST_MV_010 )
 14706                          ;
 14707  E005A10 A5 10           		LDA	<RANDM0
 14708  E005A12 29 001E         		AND	#0FH<<1
 14709  E005A15 0A              		ASL	A
 14710  E005A16 0A              		ASL	A
 14711  E005A17 0A              		ASL	A
 14712  E005A18 18              		CLC
 14713  E005A19 6D 003B         		ADC	SCCV1
 14714  E005A1C 38              		SEC
 14715  E005A1D E9 001B         		SBC	#(0F0H-0B9H)/2
 14716  E005A20 99 7182         		STA	ENYPSL,Y
 14717  E005A23 A5 10           		LDA	<RANDM0
 14718  E005A25 29 0001         		AND	#01H
 14719  E005A28 0A              		ASL	A
 14720  E005A29 99 7400         		STA	ENMUKI,Y
 14721  E005A2C 85 00           		STA	<EWORK0
 14722  E005A2E AA              		TAX
 14723  E005A2F AD 0039         		LDA	SCCH1
 14724  E005A32 18              		CLC
 14725  E005A33 7D 59D6'        		ADC	!TUMUJ_ST_XP,X
 14726  E005A36 99 70E2         		STA	ENXPSL,Y
 14727  E005A39 A5 10           		LDA	<RANDM0
 14728  E005A3B 29 0002         		AND	#00002
 14729  E005A3E 99 79D8         		STA	ENWRK4,Y
 14730  E005A41 AA              		TAX
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0251

 14731  E005A42 BD 59E2'        		LDA	!TUMUJ_ST_XPOW,X
 14732  E005A45 99 7540         		STA	ENXPOW,Y
 14733  E005A48 8A              		TXA
 14734  E005A49 0A              		ASL	A
 14735  E005A4A 18              		CLC
 14736  E005A4B 65 00           		ADC	<EWORK0
 14737  E005A4D AA              		TAX
 14738  E005A4E BD 59DA'        		LDA	!TUMUJ_ST_XS,X
 14739  E005A51 99 75E0         		STA	ENXMAX,Y
 14740                          ;
 14741          005A54          TUMUJ_ST_MV_010 EQU	$
 14742  E005A54 7A              		PLY
 14743                          ;
 14744                          		I16
 14744+ E005A55 C2 10           		REP	#00010000b	
 14745                          ;
 14746          005A57          TUMUJ_ST_MV_020 EQU	$
 14747  E005A57 60              		RTS
 14748                          ;
 14749                          ;************************************************************************
 14750                          ;*		つむじ風のわきだしＥＮＤ初期セット			*
 14751                          ;************************************************************************
 14752          005A58          TUMUJ_EN_IN	EQU	$
 14753  E005A58 9C 0C3A         		STZ	TUMJ_ST_FG	;つむじ風のわきだしフラグ”ＯＦＦ”
 14754  E005A5B 4C 562C'        		JMP	ESCLEAR
 14755                          ;
 14756                          ;************************************************************************
 14757                          ;*		ジュゲムのわきだしＥＮＤ初期セット			*
 14758                          ;************************************************************************
 14759          005A5E          JUGEM_EN_IN	EQU	$
 14760  E005A5E 9C 0C3C         		STZ	JUGM_ST_FG	;ジュゲムのわきだしフラグ”ＯＦＦ”
 14761  E005A61 4C 562C'        		JMP	ESCLEAR
 14762                          ;
 14763                          ;************************************************************************
 14764                          ;*		わたぼーのわきだしＥＮＤ初期セット			*
 14765                          ;************************************************************************
 14766          005A64          WATAB_EN_IN	EQU	$
 14767  E005A64 9C 0C3E         		STZ	WATB_ST_FG	;わたぼーのわきだしフラグ”ＯＦＦ”
 14768  E005A67 4C 562C'        		JMP	ESCLEAR
 14769                          ;
 14770                          ;************************************************************************
 14771                          ;*		ぽちのわきだしＥＮＤ初期セット				*
 14772                          ;************************************************************************
 14773          005A6A          POCHI_EN_IN	EQU	$
 14774  E005A6A 9C 0C46         		STZ	POCI_ST_FG	;ぽちのわきだしフラグ”ＯＦＦ”
 14775  E005A6D 4C 562C'        		JMP	ESCLEAR
 14776                          ;
 14777                          ;************************************************************************
 14778                          ;*		こうもりのわきだしスタート初期セット			*
 14779                          ;************************************************************************
 14780          005A70          KOMOR_ST_IN	EQU	$
 14781          005A70          KOMR2_ST_IN	EQU	$
 14782  E005A70 AD 0C48         		LDA	KOMR_ST_FG
 14783  E005A73 F0 03           		BEQ	KOMOR_ST_IN_010		;すでにセット中？ ( no:KOMOR_ST_IN_010 )
 14784  E005A75 4C 562C'        		JMP	ESCLEAR
 14785                          ;
 14786          005A78          KOMOR_ST_IN_010 EQU	$
 14787  E005A78 EE 0C48         		INC	KOMR_ST_FG		;こうもりのわきだしフラグ”ＯＮ”
 14788  E005A7B 60              		RTS
 14789                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0252

 14790                          ;************************************************************************
 14791                          ;*		こうもりのわきだし処理					*
 14792                          ;************************************************************************
 14793          005A7C          KOMOR_ST_XP	EQU	$
 14794  E005A7C 0110 FFE0       		WORD	00110H,0FFE0H
 14795                          ;
 14796          005A80          KOMOR_ST_MV	EQU	$
 14797  E005A80 AD 0C48         		LDA	KOMR_ST_FG
 14798  E005A83 D0 03           		BNE	KOMOR_ST_MV_000		;こうもりのわきだしＥＮＤ？ ( no:KOMOR_ST_MV_000 )
 14799  E005A85 4C 562C'        		JMP	ESCLEAR
 14800                          ;
 14801          005A88          KOMOR_ST_MV_000 EQU	$
 14802  E005A88 AD 61B0         		LDA	ENSTFG
 14803  E005A8B 0D 0B55         		ORA	BIRIBIRI
 14804  E005A8E 0D 0398         		ORA	ITEMNO
 14805  E005A91 D0 57           		BNE	KOMOR_ST_MV_020		;ＳＴＯＰ？ ( yes:KOMOR_ST_MV_020 )
 14806                          ;
 14807  E005A93 AD 0CD4         		LDA	KOMOR_TIMER		;こうもりセット？
 14808  E005A96 D0 52           		BNE	KOMOR_ST_MV_020		;  no: KOMOR_ST_MV_020
 14809                          ;
 14810  E005A98 AD 0C4A         		LDA	KOMOR_COUNT
 14811  E005A9B C9 0003         		CMP	#0003
 14812  E005A9E B0 4A           		BCS	KOMOR_ST_MV_020		; こうもりセット ? [no->KOMOR_ST_MV_020]
 14813                          ;
 14814  E005AA0 A9 0030         		LDA	#00030H
 14815  E005AA3 8D 0CD4         		STA	KOMOR_TIMER
 14816                          ;
 14817                          		I8
 14817+ E005AA6 E2 10           		SEP	#00010000b	
 14818                          ;
 14819  E005AA8 5A              		PHY				;(Y) save
 14820                          ;
 14821  E005AA9 A9 013E         		LDA	#KOMO1			;(A) <-- 敵Ｎｏ．
 14822  E005AAC 22 002364'      		JSL	>ENINSR			;敵エリア確保
 14823  E005AB0 90 35           		BCC	KOMOR_ST_MV_010		;      ”    ？ ( no:KOMOR_ST_MV_010 )
 14824                          ;
 14825  E005AB2 EE 0C4A         		INC	!KOMOR_COUNT
 14826                          ;
 14827  E005AB5 A5 10           		LDA	<RANDM0
 14828  E005AB7 29 000E         		AND	#0000EH
 14829  E005ABA 0A              		ASL	A
 14830  E005ABB 0A              		ASL	A
 14831  E005ABC 0A              		ASL	A
 14832  E005ABD 18              		CLC
 14833  E005ABE 6D 003B         		ADC	!SCCV1
 14834  E005AC1 18              		CLC
 14835  E005AC2 69 0030         		ADC	#00030H
 14836  E005AC5 99 7182         		STA	!ENYPSL,Y
 14837  E005AC8 AD 0073         		LDA	!SCHMK1
 14838  E005ACB 99 7400         		STA	!ENMUKI,Y
 14839  E005ACE AA              		TAX
 14840  E005ACF AD 0039         		LDA	SCCH1
 14841  E005AD2 18              		CLC
 14842  E005AD3 7D 5A7C'        		ADC	!KOMOR_ST_XP,X
 14843  E005AD6 99 70E2         		STA	ENXPSL,Y
 14844                          ;
 14845  E005AD9 8B              		PHB
 14846  E005ADA A2 00"          		LDX	#BANK KOMO1IN
 14847  E005ADC DA              		PHX
 14848  E005ADD AB              		PLB
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0253

 14849  E005ADE BB              		TYX
 14850  E005ADF 22 000000"      		JSL	>KOMO1IN		; こうもりイニシャル !!
 14851                          ;
 14852  E005AE3 AB              		PLB
 14853  E005AE4 FE 7A36         		INC	!ENWRK6,X
 14854          005AE7          KOMOR_ST_MV_010 EQU	$
 14855  E005AE7 7A              		PLY
 14856                          ;
 14857                          		I16
 14857+ E005AE8 C2 10           		REP	#00010000b	
 14858                          ;
 14859          005AEA          KOMOR_ST_MV_020 EQU	$
 14860  E005AEA 60              		RTS
 14861                          ;
 14862          005AEB          KOMR2_ST_MV	EQU	$
 14863  E005AEB AD 0C48         		LDA	KOMR_ST_FG
 14864  E005AEE D0 03           		BNE	KOMR2_ST_MV_000		;こうもりのわきだしＥＮＤ？ ( no:KOMR2_ST_MV_000 )
 14865  E005AF0 4C 562C'        		JMP	ESCLEAR
 14866                          ;
 14867          005AF3          KOMR2_ST_MV_000 EQU	$
 14868  E005AF3 AD 61B0         		LDA	ENSTFG
 14869  E005AF6 0D 0B55         		ORA	BIRIBIRI
 14870  E005AF9 0D 0398         		ORA	ITEMNO
 14871  E005AFC D0 EC           		BNE	KOMOR_ST_MV_020		;ＳＴＯＰ？ ( yes:KOMOR_ST_MV_020 )
 14872                          ;
 14873  E005AFE AD 0CD4         		LDA	KOMOR_TIMER		;こうもりセット？
 14874  E005B01 D0 E7           		BNE	KOMOR_ST_MV_020		;  no: KOMOR_ST_MV_020
 14875                          ;
 14876  E005B03 A9 0003         		LDA	#03
 14877  E005B06 85 00           		STA	<EWORK
 14878                          ;
 14879  E005B08 AD 021A         		LDA	!MAPOINT
 14880  E005B0B C9 000F         		CMP	#((2-1)*12)+(4-1)
 14881  E005B0E D0 20           		BNE	KOMR2_ST_MV_008		; ２ｗ−４？ [no->KOMR2_ST_MV_008]
 14882                          ;
 14883                          		I8				; index 8bit mode !!
 14883+ E005B10 E2 10           		SEP	#00010000b	
 14884                          ;
 14885                          		M_CHIP	EGGSEARCH
 14885+ E005B12 A2 09           		LDX	#BANK EGGSEARCH
 14885+ E005B14 A9 91D5         		LDA	#EGGSEARCH
 14885+ E005B17 22 000000"      		JSL	>CHIPON
 14886  E005B1B A6 12           		LDX	<ENINDX
 14887                          ;
 14888                          		I16				; index 16bit mode !!
 14888+ E005B1D C2 10           		REP	#00010000b	
 14889                          ;
 14890  E005B1F AD 300C         		LDA	R6
 14891  E005B22 C9 0003         		CMP	#03
 14892  E005B25 90 09           		BCC	KOMR2_ST_MV_008		; [->KOMR2_ST_MV_008]
 14893                          ;
 14894  E005B27 C6 00           		DEC	<EWORK
 14895  E005B29 C9 0005         		CMP	#05
 14896  E005B2C 90 02           		BCC	KOMR2_ST_MV_008		; [->KOMR2_ST_MV_008]
 14897                          ;
 14898  E005B2E C6 00           		DEC	<EWORK
 14899          005B30          KOMR2_ST_MV_008 EQU	$
 14900                          ;
 14901  E005B30 AD 0C4A         		LDA	KOMOR_COUNT
 14902  E005B33 C5 00           		CMP	<EWORK
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0254

 14903                          ;[1995.05.25.TH]		CMP	#0003
 14904  E005B35 B0 4D           		BCS	KOMR2_ST_MV_020		; こうもりセット ? [no->KOMR2_ST_MV_020]
 14905                          ;
 14906  E005B37 A9 0030         		LDA	#00030H
 14907  E005B3A 8D 0CD4         		STA	KOMOR_TIMER
 14908                          ;
 14909                          		I8
 14909+ E005B3D E2 10           		SEP	#00010000b	
 14910                          ;
 14911  E005B3F 5A              		PHY				;(Y) save
 14912                          ;
 14913  E005B40 A9 013E         		LDA	#KOMO1			;(A) <-- 敵Ｎｏ．
 14914  E005B43 22 002364'      		JSL	>ENINSR			;敵エリア確保
 14915  E005B47 90 38           		BCC	KOMR2_ST_MV_010		;      ”    ？ ( no:KOMR2_ST_MV_010 )
 14916                          ;
 14917  E005B49 EE 0C4A         		INC	!KOMOR_COUNT
 14918                          ;
 14919  E005B4C A5 10           		LDA	<RANDM0
 14920  E005B4E 29 000E         		AND	#0000EH
 14921  E005B51 0A              		ASL	A
 14922  E005B52 0A              		ASL	A
 14923  E005B53 0A              		ASL	A
 14924  E005B54 18              		CLC
 14925  E005B55 6D 003B         		ADC	!SCCV1
 14926  E005B58 18              		CLC
 14927  E005B59 69 0030         		ADC	#00030H
 14928  E005B5C 99 7182         		STA	!ENYPSL,Y
 14929  E005B5F A5 10           		LDA	<RANDM0
 14930  E005B61 29 0001         		AND	#00001H
 14931  E005B64 0A              		ASL	A
 14932  E005B65 99 7400         		STA	!ENMUKI,Y
 14933  E005B68 AA              		TAX
 14934  E005B69 AD 0039         		LDA	SCCH1
 14935  E005B6C 18              		CLC
 14936  E005B6D 7D 5A7C'        		ADC	!KOMOR_ST_XP,X
 14937  E005B70 99 70E2         		STA	ENXPSL,Y
 14938                          ;
 14939  E005B73 8B              		PHB
 14940  E005B74 A2 00"          		LDX	#BANK KOMO1IN
 14941  E005B76 DA              		PHX
 14942  E005B77 AB              		PLB
 14943  E005B78 BB              		TYX
 14944  E005B79 22 000000"      		JSL	>KOMO1IN		; こうもりイニシャル !!
 14945                          ;
 14946  E005B7D AB              		PLB
 14947  E005B7E FE 7A36         		INC	!ENWRK6,X
 14948          005B81          KOMR2_ST_MV_010 EQU	$
 14949  E005B81 7A              		PLY
 14950                          ;
 14951                          		I16
 14951+ E005B82 C2 10           		REP	#00010000b	
 14952                          ;
 14953          005B84          KOMR2_ST_MV_020 EQU	$
 14954  E005B84 60              		RTS
 14955                          ;
 14956                          ;************************************************************************
 14957                          ;*		こうもりのわきだしＥＮＤ初期セット			*
 14958                          ;************************************************************************
 14959          005B85          KOMOR_EN_IN	EQU	$
 14960          005B85          KOMR2_EN_IN	EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0255

 14961  E005B85 9C 0C48         		STZ	KOMR_ST_FG		;こうもりのわきだしフラグ”ＯＦＦ”
 14962  E005B88 4C 562C'        		JMP	ESCLEAR
 14963                          ;
 14964                          ;
 14965                          ;************************************************************************
 14966                          ;*	穴ジュゲムのわきだし初期セット					*
 14967                          ;************************************************************************
 14968          005B8B          AJGM0_ST_IN	EQU	$
 14969  E005B8B AD 0C4C         		LDA	!AJGM_ST_FG
 14970  E005B8E F0 03           		BEQ	AJGM0_ST_IN_010		; セットフラグオン ? [no->AJGM0_ST_IN_010]
 14971                          ;
 14972  E005B90 4C 562C'        		JMP	ESCLEAR
 14973                          ;
 14974          005B93          AJGM0_ST_IN_010 EQU	$
 14975  E005B93 EE 0C4C         		INC	!AJGM_ST_FG		; フラグセット !!
 14976  E005B96 60              		RTS
 14977                          ;
 14978                          ;
 14979                          ;************************************************************************
 14980                          ;*	穴ジュゲムのわきだし処理					*
 14981                          ;************************************************************************
 14982          005B97          AJGM0_ST_XP	EQU	$
 14983  E005B97 0020 0030 0050  		WORD	00020H, 00030H, 00050H, 00060H
        E005B9D 0060 
 14984  E005B9F 0090 0090 00C0  		WORD	00090H, 00090H, 000C0H, 000D0H
        E005BA5 00D0 
 14985                          ;
 14986          005BA7          AJGM0_ST_YP	EQU	$
 14987  E005BA7 0030 0060 0020  		WORD	00030H, 00060H, 00020H, 00050H
        E005BAD 0050 
 14988  E005BAF 0040 0070 0060  		WORD	00040H, 00070H, 00060H, 00030H
        E005BB5 0030 
 14989                          ;
 14990          005BB7          AJGM0_ST_MV	EQU	$
 14991  E005BB7 AD 61B0         		LDA	!ENSTFG
 14992  E005BBA 0D 0B55         		ORA	BIRIBIRI
 14993  E005BBD 0D 0398         		ORA	ITEMNO
 14994  E005BC0 D0 6B           		BNE	AJGM0_ST_MV_0F0		; ストップ ? [yes->AJGM0_ST_MV_0F0]
 14995                          ;
 14996  E005BC2 AD 0CD6         		LDA	!AJGM0_TIMER
 14997  E005BC5 D0 66           		BNE	AJGM0_ST_MV_0F0		; 穴ジュゲムセット ? [no->AJGM0_ST_MV_0F0]
 14998                          ;
 14999  E005BC7 AD 0C4E         		LDA	!AJGM0_COUNT
 15000  E005BCA C9 0001         		CMP	#0001
 15001  E005BCD B0 5E           		BCS	AJGM0_ST_MV_0F0		; 穴ジュゲム MAX ? [yes->AJGM0_ST_MV_0F0]
 15002                          ;
 15003  E005BCF 5A              		PHY
 15004                          ;
 15005                          		I8				; index 8bit mode !!
 15005+ E005BD0 E2 10           		SEP	#00010000b	
 15006                          ;
 15007  E005BD2 A5 10           		LDA	<RANDM0
 15008  E005BD4 29 0007         		AND	#00007H
 15009  E005BD7 0A              		ASL	A
 15010  E005BD8 A8              		TAY
 15011  E005BD9 AD 0039         		LDA	!SCCH1
 15012  E005BDC 29 FF00         		AND	#0FF00H
 15013  E005BDF 18              		CLC
 15014  E005BE0 79 5B97'        		ADC	AJGM0_ST_XP,Y
 15015  E005BE3 CD 0039         		CMP	!SCCH1
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0256

 15016  E005BE6 10 04           		BPL	AJGM0_ST_MV_040		; 画面外 ? [no->AJGM0_ST_MV_040]
 15017                          ;
 15018  E005BE8 18              		CLC
 15019  E005BE9 69 0100         		ADC	#00100H
 15020          005BEC          AJGM0_ST_MV_040 EQU	$
 15021  E005BEC 85 00           		STA	<EWORK			; X ポジションセーブ !!
 15022  E005BEE 8D 3010         		STA	R8
 15023  E005BF1 AD 003B         		LDA	!SCCV1
 15024  E005BF4 29 FF00         		AND	#0FF00H
 15025  E005BF7 18              		CLC
 15026  E005BF8 79 5BA7'        		ADC	AJGM0_ST_YP,Y
 15027  E005BFB CD 003B         		CMP	!SCCV1
 15028  E005BFE 10 04           		BPL	AJGM0_ST_MV_050		; 画面外 ? [no->AJGM0_ST_MV_050]
 15029                          ;
 15030  E005C00 18              		CLC
 15031  E005C01 69 0100         		ADC	#00100H
 15032          005C04          AJGM0_ST_MV_050 EQU	$
 15033  E005C04 85 02           		STA	<EWORK2			; Y ポジションセーブ !!
 15034  E005C06 8D 3000         		STA	R0
 15035                          		M_CHIPR M_BGUNIT_READ		; ユニットサーチ !!
 15035+ E005C09 A2 0A           		LDX	#BANK M_BGUNIT_READ
 15035+ E005C0B A9 CC66         		LDA	#M_BGUNIT_READ
 15035+ E005C0E 22 000000"      		JSL	>CHIPON_RAM_READ
 15036                          ;
 15037  E005C12 AD 300C         		LDA	R6			; BG unit no. READ
 15038  E005C15 C9 0010         		CMP	#UT0014
 15039  E005C18 D0 10           		BNE	AJGM0_ST_MV_0E0		; 穴ジュゲムユニット ? [no->AJGM0_ST_MV_0E0]
 15040                          ;
 15041  E005C1A A9 0157         		LDA	#AJGM0
 15042  E005C1D 22 002364'      		JSL	>ENINSR
 15043  E005C21 90 07           		BCC	AJGM0_ST_MV_0E0		; 敵エリア確保成功 ? [no->AJGM0_ST_MV_0E0]
 15044                          ;
 15045  E005C23 EE 0C4E         		INC	!AJGM0_COUNT
 15046  E005C26 22 000000"      		JSL	>AJGM0_INIT
 15047                          ;
 15048          005C2A          AJGM0_ST_MV_0E0 EQU	$
 15049                          ;
 15050                          		I16				; index 16bit mode !!
 15050+ E005C2A C2 10           		REP	#00010000b	
 15051                          ;
 15052  E005C2C 7A              		PLY
 15053          005C2D          AJGM0_ST_MV_0F0 EQU	$
 15054  E005C2D 60              		RTS
 15055                          ;
 15056                          ;
 15057                          ;************************************************************************
 15058                          ;*	穴ジュゲムのわきだし終了セット					*
 15059                          ;************************************************************************
 15060          005C2E          AJGM0_EN_IN	EQU	$
 15061  E005C2E 9C 0C4C         		STZ	!AJGM_ST_FG		; フラグクリア !!
 15062  E005C31 4C 562C'        		JMP	ESCLEAR
 15063                          ;
 15064                          ;
 15065                          ;************************************************************************
 15066                          ;*	ばんぶーダンサーズダンスコーチ初期セット			*
 15067                          ;************************************************************************
 15068          005C34          BAMBO_S0_CHK	EQU	$
 15069  E005C34 01 09 11 19     		HEX	001,009,011,019
 15070                          ;
 15071          005C38          BAMBO_S0_IN	EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0257

 15072  E005C38 A5 00           		LDA	<EWORK0
 15073  E005C3A 29 0001         		AND	#00001H
 15074  E005C3D 85 00           		STA	<EWORK0
 15075  E005C3F A5 02           		LDA	<EWORK2
 15076  E005C41 29 0001         		AND	#00001H
 15077  E005C44 0A              		ASL	A
 15078  E005C45 05 00           		ORA	<EWORK0
 15079  E005C47 AA              		TAX
 15080  E005C48 BD 5C34'        		LDA	!BAMBO_S0_CHK,X
 15081  E005C4B 29 00FF         		AND	#000FFH
 15082  E005C4E 85 00           		STA	<EWORK0
 15083  E005C50 CD 0C50         		CMP	BAMBO_ST_FG		;同じダンス ?
 15084  E005C53 D0 03           		BNE	BAMBO_S0_IN0100		;  no: BAMBO_S0_IN0100
 15085  
 15086          005C55          BAMBO_S0_IN0080 EQU	$
 15087  E005C55 4C 562C'        		JMP	ESCLEAR
 15088  
 15089          005C58          BAMBO_S0_IN0100 EQU	$
 15090  E005C58 8D 0C50         		STA	BAMBO_ST_FG		;フラグセット！！
 15091  
 15092  E005C5B AD 0C52         		LDA	BAMBO_ST_CP		;はじめて ?
 15093  E005C5E D0 F5           		BNE	BAMBO_S0_IN0080		;  no: BAMBO_S0_IN0080
 15094  
 15095  E005C60 9C 0C54         		STZ	BAMBO_TIMER
 15096  E005C63 9C 0C5C         		STZ	BAMBO_IDX
 15097  E005C66 EE 0C52         		INC	BAMBO_ST_CP
 15098  
 15099  E005C69 60              		RTS
 15100                          ;
 15101                          ;************************************************************************
 15102                          ;*	ばんぶーダンサーズダンスコーチ処理				*
 15103                          ;************************************************************************
 15104          005C6A          BAMBO_DANCE00	EQU	$
 15105  E005C6A 04 06 0E 08 0A  		HEX	04,06,0E,08,0A,08,0C,06
        E005C6F 08 0C 06 
 15106          005C72          BAMBO_DANCE01	EQU	$
 15107  E005C72 0C 0E 10 00 0E  		HEX	0C,0E,10,00,0E,0C,10,02
        E005C77 0C 10 02 
 15108          005C7A          BAMBO_DANCE02	EQU	$
 15109  E005C7A 0A 04 0C 06 0A  		HEX	0A,04,0C,06,0A,04,0E,08
        E005C7F 04 0E 08 
 15110          005C82          BAMBO_DANCE03	EQU	$
 15111  E005C82 0E 08 10 00 0E  		HEX	0E,08,10,00,0E,08,04,00
        E005C87 08 04 00 
 15112                          ;
 15113          005C8A          BAMBO_DANCE10	EQU	$
 15114  E005C8A 0A 08 0C 06 04  		HEX	0A,08,0C,06,04,06,0E,08
        E005C8F 06 0E 08 
 15115          005C92          BAMBO_DANCE11	EQU	$
 15116  E005C92 0E 0C 10 02 0C  		HEX	0E,0C,10,02,0C,0E,10,00
        E005C97 0E 10 00 
 15117          005C9A          BAMBO_DANCE12	EQU	$
 15118  E005C9A 0A 04 0E 08 0A  		HEX	0A,04,0E,08,0A,04,0C,06
        E005C9F 04 0C 06 
 15119          005CA2          BAMBO_DANCE13	EQU	$
 15120  E005CA2 0E 08 04 00 0E  		HEX	0E,08,04,00,0E,08,10,00
        E005CA7 08 10 00 
 15121                          ;
 15122          005CAA          BAMBO_XREVISE0	EQU	$
 15123  E005CAA 00 F0 F0 00 00  		HEX	000,0F0,0F0,000,000,010,010,000
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0258

        E005CAF 10 10 00 
 15124  E005CB2 00 00 00 E0 E0  		HEX	000,000,000,0E0,0E0,0E0,0E0,000
        E005CB7 E0 E0 00 
 15125  E005CBA 00 00 00 F0 F0  		HEX	000,000,000,0F0,0F0,0F0,0F0,000
        E005CBF F0 F0 00 
 15126  E005CC2 00 10 10 F0 F0  		HEX	000,010,010,0F0,0F0,000,000,0E0
        E005CC7 00 00 E0 
 15127                          ;
 15128          005CCA          BAMBO_XREVISE1	EQU	$
 15129  E005CCA 00 10 10 00 00  		HEX	000,010,010,000,000,0F0,0F0,000
        E005CCF F0 F0 00 
 15130  E005CD2 00 00 00 20 20  		HEX	000,000,000,020,020,020,020,000
        E005CD7 20 20 00 
 15131  E005CDA 00 00 00 10 10  		HEX	000,000,000,010,010,010,010,000
        E005CDF 10 10 00 
 15132  E005CE2 00 10 10 F0 F0  		HEX	000,010,010,0F0,0F0,000,000,0E0
        E005CE7 00 00 E0 
 15133          005CEA          BAMBO_SOUND	EQU	$
 15134  E005CEA 68 69           		HEX	68,69
 15135                          ;
 15136          005CEC          BAMBO_S0_MV	EQU	$
 15137  E005CEC AD 0C54         		LDA	BAMBO_TIMER	;ダンスチェンジ ?
 15138  E005CEF 3A              		DEC	A		;
 15139  E005CF0 D0 0E           		BNE	BAMBO_ST_MV0150 ;  no: BAMBO_ST_MV0150
 15140  
 15141  E005CF2 AD 61B0         		LDA	ENSTFG
 15142  E005CF5 0D 0B55         		ORA	BIRIBIRI
 15143  E005CF8 0D 0398         		ORA	ITEMNO
 15144  E005CFB F0 07           		BEQ	BAMBO_ST_MV0180 ;ＳＴＯＰ？ ( no:BAMBO_ST_MV0180 )
 15145  
 15146  E005CFD 8D 0C56         		STA	BAMBO_ST_FLAG
 15147  
 15148          005D00          BAMBO_ST_MV0150 EQU	$
 15149  E005D00 9C 0C66         		STZ	BAMBO_SOUND_FG
 15150  E005D03 60              		RTS
 15151  
 15152          005D04          BAMBO_ST_MV0180 EQU	$
 15153  E005D04 AD 0C56         		LDA	BAMBO_ST_FLAG	;ポーズがかかってた ?
 15154  E005D07 F0 04           		BEQ	BAMBO_ST_MV0190 ;  no: BAMBO_ST_MV0190
 15155  
 15156  E005D09 9C 0C56         		STZ	BAMBO_ST_FLAG
 15157  E005D0C 60              		RTS
 15158  
 15159          005D0D          BAMBO_ST_MV0190 EQU	$
 15160  E005D0D AD 0C5C         		LDA	BAMBO_IDX	;
 15161  E005D10 1A              		INC	A		;
 15162  E005D11 29 0007         		AND	#00007		;
 15163  E005D14 8D 0C5C         		STA	BAMBO_IDX	;
 15164                          ;		BIT	#00001
 15165                          ;		BNE	BAMBO_ST_MV0191
 15166                          ;
 15167                          ;		AND	#00002
 15168                          ;		LSR	A
 15169                          ;		PHY
 15170                          ;		TAY
 15171                          ;		LDA	!BAMBO_SOUND,Y
 15172                          ;		TAY
 15173                          ;		TYA
 15174                          ;		JSL	>SOUND_3_ON		;［Ｓ］
 15175                          ;		PLY
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0259

 15176                          ;
 15177                          ;BAMBO_ST_MV0191 EQU	$
 15178  E005D17 AD 0C50         		LDA	BAMBO_ST_FG
 15179  E005D1A 18              		CLC
 15180  E005D1B 6D 0C5C         		ADC	BAMBO_IDX
 15181  E005D1E AA              		TAX
 15182  E005D1F BD 5C69'        		LDA	!BAMBO_DANCE00-1,X
 15183  E005D22 29 00FF         		AND	#000FFH
 15184  E005D25 8D 0C58         		STA	BAMBO_SEQ0
 15185  E005D28 BD 5C89'        		LDA	!BAMBO_DANCE10-1,X
 15186  E005D2B 29 00FF         		AND	#000FFH
 15187  E005D2E 8D 0C5A         		STA	BAMBO_SEQ1
 15188  
 15189  E005D31 5A              		PHY
 15190  E005D32 AC 0C66         		LDY	BAMBO_SOUND_FG		;ダンサーズいる ?
 15191  E005D35 F0 17           		BEQ	BAMBO_ST_MV0198		;  no: BAMBO_ST_MV0198
 15192  
 15193  E005D37 A0 0000         		LDY	#000
 15194  E005D3A C9 000A         		CMP	#00AH
 15195  E005D3D F0 06           		BEQ	BAMBO_ST_MV0195
 15196  E005D3F C9 0003         		CMP	#002+1
 15197  E005D42 30 01           		BMI	BAMBO_ST_MV0195
 15198  
 15199  E005D44 C8              		INY
 15200  
 15201          005D45          BAMBO_ST_MV0195 EQU	$
 15202  E005D45 B9 5CEA'        		LDA	!BAMBO_SOUND,Y
 15203  E005D48 A8              		TAY
 15204  E005D49 98              		TYA
 15205  E005D4A 22 000000"      		JSL	>SOUND_3_ON
 15206  
 15207          005D4E          BAMBO_ST_MV0198 EQU	$
 15208  E005D4E 7A              		PLY
 15209  
 15210  E005D4F BD 5CA9'        		LDA	!BAMBO_XREVISE0-1,X
 15211  E005D52 29 00FF         		AND	#000FFH
 15212  E005D55 C9 0080         		CMP	#00080H
 15213  E005D58 30 03           		BMI	BAMBO_ST_MV0200
 15214  
 15215  E005D5A 09 FF00         		ORA	#0FF00H
 15216  
 15217          005D5D          BAMBO_ST_MV0200 EQU	$
 15218  E005D5D 8D 0C5E         		STA	BAMBO_XREV00
 15219  
 15220  E005D60 BD 5CC9'        		LDA	!BAMBO_XREVISE1-1,X
 15221  E005D63 29 00FF         		AND	#000FFH
 15222  E005D66 C9 0080         		CMP	#00080H
 15223  E005D69 30 03           		BMI	BAMBO_ST_MV0300
 15224  
 15225  E005D6B 09 FF00         		ORA	#0FF00H
 15226  
 15227          005D6E          BAMBO_ST_MV0300 EQU	$
 15228  E005D6E 8D 0C60         		STA	BAMBO_XREV10
 15229  
 15230  E005D71 8A              		TXA
 15231  E005D72 3A              		DEC	A
 15232  E005D73 29 0007         		AND	#00007
 15233  E005D76 AA              		TAX
 15234  
 15235  E005D77 BD 5CA9'        		LDA	!BAMBO_XREVISE0-1,X
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0260

 15236  E005D7A 29 00FF         		AND	#000FFH
 15237  E005D7D C9 0080         		CMP	#00080H
 15238  E005D80 30 03           		BMI	BAMBO_ST_MV0400
 15239  
 15240  E005D82 09 FF00         		ORA	#0FF00H
 15241  
 15242          005D85          BAMBO_ST_MV0400 EQU	$
 15243  E005D85 8D 0C62         		STA	BAMBO_XREV01
 15244  
 15245  E005D88 BD 5CC9'        		LDA	!BAMBO_XREVISE1-1,X
 15246  E005D8B 29 00FF         		AND	#000FFH
 15247  E005D8E C9 0080         		CMP	#00080H
 15248  E005D91 30 03           		BMI	BAMBO_ST_MV0500
 15249  
 15250  E005D93 09 FF00         		ORA	#0FF00H
 15251  
 15252          005D96          BAMBO_ST_MV0500 EQU	$
 15253  E005D96 8D 0C64         		STA	BAMBO_XREV11
 15254  
 15255  E005D99 A2 0002         		LDX	#002
 15256  E005D9C 8E 0CD8         		STX	BAMBO_QUE
 15257  
 15258          005D9F          BAMBO_ST_MV0800 EQU	$
 15259  E005D9F 9C 0C66         		STZ	BAMBO_SOUND_FG
 15260  
 15261  E005DA2 60              		RTS
 15262                          ;
 15263                          ;************************************************************************
 15264                          ;*	ばんぶーダンサーズダンスコーチ終了セット			*
 15265                          ;************************************************************************
 15266          005DA3          BAMBO_EN_IN	EQU	$
 15267  E005DA3 9C 0C50         		STZ	BAMBO_ST_FG		;
 15268  E005DA6 9C 0C52         		STZ	BAMBO_ST_CP
 15269  E005DA9 9C 0CD8         		STZ	BAMBO_QUE
 15270  E005DAC 9C 0C58         		STZ	BAMBO_SEQ0
 15271  E005DAF 9C 0C5A         		STZ	BAMBO_SEQ1
 15272  E005DB2 9C 0C66         		STZ	BAMBO_SOUND_FG
 15273  
 15274  E005DB5 4C 562C'        		JMP	ESCLEAR
 15275                          ;
 15276                          ;
 15277                          ;************************************************************************
 15278                          ;*	雷ジュゲムのわきだしＥＮＤ初期セット				*
 15279                          ;************************************************************************
 15280          005DB8          THJGM_EN_IN	EQU	$
 15281  E005DB8 9C 0C68         		STZ	TJGM_ST_FG	; 雷ジュゲムのわきだしフラグ”ＯＦＦ”
 15282  E005DBB 4C 562C'        		JMP	ESCLEAR
 15283                          ;
 15284                          ;
 15285                          ;****************************************************************
 15286                          ;*	花ちゃん成虫のわきだしスタート初期セット		*
 15287                          ;****************************************************************
 15288          005DBE          MOTH0_ST_IN	EQU	$
 15289  E005DBE AD 0C6A         		LDA	!MOTH_ST_FG
 15290  E005DC1 F0 03           		BEQ	MOTH0_ST_IN0010		; 既にセット中 ? [no->MOTH0_ST_IN0010]
 15291                          ;
 15292  E005DC3 4C 562C'        		JMP	ESCLEAR
 15293                          ;
 15294          005DC6          MOTH0_ST_IN0010 EQU	$
 15295  E005DC6 EE 0C6A         		INC	!MOTH_ST_FG		; 花ちゃん成虫のわきだしフラグセット !!
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0261

 15296  E005DC9 60              		RTS
 15297                          ;
 15298                          ;
 15299                          ;****************************************************************
 15300                          ;*	花ちゃん成虫のわきだし処理				*
 15301                          ;****************************************************************
 15302          005DCA          MOTH0_ST_MVXPS	EQU	$
 15303  E005DCA 0120 0130 FFD0  		WORD	00120H, 00130H, -00030H, -00040H
        E005DD0 FFC0 
 15304                          ;
 15305          005DD2          MOTH0_ST_MVYPS	EQU	$
 15306  E005DD2 0020 0060 00A0  		WORD	00020H, 00060H, 000A0H, 000E0H
        E005DD8 00E0 
 15307                          ;
 15308          005DDA          MOTH0_ST_MV	EQU	$
 15309  E005DDA AD 0C6A         		LDA	!MOTH_ST_FG
 15310  E005DDD D0 03           		BNE	MOTH0_ST_MV0000		; 花ちゃん成虫のわきだし終了 ? [no->MOTH0_ST_MV0000]
 15311                          ;
 15312  E005DDF 4C 562C'        		JMP	ESCLEAR
 15313                          ;
 15314          005DE2          MOTH0_ST_MV0000 EQU	$
 15315  E005DE2 AD 61B0         		LDA	!ENSTFG
 15316  E005DE5 0D 0B55         		ORA	!BIRIBIRI
 15317  E005DE8 0D 0398         		ORA	ITEMNO
 15318  E005DEB D0 6C           		BNE	MOTH0_ST_MV00F0		; STOP ? [yes->MOTH0_ST_MV00F0]
 15319                          ;
 15320  E005DED AD 0CDA         		LDA	!MOTH0_TIMER
 15321  E005DF0 D0 67           		BNE	MOTH0_ST_MV00F0		; 花ちゃん成虫セット ? [no->MOTH0_ST_MV00F0]
 15322                          ;
 15323  E005DF2 AD 0C6C         		LDA	!MOTH0_COUNT
 15324  E005DF5 C9 0004         		CMP	#0004
 15325  E005DF8 B0 5F           		BCS	MOTH0_ST_MV00F0		; 花ちゃん成虫セット ? [no->MOTH0_ST_MV00F0]
 15326                          ;
 15327  E005DFA A9 0030         		LDA	#00030H
 15328  E005DFD 8D 0CDA         		STA	!MOTH0_TIMER
 15329                          ;
 15330                          		I8				; index 8bit mode !!
 15330+ E005E00 E2 10           		SEP	#00010000b	
 15331                          ;
 15332  E005E02 5A              		PHY				; (Y) save !!
 15333                          ;
 15334  E005E03 A9 0152         		LDA	#MOTH0
 15335  E005E06 22 002364'      		JSL	>ENINSR
 15336  E005E0A 90 4A           		BCC	MOTH0_ST_MV00E0		; 敵エリア確保失敗 ? [yes->MOTH0_ST_MV00E0]
 15337                          ;
 15338  E005E0C EE 0C6C         		INC	!MOTH0_COUNT		; 花ちゃん成虫のわきだしカウンター !!
 15339                          ;
 15340  E005E0F AD 0073         		LDA	!SCHMK1
 15341  E005E12 99 7400         		STA	!ENMUKI,Y
 15342  E005E15 0A              		ASL	A
 15343  E005E16 85 00           		STA	<EWORK
 15344  E005E18 A5 10           		LDA	<RANDM0
 15345  E005E1A 29 0001         		AND	#00001H
 15346  E005E1D 0A              		ASL	A
 15347  E005E1E 05 00           		ORA	<EWORK
 15348  E005E20 AA              		TAX
 15349  E005E21 AD 0039         		LDA	!SCCH1
 15350  E005E24 18              		CLC
 15351  E005E25 7D 5DCA'        		ADC	MOTH0_ST_MVXPS,X
 15352  E005E28 99 70E2         		STA	!ENXPSL,Y
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0262

 15353  E005E2B A5 10           		LDA	<RANDM0
 15354  E005E2D 29 0003         		AND	#00003H
 15355  E005E30 0A              		ASL	A
 15356  E005E31 AA              		TAX
 15357  E005E32 AD 003B         		LDA	!SCCV1
 15358  E005E35 18              		CLC
 15359  E005E36 7D 5DD2'        		ADC	MOTH0_ST_MVYPS,X
 15360  E005E39 99 7182         		STA	!ENYPSL,Y
 15361  E005E3C 8B              		PHB
 15362  E005E3D A2 00"          		LDX	#BANK MOTH0IN
 15363  E005E3F DA              		PHX
 15364  E005E40 AB              		PLB				; DBR Set !!
 15365  E005E41 BB              		TYX
 15366  E005E42 22 000000"      		JSL	>MOTH0IN		; 花ちゃん成虫イニシャル !!
 15367                          ;
 15368  E005E46 AB              		PLB				; DBR Reset !!
 15369                          ;
 15370  E005E47 BD 7040         		LDA	!ENMOD2,X
 15371  E005E4A 29 FFF3         		AND	#1111111111110011B
 15372  E005E4D 9D 7040         		STA	!ENMOD2,X		; 範囲外クリアＯＦＦ !!
 15373  E005E50 A9 0001         		LDA	#0001
 15374  E005E53 9D 7A36         		STA	!ENWRK6,X		; 花ちゃん成虫わきだしフラグセット !!
 15375          005E56          MOTH0_ST_MV00E0 EQU	$
 15376  E005E56 7A              		PLY				; (Y) load !!
 15377                          ;
 15378                          		I16				; index 16bit mode !!
 15378+ E005E57 C2 10           		REP	#00010000b	
 15379                          ;
 15380          005E59          MOTH0_ST_MV00F0 EQU	$
 15381  E005E59 60              		RTS
 15382                          ;
 15383                          ;
 15384                          ;****************************************************************
 15385                          ;*	花ちゃん成虫のわきだし終了初期セット			*
 15386                          ;****************************************************************
 15387          005E5A          MOTH0_EN_IN	EQU	$
 15388  E005E5A 9C 0C6A         		STZ	!MOTH_ST_FG		; 花ちゃん成虫のわきだしフラグクリア !!
 15389  E005E5D 4C 562C'        		JMP	ESCLEAR
 15390                          ;
 15391                          ;
 15392                          ;****************************************************************
 15393                          ;*	プチパックンのわきだしスタート初期セット		*
 15394                          ;****************************************************************
 15395          005E60          P_KUN_ST_IN	EQU	$
 15396  E005E60 AD 0C6E         		LDA	!PKUN_ST_FG
 15397  E005E63 F0 03           		BEQ	P_KUN_ST_IN0010		; 既にセット中 ? [no->P_KUN_ST_IN0010]
 15398                          ;
 15399  E005E65 4C 562C'        		JMP	ESCLEAR
 15400                          ;
 15401          005E68          P_KUN_ST_IN0010 EQU	$
 15402  E005E68 EE 0C6E         		INC	!PKUN_ST_FG		; プチパックンのわきだしフラグセット !!
 15403  E005E6B 60              		RTS
 15404                          ;
 15405                          ;
 15406                          ;****************************************************************
 15407                          ;*	プチパックンのわきだし処理				*
 15408                          ;****************************************************************
 15409          005E6C          P_KUN_ST_MVXPS	EQU	$
 15410  E005E6C 0000 0010 0020  		WORD	 00000H,  00010H,  00020H,  00030H
        E005E72 0030 
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0263

 15411  E005E74 0040 0050 0060  		WORD	 00040H,  00050H,  00060H,  00070H
        E005E7A 0070 
 15412  E005E7C 0080 0090 00A0  		WORD	 00080H,  00090H,  000A0H,  000B0H
        E005E82 00B0 
 15413  E005E84 00C0 00D0 00E0  		WORD	 000C0H,  000D0H,  000E0H,  000F0H
        E005E8A 00F0 
 15414                          ;
 15415          005E8C          P_KUN_ST_MVYPS	EQU	$
 15416  E005E8C FFF0 FFE0 FFD0  		WORD	-00010H, -00020H, -00030H, -00040H
        E005E92 FFC0 
 15417                          ;
 15418          005E94          P_KUN_ST_MV	EQU	$
 15419  E005E94 AD 0C6E         		LDA	!PKUN_ST_FG
 15420  E005E97 D0 03           		BNE	P_KUN_ST_MV0000		; プチパックンのわきだし終了 ? [no->P_KUN_ST_MV0000]
 15421                          ;
 15422  E005E99 4C 562C'        		JMP	ESCLEAR
 15423                          ;
 15424          005E9C          P_KUN_ST_MV0000 EQU	$
 15425  E005E9C AD 61B0         		LDA	!ENSTFG
 15426  E005E9F 0D 0B55         		ORA	!BIRIBIRI
 15427  E005EA2 0D 0398         		ORA	ITEMNO
 15428  E005EA5 D0 64           		BNE	P_KUN_ST_MV00F0		; STOP ? [yes->P_KUN_ST_MV00F0]
 15429                          ;
 15430  E005EA7 AD 0CDC         		LDA	!P_KUN_TIMER
 15431  E005EAA D0 5F           		BNE	P_KUN_ST_MV00F0		; プチパックンセット ? [no->P_KUN_ST_MV00F0]
 15432                          ;
 15433                          		I8				; index 8bit mode !!
 15433+ E005EAC E2 10           		SEP	#00010000b	
 15434                          ;
 15435  E005EAE 5A              		PHY				; (Y) save !!
 15436                          ;
 15437  E005EAF A9 0165         		LDA	#P_KUN
 15438  E005EB2 8D 3008         		STA	R4
 15439  E005EB5 A9 0166         		LDA	#P_KUN+1
 15440  E005EB8 8D 300A         		STA	R5
 15441                          		M_CHIP	TARGET_COUNTER
 15441+ E005EBB A2 09           		LDX	#BANK TARGET_COUNTER
 15441+ E005EBD A9 91DB         		LDA	#TARGET_COUNTER
 15441+ E005EC0 22 000000"      		JSL	>CHIPON
 15442                          ;
 15443  E005EC4 AD 300C         		LDA	R6
 15444  E005EC7 C9 0004         		CMP	#0004
 15445  E005ECA B0 3C           		BCS	P_KUN_ST_MV00E0		; プチパックンセット ? [no->P_KUN_ST_MV00E0]
 15446                          ;
 15447  E005ECC A9 0020         		LDA	#0032
 15448  E005ECF 8D 0CDC         		STA	!P_KUN_TIMER
 15449  E005ED2 A9 0165         		LDA	#P_KUN
 15450  E005ED5 22 002364'      		JSL	>ENINSR
 15451  E005ED9 90 2D           		BCC	P_KUN_ST_MV00E0		; 敵エリア確保失敗 ? [yes->P_KUN_ST_MV00E0]
 15452                          ;
 15453  E005EDB A5 10           		LDA	<RANDM0
 15454  E005EDD 29 000F         		AND	#0000FH
 15455  E005EE0 0A              		ASL	A
 15456  E005EE1 AA              		TAX
 15457  E005EE2 AD 0039         		LDA	!SCCH1
 15458  E005EE5 18              		CLC
 15459  E005EE6 7D 5E6C'        		ADC	P_KUN_ST_MVXPS,X
 15460  E005EE9 99 70E2         		STA	!ENXPSL,Y
 15461  E005EEC A5 10           		LDA	<RANDM0
 15462  E005EEE 29 0003         		AND	#00003H
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0264

 15463  E005EF1 0A              		ASL	A
 15464  E005EF2 AA              		TAX
 15465  E005EF3 AD 003B         		LDA	!SCCV1
 15466  E005EF6 18              		CLC
 15467  E005EF7 7D 5E8C'        		ADC	P_KUN_ST_MVYPS,X
 15468  E005EFA 99 7182         		STA	!ENYPSL,Y
 15469  E005EFD 8B              		PHB
 15470  E005EFE A2 00"          		LDX	#BANK P_KUNIN
 15471  E005F00 DA              		PHX
 15472  E005F01 AB              		PLB				; DBR Set !!
 15473  E005F02 BB              		TYX
 15474  E005F03 22 000000"      		JSL	>P_KUNIN		; プチパックンイニシャル !!
 15475                          ;
 15476  E005F07 AB              		PLB				; DBR Reset !!
 15477                          ;
 15478          005F08          P_KUN_ST_MV00E0 EQU	$
 15479                          ;
 15480  E005F08 7A              		PLY				; (Y) load !!
 15481                          ;
 15482                          		I16				; index 16bit mode !!
 15482+ E005F09 C2 10           		REP	#00010000b	
 15483                          ;
 15484          005F0B          P_KUN_ST_MV00F0 EQU	$
 15485  E005F0B 60              		RTS
 15486                          ;
 15487                          ;
 15488                          ;****************************************************************
 15489                          ;*	プチパックンのわきだし終了初期セット			*
 15490                          ;****************************************************************
 15491          005F0C          P_KUN_EN_IN	EQU	$
 15492  E005F0C 9C 0C6E         		STZ	!PKUN_ST_FG		; プチパックンのわきだしフラグクリア !!
 15493  E005F0F 4C 562C'        		JMP	ESCLEAR
 15494                          ;
 15495                          ;
 15496                          ;****************************************************************
 15497                          ;*	風船サボテンのわきだしスタート初期セット		*
 15498                          ;****************************************************************
 15499          005F12          FUSBO_ST_IN	EQU	$
 15500  E005F12 AD 0C70         		LDA	!FSBO_ST_FG
 15501  E005F15 F0 03           		BEQ	FUSBO_ST_IN0010		; 既にセット中 ? [no->FUSBO_ST_IN0010]
 15502                          ;
 15503  E005F17 4C 562C'        		JMP	ESCLEAR
 15504                          ;
 15505          005F1A          FUSBO_ST_IN0010 EQU	$
 15506  E005F1A EE 0C70         		INC	!FSBO_ST_FG		; 風船サボテンのわきだしフラグセット !!
 15507  E005F1D 60              		RTS
 15508                          ;
 15509                          ;
 15510                          ;****************************************************************
 15511                          ;*	風船サボテンのわきだし処理				*
 15512                          ;****************************************************************
 15513          005F1E          FUSBO_ST_MVXPS	EQU	$
 15514  E005F1E 0110 0120 FFE0  		WORD	 00110H,  00120H, -00020H, -00030H
        E005F24 FFD0 
 15515                          ;
 15516          005F26          FUSBO_ST_MVYPS	EQU	$
 15517  E005F26 0010 0020 0030  		WORD	 00010H,  00020H,  00030H,  00040H
        E005F2C 0040 
 15518                          ;
 15519          005F2E          FUSBO_ST_MV	EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0265

 15520  E005F2E 22 000000"      		JSL	>RANDAM
 15521                          ;
 15522  E005F32 AD 0C70         		LDA	!FSBO_ST_FG
 15523  E005F35 D0 03           		BNE	FUSBO_ST_MV0000		; 風船サボテンのわきだし終了 ? [no->FUSBO_ST_MV0000]
 15524                          ;
 15525  E005F37 4C 562C'        		JMP	ESCLEAR
 15526                          ;
 15527          005F3A          FUSBO_ST_MV0000 EQU	$
 15528  E005F3A AD 61B0         		LDA	!ENSTFG
 15529  E005F3D 0D 0B55         		ORA	!BIRIBIRI
 15530  E005F40 0D 0398         		ORA	ITEMNO
 15531  E005F43 D0 05           		BNE	FUSBO_ST_MV0020		; STOP ? [yes->FUSBO_ST_MV0020]
 15532                          ;
 15533  E005F45 AD 0CDE         		LDA	!FUSBO_TIMER
 15534  E005F48 F0 01           		BEQ	FUSBO_ST_MV0040		; 風船サボテンセット ? [yes->FUSBO_ST_MV0040]
 15535                          ;
 15536          005F4A          FUSBO_ST_MV0020 EQU	$
 15537  E005F4A 60              		RTS
 15538                          ;;;;;;;;		BNE	FUSBO_ST_MV00F0		; 風船サボテンセット ? [no->FUSBO_ST_MV00F0]
 15539                          ;
 15540          005F4B          FUSBO_ST_MV0040 EQU	$
 15541                          ;
 15542                          		I8				; index 8bit mode !!
 15542+ E005F4B E2 10           		SEP	#00010000b	
 15543                          ;
 15544  E005F4D 5A              		PHY				; (Y) save !!
 15545                          ;
 15546  E005F4E A9 0174         		LDA	#FUSN1
 15547  E005F51 8D 3008         		STA	R4
 15548  E005F54 A9 0175         		LDA	#FUSN1+1
 15549  E005F57 8D 300A         		STA	R5
 15550                          		M_CHIP	TARGET_COUNTER
 15550+ E005F5A A2 09           		LDX	#BANK TARGET_COUNTER
 15550+ E005F5C A9 91DB         		LDA	#TARGET_COUNTER
 15550+ E005F5F 22 000000"      		JSL	>CHIPON
 15551                          ;
 15552  E005F63 AD 300C         		LDA	R6
 15553  E005F66 48              		PHA
 15554                          ;
 15555  E005F67 A9 017F         		LDA	#BALON
 15556  E005F6A 8D 3008         		STA	R4
 15557  E005F6D A9 0180         		LDA	#BALON+1
 15558  E005F70 8D 300A         		STA	R5
 15559                          		M_CHIP	TARGET_COUNTER
 15559+ E005F73 A2 09           		LDX	#BANK TARGET_COUNTER
 15559+ E005F75 A9 91DB         		LDA	#TARGET_COUNTER
 15559+ E005F78 22 000000"      		JSL	>CHIPON
 15560                          ;
 15561  E005F7C 68              		PLA
 15562  E005F7D 18              		CLC
 15563  E005F7E 6D 300C         		ADC	R6
 15564  E005F81 C9 0004         		CMP	#0004
 15565  E005F84 B0 66           		BCS	FUSBO_ST_MV00E0		; 風船サボテンセット ? [no->FUSBO_ST_MV00E0]
 15566                          ;
 15567  E005F86 A5 10           		LDA	<RANDM0
 15568  E005F88 29 0004         		AND	#00004H
 15569  E005F8B 4A              		LSR	A
 15570  E005F8C 85 00           		STA	<EWORK
 15571  E005F8E AD 0073         		LDA	!SCHMK1
 15572  E005F91 9D 7400         		STA	!ENMUKI,X
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0266

 15573  E005F94 0A              		ASL	A
 15574  E005F95 05 00           		ORA	<EWORK
 15575  E005F97 A8              		TAY
 15576  E005F98 AD 0039         		LDA	!SCCH1
 15577  E005F9B 18              		CLC
 15578  E005F9C 79 5F1E'        		ADC	FUSBO_ST_MVXPS,Y
 15579  E005F9F 85 00           		STA	<EWORK
 15580  E005FA1 8D 3010         		STA	R8
 15581  E005FA4 A5 10           		LDA	<RANDM0
 15582  E005FA6 29 0003         		AND	#00003H
 15583  E005FA9 0A              		ASL	A
 15584  E005FAA A8              		TAY
 15585  E005FAB AD 003B         		LDA	!SCCV1
 15586  E005FAE 18              		CLC
 15587  E005FAF 79 5F26'        		ADC	FUSBO_ST_MVYPS,Y
 15588  E005FB2 85 02           		STA	<EWORK2
 15589  E005FB4 8D 3000         		STA	R0
 15590                          		M_CHIPR M_BGUNIT_READ
 15590+ E005FB7 A2 0A           		LDX	#BANK M_BGUNIT_READ
 15590+ E005FB9 A9 CC66         		LDA	#M_BGUNIT_READ
 15590+ E005FBC 22 000000"      		JSL	>CHIPON_RAM_READ
 15591                          ;
 15592  E005FC0 AD 300E         		LDA	R7
 15593  E005FC3 89 0002         		BIT	#AL
 15594  E005FC6 D0 24           		BNE	FUSBO_ST_MV00E0		; 全当たり ? [yes->FUSBO_ST_MV00E0]
 15595                          ;
 15596  E005FC8 A9 00C0         		LDA	#000C0H
 15597  E005FCB 8D 0CDE         		STA	!FUSBO_TIMER
 15598  E005FCE A9 0174         		LDA	#FUSN1
 15599  E005FD1 22 002364'      		JSL	>ENINSR
 15600  E005FD5 90 15           		BCC	FUSBO_ST_MV00E0		; 敵エリア確保失敗 ? [yes->FUSBO_ST_MV00E0]
 15601                          ;
 15602  E005FD7 BB              		TYX
 15603  E005FD8 A5 00           		LDA	<EWORK
 15604  E005FDA 9D 70E2         		STA	!ENXPSL,X
 15605                          ;
 15606  E005FDD A5 02           		LDA	<EWORK2
 15607  E005FDF 9D 7182         		STA	!ENYPSL,X
 15608                          ;
 15609  E005FE2 8B              		PHB
 15610  E005FE3 A0 00"          		LDY	#BANK FUSN1IN
 15611  E005FE5 5A              		PHY
 15612  E005FE6 AB              		PLB				; DBR Set !!
 15613  E005FE7 22 000000"      		JSL	>FUSN1IN		; 風船サボテンイニシャル !!
 15614                          ;
 15615  E005FEB AB              		PLB				; DBR Reset !!
 15616                          ;
 15617          005FEC          FUSBO_ST_MV00E0 EQU	$
 15618                          ;
 15619  E005FEC 7A              		PLY				; (Y) load !!
 15620                          ;
 15621                          		I16				; index 16bit mode !!
 15621+ E005FED C2 10           		REP	#00010000b	
 15622                          ;
 15623          005FEF          FUSBO_ST_MV00F0 EQU	$
 15624  E005FEF 60              		RTS
 15625                          ;
 15626                          ;
 15627                          ;****************************************************************
 15628                          ;*	風船サボテンのわきだし終了初期セット			*
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0267

 15629                          ;****************************************************************
 15630          005FF0          FUSBO_EN_IN	EQU	$
 15631  E005FF0 9C 0C70         		STZ	!FSBO_ST_FG		; 風船サボテンのわきだしフラグクリア !!
 15632  E005FF3 4C 562C'        		JMP	ESCLEAR
 15633                          ;
 15634                          ;
 15635                          ;****************************************************************
 15636                          ;*	風船爆弾のわきだしスタート初期セット			*
 15637                          ;****************************************************************
 15638          005FF6          FUBOM_ST_IN	EQU	$
 15639  E005FF6 AD 0C72         		LDA	!FBOM_ST_FG
 15640  E005FF9 F0 03           		BEQ	FUBOM_ST_IN0010		; 既にセット中 ? [no->FUBOM_ST_IN0010]
 15641                          ;
 15642  E005FFB 4C 562C'        		JMP	ESCLEAR
 15643                          ;
 15644          005FFE          FUBOM_ST_IN0010 EQU	$
 15645  E005FFE EE 0C72         		INC	!FBOM_ST_FG		; 風船爆弾のわきだしフラグセット !!
 15646  E006001 60              		RTS
 15647                          ;
 15648                          ;
 15649                          ;****************************************************************
 15650                          ;*	風船爆弾のわきだし処理					*
 15651                          ;****************************************************************
 15652          006002          FUBOM_ST_MV	EQU	$
 15653  E006002 22 000000"      		JSL	>RANDAM
 15654                          ;
 15655  E006006 AD 0C72         		LDA	!FBOM_ST_FG
 15656  E006009 D0 03           		BNE	FUBOM_ST_MV0000		; 風船爆弾のわきだし終了 ? [no->FUBOM_ST_MV0000]
 15657                          ;
 15658  E00600B 4C 562C'        		JMP	ESCLEAR
 15659                          ;
 15660          00600E          FUBOM_ST_MV0000 EQU	$
 15661  E00600E AD 61B0         		LDA	!ENSTFG
 15662  E006011 0D 0B55         		ORA	!BIRIBIRI
 15663  E006014 0D 0398         		ORA	ITEMNO
 15664  E006017 D0 05           		BNE	FUBOM_ST_MV0020		; STOP ? [yes->FUBOM_ST_MV0020]
 15665  
 15666  E006019 AD 0CE0         		LDA	!FUBOM_TIMER
 15667  E00601C F0 01           		BEQ	FUBOM_ST_MV0040		; 風船爆弾セット ? [yes->FUBOM_ST_MV0040]
 15668                          ;
 15669          00601E          FUBOM_ST_MV0020 EQU	$
 15670  E00601E 60              		RTS
 15671                          ;;;;;;;;		BNE	FUBOM_ST_MV00F0		; 風船爆弾セット ? [no->FUBOM_ST_MV00F0]
 15672                          ;
 15673          00601F          FUBOM_ST_MV0040 EQU	$
 15674                          ;
 15675                          		I8				; index 8bit mode !!
 15675+ E00601F E2 10           		SEP	#00010000b	
 15676                          ;
 15677  E006021 5A              		PHY				; (Y) save !!
 15678                          ;
 15679  E006022 A9 0175         		LDA	#FUSN2
 15680  E006025 8D 3008         		STA	R4
 15681  E006028 A9 0176         		LDA	#FUSN2+1
 15682  E00602B 8D 300A         		STA	R5
 15683                          		M_CHIP	TARGET_COUNTER
 15683+ E00602E A2 09           		LDX	#BANK TARGET_COUNTER
 15683+ E006030 A9 91DB         		LDA	#TARGET_COUNTER
 15683+ E006033 22 000000"      		JSL	>CHIPON
 15684                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0268

 15685  E006037 AD 300C         		LDA	R6
 15686  E00603A 48              		PHA
 15687                          ;
 15688  E00603B A9 017F         		LDA	#BALON
 15689  E00603E 8D 3008         		STA	R4
 15690  E006041 A9 0180         		LDA	#BALON+1
 15691  E006044 8D 300A         		STA	R5
 15692                          		M_CHIP	TARGET_COUNTER
 15692+ E006047 A2 09           		LDX	#BANK TARGET_COUNTER
 15692+ E006049 A9 91DB         		LDA	#TARGET_COUNTER
 15692+ E00604C 22 000000"      		JSL	>CHIPON
 15693                          ;
 15694  E006050 68              		PLA
 15695  E006051 18              		CLC
 15696  E006052 6D 300C         		ADC	R6
 15697  E006055 C9 0004         		CMP	#0004
 15698  E006058 B0 4F           		BCS	FUBOM_ST_MV00E0		; 風船爆弾セット ? [no->FUBOM_ST_MV00E0]
 15699                          ;
 15700  E00605A A5 10           		LDA	<RANDM0
 15701  E00605C 29 0004         		AND	#00004H
 15702  E00605F 4A              		LSR	A
 15703  E006060 85 00           		STA	<EWORK
 15704  E006062 AD 0073         		LDA	!SCHMK1
 15705  E006065 9D 7400         		STA	!ENMUKI,X
 15706  E006068 0A              		ASL	A
 15707  E006069 05 00           		ORA	<EWORK
 15708  E00606B A8              		TAY
 15709  E00606C AD 0039         		LDA	!SCCH1
 15710  E00606F 18              		CLC
 15711  E006070 79 5F1E'        		ADC	FUSBO_ST_MVXPS,Y
 15712  E006073 85 00           		STA	<EWORK
 15713                          ;[1994.10.31.MO]		STA	R8
 15714  E006075 A5 10           		LDA	<RANDM0
 15715  E006077 29 0003         		AND	#00003H
 15716  E00607A 0A              		ASL	A
 15717  E00607B A8              		TAY
 15718  E00607C AD 003B         		LDA	!SCCV1
 15719  E00607F 18              		CLC
 15720  E006080 79 5F26'        		ADC	FUSBO_ST_MVYPS,Y
 15721  E006083 85 02           		STA	<EWORK2
 15722                          ;[1994.10.31.MO]		STA	R0
 15723                          ;[1994.10.31.MO]		M_CHIPR M_BGUNIT_READ
 15724                          ;[1994.10.31.MO];
 15725                          ;[1994.10.31.MO]		LDA	R7
 15726                          ;[1994.10.31.MO]		BIT	#AL
 15727                          ;[1994.10.31.MO]		BNE	FUBOM_ST_MV00E0		; 全当たり ? [yes->FUBOM_ST_MV00E0]
 15728                          ;
 15729  E006085 A9 00C0         		LDA	#000C0H
 15730  E006088 8D 0CE0         		STA	!FUBOM_TIMER
 15731  E00608B A9 0175         		LDA	#FUSN2
 15732  E00608E 22 002364'      		JSL	>ENINSR
 15733  E006092 90 15           		BCC	FUBOM_ST_MV00E0		; 敵エリア確保失敗 ? [yes->FUBOM_ST_MV00E0]
 15734                          ;
 15735  E006094 BB              		TYX
 15736  E006095 A5 00           		LDA	<EWORK
 15737  E006097 9D 70E2         		STA	!ENXPSL,X
 15738                          ;
 15739  E00609A A5 02           		LDA	<EWORK2
 15740  E00609C 9D 7182         		STA	!ENYPSL,X
 15741                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0269

 15742  E00609F 8B              		PHB
 15743  E0060A0 A0 00"          		LDY	#BANK FUSN2IN
 15744  E0060A2 5A              		PHY
 15745  E0060A3 AB              		PLB				; DBR Set !!
 15746  E0060A4 22 000000"      		JSL	>FUSN2IN		; 風船爆弾イニシャル !!
 15747                          ;
 15748  E0060A8 AB              		PLB				; DBR Reset !!
 15749                          ;
 15750          0060A9          FUBOM_ST_MV00E0 EQU	$
 15751                          ;
 15752  E0060A9 7A              		PLY				; (Y) load !!
 15753                          ;
 15754                          		I16				; index 16bit mode !!
 15754+ E0060AA C2 10           		REP	#00010000b	
 15755                          ;
 15756          0060AC          FUBOM_ST_MV00F0 EQU	$
 15757  E0060AC 60              		RTS
 15758                          ;
 15759                          ;
 15760                          ;****************************************************************
 15761                          ;*	風船爆弾のわきだし終了初期セット			*
 15762                          ;****************************************************************
 15763          0060AD          FUBOM_EN_IN	EQU	$
 15764  E0060AD 9C 0C72         		STZ	!FBOM_ST_FG		; 風船爆弾のわきだしフラグクリア !!
 15765  E0060B0 4C 562C'        		JMP	ESCLEAR
 15766                          ;
 15767                          ;************************************************************************
 15768                          ;*		風船リフトのわきだしスタート初期セット			*
 15769                          ;************************************************************************
 15770          0060B3          FUSEN_ST_IN	EQU	$
 15771  E0060B3 AD 0C74         		LDA	FUSN_ST_FG
 15772  E0060B6 F0 03           		BEQ	FUSEN_ST_IN_010 ;すでにセット中？ ( yes:FUSEN_ST_IN_010 )
 15773  E0060B8 4C 562C'        		JMP	ESCLEAR
 15774                          ;
 15775          0060BB          FUSEN_ST_IN_010 EQU	$
 15776  E0060BB EE 0C74         		INC	FUSN_ST_FG	;風船リフトのわきだしフラグ”ＯＮ”
 15777  E0060BE 60              		RTS
 15778                          ;
 15779                          ;************************************************************************
 15780                          ;*		風船リフトのわきだし処理				*
 15781                          ;************************************************************************
 15782          0060BF          FUSEN_ST_MV	EQU	$
 15783  E0060BF AD 0C74         		LDA	FUSN_ST_FG
 15784  E0060C2 D0 03           		BNE	FUSEN_ST_MV_000 ;風船リフトのわきだしＥＮＤ？ ( no:FUSEN_ST_MV_000 )
 15785  E0060C4 4C 562C'        		JMP	ESCLEAR
 15786                          ;
 15787          0060C7          FUSEN_ST_MV_000 EQU	$
 15788  E0060C7 AD 61B0         		LDA	ENSTFG
 15789  E0060CA 0D 0B55         		ORA	BIRIBIRI
 15790  E0060CD 0D 0398         		ORA	ITEMNO
 15791  E0060D0 D0 51           		BNE	FUSEN_ST_MV_020 ;ＳＴＯＰ？ ( yes:FUSEN_ST_MV_020 )
 15792                          ;
 15793  E0060D2 AD 0CE2         		LDA	FUSEN_TIMER	;セット？
 15794  E0060D5 D0 4C           		BNE	FUSEN_ST_MV_020 ;  no: FUSEN_ST_MV_020
 15795  
 15796                          ;		LDA	#00040H*2
 15797  E0060D7 A9 0060         		LDA	#00060H
 15798  E0060DA 8D 0CE2         		STA	FUSEN_TIMER
 15799                          ;
 15800  E0060DD AD 0FED         		LDA	FUSENSUM
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0270

 15801                          ;		CMP	#00008
 15802  E0060E0 C9 000C         		CMP	#0000CH
 15803  E0060E3 10 3E           		BPL	FUSEN_ST_MV_020
 15804  
 15805                          		I8
 15805+ E0060E5 E2 10           		SEP	#00010000b	
 15806                          ;
 15807  E0060E7 5A              		PHY			;(Y) save
 15808                          ;
 15809  E0060E8 A9 0052         		LDA	#FUSEN		;(A) <-- 敵Ｎｏ．
 15810  E0060EB 22 00234C'      		JSL	>ENINSR_I	;敵エリア確保
 15811  E0060EF 90 2F           		BCC	FUSEN_ST_MV_010 ;      ”    ？ ( no:FUSEN_ST_MV_010 )
 15812                          ;
 15813  E0060F1 AD 003B         		LDA	SCCV1
 15814  E0060F4 18              		CLC
 15815  E0060F5 69 0110         		ADC	#00110H
 15816  E0060F8 99 7182         		STA	ENYPSL,Y
 15817  
 15818  E0060FB AD 60A8         		LDA	PLXSPD
 15819  E0060FE D0 08           		BNE	FUSEN_ST_MV_001
 15820  
 15821  E006100 AD 60C4         		LDA	PLCMKI
 15822  E006103 3A              		DEC	A
 15823  E006104 49 FFFF         		EOR	#0FFFFH
 15824  E006107 1A              		INC	A
 15825  
 15826          006108          FUSEN_ST_MV_001 EQU	$
 15827  E006108 10 05           		BPL	FUSEN_ST_MV_003
 15828  
 15829  E00610A A9 FFA0         		LDA	#0FFA0H
 15830  E00610D 80 03           		BRA	FUSEN_ST_MV_005
 15831  
 15832          00610F          FUSEN_ST_MV_003 EQU	$
 15833  E00610F A9 0060         		LDA	#00060H
 15834  
 15835          006112          FUSEN_ST_MV_005 EQU	$
 15836  E006112 85 00           		STA	<EWORK0
 15837  
 15838  E006114 AD 608C         		LDA	PLXPSL
 15839  E006117 18              		CLC
 15840  E006118 65 00           		ADC	<EWORK0
 15841  E00611A 29 FFE0         		AND	#0FFE0H
 15842  E00611D 99 70E2         		STA	ENXPSL,Y
 15843                          ;
 15844          006120          FUSEN_ST_MV_010 EQU	$
 15845  E006120 7A              		PLY
 15846                          ;
 15847                          		I16
 15847+ E006121 C2 10           		REP	#00010000b	
 15848                          ;
 15849          006123          FUSEN_ST_MV_020 EQU	$
 15850  
 15851  E006123 60              		RTS
 15852                          ;
 15853                          ;************************************************************************
 15854                          ;*		風船リフトのわきだしＥＮＤ初期セット			*
 15855                          ;************************************************************************
 15856          006124          FUSEN_EN_IN	EQU	$
 15857  E006124 9C 0C74         		STZ	FUSN_ST_FG	;風船リフトのわきだしフラグ”ＯＦＦ”
 15858  E006127 4C 562C'        		JMP	ESCLEAR
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0271

 15859                          ;
 15860                          ;************************************************************************
 15861                          ;*		ロープリフトのタイプ０セット				*
 15862                          ;************************************************************************
 15863          00612A          RPL_0_SET_X	EQU	$
 15864  E00612A 0620 06A0 0630  		WORD	00620H,006A0H,00630H,005B0H
        E006130 05B0 
 15865          006132          RPL_0_SET_Y	EQU	$
 15866  E006132 0140 01B0 0230  		WORD	00140H,001B0H,00230H,001B0H
        E006138 01B0 
 15867          00613A          RPL_0_SET_NAME	EQU	$
 15868  E00613A 0188 0188 0187  		WORD	HRLF1,HRLF1,HRLF0,HRLF1
        E006140 0188 
 15869                          ;
 15870          006142          RPL_0_ST_IN	EQU	$
 15871  E006142 AD 0C76         		LDA	RPL0_ST_FG
 15872  E006145 F0 03           		BEQ	RPL_0_ST_IN_010 ;すでにセット中？ ( yes:RPL_0_ST_IN_010 )
 15873  E006147 4C 562C'        		JMP	ESCLEAR
 15874                          ;
 15875          00614A          RPL_0_ST_IN_010 EQU	$
 15876  E00614A EE 0C76         		INC	RPL0_ST_FG	;ロープリフトのタイプ０セットフラグ”ＯＮ”
 15877  
 15878  E00614D 5A              		PHY
 15879                          		I8
 15879+ E00614E E2 10           		SEP	#00010000b	
 15880  E006150 A0 00           		LDY	#000
 15881  
 15882          006152          RPL_0_ST_IN_020 EQU	$
 15883  E006152 84 00           		STY	<EWORK0
 15884  E006154 B9 612A'        		LDA	!RPL_0_SET_X,Y
 15885  E006157 85 02           		STA	<EWORK2
 15886  E006159 B9 6132'        		LDA	!RPL_0_SET_Y,Y
 15887  E00615C 85 04           		STA	<EWORK4
 15888  E00615E B9 613A'        		LDA	!RPL_0_SET_NAME,Y
 15889  E006161 22 00234C'      		JSL	>ENINSR_I
 15890  E006165 90 25           		BCC	RPL_0_ST_IN_050
 15891  
 15892  E006167 A5 02           		LDA	<EWORK2
 15893  E006169 99 70E2         		STA	ENXPSL,Y
 15894  E00616C A5 04           		LDA	<EWORK4
 15895  E00616E 99 7182         		STA	ENYPSL,Y
 15896  
 15897  E006171 B9 7040         		LDA	ENMOD2,Y		;範囲外クリアなし
 15898  E006174 29 FFF3         		AND	#0FFF3H
 15899  E006177 99 7040         		STA	ENMOD2,Y
 15900  
 15901  E00617A EE 0FF7         		INC	RPL_0SUM
 15902  E00617D EE 0FF7         		INC	RPL_0SUM
 15903  
 15904  E006180 98              		TYA
 15905  E006181 A4 00           		LDY	<EWORK0
 15906  E006183 99 0FEF         		STA	RPL_0IDX,Y
 15907  
 15908  E006186 C8              		INY
 15909  E006187 C8              		INY
 15910  E006188 C0 08           		CPY	#008
 15911  E00618A 30 C6           		BMI	RPL_0_ST_IN_020
 15912  
 15913          00618C          RPL_0_ST_IN_050 EQU	$
 15914                          		I16
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0272

 15914+ E00618C C2 10           		REP	#00010000b	
 15915  E00618E 7A              		PLY
 15916  
 15917  E00618F 60              		RTS
 15918                          ;
 15919                          ;************************************************************************
 15920                          ;*		ロープリフトのタイプ０範囲外チェック処理		*
 15921                          ;************************************************************************
 15922          006190          RPL_0_ST_MV	EQU	$
 15923  E006190 5A              		PHY
 15924                          		I8
 15924+ E006191 E2 10           		SEP	#00010000b	
 15925  E006193 AC 0FF7         		LDY	RPL_0SUM
 15926  
 15927          006196          RPL_0_ST_MV_010 EQU	$
 15928  E006196 84 00           		STY	<EWORK0
 15929  
 15930  E006198 B9 0FED         		LDA	RPL_0IDX-2,Y
 15931  E00619B A8              		TAY
 15932  E00619C B9 7680         		LDA	ENDSXL,Y
 15933  E00619F 18              		CLC
 15934  E0061A0 69 0100         		ADC	#0100H
 15935  E0061A3 C9 0300         		CMP	#0100H+(0100H*2)
 15936  E0061A6 B0 0C           		BCS	RPL_0_ST_MV_020 ;X pos display ? ( no:RPL_0_ST_MV_020 )
 15937  E0061A8 B9 7682         		LDA	ENDSYL,Y
 15938  E0061AB 18              		CLC
 15939  E0061AC 69 0100         		ADC	#0100H
 15940  E0061AF C9 0300         		CMP	#0100H+(0100H*2) ;Y pos display ?
 15941  E0061B2 90 2A           		BCC	RPL_0_ST_MV_050
 15942  
 15943          0061B4          RPL_0_ST_MV_020 EQU	$
 15944  E0061B4 A4 00           		LDY	<EWORK0
 15945  E0061B6 88              		DEY
 15946  E0061B7 88              		DEY
 15947  E0061B8 D0 DC           		BNE	RPL_0_ST_MV_010
 15948  
 15949  E0061BA AC 0FF7         		LDY	RPL_0SUM
 15950  
 15951          0061BD          RPL_0_ST_MV_030 EQU	$
 15952  E0061BD 84 00           		STY	<EWORK0
 15953  
 15954  E0061BF BE 0FED         		LDX	RPL_0IDX-2,Y
 15955  E0061C2 22 00231E'      		JSL	>ENCLEAR
 15956  
 15957  E0061C6 A4 00           		LDY	<EWORK0
 15958  E0061C8 A9 0000         		LDA	#00000
 15959  E0061CB 99 0FED         		STA	RPL_0IDX-2,Y
 15960  E0061CE 88              		DEY
 15961  E0061CF 88              		DEY
 15962  E0061D0 D0 EB           		BNE	RPL_0_ST_MV_030
 15963  
 15964  E0061D2 9C 0C76         		STZ	RPL0_ST_FG	;ロープリフトのタイプ０セットフラグ”ＯＦＦ”
 15965  E0061D5 9C 0FF7         		STZ	RPL_0SUM
 15966  
 15967                          		I16
 15967+ E0061D8 C2 10           		REP	#00010000b	
 15968  E0061DA 7A              		PLY
 15969  E0061DB 4C 562C'        		JMP	ESCLEAR
 15970  
 15971          0061DE          RPL_0_ST_MV_050 EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0273

 15972                          		I16
 15972+ E0061DE C2 10           		REP	#00010000b	
 15973  E0061E0 7A              		PLY
 15974  
 15975  E0061E1 60              		RTS
 15976                          ;
 15977                          ;************************************************************************
 15978                          ;*		ちびぷよのわきだしスタート初期セット			*
 15979                          ;************************************************************************
 15980          0061E2          SSLIM_ST_IN	EQU	$
 15981  E0061E2 AD 0C78         		LDA	SSLM_ST_FG
 15982  E0061E5 F0 03           		BEQ	SSLIM_ST_IN_010 ;すでにセット中？ ( yes:SSLIM_ST_IN_010 )
 15983  E0061E7 4C 562C'        		JMP	ESCLEAR
 15984                          ;
 15985          0061EA          SSLIM_ST_IN_010 EQU	$
 15986  E0061EA EE 0C78         		INC	SSLM_ST_FG	;ちびぷよのわきだしフラグ”ＯＮ”
 15987  E0061ED A5 02           		LDA	<EWORK2
 15988  E0061EF 0A              		ASL	A
 15989  E0061F0 0A              		ASL	A
 15990  E0061F1 0A              		ASL	A
 15991  E0061F2 0A              		ASL	A
 15992  E0061F3 8D 0C7A         		STA	SSLM_YPOS
 15993  E0061F6 60              		RTS
 15994                          ;
 15995                          ;************************************************************************
 15996                          ;*		ちびぷよのわきだし処理					*
 15997                          ;************************************************************************
 15998          0061F7          SSLIM_I_XREV	EQU	$
 15999  E0061F7 0020 FFE0       		WORD	00020H,0FFE0H
 16000          0061FB          SSLIM_ST_MV	EQU	$
 16001  E0061FB AD 0C78         		LDA	SSLM_ST_FG
 16002  E0061FE D0 03           		BNE	SSLIM_ST_MV_000 ;ちびぷよのわきだしＥＮＤ？ ( no:SSLIM_ST_MV_000 )
 16003  E006200 4C 562C'        		JMP	ESCLEAR
 16004                          ;
 16005          006203          SSLIM_ST_MV_000 EQU	$
 16006  E006203 5A              		PHY
 16007                          		I8
 16007+ E006204 E2 10           		SEP	#00010000b	
 16008  E006206 AD 61B0         		LDA	ENSTFG
 16009  E006209 0D 0B55         		ORA	BIRIBIRI
 16010  E00620C 0D 0398         		ORA	ITEMNO
 16011  E00620F D0 05           		BNE	SSLIM_ST_MV_001 ;ＳＴＯＰ？ ( yes:SSLIM_ST_MV_001 )
 16012                          ;
 16013  E006211 AD 0CE4         		LDA	SSLIM_TIMER	;ちびぷよセット？
 16014  E006214 F0 03           		BEQ	SSLIM_ST_MV_002 ; yes: SSLIM_ST_MV_002
 16015  
 16016          006216          SSLIM_ST_MV_001 EQU	$
 16017  E006216 4C 629D'        		JMP	SSLIM_ST_MV_020 ;  no: SSLIM_ST_MV_020
 16018  
 16019          006219          SSLIM_ST_MV_002 EQU	$
 16020                          		M_CHIP	EGGSEARCH
 16020+ E006219 A2 09           		LDX	#BANK EGGSEARCH
 16020+ E00621B A9 91D5         		LDA	#EGGSEARCH
 16020+ E00621E 22 000000"      		JSL	>CHIPON
 16021  E006222 A9 0008         		LDA	#00008
 16022  E006225 38              		SEC
 16023  E006226 ED 300C         		SBC	R6
 16024  E006229 C9 0005         		CMP	#00005
 16025  E00622C 30 03           		BMI	SSLIM_ST_MV_004
 16026  
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0274

 16027  E00622E A9 0005         		LDA	#00005
 16028  
 16029          006231          SSLIM_ST_MV_004 EQU	$
 16030  E006231 85 00           		STA	<EWORK0
 16031  
 16032  E006233 A9 0132         		LDA	#SSLIM
 16033  E006236 8D 3008         		STA	R4
 16034  E006239 1A              		INC	A
 16035  E00623A 8D 300A         		STA	R5
 16036                          		M_CHIP	TARGET_COUNTER
 16036+ E00623D A2 09           		LDX	#BANK TARGET_COUNTER
 16036+ E00623F A9 91DB         		LDA	#TARGET_COUNTER
 16036+ E006242 22 000000"      		JSL	>CHIPON
 16037  E006246 AC 300C         		LDY	R6
 16038                          ;		CPY	#004
 16039  E006249 C4 00           		CPY	<EWORK0
 16040  E00624B 10 50           		BPL	SSLIM_ST_MV_020
 16041  
 16042  E00624D A9 0132         		LDA	#SSLIM
 16043  E006250 22 00234C'      		JSL	>ENINSR_I
 16044  E006254 90 47           		BCC	SSLIM_ST_MV_020
 16045  
 16046  E006256 5A              		PHY
 16047  E006257 A0 00           		LDY	#000
 16048  E006259 A5 10           		LDA	<RANDM0
 16049  E00625B 29 007F         		AND	#0007FH
 16050  E00625E 38              		SEC
 16051  E00625F E9 0040         		SBC	#00040H
 16052  E006262 85 00           		STA	<EWORK0
 16053  E006264 10 02           		BPL	SSLIM_ST_MV_010
 16054  
 16055  E006266 C8              		INY
 16056  E006267 C8              		INY
 16057  
 16058          006268          SSLIM_ST_MV_010 EQU	$
 16059  E006268 18              		CLC
 16060  E006269 79 61F7'        		ADC	!SSLIM_I_XREV,Y
 16061  E00626C 18              		CLC
 16062  E00626D 6D 608C         		ADC	PLXPSL
 16063  E006270 7A              		PLY
 16064  E006271 99 70E2         		STA	ENXPSL,Y
 16065  E006274 AD 0C7A         		LDA	SSLM_YPOS
 16066  E006277 18              		CLC
 16067  E006278 69 0010         		ADC	#00010H
 16068  E00627B 99 7182         		STA	ENYPSL,Y
 16069  
 16070  E00627E A9 0007         		LDA	#00007
 16071  E006281 99 7402         		STA	ENCHPT,Y
 16072  E006284 1A              		INC	A		[ LDA	#00008 ]
 16073  E006285 99 7A98         		STA	ENTIM1,Y
 16074  
 16075  E006288 A9 0000         		LDA	#00000
 16076  E00628B 99 7900         		STA	ENWRKA,Y
 16077  E00628E 99 7902         		STA	ENWRKC,Y
 16078  
 16079  E006291 A9 0002         		LDA	#00002
 16080  E006294 99 74A2         		STA	ENYUSN,Y
 16081  
 16082  E006297 A9 0060         		LDA	#00060H
 16083  E00629A 8D 0CE4         		STA	SSLIM_TIMER
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0275

 16084                          ;
 16085          00629D          SSLIM_ST_MV_020 EQU	$
 16086                          		I16
 16086+ E00629D C2 10           		REP	#00010000b	
 16087  E00629F 7A              		PLY
 16088  
 16089  E0062A0 60              		RTS
 16090                          ;
 16091                          ;************************************************************************
 16092                          ;*		ちびぷよのわきだしＥＮＤ初期セット			*
 16093                          ;************************************************************************
 16094          0062A1          SSLIM_EN_IN	EQU	$
 16095  E0062A1 9C 0C78         		STZ	SSLM_ST_FG	;ちびぷよのわきだしフラグ”ＯＦＦ”
 16096  E0062A4 4C 562C'        		JMP	ESCLEAR
 16097                          ;
 16098                          ;************************************************************************
 16099                          ;*		ワタボー”フラフラ”キャンセル				*
 16100                          ;************************************************************************
 16101          0062A7          FURA_EN_IN	EQU	$
 16102  E0062A7 AD 7FE8         		LDA	FURA_FG
 16103  E0062AA F0 06           		BEQ	FURA_EN_IN_010	;”フラフラ”中？ ( no:FURA_EN_IN_010 )
 16104                          ;
 16105  E0062AC A9 0001         		LDA	#01H		;”フラフラ”解除へ
 16106  E0062AF 8D 7FE8         		STA	FURA_FG
 16107          0062B2          FURA_EN_IN_010	EQU	$
 16108  E0062B2 4C 562C'        		JMP	ESCLEAR
 16109                          ;
 16110                          ;************************************************************************
 16111                          ;*		ＭＡＸスクロール値セット				*
 16112                          ;************************************************************************
 16113          0062B5          SCRL_MAX_IN	EQU	$
 16114  E0062B5 AD 7960         		LDA	EWORK0
 16115  E0062B8 0A              		ASL	A
 16116  E0062B9 0A              		ASL	A
 16117  E0062BA 0A              		ASL	A
 16118  E0062BB 0A              		ASL	A
 16119  E0062BC 38              		SEC
 16120  E0062BD E9 0100         		SBC	#0100H
 16121  E0062C0 8D 7E1A         		STA	PLSCRL_MAXX
 16122  E0062C3 4C 5639'        		JMP	ESCLEAR_NORETN
 16123                          ;
 16124                          ;************************************************************************
 16125                          ;*		あほーどりのわきだしＥＮＤ初期セット			*
 16126                          ;************************************************************************
 16127          0062C6          AHOB_EN_IN	EQU	$
 16128  E0062C6 9C 0C7C         		STZ	AHOB_ST_FG	;ちびぷよのわきだしフラグ”ＯＦＦ”
 16129  E0062C9 4C 562C'        		JMP	ESCLEAR
 16130                          ;
 16131                          ;
 16132                          ;************************************************************************
 16133                          ;*	綿坊のわきだしスタート初期セット				*
 16134                          ;************************************************************************
 16135          0062CC          WATAB_ST_IN	EQU	$
 16136  E0062CC AD 0C3E         		LDA	!WATB_ST_FG
 16137  E0062CF F0 03           		BEQ	WATAB_ST_IN0010		; 既にセット中 ? [no->WATAB_ST_IN0010]
 16138                          ;
 16139  E0062D1 4C 562C'        		JMP	ESCLEAR
 16140                          ;
 16141          0062D4          WATAB_ST_IN0010 EQU	$
 16142  E0062D4 EE 0C3E         		INC	!WATB_ST_FG		; 綿坊のわきだしフラグセット !!
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0276

 16143  E0062D7 AD 0039         		LDA	!SCCH1
 16144  E0062DA 8D 0C44         		STA	!WATAB_SETSC		; 綿坊のセットされたスクロールカウンター！！
 16145  E0062DD 60              		RTS
 16146                          ;
 16147                          ;
 16148                          ;************************************************************************
 16149                          ;*	綿坊のわきだし							*
 16150                          ;************************************************************************
 16151          0062DE          WATAB_ST_XPS	EQU	$
 16152  E0062DE 0120 FFE0 0130  		WORD	00120H, -0020H, 00130H, -0030H, 00140H, -0040H, 00150H, -0050H
        E0062E4 FFD0 0140 FFC0 
        E0062EA 0150 FFB0 
 16153                          ;
 16154          0062EE          WATAB_ST_YPS	EQU	$
 16155  E0062EE 0000 0020 0040  		WORD	00000H, 00020H, 00040H, 00060H, 00080H, 000A0H, 000C0H, 000E0H
        E0062F4 0060 0080 00A0 
        E0062FA 00C0 00E0 
 16156                          ;
 16157          0062FE          WATAB_BITMSK	EQU	$
 16158  E0062FE 0001            		WORD	0000000000000001B
 16159  E006300 0002            		WORD	0000000000000010B
 16160  E006302 0004            		WORD	0000000000000100B
 16161  E006304 0008            		WORD	0000000000001000B
 16162  E006306 0010            		WORD	0000000000010000B
 16163  E006308 0020            		WORD	0000000000100000B
 16164  E00630A 0040            		WORD	0000000001000000B
 16165  E00630C 0080            		WORD	0000000010000000B
 16166                          ;
 16167          00630E          WATAB_ST_MV	EQU	$
 16168  E00630E AD 0C3E         		LDA	!WATB_ST_FG
 16169  E006311 D0 03           		BNE	WATAB_ST_MV0000		; 綿坊のわきだし終了？ [no->WATAB_ST_MV0000]
 16170                          ;
 16171  E006313 4C 562C'        		JMP	ESCLEAR
 16172                          ;
 16173          006316          WATAB_ST_MV0000 EQU	$
 16174  E006316 AD 61B0         		LDA	!ENSTFG
 16175  E006319 0D 0B55         		ORA	!BIRIBIRI
 16176  E00631C 0D 0398         		ORA	ITEMNO
 16177  E00631F F0 01           		BEQ	WATAB_ST_MV0010		; 停止中？ [no->WATAB_ST_MV0010]
 16178                          ;
 16179          006321          WATAB_ST_MV001F EQU	$
 16180  E006321 60              		RTS
 16181                          ;
 16182          006322          WATAB_ST_MV0010 EQU	$
 16183  E006322 AD 0C40         		LDA	!WATAB_COUNT
 16184  E006325 C9 0008         		CMP	#0008
 16185  E006328 B0 F7           		BCS	WATAB_ST_MV001F		; 綿坊のわきだしセット？ [no->WATAB_ST_MV001F]
 16186                          ;
 16187  E00632A AD 0C44         		LDA	!WATAB_SETSC
 16188  E00632D 38              		SEC
 16189  E00632E ED 0039         		SBC	!SCCH1
 16190  E006331 18              		CLC
 16191  E006332 69 0020         		ADC	#00020H
 16192  E006335 C9 0040         		CMP	#00020H*2
 16193  E006338 B0 05           		BCS	WATAB_ST_MV0040		; [->WATAB_ST_MV0040]
 16194                          ;
 16195  E00633A AD 0CEA         		LDA	!WATAB_TIMER
 16196  E00633D D0 71           		BNE	WATAB_ST_MV00F0		; 綿坊のわきだしセット？ [no->WATAB_ST_MV00F0]
 16197                          ;
 16198          00633F          WATAB_ST_MV0040 EQU	$
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0277

 16199  E00633F A5 10           		LDA	<RANDM0
 16200  E006341 29 0007         		AND	#0007
 16201  E006344 0A              		ASL	A
 16202  E006345 AA              		TAX
 16203  E006346 AD 003B         		LDA	!SCCV1
 16204  E006349 29 FFE0         		AND	#0FFE0H
 16205  E00634C 18              		CLC
 16206  E00634D 7D 62EE'        		ADC	WATAB_ST_YPS,X
 16207  E006350 85 02           		STA	<EWORK2
 16208  E006352 4A              		LSR	A
 16209  E006353 4A              		LSR	A
 16210  E006354 4A              		LSR	A
 16211  E006355 4A              		LSR	A
 16212  E006356 29 000E         		AND	#0000EH
 16213  E006359 AA              		TAX
 16214  E00635A AD 0C42         		LDA	!WATAB_STLIN
 16215  E00635D 3D 62FE'        		AND	WATAB_BITMSK,X
 16216  E006360 D0 4E           		BNE	WATAB_ST_MV00F0		; 綿坊のわきだしセット？ [no->WATAB_ST_MV00F0]
 16217                          ;
 16218  E006362 BD 62FE'        		LDA	WATAB_BITMSK,X
 16219  E006365 85 00           		STA	<EWORK
 16220                          ;
 16221  E006367 22 000000"      		JSL	>RANDAM
 16222                          ;
 16223                          		I8				; index 8bit mode !!
 16223+ E00636B E2 10           		SEP	#00010000b	
 16224                          ;
 16225  E00636D 5A              		PHY				; (Y) save !!
 16226                          ;
 16227  E00636E A9 0129         		LDA	#WATAB
 16228  E006371 22 00234C'      		JSL	>ENINSR_I
 16229  E006375 90 36           		BCC	WATAB_ST_MV00E0		; 敵エリア確保失敗 ? [yes->WATAB_ST_MV00E0]
 16230                          ;
 16231  E006377 A9 0080         		LDA	#00080H
 16232  E00637A 8D 0CEA         		STA	!WATAB_TIMER		; Ｎｅｘｔ セットタイマー！！
 16233                          ;
 16234  E00637D A5 00           		LDA	<EWORK
 16235  E00637F 0C 0C42         		TSB	!WATAB_STLIN		; 綿坊のセットライン！！
 16236                          ;
 16237  E006382 EE 0C40         		INC	!WATAB_COUNT		; 綿坊のわきだしカウンター！！
 16238                          ;
 16239  E006385 AD 0073         		LDA	!SCHMK1
 16240  E006388 99 7400         		STA	!ENMUKI,Y
 16241  E00638B A5 10           		LDA	<RANDM0
 16242  E00638D 29 0003         		AND	#0003
 16243  E006390 0A              		ASL	A
 16244  E006391 0A              		ASL	A
 16245  E006392 19 7400         		ORA	!ENMUKI,Y
 16246  E006395 AA              		TAX
 16247  E006396 AD 0039         		LDA	!SCCH1
 16248  E006399 8D 0C44         		STA	!WATAB_SETSC		; 綿坊のセットされたスクロールカウンター！！
 16249  E00639C 18              		CLC
 16250  E00639D 7D 62DE'        		ADC	WATAB_ST_XPS,X
 16251  E0063A0 99 70E2         		STA	!ENXPSL,Y		; Ｘポジション！！
 16252  E0063A3 A5 02           		LDA	<EWORK2
 16253  E0063A5 99 7182         		STA	!ENYPSL,Y		; Ｙポジション！！
 16254                          ;
 16255  E0063A8 A5 00           		LDA	<EWORK
 16256  E0063AA 99 79D8         		STA	!ENWRK4,Y		; Ｙポジションマスク！！
 16257                          ;
File : ys_enmy.asm RICOH SFX ASSEMBLER VER. V2.11Thu Aug 24 11:50:09 1995  Page 0278

 16258          0063AD          WATAB_ST_MV00E0 EQU	$
 16259  E0063AD 7A              		PLY				; (Y) load !!
 16260                          ;
 16261                          		I16				; index 16bit mode !!
 16261+ E0063AE C2 10           		REP	#00010000b	
 16262                          ;
 16263          0063B0          WATAB_ST_MV00F0 EQU	$
 16264  E0063B0 60              		RTS
 16265                          ;
 16266                          ;
 16267                          ;************************************************************************
 16268                          ;*		バルーンテレサのわきだしＥＮＤ初期セット		*
 16269                          ;************************************************************************
 16270          0063B1          BTLS_EN_IN	EQU	$
 16271  E0063B1 9C 0C7E         		STZ	!BTLS_ST_FG	;バルーンテレサのフラグ”ＯＦＦ”
 16272  E0063B4 4C 562C'        		JMP	ESCLEAR
 16273                          ;
 16274                          ;
 16275                          ;
 16276                          ;
 16277                          ;
 16278                          ;
 16279  E0063B7                 		END
