4667 ; INCLUDE zel_ram.asm ; ;-------------------------------------------------------------------- ; ; PAL_ZELDA-3 (FRANCE) 1992.05.11(MON) ; ;-------------------------------------------------------------------- ; ORG 0DDA80H ; ;=============================================== (zel_bg3) =========== GLB MTRDSP,SLITEM,KAIHUKU,KAIMP,BITMCKL ; GLB MTRON2,MTRON3,MTRON4,MTRSUB,ITEMSET,LMPCHCK,ITEM0ST ; GLB STGITRM ; GLB BOMBER,BUMERN,YUMIYA,HANMER GLB ROD001,ROD002,HUEEEE,SCOPUU GLB LAMPUU,KONAAA,BIN001,BIN002 GLB BIN003,HUKUUU,SBOMBE,STHAND GLB SGISIN,SOROMN,KAKURE,TRAIFS ; GLB BOMBMAP,BOMBMAX,YAAAMAP,YAAAMAX ;=============================================== (zel_main) ========== EXT VRAMCL,VRAMCL1,JSRSUB ; EXT MD_title,MD_djint,MD_djply,MD_gdint,MD_gdply EXT MD_evint,MD_evply EXT MD_fdout,MD_fdin,MD_etcpl EXT MD_wpout,MD_wpin,MD_ghldn,MD_gover,MD_psrst ;=============================================== (zel_vma) =========== EXT DJBGWT,VDTWT,WBUFS0,WBUFS1 ; EXT VT01 ; EXT bgw1,bgw8 ;=============================================== (zel_data0) ========= EXT BITCD0 ;=============================================== (zel_char) ========== EXT CHSCHNG EXT B3CGSET,MAPCGSET,MAPOBSET EXT PWTRCGS0 ;=============================================== (zel_init) ========== EXT DARKDT ; EXT p1_move,p1_scl0,p1_scl1,p1_bchg,p1_dopn,p1_sdop EXT p1_stpc,p1_hldn,p1_mcng,p1_opyk,p1_bmbd,p1_ltwp ;=============================================== (zel_comn) ========== EXT LGTWPMV ;=============================================== (zel_bgwt) ========== EXT CGEDP0,CGEDPT ;=============================================== (zel_play) ========== EXT SWMD ;=============================================== (zel_rmdt) ========== EXT DJNDT ;===================================================================== ; EXTEND ; MEM8 IDX8 ; ; ; ;************************************************************************ ;* item NO. * ;************************************************************************ BOMBER EQU 001 BUMERN EQU 002 YUMIYA EQU 003 HANMER EQU 004 ROD001 EQU 005 ROD002 EQU 006 HUEEEE EQU 007 SCOPUU EQU 008 LAMPUU EQU 009 KONAAA EQU 010 BIN001 EQU 011 BIN002 EQU 012 BIN003 EQU 013 HUKUUU EQU 014 SBOMBE EQU 015 STHAND EQU 016 SGISIN EQU 017 SOROMN EQU 018 KAKURE EQU 019 TRAIFS EQU 020 ; HARTMAX EQU 020 ;************************************************************************ ;* Mater display (MTRDSP) * ;************************************************************************ BOMBMAP EQU $ BYTE 010H,015H,020H,025H,030H,035H,040H,050H BOMBMAX EQU $ BYTE 0010,0015,0020,0025,0030,0035,0040,0050 ; YAAAMAP EQU $ BYTE 030H,035H,040H,045H,050H,055H,060H,070H YAAAMAX EQU $ BYTE 0030,0035,0040,0045,0050,0055,0060,0070 ; HARTARM EQU $ ; 0 1 2 3 4 5 6 7 8 BYTE 009H,009H,009H,009H,009H,009H,009H,009H,011H ; 9 10 11 12 13 14 15 16 17 BYTE 011H,011H,011H,011H,011H,011H,019H,019H,019H ; 18 19 20 BYTE 019H,019H,019H ; MTRDSP EQU $ PHB PHK PLB ; (DBR) set ; LDA !ITEMMD BEQ MTRDSPGO ; ; ; PLB RTL ; ITEM0ST EQU $ ;ITEM 0 ni natta toki ni yobu PHB PHK PLB ; (DBR) set ; JSR BITMCK JSR DATTEN JSR MTRON0 SEP #00110000B STZ ITEMMD ; ; PLB RTL ; MTRDSPGO EQU $ ; MTRDSP0 EQU $ LDA >UPMPCT ;MP BEQ MTRDSP2 ; LDA >MPNWCT CMP #080H ;? max BCC MTRDSP1 LDA #080H ;y STA >MPNWCT LDA #000H STA >UPMPCT BRA MTRDSP2 MTRDSP1 EQU $ LDA >UPMPCT ;MP UP! DEC A STA >UPMPCT LDA >MPNWCT INC A STA >MPNWCT ; LDA CONPRT CMP >CONCNT BEQ MTRDSP3 ; BMI MTR022 DEC A BPL MTR024 ;- CHK LDA #00000 STA >CONCNT BRA MTR024 MTR022 EQU $ INC A CMP #1000 ;MAX CHK BCC MTR024 LDA #0999 STA >CONCNT MTR024 EQU $ STA >CONPRT ; MEM8 IDX8 SEP #00110000B ; LDA SOUND2 BNE MTRDSP3 ; ;; LDA ; BRA MTRDSP4 MTRDSP3 EQU $ MEM8 IDX8 SEP #00110000B ; STZ COSDCT MTRDSP4 EQU $ ;BOMB LDA >UPBMCT BEQ MTRDSP5 LDA >UPBMCT DEC A STA >UPBMCT LDA >ITEMR49 TAY LDA >BMBCNT CMP BOMBMAX,Y BEQ MTR045 INC A STA >BMBCNT MTR045 EQU $ ; MTRDSP5 EQU $ ;YA LDA >UPAWCT BEQ MTRDSP6 LDA >UPAWCT DEC A STA >UPAWCT LDA >ITEMR50 TAY LDA >ARWCNT CMP YAAAMAX,Y BEQ MTR055 INC A STA >ARWCNT ; MTR055 EQU $ LDA >ITEMR01 BEQ MTRDSP6 ;? YUMI NASHI ; ;N AND #001H CMP #001H ;? YA NASHI BNE MTRDSP6 ; ;Y LDA >ITEMR01 INC A STA >ITEMR01 ;YA ON ; JSL >ITEM0ST ; MTRDSP6 EQU $ LDA PYALSP BNE MTR065 LDA >UPLFCT BNE MTR065 LDA >LFITCT LSR A LSR A LSR A TAX LDA >LFNWCT CMP HARTARM,X BCS MTR065 ; LDA HRTSCT BNE MTR068 ; LDA SOUND2 BNE MTR065 LDA #020H STA HRTSCT LDA #02BH ;OTO STA SOUND2 ; MTR068 EQU $ DEC HRTSCT ; MTR065 EQU $ LDA KAIFLG BNE MTRDSP8 LDA >UPLFCT BEQ MTRDSP9 LDA >LFNWCT CMP >LFITCT BCC MTRDSP7 LDA >LFITCT STA >LFNWCT LDA #000H STA >UPLFCT BRA MTRDSP9 MTRDSP7 EQU $ LDA >LFNWCT ;LIFE kaihuku CLC ADC #0008 STA >LFNWCT ; LDA SOUND3 BNE MTRDSP72 LDA #00DH ;OTO STA SOUND3 ; MTRDSP72 EQU $ ; LDA >LFNWCT CMP >LFITCT BCC MTRDSP70 LDA >LFITCT STA >LFNWCT MTRDSP70 EQU $ ; LDA >UPLFCT SEC SBC #008H STA >UPLFCT INC KAIFLG LDA #007H STA KAICNT ; MTRDSP8 EQU $ ; MEM16 IDX16 REP #00110000B ; LDA #0FFFFH STA JSRSUB WORD SLITM100 ;0 : init - 0 WORD SLITM300 ;1 : - 1 WORD SLITM700 ;2 : scroll WORD WAITMV ;3 : wait WORD BMOVE ;4 : B move WORD DATTEN ;5 : exit WORD SLITM900 ;6 : scroll ; ; : bin select WORD BINSCT10 ;7 : init WORD BINSCT20 ;8 : kuro nuri WORD BINSCT30 ;9 : waku write WORD BINSCT40 ;A : select WORD BINSCT50 ;B : nuki nuri WORD BINSCT60 ;B : moto ni modosu ; SLITM100 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDX #000H LDA #0207FH SLITM120 EQU $ STA !WBGBUF+000H,X STA !WBGBUF+080H,X STA !WBGBUF+100H,X STA !WBGBUF+180H,X STA !WBGBUF+200H,X STA !WBGBUF+280H,X STA !WBGBUF+300H,X STA !WBGBUF+380H,X STA !WBGBUF+400H,X STA !WBGBUF+480H,X STA !WBGBUF+500H,X STA !WBGBUF+580H,X STA !WBGBUF+600H,X STA !WBGBUF+680H,X STA !WBGBUF+700H,X STA !WBGBUF+780H,X INX INX CPX #080H BNE SLITM120 ; clear end ? ; ; yes MEM8 SEP #00100000B ; memory 8bit mode ; LDA #011H STA !SOUND3 ; ; LDA #bgw1 STA ITEMR01 SLITM330 EQU $ ORA >ITEMR02,X DEX BPL SLITM330 CMP #000H BEQ SLITM320 ;? NO ITEM ; ;N LDA >BINCT0 ORA >BINCT1 ORA >BINCT2 ORA >BINCT3 BNE SLITM350 BRA SLITM360 ;CLS SLITM350 EQU $ LDA >ITEMR16 BNE SLITM340 ;? HAGIMETE TAY ;Y INY LDA >BINCT0 BNE SLITM370 INY LDA >BINCT1 BNE SLITM370 INY LDA >BINCT2 BNE SLITM370 INY SLITM370 EQU $ TYA SLITM360 EQU $ STA >ITEMR16 SLITM340 EQU $ JSR BMVSP1 BCS SLITM310 JSR BMVSP3RT SLITM310 EQU $ ; LDA #01 ; JSR WAKUTEN ;tenmetu color ; JSR WTWAKU1 JSR WTWAKU12I LDA GETITM0 ;? ITEM BIN SELECT CMP #016 BNE SLITM320 LDA #01 JSR WAKUTEN ;tenmetu color JSR WTBINST ; BIN SELECT ; SLITM320 EQU $ LDA #010H STA IFRCNT1 LDA #bgw1 STA ITEMR01 WAITMV40 EQU $ ORA >ITEMR02,X DEX BPL WAITMV40 CMP #000H BEQ WAITMV20 LDA #bgw1 ;consol write STA ITEMR01-1,X BNE BMVSP110 CLC ;N RTS BMVSP110 EQU $ ;Y SEC RTS ; ; BMVSP2LT EQU $ ; << LDA GETITM0 DEC A CMP #001H BCS BMVSP2L1 LDA #020 BMVSP2L1 EQU $ STA GETITM0 RTS ; ; BMVSP2RT EQU $ ; >> LDA GETITM0 INC A CMP #021 BCC BMVSP2R1 LDA #001H BMVSP2R1 EQU $ STA GETITM0 RTS ; ; BMVSP3LT EQU $ ; << (WHILE) JSR BMVSP2LT JSR BMVSP1 BCC BMVSP3LT RTS ; ; BMVSP3RT EQU $ ; >> (WHILE) JSR BMVSP2RT JSR BMVSP1 BCC BMVSP3RT RTS ; ; BMVSP3UP EQU $ ; << (WHILE) JSR BMVSP2LT JSR BMVSP2LT JSR BMVSP2LT JSR BMVSP2LT JSR BMVSP2LT JSR BMVSP1 BCC BMVSP3UP RTS ; ; BMVSP3DN EQU $ ; >> (WHILE) JSR BMVSP2RT JSR BMVSP2RT JSR BMVSP2RT JSR BMVSP2RT JSR BMVSP2RT JSR BMVSP1 BCC BMVSP3DN RTS ; ; BMOVE EQU $ INC IFRCNT1 ; item frcnt 1 ; LDA RTS ; BMOVE20 EQU $ BMOVE0 EQU $ LDA ITEMR01-1,X BRA BMOVEEX BMOVE6 EQU $ LDA CGWORK+000H ;// 03.09.10 // LDA >CGRAM+040H ;// 03.09.10 // STA >CGWORK+040H ;// 03.09.10 //; ;// 03.09.10 // STZ !ITEMMD ;// 03.09.10 //; ;// 03.09.10 // MEM8 ;// 03.09.10 // SEP #00100000B ; memory 8bit mode ;// 03.09.10 //; ;// 03.09.10 // LDA #000H ;// 03.09.10 // STA >LFNWCT ; heart off ;// 03.09.10 // JSL >MTRDSP ;// 03.09.10 //; ;// 03.09.10 // STZ !FLNODFG ;// 03.09.10 // JSL >FLNODSP ; floor no. off ;// 03.09.10 // INC BTFRDAT,X STA BPSHMD ; ; LDA >YTFRDAT,X ; STA YPSHMD RTS ; ; SLITM900 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDA LMPCHCK ; lamp on/off check SLITM920 EQU $ LDA !BPSHMD ;// 02.10.22 // CMP #002H CMP #ROD001 BEQ SLITM940 ; lot select ? ; ; no CMP #ROD002 BEQ SLITM940 ; lot select ? ; ; no ; CMP #ROD003 ; BEQ SLITM940 ; lot select ? ; ; no LDA #002H STA !TMDTFG STZ !TMBMCT BRA SLITM980 SLITM940 EQU $ LDA TMBMCT BNE SLITM900 STZ !TMDTFG SLITM980 EQU $ RTS ; ; ;************************************************************************ ;* YAMAMOTO SUB P. * ;************************************************************************ BINSCT10 EQU $ STZ IWORK0 ;INIT CNT ; INC ITEMMD RTS ;---------------------------------------- BINSCT20 EQU $ MEM16 IDX16 REP #00110000B ; LDA IWORK0 AND #000FFH ASL A ASL A ASL A ASL A ASL A ASL A TAX LDA #NUKIDT STA IWAKU5+000H,X STA IWAKU5+002H,X STA IWAKU5+004H,X STA IWAKU5+006H,X STA IWAKU5+008H,X STA IWAKU5+00AH,X STA IWAKU5+00CH,X STA IWAKU5+00EH,X STA IWAKU5+010H,X STA IWAKU5+012H,X ; MEM8 IDX8 SEP #00110000B ; INC IWORK0 LDA IWORK0 CMP #013H BNE BINSCT25 INC ITEMMD LDA #011H ;CLS CNT STA IWORK0 BINSCT25 EQU $ LDA #bgw1 STA LDA #005H ;EXIT STA !ITEMMD BRA BINSCT49 ; BINSCT48 EQU $ LDA ITEMR16 DEC A STA BINCT0,X BEQ BINSCT4A BRA BINSCT46 BINSCT44 EQU $ LDA BINCT0,X BEQ BINSCT44 BINSCT46 EQU $ LDA ITEMR16 ; LDA #010H ;CONSOL ON STA IFRCNT1 LDA #020H ;OTO STA SOUND3 ; BINSCT42 EQU $ RTS ;----------------------------------------;CONSOL WRITE BNS40CNS EQU $ WORD 00088H,00188H,00288H,00388H BINSTS40 EQU $ MEM16 IDX16 REP #00110000B ; LDX #00000H ;--- KURO LDY #00007H ; LDA #KURODT BINSTS41 EQU $ STA IWAKU5+042H,X STA IWAKU5+082H,X STA IWAKU5+0C2H,X STA IWAKU5+102H,X STA IWAKU5+142H,X STA IWAKU5+182H,X STA IWAKU5+1C2H,X STA IWAKU5+202H,X STA IWAKU5+242H,X STA IWAKU5+282H,X STA IWAKU5+2C2H,X STA IWAKU5+302H,X STA IWAKU5+342H,X STA IWAKU5+382H,X STA IWAKU5+3C2H,X STA IWAKU5+402H,X STA IWAKU5+442H,X INX INX DEY BPL BINSTS41 ; LDA #IWAKU5+088H ;TFR SAKI STA BINCT0 ;NO. SET AND #000FFH STA BINCT1 ;NO. SET AND #000FFH STA BINCT2 ;NO. SET AND #000FFH STA BINCT3 ;NO. SET AND #000FFH STA ITEMR16 ;NO. SET AND #000FFH TAX BNE BINSTS44 LDA #00000H BRA BINSTS45 BINSTS44 EQU $ LDA >BINCT0-1,X AND #000FFH BINSTS45 EQU $ STA ITEMR16 DEC A AND #000FFH ASL A TAY LDA BNS40CNS,Y TAY ; LDA IFRCNT1 AND #010H BEQ BINSTS49 LDA #03C61H ;consol set STA IWAKU5-40H,Y ORA #04000H STA IWAKU5-3EH,Y LDA #03C70H STA IWAKU5-02H,Y ORA #04000H STA IWAKU5+04H,Y LDA #0BC70H STA IWAKU5+3EH,Y ORA #04000H STA IWAKU5+44H,Y LDA #0BC61H STA IWAKU5+80H,Y ORA #04000H STA IWAKU5+82H,Y LDA #03C60H STA IWAKU5-42H,Y ORA #04000H STA IWAKU5-3CH,Y ORA #08000H STA IWAKU5+84H,Y EOR #04000H STA IWAKU5+7EH,Y ; ; LDA >ITEMR16 AND #000FFH BEQ BINSTS43 TAX LDA >BINCT0-1,X AND #000FFH DEC A ; BEQ BINSTS43 ; DEC A ;pri. ok ASL A ASL A ASL A ASL A ASL A TAX LDY #00000H BINSTS42 EQU $ LDA BINMOJI,X STA !IWAKU2+0C2H,Y LDA BINMOJI+10H,X STA !IWAKU2+102H,Y INX INX INY INY CPY #00010H BCC BINSTS42 BINSTS43 EQU $ ; ; BINSTS49 EQU $ MEM8 IDX8 SEP #00110000B ; LDA #bgw1 STA ITEMR01 BITMCK4 EQU $ ORA >ITEMR02,X DEX BPL BITMCK4 CMP #000H BNE BITMCK1 STZ GETITM0 STZ GETITM0+1 STZ GETITM0+2 BITMCK3 EQU $ RTS BITMCK1 EQU $ LDA GETITM0 BNE BITMCK2 LDA #001H STA GETITM0 BITMCK2 EQU $ JSR BMVSP1 BCS BITMCK3 JMP BMVSP3RT ; ; WAKUTEN EQU $ MEM8 IDX8 SEP #00110000B ; LDX #0E3H ;A<>0 -- WORK+1=8 CMP #000 ; BEQ WAKUTEN2 ;waku no tenmetu LDX #0FFH ; WAKUTEN2 EQU $ STX ITEMR01 ;NO. SET AND #000FFH STA ITEMR02 ;NO. SET AND #000FFH STA ITEMR03 ;NO. SET AND #000FFH STA ITEMR04 ;NO. SET AND #000FFH BEQ WTWK140 LDA #00001H WTWK140 EQU $ STA ITEMR05 ;NO. SET AND #000FFH STA ITEMR06 ;NO. SET AND #000FFH STA ITEMR07 ;NO. SET AND #000FFH STA ITEMR08 ;NO. SET AND #000FFH STA ITEMR09 ;NO. SET AND #000FFH STA ITEMR10 ;NO. SET AND #000FFH STA ITEMR11 ;NO. SET AND #000FFH STA ITEMR12 ;NO. SET AND #000FFH STA ITEMR13 ;NO. SET AND #000FFH STA ITEMR14 ;NO. SET AND #000FFH STA ITEMR15 ;NO. SET AND #000FFH STA ITEMR16 ;NO. SET AND #000FFH TAX BNE WTWK150 LDA #00000H BRA WTWK160 WTWK150 EQU $ LDA >BINCT0-1,X AND #000FFH WTWK160 EQU $ STA ITEMR17 ;NO. SET AND #000FFH STA ITEMR18 ;NO. SET AND #000FFH STA ITEMR19 ;NO. SET AND #000FFH STA ITEMR20 ;NO. SET AND #000FFH STA ITMTBL1 ;MOJI WRITE AND #0FF00H STA ITEMR21 ;NO. SET AND #000FFH STA ITEMR22 ;NO. SET AND #000FFH STA ITEMR23 ;NO. SET AND #000FFH STA ITEMR21 ;GROBE CHK. AND #000FFH BEQ WTWK4I50 CMP #00001H BNE WTWK4I55 LDA #00000H JSR WTWK4IMPRI BRA WTWK4I50 WTWK4I55 EQU $ LDA #00001H JSR WTWK4IMPRI WTWK4I50 EQU $ ; LDA >ITEMR22 ;HIRE CHK. ; AND #000FFH ; BEQ WTWK4I60 ; LDA #00002H ; JSR WTWK4IMPRI WTWK4I60 EQU $ ; LDA >ITEMR23 ;GISYO CHK. ; BEQ WTWK4I70 ; LDA #00003H ; JSR WTWK4IMPRI ; LDA #00006H ; JSR WTWK4IMPRI ;WTWK4I70 EQU $ ; MEM8 IDX8 SEP #00110000B RTS ; WTWK4IMPRI EQU $ MEM16 IDX16 STA MODTBL0 CMP #003H BCC WTWK500 JMP WTWAKU6 WTWK500 EQU $ ; MEM16 IDX16 REP #00110000B ; LDX #00000H WTWK510 EQU $ LDA WTWK5DT,X STA !IWAKU5,X LDA WTWK5DT+014H,X STA !IWAKU5+040H,X LDA WTWK5DT+028H,X STA !IWAKU5+080H,X LDA WTWK5DT+03CH,X STA !IWAKU5+0C0H,X LDA WTWK5DT+050H,X STA !IWAKU5+100H,X LDA WTWK5DT+064H,X STA !IWAKU5+140H,X LDA WTWK5DT+078H,X STA !IWAKU5+180H,X LDA WTWK5DT+08CH,X STA !IWAKU5+1C0H,X LDA WTWK5DT+0A0H,X STA !IWAKU5+200H,X INX INX CPX #00014H BCC WTWK510 ; LDA #IWAKU5+0C8H ;TFR SAKI STA ITEMR53 ;NO. SET AND #00001H STA ITEMR53 ;NO. SET AND #00002H BEQ WTWK520 INC ITEMR53 ;NO. SET AND #00004H BEQ WTWK530 INC ITMTBL3 ;waku 6 (item) write AND #00001H BEQ WTWK620 LDA #WAKU6C0 ;1 STA !IWAKU5+0C0H+00H+06H LDA #WAKU6C1 STA !IWAKU5+0C0H+02H+06H WTWK620 EQU $ ; LDA >ITMTBL3 AND #00002H BEQ WTWK630 LDA #WAKU6C0 ;2 STA !IWAKU5+0C0H+00H+0AH LDA #WAKU6C1 STA !IWAKU5+0C0H+02H+0AH WTWK630 EQU $ ; LDA >ITMTBL3 AND #00004H BEQ WTWK640 LDA #WAKU6C0 ;3 STA !IWAKU5+140H+00H+04H LDA #WAKU6C1 STA !IWAKU5+140H+02H+04H WTWK640 EQU $ ; LDA >ITMTBL3 AND #00008H BEQ WTWK650 LDA #WAKU6C0 ;4 STA !IWAKU5+140H+00H+08H LDA #WAKU6C1 STA !IWAKU5+140H+02H+08H WTWK650 EQU $ ; LDA >ITMTBL3 AND #00010H BEQ WTWK660 LDA #WAKU6C0 ;5 STA !IWAKU5+140H+00H+0CH LDA #WAKU6C1 STA !IWAKU5+140H+02H+0CH WTWK660 EQU $ ; LDA >ITMTBL3 AND #00020H BEQ WTWK670 LDA #WAKU6C0 ;6 STA !IWAKU5+1C0H+00H+06H LDA #WAKU6C1 STA !IWAKU5+1C0H+02H+06H WTWK670 EQU $ ; LDA >ITMTBL3 AND #00040H BEQ WTWK680 LDA #WAKU6C0 ;7 STA !IWAKU5+1C0H+00H+0AH LDA #WAKU6C1 STA !IWAKU5+1C0H+02H+0AH WTWK680 EQU $ ; MEM8 IDX8 SEP #00110000B RTS ; ; WTWAKU12I EQU $ ;waku 1 2 no naka o erabu MEM16 IDX16 REP #00110000B ; LDA GETITM0 AND #000FFH DEC A ASL A TAX LDY STGITWM,X WTWAKU12I6 EQU $ LDA WBGBUF-WBGBUF,Y STA IWAKU2+48H LDA WBGBUF-WBGBUF+002H,Y STA IWAKU2+4AH LDA WBGBUF-WBGBUF+040H,Y STA IWAKU2+88H LDA WBGBUF-WBGBUF+042H,Y STA IWAKU2+8AH ; LDA IFRCNT1 AND #010H BEQ WTWAKU12I8 LDA #03C61H ;consol set STA WBGBUF-WBGBUF-40H,Y ORA #04000H STA WBGBUF-WBGBUF-3EH,Y LDA #03C70H STA WBGBUF-WBGBUF-02H,Y ORA #04000H STA WBGBUF-WBGBUF+04H,Y LDA #0BC70H STA WBGBUF-WBGBUF+3EH,Y ORA #04000H STA WBGBUF-WBGBUF+44H,Y LDA #0BC61H STA WBGBUF-WBGBUF+80H,Y ORA #04000H STA WBGBUF-WBGBUF+82H,Y LDA #03C60H STA WBGBUF-WBGBUF-42H,Y ORA #04000H STA WBGBUF-WBGBUF-3CH,Y ORA #08000H STA WBGBUF-WBGBUF+84H,Y EOR #04000H STA WBGBUF-WBGBUF+7EH,Y ; WTWAKU12I8 EQU $ LDA GETITM0 ;bin 1 moji AND #000FFH CMP #00016 BNE WTWAKU12I9 LDA >ITEMR16 AND #000FFH BEQ WTWAKU12I9 TAX LDA >BINCT0-1,X AND #000FFH DEC A ; BEQ WTWAKU12I9 ; DEC A ;pri. ok ASL A ASL A ASL A ASL A ASL A TAX LDY #00000H WTWAKU12IA EQU $ LDA BINMOJI,X STA !IWAKU2+0C2H,Y LDA BINMOJI+10H,X STA !IWAKU2+102H,Y INX INX INY INY CPY #00010H BCC WTWAKU12IA JMP WTWAKU12IF WTWAKU12I9 EQU $ ;;;;;;;; LDA GETITM0 ;bin 2 moji ;;;;;;;; AND #000FFH ;;;;;;;; CMP #00017 ;;;;;;;; BNE WTWAKU12IB ;;;;;;;; LDA >BINCT1 ;;;;;;;; AND #000FFH ;;;;;;;; DEC A ;;;;;;;; BEQ WTWAKU12IB ;;;;;;;; DEC A ;pri. ok ;;;;;;;; ASL A ;;;;;;;; ASL A ;;;;;;;; ASL A ;;;;;;;; ASL A ;;;;;;;; ASL A ;;;;;;;; TAX ;;;;;;;; LDY #00000H ;;;;;;;;WTWAKU12IC EQU $ ;;;;;;;; LDA BINMOJI,X ;;;;;;;; STA !IWAKU2+0C2H,Y ;;;;;;;; LDA BINMOJI+10H,X ;;;;;;;; STA !IWAKU2+102H,Y ;;;;;;;; INX ;;;;;;;; INX ;;;;;;;; INY ;;;;;;;; INY ;;;;;;;; CPY #00010H ;;;;;;;; BCC WTWAKU12IC ;;;;;;;; JMP WTWAKU12IF ;;;;;;;;WTWAKU12IB EQU $ ;;;;;;;; LDA GETITM0 ;bin 3 moji ;;;;;;;; AND #000FFH ;;;;;;;; CMP #00018 ;;;;;;;; BNE WTWAKU12I10 ;;;;;;;; LDA >BINCT2 ;;;;;;;; AND #000FFH ;;;;;;;; DEC A ;;;;;;;; BEQ WTWAKU12I10 ;;;;;;;; DEC A ;pri. ok ;;;;;;;; ASL A ;;;;;;;; ASL A ;;;;;;;; ASL A ;;;;;;;; ASL A ;;;;;;;; ASL A ;;;;;;;; TAX ;;;;;;;; LDY #00000H ;;;;;;;;WTWAKU12IE EQU $ ;;;;;;;; LDA BINMOJI,X ;;;;;;;; STA !IWAKU2+0C2H,Y ;;;;;;;; LDA BINMOJI+10H,X ;;;;;;;; STA !IWAKU2+102H,Y ;;;;;;;; INX ;;;;;;;; INX ;;;;;;;; INY ;;;;;;;; INY ;;;;;;;; CPY #00010H ;;;;;;;; BCC WTWAKU12IE ;;;;;;;; JMP WTWAKU12IF WTWAKU12I10 EQU $ LDA GETITM0 ;KONA moji AND #000FFH CMP #00005 BNE WTWAKU12I12 LDA >ITEMR05 AND #000FFH DEC A BEQ WTWAKU12I12 DEC A ;pri. ok ASL A ASL A ASL A ASL A ASL A TAX LDY #00000H WTWAKU12I11 EQU $ LDA KONAMJI,X STA !IWAKU2+0C2H,Y LDA KONAMJI+10H,X STA !IWAKU2+102H,Y INX INX INY INY CPY #00010H BCC WTWAKU12I11 JMP WTWAKU12IF WTWAKU12I12 EQU $ LDA GETITM0 ;TEGAMI moji AND #000FFH CMP #00020 BNE WTWAKU12I14 LDA >ITEMR20 AND #000FFH DEC A BEQ WTWAKU12I14 DEC A ;pri. ok ASL A ASL A ASL A ASL A ASL A TAX LDY #00000H WTWAKU12I13 EQU $ LDA TGMIMJI,X STA !IWAKU2+0C2H,Y LDA TGMIMJI+10H,X STA !IWAKU2+102H,Y INX INX INY INY CPY #00010H BCC WTWAKU12I13 JMP WTWAKU12IF WTWAKU12I14 EQU $ LDA GETITM0 ;OKARINA moji AND #000FFH CMP #00013 BNE WTWAKU12I16 LDA >ITEMR13 AND #000FFH DEC A BEQ WTWAKU12I16 DEC A ;pri. ok ASL A ASL A ASL A ASL A ASL A TAX LDY #00000H WTWAKU12I15 EQU $ LDA OKARMJI,X STA !IWAKU2+0C2H,Y LDA OKARMJI+10H,X STA !IWAKU2+102H,Y INX INX INY INY CPY #00010H BCC WTWAKU12I15 BRA WTWAKU12IF WTWAKU12I16 EQU $ LDA GETITM0 ;YAAA moji AND #000FFH CMP #00001 BNE WTWAKU12ID LDA >ITEMR01 AND #000FFH DEC A BEQ WTWAKU12ID DEC A ;pri. ok ASL A ASL A ASL A ASL A ASL A TAX LDY #00000H WTWAKU12I17 EQU $ LDA YAAAMJI,X STA !IWAKU2+0C2H,Y LDA YAAAMJI+10H,X STA !IWAKU2+102H,Y INX INX INY INY CPY #00010H BCC WTWAKU12I17 BRA WTWAKU12IF WTWAKU12ID EQU $ TXA ASL A ASL A ASL A ASL A TAX LDY #00000H WTWAKU12I5 EQU $ LDA BDATAM,X STA !IWAKU2+0C2H,Y LDA BDATAM+10H,X STA !IWAKU2+102H,Y INX INX INY INY CPY #00010H BCC WTWAKU12I5 WTWAKU12IF EQU $ ; WTWAKU12I3 EQU $ MEM8 IDX8 SEP #00110000B RTS ; ; ; WTWAKU7I EQU $ MEM16 IDX16 REP #00110000B ; ; ;TAMA SET LDA #WITEM24+6 ;TFR SAKI STA ITMTBL4 ;NO. SET AND #000FFH STA ITMTBL5 ;NO. SET ; AND #000FFH ; STA ITEMR44 ;NO. SET AND #000FFH STA ITMTBL6 ;NO. SET AND #000FFH CMP #000FFH BNE WTWAKU9I10 LDA #000H WTWAKU9I10 EQU $ STA ITMTBL7 ;NO. SET AND #000FFH STA ITMTBL8 ;NO. SET AND #000FFH STA KEYCNT WTWKCI20 EQU $ ASL A DEX BPL WTWKCI20 ; BCC WTWKCI30 ;? DANJON KEY GET ; ;Y JSR TAKBOCK ;TAKARA BOX CHK REP #00110000B ; LDA #WITEM29+0CH ;TFR SAKI STA MAPCNT WTWKCI40 EQU $ ASL A DEX BPL WTWKCI40 ; BCC WTWKCI50 ;? MAP GET ; ;Y LDA #WITEM29 ;TFR SAKI STA JSRSUB WORD TAKBOC0 WORD TAKBOC1 WORD TAKBOC2 WORD TAKBOC3 WORD TAKBOC4 WORD TAKBOC5 WORD TAKBOC6 WORD TAKBOC7 WORD TAKBOC8 WORD TAKBOC9 WORD TAKBOCA WORD TAKBOCB WORD TAKBOCC WORD TAKBOCD ;-- TAKBOC0 EQU $ ;NASI TAKBOC1 EQU $ TAKBOC4 EQU $ TAKBONT EQU $ STZ ITEMR01 TAKBOTS EQU $ BEQ TAKBONT TAKBOIC EQU $ LDA #001H STA ITEMR21 BRA TAKBOTS TAKBOC5 EQU $ LDA >ITEMR03 BRA TAKBOTS TAKBOC6 EQU $ LDA >ITEMR12 BRA TAKBOTS TAKBOC7 EQU $ LDA >ITEMR17 BRA TAKBOTS TAKBOC8 EQU $ LDA >ITEMR06 BRA TAKBOTS TAKBOC9 EQU $ LDA >ITMTBL8 BRA TAKBOTS TAKBOCA EQU $ LDA >ITMTBL4 BRA TAKBOTS TAKBOCB EQU $ LDA >ITEMR21 DEC A BRA TAKBOTS TAKBOCC EQU $ LDA >ITMTBL7 CMP #003 BEQ TAKBOIC STZ ITMTBL8 CMP #002 BEQ TAKBOIC STZ ITMTBLA WTWAKUDI10 EQU $ ASL A DEX BPL WTWAKUDI10 ; BCC WTWAKUDI20 ;? GISYAKU GET ; ;Y LDA #WITEM37 ;TFR SAKI STA BINCT0 ;NO. SET AND #000FFH STA BINCT1 ;NO. SET AND #000FFH STA BINCT2 ;NO. SET AND #000FFH STA BINCT3 ;NO. SET AND #000FFH STA ITEMR16 ;NO. SET AND #000FFH TAX LDA >BINCT0-1,X AND #000FFH STA ITEMR16 DEC A AND #000FFH ASL A TAY LDA BNS40CNS,Y TAY ; LDA IFRCNT1 LDA #03C61H ;consol set STA IWAKU5-40H,Y ORA #04000H STA IWAKU5-3EH,Y LDA #03C70H STA IWAKU5-02H,Y ORA #04000H STA IWAKU5+04H,Y LDA #0BC70H STA IWAKU5+3EH,Y ORA #04000H STA IWAKU5+44H,Y LDA #0BC61H STA IWAKU5+80H,Y ORA #04000H STA IWAKU5+82H,Y LDA #03C60H STA IWAKU5-42H,Y ORA #04000H STA IWAKU5-3CH,Y ORA #08000H STA IWAKU5+84H,Y EOR #04000H STA IWAKU5+7EH,Y ; MEM8 IDX8 SEP #00110000B ; LDA #010H STA IFRCNT1 ; RTS ; ; ; ; ; ; ; ; ; ; HENKAN EQU $ ;16 sin o 10 sin ni suru MEM16 ;A ni 16 sin o ireru IDX16 ;3 keta you REP #00110000B ;work+3,4,5 ni 100,10,1 no keta ga hairu ; STZ WORK+3 ; LDX #0000 LDY #0002 ;3 keta ; HENKAN1 EQU $ CMP TBL16_10,Y BCC HENKAN2 SEC SBC TBL16_10,Y INC LFNWCT ;life no now >= max CMP >LFITCT BCC KAIHUKU0 ;n ; ;y LDA >LFITCT ;life o max ni suru( max < now no toki) STA >LFNWCT LDA #000H STA >UPLFCT ; LDA KAIFLG BNE KAIHUKU5 SEC ;OK ---> SEC RTL KAIHUKU0 EQU $ LDA #0A0H STA >UPLFCT KAIHUKU5 EQU $ CLC RTL ; KAIHUKU1 EQU $ MEM8 IDX8 SEP #00110000B ; LDA #LOW ILIFE ;doko ni kakuka o work+0,1,2 ni set STA LFNWCT ;doko ni kakuka o X ni set AND #000F8H DEC A LSR A LSR A LSR A ASL A TAY CMP #HARTMAX BCC KAIHUKU2 SBC #HARTMAX TAY LDA KAIFRM,X STA KAICNT TXA ;BG no data o set ASL A TAX LDA >KAIDAT,X STA [KAIDAT+1,X STA [LFNWCT ;LIFE kaihuku ; CLC ; ADC #0008 ; STA >LFNWCT ; ; LDA #00DH ;OTO ; STA SOUND3 ; ; ; LDA >LFNWCT ; CMP >LFITCT ; BCC KAIHUKU4 ; LDA >LFITCT ; STA >LFNWCT ; KAIHUKU4 EQU $ MEM8 IDX8 SEP #00110000B ; JSR MTRON0 ; STZ KAIFLG ; KAIHUKU3 EQU $ CLC ;NO --> CLC RTS ; KAIMP EQU $ MEM8 IDX8 SEP #00110000B ; LDA >MPNWCT ;MP no now >= max CMP #080H BCS KAIMP1 ;n ; LDA #080H STA >UPMPCT ; MEM8 IDX8 SEP #00110000B ; NO ---> CLC RTL ; KAIMP1 EQU $ MEM8 IDX8 SEP #00110001B ;OK --> SEC ; RTL ; ; ; ;************************************************************************ ;* YAMAMOTO DATA. * ;************************************************************************ BDATAM EQU $ ;BITEM NAME WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD 02550H,02561H,02552H,KURODT,KURODT,KURODT,KURODT,KURODT ; Bow ; WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD 02570H,02571H,02572H,02573H,02574H,02575H,02576H,02577H ; Boomerang ; WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD 02556H,02561H,02550H,0255FH,0255FH,02558H,0255DH,KURODT ; Hook-Shot ; WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD 02551H,0255EH,0255CH,02551H,02554H,02562H,KURODT,KURODT ; Bomb ; WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD 02568H,02569H,0256AH,0256BH,0256CH,0256DH,0256EH,0256FH ; Mushroom ; WORD 02551H,02550H,02556H,02564H,02554H,02563H,02563H,02554H WORD KURODT,KURODT,02553H,02554H,KURODT,02555H,02554H,02564H ; Firerod ; WORD 02551H,02550H,02556H,02564H,02554H,02563H,02563H,02554H WORD 02553H,02554H,KURODT,02556H,0255BH,02550H,02552H,02554H ; Icerod ; WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD 02551H,0255EH,0255CH,02551H,02554H,02562H,KURODT,KURODT ; Bombos ; WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD 02554H,02563H,02557H,02554H,02561H,KURODT,KURODT,KURODT ; Ether ; WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD 02578H,02579H,0257AH,0257BH,0257CH,0257DH,0257EH,0257FH ; Quake ; WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD 0255BH,02550H,0255DH,02563H,02554H,02561H,0255DH,02554H ; Lamp ; WORD 0255CH,02550H,02561H,02563H,02554H,02550H,02564H,KURODT WORD KURODT,0255CH,02550H,02556H,02558H,02560H,02564H,02554H ; Magic-Hammer ; WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD 0255FH,02554H,0255BH,0255BH,02554H,KURODT,KURODT,KURODT ; Shovel ; WORD 02550H,02558H,0255BH,02554H,02563H,KURODT,02550H,KURODT WORD 0255FH,02550H,0255FH,02558H,0255BH,0255BH,0255EH,0255DH ; Bug-Catching Net ; WORD 0255BH,02558H,02565H,02561H,02554H,KURODT,02553H,02554H WORD KURODT,KURODT,0255CH,02564H,02553H,0255EH,02561H,02550H ; Book of Mudora ; WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD 02568H,02569H,0256AH,0256BH,0256CH,0256DH,0256EH,0256FH ; Mushroom ; WORD 02552H,02550H,0255DH,0255DH,02554H,KURODT,02553H,02554H WORD KURODT,02562H,0255EH,0255CH,02550H,02561H,02558H,02550H ; Cane of Somaria ; WORD 02552H,02550H,0255DH,0255DH,02554H,KURODT,02553H,02554H WORD KURODT,KURODT,KURODT,02551H,02567H,02561H,0255DH,02550H ; Cane of Byrna ; WORD 02552H,02550H,0255FH,02554H,KURODT,KURODT,KURODT,KURODT WORD KURODT,0255CH,02550H,02556H,02558H,02560H,02564H,02554H ; Magic-Cape ; WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT ; ; BINMOJI EQU $ WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD 02568H,02569H,0256AH,0256BH,0256CH,0256DH,0256EH,0256FH ; Mushroom ; WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD 02555H,0255BH,02550H,02552H,0255EH,0255EH,0255DH,KURODT ; Bottle ; WORD 0255FH,0255EH,02563H,02558H,0255EH,02550H,KURODT,KURODT WORD KURODT,KURODT,KURODT,02561H,0255EH,02564H,02556H,02554H ; Life-Medicine ; WORD 0255FH,0255EH,02563H,02558H,0255EH,02550H,KURODT,KURODT WORD KURODT,KURODT,KURODT,02565H,02554H,02561H,02563H,02554H ; Magic-Medicine ; WORD 0255FH,0255EH,02563H,02558H,0255EH,02550H,KURODT,KURODT WORD KURODT,KURODT,KURODT,02551H,0255BH,02554H,02564H,02554H ; Cure-All-Medicine ; WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD 02555H,02554H,02554H,KURODT,KURODT,KURODT,KURODT,KURODT ; Faerie ; WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD 02550H,02551H,02554H,02558H,0255BH,0255BH,02554H,KURODT ; Bee ; WORD 02550H,02551H,02554H,02558H,0255BH,0255BH,02554H,KURODT WORD KURODT,KURODT,KURODT,KURODT,02553H,0254FH,0255EH,02561H ; Good-Bee ; KONAMJI EQU $ WORD 0255FH,0255EH,02564H,02553H,02554H,02561H,KURODT,KURODT WORD KURODT,0255CH,02550H,02556H,02558H,02560H,02564H,02554H ; Magic-Powder ; OKARMJI EQU $ WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD 02555H,0255BH,02564H,02563H,02554H,KURODT,KURODT,KURODT ; Flute ; WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD 02555H,0255BH,02564H,02563H,02554H,KURODT,KURODT,KURODT ; Flute ; TGMIMJI EQU $ WORD 0255CH,02558H,02561H,0255EH,0255BH,02561H,KURODT,KURODT WORD KURODT,0255CH,02550H,02556H,02558H,02560H,02564H,02554H ; Magic-Mirror ; YAAAMJI EQU $ WORD 02550H,02561H,02552H,KURODT,02554H,02563H,KURODT,KURODT WORD KURODT,02555H,0255BH,02554H,02552H,02557H,02554H,02562H ; Bow & Arrow ; WORD KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT,KURODT WORD 02550H,02561H,02552H,KURODT,KURODT,KURODT,KURODT,KURODT ; Bow ; WORD 02555H,0255BH,02554H,02552H,02557H,02554H,KURODT,KURODT WORD 02553H,0254FH,02550H,02561H,02556H,02554H,0255DH,02563H ; Bow & Silver Arrows ; ; ; ; ; ; RITEM01 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 028BAH,028E9H,028E8H,028CBH ;yumi WORD 028BAH,0284AH,02849H,028CBH ;yimi & ya WORD 028BAH,028E9H,028E8H,028CBH ;yumi WORD 028BAH,028BBH,024CAH,028CBH ;yimi & ya ; RITEM02 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 02CB8H,02CB9H,02CF5H,02CC9H WORD 024B8H,024B9H,024F5H,024C9H ; RITEM03 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 024F5H,024F6H,024C0H,024F5H ; RITEM04 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 02CB2H,02CB3H,02CC2H,06CC2H ; RITEM05 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 02444H,02445H,02446H,02447H ;kinoko WORD 0203BH,0203CH,0203DH,0203EH ;kona ; RITEM06 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 024B0H,024B1H,024C0H,024C1H ; RITEM07 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 02CB0H,02CBEH,02CC0H,02CC1H ; RITEM08 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 0287DH,0287EH,0E87EH,0E87DH ; RITEM09 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 02876H,02877H,0E877H,0E876H ; RITEM10 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 02866H,02867H,0E867H,0E866H ; RITEM11 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 024BCH,024BDH,024CCH,024CDH ; RITEM12 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 020B6H,020B7H,020C6H,020C7H ; RITEM13 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 020D0H,020D1H,020E0H,020E1H WORD 02CD4H,02CD5H,02CE4H,02CE5H WORD 02CD4H,02CD5H,02CE4H,02CE5H ; RITEM14 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 03C40H,03C41H,02842H,03C43H ;ami ; RITEM15 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 03CA5H,03CA6H,03CD8H,03CD9H ; RITEM16 EQU $ RITEM29 EQU $ RITEM30 EQU $ RITEM31 EQU $ RITEM32 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 02044H,02045H,02046H,02047H ;kinoko WORD 02837H,02838H,02CC3H,02CD3H ;kara WORD 024D2H,064D2H,024E2H,024E3H ;red WORD 03CD2H,07CD2H,03CE2H,03CE3H ;green WORD 02CD2H,06CD2H,02CE2H,02CE3H ;blue WORD 02855H,06855H,02C57H,02C5AH ;yosei WORD 02837H,02838H,02839H,0283AH ;hachi WORD 02837H,02838H,02839H,0283AH ;KIN hachi ; RITEM17 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 024DCH,024DDH,024ECH,024EDH ; RITEM18 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 02CDCH,02CDDH,02CECH,02CEDH ; RITEM19 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 024B4H,024B5H,024C4H,024C5H ; RITEM20 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 028DEH,028DFH,028EEH,028EFH ;TEGAMI WORD 02C62H,02C63H,02C72H,02C73H ;miror WORD 02886H,02887H,02888H,02889H ; T FORS ; RITEM21 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 02130H,02131H,02140H,02141H WORD 028DAH,028DBH,028EAH,028EBH ; RITEM22 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 03429H,0342AH,0342BH,0342CH ; RITEM23 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 02C9AH,02C9BH,02C9DH,02C9EH ; RITEM24 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 02433H,02434H,02435H,02436H ;tama ; RITEM25 EQU $ WORD 020F5H,020F5H,020F5H,020F5H ; RITEM26 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 02C64H,02CCEH,02C75H,03D25H ;KEN 1 WORD 02C8AH,02C65H,02474H,03D26H ;KEN 2 WORD 0248AH,02465H,03C74H,02D48H ;KEN 3 WORD 0288AH,02865H,02C74H,02D39H ;KEN 4 ; RITEM27 EQU $ WORD 024F5H,024F5H,024F5H,024F5H WORD 02CFDH,06CFDH,02CFEH,06CFEH ;TATE 1 WORD 034FFH,074FFH,0349FH,0749FH ;TATE 2 WORD 02880H,02881H,0288DH,0288EH ;TATE 3 ; RITEM28 EQU $ WORD 03C68H,07C68H,03C78H,07C78H ;HUKU 0 WORD 02C68H,06C68H,02C78H,06C78H ;HUKU 1 WORD 02468H,06468H,02478H,06478H ;HUKI 2 ; RITEM37 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 024BFH,064BFH,02CCFH,06CCFH ; RITEM39 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 028D6H,068D6H,028E6H,028E7H WORD 0354BH,0354CH,0354DH,0354EH ; RITEM41 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 028DEH,028DFH,028EEH,028EFH ; RITM530 EQU $ ;PENDANT WORD 0313BH,0313CH,0313DH,0313EH WORD 0252BH,0252CH,0252DH,0252EH ; RITM531 EQU $ WORD 0313BH,0313CH,0313DH,0313EH WORD 02D2BH,02D2CH,02D2DH,02D2EH ; RITM532 EQU $ WORD 0313BH,0313CH,0313DH,0313EH WORD 03D2BH,03D2CH,03D2DH,03D2EH ; RUPY000 EQU $ WORD 020F5H,020F5H,020F5H,020F5H WORD 03D30H,03D31H,03D40H,03D41H ; HARTBK EQU $ WORD 02484H,06484H,02485H,06485H WORD 024ADH,06484H,02485H,06485H WORD 024ADH,06484H,024AEH,06485H WORD 024ADH,064ADH,024AEH,06485H ; ; ; ; YGROB EQU $ WORD 02CF5H,02CF5H,02CF5H,02CF5H,02CF5H ;KATUGU WORD 02D5FH,02D5EH,02D61H,02D63H,02D54H ; WORD 02CF5H,02CF5H,02CF5H,02CF5H,02CF5H ;KATUGU WORD 02D5FH,02D5EH,02D61H,02D63H,02D54H ; YDATA EQU $ WORD 02CF5H,02CF5H,02CF5H,02CF5H,02CF5H ;KATUGU WORD 02D5FH,02D5EH,02D61H,02D63H,02D54H ; WORD 02CF5H,02CF5H,02CF5H,02CF5H,02CF5H ;YOMU WORD 02D5BH,02D58H,02D62H,02CF5H,02CF5H ; WORD 02CF5H,02CF5H,02CF5H,02CF5H,02CF5H ;HANASU WORD 02D5FH,02D50H,02D61H,02D5BH,02D54H ; WORD 02CF5H,0207FH,0207FH,0207FH,0207FH ;DAMI WORD 02CF5H,0207FH,0207FH,0207FH,0207FH ; ; WORD 02CF5H,02CF5H,02CF5H,02CF5H,02CF5H ;HIKU WORD 02D63H,02D58H,02D61H,02D54H,02CF5H ; WORD 02CF5H,02CF5H,02CF5H,02CF5H,02CF5H ;HASIRU WORD 02D52H,02D5EH,02D64H,02D61H,02D62H ; WORD 02CF5H,02CF5H,02CF5H,02CF5H,02CF5H ;OYOGU WORD 02CF5H,02D5DH,02D50H,02D56H,02D54H ; WORD 02CF5H,02CF5H,02CF5H,0207FH,0207FH ;DAMI WORD 02C01H,02C18H,02C28H,0207FH,0207FH ; TBL16_10 EQU $ WORD 00010,00100 ; LFDAT0 EQU $ ;life meter no max write (siro waku)(gusuu) WORD 024A2H WORD 024A2H WORD 024A2H ; LFDAT1 EQU $ ;life meter no now write (gusuu) WORD 024A2H WORD 024A1H WORD 024A0H ; KAIDAT EQU $ ;kaihuku no data WORD 024A3H WORD 024A4H WORD 024A3H WORD 024A0H ; KAIFRM EQU $ ;kaihuku no frem su BYTE 01 ;2 BYTE 01 ;3 BYTE 01 ;4 BYTE 01 ;1(2 kaime ikou) ; ; BTFRDAT EQU $ ;B item no data(TFR) BYTE 000H ;NOT ITEM BYTE YUMIYA BYTE BUMERN BYTE HUKUUU BYTE BOMBER BYTE KONAAA BYTE ROD001 BYTE ROD002 BYTE SBOMBE BYTE STHAND BYTE SGISIN BYTE LAMPUU BYTE HANMER BYTE SCOPUU BYTE HUEEEE BYTE BIN002 BYTE BIN001 BYTE SOROMN BYTE BIN003 BYTE KAKURE BYTE TRAIFS ; YTFRDAT EQU $ ;Y item no data(TFR) BYTE 000H ;a i sa tu BYTE 001H ;i no ru BYTE 006H ;ta be ru BYTE 002H ;ne ru BYTE 007H ;ka tu gu BYTE 003H ;ho ru BYTE 005H ;o do ru BYTE 004H ;u ta u BYTE 008H ;o yo gu ; ;ETFRDAT EQU $-1 ;E item no data(TFR) ; BYTE 000 ; BYTE 000 ; BYTE 000 ; BYTE 000 ; BYTE 000 ; BYTE 001 ; BYTE 002 ; BYTE 003 ; BYTE 000 ; BYTE 000 ; BYTE 000 ; BYTE 000 ; BYTE 000 ; BYTE 000 ; BYTE 000 ; BYTE 000 ; NUKIDT EQU 0207FH ;KURO NUKI DATA KURODT EQU 024F5H ;KURO NUKI DATA ; ; ; ;************************************************************************ ;* Lamp on/off check (LMPCHCK) * ;************************************************************************ LMPCHCK EQU $ ;// 03.04.18 // LDA !BPSHMD ;// 03.04.18 //;// 02.10.22 // CMP #004H ;// 03.04.18 // CMP #LAMPUU ;// 03.04.18 // BNE LMPCK480 ; lamp on ? ;// 03.04.18 //; ; yes LDA >ITEMR11 BEQ LMPCK180 ; kantera on ? ; ; yes LDA >DARKFG BEQ LMPCK180 ; now-dark ? ; ; yes LDA !LGTWFG BNE LMPCK180 ; light-wipe on ? ; ; no ;// 03.04.01 // LDA !LGTWST ;// 03.04.01 // CMP #003H ;// 03.05.10 // LDX !LGTWST ;// 03.05.10 // CPX #003H ;// 03.05.10 // BCS LMPCK180 ; light-wipe on ? ;// 03.05.10 //; ; yes LDA !LGTWST BNE LMPCK180 ; light-wipe on ? ; ; yes INC !LGTWFG ; LDA !GSUBFG CMP #002H BEQ LMPCK180 ; ; ; LDA #00000001B STA DARKDT,X ;// 03.04.01 // STA >DKRMCG ;// 03.04.01 // LDA #p1_ltwp ;// 03.04.01 // STA LGTWPIT ; light-wipe set ;// 03.04.01 // LDA #00010010B ;// 03.04.01 // STA DARKDT,X ;// 03.04.18 //;// 03.04.01 // STA >DKRMCG ;// 03.04.18 //;// 03.04.01 // LDA #p1_ltwp ;// 03.04.18 //;// 03.04.01 // STA DARKFG ;// 03.03.05 // BEQ LMPCK180 ; now-dark ? ;// 03.03.05 //; ; yes ;// 03.03.05 // LDA !LGTWFG ;// 03.03.05 // BNE LMPCK180 ; light-wipe on ? ;// 03.03.05 //; ; no ;// 03.03.05 // LDA !LGTWST ;// 03.03.05 // CMP #003H ;// 03.03.05 // BCS LMPCK180 ; light-wipe on ? ;// 03.03.05 //; ; yes ;// 03.03.05 // TAX ;// 03.03.05 // LDA >CCNGED ;// 03.03.05 // DEC A ;// 03.03.05 // STA >CCNGCT ;// 03.03.05 // LDA >CGEDPT,X ;// 03.03.05 // STA >CCNGED ;// 03.03.05 // LDA #p1_ltwp ;// 03.03.05 // STA CCNGFG ; fade-in set ;// 03.03.05 // INC !LGTWFG ; light-wipe on ;// 03.03.05 // JSL >LGTWPIT ; light-wipe set ;// 03.03.05 // LDA #00010000B ;// 03.03.05 // STA CCNGED ;// 03.03.05 // STA >CCNGCT ;// 03.03.05 // DEC !LGTWST ;// 03.03.05 // LDX !LGTWST ;// 03.03.05 // LDA >CGEDPT-1,X ;// 03.03.05 // STA >CCNGED ;// 03.03.05 // LDA #p1_ltwp ;// 03.03.05 // STA CCNGFG ; fade-out set ;// 03.03.05 // STZ !LGTWFG ; light-wipe off ;// 03.03.05 // LDA #00000010B ;// 03.03.05 // STA MTRBUF+000H,X ;// 03.02.08 // AND #1110001111111111B ;// 03.02.08 // STA >MTRBUF+000H,X ;// 03.02.08 //; ;// 03.02.08 // LDA >MTRBUF+040H,X ;// 03.02.08 // AND #1110001111111111B ;// 03.02.08 // STA >MTRBUF+040H,X ;// 03.02.08 //; ;// 03.02.08 // LDA >MTRBUF+080H,X ;// 03.02.08 // AND #1110001111111111B ;// 03.02.08 // STA >MTRBUF+080H,X ;// 03.02.08 //; ;// 03.02.08 // LDA >MTRBUF+0C0H,X ;// 03.02.08 // AND #1110001111111111B ;// 03.02.08 // STA >MTRBUF+0C0H,X ;// 03.02.08 //; ;// 03.02.08 // LDA >MTRBUF+100H,X ;// 03.02.08 // AND #1110001111111111B ;// 03.02.08 // STA >MTRBUF+100H,X ;// 03.02.08 // INX ;// 03.02.08 // INX ;// 03.02.08 // CPX #00040H ;// 03.02.08 // BNE MTR040 ; end ? ;// 03.02.08 //; ; yes ;// 03.02.08 //MTR080 EQU $ ;// 03.02.08 // LDA >MTRBUF+100H,X ;// 03.02.08 // AND #1110001111111111B ;// 03.02.08 // STA >MTRBUF+100H,X ;// 03.02.08 // INX ;// 03.02.08 // INX ;// 03.02.08 // CPX #0004AH ;// 03.02.08 // BNE MTR080 ; end ? ;// 03.02.08 //; ; yes ;// 03.02.08 // BRA MTR200 ;// 03.02.08 //; ; ;************************************************************************ ;* soto BANK mater on (MTRSUB) * ;************************************************************************ MTRSUB EQU $ PHB PHK PLB JSR MTRON0 PLB RTL ; ; ; MEM8 IDX8 ;************************************************************************ ;* Mater on (MTRON0) * ;************************************************************************ MTRON3 EQU $ LDA #000H STA >DKRMCG ; R.G.B. off ; LDA #0FFH MTRON4 EQU $ STA >ITMTBL9 ; key count set MTRON2 EQU $ JSR MTRON0 RTL ; MTRON0 EQU $ MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; PHB ; (DBR) push LDA #MTRDTEN-MTRDATA-1 LDX #MTRDATA LDY #MTRBUF MVN #BANK MTRDATA,#BANK MTRBUF ;; MVN #002H,#07EH PLB ; (DBR) pull ; PHB PHK PLB ; (DBR) set ; ;// 03.02.08 // LDA #0FFFFH BRA MTR100 ; ; ;************************************************************************ ;* Mater off (MTRON1) * ;************************************************************************ MTRON1 EQU $ MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; PHB PHK PLB ; (DBR) set ; ;// 03.02.08 // LDA #1110001111111111B MTR100 EQU $ JSR MTRINWT ; mater in write ; PLB ; (DBR) reset MTR200 EQU $ MEM8 IDX8 SEP #00110000B ; (DBR) pull ; INC ITEMR01 BEQ STGIM25 CMP #003 BCC STGIM23 LDA #LOW YAAAUCD STA >IYA-040H LDA #HIGH YAAAUCD STA >IYA-03FH LDA #LOW YAAADCD STA >IYA-03EH LDA #HIGH YAAADCD STA >IYA-03DH LDX #004H LDA >ARWCNT BNE STGIM20 LDX #003H BRA STGIM20 ; STGIM23 EQU $ LDX #002H LDA >ARWCNT BNE STGIM20 LDX #001H STGIM20 EQU $ TXA STA >ITEMR01 ;ya init set ; STGIM25 EQU $ MEM16 IDX16 REP #00110000B ; LDX GETITM0 BEQ STGIM10 LDA >ITEMR01-1,X AND #000FFH CPX #00004 ;? BOMB BNE STGIM30 ; LDA #00001H ;Y STGIM30 EQU $ CPX #00016 ;? BIN SELECT BNE STGIM40 TXY TAX ;Y LDA >BINCT0-1,X AND #000FFH TYX STGIM40 EQU $ STA MWAKU7+044H+000H INY INY LDA (MWAKU7+044H+002H INY INY LDA (MWAKU7+044H+040H INY INY LDA (MWAKU7+044H+042H ; STGIM10 EQU $ RTS ;---------------------------------------- MEM16 IDX16 ; MTRINWT EQU $ ; mater in write BITMWT EQU $ ; JSR SETGITM ;SET ITEM B ; LIFEWT EQU $ MEM8 IDX8 SEP #00110000B ; ;life no max LDA #LOW LFDAT0 ;dono data o kakuka o work+10,11,12 ni set STA LFITCT ;nani o kakuka o set(doredake kakuka) AND #000FFH STA LFITCT CMP >LFNWCT BEQ LFWT10 SEC SBC #004H CMP >LFNWCT BCS LFWT10 ; LDA >LFNWCT ; BRA LFWT20 ; LFWT10 EQU $ LDA >LFNWCT ;nani o kakuka o set(doredake kakuka) CLC ADC #003H LFWT20 EQU $ MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; AND #000FCH STA LFITCT ;life no max o set AND #000FFH STA MPLVFG AND #000FFH CMP #001H BCC MPWT10 LDA #MPMTMD0 STA >IMP-042H ;M WRITE LDA #MPMTMD1 STA >IMP-040H ;M WRITE LDA #MPMTMD2 STA >IMP-03EH ;M WRITE MPWT10 EQU $ LDA >MPNWCT AND #000FFH CLC ADC #00007H AND #0FFF8H TAX LDA MPMTRDT+00H,X ;METER 1 STA >IMP+000H LDA MPMTRDT+02H,X ;METER 2 STA >IMP+040H LDA MPMTRDT+04H,X ;METER 3 STA >IMP+080H LDA MPMTRDT+06H,X ;METER 4 STA >IMP+0C0H ; ; MEM8 ; IDX8 ; SEP #00110000B ; ; COINWT EQU $ ; MEM16 ; IDX16 ; REP #00110000B ; LDA >CONPRT ;COIN no kazu o 10 sin ni suru JSR HENKAN ;16 --> 10 ; MEM16 IDX16 REP #00110000B ; LDA ICOIN LDA ICOIN+2 LDA ICOIN+4 ; ; BOMBWT EQU $ ; MEM16 ; IDX16 ; REP #00110000B ; LDA >BMBCNT ;BOMB no kazu o 10 sin ni suru AND #000FFH JSR HENKAN ;16 --> 10 ; MEM16 IDX16 REP #00110000B ; LDA IBOMB LDA IBOMB+2 ; ; WTYA EQU $ ; MEM16 ; IDX16 ; REP #00110000B ; LDA >ARWCNT ;YA no kazu o 10 sin ni suru AND #00FFH JSR HENKAN ;16 --> 10 ; MEM16 IDX16 REP #00110000B ; LDA IYA LDA IYA+2 ; LDA IYA+4 ; ; MEM8 ; IDX8 ; SEP #00110000B ; WTKEY EQU $ ; MEM16 ; IDX16 ; REP #00110000B ; LDA #0007FH ;NUKI STA ITMTBL9 ;KEY no kazu o 10 sin ni suru AND #00FFH CMP #00FFH BEQ WTKEY20 JSR HENKAN ;16 --> 10 ; WTKEY20 EQU $ MEM16 IDX16 REP #00110000B ; LDA IKEY+2 CMP #0247FH BNE WTKEY10 STA >IKEY+2-40H ; WTKEY10 EQU $ MEM8 IDX8 SEP #00110000B ; RTS ;NOT TAME BEEM ;---------------------------------------- WTTMBM EQU $ MEM16 IDX16 REP #00110000B ; LDA >MPNWCT AND #00020H BNE WTTMBM2 BRL WTTMBMEX1 ; WTTMBM2 EQU $ LDA #00C00H STA IMP-4,X INX INX DEY BNE WTTMBM5 ; WTTMBMEX EQU $ LDA TMBMCT CMP #00020H ; BCC WTTMBMEX2 BRA WTTMBMEX2 LDA #020A5H ORA IMP-4,X LDA #020A6H ORA IMP-2,X BRA WTTMBMEX1 WTTMBMEX2 EQU $ LDA TMBMCT LSR A LSR A BCS WTTMBMEX3 LDA #02080H ORA IMP-4,X LDA #02081H ORA IMP-2,X BRA WTTMBMEX1 WTTMBMEX3 EQU $ LDA #02083H ORA IMP-4,X LDA #02084H ORA IMP-2,X LDA #02085H ORA IMP-0,X ; WTTMBMEX1 EQU $ MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; RTS ; WTTMBM6 EQU $ MEM16 IDX16 ; LDX #00012H LDA #207FH WTTMBM7 EQU $ STA >IMP-4,X DEX DEX BPL WTTMBM7 BRA WTTMBMEX1 ; ; WRITEMT EQU $ ;meta o kaku MEM16 IDX16 ; LDX #0000 WTMT1 EQU $ LDA