; INCLUDE zel_ram.asm ; ;-------------------------------------------------------------------- ; ; PAL_ZELDA-3 1992.01.16(THU) ; ;-------------------------------------------------------------------- ; ORG 1D8000H ; ;=============================================== (zel_enmy4) =========== GLB ENMY4MV,EYEBSIT,CGFLSH,ENMYSV,HAYABIT,HAYABMV,HAYAMIT GLB HEIS0CSL,KARASMV,HAGE0MV,NOMOSCT,BARI1MV,BIGSWST,ENFIRE GLB MOTAMMVJ,NMSHJP,SDEMOIT,EYEBMST,HIREST,HBBKST,BIGSWST2 GLB WANWANITJ,KAMBSIT,CTBOSST,CTBOSIT,MDARMIT,SHBUNST,GANONIT GLB GANSPST,BABULCSL,MKCK16,TheftCS,ENHOLE2CS GLB USFAILL,COPYCS,ENMVCLL,NZMZSTL,ENTUCKL,BGCRDT,ENIDSH,ENIDSH2 GLB PLYAFL,BLTSUB,HAYAMCS,WOOD1MV,WOEYEST,HIMITU,HELP1CS,ANAITST ;========================================= (zel_char) ========= EXT spoj5,spoj0,prnc1 ;=============================================== (zel_enmy3) =========== EXT ICEFLST,ENALFL,TKTAMST,ASMZST,ENPLATR,KEMRIST EXT CRHMZR,CHFIRCS,CHFPTD ;=============================================== (zel_enmy2) =========== EXT EVCHCKE,ENXSDN,ENYSDN,ENMSG2L,ENMSGEL,ENMSGSL EXT SETOAML,SETOAML2,ENMKIST,BSITEM,EFLCHK,ENMDST EXT HEIS0CS2,ASIMZST,Z2TMSTL,SETOAML22,H0SER00L ;=============================================== (zel_enmy) ============ EXT EPXYCK2,EPXCHK2,EPYCHK2,PLFLSTL,PSSAVE2,PSERC2L,PKNCRS2 EXT EBAKU,EMOVE,RNDSET,BGDTRD2,ENDMST2,CROJCK2,ENCRST2,BIKRST2 EXT ENBGCKL,CRENPLL,CRKNKNL,CRKNENL,OCHECKL,ENCLER,ENMAINL EXT ALOMCKL,SADWSTL,SADWS2L,CRENPL2L,OAMENT3,OAMENT1,FILSETL EXT PSERCHL,EN1CSTL,ESERCHL,SSERCH2,CACHCKL,ENBDSBL,ENMOVE2 EXT ENENSET,EN1CSSL,OAMENT2,EFLSST,ENDMST3,ENDMST4,EHOLE,OAMCHKL EXT CRENPL3L,MSGSET,BOMBST,EEXYCKL,ITGSDT,ENFLIS2 ;--- enmyno -- EXT GAYK0,GAYK1,GAYK2,GAYK3,USAG0 EXT SKHED,SHTAM,HBTAM,BAAR0,BABUL,TEKI0,TEKI1,AMEBA,MDARM EXT OCTA1,OCTA2,OCTA3,NYORO,OCTBL,OCTSS,CHFIR,BIGKO,TEKTA EXT TARUH,TARUV,SKEL2,PATA0,PATA1,SDEMO,KAMBS,KAMBR,KAMBB EXT KWAUS,KWAU1,SHIGE,SEKZ4,PONPK,EYEBS,EYETM,EYEBM EXT REBA1,ZOOL1,ENMY4,NAMAZ,CTBOS,DOOMO,ZIRAI EXT JIJII,BABAA,HEITI,PENKI,NOKOG,KUTUU,GAKII,GAKI1 EXT NOPPO,ONNAA,HIGEE,MAJOO,JIJI2,KIANA,BUBUU EXT YATAM,MURON,MURYA,MURMK,LINE0,LINE1,LINE2,LINE3,BABA1,ESW03,HEIS0 EXT TAIHO,HEIS1,HEYA0,HEYA1,HEYA2,KTOBJ,HEIS2,NEZU0,HEBI0 EXT KOMO0,HEBO0,OYAGI,ZAKO0,HEIS1,PLCHK EXT HEIS3,SUNA0,USAG0,HEYA3,HANA0,HANA1,TAMA0,DOZOO EXT BOUSI,SYOBY,HELP0,ESW12,RANEM,ZORAS,NOMOS,KINOK EXT SUKAS,MJSY1,JITON,ESW04,ZORA2,MEDUS,UTUWA,ARI00,ARI01 EXT JOHBB,ENMY3,HACHI,POLIW,RINGO,BABU2,HELP1,BKFIR,HARI0,D_0_9 EXT MOTAM,MEMER,MAGIC,ICBOS,DOKN0,DOKN1,DOKN2,DOKN3,BEE00,ABATA EXT SEKBN,TAKAR,BAKDN,SARKK,TEKBB,DARUM,IZUMI,GANON,GANO2 EXT WOOD1,GOST0 ;-------------- EXT HEIT1,RINEL ;-------------- item EXT HART1,RUPYR,RUPYY,RUPYB,BOMB1,BOMB2,BOMB3 EXT TUBO1,TUBO2,UTUBK EXT YAAA1,YAAA2,YOSEI ;-------------- EXT HART1,PORT1,PORT2,ICTAM EXT ESET0,ESET1,ESET2 EXT EFAIL,ECACH,EWATR,EICE,EICFL ;=============================================== (zel_endt) ============ EXT EXSTRA,ENEMY2,ENBTON,EFLCHK2,ENCLST,ENIDPS EXT SINDT2,BADBRST ;=============================================== (zel_main) ============ ; EXT DTSAVE EXT TGBLKWT EXT GDCHCK,JSRSUB,MGMCGRS2,MGMCGCNG ; EXT MD_title,MD_djint,MD_djply,MD_gdint,MD_gdply EXT MD_fdout,MD_fdin,MD_etcpl EXT MD_wpout,MD_wpin ;=============================================== (zel_play) ============ EXT DASCLR1,DASHON,PLOTCK EXT EATSET EXT YAMOV EXT YAIMIT,ITMCBFST EXT ATMSIT EXT OMS000 EXT PLOTCK1 EXT WPMSCK EXT DOKAST ;/////// EXT RDCHCK ;=============================================== (zel_bg3) ============= EXT MTRSUB,ITEM0ST,ICECGCNG,LAMPOFF0,LAMPOFF1 ;=============================================== (grnd) ============= EXT MKDRPLY ;=============================================== (zel_init) ============= EXT p3_msge,DJEXTCK,PLRSET,RESTTST,THCGCN0,THCGCN1,THCGCN2 EXT KMBBCG0,KMBRCG0 EXT KMBBCG1,KMBRCG1 ;================================================(end2)================= EXT GRNDCHK,KURORCS,SDLRCE,SDLRCP,MAGICCS,ICMANCS,TEKI0CS,SKEL2CS EXT MGTAMCS,PBBANCS,PATA0CS,CRHCEN,LIKE0CS,ICBOSCS EXT SDLRE1,SDLRE2,SDLRE3 ;================================================(endt)================= EXT GRENST,EST0SB ;================================================(char)================= EXT OPTCBFST,PWTRCGS2 ;================================================(bms1)================= EXT PLKTINT ;================================================(exst)================= EXT BEAM1,BEAM2,BUME1,BOMBM,YAMOV,DTMOV ;;;;,BOMBR EXT DTMV1,DTMV2,OPMOV,WTMV0,HIBA2,SCPMV,DTMV3 EXT RAOPIT,BOGN,KNSP,TPHDIT EXT nashi,prnce,jjmov,jjwat,jjsmv,mesmv,babaa,bbwat EXT kajya,hnoji ;================================================(POLYGON)================= ;-----< obj_poly >------------------------------------------------------- extern INITIAL_POLYGON ;------------------------------------------------------------------------ extern polygon_flag extern shading_switch extern object_size extern object_type extern rotate_angle_x extern rotate_angle_y extern center_point_x extern center_point_y extern center_point_z extern stack_pointer extern transfer_flag ; ;================================================(msge)================= ;---------------MSGE NO.----------------- EXT MS_0490,MS_0491,MS_04D0,MS_04D1,MS_04D2,MS_04D3 EXT MS_0530,MS_0560,MS_0561 EXT MS_0461,MS_0590,MS_05B0 EXT MS_00E0,MS_00E1,MS_00E2,MS_00E3,MS_00E4,MS_00E5 EXT MS_05F4,MS_05F5,MS_05F6,MS_05F7,MS_05F8,MS_05F9 ; EXTEND MEM8 IDX8 ;- - - 01,FF tdta - - - - - NZTLDT EQU $ IZMYAD EQU $ KIMXAD EQU $ MBTLAD EQU $ CBMXAD EQU $ CBMYAD EQU $ CHMXAD EQU $ GBDXAD EQU $ GBDYAD EQU $ DMSMXA EQU $ JFAADT EQU $ CHMYAD EQU $ WOEYEMK EQU $ HEX 01,FF HEX 00,FF ;===============4 way belt BG.revise======================================================== BLTYAH EQU $ HEX FF,00 ;,00,00 BLTXAL EQU $ HEX 00,00 ;,FF,01 BLTYAL EQU $ HEX FF,01,00,00 BLTXAH EQU $ HEX 00,00,FF,00 ; BLTSUB EQU $ LDA ENIDSH BMI PYFL10 ; LDA BMXPSL,X STA ENXPSL,Y LDA BMXPSH,X STA ENXPSH,Y LDA BMYPSL,X STA ENYPSL,Y LDA BMYPSH,X STA ENYPSH,Y ; LDA #EFAIL STA ENMODE,Y LDA #1FH STA ENTIM0,Y LDA BMXSPD,X STA ENXSPD,Y LDA BMYSPD,X STA ENYSPD,Y ; LDA SDLRCE ;; ORA #05H ;; STA SOUND2 ;(S) ; JSL >EFLSST ; PLX ; PYFL10 EQU $ PLY PLB RTL ;======================================================================= ;================================================== ENMVCLL EQU $ PHB PHK PLB JSR ENMVCL PLB RTL ;================================================== ENBGCK EQU $ JSL >ENBGCKL RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Zirai % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ZIRAIMV EQU $ JSR ZIRAICS JSR ENSTCK ; JSL >CRHMZR ; Vs hanmmer check ! BCS ZRM011 ; LDA ENTIM0,X BNE ZRM010 ; LDA #04H STA ENCLOR,X ; JSL >CRENPLL BCC ZRM008 LDA #08H STA ENTIM0,X ZRM008 EQU $ RTS ;- - - - - - - - - - - - - - - - - - -- ZRCLDT EQU $ HEX 4,2,8,2 ; ZRM010 EQU $ CMP #01H BNE ZRM020 ; ZRM011 EQU $ STZ ENMODE,X ; JSR MZBOST BMI ZRM018 ; LDA #EFAIL STA ENMODE,Y LDA #02H STA ENWRK2,Y STA ENCLOR,Y LDA #09H STA ENMOD3,Y LDA #1FH STA ENTIM1,Y LDA #03H STA ENMOD0,Y ; JSL >SDLRCE ORA #0CH STA SOUND2 ;(S) ;; ;;; JSL >SDLRE2 ;(S) ZRM018 EQU $ RTS ZRM020 EQU $ LSR A AND #03H TAY LDA ZRCLDT,Y STA ENCLOR,X RTS ;- - - - - - - - - - - - - - - - - - - - ZIRAICD EQU $ WORD 00000H,00004H HEX 70,00,00,00 WORD 00008H,00004H HEX 70,40,00,00 ; ZIRAICS EQU $ LDA #04H*2 JSL >OAMENT2 ; LDA OJBKFG CMP #03H BCS ZRC010 ; MEM16 REP #20H LDA #ZIRAICD STA SETOAML22 ZRC010 EQU $ RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Gaikotsu Block % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;;-------------------------------------------------------- ;ABSMPT EQU $ ; HEX 0,1,2,1 ; ABATAMV EQU $ ; LDA ENWRK0,X ; BEQ AB0000 ;; ; LDA #00001000B ; STA ENCLOR,X ; STA ENNOCR,X ;; ; JSR ABSMCS ;; ; LDA OAMENT2 AB0002 EQU $ ; JSR ABATACS AB0010 EQU $ JSR ENSTCK JSR ENHNSB ; LDA ENSTAT,X JSL >JSRSUB WORD ABMVWT WORD ABMOVE ;------------------------------------------- ABMVWT EQU $ LDA #01H STA ENNOCR,X ; JSL >CRENPL2L BCC ABST10 ; JSL >PLOTCK JSL >DASHON ; LDA ENTIM0,X BNE ABST10 ; LDA #40H STA ENTIM0,X ; LDA #22H JSL >SDLRE2 ;(S) ABST10 EQU $ LDA ENTIM0,X BEQ ABST20 DEC A BEQ ABST30 ORA #040H STA ENFLSH,X ABST20 EQU $ RTS ; ABST30 EQU $ STZ ENNOCR,X ; INC ENSTAT,X STZ ENFLSH,X LDA ENMOD2,X AND #10111111B STA ENMOD2,X ASL ENMOD0,X LSR ENMOD0,X RTS ;------------------------------------------------ ABCHPT EQU $ HEX 2,2,1,0,1 ; ABMOVE EQU $ JSR CREKEK ; JSR ENMVCL2 JSR ENBGCK DEC ENZSPD,X DEC ENZSPD,X LDA ENZPSL,X BPL ABM010 STZ ENZPSL,X LDA #10H STA ENZSPD,X ; LDA #0CH JSL >PSERCHL ABM010 EQU $ LDA SETOAML22 ; LDA ENSTAT,X BEQ ABCS99 ; JSL >SADWSTL ABCS99 EQU $ RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Jump fish (not enemy) % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% JFISHMV EQU $ LDA OJBKFG CMP #03H BCS JFM010 ; JSR JFISHCS JFM010 EQU $ LDA ENMODE,X CMP #ECACH BNE JFM011 ; LDA #04H STA ENSTAT,X ; LDA JSRSUB WORD JFCHEK WORD JFABAR ; WORD JFJPWT WORD JFJUMP WORD JFSHOT ;------------------------------------------------------------ JFSHOT EQU $ LDA ENZPSL,X BNE JFSH10 ; LDA #01H STA ENSTAT,X JFSH10 EQU $ ; JSR ENMVCL JSL >ENBDSBL RTS ;------------------------------------------------------------ JFJPWT EQU $ LDA ENTIM0,X BNE JFJW10 ; INC ENSTAT,X ; LDA #30H STA ENZSPD,X JFMZST EQU $ ; LDA ENXPSL,X ; PHA ; SEC ; SBC #04H ; STA ENXPSL,X ; LDA ENXPSH,X ; PHA ; SBC #00H ; STA ENXPSH,X JSL >ASMZST ; Water up ! ; PLA ; STA ENXPSH,X ; PLA ; STA ENXPSL,X JFJW10 EQU $ RTS ;------------------------------------------------------------ JFJCPT EQU $ HEX 5,5,6,6,5,5,4,4,3,7,7,8,8,7,7,8,8 JFJUMP EQU $ JSR ENZCLC DEC ENZSPD,X DEC ENZSPD,X ; BNE JFJ008 ; LDY ENWRK0,X BEQ JFJ008 ; Shot water in ? ; ; yes ! LDA #MS_05B0 STA MSGENOL LDA #HIGH MS_05B0 ; Minnani naishyo !! JSR MSGSSS JFJ008 EQU $ LDA ENZPSL,X BPL JFJ010 ; STZ ENZPSL,X ; JSR JFMZST ; ; STZ ENCONT,X ; LDA #02H ; STA ENSTAT,X ;; ; LDA #20H ; STA ENTIM0,X ; STZ ENCHPT,X ; RTS LDA ENWRK0,X BEQ JFJ00C ; LDA #RUPYB JSL >ENIDSH ; Red rupy shot !! BMI JFJ00C ; JSL >ENIDPS ; LDA PSERCHL PLX JFJ00C EQU $ STZ ENMODE,X JFJ010 EQU $ INC ENCONT,X LDA ENCONT,X LSR A LSR A TAY LDA JFJCPT,Y STA ENCHPT,X RTS ;------------------------------------------------------------ ;------------------------------------------------------------ ;------------------------------------------------------------ ;------------------------------------------------------------ JFCHEK EQU $ JSR ENBGCK ; LDA UNITNO CMP #08H BNE JFCK10 ; JFCLER EQU $ STZ ENMODE,X RTS JFCK10 EQU $ INC ENSTAT,X RTS ;------------------------------------------------------------ JFABXS EQU $ HEX 00,0C,10,0C,00,F4,F0,F4 JFABYS EQU $ HEX F0,F4,00,0C,10,0C,00,F4 JFALMT EQU $ HEX 02,00 JFABPT EQU $ HEX 1,5,3 ; JFABAR EQU $ JSL >CACHCKL ; JSR ENTUCK ; JSR ENMVCL2 DEC ENZSPD,X DEC ENZSPD,X ; LDA ENZPSL,X BPL JFAB10 ; STZ ENZPSL,X ; LDA UNITNO CMP #09H BEQ JFAB03 CMP #08H BNE JFAB08 ; STZ ENMODE,X JFAB03 EQU $ JSR JFMZST JFAB08 EQU $ JSL >RNDSET AND #0FH ADC #10H STA ENZSPD,X ; JSL >RNDSET AND #07H TAY LDA JFABXS,Y STA ENXSPD,X LDA JFABYS,Y STA ENYSPD,X ; INC ENMUKI,X ; LDA #03H STA ENCONT,X JFAB10 EQU $ INC ENCONT,X LDA ENCONT,X AND #07H BNE JFAB20 ; LDA ENMUKI,X AND #01H TAY LDA ENWRK0,X CMP JFALMT,Y BEQ JFAB20 CLC ADC JFAADT,Y STA ENWRK0,X JFAB20 EQU $ ;; LDA ENCONT,X LDA OAMCHKL RTS ; JFISHCS EQU $ LDA #00H XBA LDA ENCHPT,X BEQ JFC000 DEC A MEM16 REP #020H ; ASL A ASL A ASL A ; ASL A ADC #JFISHCD STA SETOAML22 ;- - Sadow set - - LDA ENYP2L CLC ADC ENZPSL,X STA ENYP2L LDA ENYP2H ADC #00H STA ENYP2H ; LDA #00H XBA ;; LDA ENCHPT,X ;; LSR A ;; LSR A LDA ENZPSL,X LSR A LSR A CMP #02H BCC JSWC10 ; LDA #02H JSWC10 EQU $ MEM16 REP #20H ; ASL A ASL A ASL A STA SETOAML22 ; JSL >PSSAVE2 RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% DOOMO Hazure beam link->usagi % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ABSMCD EQU $ ; WORD 00000H,00000H HEX 86,00,00,00 WORD 00008H,00000H HEX 87,00,00,00 WORD 00000H,00008H HEX 96,00,00,00 WORD 00008H,00008H HEX 97,00,00,00 ; WORD 00001H,00001H HEX 86,00,00,00 WORD 00007H,00001H HEX 87,00,00,00 WORD 00001H,00007H HEX 96,00,00,00 WORD 00007H,00007H HEX 97,00,00,00 ; ABSMCS EQU $ LDA #00H XBA LDA ENCHPT,X AND #01H MEM16 REP #20H ASL A ASL A ASL A ; ASL A ASL A ADC #ABSMCD STA SETOAML22 RTS ;=============================================== ;----------------------------------------------- DMSMLM EQU $ HEX 04,FC DM0F80 EQU $ LDA #30H STA ENFLCL,X ; JSR ABSMCS ; JSR ENSTCK ; JSR ENMVCL ; INC ENCONT,X LDA ENCONT,X AND #07H BNE DM0FA0 ; LDA ENMUKI,X AND #01H TAY LDA ENXSPD,X CLC ADC DMSMXA,Y STA ENXSPD,X CMP DMSMLM,Y BNE DM0FA0 INC ENMUKI,X DM0FA0 EQU $ LDA ENCONT,X AND #01FH BNE DM0FC0 ; INC ENCHPT,X DM0FC0 EQU $ RTS ;=============================================== DOOMOMV EQU $ LDA ENIDSH BMI DM0F00 ; JSL >ENIDPS ; LDA OAMCHKL JSR ENSTCK JSR ENBGCK BNE DMM008 ; Tubo noth ? ; ; yes ! INC ENSTAT,X ; LDA #80H STA ENTIM0,X ; DMM008 EQU $ RTS ;------------------------------------------------- DMCHNO EQU $ HEX D7,D7,D7,91,91,91 ; DMM010 EQU $ JSL >BABULCSL ; LDA ENDSPL,X BNE DMC011 ; LDY ENCHPT,X LDA DMCHNO,Y STA CRENPLL BCC DMM018 ; STZ ENMODE,X ; LDA #80H STZ USAGTM ; LDA #01H STA USAGTM+1 DMM018 EQU $ LDA PSERCHL DMM01C EQU $ JSR ENMVCL JSR ENBGCK BEQ DMM020 ; STZ ENMODE,X ; JSL >KEMRIST ; LDA #15H JSL >SDLRE2 ;(S) DMM020 EQU $ RTS ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Rinel % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% RINELMV EQU $ JSR RINELCS ; JSR ENSTCK ; JSR ENHNSB ; ; LDA JSRSUB WORD RNSET WORD RNSECH WORD RNSHOT ;------------------------------------------------- RNSHXL EQU $ HEX A0,60 ;,00,00 RNSHYH EQU $ HEX 00,00,FF,00 RNSHXH EQU $ HEX FF,00,00,00 RNSHYL EQU $ HEX 08,08,A0,70 ;-------------------------------------- RNSET EQU $ LDA ENTIM0,X BNE RNST10 ; LDY ENMUKI,X LDA RNSHXL,Y CLC ADC ESERCHL LDA RNDSET AND #0FH ADC #10H STA ENTIM0,X ; STZ ENSTAT,X RTS RNSO50 EQU $ CMP #10H BNE RNSO60 ; JSL >TKTAMST BMI RNSO60 ; LDA >ITMTBL7 CMP #03H BEQ RNSO60 ; High power tate ? ; ; no. LDA #00H STA ENMOD4,Y RNSO60 EQU $ LDY ENMUKI,X LDA RNSOPT,Y STA ENCHPT,X ; JSR ENBGCK RTS ;================================================ RINELCD EQU $ ;0 WORD 0FFFBH,0FFF5H HEX CC,00,00,02 WORD 0FFFCH,0000H HEX E4,00,00,02 WORD 00004H,0000H HEX E5,00,00,02 ;1 WORD 0FFFBH,0FFF6H HEX CC,00,00,02 WORD 0FFFCH,0000H HEX E7,00,00,02 WORD 00004H,0000H HEX E8,00,00,02 ;2 WORD 0FFFBH,0FFF5H HEX C8,00,00,02 WORD 0FFFCH,0000H HEX E4,00,00,02 WORD 00004H,0000H HEX E5,00,00,02 ;3 WORD 00005H,0FFF5H HEX CC,40,00,02 WORD 0FFFCH,0000H HEX E5,40,00,02 WORD 00004H,0000H HEX E4,40,00,02 ;4 WORD 00005H,0FFF6H HEX CC,40,00,02 WORD 0FFFCH,0000H HEX E8,40,00,02 WORD 00004H,0000H HEX E7,40,00,02 ;5 WORD 00005H,0FFF5H HEX C8,40,00,02 WORD 0FFFCH,0000H HEX E8,40,00,02 WORD 00004H,0000H HEX E7,40,00,02 ;6 WORD 00000H,0FFF7H HEX CE,00,00,02 WORD 0FFFCH,0000H HEX EA,00,00,02 WORD 00004H,0000H HEX EB,00,00,02 ;7 WORD 00000H,0FFF7H HEX CE,00,00,02 WORD 0FFFCH,0000H HEX EB,40,00,02 WORD 00004H,0000H HEX EA,40,00,02 ;8 WORD 00000H,0FFF7H HEX CA,00,00,02 WORD 0FFFCH,0000H HEX EB,40,00,02 WORD 00004H,0000H HEX EB,00,00,02 ;9 WORD 00000H,0FFF2H HEX C6,00,00,02 WORD 0FFFCH,00000H HEX ED,00,00,02 WORD 000004H,0000H HEX EE,00,00,02 ;A WORD 00000H,0FFF2H HEX C6,00,00,02 WORD 0FFFCH,00000H HEX EE,40,00,02 WORD 000004H,0000H HEX ED,40,00,02 ; RINELCS EQU $ LDA #00H XBA LDA ENCHPT,X MEM16 REP #20H ASL A ASL A ASL A STA SETOAML22 JSR SETO22 ; JSL >SADWSTL RTS ;================================================ GANSPST EQU $ LDA #TEKTA JSL >ENIDSH JSL >ENIDPS LDA #02H STA ENMOD0,Y STA ENNOCR,Y ;; LDA #01H DEC A STA ENCTFG,Y DEC A STA ENCLOR,Y RTL ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Ganon Spook from shsai % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% GANSPMV EQU $ LDA ENSTAT,X BNE GSPBDMV ; Ganon zanzoo ? ; ; yes ! JSR GANSPCS ; JSR ENSTCK ; JSR ENYCLC ; INC ENCONT,X LDA ENCONT,X AND #1FH BNE GSP010 ; DEC ENYSPD,X ; LDA ENYSPD,X CMP #0FCH BNE GSP008 ; PHA JSR BIGKEMST LDA ENYPSL,Y SEC SBC #14H STA ENYPSL,Y LDA ENYPSH,Y SBC #00H STA ENYPSH,Y PLA GSP008 EQU $ CMP #0FBH BNE GSP010 ; INC ENSTAT,X LDA #0FFH STA ENTIM0,X ; LDA #0FCH STA ENYSPD,X GSP010 EQU $ RTS ;---------------------------------------- GSPBDPT EQU $ HEX 0,1,2,1 GBDXLM EQU $ HEX 20,E0 GBDYLM EQU $ HEX 10,F0 ; GSPBDMV EQU $ JSR GSPBDCS ; LDA ENDSPL,X BEQ GBD000 ;- - Goto next mode - - - ;; LDA #19H ;; STA SOUND3 STZ ENMODE,X LDA EMYSTT+1 ORA #80H STA EMYSTT+1 GBD000 EQU $ JSR ENSTCK ; LDA SDLRCE ;;; ORA #03H ;;; STA SOUND2 ;(S) ; LDA #03H ; JSL >SDLRE2 ;(S) ;GBD001 EQU $ ; PLA LSR A LSR A AND #03H TAY LDA GSPBDPT,Y STA ENCHPT,X ; LDA ENTIM0,X BEQ GBDAWY ; CMP #0D0H BCS GBD010 ; LDA ENCMKI,X AND #01H TAY LDA ENYSPD,X CLC ADC GBDYAD,Y STA ENYSPD,X CMP GBDYLM,Y BNE GBD008 ; INC ENCMKI,X ; GBD008 EQU $ LDA ENMUKI,X AND #01H TAY LDA ENXSPD,X CLC ADC GBDXAD,Y STA ENXSPD,X BNE GBD00C ; PHA LDA #1EH JSL >SDLRE3 :(S) PLA GBD00C EQU $ CMP GBDXLM,Y BNE GBD010 ; INC ENMUKI,X ; GBD010 EQU $ LDA #78H STA ESERCHL ; LDA ENXSPD,X PHA CLC ADC SETOAML22 ;; RTS ;================================================ GANSPCD EQU $ ;0 WORD 0FFF0H,0FFF8H HEX 46,0D,00,02 WORD 0FFF8H,0FFF8H HEX 47,0D,00,02 WORD 00008H,0FFF8H HEX 47,4D,00,02 WORD 00010H,0FFF8H HEX 46,4D,00,02 ; WORD 0FFF0H,00008H HEX 69,0D,00,02 WORD 0FFF8H,00008H HEX 6A,0D,00,02 WORD 00008H,00008H HEX 6A,4D,00,02 WORD 00010H,00008H HEX 69,4D,00,02 ;1 WORD 0FFF0H,0FFF8H HEX 46,0D,00,02 WORD 0FFF8H,0FFF8H HEX 47,0D,00,02 WORD 00008H,0FFF8H HEX 47,4D,00,02 WORD 00010H,0FFF8H HEX 46,4D,00,02 ; WORD 0FFF0H,00008H HEX 66,0D,00,02 WORD 0FFF8H,00008H HEX 67,0D,00,02 WORD 00008H,00008H HEX 67,4D,00,02 WORD 00010H,00008H HEX 66,4D,00,02 GANSPCS EQU $ LDA #00H XBA LDA ENCHPT,X MEM16 REP #20H ASL A ASL A ASL A ; ASL A ASL A ASL A CLC ADC #GANSPCD STA SETOAML22 ;; RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Ganon Yari move % ;;GYSDDT EQU $ ;; HEX 3,4 ; GYSDST EQU $ LDA SDLRCE ;; PLY ;; ORA GYSDDT,Y ;; LDA #06H ;; STA SOUND3 ;(S) LDA #06H JSL >SDLRE3 ;(S) GYSS00 EQU $ RTS ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% GANYRMV EQU $ JSR GANYRCS ; ;; LDA #04H ;; JSL >OAMENT3 ;; JSL >EN1CSTL ; TEST ! ; JSR ENSTCK ; JSR CREKEK ; JSR GYSDST ; Sound set ! ; JSR ENMVCL ; DEC ENCONT,X LDA ENCONT,X LSR A LSR A AND #07H ;;; EOR #07H TAY LDA YARISP,Y STA ENCTCT,X ; LDA ENTIM0,X BEQ GYM100 ;===== For player ======= ;; AND #01H LSR A BCS GYM040 ; LDA #20H JSL >PSERC2L GYSDCL EQU $ LDA ESERCHL JMP GYSDCL ;*********************************************************** ;;GFRXAD EQU $ ;; HEX 01,FF,00,00 ;;GFRXLM EQU $ ;; HEX 20,E0,00,00 ;;GFRYAD EQU $ ;; HEX 00,00,01,FF ;;GFRYLM EQU $ ;; HEX 00,00,20,E0 ;- - - - - - - - - - - - - - - - - - - - - - GANF2MV EQU $ JSR GANFBCS JSR ENSTCK JMP GFRM99 ; GANFRMV EQU $ ;; JSL >OAMCHKL ;; JSL >EN1CSTL ; TEST ! JSR GANFBCS JSR ENSTCK ; ;; INC ENCONT,X ;;; ;; LDA ENCONT,X ;; LSR A ;; LSR A ;; NOP ;; AND #01H ;; STA ENCHPT,X ; JSR ESERSB ; LDA #02H JSL >ESERCHL LDA ESERCHL ; LDA ENXSPD,X EOR #0FFH INC A CLC ADC E2MODE,X LDA #4FH CPY #05H BNE GFRM28 LDA #2FH GFRM28 EQU $ STA >E2TIM0,X PLX GFRM30 EQU $ RTS ;----------------------------------------- ESERSB EQU $ LDA ENWRK0,X ; Master pos ! STA CRENPLL LDA ENSTAT,X JSL >JSRSUB WORD FBSPIN WORD FBBADC WORD FBAWAY ;---------------------------------------------------- GBSPPS EQU $ LDY ENMUKI+00 LDA PTBFXL,X CLC ADC FBSPXL,Y STA ENXPSL,X LDA PTBFXH,X ADC FBSPXH,Y STA ENXPSH,X LDA PTBFYL,X CLC ADC FBSPYL,Y STA ENYPSL,X LDA PTBFYH,X ;; ADC FBSPYH,Y ADC #0FFH STA ENYPSH,X RTS ;------------------------------------ FBSPIN EQU $ ;; JSR FBZNZST ; JSR GBSPPS LDA ENTIM0,X BNE FBSP10 INC ENSTAT,X ;; LDA #17H ;; STA ENTIM0,X RTS FBSP10 EQU $ AND #04H LSR A LSR A STA ENCHPT,X RTS ;---------------------------------------------------- FBCNGP EQU $ HEX 4,4,4,3,3,3,2,2,2 ;; HEX 4,4,4,4,3,2 ; FBFLYP EQU $ HEX 4,5,6,5 ; FBBADC EQU $ ;; JSR FBZNZST ; JSR GBSPPS INC ENCONT,X LDA ENCONT,X BRA FBSP10 ; ;; LDA ENTIM0,X ;; BEQ FBBC10 ;; LSR A ;; LSR A ;; TAY ;; LDA FBCNGP,Y ;; STA ENCHPT,X ;; RTS FBBC10 EQU $ FBPTST EQU $ INC ENCONT,X ; LDA ENCONT,X LSR A LSR A AND #03H TAY LDA FBFLYP,Y STA ENCHPT,X RTS ;---------------------------------------------------- FBAWAY EQU $ ;; JSR FBZNZST ; JSR ENMVCL LDA #40H STA ENMOD5,X ; Display out clear ! ; LDA ENTIM1,X BEQ FBAW20 ; CMP #01H BEQ FBAW30 LSR A LSR A TAY LDA FBCNGP,Y STA ENCHPT,X RTS ; FBAW20 EQU $ LDA ENTIM0,X BEQ FBAW80 DEC A BNE FBSP10 ; LDA #23H ;; LDA #17H STA ENTIM1,X BRA FBSP10 ;- - - - - - - - - - - - - - - - - - - - - FBAW30 EQU $ LDA #30H JSL >PSERCHL ; ;; JSL >SDLRCE ;; ORA #1EH ;; STA SOUND3 ;(S) LDA #1EH JSL >SDLRE3 ;(S) FBAW80 EQU $ JSR FBPTST FBAW90 EQU $ BRA FBPTST ;======================================== ;FBZNZST EQU $ ; Hinoko set ! ; TXA ; EOR RNDSET ; AND #0FH ; LDY #00H ; SEC ; SBC #03H ; STA RNDSET ; LSR A ; AND #0FH ; LDY #00H ; SEC ; SBC #03H ; STA ICEFLST ;; ; PHX ; LDX E2MODE,X ; PLX ;FBZI30 EQU $ ; RTS ;======================================== GANFBXD EQU $ WORD 0FFF8H,00008H GANFBCD EQU $ HEX 88,88,8A,8C,68,AA,A8 GANFBAD EQU $ HEX 00,C0 HEX 80,40 HEX 00,40 HEX 00,40 HEX 00,40 HEX 00,40 HEX 00,40 ;------------------------------------------------ GANFBCS EQU $ JSR OAMCHK ; LDA ENCHPT,X STA SINDT2,X STA SINDT2,X STA ENIDSH2 BMI GTEST0 JSL >ENIDPS LDA #04H STA ENCTFG,Y LDA #03H STA ENCLOR,Y LDA #01000000B STA ENMOD2,Y LDA #01H STA ENMOD0,Y LDA #80H STA ENMOD5,Y STA ENYPSH,Y LDA #030H STA ENTIM0,Y GAM6ST EQU $ LDA #07H STA ENMOD6,Y STA ENNOCR,Y GTEST0 EQU $ RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Ganon Move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% GANONMV EQU $ ;; LDA #16H ;; STA 1CH ;; LDA #01H ;; STA 1DH ;;;- - - ;; LDA ENLIFE,X ;; CMP #33 ;; BCS GANO2MV ; Atack 2 (Chance silver allow )start ? ;;; ; yes ! ;; LDA #GANO2 ;; STA ENMYNO,X GANO2MV EQU $ ;- - Zanzoo - - - LDA ENSTAT,X BPL GANON00 ; JSR ENSTCK ; LDA ENTIM0,X BNE GANONFF STZ ENMODE,X GANONFF EQU $ ;; AND #01H LSR A BCS GANONFE ; JSR GANONCS ; GANONFE EQU $ RTS ;-------------------------------------------- GAKBPT EQU $ HEX 02,00 ; GADMPT EQU $ HEX 10,0A ; GANON00 EQU $ LDA ENTIM3,X BEQ GAN110 ; Damage ? ; ; yes ! LDY ENMUKI,X LDA GADMPT,Y STA ENCHPT,X ; GAN110 EQU $ LDA GNNCFG CMP #02H BNE GAN1026 CMP ENGRNO,X BEQ GAN1026 ; Kantera Just max ? PHA ; yes ! mabushii set ! LDA #40H STA ENTIM1,X PLA GAN1026 EQU $ STA ENGRNO,X ; JSR GANONCS ; JSR ENSTCK ;- - Tourou clear - - LDA ENTIM2,X BEQ GAN112 CMP #10H BEQ GAN111 CMP #01H BNE GAN112 PHX JSL >LAMPOFF1 PLX BRA GAN112 GAN111 EQU $ PHX JSL >LAMPOFF0 PLX GAN112 EQU $ LDA ENTIM1,X BEQ GAN105 ; Mabushii !! ; LDA #0FH STA ENCHPT,X JSR GACHNCK JMP CREKEK ;; RTS ; GAN105 EQU $ ; JSR ENSTCK ;;- - Tourou clear - - ; LDA ENTIM2,X ; BEQ GAN112 ; CMP #10H ; BEQ GAN111 ; CMP #01H ; BNE GAN112 ; PHX ; JSL >LAMPOFF1 ; PLX ; BRA GAN112 ;GAN111 EQU $ ; PHX ; JSL >LAMPOFF0 ; PLX ;GAN112 EQU $ ;- - Kubi muki->player !- - JSR EPXCHK LDA JSRSUB GA00 WORD GAWAIT ; Start wait ; - - - Atack 1 - - - GA01 WORD GAATC1 ; Yari shot GA02 WORD GACAC1 ; Yari cach wait GA03 WORD GACAC2 ; Yari cach pause GA04 WORD GAKYO1 ; kyoro kyoro GA05 WORD GAMOV1 ; Move GA06 WORD GAKYO2 ; Kyoro 2 ; - - - Atack 2 - - - GA10 WORD GAATC2 ; Fire bad spin ! GA11 WORD GAATC21 ; Fire bad spin wide! GA12 WORD GAKYO3 ; Kyoro 3 GA13 WORD GAMOV2 ; Move 2 GA14 WORD GAWAI2 ; Atack 2 wait ! ; - - - Atack 3 - - - GA20 WORD GAATC3 ; Fire shot GA211 WORD GAMOV3 ; Move 3 GA22 WORD GAWAI3 ; Shot wait GA23 WORD GAJUMP ; Jump GA24 WORD GADOWN ; Down & tilt ; - - - Atack 4 - - - GA30 WORD GAWAI4 ; GA31 WORD GAMOV4 ; GA32 WORD GACHANC ; Silver alow chance ! ;- - - - - - - - - - - - - - - - - - - - - - - GAT1 EQU (GA01-GA00)/2 GCA1 EQU (GA02-GA00)/2 GCA2 EQU (GA03-GA00)/2 GKY1 EQU (GA04-GA00)/2 GMV1 EQU (GA05-GA00)/2 GKY2 EQU (GA06-GA00)/2 ; GAT2 EQU (GA10-GA00)/2 GA21 EQU (GA11-GA00)/2 GKY3 EQU (GA12-GA00)/2 GMV2 EQU (GA13-GA00)/2 GWA2 EQU (GA14-GA00)/2 ; GAT3 EQU (GA20-GA00)/2 GMV3 EQU (GA211-GA00)/2 GWA3 EQU (GA22-GA00)/2 GJMP EQU (GA23-GA00)/2 GDOW EQU (GA24-GA00)/2 ; GWA4 EQU (GA30-GA00)/2 GMV4 EQU (GA31-GA00)/2 GCHA EQU (GA32-GA00)/2 ;========================================================== GACHPT EQU $ HEX 5,D ; GACHANC EQU $ LDA #05H STA ENCLOR,X ; LDA #00000010B STA ENMOD7,X ; LDA ENTIM0,X BNE GACH10 ; GAMV4ST EQU $ LDA #01H STA ENCLOR,X ; LDA #GMV4 JSR GMV1ST ; LDA #GANON STA ENMYNO,X ; STZ ENFLSH,X RTS ;- - - - - - - - - - - - - - - - - - - - - - - - - GACH10 EQU $ ;; ORA #070H ;; STA ENFLSH,X ; LDY ENMUKI,X LDA GACHPT,Y STA ENCHPT,X RTS ;========================================================== GAW4P1 EQU $ HEX 6,E GAW4PT EQU $ HEX 7,A ; GAWAI4 EQU $ LDY ENMUKI,X LDA GAW4P1,Y STA ENCHPT,X ;; JSR KAMAEST ;; STZ ENCTCT,X ; LDA ENTIM0,X BNE GAW410 ; LDA #GMV4 JSR GMV1ST RTS GAW410 EQU $ CMP #34H PHP BNE GACH18 ; JSR GANF2ST ; GACH18 EQU $ PLP BCS GAW412 ; LDY ENMUKI,X LDA GAW4PT,Y STA ENCHPT,X GAW412 EQU $ LDA ENTIM0,X CMP #48H BCS GAW418 CMP #28H BCS GAW450 GAW418 EQU $ INC ENNOCR,X ; ;; AND #01H LSR A BCC GAW420 ; LDA #0FFH STA ENCHPT,X GAW420 EQU $ ;; RTS GAW450 EQU $ GACHNCK EQU $ LDA ENFLSH,X AND #7FH CMP #1AH BNE GAW460 ; STZ ENFLSH,X ; LDA #GCHA STA ENSTAT,X LDA #050H ;; LDA #07FH STA ENTIM0,X LDA #GANO2 STA ENMYNO,X GAW460 EQU $ RTS ;========================================================== ;========================================================== GAJPCP EQU $ HEX 6,E ; GAJUMP EQU $ LDA ENTIM0,X BEQ GAJ008 DEC A BNE GAJ010 ; LDA #GDOW STA ENSTAT,X LDA #0A0H STA ENZSPD,X RTS GAJ008 EQU $ JSR ENZCLC DEC ENZSPD,X BNE GAJ010 LDA #20H STA ENTIM0,X GAJ010 EQU $ LDY ENMUKI,X LDA GAJPCP,Y STA ENCHPT,X RTS ;========================================================== GADWCP EQU $ HEX 2,A ;;NZTLDT EQU $ ;; HEX 01,FF ;; HEX 00,FF ; GADOWN EQU $ STZ YUREYD STZ YUREYD+1 ; LDA ENTIM0,X BEQ GAD008 DEC A BNE GAD003 ; LDA #05H STA SOUND1 ;(S) Stop LDA #GMV3 JSR GMV1ST STZ PYALSP ; JSR GAYKDW ; Yuka down set ! ; LDA ENCTFG,X CMP #04H BCC GAD002 ; LDA #GMV2 JSR GMV1ST ; LDA #96 STA ENLIFE,X ; LDA #0E0H STA ENTIM2,X ; LDA #MS_0561 STA MSGENOL LDA #HIGH MS_0561 MSGSSS EQU $ STA MSGENOH JSL >MSGSET ; GAD002 EQU $ RTS ;----------------------------------------------- GAD003 EQU $ AND #01H TAY LDA NZTLDT,Y STA YUREYD LDA NZTLDT+2,Y STA YUREYD+1 ; LDA #01H STA PYALSP ; RTS GAD008 EQU $ JSR ENZCLC LDA ENZPSL,X BPL GAD010 ; STZ ENZSPD,X STZ ENZPSL,X ; LDA #60H STA ENTIM0,X ; LDA #07H STA SOUND1 ;(S) ;; JSL >SDLRCE ;; ORA #0CH ;; STA SOUND2 ;(S) LDA #0CH JSL >SDLRE2 ;(S) ; GAD010 EQU $ LDY ENMUKI,X LDA GADWCP,Y STA ENCHPT,X RTS ;========================================================== GAYKNO EQU $ BYTE GAYK0,GAYK1,GAYK2,GAYK3 GAYKXL EQU $ HEX 18,D8,D8,18 GAYKYL EQU $ HEX 28,28,D8,D8 ;; HEX 18,18,C8,C8 ; GAYKDW EQU $ LDY #ESNO-1 GYKS10 EQU $ LDA ESMODE,Y BEQ GYKS20 DEY BPL GYKS10 RTS ;- - - - - - - - - -- - - - - - - - - - GYKS20 EQU $ LDA ENCTFG,X CMP #04H BCS GYKS30 ; INC ENCTFG,X ; PHX TAX LDA GAYKNO,X STA ESMODE,Y ; LDA GAYKXL,X STA ESXPSL,Y LDA ENIDSH2 BMI GFRS90 ; ;; JSL >SDLRCE ;; ORA #2AH ;; STA SOUND2 ;(S) LDA #2AH JSL >SDLRE2 ;(S) ; JSL >ENIDPS ;;; LDA #03H LDA ENHELP STA ENCTFG,Y STA ENNOCR,Y LDA #03H STA ENCLOR,Y LDA #01000000B STA ENMOD2,Y LDA #00100001B STA ENMOD0,Y LDA #40H STA ENMOD5,Y ;; STA ENNOCR,Y PHX LDA ENMUKI,X TAX LDA PSERCHL PLX ; LDA #10H STA ENTIM0,Y ;-- Master pos save ! -- LDA ENXPSL STA ENWRK0,Y LDA ENXPSH STA ENWRK1,Y LDA ENYPSL STA ENWRK2,Y LDA ENYPSH STA ENWRK3,Y ; JMP GAM6ST ; Atack no set & ENNOCR set ! GFRS90 EQU $ RTS ;========================================================== GAWAI3 EQU $ INC ENNOCR,X ; JSR KAMAEST STZ ENCTCT,X ; LDA ENTIM0,X BNE GAW310 ; JSL >RNDSET AND #01H BEQ GAW308 ; JMP GMV3ST GAW308 EQU $ LDA #07FH STA ENTIM0,X LDA #GAT3 STA ENSTAT,X RTS ; GAW310 EQU $ AND #01H BEQ GAW320 ; LDA #0FFH STA ENCHPT,X GAW320 EQU $ RTS ;========================================================== GAATC2 EQU $ LDA ENLIFE,X CMP #161 BCS GAA208 ; LDA #160 STA ENLIFE,X ; GAA208 EQU $ LDA #28H STA PTHANK ; LDA ENTIM0,X BNE GAA210 ; LDA #GA21 STA ENSTAT,X LDA #0FFH STA ENTIM0,X RTS GAA210 EQU $ CMP #0C0H BCS GAA220 AND #0FH BNE GAA220 ; JSR GANFBST GAA220 EQU $ BRA FIRBDCT ;========================================================== FBHKAD EQU $ HEX 00,00,00,00,FF,FF,FE,FF HEX 00,00,00,00,01,02,01,01 FBAWTM EQU $ HEX 10,30,50,70,90,B0,D0 ;; HEX 20,30,40,50,60,70,80 ; GAATC21 EQU $ LDA ENLIFE,X CMP #161 BCS GAA221 ; LDA #160 STA ENLIFE,X ; GAA221 EQU $ LDA ENTIM0,X BNE GA2110 ; LDA #GKY3 STA ENSTAT,X LDA #07FH STA ENTIM0,X JSR KAMAEST ;------------------------------------------ LDY #08H GA2108 EQU $ LDA #02H STA ENSTAT,Y LDA FBAWTM-1,Y STA ENTIM0,Y DEY BNE GA2108 RTS ;------------------------------------------------- GA2110 EQU $ LSR A LSR A LSR A LSR A AND #0FH TAY LDA PTHANK CLC ADC FBHKAD,Y STA PTHANK FIRBDCT EQU $ JSR GAYPST JSR GABDCT RTS ;========================================================== GAKYO3 EQU $ LDA ENLIFE,X CMP #161 BCS GKY301 ; LDA #160 STA ENLIFE,X ; GKY301 EQU $ LDA ENTIM0,X BNE GKY310 ; LDA #GMV2 JSR GMV1ST RTS GKY310 EQU $ JSR GKYRPS RTS ;========================================================== GAWAI2 EQU $ INC ENNOCR,X ; JSR KAMAEST ; LDA ENTIM0,X BNE GAW210 ; GAA2ST EQU $ LDA #0FFH STA ENTIM0,X LDA #GAT2 STA ENSTAT,X RTS GAW210 EQU $ AND #01H BEQ GAW220 ; LDA #0FFH STA ENCHPT,X GAW220 EQU $ RTS ;========================================================== ;========================================================== ;========================================================== ;========================================================== ;========================================================== ;========================================================== GAWAIT EQU $ LDA ENTIM0,X BNE GAW010 ; GAA1ST EQU $ ;; LDA #GAT3 LDA #GAT1 STA ENSTAT,X ; LDA #080H ;; LDA #80H+40H STA ENTIM0,X ; RTS ;- - - - - - - - - - - - - - -- GAW010 EQU $ CMP #20H BEQ GAW030 ; CMP #40H BNE GAW020 ; ;;; MSG ON !!! LDA #MS_0560 STA MSGENOL LDA #HIGH MS_0560 STA MSGENOH JSL >MSGSET ; GAW020 EQU $ RTS ;- - - - - - - - - - - - - - - - - - - - - GAW030 EQU $ LDA #1FH STA SOUND0 ;(S) RTS ;========================================================== YARISP EQU $ HEX 8,7,6,5,4,3,2,1 HEX 8,7,6,5,4,3,2,1 YARIPT EQU $ HEX 0,0,1,1,0,0,1,1 HEX 8,8,9,9,8,8,9,9 GYSXAL EQU $ HEX 18,F0 GYSXAH EQU $ HEX 00,FF GYSYAL EQU $ HEX 04,04 GYSYAH EQU $ HEX 00,00 GYSXSD EQU $ HEX 20,1C,18,10 HEX 00,F0,E8,E4 HEX E0,E4,E8,F0 HEX 00,10,18,1C GYSYSD EQU $ HEX 00,10,18,1C HEX 20,1C,18,10 HEX 00,F0,E8,E4 HEX E0,E4,E8,F0 ; GAA1PT EQU $ HEX 2,A ; GAA190 EQU $ CMP #00H BNE GAA1A0 ; LDA #GMV1 JMP GMV1ST ; GAA1A0 EQU $ LDY ENMUKI,X LDA GAA1PT,Y STA ENCHPT,X RTS ;- - - - - - - - - - - - - - - - - - - - - GAATC1 EQU $ LDA ENLIFE,X CMP #209 BCS GAA101 ; LDA #208 STA ENLIFE,X ; GAA101 EQU $ ; LDA ENTIM0,X CMP #40H BCC GAA190 BNE GAA110 ; ;;; INC ENSTAT,X ; STZ ENCTCT,X ; ;; LDA #02H ;; STA ENCHPT,X ;; LDA #60H ;; STA ENTIM0,X ;-- Shot yari -- LDA #TEKTA JSL >ENIDSH PHX LDA ENMUKI,X TAX LDA PSERCHL JSL >MKCK16 PLY SEC SBC #02H AND #0FH TAX LDA GYSXSD,X STA ENXSPD,Y LDA GYSYSD,X STA ENYSPD,Y PLX ; LDA #70H STA ENTIM0,Y ; LDA #02H STA ENCTFG,Y LDA #00000001B STA ENCLOR,Y LDA #04H STA ENMOD0,Y ; LDA #84H STA ENMOD5,Y LDA #02H STA ENMUKI,Y JMP GAM6ST ; Atack no set & ENNOCR set ! ;; RTS ; GAA110 EQU $ GAYPST EQU $ LDA ENTIM0,X LSR A LSR A AND #07H LDY ENMUKI,X BEQ GAA120 CLC ADC #08H GAA120 EQU $ TAY LDA YARISP,Y STA ENCTCT,X LDA YARIPT,Y STA ENCHPT,X ; JSR GYSDST ; Sound set ! RTS ;========================================================== GAC1PT EQU $ HEX 00,08 ; ;; HEX 02,00 ;; HEX 0D,08 ; GACAC1 EQU $ ; Cach !! LDA ENLIFE,X CMP #209 BCS GAC101 ; LDA #208 STA ENLIFE,X ; GAC101 EQU $ ;; LDY #00H ;; LDA ENTIM0,X ;; BNE GAC110 ;; INY ;;GAC110 EQU $ LDY ENMUKI,X ;; BEQ GAC120 ;; INY ;; INY GAC120 EQU $ LDA GAC1PT,Y STA ENCHPT,X ; LDA ENTIM0,X BEQ GAC139 INC ENNOCR,X AND #01H BEQ GAC139 ; LDA #0FFH STA ENCHPT,X GAC139 EQU $ RTS ;========================================================== KAMAE0 EQU $ HEX 9,A KAMAE1 EQU $ HEX 2,A ; GACAC2 EQU $ ; After cach pause ! LDA ENLIFE,X CMP #209 BCS GAC201 ; LDA #208 STA ENLIFE,X ; GAC201 EQU $ LDA ENTIM0,X BNE GAC210 ; ;;; JSR GAA1ST ;TEST ! LDA #GKY2 STA ENSTAT,X ; LDA #7FH STA ENTIM0,X ;;;; RTS ; KAMAEST EQU $ LDY ENMUKI,X LDA KAMAE0,Y STA ENCTCT,X KAMAEST2 EQU $ LDY ENMUKI,X LDA KAMAE1,Y STA ENCHPT,X RTS ; GAC210 EQU $ JSR GAYPST RTS ;========================================================== GKY1MK EQU $ HEX 0,0,0,1,2,2,2,1 HEX 0,0,0,1,1,1,1,1 ; ;;GKY1PT EQU $ ;; HEX 3,3,3,2,4,4,4,2 ;; HEX 3,3,3,2,2,2,2,2 ;;; ;; HEX B,B,B,A,C,C,C,A ;; HEX B,B,B,A,A,A,A,A ; GKY1ID HEX 00,10 ; GAKYO1 EQU $ LDA ENLIFE,X CMP #209 BCS GKY101 ; LDA #208 STA ENLIFE,X ; GKY101 EQU $ LDA ENTIM0,X BNE GK1010 ; ;; JMP GAA1ST ;TEST ! ; LDA #GMV1 GMV1ST EQU $ STA RNDSET AND #03H ORA GASHXL LDA GASYPL,Y STA >GASHYL ; ;; LDA #GMV1 LDA SDLRCE ;; ORA #28H ;; STA SOUND3 ;(S) LDA #28H JSL >SDLRE3 ;(S) ; RTS ; GK1010 EQU $ GKYRPS EQU $ LSR A LSR A LSR A ;; LDY ENMUKI,X ;; CLC ;; ADC GKY1ID,Y TAY ;; LDA GKY1PT,Y ;; STA ENCHPT,X LDA GKY1MK,Y STA ENKBMK,X GK1020 EQU $ RTS ;========================================================== GASXPL EQU $ HEX 30,50,A0,C0 HEX 40,60,90,B0 GASYPL EQU $ HEX 40,30,30,40 HEX B0,C0,C0,B0 GASTMD EQU $ HEX 4,5,6,7 HEX 4,5,6,7 HEX 4,5,6,7 HEX 4,5,6,7 HEX 0,1,2,3 HEX 0,1,2,3 HEX 0,1,2,3 HEX 0,1,2,3 ; GAMOV3 EQU $ LDA #100 STA ENLIFE,X ; LIfe check noth (tilt count check) GAMOV1 EQU $ GAMOV2 EQU $ GAMOV4 EQU $ INC ENNOCR,X ; LDA >GASHXL STA GASHYL STA ESERCHL JSR GYSDCL ; Speed up ! JSR ENMVCL ; LDA ENTIM0,X BEQ GM1030 LDA ENIDSH BMI GM1020 ; JSL >ENIDPS ; LDA #18H STA ENNOCR,Y STA ENTIM0,Y LDA #0FFH STA ENSTAT,Y LDA ENCHPT,X STA ENCHPT,Y LDA ENKBMK,X STA ENKBMK,Y ;; PHX ;; TYA ;; JSR KAMAEST ; CHPT SET ! ;; STZ ENCTCT,X ;; PLX GM1020 EQU $ RTS ;========================================================== GAKYO2 EQU $ ; Kyoro kyoro 2 LDA ENLIFE,X CMP #209 BCS GAKY201 ; LDA #208 STA ENLIFE,X ; GAKY201 EQU $ LDA ENTIM0,X BNE GKY210 ; LDA ENLIFE,X CMP #209 BCC GKY208 ; JMP GAA1ST ; Go atack ! GKY208 EQU $ JMP GAA2ST ; Atack 2 start ! ; GKY210 EQU $ ;; CMP #0A0H ;; BCS GKY250 ;; CMP #80H ;; BCS GKY220 JMP GKYRPS ; Paturn set ! ;;GKY220 EQU $ ;; INC ENNOCR,X ;;; ;; AND #01H ;; BNE GKY230 ;;; ;; JSR KAMAEST ;; BRA GKY240 ;;; ;;GKY230 EQU $ ;; LDA #0FFH ;; STA ENCHPT,X ;;GKY240 EQU $ ;; RTS ;;;- - - - - - - - - - - - - - - - - - - - - - ;;GKY250 EQU $ ;; JSR EPYCHK ;; TYA ;; STA ENMUKI,X ;;; ;; INC ENNOCR,X ;; RTS ;========================================================== ; ; ; LDA ALOMCKL GNC080 EQU $ ;- - Hands mask set - - - LDA ENCTCT,X CMP #09H BNE GNC090 ; Kamae ? ; ; yes ! MEM16 REP #20H LDA #GAHDMSCD STA SETOAML22 GNC090 EQU $ ;- -- Kage set - - - LDA ENZPSL,X SEC SBC #0001H STA SETOAML22 PLA STA ENCLOR,X JSL >PSSAVE2 RTS ;**************************************************** GANYRCS EQU $ LDA #00H XBA LDA ENCTCT,X BEQ GNC002 DEC A MEM16 REP #00100000B ASL A ASL A ASL A STA SETOAML22 PLA STA ENFLCL,X ; JSL >PSSAVE2 GNC002 EQU $ RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;================================================== MDAIDT EQU $ HEX 00,20,40,60,80,A0 ; 6 of ! MDARMIT EQU $ PHX ; TXY LDA MDAIDT,X TAX LDA #1FH STA MDXBFL,X LDA ENXPSH,Y STA >MDXBFH,X LDA ENYPSL,Y STA >MDYBFL,X LDA ENYPSH,Y STA >MDYBFH,X INX DEC PSSAVE2 ; JSR ENSTCK ; INC ENCONT,X ; JSR CREKEK ; LDA ENYSPD,X PHA CLC ADC ENZSPD,X STA ENYSPD,X JSR ENMVCL PLA STA ENYSPD,X ; LDA ENSTAT,X JSL >JSRSUB WORD MDSET WORD MDUP WORD MDMOVE WORD MDDOWN WORD MDEND ;------------------------------------------------ MDSTXL EQU $ ;; HEX 00,00,26,2C,26,00,DA,D4,DA HEX 00,00,20,20,20,00,E0,E0,E0 MDSTXH EQU $ HEX 00,00,00,00,00,00,FF,FF,FF MDSTYL EQU $ ;; HEX 00,D4,DA,00,26,2C,26,00,DA HEX 00,E0,E0,00,20,20,20,00,E0 MDSTYH EQU $ HEX 00,FF,FF,00,00,00,00,00,FF MDSTPS EQU $ HEX 1,2,3,4,5,6,7,8 ;; HEX 0,1,2,3,4,5,6,7 ; MDSET EQU $ LDA ENTIM0,X BNE MDS010 ; JSL >RNDSET AND #07H TAY LDA MDSTPS,Y CMP ENMUKI,X BEQ MDS010 ; Aleady set ? TAY ; no. LDA ENWRK0,X CLC ADC MDSTXL,Y STA >MDSHXL,X LDA ENWRK1,X ADC MDSTXH,Y STA >MDSHXH,X ; LDA ENWRK2,X CLC ADC MDSTYL,Y STA >MDSHYL,X LDA ENKBMK,X ADC MDSTYH,Y STA >MDSHYH,X ; INC ENSTAT,X ; ;; LDA #30H ;; STA ENTIM0,X JSR ENSDCL LDA #0F1H STA ENZSPD,X ; JSR MDMZST ;; JSR MDCALC MDS010 EQU $ RTS ;------------------------------------------------ MDUP EQU $ LDA ENCONT,X AND #03H BNE MDU010 ; INC ENZSPD,X BNE MDU010 INC ENSTAT,X MDU010 EQU $ LDA ENCONT,X AND #03H BNE MDU030 ; JSR MDCAL0 ; MDSDCT EQU $ LDA ENYSPD,X ; Speed=>Player! CMP MDSHXL,X STA MDSHXH,X STA MDSHYL,X STA MDSHYH,X STA MDSHXL,X STA MDSHXH,X STA MDSHYL,X STA MDSHYH,X STA ESERCHL RTS ;------------------------------------------------ MDDOWN EQU $ LDA ENCONT,X AND #03H BNE MDD010 ; INC ENZSPD,X LDA ENZSPD,X CMP #010H BNE MDD010 ; INC ENSTAT,X ; JSR MDMZST ; LDA #80H STA ENYPSH,X LDA #50H STA ENTIM0,X MDD010 EQU $ LDA ENCONT,X AND #03H BNE MDD020 ; STZ 0 ; MDD020 EQU $ ;; LDA ENTIM0,X ;; BNE MDD010 ;;; ;; INC ENSTAT,X ;;; ;; LDA #80H ;; STA ENYPSH,X ;; LDA #50H ;; STA ENTIM0,X ;;; ;;MDD010 EQU $ ;; LDA #08H ;; STA ENZSPD,X RTS ;------------------------------------------------ MDEND EQU $ LDA ENTIM0,X BNE MDE010 ; JSL >RNDSET ; Nexst start point set ! AND #07H TAY LDA MDSTPS,Y STA ENMUKI,X TAY LDA ENWRK0,X CLC ADC MDSTXL,Y STA ENXPSL,X LDA ENWRK1,X ADC MDSTXH,Y STA ENXPSH,X LDA ENWRK2,X CLC ADC MDSTYL,Y STA ENYPSL,X LDA ENKBMK,X ADC MDSTYH,Y STA ENYPSH,X ; STZ ENSTAT,X LDA #30H STA ENTIM0,X ; JSR ENSDCL STZ ENZSPD,X MDE010 EQU $ RTS ;------------------------------------------------ MDMZST EQU $ LDA #MDARM JSL >ENIDSH BMI MZZ010 ; JSL >ENIDPS ; LDA #80H STA ENSTAT,Y ; LDA #20H STA ENTIM0,Y LDA #04H STA ENCLOR,Y STA ENNOCR,Y LDA #00H STA ENMOD0,Y MZZ010 EQU $ RTS ;------------------------------------------------ MDMIZMV EQU $ JSR MDMIZCS JSR ENSTCK LDA ENTIM0,X BNE MDMZ10 STZ ENMODE,X MDMZ10 EQU $ RTS ;------------------------------------------------ MDMIZCD EQU $ WORD 00000H,00004H HEX D8,00,00,00 WORD 00008H,00004H HEX D8,40,00,00 ; WORD 00000H,00004H HEX D9,00,00,00 WORD 00008H,00004H HEX D9,40,00,00 ; WORD 00000H,00004H HEX DA,00,00,00 WORD 00008H,00004H HEX DA,40,00,00 ; WORD 00000H,00004H HEX D9,00,00,00 WORD 00008H,00004H HEX D9,40,00,00 ; MDMIZCS EQU $ LDA #04H*2 JSL >OAMENT2 ; LDA #00H XBA LDA ENTIM0,X AND #00001100B ;; LSR A ;; LSR A ;; AND #03H ; MEM16 REP #00100000B ;; ASL A ;; ASL A ASL A ; ASL A CLC ADC #MDMIZCD STA SETOAML22 ;; RTS ;------------------------------------------------ ;; LDA MKCK16 TAY LDA MDAHCP,Y STA ENCHPT,X LDA ENCLOR,X AND #00111111B ORA MDAHAD,Y STA ENCLOR,X JSL >EN1CSTL ; PHX TXY LDA ENCONT,X AND #1FH CLC ADC MDAIDT,X TAX LDA ENXPSL,Y STA >MDXBFL,X LDA ENXPSH,Y STA >MDXBFH,X LDA ENYPSL,Y STA >MDYBFL,X LDA ENYPSH,Y STA >MDYBFH,X PLX ; MEM16 REP #20H LDA #0000H LDY ENYSPD,X BPL MDC008 LDA #00014H MDC008 EQU $ PHA CLC ADC MDXBFL,X STA ENXP2L LDA >MDXBFH,X STA ENXP2H LDA >MDYBFL,X STA ENYP2L LDA >MDYBFH,X STA ENYP2H ; PLX ; LDA ENYSPD,X BPL MDC070 ; MEM16 REP #20H LDA EN1CSTL ; INC ENHELP2 LDA ENHELP2 CMP #04H BNE MDC010 ; RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% City bos initial % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;================================================== CTBOSST EQU $ LDX #00H LDA #EMOVE STA ENMODE,X LDA #CTBOS STA ENMYNO,X LDA ENMDST ; LDA #0C0H STA ENTIM2,X LDA #15H STA ENCHPT,X LDA #02H STA ENMUKI,X STA ENNOCR,X ; LDA EMYSTT+1 ORA #00100000B STA EMYSTT+1 ; Set on ! ; STZ BRMSCT ; Kubi muki count ! ; RTL ; CTBOSIT EQU $ LDA >OPMODE CMP #prnc1 BEQ CTBI10 ; LDA EMYSTT+1 AND #00100000B BEQ CTBI10 ; Already set ? ; ; yes ! LDA #60H STA ENTIM2,X ;; LDA #80H ;; STA ENTIM2,X ;; LDA #15H ;; STA ENCHPT,X LDA #01H STA ENWRK2,X ; ; LDA #02H STA ENMUKI,X LDA #04H STA ENKBMK,X LDA #07H STA ENCHPT,X ;; STA ENNOCR,X ; STZ BRMSCT ; Kubi muki count ! RTL ; CTBI10 EQU $ STZ ENMODE,X RTL ;========================================= CBZNZST EQU $ LDA ENCONT,X AND #00H BNE CBZS90 ; PHX TXY ; LDX #E2NO-1 CBZS10 EQU $ LDA >E2MODE,X BEQ CBZS20 DEX BPL CBZS10 ; DEC E2STCT BPL CBZS18 ; LDA #E2NO-1 STA E2STCT CBZS18 EQU $ ; LDX E2STCT CBZS20 EQU $ LDA #0FH STA >E2MODE,X STA EN2FLG ; LDA ENCHPT,Y STA >E2CHPT,X ; TYA STA >E2STAT,X ; LDA ENXPSL,Y STA >E2XPSL,X LDA ENXPSH,Y STA >E2XPSH,X LDA ENYPSL,Y CLC ADC #10H STA >E2YPSL,X LDA ENYPSH,Y ADC #00H STA >E2YPSH,X ; LDA #0AH STA >E2TIM0,X ; PLX CBZS90 EQU $ RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% City boss Hed % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% CHMXLM EQU $ HEX 20,E0 CHMXPS EQU $ HEX 98,58 CHMYLM EQU $ HEX 18,E8 CHMYPS EQU $ HEX B0,50 ; CBHEDMV EQU $ LDA ENFLCL,X ORA #30H STA ENFLCL,X ; JSL >EN1CSTL ; PHX LDY #02H LDA ENKBMK,X TAX LDA CTHDCD,X STA (PSERC2L PLY LDA ENIDSH BMI CBHS10 ; JSL >ENIDPS ; LDA #01011011B STA ENMOD2,Y AND #0FH STA ENCLOR,Y ; ;; LDA #24H ;; STA ENLIFE,Y LDA #00000100B STA ENMOD5,Y ; LDA #02H STA ENWRK0,Y ; LDA #01H STA ENMOD0,Y DEC A STA ENMOD3,Y STA ENMOD7,Y ; LDA #17H STA ENZPSL,Y CLC ADC EN1CSSL JSL >OAMCHKL JSR ENSTCK ; LDA ENTIM0,X BEQ CBBM02 ; CMP #01H BNE CBBM01 ; STZ ENMODE,X CBBM01 EQU $ RTS ; CBBM02 EQU $ JSL >CRENPL2L ; LDY #00H LDA ENXSPD,X BPL CBBM10 DEY CBBM10 EQU $ CLC ADC ENXPSL,X STA ENXPSL,X TYA ADC ENXPSH,X STA ENXPSH,X ; LDY #00H LDA ENYSPD,X BPL CBBM20 DEY CBBM20 EQU $ CLC ADC ENYPSL,X STA ENYPSL,X TYA ADC ENYPSH,X STA ENYPSH,X ; ;; JSL >ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK BEQ CBBM30 ; ;; STZ ENMODE,X LDA #0CH STA ENTIM0,X CBBM30 EQU $ JSR CBZNZST RTS ; ;=========================================================== CTB0E0 EQU $ CMP #02H BNE CTB0E2 ; Hed ? ; ; yes ! JMP CBHEDMV ; CTB0E2 EQU $ LDA ENFLCL,X ORA #30H STA ENFLCL,X JSR CTBOSCS ; LDA #01H STA ENCLOR,X ; JSR ENSTCK ; LDA ENHNFG,X BEQ CTB0E8 ; Damage ? ; ; yes ! DEC ENHNFG,X ;;; STZ ENHNFG,X CMP #0BH BNE CTB0E8 ;;LDA #10H ;;STA ENFLSH,X ; STZ ENFLSH,X STZ ENCBFG,X ; spin count reset ! ; LDA ENTIM3,X BNE CTB0E8 ; LDA #80H STA ENLIFE,X ; No fail ! ; LDA #30H STA ENTIM3,X ; LDA ENCLOR,X AND #01H STA ENCLOR,X ; INC ENZSDR,X LDA ENZSDR,X CMP #03H BCS CTB0E5 ; LDA #60H STA ENCBFG,X ; Kubi spin beam shot time set ! ; ;LL LDA ENWRK2,X ;LL STA ENZSPD,X ;LL; ;LL LDA #CSPIN ;LL STA ENWRK2,X ;LL LDA #080H ;LL STA ENTIM2,X ;LL; LDA #01H STA HEMODE,X ; Kubi spin speed ! ;LL; ;LL JSR ENSDCL BRA CTB0E8 CTB0E5 EQU $ STZ ENZSDR,X ; INC MDBMCT ; Fail count ! ; LDA MDBMCT CMP #03H BNE CTB0E7 ; Last ? ; ; yes ! JSL >ENALFL JSR EBAKUST ; fail set ! LDA #0FFH STA ENTIM0,X STA ENFLSH,X INC BSFLFG ;; JSL >SDLRCE ;; ORA #22H ;; STA SOUND3 ; (S) LDA #22H JSL >SDLRE3 ;(S) ; RTS ; ;-------------------------------------------------- CTB0E7 EQU $ ;; LDA ENWRK2,X ;; STA ENZSPD,X ; JSR ENSDCL LDA #CDOWN STA ENWRK2,X LDA #0FFH STA ENTIM2,X STA ENNOCR,X ; JSR CBHEDST ; Hed bunri ! CTB0E8 EQU $ LDA ENWRK0,X BEQ CTB100 ; Kemri ? ; ; yes ! LDA ENTIM0,X BNE CTB0F0 ; STZ ENMODE,X CTB0F0 EQU $ LSR A LSR A LSR A TAY LDA CBKMPT,Y STA ENCHPT,X RTS ;========================================================= CTB100 EQU $ INC ENCONT,X ; LDA ENCONT,X AND #01H BNE CTB110 ; INC ENTIM0,X CTB110 EQU $ LDA ENTIM1,X BEQ CTB112 ; Beam shot time ? ;; BNE CTB120 ; ; yes ! STZ ENSTAT,X ; CMP #08H BNE CTB111 ; JSR CBBEMST CTB111 EQU $ JMP CBCBCK ; Cross check ! ;- - - - - - - - - - - - - - - - - - - - CTB112 EQU $ INC BRMSCT ; Kubi muki controle ! ; LDA ENSTTM,X BNE CTB120 ; Shot ok ? ; ; yes ! LDA ENSTAT,X BEQ CTB122 ; Found player ? ; ; yes ! ;; STZ ENSTAT,X ;; JSR CBBEMST LDA #10H STA ENTIM1,X ; LDA #80H STA ENSTTM,X BRA CTB121 CTB120 EQU $ DEC ENSTTM,X CTB121 EQU $ STZ ENSTAT,X CTB122 EQU $ LDA JSRSUB CB0 WORD CBGIRL ;0 WORD CBRIVS ;1 CBM WORD CBMOVE ;2 WORD CBYMOV ;3 CBT WORD CBTURN ;4 CBSP WORD CBSPIN ;5 CBDW WORD CBDOWN ;6 CBUPD WORD CBUP ;7 ; CMOVE EQU (CBM-CB0)/2 CTURN EQU (CBT-CB0)/2 CSPIN EQU (CBSP-CB0)/2 CDOWN EQU (CBDW-CB0)/2 CUP EQU (CBUPD-CB0)/2 ; ;--------------------------------------------- CBDWPT EQU $ HEX E,D,C,A CBDOWN EQU $ STZ ENFLSH,X ; LDA #0CH STA ENKBMK,X ; LDA ENTIM2,X BNE CBD010 ; INC ENWRK2,X LDA #27H STA ENTIM2,X ; LDA #13H JSL >SDLRE1 ;(S) RTS ; CBD010 EQU $ CMP #0E0H BCC CBD020 SBC #0E0H LSR A LSR A LSR A TAY LDA CBDWPT,Y STA ENCHPT,X RTS CBD020 EQU $ LDA #0EH STA ENCHPT,X RTS ;--------------------------------------------- CBUPPT EQU $ HEX A,B,C,D,E ; CBUP EQU $ LDA ENTIM2,X BNE CBU010 ; ;; LDA ENZSPD,X LDA #CMOVE STA ENWRK2,X ; LDA #080H STA ENTIM0,X ; LDA ENYPSL,X ASL A ROL A AND #01H INC A INC A STA ENMUKI,X ; LDA ENXPSL,X ASL A ROL A ;;;; AND #01H STA ENCTCT,X ; JSR ENSDCL ; STZ ENNOCR,X RTS ;- - - - - - - - - - - - - - - - - - - - - - - - - CBU010 EQU $ LSR A LSR A LSR A TAY LDA CBUPPT,Y STA ENCHPT,X RTS ;--------------------------------------------- CBSPXS EQU $ HEX E0,E4,E8,F0 HEX 00,10,18,1C HEX 20,1C,18,10 HEX 00,F0,E8,E4 CBSPYS EQU $ HEX 00,10,18,1C HEX 20,1C,18,10 HEX 00,F0,E8,E4 HEX E0,E4,E8,F0 ; CBSPIN EQU $ ;LL JSR CBCBCK ;LL; ;LL;; JSR CREKEK ;LL;; JSR CRCBPL ; Body hit check ! ;LL; ;LL LDA ENTIM2,X RURURU EQU $ DEC ENCBFG,X PHA AND #00000111B SEC ROL A STA ENCLOR,X PLA BNE CBSP08 ; ;; LDA #01H ;; STA ENCLOR,X ; ;; LDA #CMOVE ;lll LDA ENZSPD,X ;lll STA ENWRK2,X CBSP08 EQU $ DEC ENWRK3,X BPL CBSP10 ; ;;; LDA #05H LDA HEMODE,X STA ENWRK3,X ; LDA ENKBMK,X INC A AND #0FH STA ENKBMK,X ; CBSP10 EQU $ LDA ENCONT,X AND #1FH BNE CBSP20 ; LDA HEMODE,X CMP #05H BEQ CBSP20 ; INC HEMODE,X CBSP20 EQU $ JSR CBPTST2 ; LDA #0FH KBBMST EQU $ LDY #0FFH AND ENCONT,X BNE CBSP30 ; JSL >Z2TMSTL BMI CBSP30 ; LDA #19H JSL >SDLRE3 ;(S) ; PHX LDA ENKBMK,X TAX LDA CBSPXS,X STA ENXSPD,Y LDA CBSPYS,X STA ENYSPD,Y ; JSR BBMD5S ; MOD6 & MOD5 set ! PLX CBSP30 EQU $ ; ;; JSR CBXSTP ; XSPD Brake ;; JSR CBYSTM ; Y " & MVCL RTS ;--------------------------------------------- CBGIRL EQU $ LDA #00H ;OBJ CNG NO SET STA OPTHPT LDA #0A0H STA OPTBPT ; LDA ENTIM2,X BNE CBG010 ; INC ENWRK2,X ; LDA #60H STA ENTIM2,X CBG010 EQU $ CMP #50H BNE CBG011 PHA LDA #MS_0461 STA MSGENOL LDA #HIGH MS_0461 STA MSGENOH JSL >MSGSET PLA CBG011 EQU $ CMP #18H BNE CBG020 ; Kemri set ? ; ; yes ! JSR BIGKEMST ; CBG020 EQU $ RTS ;--------------------------------------------- BIGKEMST EQU $ ;; JSL >SDLRCE ;; ORA #15H ;; STA SOUND2 ;(S) LDA #0CH STA SOUND2 ;(S) ; LDA #CTBOS JSL >ENIDSH LDA MSGSET ;; PLA ;;; ;;CBST18 EQU $ CMP #40H BCS CBST20 ; LDA #0F8H STA ENYSPD,X JSR ENYCLC CBST20 EQU $ JSR CBPTST LDA #04H STA ENKBMK,X ; Lock ! RTS ;--------------------------------------------- CBMYLM EQU $ HEX 12,EE CBMXLM EQU $ HEX 18,E8 CBMXPS EQU $ HEX A4,4C ; CBMOVE EQU $ JSR CBCBCK ; ;; JSR CREKEK ;; JSR CRCBPL ; Body hit check ! ; JSR CBPTST ; LDA ENCONT,X AND #7FH BNE CBM001 ; JSR EPYCHK INY INY ; TYA CMP ENMUKI,X BNE CBM002 ; Back player -> Go turn ! ; CBM001 EQU $ LDA ENTIM0,X BNE CBM008 ; CBM002 EQU $ LDA ENXPSL,X CMP #078H BCS CBM008 ; INC ENWRK2,X ; LDA ENYSPD,X AND #0FEH STA ENYSPD,X LDA ENXSPD,X AND #0FEH STA ENXSPD,X ; LDA #30H STA ENTIM2,X RTS ;- - - - - -- - - - CBM008 EQU $ LDA ENWRK1,X AND #01H TAY ; LDA ENYSPD,X CLC ADC CBMYAD,Y STA ENYSPD,X CMP CBMYLM,Y BNE CBM010 ; INC ENWRK1,X CBM010 EQU $ LDA ENCTCT,X AND #01H TAY LDA ENXSPD,X CMP CBMXLM,Y BEQ CBM020 CLC ADC CBMXAD,Y STA ENXSPD,X CBM020 EQU $ LDA ENXPSL,X AND #0FEH CMP CBMXPS,Y BNE CBM030 ; INC ENCTCT,X CBM030 EQU $ JSR ENMVCL ; ;;; LDA ENTUTM,X LDA ENCBFG,X BEQ CBM035 ; Spin beam ? ; ; yes ! JMP RURURU ; CBM035 EQU $ LDA ENCONT,X AND #07H BNE CBM038 ; LDA ENKBMK,X ASL A ASL A STA H0SER00L CBM038 EQU $ RTS ;--------------------------------------------- CBYMAD EQU $ HEX 02,FE CBYMLM EQU $ HEX 40,C0 CBYYPS EQU $ HEX 90,50 ; CBYMOV EQU $ JSR CBCBCK ; LDA ENTIM2,X BEQ CBY008 ; Stop ? ; ; yes ! JSR CBXSTP JSR ENXCLC JMP CBYSTM ; Y " & YCLC ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - CBY008 EQU $ ;; JSR CREKEK ;; JSR CRCBPL ; Body hit check ! ; LDA ENMUKI,X DEC A DEC A TAY LDA ENYSPD,X CMP CBYMLM,Y BEQ CBY010 CLC ADC CBYMAD,Y STA ENYSPD,X CBY010 EQU $ LDA ENYPSL,X AND #0FCH CMP CBYYPS,Y BNE CBY030 ; INC ENWRK2,X ; LDA ENMUKI,X SEC SBC #01 STA ENWRK1,X ; Next swing way ! CBY030 EQU $ JSR ENMVCL CBXSTP EQU $ LDA ENXSPD,X BEQ CBY040 BPL CBY038 CLC ADC #04H CBY038 EQU $ SEC SBC #02H STA ENXSPD,X CBY040 EQU $ JSR CBPTST2 ; LDA ENCBFG,X BEQ CBY055 ; Spin beam ? ; ; yes ! JMP RURURU CBY055 EQU $ RTS ;--------------------------------------------- CBTPAD EQU $ HEX FF,01 CBTPLM EQU $ HEX 00,09 ; CBTURN EQU $ JSR CBCBCK ; LDA ENCONT,X AND #07H BNE CBT030 ; LDA ENMUKI,X DEC A DEC A TAY LDA ENCHPT,X CMP CBTPLM,Y BNE CBT010 ; LDA #0FEH STA ENTIM0,X LDA #CMOVE STA ENWRK2,X ; LDA ENMUKI,X EOR #01H STA ENMUKI,X ; LDA ENXPSL,X ASL A ROL A AND #01H STA ENCTCT,X ; BRA CBT030 ; CBT010 EQU $ CLC ADC CBTPAD,Y STA ENCHPT,X CBT030 EQU $ ;; JSR CBM008 CBYSTM EQU $ LDA ENYSPD,X BEQ CBT050 ; BPL CBT038 CLC ADC #08H CBT038 EQU $ SEC SBC #04H STA ENYSPD,X CBT050 EQU $ JSR ENYCLC ; LDA ENCBFG,X BEQ CBT055 ; Spin beam ? ; ; yes ! JMP RURURU CBT055 EQU $ RTS ;; RTS ; ; ;------------------------------------- CBCBCK EQU $ LDA ENTIM3,X ORA ENHNFG,X BNE CBCK10 ; Protect time ? ; ; yes ! JSR CREKEK CBCK10 EQU $ JSR CRCBPL ; Body hit check ! RTS ; ; ; ; ; ;====================================== CBPTDT EQU $ HEX 7,8,9,8 HEX 0,1,2,1 CBKBMK EQU $ HEX 0,1,2,3,4,3,2,1 HEX 0,F,E,D,C,D,E,F ; ;; HEX 0,1,2,3,4,5,6,7,8,7,6,5,4,3,2,1 ;; HEX 8,9,A,B,C,D,E,F,0,F,E,D,C,B,A,9 ; CBMKAD EQU $ HEX 0,1,1,2,2,3,3,4 ; CBPTST EQU $ LDA ENCBFG,X BNE CBPTST2 ; Spin beam ? ; ; no ! LDA ENIDSH BMI CBBS90 ; JSL >SDLRCE ORA #26H STA SOUND3 ;(S) ; yusen ! ;; LDA #26H ;; JSL >SDLRE3 ;(S) ; JSL >ENIDPS ; LDA SETOAML22 ;; RTS ;------------------------------------------------- CTHDID EQU $ ;; 00 01 02 03 04 05 06 07 08 09 ; 0A 0B 0C 0D 0E HEX 12,12,12,16,16,02,02,02,02,02 ;,1E,1E,1E,1E,1E CTHDCD EQU $ HEX 86,86,84,82,80,82,84,86 HEX 86,86,88,8A,8C,8A,88,86 ; CTHDAD EQU $ HEX 00,00,00,00,00,40,40,40 HEX 40,40,40,40,00,00,00,00 CTBOSCS EQU $ LDA #00H XBA LDA ENCHPT,X CMP #0FH BCS CTKEMCS ; Kemri or girl ! ; MEM16 REP #00100000B ASL A ASL A ASL A STA SETOAML22 ; LDA ENCBFG,X BNE CBTC0E ; Kubi spin !!! ; LDA ENWRK2,X CMP #CDOWN BEQ CTBC20 CMP #CTURN BEQ CTBC10 ; CBTC0E EQU $ LDY ENCHPT,X CPY #0AH BCS CTBC10 ; LDA CTHDID,Y TAY PHX LDA ENKBMK,X TAX LDA CTHDCD,X STA (JSRSUB WORD KAMBSI WORD KAMBRI WORD KAMBBI ;--------------------------------------- KAMBSI EQU $ ; LDY #09H*3-1 ; LDA #00H ;KBI010 EQU $ ; STA KBANGL,Y ; STA KBANGH,Y ; STA KBHANK,Y ; DEY ; BPL KBI010 ; LDA ENXPSL,X CLC ADC #08H STA ENXPSL,X LDA ENYPSL,X CLC ADC #10H STA ENYPSL,X ; JSR KBPSSV ; STZ KBTLPT ; Tail initial ! STZ KBTLMK STZ KBTLTM STZ KBTLYD STZ KBBSFG ; LDA #0FFH STA KBWTTM ; Move wait time ! KBRVSE EQU $ LDA ENWRK0,X STA ENXPSL,X ; KBKBYD EQU 0CH ; LDA ENWRK2,X CLC ADC #KBKBYD ;#18H STA ENYPSL,X LDA ENCTCT,X ADC #00H STA ENYPSH,X RTS ;------------------------------------------ KAMBRI EQU $ LDA #03H STA ENCHPT,X ; LDA #80H BRA KRI010 KAMBBI EQU $ LDA #0FFH KRI010 EQU $ STA ENTIM0,X ; LDY #09H*3-1 KBI0110 EQU $ LDA #40H STA KBANGL,Y LDA #00H STA KBANGH,Y STA KBHANK,Y DEY BPL KBI0110 ; LDA #01H STA ENCONT,X ; KBPSSV EQU $ LDA ENXPSL,X STA ENWRK0,X LDA ENXPSH,X STA ENWRK1,X LDA ENYPSL,X STA ENWRK2,X LDA ENYPSH,X STA ENCTCT,X ; RTS ;############################################################## ;# Kame boss last snake move ! # ;############################################################## ;K2TXSD EQU $ ; HEX 00,10,F0 ; KB2CPT EQU $ HEX 6,7,0,1,2,3,4,5 KB2TUC EQU $ HEX 7,7,1,1,3,3,5,5 ; KAMB2MV EQU $ ;; RTS LDA ENYSPD,X STA MKCK16 LSR A TAY LDA KB2CPT,Y STA ENCHPT,X ; LDY ENTIM1,X BEQ B20D00 ; TAY LDA KB2TUC,Y STA ENCHPT,X B20D00 EQU $ JSR KAMB2CS JSR ENSTCK ; LDA ENSTAT,X BPL B20E00 ; Fail ? ; ; yes ! LDA ENTIM0,X PHA ORA #0E0H STA ENFLSH,X PLA BNE B2F060 ; LDA #0CH STA ENTIM0,X ; LDA ENCTFG,X ;; CMP #01H BNE B2F050 ; ;; STZ ENMODE,X LDA #0FFH STA ENFLSH,X JMP EBAKUST B2F050 EQU $ DEC ENCTFG,X ; JSL >HBBKST B2F060 EQU $ RTS ;----------------------------------------------- B20E00 EQU $ LDA SDLRE3 ;(S) B2D001 EQU $ ; PHX TXY INC ENCONT,X LDA ENCONT,X AND #7FH TAX LDA ENXPSL,Y STA >HBXBFL,X LDA ENYPSL,Y STA >HBYBFL,X LDA ENXPSH,Y STA >HBXBFH,X LDA ENYPSH,Y STA >HBYBFH,X PLX ; LDA ENHNFG,X CMP #0EH BNE B200020 ; LDA #08H STA ENHNFG,X ; LDA ENSTAT,X CMP #00H BNE B200020 ; LDA #02H STA ENSTAT,X B200020 EQU $ ;;;;LLLL JSR ENHNSB ; ;; LDA JSRSUB ;; WORD B2MOVE0 WORD B2MOVE1 ;0 ;; WORD B2MOVE15 ;; WORD B2MOVE2 ;1 WORD B2MOVE3 ;2 ;---------------------------------------- ;B2M0XA EQU $ ; HEX 02,FE ;B2M0XL EQU $ ; HEX 10,F0 ;; ;B2MOVE0 EQU $ ; LDA #10H ; STA ENYSPD,X ;; ; LDA ENKBMK,X ; AND #01H ; LDA ENXSPD,X ; CLC ; ADC B2M0XA,Y ; STA ENXSPD,X ; CMP B2M0XL,Y ; BNE B20010 ; INC ENKBMK,X ;B20010 EQU $ ; JSL >ENBGCKL ; LDA >ENCBFG,X ; BEQ B20020 ;; ; LDA #000H ; STA ENWRK0,X ;; ; INC ENSTAT,X ; JMP B21TUR ;B20020 EQU $ ; RTS ;;---------------------------------------- ;B2M0YA EQU $ ; HEX 02,FE ;B2M0YL EQU $ ; HEX 10,F0 ;; ;B2MOVE15 EQU $ ; LDA #0F0H ; STA ENXSPD,X ;; ; LDA ENKBMK,X ; AND #01H ; LDA ENYSPD,X ; CLC ; ADC B2M0YA,Y ; STA ENYSPD,X ; CMP B2M0YL,Y ; BNE B21510 ; INC ENKBMK,X ;B21510 EQU $ ; JSL >ENBGCKL ; LDA >ENCBFG,X ; BEQ B21520 ;; ; INC ENSTAT,X ;B21520 EQU $ ; RTS ;---------------------------------------- B21XSD EQU $ HEX 00,E1,00,1F B21YSD EQU $ HEX 1F,00,E1,00 ; B2MOVE1 EQU $ LDA ENCONT,X AND #00H BNE B21010 ; DEC ENWRK0,X BNE B21010 ; INC ENSTAT,X LDA #0C0H STA ENTIM0,X B21010 EQU $ JSL >PSSAVE2 ;; JSL >ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK BEQ B21020 ; B21TUR EQU $ LDA ENMUKI,X INC A AND #03H STA ENMUKI,X ; LDA #08H STA ENTIM1,X B21020 EQU $ LDY ENMUKI,X LDA B21XSD,Y STA ENXSPD,X LDA B21YSD,Y STA ENYSPD,X ; RTS ;---------------------------------------- B2MOVE2 EQU $ ;; LDA ENCONT,X ;; AND #01H ;; BNE B22010 ;;; ;; DEC ENWRK0,X LDA ENTIM0,X BNE B22010 ; INC ENSTAT,X B22010 EQU $ LDA #1FH JSL >PSERC2L ; LDA PSERC2L ; LDA ENXSPD,X CMP HBXBFL,X STA ENXP2L LDA >HBXBFH,X STA ENXP2H LDA >HBYBFL,X STA ENYP2L LDA >HBYBFH,X STA ENYP2H ; PLX ; PHY TYA ASL A TAY ; MEM16 REP #20H ; LDA EN1CSTL BRA K2C030 K2C020 EQU $ LDA #08H STA ENCHPT,X JSR KBHDCS K2C030 EQU $ INC ENHELP2 LDA ENHELP2 ;; CMP #0CH CMP ENCTFG,X BEQ K2C038 ; JMP K2C010 K2C038 EQU $ RTS ;======================================================== B2KNCK EQU $ LDA ENXPSL,X PHA LDA ENXPSH,X PHA LDA ENYPSL,X PHA LDA ENYPSH,X PHA ; LDA ENXP2L STA ENXPSL,X LDA ENXP2H STA ENXPSH,X LDA ENYP2L STA ENYPSL,X LDA ENYP2H STA ENYPSH,X ; LDA #80H STA ENMOD5,X STZ ENMOD2,X ; JSL >CRKNENL ; LDA #84H STA ENMOD5,X ; Head katai ! ; LDA #01000000B STA ENMOD2,X ; PLA STA ENYPSH,X PLA STA ENYPSL,X PLA STA ENXPSH,X PLA STA ENXPSL,X RTS ;############################################################## ;# # ;############################################################## ; BSKBP0 EQU $ HEX 7,1 ; KAMBSMV EQU $ LDA KBBSFG BEQ BSM111 ; Last atack ? ; ; yes ! JMP KAMB2MV ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ BSM111 EQU $ LDA #17H STA KAMB2IT ; STZ ENCONT,X STZ ENKBMK,X ; LDA ENMOD2,X AND #10111111B STA ENMOD2,X ; LDA #80H STA ENMOD5,X ; STZ ENSTAT,X ; STZ ENMUKI,X LDA #00H STA ENWRK0,X ; ;; LDA SDLRCE ;; ORA #0CH ;; STA SOUND2 ;(S) LDA #0CH JSL >SDLRE2 ;(S) BSM1E0 EQU $ PLA AND #01H BNE BSM1FF ; JSL >RNDSET AND #07H TAY LDA ENXPSL,X CLC ADC BSBKXL,Y STA ENXP2L LDA ENXPSH,X ADC BSBKXH,Y STA ENXP2H ; JSL >RNDSET AND #07H TAY LDA ENYPSL,X CLC ADC BSBKYL,Y PHP SEC SBC #08H STA ENYP2L LDA ENYPSH,X SBC #00H PLP ADC BSBKYH,Y STA ENYP2H ; JSL >HBBKST2 BSM1FF EQU $ LDA #0FFH STA ENKBMK,X ; Not C SET ! RTS ;-------------------------------------------- BSBKXL EQU $ HEX 00,08,10,18,E8,F0,F8,00 BSBKXH EQU $ HEX 00,00,00,00,FF,FF,FF,00 BSBKYL EQU $ HEX 00,08,10,18,E8,F0,F8,00 BSBKYH EQU $ HEX 00,00,00,00,FF,FF,FF,00 ;------------------------------------------------------- BSM000 EQU $ LDA ENMODE+1 ORA ENMODE+2 BNE BSM001 ; All Kubi fail ? ; ; yes ! next atack set ! LDA ENSTAT,X CMP #02H BCS BSM001 ; ;; INC BSFLFG ; LDA #0FFH STA ENTIM0,X LDA #0FFH STA ENSTAT,X ; LDA #22H STA SOUND3 ;(S) RTS ;- - - - - - - - - - - - - - - - - - - - BSM001 EQU $ JSR KBTLCTL JSR CRKBPL JSR CREKEK ; LDA JSRSUB WORD BSSTOP WORD BSWALK WORD BSATWT WORD BSATCK BSMRTS EQU $ RTS ;----------------------------------------- BSWKXP EQU $ hex 60,78,78,90 ;; HEX 40,50,60,78,78,90,A0,B0 BSWKYP EQU $ hex 80,70,60,80 ;; hex 80,70,a0,80 ;; HEX A0,50,80,60,B0,80,50,A0 ; BSSTOP EQU $ LDA ENTIM0,X BNE BSST10 ; LDA HEMODE,X AND #7FH STA RNDSET AND #03H TAY ;; CMP HEMODE,X CMP RNDSET AND #03H CMP #01H TYA BCS BSST0A ORA #80H BSST0A EQU $ STA HEMODE,X ; INC ENSTAT,X ; ;; JSL >RNDSET ;; AND #3FH ;; ADC #40H ;; STA ENTIM0,X BSST10 EQU $ RTS ;----------------------------------------- BSWALK EQU $ LDA HEMODE,X CMP #0FFH BNE BSWK03 ; LDA ENTIM0,X BEQ BSWK02 ; JSR EPYCHK CPY #00H BNE BSWK03 ; BSWK02 EQU $ STZ HEMODE,X JMP BSWK0B BSWK03 EQU $ ;; LDA ENTIM0,X ;; BNE BSWK08 ;;; ;; STZ ENSTAT,X ;;; ;; LDA #30H ;; STA ENTIM0,X BSWK08 EQU $ LDA KBSHXP STA ESERCHL ; LDA BG body scroll ! -- LDA ENXPSL,X PHA LDA ENYPSL,X PHA JSR ENMVCL PLA LDY #00H SEC SBC ENYPSL,X STA BG1VMC BPL BSWK0A DEY BSWK0A EQU $ STY BG1VMC+1 PLA LDY #00H SEC SBC ENXPSL,X STA BG1HMC BPL BSWC0C DEY BSWC0C EQU $ STY BG1HMC+1 ; LDA #01H STA B1MFLG ;- - - - - - - - - - - JSR KBPSSV ; LDA ENYPSL,X SEC SBC #KBKBYD ;#18H STA ENWRK2,X ; LDA KBSHXP SEC SBC ENXPSL,X CLC ADC #02H CMP #04H BCS BSWK0C LDA KBSHYP SEC SBC ENYPSL,X CLC ADC #02H CMP #04H BCS BSWK0C ; BSWK0B EQU $ STZ ENSTAT,X ; LDA #30H STA ENTIM0,X BSWK0C EQU $ LDA HEMODE,X BPL BSWK0E ; High speed ? ; ; yes ! JSR BSWK0E BSWK0E EQU $ LDA ENCONT,X LDY ENXSPD,X BMI BSWK10 SEC SBC #02H BSWK10 EQU $ CLC ADC #01H STA ENCONT,X AND #0FH BNE BSWK22 ; LDA #21H JSL >SDLRE2 ;(S) BSWK22 EQU $ RTS ;----------------------------------------- BSATWT EQU $ JSR KBTLCTL JSR KBTLCTL ; LDA ENTIM0,X BNE BSAW10 ; INC ENSTAT,X ; LDA #30H JSL >PSERCHL ; LDA #40H STA ENTIM0,X ; LDA #26H STA SOUND3 ;(S) BSAW10 EQU $ RTS ;----------------------------------------- BSATCK EQU $ JSR ENMVCL ; LDA ENTIM0,X BNE BSAT10 ; JSR KBRVSE ; STZ ENSTAT,X LDA #30H STA ENTIM0,X RTS BSAT10 EQU $ CMP #20H BNE BSAT20 ; LDA ENXSPD,X EOR #0FFH INC A STA ENXSPD,X LDA ENYSPD,X EOR #0FFH INC A STA ENYSPD,X BSAT20 EQU $ RTS ;======================================== MBTLLM EQU $ HEX 06,00 ; KBTLCTL EQU $ LDA KBTLTM BNE KTCT10 ; INC KBTLCT LDA KBTLCT AND #03H BNE MBTS10 ; LDA KBTLMK AND #01H TAY LDA KBTLPT CLC ADC MBTLAD,Y STA KBTLPT CMP MBTLLM,Y BNE MBTS10 ; INC KBTLMK ; LDA #08H STA KBTLTM MBTS10 EQU $ RTS KTCT10 EQU $ DEC KBTLTM RTS ;======================================================= CRKBPL EQU $ LDA ENWRK0,X STA PSERC2L LDA SETOAML22 KBCRTS EQU $ RTS ;============================================= KAMBSCS EQU $ LDA ENKBMK,X BMI KBCRTS ; C SET OK ? ; ; YES ! JSR KBHDCS ; LDA Kubi noth ! ; JMP BSC000 ; KBK002 EQU $ LDA ENWRK0,X SEC SBC ENXPSL,X STA hide check ! ; LDA ALOMCKL BSCRTS EQU $ RTS ;- - - - - - - - - - - - - - - - - - - - - ;- - Tail data - - MTCXAD EQU $ WORD 000H,003H,009H,010H,018H ;0 WORD 000H,002H,007H,00DH,014H ;1 WORD 000H,001H,004H,009H,00FH ;2 WORD 000H,000H,000H,000H,000H ;3 WORD -00H,-01H,-04H,-09H,-0FH ;4 WORD -00H,-02H,-07H,-0DH,-14H ;5 WORD -00H,-03H,-09H,-10H,-18H ;6 MTCYAD EQU $ WORD 018H,020H,025H,025H,021H ;0 WORD 018H,020H,027H,02AH,02CH ;1 WORD 018H,020H,028H,02FH,034H ;2 WORD 018H,021H,02AH,034H,03DH ;3 WORD 018H,020H,028H,02FH,034H ;4 WORD 018H,020H,027H,02AH,02CH ;5 WORD 018H,020H,025H,025H,021H ;6 ; MTCCDT EQU $ HEX 06,28,28,2C,2C ;- - - - - - - KBKADT EQU $ HEX FC,E0,C0,A0,80,60,40,20 ;,00 KFCXAD EQU $ HEX E4,1C KFCADT EQU $ HEX 40,00 ; KBFTXD EQU $ HEX 00,02,03,04 HEX 04,04,03,02 HEX 00,FE,FD,FC HEX FC,FC,FD,FE ; ;; HEX 00,03,05,07 ;; HEX 08,07,05,03 ;; HEX 00,FD,FA,F9 ;; HEX F8,F9,FA,FD KBFTYD EQU $ HEX FC,FC,FD,FE HEX 00,02,03,04 HEX 04,04,03,02 HEX 00,FE,FD,FC ; ;; HEX F8,F9,FA,FD ;; HEX 00,03,05,07 ;; HEX 08,07,05,03 ;; HEX 00,FD,FA,F9 ;############################################################## ;# # ;############################################################## KBSTAL EQU $ HEX 40,40,40,40,40,40,40,40,40 HEX 58,64,6A,6F,74,7A,7E,80,80 HEX 39,48,52,5c,65,73,77,7a,80 HEX 1e,24,29,2e,34,3a,44,4d,80 ;; HEX 4f,6b,83,90,8C,7d,67,55,80 HEX 0a,11,17,1c,22,2a,36,3a,80 ;;KBSTAH EQU $ ;; HEX 00,00,00,00,00,00,00,00,00 ;; HEX 00,00,00,00,00,00,00,00,00 ;; HEX 00,00,00,00,00,00,00,00,00 ;; HEX 00,00,00,00,00,00,00,00,00 ;; HEX 00,00,00,00,00,00,00,00,00 KBSTHK EQU $ HEX 30,28,23,1E,19,13,0C,06,00 HEX 2F,26,21,1D,18,12,0C,06,00 HEX 2f,27,22,1d,18,12,0c,06,00 HEX 2f,27,22,1d,18,12,0c,06,00 ;; HEX 27,21,1f,1c,17,13,0f,08,00 HEX 48,3a,32,29,22,19,10,07,00 ; ; ; KRRVXL EQU $ HEX F2,0D KRRVXH EQU $ HEX FF,00 ; KTAGAL EQU $ HEX 00,01,FF KTAGAH EQU $ HEX 00,00,FF KTHKAL EQU $ HEX 00,01,FF ; KAMBRMV EQU $ LDA ENWRK3,X BEQ KR00001 ; JMP KRFIRMV KAMBBMV EQU $ LDA ENWRK3,X BEQ KR00001 ; JMP KRICEMV KR00001 EQU $ ;- - - Master pos.->Kubi pos. - - LDA ENMYNO,X SEC SBC #KAMBR TAY LDA ENWRK0+00H CLC ADC KRRVXL,Y STA ENWRK0,X ; X pos. LDA ENWRK1+00H ADC KRRVXH,Y STA ENWRK1,X ; LDA ENWRK2+00H SEC SBC #10H+10H ;; SBC #0CH+10H STA ENWRK2,X ; Y pos. LDA ENCTCT+00H SBC #00H STA ENCTCT,X ; LDA ENFLCL,X ORA #30H STA ENFLCL,X ; JSR KAMBRCS ; JSR ENSTCK ; LDA ENSTAT,X BPL KR0002 ; STA ENNOCR,X JMP KAMBRFL ; Fail ! ; KR0002 EQU $ LDA ENFLSH,X BEQ KRDC00 ; Danege ? ; ; yes ! LDA ENSTAT,X CMP #04H BEQ KRDC00 ; Move ? ; ; yes ! STZ ENFLSH,X LDA #080H STA ENTIM0,X LDA #04H STA ENSTAT,X ; LDA ENCLOR,X STA ENZSPD,X LDA #03H STA ENCLOR,X KRDC00 EQU $ ;; JSR KEYTEST ; JSR CREKEK ; LDA ENMOD5,X ORA #00000100B STA ENMOD5,X ; LDA ENSTAT,X JSL >JSRSUB WORD KBWAIT WORD KBSTOP WORD KBMOVE WORD KBATCK WORD KBHELP ;--------------------------------------------- KBHELP EQU $ ; Ken atack chance ! ; LDA ENFLSH,X ; BEQ KBH000 ; BMI KBH000 ;; ; STZ ENFLSH,X ; Beam protect ! ;KBH000 EQU $ ; LDA ENMOD5,X AND #11111011B STA ENMOD5,X ; STZ HEMODE,X ; LDA ENTIM0,X ;;;;; STA ENNOCR,X BNE KBH060 PHA LDA #01H STA ENSTAT,X LDA #20H STA ENTIM0,X LDA ENZSPD,X STA ENCLOR,X STZ ENFLSH,X PLA KBH060 EQU $ CMP #15 BCC KRBGCG2 ; CMP #254-0-0B0H BCS KBH090 CMP #239-0-0B0H BCC KBH090 ;- - - - - Chenge - - - - KRBGCG EQU $ LDA ENMYNO,X CMP #KAMBB BNE KBH080 ; PHX JSL >KMBBCG0 ; BG cg chenge ! PLX RTS KBH080 EQU $ PHX JSL >KMBRCG0 PLX KBH090 EQU $ RTS ;- - - - - Rsvise - - - - KRBGCG2 EQU $ LDA ENMYNO,X CMP #KAMBB BNE KBH0802 ; PHX JSL >KMBBCG1 ; BG cg chenge ! PLX RTS KBH0802 EQU $ PHX JSL >KMBRCG1 PLX RTS ;--------------------------------------------- KBWAIT EQU $ ; Move wait ! ;; STZ ENFLSH,X LDA ENMOD2,X ORA #01000000B STA ENMOD2,X ; Damage protect ! ; LDA ENTIM0,X BNE KBW010 ; LDA #02H STA ENSTAT,X ; LDA #09H STA ENCONT,X ; Kubi OAM suu +1 ; LDA ENMOD2,X AND #10111111B STA ENMOD2,X ; Damage set ! KBW010 EQU $ RTS ; ;--------------------------------------------- KBSTOP EQU $ LDA ENTIM0,X BNE KBS010 ; ;; LDA #040H ;; STA ENTIM0,X ; LDA ENMUKI,X STA RNDSET AND #07H INC A CMP #06H-1 BCS KBS010 CMP ENMUKI,X BEQ KBS010 ; STA ENMUKI,X ; INC ENSTAT,X ; LDA RNDSET LSR A BCS KBS010 ; LDA ENSTAT+00H CMP #02H BCS KBS010 ; Master atack ? ; ; yes ! Not atack check ! INC ENCHPT,X LDA ENCHPT,X CMP #06H nop nop ;; BNE KBS008 ; Atack time ? ; ; yes ! STZ ENCHPT,X LDA #03H STA ENSTAT,X LDA #07FH ;; LDA #0FFH STA ENTIM0,X ;; RTS KBS008 EQU $ KBS010 EQU $ RTS ;--------------------------------------------- KBMOVE EQU $ ;; LDA ENTIM0,X ;; BNE KBM008 ;;; ;; STZ ENSTAT,X ;; LDA #20H ;; STA ENTIM0,X ;;KBM008 EQU $ STZ RNDSET AND #0FH STA ENTIM0,X ; Stop time ! KBM050 EQU $ RTS ; ; ; ;; LDA ENWRK0,X ;; CLC ;; ADC #01H ;; STA ENWRK0,X ;; LDA ENWRK1,X ;; ADC #00H ;; STA ENWRK1,X ; RTS ;--------------------------------------------- KRAIFT EQU $ HEX 1,1,3,3,7,0F,1F,1F ; KBATCK EQU $ LDA ENTIM0,X BNE KRA010 ; STZ ENSTAT,X LDA #20H STA ENTIM0,X RTS ; KRA010 EQU $ CMP #40H ;; CMP #80H BNE KRA018 PHA JSR KRBMST PLA KRA018 EQU $ CMP #08H BCC KRA020 CMP #079H LDA #08H BCC KRA020 ; LDA ENTIM0,X CLC ADC #80H EOR #0FFH KRA020 EQU $ STA HEMODE,X ; Kuchi pos. ; LDA ENTIM0,X CMP #40H ;; CMP #80H BCC KRA030 ; SEC SBC #40H ;; SBC #80H ;; LSR A ;; NOP LSR A LSR A LSR A TAY LDA RNDSET AND #0FH LDY #00H SEC SBC #03H STA RNDSET AND #0FH CLC ADC #0CH STA ICEFLST LDA ENMYNO,X CMP #KAMBR BNE KRA030 ; PHX LDX E2MODE,X PLX KRA030 EQU $ RTS ;---------------------------------------------- KISXSD EQU $ HEX FE,01 ; KRBMST EQU $ LDA ENMYNO,X CMP #KAMBB BNE KRFIRST ; STZ ENHELP2 ; JSR KRICEST ;1 ; INC ENHELP2 ; LDA #KAMBB KRICEST EQU $ ;2 JSL >ENIDSH BMI KFS090 ; JSL >ENIDPS ; PHX LDX ENHELP2 LDA KISXSD,X STA ENWRK2,Y ; X speed 2 PLX ; ;; JSL >SDLRCE ;; ORA #19H ;; STA SOUND3 ;(S) LDA #19H JSL >SDLRE3 ;(S) ; BRA KBS011 ; ;; LDA ENIDSH BMI KFS090 JSL >ENIDPS ; ;; JSL >SDLRCE ;; ORA #2AH ;; STA SOUND2 ;(S) LDA #2AH JSL >SDLRE2 ;(S) ; ;; LDA HBBKST KRF060 EQU $ RTS ; ; ; ; ; ; ; ;================================================= KBINDX EQU $ BYTE 00,09*1,09*2 ;---TAIL------------------------------------------- ;;MTTLSB EQU $ ;;HEX FF,E0,C0,A0,80,60,40,20,00 ; KAMBRCS EQU $ ;- - Pos revise (for c set ) - - LDA ENWRK0,X STA ENXPSL,X LDA ENWRK1,X STA ENXPSH,X LDA ENWRK2,X STA ENYPSL,X LDA ENCTCT,X STA ENYPSH,X ; JSL >PSSAVE2 JSR OAMCHK ;- - Angle calc - - - STZ ENHELP ; Kosu STZ ENHELP2 ; OAM counter ; MTCT10 EQU $ LDY ENHELP ; TYA CLC ADC KBINDX,X TAY CPX #02H BEQ KCT000 ; LDA KBANGL,Y EOR #0FFH INC A STA SINDT2,X STA SINDT2,X STA ALOMCKL MTCTB0 EQU $ RTS ;============================================================= KRHXAD EQU $ HEX F8,08,F8,08,00 KRHYAD EQU $ HEX F8,F8,08,08,02 KRHCDT EQU $ HEX 04,04,24,24,0A KRHADT EQU $ HEX 40,00,40,00,00 ; KRHDCS EQU $ ;; LDA ENCONT,X ;; STA OAMCHKL ;;; JSL >EN1CSTL ; JSR ENSTCK ; LDA ENXSPD,X PHA CLC ADC ENWRK2,X STA ENXSPD,X ; Rivise speed ! JSR ENMVCL PLA STA ENXSPD,X ; JSR KIZNZST ; KIMSUB EQU $ LDA ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK BEQ KIM010 ; STZ ENMODE,X KIM010 EQU $ RTS ;---------------------------------------- KIZNZST EQU $ INC ENCONT,X LDA ENCONT,X AND #07H BNE KIZS90 ; LDA #14H JSL >SDLRE3 ;(S) ; PHX TXY ; LDX #E2NO-1 KIZS10 EQU $ LDA >E2MODE,X BEQ KIZS20 DEX BPL KIZS10 ; DEC E2STCT BPL KIZS18 ; LDA #E2NO-1 STA E2STCT KIZS18 EQU $ ; LDX E2STCT KIZS20 EQU $ LDA #0CH STA >E2MODE,X STA EN2FLG ; TYA STA >E2STAT,X ; LDA ENXPSL,Y STA >E2XPSL,X LDA ENXPSH,Y STA >E2XPSH,X LDA ENYPSL,Y CLC ADC #10H STA >E2YPSL,X LDA ENYPSH,Y ADC #00H STA >E2YPSH,X ; LDA #07FH STA >E2TIM0,X ; PLX KIZS90 EQU $ RTS ;- - - - - - - - - - - - - - - - - - - - - KRFIRMV EQU $ JSL >OAMCHKL ;;; JSL >EN1CSTL ; JSR ENSTCK ; JSR ENMVCL JSR KFZNZST JMP KIMSUB ; ;---------------------------------------- KFZNZST EQU $ INC ENCONT,X LDA ENCONT,X AND #07H BNE KFZS90 ; LDA #2AH JSL >SDLRE2 ;(S) ; LDA #E2NO-1 ZNZSET EQU $ PHX TXY ; ;; LDX #E2NO-1 TAX STA E2MODE,X BEQ KFZS20 DEX BPL KFZS10 ; DEC E2STCT BPL KFZS18 ; LDA E2MODE,X STA EN2FLG ; TYA STA >E2STAT,X ; LDA ENXPSL,Y STA >E2XPSL,X LDA ENXPSH,Y STA >E2XPSH,X LDA ENYPSL,Y CLC ADC #10H STA >E2YPSL,X LDA ENYPSH,Y ADC #00H STA >E2YPSH,X ; ;; LDA #0FFH LDA #07FH STA >E2TIM0,X ; STX WAINDX,X TAX MEM16 REP #20H WAI010 EQU $ LDA ENXP2L STA >WAXBFL,X LDA ENYP2L STA >WAYBFL,X INX INX DEY BPL WAI010 MEM8 SEP #20H PLX ; LDA ENXPSL,X STA ENWRK0,X LDA ENXPSH,X STA ENWRK1,X LDA ENYPSL,X STA ENWRK2,X LDA ENYPSH,X STA ENCTCT,X RTL ;============================================================= ;;WATXSD EQU $ ;; HEX 00,10,F0 ; WANWANMV EQU $ JSR WACSET ; JSR ENSTCK ; JSR CREKEK ; JSR WASUB0 ; TXA EOR MKCK16 AND #0FH STA ENMUKI,X W00000 EQU $ ;; LDA PSSAVE2 ;- - Move Hani check - - LDA ENWRK0,X STA JSRSUB WORD WASTOP WORD WAWALK WORD WAATCK WORD WAMAX ;----------------------------------------- WAWKXS EQU $ BYTE 000H,008H,00BH,00EH,010H,00EH,00BH,008H BYTE 000H,-08H,-0BH,-0EH,-10H,-0EH,-0BH,-08H WAWKYS EQU $ BYTE -10H,-0EH,-0BH,-08H,000H,008H,00BH,00EH BYTE 010H,00EH,00BH,008H,000H,-09H,-0BH,-0EH ;WAWKXS EQU $ ; HEX 10,0C,00,F4,F0,F4,00,0C ; HEX ;WAWKYS EQU $ ; HEX 00,0C,10,0C,00,F4,F0,F4 ;- - - - - - - - - - - - - - - - - - - - - - - - - - WASTOP EQU $ LDA ENTIM0,X BNE WAS010 ; INC ENCONT,X LDA ENCONT,X CMP #04H BNE WAS008 ; STZ ENCONT,X ; LDA #02H STA ENSTAT,X ; JSL >RNDSET AND #0FH TAY LDA WAWKXS,Y ASL A ASL A STA ENXSPD,X LDA WAWKYS,Y ASL A ASL A STA ENYSPD,X ; JSL >RNDSET AND #00H BNE WAS001 ; Player serch ? ; ; yes ! LDA #40H JSL >PSERCHL ; ;; JSL >SDLRCE ;; ORA #04H ;; STA SOUND3 ;(S) LDA #04H JSL >SDLRE3 ;(S) WAS001 EQU $ RTS ; WAS008 EQU $ JSL >RNDSET AND #1FH ADC #10H STA ENTIM0,X ; JSL >RNDSET AND #0FH TAY LDA WAWKXS,Y STA ENXSPD,X LDA WAWKYS,Y STA ENYSPD,X ; INC ENSTAT,X RTS WAS010 EQU $ JSR ENSDCL RTS ;----------------------------------------- WAWALK EQU $ LDA ENTIM0,X BNE WAW010 ; LDA #20H STA ENTIM0,X STZ ENSTAT,X WAW010 EQU $ AND #0FH BNE WAW020 ; JSR WARVSE WAW020 EQU $ LDA ENZPSL,X BNE WAW028 ; LDA #10H STA ENZSPD,X WAW028 EQU $ LDA ENCTFG,X BNE WAW030 ; ;; LDA ENXSPD,X ;; EOR #0FFH ;; INC A ;; STA ENXSPD,X ;;; ;; LDA ENYSPD,X ;; EOR #0FFH ;; INC A ;; STA ENYSPD,X ; LDA ENWRK0,X STA ESERCHL LDA WAXBFL,X SEC SBC WAYBFL,X SEC SBC WAXBFL,X STA WAXBFL+1,X STA WAYBFL,X STA WAYBFL+1,X STA WAXBFL,X CMP WAXBFL,X WAR130 EQU $ ; LDA >WAYBFL,X CMP WAYBFL,X WAR140 EQU $ MEM8 SEP #20H ; INX INX DEC WAXBFL,X LDA ENYP2L STA >WAYBFL,X ; WA0010 EQU $ ;--------- X calc -------------- LDA >WAXBFL,X SEC SBC >WAXBFL+2,X CMP #0008H BPL WA0020 CMP #0FFF8H BPL WA0030 ; LDA >WAXBFL,X CLC ADC #0008H STA >WAXBFL+2,X ; BRA WA0030 WA0020 EQU $ LDA >WAXBFL,X SEC SBC #0008H STA >WAXBFL+2,X WA0030 EQU $ LDA >WAYBFL,X SEC SBC >WAYBFL+2,X CMP #0008H BPL WA0120 CMP #0FFF8H BPL WA0130 ; LDA >WAYBFL,X CLC ADC #0008H STA >WAYBFL+2,X ; BRA WA0130 WA0120 EQU $ LDA >WAYBFL,X SEC SBC #0008H STA >WAYBFL+2,X WA0130 EQU $ ;--------- Y calc -------------- INX INX INC EN1CSTL ;; JSL >OAMCHKL ; LDA ENTIM1,X ;; NOP AND #01H CLC ADC #04H STA WAXBFL,X CLC ADC WAYBFL,X CLC ADC CRKNENL JSL >CRENPLL RTS ;============================================================= ;============================================================= ENMY4MV EQU $ PHB PHK PLB JSR E40000 PLB RTL ;----------------------------------- E40000 EQU $ LDA ENMYNO,X SEC SBC #ENMY4 MEM16 IDX16 REP #00110000B AND #00FFH ASL A TAY LDA E4MVAD,Y DEC A PHA MEM8 IDX8 SEP #00110000B RTS ;============================================ E4MVAD EQU $ WORD EYEBSMV WORD EYETMMV WORD EYEBMMV WORD NAMAZMV WORD SDEMOMV WORD IWAGOMV WORD AMEBAMV WORD TheftMV WORD BGBM0MV WORD BGBM1MV WORD DARUMMV WORD IZUMIMV WORD TEKTAMV WORD WANWANMV WORD KAMBSMV WORD KAMBRMV WORD KAMBBMV WORD CTBOSMV WORD MDARMMV WORD RINELMV WORD DOOMOMV WORD JFISHMV WORD ABATAMV WORD ZIRAIMV WORD ANAHOMV WORD GANONMV WORD GANO2MV ; Dammy (For silver alow) ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Tektait (kumo) % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TKJPXS EQU $ HEX 10,F0,10,F0 TKJPYS EQU $ HEX 10,10,F0,F0 ; TEKTAMV EQU $ LDA ENCTFG,X BEQ TEKT00 ; STA ENNOCR,X ; PHA LDA #30H STA ENFLCL,X PLA ; DEC A JSL >JSRSUB WORD GANSPMV ;1 Shisai => Ganon spook WORD GANYRMV ;2 Ganon yari WORD GANFRMV ;3 Ganon fire spin ! (atack3) WORD GANFBMV ;4 Ganon fire bad (stack2) WORD GANF2MV ;5 Ganon fire strate!(atack4) ;=================================================================== TEKT00 EQU $ LDA ENTIM1,X BEQ TEK0F0 ; STZ ENCHPT,X TEK0F0 EQU $ JSR TEKTACS ; JSR ENSTCK ; JSR ENHNSB ; JSR CREKEK ; JSR ENMVCL2 ; JSR ENTUCK ; LDA ENZSPD,X SEC SBC #01H STA ENZSPD,X ; LDA ENZPSL,X BPL TEK000 ; STZ ENZPSL,X STZ ENZSPD,X TEK000 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD TEKSTOP WORD TEKJUMP WORD TEKSERC ;--------------------------------------------------------- TEJPMK EQU $ HEX 3,2,1,0 ; TEKSTOP EQU $ JSR EPXYCK LDA PSERC2L ; LDA RNDSET AND #3FH ADC #30H STA ENTIM0,X ; LDA #00CH STA ENZSPD,X ; JSR EPYCHK TYA ASL A STA RNDSET AND #07H ADC #018H STA ENZSPD,X ; JSL >RNDSET AND #03H PKS00C EQU $ TAY LDA TKJPXS,Y STA ENXSPD,X LDA TKJPYS,Y STA ENYSPD,X RTS ; TEKS10 EQU $ LSR A LSR A LSR A LSR A AND #01H STA ENCHPT,X RTS ;--------------------------------------------------------- TEKJUMP EQU $ LDA ENZPSL,X BNE TEKJ10 ; TKSTST EQU $ STZ ENSTAT,X ; JSL >RNDSET AND #3FH ADC #48H STA ENTIM0,X ENSDCL EQU $ STZ ENYSPD,X STZ ENXSPD,X RTS TEKJ10 EQU $ LDA #02H STA ENCHPT,X RTS ;--------------------------------------------------------- TEKSERC EQU $ LDA ENTIM0,X BEQ TKSTST ; LDA ENZPSL,X BNE TKSE10 ; LDA #0CH STA ENZSPD,X ; INC ENZPSL,X ; LDA #08H STA ENTIM1,X TKSE10 EQU $ LDA #02H STA ENCHPT,X RTS ;========================================== TEKTACD EQU $ WORD 0FFF8H,00000H HEX C8,00,00,02 WORD 00008H,00000H HEX C8,40,00,02 ; WORD 0FFF8H,00000H HEX CA,00,00,02 WORD 00008H,00000H HEX CA,40,00,02 ; WORD 0FFF8H,00000H HEX EA,00,00,02 WORD 00008H,00000H HEX EA,40,00,02 ;- - - - - - - - - - - - - - - - - - - - - - - - - - TEKTACS EQU $ LDA #00H XBA LDA ENCHPT,X MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ADC #TEKTACD STA SETOAML22 ; JSL >SADWSTL RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Fairy izumi % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% IZMYLM EQU $ HEX 08,F8 ; IZUMIMV EQU $ LDA ENKBMK,X BNE IZSTRMV ; JMP IZM0E0 IZSTRMV EQU $ JSL >OAMCHKL JSR ENSTCK ; INC ENCONT,X JSR ISTARST ; LDA ENCONT,X AND #01FH BNE ISM000 ; ;; JSL >SDLRCE ;; ORA #31H ;; STA SOUND2 ;(S) LDA #31H JSL >SDLRE2 ;(S) ISM000 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD ISMOVE WORD ISSTOP WORD ISEND ;============================================ ISMOVE EQU $ LDA #00H STA ENWRK0,X ; ; ;; LDA ENCONT,X ;; AND #01H ;; BNE IZM210 ;;; ;; INC ENWRK1,X ;; LDA ENWRK1,X ;; CMP #30H ;; BNE IZM210 LDA #08H JSL >PSERCHL JSR ENMVCL JSL >PSSAVE2 MEM16 REP #020H LDA UPLFCT STA >UPLFCT ; ;; LDA >UPLFCT+1 ;; ADC #00H ;; STA >UPLFCT+1 ;;; MEM8 SEP #20H ; INC ENSTAT,X IZM210 EQU $ MEM8 SEP #20H RTS ;============================================ ISSTOP EQU $ LDA >LFNWCT CMP >LFITCT BNE IZM310 ; INC ENSTAT,X ; LDA #40H+30H STA ENTIM2+00H ;;,X ; Master clear ! IZM310 EQU $ RTS ;============================================ ISEND EQU $ LDA ENCONT,X AND #0FH BNE IZM410 ; LDA ENWRK0,X BMI IZM410 ; SEC ROL ENWRK0,X LDA ENWRK0,X CMP #80H BCC IZM410 ; LDA #0FFH STA ENWRK0,X ; STZ PYALSP ; STZ ENMODE,X IZM410 EQU $ RTS ; ; ;*************************************************** IZM0E0 EQU $ LDA ENTIM2,X BEQ IZM0E8 ; Clear time ? ; ; yes ! CMP #40H BCS IZM0E8 DEC A BNE IZM0E5 ; STZ ENMODE,X IZM0E5 EQU $ LSR A BCC IZM0E8 RTS ;--------------------------------------------------- IZM0E8 EQU $ JSR IZUMICS ; DEC ENCTCT,X BPL IZM0F0 ; LDA #05H STA ENCTCT,X ; LDA ENCHPT,X INC A AND #03H STA ENCHPT,X ; IZM0F0 EQU $ ;;L JSR ISTARST ; JSR ENSTCK ; INC ENCONT,X ; ; LDA ENCONT,X ; AND #01H ; BNE IZM000 ;; ; LDA ENMUKI,X ; AND #01H ; TAY ; LDA ENZSPD,X ; CLC ; ADC IZMYAD,Y ;; STA ENZSPD,X ; CMP IZMYLM,Y ; BNE IZM000 ;; ; INC ENMUKI,X ;IZM000 EQU $ ; JSR ENZCLC ; ; LDA ENSTAT,X JSL >JSRSUB WORD IZMOV1 WORD IZMOV2 ;; WORD IZMOV3 ;; WORD IZMOV4 ;------------------------------------------ IZMOV1 EQU $ JSR ISTARST ; LDA #01H STA ENWRK0,X ; JSR EPXYCK LDA DASCLR1 ; INC ENSTAT,X ; LDA #MS_0530 STA MSGENOL LDA #HIGH MS_0530 STA MSGENOH JSL >MSGSET ; LDA #01H STA PYALSP ; LDA #IZUMI JSL >ENIDSH JSL >ENIDPS LDA #01H STA ENKBMK,Y ; LDA ENYPSL,Y SEC SBC ENZPSL,X STA ENYPSL,Y ; LDA #00H STA ENZPSL,Y IZM010 EQU $ RTS ;------------------------------------------------ IZMOV2 EQU $ RTS ; ; ; ;K; LDA #00H ;K; STA ENWRK0,X ;;K; ;K; LDA ENCONT,X ;K; AND #01H ;K; BNE IZM210 ;K;; ;K; INC ENWRK1,X ;K; LDA ENWRK1,X ;K; CMP #30H ;K; BNE IZM210 ;K;; ;K; INC ENSTAT,X ;K;; ;K; LDA #0A0H ;K; CLC ;K; ADC >UPLFCT ;K; STA >UPLFCT ;K;; ;K; LDA >UPLFCT+1 ;K; ADC #00H ;K; STA >UPLFCT+1 ;K;IZM210 EQU $ ;K; RTS ;K;;------------------------------------------------ ;K;IZMOV3 EQU $ ;K; LDA >LFNWCT ;K; CMP >LFITCT ;K; BNE IZM310 ;K;; ;K; INC ENSTAT,X ;K;IZM310 EQU $ ;K; RTS ;K;;------------------------------------------------ ;K;IZMOV4 EQU $ ;K; LDA ENCONT,X ;K; AND #0FH ;K; BNE IZM410 ;K;; ;K; LDA ENWRK0,X ;K; BMI IZM410 ;K;; ;K; SEC ;K; ROL ENWRK0,X ;K; LDA ENWRK0,X ;K; CMP #80H ;K; BCC IZM410 ;K;; ;K; LDA #0FFH ;K; STA ENWRK0,X ;K;; ;K; STZ PYALSP ;K;IZM410 EQU $ ;K; RTS ;===================================================== IZUMICD EQU $ ; WORD 0FFFCH,0FFF8H HEX 8E,00,00,02 WORD 00004H,0FFF8H HEX 8E,40,00,02 WORD 0FFFCH,00008H HEX AE,00,00,02 WORD 00004H,00008H HEX AE,40,00,02 ; WORD 0FFFCH,0FFF8H HEX 8C,00,00,02 WORD 00004H,0FFF8H HEX 8C,40,00,02 WORD 0FFFCH,00008H HEX AC,00,00,02 WORD 00004H,00008H HEX AC,40,00,02 ; WORD 0FFFCH,0FFF8H HEX 8A,00,00,02 WORD 00004H,0FFF8H HEX 8A,40,00,02 WORD 0FFFCH,00008H HEX AA,00,00,02 WORD 00004H,00008H HEX AA,40,00,02 ; WORD 0FFFCH,0FFF8H HEX 8C,00,00,02 WORD 00004H,0FFF8H HEX 8C,40,00,02 WORD 0FFFCH,00008H HEX AC,00,00,02 WORD 00004H,00008H HEX AC,40,00,02 ; - - - - - - - - - - - - - - - - - - - - - - - - - - IZUMICS EQU $ LDA #00H XBA LDA ENCHPT,X MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ASL A ADC #IZUMICD STA SETOAML22 ;; JSL >EN1CSTL JSL >SADWSTL RTS ;===================================================== ISSXAL EQU $ ISSYAL EQU $ ;; HEX F0,F8,00,08,10,18 HEX F4,FA,00,06,0C,12 HEX F7,FD,03,09,0F,15 ISSXAH EQU $ ISSYAH EQU $ HEX FF,FF,00,00,00,00 HEX FF,FF,00,00,00,00 ISSXPT EQU $ ISSYPT EQU $ HEX 0,1,2,3,4,5,2,3 HEX 6,7,8,9,A,B,8,9 ; ;; HEX 0,1,2,3,4,5,2,3 ;- - - - - - - - - - - - - - - - - - - - - - - - ISTARST EQU $ LDA ENWRK0,X BMI ISS010 AND ENCONT,X BNE ISS010 ; JSL >RNDSET AND #07H TAY LDA ISSXPT,Y TAY LDA ISSXAL,Y STA RNDSET AND #07H TAY LDA ISSYPT,Y TAY LDA ISSYAL,Y ;; CLC ;; ADC ENWRK1,X STA ICEFLST ; ISS010 EQU $ RTS ;===================================================== ;===================================================== ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Daruma otoshi % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DARUMMV EQU $ LDA ENWRK2,X BEQ DRM010 ; JSL >EN1CSTL ; JSR ENSTCK JSR CREKEK ; JSR ENMVCL2 ; DEC ENZSPD,X DEC ENZSPD,X ; LDA ENZPSL,X BPL DRM008 LDA #10H STA ENZSPD,X STZ ENZPSL,X DRM008 EQU $ JSR ENTUCK BEQ DRM009 ; ;; JSL >SDLRCE ;; ORA #21H ;; STA SOUND2 ;(S) LDA #21H JSL >SDLRE2 ;(S) DRM009 EQU $ ; LDA ENCTCT,X CMP #03H BCC DRM00A ; LDA #EFAIL STA ENMODE,X ; LDA #0AH STA ENTIM0,X ; STZ ENMOD4,X ; ;; JSL >SDLRCE ;; ORA #1EH ;; STA SOUND2 ;(S) LDA #1EH JSL >SDLRE2 ;(S) DRM00A EQU $ RTS ;====================================== DRM010 EQU $ JSR DARUMCS JSR ENSTCK ; LDA ENHNFG,X BEQ DRM020 ; Damege ? ; ; yes ! LDY ENWRK0,X BEQ DRM020 ; Body aru ? ; ; yes ! CMP #0FH BNE DRM020 ; LDA #06H STA ENHNFG,X ; LDA ENZPSL,X CLC ADC ENWRK1,X STA ENZPSL,X ; DEC ENWRK0,X ; 1 ko heru ! BNE DRM012 ; LDA #11H STA ENLIFE,X ; Last !! DRM012 EQU $ LDA ENXSPD,X BPL DRM01C SEC SBC #08H DRM01C EQU $ CLC ADC #04H STA ENXSPD,X ; LDA ENYSPD,X BPL DRM01D SEC SBC #08H DRM01D EQU $ CLC ADC #04H STA ENYSPD,X ; LDA #DARUM JSL >ENIDSH BMI DRM020 ; JSL >ENIDPS LDA #01H STA ENWRK2,Y STA ENLIFE,Y ; LDA ENHNXS,X STA ENXSPD,Y LDA ENHNYS,X STA ENYSPD,Y ; LDA #40H STA ENMOD5,Y DRM020 EQU $ JSR ENHNSB ; JSR CREKEK ; LDA ENSTAT,X JSL >JSRSUB WORD DRSTOP WORD DRJUMP ;--------------------------------------------------------- DRSTYD EQU $ HEX 8,7,6,5,4,5,6,7 ; DRSTOP EQU $ LDA ENTIM0,X BNE DRS010 ; INC ENSTAT,X ; LDA #10H STA ENZSPD,X RTS DRS010 EQU $ ;; NOP LSR A TAY LDA DRSTYD,Y STA ENWRK1,X RTS ;--------------------------------------------------------- DRJUMP EQU $ JSR ENMVCL2 ; DEC ENZSPD,X DEC ENZSPD,X ; LDA ENZPSL,X BPL DRJ010 ; STZ ENZPSL,X STZ ENSTAT,X LDA #0FH STA ENTIM0,X DRJ010 EQU $ ENTUCK EQU $ ;; JSL >ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK AND #03H BEQ DRJ020 ; LDA ENXSPD,X EOR #0FFH INC A STA ENXSPD,X ; INC ENCTCT,X DRJ020 EQU $ LDA ENCBFG,X AND #0CH BEQ DRJ030 ; LDA ENYSPD,X EOR #0FFH INC A STA ENYSPD,X ; INC ENCTCT,X DRJ030 EQU $ RTS ;--------------------------------------------------------- ENTUCKL EQU $ JSR ENTUCK RTL ;--------------------------------------------------------- ; ; ; RTS ;====================================================== DARUMCS EQU $ JSR OAMCHK ; LDA ENWRK1,X STA SADWSTL RTS ; ; ; ; ; ; ; ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% BG Beam set 1 % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% BGBM0MV EQU $ JSL >OAMCHKL ; LDA ENMDST ; INC ENWRK3,X ; LDA ENXPSL,X ADC #08H STA ENXPSL,X ; LDA ENYPSL,X SBC #07H STA ENYPSL,X ; LDA #19H JSL >SDLRE3 ;(S) ; LDA #80H STA ENMOD5,X GSCK10 EQU $ RTS ; BGB0F0 EQU $ JSR ENSTCK ; INC ENCONT,X LDA ENCONT,X AND #07FH BNE BGB000 ; LDA ENKAIF,X CMP Z2TMSTL BMI BGB000 ; BBMD5S EQU $ LDA ENMOD5,Y ORA #00001000B STA ENMOD5,Y ; LDA #04H STA ENMOD6,Y BGB000 EQU $ RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% BG Beam set 2 % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% BGBXAL EQU $ HEX 0C,F4,00,00 BGBXAH EQU $ HEX 00,FF,00,00 BGBYAL EQU $ HEX 00,00,0C,F4 BGBYAH EQU $ HEX 00,00,00,FF ; BGB1YS EQU $ HEX 00,00 BGB1XS EQU $ HEX 28,D8,00,00 ; BGBM1MV EQU $ JSL >OAMCHKL ; JSR ENSTCK ; LDA ENTIM0,X BEQ BGB110 ; CMP #18H BNE BGB100 ; JSL >Z2TMSTL BMI BGB100 ; JSR BBMD5S ; PHX TYX JSR EPXYCK LDA BGB1XS,Y STA ENXSPD,X LDA BGB1YS,Y STA ENYSPD,X ; LDA ENXPSL,X CLC ADC BGBXAL,Y STA ENXPSL,X LDA ENXPSH,X ADC BGBXAH,Y STA ENXPSH,X ; LDA ENYPSL,X CLC ADC BGBYAL,Y STA ENYPSL,X LDA ENYPSH,X ADC BGBYAH,Y STA ENYPSH,X PLX BGB100 EQU $ RTS ; BGB110 EQU $ LDA TheftCS ; JSR ENSTCK ; JSR ENHNSB ; JSL >CRKNENL ; ;; LDA JSRSUB WORD THWAIT WORD THREDY WORD THGO WORD THCOSH ;----------------------------------------------- THWAIT EQU $ JSR CRTHPL ; LDA ENTIM0,X BNE THW030 ; MEM16 REP #20H LDA PSERCHL ; LDA ENCBFG,X BNE THG020 ; JSR ENMVCL THG020 EQU $ ;; JSL >ENBGCKL JSR ENBGCK ; LDA ENTIM0,X BNE THG050 ; MEM16 REP #20H LDA CRENPLL BCC THG070 ; INC ENSTAT,X ; LDA #20H STA ENTIM0,X ; JSR THCOST ; Coin thefting ! ; JSR THSDST ;(S) THG070 EQU $ JSR THPTST RTS ;----------------------------------------------- THCOSH EQU $ JSR CRTHPL ; JSR TCSERC PHY ; LDA ENTIM0,X BNE TCS008 ; ;; LDA ENBGCKL JSR ENBGCK ; LDA ENKBMK,X STA ENMUKI,X TCS020 EQU $ TCS008 EQU $ PLY ; TXA EOR EEXYCKL TYA STA ENKBMK,X TCS010 EQU $ RTS ;----------------------------------------------- TCSERC EQU $ LDY #ENNO-1 TSE010 EQU $ LDA ENMODE,Y BEQ TSE020 ; LDA ENMYNO,Y CMP #BOMB1 BEQ TSE011 CMP #YAAA1 BEQ TSE011 CMP #RUPYR BNE TSE020 ; TSE011 EQU $ PHY JSR TSECHK PLY RTS ; TSE020 EQU $ DEY BPL TSE010 ; STZ ENSTAT,X ; LDA #40H STA ENTIM0,X RTS ;-------------------------------------------- TSECHK EQU $ TXA EOR ESERCHL ; LDA SDLRCE ;; ORA #0AH LDA >ITGSDT,X ;; STA SOUND3 ;(S) JSL >SDLRE3 ;(S) ; PLX ; LDA #0EH STA ENTIM0,X TSE018 EQU $ MEM8 SEP #20H ; RTS ; ;----------------------------------------------- CRTHPL EQU $ JSL >CRENPL2L BCC CTH010 ; LDA #20H JSL >PSERC2L LDA SDLRCE ;; ORA #0BH ;; STA SOUND2 ;(S) LDA #0BH JSL >SDLRE2 ;(S) CTH010 EQU $ RTS ;----------------------------------------------- TCOSXS EQU $ HEX 00,18,18,00,E8,E8 ;; HEX 00,E8,18,E8,00,18 TCOSYS EQU $ HEX E0,F0,10,20,10,F0 ;; HEX E0,10,10,F0,20,F0 TCSSNO EQU $ BYTE RUPYR,YAAA1,BOMB1,RUPYR ; THCOST EQU $ LDA #05H STA ENHELP ; TCOS10 EQU $ JSL >RNDSET AND #03H STA ENHELP2 ; DEC A BEQ TCOS0C DEC A BEQ TCOS0D ; MEM16 REP #00100000B LDA >CONCNT MEM8 SEP #00100000B BRA TCOS0E TCOS0C EQU $ LDA >ARWCNT BRA TCOS0E ; TCOS0D EQU $ LDA >BMBCNT TCOS0E EQU $ BEQ TCOSA0 ; ;; LDA #RUPYR LDY ENHELP2 LDA TCSSNO,Y LDY #07H JSL >ENIDSH2 BMI TCOSA0 ; LDA ENHELP2 DEC A BEQ TCOS11 DEC A BEQ TCOS12 ;------------------------------------------- MEM16 REP #20H LDA >CONCNT DEC A STA >CONCNT MEM8 SEP #20H BRA TCOS13 ;------------------------------------------- TCOS11 EQU $ LDA >ARWCNT DEC A STA >ARWCNT BRA TCOS13 ;------------------------------------------- TCOS12 EQU $ LDA >BMBCNT DEC A STA >BMBCNT ;------------------------------------------- TCOS13 EQU $ LDA SETOAML22 ; LDA ENDSPL,X BNE THC090 ; PHX LDA ENKBMK,X TAX LDA THKBCD,X LDY #02H STA (SADWSTL ; THC090 EQU $ PLB RTL ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Amebaa % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% AMTMCL EQU $ HEX 00,40,C0,80 AMTMFC EQU $ HEX 0B,07 ; AMEBAMV EQU $ LDA ENWRK1,X BEQ AMM010 ;---------------- Coor --------- JSL >EN1CSTL JSR ENSTCK JSR CREKEK ; INC ENCONT,X LDA ENCONT,X LSR A LSR A AND #03H TAY LDA ENCLOR,X AND #00111111B ORA AMTMCL,Y STA ENCLOR,X ; LDA ENTIM0,X BEQ AMM000 ; JSR ENMVCL JSR ENTUCK AMM000 EQU $ RTS ;---------------------------------- AMM010 EQU $ ;; LDA #7FH ;; STA CRENPLL ; LDA ENSTAT,X JSL >JSRSUB WORD AMSTOP WORD AMBUNR WORD AMCROS ;-------------------------------------- AMSTXS EQU $ HEX 10,10,00,F0,F0,F0,00,10 AMSTYS EQU $ HEX 00,00,10,F0,10,10,F0,F0 ; ;- - - - - - - - - - - - - - - - - - - - - - - - - AMSTOP EQU $ LDA ENTIM0,X BNE AMS010 ; INC ENSTAT,X ; LDA #30H STA ENTIM0,X ; INC ENWRK0,X ; LDA #AMEBA JSL >ENIDSH BMI AMS012 ; JSL >ENIDPS ; TYA STA ENKBMK,X ; LDA #01H STA ENMOD0,Y STA ENWRK1,Y ; LDA #00010000B STA ENMOD2,Y ; LDA ENCTCT,X STA ENLIFE,Y ; LDA #00000111B STA ENCLOR,Y ; LDA #30H STA ENTIM0,Y ; PHX ; INC ENWRK2,X LDA ENWRK2,X CMP #03H BNE AMSS10 ; STZ ENWRK2,X PHY JSR EPXYCK TYX PLY BRA AMSS20 AMSS10 EQU $ JSL >RNDSET AND #07H TAX AMSS20 EQU $ LDA AMSTXS,X STA ENXSPD,Y LDA AMSTYS,X STA ENYSPD,Y PLX ; AMS012 EQU $ RTS AMS010 EQU $ CMP #20H BNE AMS020 ; STA ENTIM1,X AMS020 EQU $ RTS ;-------------------------------------- AMBUNR EQU $ LDA ENTIM0,X BNE AMB010 ; INC ENSTAT,X ;; LDA #20H ;; STA ENTIM0,X AMB010 EQU $ RTS ;-------------------------------------- AMCROS EQU $ ; LDY ENKBMK,X ; LDA ENTIM0,X ; BNE AMCR10 ;; ; LDA #00H ; STA ENMODE,Y ; STZ ENWRK0,X ; STZ ENSTAT,X ; LDA ENLIFE,Y ; STA ENCTCT,X ;; ; JSL >RNDSET ; AND #1FH ; ADC #20H ; STA ENTIM0,X ; RTS ; AMCR10 EQU $ TXA EOR RNDSET AND #1FH ADC #20H STA ENTIM0,X RTS ; AMCR20 EQU $ MEM8 SEP #20H ; LDA #10H JSL >ESERCHL LDA EN1CSTL ; PLA STA ENCLOR,X PLA STA ENMOD0,X ; AMC010 EQU $ LDA #00H XBA LDA ENCONT,X CLC ADC ENMUKI,X MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ASL A ADC #AMEBACD STA SETOAML22 ;;; ;; RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Iwagororo % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% IWGZSD EQU $ HEX 20,30 IWGYSD EQU $ HEX 08,20 IWGXSD EQU $ HEX 18,10 HEX E8,F0 ; IWAGOMV EQU $ LDA EN1CSSL ; RT0010 EQU $ JSR ENSTCK ; LDA CRENPLL TXA EOR PLFLSTL IG0002 EQU $ MEM8 SEP #20H ; TXA EOR ENBGCKL JSR ENBGCK ; LDY #00H LDA ENCBFG,X BEQ IWG018 INY IWG018 EQU $ LDA IWGZSD,Y STA ENZSPD,X LDA IWGYSD,Y STA ENYSPD,X JSL >RNDSET AND #01H BEQ IWG01A INY INY IWG01A EQU $ LDA IWGXSD,Y STA ENXSPD,X ; TYA AND #02H DEC A STA ENMUKI,X ; ;; LDA SOUND2 ;(S) ;; BNE IWG020 ; ;; JSL >SDLRCE ;; ORA #0BH ;; STA SOUND2 ;(S) LDA #0BH JSL >SDLRE2 ;(S) IWG020 EQU $ RTS ;===================================== IWAGOCD EQU $ WORD 0FFF8H,0FFF8H HEX CC,01,00,02 WORD 00008H,0FFF8H HEX CE,01,00,02 WORD 0FFF8H,00008H HEX EC,01,00,02 WORD 00008H,00008H HEX EE,01,00,02 ; WORD 0FFF8H,0FFF8H HEX CE,41,00,02 WORD 00008H,0FFF8H HEX CC,41,00,02 WORD 0FFF8H,00008H HEX EE,41,00,02 WORD 00008H,00008H HEX EC,41,00,02 ; WORD 0FFF8H,0FFF8H HEX EE,C1,00,02 WORD 00008H,0FFF8H HEX EC,C1,00,02 WORD 0FFF8H,00008H HEX CE,C1,00,02 WORD 00008H,00008H HEX CC,C1,00,02 ; WORD 0FFF8H,0FFF8H HEX EC,81,00,02 WORD 00008H,0FFF8H HEX EE,81,00,02 WORD 0FFF8H,00008H HEX CC,81,00,02 WORD 00008H,00008H HEX CE,81,00,02 ; IWASWCD EQU $ WORD 0FFFAH,00013H HEX 6C,08,00,02 WORD 00000H,00013H HEX 6C,08,00,02 WORD 00006H,00013H HEX 6C,08,00,02 ; WORD 0FFFBH,00013H HEX 6C,08,00,02 WORD 00000H,00013H HEX 6C,08,00,02 WORD 00005H,00013H HEX 6C,08,00,02 ; WORD 0FFFCH,00013H HEX 6C,08,00,02 WORD 00000H,00013H HEX 6C,08,00,02 WORD 00004H,00013H HEX 6C,08,00,02 ; WORD 0FFFDH,00013H HEX 6C,08,00,02 WORD 00000H,00013H HEX 6C,08,00,02 WORD 00003H,00013H HEX 6C,08,00,02 ; WORD 0FFFEH,00013H HEX 6C,08,00,02 WORD 00000H,00013H HEX 6C,08,00,02 WORD 00002H,00013H HEX 6C,08,00,02 ; IWSWCD EQU $ BYTE 000H*8*3 BYTE 001H*8*3 BYTE 002H*8*3 BYTE 003H*8*3 BYTE 004H*8*3 ; IWAGOCS EQU $ LDA #00H XBA LDA ENCONT,X LSR A LSR A LSR A AND #03H MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ASL A ADC #IWAGOCD STA SETOAML22 ;- - - Kage set - - - JSL >BIGSWST RTS ;- - - - - - - - - - - - - - - - BIGSWST2 EQU $ PHB PHK PLB ; LDY #00H BRA BSS010 ;- - - - - - - - - - - - - - - - - - - - - BIGSWST EQU $ PHB PHK PLB ; LDA ENZPSL,X LSR A LSR A LSR A TAY CPY #04H BCC BSS010 LDY #04H BSS010 EQU $ LDA ENZPSL,X STA SETOAML22 JSL >PSSAVE2 PLB RTL ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Shisai demo Initial % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% SDEMOIT EQU $ LDA ENXPSL,X CLC ADC #08H STA ENXPSL,X ; LDA ENYPSL,X CLC ADC #06H STA ENYPSL,X ; LDA #SDEMO JSL >ENIDSH LDA #01H STA ENWRK0,Y STA ENNOCR,Y JSL >ENIDPS LDA JSRSUB WORD SHSAIMV WORD ZELDAMV ;==Shsai demo=============================================== SHSAIMV EQU $ LDA ENWRK2,X BEQ SHM000 ; LDA ENTIM0,X BNE SHM0F0 ; STZ ENMODE,X SHM0F0 EQU $ AND #01H BNE SHM0F8 JSR SHSAICS SHM0F8 EQU $ RTS ; SHM000 EQU $ JSR SHSAICS ; JSR SHBEMCS ; LDA ENDSPL,X BEQ SHM010 ; STZ ENSTAT,X STZ ENWRK1,X STZ ENCHPT,X ; LDA #40H STA ENTIM0,X SHM010 EQU $ ; JSR ENSTCK ; LDA ENSTAT,X JSL >JSRSUB WORD SHWAIT WORD SHZELDUP WORD SHBEAM WORD SHZELDCL WORD SHMSG2 WORD SHBACK WORD SHEND ;------------------------------------ SHWAIT EQU $ LDA ENTIM0,X BNE SHW010 ; LDA #01H STA PYALSP ; LDA #MS_04D0 STA MSGENOL LDA #HIGH MS_04D0 STA MSGENOH ; JSL >MSGSET ; INC ENSTAT,X SHW010 EQU $ RTS ;------------------------------------ SHZUPT EQU $ HEX 2,0,3,0 ; SHZELDUP EQU $ INC ENWRK1,X LDA ENWRK1,X PHA ;; LDY #02H ;; AND #00100000B ;; BEQ SZU010 ;; INY ;;SZU010 EQU $ ;; TYA ;; STA ENCHPT,X ; LSR A LSR A LSR A LSR A LSR A AND #03H TAY LDA SHZUPT,Y ; LDY ENZPSL+0FH CPY #10H BCC SZU012 ; LDA #01H SZU012 EQU $ STA ENCHPT,X PLA ; AND #0FH BNE SHZ010 ; LDA #01H STA ENCHPT+0FH ; INC ENZPSL+0FH ; Zelda ypos up ! LDA ENZPSL+0FH CMP #16H BNE SHZ010 ; LDY #27H STY SOUND3 ;(S) ; INC ENSTAT,X ;; LDA #01H ;; STA ENCHPT,X ; LDA #0FFH STA ENTIM0,X LDA #02H STA ENCONT,X LDA #0FFH STA HEMODE,X SHZ010 EQU $ RTS ;------------------------------------ SHBEAM EQU $ LDA ENTIM0,X BEQ SHBM20 CMP #078H BEQ SHBM10 CMP #080H BCS SHBM08 ; AND #03H BNE SHBM08 ; LDA #2BH STA SOUND3 ;(S) ; LDA ENCONT,X CMP #0EH BEQ SHBM08 CLC ADC #04H STA ENCONT,X SHBM08 EQU $ RTS SHBM10 EQU $ LDA #078H STA CGFLTM RTS SHBM20 EQU $ INC ENSTAT,X LDA #50H STA ENTIM0,X RTS ;------------------------------------ SHZELDCL EQU $ LDA ENTIM0,X BEQ SHZC10 ; AND #03H BNE SHZC20 ; LDA HEMODE,X ;; LDA ENCONT,X CMP #09H BEQ SHZC20 CLC ADC #02H ;; BPL SHZC08 ;; LDA #00H ;;SHZC08 EQU $ STA HEMODE,X ;; STA ENCONT,X RTS ; SHZC10 EQU $ LDA #0FH+4 STA ENTIM0+0FH ; INC ENSTAT,X LDA #50H STA ENTIM0,X ; STZ ENCONT,X ; LDA #33H STA SOUND2 ;(S) SHZC20 EQU $ RTS ;-------------------------- SHMSG2 EQU $ LDA ENTIM0,X BNE SHM220 ; LDA #MS_04D1 STA MSGENOL LDA #HIGH MS_04D1 STA MSGENOH ; JSL >MSGSET ; INC ENSTAT,X ; LDA #02H STA ENTIM0,X SHM220 EQU $ RTS ;-------------------------- SHBACK EQU $ LDA ENTIM0,X DEC A BNE SHB010 ; LDA #28H STA SOUND3 ;(S) SHB010 EQU $ LDA #0E0H STA ENYSPD,X JSR ENYCLC ;; JSL >ENBGCKL ; LDA ENYPSL,X CMP #30H BCS SHBK10 ; ;; LDA ENCBFG,X ;; BEQ SHBK10 ;; LDA #42H STA ENTIM3,X ; INC ENSTAT,X SHBK10 EQU $ JSL >SHBUNST RTS ;===================================== SHBUNST EQU $ LDY #00FFH LDA ENIDSH BMI SHBK20 ; JSL >ENIDPS ; LDA ENCHPT,X STA ENCHPT,Y ; LDA #20H STA ENTIM0,Y STA ENNOCR,Y STA ENWRK2,Y ; ;; LDA ENCLOR,X ;; AND #11111110B ;; STA ENCLOR,Y SHBK20 EQU $ TYA RTL ;-------------------------- SHEND EQU $ LDA ENTIM3,X BNE SHE010 ; STZ PYALSP STZ ENMODE,X ; JSL >ENBTON ; LDA EMYSTT+1 ORA #01000000B STA EMYSTT+1 ; SHE010 EQU $ RTS ; ;=========================================== SHSAICD EQU $ WORD 0FFF8H,0FFF8H HEX 82,0B,00,02 WORD 00008H,0FFF8H HEX 82,4B,00,02 WORD 0FFF8H,00008H HEX A2,0B,00,02 WORD 00008H,00008H HEX A2,4B,00,02 ; WORD 0FFF8H,0FFF8H HEX 80,0B,00,02 WORD 00008H,0FFF8H HEX 80,4B,00,02 WORD 0FFF8H,00008H HEX A0,0B,00,02 WORD 00008H,00008H HEX A0,4B,00,02 ; WORD 0FFF8H,0FFF8H HEX 80,0B,00,02 WORD 00008H,0FFF8H HEX 82,4B,00,02 WORD 0FFF8H,00008H HEX A0,0B,00,02 WORD 00008H,00008H HEX A2,4B,00,02 ; WORD 0FFF8H,0FFF8H HEX 82,0B,00,02 WORD 00008H,0FFF8H HEX 80,4B,00,02 WORD 0FFF8H,00008H HEX A2,0B,00,02 WORD 00008H,00008H HEX A0,4B,00,02 ; SHSAICS EQU $ LDA ENTIM3,X AND #01H BNE SHCS80 ; LDA ENWRK2,X STA SETOAML22 ; LDA #12H JSL >SADWS2L SHCS80 EQU $ RTS ;=================================================== SHBEMCD EQU $ ;0 HEX F6,F0,CE,06 HEX 12,F0,CE,06 HEX 14,F3,26,06 HEX 14,FB,36,06 ; HEX F4,F3,26,46 HEX F4,FB,36,46 ; HEX 12,00,26,06 HEX 12,08,36,06 ; HEX F6,00,26,46 HEX F6,08,36,46 ; HEX F8,00,22,06 HEX 08,00,22,46 HEX F8,10,22,86 HEX 08,10,22,C6 SHBEMC1 EQU $ ;1 HEX F6,F0,CE,04 HEX 12,F0,CE,04 HEX 14,F3,26,44 HEX 14,FB,36,44 ; HEX F4,F3,26,04 HEX F4,FB,36,04 ; HEX 12,00,26,44 HEX 12,08,36,44 ; HEX F6,00,26,04 HEX F6,08,36,04 ; HEX F8,00,20,04 HEX 08,00,20,44 HEX F8,10,20,84 HEX 08,10,20,C4 ; SHBEMSD EQU $ HEX 0,0,0,0,0,0,0,0,0,0,2,2,2,2 SBBCID EQU $ HEX 00,04,08,0C HEX 10,14,18,1C HEX 20,24,28 ; SHBEMCS EQU $ LDA #0EH*4 JSL >OAMENT1 ; ; LDA OAMENT1 ; LDA #00H XBA LDA ENCHPT,X MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ADC #ZELDACD STA SETOAML22 JSR ZLSDST ; Sadow set RTS ;----------------------------------- ZLSDXD EQU $ HEX 04,04,03,03 HEX 02,02,01,01 HEX 00,00,00,00 HEX 00,00,00,00 ; ZLSDST EQU $ LDA #02H*4 JSL >OAMENT1 ; LDA ENZPSL,X CMP #1FH BCC NMC078 LDA #1FH NMC078 EQU $ LSR A TAY LDA ZLSDXD,Y STA OAMENT1 ; LDA #00H XBA LDA ENTIM0,X LSR A LSR A MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ADC #ZLFLCD STA SETOAML22 ;; RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Buffer initial % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HAYABIT EQU $ KAMB2IT EQU $ PHX TXY LDX #7FH HBI010 EQU $ LDA ENXPSL,Y STA >HBXBFL,X LDA ENXPSH,Y STA >HBXBFH,X LDA ENYPSL,Y STA >HBYBFL,X LDA ENYPSH,Y STA >HBYBFH,X DEX BPL HBI010 ; PLX RTL ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HAYABMV EQU $ PHB PHK PLB JSR HAYABMV0 PLB RTL ;============================================== HYMXSD EQU $ HEX 18,16,11,09 HEX 00,F7,EF,EA HEX E8,EA,EF,F7 HEX 00,09,11,16 ; HEX 24,21,19,0D HEX 00,F3,E7,DF HEX DC,DF,E7,F3 HEX 00,0D,19,21 HYMYSD EQU $ HEX 00,09,11,16 HEX 18,16,11,09 HEX 00,F7,EF,EA HEX E8,EA,EF,F7 ; HEX 00,0D,19,21 HEX 24,21,19,0D HEX 00,F3,E7,DF HEX DC,DF,E7,F3 HYTRMK EQU $ HEX 8,9,A,B,C,D,E,F,0,1,2,3,4,5,6,7 ; ;;HBTSXS EQU $ ;;HBTSYS EQU $ ;; HEX 00,10,F0 HYLIMIT EQU 03+2 ;;HYLIMIT EQU 03H ;+2 ;------------------------------------ HAYABMV0 EQU $ JSR HAYABCS JSR ENSTCK ; LDA ENSTAT,X CMP #03H BNE HBM0D0 ; JMP HAYABFL ; Fail ! ; HBM0D0 EQU $ ;------------------------------- ; ;; JSR ENHNSB ; JSL >CRKNENL ; LDA #07H ; LDY ENLIFE,X CPY #HYLIMIT BCS HBM0D8 ; INC ENCONT,X LDA #03H HBM0D8 EQU $ INC ENCONT,X ; AND SDLRE3 ;(S) HBM0DC EQU $ ; LDA ENHNFG,X BEQ HBM0F0 ; LDA #40H STA ENTIM2,X ; LDA CRENPLL BCC HBM000 ; JSL >DASCLR1 ; LDA #28H JSL >PSERC2L LDA SDLRCE STA SOUND3 :(S) HBM000 EQU $ LDY ENMUKI,X LDA ENLIFE,X CMP #HYLIMIT BCS HBM001 ; TYA CLC ADC #10H TAY HBM001 EQU $ LDA HYMXSD,Y STA ENXSPD,X LDA HYMYSD,Y STA ENYSPD,X ; JSR ENMVCL ; ;; JSL >ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK BEQ HYMF00 ; ;; LDA ENKBMK,X ;; EOR #0FFH ;; INC A ;; STA ENKBMK,X ; LDY ENMUKI,X LDA HYTRMK,Y STA ENMUKI,X ; LDA #021H JSL >SDLRE2 ;(S) HYMF00 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD HYMOVE WORD HYTURN WORD HYPTUR ;-------------------------------------------- HYMOVE EQU $ LDA ENTIM0,X BNE HYM010 ; LDA #01H INC ENCTCT,X LDY ENCTCT,X CPY #03H BNE HYM008 ; STZ ENCTCT,X LDA #02H HYM008 EQU $ STA ENSTAT,X ; JSL >RNDSET AND #02H DEC A STA ENKBMK,X ; JSL >RNDSET AND #1FH ADC #20H STA ENTIM0,X HYM010 EQU $ RTS ;--------------------------------------------- HYTURN EQU $ LDA ENTIM0,X BNE HYT010 ; JSL >RNDSET AND #0FH ADC #08H STA ENTIM0,X ; STZ ENSTAT,X RTS HYT010 EQU $ AND #03H BNE HYT020 ; LDA ENMUKI,X CLC ADC ENKBMK,X AND #0FH STA ENMUKI,X HYT020 EQU $ RTS ;---------------------------------------------- HYPTUR EQU $ TXA EOR PSERCHL JSL >MKCK16 ;; CLC ;; ADC #0CH ;; AND #0FH CMP ENMUKI,X BNE HYPT10 ; STZ ENSTAT,X LDA #30H STA ENTIM0,X RTS ; HYPT10 EQU $ PHP LDA ENMUKI,X PLP BMI HYPT20 INC A INC A HYPT20 EQU $ DEC A HYPT30 EQU $ AND #0FH STA ENMUKI,X HYPT50 EQU $ RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;------------------------------------ HAYABCS EQU $ JSR OAMCHK ; LDA #0BH STA ENCLOR,X ; JSR HBEYECS ; MEM16 REP #20H LDA HBXBFL,X LDA ENYPSL,Y STA >HBYBFL,X LDA ENXPSH,Y STA >HBXBFH,X LDA ENYPSH,Y STA >HBYBFH,X PLX ; JSR HBHEDCS ; LDA ENWRK1,X CMP #04H BCS HBC900 ; JSR HBBD0CS ; LDA ENWRK1,X CMP #03H BCS HBC900 ; JSR HBBD1CS ; LDA ENWRK1,X CMP #02H BCS HBC900 ; JSR HBTL0CS ; LDA ENWRK1,X BNE HBC900 ; JSR HBTL1CS HBC900 EQU $ JSR HBBKCK ; JSL >PSSAVE2 RTS ;============================================ HBBKCK EQU $ LDA ENMODE,X CMP #EMOVE BNE HBF020 ; LDA ENTIM3,X ; Fail time BEQ HBF020 CMP #050H BCS HBF020 AND #0FH ORA HBBKST HBF020 EQU $ RTS ;===================================== HBHEDCD EQU $ ;0 WORD 0FFF8H,0FFF8H HEX 80,00,00,02 WORD 00008H,0FFF8H HEX 82,00,00,02 WORD 0FFF8H,00008H HEX A0,00,00,02 WORD 00008H,00008H HEX A2,00,00,02 ;1 WORD 0FFF8H,0FFF8H HEX 82,40,00,02 WORD 00008H,0FFF8H HEX 80,40,00,02 WORD 0FFF8H,00008H HEX A2,40,00,02 WORD 00008H,00008H HEX A0,40,00,02 ;0' WORD 0FFFAH,0FFFAH HEX 80,00,00,02 WORD 00006H,0FFFAH HEX 82,00,00,02 WORD 0FFFAH,00006H HEX A0,00,00,02 WORD 00006H,00006H HEX A2,00,00,02 ;1' WORD 0FFFAH,0FFFAH HEX 82,40,00,02 WORD 00006H,0FFFAH HEX 80,40,00,02 WORD 0FFFAH,00006H HEX A2,40,00,02 WORD 00006H,00006H HEX A0,40,00,02 ;-- - - - - - - - - - -- HBHEDCS EQU $ LDA #00H XBA LDA ENTIM1,X AND #02H ;; NOP STA SETOAML22 ;; RTS ;===================================== HBBD0CD EQU $ ;0 WORD 0FFF8H,0FFF8H HEX 84,00,00,02 WORD 00008H,0FFF8H HEX 86,00,00,02 WORD 0FFF8H,00008H HEX A4,00,00,02 WORD 00008H,00008H HEX A6,00,00,02 ;1 WORD 0FFF8H,0FFF8H HEX 86,40,00,02 WORD 00008H,0FFF8H HEX 84,40,00,02 WORD 0FFF8H,00008H HEX A6,40,00,02 WORD 00008H,00008H HEX A4,40,00,02 ;-- - - - - - - - - - -- HBBD0CS EQU $ TXY PHX LDA ENCONT,X SEC SBC #10H HBBD0SB EQU $ AND #07FH TAX LDA >HBXBFL,X STA ENXP2L LDA >HBXBFH,X STA ENXP2H LDA >HBYBFL,X STA ENYP2L LDA >HBYBFH,X STA ENYP2H PLX ; LDA #00H XBA LDA ENCONT,X LSR A AND #01H MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ASL A ADC #HBBD0CD STA SETOAML22 ;; RTS ;===================================== HBBD1CS EQU $ TXY PHX LDA ENCONT,X SEC SBC #1CH JMP HBBD0SB ;===================================== HBTLAD EQU $ HEX 00,40,C0,80 HBTL0CS EQU $ STZ ENCHPT,X ; MEM16 REP #20H LDA HBXBFL,X STA ENXP2L LDA >HBXBFH,X STA ENXP2H LDA >HBYBFL,X STA ENYP2L LDA >HBYBFH,X STA ENYP2H PLX ; LDA ENCONT,X LSR A AND #03H TAY ; LDA ENCLOR,X PHA AND #00111111B ORA HBTLAD,Y STA ENCLOR,X JSL >EN1CSTL PLA STA ENCLOR,X RTS ;===================================== HBTL1CS EQU $ JSR HBTL1S ; LDA ENTIM2,X BNE HBT110 ; LDA #01H STA ENWRK0,X STZ ENMOD3,X STZ ENMOD5,X ; LDA ENXPSL,X PHA LDA ENXPSH,X PHA LDA ENYPSL,X PHA LDA ENYPSH,X PHA ; LDA ENXP2L STA ENXPSL,X LDA ENXP2H STA ENXPSH,X LDA ENYP2L STA ENYPSL,X LDA ENYP2H STA ENYPSH,X ; JSL >CRKNENL ; STZ ENWRK0,X LDA #09H STA ENMOD3,X LDA #00000100B STA ENMOD5,X ; PLA STA ENYPSH,X PLA STA ENYPSL,X PLA STA ENXPSH,X PLA STA ENXPSL,X ; HBT110 EQU $ RTS ; HBTL1S EQU $ MEM16 REP #20H LDA SDLRCE ;; ORA #22H ;; STA SOUND3 ; (S) ; LDA #0E0H STA ENTIM0,X ; RTS HBF010 EQU $ ORA #0E0H STA ENFLSH,X RTS ;========================================== HBBKST EQU $ ;; JSL >SDLRCE ;; ORA #0CH ;; STA SOUND2 ;(S) LDA #0CH JSL >SDLRE2 ;(S) ; HBBKST2 EQU $ LDA #00H JSL >ENIDSH BMI EBS010 ; LDA #spoj5 STA SPOJFG ; OBJ bank set ! ; LDA #EBAKU STA ENMODE,Y ; LDA #03H STA ENMOD0,Y LDA #0CH STA ENCLOR,Y ; LDA ENXP2L STA ENXPSL,Y LDA ENXP2H STA ENXPSH,Y ; LDA ENYP2L STA ENYPSL,Y LDA ENYP2H STA ENYPSH,Y ; LDA #1FH STA ENTIM0,Y STA ENWRK0,Y ; LDA #02H STA ENKAIF,Y EBS010 EQU $ RTL ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HAGE0MV EQU $ PHB PHK PLB JSR HAGE0MV0 PLB RTL ;===================================== HAGE0MV0 EQU $ LDA ENFLCL,X ORA #00110000B STA ENFLCL,X ; ;; LDA #03H*4 ;; JSL >OAMENT3 ; JSR HAGE0CS ; JSR ENSTCK ; JSR ENHNSB ; JSR CREKEK ; ; LDA ENSTAT,X ; BEQ HGS060 ; JSR ENMVCL ; ; LDA #02H ; STA ENSTAT,X ; ; JSR EPXYCK ; LDA JSRSUB WORD HGWAIT ;; WORD HGFLY WORD HGSPIN ;----------------------------------------- HGWAIT EQU $ INC ENCONT,X LDA ENCONT,X CMP #0A0H BNE HGW020 ; INC ENSTAT,X ; ;; JSL >SDLRCE ;; ORA #1EH ;; STA SOUND3 ;(S) LDA #1EH JSL >SDLRE3 ;(S) ; LDA #10H STA ENTIM0,X ; HGW020 EQU $ RTS ;-------------------------------- ;HGFLY EQU $ ; LDA PSERC2L ;; ; LDA ENYSPD,X ; CMP PSERC2L ; LDA SETOAML22 ; ;; LDA ENSTAT,X ;; BEQ HGC090 ; JSL >SADWSTL HGC090 EQU $ RTS ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% KARASMV EQU $ PHB PHK PLB JSR KARASMV0 PLB RTL ;====================================== KAMKDT EQU $ HEX 00,40 ; KARASMV0 EQU $ LDA ENFLCL,X ORA #00110000B STA ENFLCL,X JSL >EN1CSTL ; JSR ENSTCK ; ; LDA ENHNFG,X ; BEQ SHM011 ;; ; STZ ENXSPD,X ; STZ ENYSPD,X ;SHM011 EQU $ JSR ENHNSB ; JSR CREKEK ; JSR ENMVCL ; LDA ENSTAT,X JSL >JSRSUB WORD KAWAIT WORD KAUP WORD KAFLY WORD KAAWAY ;---------------------------------------------- KAFTMD EQU $ HEX 10,F8 ; KAWAIT EQU $ JSR EPXCHK ; JSR KACLST ; ;; JSR EPYCHK ;; LDA SDLRCE ;; ORA #1EH ;; STA SOUND3 ;(S) LDA #1EH JSL >SDLRE3 ;(S) KAW010 EQU $ MEM8 SEP #20H RTS ;----------------------------------------------- KAUP EQU $ LDA ENTIM0,X BNE KAU010 ; INC ENSTAT,X ; LDY ENWRK0,X LDA KAFTMD,Y STA ENTIM0,X ; LDA #20H JSL >PSERCHL ; KAU010 EQU $ INC ENZPSL,X LDA PSERC2L ; SHS00C EQU $ LDA ENYSPD,X CMP PSERC2L LDA ENIDSH2 ; LDY #0EH-2 EBI010 EQU $ LDA #EMOVE STA ENMODE+1,Y ; LDA #EYETM STA ENMYNO+1,Y ; PHX TYX INX JSL >ENMDST PLX ; LDA #00H STA ENKAIF+1,Y ; LDA RNDSET ADC ASIMZST ; Mizu set ; ;;;; JSR ENSTCK ; LDA CRENPL2L BCC MDM020 ; STZ ENMODE,X ; STZ ITMVFG ;; LDY #11H LDY ENWRK0,X PHX JSL >ATMSIT PLX MDM020 EQU $ MDM002 EQU $ LDA ENTUTM,X BEQ MDM003 ; LDA #02H*4 JSL >OAMENT3 MDM003 EQU $ JSL >EN1CSTL ; JSR ENSTCK ; JSR ENMVCL2 ; DEC ENZSPD,X DEC ENZSPD,X ; LDA ENZPSL,X BPL MDM010 ; STZ ENZPSL,X ; LDA ENXSPD,X ASL A ROR ENXSPD,X LDA ENYSPD,X ASL A ROR ENYSPD,X ; LDY ENSTAT,X CPY #04H BNE MDM008 STZ ENXSPD,X STZ ENYSPD,X STZ ENZSPD,X RTS ;; BRA MDM010 MDM008 EQU $ INC ENSTAT,X LDA MDBNDD,Y STA ENZSPD,X ; CPY #02H BCS MDM010 ; JSR NZMZST2 BMI MDM010 ; LDA #10H STA ENTIM0,Y ; MDM010 EQU $ RTS ; ;================================================ ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - NZM010 EQU $ JSR NAMAZCS ; JSR ENSTCK ; LDA ENSTAT,X JSL >JSRSUB WORD NZCHEK WORD NZTILT WORD NZJUMP WORD NZMSGE ;-------------------------------------------------- NZCHEK EQU $ ;; LDA >> LDA #05H ;<<< 04.01.16[thu] >>> STA SOUND1 ;(S) Sound stop ! ; LDA #30H STA ENZSPD,X ; LDA #00H STA ENXSPD,X ; JSR NZMZST RTS ; NZW010 EQU $ CMP #0C0H BCS NZW020 ; CMP #0BFH BNE NZW011 ; ;<<< 04.01.16[thu] >>> LDY #07H ;<<< 04.01.16[thu] >>> STY SOUND1 ;(S) Zishin sound ! LDY #035H STY !SOUND2 ;(S) Zishin sound ! NZW011 EQU $ AND #01H TAY LDA NZTLDT,Y STA YUREXD LDA NZTLDT+2,Y STA YUREXD+1 ; LDA #01H STA PYALSP ; Player stop ! NZW020 EQU $ RTS ;-------------------------------------------------- NZJPCP EQU $ HEX 1,2,2,2,2,3,3,3 HEX 4,4,4,5,0,0,0,0 ; ; HEX 0,1,1,1,1,1,1,1 ; HEX 2,1,3,3,3,3,3,4 ; NZJUMP EQU $ INC ENCONT,X ; JSR ENMVCL2 ; LDA ENZSPD,X SEC SBC #02H STA ENZSPD,X CMP #0D0H BNE NZJ008 ; JSR NZMZST ; NZJ008 EQU $ LDA ENZPSL,X BPL NZJ010 ; STZ ENZPSL,X ; INC ENSTAT,X ; LDA #0FFH STA ENTIM0,X NZJ010 EQU $ LDA ENCONT,X LSR A LSR A TAY LDA NZJPCP,Y STA ENCHPT,X RTS ;-------------------------------------------------- MZMSCP EQU $ HEX 0,6,7,7 HEX 7,7,7,7 HEX 7,7,7,7 HEX 7,7,7,7 HEX 7,7,6,6 ; NZMSGE EQU $ LDA ENTIM0,X BNE MZMS00 ; STZ ENMODE,X ;;;; STZ ENCONT,X RTS MZMS00 EQU $ CMP #0A0H BNE MZMS01 PHA JSR NZMZST2 PLA MZMS01 EQU $ BCS NZMS10 CMP #0AH BNE MZMS02 ; PHA JSR NZMZST PLA MZMS02 EQU $ CMP #04H BNE MZMS03 PHA JSR NZMZST2 PLA MZMS03 EQU $ CMP #060H BNE MZMS08 ; STZ PYALSP ; Player stop reset ! ; LDY #MS_0490 ; LDA >ITEMR10 BEQ MZMS05 ; Already have ? ; ; yes ! LDY #MS_0491 MZMS05 EQU $ STY MSGENOL ; LDA #HIGH MS_0491 STA MSGENOH JSL >MSGSET RTS ;- - - - - - - - - - - - - - - - - - - - - - - - MZMS08 EQU $ CMP #050H BNE MZMS0C ; PHA LDA >ITEMR10 BEQ MZMS0A ; Already have ? ; ; yes ! beam shot ! JSL >RNDSET AND #01H BEQ MZMS09 ; JSR MZBOST BRA MZMS0B MZMS09 EQU $ JSL >Z2TMSTL BRA MZMS0B MZMS0A EQU $ JSR MEDARST ; Medal set ! MZMS0B EQU $ PLA ; MZMS0C EQU $ LSR A LSR A LSR A TAY LDA MZMSCP,Y STA ENCHPT,X RTS ;--------------------------------- MZBOST EQU $ LDA #HEBO0 JSL >ENIDSH BMI NBS010 ; JSL >ENIDPS ; JSL >BOMBST ; LDA #50H STA ENTIM1,Y ; LDA #18H STA ENXSPD,Y ; LDA #30H STA ENZSPD,Y NBS010 EQU $ RTS ;- - - - - - - - - - - - - - - - - - - NZMS10 EQU $ CMP #0FCH BNE MZMS90 ; JSR NZMZST2 MZMS90 EQU $ RTS ;========================================== ; Zishin medar set ;========================================== MEDARST EQU $ LDA #NAMAZ JSL >ENIDSH BMI MDS090 ; JSL >ENIDPS ; PHX TYX LDA #10H ; FOR PAL ;; LDA #18H STA ENXSPD,X ; LDA #30H STA ENZSPD,X LDA #11H STA ENWRK0,X ; Item set no ! ; ;; JSL >SDLRCE ;; ORA #20H ;; STA SOUND2 ;(S) LDA #20H JSL >SDLRE2 ;(S) ; LDA #10000011B STA ENMOD0,X LDA #01011000B STA ENMOD2,X AND #0FH STA ENCLOR,X ; PLX ; PHX PHY LDA #1CH JSL >ITMCBFST ;Medal character TR. PLY PLX MDS090 EQU $ RTS ;========================================== ; Zora hire set ;========================================== HIREST EQU $ LDA #NAMAZ JSL >ENIDSH BMI HRS090 ; JSL >ENIDPS ; PHX TYX ; LDA #20H STA ENZSPD,X LDA #10H STA ENYSPD,X LDA #1EH STA ENWRK0,X ; Item set no ! ; ;; JSL >SDLRCE ;; ORA #20H ;; STA SOUND2 ;(S) LDA #20H JSL >SDLRE2 ;(S) ; LDA #10000011B STA ENMOD0,X LDA #01010100B STA ENMOD2,X AND #0FH STA ENCLOR,X ; LDA #30H STA ENTUTM,X PLX ; PHX PHY LDA #11H JSL >ITMCBFST ;Hire character TR. PLY PLX HRS090 EQU $ RTL ;================================================ NZMZST EQU $ LDA #KTOBJ JSL >ENIDSH BMI NZU022 ; JSL >ENIDPS ; LDA #EWATR STA ENMODE,Y LDA #00001111B STA ENTIM0,Y LDA #00H STA ENSTAT,Y ; LDA #03H STA ENMOD0,Y ; ;; JSL >SDLRCE ;; ORA #28H ;; STA SOUND2 ; (S) LDA #28H JSL >SDLRE2 ;(S) NZU022 EQU $ RTS ;========================================== NZMZSTL EQU $ PHB PHK PLB JSR NZMZST2 PLB RTL ;====================================== NZMZST2 EQU $ LDA #NAMAZ JSL >ENIDSH BMI NZ2022 ; JSL >ENIDPS ; LDA #80H STA ENWRK0,Y ; LDA #02H STA ENMOD0,Y STA ENNOCR,Y ; LDA #00000100B STA ENCLOR,Y ; LDA #1FH STA ENTIM0,Y NZ2022 EQU $ RTS ;===================================== NAMAZCD EQU $ ;0 WORD 0FFFCH,00004H HEX 8C,00,00,02 WORD 00004H,00004H HEX 8D,00,00,02 WORD 0FFFCH,00004H HEX 8C,00,00,02 WORD 00004H,00004H HEX 8D,00,00,02 ;1 WORD 0FFFCH,0FFFCH HEX 8C,00,00,02 WORD 00004H,0FFFCH HEX 8D,00,00,02 WORD 0FFFCH,00004H HEX 9C,00,00,02 WORD 00004H,00004H HEX 9D,00,00,02 ;2 WORD 0FFFCH,0FFFCH HEX 8D,40,00,02 WORD 00004H,0FFFCH HEX 8C,40,00,02 WORD 0FFFCH,00004H HEX 9D,40,00,02 WORD 00004H,00004H HEX 9C,40,00,02 ;3 WORD 0FFFCH,0FFFCH HEX 9D,C0,00,02 WORD 00004H,0FFFCH HEX 9C,C0,00,02 WORD 0FFFCH,00004H HEX 8D,C0,00,02 WORD 00004H,00004H HEX 8C,C0,00,02 ;4 WORD 0FFFCH,00004H HEX 9D,C0,00,02 WORD 00004H,00004H HEX 9C,C0,00,02 WORD 0FFFCH,00004H HEX 9D,C0,00,02 WORD 00004H,00004H HEX 9C,C0,00,02 ;5 WORD 00000H,00008H HEX BD,00,00,00 WORD 00008H,00008H HEX BD,40,00,00 WORD 00008H,00008H HEX BD,40,00,00 WORD 00008H,00008H HEX BD,40,00,00 ;6 WORD 0FFF8H,00000H HEX 86,00,00,02 WORD 00008H,00000H HEX 86,40,00,02 WORD 00008H,00000H HEX 86,40,00,02 WORD 00008H,00000H HEX 86,40,00,02 ;- - - - - - - - - - - - - - - - - - - - - - - - NAMAZCS EQU $ LDA #00H XBA LDA ENCHPT,X BEQ NZC010 DEC A MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ASL A ADC #NAMAZCD STA SETOAML22 ; NZC010 EQU $ RTS ;=============================================== NZMZ2CD EQU $ ;0 WORD 0FFF8H,00000H-4 HEX 80,00,00,00 WORD 00012H,0FFFDH-4 HEX 80,00,00,00 ;1 WORD 0FFFBH,00002H-4 HEX BF,00,00,00 WORD 0000FH,00000H-4 HEX AF,40,00,00 ;2 WORD 00000H,00000H-4 HEX E7,00,00,02 WORD 00000H,00000H-4 HEX E7,00,00,02 ;3 WORD 00000H,00000H-4 HEX C0,00,00,02 WORD 00000H,00000H-4 HEX C0,00,00,02 ;===================================================== NZMZ2CS EQU $ LDA #00H XBA LDA ENTIM0,X BNE NM2C10 STZ ENMODE,X NM2C10 EQU $ LSR A LSR A LSR A MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ADC #NZMZ2CD STA SETOAML22 ;;; ;; RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% EBMCHP EQU $ HEX 0,1,2,3,0,1,2,3 EBMMKD EQU $ HEX 0,0,0,0,40,40,40,40 ; EBMZXX EQU $ ;;; Next way 0 1 2 3 4 5 6 7 Now way HEX F1,00,00,F1,00,F1,F1,00 ; 0 HEX F1,00,00,F1,00,F1,F1,00 ; 1 HEX 00,0F,0F,00,0F,00,00,0F ; 2 HEX 00,0F,0F,00,0F,00,00,0F ; 3 HEX 00,0F,0F,00,0F,00,00,0F ; 4 HEX 00,0F,0F,00,0F,00,00,0F ; 5 HEX F1,00,00,F1,00,F1,F1,00 ; 6 HEX F1,00,00,F1,00,F1,F1,00 ; 7 ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - EYEBMMV EQU $ LDA EN1CSTL ; JSR ENSTCK ; LDA ENTIM0,X BNE EBM010 ; JSR EBZNZST ; Zanzoo set ! ; LDA #02H STA ENTIM0,X ; LDA ENYPSL,X CLC ADC #10H STA ENYPSL,X PHA LDA ENYPSH,X ADC #00H STA ENYPSH,X ; PLA SEC SBC RNDSET AND #07H STA E2MODE,X BEQ EBZS20 DEX BPL EBZS10 ; DEC E2STCT BPL EBZS18 ; LDA #E2NO-1 STA E2STCT EBZS18 EQU $ ; LDX E2STCT EBZS20 EQU $ LDA #09H STA >E2MODE,X STA EN2FLG ; LDA ENWRK0,Y STA >E2STAT,X ; LDA ENXPSL,Y STA >E2XPSL,X LDA ENXPSH,Y STA >E2XPSH,X LDA ENYPSL,Y CLC ADC #10H STA >E2YPSL,X LDA ENYPSH,Y ADC #00H STA >E2YPSH,X ; LDA #020H STA >E2TIM0,X ; PLX RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ; EYEBSMV EQU $ ;================================== LDA ENTIM3,X BEQ EB0000 ; Half eye ? ; ; yes ! LDA #03H STA ENCHPT,X EB0000 EQU $ JSR EYEBSCS JSR ENSTCK JSR EYETMCT ; ;; JSL >CRENPLL ;; JSL >CRKNENL JSR CREKEK ; LDA ENSTAT,X JSL >JSRSUB WORD EBPROT WORD EBATCK WORD EBJUMP ;------------------------------------------------ EBPROT EQU $ STZ E2STCT ; STZ ENHNFG,X ; LDA ENMOD2,X ORA #01000000B STA ENMOD2,X ; LDA EYEBMST EBA030 EQU $ STZ ENCHPT,X JSR EPXCHK LDA ENBGCKL JSR ENBGCK DEC ENZSPD,X DEC ENZSPD,X ; LDA ENZPSL,X BPL EBJ020 ; STZ ENZPSL,X LDA #20H STA ENZSPD,X LDA #10H JSL >PSERCHL ; ;; JSL >SDLRCE ;; ORA #21H ;; STA SOUND2 ;(S) LDA #21H JSL >SDLRE2 ;(S) EBJ020 EQU $ RTS ;========================================= EYCTDT EQU $ HEX 5,6,7,8,9,A,B,C HEX D,5,6,7,8,9,A,B ; ;; HEX 7,8,9,A,B,C,D,E ;; HEX F,7,8,9,A,B,C,D ; EYETMCT EQU $ INC ENCONT,X LDA ENCONT,X AND #03FH BNE EYCT10 ; JSL >RNDSET AND #0FH TAY LDA EYCTDT,Y TAY LDA ENSTAT,Y BNE EYCT08 INC A STA ENSTAT,Y ; LDA #15H STA SOUND2 ;(S) EYCT10 EQU $ RTS ; EYCT08 EQU $ DEC ENCONT,X RTS ;========== Beam shot ============ EBMSXD EQU $ HEX F8,08,08,F8 HEX 08,F8,F8,08 EBMSXH EQU $ HEX FF,00,00,FF HEX 00,FF,FF,00 ; EYEBMST EQU $ PHB PHK PLB ; LDA #EYEBM JSL >ENIDSH BMI ETS010 ; LDA #26H STA SOUND3 ;(S) ; JSL >ENIDPS ; JSL >RNDSET AND #07H STA ENWRK0,Y PHX TAX LDA SETOAML22 ; LDA ENSTAT,X CMP #02H BNE EBC090 ;- - Kage set - - LDA ENFLCL,X AND #11110001B STA ENFLCL,X JSL >BIGSWST ; ; LDA EN1CSTL JSR ENSTCK INC ENCONT,X ; LDA ENCHPT,X BEQ EYT010 RTS ;- - - - - - - - - - - - - - - - - - - - - EYT010 EQU $ JSL >CRKNENL JSL >CRENPLL ; LDA ENHNFG,X CMP #0EH BNE EYT018 ; LDA #05H STA ENHNFG,X EYT018 EQU $ LDA ENSTAT,X BEQ ETSTOP CMP #01H BEQ ETSERC JMP ETBACK ; ;; JSL >JSRSUB ;; WORD ETSTOP ;; WORD ETSERC ;; WORD ETBACK ;-------------------------------------------- ETSTOP EQU $ LDA ESERCHL LDA ESERCHL LDA EPXYCK2 RTS ;================================================================ EPXCHK EQU $ JSL >EPXCHK2 RTS ;- - - - - - - - ;================================================================= EPYCHK EQU $ JSL >EPYCHK2 RTS ;=========================================== ENSTCK EQU $ LDA ENMODE,X CMP #EMOVE BNE ESTC08 ENSTCK2 EQU $ ;; JSR PLHNCK ; player hani flag set ; LDA ENSTFG BNE ESTC08 ; enemy all stop ! ; LDA ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK AND #00001111B BEQ ENHB10 ; CMP #00000100B BCS ENHB01 ; STZ ENHNXS,X STZ ENXSPD,X BRA ENHB02 ENHB01 EQU $ STZ ENHNYS,X STZ ENYSPD,X ENHB02 EQU $ ; LDA ENXSPD,X ; BPL ENHB01 ; EOR #0FFH ; INC A ;ENHB01 EQU $ ; STA return for move ! ; PLA PLA ENHB90 EQU $ RTS ENHB99 EQU $ STZ ENHNFG,X RTS ;;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ;;@ Enemy hanakairi sub @ ;;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ;TNHNTM EQU $ ; BYTE 03,01,00,00 ;;;HBCKBT EQU $ ;;; BYTE 00001100B ;;; BYTE 00000011B ;;- - - - - - - - - - - - - - - - - - - - - - ;ENHNSB EQU $ ; LDA ENHNFG,X ; BEQ ENHB90 ;; ; LDA ENYSPD,X ; PHA ; LDA ENXSPD,X ; PHA ; DEC ENHNFG,X ; LDA ENHNFG,X ;;; LSR A ; LSR A ; LSR A ;; TAY ; LDA ENBGCKL ; LDA ENCBFG,X ; AND #00001111B ; BEQ ENHB10 ;; ; CMP #00000100B ; BCS ENHB01 ;; ; STZ ENHNXS,X ; STZ ENXSPD,X ; BRA ENHB02 ;ENHB01 EQU $ ; STZ ENHNYS,X ; STZ ENYSPD,X ;ENHB02 EQU $ ; BRA ENHB08 ;ENHB10 EQU $ ; JSR ENMVCL ;ENHB08 EQU $ ; PLA ; STA ENXSPD,X ; PLA ; STA ENYSPD,X ; PLA ; PLA ;ENHB90 EQU $ ; RTS ;========================================================= ENMVCL2 EQU $ JSR ENZCLC ENMVCL EQU $ JSR ENXCLC JSR ENYCLC ENMC00 EQU $ RTS ; ENXCLC EQU $ PHX TXA CLC ADC #10H TAX JSR ENYCLC PLX RTS ;============================================ ENYCLC EQU $ LDA ENYSPD,X BEQ EYCRTS ASL A ASL A ASL A ASL A CLC ADC ENYSDR,X STA ENYSDR,X ; LDA ENYSPD,X PHP LSR A LSR A LSR A LSR A LDY #00H PLP BPL ENCY60 ; ORA #11110000B DEY ENCY60 EQU $ ADC ENYPSL,X STA ENYPSL,X ; TYA ADC ENYPSH,X STA ENYPSH,X EYCRTS EQU $ RTS ;============================================ ENZCLC EQU $ LDA ENZSPD,X ASL A ASL A ASL A ASL A CLC ADC ENZSDR,X STA ENZSDR,X ; LDA ENZSPD,X PHP LSR A LSR A LSR A LSR A PLP BPL ENCZ60 ; ORA #11110000B ENCZ60 EQU $ ADC ENZPSL,X STA ENZPSL,X ; RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% O2TEST EQU $ ; oam set paramater set & display out check ! OAMCHK EQU $ JSL >OAMCHKL BCC O2010 PLA PLA O2010 EQU $ RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% BG CG FLASH % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% CGFLSH EQU $ LDA CGFLTM BEQ CGF090 ; LDY THCGCN2 RTL ; CGF010 EQU $ AND #01H BEQ CGF020 JSL >THCGCN0 BRA CGF030 CGF020 EQU $ JSL >THCGCN1 CGF030 EQU $ INC ENFRNO,X PHA LDA ENNOCR,X PHA ; LDA ENMODES,X STA ENMODE,X LDA ENMYNOS,X STA ENMYNO,X LDA ENXPSLS,X STA ENXPSL,X LDA ENXPSHS,X STA ENXPSH,X LDA ENYPSLS,X STA ENYPSL,X LDA ENYPSHS,X STA ENYPSH,X LDA ENCHPTS,X STA ENCHPT,X LDA ENWRK0S,X STA ENWRK0,X LDA ENKBMKS,X STA ENKBMK,X LDA ENCLORS,X STA ENCLOR,X LDA ENFLCLS,X STA ENFLCL,X LDA ENMUKIS,X STA ENMUKI,X LDA ENMOD0S,X STA ENMOD0,X LDA ENKAIFS,X STA ENKAIF,X LDA ENSTATS,X STA ENSTAT,X LDA ENMOD2S,X STA ENMOD2,X LDA >ENWRK1S,X STA ENWRK1,X LDA >ENWRK2S,X STA ENWRK2,X LDA >ENWRK3S,X STA ENWRK3,X LDA >ENCONTS,X STA ENCONT,X LDA >ENZPSLS,X STA ENZPSL,X LDA >ENTIM0S,X STA ENTIM0,X LDA >ENFRNOS,X STA >ENFRNO,X LDA >ENNOCRS,X STA ENNOCR,X ; JSL >ENMAINL ; LDA ENDSPL,X BEQ ESVS28 ; STZ ENMODES,X ESVS28 EQU $ PLA STA ENNOCR,X PLA STA >ENFRNO,X PLA STA ENTIM0,X PLA STA ENZPSL,X PLA STA ENCONT,X PLA STA ENWRK3,X PLA STA ENWRK2,X PLA STA ENWRK1,X PLA STA ENMOD2,X PLA STA ENSTAT,X PLA STA ENKAIF,X PLA STA ENMOD0,X PLA STA ENMUKI,X PLA STA ENFLCL,X PLA STA ENCLOR,X PLA STA ENKBMK,X PLA STA ENWRK0,X PLA STA ENCHPT,X PLA STA ENYPSH,X PLA STA ENYPSL,X PLA STA ENXPSH,X PLA STA ENXPSL,X PLA STA ENMYNO,X PLA STA ENMODE,X RTS ;- - - - - - - - - - - - - - - - - - ;====Opening title heishi character set==================================================== H0SPTD EQU $ HEX 0B,04,00,07 H0CIDT EQU $ WORD 800H,820H,840H,860H,880H,8A0H H0CSDT EQU $ WORD 0A20H,0A28H,0A30H,0A38H,0A40H,0A48H ; HEIS0CSL EQU $ PHB PHK PLB ; ; MEM16 ; REP #20H ; LDA PSSAVE2 ; LDA OAMENT3 TXA ASL A TAY MEM16 REP #20H LDA H0CIDT,Y STA HEIS0CS2 PLB RTL ;-------------------------------------------------- NOMOSCT EQU $ PHB PHK PLB JSR NCT000 PLB RTL ;---------------------------------------------------- NCT000 EQU $ LDA ESTIM0,X BEQ NCT010 ; DEC ESTIM0,X NCT010 EQU $ LDA ESSTAT,X JSL >JSRSUB WORD NCINIT ;0 WORD NCWAIT ;1 WORD NCSPN0 ;2 Spin WORD NCSPN1 ;3 Spin zoom down WORD NCSPN0 ;4 Spin WORD NCSPN2 ;5 Spin zoom up WORD NCYKST ;6 Yoko set WORD NCYKDW ;7 Yoko Down move ;-------------------------------------------- NCINIT EQU $ LDA ENWRK0+00H BEQ NCIT20 ; NOMOS move start ? ; ; yes ! LDA #78H STA ESXPSL,X ; LDA #0FFH STA ESKAIF,X ; LDA #40H STA PTHANK ; LDA #0C0H STA PTANGL LDA #01H STA PTANGL+1 ; JSR NCSPN0 ;; INC ESSTAT,X NCIT20 EQU $ RTS ;-------------------------------------------- NCWAIT EQU $ JSR NCLCCK BCC NCW010 ; INC ESSTAT,X ; LDA #0FFH STA ESTIM0,X NCW010 EQU $ RTS ;-------------------------------------------- NCYKXL EQU $ HEX 31,4D,69,83,9F,BB ;; HEX 2B,49,67,85,A3,C1 ;NCYKYL EQU $ ; HEX 20,40,60,80,A0,C0 ; NCYKST EQU $ LDA ESTIM0,X BNE NCYS20 ; JSR NCLCCL ; LDY #05H NCYS10 EQU $ LDA NCYKXL,Y STA PTBFXL,Y LDA #30H STA PTBFYL,Y DEY BPL NCYS10 ; INC ESSTAT,X ; LDA #0FFH STA ESTIM0,X NCYS20 EQU $ RTS ;-------------------------------------------- NCYKDW EQU $ LDA ESTIM0,X BNE NCYD10 ; LDY #05H NCYD08 EQU $ LDA PTBFYL,Y INC A STA PTBFYL,Y CPY #00H CMP #0C0H BNE NCYD0A ; LDA #01H STA ESSTAT,X ; LDA ESKAIF,X EOR #0FFH INC A STA ESKAIF,X ; JSR NCLCCL ; JSR NCS000 RTS ; NCYD0A EQU $ DEY BPL NCYD08 ; NCYD10 EQU $ RTS ;-------------------------------------------- NCSPN1 EQU $ LDA PTHANK DEC A STA PTHANK CMP #20H BNE NCS100 ; INC ESSTAT,X ; LDA #40H STA ESTIM0,X NCS100 EQU $ BRA NCS000 ;-------------------------------------------- NCSPN2 EQU $ LDA PTHANK INC A STA PTHANK CMP #40H BNE NCS200 ; INC ESSTAT,X ; LDA #40H STA ESTIM0,X NCS200 EQU $ BRA NCS000 ;-------------------------------------------- NCANDT EQU $ WORD 000H,1A9H,154H,0FFH,00AAH,0055H ;; WORD 000H,055H,0AAH,0FFH,0154H,01A9H NCSPN0 EQU $ LDA ESTIM0,X BNE NCS000 ; INC ESSTAT,X NCS000 EQU $ ;- Tama Angle set - - - LDY #00H LDA ESKAIF,X BPL NCS001 DEY NCS001 EQU $ CLC ADC PTANGL STA PTANGL TYA ADC PTANGL+1 STA PTANGL+1 ;- - - - - - - - - - STZ ENHELP ; PTCT10 EQU $ LDA ENHELP PHA ASL A TAY ; MEM16 REP #00100000B LDA PTANGL CLC ADC NCANDT,Y STA SINDT2,X STA SINDT2,X STA EN1CSSL ;; ; JSL >PSSAVE2 ; BRA MTM020 ;- - - - - - - - - - - - - - - - - MTM010 EQU $ ;; JSL >EN1CSTL LDY #00H LDA ENXPSL,X SEC SBC CRENPLL ; TXA EOR PLFLSTL MTM022 EQU $ MEM8 SEP #20H ; LDA ENSTAT,X CMP #04H BEQ MTSML1 DEC A BEQ MTGO DEC A BEQ MTCHG DEC A BEQ MTSML0 JMP MTSTOP ; ;; JSL >JSRSUB ;; WORD MTSTOP ;; WORD MTGO ;; WORD MTCHG ;; WORD MTSML0 ;; WORD MTSML1 ;================================================= MTSTOP EQU $ LDA ENTIM0,X BNE MTS080 ; LDA #12H STA ENTIM0,X INC ENSTAT,X LDA #24H STA ENYSPD,X MTS080 EQU $ RTS ;================================================= MTGO EQU $ LDA ENTIM0,X BNE MTG010 ; INC ENSTAT,X LDA #1FH STA ENTIM0,X MTG010 EQU $ DEC ENYSPD,X DEC ENYSPD,X JSR ENYCLC RTS ;================================================= MTCGPT EQU $ HEX 2,2,1,0 ; MTCHG EQU $ LDA ENTIM0,X BNE MTCG10 ; JMP MTS0ST MTCG10 EQU $ LSR A LSR A LSR A ;; LSR A TAY LDA MTCGPT,Y STA ENCHPT,X RTS ;================================================= MTSML0 EQU $ LDA ENTIM0,X BNE MTS000 ; JMP MTS1ST MTS000 EQU $ LDA ENKBMK,X CMP #14H BCS MTS020 ; INC ENKBMK,X JSR ENMVCL MTS020 EQU $ RTS ;================================================= MTSML1 EQU $ JSR ENMVCL RTS ;================================================= MS0XSD EQU $ HEX 00,1C,E4 MS0YSD EQU $ HEX E0,18,18 ; MTS0ST EQU $ LDA #36H JSL >SDLRE3 ;(S) ; STZ ENMODE,X ; LDA #02H STA ENHELP JSL >RNDSET STA ENHELP2 MS0010 EQU $ LDA #MOTAM JSL >ENIDSH BMI MS0090 ; JSL >ENIDPS ; LDA RNDSET ;; AND #0FH ;; ADC #10H ;; STA ENTIM0,Y ;; JSL >RNDSET ;; STA SDLRE3 ;(S) ; STZ ENMODE,X ; LDA #03H STA ENHELP MS1010 EQU $ LDA #MOTAM JSL >ENIDSH BMI MS1090 ; JSL >ENIDPS ; ; LDA JSRSUB WORD NMSTOP WORD NMJUMP WORD NMDWWT WORD NMDOWN ;------------------------------------------------ NMSTOP EQU $ JSR CREKEK ; LDA ENTIM0,X ORA ENZPSL,X BNE NMST10 ; LDA #20H JSL >PSERCHL ; LDA #20H STA ENZSPD,X INC ENCTCT,X ; LDA SDLRCE ;; ORA #20H ;; STA SOUND2 ;(S) LDA #20H JSL >SDLRE2 ;(S) NMST10 EQU $ RTS ;----------------------------------------------- NMJUMP EQU $ LDA ENZSPD,X CLC ADC #03H STA ENZSPD,X ; ;; JSL >ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK BNE NMJ020 ; JSL >PSSAVE2 LDA ENWRK1,X STA SDLRCE ;; ORA #0CH ;; STA SOUND2 ;(S) LDA #0CH JSL >SDLRE2 ;(S) ; LDA #20H STA ENTIM3,X NMD010 EQU $ RTS ; ;=================================================== BARI1MV EQU $ PHB PHK PLB JSR BARI1M0 PLB RTL ;--------------------------------- BARI1M0 EQU $ JSR BARI1CS ;;;; JSR ENSTCK ; LDA ENCHPT,X CMP #04H BEQ BF0018 ; LDA CRKNENL BCC BF0010 ; LDA >ITMTBL6 CMP #02H BCS BF0010 ; Ken high power ? ; ; yes ! damage check ! STZ ENFLSH,X ; JSL >PLFLSTL ; LDA PYFLASH BNE BF0010 ; LDA #40H STA PIPIFG BF0010 EQU $ MEM16 REP #20H LDA PLFLSTL ; LDA #0CH STA SETOAML22 JSL >PSSAVE2 RTS ;********************************************** ;HYCIDT EQU $ ; HEX 00,20,40,60 HAYAMIT EQU $ PHX ; TXY LDA >HYCIDT,X TAX LDA #1FH STA HYXBFL,X LDA ENXPSH,Y STA >HYXBFH,X LDA ENYPSL,Y STA >HYYBFL,X LDA ENYPSH,Y STA >HYYBFH,X INX DEC SETOAML22 ;;; JSL >PSSAVE2 PLB RTL ;======================================== USFAILL EQU $ PHB PHK PLB ; LDA #10000010B STA ENMOD0,X STA ENNOCR,X LDA #01001001B STA ENMOD2,X ; LDA HEMODE,X BNE USF010 ; JSL >CRENPLL BCC USF020 ; INC HEMODE,X ; LDA #MS_0590 STA MSGENOL LDA #HIGH MS_0590 STA MSGENOH JSL >MSGSET ; BRA USF020 ; USF010 EQU $ CMP #10H BCC USF018 BNE USF020 ; STZ ENMOD4,X ; LDA #EFAIL STA ENMODE,X LDA #0FH STA ENTIM0,X LDA ENMOD0,X CLC ADC #04H STA ENMOD0,X ; ;; JSL >SDLRCE ;; ORA #15H ;; STA SOUND2 ;(S) LDA #15H JSL >SDLRE2 ;(S) ; LDA #USAG0 JSL >ENIDSH BMI USF018 ; JSL >ENIDPS ; PHX TYX LDY #06H JSL >ENFLIS2 ; Item chenge ! PLX ; USF018 EQU $ INC HEMODE,X USF020 EQU $ INC ENCONT,X LDA ENCONT,X AND #04H LSR A LSR A ADC #03H STA ENCHPT,X ; PLB RTL ;======================================== COPYCD EQU $ ;0 COPYC0 EQU $ WORD 0FFFCH,0FFF8H HEX 44,00,00,02 WORD 0000CH,0FFF8H HEX 44,40,00,00 WORD 0FFFCH,00008H HEX 64,00,00,00 WORD 00004H,00000H HEX 54,40,00,02 ;1 COPYC1 EQU $ WORD 0FFFCH,0FFF8H HEX 44,00,00,02 WORD 0000CH,0FFF8H HEX 44,40,00,00 WORD 0FFFCH,00008H HEX 74,40,00,00 WORD 00004H,00000H HEX 62,40,00,02 ;2 COPYC2 EQU $ WORD 0FFFCH,0FFF8H HEX 44,00,00,00 WORD 00004H,0FFF8H HEX 44,40,00,02 WORD 0FFFCH,00000H HEX 62,00,00,02 WORD 0000CH,00008H HEX 64,40,00,00 ;3 COPYC3 EQU $ WORD 0FFFCH,0FFF8H HEX 46,00,00,02 WORD 0000CH,0FFF8H HEX 46,40,00,00 WORD 0FFFCH,00008H HEX 66,00,00,00 WORD 00004H,00000H HEX 56,40,00,02 ;4 COPYC4 EQU $ WORD 0FFFCH,0FFF8H HEX 46,00,00,02 WORD 0000CH,0FFF8H HEX 46,40,00,00 WORD 0FFFCH,00008H HEX 75,40,00,00 WORD 00004H,00000H HEX 6A,40,00,02 ;5 COPYC5 EQU $ WORD 0FFFCH,0FFF8H HEX 46,00,00,00 WORD 00004H,0FFF8H HEX 46,40,00,02 WORD 0FFFCH,00000H HEX 6A,00,00,02 WORD 0000CH,00008H HEX 75,00,00,00 ;6 COPYC6 EQU $ WORD 0FFFEH,0FFF8H HEX 4E,00,00,02 WORD 00000H,00000H HEX 6C,00,00,02 ;7 COPYC7 EQU $ WORD 0FFFEH,0FFF9H HEX 4E,00,00,02 WORD 00000H,00000H HEX 6E,00,00,02 ;8 COPYC8 EQU $ WORD 00002H,0FFF8H HEX 4E,40,00,02 WORD 00000H,00000H HEX 6C,40,00,02 ;9 COPYC9 EQU $ WORD 00002H,0FFF9H HEX 4E,40,00,02 WORD 00000H,00000H HEX 6E,40,00,02 ;- - - Kuchi ake - - CPKCHICD EQU $ CPKCD0 WORD 0000AH,00004H HEX 77,40,00,00 ; CPKCD1 WORD 0FFFEH,00004H HEX 77,00,00,00 ; CPKCD2 WORD 00004H,00004H HEX 76,00,00,00 ; CPKCHIID EQU $ WORD CPKCD0 WORD CPKCD1 WORD CPKCD2 ;;A ;COPYCA EQU $ ; WORD 00004H,00004H ; HEX 76,00,00,00 ; WORD 0FFFCH,0FFF8H ; HEX 44,00,00,02 ; WORD 0000CH,0FFF8H ; HEX 44,40,00,00 ; WORD 0FFFCH,00008H ; HEX 64,00,00,00 ; WORD 00004H,00000H ; HEX 54,40,00,02 ;;B ;COPYCB EQU $ ; WORD 0FFFEH,00004H ; HEX 77,00,00,00 ; WORD 0FFFEH,0FFF8H ; HEX 4E,00,00,02 ; WORD 00000H,00000H ; HEX 6C,00,00,02 ;;C ;COPYCC EQU $ ; WORD 00002H,00004H ; HEX 77,40,00,00 ; WORD 00002H,0FFF8H ; HEX 4E,40,00,02 ; WORD 00000H,00000H ; HEX 6C,40,00,02 ;- - - - - - - - - - - - - - - - - - - - - - - - - - COPYID EQU $ WORD COPYC0 WORD COPYC1 WORD COPYC2 WORD COPYC3 WORD COPYC4 WORD COPYC5 WORD COPYC6 WORD COPYC7 WORD COPYC8 WORD COPYC9 ; WORD COPYCA ; WORD COPYCB ; WORD COPYCC COPYNO EQU $ HEX 4,4,4,4,4,4,2,2,2,2 ;,5,3,3 ; COPYCS EQU $ PHB PHK PLB ; LDA ENTIM1,X BEQ CPC000 ; LDA ENMUKI,X CMP #03H BEQ CPC000 ASL A TAY MEM16 REP #20H LDA CPKCHIID,Y STA SETOAML22 CPC000 EQU $ LDA ENCHPT,X PHA ASL A TAY MEM16 REP #20H LDA COPYID,Y STA SETOAML22 ; DEC ENMOD0,X JSL >SADWSTL INC ENMOD0,X ; PLB RTL ;======================================== RMCKDT EQU $ HEX 00,00,01,01,01,02,02,02 ; HEX 00,00,0F,0F,0F,0E,0E,0E ; HEX 08,08,07,07,07,06,06,06 ; HEX 08,08,09,09,09,0A,0A,0A ; RMCKD2 EQU $ HEX 04,04,03,03,03,02,02,02 ; HEX 0C,0C,0D,0D,0D,0E,0E,0E ; HEX 04,04,05,05,05,06,06,06 ; HEX 0C,0C,0B,0B,0B,0A,0A,0A ;======16 Ways muki check=========================================== MKCK16 EQU $ PHB PHK PLB ; ;; LDA ENYSPD,X ;; SEC ;; SBC ENZSPD,X LDA ENMDST LDA OAMCHKL BCC HEC0101 ; RTL ; HEC0101 EQU $ PHB PHK PLB ; LDA ENMUKI,X CLC ADC #0FFH STA HYXBFL,X LDA ENXPSH,Y STA >HYXBFH,X LDA ENYPSL,Y STA >HYYBFL,X LDA ENYPSH,Y STA >HYYBFH,X ; LDA #02H STA HYXBFL,X STA HYXBFH,X STA HYYBFL,X STA HYYBFH,X STA JSRSUB WORD WOOD100 WORD WOODEYE ;======================================== WOOD100 EQU $ ;WOOD1 JSR WOOD1CS JSR ENSTCK ; STZ ENMOD3,X ;OBJ HIT HANI ; LDA ENSTAT,X JSL >JSRSUB WORD WOOD1M0 WORD WOOD1M1 WORD WOOD1M2 WORD WOOD1M3 ;---------------------------------------- WOOD1M0 EQU $ STZ ENCHPT,X ;E SET ; JSL >CRENPL2L BCC WO1M010 ;? ATARI JSL >DASCLR1 LDA #010H ;HANEKAERU STA PSERC2L LDA SDLRE3 ; INC ENSTAT,X ;NEXT MOVE LDA #030H STA ENTIM0,X WO1M010 EQU $ RTS ;---------------------------------------- WOOD1M1 EQU $ LDA ENTIM0,X BNE WO1M110 INC ENSTAT,X ;NEXT MOVE LDA #004H*2*1 ;NEXT E PATAN STA ENTIM0,X WO1M110 EQU $ LSR A AND #003H STA ENCHPT,X RTS ;---------------------------------------- WO1M2DT EQU $ BYTE 000H,002H,003H,001H WOOD1M2 EQU $ LDA ENTIM0,X LSR A TAY LDA WO1M2DT,X STA ENCHPT,X ; LDA ENTIM0,X CMP #007H BNE WO1M220 JSR WOOD1BM ;BOMB SET ; WO1M220 EQU $ LDA ENTIM0,X BNE WO1M210 INC ENSTAT,X WO1M210 EQU $ RTS ;---------------------------------------- WO1M3CD EQU $ BYTE 001,002,003,001,003,001,002,003 WO1M3TD EQU $ BYTE 00DH,00DH,00DH,00BH,00BH,006H,010H,008H ; BYTE 005,005,005,002,002,005,016,003 ; WOOD1M3 EQU $ JSR WOOD1MS ;MSGE SET ; LDA ENTIM0,X BNE WO1M310 LDA ENWRK1,X INC A AND #007H STA ENWRK1,X ; TAY LDA WO1M3CD,Y STA ENCHPT,X LDA WO1M3TD,Y STA ENTIM0,X ; WO1M310 EQU $ RTS ;---------------------------------------- WO1MSML EQU $ BYTE LOW MS_00E5,LOW MS_00E0 ; WOOD1MS EQU $ ;WOOD1 MSGE LDA #007H OBJ HANI STA ENMOD3,X ; LDA ENWRK0,X BNE WO1MS20 ; LDA ENXPSL,X LSR A LSR A LSR A LSR A AND #001H EOR #001H STA ENWRK0,X TAY LDA WO1MSML,Y LDY #000H JSL >ENMSGEL ;MSGE SET BCS WO1MS10 STZ ENWRK0,X WO1MS10 EQU $ RTS ; W1S20ML EQU $ BYTE LOW MS_00E1 BYTE LOW MS_00E2 BYTE LOW MS_00E3 BYTE LOW MS_00E4 ; W1S20DT EQU $ BYTE 058H,05DH,072H,06BH ; WO1MS20 EQU $ LDY #000H LDA ENMSGSL ;MSGE SET STZ ENWRK0,X RTS ;---------------------------------------- WOOD1BM EQU $ ;WOOD1 BOMB LDA #HEBO0 JSL >ENIDSH BMI WO1BM10 JSL >BOMBST JSL >ENIDPS LDA SETOAML WO1CS10 EQU $ RTS ;======================================== WOEESPL EQU $ BYTE 009,-09 WOEESPH EQU $ BYTE 000,-01 ; ;WOEYEMK EQU $ ; BYTE 001H,0FFH ; WOEYEXL EQU $ BYTE -02,-01,000,001,002 WOEYEXH EQU $ BYTE -01 ;,-01,000,000,000 ; 0 1 2 3 4 WOEYEYL EQU $ WOEYEYH EQU $ BYTE -01,000,000,000,-01 ; WOODEYE EQU $ JSL >EN1CSSL JSR ENSTCK ; LDY ENCMKI,X LDA ENWRK0,X CLC ADC WOEESPL,Y STA ENXPSL,X LDA ENWRK1,X ADC WOEESPH,Y STA ENXPSH,X LDA ENWRK2,X STA ENYPSL,X LDA ENWRK3,X STA ENYPSH,X ; LDA #002H JSL >PSERC2L LDA ENIDSH PLA STA ENCMKI,Y ;RIGHT OR LEFT TAX LDA WEESTXL,X STA ENXPSL,Y STA ENWRK0,Y LDA WEESTXH,X STA ENXPSH,Y STA ENWRK1,Y LDA ENIDSH BMI HIMI90 ; LDA #30H JSL >SDLRE3 ;(S) ; JSL >ENIDPS PHX LDX ENHELP LDA HIMIXS,X STA ENXSPD,Y LDA HIMIYS,X STA ENYSPD,Y PLX LDA #0FFH STA ENSTTM,Y LDA #20H STA ENTIM3,Y STA ENTUTM,Y ;; LDA #20H STA ENZSPD,Y DEC ENHELP BPL HIMI10 ; HIMI90 EQU $ STZ HIMICT STZ HIMIFG PLB RTL ;======================================== ; ANAHO MOVE ;======================================== ANAHOMV EQU $ JSR ANAHOCS JSR ENSTCK JSL >ENPLATR JSR ENMVCL ; STZ ENXSPD,X ; LDA ENSTAT,X JSL >JSRSUB WORD ANAHOM0 WORD ANAHOM1 WORD ANAHOM2 WORD ANAHOM3 WORD ANAHOM4 WORD ANAHOM5 ;---------------------------------------- ANAHOM0 EQU $ ; LDA ENYPSL,X CLC ADC #007H CMP OPMODE BNE AAOM020 ; LDA #LOW MS_05F4 LDY #HIGH MS_05F4 JSL >ENMSGEL BCC AAOM010 INC ENSTAT,X AAOM010 EQU $ RTS AAOM020 EQU $ LDA #LOW MS_05F9 LDY #HIGH MS_05F9 JSL >ENMSGEL RTS ;---------------------------------------- ANAHOYN EQU 00080 ; ANAHOM1 EQU $ LDA MSG_RTS BNE AAOM110 ;-- MEM16 IDX8 REP #00100000B LDA >CONCNT CMP #ANAHOYN BCC AAOM110 SBC #ANAHOYN STA >CONCNT MEM8 IDX8 SEP #00110000B ; LDA #LOW MS_05F5 LDY #HIGH MS_05F5 JSL >ENMSGSL INC ENSTAT,X LDA #001H STA ENCHPT,X LDA #050H ;YOKO MOVE TIME STA ENTIM0,X LDA #000H STA >KRXBUF ;HART BK CNT CLS STA >KRXBUF+1 ;HART CNT CLS LDA #005H STA ENTIM1,X ; LDA #001H ;DOKATA ON JSL >DOKAST ; LDA #00EH ;OTO STA SOUND0 ; RTS ;-- AAOM110 EQU $ MEM8 IDX8 SEP #00110000B LDA #LOW MS_05F6 LDY #HIGH MS_05F6 JSL >ENMSGSL STZ ENSTAT,X RTS ;---------------------------------------- ANAHOM2 EQU $ LDA ENTIM0,X BNE AAOM210 INC ENSTAT,X LDA #001H STA ENCHPT,X RTS AAOM210 EQU $ LDA ENTIM1,X BNE AAOM220 LDA ENCHPT,X EOR #003H STA ENCHPT,X AND #001H BEQ AAOM230 LDA #0F0H STA ENXSPD,X AAOM230 EQU $ LDA #005H STA ENTIM1,X AAOM220 EQU $ RTS ;---------------------------------------- ANAHOM3 EQU $ INC ENSTAT,X ; LDA #000 ;TIME(S) STA BMTMCT ; LDA #030 ;TIME STA BMTMER ; RTS ;---------------------------------------- ANAHOM4 EQU $ LDA BMTMER BEQ AAOM410 BMI AAOM410 RTS ; AAOM410 EQU $ LDA AITMBT1 AND #001H BNE AAOM420 LDA #009H STA SOUND0 INC ENSTAT,X STZ DOKATA ;DOKATA OFF ;; LDA #LOW MS_05F7 ;; LDY #HIGH MS_05F7 ;; JSL >ENMSGSL ; LDA #MS_05F7 STA MSGENOL LDA #HIGH MS_05F7 JSR MSGSSS ;; STA MSGENOH ;; JSL >MSGSET ;10/5 !!! naoseyooooo !! ; LDA #0FEH ;CLS TIME STA BMTMER AAOM420 EQU $ RTS ;---------------------------------------- ANAHOM5 EQU $ LDA #LOW MS_05F8 LDY #HIGH MS_05F8 JSL >ENMSGEL RTS ;---------------------------------------- ANAITST EQU $ PHB PHK PLB LDA >KRXBUF+1 INC A STA >KRXBUF+1 JSR AATSTSB PLB RTL ;---------------------------------------- AATSTSB EQU $ MEM16 IDX8 REP #00100000B LDA RNDSET AND #007H TAY JSL >JSRSUB WORD AATST00 WORD AATST10 WORD AATST20 WORD AATST30 WORD AATST40 WORD AATST50 WORD AATST60 WORD AATST70 ;---------------------------------------- ATBSBSX EQU $ BYTE -16,016 ; ABSBPXL EQU $ BYTE 000H,013H ;---------------------------------------- AAENNO EQU $ BYTE RUPYB,RUPYY,RUPYR,TUBO1 ;---------------------------------------- AATST00 EQU $ ;---------------------------------------- AATST10 EQU $ ;---------------------------------------- AATST20 EQU $ ;---------------------------------------- AATST30 EQU $ LDA AAENNO,Y BRA ATTSBSB ;---------------------------------------- AATST50 EQU $ ;---------------------------------------- AATST60 EQU $ ;---------------------------------------- AATST70 EQU $ RTS ;---------------------------------------- AATST40 EQU $ LDA >KRXBUF+1 CMP #020 ;25 BCC AATST70 LDA >KRXBUF BNE AATST70 JSL >RNDSET AND #003H BNE AATST70 LDA #UTUBK STA >KRXBUF ;---------------------------------------- ATTSBSB EQU $ JSL >ENIDSH LDX #000H LDA SDLRE3 ; RTS ;---------------------------------------- ANAHOCD EQU $ WORD 00000,-0008 BYTE 040H,00AH,000H,002H WORD 00004,00009 BYTE 056H,00CH,000H,000H WORD 00000,00000 BYTE 042H,00AH,000H,002H ; WORD 00000,-0008 BYTE 040H,00AH,000H,002H WORD 00000,00000 BYTE 042H,00AH,000H,002H WORD 00000,00000 BYTE 042H,00AH,000H,002H ; WORD -0001,-0007 BYTE 040H,00AH,000H,002H WORD -0001,00000 BYTE 044H,00AH,000H,002H WORD -0001,00000 BYTE 044H,00AH,000H,002H ; ANAHOCS EQU $ LDA #003H STA SETOAML JSL >SADWSTL ; RTS ;======================================== ; HELP1 C SET ;======================================== HELP1D1 EQU $ WORD 00000,00000 ;1 BYTE 0ACH,000H,000H,002H WORD 00000,00008 BYTE 0AEH,000H,000H,002H ; ; HELP1CD EQU $ WORD 00000,00000 ;0 BYTE 020H,001H,000H,002H WORD 00000,00008 BYTE 022H,001H,000H,002H WORD 00000,00001 BYTE 020H,001H,000H,002H WORD 00000,00009 BYTE 022H,041H,000H,002H ; WORD 00000,00000 ;1 BYTE 020H,001H,000H,002H WORD 00000,00008 BYTE 022H,001H,000H,002H WORD 00000,00001 BYTE 020H,001H,000H,002H WORD 00000,00009 BYTE 022H,041H,000H,002H ; WORD -0002,00000 ;2 BYTE 020H,001H,000H,002H WORD 00000,00008 BYTE 022H,001H,000H,002H WORD -0002,00001 BYTE 020H,001H,000H,002H WORD 00000,00009 BYTE 022H,001H,000H,002H ; WORD 00002,00000 ;3 BYTE 020H,041H,000H,002H WORD 00000,00008 BYTE 022H,041H,000H,002H WORD 00002,00001 BYTE 020H,041H,000H,002H WORD 00000,00009 BYTE 022H,041H,000H,002H ; HELP1CN EQU $ BYTE 020H,0C0H ;0 BYTE 020H,0C0H ; BYTE 000H,0A0H ;1 BYTE 000H,0A0H ; BYTE 040H,080H ;2 BYTE 040H,060H ; BYTE 040H,080H ;3 BYTE 040H,060H ; HELP1CS EQU $ PHB PHK PLB ; LDA ENCONT,X CMP #002H BEQ HELP1C1 ; LDA #002H STA SETOAML ; PLB RTL ;---------------------------------------- HELP1C1 EQU $ LDA #002H STA SETOAML ; PLB RTL ;---------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;; JSR ENFR00 ;-------------------------------------- ENFIRE EQU $ ENFR00 EQU $ PHB PHK PLB STZ ENFLSH,X ; LDA ENTIM0,X DEC A BNE EFR000 ;; STZ ENMODE,X JSL >FILSETL PLB RTL EFR000 EQU $ LDY ENCHPT,X PHY LSR A LSR A LSR A PHX TAX LDA >CHFPTD,X PLX STA ENCHPT,X ; LDA ENCLOR,X PHA LDA #03H STA ENCLOR,X JSL >CHFIRCS PLA STA ENCLOR,X PLA STA ENCHPT,X ; MEM16 REP #00100000B LDA ENMY3MV JSL >ENMOVE2 PLA STA ENMOD0,X ; ; JSR ENSTCK ; ; LDA ALOMCKL PLB RTL ;9999999999999999999999999999999999999999999 END ; B2MOVE EQU $ LDA ENWRK0,X STA ESERCHL ; LDA RNDSET AND #07H TAY LDA B2MVXP,Y STA ENWRK0,X JSL >RNDSET AND #07H TAY LDA B2MVYP,Y STA ENWRK2,X ; B2S010 EQU $ RTS