; INCLUDE zel_ram.asm ; ;-------------------------------------------------------------------- ; ; PAL_ZELDA-3 (GERMAN) 1991.09.07(SAT) ; ;-------------------------------------------------------------------- ; ORG 098000H ; ;=============================================== (zel_bms1) ========= GLB TAKVMAD,TKSVRM,ITBGCK,ITBGCK1,BMLRDT GLB HBINT0,FUTNINT,IBIMIT,TAKAINT,TKGINT,TKDINT GLB OKIMIT,KAZAINT,TORIINT,BLLIINT,OPBKINT GLB BOMINT,JPIMIT,YOUSIT,SBARINT,KTFRINT,SCPINT GLB TKFLIT,DAKINT,BHIMIT,CDKNINT,YAIMIT,PUYAIT GLB TTKINT,TTKINT1,SNDINT,KONINT,KNHBIT,KNBMCLR GLB KNFSINT,YURINT,BHBINT,WARPINT,WARPINT1,BALBKIT GLB JISNINT,KNSOINT,KBDMIT,PUBNIT,DTMVIT,WTIMIT GLB HAKAINT,FOTINT,RAOPIT,OPINIT,OPTNMV,BALBKIT GLB RAOPIT1,MCNINT,KNKMIT,TTKINT2,TPHDIT,PLKTINT,RNDSKM GLB KMKMIT,BMKRINT,RDBMINT,BMCLER,BMCLER2,BHBIT1,DAKINT1 GLB OPTIM,OTIM GLB TAKASBD,TAKAATR,CINCNS,KNKIIT,JPRMS23,JPRMS33 GLB prnce,jjmov,jjwat,jjsmv,mesmv,prnc1,kajya,hnoji GLB nashi,kajy1,bakud,takar,monky,monwt,mesm1,edcod ;=============================================== (zel_exst) ========= EXT BMIDSH,BMBCKL,BMBCKL1,OPPLSH EXT BMITOC,OKZSDT,BMYXST31,ITMPSTL EXT TKFLM,BOLCG,BOBFLM1,KNDTINX,KNMDDAT,MS_FFFF EXT BRSEN,HIBA1,BRSEN,KBBOM,LVUBR,DTED0,BHMOV,YAEND EXT OPBMV,TKNAG,KONRM,TPHDM,MCIMM,TORKM,PGKMV EXT BOMBM,BOLMV,BOMBA,RDBOM,PORIG,BOLM2,JPKF0,LVUBR EXT KNSOM,KNSEN,JPKM0,CDKMV,SBAMV,SODMV,SPBMV EXT atckh,mono0,jisin,bomb1,bomb0,yasd0,usag0,usag1 EXT tate0,kins0,kona0,frod1,dobn1,fires,pinpn,hakas EXT bsfan,kakof ;=============================================== (zel_ply1) ========= EXT MESWIT,PGKRITL ;=============================================== (zel_enmy) ========= EXT BGDTRD2,EXBCHK2,ENRMCL,ENEMY,RNDSET,ITMGET EXT ENCRST2,OAMENT1,OAMENT2,SSERCH2,ESERCHL EXT CROJCK2,SSERCH,ENDMST,ENDMST2,OAMENT3 EXT ALENDM,OAMENT4,OAMENT5,OAMENT6,CTBOSST EXT EINIT,EMOVE,EICE,LINE0,PLCHK ;=============================================== (zel_enmy3) ======== EXT HELP1ST,SARKKST,SARKKST1,SARKKST2 ;=============================================== (zel_end2) ======== EXT SDLRCK,SDLRCP,SDLRCB ;=============================================== (zel_main) ========= EXT JSRSUB EXT MD_djply,MD_etcpl,MD_gdply EXT GDCHCK ;/////// EXT RDCHCK ;=============================================== (zel_bgwt) ========= EXT BDRCHCK ;=============================================== (zel_char) ========= EXT PWTRCGS1,OPTCBFST,PGRVCGST EXT PLCGCN0,PLCGCN1,PLCGCN2,THCGCN0,THCGCN1 EXT THCGCN2,TTCBFST,KNCBFST,ITMCBFST,ITMCBFST1 EXT SPOJCNG,TATEST,KENST,CHITEMS0 ; EXT spoj0,spoj1,spoj2,spoj3,spoj4 EXT spoj5,spoj6,spoj7,spoj8 ;================================================ (zel_play) ======== EXT BGCHCKA,ATMSIT,PLOTCK,DASCLR1,MGPTSB2 EXT PLRCHK,PLJTCK EXT LNMD,SWMD,ATDM,BOGN,JWMV,HLDM,MCAGE,DAMGI EXT BKYTD0,SDSP,BBSP,JNSP ;================================================ (zel_pysb) ======== EXT OMS000 ;================================================ (zel_grnd) ========= EXT UMGTWRT0,gif2 ;================================================ (zel_bg3) ========= EXT ITEM0ST ;================================================ (zel_init) ======== EXT PLRPDY,PLRPDX,UT4RWT,DJEXTCK,GSNDTST EXT ut4p03,ut4p04,ut4p05,ut4p06,ut4p08 EXT p1_mcng,p1_mcg1,p1_sls0,p1_sls1,p1_kstp,p1_bmbd EXT p1_sdop,p1_ltwp,p1_plgn EXT p2_kiri,p2_kage EXT p3_msge,p3_warp,p3_sitm ;=============================================== (zel_comn) ========= EXT TBKCHK ;================================================ (zel_msge) ======== EXT MS_0044,MS_0045,MS_0046,MS_0047,MS_004C EXT MS_004D,MS_004E EXT MS_00B0,MS_00B1,MS_00B2,MS_00B3,MS_00B4 EXT MS_00B5,MS_00B6,MS_00B7,MS_00B8,MS_00B9 EXT MS_00BA,MS_00BB,MS_00BC,MS_00BD,MS_00BE EXT MS_00BF,MS_00C0,MS_00C1,MS_00C2,MS_00C3 EXT MS_00C4,MS_00C5,MS_00C6,MS_00C7,MS_00C8 EXT MS_00C9,MS_00CA,MS_00CB,MS_00CC,MS_00CD EXT MS_00CE,MS_00CF,MS_00D0,MS_00D1,MS_00D2 EXT MS_00D3,MS_00D4,MS_00D5,MS_00D6,MS_00D7 EXT MS_00D8,MS_00D9,MS_00DA,MS_00DB,MS_00DC EXT MS_0146,MS_0147,MS_0148,MS_0149,MS_014A EXT MS_0150,MS_0151,MS_0152,MS_0154 EXT MS_03F1 EXT MS_0452 EXT MS_0462 EXT MS_0520,MS_0521,MS_0522,MS_0523 ;==================================================================== ; EXTEND ; MEM8 IDX8 ; ;============================================================== ; ;************************************************************** ;* scop hibana move init. (HBINT0) * ;************************************************************** HBYXPS EQU $ ; hibana initial y,x data WORD 00015H,0FFF5H ; horu left WORD 00015H,0000BH ; horu right WORD 00003H,0FFFAH ; hanmer up WORD 00015H,00005H ; hanmer down WORD 00010H,0FFF2H ; hanmer left WORD 00010H,0000EH ; hanmer right HBKIXP EQU $ ; hibana kihon x-pos data WORD 0FFFDH,00013H WORD 00002H,0000DH WORD 0FFFAH,00016H HBINT0 EQU $ PHB PHK PLB ; JSR JPRMSR2 ; aki ram surch sub BCS HBIN200 ; STZ BMCONT,X ; hibana mode counter LDA #02H ; hibana flem counter STA BMFLFG,X LDA #001H STA BUMFLM,X ; STZ BMYSPD,X STZ BMXSPD,X ; LDA AITMBT ; hanmer ? [NO:HBIN090] BEQ HBIN090 LDA BMITOC-1,X STA BMBCNT BNE BOM100 STZ BMMODE,X BRA BOM200 BOM100 EQU $ DEC A STA >BMBCNT BNE BOM140 PHX JSL >ITEM0ST ; metar set sub PLX ; BOM140 EQU $ STZ BMDEFG,X STZ BMSTAT,X STZ BMCONT,X ; retarn flag clear STZ BCDMNO,X ; kakera mode no clear STZ HIBSTAT,X LDA >BOBFLM1 ; bomb flem set STA BUMFLM,X LDA #007H ; kakera flem counter set STA BCDFLM,X STZ BMZPSL,X LDA #008H STA BMTIM0,X LDA ITBGCK1 BCC BOM160 LDY SDLRCP ; sound (L,R) check ORA #bomb0 STA !SOUND2 ; ; BRL BMYXSET1 ; beam y,x pos est sub BOM200 EQU $ PLB RTL ; ;************************************************************** ;* Jump item init. (JPIMIT) * ;************************************************************** JPSPDT EQU $ ; item speed data HEX 026,01C ; bumeran speed (4,N) HEX 039,030 ; bumeran speed (4,N) JPKYOR EQU $ ; bumeran kyori data HEX 020,060 JPFLDT EQU $ ; bumeran flem conter data HEX 003,002 JPKYDT EQU $ ; houkou key data BYTE 00001000B,00000100B,00000010B,00000001B BUHODT EQU $ ; bumeran int. houkou data BYTE 008H,004H,002H,001H,009H,005H,00AH,006H BMHOUK EQU $ BYTE 002H,003H,003H,002H,002H,003H,003H,003H BUINTY EQU $ ; NAGE bumeran int y-pos data WORD 0FFF6H,0FFF8H,0FFF7H,0FFF7H WORD 0FFF6H,0FFF8H,0FFF7H,0FFF7H BUINTX EQU $ ; NAGE bumeran int x-pos data WORD 0FFF6H,0000BH,00008H,0FFF8H WORD 0FFF6H,0000BH,00008H,0FFF8H BUINTY2 EQU $ ; bumeran int y-pos data WORD 0FFF0H,00006H,00000H,00000H WORD 0FFF8H,00008H,0FFF8H,00008H BUINTX2 EQU $ ; bumeran int x-pos data WORD 00000H,00000H,0FFF8H,00008H WORD 00008H,00008H,0FFF8H,0FFF8H JPIMIT EQU $ PHB PHK PLB ; JSR JPRMSR2 ; aki ram surch sub BCC JPIM020 BRL JPIM500 ; JPIM020 EQU $ STZ BMFLFG,X ; bumeran start flag STZ BMCONT,X ; retarn flag clear STZ BUADSB,X ; add,sub speed clear STZ BMZPSL,X STA HIBSTAT,X LDA #001H ; move on !! STA BMRMOV LDA >ITEMR02 ; bumeran shurui set DEC A STA HBFLEM,X TAY LDA !JPKYOR,Y ; kyori set STA BMSTAT,X LDA !JPFLDT,Y ; kaiten flem set STA BUMFLM,X ; LDY #000H LDA ITBGCK ; init. BG check sub BCS JPIM600 LDA BMFLFG,X BEQ JPIM4D0 MEM16 REP #00100000B LDA SDLRCB ORA #kins0 STA !SOUND2 BRA JPIM800 JPIM700 EQU $ JSL >SDLRCB ORA #tate0 STA !SOUND2 JPIM800 EQU $ JSL >BHBINT ; PLB RTL ; ;************************************************************** ;* takara set init. (TAKAINT) * ;************************************************************** TAKAYPS1 EQU $ ; takara bako y-pos data ; 0 1 2 3 4 5 6 7 HEX 0FB,0FB,0FB,0FB,0FB,0FC,0FC,0FB ; 8 9 A B C D E F HEX 0FB,0FC,0FC,0FC,0FE,0FC,0FC,0FC ; 10 11 12 13 14 15 16 17 HEX 0FC,0FC,0FC,0FC,0FC,0FC,0FC,0FC ; 18 19 1A 1B 1C 1D 1E 1F HEX 0FC,0FC,0FC,0FC,0FC,0FC,0FC,0FC ; 20 21 22 23 24 25 26 27 HEX 0FC,0FC,0FC,0FB,0FC,0FC,0FC,0FC ; 28 29 2A 2B 2C 2D 2E 2F HEX 0FC,0FC,0FE,0FC,0FC,0FC,0FC,0FC ; 30 31 32 33 34 35 36 37 HEX 0FC,0FC,0FC,0FC,0FE,0FE,0FE,0FC ; 38 39 3A 3B 3C 3D 3E 3F HEX 0FC,0FC,0FC,0FC,0FC,0FC,0FC,0FC ; 40 41 42 43 44 45 46 47 HEX 0FC,0FC,0FE,0FE,0FC,0FE,0FC,0FC ; 48 49 4A 4B HEX 0FC,0FB,0FC,0FC TAKAXPS1 EQU $ ; takara bako x-pos data ; 0 1 2 3 4 5 6 7 HEX 004,004,004,004,004,000,000,004 ; 8 9 A B C D E F HEX 004,004,004,004,005,000,000,000 ; 10 11 12 13 14 15 16 17 HEX 000,000,000,004,000,004,000,000 ; 18 19 1A 1B 1C 1D 1E 1F HEX 004,000,000,000,000,000,000,000 ; 20 21 22 23 24 25 26 27 HEX 000,000,000,000,004,000,000,000 ; 28 29 2A 2B 2C 2D 2E 2F HEX 000,000,005,000,000,000,000,000 ; 30 31 32 33 34 35 36 37 HEX 000,000,000,000,004,004,004,000 ; 38 39 3A 3B 3C 3D 3E 3F HEX 000,000,000,000,000,000,000,000 ; 40 41 42 43 44 45 46 47 HEX 000,000,004,004,000,004,000,000 ; 48 49 4A 4B HEX 000,004,000,000 ; TAKVMAD EQU $ ; 0 1 2 3 4 5 6 7 HEX 006,018,018,018,02D,020,02E,009 ; 8 9 A B C D E F HEX 009,00A,008,005,010,00B,02C,01B ; 10 11 12 13 14 15 16 17 HEX 01A,01C,014,019,00C,007,01D,02F ; 18 19 1A 1B 1C 1D 1E 1F HEX 007,015,012,00D,00D,00E,011,017 ; 20 21 22 23 24 25 26 27 HEX 028,027,004,004,00F,016,003,013 ; 28 29 2A 2B 2C 2D 2E 2F HEX 001,01E,010,000,000,000,000,000 ; 30 31 32 33 34 35 36 37 HEX 000,030,022,021,024,024,024,023 ; 38 39 3A 3B 3C 3D 3E 3F HEX 023,023,029,02A,02C,02B,003,003 ; 40 41 42 43 44 45 46 47 HEX 034,035,031,033,002,032,036,037 ; 48 49 4A 4B HEX 02C,006,00C,038 TAKASBD EQU $ ; 0 1 2 3 4 5 6 7 HEX 000,000,000,000,000,002,002,000 ; 8 9 A B C D E F HEX 000,000,000,000,000,002,002,002 ; 10 11 12 13 14 15 16 17 HEX 002,002,002,000,002,000,002,002 ; 18 19 1A 1B 1C 1D 1E 1F HEX 000,002,002,002,002,002,002,002 ; 20 21 22 23 24 25 26 27 HEX 002,002,002,002,000,002,002,002 ; 28 29 2A 2B 2C 2D 2E 2F HEX 002,002,000,002,002,002,002,002 ; 30 31 32 33 34 35 36 37 HEX 002,002,002,002,000,000,000,002 ; 38 39 3A 3B 3C 3D 3E 3F HEX 002,002,002,002,002,002,002,002 ; 40 41 42 43 44 45 46 47 HEX 002,002,000,000,002,000,002,002 ; 48 49 4A 4B HEX 002,000,002,002 TAKAATR EQU $ ; 0 1 2 3 4 5 6 7 HEX 005,0FF,005,005,005,005,005,001 ; 8 9 A B C D E F HEX 002,001,001,001,002,002,002,004 ; 10 11 12 13 14 15 16 17 HEX 004,004,001,001,002,001,001,001 ; 18 19 1A 1B 1C 1D 1E 1F HEX 002,001,002,001,004,004,002,001 ; 20 21 22 23 24 25 26 27 HEX 006,001,002,001,002,002,001,002 ; 28 29 2A 2B 2C 2D 2E 2F HEX 002,004,001,001,004,002,001,004 ; 30 31 32 33 34 35 36 37 HEX 002,002,004,004,004,002,001,004 ; 38 39 3A 3B 3C 3D 3E 3F HEX 001,002,002,001,002,002,001,001 ; 40 41 42 43 44 45 46 47 HEX 004,004,001,002,002,004,004,004 ; 48 49 4A 4B HEX 002,005,002,001 TKSVRM EQU $ ; 0 1 2 3 WORD ITMTBL6,ITMTBL6,ITMTBL6,ITMTBL6 ; 4 5 6 7 WORD ITMTBL7,ITMTBL7,ITMTBL7,ITEMR06 ; 8 9 A B WORD ITEMR07,ITEMR12,ITEMR03,ITEMR01 ; C D E D WORD ITEMR02,ITEMR05,BINCT0,ITEMR08 ; 10 11 12 13 WORD ITEMR09,ITEMR10,ITEMR11,ITEMR13 ; 14 15 16 17 WORD ITEMR13,ITEMR17,BINCT0,ITEMR44 ; 18 19 1A 1B WORD ITEMR18,ITEMR19,ITEMR20,ITEMR21 ; 1C 1D 1E 1F WORD ITEMR21,ITEMR15,ITEMR23,ITMTBL4 ; 20 21 22 23 WORD ITMTBL3,ITEMR14,ITMTBL8,ITMTBL8 ; 24 25 26 27 WORD ITMTBL9,ITMTBLA,LFITCT,UPBMCT ; 28 29 2A 2B WORD UPBMCT,ITEMR05,ITEMR02,BINCT0 ; 2C 2D 2E 2F WORD BINCT0,BINCT0,LFNWCT,MPNWCT ; 30 31 32 33 WORD MPNWCT,UPBMCT,KEYCNT,MAPCNT ; 34 35 36 37 WORD CONCNT,CONCNT,CONCNT,ITEMR53 ; 38 39 3A 3B WORD ITEMR53,ITEMR53,ITEMR01,ITEMR01 ; 3C 3D 3E 3F WORD BINCT0,BINCT0,LFITCT,LFITCT ; 40 41 42 43 WORD CONCNT,CONCNT,UPLFCT,UPAWCT ; 44 45 46 47 WORD UPAWCT,UPMPCT,CONCNT,CONCNT ; 48 49 4A 4B WORD BINCT0,ITMTBL6,ITEMR13,ITEMR22 TAKOND EQU $ ; 0 1 2 3 4 5 6 7 HEX 001,002,003,004,001,002,003,001 ; 8 9 A B C D E F HEX 001,001,001,001,001,002,0FF,001 ; 10 11 12 13 14 15 16 17 HEX 001,001,001,001,002,001,0FF,0FF ; 18 19 1A 1B 1C 1D 1E 1F HEX 001,001,002,001,002,001,001,001 ; 20 21 22 23 24 25 26 27 HEX 0FF,001,0FF,002,0FF,0FF,0FF,0FF ; 28 29 2A 2B 2C 2D 2E 2F HEX 0FF,0FF,002,0FF,0FF,0FF,0FF,0FF ; 30 31 32 33 34 35 36 37 HEX 0FF,0FF,0FF,0FF,0FF,0FB,0EC,0FF ; 38 39 3A 3B 3C 3D 3E 3F HEX 0FF,0FF,001,003,0FF,0FF,0FF,0FF ; 40 41 42 43 44 45 46 47 HEX 09C,0CE,0FF,001,00A,0FF,0FF,0FF ; 48 49 4A 4B HEX 0FF,001,003,001 MKONDT EQU $ ; danjon betsu kagi,map data WORD 08000H,04000H,02000H,01000H WORD 00800H,00400H,00200H,00100H WORD 00080H,00040H,00020H,00010H WORD 00008H,00004H ; TAKAINT EQU $ PHB PHK PLB ; JSR JPRMSR2 ; aki ram surch sub BCC TAKA000 BRL TAKA100 ; ;************** takara bako y,x pos set !! TAKA000 EQU $ LDA ITMVFG CMP #001H BNE TAKA040 LDA ITMTBL1+1 STA >ITMTBL1+1 ; TAKA0DA EQU $ ; grove ? CPY #01BH BEQ TAKA0DB CPY #01CH BNE TAKA0DC TAKA0DB EQU $ JSL >PGRVCGST TAKA0DB4 EQU $ BRL TAKA0DF0 ; TAKA0DC EQU $ LDX #00000100B ; pendant ? CPY #037H BEQ TAKA0DC1 LDX #00000001B CPY #038H BEQ TAKA0DC1 LDX #00000010B CPY #039H BNE TAKA0DC3 TAKA0DC1 EQU $ TXA ORA [WORK0] STA [WORK0] INC !ITEMMD AND #00000111B CMP #00000111B BNE TAKA0DC3 LDA #004H ; shinden clear bit on !! STA >MODTBL2 ; TAKA0DC3 EQU $ CPY #022H ; blue fuku ? BNE TAKA0DC8 LDA [WORK0] BNE TAKA0DC4 LDA #001H STA [WORK0] TAKA0DC4 EQU $ BRA TAKA0DB4 ; TAKA0DC8 EQU $ CPY #025H ; conpasu ? BEQ TAKA0DE CPY #032H ; special kagi ? BEQ TAKA0DE CPY #033H ; map ? BNE TAKA0DE4 TAKA0DE EQU $ LDX !DJNNO MEM16 REP #00100000B LDA !MKONDT,X ORA [WORK0] STA [WORK0] MEM8 SEP #00100000B BRL TAKA0DF0 ; TAKA0DE4 EQU $ CPY #03EH ; boss hart utsuwa BNE TAK0DE41 ; BIT PYDMBT ; 0 --> bpl 1 --> bmi BPL TAK0DE41 LDA #002H STA PYDMBT1 ; TAK0DE41 EQU $ CPY #020H ; poligon ? BNE TAKA0DE6 INC !ITEMMD ; TAK0DE42 EQU $ PHX LDX #004H TAK0DE44 EQU $ LDA BMMODE,X CMP #BOMBM BEQ TAK0DE46 CMP #BOLMV BNE TAK0DE48 TAK0DE46 EQU $ STZ BMMODE,X STZ PYDMBT STZ PYDMBT1 TAK0DE48 EQU $ DEX BPL TAK0DE44 PLX ; TAKA0DE5 EQU $ LDA TTKINT1 JSL >SDLRCP ORA #kakof STA !SOUND2 PLX PLY BRL TAKA0DF0 ; TAKA0DE6 EQU $ CPY #029H ; kinoko ? [NO:TAKA0DE7] BNE TAKA0DE7 LDA >ITEMR05 ; magic kona have ? CMP #002H BEQ TAKA0DE7 LDA #001H ; kinoko bit on !! STA [WORK0] BRA TAKA0DEC TAKA0DE7 EQU $ LDX #001H CPY #024H ; key ? [YES:TAKA0DE8] BEQ TAKA0DE8 LDA ITMVFG ; zujoo houji ? CMP #002H BEQ TAKA0DEE CPY #027H ; bakudan ? [YEA:TAKA0DE8] BEQ TAKA0DE8 LDX #003H CPY #028H BEQ TAKA0DE8 CPY #031H BNE TAKA0DEE LDX #00AH TAKA0DE8 EQU $ TXA CLC ADC [WORK0] STA [WORK0] CMP #063H BCC TAKA0DEC LDA #063H STA [WORK0] TAKA0DEC EQU $ JSL >ITEM0ST BRA TAKA0DF0 ; TAKA0DEE EQU $ ; aki bin ? [NO:TAKA0DF0] CPY #017H ; hart kakera ? BNE TAKA0DEF LDA [WORK0] INC A AND #00000011B STA [WORK0] JSL >SDLRCP ; sound (L,R) check ORA #02DH STA !SOUND3 ; BRA TAKA0DF0 ; TAKA0DEF EQU $ CPY #001H ; master sorde ? BNE TAKA0DEF4 PHY PHX JSL >GSNDTST PLX PLY ; TAKA0DEF4 EQU $ JSR BNSTSB ; bin set ; TAKA0DEF8 EQU $ ; ;************** aitem buffer no set !! TAKA0DF0 EQU $ LDY ATMTFG LDA !TAKVMAD,Y STA TTCBFST JSL >TATEST ; coler set LDA ITMCBFST LDA KNCBFST JSL >KENST ; coler set ; ;************** aitem y,x pos set !! TAKA0E0 EQU $ PLX LDA ATMTFG STA BMCONT,X TAY STZ BUMODE,X ; coin shurui set LDA #009H CPY #001H BNE TAKA0E4 ; STA BUMFLM,X LDA ITMVFG CMP #002H BEQ TAKA0E6 ; LDA #0A0H STA BMTIM0,X LDA #p2_kiri ; kiri hare set STA CCNGCT PHX PHY LDY #004H ; ken flash init. LDA #TKFLM JSL >TKFLIT PLY PLX LDA #002H TAKA0E4 EQU $ STA BUMFLM,X TAKA0E6 EQU $ LDA #005H STA BMWRK0,X ; PHY LDY #MCAGE LDA ITMVFG ; item move on !! STA BMSTAT,X BEQ TAKA0E8 LDY #038H TAKA0E8 EQU $ LDA BMCONT,X CMP #020H BEQ TAKA0EA CMP #037H BEQ TAKA0EA CMP #038H BEQ TAKA0EA CMP #039H BEQ TAKA0EA CMP #026H BNE TAKA0EC LDY #002H BRA TAKA0EC TAKA0EA EQU $ LDY #068H TAKA0EC EQU $ TYA STA BMFLFG,X PLY ; LDA ITMVFG CMP #001H BNE TAKA0F0 PLA STA SDLRCP ; sound (L,R) check sub ORA #02CH STA !SOUND2 ; BRA TAKA0F0C ; TAKA0F02 EQU $ LDA BMCONT,X CMP #03EH BEQ TAKA0F0C CMP #017H BEQ TAKA0F0C CMP #020H BEQ TAKA0F04 CMP #037H BEQ TAKA0F04 CMP #038H BEQ TAKA0F04 CMP #039H BNE TAKA0F08 TAKA0F04 EQU $ JSL >SDLRCP ; sound (L,R) check sub ORA #bsfan STA !SOUND0 ; BRA TAKA0F0C TAKA0F08 EQU $ JSL >SDLRCP ; sound (L,R) check sub ORA #atckh STA !SOUND3 ; ; TAKA0F0C EQU $ LDA #00AH STA BINCT0,X CMP #002H BCS BNST600 LDA BINCT0,X BRL BNSTF00 BNST600 EQU $ INX CPX #004H BNE BNST500 ; BNST700 EQU $ STY BINCT0,X CMP #002H BNE BNSTB00 LDA BINCT0,X BRA BNSTF00 BNSTB00 EQU $ INX CPX #004H BNE BNSTA00 BNSTF00 EQU $ RTS ; ;************************************************************** ;* takara nage move init. (TKGINT) * ;************************************************************** TKNYPD EQU $ ; 0 1 2 3 HEX 0F3,0F3,0F3,0F3 ; 4 5 6 7 HEX 0F3,0F4,0F4,0F3 ; 8 9 A B HEX 0F3,0F4,0F4,0F4 ; C D E F HEX 0F6,0F4,0F4,0F4 ; 10 11 12 13 HEX 0F4,0F4,0F4,0F4 ; 14 15 16 17 HEX 0F4,0F4,0F4,0F4 ; 18 19 1A 1B HEX 0F4,0F4,0F4,0F4 ; 1C 1D 1E 1F HEX 0F4,0F4,0F4,0F4 ; 20 21 22 23 HEX 0F4,0F4,0F4,0F3 ; 24 25 26 27 HEX 0F4,0F4,0F4,0F4 ; 28 29 2A 2B HEX 0F4,0F4,0F6,0F4 ; 2C 2D 2E 2F HEX 0F4,0F4,0F4,0F4 ; 30 31 32 33 HEX 0F4,0F4,0F4,0F4 ; 34 35 36 37 HEX 0F4,0F4,0F4,0F4 ; 38 39 3A 3B HEX 0F4,0F4,0F4,0F4 ; 3C 3D 3E 3F HEX 0F4,0F4,0F4,0F4 ; 40 41 42 43 HEX 0F4,0F4,0F4,0F4 ; 44 45 46 47 HEX 0F4,0F4,0F4,0F4 ; 48 49 4A 4B HEX 0F4,0F3,0F4,0F4 ; TKNXPD EQU $ ; 0 1 2 3 HEX 004,004,004,004 ; 4 5 6 7 HEX 004,000,000,004 ; 8 9 A B HEX 004,004,004,004 ; C D E F HEX 005,000,000,000 ; 10 11 12 13 HEX 000,000,000,004 ; 14 15 16 17 HEX 000,004,000,000 ; 18 19 1A 1B HEX 004,000,000,000 ; 1C 1D 1E 1F HEX 000,000,000,000 ; 20 21 22 23 HEX 000,000,000,000 ; 24 25 26 27 HEX 00B,000,000,000 ; 28 29 2A 2B HEX 002,000,005,000 ; 2C 2D 2E 2F HEX 000,000,000,000 ; 30 31 32 33 HEX 000,000,000,000 ; 34 35 36 37 HEX 004,004,004,000 ; 38 39 3A 3B HEX 000,000,000,000 ; 3C 3D 3E 3F HEX 000,000,000,000 ; 40 41 42 43 HEX 000,000,004,004 ; 44 45 46 47 HEX 000,004,000,000 ; 48 49 4A 4B HEX 000,004,000,000 ; TKGINT EQU $ PHB PHK PLB STX ATMTFG JSR JPRMSR2 ; aki ram surch sub BCS TKGIF00 ; ;************* aitem no buffer no set JSL >SDLRCP ; sound (L,R) check sub ORA #mono0 STA !SOUND3 ; ; PHX LDY ATMTFG LDA !TAKVMAD,Y STA TTCBFST LDA ITMCBFST LDA KNCBFST ; ;************** aitem y,x pos set !! TKGI300 EQU $ PLX LDA #080H STA PYDMBT STZ PYDMBT1 STZ SDLRCP ; sound (L,R) check sub ORA #mono0 STA !SOUND3 ; ; LDY #035H LDA !TAKVMAD,Y STA ITMCBFST ; ;************** aitem y,x pos set !! LDA #080H STA PYDMBT STZ PYDMBT1 STZ KZMODE+0,X DEX BPL MCIT0C0 ; PLA TAX LDA !MCEDIX,X STA KZMODE,X LDA !MCZSPD,Y STA >KZZSPD,X LDA !MCYSPD,Y STA >KZYSPD,X LDA !MCXSPD,Y STA >KZXSPD,X LDA #000H STA >KZZPSL,X STA >KZSTAT,X ; LDA #010H STA >KZFLEM,X LDA #035H STA >KZCONT,X MEM16 REP #00100000B LDA KZYPSL,X LDA KZYPSH,X LDA KZXPSL,X LDA KZXPSH,X ; DEX DEY CPY sunder * ;* 1 ---> grove (bulue) * ;* 2 ---> asihire * ;* 3 ---> jisho * ;* 4 ---> hart utsuwa * ;* 5 ---> bomber * ;* 6 ---> poligon * ;************************************************************** TKDUNT EQU $ HEX 010,037,039,038,026,00F,020 TDNZPD EQU $ HEX 060,080,080,080,080,080,080 TDNYPD EQU $ WORD 00048H,00078H,00078H,00078H,00078H WORD 00068H,00078H TDNXPD EQU $ WORD 00078H,00078H,00078H,00078H,00078H WORD 00080H,00078H TDNFLM EQU $ HEX 040,000,000,000,000,0FF,000 TKDINT EQU $ PHB PHK PLB ; STX ATMTFG JSR JPRMSR2 ; aki ram surch sub BCS MCIT200 PHX LDY ATMTFG LDA !TKDUNT,Y STA BMCONT,X CMP !TKDUNT+0 BEQ TKDI020 CMP !TKDUNT+5 BNE TKDI040 TKDI020 EQU $ TAY LDA !TAKVMAD,Y ; buffer set STA ITMCBFST TKDI040 EQU $ PLX ; TKDI080 EQU $ LDA #0C8H STA BMZSPD,X STZ BMYSPD,X STZ BMXSPD,X STZ BMSTAT,X LDY ATMTFG LDA !TDNZPD,Y STA BMZPSL,X LDA #009H STA BMFLFG,X STZ BUMFLM,X STZ HIBSTAT,X LDA !TDNFLM,Y STA HBFLEM,X LDA BMCONT,X STA ATMTFG ; TKDI0C0 EQU $ CPY #000H BEQ TKDI300 CPY #005H BEQ TKDI300 LDA !DJNNO ; 4 gamen check !! CMP #014H BNE TKDI200 ; TKDI100 EQU $ LDA OKZSDT+0 STA BMZSPD,X LDY #008H LDA ITMCBFST PLX ; MEM16 REP #00100000B LDA #00A8AH ; kotei y-pos set STA KZTMDS MEM16 REP #00100000B LDA #00280H STA >KZTIM0 MEM8 SEP #00100000B ; LDX #00BH ; position,speed set KZIM100 EQU $ LDA #000H STA >KZYSPD,X LDA !KZIXSP,X STA >KZXSPD,X LDA !KZIZSP,X STA >KZZSPD,X LDA !KZIYPSL,X STA >KZYPSL,X LDA #007H STA >KZYPSH,X LDA !KZIXPSL,X STA >KZXPSL,X LDA #002H STA >KZXPSH,X LDA !KZIZPSL,X STA >KZZPSL,X LDA #001H STA >KZFLEM,X TXA AND #00000001B STA >KZMODE,X DEX BPL KZIM100 ; KZIM900 EQU $ PLB RTL ; ;************************************************************** ;* tori move init. (TORIINT) * ;************************************************************** TORIINT EQU $ PHB PHK PLB ; JSR JPRMSR3 BCS TRIM900 JSR JPRMSR2 ; aki ram surch sub BCS TRIM900 ; LDA #002H STA BMMUKI,X INC A STA BUMFLM,X STZ BMSTAT,X ;;;;;;;; LDA #060H ; wait timer set LDA #020H STA BMFLFG,X ;;;;;;;; LDA #00CH LDA #074H STA BMCONT,X STZ BMZSPD,X STZ HIBSTAT,X STZ BMZPSL,X STZ BMKMHN,X ; MEM16 REP #00100000B LDA #00788H STA PLRCHK PLY PLX ; ;;;;;;;; LDA BOBFLM1+1 STA BUMFLM,X LDA #001H STA BMCONT,X ; PHX LDX OPINDX+0 LDA OPYPSL,X STA KNDTINX,X CLC ADC KNMDDAT,X PLX STA BCDMNO,X ; kona mode flag LDY #006H MEM16 REP #00100000B LDA SDLRCB ORA #fires STA !SOUND2 PLB RTL ; KTFR100 EQU $ PLB RTL ; ;************************************************************** ;* scop suna move init. (SCPINT) * ;************************************************************** SCPINT EQU $ PHB PHK PLB ; JSR JPRMSR2 ; aki ram surch sub BCS SPIN200 ; STZ BMCONT,X ; hibana mode counter LDA #014H STA BMTIM0,X ; MEM16 REP #00100000B LDA KABEFM,X ; LDA KABEYP,X ; onpu y-pos set CLC ADC #008H STA KABEXP,X ; onpu x-pos set CLC ADC #010H STA SDLRCP ; sound (L,R) check ORA #yasd0 STA !SOUND2 ; ; STZ YABGCK,X ; auto scrool BG hit flag clear LDA #08H ; flem counter set STA BMCONT,X ; LDA SDLRCP ORA #usag0 STA !SOUND2 BRA TTKI002 TTKI000 EQU $ JSL >SDLRCP ORA #usag1 STA !SOUND2 TTKI002 EQU $ BRA TTKI080 ; TTKINT1 EQU $ PHB PHK PLB ; JSR JPRMSR2 ; aki ram surch sub BCS TTKI100 LDA #001H STA BMSTAT,X STA PYSTOP ; player stop flag TSB OPMODE CMP #kajya BNE T2KI000 JSL >SDLRCP ORA #usag0 STA !SOUND2 BRA T2KI002 T2KI000 EQU $ JSL >SDLRCP ORA #usag1 STA !SOUND2 T2KI002 EQU $ STZ BMCONT,X ; onpu conuter STZ BMSTAT,X LDA #007H STA BMFLFG,X LDA #001H STA !OPNOSI ; LDY OPINDX+0 LDA OPYPSL,Y STA SDLRCP ORA #015H STA !SOUND2 MEM16 REP #00100000B LDA KMIWCT,X ; kona move counter ;;;;;;;; LDA #007H ; kona flem counter set ;;;;;;;; STA >KMIWTM,X ;;;;;;;;; ;;;;;;;; MEM16 ;;;;;;;; REP #00100000B ;;;;;;;; LDA !KMKMYD,X ;;;;;;;; AND #000FFH ;;;;;;;; CLC ;;;;;;;; ADC #0012CH ;;;;;;;; STA KMIWYL,X ;;;;;;;; LDA KMIWYH,X ;;;;;;;; LDA KMIWXL,X ;;;;;;;; LDA KMIWXH,X ;;;;;;;; DEX ;;;;;;;; BPL KMKM100 ;;;;;;;;; ;;;;;;;;KMKM400 EQU $ ;;;;;;;; PLB ;;;;;;;; RTL ; ;************************************************************** ;* spcial magic (SOUNDER) move init. (SNDINT) * ;************************************************************** SNDINT EQU $ PHB PHK PLB ; JSR JPRMSR2 ; aki ram surch sub BCC SNDI100 BRL SNDI200 ; SNDI100 EQU $ STZ BMCONT,X ; inazuma mode counter STZ BCDMNO,X ; inazuma nagasa flag STZ BMSTAT,X LDA #001H STA !SPMCFG INC A STA BMFLFG,X INC A STA BUMFLM,X LDA #07FH STA BMYSPD,X LDA #028H STA >SNDHAN ; en hankei set LDA #spoj4 STA !SPOJFG LDA #040H ; en stop timer STA >SNTIME ; JSL >SDLRCP ; sound (L,R) check ORA #026H STA !SOUND3 ; ; LDA #000H STA >SNENMD+0 ; en mode flkag LDA #008H STA >SNENMD+1 ; en mode flkag LDA #010H STA >SNENMD+2 ; en mode flkag LDA #018H STA >SNENMD+3 ; en mode flkag LDA #020H STA >SNENMD+4 ; en mode flkag LDA #028H STA >SNENMD+5 ; en mode flkag LDA #030H STA >SNENMD+6 ; en mode flkag LDA #038H STA >SNENMD+7 ; en mode flkag ; MEM16 REP #00100000B LDA SNTYPO LDA #0FFF0H ; inazuma y-pos set CLC ADC SHNYPS ; inazuma y-pos hozon LDA SNTXPO ; tame x-pos hozon CLC ADC #0008H STA >SNCXPS ; center x-pos set LDA SEDYPS ; inazuma end y-pos set CLC ADC #00024H STA >SNCYPS ; center y-pos set MEM8 SEP #00100000B ; BRL BMYXSET1 ; SNDI200 EQU $ PLB RTL ; ;************************************************************** ;* clear demo ken flash move init. (CDKNINT) * ;************************************************************** CDKNINT EQU $ PHB PHK PLB ; LDA >ITMTBL6 INC A AND #11111110B BEQ CKIN100 ; LDY #000H LDA #CDKMV JSR JPRMSR2 ; aki ram surch sub BCS CKIN100 ; STZ BMCONT,X ; onpu conuter LDA #001H STA BUMFLM,X LDA #022H STA BMFLFG,X ; CKIN100 EQU $ PLB RTL ; ;************************************************************** ;* kona maki move init. (KONINT) * ;************************************************************** KNITYP EQU $ ; y-pos inital data ; up down left right WORD 00001H,00028H,00016H,00016H KNITXP EQU $ ; x-pos inital data WORD 0000AH,0000AH,0FFF8H,0001CH KNITYP1 EQU $ ; BG check y-pos data ; up down left right WORD 00000H,00014H,00010H,00010H KNITXP1 EQU $ ; BG check x-pos data WORD 0FFFEH,0FFFEH,0FFF4H,0000CH KONINT EQU $ PHB PHK PLB ; JSR JPRMSR2 ; aki ram surch sub BCC KONI080 BRL KONI200 ; KONI080 EQU $ STZ BMCONT,X ; kona move counter STZ BMZPSL,X LDA #001H ; kona flem counter set STA BMFLFG,X LDA #050H ; chara chenge flag set STA ITMCPT ; PHX LDY KNDTINX,X TAX LDA >KNMDDAT,X PLX STA BCDMNO,X ; kona mode flag ; LDY BMBCKL ; bg check sub LDA BMBGNO,X STA FIRENO ; LDA BPSHZN CMP #009H BNE KONI100 STZ BMMODE,X BRA KONI200 ; KONI100 EQU $ LDY SDLRCP ; sound (L,R) check ORA #kona0 STA !SOUND2 ; JMP BMYXSET1 ; KONI200 EQU $ PLB RTL ; ;************************************************************** ;* ken hibana inital set (KNHBIT) * ;************************************************************** KNHBYP EQU $ ; hibana y-pos data WORD 0FFFCH,00020H,00011H,00011H KNHBXP EQU $ ; hibana x-pos data WORD 0000BH,0000AH,0FFF4H,0001DH ; KNHBIT EQU $ ; hibana initial set sub PHB PHK PLB ; JSR JPRMSR2 ; aki ram surch sub BCS KHB100 ; LDA #005H STA BMCONT,X ; hibana conuter clear LDA #001H ; hibana flem counter set STA BMFLFG,X ; LDY ; LDA #000H ; mode reset STA >SPJIMD+0 STA >SPJIMD+1 STA >SPJIMD+2 STA >SPJIMD+3 STA >SPJIMD+4 STA >SPJILP ; loop counter INC A STA >SPJIFM+0 ; flem counter set STA >SPJIFM+1 STA >SPJIFM+2 STA >SPJIFM+3 STA >SPJIFM+4 STA !SPMCFG INC A STA BMTIM0,X MEM16 REP #00100000B LDA SPJIYP LDA SPJIXP LDA #0003H STA >SPVSR1 MEM8 SEP #00100000B ; JIIT200 EQU $ PLB RTL ; ;************************************************************** ;* soromon ken move init. (KNSOINT) * ;************************************************************** KNSMYP EQU $ ; flash ken y-pos WORD 00020H,0FFF8H,0000AH,00014H KNSMXP EQU $ ; flash ken x-pos WORD 0000AH,00007H,0001CH,0FFF6H KNSOINT EQU $ PHB PHK PLB STX KBMODE+0 STA >KBBMFM+1 STA >KBBMNO+1 STA >KBMODE+1 INC A STA >KBBMNO+0 STA !SPMCFG LDA #003H ; flem counter set STA >KBBMFM+0 ; LDA >KBMUKI TAY MEM16 REP #00100000B LDA !KBITYD,Y CLC ADC >KBYPS0 STA >KBYPS0 LDA !KBITXD,Y CLC ADC >KBXPS0 STA >KBXPS0 MEM8 SEP #00100000B ; LDY #000H LDA >KBMUKI ; 0:up 2:down 4:left 6:right CMP #004H ; tate ? [NO:KBDM400] BCS KBDM400 LDY #010H KBDM400 EQU $ ; LDX #006H KBDM500 EQU $ MEM16 REP #00100000B LDA !KBDITD,Y CLC ADC >KBYPS0 STA >KABEYP,X LDA !KBDITD+2,Y CLC ADC >KBXPS0 STA >KABEXP,X SEC SBC PLX PLY KBDM540 EQU $ INY INY INY INY DEX DEX BPL KBDM500 ; PLB RTL ; ;************************************************************** ;* power up bumeran move init. (PUBNIT) * ;************************************************************** PUBNIT EQU $ PHB PHK PLB STX RNDSET ; ranram set STA RNDSET ; ranram set STA MGPTSB2 BRA PUYA900 ; DTIT100 EQU $ JSL >SDLRCP ; sound (L,R) check ORA #frod1 STA !SOUND2 ; ; STZ BMSTAT,X ; move start flag clear STZ BCDMNO,X ; chara hanten flag clear LDA #0FFH STA BMCONT,X ; beam paturn counter LDA #001H ; beam set STA HIBSTAT,X LDA #003H ; flem counter set STA BMFLFG,X LDA #006H ; dot wait counter STA BUMFLM,X ; LDA ITBGCK PLX PLY BCS DTIT700 ; LDY BMITOC-1,X ; dot beam oam suu set PLX STA BMOMNO,X STZ BMCONT,X LDA #004H STA BMFLFG,X PLB RTL ; ;************************************************************** ;* water hahen move init. (WTIMIT) * ;************************************************************** WTIMIT EQU $ PHB PHK PLB ; JSR JPRMSR2 ; aki ram surch sub BCS WTIM100 ; JSR >SDLRCP ORA #dobn1 STA !SOUND2 STZ BMCONT,X ; water mode counter LDA #02H ; water flem counter STA BMFLFG,X ; LDA PWTRCGS1 ; player coler set ;// 03.08.09 // PLX STZ ITEMR21 ;;;;;;;; AND #00FFH ;;;;;;;; CMP #0002H ;;;;;;;; BNE HAKI500 LDA DASHFG ; dash ? [no:HAKI500] AND #00FFH BEQ HAKI500 BRA HAKI600 HAKI340 EQU $ LDA DASHFG AND #00FFH BNE HAKI500 BRA HAKI600 HAKI400 EQU $ INY INY CPY GNDTBL,X ORA #020H STA >GNDTBL,X PLX HAKI680 EQU $ MEM8 IDX8 SEP #00110000B JSL >SDLRCP ORA #pinpn STA !SOUND3 ; HAKI700 EQU $ MEM8 IDX8 SEP #00110000B LDA UT4RWT PLX PLY ; MEM16 IDX16 REP #00110000B TYA AND #00FFH TAY LDA !HAKAYD,Y CLC ADC #0FFFEH STA SDLRCP ORA #hakas STA !SOUND2 ; HAKI800 EQU $ LDA #004H STA ITMTBL3 ; poligon=7 ? AND #01111111B CMP #01111111B BNE TPIT100 ; LDA >GNDTBL+043H ; BG kakikae on !! AND #020H BNE TPIT100 JSL >KNBMCLR ; beam clear sub ; LDY #004H LDA #PGKMV JSR JPRMSR3 ; 2 times check !! BCS TPIT100 JSR JPRMSR2 ; aki ram surch sub BCS TPIT100 ; PHX LDX #00FH PKIT040 EQU $ LDA ENMYNO,X CMP #PLCHK BNE PKIT080 STZ ENMODE,X PKIT080 EQU $ DEX BPL PKIT040 ; LDX #017H LDA #0FFH PKIT100 EQU $ STA >KIRMOD,X DEX BPL PKIT100 ; LDA #028H ; poligon kakikae !! STA ITMCBFST LDA #004H STA !CHITEMJC LDA #002H STA !CGSTPT+1 JSL >CHITEMS0 INC SNTIME LDA #000H STA >SNENMD+0 ; en mode flag STA >SNDHAN ; en hankei set LDA #00AH STA >SNENMD+1 ; en mode flag LDA #016H STA >SNENMD+2 ; en mode flag LDA #020H STA >SNENMD+3 ; en mode flag LDA #02AH STA >SNENMD+4 ; en mode flag LDA #036H STA >SNENMD+5 ; en mode flag ; MEM16 REP #00100000B LDA BMITOC-1,X STA BMOMNO PLX ; LDA #0FDH STA >KBBMNO+0 INC A STA >KBBMNO+1 INC A STA >KBBMNO+2 LDA #000H STA >KBBMNO+3 STA >KBMODE+0 LDA #005H STA >KBBMFM+0 STA >KBBMFM+1 STA >KBBMFM+2 STA >KBBMFM+3 STA BMFLFG ; fire flem counter MEM16 REP #00100000B LDA #00100H STA >KBYPS0 STA >KABEYP+6 LDA #00098H STA >KBXPS0 STA >KABEXP+6 MEM8 SEP #00100000B ; LDA #gif2 STA !GDINFF STZ ARWCNT ;;;;;;;; ORA >BMBCNT ;;;;;;;; ORA >CONCNT ;;;;;;;; ORA >CONCNT+1 ;;;;;;;; BEQ NTAT060 ;;;;;;;;; ;;;;;;;;NTAT040 EQU $ ;;;;;;;; JSL >RNDSET ; randam sub ;;;;;;;; AND #00000011B ; 1 -- > coin 2---> ya 3---> bomb ;;;;;;;; BNE NTAT080 ;;;;;;;;NTAT060 EQU $ ;;;;;;;; STZ BMMODE,X ;;;;;;;; BRL NTAT900 ;;;;;;;;NTAT080 EQU $ ;;;;;;;; STA BMIDSH ; PLA TYX BMI JP2M100 STA BMMODE,X ; beam mode set TAY LDA BMITOC-1,X ; use kosuu set STA BMITOC-1,X ; use kosuu set STA BMBCKL PLY BCS ITBG300 INY INY DEC BMBCKL1 PLY BCS ITBC300 INY INY DEC OPMODE+0 ;;;;;;;; CMP #mesmv ;;;;;;;; BEQ OPIN100 ;;;;;;;; CMP #jjwat ;;;;;;;; BEQ OPIN060 ;;;;;;;;; ;;;;;;;; INC A ;;;;;;;; CMP #edcod ;;;;;;;; BNE OPIN010 ;;;;;;;;OPIN008 EQU $ ;;;;;;;; LDA #000H ;;;;;;;; BRA OPIN060 ;;;;;;;;; ;;;;;;;;OPIN010 EQU $ ;;;;;;;; LDY #OPINIT-OPNODT-1 ;;;;;;;;OPIN020 EQU $ ;;;;;;;; CMP !OPNODT,Y ;;;;;;;; BNE OPIN040 ;;;;;;;; CMP #mesm1 ;;;;;;;; BEQ OPIN008 ;;;;;;;; INC A ;;;;;;;; BRA OPIN010 ;;;;;;;;OPIN040 EQU $ ;;;;;;;; DEY ;;;;;;;; BPL OPIN020 ;;;;;;;;; ;;;;;;;;OPIN060 EQU $ ;;;;;;;; STA >OPMODE+0 ;;;;;;;; JSL >OPTCBFST ; option chara chenge sub ;;;;;;;; LDA #OTIM1 ;;;;;;;; STA OPMTIM ;;;;;;;; BRA OPIN080 ;;;;;;;;; RAOPIT EQU $ PHB PHK PLB OPIN080 EQU $ LDA OPKYFG ; JSL >OPPLSH ; option y,x,pos set ; PLX PLB RTL ; ; ;************************************************************** ;* OPTION move sub (OPTNMV) * ;************************************************************** OPTNMV EQU $ PHB PHK PLB ; JSR OPTION ; PLB RTL ; ; ;************************************************************** ;* OPTION move sub (OPTNMV) * ;* 0 0 0 0 0 0 0 0 -->(OPMUKI) * ;* kusa asase swim bog pri muki * ;************************************************************** OPMVTBL EQU $ PRINCE WORD PRENMV ; princess move (1) JJMOV0 WORD JIJIMV ; jijii move (2) JJMOV1 WORD JIJIWT ; jijii wait (3) JJMOV2 WORD JIJIMV ; jijii move(sp)(4) MESMOV WORD OPTN0C0 ; messji move 0 (5) PRINC1 WORD PRENMV ; princess move (6) KAJIY1 WORD PRENMV ; kajiya ura (7) KAJIYA WORD PRENMV ; kajiya omote (8) HENOJI WORD PRENMV ; h ojisan move (9) SARUMV WORD PRENMV ; saru move (A) SARUWT WORD JIJIWT ; saru move (B) TKRAMV WORD PRENMV ; takara bako move (C) BKDNMV WORD PRENMV ; bomb move (D) MESMV1 WORD OPTN0C0 ; messji move 1 (E) EDCODE EQU $ ; nashi EQU 000H prnce EQU (PRINCE-OPMVTBL)/2+1 jjmov EQU (JJMOV0-OPMVTBL)/2+1 jjwat EQU (JJMOV1-OPMVTBL)/2+1 jjsmv EQU (JJMOV2-OPMVTBL)/2+1 mesmv EQU (MESMOV-OPMVTBL)/2+1 prnc1 EQU (PRINC1-OPMVTBL)/2+1 kajy1 EQU (KAJIY1-OPMVTBL)/2+1 kajya EQU (KAJIYA-OPMVTBL)/2+1 hnoji EQU (HENOJI-OPMVTBL)/2+1 monky EQU (SARUMV-OPMVTBL)/2+1 monwt EQU (SARUWT-OPMVTBL)/2+1 takar EQU (TKRAMV-OPMVTBL)/2+1 bakud EQU (BKDNMV-OPMVTBL)/2+1 mesm1 EQU (MESMV1-OPMVTBL)/2+1 edcod EQU (EDCODE-OPMVTBL)/2+1 ; OPTIM EQU 040H ; timer OTIM EQU 00DF3H ; (60s') jijii messeji wait time OTIM1 EQU 006F9H ; (30s') ojisan messeji wait time ; TMMESD EQU $ BYTE mesmv,hnoji,monky TMMSTM EQU $ WORD OTIM,OTIM1,OTIM TMMSNO EQU $ WORD MS_0044,MS_03F1,MS_0452 ; OPTION EQU $ LDA >OPMODE+0 BNE OPTN080 RTS ; OPTN080 EQU $ CMP #mesm1 BNE OPTN084 BRL OPMSST ; messji set sub !! ; OPTN084 EQU $ LDY #TMMSTM-TMMESD-1 OPTN090 EQU $ LDA >OPMODE+0 CMP !TMMESD,Y BEQ OPTN0A0 DEY BPL OPTN090 BRL OPTN0E0 ; OPTN0A0 EQU $ LDA PLJTCK ; player jootai check !! BCS OPTN0B4 STZ OPMTIM STZ OPMTIM+1 BRA OPTN0C0 ; OPTN0B4 EQU $ MEM16 REP #00100000B PHY TYA AND #00FFH ASL A TAY LDA !TMMSTM,Y STA OPMTIM LDA !TMMSNO,Y STA !MSGENOL MEM8 SEP #00100000B JSL >MESWIT PLY ; OPTN0C0 EQU $ MEM8 SEP #00100000B CPY #000H BNE OPTN0E0 OPTN0D0 EQU $ RTS ; OPTN0E0 EQU $ MEM8 SEP #00100000B LDA >OPKYFG BEQ OPTN0E2 BRL OPTN0F0 ; OPTN0E2 EQU $ LDA >OPMODE+0 ; bomb shori CMP #takar BNE OPTN0E22 LDA OPMODE+0 CMP #bakud BEQ OPTN0E3 OPTN0E24 EQU $ BRL OPTN0F4 OPTN0E3 EQU $ LDA bpl 1 --> bmi LDA !OPNOSI BNE OPTN0F4 LDA OPINDX+1 ; optoin move on ? BNE OPTN0F4 LDX OPINDX+0 LDA OPZPSL,X ; jump ? BEQ OPTN0E44 BPL OPTN0F4 ; OPTN0E44 EQU $ LDA OPMODE+0 CMP #bakud BNE OPTN0E6 LDA OPKYFG LDA #OPTIM STA OPINDX+3 LDX OPINDX+0 LDA OPYPSL,X STA >OPJIYP LDA OPYPSH,X STA >OPJIYP+1 LDA OPXPSL,X STA >OPJIXP LDA OPXPSH,X STA >OPJIXP+1 LDA OPBGCKF LDA OPCDFG ; OPTN0F0 EQU $ BRL PRENWT ; OPTN0F4 EQU $ MEM8 SEP #00100000B LDA !PYALSP BNE OPTN0F6 LDX OPMODE+0 DEC A ASL A TAX JMP (OPMVTBL,X) OPTNF00 EQU $ RTS ; ;************************************************************** ;* prencess move sub (PRENMV) * ;************************************************************** PRENMV EQU $ LDA !PYALSP BNE PREN008 LDX OPMODE+0 CMP #monky BNE PREN016 LDA SARKKST2 LDA #000H STA >OPMODE+0 RTS ; ;************** musume 2 shori PREN016 EQU $ LDA >OPMODE+0 CMP #prnc1 BNE PREN018 MEM16 REP #00100000B LDA DJNTBL+65H*2 AND #00100H BEQ PREN018 MEM8 SEP #00100000B JSL >PYHICK2 BCC PREN018 LDX OPINDX+0 LDA OPXPSL,X STA OPMODE+0 JSL >CTBOSST INC !TRAPMD STZ !DOPCPT STZ !DOPNCT LDA #p1_sdop STA OPCDFG CMP RAOPIT LDA OPCDFG LDA >OPMODE+0 CMP #bakud BNE PRWT080 ; LDA #0FEH STA !BMTMER STZ !BMTMCT PRWT080 EQU $ LDA #000H STA >OPKYFG BRL OPOMST ; option oam sub ; PRWT100 EQU $ LDA >OPMODE+0 CMP #bakud BNE PRWT400 LDA OPBKINT LDA #000H STA >OPKYFG PRWT400 EQU $ BRL JIWT700 ; option oam sub ; ;************************************************************** ;* jijii move sub (JIJIMV) * ;************************************************************** OPMDT0 EQU $ BYTE nashi,nashi,jjwat,jjwat,jjsmv,nashi,nashi,nashi BYTE nashi,nashi,nashi,nashi,nashi,nashi,nashi JIJIMV EQU $ LDA !PYALSP BNE JIJI000 LDX OPMODE+0 BNE JIJI006 RTS JIJI006 EQU $ CMP #jjsmv BNE JIJI007 ; ;************** jijii (sp) jump shori JIJI0062 EQU $ LDX OPINDX+0 LDA OPZPSL,X ; jump ? BEQ JIJI0064 BMI JIJI0064 ; LDA OPINDX+0 CMP OPINDX+4 BEQ JIJI0064 BRL JIJI200 ; JIJI0064 EQU $ BRL JIJI020 ; ;************** jijii jump shori JIJI007 EQU $ LDA OPMODE+0 TAX LDA !OPMDT0,X STA >OPMODE+0 LDA #OPTIM STA OPINDX+3 LDX OPINDX+0 LDA OPYPSL,X ; jiisan set STA >OPJIYP LDA OPYPSH,X STA >OPJIYP+1 LDA OPXPSL,X STA >OPJIXP LDA OPXPSH,X STA >OPJIXP+1 LDA OPBGCKF BRA JIJIWT ; ;************** move shori JIJI020 EQU $ LDA OPMODE ;;;;;;;; CMP #002H ;;;;;;;; BNE JIJI500 ;;;;;;;; LDY #000H ; aitem set sub ;;;;;;;; LDA #NTATM ;;;;;;;; JSL >NTATIT ;;;;;;;;; ;************** option oam set JIJI500 EQU $ BRL OPOMST ; option oam sub ; JIJIF00 EQU $ RTS ; ;************************************************************** ;* jijii wait sub (JIJIWT) * ;************************************************************** OPMDT1 EQU $ BYTE nashi,nashi,nashi,jjmov,nashi,nashi,nashi,nashi BYTE nashi,nashi,nashi,nashi,nashi,nashi,nashi JIJIWT EQU $ LDA #010H STA RAOPIT LDA >OPMODE+0 TAX LDA !OPMDT1,X STA >OPMODE+0 RTS ; JIWT700 EQU $ LDA >OPBGCKF TAX CPX OPJIYP STA OPJIYP+1 STA OPJIXP STA OPJIXP+1 STA OPMODE+0 CMP #bakud BEQ JIWT900 CMP #takar BEQ JIWT900 LDX #001H JIWT900 EQU $ TXA BRL OPOMWT ; ;************************************************************** ;* option kutsuki check sub (OKTCHK) * ;************************************************************** OKTCHK EQU $ DEC OPINDX+3 BPL OKTC400 STZ OPINDX+3 MEM16 REP #00100000B LDA >OPJIYP SEC SBC #001H CMP Y-option ? [YES:JIWT700] CMP OPJIXP SEC SBC #001H CMP X-option ? [YES:JIWT700] CMP OPMODE+0 AND #00FFH CMP !JIIDATA+8,X BNE OPMS640 LDA !JIIDATA,X ; y-pos set STA OPMODE+0 AND #00FFH CMP !JIIDATA1+8,X BNE OPMS840 LDA !JIIDATA1,X ; y-pos set STA OPMODE+0 BRA OPMSB00 ; OPMS940 EQU $ MEM8 SEP #00100000B LDA OPINDX+0 INC A CMP #014H BNE OPMSA00 LDA #000H OPMSA00 EQU $ JSL >HELP1ST ; enmy set (jijii set) OPMSB00 EQU $ MEM8 SEP #00100000B JSL >MESWIT BRA OPMSC00 ; OPMSB40 EQU $ MEM8 IDX8 SEP #00110000B LDA OPINDX+0 INC A CMP #014H BNE OPMSB80 LDA #000H OPMSB80 EQU $ PHA LDA SARKKST ; saru sinden open !! BRA OPMSC00 ; OPMSBC0 EQU $ PLA STA GNDTBL,X ; table on ? [YES:OPMSC00] AND #00000001B BNE OPMSC00 LDA SARKKST1 ; saru messji sub OPMSC00 EQU $ MEM8 IDX8 SEP #00110000B RTS ; ;************************************************************** ;* OPTION oam set sub (OPOMST) * ;************************************************************** OPVMDT EQU $ ; H B A HEX 020,0C0,000 ; up HEX 000,0A0,000 ; down HEX 040,060,000 ; left HEX 040,060,044 ; right HEX 020,0C0,004 ; up' HEX 000,0A0,004 ; down' HEX 040,080,000 ; left' HEX 040,080,044 ; right' ; HEX 020,0E0,000 ; swim up HEX 000,0E0,000 ; swim down HEX 040,0E0,000 ; swim left HEX 040,0E0,044 ; swim right HEX 020,0E0,004 ; swim up' HEX 000,0E0,004 ; swim down' HEX 040,0E0,004 ; swim left' HEX 040,0E0,040 ; swim right' OPYXDT EQU $ ; garl ; head body ; y x y x WORD 0FFFEH,00000H,00000H,00000H ;up WORD 0FFFEH,00000H,00000H,00000H ;down WORD 0FFFEH,00000H,00000H,00000H ;left WORD 0FFFEH,00000H,00000H,00000H ;right WORD 0FFFFH,00000H,00001H,00000H ;up' WORD 0FFFFH,00000H,00001H,00000H ;down' WORD 0FFFFH,00000H,00001H,00000H ;left' WORD 0FFFFH,00000H,00001H,00000H ;right' ; WORD 00000H,00000H,00000H,00000H ;swim up WORD 00000H,00000H,00000H,00000H ;swim down WORD 00000H,00000H,00000H,00000H ;swim left WORD 00000H,00000H,00000H,00000H ;swim right WORD 00001H,00000H,00000H,00000H ;swim up' WORD 00001H,00000H,00000H,00000H ;swim down' WORD 00001H,00000H,00000H,00000H ;swim left' WORD 00001H,00000H,00000H,00000H ;swim right' ; y x y x ; jijii data WORD 00000H,00000H,00000H,00000H ;up WORD 00000H,00000H,00000H,00000H ;down WORD 00000H,0FFFDH,00000H,00000H ;left WORD 00000H,00003H,00000H,00000H ;right WORD 00001H,00000H,00000H,00000H ;up' WORD 00001H,00000H,00000H,00000H ;down' WORD 00001H,0FFFDH,00001H,00000H ;left' WORD 00001H,00003H,00001H,00000H ;right' ; ; kajiya data WORD 00000H,00000H,00000H,00000H ;up WORD 00000H,00000H,00000H,00000H ;down WORD 00000H,00000H,00000H,00000H ;left WORD 00000H,00000H,00000H,00000H ;right WORD 00000H,00000H,00001H,00000H ;up' WORD 00000H,00000H,00001H,00000H ;down' WORD 00000H,00000H,00001H,00000H ;left' WORD 00000H,00000H,00001H,00000H ;right' ; ; hen na ojisan WORD 0FFFFH,00000H,00000H,00000H ;up WORD 0FFFFH,00000H,00000H,00000H ;down WORD 0FFFFH,00000H,00000H,00000H ;left WORD 0FFFFH,00000H,00000H,00000H ;right WORD 00000H,00000H,00001H,00000H ;up' WORD 00000H,00000H,00001H,00000H ;down' WORD 00000H,00000H,00001H,00000H ;left' WORD 00000H,00000H,00001H,00000H ;right' ; ; bakudan,box WORD 00000H,00000H,00000H,00000H ;up WORD 00000H,00000H,00000H,00000H ;down WORD 00000H,00000H,00000H,00000H ;left WORD 00000H,00000H,00000H,00000H ;right WORD 00000H,00000H,00000H,00000H ;up' WORD 00000H,00000H,00000H,00000H ;down' WORD 00000H,00000H,00000H,00000H ;left' WORD 00000H,00000H,00000H,00000H ;right' ; ; saru WORD 00002H,00000H,00000H,00000H ;up WORD 00002H,00000H,00000H,00000H ;down WORD 00002H,0FFFFH,00000H,00000H ;left WORD 00002H,00001H,00000H,00000H ;right WORD 00003H,00000H,00001H,00000H ;up' WORD 00003H,00000H,00001H,00000H ;down' WORD 00003H,0FFFFH,00001H,00000H ;left' WORD 00003H,00001H,00001H,00000H ;right' ; OPPSID EQU $ WORD 00000H,00000H,00080H,00080H WORD 00080H,00000H,00000H,000C0H WORD 000C0H,00100H,00180H,00180H WORD 00140H,00140H ; OPKGCR EQU $ WORD 024D8H,064D8H ; asase walk (0) WORD 024D9H,064D9H ; asase walk (1) WORD 024DAH,064DAH ; asase walk (2) WORD 022C8H,062C8H ; kusa (0) WORD 022C9H,062C9H ; kusa (1) WORD 022CAH,062CAH ; kusa (2) OPUPPT EQU $ ; option up oam point data WORD 00170H,000C0H OPDNPT EQU $ ; option down oam point data WORD 001C0H,00110H OPCOLR EQU $ HEX 000,004,004,004,004,000,007,004 HEX 004,003,004,004,004,004 ; ;*************** OAM set OPOMST EQU $ LDA !OPNOSI ; option shouji nashi set BEQ OPOM010 OPOM008 EQU $ RTS ; OPOM010 EQU $ PHX PHY LDX OPINDX+0 LDA OPZPSL,X ; jump ? BEQ OPOM020 LDA OPMODE CMP #prnc1 BEQ OPOM0C08 CMP #prnce BNE OPOM0C02 OPOM0C08 EQU $ LDY #008H LDA SWKASY ORA SWKASY+1 ORA SWKASX ORA SWKASX+1 BEQ OPOM0C01 LDA OPMODE CMP #monwt BEQ OPOM0C1 CMP #bakud BEQ BAKDC000 CMP #takar BNE OPOM0C020 BAKDC000 EQU $ LDA >OPKYFG BNE OPOM0C03 ; OPOM0C020 EQU $ LDA !PYALSP BNE OPOM0C03 LDA OPMODE CMP #prnce BEQ OPOM0CC CMP #prnc1 BEQ OPOM0CC LDA OPMODE+0 ; option coler set TAX LDA !OPCOLR,X CMP #007H BNE OPOM0E2 TAX LDA !PCGCKF BEQ OPOM0E1 LDX #000H OPOM0E1 EQU $ TXA OPOM0E2 EQU $ ASL A STA OPMODE+0 CMP #bakud BNE OPOM0E4 LDA !BMTMER CMP #001H BNE OPOM0E4 LDA OPMODE+0 CMP #bakud BEQ OPOM0E8 CMP #takar BEQ OPOM0E8 MEM16 IDX16 REP #00110000B PHY LDA OPMODE+0 AND #00FFH ASL A TAX TYA CLC ADC !OPPSID,X TAX LDA !OPYXDT+0,X CLC ADC OPMODE+0 AND #00FFH ASL A TAX TYA CLC ADC !OPPSID,X TAX LDA !OPYXDT+4,X CLC ADC OPMODE+0 CMP #monky BEQ BM2CL08 CMP #hnoji BNE BM2CL10 BM2CL08 EQU $ LDA #000H STA >OPMODE+0 BM2CL10 EQU $ RTL ; ;************************************************************** ;* beam y,x set sub (BMSTSB1) * ;************************************************************** BMSTSB1 EQU $ LDA BMITOC-1,X PLX STA BMOMNO,X LDA #003H STA BMFLFG,X STZ BMSTAT,X ; damegi count STZ BMCONT,X STZ BUMFLM,X STZ BUMODE,X STZ BMDEFG,X STZ BMCRFG,X STZ !SWCHF1 ;swishi off JSL >SDLRCB ORA #001H STA SOUND3 PLB RTL ; ;************************************************************** ;* coin count sub (CINCNS) * ;************************************************************** CONMID EQU $ HEX 001,005,014,064,032 CINCNS EQU $ PHB PHK PLB ; LDA BMCONT,X CMP #034H ; coin ? BEQ CINC300 CMP #035H BEQ CINC300 CMP #036H BEQ CINC300 CMP #040H BEQ CINC200 CMP #041H BEQ CINC200 CMP #046H BEQ CINC100 CMP #047H BNE CINC600 ; CINC100 EQU $ ; coin set LDY #002H CMP #047H BEQ CINC400 LDA #02CH STA CONCNT CLC ADC CONCNT MEM8 SEP #00100000B SEC PLB RTL ; CINC600 EQU $ CLC PLB RTL ; ;************************************************************** ;* kaiten beam clear sub (KNBMCLR) * ;************************************************************** KNBMCLR EQU $ PHX LDX #004H KNBM100 EQU $ LDA BMMODE,X CMP #KNSOM BEQ KNBM200 CMP #KNSEN BEQ KNBM200 CMP #SBAMV BEQ KNBM200 CMP #BRSEN BEQ KNBM200 CMP #SODMV BEQ KNBM200 CMP #SPBMV BEQ KNBM200 CMP #JPKM0 BNE KNBM300 KNBM200 EQU $ STZ BMMODE,X KNBM300 EQU $ DEX BPL KNBM100 PLX RTL ; ;************************************************************** ;* run dash kemuri move (RNDSKM)* ;************************************************************** RNKMCD EQU $ HEX 0A9,0CF,0DF RNDSKM EQU $ PHB PHK PLB LDA BMTIM0,X BNE RNDS100 LDA #003H STA BMTIM0,X INC BMCONT,X LDA BMCONT,X CMP #003H BNE RNDS100 STZ BMMODE,X BRA RNDS200 ; RNDS100 EQU $ LDA OAMENT2 RNDS140 EQU $ JSL >ITMPSTL PHX LDA BMCONT,X TAX LDY #000H JSL >BMYXST31 LDA !RNKMCD,X STA (