; INCLUDE zel_ram.asm ; ;------------------------------------------------------------------------ ; ; ZELDA-3 1991.11.29(FRI) ; ;------------------------------------------------------------------------ ; ORG 028000H ; ;=============================================== (zel_init) ============= GLB TILIT0,TILIT1,TILIT3,INIT0,INIT1,INIT2,INIT3 GLB PLMAIN1,PLMAIN2,PLMAIN3,SPSELCT,DJKYSV GLB MZFDOUT,MZFDIN,WPFDOUT,WPFDIN,GHLFADE GLB BCWFOUT,BCKGOUT,UBCWFOUT,USSCLER,ENDTRYF GLB UT4RWT,UT4RWT1,RESTTST,PLMN2000,SCL540 GLB ENDINT0,ENDINT1,ENDGSCL,EIT800 ; GLB MPBTSET,MPBTSET1,MAPCDT,GDMCK800,GSLC400,GNDRWT2,GNDRWT3 GLB XCALC0,XCALC1,XCALC2,XCALC3 GLB YCALC0,YCALC1,YCALC2,YCALC3 GLB YCALC00,PFLGCL,SND1CHK,TYCNCST,UDJRTNCK,PRABCK,PRABC1 ; GLB STPC800,KGBG000,KGBG100,KGBG200,BCKG800 GLB CGWSET0,CGWSET1,CGWSET2 ; GLB PLRPDY,PLRPDX,DARKDT,UDJBITD ; GLB p1_move,p1_scl0,p1_scl1,p1_bchg,p1_dopn,p1_sdop GLB p1_stpc,p1_hldn,p1_mcng,p1_bmbd,p1_ltwp GLB p1_wtrd,p1_wtru,p1_wgop,p1_kstp,p1_fdin,p1_mcg1 GLB p1_warp,p1_sls0,p1_sls1,p1_hlrs,p1_dwrp,p1_tmyk GLB p1_swon,p1_plgn,p1_gnop ; GLB p2_move,p2_atmv,p2_doet,p2_dext,p2_dex1,p2_dwrt GLB p2_fout,p2_awt1,p2_fin1,p2_fot1,p2_fot2,p2_fot3 GLB p2_mprs,p2_kage,p2_fot4,p2_hlrs,p2_kiri,p2_kgrs GLB p2_kzbd,p2_warp,p2_kmww ; GLB ut4p00,ut4p01,ut4p02,ut4p03,ut4p04,ut4p05,ut4p06 GLB ut4p07,ut4p08,ut4p09,ut4p0C ;=============================================== (zel_main) ============= EXT VRAMCL,JSRSUB,JSRSUBL,SNDTR1,SNDTR2,SNDTR3,BLANKING ; EXT MD_title,MD_selct,MD_pcopy,MD_pkill,MD_ptork EXT MD_djit0,MD_djint,MD_djply,MD_gdint,MD_gdply EXT MD_evint,MD_evply EXT MD_fdout,MD_fdin,MD_etcpl EXT MD_wpout,MD_wpin,MD_ghldn,MD_gover,MD_bcfot EXT MD_bckgr,MD_ubsfo,MD_psrst,MD_usscl EXT MD_endg1,MD_etryf,MD_spsel ;=============================================== (zel_data0) ============ EXT BITCD0,UPADR0,nulldt ;=============================================== (zel_code) ============= EXT DJCDITST,DJCODST ;=============================================== (zel_isub) ============= EXT BGMDST,INBGWT1,WD2132IT EXT TINCLST,INCLST0,INCLST1,INCLS140,CGWKST,CGWKST1,CGWKST2 ; EXT IIT1000,IIT2000,IIT3000,IIT4000,IIT6000 ; EXT MPTOGD,MPINT0,MPALST,GDMMRST EXT MPMAIN,GNXBGWT,WTVRAM,GSLBGWT EXT MP1TOGD,GNDRWT0,GNDRWT1,MPSIZE,DJSNDD ;=============================================== (zel_sub0) ============= EXT UROJCST ; EXT RBGCDT,CGPTDT ; EXT p3_sitm,p3_msge,p3_mapd,p3_life,p3_pray,p3_cgrs EXT p3_gmpd,p3_mpup,p3_lmup,p3_warp,p3_prst ;=============================================== (zel_play) ============= EXT PLMOVE,PYOMST,PYCRCN,PYCRCN1,PYSPST,PLAFHL,HPMV400,FUEMOVL EXT OMS000,INWDIT,INWDMV,RASNIN,RASNOT,STRTIN,STRTOT ; EXT PYDMCLR,BLCKOM,OPNINT,SWSPCL2,PLJSCK,PYKNSP1,EDPYDM0 EXT PLYCLR,PLYCLR1,DNJPYCL,HEDCHEG ; EXT LNMD,RABT,TRFS,DAMG3,prnc1 ;=============================================== (zel_exst) ============= EXT BMCLER,RAOPIT,BMCLER2,MESWIT ; EXT bakud,CDKMV ;=============================================== (zel_bms1) ============= EXT CDKNINT,takar ;=============================================== (zel_vma) ============== EXT GDBGWT,WBUFS0,WBUFS1 ; EXT VT01,VT03,VT04 ; EXT bgw4,bgw9,bgwA,bgwC,bgwD,bgw17,bgw18 ;=============================================== (zel_bgwt) ============= EXT RCHRCK,BGMVCHK,INFDCHK,BGCHNG,CHRCNG1 EXT LMPTIMER,BDROPEN,DOPPLY,SDRPLY,GNNOPEN EXT BLKPLY,CSWLPLY,WTRDOWN,WTRCLR0,WTRCLR1 EXT WTRUPP,WGTOPEN,RASENW0,RASENW1,TYCDCNG,TGBLKWT ; EXT CDBGCD,PLBGCD,RCKED ; EXT inf_not ;=============================================== (zel_make) ============= EXT MKROOM ;=============================================== (zel_grnd) ============= EXT GDRCHK,GEVTCHK1,EEVTCHK,GDINFCK,KMWWST EXT KAGEIT,KAGEMV,KAGEMV1,KAGEMV2 ; EXT GDRW0400 ;=============================================== (zel_bg3) ============== EXT MTRON2,MTRON3,MTRON4,ITEMSET,BITMCKL,BMBTIMER EXT MTRDSP,SLITEM,MAPDSP,KAIHUKU EXT LMPCHCK,KAIMP,FLNODSP,FLNOCLS ;=============================================== (zel_gmap) ============= EXT GMAPDP,MPWARP,MWRP900,MWRPB00,MWRPC40 ;=============================================== (zel_comn) ============= EXT CGCNG0,CGCNG1,DKRMCGST,KCGCNG,WD2132ST EXT KCCNG0,CTPCZZZ ; EXT WIPEIT0,WIPEIT1,WIPEMV,LGTWPMV EXT CTPITST,YMCGCNG,GOVRCCNG,MGMCGRS2 EXT WPCCNG0,WPCCNG1,WPCCNG2,WPCCNG3 ;=============================================== (zel_msge) ============= EXT MSGE_I,MSGADST,MSGETNP ;=============================================== (zel_char) ============= EXT CHSCHNG,CHSCHN0,CHRCHNG,CHRCBS0,CHRCBS1,CHRCBSZ EXT BGCHCNG,OJCHCNG,GCGCHNG,KNCBFST,TTCBFST EXT WTRCBFS0,WTRCBFS1,PWTRCGS2,PWTRCGS3,ITMCBFST,OPTCBFST EXT SPOJCNG,MSGVRMS,ENDGVRMS ; EXT DANCORST,KOUKAST,DJCGSET,MSCGST1,MSCGST2,NKCGST0,NKCGST1 EXT OBJYSET,CHITEMST,B3CGSET,USSCGST,DJNCGDT,PLCGCN2 ; EXT GDCGST,GDCGST2,BGCBDT0,spoj0,spoj7,spoj9 ; EXT C_0A0,C_4C0 EXT C_1F0,C_1X0,C_1Y0,C_2R1,C_2U0,C_2W0 EXT C_1W0,C_1Y1,C_1Z0,C_1Z1,C_2A0 ;=============================================== (zel_enmy) ============= EXT ENEMY,EFLCHK ;=============================================== (zel_enmy4) ============ EXT PLCHKST ;=============================================== (zel_enmy3) ============ EXT POLIWCG ;=============================================== (zel_endt) ============= EXT ENDTST,GREDST,GREDS2,ENGRCK,ALCLER,HYUSET,ETCLER ;=============================================== (zel_munt) ============= EXT MPUNIT ; EXT drut2,drut3,drut4,drut5 EXT drut6,drut7,drut8,drut9 EXT drutA,drutB,drutC,drutD ; EXT dru10,dru11,dru12,dru13 EXT dru14,dru15,dru16,dru17 ; EXT atbiw0,atbiw1,atbiw2,atbiw3,atbiw4,atbiw5,atbiw6,atbiw7 ; EXT hakut0,hakut1,hakut2,hakut3,hakut4,hakut5 EXT hakut6,hakut7,hakut8,hakut9,hakutA,hakutB,hakutC,hakutD ; EXT kzbdu0,kzbdu1,kzbdu2,kzbdu3,kzbdu4 ;=============================================== (zel_title) ============ EXT POLGNED,TRYFS10 ;=============================================== (zel_ending) =========== EXT GGNDSCL,EDPLINT ;=============================================== (zel_msge) ============= EXT MS_0076,MS_0077,MS_0580,MS_05E0,MS_05E1,MS_05E2 ;=============================================== (zel_int0) ============= EXT SWYKCNG0,SWYKCNG,KCOLSET,PFLGCL2 ;=============================================== (zel_msge1) ============ EXT MSGCHG ;======================================================================== EXT transfer_flag,INITIAL_POLYGON ;======================================================================== ; MEM8 IDX8 EXTEND ; ; ; ;************************************************************************ ;* Title paramater initial set (TILIT0) * ;************************************************************************ TILIT0 EQU $ LDA #00010000B STA SPOJCNG ; STZ !SPOJFG ; JSR SNDITST ; sound init. set RTL ; ; ; ;************************************************************************ ;* Title paramater initial set (TILIT1) * ;************************************************************************ TILIT1 EQU $ JSL >MSGADST ; message font address set ; JSL >MSGCHG TILIT3 EQU $ JSR TINCLST ; initial BG color set RTL ;// 03.07.03 // LDA #00010101B ;// 03.07.03 // STA ; ; ; ; ;************************************************************************ ;* Initial - 1 (Danjyon) (INIT1) * ;************************************************************************ WTRPTDT EQU $ BYTE C_1Y1,C_1Y1,C_1Y1,C_1Y1,C_1Y1,C_1Y1,C_1Y1,C_1Z1 BYTE C_1Y1,C_1Z1,C_1Z1,C_1Z0,C_1Z1,C_1Z0,C_1Z0,C_1Y1 BYTE C_1Y1,C_1Z0,C_1Y1,C_1Y1,C_1Y1,C_1Y1,C_1Y1,C_1Y1 ; ; INIT0 EQU $ JSL >BLANKING ; blanking on & H-DMA disable ;// 03.09.17 // LDA #10000000B ;// 03.09.17 // STA VRAMCL ; vram clear ; ;// 03.07.05 // JSR BGMDST ; BG mode set ; LDA #00000010B STA 2101H ; obj size,address set JSL >CHSCHN0 ; Player & BG.3 character set ; JSL >UROJCST ; URA Obj. character table set (Ground table) ;;;;;;;; JSL >ROBJCST ; Obj. character table set (Ground table) ; JSL >DJCDITST ; danjyon code init. set ; JSL >KNCBFST ; sword character buffer set JSL >TTCBFST ; shild ; JSL >PLYCLR ; player RAM clear ; JSL >OPTCBFST ; option character buffer set ;// 03.05.31 // LDA #C_0A0 ;// 03.05.31 // STA >CHCHTB+0 ;// 03.05.31 // STA >CHCHTB+1 ;// 03.05.31 // STA >CHCHTB+2 ;// 03.05.31 // STA >CHCHTB+3 LDA #C_4C0 STA >CHCHTB+4 STA >CHCHTB+5 STA >CHCHTB+6 STA >CHCHTB+7 ; STZ !OPMTIM LDA #002H STA !OPMTIM+1 ; option timer init. set LDA #030H STA GDTRPF BEQ IT040 ; ura ? ; ; yes LDA BITMCKL ; [Y] item check JSL >MTRON2 ; initial BG3. write JSL >ITEMSET ; item set ; STZ !GOVRCFG LDA #020H STA MZKCNT BNE INIT10 ; danjyon return ? ; ; no LDA !GOVRCFG BEQ IT060 ; game-over continue ? ; ; yes LDA !RESTSFG BEQ INIT10 ; danjyon start ? ; ; no IT060 EQU $ LDA >MODTBL0 CMP #002H BCC INIT10 ; cyu-ban > ? ; ; yes LDA >MODTBL3 CMP #005H BEQ INIT10 ; yama-jiji ? ; ; no IDX16 REP #00010000B ; index 16bit mode ; LDX #MS_05E1 LDA >ITEMR20 CMP #002H BEQ IT080 ; yama-jiji tasuketaka ? ; ; no LDX #MS_05E0 IT080 EQU $ STX !MSGENOL ; IDX8 SEP #00010000B ; index 8bit mode ; JSL >MESWIT ; message init. ; JSR INCLST0 ; initial BG color set LDA #00001111B STA MZKCNT ORA #00000111B STA BITMCKL ; [Y] item check JSL >MTRON2 ; initial BG3. write JSL >ITEMSET ; item set INIT1 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDA #005H STA !SOUND1 ; [[[ 03.11.29 ]]] STZ SHSCCT+0 STA >SHSCCT+2 STA >SHSCCT+4 STA >SHSCFG+0 STA >SHSCFG+2 STA >SHSCFG+4 ; MEM8 SEP #00100000B ; memory 8bit mode ; JSR IIT1000 ; ram initial ; LDA !DJNNO CMP #0FFH BEQ IT105 ; ; ; CMP #002H BNE IT103 ; shiro ? ; ; yes LDA #000H IT103 EQU $ LSR A TAX LDA >DKYTBL,X IT105 EQU $ ;// 03.10.08 // STA >ITMTBL9 ; key count load ;// 03.10.08 // JSL >MTRON2 ; mater display JSL >MTRON4 ; mater display ; STZ !LGTWST STZ !LGTWFG JSR INBGWT1 ; initial BG data write ; JSL >DJCODST ; read code change ; LDX !CHIKNO LDA >WTRPTDT,X TAY JSL >WTRCBFS0 ; water character buffer set ; JSL >CHRCNG1 ; character code set ; LDA #C_2W0 STA !OJBSPT ;// 03.06.06 // LDA #00000010B ;// 03.06.06 // STA 2101H ; obj size,address set JSL >CHSCHNG ; character VRAM set ;// 03.05.29 // JSL >CHRCBS0 ; character buffer set ; ;// 03.06.12 // LDY #C_1F0 LDA #00AH STA !CHITEMJC JSR INCLST0 ; initial BG color set ; LDA !RABFLG ORA PLCGCN2 ; player CG. (rabit) set IT107 EQU $ ;// 03.05.30 // JSR CGWKST ; (CGWORK) set ; ;// 02.07.24 // LDA #11110111B ;// 02.07.24 // STA 2106H ;// 02.07.24 // STA >MZKCNT ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA MODTBL1 AND #00010000B BEQ IT110 ; oyagi demo ? ; ; no LDA #00000H STA >DARKFG IT110 EQU $ MEM8 IDX8 SEP #00110000B ; memory 8bit mode ; JSL >MPBTSET ; map on/off bit set ; LDA #00000010B STA DARKFG BNE IT140 ; color DARK set ? ; ; no LDX #003H LDY !GSUBFG BEQ IT120 ; ; ; LDA #00110010B CPY #007H BEQ IT130 ; gamen plus ? ; ; no LDA #01100010B CPY #004H BEQ IT130 ; gamen plus ? ; ; no IT120 EQU $ LDA #00100000B IT130 EQU $ STA DARKDT,X STA >DKRMCG JSL >WD2132ST ; R.G.B. set ;// 03.05.29 // ORA #00100000B ;// 03.05.29 // STA CCNGCT LDA #000H STA >CCNGED LDA #00002H STA >CCNGFG STZ !CGSTPT+1 ; CG. (CGRAM) set ; STZ DNJPYCL ; danjyon player ram clear ; JSR SPCH420 ; ; LDA >OPMODE CMP #bakud BNE IT150 ; option-bomb ? ; ; yes LDA #000H STA >OPMODE STZ !BMTMER ; option-bomb clear JSL >FLNOCLS ; clear IT150 EQU $ LDA #00001001B STA RAOPIT ; option init. ; JSL >ALCLER ; enemy clear ;// 03.10.07 // JSL >ETCLER ; enemy clear JSL >ENDTST ; enemy data set STZ !INTEKI INC !INFCFG ; LDA >MODTBL0 BNE IT180 ; start demo ? ; ; yes LDA >MODTBL1 AND #00010000B BNE IT180 ; oyagi demo ? ; ; yes LDA #00110000B STA DARKFG STA >DARKFG+1 JSL >OPNINT ; opening demo initial IT180 EQU $ LDA #MD_djply STA !NXSLMD STA check ;// 03.08.19 // LDA !SNDSFG0 ;// 03.08.19 // CMP #0FFH ;// 03.08.19 // BEQ SND1CHK ; danjyon ? ;// 03.08.19 //; ; yes ;// 03.08.19 // CMP #0F2H ;// 03.08.19 // BEQ SND1CHK ; danjyon ? ;// 03.08.19 //; ; yes ;// 03.08.19 // LDA !SNDPCFG ;// 03.08.19 // BNE SND1CHK ; danjyon sound set ? ;// 03.08.19 //; ; yes ;// 03.08.19 // INC !SNDPCFG ; danjyon sound program ;// 03.08.19 // LDA #0FFH ;// 03.08.19 // STA !SOUND0 ; change ;// 03.08.19 // JSL >SNDTR2 ; sound1 set SND1CHK EQU $ LDA >MODTBL0 CMP #002H BCS IT190 ; ame on ? ; ; yes LDA #005H STA !SOUND1 LDA IT190 EQU $ SEP #00100000B ; memory 8bit mode RTL ; ; RESTTST EQU $ JSR SPCH430 ; re-start position set RTL ; ; ; ; ;************************************************************************ ;* Initial - 2 (ground) (INIT2) * ;************************************************************************ INT3TBL EQU $ WORD MPINT21 ; WORD GB1WRT0 ; WORD MPINT0 ; ; ; INIT2 EQU $ ; ;************************************************************************ ;* Initial - 3 (Event --> Ground) (INIT3) * ;************************************************************************ INIT3 EQU $ LDA PRABCK ; player rabit check MPI2080 EQU $ LDA CHBKRM ;// 02.08.16 // STA !CHARBK ;// 02.08.16 // LDA >CHNORM ;// 02.08.16 // STA !CHIKNO ;// 02.08.16 // LDA >RBGPRM ;// 02.08.16 // STA !RBGCPT ;// 02.08.16 // LDA >ROJPRM ;// 02.08.16 // STA !ROBJCPT ; LDA #0FFH STA >ITMTBL9 ; key count load JSL >MTRDSP ; mater display ; LDY #C_1W0 LDX #002H LDA MODTBL0 CMP #003H BCC MPI2122 ; kou-han ? ; ; yes LDX #002H MPI2122 EQU $ LDA GNDTBL+80H AND #01000000B BEQ MPI2123 ; master-sword on ? ; ; yes LDX #002H MPI2123 EQU $ LDA MODTBL0 CMP #002H BCS MPI2130 ; ame on ? ; ; yes LDX #003H MPI2130 EQU $ LDA >GDTRPF BEQ MPI2135 ; ura ? ; ; yes LDX #00DH LDA ITMTBL4 BNE MPI2135 ; suisyou-dama on ? ; ; no LDX #004H MPI2135 EQU $ STX !SNDSFG0 ; set flag JSL >WTRCBFS1 ; water character buffer set ; ;// 03.06.06 // LDA #00000010B ;// 03.06.06 // STA 2101H ; obj size,address set JSL >CHSCHNG ; character VRAM set ;// 03.05.29 // JSL >CHRCBS0 ; character buffer set JSR INCLST1 ; initial BG color set LDX ROJCTBL,X STA CGPTDT,X JSL >GCGCHNG ; ground cg. set JSL >NKCGST0 ; nuki ; LDA CGWORK+000H ;// 03.07.31 // STA >CGRAM+000H ;// 03.07.31 //; ;// 03.07.31 //;// 03.07.15 // LDA CGWORK+000H ;// 03.07.31 //;// 03.07.15 // STA >CGRAM+000H ;// 03.07.31 //; ;// 03.07.31 // MEM8 ;// 03.07.31 // IDX8 ;// 03.07.31 // SEP #00110000B ; memory,index 8bit mode ;// 03.07.31 //MPI2170 EQU $ ;// 03.07.31 // IDX8 ;// 03.07.31 // SEP #00010000B ; index 8bit mode JSL >KCOLSET ; kotei-color set LDA #000H STA >DKRMCG ; JSL >RAOPIT ; option init. ; LDA ITMCBFST ; mochiage-kinoko set MPI2170 EQU $ LDA #MD_gdply STA !NXSLMD ; next mode ; ;// 03.05.23 // JSL >ALCLER ; enemy clear JSL >GREDS2 ; ground enemy set LDA HYUSET MPI2180 EQU $ LDX #005H LDA >MODTBL0 CMP #002H BCS MPI2190 ; ame on ? ; ; yes LDX #001H MPI2190 EQU $ STX !SOUND1 ;// 03.09.26 // STX !SVSND1 ; ; LDA >OPMODE CMP #prnc1 BNE MPI2193 ; option-girl ? ; ; yes LDA #000H STA >OPMODE MPI2193 EQU $ STZ ITMTBL4 BNE MPI2194 ; suisyou-dama on ? ; ; no LDA >GDTRPF BEQ MPI2194 ; ura ? ; ; yes LDA #001H STA !RABFLG STA PLCGCN2 ; player CG. (rabit) set MPI2194 EQU $ LDA #00001001B STA DARKFG STZ !BGALCKF STZ SNDTR1 ; sound0 set ; LDA #10000001B STA 4200H ; NMI enable MPI2195 EQU $ RTS ; ; ; ; PRABCK EQU $ LDA >ITMTBL4 BEQ PRBC80 ; ; ; PRABC1 EQU $ LDA #LNMD STA MSGE_I ; message LDA BLANKING ; blanking on & H-DMA disable ;// 03.09.17 // LDA #10000000B ;// 03.09.17 // STA VRAMCL ; LDA >MODTBL3 PHA ; (A) push LDX !MSG_RTS LDA >SSCTPD,X STA >MODTBL3 STZ INIT10 ; danjyon set PLA ; (A) pull STA >MODTBL3 SSCT80 EQU $ RTL ; ; ; ; ; ;************************************************************************ ;* Ending Initial - 0 (ground) (ENDINT0) * ;************************************************************************ EIT0TBL EQU $ WORD EIT000 ; WORD EIT200 ; WORD EIT400 ; ; ; ENDINT0 EQU $ LDA BLANKING ; blanking on & H-DMA disable ;// 03.09.17 // LDA #10000000B ;// 03.09.17 // STA VRAMCL ; vram clear ; LDA #10000010B STA EGDPTD,X STA WTRCBFS1 ; water character buffer set ; LDA ECGXPD,X STA !ROBJCPT LDA >ECOLPD,X PHA ; (A) push JSL >CHSCHNG ; character VRAM set JSR INCLST1 ; initial BG color set PLA ; (A) pull STA CGPTDT,X JSL >GCGCHNG ; ground cg. set LDA #001H STA !BG3BGC JSL >B3CGSET ; BG.3 CG. set LDA MSGETNP ; message chara. buffer set JSL >ENDGVRMS ; ending character set EIT070 EQU $ JSR CGWKST ; (CGWORK) set ; JSL >KCOLSET ; kotei-color set ; LDA NKCGST0 ; nuki EIT080 EQU $ LDA #00001001B STA EDPLINT ; enemy init. ; STZ GGNDSCL ; gamen scroll check LDA !GDWTFG BEQ EDGSL40 ; write ? ; ; yes JSR MPMAIN EDGSL40 EQU $ RTL ; ; ; ; EIT800 EQU $ LDA #021H STA !CHIKNO LDA #03BH STA !RBGCPT LDA #02DH STA !ROBJCPT JSL >CHSCHNG ; character set LDX #05BH STX CGPTDT,X JSL >GCGCHNG ; ground CG. set LDA #003H STA !GNDBGC2 JSL >GDCGST2 JSR CGWKST2 ; (CGWORK) set ; JSR GB1WRT1 ; BG.1 write ; STZ BLANKING ; blanking on & H-DMA disable ;// 03.09.17 // LDA #10000000B ;// 03.09.17 // STA VRAMCL ; vram clear ; MEM16 REP #00100000B ; memory 16bit mode LDX EGDPTD,X STA !GOPOSF MEM8 SEP #00100000B ; memory 8bit mode JSR IIT1000 ; ram initial ; STZ !LGTWST STZ !LGTWFG JSR INBGWT1 ; initial BG data write ; LDX !CHIKNO LDA >WTRPTDT,X TAY JSL >WTRCBFS0 ; water character buffer set ; LDA ECGXPD,X STA !ROBJCPT LDA >ECOLPD,X ASL A ASL A TAX LDA >DJNCGDT+2,X STA !EYOJC0 LDA >DJNCGDT+3,X STA !EYOJC1 ; color set LDA #C_2W0 STA !OJBSPT JSL >CHSCHNG ; character VRAM set ; LDA #00AH STA !CHITEMJC JSR INCLST0 ; initial BG color set ; LDA #00001001B STA EDPLINT ; enemy init. RTL ; ; ; ; ;************************************************************************ ;* Play main (PLMAIN1) * ;************************************************************************ PM1TBL EQU $ p1move WORD MOVE ; 0 : move p1scl0 WORD SCROL0 ; 1 : scroll p1scl1 WORD SCROL1 ; 2 : scroll (& write) p1bchg WORD BGCHMV ; 3 : BG. change p1dopn WORD DOPNMV ; 4 : door open p1sdop WORD SDRMOV ; 5 : shutter door p1stpc WORD STPCHG ; 6 : step room change p1hldn WORD HLDOWN ; 7 : hole down p1mcng WORD MCSTPMV ; 8 : mode change step move ;// 03.06.11 //p1opyk WORD OPYKMV ; 9 : open yuka p1bmbd WORD BDRMOV ; A : bomb-door open p1ltwp WORD LGTWIPE ; B : light wipe p1wtrd WORD WRDWNMV ; C : water down p1wtru WORD WRUPMV ; D : watre up p1wgop WORD WGTOPMV ; E : water gate open p1kstp WORD STEPCN ; F : kabe step room change p1fdin WORD DJFDIN ;10 : fade in p1mcg1 WORD MCSTPM1 ;11 : mode change step move p1warp WORD WRPSCRL ;12 : warp-scroll (& write) p1sls0 WORD SCLSTEP ;13 : scroll-step (up-scroll) p1sls1 WORD SCLSTEP ;14 : scroll-step (down-scroll) p1hlrs WORD HLDRST ;15 : hole down reset p1dwrp WORD DJWARP ;16 : danjyon warp p1tmyk WORD TMYKCNG ;17 : tama-yuka change p1swon WORD YSWCHON ;18 : yuka-swich on p1plgn WORD PLGNDEMO ;19 : polygon demo p1rtrn WORD DJRETRN ;1A : Ura-danjyon return p1gnop WORD GNNDROP ;1B : ganon-door open ; ; p1_move EQU (p1move-p1move)/2 p1_scl0 EQU (p1scl0-p1move)/2 p1_scl1 EQU (p1scl1-p1move)/2 p1_bchg EQU (p1bchg-p1move)/2 p1_dopn EQU (p1dopn-p1move)/2 p1_sdop EQU (p1sdop-p1move)/2 p1_stpc EQU (p1stpc-p1move)/2 p1_hldn EQU (p1hldn-p1move)/2 p1_mcng EQU (p1mcng-p1move)/2 ;// 03.06.11 //p1_opyk EQU (p1opyk-p1move)/2 p1_bmbd EQU (p1bmbd-p1move)/2 p1_ltwp EQU (p1ltwp-p1move)/2 p1_wtrd EQU (p1wtrd-p1move)/2 p1_wtru EQU (p1wtru-p1move)/2 p1_wgop EQU (p1wgop-p1move)/2 p1_kstp EQU (p1kstp-p1move)/2 p1_fdin EQU (p1fdin-p1move)/2 p1_mcg1 EQU (p1mcg1-p1move)/2 p1_warp EQU (p1warp-p1move)/2 p1_sls0 EQU (p1sls0-p1move)/2 p1_sls1 EQU (p1sls1-p1move)/2 p1_hlrs EQU (p1hlrs-p1move)/2 p1_dwrp EQU (p1dwrp-p1move)/2 p1_tmyk EQU (p1tmyk-p1move)/2 p1_swon EQU (p1swon-p1move)/2 p1_plgn EQU (p1plgn-p1move)/2 p1_rtrn EQU (p1rtrn-p1move)/2 p1_gnop EQU (p1gnop-p1move)/2 ; ; ; PLMAIN1 EQU $ MEM8 IDX8 SEP #00110000B ; memory,index 16bit mode ; JSL >BGMVCHK ; BG. move data check ; ;// 03.02.26 // JSR PLMS000 LDA BLKPLY ; block play ; LDA SPOJCNG ; spacial OBJ change check ; JSR GMSLCK ; gamen scroll check ; LDA INFDCHK ; information data check ; LDA LMPTIMER ; lamp timer check ;;;;;;;; JSL >DRCHCK ; door open check ;;;;;;;; JSR >SWDRCK ; swich door check ;;;;;;;; JSL >ERDRCK ; erase door check ;;;;;;;; JSL >CDRCHCK ; certen check ; LDA !CWLFLG BEQ PLMN100 ; crush wall on ? ; ; yes JSL >CSWLPLY ; crush wall open PLMN100 EQU $ LDA LGTWPMV ; wipe move ;// 02.09.18 //PLMN120 EQU $ ; MEM16 REP #00100001B ; memory 16bit mode & CLC ; LDA BLCKOM ; block OAM set ; JSL >ENEMY ; enemy move ; MEM16 REP #00100000B ; memory 16bit mode ; PLA ; (A) pull STA PYOMST ; character set ; JSL >MTRDSP ; mater display ; JMP >FLNODSP ; floor no. display ; ; ; ;--------------------------------------- scroll check PLMN400 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDA PLJSCK ; player haiin check BCS PLMN490 ; scroll ok ? ; ; yes LDA SCRLST ; scroll set ; LDA SCLCKDT,X STA JSRSUBL LWORD XCALC00 ; right move LWORD XCALC01 ; left LWORD YCALC00 ; down LWORD YCALC1 ; up ; ; ; ; ;************************************************************************ ;* Move (MOVE) * ;************************************************************************ MOVE EQU $ LDA !SPMCFG ORA !PYALSP ORA !BSFLFG BEQ MV00 ; special magic on ? ; ; yes JMP MV300 ; MV00 EQU $ ;// 03.02.15 // LDA !MSGEFG ;// 03.02.15 // BNE MV50 ; message write ? ;// 03.02.15 //; ; no LDA ITMWIT ; window init. ;;;;; JSR INHDMA1 ; initial H-DMA ; STZ !ITEMMD LDA #p3_sitm BRA MV100 ; MV20 EQU $ LDA MODTBL0 BEQ MV300 ; start-demo ? ; ; no LDA !MSG_RTS STA !MRTS_BK ; MEM16 REP #00100000B ; memory 16bit mode ; LDA #MS_05E2 STA !MSGENOL ; MEM8 SEP #00100000B ; memory 8bit mode ; LDA MESWIT ; message init. PLA ; (A) pull STA PLMOVE ; Player move RTS ; ;// 03.06.27 //PLTEST EQU $ ;// 03.06.27 // LDX #008H ;// 03.06.27 //PLTS40 EQU $ ;// 03.06.27 // LDY #080H ;// 03.06.27 //PLTS80 EQU $ ;// 03.06.27 // DEY ;// 03.06.27 // BNE PLTS80 ;// 03.06.27 // DEX ;// 03.06.27 // BNE PLTS40 ;// 03.06.27 //; ;// 03.06.27 // LDA #000H ;// 03.06.27 // STA 2100H ;// 03.06.27 //; ;// 03.06.27 // JSL >PLMOVE ; enemy move ;// 03.06.27 //; ;// 03.06.27 // LDA #00FH ;// 03.06.27 // STA 2100H ;// 03.06.27 //; ;// 03.06.27 // RTS ; ; ; ;************************************************************************ ;* Scrol0 (SCROL0) * ;************************************************************************ SUBSTD EQU $ ; sub. screen set data ; 0 1 2 3 4 5 6 7 BYTE 000H,001H,001H,0FFH,001H,001H,001H,001H ; ; SBSRMD EQU $ ; sound boss-room WORD 000C8H,00033H,00007H,00020H UBOSSDT EQU $ ; ura-danjyon boss-room no. ; hokora shindn mori numa ice kame machi shisai WORD 00006H,0005AH,00029H,00090H,000DEH,000A4H,000ACH,0000DH SBSRED EQU $ ; yamabs0 EQU 00007H yamabs1 EQU 00017H ; ; SCRL0TBL EQU $ WORD SCL0000 ; 0 : CG. set WORD SCL0100 ; 1 : fade-out check WORD SHTDRCK ; 2 : shutter-door check WORD SCRLCK ; 3 : 1st. scroll WORD AUTOMV0 ; 4 : auto move - 0 WORD AUTOMV2 ; 5 : - 1 WORD SCL0100 ; 6 : fade-out check WORD SCL0END ; 7 : end ; ; SCROL0 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDA PYCRCN ; player character change ; LDA SDRPLY ; shutter door ; PLA ; (A) pull STA CCNGCT LDA #000H STA >CCNGED INC CCNGFG STA >CCNGCT LDA #0001FH STA >CCNGED STZ !CCNGPT ; fade-out set ; MEM8 SEP #00100000B ; memory 8bit mode ; STZ !SWCHF1 STZ !SWCHFG ; swich flag off ; INC DARKFG BEQ SCL0180 ; fade out ? ; ; yes JSL >CGCNG1 LDA >CCNGCT BEQ SCL0120 ; ; ; JSL >CGCNG1 SCL0120 EQU $ RTS ; SCL0180 EQU $ INC CHRCHNG ; OBJ. charcater change SCL1120 EQU $ JSL >RCHRCK ; character code set SCL1140 EQU $ JSL >PYCRCN ; player character change ; LDA MKROOM ; make room ; JSL >SWYKCNG0 ; swich-yuka reset ; JSL >CHRCBS1 ; Obj. change character buffer set ; INC ENDTST ; enemy data set ; LDA !LGTWFG BNE SCL020 ; light on ? ; ; no JSR GSCK420 ; SCCH,V reset MEM8 ;// 03.09.30 // MEM16 ;// 03.09.30 // REP #00100000B ; memory 16bit mode ;// 03.09.30 //; ;// 03.09.30 // LDA RCHRC1 ; character code set RTS ; ; ;---------------------------------------- BG.1 write SCL100 EQU $ LDA >DARKFG ORA >BKDARKF BEQ SCL140 ; fade out ? ; ; yes STZ XYCALC ; X,Y-move ; JSL >OJCHCNG ; OBJ. character buffer set ; JSR GSCK420 ; SCCH,V reset MEM8 ;// 03.09.30 // MEM16 ;// 03.09.30 // REP #00100000B ; memory 16bit mode ;// 03.09.30 //; ;// 03.09.30 // LDA WBUFS1 ; BG1. write buffer set INC DARKFG ORA >BKDARKF BEQ SCL240 ; fade out ? ; ; yes SCL220 EQU $ JSL >CGCNG1 SCL240 EQU $ JSL >WBUFS1 ; BG1. write buffer set INC DARKFG ORA >BKDARKF BEQ SCL340 ; fade out ? ; ; yes SCL320 EQU $ JSL >CGCNG1 SCL340 EQU $ JSL >WBUFS0 ; BG.2 write buffer set INC DKRMCG ;// 03.03.29 // BEQ SCL440 ; dark ? ;// 03.03.29 //; ; yes ;// 03.03.29 // JSL >DKRMCGST ; fade ;// 03.03.29 // AND #00011111B ;// 03.03.29 // CMP >DKRMCG ;// 03.03.29 // BNE SCL480 ; end ? ;// 03.03.29 //; ; yes ;// 03.03.29 //SCL440 EQU $ ;// 03.03.29 // INC DARKFG ORA >BKDARKF BEQ SCL520 ; fade out ? ; ; yes JSL >CGCNG1 SCL520 EQU $ INC SUBSTD,X BPL SCL550 ; BG.1 main-gamen ? ; ; yes LDY #00010111B LDA #00000000B SCL550 EQU $ CPX #002H BNE SCL560 ; ; ; LDA #00000011B SCL560 EQU $ STY LMPCHCK ; lamp on/off check ; ;// 03.03.19 // LDA >DARKFG ;// 03.03.19 // BNE SCL580 ; dark-room ? ;// 03.03.19 //; ; no ;// 03.03.19 // LDA #01100010B ;// 03.03.19 // CPX #007H ;// 03.03.19 // BEQ SCL560 ; gamen plus ? ;// 03.03.19 //; ; no ;// 03.03.19 //;// 02.10.16 // CPX #003H ;// 03.03.19 // CPX #004H ;// 03.03.19 // BEQ SCL560 ; gamen plus ? ;// 03.03.19 //; ; no ;// 03.03.19 // LDA #00100000B ;// 03.03.19 //SCL560 EQU $ ;// 03.03.19 // STA BMCLER ; beam clear LDA !DASHFG BEQ SCL590 ; dash ? ; ; yes STZ SUBSTD,X ;// 02.10.04 // BPL SCL610 ; BG.1 main-gamen ? ;// 02.10.04 //; ; yes ;// 02.10.04 // LDY #00010111B ;// 02.10.04 // LDA #00000000B ;// 02.10.04 //SCL610 EQU $ ;// 02.10.04 // STY SUBSTD,X BEQ SCL610 ; sub on ? ; ; yes LDY #00116H ;// 03.09.04 // CMP #0FFH ;// 03.09.04 // BNE SCL610 ; BG.1 main-gamen ? ;// 03.09.04 //; ; yes ;// 03.09.04 // LDY #00017H SCL610 EQU $ CPY BKGSUBF ;// 03.03.19 // BEQ SCL620 ; ;// 03.03.19 //; ; ;// 03.03.19 // CMP #007H ;// 03.03.19 // BEQ SCL620 ; before gamen plus ? ;// 03.03.19 //; ; no ;// 03.03.19 // CMP #004H ;// 03.03.19 // BNE SCL630 ; before gamen plus ? ;// 03.03.19 //; ; yes ;// 03.03.19 //SCL620 EQU $ ;// 03.03.19 // LDA #01100010B ;// 03.03.19 // CPX #000H ;// 03.03.19 // BEQ SCL630 ; 2131H set ? ;// 03.03.19 //; ; no ;// 03.03.19 // CPX #007H ;// 03.03.19 // BEQ SCL625 ; gamen plus ? ;// 03.03.19 //; ; no ;// 03.03.19 //;// 02.10.16 // CPX #003H ;// 03.03.19 // CPX #004H ;// 03.03.19 // BEQ SCL625 ; gamen plus ? ;// 03.03.19 //; ; no ;// 03.03.19 // LDA #00100000B ;// 03.03.19 //SCL625 EQU $ ;// 03.03.19 // STA DARKFG ORA >BKDARKF BEQ SCL660 ; CG. change ? ; ; yes LDX #003H LDA >DARKFG BEQ SCL640 ; dark CG. set ? ; ; yes LDX !LGTWST SCL640 EQU $ LDA >DARKDT,X STA >DKRMCG JSL >WD2132ST ; R.G.B. ;// 03.05.29 // ORA #00100000B ;// 03.05.29 // STA CCNGED SCL660 EQU $ ;// 03.03.19 // LDA DARKFG ;; ORA >BKDARKF ;; BEQ SCL680 ; fade out ? ;;; ; yes ;; JSL >CGCNG1 SCL680 EQU $ RTS ; ;// 03.08.06 //; ;// 03.08.06 //;---------------------------------------- scroll & fade check ;// 03.08.06 //SCL700 EQU $ ;// 03.08.06 // JSR SCRLCK ; scroll ;// 03.08.06 // RTS ;// 03.08.06 //; ; ;// 03.03.29 //;---------------------------------------- dark check ;// 03.03.29 //SCL800 EQU $ ;// 03.03.29 // LDA >DKRMCG ;// 03.03.29 // BNE SCL840 ; dark ? ;// 03.03.29 //; ; no ;// 03.03.29 // JSL >DKRMCGST ; fade ;// 03.03.29 // AND #00011111B ;// 03.03.29 // BNE SCL880 ; end ? ;// 03.03.29 //; ; yes ;// 03.03.29 //SCL840 EQU $ ;// 03.03.29 // INC DARKFG ORA >BKDARKF BEQ SCLC40 ; fade out ? ; ; yes JSL >CGCNG1 LDA >CCNGCT BEQ SCLC20 ; ; ; JSL >CGCNG1 SCLC20 EQU $ RTS ; SCLC40 EQU $ INC SBSRMD,X BNE SCLDC10 ; boss room ? ; ; yes MEM8 SEP #00100000B ; memory 8bit mode ; JSL >EFLCHK ; BCS SCLDC40 ; boss on ? ; ; yes LDX #015H SCLDC20 EQU $ STX !SOUND0 ;// 03.09.16 // STX !SVSND0 ; SCLDC40 EQU $ MEM8 SEP #00100000B ; memory 8bit mode RTS ; ; ; ; ;************************************************************************ ;* BG. change move (BGCHMV) * ;************************************************************************ BGCHMV EQU $ JSL >BGCHNG ; BG. change RTS ; ; ; ; ;************************************************************************ ;* Door open (DOPNMV) * ;************************************************************************ DOPNMV EQU $ JSL >DOPPLY ; door open RTS ; ; ; ; ;************************************************************************ ;* Shutter door (SDRMOV) * ;************************************************************************ SDRMOV EQU $ JSL >SDRPLY ; shutter door RTS ; ; ; ;************************************************************************ ;* Step room change (STPCHG) * ;************************************************************************ STPCHG EQU $ LDA RCHRCK ; character code set STCH10 EQU $ ;// 03.08.06 // LDA SCGCNG ; fade in ;// 03.08.06 //; ;// 03.08.06 // JSL >DKRMCGST ; fade ;// 03.08.06 //STCH15 EQU $ LDA CHRCHNG ; OBJ. character change ; LDA !SPMVCT BEQ STCH60 ; move end ? ; ; no DEC !SPMVCT CMP #010H BNE STCH20 ; step move ? ; ; yes LDA #002H STA PYSPST ; player move ; JSR GMSLCK ; gamen scroll check STCH40 EQU $ JSL >PYCRCN ; player character change STCH60 EQU $ LDA JSRSUB WORD SPCH000 ; 0 : CG. work set WORD SPCH150 ; 1 : CG. change (fade out) WORD SPCH100 ; 2 : room making WORD BGCCHG0 ; 3 : BG. character change-0 WORD BGCCHG1 ; 4 : -1 WORD SPCH200 ; 5 : enemy data set & new color set WORD SPCH300 ; 6 : BG.1 write WORD SCL340 ; 7 : BG2. write WORD SCL240 ; 8 : BG1. write WORD SCL340 ; 9 : BG2. write WORD SCL220 ; A : BG1. write WORD SCL320 ; B : BG2. write WORD SCL220 ; C : BG1. write WORD SCL320 ; D : BG2. write WORD STPC100 ; E : fade in WORD SCL520 ; F : player auto move init. WORD SPCH400 ;10 : end check ; ; ; STPC000 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDA ITEMR53 LSR A BCS STPC015 ; boss on ? ; ; yes LDX #0F1H STX !SOUND0 ;// 03.09.16 // STX !SVSND0 ; STPC015 EQU $ MEM8 SEP #00100000B ; memory 8bit mode ; LDX #058H LDA !STPFLG AND #00000100B BEQ STPC020 ; up move ? ; ; no LDX #06AH STPC020 EQU $ STX !SPMVCT SPCH000 EQU $ STZ !ITEMMD ; ;<< 03.03.29 >> IDX8 ;<< 03.03.29 >> SEP #00010000B ; index 8bit mode ;<< 03.03.29 >>; ;<< 03.03.29 >> LDA >CCNGED ;<< 03.03.29 >> STA >CCNGCT ;<< 03.03.29 >> LDA #01FH ;<< 03.03.29 >> STA >CCNGED SPCH040 EQU $ MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA #00000H STA >MZKCNT STA >CCNGFG STA >CCNGCT LDA #0001FH STA >CCNGED STZ !CCNGPT ; fade-out set ; ;// 02.09.17 // PHB ; (DBR) push ;// 02.09.17 // LDA #001FFH ;// 02.09.17 // LDX #CGWORK ;// 02.09.17 // LDY #CGRAM ;// 02.09.17 //;// 02.04.17 // MVN #BANK CGWORK,#BANK CGRAM ;// 02.09.17 // MVN #07EH,#07EH ;// 02.09.17 // PLB ; (DBR) PULL ; STZ !LGTWST LDA !LGTWFG BEQ SPCH060 ; light-wipe on ? ; ; yes LDA #1011001100000010B STA MKROOM ; make room ; JSL >SWYKCNG0 ; swich-yuka reset ; JSL >CHRCBS0 ; BG.Obj. change character buffer set ; JSL >DJCODST ; read code change ; LDA RAOPIT ; option init. ; INC CGCNG1 LDA >CCNGCT BEQ SPCH180 ; ; ; JSL >CGCNG1 SPCH180 EQU $ RTS ; ; SPCH200 EQU $ JSL >OJCHCNG ; OBJ. character buffer set ; JSL >ENDTST ; enemy data set ; ;// 03.04.18 // LDX !STPDPT ;// 03.04.18 // LDA >CDBGCD,X ;// 03.04.18 // STA !CDBGCKF ;// 03.04.18 // LDA >PLBGCD,X ;// 03.04.18 // STA XYCALC ; X,Y-move ; LDY #00010110B LDX !GSUBFG LDA >SUBSTD,X BPL SPCH320 ; BG.1 main-gamen ? ; ; yes LDY #00010111B LDA #00000000B SPCH320 EQU $ STY ; LDA #024H STA !SOUND3 ; JSR FLNODP ; fllor no. display flag on ; JMP SCL240 ; ; ; SPCH400 EQU $ LDA >CCNGFG ORA >CCNGCT BEQ SPCH410 ; fade end ? ; ; no SPCH405 EQU $ RTS ; SPCH410 EQU $ LDA !ITEMMD CMP #RCKED BNE SPCH405 ; code set end ? ; ; yes SPCH420 EQU $ STZ !ITEMMD STZ HLSCH2 LDA HLSCV2 LDA HLYPS1 LDA HLXPS1 LDA !SCVU STA >HLSCVU LDA !SCVD STA >HLSCVD LDA !SCHL STA >HLSCHL LDA !SCHR STA >HLSCHR LDA !SCKY00 STA >HLSY00 LDA !SCKY10 STA >HLSY10 LDA !SCKX00 STA >HLSX00 LDA !SCKX10 STA >HLSX10 LDA !PYUPCT STA >HLUPCT LDA !PXLFCT STA >HLLFCT LDA HLCKXF LDA HLXCPT ; MEM8 SEP #00100000B ; memory 8bit mode ; LDA HLMKCH LDA HLPLBG LDA !CDBGCKF STA >HLCDBG LDA HLPWK6 LDA HLFLNO SPCH440 EQU $ RTS ; ; ; ;---------------------------------------- BGCCHG0 EQU $ JSL >BGCHCNG ; BG. character buffer set ; LDA #bgw9 STA RCHRC1 ; character code set RTS ; ; ; ;************************************************************************ ;* Hole down (HLDOWN) * ;************************************************************************ HLDOWN EQU $ LDA CHRCHNG ; OBJ. character change ; JSL >RCHRCK ; character code set ; JSL >DKRMCGST ; fade HLDWN40 EQU $ LDA JSRSUB WORD HLDN000 ; 0 : CG. work set WORD DKCGCG1 ; 1 : CG. change (fade out) WORD SPCH100 ; 2 : room making WORD BGCCHG0 ; 3 : BG. character change-0 WORD BGCCHG1 ; 4 : -1 WORD SPCH200 ; 5 : enemy data set & new color set WORD HLDN100 ; 6 : BG.1 write WORD SCL340 ; 7 : BG2. write WORD SCL240 ; 8 : BG1. write WORD SCL340 ; 9 : BG2. write WORD SCL240 ; A : BG1. write WORD SCL340 ; B : BG2. write WORD SCL240 ; C : BG1. write WORD SCL340 ; D : BG2. write WORD SCL520 ; E : player auto move init. WORD HLDN300 ; F : fade in & player pos. reset WORD HLDN500 ;10 : player fade in WORD HLDN800 ;11 : end ; ; HLDN000 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDA HLDN040 EQU $ MEM8 SEP #00100000B ; memory 8bit mode ; JMP SPCH000 ; ; ; HLDN100 EQU $ ;;;;;;;; LDX HLINFF ;;;;;;;; LDA >CDBGCD,X ;;;;;;;; STA !CDBGCKF ;;;;;;;; LDA >PLBGCD,X ;;;;;;;; STA XYCALC ; X,Y-move ; LDY #00010110B LDX !GSUBFG LDA >SUBSTD,X BPL HLDN130 ; BG.1 main-gamen ? ; ; yes LDY #00010111B LDA #00000000B HLDN130 EQU $ STY WBUFS1 ; BG1. write buffer set INC CGCNG1 LDA >CCNGFG BNE HLDN360 ; ; ; LDA ; JSL >MPBTSET ; map on/off bit set HLDN360 EQU $ RTS ; HLDN380 EQU $ STZ !FLNODFG ; fllor no. clear LDA #001H STA PLAFHL ; Player fade-in LDA SPOJCNG HLDN580 EQU $ RTS ; ; HLDN800 EQU $ LDA !ITEMMD CMP #RCKED BNE HLDN880 ; code set end ? ; ; yes JSR SPCH420 ; end ; JSR SCLDC00 ; end & BGM. check ; JSL >SPOJCNG HLDN880 EQU $ RTS ; ; ; ; ;************************************************************************ ;* Mode change step move (MCSTPMV) * ;************************************************************************ MCSTPMV EQU $ LDA !SPMVCT BEQ MSPM60 ; move end ? ; ; no DEC !SPMVCT CMP #014H BNE MSPM20 ; step move ? ; ; yes LDA #002H STA PYSPST ; player move ; JSL >HPMV400 ; not door move set ; JSR GMSLCK ; gamen scroll check MSPM40 EQU $ JSL >PYCRCN ; player character change MSPM60 EQU $ LDA JSRSUB WORD MSPM000 ; 0 : init. set WORD MSPM400 ; 1 : move ; ; ; MSPM000 EQU $ STZ !ASWFLG ; asase flag off ; LDY #019H LDX #03CH LDA ; LDA #001H STA MPBTSET ; map on/off bit set RTS ; ; ; ;************************************************************************ ;* Mode change step move (MCSTPM1) * ;************************************************************************ MCSTPM1 EQU $ LDA !SPMVCT BEQ MSP160 ; move end ? ; ; no DEC !SPMVCT CMP #014H BNE MSP120 ; step move ? ; ; yes LDA #002H STA PYSPST ; player move ; JSL >HPMV400 ; not door move set ; JSR GMSLCK ; gamen scroll check MSP140 EQU $ JSL >PYCRCN ; player character change MSP160 EQU $ LDA JSRSUB WORD MSP1000 ; 0 : init. set WORD MSP1400 ; 1 : move ; ; ; MSP1000 EQU $ LDY #019H LDX #03CH LDA ; LDA #001H STA MPBTSET ; map on/off bit set MSP1440 EQU $ RTS ; ; ; ;;;MSPM000 EQU $ ;;; LDX #024H ;;; LDA RSTSET ; room status set ;// 02.11.08 // ;;; LDA RSTSET ; room status set ;;; LDA MPBTSET ; map on/off bit set ;;;MSPM440 EQU $ ;;; RTS ;;;; ;;;; ; ;// 03.06.11 //; ;// 03.06.11 //;************************************************************************ ;// 03.06.11 //;* Open yuka move (OPYKMV) * ;// 03.06.11 //;************************************************************************ ;// 03.06.11 //OPYKMV EQU $ ;// 03.06.11 // JSL >OPYKPL ;// 03.06.11 // RTS ;// 03.06.11 //; ; ; ; ;************************************************************************ ;* Bomb-door open move (BDRMOV) * ;************************************************************************ BDRMOV EQU $ JSL >BDROPEN RTS ; ; ; ; ;************************************************************************ ;* Light wipe move (LGTWIPE) * ;************************************************************************ LGTWIPE EQU $ JSL >LGTWPMV ; JSL >DKRMCGST ; fade LDA >WD2132R AND #00011111B CMP >DKRMCG BNE LTWP080 ; end ? ; ; yes STZ WRDWN00 RTS ; ; WRDWN00 EQU $ LDA JSRSUBL LWORD WTRDOWN ; 0 : water down LWORD WTRCLR0 ; 1 : BG.1 water clear init. LWORD WTRCLR1 ; 2 : write-0 LWORD WTRCLR1 ; 3 : write-1 LWORD WTRCLR1 ; 4 : write-2 LWORD WTRCLR1 ; 5 : write-3 ; ; ; ;************************************************************************ ;* Water up move (WRUPMV) * ;************************************************************************ WRUPMV EQU $ JSL >WTRUPP ; water up RTS ; ; ; ;************************************************************************ ;* Water gate open move (WGTOPMV) * ;************************************************************************ WGTOPMV EQU $ JSL >WGTOPEN ; water gate open RTS ; ; ; ;************************************************************************ ;* Rasen Step room change (STEPCN) * ;************************************************************************ STEPCN EQU $ LDA CHRCHNG ; OBJ. character change ; JSL >RCHRCK ; character code set ;// 03.08.05 //STPC20 EQU $ ;// 03.08.05 // LDA DKRMCGST ; fade ;// 03.08.05 //; ;// 03.08.05 // LDA >CCNGFG ;// 03.08.05 // BEQ STPC40 ; CG. change ? ;// 03.08.05 //; ; yes ;// 03.08.05 // JSL >SCGCNG ; fade in ;// 03.08.05 //STPC40 EQU $ STPC20 EQU $ JSL >RASNIN ; player move STPC60 EQU $ LDA JSRSUB WORD STPC600 ;00 : BG. rewrite WORD STPC000 ;01 : CG. work set WORD STPC200 ;02 : CG. change (fade out) WORD SPCH100 ;03 : room making WORD BGCCHG0 ;04 : BG. character change-0 WORD BGCCHG1 ;05 : -1 WORD SPCH200 ;06 : enemy data set & new color set WORD STPC300 ;07 : BG.1 write WORD SCL340 ;08 : BG2. write WORD SCL240 ;09 : BG1. write WORD SCL340 ;0A : BG2. write WORD SCL220 ;0B : BG1. write WORD SCL320 ;0C : BG2. write WORD SCL220 ;0D : BG1. write WORD SCL320 ;0E : BG2. write WORD STPC100 ;0F : fade in WORD STPC380 ;10 : player auto move init. WORD STPC400 ;11 : end check WORD STPC500 ;12 : end move WORD STPC700 ;13 : end write ; ; STPC100 EQU $ JSL >CGCNG1 ; fade in JSL >CGCNG1 ; fade in ; JSL >DKRMCGST RTS ; ; ; STPC200 EQU $ LDA !SPMVCT CMP #009H BCS STPC240 ; fade out ok ? ; ; yes JSL >CGCNG1 ; CG. change LDA >CCNGCT BEQ STPC240 ; ; ; JSL >CGCNG1 ; CG. change STPC240 EQU $ LDA !SPMVCT BNE STPC280 ; fade out ok ? ; ; yes LDA #OMS000 STA OPMODE CMP #prnc1 BNE STPC310 ; option-girl ? ; ; yes LDA OPMODE STPC310 EQU $ LDA PLBGCD,X STA SCGCNG ; fade in ; IDX16 REP #00010000B ; index 16bit mode ; LDX #0FFD0H LDA !STPFLG AND #00000100B BNE STPC330 ; up ? ; ; yes LDX #00030H STPC330 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; TXA CLC ADC XYCALC ; X,Y-move ; LDY #00010110B LDX !GSUBFG LDA >SUBSTD,X BPL STPC335 ; BG.1 main-gamen ? ; ; yes LDY #00010111B LDA #00000000B STPC335 EQU $ CPX #002H BNE STPC337 ; ; ; LDA #00000011B STPC337 EQU $ STY LMPCHCK ; lamp on/off check ; JMP SCL240 ; ; STPC380 EQU $ JSR PFLGCL ; player flag clear ; LDA #038H STA !SPMVCT ; INC ITEMR53 LSR A BCS STPC395 ; boss on ? ; ; yes STPC390 EQU $ STX !SOUND0 ;// 03.09.16 // STX !SVSND0 ; STPC395 EQU $ MEM8 SEP #00100000B ; memory 8bit mode RTS ; ; STPC400 EQU $ JSL >RASNOT ; move STPC410 EQU $ DEC !SPMVCT BNE STPC440 ; fade in end ? ; ; yes ;// 03.03.04 // BCS STPC440 ; fade in end ? ;// 03.03.04 //; ; yes LDX #00AH LDA !STPFLG AND #00000100B BNE STPC420 ; up move ? ; ; yes LDX #018H STPC420 EQU $ STX !SPMVCT INC RASNOT ; move ; DEC !SPMVCT BNE STPC540 ; end ? ; ; yes INC RASENW0 ; rasen rewrite-0 ; LDA CDBGCD,X STA !CDBGCKF LDA >PLBGCD,X STA RASENW1 ; rasen rewrite-1 STPC780 EQU $ LDA STPRPX,X STA STPRPY,X STA RAOPIT ; option init. ; REP #00100000B ; memory 16bit mode RTL ; ; MEM8 STPC860 EQU $ LDA !STPDPT CMP #002H BEQ STPC880 ; rasen under ? ; ; no LDA #00010000B TSB RAOPIT ; option init. ; REP #00100000B ; memory 16bit mode RTL ; ; MEM8 IDX8 STPCZ00 EQU $ LDA !STPFLG AND #00000100B BNE STPCZ80 ; down move ? ; ; no MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; ;// 03.02.13 // LDA UPADR0,X ;// 03.02.13 // SEC ;// 03.02.13 // SBC #00006H+00008H ;// 03.02.13 // TAX ;// 03.02.13 // LDA !STPDPT ;// 03.02.13 // AND #0000FH ;// 03.02.13 // BEQ STPCZ30 ; normal ? ;// 03.02.13 //; ; no ;// 03.02.13 // TXA ;// 03.02.13 // CLC ;// 03.02.13 // ADC #000180H ;// 03.02.13 // TAX ;// 03.02.13 // LDA !STPDPT ;// 03.02.13 // AND #0000FH ;// 03.02.13 // CMP #00002H ;// 03.02.13 // BNE STPCZ30 ; BG.1 ? ;// 03.02.13 //; ; yes ;// 03.02.13 // TXA ;// 03.02.13 // ORA #02000H ;// 03.02.13 // TAX ;// 03.02.13 //STPCZ30 EQU $ ; ;// 03.02.19 // LDX #00020H ;// 03.02.19 // LDA !STPFLG ;// 03.02.19 // AND #00008H ;// 03.02.19 // BNE STPCZ10 ; ;// 03.02.19 //; ; ;// 03.02.19 // LDX #0FFE0H ;// 03.02.19 //STPCZ10 EQU $ ;// 03.02.19 // STX ROOMBF+000H,X ORA #02000H STA >ROOMBF+000H,X LDA >ROOMBF+080H,X ORA #02000H STA >ROOMBF+080H,X LDA >ROOMBF+100H,X ORA #02000H STA >ROOMBF+100H,X LDA >ROOMBF+180H,X ORA #02000H STA >ROOMBF+180H,X INX INX DEY BPL STPCZ40 ; ; ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode STPCZ80 EQU $ RTS ; ; ; ;************************************************************************ ;* Danjyon fade-in (DJFDIN) * ;************************************************************************ DJFITBL EQU $ WORD DJFI000 WORD DJFI200 ; ; DJFDIN EQU $ LDA PYCRCN ; player character change ; JSL >PYOMST ; character set RTS ; ; ; DJFI000 EQU $ JSL >WIPEIT1 INC ENEMY ; enemy move ; JSL >WIPEMV ; LDA DJFI240 EQU $ RTS ; ; ; ;************************************************************************ ;* Warp-Scroll (WRPSCRL) * ;************************************************************************ WRPSCRL EQU $ ;// 03.07.31 // LDA RCHRCK ; character code set ;// 03.07.31 //WRPS020 EQU $ ;// 03.07.31 // LDA CCNGFG ;// 03.07.31 // BEQ WRPS040 ; ;// 03.07.31 //; ; ;// 03.07.31 // JSL >CGCNG1 ;// 03.07.31 //WRPS040 EQU $ ;// 03.07.31 // LDA CHRCHNG ;// 03.07.31 //WRPS080 EQU $ ;// 03.07.31 // JSL >PYCRCN ; player character change ;// 03.07.31 //; ;// 03.07.31 // LDA JSRSUB ;// 03.07.31 // WORD SPCH000 ; 0 : CG. work set ;// 03.07.31 // WORD WPSL000 ; 1 : CG. change ;// 03.07.31 // WORD WPSL100 ; 2 : room making ;// 03.07.31 // WORD WPSL200 ; 3 : BG. character change-0 ;// 03.07.31 // WORD WPSL300 ; 4 : -1 ;// 03.07.31 // WORD WPSL400 ; 5 : BG. write ;// 03.07.31 // WORD WPSL500 ; 6 : BG. write ;// 03.07.31 // WORD WPSL400 ; 7 : BG. write ;// 03.07.31 // WORD WPSL500 ; 8 : BG. write ;// 03.07.31 // WORD WPSL600 ; 9 : enemy data set & new color set ;// 03.07.31 // WORD WPSRLCK ; A : scroll ;// 03.07.31 // WORD SCL240 ; B : BG. write ;// 03.07.31 // WORD SCL340 ; C : BG. write ;// 03.07.31 // WORD SCL240 ; D : BG. write ;// 03.07.31 // WORD SCL340 ; E : BG. write ;// 03.07.31 // WORD WPSL700 ; F : character code set ;// 03.07.31 // WORD AUTOMV0 ; 10 : auto move - 0 ;// 03.07.31 // WORD AUTOMV2 ; 11 : - 1 ;// 03.07.31 // WORD SPCH420 ; 12 : end ;// 03.07.31 //; ;// 03.07.31 //; ;// 03.07.31 //; ;// 03.07.31 //WPSL000 EQU $ ;// 03.07.31 // JSL >CGCNG1 ; CG. change ;// 03.07.31 //; ;// 03.07.31 // LDA >CCNGCT ;// 03.07.31 // CMP #017H ;// 03.07.31 // BNE WPSL040 ; next ? ;// 03.07.31 //; ; yes ;// 03.07.31 // INC CGCNG1 ; CG. change ;// 03.07.31 //; ;// 03.07.31 // LDA MKROOM ; make room ;// 03.07.31 //; ;// 03.07.31 // JSL >CHRCBS0 ; BG.Obj. chage character buffer set ;// 03.07.31 //; ;// 03.07.31 // JSL >DJCODST ; read code change ;// 03.07.31 //; ;// 03.07.31 // JSL >XYCALC ; ;// 03.07.31 //; ;// 03.07.31 // INC CGCNG1 ; CG. change ;// 03.07.31 //; ;// 03.07.31 // JSR BGCCHG0 ; BG. character change-0 ;// 03.07.31 // RTS ;// 03.07.31 //; ;// 03.07.31 //; ;// 03.07.31 //WPSL300 EQU $ ;// 03.07.31 // JSL >CGCNG1 ; CG. change ;// 03.07.31 //; ;// 03.07.31 // JSR BGCCHG1 ; BG, character change-1 ;// 03.07.31 // RTS ;// 03.07.31 //; ;// 03.07.31 //; ;// 03.07.31 //WPSL400 EQU $ ;// 03.07.31 // JSL >CGCNG1 ; CG. change ;// 03.07.31 //; ;// 03.07.31 // JSR SCL240 ; BG. write ;// 03.07.31 // RTS ;// 03.07.31 //; ;// 03.07.31 //; ;// 03.07.31 //WPSL500 EQU $ ;// 03.07.31 // JSL >CGCNG1 ; CG. change ;// 03.07.31 //; ;// 03.07.31 // JSR SCL340 ; BG. write ;// 03.07.31 // RTS ;// 03.07.31 //; ;// 03.07.31 //; ;// 03.07.31 //WPSL600 EQU $ ;// 03.07.31 // JSL >CGCNG1 ; CG. change ;// 03.07.31 // DEC OJCHCNG ; OBJ. character buffer set ;// 03.07.31 //; ;// 03.07.31 // JSL >ENDTST ; enemy data set ;// 03.07.31 //; ;// 03.07.31 // JMP DARK000 ; new CG. set ;// 03.07.31 //; ;// 03.07.31 //; ;// 03.07.31 //WPSL700 EQU $ ;// 03.07.31 // LDA !ITEMMD ;// 03.07.31 // CMP #RCKED ;// 03.07.31 // BNE WPSL740 ; character code set end ? ;// 03.07.31 //; ; yes ;// 03.07.31 // LDA >CCNGFG ;// 03.07.31 // BNE WPSL740 ; ;// 03.07.31 //; ; ;// 03.07.31 // INC RCHRCK ; character code set SCLST20 EQU $ ;// 03.08.06 // LDA CCNGFG ;// 03.08.06 // BEQ SCLST40 ; ;// 03.08.06 //; ; ;// 03.08.06 // JSL >SCGCNG ;// 03.08.06 //; ;// 03.08.06 // JSL >DKRMCGST ; fade ;// 03.08.06 //SCLST40 EQU $ LDA CHRCHNG SCLST60 EQU $ LDA !SPMVCT BEQ SCLST200 ; move end ? ; ; no DEC !SPMVCT CMP #010H BNE SCLST70 ; step move ? ; ; yes LDA #002H STA STRTIN ; scroll-step in ;// 03.08.20 // BRA SCLST200 ;// 03.08.20 //; ;// 03.08.20 //SCLST120 EQU $ ;// 03.08.20 // LDA !STPFLG ;// 03.08.20 // AND #00000100B ;// 03.08.20 // BNE SCLST140 ; up ? ;// 03.08.20 //; ; yes ;// 03.08.20 // LDA STRTOT ; scroll-step out ;// 03.08.20 // BRA SCLST200 ; SCLST140 EQU $ JSL >PYSPST ; player move SCLST200 EQU $ JSL >PYCRCN ; player character change ; LDA JSRSUB WORD SLST000 ; 0 : CG. work set WORD SLST050 ; 1 : CG. change (fade out) WORD SLST100 ; 2 : room making WORD SLST200 ; 3 : BG. character change-0 WORD SLST300 ; 4 : -1 WORD SCL220 ; 5 : BG. write WORD SCL320 ; 6 : BG. write WORD SCL220 ; 7 : BG. write WORD SCL320 ; 8 : BG. write WORD SLST700 ; 9 : enemy data set & new color set WORD WPSRLCK ; A : scroll WORD SLST400 ; B : BG. write WORD SCL340 ; C : BG. write WORD SCL240 ; D : BG. write WORD SCL340 ; E : BG. write WORD STPC100 ; F : fade in WORD SLST800 ; 10 : character code set WORD SLST900 ; 11 : end check WORD SPCH420 ; 12 : end ; ; ; SLST000 EQU $ LDA !DASHFG BEQ SLST010 STZ !DASHFG LDA #002H STA ; MEM16 REP #00100000B ; memory 16bit mode ; LDA CGCNG1 ; CG. change ; LDA >CCNGCT CMP #017H BNE SLST090 ; next ? ; ; yes INC CGCNG1 ; CG. change ; JSL >MKROOM ; make room ; JSL >SWYKCNG ; swich-yuka reset ; JSL >CHRCBS0 ; BG.Obj. chage character buffer set ; JSL >DJCODST ; read code change ; JSL >XYCALC ; ; JSL >RAOPIT ; option init. ; INC CGCNG1 ; CG. change ; JSR BGCCHG0 ; BG. character change-0 RTS ; ; SLST300 EQU $ JSL >CGCNG1 ; CG. change ; JSR BGCCHG1 ; BG, character change-1 ; LDA ENDTST ; enemy data set RTS ; ; SLST400 EQU $ LDY #00010110B LDX !GSUBFG LDA >SUBSTD,X BPL SLST410 ; ; ; LDY #00010111B LDA #00000000B SLST410 EQU $ STY ; STZ CDBGCD,X STA !CDBGCKF LDA >PLBGCD,X STA BG.2 ? ; ; yes MEM16 REP #00100000B ; memory 16bit mode ; LDA #0000CH CPY #p1_sls0 BNE SLST470 ; ; ; IDX16 REP #00010000B ; index 16bit mode ; LDX #0FFE8H LDA !STPFLG AND #00000100B BNE SLST465 ; up ? ; ; no LDX #0FFF8H SLST465 EQU $ TXA SLST470 EQU $ CLC ADC LMPCHCK ; lamp on/off check ; JMP SCL240 ; BG. write ; ; ;// 03.08.06 //;/ ;// 03.08.06 //SLST500 EQU $ ;// 03.08.06 // JSL >CGCNG1 ; CG. change ;// 03.08.06 //; ;// 03.08.06 // JMP SCL240 ; BG. write ;// 03.08.06 //; ;// 03.08.06 //; ;// 03.08.06 //SLST600 EQU $ ;// 03.08.06 // JSL >CGCNG1 ; CG. change ;// 03.08.06 //; ;// 03.08.06 // JMP SCL340 ; BG. write ;// 03.08.06 //; ; ; SLST700 EQU $ JSL >CGCNG1 ; CG. change DEC OJCHCNG ; OBJ. character buffer set ; JMP DARK000 ; new CG. set ; ; SLST800 EQU $ LDA !ITEMMD CMP #RCKED BNE SLST840 ; character code set end ? ; ; yes LDA >CCNGFG BNE SLST840 ; ; ; INC DKRMCGST ; fade RTS ; ; SLST900 EQU $ LDA !SPMVCT BNE SLST840 ; move end ? ; ; yes INC JSRSUB WORD HLDR000 ; 0 : scroll WORD HLDR200 ; 1 : reset ; ; HLDR000 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDA HLSCH2 BEQ HLDR040 ; H-move ? ; ; yes BCC HLDR020 ; ; ; DEC A CMP >HLSCH2 BEQ HLDR040 ; = ? ; ; no DEC A BRA HLDR040 ; HLDR020 EQU $ INC A CMP >HLSCH2 BEQ HLDR040 ; = ? ; ; no INC A HLDR040 EQU $ STA HLSCV2 BEQ HLDR080 ; V-move ? ; ; yes BCC HLDR060 ; ; ; DEC A CMP >HLSCV2 BEQ HLDR080 ; = ? ; ; no DEC A BRA HLDR080 ; HLDR060 EQU $ INC A CMP >HLSCV2 BEQ HLDR080 ; = ? ; ; no INC A HLDR080 EQU $ STA HLSCV2 BNE HLDR090 ; V = ? ; ; yes LDA HLSCH2 BNE HLDR090 ; H = ? ; ; yes INC HLYPS1 STA HLXPS1 STA HLSCVU STA !SCVU LDA >HLSCVD STA !SCVD LDA >HLSCHL STA !SCHL LDA >HLSCHR STA !SCHR LDA >HLSY00 STA !SCKY00 LDA >HLSY10 STA !SCKY10 LDA >HLSX00 STA !SCKX00 LDA >HLSX10 STA !SCKX10 LDA >HLUPCT STA !PYUPCT ;// 03.05.08 // CLC ;// 03.05.08 // ADC #00010H INC A INC A STA !PYDWCT LDA >HLLFCT STA !PXLFCT ;// 03.05.08 // CLC ;// 03.05.08 // ADC #00010H INC A INC A STA !PXRTCT LDA >HLCKXF STA HLXCPT STA HLUSLC ;// 03.05.15 // STA !UPSLCT ;// 03.05.15 // LDA #00000H ;// 03.05.15 // SEC ;// 03.05.15 // SBC !UPSLCT ;// 03.05.15 // STA !DWSLCT ;// 03.05.15 // LDA >HLLSLC ;// 03.05.15 // STA !LFSLCT ;// 03.05.15 // LDA #00000H ;// 03.05.15 // SEC ;// 03.05.15 // SBC !LFSLCT ;// 03.05.15 // STA !RTSLCT ;// 03.05.15 // LDA >HLSRPT ;// 03.05.15 // STA HLMKCH STA HLPLBG STA HLCDBG STA !CDBGCKF LDA >HLPWK6 STA HLFLNO STA SWSPCL2 ; swimming clear ; STZ !OPNOSI JSL >RAOPIT ; option init. ; STZ !SWCHFG ; swich flag off STZ !ITEMMD STZ LFNWCT BNE HLDR280 ; player out ? ; ; yes LDA #000H STA >LFNWCT LDA BKDPMN LDA BKDPMN+1 LDA CHRCHNG ; OBJ. character change ; JSL >RCHRCK ; character code set DJWARP40 EQU $ LDA JSRSUB WORD SPCH000 ; 0 : CG. work set WORD DJWRP050 ; 1 : mozaiku-fade out WORD SPCH100 ; 2 : room making WORD SPCH200 ; 3 : enemy data set & new color set WORD DJWRP100 ; 4 : BG.1 write WORD SCL340 ; 5 : BG2. write WORD SCL240 ; 6 : BG1. write WORD SCL340 ; 7 : BG2. write WORD SCL240 ; 8 : BG1. write WORD SCL340 ; 9 : BG2. write WORD SCL240 ; A : BG1. write WORD SCL340 ; B : BG2. write WORD SCL520 ; C : player init. ;// 03.07.16 // WORD DJWRP200 ; D : character change WORD DJWRP400 ; E : mozaiku-fade in WORD DJWRP800 ; F : end ; ; ; ; DJWRP050 EQU $ JSR MZKSET ; mozaiku set ;;;;;;;; LDA >CCNGCT ;;;;;;;; LSR A ;;;;;;;; BCC DJWRP070 ; ;;;;;;;;; ; ;;;;;;;; LDA >MZKCNT ;;;;;;;; CLC ;;;;;;;; ADC #00010000B ;;;;;;;; STA >MZKCNT ;;;;;;;;DJWRP070 EQU $ ;;;;;;;; LDA #00001001B ;;;;;;;; STA MZKCNT ORA #00000011B STA DKRMCGST ; fade ; MEM16 REP #00100000B ; memory 16bit mode ; LDA XYCALC ; X,Y-move ; LDY #00010110B LDX !GSUBFG LDA >SUBSTD,X BPL DJWRP130 ; BG.1 main-gamen ? ; ; yes LDY #00010111B LDA #00000000B DJWRP130 EQU $ STY WBUFS1 ; BG1. write buffer set INC CHSCHNG ; character change ;// 03.07.16 // LDA #00001111B ;// 03.07.16 // STA BLKFLG ; blanking on ;// 03.07.16 //DJWRP220 EQU $ ;// 03.07.16 // INC CCNGCT LSR A BCC DJWRP420 ; mozaiku change ok ? ; ; yes LDA >MZKCNT BEQ DJWRP420 ; mozaiku end ? ; ; no SEC SBC #00010000B STA >MZKCNT DJWRP420 EQU $ LDA #00001001B STA MZKCNT ORA #00000011B STA MPBTSET ; map on/off bit set STZ TAMAFLG BEQ TYCN020 ; ; ; TYX LDY #00020H*8 TYCN020 EQU $ BRA TYCN800 ; ; TYCN200 EQU $ IDX16 REP #00010000B ; index 16bit mode ; LDX #00020H*4 LDY #00020H*8 LDA >TAMAFLG BEQ TYCN220 ; ; ; TYX LDY #00020H*4 TYCN220 EQU $ BRA TYCN800 ; ; TYCN400 EQU $ IDX16 REP #00010000B ; index 16bit mode ; LDX #00020H*0 LDY #00020H*12 LDA >TAMAFLG BEQ TYCN420 ; ; ; TYX LDY #00020H*0 TYCN420 EQU $ TYCN800 EQU $ STY TYCHBF,X STA RSETCBF,Y INX INX INY INY CPY #00020H*4 BNE TYCN840 ; ; ; LDX TYCHBF,X STA RSETCBF,Y INX INX INY INY CPY #00020H*8 BNE TYCN880 ; ; ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; PLB ; (DBR) pull ; LDA #bgw17 STA TYCDCNG ; code change STZ TAMAFLG BEQ TYCC040 ; ; ; TYX LDY #00020H*0 TYCC040 EQU $ JSR TYCN800 RTL ; ; ; ; ; ;************************************************************************ ;* Yuka-swich on (YSWCHON) * ;************************************************************************ YSWCHON EQU $ DEC TGBLKWT ; LDA !NXSLMD STA JSRSUB WORD PGNDM000 ; fade out WORD PGNDM100 ; polygon BG. set WORD SCL240 ; BG1. write WORD SCL340 ; BG2. write WORD SCL240 ; BG1. write WORD SCL340 ; BG2. write WORD SCL240 ; BG1. write WORD SCL340 ; BG2. write WORD SCL240 ; BG1. write WORD SCL340 ; BG2. write WORD PGNDM200 ; end ; ; PGNDM000 EQU $ JSL >GOVRCCNG ; fade out LDA >CGWORK+040H STA >CGWORK+000H LDA >CGWORK+041H STA >CGWORK+001H ; LDA >CCNGFG CMP #0FFH BNE PGNDM080 ; fade out end ? ; ; yes MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDX #00000H LDA #nulldt PGNDM020 EQU $ STA >ROOMBF+0000H,X STA >ROOMBF+0800H,X STA >ROOMBF+1000H,X STA >ROOMBF+1800H,X STA >BG1RBF+0000H,X STA >BG1RBF+0800H,X STA >BG1RBF+1000H,X STA >BG1RBF+1800H,X INX INX CPX #00800H BNE PGNDM020 ; ; ; STZ !YUREYD STZ !YUREXD STZ !BGMVC0 STZ !BGMVC1 ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; STZ !SCRLFG STZ !WBFPNT ; INC MGMCGRS2 ; CG. reset LDA #00000001B STA UBOSSDT,X BNE PGNDM140 ; check ok ? ; ; yes LDA >PLGNADR,X STA BG1RBF+000H,X ORA #01F88H STA >BG1RBF+200H,X INC INITIAL_POLYGON JSL >POLIWCG ; STZ PWTRCGS3 DJRTRN80 EQU $ RTS ; ; ; ; ;************************************************************************ ;* Ganon-door open (GNNDROP) * ;************************************************************************ GNNDROP EQU $ JSL >GNNOPEN ; ganon-door open RTS ; ; ; ; ; ; ;************************************************************************ ;************************************************************************ ;* Mozaiku Fade-out (MZFDOUT) * ;************************************************************************ MZFDOUT EQU $ JSR MZKSET ; mozaiku set ;;;;;;;; LDA >CCNGCT ;;;;;;;; LSR A ;;;;;;;; BCC MZFOT20 ; ;;;;;;;;; ; ;;;;;;;; LDA >MZKCNT ;;;;;;;; CLC ;;;;;;;; ADC #00010000B ;;;;;;;; STA >MZKCNT ;;;;;;;;MZFOT20 EQU $ ;;;;;;;; LDA #00001001B ;;;;;;;; STA MZKCNT ;;;;;;;; ORA #00000111B ;;;;;;;; STA JSRSUB WORD SPCH000 ; 0 : CG. work set WORD DKCGCG1 ; 1 : CG. change (fade out) WORD MZFD200 ; 2 : end ; ; ; MZFD200 EQU $ LDA !NXSLMD STA CCNGCT LSR A BCC MZFIN20 ; ; ; LDA >MZKCNT SEC SBC #00010000B STA >MZKCNT MZFIN20 EQU $ JSR MZKSET1 ; mozaiku set ;;;;;;;; LDA #00001001B ;;;;;;;; STA MZKCNT ;;;;;;;; ORA #00000111B ;;;;;;;; STA JSRSUB WORD DKCGCG1 ; 0 : CG. change (fade in) WORD MZFD300 ; 1 : end ; ; ; MZFD300 EQU $ STZ ENEMY ; enemy move ; LDA PYSPST ; player speed set STZ PMKDAT,X STA PYCRCN ; player character change ; JMP >PYOMST ; character set ; ; ; ; WPFD000 EQU $ ;// 03.05.15 // LDA #020H ;// 03.05.15 // STA HEDCHEG ; head check ; MEM16 REP #00100000B ; memory 16bit mode ; LDA PLYPBK ; MEM8 SEP #00100000B ; memory 8bit mode WPFD010 EQU $ LDX !GOPOSF LDA >DJSNDD,X CMP #003H BNE WPFD020 ; shiro-nukemichi ? ; ; no LDA >MODTBL0 CMP #002H BCC WPFD090 ; zenhan ? ; ; no WPFD020 EQU $ CMP #0F2H BNE WPFD030 ; ; ; LDX !SVSND0 CPX #00CH BNE WPFD040 ; mura sound reset ? ; ; yes LDA #007H BRA WPFD040 ; WPFD030 EQU $ LDA #0F1H WPFD040 EQU $ ;// 03.09.16 // CMP #0F0H ;// 03.09.16 // BCS WPFD080 ; ;// 03.09.16 //; ; ;// 03.09.16 // STA !SVSND0 WPFD080 EQU $ STA !SOUND0 ; WPFD090 EQU $ STZ !FLNODFG JSL >FLNODSP ; floor no. off INC WIPEIT0 INC WIPEMV ; STZ !POLYCFG STZ !transfer_flag ; LDA PLYPBK STA BLANKING ; blanking on & H-DMA disable ;// 03.09.17 // LDA #10000000B ;// 03.09.17 // STA VRAMCL ; vram clear ;// 03.07.05 //; ;// 03.07.05 // JSR BGMDST ; BG mode set ; JSL >PYDMCLR ; player demo claer WPFD205 EQU $ LDA WPFD240 EQU $ STZ CGWORK+000H ;// 03.07.31 // STA >CGRAM+000H ;// 03.07.31 //WPFD260 EQU $ ;// 03.07.31 // MEM8 ;// 03.07.31 // IDX8 ;// 03.07.31 // SEP #00110000B ; memory,index 8bit mode ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; ;// 03.08.26 // LDX #04F2DH ;// 03.08.26 // LDY #0804FH ;// 03.08.26 // LDA ENEMY ; enemy ; LDA PYOMST ; player character set ; ; ; WPFD100 EQU $ JSL >WIPEIT1 INC DJSNDD,X CMP #003H BNE GHLF020 ; shiro-nukemichi ? ; ; no LDA >MODTBL0 CMP #002H BCC GHLF090 ; zenhan ? ; ; no GHLF020 EQU $ ;;;;;;;; CMP #0F2H ;;;;;;;; BEQ GHLF040 ; ; ; LDA #0F1H GHLF040 EQU $ ;// 03.09.16 // CMP #0F0H ;// 03.09.16 // BCS GHLF080 ; ;// 03.09.16 //; ; ;// 03.09.16 // STA !SVSND0 GHLF080 EQU $ STA !SOUND0 ; GHLF090 EQU $ JMP SPCH000 ; CG. work set ; ; GHLF100 EQU $ JSL >BLANKING ; blanking on & H-DMA disable ;// 03.09.17 // LDA #10000000B ;// 03.09.17 // STA VRAMCL ; VRAM clear!! ;// 03.07.05 //; ;// 03.07.05 // JSR BGMDST ; BG mode set LDA #00000010B STA DKYTBL,X GHLF110 EQU $ ;// 03.10.08 // STA >ITMTBL9 ; key count load ;// 03.10.08 // JSL >MTRON2 ; mater display JSL >MTRON4 ; mater display ; LDA #04H STA DJCODST ; read code change ; LDX !CHIKNO LDA >WTRPTDT,X TAY JSL >WTRCBFS0 ; water character buffer set ; JSL >CHRCNG1 ; character code set ; PLA ; (A) pull INC A STA CHSCHNG ; character VRAM set ;// 03.05.29 // JSL >CHRCBS0 ; character buffer set LDA #00AH STA !CHITEMJC JSR INCLST0 ; initial BG color set ;// 03.05.30 // JSR CGWKST ; (CGWORK) set ; JSL >LMPCHCK ; light-wipe initial ; STZ PLCGCN2 ; player CG. (rabit) set GHL140 EQU $ LDA #10000000B STA MTRDSP ; mater display ; JSL >SND1CHK ; check ; LDA #p1_hldn STA SNDTR2 ; sound1 set ; LDA #10000001B STA 4200H ; NMI enable SND0C80 EQU $ RTS ; SND0C90 EQU $ JMP SNDITST ; ; ; GHLF200 EQU $ LDA PLAFHL ; Player fade-in LDA ENEMY ; JMP >PYOMST ; character set ; ; BCWO000 EQU $ JSL >KAIMP ; MP up BCS BCWO010 ; MP max ? ; ; no INC !ITEMMD BCWO010 EQU $ JSL >KAIHUKU ; life up BCS BCWO020 ; life max ? ; ; no INC !ITEMMD BCWO020 EQU $ LDA !ITEMMD BNE BCWO040 ; up end ? ; ; yes LDA MTRDSP ; mater display RTS ; ; BCWO200 EQU $ DEC PYKNSP1 JSL >BMCLER ; JSL >CDKNINT ; ken kirari ; INC PLMOVE ; player move ; LDA ITMTBL6 INC A AND #11111110B BEQ BCWO420 ; LDA #02CH STA !SOUND2 ; ; BCWO420 EQU $ LDA #001H STA !KNPASFG LDA #020H STA DKRMCG BCWO680 EQU $ RTS ; ; ; ; ;************************************************************************ ;* Boss clear Kagarou Fade-out (BCKGOUT) * ;************************************************************************ BCKGTBL EQU $ WORD BCKG000 ; 00 : wait WORD BCKG100 ; 01 : kagerou init. WORD BCKG400 ; 02 : move WORD BCKG420 ; 03 : move WORD BCKG440 ; 04 : end move WORD BCKG200 ; 05 : kagerou end bckg002 EQU $ WORD BCKG280 ; 06 : wait WORD BCKG300 ; 07 : message WORD BCKG350 ; 08 : message bckg004 EQU $ WORD BCWO000 ; 09 : life kaifuku WORD BCWO200 ; 0A : wait WORD BCWO400 ; 0B : player spin bckg006 EQU $ WORD BCKG700 ; 0C : end ; ; BCKGOUT EQU $ LDA ENEMY ; ; JSL >PYOMST ; charcater set BCKGO80 EQU $ RTL ; ; ; BCKG000 EQU $ STZ !GMAPDF INC !ITEMMD INC STA !SCRLMD ; JSL >KAGEIT ; kagerou init. ; STZ !ITEMMD ; JSL >CTPITST ; trip CG. init set ; JSR GDMCK800 ; information ram set INC CGWORK+000H STA >CGWORK+040H ; MEM8 SEP #00100000B ; memory 8bit mode ; ;// 03.10.04 // JSL >PLYCLR1 ;// 03.10.04 // JSL >BMCLER JSL >PFLGCL2 ; player ram all-clear BCKG140 EQU $ RTS ; ; ; BCKG200 EQU $ MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA #02641H STA 4370H ; inc. mode & B-bus address set ; LDX #0003EH LDA #0FF00H BCKG240 EQU $ STA !HDMABF+000H,X STA !HDMABF+040H,X STA !HDMABF+080H,X STA !HDMABF+0C0H,X STA !HDMABF+100H,X STA !HDMABF+140H,X STA !HDMABF+180H,X DEX DEX BPL BCKG240 ; end ? ; ; yes LDA #00000H STA >CCNGCT STA >CCNGFG ; MEM8 SEP #00100000B ; memory 8bit mode ; LDX #MS_0076 ;// 03.09.29 // LDA >ITMTBL4 ;// 03.09.29 // BNE BCKG260 ; suisyou-dama on ? ;// 03.09.29 //; ; no ;// 03.09.29 // LDX #MS_0077 ;// 03.09.29 //BCKG260 EQU $ STX !MSGENOL ; message set ; IDX8 SEP #00010000B ; index 8bit mode ; JSL >MESWIT ; message init. ; JSL >CHRCBSZ ; character buffer set ; ;// 03.10.08 // LDA #000H ;// 03.10.08 // STA >DKRMCG ;// 03.10.08 // LDA #0FFH ;// 03.10.08 // STA >ITMTBL9 ;// 03.10.08 // JSL >MTRON2 ; initial BG3. write JSL >MTRON3 ; initial BG3. write ; LDA #10000000B STA ;// 03.09.16 // STA !SVSND1 ; BCKG290 EQU $ RTS ; ; BCKG300 EQU $ JSL >MSGE_I ; message LDA ITMTBL4 BNE BCKG320 ; suisyou-dama on ? ; ; no MEM16 REP #00100000B ; memory 16bit mode ; LDA #MS_0077 STA !MSGENOL ; message set ; MEM8 SEP #00100000B ; memory 8bit mode ; JSL >MESWIT ; message init. ; STZ !SOUND1 LDA #MD_bckgr STA MSGE_I ; message LDA KAGEMV ; kagerou move INC KAGEMV1 ; kagerou move BRA BCKG460 ; ; BCKG440 EQU $ JSL >KAGEMV2 ; kagerou move BCKG460 EQU $ LDA BCKG820 ; ram clear ;// 03.10.04 // JSL >BMCLER ; ram clear ;// 03.10.04 // STZ !MRTKFG ;// 03.10.04 // STZ GNDTBL+01BH ORA #00100000B STA >GNDTBL+01BH ; LDA #0FFH STA !DJNNO STZ ITMTBL4 BNE BCKG720 ; suisyou-dama on ? ; ; no LDX #004H BCKG720 EQU $ STX !SOUND0 ;// 03.09.16 // STA !SVSND0 ; ; LDA #006H STA >MODTBL2 BCKG740 EQU $ RTS ; ; ; ; BCKG800 EQU $ LDA WTRCBFS1 BCKG820 EQU $ JSL >BMCLER ; ram clear STZ !MRTKFG STZ ENEMY ; JMP >PYOMST ; character set ; ; ; UBCWO480 EQU $ RTS ; ; UBCWO400 EQU $ DEC PWTRCGS3 ; CG. reset ; LDA #LNMD STA ENEMY ; enemy move ; MEM16 REP #00100000B ; memory 16bit mode ; PLA ; (A) pull STA PYOMST ; character set ; ; USSC000 EQU $ JSL >BGMVCHK ; BG. move data check ; JSL >FUEMOVL ; fue & bird set ; JSL >DJKYSV ; key count save ; INC !MAPDMD INC !PYALSP RTS ; ; USSC100 EQU $ JSL >BGMVCHK ; BG. move data check ; LDA BGMVCHK ; BG. move data check ; DEC BLANKING ; blanking on & H-DMA disable ;// 03.09.17 // LDA #10000000B ;// 03.09.17 // STA 2100H ;// 03.09.17 // STA DKRMCG ;// 03.10.08 // LDA #0FFH ;// 03.10.08 // STA >ITMTBL9 ; key count load ;// 03.10.08 // JSL >MTRON2 ; initial BG3. write JSL >MTRON3 ; initial BG3. write STZ MWRP900 ; game BG. display ; JSR SNDITST ; ground sound set LDA #009H STA !SOUND0 ;// 03.09.16 // STA !SVSND0 ; RTS ; ; USSC400 EQU $ JSL >MWRPB00 ; ground rewrite ; LDA #000H STA PLCHKST ; LDA #002H STA MWRPC40 ; fade-in RTS ; ; ; ; ;************************************************************************ ;* Ending try-force set (ENDTRYF) * ;************************************************************************ ETRYFTBL EQU $ WORD EDTF000 ; 0 : CG. work set WORD EDTF100 ; 1 : CG. change (fade out) WORD EDTF200 ; 2 : BG.1 set WORD EDTF300 ; 3 : character & CG. set WORD EDTF400 ; 4 : BG.2 set WORD EDTF500 ; 5 : player move WORD EDTF600 ; 6 : CG. change (fade in) WORD EDTF700 ; 7 : try-force init WORD EDTF800 ; 8 : try-force move WORD EDTFA00 ; 9 : message WORD EDTF800 ; A : try-force move WORD EDTF900 ; B : player walk WORD EDTFB00 ; C : wait end WORD EDTFC00 ; D : fade-out WORD EDTFD00 ; E : end fade-out ; ; ENDTRYF EQU $ LDA PYSPST JSL >PYCRCN ETRYF80 EQU $ JMP >PYOMST ; character set ; ; ; EDTF000 EQU $ JSL >PLYCLR1 ; player ram clear ; STZ JMP SPCH000 ; ; EDTF100 EQU $ JSR MZKSET ; mozaiku set ; JMP DKCGCG1 ; fade-out ; ; EDTF200 EQU $ JSL >BLANKING ; blanking on & H-DMA disable ;// 03.09.17 // LDA #10000000B ;// 03.09.17 // STA 2100H ;// 03.09.17 // STA SNDTR3 ; sound2 set ; LDA #10000001B STA 4200H ; NMI enable ; ; LDA #089H STA VRAMCL ; JSL >PWTRCGS3 ; player color reset ; JSR IIT3000 ; RAM inital ; JSR GB1WRT1 ; BG.1 write ; INC CHSCHNG ; charcater set ; LDX #004H JSR INCLS140 ; initial BG color set LDA #00EH JSL >GCGCHNG JSR CGWKST1 ; CGWORK set ; INC CCNGCT LDA #000H STA >CCNGED ; LDA #001H STA MZKCNT ; LDA #0ECH STA EDTF480 EQU $ LDA #MD_etryf STA CCNGCT LSR A BCS EDTF620 ; ; ; LDA >MZKCNT BEQ EDTF620 ; ; ; SEC SBC #00010000B STA >MZKCNT EDTF620 EQU $ JSR MZKSET1 ; mozaiku set ; JSL >CGCNG1 ; CG. change RTS ; ; EDTF700 EQU $ JSL >POLGNED ; MEM16 REP #00100000B ; memory 16bit mode ; LDA #MS_0580 STA !MSGENOL ; message set ; MEM8 SEP #00100000B ; memory 8bit mode ; JSL >MESWIT ; message init. JSL >MSGE_I ; LDA #080H STA TRYFS10 ; JSL >MSGE_I ; message LDA TRYFS10 LDA ; LDA #MD_etryf STA TRYFS10 ; JSL >EDPYDM0 ; player walk ; LDA TRYFS10 ; DEC KCCNG0 ; init. INC TRYFS10 ; JSL >CTPCZZZ ; LDA >CCNGFG CMP #0FFH BNE EDTFC80 ; end ? ; ; yes INC GDTRPF EDTFD80 EQU $ RTS ; ; ; ; ;************************************************************************ ;* Ura-danjyon return check (UDJRTNCK) * ;************************************************************************ UDJBITD EQU $ BYTE 00000000B ; 00 :chapel BYTE 00000000B ; 02 :shiro BYTE 00000100B ; 04 :omote shinden BYTE 00000010B ; 06 :omote sabaku BYTE 00000000B ; 08 :shisai BYTE 00010000B ; 0A :ura-hokora BYTE 00000010B ; 0C :ura-shinden BYTE 00000001B ; 0E :ura-numa BYTE 01000000B ; 10 :ura-mori BYTE 00000100B ; 12 :ura-ice BYTE 00000001B ; 14 :omote-yama BYTE 00100000B ; 16 :ura-machi BYTE 00001000B ; 18 :ura-kame ; ; UDJRTNCK EQU $ LDA !DJNNO CMP #0FFH BEQ UDRC80 ; danjyon ? ; ; yes ;// 03.09.18 // LSR A ;// 03.09.18 // TAX ;// 03.09.18 // LDA >GDTRPF ;// 03.09.18 // BEQ UDRC100 ; ura-danjyon ? ;// 03.09.18 //; ; yes ;// 03.09.18 // LDA >ITMTBL3 ;// 03.09.18 // AND >UDJBITD,X ;// 03.09.18 // BEQ UDRC80 ; boss clear ? ;// 03.09.18 //; ; yes ;// 03.09.18 //UDRC40 EQU $ LDA #p1_rtrn STA ; JSL >MPBTSET1 ; map on/off bit set DJKYSV EQU $ LDA !DJNNO CMP #0FFH BEQ DKS040 ; danjyon ? ; ; yes CMP #002H BNE DKS020 ; shiro ? ; ; yes LDA #000H DKS020 EQU $ LSR A TAX LDA >ITMTBL9 STA >DKYTBL,X ; key count save DKS040 EQU $ RTL ; UDRC80 EQU $ LDA #03CH STA !SOUND2 ; RTL ; ;// 03.09.18 //UDRC100 EQU $ ;// 03.09.18 // LDA >ITEMR53 ;// 03.09.18 // AND >UDJBITD,X ;// 03.09.18 // BNE UDRC40 ; boss clear ? ;// 03.09.18 //; ; no ;// 03.09.18 // RTL ; ; ; ; ;************************************************************************ ;* Color DARK check * ;************************************************************************ DARKDT EQU $ HEX 1F,08,04,00 ; ; DARK000 EQU $ DARK600 EQU $ LDA !PCGCKF BEQ DARK610 ; ; ; JSL >PWTRCGS3 ; player CG. reset DARK610 EQU $ LDA #00000010B STA DARKFG BNE DARK640 ; color DARK set ? ; ; no LDA #00100000B LDX #003H LDY !GSUBFG BEQ DARK620 ; ; ; LDA #00110010B CPY #007H BEQ DARK620 ; gamen plus ? ; ; no LDA #01100010B CPY #004H BEQ DARK620 ; gamen plus ? ; ; no LDA #00100000B CPY #002H BNE DARK620 ; gamen plus ? ; ; yes PHX ; (X) push JSL >PWTRCGS2 ; player CG. set PLX ; (X) pull LDA SHSCCT+0 STA >SHSCCT+2 STA >SHSCCT+4 STA >SHSCFG+0 STA >SHSCFG+2 STA >SHSCFG+4 ; MEM8 SEP #00100000B ; memory 8bit mode ; JSL >USSCGST ; ura-shisai CG. set DARK615 EQU $ LDA #01110000B DARK620 EQU $ STA DARKDT,X STA >DKRMCG ; LDA #01FH STA >CCNGCT LDA #000H STA >CCNGED LDA #00002H STA >CCNGFG STZ !CGSTPT+1 ; CG. (CGRAM) set ; JSL >DANCORST ;// 03.06.26 // JSL >KOUKAST ; BG. CG. (CGRAM) set JSL >DJCGSET ; BG-OBJ JSL >MSCGST1 JSL >MSCGST2 ; enemy ; ; INC DARKFG ;// 03.03.19 // BEQ DARK600 ; color DARK set ? ;// 03.03.19 //; ; yes ;// 03.03.19 // LDA #00000010B ;// 03.03.19 // STA DARKDT,X ;// 03.03.19 // STA >DKRMCG ;// 03.03.19 // ORA #00100000B ;// 03.03.19 // STA DARKDT,X ;// 03.03.19 // ORA #01000000B ;// 03.03.19 // STA DARKDT,X ;// 03.03.19 // ORA #10000000B ;// 03.03.19 // STA DKRMCG ;// 03.03.19 // LDA #00100000B ;// 03.03.19 // STA CCNGCT ;// 03.03.19 // LDA #000H ;// 03.03.19 // STA >CCNGED ;// 03.03.19 // LDA #00002H ;// 03.03.19 // STA >CCNGFG ;// 03.03.19 // STZ !CGSTPT+1 ; CG. (CGRAM) set ;// 03.03.19 //; ;// 03.03.19 // JSL >DANCORST ;// 03.03.19 // JSL >KOUKAST ; BG. CG. (CGRAM) set ;// 03.03.19 // JSL >DJCGSET ; BG-OBJ ;// 03.03.19 // JSL >MSCGST1 ;// 03.03.19 // JSL >MSCGST2 ; enemy ;// 03.03.19 //; ;// 03.03.19 // INC CGCNG1 ; CG. change (fade in) LDA >CCNGCT BNE DARK880 ; end ? ; ; yes LDA #000H STA >DARKFG ; DARK flag off DARK840 EQU $ LDA !NXSLMD STA CGCNG0 ; CG. change RTS ; DKCGCG1 EQU $ JSL >CGCNG1 ; CG. change RTS ; ; CGWSET0 EQU $ JSR SPCH000 ; CG. reset RTL ; CGWSET1 EQU $ JSR DARK600 ; new CG. ser RTL ; CGWSET2 EQU $ JSR DARK800 ; CG. change RTL ; ; ; ; ;************************************************************************ ;* Hi-posistion Reset (HPSRST) * ;************************************************************************ HPSRST EQU $ LDA ENEMY ; enemy move ; MEM16 REP #00100000B ; memory 16bit mode ; PLA ; (A) pull STA PYOMST ; character set ; JSL >MTRDSP ; mater display PLMN2000 EQU $ LDA MODTBL0 CMP #002H BCS PLM2080 ; rain on ? ; ; yes PLM2010 EQU $ LDA >GNDTBL+070H AND #00100000B BNE PLM2080 ; ; ; LDA PLM2040 EQU $ LDA #00110010B PLM2060 EQU $ STA RNSCHD,X STA RNSCVD,X STA ITMWIT ; window init. ;;;;; JSR INHDMA1 ; initial H-DMA ; STZ !ITEMMD LDA #p3_sitm BRA GDMV100 ; GDMV20 EQU $ LDA MESWIT ; message init. PLA ; (A) pull STA GDINFCK GDMV300 EQU $ ;;;;;;;;;;;;;;; LDA PLMOVE ; Player move ;;;;;;;; LDA #00FH ;;;;;;;; STA 2100H ; LDA !BMTMER CMP #0FFH BEQ GDMV340 ; timer move ? ; ; yes JSL >BMBTIMER ; bomb-timer GDMV340 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDA GNDTBL,X ;// 03.08.28 // ORA #080H ;// 03.08.28 // STA >GNDTBL,X ; grand map on/off table set GDMV360 EQU $ JSL >SPOJCNG ; spacial OBJ change check ; JSR GNDSCL ; gamen scroll check ; LDA GDRCHK ; ground door check ; ;;;;;;;;; JSL >SGTOPCK ; shiro-gate open check ; JSL >YMCGCNG ; ; JSR GNDMVCK ; ground move check BRA GDMV400 ; GDMV380 EQU $ JSR EVTMVCK ; event move check GDMV400 EQU $ MEM8 SEP #00100000B ; memory 8bit mode ;// 03.06.13 //;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;// 03.06.13 // LDA GOPOSFD,X ;// 03.06.13 // STA !GOPOSF ; goto pos. set ;// 03.06.13 // LDA #MD_wpout ;// 03.06.13 // STA PLRPDY,X LDY #006H LDX #008H CMP #00004H BCC GDMCK80 ; up-scroll ? ; ; no LDY #004H LDX #004H CMP !GRMSZ1 BCS GDMCK80 ; down-scroll ? ; ; no GDMCK40 EQU $ LDA PLRPDX,X LDY #002H LDX #002H CMP #00006H BCC GDMCK80 ; left-scroll ? ; ; no LDY #000H LDX #001H CMP GEVTCHK1 ; goto event check RTS ; ; GDMCK300 EQU $ MEM8 SEP #00100000B ; memory 8bit mode ; JSL >PLJSCK ; player haiin check BCS GDMCK200 ; scroll ok ? ; ; yes STY SCRRD00,X STA GPTREPD0,X PHA ; (A) push ; STA SCRRD02,X STA GDMCK310 EQU $ LDA GDMCK315 EQU $ LDA MODTBL0 CMP #003H BCS GDMCK320 ; kou-han ? ; ; no LDA #0F1H STA !SOUND0 ;// 03.09.16 // STA !SVSND0 ; GDMCK320 EQU $ LDA >RMRSDT,X ORA >GDTRPF STA MODTBL0 CMP #003H BCS GDMCK330 ; kou-han ? ; ; no LDA #0F1H STA !SOUND0 ;// 03.09.16 // STA !SVSND0 GDMCK330 EQU $ JSR GDMCK800 ; information ram set ; INC MZKCNT RTS ; GDMCK380 EQU $ LDX ROJCTBL,X STA CGPTDT,X JSL >GCGCHNG ; CG. reset JSR CGWKST2 ; (CGWORK) set RTS ; ; GDMCK800 EQU $ LDX ROBJTBL,X STA !ROBJCPT LDA >RBGCDT,X STA !RBGCPT ; reset OBJ,BG. character point set ; TXA AND #03FH TAX LDA !GRMSZ0 STA !GRMSZ0B LDA >RMSZD0,X STA !GRMSZ0 LDA >RMSZD1,X STA !GRMSZ1+1 ; LDY #020H LDX #000H LDA BGCBDT0+6,X STA !OJBSPT ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA GCCKYD,X STA !GCCKY0 LDA >GCCKXD,X LSR A LSR A LSR A STA !GCCKX0 ; LDA #003F0H LDX !GRMSZ0 BNE GDMCK840 ; 4x4 room ? ; ; no LDA #001F0H GDMCK840 EQU $ STA !GCCKY1 LSR A LSR A LSR A STA !GCCKX1 ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode RTS ; ; ; ; ;************************************************************************ ;* Event move check (EVTMVCK) * ;************************************************************************ EVTMVCK EQU $ LDA !GDWTFG BEQ EVMCK40 ; write ? ; ; yes JSR MPMAIN EVMCK40 EQU $ JSL >EEVTCHK ; exit event check ; ;// 03.08.08 // LDA GEVTCHK1 ;// 03.08.08 //EVMCK80 EQU $ RTS ; ; ; ;************************************************************************ ;* BG. character change - 0 (BGCCHG8) * ;************************************************************************ BGCCHG8 EQU $ LDA >GNDTBL+03BH AND #11011111B STA >GNDTBL+03BH LDA >GNDTBL+03BH+040H AND #11011111B STA >GNDTBL+03BH+040H ; LDA >DJNTBL+10BH*2 AND #01111111B STA >DJNTBL+10BH*2 LDA >DJNTBL+028H*2+1 AND #11111110B STA >DJNTBL+028H*2+1 ; JSL >CHRCBS0 ; BG.Obj. change character buffer set ; JSL >BGCHCNG ; BG. character buffer set ; LDA #bgw9 BRA BGCCHGA ; ; ;************************************************************************ ;* BG. character change - 1 (BGCCHG9) * ;************************************************************************ BGCCHG9 EQU $ LDA #bgwA BGCCHGA EQU $ STA OJCHCNG ; BG. buffer set ; RTS ; ; ; ;************************************************************************ ;* Ground scroll (GDSCRL) * ;************************************************************************ GDSCRL EQU $ JSL >PYCRCN ; player character change ; JSL >CHRCHNG ; OBJ. character change ; JSR GSLCHK ; scroll AND #00FH BEQ GSCL040 ; BG. write ? ; ; no RTS ; GSCL040 EQU $ JMP GSCL140 ;// 03.07.02 // JSR GSCL140 ;// 03.07.02 //; ;// 03.07.02 // REP #00100000B ; memory 16bit mode ;// 03.07.02 //; ;// 03.07.02 // LDA SRPTBK ;// 03.07.02 //; ;// 03.07.02 // SEP #00100000B ; memory 8bit mode ;// 03.07.02 // RTS ; ; GSCL100 EQU $ LDA !SCRLFG CMP #001H BNE GSCL101 ; down scroll ? ; ; yes MEM16 REP #00100000B ; memory 16bit mode ; LDA GREDST ; ground enemy set ; STZ !GDMMPT STZ !GDMMPT+1 ; LDA >MODTBL0 CMP #002H BCS GSCL103 ; rain ? ; ; yes GSCL102 EQU $ JMP GSCL120 ; ; ; GSCL103 EQU $ LDA CGWORK+000H ;// 03.07.31 // STA >CGRAM+000H ;// 03.07.31 // LDA #04020H ;// 03.07.31 // STA KCOLSET ; kotei-color set ; ;// 03.07.31 // MEM16 ;// 03.07.31 // IDX16 ;// 03.07.31 // REP #00110000B ; memory,index 16bit mode ;// 03.07.31 //; ;// 03.07.31 // LDA CGWORK+000H ;// 03.07.31 // STA >CGRAM+000H ;// 03.07.31 //; ;// 03.07.31 //GSCL110 EQU $ ;// 03.07.31 // MEM8 ;// 03.07.31 // IDX8 ;// 03.07.31 // SEP #00110000B ; memory,index 8bit mode ;// 03.07.31 //; ;// 03.07.31 // INC MPSIZE,X BEQ GSCL405 ; small ? ; ; yes LDX !SCRLMD STX !GDWTFG JSR GSLBGWT ; scroll write STZ !GDWTFG GSCL405 EQU $ INC MPSIZE,X BEQ GSCL430 ; small ? ; ; yes MEM16 REP #00100000B ; memory 16bit mode ; LDA >SRPTSB STA XWRTSB STA YWRTSB STA SRPTBK ;// 03.07.02 // STA BMCLER2 ; option clear GSCL440 EQU $ RTS ; ; ; ; ;************************************************************************ ;* GROUND Door exit move (GDEXTMV) * ;************************************************************************ GDEXTMV EQU $ JSL >PYCRCN1 ; player character change ; MEM16 REP #00100000B ; memory 16bit mode ; LDA PYCRCN ; player character change ; MEM16 REP #00100000B ; memory 16bit mode ; LDA GDMMBF+000H,X TAX LDY !DOPCNO LDA OPDRDT+0,Y STA >GDBUF0+000H,X LDX !GDMMPT STA >GDMMBF+200H,X LDY #00000H LDX !GDRBF1 JSL >GDRW0400 ; vramd data set ; LDA !GDRBF1 LDX !GDMMPT INC A INC A STA >GDMMBF+002H,X LDX !GDRBF1 LDY !DOPCNO LDA OPDRDT+2,Y STA >GDBUF0+002H,X LDX !GDMMPT STA >GDMMBF+202H,X LDY #00002H LDX !GDRBF1 JSL >GDRW0400 ; vramd data set ; LDA !GDRBF1 LDX !GDMMPT CLC ADC #00080H STA >GDMMBF+004H,X LDX !GDRBF1 LDY !DOPCNO LDA OPDRDT+4,Y STA >GDBUF0+080H,X LDX !GDMMPT STA >GDMMBF+204H,X LDY #00080H LDX !GDRBF1 JSL >GDRW0400 ; vramd data set ; LDA !GDRBF1 LDX !GDMMPT CLC ADC #00082H STA >GDMMBF+006H,X LDX !GDRBF1 LDY !DOPCNO LDA OPDRDT+6,Y STA >GDBUF0+082H,X LDX !GDMMPT STA >GDMMBF+206H,X LDY #00082H LDX !GDRBF1 JSL >GDRW0400 ; vramd data set ; ;// 03.09.25 // LDY GRNDOON ;// 03.07.03 // LDY MPUNIT+0,X ;// 03.07.03 // STA !VRAMD+006H,Y ;// 03.07.03 // LDA >MPUNIT+2,X ;// 03.07.03 // STA !VRAMD+008H,Y ;// 03.07.03 // LDA >MPUNIT+4,X ;// 03.07.03 // STA !VRAMD+00EH,Y ;// 03.07.03 // LDA >MPUNIT+6,X ;// 03.07.03 // STA !VRAMD+010H,Y ;// 03.07.03 // TYA ;// 03.07.03 // CLC ;// 03.07.03 // ADC #00010H ;// 03.07.03 // STA CCNGCT ;;;;;;;; LSR A ;;;;;;;; BCC GFOT120 ; ;;;;;;;;; ; ;;;;;;;; LDA >MZKCNT ;;;;;;;; CLC ;;;;;;;; ADC #00010000B ;;;;;;;; STA >MZKCNT ;;;;;;;;GFOT120 EQU $ ;;;;;;;; LDA #00001001B ;;;;;;;; STA MZKCNT ;;;;;;;; ORA #00000111B ;;;;;;;; STA JSRSUB WORD GFOT1000 ; 0 : CG. work set WORD DKCGCG1 ; 1 : CG. change (fade out) WORD GFOT1200 ; 2 : end ; ; GFOT1000 EQU $ LDA GNDTBL+080H AND #01000000B BNE GFOT1040 ; fade-out ? ; ; yes GFOT1030 EQU $ LDA #0F1H STA !SOUND0 ;// 03.09.16 // STA !SVSND0 ; GFOT1040 EQU $ JMP SPCH000 ; ; GFOT1200 EQU $ LDA #10000000B STA ITMCBFST ; mochiage-kinoko set GFOT1220 EQU $ LDA !GRNDNO BEQ GFOT1240 ; BG.1 write ? ; ; no LDA ITMCBFST ; mochiage-kinoko set GFOT1280 EQU $ INC CCNGCT ;;;;;;;; LSR A ;;;;;;;; BCC GFOT220 ; ;;;;;;;;; ; ;;;;;;;; LDA >MZKCNT ;;;;;;;; CLC ;;;;;;;; ADC #00010000B ;;;;;;;; STA >MZKCNT ;;;;;;;;GFOT220 EQU $ ;;;;;;;; LDA #00001001B ;;;;;;;; STA MZKCNT ;;;;;;;; ORA #00000111B ;;;;;;;; STA JSRSUB WORD SPCH000 ; 0 : CG. work set WORD DKCGCG1 ; 1 : CG. change (fade out) WORD GFOT2200 ; 2 : end ; ; ; GFOT2200 EQU $ LDA #10000000B STA CCNGCT ;;;;;;;; LSR A ;;;;;;;; BCC GFOT320 ; ;;;;;;;;; ; ;;;;;;;; LDA >MZKCNT ;;;;;;;; CLC ;;;;;;;; ADC #00010000B ;;;;;;;; STA >MZKCNT ;;;;;;;;GFOT320 EQU $ ;;;;;;;; LDA #00001001B ;;;;;;;; STA MZKCNT ;;;;;;;; ORA #00000111B ;;;;;;;; STA JSRSUB WORD SPCH000 ; 0 : CG. work set WORD DKCGCG1 ; 1 : CG. change (fade out) WORD GFOT3200 ; 2 : end ; ; ; GFOT3200 EQU $ LDA #10000000B STA ENGRCK ; ; JSL >GREDS2 ; ground enemy set ; STZ !PYDMBT STZ !PYDMBT1 GB1WRT0 EQU $ LDA #005H STA !SOUND1 ;// 03.09.16 // STA !SVSND1 ; ; ;// 03.05.29 // MEM16 ;// 03.05.29 // IDX16 ;// 03.05.29 // REP #00110000B ; memory,index 16bit mode ;// 03.05.29 //; ;// 03.05.29 // LDA BKMDNO ;// 03.05.29 // LDA BKSCPT ;// 03.05.29 // LDA BKYWRT ;// 03.05.29 // LDA BKXWRT ;// 03.05.29 // LDA !SCRLFG ;// 03.05.29 // STA >BKSLFG ;// 03.05.29 // LDA !SCRLMD ;// 03.05.29 // STA >BKSLMD ;// 03.05.29 // LDA !GDWTFG ;// 03.05.29 // STA >BKGWTF ;// 03.05.29 //; ;// 03.05.29 // STZ GNDTBL,X ;// 03.05.29 // LDX #000B7H ; (X) <-- kiri ;// 03.05.29 // AND #00040H ;// 03.05.29 // BEQ GB1W080 ; mori spot ken totsutaka ? ;// 03.05.29 //; ; yes ;// 03.05.29 // SEP #00110000B ; memory,index 8bit mode ;// 03.05.29 // STZ GNDTBL,X ;// 03.05.29 // LDX #000BEH ; (X) <-- mori kokage ;// 03.05.29 // AND #00040H ;// 03.05.29 // BNE GB1W080 ; mori spot ken totsutaka ? ;// 03.05.29 //; ; no ;// 03.05.29 // LDX #000BDH ; (X) <-- mori kiri ;// 03.05.29 // BRA GB1W080 ;// 03.05.29 //; ;// 03.05.29 //GB1W060 EQU $ ;// 03.05.29 // LDX #000B5H ;// 03.05.29 // CMP #00003H ;// 03.05.29 // BEQ GB1W080 ; yama ? ;// 03.05.29 //; ; no ;// 03.05.29 // CMP #00005H ;// 03.05.29 // BEQ GB1W080 ; yama ? ;// 03.05.29 //; ; no ;// 03.05.29 // CMP #00007H ;// 03.05.29 // BEQ GB1W080 ; yama ? ;// 03.05.29 //; ; no ;// 03.05.29 // LDX #000BFH ; (X) <-- rain ;// 03.05.29 // LDA >MODTBL0 ;// 03.05.29 // AND #000FFH ;// 03.05.29 // CMP #00002H ;// 03.05.29 // BCC GB1W080 ; rain ? ;// 03.05.29 //; ; no ;// 03.05.29 // LDX #000B6H ; (X) <-- piramido back ;// 03.05.29 //GB1W080 EQU $ ;// 03.05.29 // STY BKMDNO ;// 03.05.29 // TAX ;// 03.05.29 // LDA #00100000B ;// 03.05.29 // CPX #05BH ;// 03.05.29 // BEQ GB1W090 ; piramido ? ;// 03.05.29 //; ; no ;// 03.05.29 // STZ BKMDNO ;// 03.05.29 // STA BKSCPT ;// 03.05.29 // STA BKYWRT ;// 03.05.29 // STA BKXWRT ;// 03.05.29 // STA BKSLFG ;// 03.05.29 // STA !SCRLFG ;// 03.05.29 // LDA >BKSLMD ;// 03.05.29 // STA !SCRLMD ;// 03.05.29 // LDA >BKGWTF ;// 03.05.29 // STA !GDWTFG ;// 03.05.29 //; ;// 03.05.29 // MEM8 ;// 03.05.29 // SEP #00100000B ; memory 8bit mode ;// 03.05.29 // RTS ;// 03.05.29 //; ;// 03.05.29 //; ;// 03.05.29 //; ;************************************************************************ ;* Ground BG.1 write-1 (GB1WRT1) * ;************************************************************************ GB1WRT1 EQU $ MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA BKMDNO LDA BKSCPT LDA BKYWRT LDA BKXWRT LDA !SCRLFG STA >BKSLFG LDA !SCRLMD STA >BKSLMD LDA !GDWTFG STA >BKGWTF ; STZ GNDTBL,X ;// 03.08.19 // LDX #000B7H LDX #00097H AND #00040H BNE GB1W130 ; mori spot ken totsutaka ? ; ; no GB1W110 EQU $ JMP GB1W180 ; GB1W120 EQU $ ;// 03.07.09 // LDY #00390H ;// 03.08.19 // LDX #000B4H LDX #00094H CMP #00181H BEQ GB1W110 ; hashi kage ? ; ; no LDX #00093H CMP #00189H BEQ GB1W110 ; end-polygon ? ; ; no CMP #00182H BEQ GB1W125 ; taki ? ; ; no CMP #00183H BNE GB1W130 ; taki ? ; ; yes GB1W125 EQU $ MEM8 SEP #00110000B ; memory,index 8bit mode ; LDA #001H STA !SOUND1 ;// 03.09.16 // STA !SVSND1 ; GB1W130 EQU $ SEP #00110000B ; memory,index 8bit mode STZ GNDTBL,X ;// 03.08.19 // LDX #000BEH ; (X) <-- mori kokage LDX #0009EH AND #00040H BNE GB1W180 ; mori spot ken totsutaka ? ; ; no GB1W150 EQU $ ;// 03.08.19 // LDX #000BDH ; (X) <-- mori kiri LDX #0009DH BRA GB1W180 ; GB1W160 EQU $ ;// 03.08.19 // LDX #000B5H LDX #00095H LDA GNDTBL+070H AND #00020H BNE GB1W180 ; rain on ? ; ; yes BRA GB1W170 ; GB1W165 EQU $ ;// 03.08.19 // LDX #000B6H LDX #00096H LDA >MODTBL0 AND #000FFH CMP #00002H BCS GB1W180 ; rain ? ; ; yes ;// 03.08.19 // LDX #000BFH GB1W170 EQU $ LDX #0009FH GB1W180 EQU $ STY GB1W185 EQU $ LDA #01110010B ;// 03.08.19 // CPX #0B7H CPX #097H BEQ GB1W190 ; mori-spot-kiri ? ; ; no ;// 03.08.19 // CPX #0B4H CPX #094H BEQ GB1W190 ; hashi kage ? ; ; no CPX #093H BEQ GB1W190 ; end-polygon ? ; ; no ;// 03.08.19 // CPX #0BDH CPX #09DH BEQ GB1W190 ; kiri ? ; ; no ;// 03.08.19 // CPX #0BEH CPX #09EH BEQ GB1W190 ; kiri ? ; ; no ;// 03.08.19 // CPX #0BFH CPX #09FH BEQ GB1W190 ; kiri ? ; ; no LDA #00100000B ;// 03.08.19 // CPX #0B5H CPX #095H BEQ GB1W190 ; yama ? ; ; no ;// 03.08.19 // CPX #0BCH CPX #09CH BEQ GB1W190 ; ura-yama ? ; ; no LDA >BKMDNO TAX LDA #00100000B CPX #05BH BEQ GB1W190 ; piramido ? ; ; no CPX #01BH BNE GB1W187 ; piramido ? ; ; no LDX BKMDNO STA BKSCPT STA BKYWRT STA BKXWRT STA BKSLFG STA !SCRLFG LDA >BKSLMD STA !SCRLMD LDA >BKGWTF STA !GDWTFG ; MEM8 SEP #00100000B ; memory 8bit mode RTS ; ; ; ;************************************************************************ ;* Ground mozaiku Fade-in (GMFIN10) * ;************************************************************************ GMFIN10 EQU $ LDA >CCNGCT LSR A BCC GFIN120 ; ; ; LDA >MZKCNT SEC SBC #00010000B STA >MZKCNT GFIN120 EQU $ JSR MZKSET1 ; mozaiku set ;;;;;;;; LDA #00001001B ;;;;;;;; STA MZKCNT ;;;;;;;; ORA #00000111B ;;;;;;;; STA JSRSUB WORD GFIN1000 ; 0 : init. WORD GFIN2100 ; 1 : CG. change (fade in) WORD GFIN1300 ; 2 : end ; ; GFIN1000 EQU $ LDX ROJCTBL,X STA CGPTDT,X JSL >GCGCHNG ; CG. reset BRA GFIN2000 ; ; GFIN1300 EQU $ LDA !SVSND0 STA !SVCKF0 ; LDA LDA GDTRPF BNE GFIN1330 ; omote ? ; ; yes LDA >GNDTBL+080H AND #01000000B BEQ GFIN1320 ; master-sword on ? ; ; yes STZ !SOUND0 LDX #002H BRA GFIN1340 ; GFIN1320 EQU $ LDX #005H GFIN1330 EQU $ STX !SOUND0 ;// 03.09.16 // STA !SVSND0 ; GFIN1340 EQU $ STZ CCNGCT LSR A BCC GFIN220 ; ; ; LDA >MZKCNT SEC SBC #00010000B STA >MZKCNT GFIN220 EQU $ JSR MZKSET1 ; mozaiku set ;;;;;;;; LDA #00001001B ;;;;;;;; STA MZKCNT ;;;;;;;; ORA #00000111B ;;;;;;;; STA JSRSUB WORD GFIN2000 ; 0 : init. WORD GFIN2100 ; 1 : CG. change (fade in) WORD GFIN2300 ; 2 : end ; ; GFIN2000 EQU $ JSL >OJCHCNG ; Obj. character buffer set ; LDA #00001111B STA CCNGED DEC A STA >CCNGCT LDA #000H STA >CCNGED LDA #002H STA >CCNGFG ; fade-in set ; INC CHRCHNG ; charcater change ; JSL >CGCNG1 ; CG. change RTS ; ; GFIN2300 EQU $ LDA LDA GFIN2340 EQU $ LDA #p2_atmv STA KAGE000 RTS ; ; KAGE000 EQU $ INC !GMAPDF ; LDA JSRSUBL LWORD KAGE200 ; kagerou init. LWORD KAGEMV ; move LWORD KAGEMV1 ; move LWORD KAGEMV2 ; end move LWORD KAGE500 ; end ; ; ; KAGE200 EQU $ LDA STA !SCLSFG ; scroll flag on!! ; LDA #DAMG3 STA !PYFLASH ; JSL >KAGEIT ; kagerou init. ; LDA >GDTRPF EOR #01000000B STA >GDTRPF STZ !KMKCPT STZ !KMKCPT+1 ;// 03.09.02 // BEQ KAGE260 ; ura warp ? ;// 03.09.02 //; ; yes ;// 03.09.02 // LDA GDTRPF STA CTPITST ; trip CG. init set ; JSR GDMCK800 ; information ram set INC CCNGCT STA >CCNGFG ; MEM8 SEP #00100000B ; memory 8bit mode ; JSL >CHRCBSZ ; character buffer set ; LDA #10000000B STA GDTRPF BEQ KAGE545 ; ura ? ; ; yes LDA >ITMTBL4 BEQ KAGE550 ; usagi change ? ; ; no KAGE545 EQU $ LDX #009H LDA MODTBL0 CMP #003H BCS KAGE550 ; kou-han ? ; ; no LDX #007H KAGE550 EQU $ STX !SOUND0 ;// 03.09.16 // STX !SVSND0 ; LDA KAGE565 EQU $ LDX #00DH LDA >ITMTBL4 BNE KAGE567 ; usagi change ? ; ; yes LDX #004H KAGE567 EQU $ STX !SOUND0 ; KAGE570 EQU $ LDA MPSIZE,X AND #000FFH BEQ KGBG120 ; small ? ; ; yes LDA #00390H STA MPSIZE,X AND #000FFH BEQ KGBG210 ; small ? ; ; yes LDA #00390H STA ROBJCST ; Obj. character table set ; JSR MPALST ; ground all write ; MEM16 REP #00100000B ; memory 16bit mode ; PLA ; (A) pull STA CHRCBS0 ; character buffer set ; JSR INCLST1 ; initial BG color set LDX ROJCTBL,X STA CGPTDT,X JSL >GCGCHNG ; ground cg. set ; JSL >NKCGST1 ; nuki ; JSL >KCOLSET ; kotei-color set LDA CGWORK+040H,X STA >CGWORK+060H,X STA >CGWORK+080H,X STA >CGWORK+0A0H,X STA >CGWORK+0C0H,X STA >CGWORK+0E0H,X INX INX CPX #020H BNE KGBG260 ; ; ; STA >CGWORK+000H ; LDA CGWORK+000H STA >CGWORK+040H KGBG270 EQU $ MEM8 SEP #00100000B ; memory 8bit mode ; ; JSL >ALCLER ; enemy clear JSL >GREDS2 ; ground enemy set ; JSL >PYDMCLR ; player demo claer JSR PFLGCL ; player flag clear ; LDA #TRFS STA HYUSET KGBG280 EQU $ RTL ; ; ;// 03.10.07 //;----------------------------------------- ;// 03.10.07 //KGRSCK EQU $ ;// 03.10.07 // LDA !NXSLMD ;// 03.10.07 // CMP #p2_kage ;// 03.10.07 // BNE KGRS80 ; reset ? ;// 03.10.07 //; ; yes ;// 03.10.07 // STZ !GDMMPT ;// 03.10.07 // STZ !GDMMPT+1 ;// 03.10.07 //KGRS80 EQU $ ;// 03.10.07 // RTL ; ; ; ; ; ;************************************************************************ ;* Ground Kiri Fade-out (KIRIFD) * ;************************************************************************ KIRIFD EQU $ JSL >KCGCNG ; kiri fade-out ; ;************************************************************************ ;* Kazamidori move (KZBIRD) * ;************************************************************************ KZBIRD EQU $ RTS ; ; ; ; ;************************************************************************ ;* Ground Warp (GDWARP) * ;************************************************************************ GDWARP EQU $ INC !GMAPDF ; LDA JSRSUB WORD GWRP000 ; 00 : warp init. WORD GWRP200 ; 01 : move WORD GWRP250 ; 02 : wait WORD GWRP400 ; 03 : next set WORD GWRP450 ; 04 : next set WORD GWRP500 ; 05 : BG. write WORD GWRP550 ; 06 : BG. write WORD GWRP600 ; 07 : character change WORD GWRP700 ; 08 : character change WORD GWRP750 ; 09 : character change WORD GWRP350 ; 0A : wait WORD GWRP300 ; 0B : move WORD GWRP800 ; 0C : end ; ; ; GWRP000 EQU $ LDA #034H STA !SOUND2 ; ; STZ !ITEMMD ; LDA #000H STA >CCNGCT STA >CCNGCT+1 ; INC WPCCNG0 ; CG. change RTS ; ; GWRP250 EQU $ JSL >WPCCNG2 ; CG. change RTS ; ; GWRP300 EQU $ JSL >CHRCHNG ; OBJ. character change ; JSL >WPCCNG1 ; CG. change RTS ; ; GWRP350 EQU $ JSL >WPCCNG3 ; CG. change LDA >CCNGCT BEQ GWRP390 ; ; ; no JSL >WPCCNG3 ; CG. change GWRP390 EQU $ RTS ; ; GWRP400 EQU $ LDA #10011111B STA IIT6000 ; warp point set ; STZ GNDRWT3 ; BG.1 write LDA #bgwC STA MWRPB00 ; BG. write LDA #bgwC STA OBJYSET JSL >CHITEMST ; JSL >DJCGSET JSL >B3CGSET JSL >GDCGST ; LDX ROJCTBL,X STA CGPTDT,X JSL >GCGCHNG ; ground cg. set JSL >NKCGST0 ; nuki ; JSL >KCOLSET ; kote-color set ; JSL >OJCHCNG ; BG. buffer set GWRP760 EQU $ LDA #10000000B STA CHRCBSZ ; character buffer set ; LDA #10000000B STA GDTRPF BEQ GWRP840 ; ura ? ; ; yes LDX #009H GWRP840 EQU $ STX !SOUND0 ; STZ KMWWST ; kame-iwa warp unit set ; STZ SGTOPEN ; shiro-gate open ;;;;;;;; RTS ;;;;;;;;; ; ; ; ;************************************************************************ ;* Ground Hole down reset (GHLDRST) * ;************************************************************************ GHLDRST EQU $ LDA JSRSUB WORD HLDR100 ; 0 : scroll WORD HLDR200 ; 1 : reset ; ; HLDR100 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; STZ HLXPS1 BEQ HLDR140 ; H-move ? ; ; yes BCC HLDR120 ; ; ; DEC HLXPS1 BEQ HLDR140 ; = ? ; ; no DEC HLXPS1 BEQ HLDR140 ; = ? ; ; no INC HLYPS1 BEQ HLDR180 ; V-move ? ; ; yes BCC HLDR160 ; ; ; DEC HLYPS1 BEQ HLDR180 ; = ? ; ; no DEC HLYPS1 BEQ HLDR180 ; = ? ; ; no INC HLYPS1 BNE HLDR190 ; V = ? ; ; yes LDA HLXPS1 BNE HLDR190 ; H = ? ; ; yes INC SPGOTO+3 STA MPBTSET ; map on/off bit set ; PLB ; (DBR) reset RTL ; ; ;************************************************************************ ;* X-move (-) (XCALC1) * ;************************************************************************ XCALC1 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDA SPGOTO+2 STA ENDTST ; enemy data set ; XCL127 EQU $ INC MPBTSET ; map on/off bit set ; PLB ; (DBR) reset RTL ; ; ;************************************************************************ ;* Y-move (+) (YCALC0) * ;************************************************************************ YCALC0 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDA SPGOTO+3 ;/** 03.07.31 **/ STA DJKYSV ; danjyon key save ; ;// 03.09.24 // JSL >MPBTSET ; map on/off bit set JSL >MPBTSET0 ; map on/off bit set ; ;// 02.12.05 // AND #00111000B ;// 02.12.05 // BNE YCL020 ; return ground ? ;// 02.12.05 //; ; yes ;// 02.12.05 // LDA SPGOTO+2 ;/** 03.07.31 **/ JSR WRPRMST1 ;/** 03.07.31 **/ BRA YCL027 ;/** 03.07.31 **/; ;/** 03.07.31 **/YCL025 EQU $ LDA !ERXYCT CMP ENDTST ; enemy data set ; YCL027 EQU $ INC MPBTSET ; map on/off bit set ; PLB ; (DBR) reset RTL ; ; ;************************************************************************ ;* Y-move (-) (YCALC1) * ;************************************************************************ YCALC1 EQU $ PHB PHK PLB ; (DBR) set ; LDA SPGOTO+2 ;/** 03.07.31 **/ STA >> LDA !DJNNO ;<<< 03.09.06 >>> CMP #0FFH ;<<< 03.09.06 >>> BEQ YCL117 ; ;<<< 03.09.06 >>>; ; ;<<< 03.09.06 >>> LSR A ;<<< 03.09.06 >>> TAX ;<<< 03.09.06 >>> LDA >ITMTBL9 ;<<< 03.09.06 >>> STA >DKYTBL,X ; key count save ;<<< 03.09.06 >>>YCL117 EQU $ ;<<< 03.09.06 >>>;// 02.12.05 // LDA >>;// 02.12.05 // SEC ;<<< 03.09.06 >>>;// 02.12.05 // SBC #00008H ;<<< 03.09.06 >>>;// 02.12.05 // STA >>;// 02.06.06 // STA >>;// 02.12.05 // AND #00111000B ;<<< 03.09.06 >>>;// 02.12.05 // CMP #00111000B ;<<< 03.09.06 >>>;// 02.12.05 // BNE YCL120 ; return ground ? ;<<< 03.09.06 >>>;// 02.12.05 //; ; yes ;<<< 03.09.06 >>>;// 02.12.05 // LDA >>;// 02.12.05 // CLC ;<<< 03.09.06 >>>;// 02.12.05 // ADC #008H ;<<< 03.09.06 >>>;// 02.12.05 // STA >>;// 02.06.06 // STA >> LDA #MD_gdint ;<<< 03.09.06 >>> STA !NXSLMD ;<<< 03.09.06 >>> LDA #MD_wpout ;<<< 03.09.06 >>> STA >> STZ >> STZ >> JSR PFLGCL ; player flag clear ;<<< 03.09.06 >>> PLB ; (DBR) reset ;<<< 03.09.06 >>> RTL ; ; YCL120 EQU $ LDA DJKYSV ; danjyon key save ; LDA #MD_etryf STA SPGOTO+3 ;/** 03.07.31 **/ JSR WRPRMST1 ;/** 03.07.31 **/ BRA YCL127 ;/** 03.07.31 **/; ;/** 03.07.31 **/YCL125 EQU $ LDA !ERXYCT CMP ENDTST ; enemy data set ; YCL127 EQU $ INC MPBTSET ; map on/off bit set ; PLB ; (DBR) reset RTL ; ; ;************************************************************************ ;* X-move (+) (XCALC2) * ;************************************************************************ XCALC2 EQU $ LDA MAPCDT,X ORA !MAPSTT STA !MAPSTT ; map on/off bit set MPBTSET0 EQU $ MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA DJNTBL,X ORA !MAPSTT STA >DJNTBL,X ; map on/off bit set ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode RTL ; ; ; ; ; ;************************************************************************ ; X-move (-) (XCALC3) * ;************************************************************************ XCALC3 EQU $ LDA MAPCDT,X ORA !MAPSTT STA !MAPSTT ; map on/off bit set ; JSR RSTSET ; room status set ; RTL ; ; ; ; ; ; ;************************************************************************ ;* Room status set (RSTSET) * ;************************************************************************ RSTSET EQU $ MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA DJNTBL,X ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode RTS ; ; ; ; ;************************************************************************ ;* Scroll check data change - 00 (SLDC00) * ;************************************************************************ SLDC00 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDA !SCVU,X CLC ADC #0100H STA !SCVU,X LDA !SCVD,X CLC ADC #0100H STA !SCVD,X ; MEM8 SEP #00100000B ; memory 8bit mode RTS ; ; ;************************************************************************ ;* Scroll check data change - 01 (SLDC01) * ;************************************************************************ SLDC01 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDA !SCVU1,X CLC ADC #0200H STA !SCVU1,X LDA !SCVD1,X CLC ADC #0200H STA !SCVD1,X ; MEM8 SEP #00100000B ; memory 8bit mode RTS ; ; ;************************************************************************ ;* Scroll check data change - 10 (SLDC10) * ;************************************************************************ SLDC10 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDA !SCVU,X SEC SBC #0100H STA !SCVU,X LDA !SCVD,X SEC SBC #0100H STA !SCVD,X ; MEM8 SEP #00100000B ; memory 8bit mode RTS ; ; ;************************************************************************ ;* Scroll check data change - 11 (SLDC11) * ;************************************************************************ SLDC11 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDA !SCVU1,X SEC SBC #0200H STA !SCVU1,X LDA !SCVD1,X SEC SBC #0200H STA !SCVD1,X ; MEM8 SEP #00100000B ; memory 8bit mode RTS ; ; ; ;************************************************************************ ;* Scroll check counter set (SLCTST) * ;************************************************************************ RMUSLD EQU $ WORD 0078H,0178H RMDSLD EQU $ WORD 0088H,0188H RMLSLD EQU $ WORD 007FH,017FH RMRSLD EQU $ WORD 007FH,017FH ; SLCTST EQU $ STY !SCRLFG ; scroll muki set ; LDA MPBTSET ; map on/off bit set ; PLB ; (DBR) reset ; INC WBUFS1 ; BG.1 write buffer set RTS ; SLCK120 EQU $ PLB ; (DBR) reset ; MEM8 SEP #00100000B ; memory 8bit mode SLCK160 EQU $ RTS ; ; ; ; ;************************************************************************ ;* Scroll check (WPSRLCK) * ;************************************************************************ WSCAD0 EQU $ ; warp-scroll counter add. data-0 ; up down WORD 00020H,0FFC0H,00020H,0FFE0H ; ; WPSRLCK EQU $ PHB PHK PLB ; (DBR) set ; LDA #OMS000 ; oam shokyo set STA ENGRCK ; enmey ground check ; PLX ; (X) pull PLA ; (A) pull RTS ; ; MEM16 GSLC400 EQU $ LDA SCVU0DT,Y STA !SCVU+0 CLC ADC GADDDT0,X STA !SCVU+2 LDA SCVU4DT,Y STA !SCVU+4 CLC ADC GADDDT1,X STA !SCVU+6 ; LDA SCKY0DT,Y STA !SCKY00 CLC ADC GADDDT2,X STA !SCKY10 LDA SCKX0DT,Y STA !SCKX00 CLC ADC GADDDT3,X STA !SCKX10 RTS ; ; ; ; ;************************************************************************ ;* Auto move (AUTOMV0) * ;************************************************************************ PTRPDT EQU $ ; point replace data ; U D L R BYTE 000H,005H,00AH,00FH ; YAMCKD0 EQU $ ; Y(+) auto move check data ;// 03.06.25 // BYTE 00CH,020H,030H,038H,040H BYTE 00CH,020H,030H,038H,048H YAMCKD1 EQU $ ; Y(-) BYTE 0D4H,0D8H,0C0H,0C0H,0A8H XAMCKD0 EQU $ ; X(+) ;// 03.06.25 // BYTE 00CH,018H,028H,030H,038H BYTE 00CH,018H,028H,030H,040H XAMCKD1 EQU $ ; X(-) ;// 03.06.25 // BYTE 0E4H,0D8H,0C8H,0C0H,0B8H BYTE 0E4H,0D8H,0C8H,0C0H,0B0H ; ; AUTOMV0 EQU $ ;/////// JSL >PYCRCN ; player chara henkan sub JSR PFLGCL ; player flag clear ; JSR ATMV000 ; INC DJNTBL,X ORA !MAPSTT STA >DJNTBL,X ; map on/off bit set ;// 02.06.06 // TYX ; (X) <-- (Y) ;// 02.06.06 // STA >DJNTBL,X ; map on/off bit set ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode RTS ; ; ATMV000 EQU $ ;// 02.12.05 // LDX !SCRLFG ;// 02.12.05 // LDA >PTRPDT,X ;// 02.12.05 // TAX LDA !SCRLFG AND #00000010B PHA ; (A) push ;// 02.12.05 // LDA >YAMCKD0,X ;// 02.12.05 // STA PLYPS1,Y ;// 02.12.05 // BMI ATMV020 ; (+) ? ;// 02.12.05 //; ; yes ;// 02.12.05 // TYX ; (X) <-- (Y) ;// 02.12.05 // INC PTRPDT,X TAX LDY #008H LDA >YAMCKD0,X BPL ATMV040 ; (-) data ? ; ; yes LDY #0F8H ATMV040 EQU $ STY DARKFG ORA >BKDARKF BEQ AUTOMV2 ; fade out ? ; ; yes JSL >CGCNG1 AUTOMV2 EQU $ JSL >PYCRCN ; player chara henkan sub ; JSR ATMV200 ; auto move BCC ATMV180 ; auto move end ? ; ; yes LDX PTRPDT,X TAX ; LDY #002H LDA !SCRLFG LSR A BCC ATMV210 ; Y(+) ? ; ; LDY #0FEH ATMV210 EQU $ STY YAMCKD0,X BEQ ATMV280 ; end ? ; ; no ATMV230 EQU $ CLC RTS ; ATMV240 EQU $ LDY #0FFH LDA YAMCKD0,X BNE ATMV230 ; end ? ; ; yes ATMV280 EQU $ SEC RTS ; ; ;************************************************************************ ;* Player auto move check (PYATCK) * ;************************************************************************ PYATCK EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDA READBF+000H,X ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; LDY #000H CMP #000H BEQ PYAC40 ; tsuuro ? ; ; no CMP #009H BEQ PYAC40 ; little water ? ; ; no INY ;// 03.02.22 // AND #0EEH AND #10001110B CMP #080H BEQ PYAC40 ; normal ? ; ; no ;// 03.02.22 // CMP #088H ;// 03.02.22 // BEQ PYAC40 ; warp ? ;// 03.02.22 //; ; no INY CMP #082H BEQ PYAC40 ; bomb,shutter ? ; ; no ;// 03.02.22 // CMP #08AH ;// 03.02.22 // BEQ PYAC40 ; change bomb,shutter ? ;// 03.02.22 //; ; no INY CMP #084H BEQ PYAC40 ; under ? ; ; no CMP #088H BEQ PYAC40 ; warp ? ; ; no ;// 03.02.22 // CMP #08AH ;// 03.02.22 // BEQ PYAC40 ; warp under ? ;// 03.02.22 //; ; no INY CMP #086H BEQ PYAC40 ; under-shutter ? ; ; no ;// 03.02.22 // CMP #08EH ;// 03.02.22 // BEQ PYAC40 ; change under-shutter ? ;// 03.02.22 //; ; no DEY DEY PYAC40 EQU $ STY PYCRCN ; player character change ; LDY #002H ;// 02.08.27 // LDA !SCRLFG LDA !GATMFG LSR A BCS GATM20 ; (+) ? ; ; no LDY #0FEH GATM20 EQU $ STY GLMTDT,X BNE GATM80 ; end ? ; ; yes STZ MODTBL0 CMP #003H BCS GATM70 ; kou-han ? ; ; no LDX #007H GATM70 EQU $ STX !SOUND0 ;// 03.09.16 // STX !SVSND0 ; GATM80 EQU $ JSR GNDSCL ; gamen scroll check ; LDA !GDWTFG BEQ GATM99 ; write ? ; ; yes ;// 03.08.08 // LDA PYCRCN ; player character change ; LDY #001H ;// 02.08.27 // LDA !SCRLFG LDA !GATMFG LSR A BCS GATM120 ; (+) ? ; ; no LDY #0FFH GATM120 EQU $ STY CCNGCT LSR A BCC MZKSET1 ; ; ; MZKSET0 EQU $ LDA >MZKCNT CLC ADC #00010000B STA >MZKCNT MZKSET1 EQU $ LDA #00001001B STA MZKCNT ORA #00000111B STA