; INCLUDE zel_ram.asm INCLUDE zel_label.asm ; ;------------------------------------------------------------------------ ; ; PAL_ZELDA-3 (GERMAN) 1991.11.27(WED) ; ;------------------------------------------------------------------------ ; ORG 01B560H ; ;=============================================== (zel_bgwt) ============= GLB HINFDST ; GLB BGCHNG,RCHRCK,CHRCNG1,INFDCHK GLB LMPTIMER,BDRCHCK,BDROPEN,DOPPLY,SDRPLY,GNNOPEN GLB BLKPLY,CSWLPLY,WTRDOWN,WTRCLR0,WTRCLR1 GLB WTRUPP,WGTOPEN,TKBXPL,BLKSCHK,MCBLKCK GLB LAMPPL,LAMPPL1,RASENW0,RASENW1,REWTST,TGBLKWT GLB COINCK,DJHMCK,TYCDCNG,LAMPOFF0,LAMPOFF1 ; GLB CDBGCD,PLBGCD,RCKED,BWYRXD,BWYRYD ; ; GLB inf_not GLB inf_ee0,inf_ee1,inf_ee2,inf_ee3,inf_ee4 GLB inf_ee5,inf_ee6,inf_ee7,inf_ee8 GLB inf_bs0,inf_bs1,inf_bs2,inf_bs3,inf_bs4 GLB inf_bs5,inf_bs6,inf_bs7,inf_bs8 GLB inf_ssd,inf_bsd,inf_sd0,inf_sd1 GLB inf_wdn,inf_wup,inf_wgt,inf_gwr GLB inf_wre,inf_wle,inf_wde,inf_wue,inf_cwy GLB inf_tp0,inf_tp1,inf_tp2,inf_tp3,inf_tp4 GLB inf_bcw,inf_ebl,inf_stk,inf_cws GLB inf_et0,inf_et1,inf_et2,inf_et3,inf_et4 GLB inf_et5,inf_et6,inf_et7,inf_et8,inf_sd3 GLB inf_tp5,inf_tp6,inf_tp7,inf_uss GLB inf_tp8,inf_tp9,inf_tpA,inf_btk,inf_gnn GLB inf_ee9,inf_et9,inf_trt,inf_bes ;=============================================== (zel_main) ============= EXT MD_title,MD_djint,MD_djply,MD_gdint,MD_gdply EXT MD_fdout,MD_fdin,MD_etcpl EXT MD_wpout,MD_wpin ;=============================================== (zel_vma) ============== EXT WBUFS1 ; EXT VT01 ; EXT bgw5,bgw6 ;=============================================== (zel_init) ============= EXT YCALC00,YCALC1 EXT MPBTSET1,DARKDT,UDJBITD,SWYKCNG ; EXT p1_move,p1_scl0,p1_scl1,p1_bchg,p1_dopn,p1_sdop EXT p1_stpc,p1_hldn,p1_mcng,p1_bmbd,p1_ltwp EXT p1_wtrd,p1_wtru,p1_wgop,p1_kstp,p1_fdin,p1_mcg1 EXT p1_warp,p1_sls0,p1_sls1,p1_hlrs,p1_dwrp,p1_tmyk EXT p1_swon,p1_plgn,p1_gnop ;=============================================== (zel_make) ============= EXT HISIST ;=============================================== (zel_play) ============= EXT BLOKMV,BKHLMV,RASINT,STEINT,DASHON,KNKMIT EXT DOKYDT,DOKXDT ; EXT HLDM ;=============================================== (zel_exst) ============= EXT KBDMIT,BMKRINT,MESWIT ;=============================================== (zel_rmdt) ============= EXT DJNDRD ;=============================================== (zel_djdt) ============= EXT REPRDT,HINFDT ; EXT WRRSD0 ;=============================================== (zel_data0) ============ EXT UNITDT,FLORDT,UDRTBL,DDRTBL,LDRTBL,RDRTBL EXT UDOPNDD,DDOPNDD,LDOPNDD,RDOPNDD,OYKBGD ; EXT BITCD0,BITCD1,TBITCD EXT UPADR0,DNADR0,LFADR0,RTADR0 EXT DCXRPD,DCYRPD,DCPRPD,OPDRCD,OPNDRNO EXT IDOCD0,IDOCD1 EXT BWLMTD0,BWLMTD1 ; EXT watrd1,holedt,wakud0,wakud1,wakud2,wakud3 ; EXT cwuddt,cwlrdt,firedt,smldid,stopyk EXT crtnd0,crtnd1,crtnd2,crtnd3,crtnd8,crtnd9,crtndA,crtndB EXT wgatop0,wgatop1,wgatop2,wgatop3,haisui,tapdt2 EXT tapdt3,tapdt4,tkbox0,tkbox1,tkbox3,nukidt,tgblkd,flyykd EXT iceat0,iceat1,holed9,djwpyk,onswh1,ofswh1,cngice EXT gnnkz8,gnnkz9,gnnkzA,gnnkzB ;=============================================== (zel_comn) ============= ;// 03.09.25 // EXT CGCNGA ; EXT WTRWPMV,WWPM000,WRWPV0,HDMAOFF ;=============================================== (zel_char) ============= EXT KOUKAST,PLCGCN0,THCGCN1,PWTRCGS2,PWTRCGS3 ; EXT DJNCGDT ;=============================================== (zel_grnd) ============= EXT BOMBCHK ;=============================================== (zel_enmy) ============= EXT OAMENT3,SDLRCK,BSITEM,EFLCHK,EFLCHK2,RNDSET,KUSAST ; EXT EBAKU ;=============================================== (zel_sub0) ============= EXT DJEXTCK ;=============================================== (zel_mesge) ============= EXT MS_00DD,MS_0553,MS_0554 ;======================================================================== ; EXTEND MEM8 IDX8 ; ; ; ;************************************************************************ ;* House information data set (HINFDST) * ;************************************************************************ SCCTDT EQU $ ; SCCx count data WORD 00100H,0FF00H ; ; ; HINFDST EQU $ ;// 02.11.02 // STZ >> STZ !INFONFG STZ !BLKSWF ; ;<<< 03.09.05 >>> LDX >> LDA >DJINFTBL,X ;<<< 03.09.05 >>> AND #10000000B ;<<< 03.09.05 >>> BEQ HIFS20 ; ;<<< 03.09.05 >>>; ; ;<<< 03.09.05 >>> INC !INFONFG ;<<< 03.09.05 >>>HIFS20 EQU $ MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA SCCTDT,X HIFS80 EQU $ AND #0FE00H STA !SCHCT LDA SCCTDT,X HIFS200 EQU $ AND #0FE00H STA !SCVCT ; ; LDA HINFDT,X STA BKGSUBF LDY #00000H LDA [DARKFG STA >BKDARKF ; now DARK check flag push LDA [DARKFG ; color DARK check flag set ; MEM16 REP #00100000B ; memory 16bit mode ; INY LDA [DJNCGDT,X STA !DANJC ; danjyon basic color ;// 03.02.19 // LDA DJNCGDT+1,X ;// 03.02.19 // STA !SPGC ; spacial color ;// 03.06.26 // LDA >DJNCGDT+1,X ;// 03.06.26 // STA !KOKBGC ; kouka color ;// 03.06.26 // LDA >DJNCGDT+2,X ;// 03.06.26 // STA !BOBOJC ; Bg.-obj color ;// 03.06.26 // LDA >DJNCGDT+3,X ;// 03.06.26 // STA !EYOJC0 ;// 03.06.26 // LDA >DJNCGDT+4,X ;// 03.06.26 // STA !EYOJC1 ; enemy color LDA >DJNCGDT+1,X STA !BOBOJC ; Bg.-obj color LDA >DJNCGDT+2,X STA !EYOJC0 LDA >DJNCGDT+3,X STA !EYOJC1 ; enemy color ; ; INY LDA [HLGOTO ; hole goto set INY LDA [SPGOTO+0 ; step goto set INY LDA [SPGOTO+1 ; step goto set INY LDA [SPGOTO+2 ; step goto set INY LDA [SPGOTO+3 ; step goto set ; ; ;************************************************************************ ;* Initial Door open check (IDROPCK) * ;************************************************************************ IDROPCK EQU $ MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA #00001H STA !TRAPMD ; trap mode init. set STZ !TPCHPT ; LDA DJNDRD+1,X STA DJNDRD,X STA DJNTBL,X AND #1111000000000000B STA !RMSTTT ; room door on/off bit ORA #00F00H STA !DOPNBT LDA >DJNTBL,X AND #0000111111110000B ASL A ASL A ASL A ASL A STA !EMYSTT ; room enemy on/off bit ;// 03.04.18 // LDA >DJNTBL,X ;// 03.04.18 // AND #0000001111110000B ;// 03.04.18 // LSR A ;// 03.04.18 // LSR A ;// 03.04.18 // XBA ;// 03.04.18 // STA !INFSTT ; room information on/off bit ;// 03.03.26 // LDA >DJNTBL,X ;// 03.03.26 // XBA ;// 03.03.26 // AND #0111000000000000B ;// 03.03.26 // ASL A ;// 03.03.26 // STA !ITMSTT ; room item on/off bit LDA >DJNTBL,X AND #0000000000001111B STA !MAPSTT ; room map on/off bit ; ;<<< 03.09.05 >>> MEM8 ;<<< 03.09.05 >>> SEP #00100000B ; memory 8bit mode ;<<< 03.09.05 >>>; ;<<< 03.09.05 >>>;// 03.04.18 // LDA !INFSTT ;<<< 03.09.05 >>> LDA !EMYSTT ;<<< 03.09.05 >>> AND BITCD0+6 ;<<< 03.09.05 >>> BEQ IDOC10 ; information on ? ;<<< 03.09.05 >>>; ; yes ;<<< 03.09.05 >>> STZ >>IDOC10 EQU $ ;<<< 03.09.05 >>>;// 03.04.18 // LDA !INFSTT ;<<< 03.09.05 >>> LDA !EMYSTT ;<<< 03.09.05 >>> AND BITCD0+8 ;<<< 03.09.05 >>> BEQ IDOC20 ; information on ? ;<<< 03.09.05 >>>; ; yes ;<<< 03.09.05 >>> STZ >>IDOC20 EQU $ ;<<< 03.09.05 >>> MEM16 ;<<< 03.09.05 >>> REP #00100000B ; memory 16bit mode ; LDX #00000H TXY IDOC40 EQU $ STZ !DORADR,X ; LDA [DJNDRD+1,X STA DJNDRD,X STA DJNTBL,X AND #0F000H ORA #00F00H STA !NRSTAT LDX #00000H TXY IDOC420 EQU $ LDA [REPRDT+1,X STA REPRDT,X STA RCKLTBL,X ;// 03.02.26 // STA RCKHTBL,X ;// 03.02.26 // STA ROOMBF+2,X ;// 02.12.19 // AND #003FFH ;// 02.12.19 // TAY ;// 02.12.19 // LDA RDCODE,Y ;// 02.12.19 // STA ROOMBF,X ;// 02.12.19 // AND #003FFH ;// 02.12.19 // TAY ;// 02.12.19 //; ;// 02.12.19 // MEM8 ;// 02.12.19 // SEP #00100000B ; memory 8bit mode ;// 02.12.19 //; ;// 02.12.19 // LDA RDCODE,Y ;// 02.12.19 // CMP #010H ;// 02.12.19 // BCC RCRC140 ; slanting data ? ;// 02.12.19 //; ; yes ;// 02.12.19 //;// 02.12.10 // CMP #020H ;// 02.12.19 // CMP #01CH ;// 02.12.19 // BCS RCRC140 ; slanting data ? ;// 02.12.19 //; ; yes ;// 02.12.19 // LDA >ROOMBF+1,X ;// 02.12.19 // ASL A ;// 02.12.19 // ROL A ;// 02.12.19 // ROL A ;// 02.12.19 // AND #003H ;// 02.12.19 // ORA RDCODE,Y ;// 02.12.19 //RCRC140 EQU $ ;// 02.12.19 // STA ROOMBF+3,X ;// 02.12.19 // ASL A ;// 02.12.19 // ROL A ;// 02.12.19 // ROL A ;// 02.12.19 // AND #003H ;// 02.12.19 // ORA READBF,X ;// 02.12.19 // INX ;// 02.12.19 // INX ;// 02.12.19 // STX TAMAFLG BEQ CHRC140 ; code change ? ; ; yes JSL >TYCDCNG ; tama-yuka code set CHRC140 EQU $ STZ !ITEMMD RTL ; ; ; ;************************************************************************ ;* Character code change (CHRCNG) * ;************************************************************************ CHRCNG EQU $ MEM16 REP #00100000B ; memory 16bit mode ; INC !ITEMMD ; STZ ROOMBF+2,X AND #003FFH TAY LDA RDCODE0,Y STA ROOMBF,X AND #003FFH TAY ; MEM8 SEP #00100000B ; memory 8bit mode ; LDA RDCODE0,Y CMP #010H BCC CHCG040 ; slanting data ? ; ; yes CMP #01CH BCS CHCG040 ; slanting data ? ; ; yes LDA >ROOMBF+1,X ASL A ROL A ROL A AND #003H ORA RDCODE0,Y CHCG040 EQU $ STA ROOMBF+3,X ASL A ROL A ROL A AND #003H ORA READBF,X INX INX STX READBF+000H,X STA >READBF+040H,X INY INY CPY !TPCKPT BNE RCCK20 ; check end ? ; ; yes ; RCCK100 EQU $ LDA #03030H STA READBF+081H,X LDA #02626H STA >READBF+001H,X LDA READBF+041H,X CLC ADC #00101H STA READBF+001H,X STA >READBF+081H,X STA >READBF+0C1H,X LDA READBF+041H,X CLC ADC #00101H STA READBF+001H,X STA >READBF+081H,X STA >READBF+0C1H,X LDA READBF+041H,X CLC ADC #00101H STA READBF+081H,X STA >READBF+0C1H,X LDA #03838H STA >READBF+001H,X LDA READBF+041H,X CLC ADC #00101H STA READBF+001H,X STA >READBF+041H,X LDA #03939H STA >READBF+0C1H,X LDA READBF+081H,X CLC ADC #00101H STA READBF+0C1H,X LDA READBF+081H,X CLC ADC #00101H STA READBF+001H,X STA >READBF+081H,X STA >READBF+0C1H,X LDA READBF+041H,X CLC ADC #00101H STA READBF+001H,X STA >READBF+081H,X STA >READBF+0C1H,X LDA READBF+041H,X CLC ADC #00101H STA READBF+081H,X STA >READBF+0C1H,X LDA #03838H STA >READBF+001H,X LDA READBF+041H,X CLC ADC #00101H STA READBF+001H,X STA >READBF+041H,X LDA #03939H STA >READBF+0C1H,X LDA READBF+081H,X CLC ADC #00101H STA READBF+000H,X STA >READBF1+0C0H,X ;;;;;;;; LDA #00200H XBA STA >READBF+002H,X STA >READBF1+0C2H,X LDA #00001H STA >READBF+040H,X STA >READBF1+080H,X ;;;;;;;; LDA #00100H XBA STA >READBF+042H,X STA >READBF1+082H,X LDA READBF+041H,X STA >READBF1+041H,X STA >READBF+081H,X STA >READBF1+081H,X INY INY CPY READBF+000H,X STA >READBF1+000H,X ;;;;;;;; LDA #0030AH XBA STA >READBF+002H,X STA >READBF1+002H,X LDA #00803H STA >READBF+040H,X ;;;;;;;; LDA #00308H XBA STA >READBF+042H,X INY INY CPY !UDSCKP6 BNE RCCK370 ; check end ? ; ; yes ; ; RCCK400 EQU $ LDY #00000H LDX !UDSCKP3 BEQ RCCK440 ; UD-STEP (water) check ? ; ; yes LDA #00002H STA !FLCKFG RCCK420 EQU $ LDX !UDSCKB3,Y LDA #00003H STA >READBF+000H,X ;;;;;;;; LDA #00300H XBA STA >READBF+002H,X LDA #00A03H STA >READBF1+000H,X ;;;;;;;; LDA #0030AH XBA STA >READBF1+002H,X LDA #00808H STA >READBF+040H,X STA >READBF+042H,X INY INY CPY !UDSCKP3 BNE RCCK420 ; check end ? ; ; yes RCCK440 EQU $ CPY !UDSCKP4 BEQ RCCK500 ; water-side STEP check ? ; ; yes LDA #00002H STA !FLCKFG RCCK460 EQU $ LDX !UDSCKB4,Y LDA #00003H STA >READBF+000H,X ;;;;;;;; LDA #00300H XBA STA >READBF+002H,X LDA #00A03H STA >READBF1+000H,X ;;;;;;;; LDA #0030AH XBA STA >READBF1+002H,X INY INY CPY !UDSCKP4 BNE RCCK460 ; check end ? ; ; yes ; RCCK500 EQU $ LDY #00000H LDX !BLKPNT BEQ RCCK600 ; Block character check ? ; ; yes LDA #07070H STA READBF+000H,X STA >READBF+040H,X RCCK525 EQU $ LDA READBF+000H,X STA >READBF+040H,X AND #0EFEFH CLC ADC #00101H STA OPYKINT ; open yuka init. set ; ; RCCK800 EQU $ LDA #05858H STA READBF+000H,X ;// 03.08.12 // STA >READBF+040H,X ;// 03.08.12 // LDA !TBXADR,Y ;// 03.08.12 // ASL A ;// 03.08.12 // BCC RCCK820 ; special-box ? ;// 03.08.12 //; ; yes ;// 03.08.12 // LSR A ;// 03.08.12 // STA !TBXADR,Y ;// 03.08.12 //;// 03.08.12 // LSR A ;// 03.08.12 //;// 03.08.12 // TAX ;// 03.08.12 // LDA READBF+042H,X ;// 03.08.12 // STA >READBF+080H,X ;// 03.08.12 // STA >READBF+082H,X ;// 03.08.12 //RCCK820 EQU $ ;// 03.08.12 // LDA READBF+000H,X STA >READBF+040H,X CLC ADC #00101H STA READBF+000H,X LDA #00002H STA >READBF1+000H,X STA >READBF+0C0H,X ;// 03.02.15 // LDA >READBF+040H,X LDA #00001H STA >READBF1+040H,X STA >READBF+080H,X ;// 03.02.15 // LDA >READBF+002H,X LDA #00200H STA >READBF1+002H,X STA >READBF+0C2H,X ;// 03.02.15 // LDA >READBF+042H,X LDA #00100H STA >READBF1+042H,X STA >READBF+082H,X LDA READBF+041H,X STA >READBF1+041H,X STA >READBF+081H,X STA >READBF1+081H,X INY INY CPY READBF1+0C0H,X XBA STA >READBF1+0C2H,X LDA #00003H STA >READBF+0C0H,X XBA STA >READBF+0C2H,X LDA #00808H STA >READBF+080H,X STA >READBF+082H,X INY INY CPY !UDSCKPB BNE RCCK960 ; check end ? ; ; yes RCCK980 EQU $ INC !ITEMMD RTS ; ; ; ;--------------------------------------- takara-box code set TKBXCDST EQU $ TKCDS20 EQU $ LDA !TBXADR,Y BEQ TKCDS40 ; takara-box on ? ; ; yes AND #07FFFH LSR A TAX LDA READBF+000H,X STA >READBF+040H,X LDA !TBXADR,Y ASL A BCC TKCDS40 ; special-box ? ; ; yes LSR A STA !TBXADR,Y ;// 03.08.12 // LSR A ;// 03.08.12 // TAX LDA READBF+042H,X STA >READBF+080H,X STA >READBF+082H,X TKCDS40 EQU $ LDA READBF+041H,X STA >READBF+081H,X DCCN190 EQU $ RTS ; ; DCCN200 EQU $ LDX READBF+001H,X STA >READBF+041H,X STA >READBF+081H,X STA >READBF+0C1H,X STA >READBF+101H,X STA >READBF+141H,X STA >READBF+181H,X LDA #00000H STA >READBF+1C1H,X RTS ; DCCN220 EQU $ CMP #00001H BNE DCCN240 ; down door ? ; ; yes LDA !DORADR,Y CPX #djn_dr BEQ DCCN225 ; danjyon-enter-door ? ; ; no CPX #dkt_dr BEQ DCCN225 ; doukutsu-enter-door ? ; ; no CMP !EXTADR0 BEQ DCCN225 ; exit door ? ; ; no CMP !EXTADR1 BEQ DCCN225 ; exit door ? ; ; no CMP !EXTADR2 BEQ DCCN225 ; exit door ? ; ; no CMP !EXTADR3 BNE DCCN230 ; exit door ? ; ; yes DCCN225 EQU $ LDX #08E8EH STX READBF+001H,X LDA READBF+041H,X STA >READBF+081H,X STA >READBF+0C1H,X STA >READBF+101H,X STA >READBF+141H,X RTS ; DCCN240 EQU $ CMP #00002H BNE DCCN260 ; left door ? ; ; yes LDA !DORADR,Y LSR A AND #0FFE0H DCCN250 EQU $ TAX ; LDA READBF+040H,X STA >READBF+042H,X STA >READBF+080H,X STA >READBF+082H,X AND #000FFH STA >READBF+044H,X STA >READBF+084H,X RTS ; DCCN260 EQU $ LDA !DORADR,Y LSR A TAX ; LDA READBF+042H,X STA >READBF+044H,X STA >READBF+082H,X STA >READBF+084H,X AND #0FF00H STA >READBF+040H,X STA >READBF+080H,X RTS ; ; ; ; ;============================================== ; crush wall code set DCCN400 EQU $ RTS ; TYA AND #0000FH TAX LDA !DOPNBT AND BITCD0,X ;// 03.03.11 // BEQ DCCN420 ; door open ? BNE DCCN420 ; door open ? ; ; no RTS ; DCCN420 EQU $ LDA !DORFLG,Y AND #00002H BNE DCCN500 ; up,down door ? ; ; yes LDA !DORADR,Y LSR A DCCN440 EQU $ TAX ; LDA #0000CH STA READBF+000H,X LDA #00000H STA >READBF+002H,X STA >READBF+004H,X STA >READBF+006H,X STA >READBF+008H,X STA >READBF+00AH,X STA >READBF+00CH,X STA >READBF+00EH,X STA >READBF+010H,X STA >READBF+012H,X LDA #00201H STA >READBF+014H,X TXA CLC ADC #00040H TAX DEC READBF+000H,X STA >READBF+540H,X LDA #00202H STA >READBF+040H,X STA >READBF+500H,X LDA #00000H STA >READBF+080H,X STA >READBF+0C0H,X STA >READBF+100H,X STA >READBF+140H,X STA >READBF+180H,X STA >READBF+1C0H,X STA >READBF+200H,X STA >READBF+240H,X STA >READBF+280H,X STA >READBF+2C0H,X STA >READBF+300H,X STA >READBF+340H,X STA >READBF+380H,X STA >READBF+3C0H,X STA >READBF+400H,X STA >READBF+440H,X STA >READBF+480H,X STA >READBF+4C0H,X INX INX DEC READBF+041H,X STA >READBF+081H,X RTS ; DCCN610 EQU $ LDX READBF+001H,X STA >READBF+041H,X STA >READBF+081H,X STA >READBF+0C1H,X STA >READBF+101H,X STA >READBF+141H,X STA >READBF+181H,X STA >READBF+1C1H,X STA >READBF+201H,X STA >READBF+241H,X RTS ; DCCN620 EQU $ CMP #00001H BNE DCCN640 ; down door ? ; ; yes CPX #dj1_dr BEQ DCCN625 ; danjyon-enter-door(BG.1) ? ; ; no CPX #dk1_dr BEQ DCCN625 ; doukutsu-enter-door ? ; ; no CPX #dk2_dr BEQ DCCN625 ; doukutsu-enter-door(BG.1) ? ; ; no LDA !DORADR,Y AND #01FFFH CMP !EXTADR0 BEQ DCCN625 ; exit door ? ; ; no CMP !EXTADR1 BEQ DCCN625 ; exit door ? ; ; no CMP !EXTADR2 BEQ DCCN625 ; exit door ? ; ; no CMP !EXTADR3 BNE DCCN630 ; exit door ? ; ; yes DCCN625 EQU $ LDX #08E8EH STX READBF+001H,X STA >READBF+041H,X STA >READBF+081H,X STA >READBF+0C1H,X STA >READBF+101H,X STA >READBF+141H,X STA >READBF+181H,X STA >READBF+1C1H,X RTS ; DCCN640 EQU $ CMP #00002H BNE DCCN660 ; left door ? ; ; yes LDA !DORADR,Y LSR A AND #0FFE0H TAX LDA READBF+040H,X STA >READBF+042H,X STA >READBF+044H,X STA >READBF+046H,X STA >READBF+080H,X STA >READBF+082H,X STA >READBF+084H,X STA >READBF+086H,X RTS ; DCCN660 EQU $ LDA !DORADR,Y LSR A INC A TAX LDA READBF+040H,X STA >READBF+042H,X STA >READBF+044H,X STA >READBF+046H,X STA >READBF+080H,X STA >READBF+082H,X STA >READBF+084H,X STA >READBF+086H,X RTS ; ; ; ;************************************************************************ ;* Width road code set (WRDCST) * ;************************************************************************ WRDCST EQU $ MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA !WRDADR BEQ WRDC999 ; code set ? ; ; yes LDA !WRDADR AND #03FFFH LSR A TAX LDY #00004H LDA !WRDADR ASL A BCC WRDC20 ; BG.1 ? ; ; yes INY WRDC20 EQU $ LDA !EMYSTT AND #0001000000000000B BEQ WRDC200 ; open ? ; ; yes WRDC40 EQU $ LDA #00101H STA >READBF+000H,X STA >READBF+280H,X LDA #00000H STA >READBF+080H,X STA >READBF+100H,X STA >READBF+180H,X STA >READBF+200H,X INX INX DEY BPL WRDC40 ; code set end ? ; ; yes SEP #00110000B ; memory,index 8bit mode RTS ; WRDC200 EQU $ LDA #02323H STA >READBF+080H,X STA >READBF+100H,X STA >READBF+180H,X STA >READBF+200H,X INX INX DEY BPL WRDC200 ; set end ? ; ; yes WRDC999 EQU $ MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode RTS ; ; ; ; ;************************************************************************ ;* Tama-yuka code change (TYCDCNG) * ;************************************************************************ TYCDCNG1 EQU $ INC !ITEMMD LDA >TAMAFLG BEQ TMYKC400 ; code change ? ; ; yes JSL >TYCDCNG TMYKC400 EQU $ RTS ; ; TYCDCNG EQU $ IDX16 REP #00010000B ; index 16bit mode ; LDX #007FFH TMYKC100 EQU $ LDA >READBF+000H,X CMP #066H BEQ TMYKC110 ; ; ; CMP #067H BNE TMYKC120 ; ; ; TMYKC110 EQU $ EOR #00000001B STA >READBF+000H,X TMYKC120 EQU $ LDA >READBF+800H,X CMP #066H BEQ TMYKC130 ; ; ; CMP #067H BNE TMYKC140 ; ; ; TMYKC130 EQU $ EOR #00000001B STA >READBF+800H,X TMYKC140 EQU $ LDA >READBF1+000H,X CMP #066H BEQ TMYKC150 ; ; ; CMP #067H BNE TMYKC160 ; ; ; TMYKC150 EQU $ EOR #00000001B STA >READBF1+000H,X TMYKC160 EQU $ LDA >READBF1+800H,X CMP #066H BEQ TMYKC170 ; ; ; CMP #067H BNE TMYKC180 ; ; ; TMYKC170 EQU $ EOR #00000001B STA >READBF1+800H,X TMYKC180 EQU $ DEX BPL TMYKC100 ; end ? ; ; yes IDX8 SEP #00010000B ; index 8bit mode RTL ; ; ; ; ; ; ;************************************************************************ ;* Information data check (INFDCHK) * ;************************************************************************ INFTBL EQU $ Inot WORD NOTHING ; 00 : nothig Iee0 WORD EERSCK0 ; 01 : enemy zenmetsu (shutter open) Iee1 WORD EERSCK1 ; 02 : enemy zenmetsu (shutter open) Iee2 WORD EERSCK2 ; 03 : enemy zenmetsu (shutter open) Iee3 WORD EERSCK3 ; 04 : enemy zenmetsu (shutter open) Iee4 WORD EERSCK4 ; 05 : enemy zenmetsu (shutter open) Iee5 WORD EERSCK5 ; 06 : enemy zenmetsu (shutter open) Iee6 WORD EERSCK6 ; 07 : enemy zenmetsu (shutter open) Iee7 WORD EERSCK7 ; 08 : enemy zenmetsu (shutter open) Iee8 WORD EERSCK8 ; 09 : enemy zenmetsu (shutter open) Iee9 WORD EERSCK9 ; 0A : enemy zenmetsu (shutter open) Ibs0 WORD BLMVSC0 ; 0B : block move (shutter open) Ibs1 WORD BLMVSC1 ; 0C : block move (shutter open) Ibs2 WORD BLMVSC2 ; 0D : block move (shutter open) Ibs3 WORD BLMVSC3 ; 0E : block move (shutter open) Ibs4 WORD BLMVSC4 ; 0F : block move (shutter open) Ibs5 WORD BLMVSC5 ; 10 : block move (shutter open) Ibs6 WORD BLMVSC6 ; 11 : block move (shutter open) Ibs7 WORD BLMVSC7 ; 12 : block move (shutter open) Ibs8 WORD BLMVSC8 ; 13 : block move (shutter open) Issd WORD SWSDRCK ; 14 : swich shuter-door open cehck Ibsd WORD BSSDRCK ; 15 : boss shutter open check Isd0 WORD SDROPC0 ; 16 : shuter-door open cehck-0 Isd1 WORD SDROPC1 ; 17 : -1 Iwdn WORD WRDWCHK ; 18 : water down check Iwup WORD WRUPCHK ; 19 : up check Iwgt WORD WGATECK ; 1A : water gate open check Igwr WORD GWTRCHK ; 1B : ground water check Iwre WORD BGWLMV0 ; 1C : H-scroll (right move) : ERASE Iwle WORD BGWLMV1 ; 1D : H-scroll (left move) Iwde WORD BGWLMV2 ; 1E : V-scroll (down move) Iwue WORD BGWLMV3 ; 1F : V-scroll (up move) Icwy WORD CWLCHK0 ; 20 : crush wall check = yuka Itp0 WORD TRAP000 ; 21 : trap - 0 (ana) Itp1 WORD TRAP100 ; 22 : trap - 1 (ana) Itp2 WORD TRAP200 ; 23 : trap - 2 (ana) Itp3 WORD TRAP300 ; 24 : trap - 3 (ana) Ibcw WORD BOSSCHK ; 25 : boss die cehck Iebl WORD ERSBLKCK ; 26 : enemy zenmetsu (block move) Istk WORD SWTKBXCK ; 27 : swich takara-box check Icws WORD CWLCHK1 ; 28 : crush wall check = swich Iet0 WORD ERTBXC0 ; 29 : enemy zenmetsu (takara-box) Iet1 WORD ERTBXC1 ; 2A : enemy zenmetsu (takara-box) Iet2 WORD ERTBXC2 ; 2B : enemy zenmetsu (takara-box) Iet3 WORD ERTBXC3 ; 2C : enemy zenmetsu (takara-box) Iet4 WORD ERTBXC4 ; 2D : enemy zenmetsu (takara-box) Iet5 WORD ERTBXC5 ; 2E : enemy zenmetsu (takara-box) Iet6 WORD ERTBXC6 ; 2F : enemy zenmetsu (takara-box) Iet7 WORD ERTBXC7 ; 30 : enemy zenmetsu (takara-box) Iet8 WORD ERTBXC8 ; 31 : enemy zenmetsu (takara-box) Iet9 WORD ERTBXC9 ; 32 : enemy zenmetsu (takara-box) Isd3 WORD SDROPC3 ; 33 : shutter-door open check-3 Itp4 WORD TRAP400 ; 34 : trap - 4 (ana) Itp5 WORD TRAP500 ; 35 : trap - 5 (ana) Itp6 WORD TRAP600 ; 36 : trap - 6 (ana) Itp7 WORD TRAP700 ; 37 : trap - 7 (ana) Iuss WORD USSCLCK ; 38 : ura-shisai clear check Itp8 WORD TRAP800 ; 39 : trap - 8 (ana) Itp9 WORD TRAP900 ; 3A : trap - 9 (ana) ItpA WORD TRAPA00 ; 3B : trap - A (ana) Ibtk WORD BKTKBXCK ; 3C : block takara-box check Ignn WORD GANONCHK ; 3D : ganon die check Itrt WORD TRTBXCK ; 3E : tourou takara-box check Ibes WORD BSERSCK ; 3F : boss erase check ; ; ; inf_not EQU (Inot-Inot)/2 inf_ee0 EQU (Iee0-Inot)/2 inf_ee1 EQU (Iee1-Inot)/2 inf_ee2 EQU (Iee2-Inot)/2 inf_ee3 EQU (Iee3-Inot)/2 inf_ee4 EQU (Iee4-Inot)/2 inf_ee5 EQU (Iee5-Inot)/2 inf_ee6 EQU (Iee6-Inot)/2 inf_ee7 EQU (Iee7-Inot)/2 inf_ee8 EQU (Iee8-Inot)/2 inf_ee9 EQU (Iee9-Inot)/2 inf_bs0 EQU (Ibs0-Inot)/2 inf_bs1 EQU (Ibs1-Inot)/2 inf_bs2 EQU (Ibs2-Inot)/2 inf_bs3 EQU (Ibs3-Inot)/2 inf_bs4 EQU (Ibs4-Inot)/2 inf_bs5 EQU (Ibs5-Inot)/2 inf_bs6 EQU (Ibs6-Inot)/2 inf_bs7 EQU (Ibs7-Inot)/2 inf_bs8 EQU (Ibs8-Inot)/2 inf_ssd EQU (Issd-Inot)/2 inf_bsd EQU (Ibsd-Inot)/2 inf_sd0 EQU (Isd0-Inot)/2 inf_sd1 EQU (Isd1-Inot)/2 inf_wdn EQU (Iwdn-Inot)/2 inf_wup EQU (Iwup-Inot)/2 inf_wgt EQU (Iwgt-Inot)/2 inf_gwr EQU (Igwr-Inot)/2 inf_wre EQU (Iwre-Inot)/2 inf_wle EQU (Iwle-Inot)/2 inf_wde EQU (Iwde-Inot)/2 inf_wue EQU (Iwue-Inot)/2 inf_cwy EQU (Icwy-Inot)/2 inf_tp0 EQU (Itp0-Inot)/2 inf_tp1 EQU (Itp1-Inot)/2 inf_tp2 EQU (Itp2-Inot)/2 inf_tp3 EQU (Itp3-Inot)/2 inf_bcw EQU (Ibcw-Inot)/2 inf_ebl EQU (Iebl-Inot)/2 inf_stk EQU (Istk-Inot)/2 inf_cws EQU (Icws-Inot)/2 inf_et0 EQU (Iet0-Inot)/2 inf_et1 EQU (Iet1-Inot)/2 inf_et2 EQU (Iet2-Inot)/2 inf_et3 EQU (Iet3-Inot)/2 inf_et4 EQU (Iet4-Inot)/2 inf_et5 EQU (Iet5-Inot)/2 inf_et6 EQU (Iet6-Inot)/2 inf_et7 EQU (Iet7-Inot)/2 inf_et8 EQU (Iet8-Inot)/2 inf_et9 EQU (Iet9-Inot)/2 inf_sd3 EQU (Isd3-Inot)/2 inf_tp4 EQU (Itp4-Inot)/2 inf_tp5 EQU (Itp5-Inot)/2 inf_tp6 EQU (Itp6-Inot)/2 inf_tp7 EQU (Itp7-Inot)/2 inf_uss EQU (Iuss-Inot)/2 inf_tp8 EQU (Itp8-Inot)/2 inf_tp9 EQU (Itp9-Inot)/2 inf_tpA EQU (ItpA-Inot)/2 inf_btk EQU (Ibtk-Inot)/2 inf_gnn EQU (Ignn-Inot)/2 inf_trt EQU (Itrt-Inot)/2 inf_bes EQU (Ibes-Inot)/2 ; ; ; ; INFDCHK EQU $ LDA !INFCFG BNE INFDC80 ; check ok ? ; ; yes MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; JSR STEPCK ; step check ; STZ READBF+000H,X PLX ; (X) pull CMP #026H BEQ STPCK100 ; check ok ? ; ; no CMP #038H BEQ STPCK100 ; scroll-step ? ; ; no CMP #039H BEQ STPCK100 ; scroll-step ? ; ; no CMP #05EH BEQ STPCK100 ; (rase:BG2) check ok ? ; ; no CMP #05FH BNE STPCK999 ; (rasen:BG1) check ok ? ; ; yes STPCK100 EQU $ PHA ; (A) push STA READBF+040H,X TAY AND #0F8H CMP #030H BNE STPCK990 ; check ok ? ; ; yes LDA !PYDMBT BPL STPCK110 ; player mochiage ? ; ; yes PLA ; (A) pull MEM16 REP #00100000B ; LDA !PLSVY1 STA MPBTSET1 ; map on/off bit set STPCK120 EQU $ MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; LDA YCALC1 ; up-move BRA STPCK160 ; STPCK140 EQU $ JSL >YCALC00 ; down-move STPCK160 EQU $ LDA !STPFLG AND #003H TAX LDA >SPGOTO,X STA CDBGCD,X ;// 03.02.04 // STA !CDBGCKF ;// 03.02.04 // LDA >PLBGCD,X ;// 03.02.04 // STA RASINT ; init. ; LDX #p1_kstp STPCK240 EQU $ STX STEINT ; scroll-step init. RTS ; ; STPCK300 EQU $ STX RTS ; ; ; ; ; ;************************************************************************ ;* Enemy zenmetsu Shuter_door open check (EERSCK0) * ;* * ;* +---+---+ +---+---+ +-------+ +-------+ * ;* | 0 | 1 | | | | | 6 | | | * ;* +---+---+ | 4 | 5 | +-------+ | 8 | * ;* | 2 | 3 | | | | | 7 | | | * ;* +---+---+ +---+---+ +-------+ +-------+ * ;* * ;************************************************************************ ; ;************************************************************************ ;* Block-move Shuter_door open check (BLMVSCK) * ;* * ;* +---+---+ +---+---+ +-------+ +-------+ * ;* | 0 | 1 | | | | | 6 | | | * ;* +---+---+ | 4 | 5 | +-------+ | 8 | * ;* | 2 | 3 | | | | | 7 | | | * ;* +---+---+ +---+---+ +-------+ +-------+ * ;* * ;************************************************************************ ; ;************************************************************************ ;* Enemy zenmetsu Takara-box check (ERTBXC0) * ;* * ;* +---+---+ +---+---+ +-------+ +-------+ * ;* | 0 | 1 | | | | | 6 | | | * ;* +---+---+ | 4 | 5 | +-------+ | 8 | * ;* | 2 | 3 | | | | | 7 | | | * ;* +---+---+ +---+---+ +-------+ +-------+ * ;* * ;************************************************************************ EERSCK0 EQU $ BLMVSC0 EQU $ ERTBXC0 EQU $ LDA EFLCHK ; enemy zenmetsu check BCC ETBX180 ; zenmetsu ? ; ; yes JSR STBXC000 ; takara-box set ETBX180 EQU $ RTS ; ; ;---------------------------------------- block move (shutter open) BLMVSCK EQU $ BLMVSCA EQU $ LDA !BLKSWF EOR #00000001B CMP !TRAPMD BEQ BLMVC180 ; ; ; STA !TRAPMD ; LDA #025H STA !SOUND3 ; ; LDA #p1_sdop STA EFLCHK ; enemy zenmetsu check BCC EZSC180 ; zenmetsu ? ; ; yes EZSC120 EQU $ MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDX #00000H CPX !TRAPMD BEQ EZSC180 ; ; STZ !TRAPMD STZ !DOPCPT STZ !DOPNCT ; door open flag clear ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; LDA #01BH STA !SOUND3 ; ; LDA #p1_sdop STA >> LDX >> LDA >DJINFTBL,X ;<<< 03.09.05 >>> ORA #10000000B ;<<< 03.09.05 >>> STA >DJINFTBL,X EZSC180 EQU $ MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode RTS ; ; ; ; ; ;************************************************************************ ;* Enemy zenmetsu Takara-box check (ERTBXC8) * ;* * ;* +-------+ * ;* | | * ;* | 9 | * ;* | | * ;* +-------+ * ;* * ;************************************************************************ EERSCK9 EQU $ ERTBXC9 EQU $ LDX EFLCHK2 ; enemy zenmetsu check BCC ETBX080 ; zenmetsu ? ; ; yes JSR STBXC000 ; takara-box set ETBX080 EQU $ EZSC080 EQU $ MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode RTS ; ; ;---------------------------------------- enemy zenmetsu (shutter open) EZSDRCK EQU $ JSR >EFLCHK2 ; enemy zenmetsu check BCC EZSC080 ; zenmetsu ? ; ; yes BCS EZSC120 ; ; ; ; ; ;************************************************************************ ;* Boss erase check (BSERSCK) * ;************************************************************************ BSERSCK EQU $ JSR >EFLCHK2 ; enemy zenmetsu check BCC EZSC080 ; zenmetsu ? ; ; yes STZ !BSFLFG STZ ; LDA #p1_sdop STA GDTRPF BNE BSDC20 ; omote ? ; ; yes LDA >ITEMR53 AND >UDJBITD,X BEQ BSDC80 ; pendanto on ? ; ; yes BRA BSDC40 ; BSDC20 EQU $ LDA >ITMTBL3 AND >UDJBITD,X BEQ BSDC80 ; ; ; BSDC40 EQU $ MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; STZ !TRAPMD STZ !DOPCPT STZ !DOPNCT ; door open flag clear ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; LDA #p1_sdop STA ;// 03.08.01 //; ;// 03.08.01 // LDA #p1_sdop ;// 03.08.01 // STA SDOC035 EQU $ LDA #p1_sdop STA ; LDA #p1_sdop ;// 03.07.08 // STA TGBLKWT ; On/Off swich-yuka write ; INC !TPCKFG BRA SDOC180 ; ; SDOC140 EQU $ JSR TRAPCHK ; trap check BCS SDOC180 ; off ? ; ; yes STZ !TPCKFG SDOC180 EQU $ MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode RTS ; ; ; SWON EQU $ STA READBF+000H,X AND #0FE00H CMP #02400H BEQ SWON40 ; ; ; INX SWON40 EQU $ STX !TRAPPT TXA STA TGBLKWT SWON80 EQU $ MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode RTS ; ; ; ;// 03.07.31 //; ;// 03.07.31 //; ;// 03.07.31 //;************************************************************************ ;// 03.07.31 //;* Shuter_door open check - 2 (SDROPC2) * ;// 03.07.31 //;************************************************************************ ;// 03.07.31 //SDROPC2 EQU $ ;// 03.07.31 // MEM16 ;// 03.07.31 // IDX16 ;// 03.07.31 // REP #00110000B ; memory,index 16bit mode ;// 03.07.31 //; ;// 03.07.31 // LDX #00000H ;// 03.07.31 // LDA !SWCHFG ;// 03.07.31 // AND #000FFH ;// 03.07.31 // BNE SDOC240 ; swich on ? ;// 03.07.31 //; ; yes ;// 03.07.31 // LDA !BLKSWF ;// 03.07.31 // AND #000FFH ;// 03.07.31 // BNE SDOC240 ; swich on ? ;// 03.07.31 //; ; yes ;// 03.07.31 // LDA #00005H ;// 03.07.31 // LDX #0FFFEH ;// 03.07.31 //SDOC205 EQU $ ;// 03.07.31 // INX ;// 03.07.31 // INX ;// 03.07.31 // CPX !LMPDGP ;// 03.07.31 // BEQ SDOC220 ; check end ? ;// 03.07.31 //; ; no ;// 03.07.31 // CMP !BLKSTT,X ;// 03.07.31 // BNE SDOC205 ; check ? ;// 03.07.31 //; ; yes ;// 03.07.31 //SDOC210 EQU $ ;// 03.07.31 // LDX !BLTRPF ; (X) <-- block trap check code ;// 03.07.31 // CPX #0FFFFH ;// 03.07.31 // BNE SDOC240 ; check ok ? ;// 03.07.31 //; ; yes ;// 03.07.31 //SDOC220 EQU $ ;// 03.07.31 // JSR TRAPCHK ; trap check ;// 03.07.31 // LDX #00000H ;// 03.07.31 // BCS SDOC240 ; trap on ? ;// 03.07.31 //; ; yes ;// 03.07.31 // INX ;// 03.07.31 //SDOC240 EQU $ ;// 03.07.31 // CPX !TRAPMD ;// 03.07.31 // BEQ SDOC280 ; trap ok ? ;// 03.07.31 //; ; yes ;// 03.07.31 // STX !TRAPMD ;// 03.07.31 // STZ !DOPCPT ;// 03.07.31 // STZ !DOPNCT ; door open flag clear ;// 03.07.31 //; ;// 03.07.31 // MEM8 ;// 03.07.31 // IDX8 ;// 03.07.31 // SEP #00110000B ; memory,index 8bit mode ;// 03.07.31 //; ;// 03.07.31 // LDA #p1_sdop ;// 03.07.31 //;// 03.07.08 // STA ;// 03.07.31 //; ;// 03.07.31 // LDX ; LDA #p1_sdop STA CWMKDT,X ;// 03.05.31 // STA >KBMUKI ; OBJ. muki set ;// 03.05.31 // LDA !DORADR,Y ;// 03.05.31 // CLC ;// 03.05.31 // ADC >CWRPDT,X ;// 03.05.31 // TAY ;// 03.05.31 // AND #0000000001111110B ;// 03.05.31 // ASL A ;// 03.05.31 // ASL A ;// 03.05.31 // CLC ;// 03.05.31 // ADC !SCHCT ;// 03.05.31 // STA >KBXPS0 ;// 03.05.31 // TYA ;// 03.05.31 // AND #0001111110000000B ;// 03.05.31 // LSR A ;// 03.05.31 // LSR A ;// 03.05.31 // LSR A ;// 03.05.31 // LSR A ;// 03.05.31 // CLC ;// 03.05.31 // ADC !SCVCT ;// 03.05.31 // STA >KBYPS0 ; OBJ. x,y-pos. set ;// 03.05.31 //; ;// 03.05.31 // MEM8 ;// 03.05.31 // IDX8 ;// 03.05.31 // SEP #00110000B ; memory,index 8bit mode ;// 03.05.31 //; ;// 03.05.31 // LDA #001H ;// 03.05.31 // STA !CWLFLG ; crush wall on ;// 03.05.31 //; ;// 03.05.31 // LDX KBDMIT ; crush bomb init. ;// 03.05.31 //CWCK080 EQU $ ;// 03.05.31 // MEM8 ;// 03.05.31 // IDX8 ;// 03.05.31 // SEP #00110000B ; memory,index 8bit mode ;// 03.05.31 // RTS ;// 03.05.31 //; ; ; MEM8 IDX8 ;************************************************************************ ;* Crush wall check - 1 (swich) (CWLCHK1) * ;************************************************************************ CWLCHK1 EQU $ LDA !SWCHFG BEQ CWCK080 ; wall crush ? ; ; yes MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; CWCK000 EQU $ LDY #0FFFEH CWCK020 EQU $ INY INY LDA !DRSTAT,Y AND #000FEH CMP #crh_dr BNE CWCK020 ; crush wall door ? ; ; yes STY !CWLPNT ; crush wall pint set ; LDA CWMKDT,X STA >KBMUKI ; OBJ. muki set LDA !DORADR,Y CLC ADC >CWRPDT,X TAY AND #0000000001111110B ASL A ASL A CLC ADC !SCHCT STA >KBXPS0 TYA AND #0001111110000000B LSR A LSR A LSR A LSR A CLC ADC !SCVCT STA >KBYPS0 ; OBJ. x,y-pos. set ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; LDA #01BH STA !SOUND3 ; ; LDA #001H STA !CWLFLG ; crush wall on ; LDX KBDMIT ; crush bomb init. CWCK080 EQU $ MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode RTS ; ; ; ; ;************************************************************************ ;* Boss Die check (BOSSCHK) * ;************************************************************************ DJITMD EQU $ ; danjyon item data HEX 000 ; 00 : chapel HEX 000 ; 02 : shiro HEX 001 ; 04 : omote-shinden HEX 002 ; 06 : omote-sabaku HEX 000 ; 08 : shisai HEX 006 ; 0A : ura-hokora HEX 006 ; 0C : ura-shinden HEX 006 ; 0E : ura-numa HEX 006 ; 10 : ura-mori HEX 006 ; 12 : ura-ice HEX 003 ; 14 : omote-yama HEX 006 ; 16 : ura-machi HEX 006 ; 18 : ura-kame ; ; BOSSCHK EQU $ LDA !EMYSTT+1 AND #10000000B BEQ BSCC300 ; boss out ? ; ; yes LDA !DJNNO LSR A TAX LDA >GDTRPF BNE BSCC100 ; omote ? ; ; yes LDA >ITEMR53 AND >UDJBITD,X BNE BSCC200 ; pendanto on ? ; ; no BRA BSCC180 ; BSCC100 EQU $ LDA >ITMTBL3 AND >UDJBITD,X BNE BSCC200 ; ; ; ;;;;;;;; LDA >ITMTBL3 ;;;;;;;; ORA >UDJBITD,X ;;;;;;;; STA >ITMTBL3 ; poly-gon bit on!! ;;;;;;;;; ;;;;;;;; LDA #p1_plgn ;;;;;;;; STA CGRAM+040H,X ;;;;;;;; STA >CGRAM+060H,X ;;;;;;;; STA >CGRAM+080H,X ;;;;;;;; STA >CGRAM+0A0H,X ;;;;;;;; STA >CGRAM+0C0H,X ;;;;;;;; STA >CGRAM+0E0H,X ;;;;;;;; INX ;;;;;;;; INX ;;;;;;;; CPX #020H ;;;;;;;; BNE BSCC140 ; ;;;;;;;;; ; ;;;;;;;; STA >CCNGCT ;;;;;;;; STA >CCNGFG ;;;;;;;;; ;;;;;;;; MEM8 ;;;;;;;; SEP #00100000B ; memory 8bit mode BSCC180 EQU $ LDA #080H STA !BSCLTMR ; timer set ; LDA DJITMD,X JSL >BSITEM ; item set ; PLA ; (A) pull STA GNDTBL+05BH AND #00100000B BNE USSCK80 ; check ? ; ; yes LDA !EMYSTT+1 ASL A BCC USSCK80 ; ura-shisai die ? ; ; yes JSL >PWTRCGS3 ; player CG. reset ;// 03.09.28 // LDA >GNDTBL+05BH ;// 03.09.28 // ORA #00100000B ;// 03.09.28 // STA >GNDTBL+05BH STZ DJEXTCK ; danjyon exit check USSCK80 EQU $ RTS ; ; ; ; ;************************************************************************ ;* Ganon Die check (GANONCHK) * ;************************************************************************ GANONCHK EQU $ ;// 03.10.05 // JSR >EFLCHK ; enemy zenmetsu check ;// 03.10.05 // BCC GNONC80 ; zenmetsu ? ;// 03.10.05 //; ; yes LDX #00FH GNONC20 EQU $ LDA !ENMODE+0,X CMP #EBAKU BEQ GNONC80 ; baku-hatsu end ? ; ; yes LDA !ENMOD3+0,X AND #01000000B BNE GNONC40 ; check ? ; ; yes LDA !ENMODE+0,X BNE GNONC80 ; ganon end ? ; ; yes GNONC40 EQU $ DEX BPL GNONC20 ; ganon zenmetsu ? ; ; yes LDA EFLCHK ; enemy zenmetsu check BCC ERSBC80 ; zenmetsu ? ; ; yes LDA #01BH STA !SOUND3 ; ; PLX ; (X) pull STZ ROOMBF+000H,X STA ROOMBF+080H,X STA ROOMBF+002H,X STA ROOMBF+082H,X STA READBF+000H,X STA >READBF+040H,X CLC ADC #00101H STA ; LDA #VT01 STA DJDTBL,X ;// 03.06.11 // LSR A ;// 03.06.11 // BCC DJSC80 ; danjyon swich check ok ? ;// 03.06.11 //; ; yes ;// 03.06.11 // MEM16 ;// 03.06.11 // IDX16 ;// 03.06.11 // REP #00110000B ; memory,index 16bit mode ;// 03.06.11 //; ;// 03.06.11 // JSR TRAPCHK ; trap check ;// 03.06.11 // BCC DJSC80 ; trap on ? ;// 03.06.11 //; ; yes ;// 03.06.11 // MEM8 ;// 03.06.11 // SEP #00100000B ; memory 8bit mode ;// 03.06.11 //; ;// 03.06.11 //;// 03.04.18 // LDA !INFSTT ;// 03.06.11 // LDA !EMYSTT ;// 03.06.11 // ORA BITCD0+6 ;// 03.06.11 //;// 03.04.18 // STA !INFSTT ;// 03.06.11 // STA !EMYSTT ;// 03.06.11 //; ;// 03.06.11 // LDX !DJNNO ;// 03.06.11 //;;;;;;;; LDA >DJDTBL,X ;// 03.06.11 // ORA #00000010B ;// 03.06.11 //;;;;;;;; STA >DJDTBL,X ; danjyon swich on ;// 03.06.11 //DJSC80 EQU $ ;// 03.06.11 // MEM8 ;// 03.06.11 // IDX8 ;// 03.06.11 // SEP #00110000B ; memory,index 8bit mode ;// 03.06.11 // RTS ;// 03.06.11 //; ; ; ; ;************************************************************************ ;* Wall move (RIGHT) (BGWLMV0) * ;************************************************************************ BGWLMV0 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDA !BG1MFG BNE BWLM0100 ; on check ? ; ; yes JSR BWLMSB1 ; on check BRA BWLM0140 ; ; BWLM0100 EQU $ LDY #001H STY !ENSTFG JSR BWLMYR ; wall yure set ; ;// 02.07.18 // LDA BWGPWR0 ;?? 03.11.27 ?? LDA #0FFFFH JSR BWLMSB2 ; move calc. BWLM0140 EQU $ STA !BG1HMC LDA !BGMVC0 SEC SBC !BG1HMC STA !BGMVC0 CLC ADC ; LDX #005H STX !SOUND1 ; ;// 03.09.16 // STX !SVSND1 ; LDX BWYRXD,X STA !YUREXD LDA >BWYRYD,X STA !YUREYD ; LDX ; LDX #005H STX !SOUND1 ; ;// 03.09.16 // STX !SVSND1 ; LDX ;// 03.06.19 // STX !SVSND1 ;// 03.06.19 //; ;// 03.06.19 // LDX ;// 03.06.19 // STX !SVSND1 ;// 03.06.19 //; ;// 03.06.19 // LDX >> LDA !INFONFG ;<<< 03.09.05 >>> BNE BWMS120 ; ;<<< 03.09.05 >>>; ; LDA !SWCHFG AND #000FFH BNE BWMS120 ; swich on ? ; ; no LDX #00000H STX >> STZ !INFONFG STZ !SWCHFG ; ;// 03.04.05 // LDA BITCD0,X ;// 03.04.05 // STA !INFSTT ; information bit on ;<<< 03.09.05 >>> LDX >> LDA >DJINFTBL,X ;<<< 03.09.05 >>> ORA #0000000010000000B ;<<< 03.09.05 >>> STA >DJINFTBL,X ; MEM8 SEP #00100000B ; memory 8bit mode ; LDA ;// 03.09.16 // STA !SVSND1 ; LDA #001H STA !PYALSP STA !ENSTFG ; player & enemy stop!! ; MEM16 REP #00100000B ; memory 16bit mode BWMS140 EQU $ LDA #0000H ; IDX8 SEP #00010000B ; index 8bit mode RTS ; ; BWLMSB2 EQU $ ;?? 03.11.27 ?? LDA #02200H LDA #02C00H CLC ADC !BG1MBF STA !BG1MBF ROL A AND #00001H ;// 03.04.18 // CLC ;// 03.04.18 // ADC !BG1MBF ;// 03.04.18 // STA !BG1MBF ;// 03.04.18 // CLC ;// 03.04.18 // ADC !BG1YCT ;// 03.04.18 // PHA ; (A) push ;// 03.04.18 // AND #000FFH ;// 03.04.18 // STA !BG1YCT ;// 03.04.18 // PLA ; (A) pull ;// 03.04.18 // BPL BWMS240 ; ;// 03.04.18 //; ; ;// 03.04.18 // ORA #000FFH ;// 03.04.18 // BRA BWMS280 ;// 03.04.18 //; ;// 03.04.18 //BWMS240 EQU $ ;// 03.04.18 // AND #0FF00H ;// 03.04.18 //BWMS280 EQU $ ;// 03.04.18 // XBA RTS ; ; BWLMSB3 EQU $ LDX WTRWPMV ; water wipe init. set ; LDA #p1_wtrd STA CCNGCT STA >CCNGFG LDA #01FH STA >CCNGED ; ;// 03.09.25 // MEM16 ;// 03.09.25 // REP #00100000B ; memory 16bit mode ;// 03.09.25 //; ;// 03.09.25 // LDA #07D27H ;// 03.09.25 // STA >CGRAM+0E8H ;// 03.09.25 // STA >CGWORK+0E8H ;// 03.09.25 // LDA #05800H ;// 03.09.25 // STA >CGRAM+0ECH ;// 03.09.25 // STA >CGWORK+0ECH ;// 03.09.25 // LDA #03400H ;// 03.09.25 // STA >CGRAM+0EEH ;// 03.09.25 // STA >CGWORK+0EEH ;// 03.09.25 //; ;// 03.09.25 // MEM8 ;// 03.09.25 // SEP #00100000B ; memory 8bit mode ; INC BITCD0+9 ;// 03.04.18 // STA !INFSTT+1 ; information bit on STA !EMYSTT+1 STZ !SWCHFG ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA !WRWPYP AND #001FFH SEC SBC #00010H ASL A ASL A ASL A ASL A STA LDA #02EH STA !SOUND2 ; ; LDA #001H STA CGRAM+0E8H ;// 02.10.25 // LDA #02041H ;// 02.10.25 // STA >CGWORK+0E8H ;// 02.10.25 // LDA #05800H ;// 02.10.25 // STA >CGRAM+0ECH ;// 02.10.25 // LDA #01800H ;// 02.10.25 // STA >CGWORK+0ECH ;// 02.10.25 // LDA #03400H ;// 02.10.25 // STA >CGRAM+0EEH ;// 02.10.25 // LDA #00C00H ;// 02.10.25 // STA >CGWORK+0EEH ; ;// 02.10.25 // INC LDA #02FH STA !SOUND2 ; ; LDA #p1_wtru STA BITCD0+9 ;// 03.04.18 // STA !INFSTT+1 ; information bit on STA !EMYSTT+1 STZ !SWCHFG STZ !WBFPNT WGTC400 EQU $ RTS ; ; ; ;************************************************************************ ;* Water gate open check (WGATECK) * ;************************************************************************ WGATECK EQU $ LDA !EMYSTT+1 AND >BITCD0+9 BNE WGTC400 ; gate open ? ; ; no LDA !SWCHFG BEQ WGTC400 ; trap on ? ; ; yes LDA #p1_wgop STA BITCD0+9 ;// 03.04.18 // STA !INFSTT+1 ; information bit on STA !EMYSTT+1 STZ !SWCHFG ; STZ !WRWPH0 STZ !WNYBUF ; LDA #00000011B STA GNDTBL+03BH ORA #00100000B STA >GNDTBL+03BH LDA >GNDTBL+03BH+040H ORA #00100000B STA >GNDTBL+03BH+040H ; LDA >DJNTBL+028H*2+1 ORA #00000001B STA >DJNTBL+028H*2+1 ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA #BANK WRRSD0 STA LDA #02FH STA !SOUND2 ; ; ;************************************************************************ ;* Ground water check (GWTRCHK) * ;************************************************************************ GWTRCHK EQU $ RTS ; ; ; ; ;************************************************************************ ;* Trap check - 0 (TRAP000) * ;************************************************************************ TRAP000 EQU $ LDA #001H BRA TRAPCHECK ; ;************************************************************************ ;* Trap check - 2 (TRAP200) * ;************************************************************************ TRAP200 EQU $ LDA #003H BRA TRAPCHECK ; ;************************************************************************ ;* Trap check - 4 (TRAP400) * ;************************************************************************ TRAP400 EQU $ LDA #006H BRA TRAPCHECK ; ;************************************************************************ ;* Trap check - 5 (TRAP500) * ;************************************************************************ TRAP500 EQU $ LDA #008H BRA TRAPCHECK ; ;************************************************************************ ;* Trap check - 6 (TRAP600) * ;************************************************************************ TRAP600 EQU $ LDA #00AH BRA TRAPCHECK ; ;************************************************************************ ;* Trap check - 7 (TRAP700) * ;************************************************************************ TRAP700 EQU $ LDA #00CH BRA TRAPCHECK ; ;************************************************************************ ;* Trap check - 8 (TRAP800) * ;************************************************************************ TRAP800 EQU $ LDA #00EH BRA TRAPCHECK ; ;************************************************************************ ;* Trap check - 9 (TRAP900) * ;************************************************************************ TRAP900 EQU $ LDA #010H TRAPCHECK EQU $ STA ; LDA #p1_bchg STA SWYKCNG ; swich-yuka change TRAP080 EQU $ MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode RTS ; ; ; ; ;************************************************************************ ;* Trap check - 1 (TRAP100) * ;************************************************************************ TRAP100 EQU $ IDX16 REP #00010000B ; index 16bit mode ; LDY #00000H BRA TRAPZCK ; ;************************************************************************ ;* Trap check - A (TRAPA00) * ;************************************************************************ TRAPA00 EQU $ IDX16 REP #00010000B ; index 16bit mode ; LDY #00012H TRAPZCK EQU $ LDA !EMYSTT+1 AND #00000001B BEQ TRAP180 ; item on ? ; ; yes TRAPZZZ EQU $ STY !TPCHPT ; trap mode reset ; MEM8 IDX8 SEP #00110000B ; memory 8bit mode ; STZ ; LDA #p1_bchg STA ;// 03.08.06 //; ;// 03.08.06 // LDA #p1_bchg ;// 03.08.06 // STA ;// 03.08.06 //; ;// 03.08.06 // LDX ;// 03.08.06 //; ;// 03.08.06 // LDA #p1_bchg ;// 03.08.06 // STA BG1RBF+000H,X LDA FLORDT+002H,Y STA >BG1RBF+002H,X LDA FLORDT+004H,Y STA >BG1RBF+004H,X LDA FLORDT+006H,Y STA >BG1RBF+006H,X ; LDA FLORDT+008H,Y STA >BG1RBF+080H,X LDA FLORDT+00AH,Y STA >BG1RBF+082H,X LDA FLORDT+00CH,Y STA >BG1RBF+084H,X LDA FLORDT+00EH,Y STA >BG1RBF+086H,X TXA CLC ADC #00100H TAX ; (y) <-- (y) + #00100H ;// 03.06.26 // TYA ;// 03.06.26 // CLC ;// 03.06.26 // ADC #00008H ;// 03.06.26 // TAY DEC READBF+000H,X ;// 03.07.03 // AND #0F0F0H ;// 03.07.03 // CMP #0D0D0H ;// 03.07.03 // BNE TPLC80 ; check ok ? ;// 03.07.03 //; ; no ;// 03.07.03 // STA READBF+040H,X ;// 03.07.03 // AND #0F0F0H ;// 03.07.03 // CMP READBF+000H,X ;// 03.07.03 // PHA ; (A) push ;// 03.07.03 // LDA #00000H ;// 03.07.03 // STA >READBF+000H,X ;// 03.07.03 // STA >READBF+040H,X ;// 03.07.03 // PLA ; (A) pull ;// 03.07.03 //; ;// 03.07.03 // MEM8 ;// 03.07.03 // IDX8 ;// 03.07.03 // SEP #00110000B ; memory,index 8bit mode ;// 03.07.03 //; ;// 03.07.03 // AND #0EFH ;// 03.07.03 // STA !FIRENO ;// 03.07.03 // JSL >LAMPPL ; lamp on ;// 03.07.03 //; ;// 03.07.03 // DEC !LMPPNT ;// 03.07.03 // BNE TPLC80 ; lamp all on ? ;// 03.07.03 //; ; yes ;// 03.07.03 // REP #00110000B ; memory,index 16bit mode ;// 03.07.03 //; ;// 03.07.03 // SEC ;// 03.07.03 // RTS ;// 03.07.03 //; ;// 03.07.03 //TPLC80 EQU $ ;// 03.07.03 // REP #00110000B ; memory,index 16bit mode ;// 03.07.03 //; ;// 03.07.03 // CLC ;// 03.07.03 // RTS ;// 03.07.03 //; ; ; ; MEM16 IDX16 ;************************************************************************ ;* Trap check (TRAPCHK) * ;************************************************************************ TRAPCHK EQU $ LDA !PYALSP AND #000FFH BNE TPCK80 ; player stop ? ; ; yes LDA READBF+000H,X CMP #02323H BEQ TPCK40 ; check ok ? ; ; no CMP #02424H BEQ TPCK40 ; check ok ? ; ; no TXA CLC ADC #00040H TAX LDA >READBF+000H,X CMP #02323H BEQ TPCK40 ; check ok ? ; ; no CMP #02424H BEQ TPCK40 ; check ok ? ; ; no INC READBF+000H,X CMP #02323H BEQ TPCK40 ; check ok ? ; ; no CMP #02424H BEQ TPCK40 ; check ok ? ; ; no TXA CLC ADC #00040H TAX LDA >READBF+000H,X CMP #02323H BEQ TPCK40 ; check ok ? ; ; no CMP #02424H BNE TPCK80 ; check ok ? ; ; yes TPCK40 EQU $ CMP >READBF+040H,X BNE TPCK80 ; check ok ? ; ; yes STA READBF+000H,X CMP #02323H BEQ TPCK140 ; check ok ? ; ; no CMP #03A3AH BEQ TPCK140 ; check ok ? ; ; no INY CMP #03B3BH BEQ TPCK140 ; check ok ? ; ; no TXA CLC ADC #00040H TAX LDY #00000H LDA >READBF+000H,X CMP #02323H BEQ TPCK140 ; check ok ? ; ; no CMP #03A3AH BEQ TPCK140 ; check ok ? ; ; no INY CMP #03B3BH BEQ TPCK140 ; check ok ? ; ; no INC READBF+000H,X CMP #02323H BEQ TPCK140 ; check ok ? ; ; no CMP #03A3AH BEQ TPCK140 ; check ok ? ; ; no INY CMP #03B3BH BEQ TPCK140 ; check ok ? ; ; no TXA CLC ADC #00040H TAX LDY #00000H LDA >READBF+000H,X CMP #02323H BEQ TPCK140 ; check ok ? ; ; no CMP #03A3AH BEQ TPCK140 ; check ok ? ; ; no CMP #03B3BH BNE TPCK180 ; check ok ? ; ; no INY TPCK140 EQU $ CMP >READBF+040H,X BNE TPCK180 ; check ok ? ; ; yes STA LAMPPL ; JSL >LAMPOFF ' lamp off PLX ; (X) pull LPTMR80 EQU $ INX CPX #010H BNE LPTMR40 ; check end ? ; ; yes ; ;************************************************************************ ;* Door check (DRCHCK) * ;************************************************************************ DRCHCK EQU $ LDA !PYALSP BEQ DRCK10 ; player stop ? ; ; yes JMP DRCK280 ; DRCK10 EQU $ MEM16 REP #00100001B ; memory 16bit mode & CLC ; LDA READBF+000H,X AND #000F0H CMP #000F0H BEQ DRCK40 ; key-door ? ; ; no TXA CLC ADC DCPRPD,Y TAX ; LDA >READBF+000H,X AND #000F0H CMP #000F0H ;// 03.05.08 // BNE DRCK280 ; key-door ? BNE DRCK100 ; key-door ? ; ; yes DRCK40 EQU $ LDA >READBF+000H,X AND #0000FH ASL A TAY STY !DOPSPT ; LDA !DORFLG,Y AND #00003H ASL A CMP KEYCNT AND BITCD0,Y BNE DRCK260 ; special-key on ? ; ; no LDA !OPDRCFG BNE DRCK80 ; ; ; INC !OPDRCFG LDA #MS_00DD STA !MSGENOL ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; JSL >MESWIT ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode DRCK80 EQU $ JMP DRCK280 ; DRCK100 EQU $ STZ !OPDRCFG JMP DRCK280 ; ; DRCK200 EQU $ CMP #ky0_dr BCC DRCK80 ; key door (& rasen) ? ; ; yes CMP #dor_dr BCS DRCK80 ; key door (& rasen) ? ; ; yes CMP #ky7_dr BEQ DRCK80 ; bomb-enter ? ; ; no DRCK240 EQU $ LDA >ITMTBL9 AND #000FFH BEQ DRCK80 ; key on ? ; ; yes LDA >ITMTBL9 DEC A STA >ITMTBL9 ; key count -1 DRCK260 EQU $ STZ !DOPNCT ; door open flag clear ; STX !DOPCPT ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; LDA #p1_dopn STA DRSNDP,X ORA RTL ; ; MEM16 IDX16 DRCK270 EQU $ LDA !DASHFG AND #000FFH BEQ DRCK280 ; dash on ? ; ; yes LDA !DASFLM CMP #03FH BCS DRCK280 ; dash ? ; ; yes STX !DOPCPT ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; STY BMKRINT BCS DRCK275 ; set ok ? ; ; yes LDY ; LDA #p1_bmbd STA DASHON ; dash-on DRCK2799 EQU $ RTL ; ; DRCK280 EQU $ ;*** /03.07.30/ *** MEM16 ;*** /03.07.30/ *** IDX8 ;*** /03.07.30/ *** SEP #00010000B ; index 8bit mode ;*** /03.07.30/ ***; ;*** /03.07.30/ ***;************************************************************************ ;*** /03.07.30/ ***;* Swich open door check (SWDRCK) * ;*** /03.07.30/ ***;************************************************************************ ;*** /03.07.30/ ***SWDRCK EQU $ ;*** /03.07.30/ *** LDA !SWDRFG ;*** /03.07.30/ *** BMI SWDC80 ; swich door check ? ;*** /03.07.30/ ***; ; yes ;*** /03.07.30/ *** LDA !SWCHFG ;*** /03.07.30/ *** AND #000FFH ;*** /03.07.30/ *** BEQ SWDC80 ; swich door open ok ? ;*** /03.07.30/ ***; ; yes ;*** /03.07.30/ *** LDY !SWDRFG+1 ; (Y) <-- swich door pointer ;*** /03.07.30/ ***;// 02.10.11 // LDX !SWDRFG ;*** /03.07.30/ ***; ;*** /03.07.30/ *** MEM16 ;*** /03.07.30/ *** REP #00100000B ; memory 16bit mode ;*** /03.07.30/ ***; ;*** /03.07.30/ *** LDA !RMSTTT ;*** /03.07.30/ ***;// 03.03.11 // AND BITCD1,Y ;*** /03.07.30/ *** ORA BITCD0,Y ;*** /03.07.30/ *** STA !RMSTTT ; door open bit on ;*** /03.07.30/ *** LDA !DOPNBT ;*** /03.07.30/ ***;// 03.03.11 // AND BITCD1,Y ;*** /03.07.30/ *** ORA BITCD0,Y ;*** /03.07.30/ ***;// 03.05.31 // STA !DOPNBT ;*** /03.07.30/ ***;// 03.05.31 //; ;*** /03.07.30/ *** BRA EDCK40 ;*** /03.07.30/ ***; ;*** /03.07.30/ ***;// 03.05.31 // IDX16 ;*** /03.07.30/ ***;// 03.05.31 // REP #00010000B ; index 16bit mode ;*** /03.07.30/ ***;// 03.05.31 //; ;*** /03.07.30/ ***;// 03.05.31 // LDA !SWDRFG+1 ;*** /03.07.30/ ***;// 03.05.31 // AND #000FFH ;*** /03.07.30/ ***;// 03.05.31 // TAY ;*** /03.07.30/ ***;// 03.05.31 // JSR ERDRSB ; door open ;*** /03.07.30/ ***;// 03.05.31 //; ;*** /03.07.30/ ***;// 03.05.31 // JSR BGCNGS1 ; BG. change data set ;*** /03.07.30/ ***;// 03.05.31 //; ;*** /03.07.30/ ***;// 03.05.31 // LDY !DORPNT ;*** /03.07.30/ ***;// 03.05.31 // JSR DOPL820 ; door code change ;*** /03.07.30/ ***;// 03.05.31 //; ;*** /03.07.30/ ***;// 03.05.31 // LDY ERDCKD,X BNE EDCK20 ; door open ok ? ; ; yes MEM16 REP #00100000B ; memory 16bit mode ; LDA !DOPNBT ;// 03.03.11 // AND BITCD1,Y ORA BITCD0,Y BRA EDCK40 ; EDCK20 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDA !DOPNBT ;// 03.03.11 // ORA BITCD0,Y AND BITCD1,Y EDCK40 EQU $ CMP !DOPNBT BEQ EDCK80 ; door change ? ; ; yes STA !DOPNBT ; STZ DRSNDST ; STA !SOUND3 ; EDCK60 EQU $ RTL ; ; EDCK80 EQU $ ; ;************************************************************************ ;* Certen Door check (CDRCHCK) * ;************************************************************************ CDRCHCK EQU $ MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; LDA READBF+000H,X AND #000FCH CMP #0006CH BEQ CDRC40 ; certen ? ; ; no AND #000F0H CMP #000F0H BEQ CDRC40 ; certen-door ? ; ; no INX DEY LDA >READBF+000H,X AND #000FCH CMP #0006CH BEQ CDRC40 ; certen ? ; ; no AND #000F0H CMP #000F0H BEQ CDRC40 ; certen-door ? ; ; no TXA CLC ADC #0003FH TAX LDY #00001H LDA >READBF+000H,X AND #000FCH CMP #0006CH BEQ CDRC40 ; certen ? ; ; no AND #000F0H CMP #000F0H BEQ CDRC40 ; certen-door ? ; ; no INX DEY LDA >READBF+000H,X AND #000FCH CMP #0006CH BEQ CDRC40 ; certen ? ; ; no AND #000F0H CMP #000F0H BEQ CDRC40 ; certen-door ? ; ; no SEP #00110000B ; memory,index 8bit mode RTL ; ; CDRC40 EQU $ STZ READBF+000H,X AND #000FCH CMP #0006CH BEQ CDRC50 ; certen ? ; ; no TXA CLC ADC #00040H TAX CDRC50 EQU $ LDY READBF+000H,X AND #000FCH CMP #0006CH BEQ CDRC60 ; certen ? ; ; no INX CDRC60 EQU $ TXA SEC SBC #00041H ASL A STA READBF+000H,X PHA ; (A) push ; LDA #00202H STA >READBF+000H,X ; STA >READBF+040H,X ; ; PLA ; (A) pull AND #00003H ASL A TAX LDA >CDRRPD,X TAY ; (Y) <-- rewrite data point ; LDX ROOMBF+000H,X LDA UNITDT+002H,Y STA >ROOMBF+080H,X LDA UNITDT+004H,Y STA >ROOMBF+100H,X LDA UNITDT+006H,Y STA >ROOMBF+180H,X ; certen-open set TYA CLC ADC #00008H TAY INX INX DEC READBF+000H,X AND #0000FH ASL A TAY ; STX !DOPCPT LDA !DRSTAT,Y AND #0000000011111110B CMP #ctn_dr ;// 03.10.16 // BNE CDRC200 ; certen-door ? BNE CDRC300 ; certen-door ? ; ; yes MEM8 SEP #00100000B ; memory 8bit mode ; LDA #01BH STA !SOUND3 ; ; MEM16 REP #00100000B ; memory 16bit mode ; LDA !DORADR,Y STA SDLRCK ; sound L,R check ORA #01EH STA !SOUND2 ; ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode BGCWEND EQU $ LDY BOMBCHK ; bomb check ; ; BDRC00 EQU $ STZ READBF+000H,X AND #000FFH ;// 03.06.19 // CMP #00023H ;// 03.06.19 // BEQ BDRC30 ; width road ? ;// 03.06.19 //; ; no CMP #00062H BEQ BDRC400 ; crush-yuka ? ; ; no AND #000F0H CMP #000F0H BEQ BDRC40 ; bomb-door ? ; ; no INX INX LDA >READBF+000H,X AND #000FFH ;// 03.06.19 // CMP #00023H ;// 03.06.19 // BEQ BDRC30 ; width road ? ;// 03.06.19 //; ; no CMP #00062H BEQ BDRC400 ; crush-yuka ? ; ; no AND #000F0H CMP #000F0H BEQ BDRC40 ; bomb-door ? ; ; no INX INX LDA >READBF+000H,X AND #000FFH ;// 03.06.19 // CMP #00023H ;// 03.06.19 // BEQ BDRC30 ; width road ? ;// 03.06.19 //; ; no CMP #00062H BEQ BDRC400 ; crush-yuka ? ; ; no AND #000F0H CMP #000F0H BEQ BDRC40 ; bomb-door ? ; ; no TXA CLC ADC #00080H-4 TAX DEY BPL BDRC20 ; check end ? ; ; yes BMI BDRC280 ; BDRC400 EQU $ JMP BDRC410 ; ;// 03.06.19 //BDRC30 EQU $ ;// 03.06.19 //; BDRC40 EQU $ LDA >READBF+000H,X AND #0000FH ASL A TAY ; LDA !DRSTAT,Y AND #0000000011111110B CMP #ky6_dr BEQ BDRC240 ; taiatari-door ? ; ; no CMP #ky7_dr BEQ BDRC240 ; doukutsu-enter-door ? ; ; no CMP #bmb_dr BNE BDRC280 ; bomb-door ? ; ; yes BDRC240 EQU $ STX !DOPCPT ; LDA ; LDA #p1_bmbd STA CRHYKWT ; crush-yuka write ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; LDA #01BH STA !SOUND3 ; RTL ; ; ; ; MEM16 IDX16 ;************************************************************************ ;* Door open (DROPEN) * ;************************************************************************ DROPEN EQU $ LDX !DORADR,Y STX > CMP #0000CH CMP #00008H BEQ SDOP80 ; door char. change ? ; ; no ;<< 03.03.28 >> INY ;<< 03.03.28 >> INY ;<< 03.03.28 >> CMP #00014H ;<< 03.03.28 >> BEQ SDOP80 ; door open end ? ; ; no SDOP40 EQU $ JMP SDOP300 ; SDOP60 EQU $ ;<< 03.03.28 >> LDY #00004H LDY #00002H CMP #00004H BEQ SDOP80 ; door char. change ? ; ; no DEY DEY CMP #00008H ;<< 03.03.28 >> CMP #0000CH ;<< 03.03.28 >> BEQ SDOP80 ; door char. change ? ;<< 03.03.28 >>; ; no ;<< 03.03.28 >> DEY ;<< 03.03.28 >> DEY ;<< 03.03.28 >> CMP #00014H BNE SDOP40 ; door close end ? ; ; yes SDOP80 EQU $ STY !DOPCNO ; door char. pointer ; LDY #00000H SDOP100 EQU $ STY !DOPCPT ; LDA !DRSTAT,Y AND #000FEH CMP #ud_sht BEQ SDOP120 ; under-shutter ? ; ; no CMP #sht_dr BNE SDOP240 ; shutter door ? ; ; yes SDOP120 EQU $ LDA !TRAPMD BNE SDOP140 ; door open ? ; ; yes LDA !DOPNBT AND BITCD0,Y BNE SDOP240 ; door open ok ? ; ; yes LDA !DOPNCT ;<< 03.03.28 >> CMP #00014H CMP #00008H BNE SDOP200 ; end ? ; ; yes PHY ; (Y) push ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; LDA #015H ;// 03.09.26 // JSL >DRSNDST ; STA !SOUND3 ; ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode PLY ; (Y) pull ; LDA !DOPNBT ORA BITCD0,Y BRA SDOP180 ; SDOP140 EQU $ LDA !DOPNBT AND BITCD0,Y BEQ SDOP240 ; door close ok ? ; ; yes LDA !DOPNCT ;<< 03.03.28 >> CMP #00014H CMP #00008H BNE SDOP200 ; end ? ; ; yes PHY ; (Y) push MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; LDA #016H ;// 03.09.26 // JSL >DRSNDST ; STA !SOUND3 ; ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode PLY ; (Y) pull ; LDA !DOPNBT AND BITCD1,Y SDOP180 EQU $ STA !DOPNBT SDOP200 EQU $ JSR SDROPEN ; door open ; JSR BGCNGS1 ; BG. change data set ; LDA !DOPNCT ;<< 03.03.28 >> CMP #00014H CMP #00008H BNE SDOP240 ; end ? ; ; yes LDY !DOPCPT JSR DOPL820 ; door code set SDOP240 EQU $ LDY !DOPCPT INY INY CPY #00018H BEQ SDOP280 ; end ? ; ; no JMP SDOP100 ; SDOP280 EQU $ LDY > CMP #018H CMP #00010H BNE SDOP400 ; end ? ; ; yes SDOP380 EQU $ MEM8 SEP #00100000B ; memory 8bit mode ; STZ > CMP #0000CH ;// 03.06.24 // CMP #00008H ;// 03.06.24 // BEQ SDOP80 ; door char. change ? ;// 03.06.24 //; ; no ;// 03.06.24 //;<< 03.03.28 >> INY ;// 03.06.24 //;<< 03.03.28 >> INY ;// 03.06.24 //;<< 03.03.28 >> CMP #00014H ;// 03.06.24 //;<< 03.03.28 >> BEQ SDOP80 ; door open end ? ;// 03.06.24 //; ; no ;// 03.06.24 //SDOP40 EQU $ ;// 03.06.24 // JMP SDOP300 ;// 03.06.24 //; ;// 03.06.24 //SDOP60 EQU $ ;// 03.06.24 //;<< 03.03.28 >> LDY #00004H ;// 03.06.24 // LDY #00002H ;// 03.06.24 // CMP #00004H ;// 03.06.24 // BEQ SDOP80 ; door char. change ? ;// 03.06.24 //; ; no ;// 03.06.24 // DEY ;// 03.06.24 // DEY ;// 03.06.24 // CMP #00008H ;// 03.06.24 //;<< 03.03.28 >> CMP #0000CH ;// 03.06.24 //;<< 03.03.28 >> BEQ SDOP80 ; door char. change ? ;// 03.06.24 //;<< 03.03.28 >>; ; no ;// 03.06.24 //;<< 03.03.28 >> DEY ;// 03.06.24 //;<< 03.03.28 >> DEY ;// 03.06.24 //;<< 03.03.28 >> CMP #00014H ;// 03.06.24 // BNE SDOP40 ; door close end ? ;// 03.06.24 //; ; yes ;// 03.06.24 //SDOP80 EQU $ ;// 03.06.24 // STY !DOPCNO ; door char. pointer ;// 03.06.24 //; ;// 03.06.24 // LDY #00000H ;// 03.06.24 //SDOP100 EQU $ ;// 03.06.24 // STY !DOPCPT ;// 03.06.24 //; ;// 03.06.24 // LDA !DORADR,Y ;// 03.06.24 // BEQ SDOP280 ; check ? ;// 03.06.24 //; ; yes ;// 03.06.24 // LDA !DRSTAT,Y ;// 03.06.24 // AND #000FEH ;// 03.06.24 // CMP #ud_sht ;// 03.06.24 // BEQ SDOP120 ; under-shutter ? ;// 03.06.24 //; ; no ;// 03.06.24 // CMP #sht_dr ;// 03.06.24 // BNE SDOP240 ; shutter door ? ;// 03.06.24 //; ; yes ;// 03.06.24 //SDOP120 EQU $ ;// 03.06.24 // LDA !TRAPMD ;// 03.06.24 // BNE SDOP140 ; door open ? ;// 03.06.24 //; ; yes ;// 03.06.24 // LDA !DOPNBT ;// 03.06.24 // AND BITCD0,Y ;// 03.06.24 //;// 03.03.11 // BEQ SDOP240 ; door open ok ? ;// 03.06.24 // BNE SDOP240 ; door open ok ? ;// 03.06.24 //; ; yes ;// 03.06.24 // LDA !DOPNCT ;// 03.06.24 //;<< 03.03.28 >> CMP #00014H ;// 03.06.24 // CMP #00008H ;// 03.06.24 // BNE SDOP200 ; end ? ;// 03.06.24 //; ; yes ;// 03.06.24 // PHY ; (Y) push ;// 03.06.24 //; ;// 03.06.24 // MEM8 ;// 03.06.24 // IDX8 ;// 03.06.24 // SEP #00110000B ; memory,index 8bit mode ;// 03.06.24 //; ;// 03.06.24 // LDA #015H ;// 03.06.24 // JSL >DRSNDST ; ;// 03.06.24 //; ;// 03.06.24 // MEM16 ;// 03.06.24 // IDX16 ;// 03.06.24 // REP #00110000B ; memory,index 16bit mode ;// 03.06.24 // PLY ; (Y) pull ;// 03.06.24 //; ;// 03.06.24 // LDA !DOPNBT ;// 03.06.24 //;// 03.03.11 // AND BITCD1,Y ;// 03.06.24 // ORA BITCD0,Y ;// 03.06.24 // BRA SDOP180 ;// 03.06.24 //; ;// 03.06.24 //SDOP140 EQU $ ;// 03.06.24 // LDA !DOPNBT ;// 03.06.24 // AND BITCD0,Y ;// 03.06.24 //;// 03.03.11 // BNE SDOP240 ; door close ok ? ;// 03.06.24 // BEQ SDOP240 ; door close ok ? ;// 03.06.24 //; ; yes ;// 03.06.24 // LDA !DOPNCT ;// 03.06.24 //;<< 03.03.28 >> CMP #00014H ;// 03.06.24 // CMP #00008H ;// 03.06.24 // BNE SDOP200 ; end ? ;// 03.06.24 //; ; yes ;// 03.06.24 // PHY ; (Y) push ;// 03.06.24 // MEM8 ;// 03.06.24 // IDX8 ;// 03.06.24 // SEP #00110000B ; memory,index 8bit mode ;// 03.06.24 //; ;// 03.06.24 // LDA #016H ;// 03.06.24 // JSL >DRSNDST ; ;// 03.06.24 //; ;// 03.06.24 // MEM16 ;// 03.06.24 // IDX16 ;// 03.06.24 // REP #00110000B ; memory,index 16bit mode ;// 03.06.24 // PLY ; (Y) pull ;// 03.06.24 //; ;// 03.06.24 // LDA !DOPNBT ;// 03.06.24 //;// 03.03.11 // ORA BITCD0,Y ;// 03.06.24 // AND BITCD1,Y ;// 03.06.24 //SDOP180 EQU $ ;// 03.06.24 // STA !DOPNBT ;// 03.06.24 //SDOP200 EQU $ ;// 03.06.24 // JSR DROPEN ; door open ;// 03.06.24 //; ;// 03.06.24 // JSR BGCNGS1 ; BG. change data set ;// 03.06.24 //; ;// 03.06.24 // LDA !DOPNCT ;// 03.06.24 //;<< 03.03.28 >> CMP #00014H ;// 03.06.24 // CMP #00008H ;// 03.06.24 // BNE SDOP240 ; end ? ;// 03.06.24 //; ; yes ;// 03.06.24 // LDY !DOPCPT ;// 03.06.24 // JSR DOPL820 ; door code set ;// 03.06.24 //SDOP240 EQU $ ;// 03.06.24 // LDY !DOPCPT ;// 03.06.24 // INY ;// 03.06.24 // INY ;// 03.06.24 // CPY #00010H ;// 03.06.24 // BEQ SDOP280 ; end ? ;// 03.06.24 //; ; no ;// 03.06.24 // JMP SDOP100 ;// 03.06.24 //; ;// 03.06.24 //SDOP280 EQU $ ;// 03.06.24 // LDY > CMP #018H ;// 03.06.24 // CMP #00010H ;// 03.06.24 // BNE SDOP400 ; end ? ;// 03.06.24 //; ; yes ;// 03.06.24 //SDOP380 EQU $ ;// 03.06.24 // MEM8 ;// 03.06.24 // SEP #00100000B ; memory 8bit mode ;// 03.06.24 //; ;// 03.06.24 // STZ > BEQ DOPL40 ; door char. change ? ;<< 03.03.28 >>; ; no ;<< 03.03.28 >> INY ;<< 03.03.28 >> INY ;<< 03.03.28 >> CMP #00014H BNE DOPL100 ; door open end ? ; ; yes DOPL000 EQU $ LDX !DOPCPT LDA >READBF+000H,X AND #00007H ASL A TAX LDA !DOPNBT ;// 03.03.11 // AND BITCD1,X ORA BITCD0,X STA !DOPNBT LDA !RMSTTT ;// 03.03.11 // AND BITCD1,X ORA BITCD0,X STA !RMSTTT ; door open bit on DOPL40 EQU $ STY !DOPCNO ; door char. pointer STZ READBF+000H,X AND #0000FH ASL A TAY JSR DROPEN ; door open ; JSR BGCNGS1 ; BG. change data set ; LDY DRSNDST ; STA !SOUND3 ; ; LDA #001H STA > CMP #00018H CMP #00010H BNE DOPL400 ; end ? ; ; yes JSR DOPL800 ; door code reset ; LDX !DOPCPT LDA >READBF+000H,X AND #000FFH CMP #000F0H BCC DOPL140 ; close-door ? ; ; yes AND #0000FH ASL A TAY LDA !DRSTAT,Y AND #000FFH CMP #ky2_dr BCC DOPL140 ; key-RASEN ? ; ; yes CMP #ky6_dr BCS DOPL140 ; key-RASEN ? ; ; yes JSR DOPLC00 ; RASEN code set DOPL140 EQU $ MEM8 SEP #00100000B ; memory 8bit mode ; STZ READBF+000H,X AND #0000FH ASL A TAY DOPL820 EQU $ JSR DCCN100 ; door code change DOPL840 EQU $ LDX !MDCCKPT BEQ DOPL900 ; mode change check code ? ; ; yes LDY #00000H DOPL860 EQU $ LDX !MDCCKBF,Y LDA >READBF+000H,X AND #000F0H CMP #00080H BNE DOPL870 ; door code ? ; ; yes LDA >READBF+000H,X ORA #01010H STA >READBF+000H,X STA >READBF+040H,X INY INY CPY !MDCCKPT BNE DOPL860 ; check end ? ; ; yes BRA DOPL900 ; DOPL870 EQU $ LDA >READBF1+000H,X ORA #01010H STA >READBF1+000H,X STA >READBF1+040H,X INY INY CPY !MDCCKPT BNE DOPL860 ; check end ? ; ; yes DOPL900 EQU $ LDX !DJCCKPT BEQ DOPL980 ; danjyon change check code ? ; ; yes LDY #00000H DOPL920 EQU $ LDX !DJCCKBF,Y LDA >READBF+000H,X AND #000F0H CMP #00080H BNE DOPL940 ; door code ? ; ; yes LDA >READBF+000H,X ORA #02020H STA >READBF+000H,X STA >READBF+040H,X INY INY CPY !DJCCKPT BNE DOPL920 ; check end ? ; ; yes BRA DOPL960 ; DOPL940 EQU $ LDA >READBF1+000H,X ORA #02020H STA >READBF1+000H,X STA >READBF1+040H,X INY INY CPY !DJCCKPT BNE DOPL920 ; check end ? ; ; yes DOPL960 EQU $ DOPL980 EQU $ RTS ; ; DOPLC00 EQU $ LDA #03030H STA READBF+001H,X LDA READBF+041H,X CLC ADC #00101H STA READBF+081H,X STA >READBF+0C1H,X INY INY CPY !UPCKPT BNE DOPLC30 ; check end ? ; ; yes DOPLC40 EQU $ CPY !UPCKP1 BEQ DOPLC60 ; Up-STEP (RASEN) check ? ; ; yes DOPLC50 EQU $ LDX !USCKBF,Y LDA #05F5FH STA >READBF+001H,X LDA READBF+041H,X CLC ADC #00101H STA READBF+081H,X STA >READBF+0C1H,X INY INY CPY !UPCKP1 BNE DOPLC50 ; check end ? ; ; yes DOPLC60 EQU $ CPY !SUPCP0 BEQ DOPLC80 ; scroll-step (ue) check ? ; ; yes DOPLC70 EQU $ LDA READBF+001H,X LDA READBF+041H,X CLC ADC #00101H STA READBF+081H,X STA >READBF+0C1H,X INY INY CPY !DNCKPT BNE DOPLD30 ; check end ? ; ; yes DOPLD40 EQU $ CPY !DNCKP1 BEQ DOPLD60 ; Dn-STEP (RASEN) check ? ; ; yes DOPLD50 EQU $ LDX !DSCKBF,Y LDA #05F5FH STA >READBF+001H,X LDA READBF+041H,X CLC ADC #00101H STA READBF+081H,X STA >READBF+0C1H,X INY INY CPY !DNCKP1 BNE DOPLD50 ; check end ? ; ; yes DOPLD60 EQU $ RTS ; ; ; ; ; MEM8 IDX8 ;************************************************************************ ;* Crush wall open play (CSWLPLY) * ;************************************************************************ CSWLPLY EQU $ LDA #006H STA !PYALSP STA !ENSTFG ; player,enemy stop!! CMP >KBBMNO BNE CWPL80 ; crush ok ? ; ; yes MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; JSR CWLOPEN ; crush wall open ; JSR BGCNGS2 ; BG. change data set LDA #0FFFFH STA !BGCWBF,Y STA !GMAPDF ; INC !CWLFLG INC !CWLFLG LDA !CWLFLG CMP #00015H BNE CWPL40 ; end ? ; ; yes LDY !CWLPNT LDA !DOPNBT ORA BITCD0,Y STA !DOPNBT LDA !RMSTTT ORA BITCD0,Y STA !RMSTTT ; door,map bit on! ; LDX #00001H LDA !DORFLG,Y LDY #00100H AND #00002H BEQ CWPL20 ; up,down ? ; ; no LDY #00001H DEX CWPL20 EQU $ TYA ORA !CWLXYF STA !CWLXYF LDA HLCKXF ; LDY !CWLPNT JSR DCCN420 ; door code set ; STZ !CWLFLG STZ !CWLPNT ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; JSL >MPBTSET1 ; map on/off bit set STZ !PYALSP STZ !ENSTFG ; player,enemy stop off!! CWPL40 EQU $ MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; LDA #003H STA GPULYPD,X AND #001F8H ASL A ASL A ASL A STA GPULXPD,X AND #001F8H LSR A LSR A LSR A ORA READBF,X AND #000F0H CMP #00070H BNE BLSCK400 ; block ? ; ; yes LDA >READBF,X AND #0000FH ASL A TAX LDA !BLKSTT,X BEQ BLSCK400 ; mochiage block ? ; ; yes LDY #00055H AND #0F0F0H CMP #02020H BEQ BLSCK80 ; mochiage block(Big) ? ; ; no LDA !BLKSTT,X AND #0000FH ASL A TAX LDA >MCBLCDT,X TAY BLSCK80 EQU $ TYA ; SEP #00110001B ; memory,index 8bit mode & SEC RTL ; ; BLSCK400 EQU $ LDX READBF,X ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; CLC RTL ; ; ; ; ; ;************************************************************************ ;* Block play main (BLKPLY) * ;************************************************************************ MOVEDT EQU $ WORD 0FF00H,00100H,0FFFCH,00004H ; ; ; MEM16 IDX16 BLPY000 EQU $ LDA !BLKSTT,Y BEQ BLPY500 ; check ? ; ; yes CMP #00001H BNE BLPY40 ; init. ? ; ; yes JSR BLPI000 ; init. BG, off LDX !BMUKI LDA !BLKADR,Y CLC ADC >MOVEDT,X STA !BLKADR,Y BRA BLPY400 ; BLPY40 EQU $ CMP #00002H BNE BLPY60 ; move ? ; ; yes MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; JSL >BLOKMV ; block move ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDY !BLKPNT LDA !BLKSTT,Y CMP #00003H BNE BLPY500 ; end ? ; ; yes JSR BLPI200 ; end write BRA BLPY400 ; BLPY60 EQU $ BLPY80 EQU $ CMP #00004H BNE BLPY500 ; hole down ? ; ; yes MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; JSL >BKHLMV ; block hole down BRA BLPY500 ; ; MEM16 IDX16 BLPY400 EQU $ LDX !BLKPNT INC !BLKSTT,X BLPY500 EQU $ INC !BLKPNT INC !BLKPNT BLKPLY EQU $ MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDY !BLKPNT CPY !LMPDGP ;// 02.10.09 // LDA !BLKSTT,Y ;// 02.10.09 // BEQ BLPY500 ; move ? ;// 02.10.09 //; ; no ;// 02.10.09 // BPL BLPY000 ; block data end ? ;// 02.10.09 //; ; yes BNE BLPY000 ; block data end ? ; ; yes MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode RTL ; ; ; MEM16 IDX16 BLPI000 EQU $ LDX !VRAMD LDA !BLKDT0,Y STA !VRAMD+6,X LDA !BLKDT1,Y STA !VRAMD+12,X LDA !BLKDT2,Y STA !VRAMD+18,X LDA !BLKDT3,Y STA !VRAMD+24,X ; write data set ; LDA !BLKADR,Y AND #03FFFH TAX LDA !BLKDT0,Y STA >ROOMBF+000H,X LDA !BLKDT1,Y STA >ROOMBF+080H,X LDA !BLKDT2,Y STA >ROOMBF+002H,X LDA !BLKDT3,Y STA >ROOMBF+082H,X AND #003FFH TAX LDA >RDCODE0,X ; (A) <-- read code AND #000FFH STA READBF+000H,X STA >READBF+040H,X ; LDX !VRAMD LDA #00000H JSR BGADRGT ; Vram address get STA !VRAMD+2,X LDA #00080H JSR BGADRGT ; Vram address get STA !VRAMD+8,X LDA #00002H JSR BGADRGT ; Vram address get STA !VRAMD+14,X LDA #00082H JSR BGADRGT ; Vram address get STA !VRAMD+20,X ; write address set ; ; LDA #00100H STA !VRAMD+4,X STA !VRAMD+10,X STA !VRAMD+16,X STA !VRAMD+22,X LDA #0FFFFH STA !VRAMD+26,X TXA CLC ADC #00024 STA !VRAMD ; MEM8 SEP #00100000B ; memory 8bit mode ; LDA #001H STA ROOMBF+000H,X ;// 03.09.24 // INC A ;// 03.09.24 // STA >ROOMBF+002H,X ;// 03.09.24 // LDA #00932H ;// 03.09.24 // STA >ROOMBF+080H,X ;// 03.09.24 // INC A ;// 03.09.24 // STA >ROOMBF+082H,X ; LDA !BLKADR,Y AND #03FFFH LSR A TAX ;// 03.10.03 // LDA #0FFFFH ;// 03.10.03 // STA !BLTRPF ; block trap on flag off LDA >READBF+000H,X AND #000FFH CMP #00020H BEQ BLPI300 ; hole ? ; ; no PHA ; (A) push PHY ; (Y) push PHX ; (X) push ; LDX !VRAMD LDA #00922H STA !VRAMD+6,X INC A STA !VRAMD+18,X LDA #00932H STA !VRAMD+12,X INC A STA !VRAMD+24,X ; write data set ; LDA !BLKADR,Y AND #03FFFH TAX LDA #00922H STA >ROOMBF+000H,X INC A STA >ROOMBF+002H,X LDA #00932H STA >ROOMBF+080H,X INC A STA >ROOMBF+082H,X ; ; MEM8 SEP #00100000B ; memory 8bit mode ; STY ; MEM16 REP #00100000B ; memory 16bit mode ; LDY !BLKPNT LDX !BLKDPT,Y LDA >HLGOTO AND #000FFH STA >BLKTBUF,X ; new room no. set ; LDA !BLKADR,Y STA >BLKTBUF+2,X ; new address set RTS ; ; ; BGADRGT EQU $ STA GPULYPD,X STA GPULXPD,X STA READBF,X AND #0000FH ASL A TAY LDA !BLKSTT,Y AND #0F0F0H CMP #01010H BNE MCBC200 ; mochiage block(Big) ? ; ; no LDA !BLKSTT,Y PHA ; (A) push STY !BLKPNT ; LDA !BLKADR,Y JSR PONTCHK ; position check ; LDY !BLKPNT JSR BLPI000 ; block rewrite PLA ; (A) pull AND #0000FH ASL A TAX LDA >MCBLCDT,X STA READBF,X AND #000F0H CMP #00070H BNE MCBC999 ; hummer-kui ? ; ; yes LDA >READBF,X AND #0000FH ASL A TAY LDA !BLKSTT,Y AND #0F0F0H CMP #04040H BNE DHMC100 ; hummer-kui ? ; ; yes LDA !BLKSTT,Y PHA ; (A) push STY !BLKPNT JSR BLPI000 ; block rewrite PLA ; (A) pull ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; LDA #011H STA !SOUND2 ; ; LDA #000H RTL ; ; MEM16 IDX16 DHMC100 EQU $ CMP #01010H BNE MCBC999 ; tubo ? ; ; yes STY !BLKPNT LDA !BLKADR,Y JSR PONTCHK ; position check ; LDY !BLKPNT JSR BLPI000 ; block rewrite ; JSR BLKXYGT ; block x,y-address get ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; LDA !OSETFG ORA #080H STA !OSETFG LDA #001H JSL >KUSAST JMP >KNKMIT ; kona kemuri init. ; ; ; MEM16 IDX16 BLKXYGT EQU $ LDY !BLKPNT LDA !BLKADR,Y PHA ; (A) push AND #0007EH ASL A ASL A STA CKDTBL,X STA DJBITRM,X AND DJBITRM,X ORA DJBITRM,X ; bit on !! ; LDA READBF,X AND #0000FH ASL A TAY LDA !BLKSTT,Y AND #0000FH ASL A STA ; MEM16 REP #00100000B ; memory 16bit mode ; LDX #holed9 POCK120 EQU $ LDA >UNITDT+000H,X STA !BLKDT0,Y LDA >UNITDT+002H,X STA !BLKDT1,Y LDA >UNITDT+004H,X STA !BLKDT2,Y LDA >UNITDT+006H,X STA !BLKDT3,Y TXA CLC ADC #00008H TAX INY INY DEC TGBLKDT,X TAY LDX !VRAMD LDA UNITDT+0,Y STA !VRAMD+6,X LDA UNITDT+2,Y STA !VRAMD+12,X LDA UNITDT+4,Y STA !VRAMD+18,X LDA UNITDT+6,Y STA !VRAMD+24,X ; write data set ; LDX ROOMBF+000H,X LDA UNITDT+2,Y STA >ROOMBF+080H,X LDA UNITDT+4,Y STA >ROOMBF+002H,X LDA UNITDT+6,Y STA >ROOMBF+082H,X AND #003FFH TAX LDA >RDCODE0,X ; (A) <-- read code AND #000FFH STA READBF+000H,X STA >READBF+040H,X ; LDX !VRAMD LDA #00000H JSR TBADRGT ; Vram address get STA !VRAMD+2,X LDA #00080H JSR TBADRGT ; Vram address get STA !VRAMD+8,X LDA #00002H JSR TBADRGT ; Vram address get STA !VRAMD+14,X LDA #00082H JSR TBADRGT ; Vram address get STA !VRAMD+20,X ; write address set ; LDA #00100H STA !VRAMD+4,X STA !VRAMD+10,X STA !VRAMD+16,X STA !VRAMD+22,X LDA #0FFFFH STA !VRAMD+26,X TXA CLC ADC #00024 STA !VRAMD RTS ; ; TBADRGT EQU $ CLC ADC ROOMBF+000H,X ;// 03.07.04 // LDA UNITDT+2,Y STA >ROOMBF+080H,X AND #003FFH TAX LDA >RDCODE0,X ; (A) <-- read code AND #000FFH STA READBF+000H,X STA >READBF+040H,X ; LDX !VRAMD LDA #00000H JSR CNADRGT ; Vram address get STA !VRAMD+2,X LDA #00080H JSR CNADRGT ; Vram address get STA !VRAMD+8,X ; LDA #00100H STA !VRAMD+4,X STA !VRAMD+10,X LDA #0FFFFH STA !VRAMD+14,X TXA CLC ADC #00024 STA !VRAMD ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; LDA !EMYSTT+1 ORA #00010000B STA !EMYSTT+1 ; ; LDA #001H STA OPYK100 ;// 03.06.11 //; ;// 03.06.11 // MEM16 ;// 03.06.11 // IDX16 ;// 03.06.11 // REP #00110000B ; memory,index 16bit mode ;// 03.06.11 //; ;// 03.06.11 // INC !OYKXPS ;// 03.06.11 // INC !OYKCFG ;// 03.06.11 //OPYK40 EQU $ ;// 03.06.11 // MEM8 ;// 03.06.11 // SEP #00100000B ; memory 8bit mode ;// 03.06.11 //; ;// 03.06.11 // STZ READBF1+000H,X ;// 03.06.11 // STA >READBF+000H,X ;// 03.06.11 // LDA >READBF1+040H,X ;// 03.06.11 // STA >READBF+040H,X ;// 03.06.11 // LDA >READBF1+080H,X ;// 03.06.11 // STA >READBF+080H,X ;// 03.06.11 // LDA >READBF1+0C0H,X ;// 03.06.11 // BRA OPYK80 ;// 03.06.11 //; ;// 03.06.11 //OPYK70 EQU $ ;// 03.06.11 // LDA #00000H ;// 03.06.11 // STA >READBF+000H,X ;// 03.06.11 // STA >READBF+040H,X ;// 03.06.11 // STA >READBF+080H,X ;// 03.06.11 //OPYK80 EQU $ ;// 03.06.11 // STA >READBF+0C0H,X ;// 03.06.11 // INX ;// 03.06.11 // INX ;// 03.06.11 // DEY ;// 03.06.11 // BPL OPYK60 ; end ? ;// 03.06.11 //; ; yes ;// 03.06.11 // MEM8 ;// 03.06.11 // IDX8 ;// 03.06.11 // SEP #00110000B ; memory,index 8bit mode ;// 03.06.11 //; ;// 03.06.11 // LDA !OYKMOD ;// 03.06.11 // EOR #00000001B ;// 03.06.11 // STA !OYKMOD ;// 03.06.11 // RTL ;// 03.06.11 //; ;// 03.06.11 //; ;// 03.06.11 // MEM16 ;// 03.06.11 // IDX16 ;// 03.06.11 //OPYK100 EQU $ ;// 03.06.11 // LDY #00000H ;// 03.06.11 //; ;// 03.06.11 // LDA !OYKMOD ;// 03.06.11 // BEQ OPYK110 ; write ? ;// 03.06.11 //; ; yes ;// 03.06.11 // CLC ;// 03.06.11 // ADC !OYKCFG ;// 03.06.11 //OPYK110 EQU $ ;// 03.06.11 // ASL A ;// 03.06.11 // ASL A ;// 03.06.11 // ASL A ;// 03.06.11 // TAX ; (X) <-- BG. data pointer ;// 03.06.11 //; ;// 03.06.11 // LDA !OYKCFG ;// 03.06.11 // ASL A ;// 03.06.11 // CLC ;// 03.06.11 // ADC !OYKADR ; (A) <-- BG. address ;// 03.06.11 //OPYK120 EQU $ ;// 03.06.11 // STA ROOMBF+000H,X ;// 03.06.11 // PLX ; (X) pull ;// 03.06.11 // INX ;// 03.06.11 // INX ;// 03.06.11 // TYA ;// 03.06.11 // CLC ;// 03.06.11 // ADC #00006H ;// 03.06.11 // TAY ;// 03.06.11 // LDA OBJ ? ;// 03.06.11 //; ; yes ;// 03.06.11 // LDX #00000H ;// 03.06.11 //OPYK230 EQU $ ;// 03.06.11 // STX OAMENT3 ; OAM used point get ;// 03.06.11 //; ;// 03.06.11 // MEM16 ;// 03.06.11 // REP #00100000B ; memory 16bit mode ;// 03.06.11 //; ;// 03.06.11 // LDX #006H ;// 03.06.11 // LDA !OYKXAD ;// 03.06.11 // CLC ;// 03.06.11 // ADC !OYKXPS ;// 03.06.11 // SEC ;// 03.06.11 // SBC OYOJDT,X ;// 03.06.11 // ORA KEYCNT AND >BITCD0,X BNE TKBX10 ; rouya open ok ? ; ; no LDA #MS_00DD STA !MSGENOL ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; JSL >MESWIT ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode BRA TKBX999 ; TKBX10 EQU $ ;// 03.07.23 // LDA >KEYCNT ;// 03.07.23 // AND >BITCD1,X ;// 03.07.23 // STA >KEYCNT ; ;// 03.04.18 // LDA !INFSTT LDA !EMYSTT ORA TBITCD,Y ;// 03.04.18 // STA !INFSTT ; Takara-box open set STA !EMYSTT ; LDA #01529H STA !SOUND2 ; ; LDA !TBXADR,Y AND #07FFFH TAX LDY !B2FLNO LDA FLORDT+000H,Y STA >ROOMBF+000H,X STA ROOMBF+080H,X STA ROOMBF+002H,X STA TKBXDT,X AND #07FFFH CMP TKBXDT+2,X STA TKBXDT,X ASL A BCC TKBX24 ; special-box ? ; ; yes LDX !DJNNO LDA >KEYCNT AND >BITCD0,X BEQ TKBX231 ; special-box open ok ? ; ; yes ;// 03.07.23 // LDA >KEYCNT ;// 03.07.23 // AND >BITCD1,X ;// 03.07.23 // STA >KEYCNT PLX ; (X) pull PLA ; (Y) pull JMP TKBX400 ; TKBX231 EQU $ PLX ; (X) pull PLY ; (Y) pull PLA ; (A) pull ; LDA #MS_00DD STA !MSGENOL ; SEP #00110000B ; memory,index 8bit mode ; JSL >MESWIT ; message write ; PLB ; (DBR) reset CLC RTL ; ; TKBX24 EQU $ ;// 03.04.23 // LDA >ITMTBL9 ;// 03.04.23 // DEC A ;// 03.04.23 // STA >ITMTBL9 TKBX241 EQU $ PLX ; (X) pull ; ;// 03.04.18 // LDA !INFSTT LDA !EMYSTT ORA TBITCD,Y ;// 03.04.18 // STA !INFSTT ; Takara-box open set STA !EMYSTT ; LDY #tkbox1 LDA UNITDT+000H,Y STA >ROOMBF+000H,X STA ROOMBF+080H,X STA ROOMBF+002H,X STA ROOMBF+082H,X STA READBF+000H,X STA >READBF+040H,X ; LDX !VRAMD LDA #00000H JSR TKBX200 ; Vram address get STA !VRAMD+2,X LDA #00080H JSR TKBX200 ; Vram address get STA !VRAMD+8,X LDA #00002H JSR TKBX200 ; Vram address get STA !VRAMD+14,X LDA #00082H JSR TKBX200 ; Vram address get STA !VRAMD+20,X ; write address set ; ; LDA ITEM0ST ; key count set ;// 03.05.14 // PLA ; (A) pull ;// 03.05.14 // STA MPBTSET1 ; map on/off bit set ; LDA !SOUND3 BNE TKBX50 ; ; ; LDA #00EH STA !SOUND3 ; TKBX50 EQU $ MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; PLY ; (Y) pull LDA !TBXADR,Y AND #07FFFH STA ROOMBF+000H,X LDA UNITDT+002H,Y STA >ROOMBF+080H,X LDA UNITDT+004H,Y STA >ROOMBF+100H,X INY INY INY INY INY INY INX INX DEC READBF+000H,X STA >READBF+002H,X STA >READBF+040H,X STA >READBF+042H,X STA >READBF+080H,X STA >READBF+082H,X ; MEM8 IDX8 SEP #00110001B ; memory,index 8bit mode & SEC ; PLB ; (DBR) reset ; JSL >MPBTSET1 ; map on/off bit set ; LDA #00EH STA !SOUND3 ; ; LDA #001H STA MESWIT ; message init. ; PLB ; (DBR) pull CLC RTL ; ; ATBKDAT EQU $ ; r100 r50 r1 hert arw1 aw10 bomb kakera BYTE 040H,041H,034H,042H,043H,044H,027H,017H ; ; TKBX800 EQU $ LDA !ATBXCT BEQ TKBX890 ; takara-box open ok ? ; ; yes CMP #0FFH BEQ TKBX880 ; takara-box open ok ? ; ; yes DEC !ATBXCT ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA READBF+000H,X CMP #06363H BEQ TKBX840 ; takara-box ? ; ; no DEX LDA >READBF+000H,X CMP #06363H BEQ TKBX840 ; takara-box ? ; ; no INX INX TKBX840 EQU $ LDA #00202H STA >READBF+000H,X STA >READBF+040H,X TXA ASL A STA ROOMBF+000H,X STA ROOMBF+080H,X STA ROOMBF+002H,X STA ROOMBF+082H,X STA RNDSET AND #00000111B TAX CPX #002H BCC TKBX850 ; ; ; CPX ATBKDAT,X TKBXAAA EQU $ STX ; PLB ; (DBR) reset SEC RTL ; ; ; ; ATBKDA1 EQU $ ; 0 1 2 3 4 5 6 7 ; r20 r1 r300 r1 r300 r300 r1 r20 BYTE 047H,034H,046H,034H,046H,046H,034H,047H ; r300 r20 r1 r300 r20 r1 r300 r20 BYTE 046H,047H,034H,046H,047H,034H,046H,047H ; ATBKDA2 EQU $ ; 0 1 2 3 4 5 6 7 ; r1 r20 r50 r20 r50 r50 r20 r1 BYTE 034H,047H,041H,047H,041H,041H,047H,034H ; r50 r1 r20 r50 r1 r20 r50 r1 BYTE 041H,034H,047H,041H,034H,047H,041H,034H ; ; TKBX900 EQU $ JSL >RNDSET AND #00001111B BRA TKBXA40 ; ; TKBXA00 EQU $ JSL >RNDSET AND #00001111B CLC ADC #010H TKBXA40 EQU $ TAX LDA >ATBKDA1,X BRA TKBXAAA ; ; ; ; MEM16 IDX16 TKBX200 EQU $ CLC ADC !TBXADR,Y TKBX220 EQU $ STA WWDNDT,X STA !WRWPH0 LDA !WRWPH1 CLC ADC >WWDNDT,X STA !WRWPH1 ; MEM8 IDX8 SEP #00110000B ; memory,index 16bit mode ; INC !BGMVC1 JSL >WTRWPMV ; water wipe move ;// 02.11.05 // LDA #00110010B ;// 02.11.05 // STA 2131H ; gamen plus ; ;// 03.09.25 // LDA !BGMVC1 ;// 03.09.25 // AND #00001000B ;// 03.09.25 // BEQ WRDWN20 ; CG. fade out ? ;// 03.09.25 //; ; yes ;// 03.09.25 // LDA >CCNGFG ;// 03.09.25 // CMP #002H ;// 03.09.25 // BEQ WRDWN20 ; end ? ;// 03.09.25 //; ; no ;// 03.09.25 // JSL >CGCNGA ; water CG. fade out WRDWN20 EQU $ RTL ; WRDWN40 EQU $ SEP #00110000B ; memory,index 16bit mode ; INC !BGMVC1 JSL >WTRWPMV ; water wipe move ;// 02.11.05 // LDA #00110010B ;// 02.11.05 // STA 2131H ; gamen plus RTL ; ; WRDWN100 EQU $ MEM8 IDX8 SEP #00110000B ; memory,index 16bit mode ; LDA #00000010B STA READBF+041H,X STA >READBF+081H,X INY INY CPY !UDSCKP3 BNE WRDWN140 ; check end ? ; ; yes WRDWN150 EQU $ LDX !UDSCKPB BEQ WRDWN180 ; UD-STEP (normal) check ? ; ; yes LDY #00000H WRDWN160 EQU $ LDX !UDSCKBB,Y LDA #01D1DH STA >READBF+041H,X STA >READBF+081H,X INY INY CPY !UDSCKPB BNE WRDWN160 ; check end ? ; ; yes WRDWN180 EQU $ MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; ;// 03.06.26 // STZ !CGSTPT+1 ;// 03.06.26 // JSL >KOUKAST ; kouka color reset ;// 03.06.26 //; ;// 03.06.26 // MEM16 ;// 03.06.26 // REP #00100000B ; memory 16bit mode ;// 03.06.26 //; ;// 03.06.26 // LDX #00CH ;// 03.06.26 //WRDWN190 EQU $ ;// 03.06.26 // LDA >CGRAM+0E2H,X ;// 03.06.26 // STA >CGWORK+0E2H,X ;// 03.06.26 // DEX ;// 03.06.26 // DEX ;// 03.06.26 // BPL WRDWN190 ; color set end ? ;// 03.06.26 //; ; yes ;// 03.06.26 // MEM8 ;// 03.06.26 // SEP #00100000B ; memory 8bit mode ; INC BG1RBF+0000H,X STA >BG1RBF+0200H,X STA >BG1RBF+0400H,X STA >BG1RBF+0600H,X STA >BG1RBF+0800H,X STA >BG1RBF+0A00H,X STA >BG1RBF+0C00H,X STA >BG1RBF+0E00H,X STA >BG1RBF+1000H,X STA >BG1RBF+1200H,X STA >BG1RBF+1400H,X STA >BG1RBF+1600H,X STA >BG1RBF+1800H,X STA >BG1RBF+1A00H,X STA >BG1RBF+1C00H,X STA >BG1RBF+1E00H,X INX INX CPX #00200H BNE WRCR040 ; BG.1 clear end ? ; ; yes MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; STZ !WBFPNT INC WBUFS1 ; BG.1 write buffer set ; LDA !WBFPNT CLC ADC #004H STA !WBFPNT INC ROOMBF+000H,X LDA UNITDT+002H,Y STA >ROOMBF+002H,X LDA UNITDT+004H,Y STA >ROOMBF+004H,X LDA UNITDT+006H,Y STA >ROOMBF+006H,X TYA CLC ADC #00008H TAY TXA CLC ADC #00080H TAX DEC ROOMBF+000H,X STA !VRAMD+006H,Y LDA >ROOMBF+080H,X STA !VRAMD+008H,Y LDA >ROOMBF+100H,X STA !VRAMD+00AH,Y LDA >ROOMBF+180H,X STA !VRAMD+00CH,Y LDA >ROOMBF+200H,X STA !VRAMD+00EH,Y ; write data set INC WWUPD2,X STA !WRWPH1 LDA !WRWPH2 CLC ADC >WWUPD1,X STA !WRWPH2 CMP WWPM000 RTL ; ; ; MEM8 IDX8 WRUP300 EQU $ LDA !BGMVC1 AND #00000111B BNE WRUP380 ; wipe move ok ? ; ; no LDA !BGMVC1 AND #00001100B LSR A TAX ; MEM16 REP #00100000B ; memory 16bit mode ; LDA !WRWPH0 CMP !WRWPED BEQ WRUP400 ; end ? ; ; no CLC ADC >WWUPDT,X STA !WRWPH0 LDA !WRWPH1 CLC ADC >WWUPDT,X STA !WRWPH1 ; IDX16 REP #00010000B ; index 16bit mode ; LDY #tapdt4 LDA !WRWPED SEC SBC !WRWPH0 BEQ WRUP320 ; ; ; CMP #00008H BNE WRUP340 ; ; ; LDY #tapdt3 WRUP320 EQU $ LDA #00005H STA WRUP020 ; tap BG. set WRUP340 EQU $ MEM8 IDX8 SEP #00110000B ; memory,index 16bit mode ; ;// 02.10.25 // INC !BGMVC1 ;// 02.10.25 // JSL >WTRWPMV ; water wipe move ;// 02.10.25 //; ;// 02.10.25 // LDA !BGMVC1 ;// 02.10.25 // AND #00001000B ;// 02.10.25 // BEQ WRUP360 ; CG. fade in ? ;// 02.10.25 //; ; yes ;// 02.10.25 // LDA >CCNGFG ;// 02.10.25 // BEQ WRUP360 ; end ? ;// 02.10.25 //; ; no ;// 02.10.25 // JSL >CGCNGA ; water CG. fade in ;// 02.10.25 //WRUP360 EQU $ ;// 02.10.25 // RTL ;// 02.10.25 //; WRUP380 EQU $ SEP #00110000B ; memory,index 16bit mode ; INC !BGMVC1 JSL >WTRWPMV ; water wipe move RTL ; ; WRUP400 EQU $ ;// 02.10.25 // SEP #00110000B ; memory,index 16bit mode ;// 02.10.25 //; ;// 02.10.25 // LDA #01100010B ;// 02.10.25 // STA 2131H ; gamen plus ;// 02.10.25 //; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; STZ READBF+000H,X ;;;;;;;; LDA #00300H XBA STA >READBF+002H,X LDA #00A03H STA >READBF1+000H,X ;;;;;;;; LDA #0030AH XBA STA >READBF1+002H,X ; LDA #00808H STA >READBF+040H,X STA >READBF+042H,X STA >READBF1+040H,X STA >READBF1+042H,X STA >READBF1+080H,X STA >READBF1+082H,X STA >READBF1+0C0H,X STA >READBF1+0C2H,X INY INY CPY !UDSCKP2 BNE WRUP440 ; check end ? ; ; yes WRUP460 EQU $ LDX !UDSCKPA BEQ WRUP480 ; UD-STEP (normal) check ? ; ; yes LDY #00000H WRUP470 EQU $ LDX !UDSCKBA,Y LDA #00003H STA >READBF+0C0H,X ;;;;;;;; LDA #00300H XBA STA >READBF+0C2H,X LDA #00A03H STA >READBF1+0C0H,X ;;;;;;;; LDA #0030AH XBA STA >READBF1+0C2H,X LDA #00808H STA >READBF+080H,X STA >READBF+082H,X STA >READBF1+000H,X STA >READBF1+002H,X STA >READBF1+040H,X STA >READBF1+042H,X STA >READBF1+080H,X STA >READBF1+082H,X INY INY CPY !UDSCKPA BNE WRUP470 ; check end ? ; ; yes WRUP480 EQU $ ;// 02.10.25 // MEM8 ;// 02.10.25 // IDX8 ;// 02.10.25 // SEP #00110000B ; memory,index 8bit mode ;// 02.10.25 //; ;// 02.10.25 // STZ !CGSTPT+1 ;// 02.10.25 // JSL >KOUKAST ; kouka color reset ;// 02.10.25 //; ;// 02.10.25 // MEM16 ;// 02.10.25 // REP #00100000B ; memory 16bit mode ;// 02.10.25 //; ;// 02.10.25 // LDX #00CH ;// 02.10.25 //WRUP490 EQU $ ;// 02.10.25 // LDA >CGRAM+0E2H,X ;// 02.10.25 // STA >CGWORK+0E2H,X ;// 02.10.25 // DEX ;// 02.10.25 // DEX ;// 02.10.25 // BPL WRUP490 ; color set end ? ;// 02.10.25 //; ; yes ;// 02.10.25 // MEM8 ;// 02.10.25 // SEP #00100000B ; memory 8bit mode ;// 02.10.25 //; ;// 02.10.25 // INC WRWPV0 ; wipe set ; LDA WGTDT0,X ;;;;;;;; STA !WRWPH1 ;;;;;;;; LDA !WNYPL1 ;;;;;;;; CLC ;;;;;;;; ADC >WGTDT1,X ;;;;;;;; STA !WNYPL1 ;;;;;;;; LDA !WRWPH0 ;;;;;;;; CLC ;;;;;;;; ADC #00008H ;;;;;;;; STA !WRWPH0 ;;;;;;;;; ;;;;;;;; MEM8 ;;;;;;;; SEP #00100000B ; memory 8bit mode ; LDA !WGTPNT CMP #040H BNE WGTOP10 ; end ? ; ; yes INC WGTDPT,X TAY LDX !WGTADR STX ROOMBF+000H,X LDA UNITDT+002H,Y STA >ROOMBF+080H,X LDA UNITDT+004H,Y STA >ROOMBF+100H,X LDA UNITDT+006H,Y STA >ROOMBF+180H,X TYA CLC ADC #00008H TAY INX INX DEC WBUFS1 ; BG.1 data buffer set LDA !WBFPNT CLC ADC #004H STA !WBFPNT ; INC HDMAOFF ; H-DMA off ;// 03.10.06 // LDX !UDSCKP3 ;// 03.10.06 // BEQ WGTOP980 ; UD-STEP (normal) check ? ;// 03.10.06 //; ; yes ;// 03.10.06 // LDY #00000H ;// 03.10.06 //WGTOP940 EQU $ ;// 03.10.06 // LDX !UDSCKB3,Y ;// 03.10.06 // LDA #00A0AH ;// 03.10.06 // STA >READBF+041H,X ;// 03.10.06 // LDA #00808H ;// 03.10.06 // STA >READBF+081H,X ;// 03.10.06 // INY ;// 03.10.06 // INY ;// 03.10.06 // CPY !UDSCKP3 ;// 03.10.06 // BNE WGTOP940 ; check end ? ;// 03.10.06 //; ; yes WGTOP980 EQU $ RTL ; ;// 03.09.03 //; ;// 03.09.03 //; ;// 03.09.03 //;************************************************************************ ;// 03.09.03 //;* Water into (WTRINTO) * ;// 03.09.03 //;************************************************************************ ;// 03.09.03 //WROJDT EQU $ ;// 03.09.03 // WORD 061CDH,061CEH,021CEH,021CDH ;// 03.09.03 // WORD 061DDH,061DEH,021DEH,021DDH ;// 03.09.03 //; ;// 03.09.03 // WORD 021CDH,021CEH,061CEH,061CDH ;// 03.09.03 // WORD 021DDH,021DEH,061DEH,061DDH ;// 03.09.03 //; ;// 03.09.03 // WORD 061CAH,061CBH,021CBH,021CAH ;// 03.09.03 // WORD 061DAH,061DBH,021DBH,021DAH ;// 03.09.03 //; ;// 03.09.03 // WORD 021CAH,021CBH,061CBH,061CAH ;// 03.09.03 // WORD 021DAH,021DBH,061DBH,061DAH ;// 03.09.03 //; ;// 03.09.03 //; ;// 03.09.03 //WTRINTO EQU $ ;// 03.09.03 // LDA #008H*4 ;// 03.09.03 // JSL >OAMENT3 ; OAM used point get ;// 03.09.03 //; ;// 03.09.03 // LDA WROJDT,X ;// 03.09.03 // STA !OAM2+2,Y ; char. & atrb. set ;// 03.09.03 // INY ;// 03.09.03 // INY ;// 03.09.03 // INY ;// 03.09.03 // INY ;// 03.09.03 //WRIT140 EQU $ ;// 03.09.03 // MEM16 ;// 03.09.03 // REP #00100000B ; memory 16bit mode ;// 03.09.03 //; ;// 03.09.03 // DEC BG1RBF+000H,X ;// 03.09.03 // STA >BG1RBF+008H,X ;// 03.09.03 // LDA UNITDT+008H,Y ;// 03.09.03 // STA >BG1RBF+080H,X ;// 03.09.03 // STA >BG1RBF+088H,X ;// 03.09.03 // INY ;// 03.09.03 // INY ;// 03.09.03 // INX ;// 03.09.03 // INX ;// 03.09.03 // DEC DJCGSET ; CG. reset ;// 03.09.03 // INC LMPTBUF,X ; lamp fire on LMPP40 EQU $ LDA !LMPADR,Y AND #03FFFH TAX STX ROOMBF+000H,X ;// 03.08.02 // LDA UNITDT+002H,Y ;// 03.08.02 // STA >ROOMBF+080H,X ;// 03.08.02 // LDA UNITDT+004H,Y ;// 03.08.02 // STA >ROOMBF+002H,X ;// 03.08.02 // LDA UNITDT+006H,Y ;// 03.08.02 // STA >ROOMBF+082H,X ; lamp fire set ;// 03.08.02 //; ;// 03.08.02 // STZ SDLRCK ; sound L,R check ORA #02AH STA !SOUND2 ; ; PLB ; (DBR) reset ; LDA #001H STA DARKFG BEQ LMPP80 ; now-dark ? ; ; yes LDA !LGTWST INC !LGTWST ;// 03.04.10 // SEC ;// 03.04.10 // SBC !LGTWFG ;// 03.04.10 // CMP #003H ;// 03.04.10 // BCS LMPP80 ; fade-in ? ;// 03.04.10 //; ; yes CMP #003H BCS LMPP80 ; fire on ? ; ; yes ;// 03.04.25 // CMP #002H ;// 03.04.25 // BNE LMPP60 ; normal color ? ;// 03.04.25 //; ; no ;// 03.04.10 // LDA #00000010B ;// 03.04.10 // STA DARKDT,X STA >DKRMCG LDA #p1_ltwp STA PWTRCGS2 ; ; LDA #0C0H STA !FIRENO BRA LAMPOFF ; ;************************************************************************ ;* Lamp off-1 (LAMPOFF1) * ;************************************************************************ LAMPOFF1 EQU $ LDA #0C1H STA !FIRENO ; ;************************************************************************ ;* Lamp off (LAMPOFF) * ;************************************************************************ LAMPOFF EQU $ LDA #0C0H STA LMPTBUF,X ; lamp fire on ; AND #03FFFH TAX STX ROOMBF+000H,X ;// 03.08.02 // LDA UNITDT+002H,Y ;// 03.08.02 // STA >ROOMBF+080H,X ;// 03.08.02 // LDA UNITDT+004H,Y ;// 03.08.02 // STA >ROOMBF+002H,X ;// 03.08.02 // LDA UNITDT+006H,Y ;// 03.08.02 // STA >ROOMBF+082H,X ; lamp fire set ;// 03.08.02 //; ;// 03.08.02 // STZ DARKFG BEQ LMPP180 ; now-dark ? ; ; yes LDA !LGTWST BEQ LMPP180 ; ; ; DEC A STA !LGTWST CMP #003H BCS LMPP180 ; kantera check ? ; ; yes CMP #000H BNE LMPP160 ; kantera on ? ; ; yes ;// 03.04.25 // LDA !LGTWFG ;// 03.04.25 // BEQ LMPP160 ; kantera on ? ;// 03.04.25 //; ; yes LDA #00000001B STA DARKDT,X STA >DKRMCG ; LDA #p1_ltwp STA UPADR0,X ;// 03.02.12 // SEC ;// 03.02.12 // SBC #00006H+00008H ;// 03.02.12 // TAX ;// 03.02.12 // LDA 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 RASN040 ; ; ; ;// 03.08.02 // STZ UPADR0,X ;// 03.02.12 // SEC ;// 03.02.12 // SBC #00006H+00008H ;// 03.02.12 // TAX ;// 03.02.12 // LDA !STPDPT ;// 03.02.12 // AND #0000FH ;// 03.02.12 // BEQ RASN130 ; normal ? ;// 03.02.12 //; ; no ;// 03.02.12 // TXA ;// 03.02.12 // CLC ;// 03.02.12 // ADC #00180H ;// 03.02.12 // TAX ; ;// 03.02.19 // LDA ROOMBF+000H,X AND #0DFFFH STA >ROOMBF+000H,X LDA >ROOMBF+080H,X AND #0DFFFH STA >ROOMBF+080H,X LDA >ROOMBF+100H,X AND #0DFFFH STA >ROOMBF+100H,X LDA >ROOMBF+180H,X AND #0DFFFH STA >ROOMBF+180H,X INX INX DEY BPL RASN140 ; ; ; ;// 03.08.02 // STZ STZ !KNPASFG STZ GNNEEDT,X TAY LDX #00000H GNNOP20 EQU $ LDA UNITDT+000H,Y STA >ROOMBF+1D8H,X LDA UNITDT+002H,Y STA >ROOMBF+258H,X LDA UNITDT+004H,Y STA >ROOMBF+2D8H,X LDA UNITDT+006H,Y STA >ROOMBF+358H,X TYA CLC ADC #00008H TAY INX INX CPX #00010H BNE GNNOP20 ; set end ? ; ; yes LDA #00008H STA READBF+2D8H/2 STA >READBF+358H/2 LDA #00200H STA >READBF+2E4H/2 STA >READBF+364H/2 ; LDX #00000H LDA #00000H GNNOP30 EQU $ STA >READBF+05AH/2,X STA >READBF+0DAH/2,X STA >READBF+15AH/2,X STA >READBF+1DAH/2,X STA >READBF+25AH/2,X STA >READBF+2DAH/2,X STA >READBF+35AH/2,X INX INX CPX #00006H BNE GNNOP30 ; code set end ? ; ; yes LDA #0FFC0H STA !SCVU ; MEM8 SEP #00100000B ; memory 8bit mode ; STZ ROOMBF+000H,X LDA UNITDT+002H,Y STA >ROOMBF+080H,X LDA UNITDT+004H,Y STA >ROOMBF+002H,X LDA UNITDT+006H,Y STA >ROOMBF+082H,X ; lamp fire set BGCNGS11 EQU $ STZ ROOMBF+000H,X STA !BGCWBF+004H,Y LDA ROOMBF+002H,X STA !BGCWBF+006H,Y LDA >ROOMBF+004H,X STA !BGCWBF+008H,Y LDA >ROOMBF+006H,X STA !BGCWBF+00AH,Y ; write data set LDA ROOMBF+080H,X STA !BGCWBF+006H,Y LDA >ROOMBF+100H,X STA !BGCWBF+008H,Y LDA >ROOMBF+180H,X STA !BGCWBF+00AH,Y ; write data set INC ROOMBF+000H,X STA !BGCWBF+004H,Y ; ;// 03.08.29 // LDA ROOMBF+080H,X STA !BGCWBF+006H,Y LDA >ROOMBF+100H,X STA !BGCWBF+008H,Y LDA >ROOMBF+180H,X STA !BGCWBF+00AH,Y LDA >ROOMBF+200H,X STA !BGCWBF+00CH,Y LDA >ROOMBF+280H,X STA !BGCWBF+012H,Y LDA >ROOMBF+300H,X STA !BGCWBF+014H,Y LDA >ROOMBF+380H,X STA !BGCWBF+016H,Y LDA >ROOMBF+400H,X STA !BGCWBF+018H,Y LDA >ROOMBF+480H,X STA !BGCWBF+01AH,Y LDA >ROOMBF+500H,X STA !BGCWBF+01CH,Y LDA >ROOMBF+580H,X STA !BGCWBF+01EH,Y ; write data set ; INC ROOMBF+002H,X ;// 03.08.29 // STA !BGCWBF+006H,Y ;// 03.08.29 // LDA >ROOMBF+004H,X ;// 03.08.29 // STA !BGCWBF+008H,Y ;// 03.08.29 // LDA >ROOMBF+006H,X ;// 03.08.29 // STA !BGCWBF+00AH,Y ;// 03.08.29 // LDA >ROOMBF+008H,X ;// 03.08.29 // STA !BGCWBF+00CH,Y ;// 03.08.29 // LDA >ROOMBF+00AH,X ;// 03.08.29 // STA !BGCWBF+00EH,Y ;// 03.08.29 // LDA >ROOMBF+00CH,X ;// 03.08.29 // STA !BGCWBF+014H,Y ;// 03.08.29 // LDA >ROOMBF+00EH,X ;// 03.08.29 // STA !BGCWBF+016H,Y ;// 03.08.29 // LDA >ROOMBF+010H,X ;// 03.08.29 // STA !BGCWBF+018H,Y ;// 03.08.29 // LDA >ROOMBF+012H,X ;// 03.08.29 // STA !BGCWBF+01AH,Y ;// 03.08.29 // LDA >ROOMBF+014H,X ;// 03.08.29 // STA !BGCWBF+01CH,Y ;// 03.08.29 // LDA >ROOMBF+016H,X ;// 03.08.29 // STA !BGCWBF+01EH,Y ; write data set ;// 03.08.29 //; ;// 03.08.29 // LDA BGCG2D,X CLC ADC BG1RBF+000H,X STA !VRAMD+6,Y INY INY INY INY INY INY INX INX DEC ROOMBF+080H,X STA >ROOMBF+082H,X STA >ROOMBF+084H,X STA >ROOMBF+086H,X STA >ROOMBF+100H,X STA >ROOMBF+102H,X STA >ROOMBF+104H,X STA >ROOMBF+106H,X ; LDY #wakud0 LDA UNITDT+002H,Y STA >ROOMBF+000H,X STA >ROOMBF+002H,X STA >ROOMBF+004H,X STA >ROOMBF+006H,X ; LDY #wakud1 LDA UNITDT+002H,Y STA >ROOMBF+180H,X STA >ROOMBF+182H,X STA >ROOMBF+184H,X STA >ROOMBF+186H,X RTS ; ; ; ; ;************************************************************************ ;* Rewrite 4x4 yuka (RWYUKA) * ;************************************************************************ RWYUKA EQU $ LDY !B2FLNO LDA FLORDT+000H,Y STA >ROOMBF+000H,X STA >ROOMBF+004H,X STA >ROOMBF+100H,X STA >ROOMBF+104H,X LDA FLORDT+002H,Y STA >ROOMBF+002H,X STA >ROOMBF+006H,X STA >ROOMBF+102H,X STA >ROOMBF+106H,X LDA FLORDT+008H,Y STA >ROOMBF+080H,X STA >ROOMBF+084H,X STA >ROOMBF+180H,X STA >ROOMBF+184H,X LDA FLORDT+00AH,Y STA >ROOMBF+082H,X STA >ROOMBF+086H,X STA >ROOMBF+182H,X STA >ROOMBF+186H,X RTS ; ; ; ; ; ;************************************************************************ ;* Rewrite Up Shutter-door set (SRWUDRST) * ;************************************************************************ SRWUDRST EQU $ LDA !DORPNT AND #000FFH STA > CPX #00006H CPX #00004H BEQ RWUDR45 ; ; ; ;<< 03.03.28 >> LDY UDOPNDD,X ;<< 03.03.28 >> CMP #ud_dor ;<< 03.03.28 >> BCC RWUDR50 ; under-door,shutter ? ;<< 03.03.28 >>; ; yes ;<< 03.03.28 >> LDY UDOPNDD+4,X CMP #ky4_dr BEQ RWUDR41 ; D-rasen ? ; ; no CMP #ky5_dr BEQ RWUDR41 ; D-rasen ? ; ; no CMP #ud_dor BCC RWUDR42 ; under_door ? ; ; yes RWUDR41 EQU $ INX INX INX INX RWUDR42 EQU $ CMP #sht_dr BEQ RWUDR43 ; shutter ? ; ; no CMP #ud_sht BNE RWUDR44 ; under_shutter ? ; ; yes RWUDR43 EQU $ INX INX RWUDR44 EQU $ LDY UDOPNDD,X BRA RWUDR50 ; RWUDR45 EQU $ JSR RWDDGT ; rewrite door data get ; LDY UDRTBL,X RWUDR50 EQU $ LDX !DORPNT LDA !DORADR,X TAX LDA #00004H STA ROOMBF+000H,X LDA UNITDT+002H,Y STA >ROOMBF+080H,X LDA UNITDT+004H,Y STA >ROOMBF+100H,X TYA CLC ADC #00006H TAY INX INX DEC > CPX #00006H CPX #00004H BEQ RWDDR45 ; ; ; ;<< 03.03.28 >> LDY DDOPNDD,X ;<< 03.03.28 >> CMP #ud_dor ;<< 03.03.28 >> BCC RWDDR50 ; under-door,shutter ? ;<< 03.03.28 >>; ; yes ;<< 03.03.28 >> LDY DDOPNDD+4,X CMP #ud_dor BCC RWDDR42 ; under_door ? ; ; yes INX INX INX INX RWDDR42 EQU $ CMP #sht_dr BEQ RWDDR43 ; shutter ? ; ; no CMP #ud_sht BNE RWDDR44 ; under_shutter ? ; ; yes RWDDR43 EQU $ INX INX RWDDR44 EQU $ LDY DDOPNDD,X BRA RWDDR50 ; RWDDR45 EQU $ JSR RWDDGT ; rewrite door data get ; LDY DDRTBL,X RWDDR50 EQU $ LDX !DORPNT LDA !DORADR,X TAX LDA #00004H STA ROOMBF+080H,X LDA UNITDT+002H,Y STA >ROOMBF+100H,X LDA UNITDT+004H,Y STA >ROOMBF+180H,X TYA CLC ADC #00006H TAY INX INX DEC > CPX #00006H CPX #00004H BEQ RWLDR45 ; ; ; ;<< 03.03.28 >> LDY LDOPNDD,X ;<< 03.03.28 >> CMP #ud_dor ;<< 03.03.28 >> BCC RWLDR50 ; under-door,shutter ? ;<< 03.03.28 >>; ; yes ;<< 03.03.28 >> LDY LDOPNDD+4,X CMP #ud_dor BCC RWLDR42 ; under_door ? ; ; yes INX INX INX INX RWLDR42 EQU $ CMP #sht_dr BEQ RWLDR43 ; shutter ? ; ; no CMP #ud_sht BNE RWLDR44 ; under_shutter ? ; ; yes RWLDR43 EQU $ INX INX RWLDR44 EQU $ LDY LDOPNDD,X BRA RWLDR50 ; RWLDR45 EQU $ JSR RWDDGT ; rewrite door data get ; LDY LDRTBL,X RWLDR50 EQU $ LDX !DORPNT LDA !DORADR,X TAX LDA #00003H STA ROOMBF+000H,X LDA UNITDT+002H,Y STA >ROOMBF+080H,X LDA UNITDT+004H,Y STA >ROOMBF+100H,X LDA UNITDT+006H,Y STA >ROOMBF+180H,X TYA CLC ADC #00008H TAY INX INX DEC > CPX #00006H CPX #00004H BEQ RWRDR45 ; ; ; ;<< 03.03.28 >> LDY RDOPNDD,X ;<< 03.03.28 >> CMP #ud_dor ;<< 03.03.28 >> BCC RWRDR50 ; under-door,shutter ? ;<< 03.03.28 >>; ; yes ;<< 03.03.28 >> LDY RDOPNDD+4,X CMP #ud_dor BCC RWRDR42 ; under_door ? ; ; yes INX INX INX INX RWRDR42 EQU $ CMP #sht_dr BEQ RWRDR43 ; shutter ? ; ; no CMP #ud_sht BNE RWRDR44 ; under_shutter ? ; ; yes RWRDR43 EQU $ INX INX RWRDR44 EQU $ LDY RDOPNDD,X BRA RWRDR50 ; RWRDR45 EQU $ JSR RWDDGT ; rewrite door data get ; LDY RDRTBL,X RWRDR50 EQU $ LDX !DORPNT LDA !DORADR,X TAX LDA #00003H STA ROOMBF+002H,X LDA UNITDT+002H,Y STA >ROOMBF+082H,X LDA UNITDT+004H,Y STA >ROOMBF+102H,X LDA UNITDT+006H,Y STA >ROOMBF+182H,X TYA CLC ADC #00008H TAY INX INX DEC ROOMBF+000H,X LDA UNITDT+002H,Y STA >ROOMBF+080H,X LDA UNITDT+004H,Y STA >ROOMBF+100H,X LDA UNITDT+006H,Y STA >ROOMBF+180H,X TYA CLC ADC #00008H TAY INX INX DEC ROOMBF+000H,X STA >ROOMBF+080H,X STA >ROOMBF+100H,X STA >ROOMBF+180H,X STA >ROOMBF+200H,X STA >ROOMBF+280H,X STA >ROOMBF+300H,X STA >ROOMBF+380H,X STA >ROOMBF+400H,X STA >ROOMBF+480H,X STA >ROOMBF+500H,X STA >ROOMBF+580H,X INX INX DEC ROOMBF+000H,X LDA UNITDT+002H,Y STA >ROOMBF+080H,X LDA UNITDT+004H,Y STA >ROOMBF+100H,X LDA UNITDT+006H,Y STA >ROOMBF+180H,X LDA UNITDT+008H,Y STA >ROOMBF+200H,X LDA UNITDT+00AH,Y STA >ROOMBF+280H,X LDA UNITDT+00CH,Y STA >ROOMBF+300H,X LDA UNITDT+00EH,Y STA >ROOMBF+380H,X LDA UNITDT+010H,Y STA >ROOMBF+400H,X LDA UNITDT+012H,Y STA >ROOMBF+480H,X LDA UNITDT+014H,Y STA >ROOMBF+500H,X LDA UNITDT+016H,Y STA >ROOMBF+580H,X INX INX TYA CLC ADC #00018H TAY DEC ROOMBF+000H,X ;// 03.08.29 // STA >ROOMBF+002H,X ;// 03.08.29 // STA >ROOMBF+004H,X ;// 03.08.29 // STA >ROOMBF+006H,X ;// 03.08.29 // STA >ROOMBF+008H,X ;// 03.08.29 // STA >ROOMBF+00AH,X ;// 03.08.29 // STA >ROOMBF+00CH,X ;// 03.08.29 // STA >ROOMBF+00EH,X ;// 03.08.29 // STA >ROOMBF+010H,X ;// 03.08.29 // STA >ROOMBF+012H,X ;// 03.08.29 // TXA ;// 03.08.29 // CLC ;// 03.08.29 // ADC #00080H ;// 03.08.29 // TAX ;// 03.08.29 // DEC ROOMBF+000H,X ;// 03.08.29 // LDA UNITDT+002H,Y ;// 03.08.29 // STA >ROOMBF+002H,X ;// 03.08.29 // LDA UNITDT+004H,Y ;// 03.08.29 // STA >ROOMBF+004H,X ;// 03.08.29 // LDA UNITDT+006H,Y ;// 03.08.29 // STA >ROOMBF+006H,X ;// 03.08.29 // LDA UNITDT+008H,Y ;// 03.08.29 // STA >ROOMBF+008H,X ;// 03.08.29 // LDA UNITDT+00AH,Y ;// 03.08.29 // STA >ROOMBF+00AH,X ;// 03.08.29 // LDA UNITDT+00CH,Y ;// 03.08.29 // STA >ROOMBF+00CH,X ;// 03.08.29 // LDA UNITDT+00EH,Y ;// 03.08.29 // STA >ROOMBF+00EH,X ;// 03.08.29 // LDA UNITDT+010H,Y ;// 03.08.29 // STA >ROOMBF+010H,X ;// 03.08.29 // LDA UNITDT+012H,Y ;// 03.08.29 // STA >ROOMBF+012H,X ;// 03.08.29 // TXA ;// 03.08.29 // CLC ;// 03.08.29 // ADC #00080H ;// 03.08.29 // TAX ;// 03.08.29 // TYA ;// 03.08.29 // CLC ;// 03.08.29 // ADC #00014H ;// 03.08.29 // TAY ;// 03.08.29 // DEC ROOMBF+000H,X STA ROOMBF+002H,X STA ROOMBF+004H,X STA ROOMBF+006H,X STA READBF+000H,X LDA READBF+001H,X LDA READBF+002H,X LDA READBF+003H,X ; MEM16 REP #00100000B ; memory 16bit mode ; LDA