File : ysm_chip0.asm SUPER-FX ASSEMBLER $Ver 1.01 Wed Jun 14 13:31:50 1995 Page 0001 1 ;************************************************************************ 2 ;* * 3 ;* title name : "yossy map tool" * 4 ;* proccess : mario chip program * 5 ;* file name : ysm_chip0 * 6 ;* * 7 ;************************************************************************ 8 ; 9 ; 10 include ../union/ysm_mram.asm 10+ ;************************************************************************ 10+ ;* * 10+ ;* title name : "yossy map tool" * 10+ ;* proccess : mchip ram name * 10+ ;* file name : ysm_mram.asm * 10+ ;* * 10+ ;************************************************************************ 10+ ; 10+ ; 10+ ;-------------< ƒLƒƒƒ‰ƒNƒ^[ƒf[ƒ^ƒAƒhƒŒƒX >----------------------------- 10+ 000014 NO_PRES EQU 20 ;”ñˆ³kƒoƒ“ƒN” 10+ ; 10+ 520000 CHR50 EQU 520000H ;[ ƒvƒŒƒCƒ„[“]‘——pƒLƒƒƒ‰ƒNƒ^[ ] 10+ 528000 CHR64 EQU 528000H ;[ h ] 10+ 52B000 CHR64P EQU CHR64+3000H ;[ ƒAƒCƒeƒ€Žg—p‹ÖŽ~ƒLƒƒƒ‰ƒNƒ^[ ] 10+ 52C000 CHR34 EQU 52C000H ;[ ‚a‚f“]‘——p‚SƒrƒbƒgƒLƒƒƒ‰ƒNƒ^[ ] 10+ 530000 CHR80 EQU 530000H ;[ ƒ}ƒbƒv—pƒAƒCƒRƒ“ƒrƒbƒgƒ}ƒbƒvƒLƒƒƒ‰ƒNƒ^[ ] 10+ 538000 CHR88 EQU 538000H ;[ h ] 10+ 53C000 CHRE0 EQU 53C000H ;[ ƒ~ƒ…[ƒWƒJƒ‹ƒfƒ‚“]‘—ƒLƒƒƒ‰ƒNƒ^[ ] 10+ 540000 CHR28 EQU 540000H ;[ ƒrƒbƒgƒ}ƒbƒvƒLƒƒƒ‰ƒNƒ^[ ] 10+ 548000 CHR68 EQU 548000H ;[ h ] 10+ 550000 CHR98 EQU 550000H ;[ h ] 10+ 558000 CHR11A EQU 558000H ;[ ƒGƒ“ƒfƒBƒ“ƒO—pƒrƒbƒgƒ}ƒbƒvƒLƒƒƒ‰ƒNƒ^[ ] 10+ 560000 CHR90 EQU 560000H ;[ ƒ}ƒbƒv—pƒrƒbƒgƒ}ƒbƒvƒLƒƒƒ‰ƒNƒ^[ ] 10+ 566000 CHR8C EQU 566000H ;[ ƒrƒbƒgƒ}ƒbƒvƒLƒƒƒ‰ƒNƒ^[ ] 10+ 568000 CHR3F EQU 568000H ;[ ‚a‚f“]‘——p‚QƒrƒbƒgƒLƒƒƒ‰ƒNƒ^[ ] 10+ 569000 CHR70 EQU 569000H ;[ h ] 10+ 56A000 CHR71 EQU 56A000H ;[ h ] 10+ 56B000 CHR72 EQU 56B000H ;[ h ] 10+ 56C000 CHR73 EQU 56C000H ;[ h ] 10+ 56D000 CHR74 EQU 56D000H ;[ ƒXƒRƒA[ƒ{[ƒh“]‘——pƒLƒƒƒ‰ƒNƒ^[ ] 10+ 56E800 CHR32 EQU 56E800H ;[ ƒ[ƒ^[•Ïgƒ^ƒCƒvƒLƒƒƒ‰ƒNƒ^[ ] 10+ 56EC00 CHR119 EQU 56EC00H ;[—nŠâƒR[ƒX“]‘——pƒLƒƒƒ‰ƒNƒ^[ ] 10+ ; 10+ ; 10+ 540000 CIPCHD EQU CHR28 10+ 548000 CIPCHD2 EQU CHR68 10+ 550000 CIPCHD3 EQU CHR98 10+ 566000 CIPCHD4 EQU CHR8C 10+ 558000 CIPCHD5 EQU CHR11A 10+ ; 10+ ; 10+ ;-------------< ƒJƒ‰[ƒf[ƒ^ƒAƒhƒŒƒX >----------------------------------- 10+ 0F8000 COL_ADDRESS EQU 0F8000H 10+ ; 10+ ; 10+ ; 10+ ; 10+ ;************************************************************************ 10+ ;* * 10+ ;* mario chip == SFC RAM * 10+ ;* * 10+ ;************************************************************************ 10+ ; 10+ ;************************************************************************ 10+ ;* mario chip * 10+ ;************************************************************************ 10+ ; 10+ ;======================================================================== 10+ ;= 0 page RAM = 10+ ;======================================================================== 10+ ; 10+ ;-------------< work RAM >----------------------------------------------- 10+ 000000 CWORK EQU 000000H 10+ 000000 CWORK0 EQU CWORK 10+ 000002 CWORK1 EQU CWORK0+2 10+ 000004 CWORK2 EQU CWORK1+2 10+ 000006 CWORK3 EQU CWORK2+2 10+ 000008 CWORK4 EQU CWORK3+2 10+ 00000A CWORK5 EQU CWORK4+2 10+ 00000C CWORK6 EQU CWORK5+2 10+ 00000E CWORK7 EQU CWORK6+2 10+ 000010 CWORK8 EQU CWORK7+2 10+ 000012 CWORK9 EQU CWORK8+2 10+ 000014 CWORKA EQU CWORK9+2 10+ 000016 CWORKB EQU CWORKA+2 10+ 000018 CWORKC EQU CWORKB+2 10+ 00001A CWORKD EQU CWORKC+2 10+ 00001C CWORKE EQU CWORKD+2 10+ 00001E CWORKF EQU CWORKE+2 10+ ; 10+ 000020 CWORK10 EQU CWORKF+2 10+ 000022 CWORK11 EQU CWORK10+2 10+ 000024 CWORK12 EQU CWORK11+2 10+ 000026 CWORK13 EQU CWORK12+2 10+ 000028 CWORK14 EQU CWORK13+2 10+ 00002A CWORK15 EQU CWORK14+2 10+ 00002C CWORK16 EQU CWORK15+2 10+ 00002E CWORK17 EQU CWORK16+2 10+ 000030 CWORK18 EQU CWORK17+2 10+ 000032 CWORK19 EQU CWORK18+2 10+ 000034 CWORK1A EQU CWORK19+2 10+ 000036 CWORK1B EQU CWORK1A+2 10+ 000038 CWORK1C EQU CWORK1B+2 10+ 00003A CWORK1D EQU CWORK1C+2 10+ 00003C CWORK1E EQU CWORK1D+2 10+ 00003E CWORK1F EQU CWORK1E+2 10+ ; 10+ ;-------------< register save RAM >-------------------------------------- 10+ 000040 REG0 EQU CWORK1F+2 10+ 000042 REG1 EQU REG0+2 10+ 000044 REG2 EQU REG1+2 10+ 000046 REG3 EQU REG2+2 10+ 000048 REG4 EQU REG3+2 10+ 00004A REG5 EQU REG4+2 10+ 00004C REG6 EQU REG5+2 10+ 00004E REG7 EQU REG6+2 10+ 000050 REG8 EQU REG7+2 10+ 000052 REG9 EQU REG8+2 10+ 000054 REG10 EQU REG9+2 10+ 000056 REG11 EQU REG10+2 10+ 000058 REG12 EQU REG11+2 10+ 00005A REG13 EQU REG12+2 10+ 00005C REG14 EQU REG13+2 10+ 00005E REG15 EQU REG14+2 10+ ; 10+ ;-------------< R11 ( return address ) save RAM >------------------------ 10+ 000060 RTS0 EQU REG15+2 10+ 000062 RTS1 EQU RTS0+2 10+ 000064 RTS2 EQU RTS1+2 10+ 000066 RTS3 EQU RTS2+2 10+ 000068 RTS4 EQU RTS3+2 10+ 00006A RTS5 EQU RTS4+2 10+ 00006C RTS6 EQU RTS5+2 10+ 00006E RTS7 EQU RTS6+2 10+ 000070 RTS8 EQU RTS7+2 10+ 000072 RTS9 EQU RTS8+2 10+ ; 10+ ; 10+ ;........................................................................ 10+ ;. extern RAM . 10+ ;........................................................................ 10+ 000074 CMSTATIC0 EQU RTS9+2 10+ ; 10+ ; 10+ ;------------------------------------------------------------------------ 10+ ;- clear RAM.0 - 10+ ;------------------------------------------------------------------------ 10+ ; 10+ 000074 CMCLRRM0_S EQU CMSTATIC0 10+ ; 10+ ; 10+ 000075 CMCLRRM0_E EQU CMCLRRM0_S+1 10+ 000001 CMCLR0SE EQU CMCLRRM0_E-CMCLRRM0_S 10+ ; 10+ ;------------------------------------------------------------------------ 10+ ;- clear RAM.0 end - 10+ ;------------------------------------------------------------------------ 10+ ; 10+ ; 10+ ;======================================================================== 10+ ;= !=0 page RAM = 10+ ;======================================================================== 10+ ; 10+ ;-------------< map flag RAM >------------------------------------------- 10+ 000200 CMPTYPE EQU 200H ;map type 10+ 000202 CMPLMODE EQU CMPTYPE+2 ;player mode 10+ ; 10+ ;-------------- map data edit RAM ------------------------------- 10+ 000204 CEDZOOM EQU CMPLMODE+2 ;map data edit zoom flag 10+ 000206 CEDCENTX EQU CEDZOOM+2 10+ 000208 CEDCENTY EQU CEDCENTX+2 10+ ; 10+ 00020A CCSRXPS EQU CEDCENTY+2 ;cursol X pos 10+ 00020C CCSRYPS EQU CCSRXPS+2 ; " Y " 10+ 00020E CEDMPXPS EQU CCSRYPS+2 ;map edit set X pos 10+ 000210 CEDMPZPS EQU CEDMPXPS+2 ; " Z " 10+ 000212 CEDMPYPS EQU CEDMPZPS+2 ; " Y " 10+ ; 10+ ; 10+ ;........................................................................ 10+ ;. static RAM ( map ) . 10+ ;........................................................................ 10+ 000214 CMSTATIC1 EQU CEDMPYPS+2 10+ ; 10+ ; 10+ 0000A6 MPOBJN EQU 150+16 ;map OBJ max no 10+ ; 10+ ; 10+ ;------------------------------------------------------------------------ 10+ ;- clear RAM.1 - 10+ ;------------------------------------------------------------------------ 10+ 000214 CMCLRRM1_S EQU CMSTATIC1 10+ ; 10+ ; 10+ ;-------------< H-DMA buffer >------------------------------------------- 10+ 000214 CMPHDMAB0 EQU CMCLRRM1_S ;H-DMA buffer.0 ( X cos ) 10+ 0002F4 CMPHDMAB1 EQU CMPHDMAB0+70H*2 ; " .1 ( X sin ) 10+ 0003D4 CMPHDMAB2 EQU CMPHDMAB1+70H*2 ; " .2 ( Y -sin ) 10+ 0004B4 CMPHDMAB3 EQU CMPHDMAB2+70H*2 ; " .3 ( Y cos ) 10+ ; 10+ ;-------------- map work RAM ------------------------------------ 10+ 000594 CMPWORK EQU CMPHDMAB3+70H*2 10+ ; 10+ ; 10+ 0006E0 CMCLRRM1_E EQU CMPWORK+(MPOBJN/2)*4 10+ 0004CC CMCLR1SE EQU CMCLRRM1_E-CMCLRRM1_S 10+ ; 10+ ;------------------------------------------------------------------------ 10+ ;- clear RAM.1 end - 10+ ;------------------------------------------------------------------------ 10+ ; 10+ ; 10+ ;-------------< map OBJ RAM >-------------------------------------------- 10+ 0006E0 CMPANGLE EQU CMCLRRM1_E ;map angle 10+ ; 10+ 0006E2 CMPPLXPOS EQU CMPANGLE+2 ;player long X pos 10+ 0006E4 CMPPLZPOS EQU CMPPLXPOS+2 ; " Z " 10+ 0006E6 CMPPLYPOS EQU CMPPLZPOS+2 ; " Y " 10+ ; 10+ ;-------------- map clear RAM ----------------------------------- 10+ 0006E8 CMMPCLRRM_S EQU CMPPLYPOS+2 10+ ; 10+ 0006E8 CMPOBJSTN EQU CMMPCLRRM_S ;map OBJ set no 10+ ; 10+ 0006EA CMPOBJTYP EQU CMPOBJSTN+2 ; " type no. 10+ 0006EB CMPOBJXPS EQU CMPOBJTYP+1 ; " X pos 10+ 0006EC CMPOBJZPS EQU CMPOBJXPS+1 ; " Z " 10+ 0006ED CMPOBJYPS EQU CMPOBJZPS+1 ; " Y " 10+ ; 10+ 000982 CMPWOBJXPS EQU CMPOBJTYP+MPOBJN*4 ;map work OBJ X pos 10+ 000983 CMPWOBJYPS EQU CMPWOBJXPS+1 ; " Y " 10+ 000984 CMPWOBJSIZ EQU CMPWOBJYPS+1 ; " zoom size 10+ ; 10+ 000C1A CMPWOBJZPS EQU CMPWOBJXPS+MPOBJN*4 ; " Z pos 10+ 000C1B CMPSORTIDX EQU CMPWOBJZPS+1 ; " sort index buffer 10+ ; 10+ 000D66 CMMPCLRRM_E EQU CMPWOBJZPS+MPOBJN*2 10+ ; 10+ ; 10+ ;-------------- map player RAM define ------------------- 10+ 0006EA CMPPLTYP EQU CMPOBJTYP ;player type no. 10+ 0006EB CMPPLXPS EQU CMPOBJXPS ; " X pos 10+ 0006EC CMPPLZPS EQU CMPOBJZPS ; " Z " 10+ 0006ED CMPPLYPS EQU CMPOBJYPS ; " Y " 10+ 000984 CMPPLSIZ EQU CMPWOBJSIZ ; " zoom size 10+ ; 10+ ;-------------- move OBJ RAM define --------------------- 10+ 0006EE CMPMVTYP EQU CMPOBJTYP+4 ;move OBJ type no. 10+ 0006EF CMPMVXPS EQU CMPOBJXPS+4 ; " X pos 10+ 0006F0 CMPMVZPS EQU CMPOBJZPS+4 ; " Z " 10+ 0006F1 CMPMVYPS EQU CMPOBJYPS+4 ; " Y " 10+ 000987 CMPWMVYPS EQU CMPWOBJYPS+4 ; " work Y pos 10+ 000988 CMPMVSIZ EQU CMPWOBJSIZ+4 ; " zoom size 10+ ; 10+ ; 10+ ;************************************************************************ 10+ ;* SFC * 10+ ;************************************************************************ 10+ ; 10+ ;======================================================================== 10+ ;= 0 page RAM = 10+ ;======================================================================== 10+ ; 10+ ;-------------< work RAM >----------------------------------------------- 10+ 006000 CCWORK EQU 06000H 10+ 006000 CCWORK0 EQU CCWORK 10+ 006002 CCWORK1 EQU CCWORK0+2 10+ 006004 CCWORK2 EQU CCWORK1+2 10+ 006006 CCWORK3 EQU CCWORK2+2 10+ 006008 CCWORK4 EQU CCWORK3+2 10+ 00600A CCWORK5 EQU CCWORK4+2 10+ 00600C CCWORK6 EQU CCWORK5+2 10+ 00600E CCWORK7 EQU CCWORK6+2 10+ 006010 CCWORK8 EQU CCWORK7+2 10+ 006012 CCWORK9 EQU CCWORK8+2 10+ 006014 CCWORKA EQU CCWORK9+2 10+ 006016 CCWORKB EQU CCWORKA+2 10+ 006018 CCWORKC EQU CCWORKB+2 10+ 00601A CCWORKD EQU CCWORKC+2 10+ 00601C CCWORKE EQU CCWORKD+2 10+ 00601E CCWORKF EQU CCWORKE+2 10+ ; 10+ 006020 CCWORK10 EQU CCWORKF+2 10+ 006022 CCWORK11 EQU CCWORK10+2 10+ 006024 CCWORK12 EQU CCWORK11+2 10+ 006026 CCWORK13 EQU CCWORK12+2 10+ 006028 CCWORK14 EQU CCWORK13+2 10+ 00602A CCWORK15 EQU CCWORK14+2 10+ 00602C CCWORK16 EQU CCWORK15+2 10+ 00602E CCWORK17 EQU CCWORK16+2 10+ 006030 CCWORK18 EQU CCWORK17+2 10+ 006032 CCWORK19 EQU CCWORK18+2 10+ 006034 CCWORK1A EQU CCWORK19+2 10+ 006036 CCWORK1B EQU CCWORK1A+2 10+ 006038 CCWORK1C EQU CCWORK1B+2 10+ 00603A CCWORK1D EQU CCWORK1C+2 10+ 00603C CCWORK1E EQU CCWORK1D+2 10+ 00603E CCWORK1F EQU CCWORK1E+2 10+ ; 10+ ;-------------< register save RAM >-------------------------------------- 10+ 006040 CREG0 EQU CCWORK1F+2 10+ 006042 CREG1 EQU CREG0+2 10+ 006044 CREG2 EQU CREG1+2 10+ 006046 CREG3 EQU CREG2+2 10+ 006048 CREG4 EQU CREG3+2 10+ 00604A CREG5 EQU CREG4+2 10+ 00604C CREG6 EQU CREG5+2 10+ 00604E CREG7 EQU CREG6+2 10+ 006050 CREG8 EQU CREG7+2 10+ 006052 CREG9 EQU CREG8+2 10+ 006054 CREG10 EQU CREG9+2 10+ 006056 CREG11 EQU CREG10+2 10+ 006058 CREG12 EQU CREG11+2 10+ 00605A CREG13 EQU CREG12+2 10+ 00605C CREG14 EQU CREG13+2 10+ 00605E CREG15 EQU CREG14+2 10+ ; 10+ ;-------------< R11 ( return address ) save RAM >------------------------ 10+ 006060 CRTS0 EQU CREG15+2 10+ 006062 CRTS1 EQU CRTS0+2 10+ 006064 CRTS2 EQU CRTS1+2 10+ 006066 CRTS3 EQU CRTS2+2 10+ 006068 CRTS4 EQU CRTS3+2 10+ 00606A CRTS5 EQU CRTS4+2 10+ 00606C CRTS6 EQU CRTS5+2 10+ 00606E CRTS7 EQU CRTS6+2 10+ 006070 CRTS8 EQU CRTS7+2 10+ 006072 CRTS9 EQU CRTS8+2 10+ ; 10+ ; 10+ ;........................................................................ 10+ ;. extern RAM . 10+ ;........................................................................ 10+ 006074 MSTATIC0 EQU CRTS9+2 10+ ; 10+ ; 10+ ;------------------------------------------------------------------------ 10+ ;- clear RAM.0 - 10+ ;------------------------------------------------------------------------ 10+ ; 10+ 006074 MCLRRM0_S EQU MSTATIC0 10+ ; 10+ ; 10+ 006075 MCLRRM0_E EQU MCLRRM0_S+1 10+ 000001 MCLR0SE EQU MCLRRM0_E-MCLRRM0_S 10+ ; 10+ ;------------------------------------------------------------------------ 10+ ;- clear RAM.0 end - 10+ ;------------------------------------------------------------------------ 10+ ; 10+ ; 10+ ;======================================================================== 10+ ;= !=0 page RAM = 10+ ;======================================================================== 10+ ; 10+ ;-------------< map flag RAM >------------------------------------------- 10+ 006200 MPTYPE EQU 6200H ;map type 10+ 006202 MPLMODE EQU MPTYPE+2 ; " player mode 10+ ; 10+ ;-------------- map data edit RAM ------------------------------- 10+ 006204 EDZOOM EQU MPLMODE+2 ;map data edit zoom flag 10+ 006206 EDCENTX EQU EDZOOM+2 10+ 006208 EDCENTY EQU EDCENTX+2 10+ ; 10+ 00620A CSRXPS EQU EDCENTY+2 ;cursol X pos 10+ 00620C CSRYPS EQU CSRXPS+2 ; " Y " 10+ 00620E EDMPXPS EQU CSRYPS+2 ;map edit set X pos 10+ 006210 EDMPZPS EQU EDMPXPS+2 ; " Z " 10+ 006212 EDMPYPS EQU EDMPZPS+2 ; " Y " 10+ ; 10+ ; 10+ ;........................................................................ 10+ ;. static RAM ( map ) . 10+ ;........................................................................ 10+ 006214 MSTATIC1 EQU EDMPYPS+2 10+ ; 10+ ; 10+ ;------------------------------------------------------------------------ 10+ ;- clear RAM.1 - 10+ ;------------------------------------------------------------------------ 10+ 006214 MCLRRM1_S EQU MSTATIC1 10+ ; 10+ ; 10+ ;-------------< H-DMA buffer >------------------------------------------- 10+ 006214 MPHDMAB0 EQU MCLRRM1_S ;H-DMA buffer.0 ( X cos ) 10+ 0062F4 MPHDMAB1 EQU MPHDMAB0+70H*2 ; " .1 ( X sin ) 10+ 0063D4 MPHDMAB2 EQU MPHDMAB1+70H*2 ; " .2 ( Y -sin ) 10+ 0064B4 MPHDMAB3 EQU MPHDMAB2+70H*2 ; " .3 ( Y cos ) 10+ ; 10+ ;-------------- map work RAM ------------------------------------ 10+ 006594 MPWORK EQU MPHDMAB3+70H*2 10+ ; 10+ ; 10+ 0066E0 MCLRRM1_E EQU MPWORK+(MPOBJN/2)*4 10+ 0004CC MCLR1SE EQU MCLRRM1_E-MCLRRM1_S 10+ ; 10+ ;------------------------------------------------------------------------ 10+ ;- clear RAM.1 end - 10+ ;------------------------------------------------------------------------ 10+ ; 10+ ; 10+ ;-------------< map OBJ RAM >-------------------------------------------- 10+ 0066E0 MPANGLE EQU MCLRRM1_E ;map angle 10+ ; 10+ 0066E2 MPPLXPOS EQU MPANGLE+2 ;player long X pos 10+ 0066E4 MPPLZPOS EQU MPPLXPOS+2 ; " Z " 10+ 0066E6 MPPLYPOS EQU MPPLZPOS+2 ; " Y " 10+ ; 10+ ;-------------- map clear RAM ----------------------------------- 10+ 0066E8 MMPCLRRM_S EQU MPPLYPOS+2 10+ ; 10+ 0066E8 MPOBJSTN EQU MMPCLRRM_S ;map OBJ set no 10+ ; 10+ 0066EA MPOBJTYP EQU MPOBJSTN+2 ; " type no. 10+ 0066EB MPOBJXPS EQU MPOBJTYP+1 ; " X pos 10+ 0066EC MPOBJZPS EQU MPOBJXPS+1 ; " Z " 10+ 0066ED MPOBJYPS EQU MPOBJZPS+1 ; " Y " 10+ ; 10+ 006982 MPWOBJXPS EQU MPOBJTYP+MPOBJN*4 ;map work OBJ X pos 10+ 006983 MPWOBJYPS EQU MPWOBJXPS+1 ; " Y " 10+ 006984 MPWOBJSIZ EQU MPWOBJYPS+1 ; " zoom size 10+ ; 10+ 006C1A MPWOBJZPS EQU MPWOBJXPS+MPOBJN*4 ; " Z pos 10+ 006C1B MPSORTIDX EQU MPWOBJZPS+1 ; " sort index buffer 10+ ; 10+ 006D66 MMPCLRRM_E EQU MPWOBJZPS+MPOBJN*2 10+ 00067E MMPCLRSE EQU MMPCLRRM_E-MMPCLRRM_S 10+ ; 10+ ; 10+ ;-------------- map player RAM define ------------------- 10+ 0066EA MPPLTYP EQU MPOBJTYP ;player type no. 10+ 0066EB MPPLXPS EQU MPOBJXPS ; " X pos 10+ 0066EC MPPLZPS EQU MPOBJZPS ; " Z " 10+ 0066ED MPPLYPS EQU MPOBJYPS ; " Y " 10+ 006984 MPPLSIZ EQU MPWOBJSIZ ; " zoom size 10+ ; 10+ ;-------------- move OBJ RAM define --------------------- 10+ 0066EE MPMVTYP EQU MPOBJTYP+4 ;move OBJ type no. 10+ 0066EF MPMVXPS EQU MPOBJXPS+4 ; " X pos 10+ 0066F0 MPMVZPS EQU MPOBJZPS+4 ; " Z " 10+ 0066F1 MPMVYPS EQU MPOBJYPS+4 ; " Y " 10+ 006987 MPWMVYPS EQU MPWOBJYPS+4 ; " work Y pos 10+ 006988 MPMVSIZ EQU MPWOBJSIZ+4 ; " zoom size 10+ ; 10+ ; 10+ ; 10+ ; 10+ ; 10+ ;************************************************************************ 10+ ;* * 10+ ;* only mario chip RAM * 10+ ;* * 10+ ;************************************************************************ 10+ ; 10+ ;........................................................................ 10+ ;. extern RAM . 10+ ;........................................................................ 10+ ; 10+ ;-------------< OAM >---------------------------------------------------- 10+ 702000 OAM EQU 702000H 10+ 702200 OAMSUB EQU OAM+200H 10+ 702220 OAMSB EQU OAMSUB+20H 10+ ; 10+ ;-------------< color data buffer >-------------------------------------- 10+ 7022A0 DATACOL EQU OAMSB+080H ;now color data 10+ ; 10+ ;-------------< div data RAM >------------------------------------------- 10+ 7024A0 DIVBUF EQU DATACOL+200H ;[ map:0-3AE becorse bitmap buffer use ] 10+ ; 10+ ; 10+ ;........................................................................ 10+ ;. static RAM ( map ) . 10+ ;........................................................................ 10+ ; 10+ ;------------------------------------------------------------------------ 10+ ;- clear RAM.2 - 10+ ;------------------------------------------------------------------------ 10+ 702CA2 MCLRRM2_S EQU DIVBUF+256*2*4+2 10+ ; 10+ ;........................................................................ 10+ ;. static RAM ( title ) . 10+ ;........................................................................ 10+ 702CA2 MSTATIC2 EQU MCLRRM2_S 10+ ; 10+ ;-------------< software sprite RAM >------------------------------------ 10+ 702CA2 OSCCH EQU MSTATIC2 10+ 702CA4 OSCCV EQU OSCCH+2 10+ 702CA6 OCENTX EQU OSCCV+2 10+ 702CA8 OCENTY EQU OCENTX+2 10+ 702CAA OMATA EQU OCENTY+2 10+ 702CAC OMATB EQU OMATA+2 10+ 702CAE OMATC EQU OMATB+2 10+ 702CB0 OMATD EQU OMATC+2 10+ 702CB2 OCHRADR EQU OMATD+2 10+ 702CB6 OBUFXPS EQU OCHRADR+4 10+ 702CB8 OBUFYPS EQU OBUFXPS+2 10+ 702CBA OBM7CNT EQU OBUFYPS+2 10+ 702CBC OBM7R01 EQU OBM7CNT+2 10+ 702CBE OBM7R02 EQU OBM7R01+2 10+ 702CC0 OBM7R03 EQU OBM7R02+2 10+ 702CC2 OBM7R05 EQU OBM7R03+2 10+ 702CC4 OBM7R07 EQU OBM7R05+2 10+ 702CC6 OBM7R08 EQU OBM7R07+2 10+ 702CC8 OBM7R09 EQU OBM7R08+2 10+ 702CCA OBM7R10 EQU OBM7R09+2 10+ ; 10+ ;-------------< software sprite chara buffer >--------------------------- 10+ 706000 WOB7CHR EQU 706000H 10+ ; | 10+ ; V 10+ ; 707FFFH 10+ ; 10+ ; 10+ 708000 MCLRRM2_E EQU 708000H 10+ 00535D MCLR2SE EQU MCLRRM2_E-MCLRRM2_S-1 10+ ; 10+ ; 10+ ;------------------------------------------------------------------------ 10+ ;- clear RAM.2 end - 10+ ;------------------------------------------------------------------------ 10+ ; 10+ ; 10+ ; 10+ ; 10+ ;-------------< map bitmap buffer >-------------------------------------- 10+ 702C00 MPBITMAP EQU 702C00H 10+ ; 10+ ;-------------< map bitmap buffer convert work buffer >------------------ 10+ 707200 MPCNVBF EQU MPBITMAP+4600H ;[ 28 x 20 ] 10+ ;;;; EQU MPCNVBF+0E00H ;[ 3800H/4 ] 10+ ; 10+ ; 10+ ; 10+ ; 10+ ; 11 ; 12 ; 13 ;------------------------------------------------------------------------ 14 ;- define symbol - 15 ;------------------------------------------------------------------------ 16 560000 MPCIPCHR EQU 560000H ;ƒ}ƒbƒvƒrƒbƒgƒ}ƒbƒvƒLƒƒƒ‰ƒNƒ^[ƒAƒhƒŒ 17 568000 MFCIPCHR EQU 568000H ;H flip 18 ; 19 ;************************************************************************ 20 ;* * 21 ;* program start * 22 ;* * 23 ;************************************************************************ 24 ; 25 ; 26 Group_0 GROUP S_chip_0 27 S_chip_0 SECT REL 28 ; 29 ; 30 ;************************************************************************ 31 ;* M-chip initial set * 32 ;************************************************************************ 33 000000 CHIPINIT EQU $ 34 S000000 60 SUB R0 ;[ IBT R0,#0 ] 35 S000001 3E DF RAMB 36 ; 37 S000003 00 STOP 38 S000004 01 NOP 39 ; 40 ;************************************************************************ 41 ;* ƒf[ƒ^ˆ³k‰ð“€ (DT_UNCOMPRESS) * 42 ;* m‚‰‚Žn @‚q‚SFƒf[ƒ^Œ³ƒoƒ“ƒNi‚S‚O‚g`‚T‚e‚gj * 43 ;* @‚q‚XF@@@@ƒAƒhƒŒƒX * 44 ;* ‚q‚P‚OF‰ð“€æ@ƒAƒhƒŒƒX * 45 ;* * 46 ;* m‚‚•‚”n ‚q‚P‚OF‰ð“€Œã‚Ì ‰ð“€æ ƒAƒhƒŒƒX * 47 ;* * 48 ;* m‚t‚“‚…‚„nR0,R1,R2,R3,R4,R5,R6,R7,R9,R10,R11,R12,R13,R14,R15 * 49 ;************************************************************************ 50 000005 DT_UNCOMPRESS EQU $ 51 S000005 B4 FROM R4 52 S000006 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒN‰ŠúÝ’è 53 S000008 29 1E MOVE R14,R9 ; ‚q‚P‚S©‚b|‚q‚‚ƒAƒhƒŒƒX‰ŠúÝ’è 54 ; 55 S00000A 2A 19 MOVE R9,R10 ; (‚q‚X) ©‰ð“€æƒAƒhƒŒƒX(‰Šú’l) 56 S00000C F5 03FF IWT R5,#003FFH ;i‚q‚Tj@©ƒf[ƒ^ŒÂ”ƒ`ƒFƒbƒNƒR[ƒh 57 S00000F A6 1F IBT R6,#0001FH ;i‚q‚Uj@©ƒf[ƒ^ŒÂ”ƒ`ƒFƒbƒNƒR[ƒh 58 S000011 F7 00E0 IWT R7,#000E0H ;i‚q‚Vj@©ƒf[ƒ^‚s‚™‚‚…ƒ`ƒFƒbƒNƒR[ƒh 59 S000014 F8 00FF IWT R8,#000FFH ;i‚q‚Wj@©ƒf[ƒ^I—¹ƒ`ƒFƒbƒNƒR[ƒh 60 S000017 FB 001C' IWT R11,#(DT_UNC000+1) ;i‚q‚P‚Pj©‚i‚l‚oæƒAƒhƒŒƒX 61 ; 62 S00001A 02 CACHE ; ƒLƒƒƒbƒVƒ…§Œä 63 ; 64 DT_UNC000 65 S00001B EF GETB ; ‚q‚O©‚q‚‚ƒoƒbƒtƒ@ 66 S00001C DE INC R14 67 S00001D 08 09' BNE DT_UNC100+1 ; ‚m‚…‚˜‚”ƒoƒ“ƒNH 68 ; ; ‚™‚…‚“ 69 S00001F 68 SUB R8 70 S000020 58 ADD R8 71 S000021 D4 INC R4 72 S000022 B4 FROM R4 73 S000023 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒNƒZƒbƒg 74 S000025 2E 1E MOVE R14,R14 75 DT_UNC100 76 S000027 68 SUB R8 77 S000028 08 03' BNE DT_UNC200 ; ƒf[ƒ^I—¹H 78 ; ; ‚™‚…‚“ 79 S00002A 58 ADD R8 80 S00002B 00 STOP ; ‚f‚r‚tI—¹ 81 S00002C 01 NOP 82 ; 83 ;-----------------------------------------------; ƒf[ƒ^ŒÂ”ƒ`ƒFƒbƒN 84 DT_UNC200 85 S00002D 12 TO R2 ; ‚c‚’‚…‚‡©‚q‚Q 86 S00002E 77 AND R7 ; ‚q‚Q©ƒf[ƒ^‚s‚™‚‚… 87 S00002F 67 SUB R7 88 S000030 0A 05' BPL DT_UNC300 ; ŒÂ”‚P‚e‚gŒÂˆÈãƒf[ƒ^H 89 ; ; ‚Ž‚ 90 S000032 57 ADD R7 91 S000033 76 AND R6 ; ‚q‚O©iƒf[ƒ^ŒÂ”F‚P‚eŒÂˆÈ“àj 92 S000034 05 18' BRA DT_UNC500+1 93 S000036 D0 INC R0 94 ; 95 DT_UNC300 96 S000037 20 11 MOVE R1,R0 ; ‚q‚O‚Ì“à—e‚ð‚q‚P‚ɃZƒbƒg 97 S000039 50 ADD R0 98 S00003A 50 ADD R0 99 S00003B 50 ADD R0 ; ‚q‚O©‚q‚O–‚W@ 100 S00003C 12 TO R2 ; ‚c‚’‚…‚‡©‚q‚Q 101 S00003D 77 AND R7 ; ‚q‚Q©ƒf[ƒ^‚s‚™‚‚… 102 ; 103 S00003E EF GETB ; ‚q‚O©‚q‚‚ƒoƒbƒtƒ@ 104 S00003F DE INC R14 105 S000040 08 08' BNE DT_UNC400+1 ; ‚m‚…‚˜‚”ƒoƒ“ƒNH 106 ; ; ‚™‚…‚“ 107 S000042 21 WITH R1 ; ‚r‚’‚…‚‡©‚q‚P 108 S000043 D4 INC R4 109 S000044 B4 FROM R4 110 S000045 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒNƒZƒbƒg 111 S000047 2E 1E MOVE R14,R14 112 DT_UNC400 113 S000049 21 WITH R1 ; ‚r‚’‚…‚‡©‚q‚P 114 S00004A 4D SWAP ; ‚r‚’‚…‚‡i‚k|‚gj¨‚c‚’‚…‚‡i‚g|‚kj 115 S00004B C1 OR R1 116 S00004C 75 AND R5 ; ‚q‚O©iƒf[ƒ^ŒÂ”F‚P‚eŒÂˆÈãj 117 ; 118 ;-----------------------------------------------; ƒf[ƒ^‚s‚™‚‚…ƒ`ƒFƒbƒN 119 DT_UNC500 120 S00004D D0 INC R0 121 S00004E 20 1C MOVE R12,R0 ; ‚q‚P‚Q‚Ƀf[ƒ^ŒÂ”‚ðƒZƒbƒg 122 S000050 20 B2 MOVES R0,R2 ; ƒf[ƒ^‚s‚™‚‚…ƒ`ƒFƒbƒN 123 S000052 09 1D' BEQ DT_UNC1100 ;i”ñ‹¤’ʃf[ƒ^jH 124 ; ; ‚Ž‚ 125 S000054 4D SWAP 126 S000055 0B 2D' BMI DT_UNC1200 ;iŽQƃf[ƒ^jH 127 ; ; ‚Ž‚ 128 S000057 50 ADD R0 129 S000058 0A 52' BPL DT_UNC1300 ;i‚P‚‚‚™‚”‚…‹¤’ʃf[ƒ^jH 130 ; ; ‚Ž‚ 131 S00005A 50 ADD R0 132 S00005B 0A 62' BPL DT_UNC1400 ;i‚Q‚‚‚™‚”‚…‹¤’ʃf[ƒ^jH 133 ; ; ‚Ž‚ 134 ;-----------------------------------------------;iƒvƒ‰ƒX‚Pƒf[ƒ^j 135 DT_UNC1000 136 S00005D EF GETB ; ‚q‚O©‚q‚‚ƒoƒbƒtƒ@ 137 S00005E DE INC R14 138 S00005F 08 07' BNE DT_UNC1040 ; ‚m‚…‚˜‚”ƒoƒ“ƒNH 139 ; ; ‚™‚…‚“ 140 S000061 01 NOP 141 S000062 D4 INC R4 142 S000063 B4 FROM R4 143 S000064 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒNƒZƒbƒg 144 S000066 2E 1E MOVE R14,R14 145 DT_UNC1040 146 S000068 2F 1D MOVE R13,R15 ; ‚f‚r‚tƒvƒƒOƒ‰ƒ€ƒJƒEƒ“ƒ^‚ð‚q‚P‚R‚ɃZƒbƒg 147 ; 148 S00006A 3D 3A STB (R10) ; ‚b|‚q‚‚‚Öƒf[ƒ^‚ðƒXƒgƒA 149 S00006C D0 INC R0 150 S00006D 3C LOOP 151 S00006E DA INC R10 152 ; 153 S00006F 9B JMP R11 ; ‚i‚l‚oi‚c‚sQ‚t‚m‚b‚O‚O‚O{‚Pj 154 S000070 EF GETB 155 ; 156 ;-----------------------------------------------;i”ñ‹¤’ʃf[ƒ^j 157 DT_UNC1100 158 S000071 2F 1D MOVE R13,R15 ; ‚f‚r‚tƒvƒƒOƒ‰ƒ€ƒJƒEƒ“ƒ^‚ð‚q‚P‚R‚ɃZƒbƒg 159 ; 160 S000073 EF GETB ; ‚q‚O©‚q‚‚ƒoƒbƒtƒ@ 161 S000074 DE INC R14 162 S000075 08 07' BNE DT_UNC1140 ; ‚m‚…‚˜‚”ƒoƒ“ƒNH 163 ; ; ‚™‚…‚“ 164 S000077 01 NOP 165 S000078 D4 INC R4 166 S000079 B4 FROM R4 167 S00007A 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒNƒZƒbƒg 168 S00007C 2E 1E MOVE R14,R14 169 DT_UNC1140 170 S00007E 3D 3A STB (R10) ; ‚b|‚q‚‚‚Öƒf[ƒ^‚ðƒXƒgƒA 171 S000080 3C LOOP 172 S000081 DA INC R10 173 ; 174 S000082 9B JMP R11 ; ‚i‚l‚oi‚c‚sQ‚t‚m‚b‚O‚O‚O{‚Pj 175 S000083 EF GETB 176 ; 177 ;-----------------------------------------------;iŽQƃf[ƒ^j 178 DT_UNC1200 179 S000084 21 WITH R1 ; ‚c‚’‚…‚‡©‚q‚P 180 S000085 EF GETB ; ‚q‚P©‚q‚‚ƒoƒbƒtƒ@ 181 S000086 DE INC R14 182 S000087 08 08' BNE DT_UNC1220+1 ; ‚m‚…‚˜‚”ƒoƒ“ƒNH 183 ; ; ‚™‚…‚“ 184 S000089 EF GETB ; ‚q‚O©‚q‚‚ƒoƒbƒtƒ@ 185 S00008A D4 INC R4 186 S00008B B4 FROM R4 187 S00008C 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒNƒZƒbƒg 188 S00008E 2E 1E MOVE R14,R14 189 DT_UNC1220 190 S000090 EF GETB ; ‚q‚O©‚q‚‚ƒoƒbƒtƒ@ 191 S000091 DE INC R14 192 S000092 08 08' BNE DT_UNC1240+1 ; ‚m‚…‚˜‚”ƒoƒ“ƒNH 193 ; ; ‚™‚…‚“ 194 S000094 21 WITH R1 ; ‚r‚’‚…‚‡©‚q‚P 195 S000095 D4 INC R4 196 S000096 B4 FROM R4 197 S000097 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒNƒZƒbƒg 198 S000099 2E 1E MOVE R14,R14 199 DT_UNC1240 200 S00009B 21 WITH R1 ; ‚r‚’‚…‚‡©‚q‚P 201 S00009C 4D SWAP ; ‚r‚’‚…‚‡i‚k|‚gj¨‚c‚’‚…‚‡i‚g|‚kj 202 S00009D 12 TO R2 ; ‚c‚’‚…‚‡©‚q‚Q 203 S00009E C1 OR R1 ; ‚q‚Q©ŽQƃf[ƒ^ƒAƒhƒŒƒX 204 S00009F 22 WITH R2 ; ‚c‚’‚…‚‡©‚q‚Q 205 S0000A0 59 ADD R9 ; ‚q‚Q©ŽQƃf[ƒ^ƒAƒhƒŒƒX 206 ; 207 S0000A1 2F 1D MOVE R13,R15 ; ‚f‚r‚tƒvƒƒOƒ‰ƒ€ƒJƒEƒ“ƒ^‚ð‚q‚P‚R‚ɃZƒbƒg 208 ; 209 S0000A3 3D 42 LDB (R2) ; ‚b|‚q‚‚‚©‚çƒf[ƒ^‚ðƒ[ƒh 210 S0000A5 3D 3A STB (R10) ; ‚b|‚q‚‚‚Öƒf[ƒ^‚ðƒXƒgƒA 211 S0000A7 D2 INC R2 212 S0000A8 3C LOOP 213 S0000A9 DA INC R10 214 ; 215 S0000AA 9B JMP R11 ; ‚i‚l‚oi‚c‚sQ‚t‚m‚b‚O‚O‚O{‚Pj 216 S0000AB EF GETB 217 ; 218 ;-----------------------------------------------; i‚P‚‚‚™‚”‚…‹¤’ʃf[ƒ^j 219 DT_UNC1300 220 S0000AC EF GETB ; ‚q‚O©‚q‚‚ƒoƒbƒtƒ@ 221 S0000AD DE INC R14 222 S0000AE 08 07' BNE DT_UNC1340 ; ‚m‚…‚˜‚”ƒoƒ“ƒNH 223 ; ; ‚™‚…‚“ 224 S0000B0 01 NOP 225 S0000B1 D4 INC R4 226 S0000B2 B4 FROM R4 227 S0000B3 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒNƒZƒbƒg 228 S0000B5 2E 1E MOVE R14,R14 229 DT_UNC1340 230 S0000B7 2F 1D MOVE R13,R15 ; ‚f‚r‚tƒvƒƒOƒ‰ƒ€ƒJƒEƒ“ƒ^‚ð‚q‚P‚R‚ɃZƒbƒg 231 ; 232 S0000B9 3D 3A STB (R10) ; ‚b|‚q‚‚‚Öƒf[ƒ^‚ðƒXƒgƒA 233 S0000BB 3C LOOP 234 S0000BC DA INC R10 235 ; 236 S0000BD 9B JMP R11 ; ‚i‚l‚oi‚c‚sQ‚t‚m‚b‚O‚O‚O{‚Pj 237 S0000BE EF GETB 238 ; 239 ;-----------------------------------------------; i‚Q‚‚‚™‚”‚…‹¤’ʃf[ƒ^j 240 DT_UNC1400 241 S0000BF DE INC R14 242 S0000C0 08 08' BNE DT_UNC1420+1 ; ‚m‚…‚˜‚”ƒoƒ“ƒNH 243 ; ; ‚™‚…‚“ 244 S0000C2 21 WITH R1 ; ‚c‚’‚…‚‡©‚q‚P 245 S0000C3 D4 INC R4 246 S0000C4 B4 FROM R4 247 S0000C5 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒNƒZƒbƒg 248 S0000C7 2E 1E MOVE R14,R14 249 DT_UNC1420 250 S0000C9 21 WITH R1 ; ‚c‚’‚…‚‡©‚q‚P 251 S0000CA EF GETB ; ‚q‚P©‚q‚‚ƒoƒbƒtƒ@ 252 S0000CB DE INC R14 253 S0000CC 08 07' BNE DT_UNC1440 ; ‚m‚…‚˜‚”ƒoƒ“ƒNH 254 ; ; ‚™‚…‚“ 255 S0000CE 01 NOP 256 S0000CF D4 INC R4 257 S0000D0 B4 FROM R4 258 S0000D1 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒNƒZƒbƒg 259 S0000D3 2E 1E MOVE R14,R14 260 DT_UNC1440 261 S0000D5 2F 1D MOVE R13,R15 ; ‚f‚r‚tƒvƒƒOƒ‰ƒ€ƒJƒEƒ“ƒ^‚ð‚q‚P‚R‚ɃZƒbƒg 262 ; 263 S0000D7 3D 3A STB (R10) ; ‚b|‚q‚‚‚Öƒf[ƒ^‚ðƒXƒgƒA 264 S0000D9 DA INC R10 265 S0000DA EC DEC R12 266 S0000DB 09 05' BEQ DT_UNC1480 ; ƒf[ƒ^I—¹H 267 ; ; ‚Ž‚ 268 S0000DD B1 FROM R1 269 S0000DE 3D 3A STB (R10) ; ‚b|‚q‚‚‚Öƒf[ƒ^‚ðƒXƒgƒA 270 S0000E0 3C LOOP 271 S0000E1 DA INC R10 272 DT_UNC1480 273 S0000E2 9B JMP R11 ; ‚i‚l‚oi‚c‚sQ‚t‚m‚b‚O‚O‚O{‚Pj 274 S0000E3 EF GETB 275 ; 276 ;************************************************************************ 277 ;* cos data * 278 ;************************************************************************ 279 0000E4 COS EQU $ 280 S0000E4 0100 0100 0100 WORD 00100H,00100H,00100H,000FFH,000FFH,000FEH,000FDH,000FCH S0000EA 00FF 00FF 00FE S0000F0 00FD 00FC 281 S0000F4 00FB 00FA 00F8 WORD 000FBH,000FAH,000F8H,000F7H,000F5H,000F3H,000F1H,000EFH S0000FA 00F7 00F5 00F3 S000100 00F1 00EF 282 S000104 00ED 00EA 00E7 WORD 000EDH,000EAH,000E7H,000E5H,000E2H,000DFH,000DCH,000D8H S00010A 00E5 00E2 00DF S000110 00DC 00D8 283 S000114 00D5 00D1 00CE WORD 000D5H,000D1H,000CEH,000CAH,000C6H,000C2H,000BEH,000B9H S00011A 00CA 00C6 00C2 S000120 00BE 00B9 284 S000124 00B5 00B1 00AC WORD 000B5H,000B1H,000ACH,000A7H,000A2H,0009DH,00098H,00093H S00012A 00A7 00A2 009D S000130 0098 0093 285 S000134 008E 0089 0084 WORD 0008EH,00089H,00084H,0007EH,00079H,00073H,0006DH,00068H S00013A 007E 0079 0073 S000140 006D 0068 286 S000144 0062 005C 0056 WORD 00062H,0005CH,00056H,00050H,0004AH,00044H,0003EH,00038H S00014A 0050 004A 0044 S000150 003E 0038 287 S000154 0032 002C 0026 WORD 00032H,0002CH,00026H,0001FH,00019H,00013H,0000DH,00006H S00015A 001F 0019 0013 S000160 000D 0006 288 ; 289 000164 SIN EQU $ 290 S000164 0000 FFFA FFF3 WORD 00000H,0FFFAH,0FFF3H,0FFEDH,0FFE7H,0FFE1H,0FFDAH,0FFD4H S00016A FFED FFE7 FFE1 S000170 FFDA FFD4 291 S000174 FFCE FFC8 FFC2 WORD 0FFCEH,0FFC8H,0FFC2H,0FFBCH,0FFB6H,0FFB0H,0FFAAH,0FFA4H S00017A FFBC FFB6 FFB0 S000180 FFAA FFA4 292 S000184 FF9E FF98 FF93 WORD 0FF9EH,0FF98H,0FF93H,0FF8DH,0FF87H,0FF82H,0FF7CH,0FF77H S00018A FF8D FF87 FF82 S000190 FF7C FF77 293 S000194 FF72 FF6D FF68 WORD 0FF72H,0FF6DH,0FF68H,0FF63H,0FF5EH,0FF59H,0FF54H,0FF4FH S00019A FF63 FF5E FF59 S0001A0 FF54 FF4F 294 S0001A4 FF4B FF47 FF42 WORD 0FF4BH,0FF47H,0FF42H,0FF3EH,0FF3AH,0FF36H,0FF32H,0FF2FH S0001AA FF3E FF3A FF36 S0001B0 FF32 FF2F 295 S0001B4 FF2B FF28 FF24 WORD 0FF2BH,0FF28H,0FF24H,0FF21H,0FF1EH,0FF1BH,0FF19H,0FF16H S0001BA FF21 FF1E FF1B S0001C0 FF19 FF16 296 S0001C4 FF13 FF11 FF0F WORD 0FF13H,0FF11H,0FF0FH,0FF0DH,0FF0BH,0FF09H,0FF08H,0FF06H S0001CA FF0D FF0B FF09 S0001D0 FF08 FF06 297 S0001D4 FF05 FF04 FF03 WORD 0FF05H,0FF04H,0FF03H,0FF02H,0FF01H,0FF01H,0FF00H,0FF00H S0001DA FF02 FF01 FF01 S0001E0 FF00 FF00 298 S0001E4 FF00 FF00 FF00 WORD 0FF00H,0FF00H,0FF00H,0FF01H,0FF01H,0FF02H,0FF03H,0FF04H S0001EA FF01 FF01 FF02 S0001F0 FF03 FF04 299 S0001F4 FF05 FF06 FF08 WORD 0FF05H,0FF06H,0FF08H,0FF09H,0FF0BH,0FF0DH,0FF0FH,0FF11H S0001FA FF09 FF0B FF0D S000200 FF0F FF11 300 S000204 FF13 FF16 FF19 WORD 0FF13H,0FF16H,0FF19H,0FF1BH,0FF1EH,0FF21H,0FF24H,0FF28H S00020A FF1B FF1E FF21 S000210 FF24 FF28 301 S000214 FF2B FF2F FF32 WORD 0FF2BH,0FF2FH,0FF32H,0FF36H,0FF3AH,0FF3EH,0FF42H,0FF47H S00021A FF36 FF3A FF3E S000220 FF42 FF47 302 S000224 FF4B FF4F FF54 WORD 0FF4BH,0FF4FH,0FF54H,0FF59H,0FF5EH,0FF63H,0FF68H,0FF6DH S00022A FF59 FF5E FF63 S000230 FF68 FF6D 303 S000234 FF72 FF77 FF7C WORD 0FF72H,0FF77H,0FF7CH,0FF82H,0FF87H,0FF8DH,0FF93H,0FF98H S00023A FF82 FF87 FF8D S000240 FF93 FF98 304 S000244 FF9E FFA4 FFAA WORD 0FF9EH,0FFA4H,0FFAAH,0FFB0H,0FFB6H,0FFBCH,0FFC2H,0FFC8H S00024A FFB0 FFB6 FFBC S000250 FFC2 FFC8 305 S000254 FFCE FFD4 FFDA WORD 0FFCEH,0FFD4H,0FFDAH,0FFE1H,0FFE7H,0FFEDH,0FFF3H,0FFFAH S00025A FFE1 FFE7 FFED S000260 FFF3 FFFA 306 S000264 0000 0006 000D WORD 00000H,00006H,0000DH,00013H,00019H,0001FH,00026H,0002CH S00026A 0013 0019 001F S000270 0026 002C 307 S000274 0032 0038 003E WORD 00032H,00038H,0003EH,00044H,0004AH,00050H,00056H,0005CH S00027A 0044 004A 0050 S000280 0056 005C 308 S000284 0062 0068 006D WORD 00062H,00068H,0006DH,00073H,00079H,0007EH,00084H,00089H S00028A 0073 0079 007E S000290 0084 0089 309 S000294 008E 0093 0098 WORD 0008EH,00093H,00098H,0009DH,000A2H,000A7H,000ACH,000B1H S00029A 009D 00A2 00A7 S0002A0 00AC 00B1 310 S0002A4 00B5 00B9 00BE WORD 000B5H,000B9H,000BEH,000C2H,000C6H,000CAH,000CEH,000D1H S0002AA 00C2 00C6 00CA S0002B0 00CE 00D1 311 S0002B4 00D5 00D8 00DC WORD 000D5H,000D8H,000DCH,000DFH,000E2H,000E5H,000E7H,000EAH S0002BA 00DF 00E2 00E5 S0002C0 00E7 00EA 312 S0002C4 00ED 00EF 00F1 WORD 000EDH,000EFH,000F1H,000F3H,000F5H,000F7H,000F8H,000FAH S0002CA 00F3 00F5 00F7 S0002D0 00F8 00FA 313 S0002D4 00FB 00FC 00FD WORD 000FBH,000FCH,000FDH,000FEH,000FFH,000FFH,00100H,00100H S0002DA 00FE 00FF 00FF S0002E0 0100 0100 314 S0002E4 0100 0100 0100 WORD 00100H,00100H,00100H,000FFH,000FFH,000FEH,000FDH,000FCH S0002EA 00FF 00FF 00FE S0002F0 00FD 00FC 315 S0002F4 00FB 00FA 00F8 WORD 000FBH,000FAH,000F8H,000F7H,000F5H,000F3H,000F1H,000EFH S0002FA 00F7 00F5 00F3 S000300 00F1 00EF 316 S000304 00ED 00EA 00E7 WORD 000EDH,000EAH,000E7H,000E5H,000E2H,000DFH,000DCH,000D8H S00030A 00E5 00E2 00DF S000310 00DC 00D8 317 S000314 00D5 00D1 00CE WORD 000D5H,000D1H,000CEH,000CAH,000C6H,000C2H,000BEH,000B9H S00031A 00CA 00C6 00C2 S000320 00BE 00B9 318 S000324 00B5 00B1 00AC WORD 000B5H,000B1H,000ACH,000A7H,000A2H,0009DH,00098H,00093H S00032A 00A7 00A2 009D S000330 0098 0093 319 S000334 008E 0089 0084 WORD 0008EH,00089H,00084H,0007EH,00079H,00073H,0006DH,00068H S00033A 007E 0079 0073 S000340 006D 0068 320 S000344 0062 005C 0056 WORD 00062H,0005CH,00056H,00050H,0004AH,00044H,0003EH,00038H S00034A 0050 004A 0044 S000350 003E 0038 321 S000354 0032 002C 0026 WORD 00032H,0002CH,00026H,0001FH,00019H,00013H,0000DH,00006H S00035A 001F 0019 0013 S000360 000D 0006 322 ; 323 ;************************************************************************ 324 ;* program start ( 32x32 ) * 325 ;* in : (R14) <-- plot mode [ OBJMD73S ] * 326 ;************************************************************************ 327 ; 328 000364 OBJMD73 EQU $ 329 S000364 AE 01 IBT R14,#01H ;plot mode set 330 ; 331 000366 OBJMD73S EQU $ 332 S000366 02 CACHE 333 ; vvv******* warn :value out of range 334 S000367 3D F0 2CB4 LM R0,OCHRADR+2 ;chara data address(B) 335 S00036B 3F DF ROMB 336 ; 337 ;-------------- rotation pos calculate -------------------------- vvv******* warn :value out of range 338 S00036D 3D F6 2CA6 LM R6,OCENTX 339 S000371 B6 FROM R6 ;(R1) <-- CENTX*100H 340 S000372 9E LOB 341 S000373 11 TO R1 342 S000374 4D SWAP 343 S000375 26 WITH R6 344 S000376 4F NOT 345 S000377 D6 INC R6 vvv******* warn :value out of range 346 S000378 3D F3 2CAA LM R3,OMATA ;R3 <-- MATA 347 S00037C B3 FROM R3 348 S00037D 3D 9F LMULT 349 S00037F 24 19 MOVE R9,R4 ;R9 <-- SX*MATA vvv******* warn :value out of range 350 S000381 3D F5 2CAE LM R5,OMATC ;R5 <-- MATC 351 S000385 B5 FROM R5 352 S000386 3D 9F LMULT 353 S000388 24 1A MOVE R10,R4 ;R10 <--- SX*MATC 354 ; vvv******* warn :value out of range 355 S00038A 3D F6 2CA8 LM R6,OCENTY 356 S00038E B6 FROM R6 ;(R2) <-- CENTY*100H 357 S00038F 9E LOB 358 S000390 12 TO R2 359 S000391 4D SWAP 360 S000392 26 WITH R6 361 S000393 4F NOT 362 S000394 D6 INC R6 vvv******* warn :value out of range 363 S000395 3D F0 2CAC LM R0,OMATB 364 S000399 1B TO R11 365 S00039A 96 ASR 366 S00039B 3D 9F LMULT 367 S00039D B4 FROM R4 368 S00039E 59 ADD R9 369 S00039F 51 ADD R1 370 S0003A0 19 TO R9 ;R9 <-- PX 371 S0003A1 5B ADD R11 vvv******* warn :value out of range 372 S0003A2 3D F0 2CB0 LM R0,OMATD 373 S0003A6 1B TO R11 374 S0003A7 96 ASR 375 S0003A8 3D 9F LMULT 376 S0003AA B4 FROM R4 377 S0003AB 5A ADD R10 378 S0003AC 52 ADD R2 379 S0003AD 1A TO R10 ;R10 <-- PY 380 S0003AE 5B ADD R11 381 ; 382 ;-------------- plot intial set --------------------------------- vvv******* warn :value out of range 383 S0003AF 3D F0 2CB2 LM R0,OCHRADR 384 S0003B3 03 LSR ;(C) <-- color mode 385 S0003B4 0C 04' BCC OBM7300 ;high bit color ? ( no:OBM7300 ) 386 S0003B6 50 ADD R0 ;[ ASL ] 387 ; 388 S0003B7 2E WITH R14 389 S0003B8 3E C4 OR #04H 390 OBM7300 391 S0003BA BE FROM R14 392 S0003BB 3D 4E CMODE ;plot mode set 393 S0003BD 20 1B MOVE R11,R0 ;R11 <-- chara data address(L,H) 394 ; vvv******* warn :value out of range 395 S0003BF 3D F6 2CB6 LM R6,OBUFXPS ;R6 <-- plot start X pos set vvv******* warn :value out of range 396 S0003C3 3D F2 2CB8 LM R2,OBUFYPS ;R2 <-- " Y " 397 S0003C7 FD 03D8' IWT R13,#OBM7320 398 ; 399 S0003CA A4 20 IBT R4,#32 ;R4 <-- Y loop set 400 OBM7310 401 S0003CC 26 11 MOVE R1,R6 ;R1 <-- plot start X pos set 402 S0003CE B3 FROM R3 403 S0003CF 96 ASR 404 S0003D0 18 TO R8 ;R8 <-- PX 405 S0003D1 59 ADD R9 406 S0003D2 B5 FROM R5 407 S0003D3 96 ASR 408 S0003D4 17 TO R7 ;R7 <-- PY 409 S0003D5 5A ADD R10 410 S0003D6 AC 20 IBT R12,#32 ;X loop set 411 OBM7320 412 S0003D8 70 MERGE 413 S0003D9 0C 09' BCC OBM7330 ;area over ? ( no:OBM7330 ) 414 S0003DB 1E TO R14 415 ; 416 S0003DC 28 WITH R8 417 S0003DD 53 ADD R3 418 S0003DE 27 WITH R7 419 S0003DF 55 ADD R5 420 S0003E0 60 SUB R0 ;[ IBT R0,#00 ] 421 S0003E1 05 07' BRA OBM7340 422 S0003E3 4E COLOUR ;color set 423 ; 424 OBM7330 425 S0003E4 5B ADD R11 426 ; 427 S0003E5 28 WITH R8 428 S0003E6 53 ADD R3 429 S0003E7 27 WITH R7 430 S0003E8 55 ADD R5 431 S0003E9 DF GETC ;color set 432 OBM7340 433 S0003EA 3C LOOP 434 S0003EB 4C PLOT ;pset 435 ; vvv******* warn :value out of range 436 S0003EC 3D F0 2CAC LM R0,OMATB 437 S0003F0 19 TO R9 438 S0003F1 59 ADD R9 vvv******* warn :value out of range 439 S0003F2 3D F0 2CB0 LM R0,OMATD 440 S0003F6 1A TO R10 441 S0003F7 5A ADD R10 442 S0003F8 E4 DEC R4 443 S0003F9 08 D1' BNE OBM7310 ;end ? ( no:OBM7310 ) 444 S0003FB D2 INC R2 ;Y pos +1 445 ; 446 S0003FC 00 STOP 447 S0003FD 01 NOP 448 ; 449 ;************************************************************************ 450 ;* normal OAM clear * 451 ;************************************************************************ 452 ; 453 0003FE OAM_CLR EQU $ 454 S0003FE 02 CACHE 455 ; 456 S0003FF A0 F0 IBT R0,#0F0H ;(R0) <-- normal OAM clear Y pos data vvv******* warn :value out of range 457 S000401 F1 1FFD IWT R1,#OAM-4+1 ;(R1) <-- " address 458 S000404 A2 04 IBT R2,#4 ;(R2) <-- " add data 459 S000406 FC 0080 IWT R12,#080H ;(R12) <-- loop no 460 S000409 2F 1D MOVE R13,R15 461 OAMCL010 462 S00040B 21 WITH R1 463 S00040C 52 ADD R2 464 S00040D 3C LOOP 465 S00040E 31 STW (R1) 466 ; 467 S00040F 00 STOP 468 S000410 01 NOP 469 ; 470 ;************************************************************************ 471 ;* OAMCHG2 * 472 ;************************************************************************ 473 000411 OAMCHG2 EQU $ 474 S000411 02 CACHE 475 ; vvv******* warn :value out of range 476 S000412 FA 229F IWT R10,#OAMSB+80H-1 ;R10 <-- COAM index vvv******* warn :value out of range 477 S000415 F8 221F IWT R8,#OAMSUB+20H-1 ;R8 <-- COAM sub index 478 S000418 AC 20 IBT R12,#20H ;COAM sub loop set 479 S00041A 2F 1D MOVE R13,R15 480 OACG10 481 S00041C 3D 4A LDB (R10) 482 S00041E EA DEC R10 483 S00041F 50 ADD R0 ;[ ASL ] 484 S000420 50 ADD R0 ;[ ASL ] 485 S000421 11 TO R1 486 S000422 3D 4A LDB (R10) 487 S000424 C1 OR R1 488 S000425 EA DEC R10 489 S000426 50 ADD R0 ;[ ASL ] 490 S000427 50 ADD R0 ;[ ASL ] 491 S000428 11 TO R1 492 S000429 3D 4A LDB (R10) 493 S00042B C1 OR R1 494 S00042C EA DEC R10 495 S00042D 50 ADD R0 ;[ ASL ] 496 S00042E 50 ADD R0 ;[ ASL ] 497 S00042F 11 TO R1 498 S000430 3D 4A LDB (R10) 499 S000432 C1 OR R1 500 S000433 EA DEC R10 501 ; 502 S000434 3D 38 STB (R8) 503 S000436 3C LOOP 504 S000437 E8 DEC R8 505 ; 506 S000438 00 STOP 507 S000439 01 NOP 508 ; 509 ;************************************************************************ 510 ;* map bitmap buffer clear * 511 ;************************************************************************ 512 ; 513 00043A MPBFCLR EQU $ vvv******* warn :value out of range 514 S00043A F1 2C00 IWT R1,#MPBITMAP ;(R1) <-- map bitmap buffer 515 S00043D A0 00 IBT R0,#0 516 S00043F FC 2300 IWT R12,#4600H/2 517 ; 518 S000442 02 CACHE 519 ; 520 S000443 2F 1D MOVE R13,R15 521 MPBCL010 522 S000445 31 STW (R1) 523 S000446 D1 INC R1 524 S000447 3C LOOP 525 S000448 D1 INC R1 526 ; 527 S000449 00 STOP 528 S00044A 01 NOP 529 ; 530 ;************************************************************************ 531 ;* map bitmap buffer convert * 532 ;* in : (R0) <-- convert status data address(B) * 533 ;* (R14) <-- " (L,H)* 534 ;************************************************************************ 535 ; 536 00044B MPBFCNV EQU $ 537 S00044B 3F DF ROMB ;convert status data address(B) set 538 S00044D 2E 1E MOVE R14,R14 ; " (L,H) set 539 ; 540 S00044F F8 0260 IWT R8,#280H-20H ;(R8) <-- convert address change data 541 S000452 A9 10 IBT R9,#10H ;(R9) <-- 1 chara loop no vvv******* warn :value out of range 542 S000454 FA 7200 IWT R10,#MPCNVBF ;(R10) <-- convert data set buffer 543 S000457 FD 046B' IWT R13,#MPBCV030 544 ; 545 S00045A 02 CACHE 546 ; 547 MPBCV010 548 S00045B EF GETB 549 S00045C DE INC R14 550 S00045D 20 11 MOVE R1,R0 ;(R1) <-- up convert bitmap buffer pointer 551 S00045F 03 LSR 552 S000460 0D 1A' BCS MPBCV040 ;end ? ( yes:MPBCV040 ) 553 S000462 21 WITH R1 554 ; 555 S000463 3D EF GETBH 556 S000465 DE INC R14 557 ; 558 S000466 12 TO R2 ;(R2) <-- number of chara 559 S000467 EF GETB 560 S000468 DE INC R14 561 ; 562 MPBCV020 563 S000469 29 1C MOVE R12,R9 564 MPBCV030 565 S00046B 41 LDW (R1) 566 S00046C 3A STW (R10) 567 S00046D D1 INC R1 568 S00046E D1 INC R1 569 S00046F DA INC R10 570 S000470 3C LOOP 571 S000471 DA INC R10 572 ; 573 S000472 21 WITH R1 574 S000473 58 ADD R8 575 ; 576 S000474 E2 DEC R2 577 S000475 08 F3' BNE MPBCV020+1 578 S000477 29 1C MOVE R12,R9 ;[ dummy ] 579 ; 580 S000479 05 E1' BRA MPBCV010+1 581 S00047B EF GETB ;[ dummy ] 582 ; 583 MPBCV040 584 S00047C 00 STOP 585 S00047D 01 NOP 586 ; 587 ;************************************************************************ 588 ;* map mode 7 pars data set * 589 ;************************************************************************ 590 ; 591 00047E MPPARSST EQU $ 592 ; 593 ;---------------------------------------------------------------- 594 ;- cos & sin data get - 595 ;---------------------------------------------------------------- 596 S00047E A0 00' IBT R0,#BANK COS 597 S000480 3F DF ROMB 598 ; 599 S000482 3D F0 06E0 LM R0,CMPANGLE 600 S000486 1B TO R11 ;(R11) <-- angle 601 S000487 50 ADD R0 602 ; 603 S000488 F0 00E4' IWT R0,#COS 604 S00048B 1E TO R14 605 S00048C 5B ADD R11 606 S00048D EF GETB 607 S00048E DE INC R14 608 S00048F F6 00E8 IWT R6,#0E8H ;(R6) <-- mode 7 screen zoom flag set 609 S000492 3D EF GETBH 610 S000494 3D 9F LMULT 611 S000496 9E LOB 612 S000497 4D SWAP 613 S000498 24 WITH R4 614 S000499 C0 HIB 615 S00049A 11 TO R1 ;(R1) <-- cos data 616 S00049B C4 OR R4 617 ; 618 S00049C F0 0164' IWT R0,#SIN 619 S00049F 1E TO R14 620 S0004A0 5B ADD R11 621 S0004A1 EF GETB 622 S0004A2 DE INC R14 623 S0004A3 3D EF GETBH 624 S0004A5 3D 9F LMULT 625 S0004A7 9E LOB 626 S0004A8 4D SWAP 627 S0004A9 24 WITH R4 628 S0004AA C0 HIB 629 S0004AB 12 TO R2 ;(R2) <-- sin data 630 S0004AC C4 OR R4 631 ; 632 ;---------------------------------------------------------------- 633 ;- mode 7 pars data calculate set - 634 ;---------------------------------------------------------------- 635 MPWT0000 636 S0004AD A0 00' IBT R0,#BANK PARSDT 637 S0004AF 3F DF ROMB 638 S0004B1 FE 0D4A' IWT R14,#PARSDT ;(R14) <-- pars data address 639 ; 640 S0004B4 F7 0212 IWT R7,#CMPHDMAB0-2 ;(R7) <-- X cos,sin data set RAM pointer 641 S0004B7 F8 03D0 IWT R8,#CMPHDMAB2-4 ;(R8) <-- Y -sin,cos " 642 S0004BA A9 06 IBT R9,#6 ;(R9) <-- " pointer add data 643 S0004BC FB 0300 IWT R11,#PARSY ;(R11) <-- Y zoom data 644 ; 645 S0004BF AC 70 IBT R12,#70H 646 ; 647 S0004C1 02 CACHE 648 ; 649 S0004C2 2F 1D MOVE R13,R15 650 MPWT0002 651 S0004C4 EF GETB 652 S0004C5 DE INC R14 653 S0004C6 D7 INC R7 ;X cos data set RAM pointer up !! 654 S0004C7 D7 INC R7 655 S0004C8 28 WITH R8 656 S0004C9 59 ADD R9 657 S0004CA 21 16 MOVE R6,R1 ;(R6) <-- cos data 658 S0004CC 3D EF GETBH 659 S0004CE DE INC R14 660 S0004CF 20 15 MOVE R5,R0 ;(R5) <-- pars data 661 ; 662 S0004D1 3D 9F LMULT ;data x cos 663 S0004D3 9E LOB 664 S0004D4 4D SWAP 665 S0004D5 24 WITH R4 666 S0004D6 C0 HIB 667 S0004D7 C4 OR R4 668 S0004D8 37 STW (R7) ;X cos data set 669 S0004D9 D7 INC R7 670 S0004DA D7 INC R7 671 ; 672 S0004DB 2B 16 MOVE R6,R11 673 S0004DD 3D 9F LMULT 674 S0004DF 9E LOB 675 S0004E0 4D SWAP 676 S0004E1 24 WITH R4 677 S0004E2 C0 HIB 678 S0004E3 C4 OR R4 679 S0004E4 38 STW (R8) ;Y cos data set 680 ; 681 S0004E5 25 10 MOVE R0,R5 ;(R0) <-- pars data 682 S0004E7 22 16 MOVE R6,R2 ;(R6) <-- sin data 683 S0004E9 3D 9F LMULT ;data x cos 684 S0004EB 9E LOB 685 S0004EC 4D SWAP 686 S0004ED 24 WITH R4 687 S0004EE C0 HIB 688 S0004EF C4 OR R4 689 S0004F0 20 16 MOVE R6,R0 ;(R6) <-- X sin data 690 ; 691 S0004F2 4F NOT 692 S0004F3 D0 INC R0 693 S0004F4 E8 DEC R8 694 S0004F5 E8 DEC R8 695 S0004F6 38 STW (R8) ;Y -sin data set 696 ; 697 S0004F7 BB FROM R11 698 S0004F8 3D 9F LMULT 699 S0004FA 9E LOB 700 S0004FB 4D SWAP 701 S0004FC 24 WITH R4 702 S0004FD C0 HIB 703 S0004FE C4 OR R4 704 S0004FF 3C LOOP 705 S000500 37 STW (R7) ;-sin data set 706 ; 707 S000501 00 STOP 708 S000502 01 NOP 709 ; 710 ;************************************************************************ 711 ;* map bitmap plot * 712 ;************************************************************************ 713 ; 714 ;-------------- map OBJ name -------------------------------------------- 715 000001 YAMA_H EQU 01H 716 000002 YAMA_M EQU 02H 717 000003 YAMA_L EQU 03H 718 000004 TOWER_T EQU 04H 719 000005 TOWER_G EQU 05H 720 000006 KAZAN EQU 06H 721 000007 SML_YAMA EQU 07H 722 000008 DAI EQU 08H 723 000009 SML_TOWER EQU 09H 724 00000A WID_TOWER EQU 0AH 725 00000B MIN_YAMA EQU 0BH 726 00000C SAKU EQU 0CH 727 00000D YANE EQU 0DH 728 00000E HOLL EQU 0EH 729 00000F TREE_1 EQU 0FH 730 000010 TREE_2 EQU 10H 731 000011 TREE_3 EQU 11H 732 000012 TREE_4 EQU 12H 733 000013 TREE_5 EQU 13H 734 000014 IWA EQU 14H 735 000015 KUMO EQU 15H 736 000016 LAPUTA EQU 16H 737 000017 KEBLE EQU 17H 738 000018 KUSA EQU 18H 739 000019 FLOWER EQU 19H 740 00001A ISHI EQU 1AH 741 00001B LOPE EQU 1BH 742 00001C SMOKE_1 EQU 1CH 743 00001D SMOKE_2 EQU 1DH 744 00001E SMOKE_3 EQU 1EH 745 00001F SMOKE_4 EQU 1FH 746 000020 SMOKE_5 EQU 20H 747 000021 SMOKE_6 EQU 21H 748 000022 SMOKE_7 EQU 22H 749 000023 KAMO_1 EQU 23H 750 000024 KAMO_2 EQU 24H 751 000025 KAMO_3 EQU 25H 752 000026 KAMO_4 EQU 26H 753 000027 KAMO_5 EQU 27H 754 000028 KAMO_6 EQU 28H 755 000029 KAMO_7 EQU 29H 756 00002A KAMO_8 EQU 2AH 757 00002B PLAYER_01 EQU 2BH 758 00002C PLAYER_02 EQU 2CH 759 00002D PLAYER_03 EQU 2DH 760 00002E PLAYER_04 EQU 2EH 761 00002F PLAYER_05 EQU 2FH 762 000030 PLAYER_06 EQU 30H 763 000031 PLAYER_07 EQU 31H 764 000032 PLAYER_08 EQU 32H 765 000033 PLAYER_09 EQU 33H 766 000034 PLAYER_10 EQU 34H 767 000035 PLAYER_11 EQU 35H 768 000036 PLAYER_12 EQU 36H 769 000037 PLAYER_13 EQU 37H 770 000038 PLAYER_14 EQU 38H 771 000039 PLAYER_15 EQU 39H 772 00003A PLAYER_16 EQU 3AH 773 00003B PLAYER_17 EQU 3BH 774 00003C PLAYER_18 EQU 3CH 775 00003D PLAYER_19 EQU 3DH 776 00003E PLAYER_20 EQU 3EH 777 00003F PLAYER_21 EQU 3FH 778 000040 PLAYER_22 EQU 40H 779 000041 PLAYER_23 EQU 41H 780 000042 PLAYER_24 EQU 42H 781 000043 PLAYER_25 EQU 43H 782 000044 PLAYER_26 EQU 44H 783 000045 PLAYER_27 EQU 45H 784 000046 PLAYER_28 EQU 46H 785 000047 PLAYER_29 EQU 47H 786 000048 PLAYER_30 EQU 48H 787 000049 PLAYER_31 EQU 49H 788 00004A PLAYER_32 EQU 4AH 789 00004B PLAYER_33 EQU 4BH 790 00004C PLAYER_34 EQU 4CH 791 00004D PLAYER_35 EQU 4DH 792 00004E PLAYER_36 EQU 4EH 793 00004F PLAYER_37 EQU 4FH 794 000050 PLAYER_38 EQU 50H 795 000051 PLAYER_39 EQU 51H 796 000052 PLAYER_40 EQU 52H 797 000053 PLAYER_41 EQU 53H 798 000054 PLAYER_42 EQU 54H 799 000055 PLAYER_43 EQU 55H 800 000056 PLAYER_44 EQU 56H 801 000057 PLAYER_45 EQU 57H 802 000058 PLAYER_46 EQU 58H 803 000059 PLAYER_47 EQU 59H 804 00005A PLAYER_48 EQU 5AH 805 00005B AYASHI_H EQU 5BH 806 00005C AYASHI_L EQU 5CH 807 00005D AYASHI_2 EQU 5DH 808 00005E BIG_KINOKO EQU 5EH 809 00005F SML_KINOKO EQU 5FH 810 000060 ZENMAI EQU 60H 811 000061 BIG_CRYSTL EQU 61H 812 000062 SML_CRYSTL EQU 62H 813 000063 ISHI_T_1 EQU 63H 814 000064 ISHI_T_2 EQU 64H 815 000065 MIN_TOWER EQU 65H 816 000066 KINOKO_2 EQU 66H 817 000067 KINOKO_3 EQU 67H 818 000068 KINOKO_4 EQU 68H 819 000069 KINOKO_6 EQU 69H 820 00006A KINOKO_7 EQU 6AH 821 00006B HOLL_MASK EQU 6BH 822 00008C AYA_WOD_L EQU 8CH 823 00008D AYA_WOD_S EQU 8DH 824 00008E IWA_L EQU 8EH 825 00008F IWA_S EQU 8FH 826 000070 J_TOWR_L EQU 70H 827 000071 J_TOWR_S EQU 71H 828 000072 GY_TOWR EQU 72H 829 000073 KUPA_TOWR EQU 73H 830 000074 BOOM_1 EQU 74H 831 000075 BOOM_2 EQU 75H 832 000076 BOOM_3 EQU 76H 833 000077 BOOM_4 EQU 77H 834 000078 BOOM_5 EQU 78H 835 000079 BOOM_6 EQU 79H 836 00007A BOOM_7 EQU 7AH 837 00007B BOOM_8 EQU 7BH 838 00007C BOOM_9 EQU 7CH 839 00007D BOOM_A EQU 7DH 840 00007E HATA_01 EQU 7EH 841 00007F HATA_02 EQU 7FH 842 000080 HATA_03 EQU 80H 843 000081 HATA_04 EQU 81H 844 000082 HATA_05 EQU 82H 845 000083 HATA_06 EQU 83H 846 000084 HATA_07 EQU 84H 847 000085 HATA_08 EQU 85H 848 000086 HATA_09 EQU 86H 849 000087 HATA_0A EQU 87H 850 000088 HATA_0B EQU 88H 851 000089 HATA_0C EQU 89H 852 00008A BRK_LPUT EQU 8AH 853 00008B YS_FRSH0 EQU 8BH 854 00008C YS_FRSH1 EQU 8CH 855 00008D YS_FRSH2 EQU 8DH 856 00008E YS_FRSH3 EQU 8EH 857 00008F YS_FRSH4 EQU 8FH 858 ; 859 ; 860 000503 MPWRITE EQU $ 861 ; 862 ;---------------------------------------------------------------- 863 ;- cos & sin data get - 864 ;---------------------------------------------------------------- 865 S000503 A0 00' IBT R0,#BANK COS 866 S000505 3F DF ROMB 867 ; 868 S000507 3D F0 06E0 LM R0,CMPANGLE 869 S00050B 1B TO R11 ;(R11) <-- angle 870 S00050C 50 ADD R0 871 ; 872 S00050D F0 00E4' IWT R0,#COS 873 S000510 1E TO R14 874 S000511 5B ADD R11 875 S000512 EF GETB 876 S000513 DE INC R14 877 S000514 3D EF GETBH 878 S000516 20 11 MOVE R1,R0 ;(R1) <-- cos data 879 ; 880 S000518 F0 0164' IWT R0,#SIN 881 S00051B 1E TO R14 882 S00051C 5B ADD R11 883 S00051D EF GETB 884 S00051E DE INC R14 885 S00051F 3D EF GETBH 886 S000521 20 12 MOVE R2,R0 ;(R2) <-- sin data 887 ; 888 ;---------------------------------------------------------------- 889 ;- 2D convert position calculate - 890 ;---------------------------------------------------------------- 891 S000523 A0 00' IBT R0,#BANK PARSDV 892 S000525 3F DF ROMB 893 ; 894 S000527 F9 06EB IWT R9,#CMPOBJXPS ;(R9) <-- point data pointer 895 S00052A FA 0982 IWT R10,#CMPWOBJXPS ;(R10) <-- 2D convert X,Y pos data pointer 896 S00052D FB 0C1A IWT R11,#CMPWOBJZPS ;(R11) <-- " Z " 897 ; 898 S000530 3D FC 06E8 LM R12,CMPOBJSTN ;(R12) <-- number of point 899 ; 900 S000534 02 CACHE 901 ; 902 S000535 2F 1D MOVE R13,R15 ;(R13) <-- loop address 903 MPWT0010 904 ; 905 ;-------------- position rotation ----------------------- 906 S000537 21 16 MOVE R6,R1 ;(R6) <-- cos data 907 ; 908 S000539 3D 49 LDB (R9) 909 S00053B 95 SEX 910 S00053C D9 INC R9 911 S00053D 20 15 MOVE R5,R0 ;(R5) <-- X pos 912 S00053F 3D 9F LMULT 913 S000541 24 17 MOVE R7,R4 ;(R7) <-- (X * cos) 914 S000543 3D 49 LDB (R9) 915 S000545 95 SEX 916 S000546 20 13 MOVE R3,R0 ;(R3) <-- Z pos 917 S000548 3D 9F LMULT 918 S00054A 24 18 MOVE R8,R4 ;(R8) <-- (Z * cos) 919 ; 920 S00054C 22 16 MOVE R6,R2 ;(R6) <-- sin data 921 ; 922 S00054E B3 FROM R3 923 S00054F 3D 9F LMULT ;(R4) <-- (Z * sin) 924 S000551 B4 FROM R4 925 S000552 57 ADD R7 ;(R0) <-- (X * cos) + (Z * sin) 926 S000553 FE 0080 IWT R14,#080H 927 S000556 5E ADD R14 928 S000557 4D SWAP 929 S000558 13 TO R3 ;(R3) <-- rotation X pos 930 S000559 95 SEX 931 ; 932 S00055A B5 FROM R5 933 S00055B 3D 9F LMULT ;(R4) <-- (X * sin) 934 S00055D B8 FROM R8 935 S00055E 64 SUB R4 ;(R0) <-- (Z * cos) - (X * sin) 936 S00055F 5E ADD R14 937 S000560 4D SWAP 938 S000561 95 SEX 939 S000562 F5 0080 IWT R5,#CENTZ 940 S000565 55 ADD R5 941 S000566 3D 3B STB (R11) ;rotation Z pos set 942 ; 943 ;-------------- 2D pos calculate ------------------------ 944 S000568 50 ADD R0 945 S000569 FE 0E2A' IWT R14,#PARSDV 946 S00056C 1E TO R14 ;(R14) <-- pars div data address 947 S00056D 5E ADD R14 948 ; 949 S00056E D9 INC R9 950 S00056F 3D 49 LDB (R9) 951 S000571 17 TO R7 ;(R7) <-- Y pos 952 S000572 95 SEX 953 S000573 0A 05' BPL MPWT0011 ;chika ? ( no:MPWT0011 ) 954 S000575 D9 INC R9 955 ; 956 ;-------------- chika Z pos change !! ----------- 957 S000576 B7 FROM R7 958 S000577 3D 3B STB (R11) 959 S000579 D7 INC R7 ;[ 0000- <-- FFFF- ] 960 MPWT0011 961 S00057A D9 INC R9 962 ; 963 S00057B 16 TO R6 ;(R6) <-- pars div data 964 S00057C EF GETB 965 S00057D DE INC R14 966 ; 967 S00057E 3D F0 06E8 LM R0,CMPOBJSTN 968 S000582 6C SUB R12 969 S000583 DB INC R11 970 S000584 3D 3B STB (R11) ;Z pos sort index set 971 S000586 DB INC R11 972 ; 973 S000587 26 WITH R6 974 S000588 3D EF GETBH 975 ; 976 S00058A B3 FROM R3 977 S00058B 9E LOB 978 S00058C 4D SWAP 979 S00058D 9F FMULT 980 S00058E A4 20 IBT R4,#20H 981 S000590 54 ADD R4 982 S000591 50 ADD R0 ;[ ASL ] 983 S000592 50 ADD R0 ;[ ASL ] 984 S000593 4D SWAP 985 S000594 95 SEX 986 S000595 A4 70 IBT R4,#MPCENTX 987 S000597 54 ADD R4 988 S000598 3D 3A STB (R10) ;2D convert X pos set 989 S00059A DA INC R10 990 ; 991 S00059B F0 01B9 IWT R0,#PARSYP 992 S00059E 50 ADD R0 ;[ ASL ] 993 S00059F 50 ADD R0 ;[ ASL ] 994 S0005A0 9F FMULT 995 S0005A1 F4 FEC0 IWT R4,#MPCENTY 996 S0005A4 3D 54 ADC R4 997 S0005A6 67 SUB R7 998 S0005A7 3D 3A STB (R10) ;2D convert Y pos set 999 S0005A9 DA INC R10 1000 ; 1001 S0005AA DA INC R10 1002 S0005AB 3C LOOP 1003 S0005AC DA INC R10 1004 ; 1005 ;-------------- Z pos sort -------------------------------------- 1006 S0005AD FB 0594 IWT R11,#CMPWORK ;(R11) <-- stack pointer 1007 S0005B0 2B 1C MOVE R12,R11 ;(R12) <-- search end check data 1008 S0005B2 F1 0C1A IWT R1,#CMPWOBJZPS ;(R1) <-- check start pointer 1009 S0005B5 3D F0 06E8 LM R0,CMPOBJSTN 1010 S0005B9 E0 DEC R0 ;[-1] 1011 S0005BA 50 ADD R0 ;[x2] 1012 S0005BB 12 TO R2 ;(R2) <-- " end " 1013 S0005BC 51 ADD R1 1014 ; 1015 S0005BD 3D 41 LDB (R1) ;player Z pos 1016 S0005BF E0 DEC R0 1017 S0005C0 90 SBK 1018 MPWT0012 1019 S0005C1 21 13 MOVE R3,R1 ;(R3) <-- (R1) 1020 S0005C3 22 14 MOVE R4,R2 ;(R4) <-- (R2) 1021 S0005C5 B1 FROM R1 1022 S0005C6 52 ADD R2 1023 S0005C7 03 LSR 1024 S0005C8 03 LSR 1025 S0005C9 50 ADD R0 1026 S0005CA 15 TO R5 ;(R5) <-- search data 1027 S0005CB 3D 40 LDB (R0) 1028 ; 1029 ;-------------- max search ------------------------------ 1030 MPWT0014 1031 S0005CD 17 TO R7 ;(R7) <-- max search data 1032 S0005CE 3D 43 LDB (R3) 1033 S0005D0 B5 FROM R5 1034 S0005D1 67 SUB R7 1035 S0005D2 0D 0A' BCS MPWT0030 ;max search end ? ( yes:MPWT0030 ) 1036 S0005D4 D3 INC R3 1037 ; 1038 MPWT0020 1039 S0005D5 D3 INC R3 1040 S0005D6 17 TO R7 ;(R7) <-- max search data 1041 S0005D7 3D 43 LDB (R3) 1042 S0005D9 B5 FROM R5 1043 S0005DA 67 SUB R7 1044 S0005DB 0C F8' BCC MPWT0020 ;max search end ? ( no:MPWT0020 ) 1045 S0005DD D3 INC R3 1046 ; 1047 MPWT0030 1048 S0005DE E3 DEC R3 1049 ; 1050 ;-------------- min serach ------------------------------ 1051 S0005DF 3D 44 LDB (R4) 1052 S0005E1 65 SUB R5 1053 S0005E2 0D 09' BCS MPWT0050 ;min search end ? ( yes:MPWT0050 ) 1054 S0005E4 55 ADD R5 1055 ; 1056 MPWT0040 1057 S0005E5 E4 DEC R4 1058 S0005E6 E4 DEC R4 1059 S0005E7 3D 44 LDB (R4) 1060 S0005E9 65 SUB R5 1061 S0005EA 0C F9' BCC MPWT0040 ;min search end ? ( no:MPWT0040 ) 1062 S0005EC 55 ADD R5 1063 ; 1064 MPWT0050 1065 S0005ED 20 16 MOVE R6,R0 ;(R6) <-- min search data 1066 ; 1067 ;-------------- data change check ----------------------- 1068 S0005EF B4 FROM R4 1069 S0005F0 63 SUB R3 1070 S0005F1 0C 1A' BCC MPWT0062 ;data change ? ( no:MPWT0062 ) 1071 S0005F3 B7 FROM R7 1072 ; 1073 S0005F4 3D 34 STB (R4) 1074 S0005F6 B6 FROM R6 1075 S0005F7 3D 33 STB (R3) 1076 S0005F9 D3 INC R3 1077 S0005FA D4 INC R4 1078 S0005FB 18 TO R8 1079 S0005FC 3D 44 LDB (R4) 1080 S0005FE 3D 43 LDB (R3) 1081 S000600 3D 34 STB (R4) 1082 S000602 B8 FROM R8 1083 S000603 3D 33 STB (R3) 1084 ; 1085 S000605 D3 INC R3 1086 S000606 E4 DEC R4 1087 S000607 E4 DEC R4 1088 S000608 E4 DEC R4 1089 ; 1090 MPWT0060 1091 S000609 B4 FROM R4 1092 S00060A 63 SUB R3 1093 S00060B 0D C0' BCS MPWT0014 ;next data change check ? ( yes:MPWT0014 ) 1094 MPWT0062 1095 S00060D B1 FROM R1 1096 ; 1097 ;-------------- data serach stack set check ------------- 1098 S00060E 64 SUB R4 1099 S00060F 0D 08' BCS MPWT0070 ;stack set ? ( no:MPWT0070 ) 1100 S000611 B1 FROM R1 1101 ; 1102 S000612 3B STW (R11) 1103 S000613 DB INC R11 1104 S000614 DB INC R11 1105 S000615 B4 FROM R4 1106 S000616 3B STW (R11) 1107 S000617 DB INC R11 1108 S000618 DB INC R11 1109 ; 1110 MPWT0070 1111 S000619 B3 FROM R3 1112 S00061A 62 SUB R2 1113 S00061B 0D 08' BCS MPWT0080 ;stack set ? ( no:MPWT0080 ) 1114 S00061D B3 FROM R3 1115 ; 1116 S00061E 3B STW (R11) 1117 S00061F DB INC R11 1118 S000620 DB INC R11 1119 S000621 B2 FROM R2 1120 S000622 3B STW (R11) 1121 S000623 DB INC R11 1122 S000624 DB INC R11 1123 MPWT0080 1124 S000625 EB DEC R11 1125 S000626 BB FROM R11 1126 S000627 6C SUB R12 1127 S000628 0C 0B' BCC MPWT0090 ;sort end ? ( yes:MPWT0090 ) 1128 S00062A EB DEC R11 1129 ; 1130 S00062B 12 TO R2 ;(R1) <-- check start pointer 1131 S00062C 4B LDW (R11) 1132 S00062D EB DEC R11 1133 S00062E EB DEC R11 1134 S00062F 11 TO R1 ;(R2) <-- " end " 1135 S000630 4B LDW (R11) 1136 S000631 05 8F' BRA MPWT0012+1 1137 S000633 21 13 MOVE R3,R1 ;[ dummy ] 1138 ; 1139 ;-------------- map OBJ write ----------------------------------- 1140 MPWT0090 1141 ; 1142 ; 93/07/26 angle roation delete ( then (R10) free !! ) 1143 ; 1144 S000635 FB 0C1B IWT R11,#CMPSORTIDX ;(R11) <-- Z pos sort index pointer 1145 ; 1146 S000638 3D FC 06E8 LM R12,CMPOBJSTN ;number of point 1147 ; 1148 S00063C 02 CACHE 1149 ; 1150 S00063D 2F 1D MOVE R13,R15 1151 MPWT0100 1152 S00063F A0 00' IBT R0,#BANK MPOBJDIN 1153 S000641 3F DF ROMB 1154 ; 1155 S000643 3D 4B LDB (R11) 1156 S000645 50 ADD R0 ;x4 1157 S000646 50 ADD R0 ; 1158 S000647 F1 0982 IWT R1,#CMPWOBJXPS 1159 S00064A 11 TO R1 ;(R1) <-- map OBJ 2D pos pointer 1160 S00064B 51 ADD R1 1161 S00064C F2 06EA IWT R2,#CMPOBJTYP 1162 S00064F 52 ADD R2 ;(R0) <-- map OBJ type no. pointer 1163 S000650 3D 40 LDB (R0) 1164 S000652 E0 DEC R0 1165 S000653 0A 05' BPL MPWT0102 ;set ok OBJ ? ( yes:MPWT0102 ) 1166 S000655 50 ADD R0 ;x2 1167 ; 1168 S000656 FF 0732' IWT R15,#MPWT0140+1 ;[ JMP MPWT0140+1 ] 1169 S000659 DB INC R11 ;[ dummy ] 1170 ; 1171 ;-------------- OBJ set --------------------------------- 1172 MPWT0102 1173 S00065A FE 07FF' IWT R14,#MPOBJDIN 1174 S00065D 1E TO R14 ;(R14) <-- map OBJ status data index address 1175 S00065E 5E ADD R14 1176 S00065F EF GETB 1177 S000660 DE INC R14 1178 ; 1179 S000661 3E AB 2B SMS R11,REG11 ;(R11) save 1180 S000664 3E AC 2C SMS R12,REG12 ;(R12) save 1181 ; 1182 S000667 F7 0080 IWT R7,#080H ;(R7) <-- chara Y wide buffer 1183 ; 1184 S00066A 3D EF GETBH 1185 ; 1186 S00066C 20 1E MOVE R14,R0 ;(R14) <-- map OBJ status data address 1187 ; 1188 S00066E 1B TO R11 ;(R11) <-- 2D X pos 1189 S00066F 3D 41 LDB (R1) 1190 S000671 D1 INC R1 1191 S000672 12 TO R2 ;(R2) <-- 2D Y pos 1192 S000673 3D 41 LDB (R1) 1193 ; 1194 S000675 EF GETB 1195 S000676 DE INC R14 1196 S000677 90 SBK ;(CMPWOBJYPS) <-- player VS cross check R set 1197 S000678 D1 INC R1 1198 ; 1199 S000679 41 LDW (R1) 1200 S00067A 03 LSR 1201 S00067B 08 07' BNE MPWT0104 ;zoom size ok ? ( yes:MPWT0104 ) 1202 S00067D 16 TO R6 ;(R6) <-- zoom size 1203 ; 1204 S00067E FF 072B' IWT R15,#MPWT0134 ;[ JMP MPWT0134 ] 1205 S000681 3D AB 2B LMS R11,REG11 ;[ dummy ] 1206 ; 1207 MPWT0104 1208 S000684 04 ROL 1209 S000685 EF GETB ;(R0) <-- to center Y wide 1210 S000686 DE INC R14 1211 S000687 4D SWAP 1212 S000688 9F FMULT 1213 S000689 12 TO R2 ;(R2) <-- plot start Y pos 1214 S00068A 3D 52 ADC R2 1215 ; vvv******* warn :value out of range 1216 S00068C F0 24A0 IWT R0,#DIVBUF 1217 S00068F 56 ADD R6 1218 S000690 56 ADD R6 1219 S000691 15 TO R5 ;(R5) <-- chara plot step 1220 S000692 40 LDW (R0) 1221 ; 1222 S000693 EF GETB 1223 S000694 DE INC R14 1224 S000695 13 TO R3 ;(R3) <-- chara X wide 1225 S000696 4D SWAP 1226 S000697 23 WITH R3 1227 S000698 C7 OR R7 1228 ; 1229 S000699 D0 INC R0 1230 MPWT0110 1231 S00069A 03 LSR 1232 S00069B 4D SWAP 1233 S00069C 9F FMULT 1234 S00069D BB FROM R11 1235 S00069E 1C TO R12 ;(R12) <-- plot start X pos 1236 S00069F 60 SUB R0 1237 ; 1238 S0006A0 EF GETB 1239 S0006A1 DE INC R14 1240 S0006A2 2E 19 MOVE R9,R14 ;(R9) <-- (R14) 1241 S0006A4 4D SWAP 1242 S0006A5 17 TO R7 ;(R7) <-- chara Y wide 1243 S0006A6 57 ADD R7 1244 ; 1245 S0006A7 14 TO R4 1246 S0006A8 EF GETB 1247 S0006A9 DE INC R14 1248 ; 1249 S0006AA 60 SUB R0 ;[ IBT R0,#0 ] 1250 S0006AB 20 18 MOVE R8,R0 ;(R8) <-- plot mode 1251 ; 1252 S0006AD 24 WITH R4 1253 S0006AE 3D EF GETBH 1254 ; 1255 S0006B0 A0 56 IBT R0,#BANK MPCIPCHR ;chara data address(B) set 1256 S0006B2 3F DF ROMB 1257 ; 1258 S0006B4 B4 FROM R4 1259 S0006B5 03 LSR 1260 S0006B6 0C 03' BCC MPWT0112 ;high bit color ? ( no:MPWT0112 ) 1261 S0006B8 50 ADD R0 ;[ ASL ] 1262 ; 1263 S0006B9 A8 04 IBT R8,#04H 1264 MPWT0112 1265 S0006BB B8 FROM R8 1266 S0006BC 3D 4E CMODE ;plot mode set 1267 S0006BE 24 B0 MOVES R4,R0 ;(R4) <-- chara data address 1268 S0006C0 0A 45' BPL MPWT0120+1 ;H flip ? ( no:MPWT0120+1 ) 1269 ; 1270 ;-------------- H flip chara data plot ---------- 1271 S0006C2 2C 11 MOVE R1,R12 ;[ to not H flip quit !! ] 1272 ; 1273 S0006C4 50 ADD R0 1274 S0006C5 14 TO R4 ;(R4) <-- chara data address 1275 S0006C6 03 LSR 1276 S0006C7 09 1A' BEQ MPWT0118 ;<> ? ( yes:MPWT118 ) 1277 S0006C9 60 SUB R0 ;[ spacial plot quit !! ] 1278 ; 1279 MPWT0114 1280 S0006CA 2C 11 MOVE R1,R12 ;(R1) <-- plot start X pos 1281 S0006CC F8 0080 IWT R8,#080H ;(R8) <-- chara X wide 1282 MPWT0116 1283 S0006CF 70 MERGE 1284 S0006D0 1E TO R14 ;(R14) <-- chara data address 1285 S0006D1 54 ADD R4 1286 ; 1287 S0006D2 28 WITH R8 1288 S0006D3 55 ADD R5 ;(N) <-- end flag 1289 S0006D4 B3 FROM R3 1290 S0006D5 68 SUB R8 1291 ; 1292 S0006D6 DF GETC ;color get 1293 S0006D7 0A F6' BPL MPWT0116 1294 S0006D9 4C PLOT ;plot 1295 ; 1296 S0006DA 27 WITH R7 1297 S0006DB 65 SUB R5 1298 S0006DC 0A EC' BPL MPWT0114 1299 S0006DE E2 DEC R2 ;Y pos up !! 1300 ; 1301 S0006DF 05 38' BRA MPWT0132+1 1302 S0006E1 A0 00' IBT R0,#BANK MPOBJDIN ;[ dummy ] 1303 ; 1304 ;-------------- spacial plot !! ----------------- 1305 MPWT0118 1306 ;;;; SUB R0 ;[ IBT R0,#0 ] 1307 S0006E3 4E COLOUR ;plot color set ( nuki ) 1308 S0006E4 D0 INC R0 ;[ IBT R0,#01H ] 1309 S0006E5 3D 4E CMODE ;plot mode set 1310 MPWT01182 1311 S0006E7 2C 11 MOVE R1,R12 ;(R1) <-- plot start X pos 1312 S0006E9 23 18 MOVE R8,R3 ;(R8) <-- chara X wide 1313 MPWT01184 1314 S0006EB 70 MERGE 1315 S0006EC 1E TO R14 ;(R14) <-- chara data address 1316 S0006ED 54 ADD R4 1317 ; 1318 S0006EE 28 WITH R8 1319 S0006EF 65 SUB R5 1320 ; 1321 S0006F0 EF GETB 1322 S0006F1 3E 7F AND #0FH 1323 S0006F3 09 03' BEQ MPWT01186 ;plot ? ( no:MPWT01186 ) 1324 S0006F5 D1 INC R1 1325 ; 1326 S0006F6 E1 DEC R1 1327 S0006F7 4C PLOT ;plot 1328 MPWT01186 1329 S0006F8 28 B8 MOVES R8,R8 1330 S0006FA 0A F0' BPL MPWT01184+1 1331 S0006FC 70 MERGE ;[ dummy ] 1332 ; 1333 S0006FD 27 WITH R7 1334 S0006FE 65 SUB R5 1335 S0006FF 0A E6' BPL MPWT01182 1336 S000701 E2 DEC R2 ;Y pos up !! 1337 ; 1338 S000702 05 15' BRA MPWT0132+1 1339 S000704 A0 00' IBT R0,#BANK MPOBJDIN ;[ dummy ] 1340 ; 1341 ;-------------- chara data plot ----------------- 1342 MPWT0120 1343 S000706 2C 11 MOVE R1,R12 ;(R1) <-- plot start X pos 1344 S000708 23 18 MOVE R8,R3 ;(R8) <-- chara X wide 1345 MPWT0130 1346 S00070A 70 MERGE 1347 S00070B 1E TO R14 ;(R14) <-- chara data address 1348 S00070C 54 ADD R4 1349 ; 1350 S00070D 28 WITH R8 1351 S00070E 65 SUB R5 ;(N) <-- end flag 1352 ; 1353 S00070F DF GETC ;color get 1354 S000710 0A F8' BPL MPWT0130 1355 S000712 4C PLOT ;plot 1356 ; 1357 S000713 27 WITH R7 1358 S000714 65 SUB R5 1359 S000715 0A EF' BPL MPWT0120 1360 S000717 E2 DEC R2 ;Y pos up !! 1361 ; 1362 ;-------------- next chara set check ------------ 1363 MPWT0132 1364 S000718 A0 00' IBT R0,#BANK MPOBJDIN 1365 S00071A 3F DF ROMB 1366 ; 1367 S00071C 29 1E MOVE R14,R9 ;(R14) <-- next status data address 1368 S00071E DE INC R14 1369 S00071F DE INC R14 1370 S000720 EF GETB 1371 S000721 DE INC R14 1372 S000722 13 TO R3 ;(R3) <-- chara X wide 1373 S000723 4D SWAP 1374 S000724 0B 05' BMI MPWT0134 ;next data nothing ? ( yes:MPWT0134 ) 1375 S000726 D0 INC R0 1376 ; 1377 S000727 FF 069B' IWT R15,#MPWT0110+1 ;[ JMP MPWT0110+1 ] 1378 S00072A 03 LSR ;[ dummy ] 1379 ; 1380 MPWT0134 1381 S00072B 3D AB 2B LMS R11,REG11 ;(R11) load 1382 S00072E 3D AC 2C LMS R12,REG12 ;(R12) load 1383 ; 1384 MPWT0140 1385 S000731 DB INC R11 1386 S000732 3C LOOP 1387 S000733 DB INC R11 1388 ; 1389 ;-------------- last plot cancel ------------------------ 1390 S000734 D2 INC R2 1391 S000735 3D 4C RPIX 1392 ; 1393 ; 1394 ;-------------- player VS cross check --------------------------- 1395 S000737 F1 06EE IWT R1,#CMPMVTYP ;(R1) <-- map OBJ type no. pointer 1396 S00073A F2 06EF IWT R2,#CMPMVXPS ;(R2) <-- " X pos pointer 1397 S00073D F5 06F1 IWT R5,#CMPMVYPS ;(R5) <-- " Y " 1398 S000740 F3 0987 IWT R3,#CMPWMVYPS ;(R3) <-- " cross check R pointer 1399 S000743 3D F0 06E2 LM R0,CMPPLXPOS 1400 S000747 C0 HIB 1401 S000748 1A TO R10 ;(R10) <-- " player X pos 1402 S000749 95 SEX 1403 S00074A 3D F0 06E4 LM R0,CMPPLZPOS 1404 S00074E C0 HIB 1405 S00074F 1B TO R11 ;(R11) <-- " Z " 1406 S000750 95 SEX 1407 ; 1408 S000751 3D FC 06E8 LM R12,CMPOBJSTN 1409 S000755 EC DEC R12 1410 ; 1411 S000756 02 CACHE 1412 ; 1413 S000757 2F 1D MOVE R13,R15 1414 MPWT0150 1415 S000759 3D 41 LDB (R1) 1416 S00075B E0 DEC R0 1417 S00075C 0B 2F' BMI MPWT0160 ;check ok ? ( no:MPWT0160 ) 1418 S00075E 01 NOP 1419 ; 1420 ;;;; LDB (R5) 1421 ;;;; DEC R0 1422 ;;;; BPL MPWT0160 ;Y pos cross ok ? ( no:MPWT0160 ) 1423 ;;;; NOP 1424 ; 1425 S00075F 3D 43 LDB (R3) 1426 S000761 26 B0 MOVES R6,R0 1427 S000763 09 28' BEQ MPWT0160 ;cross check ok ? ( no:MPWT0160 ) 1428 S000765 01 NOP 1429 ; 1430 S000766 3D 9F LMULT 1431 S000768 24 17 MOVE R7,R4 ;(R7) <-- cross check R * R 1432 ; 1433 S00076A 3D 42 LDB (R2) 1434 S00076C 95 SEX 1435 S00076D 6A SUB R10 1436 S00076E 20 18 MOVE R8,R0 ;(R8) <-- SX 1437 S000770 20 16 MOVE R6,R0 1438 S000772 3D 9F LMULT ;(R4) <-- SX * SX 1439 S000774 27 WITH R7 1440 S000775 64 SUB R4 1441 S000776 0C 16' BCC MPWT0170 ;cross ? ( no:MPWT0170 ) 1442 S000778 D2 INC R2 1443 ; 1444 S000779 24 1E MOVE R14,R4 ;(R14) <-- SX * SX 1445 S00077B 3D 42 LDB (R2) 1446 S00077D 95 SEX 1447 S00077E 6B SUB R11 1448 S00077F 20 19 MOVE R9,R0 ;(R9) <-- SZ 1449 S000781 20 16 MOVE R6,R0 1450 S000783 3D 9F LMULT ;(R4) <-- SZ * SZ 1451 S000785 B4 FROM R4 1452 S000786 67 SUB R7 1453 S000787 0D 06' BCS MPWT0170+1 ;cross ? ( no:MPWT0170+1 ) 1454 S000789 D2 INC R2 1455 ; 1456 S00078A 05 10' BRA MPWT0180 1457 S00078C 2E WITH R14 ;(R14) <-- ( SX * SX ) + ( SZ * SZ ) 1458 ; 1459 MPWT0160 1460 S00078D D2 INC R2 1461 MPWT0170 1462 S00078E D2 INC R2 1463 S00078F D2 INC R2 1464 S000790 A0 04 IBT R0,#4 1465 S000792 11 TO R1 1466 S000793 51 ADD R1 1467 S000794 15 TO R5 1468 S000795 55 ADD R5 1469 S000796 13 TO R3 1470 S000797 53 ADD R3 1471 S000798 3C LOOP 1472 S000799 D2 INC R2 1473 ; 1474 S00079A 00 STOP 1475 S00079B 01 NOP 1476 ; 1477 ;-------------- cross !! -------------------------------- 1478 MPWT0180 1479 ;;;; WITH R14 ;(R14) <-- ( SX * SX ) + ( SZ * SZ ) 1480 S00079C 54 ADD R4 1481 ; 1482 S00079D 3D 41 LDB (R1) 1483 S00079F 3E 6E SUB #HOLL 1484 S0007A1 08 0E' BNE MPWT0182 ;holl in ? ( no:MPWT0182 ) 1485 S0007A3 60 SUB R0 ;(R0) <-- calculate work 1486 ; 1487 ;-------------- holl in !! ---------------------- 1488 S0007A4 3D F0 0202 LM R0,CMPLMODE 1489 S0007A8 3E 60 SUB #0 1490 S0007AA 08 03' BNE MPWT0181 ;now holl in ? ( yes:MPWT0181 ) 1491 S0007AC D0 INC R0 1492 ; 1493 S0007AD D0 INC R0 1494 S0007AE 90 SBK 1495 MPWT0181 1496 S0007AF 00 STOP 1497 S0007B0 01 NOP 1498 ; 1499 ;-------------- player hosei ---------------------------- 1500 ; 1501 ;-------------- sqr ----------------------------- 1502 MPWT0182 1503 ;;;; SUB R0 ;(R0) <-- calculate work 1504 S0007B1 20 16 MOVE R6,R0 ;(R6) <-- root result 1505 S0007B3 A5 02 IBT R5,#2 ;(R5) <-- add data 1506 S0007B5 AC 10 IBT R12,#8+8 ;(R12) <-- loop no. 1507 S0007B7 FD 07BB' IWT R13,#MPWT0190+1 1508 MPWT0190 1509 S0007BA 26 WITH R6 ;[ ASL R6 ] 1510 S0007BB 56 ADD R6 1511 S0007BC 2E WITH R14 ;[ ASL R14 ] 1512 S0007BD 5E ADD R14 1513 S0007BE 04 ROL ;[ ROL R0 ] 1514 S0007BF 2E WITH R14 ;[ ASL R14 ] 1515 S0007C0 5E ADD R14 1516 S0007C1 04 ROL ;[ ROL R0 ] 1517 ; 1518 S0007C2 11 TO R1 1519 S0007C3 3D 66 SBC R6 1520 S0007C5 0C 04' BCC MPWT0200 1521 S0007C7 26 WITH R6 1522 ; 1523 S0007C8 55 ADD R5 1524 S0007C9 21 10 MOVE R0,R1 1525 MPWT0200 1526 S0007CB 3C LOOP 1527 S0007CC 26 WITH R6 1528 ; 1529 S0007CD 03 LSR 1530 ; 1531 S0007CE 3D 43 LDB (R3) ;(R0) <-- cross check R 1532 S0007D0 50 ADD R0 ;x2 vvv******* warn :value out of range 1533 S0007D1 F3 24A0 IWT R3,#DIVBUF 1534 S0007D4 53 ADD R3 1535 S0007D5 40 LDW (R0) 1536 S0007D6 9F FMULT 1537 S0007D7 50 ADD R0 ;x2 1538 S0007D8 53 ADD R3 1539 S0007D9 16 TO R6 ;(R6) <-- hosei mult data 1540 S0007DA 40 LDW (R0) 1541 ; 1542 S0007DB B9 FROM R9 1543 S0007DC 95 SEX 1544 S0007DD 4D SWAP 1545 S0007DE 9F FMULT 1546 S0007DF 20 11 MOVE R1,R0 1547 S0007E1 C0 HIB 1548 S0007E2 95 SEX ;(R0) <-- integer add data 1549 S0007E3 11 TO R1 1550 S0007E4 3D 51 ADC R1 1551 S0007E6 E2 DEC R2 1552 S0007E7 3D 42 LDB (R2) 1553 S0007E9 95 SEX 1554 S0007EA 61 SUB R1 1555 S0007EB 4D SWAP 1556 ;;;; SM R0,CMPPLZPOS 1557 ; 1558 S0007EC B8 FROM R8 1559 S0007ED 95 SEX 1560 S0007EE 4D SWAP 1561 S0007EF 9F FMULT 1562 S0007F0 20 11 MOVE R1,R0 1563 S0007F2 C0 HIB 1564 S0007F3 95 SEX ;(R0) <-- integer add data 1565 S0007F4 11 TO R1 1566 S0007F5 3D 51 ADC R1 1567 S0007F7 E2 DEC R2 1568 S0007F8 3D 42 LDB (R2) 1569 S0007FA 95 SEX 1570 S0007FB 61 SUB R1 1571 S0007FC 4D SWAP 1572 ;;;; SM R0,CMPPLXPOS 1573 ; 1574 S0007FD 00 STOP 1575 S0007FE 01 NOP 1576 ; 1577 ;------------------------------------------------------------------------ 1578 ;- map OBJ data - 1579 ;------------------------------------------------------------------------ 1580 0007FF MPOBJDIN EQU $ ;[MPOBJTYP] 1581 S0007FF 091D' WORD MPOBJDT01 ;[01] yama.H 1582 S000801 0934' WORD MPOBJDT02 ;[02] " .M 1583 S000803 0947' WORD MPOBJDT03 ;[03] " .L 1584 S000805 0956' WORD MPOBJDT04 ;[04] tower( tea ) 1585 S000807 095D' WORD MPOBJDT05 ;[05] " ( gray ) 1586 S000809 0964' WORD MPOBJDT06 ;[06] kazan 1587 S00080B 096B' WORD MPOBJDT07 ;[07] small yama 1588 S00080D 0972' WORD MPOBJDT08 ;[08] dai 1589 S00080F 0979' WORD MPOBJDT09 ;[09] small tower 1590 S000811 0980' WORD MPOBJDT0A ;[0A] wide tower 1591 S000813 0987' WORD MPOBJDT0B ;[0B] mini yama 1592 S000815 098E' WORD MPOBJDT0C ;[0C] saku 1593 S000817 0995' WORD MPOBJDT0D ;[0D] yane 1594 S000819 099C' WORD MPOBJDT0E ;[0E] holl 1595 S00081B 09A3' WORD MPOBJDT0F ;[0F] tree.1 1596 S00081D 09AA' WORD MPOBJDT10 ;[10] " .2 1597 S00081F 09B1' WORD MPOBJDT11 ;[11] " .3 1598 S000821 09B8' WORD MPOBJDT12 ;[12] " .4 1599 S000823 09BF' WORD MPOBJDT13 ;[13] " .5 1600 S000825 09C6' WORD MPOBJDT14 ;[14] iwa 1601 S000827 09CD' WORD MPOBJDT15 ;[15] kumo 1602 S000829 09D4' WORD MPOBJDT16 ;[16] laputa 1603 S00082B 09DB' WORD MPOBJDT17 ;[17] keble 1604 S00082D 09E2' WORD MPOBJDT18 ;[18] kusa 1605 S00082F 09E9' WORD MPOBJDT19 ;[19] flower 1606 S000831 09F0' WORD MPOBJDT1A ;[1A] ishi 1607 S000833 09F7' WORD MPOBJDT1B ;[1B] lope 1608 S000835 09FE' WORD MPOBJDT1C ;[1C] kazan smoke.1 1609 S000837 0A05' WORD MPOBJDT1D ;[1D] " .2 1610 S000839 0A0C' WORD MPOBJDT1E ;[1E] " .3 1611 S00083B 0A13' WORD MPOBJDT1F ;[1F] " .4 1612 S00083D 0A1A' WORD MPOBJDT20 ;[20] " .5 1613 S00083F 0A21' WORD MPOBJDT21 ;[21] " .6 1614 S000841 0A28' WORD MPOBJDT22 ;[22] " .7 1615 S000843 0A2F' WORD MPOBJDT23 ;[23] kamome.1 1616 S000845 0A36' WORD MPOBJDT24 ;[24] " .2 1617 S000847 0A3D' WORD MPOBJDT25 ;[25] " .3 1618 S000849 0A44' WORD MPOBJDT26 ;[26] " .4 1619 S00084B 0A4B' WORD MPOBJDT27 ;[27] " .5 1620 S00084D 0A52' WORD MPOBJDT28 ;[28] " .6 1621 S00084F 0A59' WORD MPOBJDT29 ;[29] " .7 1622 S000851 0A60' WORD MPOBJDT2A ;[2A] " .8 1623 S000853 0A67' WORD MPOBJDT2B ;[2B] player.1 1624 S000855 0A6E' WORD MPOBJDT2C ;[2C] " .2 1625 S000857 0A75' WORD MPOBJDT2D ;[2D] " .3 1626 S000859 0A7C' WORD MPOBJDT2E ;[2E] " .4 1627 S00085B 0A83' WORD MPOBJDT2F ;[2F] " .5 1628 S00085D 0A8A' WORD MPOBJDT30 ;[30] " .6 1629 S00085F 0A91' WORD MPOBJDT31 ;[31] " .7 1630 S000861 0A98' WORD MPOBJDT32 ;[32] " .8 1631 S000863 0A9F' WORD MPOBJDT33 ;[33] " .9 1632 S000865 0AA6' WORD MPOBJDT34 ;[34] " .10 1633 S000867 0AAD' WORD MPOBJDT35 ;[35] " .11 1634 S000869 0AB4' WORD MPOBJDT36 ;[36] " .12 1635 S00086B 0ABB' WORD MPOBJDT37 ;[37] " .13 1636 S00086D 0AC2' WORD MPOBJDT38 ;[38] " .14 1637 S00086F 0AC9' WORD MPOBJDT39 ;[39] " .15 1638 S000871 0AD0' WORD MPOBJDT3A ;[3A] " .16 1639 S000873 0AD7' WORD MPOBJDT3B ;[3B] " .17 1640 S000875 0ADE' WORD MPOBJDT3C ;[3C] " .18 1641 S000877 0AE5' WORD MPOBJDT3D ;[3D] " .19 1642 S000879 0AEC' WORD MPOBJDT3E ;[3E] " .20 1643 S00087B 0AF3' WORD MPOBJDT3F ;[3F] " .21 1644 S00087D 0AFA' WORD MPOBJDT40 ;[40] " .22 1645 S00087F 0B01' WORD MPOBJDT41 ;[41] " .23 1646 S000881 0B08' WORD MPOBJDT42 ;[42] " .24 1647 S000883 0B0F' WORD MPOBJDT43 ;[43] " .25 1648 S000885 0B16' WORD MPOBJDT44 ;[44] " .26 1649 S000887 0B1D' WORD MPOBJDT45 ;[45] " .27 1650 S000889 0B24' WORD MPOBJDT46 ;[46] " .28 1651 S00088B 0B2B' WORD MPOBJDT47 ;[47] " .29 1652 S00088D 0B32' WORD MPOBJDT48 ;[48] " .30 1653 S00088F 0B39' WORD MPOBJDT49 ;[49] " .31 1654 S000891 0B40' WORD MPOBJDT4A ;[4A] " .32 1655 S000893 0B47' WORD MPOBJDT4B ;[2B] " .33 1656 S000895 0B4E' WORD MPOBJDT4C ;[4C] " .34 1657 S000897 0B55' WORD MPOBJDT4D ;[4D] " .35 1658 S000899 0B5C' WORD MPOBJDT4E ;[4E] " .36 1659 S00089B 0B63' WORD MPOBJDT4F ;[4F] " .37 1660 S00089D 0B6A' WORD MPOBJDT50 ;[50] " .38 1661 S00089F 0B71' WORD MPOBJDT51 ;[51] " .39 1662 S0008A1 0B78' WORD MPOBJDT52 ;[52] " .40 1663 S0008A3 0B7F' WORD MPOBJDT53 ;[53] " .41 1664 S0008A5 0B86' WORD MPOBJDT54 ;[54] " .42 1665 S0008A7 0B8D' WORD MPOBJDT55 ;[55] " .43 1666 S0008A9 0B94' WORD MPOBJDT56 ;[56] " .44 1667 S0008AB 0B9B' WORD MPOBJDT57 ;[57] " .45 1668 S0008AD 0BA2' WORD MPOBJDT58 ;[58] " .46 1669 S0008AF 0BA9' WORD MPOBJDT59 ;[59] " .47 1670 S0008B1 0BB0' WORD MPOBJDT5A ;[5A] " .48 1671 S0008B3 0BB7' WORD MPOBJDT5B ;[5B] ayashii.H 1672 S0008B5 0BBE' WORD MPOBJDT5C ;[5C] " .L 1673 S0008B7 0BC5' WORD MPOBJDT5D ;[5D] " .2 1674 S0008B9 0BCC' WORD MPOBJDT5E ;[5E] big kinoko 1675 S0008BB 0BD3' WORD MPOBJDT5F ;[5F] small " 1676 S0008BD 0BDA' WORD MPOBJDT60 ;[60] zenmai 1677 S0008BF 0BE1' WORD MPOBJDT61 ;[61] big crystal 1678 S0008C1 0BE8' WORD MPOBJDT62 ;[62] small " 1679 S0008C3 0BEF' WORD MPOBJDT63 ;[63] ishi (tea).1 1680 S0008C5 0BF6' WORD MPOBJDT64 ;[64] " .2 1681 S0008C7 0BFD' WORD MPOBJDT65 ;[65] mini tower 1682 S0008C9 0C04' WORD MPOBJDT66 ;[66] high kinoko.2 1683 S0008CB 0C0B' WORD MPOBJDT67 ;[67] " .3 1684 S0008CD 0C12' WORD MPOBJDT68 ;[68] " .4 1685 S0008CF 0C1D' WORD MPOBJDT69 ;[69] " .6 1686 S0008D1 0C30' WORD MPOBJDT6A ;[6A] " .7 1687 S0008D3 0C47' WORD MPOBJDT6B ;[6B] holl mask 1688 S0008D5 0C4E' WORD MPOBJDT6C ;[6C] —d‚µ‚¢–Ø (‘å) 1689 S0008D7 0C55' WORD MPOBJDT6D ;[6D] —d‚µ‚¢–Ø (¬) 1690 S0008D9 0C5C' WORD MPOBJDT6E ;[6E] Šâ(‘å) 1691 S0008DB 0C63' WORD MPOBJDT6F ;[6F] Šâ(¬) 1692 S0008DD 0C6A' WORD MPOBJDT70 ;[70] ƒWƒƒƒ“ƒOƒ‹‚Ì“ƒ (‘å) 1693 S0008DF 0C71' WORD MPOBJDT71 ;[71] " " (¬) 1694 S0008E1 0C78' WORD MPOBJDT72 ;[72] ƒOƒŒ[‚Ì“ƒ 1695 S0008E3 0C7F' WORD MPOBJDT73 ;[73] ƒNƒbƒpé 1696 S0008E5 0C86' WORD MPOBJDT74 ;[74] ”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚P 1697 S0008E7 0C8D' WORD MPOBJDT75 ;[75] " " ‚m‚.‚Q 1698 S0008E9 0C94' WORD MPOBJDT76 ;[76] " " ‚m‚.‚R 1699 S0008EB 0C9B' WORD MPOBJDT77 ;[77] " " ‚m‚.‚S 1700 S0008ED 0CA2' WORD MPOBJDT78 ;[78] " " ‚m‚.‚T 1701 S0008EF 0CA9' WORD MPOBJDT79 ;[79] " " ‚m‚.‚U 1702 S0008F1 0CB0' WORD MPOBJDT7A ;[7A] " " ‚m‚.‚V 1703 S0008F3 0CB7' WORD MPOBJDT7B ;[7B] " " ‚m‚.‚W 1704 S0008F5 0CBE' WORD MPOBJDT7C ;[7C] " " ‚m‚.‚X 1705 S0008F7 0CC5' WORD MPOBJDT7D ;[7D] " " ‚m‚.‚` 1706 S0008F9 0CCC' WORD MPOBJDT7E ;[7E] Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚P 1707 S0008FB 0CD3' WORD MPOBJDT7F ;[7F] " " " ‚m‚.‚Q 1708 S0008FD 0CDA' WORD MPOBJDT80 ;[80] " " " ‚m‚.‚R 1709 S0008FF 0CE1' WORD MPOBJDT81 ;[81] " " " ‚m‚.‚S 1710 S000901 0CE8' WORD MPOBJDT82 ;[82] " " " ‚m‚.‚T 1711 S000903 0CEF' WORD MPOBJDT83 ;[83] " " " ‚m‚.‚U 1712 S000905 0CF6' WORD MPOBJDT84 ;[84] " " " ‚m‚.‚V 1713 S000907 0CFD' WORD MPOBJDT85 ;[85] " " " ‚m‚.‚W 1714 S000909 0D04' WORD MPOBJDT86 ;[86] " " " ‚m‚.‚X 1715 S00090B 0D0B' WORD MPOBJDT87 ;[87] " " " ‚m‚.‚` 1716 S00090D 0D12' WORD MPOBJDT88 ;[88] " " " ‚m‚.‚a 1717 S00090F 0D19' WORD MPOBJDT89 ;[89] " " " ‚m‚.‚b 1718 S000911 0D20' WORD MPOBJDT8A ;[8A] ”j‰ó‚µ‚½Œã‚Ì“V‹óé 1719 S000913 0D27' WORD MPOBJDT8B ;[8B] ƒˆƒbƒV[ ƒtƒ‰ƒbƒVƒ… ‚m‚.‚O 1720 S000915 0D2E' WORD MPOBJDT8C ;[8C] " " ‚m‚.‚P 1721 S000917 0D35' WORD MPOBJDT8D ;[8D] " " ‚m‚.‚Q 1722 S000919 0D3C' WORD MPOBJDT8E ;[8E] " " ‚m‚.‚R 1723 S00091B 0D43' WORD MPOBJDT8F ;[8F] " " ‚m‚.‚S 1724 ; 1725 00091D MPOBJDT01 EQU $ ;[ yama.H ] 1726 ; [VS player cross check R ( 0:not cross ) ] 1727 ; [to center Y wide] 1728 ; [X wide],[Y wide] 1729 ; [chara address] 1730 S00091D 17 BYTE 02EH/2 1731 S00091E 06 BYTE 006H 1732 S00091F 27 1B BYTE 028H-1,01CH-1 vvv******* warn :value out of range 1733 S000921 0400 WORD MPCIPCHR+0400H 1734 S000923 27 16 BYTE 028H-1,017H-1 vvv******* warn :value out of range 1735 S000925 0400 WORD MPCIPCHR+0400H 1736 S000927 27 0F BYTE 028H-1,010H-1 vvv******* warn :value out of range 1737 S000929 1880 WORD MPCIPCHR+1880H 1738 S00092B 27 17 BYTE 028H-1,018H-1 vvv******* warn :value out of range 1739 S00092D 0080 WORD MPCIPCHR+0080H 1740 S00092F 07 08 BYTE 008H-1,009H-1 vvv******* warn :value out of range 1741 S000931 3641 WORD MPCIPCHR+3641H 1742 S000933 FF BYTE 0FFH 1743 ; 1744 000934 MPOBJDT02 EQU $ ;[ yama.M ] 1745 S000934 17 BYTE 02EH/2 1746 S000935 06 BYTE 006H 1747 S000936 27 1B BYTE 028H-1,01CH-1 vvv******* warn :value out of range 1748 S000938 0400 WORD MPCIPCHR+0400H 1749 S00093A 27 07 BYTE 028H-1,008H-1 vvv******* warn :value out of range 1750 S00093C 0400 WORD MPCIPCHR+0400H 1751 S00093E 27 0F BYTE 028H-1,010H-1 vvv******* warn :value out of range 1752 S000940 1880 WORD MPCIPCHR+1880H 1753 S000942 27 17 BYTE 028H-1,018H-1 vvv******* warn :value out of range 1754 S000944 0080 WORD MPCIPCHR+0080H 1755 S000946 FF BYTE 0FFH 1756 ; 1757 000947 MPOBJDT03 EQU $ ;[ yama.L ] 1758 S000947 17 BYTE 02EH/2 1759 S000948 06 BYTE 006H 1760 S000949 27 17 BYTE 028H-1,018H-1 vvv******* warn :value out of range 1761 S00094B 0800 WORD MPCIPCHR+0800H 1762 S00094D 27 0F BYTE 028H-1,010H-1 vvv******* warn :value out of range 1763 S00094F 1880 WORD MPCIPCHR+1880H 1764 S000951 27 17 BYTE 028H-1,018H-1 vvv******* warn :value out of range 1765 S000953 0080 WORD MPCIPCHR+0080H 1766 S000955 FF BYTE 0FFH 1767 ; 1768 000956 MPOBJDT04 EQU $ ;[ tower( tea ) ] 1769 S000956 09 BYTE 012H/2 1770 S000957 02 BYTE 002H 1771 S000958 0F 1F BYTE 010H-1,020H-1 vvv******* warn :value out of range 1772 S00095A 80B0 WORD MFCIPCHR+00B0H 1773 S00095C FF BYTE 0FFH 1774 ; 1775 00095D MPOBJDT05 EQU $ ;[ tower( gray ) ] 1776 S00095D 0B BYTE 016H/2 1777 S00095E 03 BYTE 003H 1778 S00095F 0F 1F BYTE 010H-1,020H-1 vvv******* warn :value out of range 1779 S000961 80D0 WORD MFCIPCHR+00D0H 1780 S000963 FF BYTE 0FFH 1781 ; 1782 000964 MPOBJDT06 EQU $ ;[ kazan ] 1783 S000964 12 BYTE 024H/2 1784 S000965 07 BYTE 007H 1785 S000966 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 1786 S000968 80C1 WORD MFCIPCHR+00C1H 1787 S00096A FF BYTE 0FFH 1788 ; 1789 00096B MPOBJDT07 EQU $ ;[ small yama ] 1790 S00096B 12 BYTE 024H/2 1791 S00096C 05 BYTE 005H 1792 S00096D 1F 1A BYTE 020H-1,01BH-1 vvv******* warn :value out of range 1793 S00096F 8081 WORD MFCIPCHR+0081H 1794 S000971 FF BYTE 0FFH 1795 ; 1796 000972 MPOBJDT08 EQU $ ;[ dai ] 1797 S000972 12 BYTE 024H/2 1798 S000973 06 BYTE 006H 1799 S000974 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 1800 S000976 0021 WORD MPCIPCHR+0021H 1801 S000978 FF BYTE 0FFH 1802 ; 1803 000979 MPOBJDT09 EQU $ ;[ small tower ] 1804 S000979 07 BYTE 00EH/2 1805 S00097A 01 BYTE 001H 1806 S00097B 07 0F BYTE 008H-1,010H-1 vvv******* warn :value out of range 1807 S00097D 8051 WORD MFCIPCHR+0051H 1808 S00097F FF BYTE 0FFH 1809 ; 1810 000980 MPOBJDT0A EQU $ ;[ wide tower ] 1811 S000980 0B BYTE 016H/2 1812 S000981 02 BYTE 002H 1813 S000982 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 1814 S000984 A071 WORD MFCIPCHR+2071H 1815 S000986 FF BYTE 0FFH 1816 ; 1817 000987 MPOBJDT0B EQU $ ;[ mini yama ] 1818 S000987 09 BYTE 012H/2 1819 S000988 03 BYTE 003H 1820 S000989 0F 0C BYTE 010H-1,00DH-1 vvv******* warn :value out of range 1821 S00098B 8041 WORD MFCIPCHR+0041H 1822 S00098D FF BYTE 0FFH 1823 ; 1824 00098E MPOBJDT0C EQU $ ;[ saku ] 1825 S00098E 04 BYTE 008H/2 1826 S00098F 00 BYTE 000H 1827 S000990 03 03 BYTE 004H-1,004H-1 vvv******* warn :value out of range 1828 S000992 1B61 WORD MPCIPCHR+1B61H 1829 S000994 FF BYTE 0FFH 1830 ; 1831 000995 MPOBJDT0D EQU $ ;[ yorozuya ] 1832 S000995 08 BYTE 010H/2 1833 S000996 02 BYTE 002H 1834 S000997 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 1835 S000999 A061 WORD MFCIPCHR+2061H 1836 S00099B FF BYTE 0FFH 1837 ; 1838 00099C MPOBJDT0E EQU $ ;[ holl ] 1839 S00099C 0C BYTE 018H/2 1840 S00099D 03 BYTE 003H 1841 S00099E 1F 07 BYTE 020H-1,008H-1 vvv******* warn :value out of range 1842 S0009A0 5801 WORD MPCIPCHR+5801H 1843 S0009A2 FF BYTE 0FFH 1844 ; 1845 0009A3 MPOBJDT0F EQU $ ;[ tree.1 ] 1846 S0009A3 07 BYTE 00EH/2 1847 S0009A4 00 BYTE 000H 1848 S0009A5 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 1849 S0009A7 30B1 WORD MPCIPCHR+30B1H 1850 S0009A9 FF BYTE 0FFH 1851 ; 1852 0009AA MPOBJDT10 EQU $ ;[ tree.2 ] 1853 S0009AA 06 BYTE 00CH/2 1854 S0009AB 00 BYTE 000H 1855 S0009AC 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 1856 S0009AE 20F0 WORD MPCIPCHR+20F0H 1857 S0009B0 FF BYTE 0FFH 1858 ; 1859 0009B1 MPOBJDT11 EQU $ ;[ tree.3 ] 1860 S0009B1 04 BYTE 008H/2 1861 S0009B2 00 BYTE 000H 1862 S0009B3 07 0C BYTE 008H-1,00DH-1 vvv******* warn :value out of range 1863 S0009B5 0071 WORD MPCIPCHR+0071H 1864 S0009B7 FF BYTE 0FFH 1865 ; 1866 0009B8 MPOBJDT12 EQU $ ;[ tree.4 ] 1867 S0009B8 04 BYTE 008H/2 1868 S0009B9 00 BYTE 000H 1869 S0009BA 08 09 BYTE 009H-1,00AH-1 vvv******* warn :value out of range 1870 S0009BC 0E71 WORD MPCIPCHR+0E71H 1871 S0009BE FF BYTE 0FFH 1872 ; 1873 0009BF MPOBJDT13 EQU $ ;[ tree.5 ] 1874 S0009BF 07 BYTE 00EH/2 1875 S0009C0 00 BYTE 000H 1876 S0009C1 0E 1A BYTE 00FH-1,01BH-1 vvv******* warn :value out of range 1877 S0009C3 0061 WORD MPCIPCHR+0061H 1878 S0009C5 FF BYTE 0FFH 1879 ; 1880 0009C6 MPOBJDT14 EQU $ ;[ iwa ] 1881 S0009C6 09 BYTE 012H/2 1882 S0009C7 02 BYTE 002H 1883 S0009C8 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 1884 S0009CA A0E0 WORD MFCIPCHR+20E0H 1885 S0009CC FF BYTE 0FFH 1886 ; 1887 0009CD MPOBJDT15 EQU $ ;[ kumo ] 1888 S0009CD 00 BYTE 000H/2 1889 S0009CE 08 BYTE 008H 1890 S0009CF 17 0E BYTE 018H-1,00FH-1 vvv******* warn :value out of range 1891 S0009D1 30E0 WORD MPCIPCHR+30E0H 1892 S0009D3 FF BYTE 0FFH 1893 ; 1894 0009D4 MPOBJDT16 EQU $ ;[ laputa ] 1895 S0009D4 00 BYTE 000H/2 1896 S0009D5 0A BYTE 00AH 1897 S0009D6 1F 17 BYTE 020H-1,018H-1 vvv******* warn :value out of range 1898 S0009D8 00E0 WORD MPCIPCHR+00E0H 1899 S0009DA FF BYTE 0FFH 1900 ; 1901 0009DB MPOBJDT17 EQU $ ;[ keble ] 1902 S0009DB 00 BYTE 000H/2 1903 S0009DC 08 BYTE 008H 1904 S0009DD 06 08 BYTE 007H-1,009H-1 vvv******* warn :value out of range 1905 S0009DF 1779 WORD MPCIPCHR+1779H 1906 S0009E1 FF BYTE 0FFH 1907 ; 1908 0009E2 MPOBJDT18 EQU $ ;[ kusa ] 1909 S0009E2 00 BYTE 000H/2 1910 S0009E3 00 BYTE 000H 1911 S0009E4 06 03 BYTE 007H-1,004H-1 vvv******* warn :value out of range 1912 S0009E6 1B65 WORD MPCIPCHR+1B65H 1913 S0009E8 FF BYTE 0FFH 1914 ; 1915 0009E9 MPOBJDT19 EQU $ ;[ flower ] 1916 S0009E9 00 BYTE 000H/2 1917 S0009EA 00 BYTE 000H 1918 S0009EB 04 05 BYTE 005H-1,006H-1 vvv******* warn :value out of range 1919 S0009ED 007B WORD MPCIPCHR+007BH 1920 S0009EF FF BYTE 0FFH 1921 ; 1922 0009F0 MPOBJDT1A EQU $ ;[ ishi ] 1923 S0009F0 06 BYTE 00CH/2 1924 S0009F1 01 BYTE 001H 1925 S0009F2 05 05 BYTE 006H-1,006H-1 vvv******* warn :value out of range 1926 S0009F4 067B WORD MPCIPCHR+067BH 1927 S0009F6 FF BYTE 0FFH 1928 ; 1929 0009F7 MPOBJDT1B EQU $ ;[ lope ] 1930 S0009F7 00 BYTE 000H/2 1931 S0009F8 01 BYTE 001H 1932 S0009F9 02 02 BYTE 003H-1,003H-1 vvv******* warn :value out of range 1933 S0009FB 0C7B WORD MPCIPCHR+0C7BH 1934 S0009FD FF BYTE 0FFH 1935 ; 1936 0009FE MPOBJDT1C EQU $ ;[ kazan smoke.1 ] 1937 S0009FE 00 BYTE 000H/2 1938 S0009FF 00 BYTE 000H 1939 S000A00 03 02 BYTE 004H-1,003H-1 vvv******* warn :value out of range 1940 S000A02 1A41 WORD MPCIPCHR+1A41H 1941 S000A04 FF BYTE 0FFH 1942 ; 1943 000A05 MPOBJDT1D EQU $ ;[ kazan smoke.2 ] 1944 S000A05 00 BYTE 000H/2 1945 S000A06 01 BYTE 001H 1946 S000A07 05 04 BYTE 006H-1,005H-1 vvv******* warn :value out of range 1947 S000A09 1A45 WORD MPCIPCHR+1A45H 1948 S000A0B FF BYTE 0FFH 1949 ; 1950 000A0C MPOBJDT1E EQU $ ;[ kazan smoke.3 ] 1951 S000A0C 00 BYTE 000H/2 1952 S000A0D 02 BYTE 002H 1953 S000A0E 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 1954 S000A10 1A4B WORD MPCIPCHR+1A4BH 1955 S000A12 FF BYTE 0FFH 1956 ; 1957 000A13 MPOBJDT1F EQU $ ;[ kazan smoke.4 ] 1958 S000A13 00 BYTE 000H/2 1959 S000A14 02 BYTE 002H 1960 S000A15 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 1961 S000A17 1A53 WORD MPCIPCHR+1A53H 1962 S000A19 FF BYTE 0FFH 1963 ; 1964 000A1A MPOBJDT20 EQU $ ;[ kazan smoke.5 ] 1965 S000A1A 00 BYTE 000H/2 1966 S000A1B 02 BYTE 002H 1967 S000A1C 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 1968 S000A1E 2141 WORD MPCIPCHR+2141H 1969 S000A20 FF BYTE 0FFH 1970 ; 1971 000A21 MPOBJDT21 EQU $ ;[ kazan smoke.6 ] 1972 S000A21 00 BYTE 000H/2 1973 S000A22 02 BYTE 002H 1974 S000A23 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 1975 S000A25 2149 WORD MPCIPCHR+2149H 1976 S000A27 FF BYTE 0FFH 1977 ; 1978 000A28 MPOBJDT22 EQU $ ;[ kazan smoke.7 ] 1979 S000A28 00 BYTE 000H/2 1980 S000A29 02 BYTE 002H 1981 S000A2A 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 1982 S000A2C 2151 WORD MPCIPCHR+2151H 1983 S000A2E FF BYTE 0FFH 1984 ; 1985 000A2F MPOBJDT23 EQU $ ;[ kamome.1 ] 1986 S000A2F 00 BYTE 000H/2 1987 S000A30 00 BYTE 000H 1988 S000A31 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 1989 S000A33 18E0 WORD MPCIPCHR+18E0H 1990 S000A35 FF BYTE 0FFH 1991 ; 1992 000A36 MPOBJDT24 EQU $ ;[ kamome.2 ] 1993 S000A36 00 BYTE 000H/2 1994 S000A37 00 BYTE 000H 1995 S000A38 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 1996 S000A3A 18E8 WORD MPCIPCHR+18E8H 1997 S000A3C FF BYTE 0FFH 1998 ; 1999 000A3D MPOBJDT25 EQU $ ;[ kamome.3 ] 2000 S000A3D 00 BYTE 000H/2 2001 S000A3E 00 BYTE 000H 2002 S000A3F 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2003 S000A41 18F0 WORD MPCIPCHR+18F0H 2004 S000A43 FF BYTE 0FFH 2005 ; 2006 000A44 MPOBJDT26 EQU $ ;[ kamome.4 ] 2007 S000A44 00 BYTE 000H/2 2008 S000A45 00 BYTE 000H 2009 S000A46 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2010 S000A48 18F8 WORD MPCIPCHR+18F8H 2011 S000A4A FF BYTE 0FFH 2012 ; 2013 000A4B MPOBJDT27 EQU $ ;[ kamome.5 ] 2014 S000A4B 00 BYTE 000H/2 2015 S000A4C 00 BYTE 000H 2016 S000A4D 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2017 S000A4F 2841 WORD MPCIPCHR+2841H 2018 S000A51 FF BYTE 0FFH 2019 ; 2020 000A52 MPOBJDT28 EQU $ ;[ kamome.6 ] 2021 S000A52 00 BYTE 000H/2 2022 S000A53 00 BYTE 000H 2023 S000A54 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2024 S000A56 2849 WORD MPCIPCHR+2849H 2025 S000A58 FF BYTE 0FFH 2026 ; 2027 000A59 MPOBJDT29 EQU $ ;[ kamome.7 ] 2028 S000A59 00 BYTE 000H/2 2029 S000A5A 00 BYTE 000H 2030 S000A5B 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2031 S000A5D 2851 WORD MPCIPCHR+2851H 2032 S000A5F FF BYTE 0FFH 2033 ; 2034 000A60 MPOBJDT2A EQU $ ;[ kamome.8 ] 2035 S000A60 00 BYTE 000H/2 2036 S000A61 00 BYTE 000H 2037 S000A62 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2038 S000A64 2859 WORD MPCIPCHR+2859H 2039 S000A66 FF BYTE 0FFH 2040 ; 2041 000A67 MPOBJDT2B EQU $ ;[ player.1 ( : stop ) ] 2042 S000A67 00 BYTE 000H/2 2043 S000A68 00 BYTE 000H 2044 S000A69 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2045 S000A6B A0F1 WORD MFCIPCHR+20F1H 2046 S000A6D FF BYTE 0FFH 2047 ; 2048 000A6E MPOBJDT2C EQU $ ;[ player.2 ( : walk.1 ) ] 2049 S000A6E 00 BYTE 000H/2 2050 S000A6F 00 BYTE 000H 2051 S000A70 09 07 BYTE 00AH-1,008H-1 vvv******* warn :value out of range 2052 S000A72 80EB WORD MFCIPCHR+00EBH 2053 S000A74 FF BYTE 0FFH 2054 ; 2055 000A75 MPOBJDT2D EQU $ ;[ player.3 ( : walk.2 ) ] 2056 S000A75 00 BYTE 000H/2 2057 S000A76 00 BYTE 000H 2058 S000A77 09 07 BYTE 00AH-1,008H-1 vvv******* warn :value out of range 2059 S000A79 88EB WORD MFCIPCHR+08EBH 2060 S000A7B FF BYTE 0FFH 2061 ; 2062 000A7C MPOBJDT2E EQU $ ;[ player.4 ( : walk.3 ) ] 2063 S000A7C 00 BYTE 000H/2 2064 S000A7D 00 BYTE 000H 2065 S000A7E 09 07 BYTE 00AH-1,008H-1 vvv******* warn :value out of range 2066 S000A80 90EB WORD MFCIPCHR+10EBH 2067 S000A82 FF BYTE 0FFH 2068 ; 2069 000A83 MPOBJDT2F EQU $ ;[ player.5 ( : walk.4 ) ] 2070 S000A83 00 BYTE 000H/2 2071 S000A84 00 BYTE 000H 2072 S000A85 09 07 BYTE 00AH-1,008H-1 vvv******* warn :value out of range 2073 S000A87 98EB WORD MFCIPCHR+18EBH 2074 S000A89 FF BYTE 0FFH 2075 ; 2076 000A8A MPOBJDT30 EQU $ ;[ player.6 ( : stop ) ] 2077 S000A8A 00 BYTE 000H/2 2078 S000A8B 00 BYTE 000H 2079 S000A8C 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2080 S000A8E A059 WORD MFCIPCHR+2059H 2081 S000A90 FF BYTE 0FFH 2082 ; 2083 000A91 MPOBJDT31 EQU $ ;[ player.7 ( : walk.1 ) ] 2084 S000A91 00 BYTE 000H/2 2085 S000A92 00 BYTE 000H 2086 S000A93 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 2087 S000A95 80E1 WORD MFCIPCHR+00E1H 2088 S000A97 FF BYTE 0FFH 2089 ; 2090 000A98 MPOBJDT32 EQU $ ;[ player.8 ( : walk.2 ) ] 2091 S000A98 00 BYTE 000H/2 2092 S000A99 00 BYTE 000H 2093 S000A9A 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 2094 S000A9C 88E1 WORD MFCIPCHR+08E1H 2095 S000A9E FF BYTE 0FFH 2096 ; 2097 000A9F MPOBJDT33 EQU $ ;[ player.9 ( : walk.3 ) ] 2098 S000A9F 00 BYTE 000H/2 2099 S000AA0 00 BYTE 000H 2100 S000AA1 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 2101 S000AA3 90E1 WORD MFCIPCHR+10E1H 2102 S000AA5 FF BYTE 0FFH 2103 ; 2104 000AA6 MPOBJDT34 EQU $ ;[ player.10 ( : walk.4 ) ] 2105 S000AA6 00 BYTE 000H/2 2106 S000AA7 00 BYTE 000H 2107 S000AA8 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 2108 S000AAA 98E1 WORD MFCIPCHR+18E1H 2109 S000AAC FF BYTE 0FFH 2110 ; 2111 000AAD MPOBJDT35 EQU $ ;[ player.11 ( : stop ) ] 2112 S000AAD 00 BYTE 000H/2 2113 S000AAE 00 BYTE 000H 2114 S000AAF 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2115 S000AB1 B0F1 WORD MFCIPCHR+30F1H 2116 S000AB3 FF BYTE 0FFH 2117 ; 2118 000AB4 MPOBJDT36 EQU $ ;[ player.12 ( : walk.1 ) ] 2119 S000AB4 00 BYTE 000H/2 2120 S000AB5 00 BYTE 000H 2121 S000AB6 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2122 S000AB8 A0E1 WORD MFCIPCHR+20E1H 2123 S000ABA FF BYTE 0FFH 2124 ; 2125 000ABB MPOBJDT37 EQU $ ;[ player.13 ( : walk.2 ) ] 2126 S000ABB 00 BYTE 000H/2 2127 S000ABC 00 BYTE 000H 2128 S000ABD 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2129 S000ABF A8E1 WORD MFCIPCHR+28E1H 2130 S000AC1 FF BYTE 0FFH 2131 ; 2132 000AC2 MPOBJDT38 EQU $ ;[ player.14 ( : walk.3 ) ] 2133 S000AC2 00 BYTE 000H/2 2134 S000AC3 00 BYTE 000H 2135 S000AC4 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 2136 S000AC6 B0E1 WORD MFCIPCHR+30E1H 2137 S000AC8 FF BYTE 0FFH 2138 ; 2139 000AC9 MPOBJDT39 EQU $ ;[ player.15 ( : walk.4 ) ] 2140 S000AC9 00 BYTE 000H/2 2141 S000ACA 00 BYTE 000H 2142 S000ACB 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 2143 S000ACD B8E1 WORD MFCIPCHR+38E1H 2144 S000ACF FF BYTE 0FFH 2145 ; 2146 000AD0 MPOBJDT3A EQU $ ;[ player.16 ( : stop ) ] 2147 S000AD0 00 BYTE 000H/2 2148 S000AD1 00 BYTE 000H 2149 S000AD2 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 2150 S000AD4 2059 WORD MPCIPCHR+2059H 2151 S000AD6 FF BYTE 0FFH 2152 ; 2153 000AD7 MPOBJDT3B EQU $ ;[ player.17 ( : walk.1 ) ] 2154 S000AD7 00 BYTE 000H/2 2155 S000AD8 00 BYTE 000H 2156 S000AD9 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 2157 S000ADB 00E1 WORD MPCIPCHR+00E1H 2158 S000ADD FF BYTE 0FFH 2159 ; 2160 000ADE MPOBJDT3C EQU $ ;[ player.18 ( : walk.2 ) ] 2161 S000ADE 00 BYTE 000H/2 2162 S000ADF 00 BYTE 000H 2163 S000AE0 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 2164 S000AE2 08E1 WORD MPCIPCHR+08E1H 2165 S000AE4 FF BYTE 0FFH 2166 ; 2167 000AE5 MPOBJDT3D EQU $ ;[ player.19 ( : walk.3 ) ] 2168 S000AE5 00 BYTE 000H/2 2169 S000AE6 00 BYTE 000H 2170 S000AE7 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 2171 S000AE9 10E1 WORD MPCIPCHR+10E1H 2172 S000AEB FF BYTE 0FFH 2173 ; 2174 000AEC MPOBJDT3E EQU $ ;[ player.20 ( : walk.4 ) ] 2175 S000AEC 00 BYTE 000H/2 2176 S000AED 00 BYTE 000H 2177 S000AEE 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 2178 S000AF0 18E1 WORD MPCIPCHR+18E1H 2179 S000AF2 FF BYTE 0FFH 2180 ; 2181 000AF3 MPOBJDT3F EQU $ ;[ player.21 ( : stop ) ] 2182 S000AF3 00 BYTE 000H/2 2183 S000AF4 00 BYTE 000H 2184 S000AF5 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2185 S000AF7 20F1 WORD MPCIPCHR+20F1H 2186 S000AF9 FF BYTE 0FFH 2187 ; 2188 000AFA MPOBJDT40 EQU $ ;[ player.22 ( : walk.1 ) ] 2189 S000AFA 00 BYTE 000H/2 2190 S000AFB 00 BYTE 000H 2191 S000AFC 09 07 BYTE 00AH-1,008H-1 vvv******* warn :value out of range 2192 S000AFE 00EB WORD MPCIPCHR+00EBH 2193 S000B00 FF BYTE 0FFH 2194 ; 2195 000B01 MPOBJDT41 EQU $ ;[ player.23 ( : walk.2 ) ] 2196 S000B01 00 BYTE 000H/2 2197 S000B02 00 BYTE 000H 2198 S000B03 09 07 BYTE 00AH-1,008H-1 vvv******* warn :value out of range 2199 S000B05 08EB WORD MPCIPCHR+08EBH 2200 S000B07 FF BYTE 0FFH 2201 ; 2202 000B08 MPOBJDT42 EQU $ ;[ player.24 ( : walk.3 ) ] 2203 S000B08 00 BYTE 000H/2 2204 S000B09 00 BYTE 000H 2205 S000B0A 09 07 BYTE 00AH-1,008H-1 vvv******* warn :value out of range 2206 S000B0C 10EB WORD MPCIPCHR+10EBH 2207 S000B0E FF BYTE 0FFH 2208 ; 2209 000B0F MPOBJDT43 EQU $ ;[ player.25 ( : walk.4 ) ] 2210 S000B0F 00 BYTE 000H/2 2211 S000B10 00 BYTE 000H 2212 S000B11 09 07 BYTE 00AH-1,008H-1 vvv******* warn :value out of range 2213 S000B13 18EB WORD MPCIPCHR+18EBH 2214 S000B15 FF BYTE 0FFH 2215 ; 2216 000B16 MPOBJDT44 EQU $ ;[ player.26 ( : stop ) ] 2217 S000B16 00 BYTE 000H/2 2218 S000B17 00 BYTE 000H 2219 S000B18 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2220 S000B1A A8F1 WORD MFCIPCHR+28F1H 2221 S000B1C FF BYTE 0FFH 2222 ; 2223 000B1D MPOBJDT45 EQU $ ;[ player.27 ( : walk.1 ) ] 2224 S000B1D 00 BYTE 000H/2 2225 S000B1E 00 BYTE 000H 2226 S000B1F 08 06 BYTE 009H-1,007H-1 vvv******* warn :value out of range 2227 S000B21 80F5 WORD MFCIPCHR+00F5H 2228 S000B23 FF BYTE 0FFH 2229 ; 2230 000B24 MPOBJDT46 EQU $ ;[ player.28 ( : walk.2 ) ] 2231 S000B24 00 BYTE 000H/2 2232 S000B25 00 BYTE 000H 2233 S000B26 08 06 BYTE 009H-1,007H-1 vvv******* warn :value out of range 2234 S000B28 88F5 WORD MFCIPCHR+08F5H 2235 S000B2A FF BYTE 0FFH 2236 ; 2237 000B2B MPOBJDT47 EQU $ ;[ player.29 ( : walk.3 ) ] 2238 S000B2B 00 BYTE 000H/2 2239 S000B2C 00 BYTE 000H 2240 S000B2D 08 06 BYTE 009H-1,007H-1 vvv******* warn :value out of range 2241 S000B2F 8FF5 WORD MFCIPCHR+0FF5H 2242 S000B31 FF BYTE 0FFH 2243 ; 2244 000B32 MPOBJDT48 EQU $ ;[ player.30 ( : walk.4 ) ] 2245 S000B32 00 BYTE 000H/2 2246 S000B33 00 BYTE 000H 2247 S000B34 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 2248 S000B36 97F5 WORD MFCIPCHR+17F5H 2249 S000B38 FF BYTE 0FFH 2250 ; 2251 000B39 MPOBJDT49 EQU $ ;[ player.31 ( : stop ) ] 2252 S000B39 00 BYTE 000H/2 2253 S000B3A 00 BYTE 000H 2254 S000B3B 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2255 S000B3D B8F1 WORD MFCIPCHR+38F1H 2256 S000B3F FF BYTE 0FFH 2257 ; 2258 000B40 MPOBJDT4A EQU $ ;[ player.32 ( : walk.1 ) ] 2259 S000B40 00 BYTE 000H/2 2260 S000B41 00 BYTE 000H 2261 S000B42 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2262 S000B44 A0E9 WORD MFCIPCHR+20E9H 2263 S000B46 FF BYTE 0FFH 2264 ; 2265 000B47 MPOBJDT4B EQU $ ;[ player.33 ( : walk.2 ) ] 2266 S000B47 00 BYTE 000H/2 2267 S000B48 00 BYTE 000H 2268 S000B49 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 2269 S000B4B A8E9 WORD MFCIPCHR+28E9H 2270 S000B4D FF BYTE 0FFH 2271 ; 2272 000B4E MPOBJDT4C EQU $ ;[ player.34 ( : walk.3 ) ] 2273 S000B4E 00 BYTE 000H/2 2274 S000B4F 00 BYTE 000H 2275 S000B50 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 2276 S000B52 B0E9 WORD MFCIPCHR+30E9H 2277 S000B54 FF BYTE 0FFH 2278 ; 2279 000B55 MPOBJDT4D EQU $ ;[ player.35 ( : walk.4 ) ] 2280 S000B55 00 BYTE 000H/2 2281 S000B56 00 BYTE 000H 2282 S000B57 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 2283 S000B59 B8E9 WORD MFCIPCHR+38E9H 2284 S000B5B FF BYTE 0FFH 2285 ; 2286 000B5C MPOBJDT4E EQU $ ;[ player.36 ( : stop ) ] 2287 S000B5C 00 BYTE 000H/2 2288 S000B5D 00 BYTE 000H 2289 S000B5E 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2290 S000B60 28F1 WORD MPCIPCHR+28F1H 2291 S000B62 FF BYTE 0FFH 2292 ; 2293 000B63 MPOBJDT4F EQU $ ;[ player.37 ( : walk.1 ) ] 2294 S000B63 00 BYTE 000H/2 2295 S000B64 00 BYTE 000H 2296 S000B65 08 06 BYTE 009H-1,007H-1 vvv******* warn :value out of range 2297 S000B67 00F5 WORD MPCIPCHR+00F5H 2298 S000B69 FF BYTE 0FFH 2299 ; 2300 000B6A MPOBJDT50 EQU $ ;[ player.38 ( : walk.2 ) ] 2301 S000B6A 00 BYTE 000H/2 2302 S000B6B 00 BYTE 000H 2303 S000B6C 08 06 BYTE 009H-1,007H-1 vvv******* warn :value out of range 2304 S000B6E 08F5 WORD MPCIPCHR+08F5H 2305 S000B70 FF BYTE 0FFH 2306 ; 2307 000B71 MPOBJDT51 EQU $ ;[ player.39 ( : walk.3 ) ] 2308 S000B71 00 BYTE 000H/2 2309 S000B72 00 BYTE 000H 2310 S000B73 08 06 BYTE 009H-1,007H-1 vvv******* warn :value out of range 2311 S000B75 0FF5 WORD MPCIPCHR+0FF5H 2312 S000B77 FF BYTE 0FFH 2313 ; 2314 000B78 MPOBJDT52 EQU $ ;[ player.40 ( : walk.4 ) ] 2315 S000B78 00 BYTE 000H/2 2316 S000B79 00 BYTE 000H 2317 S000B7A 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 2318 S000B7C 17F5 WORD MPCIPCHR+17F5H 2319 S000B7E FF BYTE 0FFH 2320 ; 2321 000B7F MPOBJDT53 EQU $ ;[ player.12 ( : walk.5 ) ] 2322 S000B7F 00 BYTE 000H/2 2323 S000B80 00 BYTE 000H 2324 S000B81 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2325 S000B83 20E1 WORD MPCIPCHR+20E1H 2326 S000B85 FF BYTE 0FFH 2327 ; 2328 000B86 MPOBJDT54 EQU $ ;[ player.13 ( : walk.6 ) ] 2329 S000B86 00 BYTE 000H/2 2330 S000B87 00 BYTE 000H 2331 S000B88 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2332 S000B8A 28E1 WORD MPCIPCHR+28E1H 2333 S000B8C FF BYTE 0FFH 2334 ; 2335 000B8D MPOBJDT55 EQU $ ;[ player.14 ( : walk.7 ) ] 2336 S000B8D 00 BYTE 000H/2 2337 S000B8E 00 BYTE 000H 2338 S000B8F 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2339 S000B91 30E1 WORD MPCIPCHR+30E1H 2340 S000B93 FF BYTE 0FFH 2341 ; 2342 000B94 MPOBJDT56 EQU $ ;[ player.15 ( : walk.8 ) ] 2343 S000B94 00 BYTE 000H/2 2344 S000B95 00 BYTE 000H 2345 S000B96 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2346 S000B98 38E1 WORD MPCIPCHR+38E1H 2347 S000B9A FF BYTE 0FFH 2348 ; 2349 000B9B MPOBJDT57 EQU $ ;[ player.32 ( : walk.5 ) ] 2350 S000B9B 00 BYTE 000H/2 2351 S000B9C 00 BYTE 000H 2352 S000B9D 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2353 S000B9F 20E9 WORD MPCIPCHR+20E9H 2354 S000BA1 FF BYTE 0FFH 2355 ; 2356 000BA2 MPOBJDT58 EQU $ ;[ player.33 ( : walk.6 ) ] 2357 S000BA2 00 BYTE 000H/2 2358 S000BA3 00 BYTE 000H 2359 S000BA4 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2360 S000BA6 28E9 WORD MPCIPCHR+28E9H 2361 S000BA8 FF BYTE 0FFH 2362 ; 2363 000BA9 MPOBJDT59 EQU $ ;[ player.34 ( : walk.7 ) ] 2364 S000BA9 00 BYTE 000H/2 2365 S000BAA 00 BYTE 000H 2366 S000BAB 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2367 S000BAD 30E9 WORD MPCIPCHR+30E9H 2368 S000BAF FF BYTE 0FFH 2369 ; 2370 000BB0 MPOBJDT5A EQU $ ;[ player.35 ( : walk.8 ) ] 2371 S000BB0 00 BYTE 000H/2 2372 S000BB1 00 BYTE 000H 2373 S000BB2 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2374 S000BB4 38E9 WORD MPCIPCHR+38E9H 2375 S000BB6 FF BYTE 0FFH 2376 ; 2377 000BB7 MPOBJDT5B EQU $ ;[ ayashii.H ] 2378 S000BB7 04 BYTE 008H/2 2379 S000BB8 00 BYTE 000H 2380 S000BB9 0F 1F BYTE 010H-1,020H-1 vvv******* warn :value out of range 2381 S000BBB 20A1 WORD MPCIPCHR+20A1H 2382 S000BBD FF BYTE 0FFH 2383 ; 2384 000BBE MPOBJDT5C EQU $ ;[ ayashii.L ] 2385 S000BBE 03 BYTE 006H/2 2386 S000BBF 00 BYTE 000H 2387 S000BC0 06 0D BYTE 007H-1,00EH-1 vvv******* warn :value out of range 2388 S000BC2 12A1 WORD MPCIPCHR+12A1H 2389 S000BC4 FF BYTE 0FFH 2390 ; 2391 000BC5 MPOBJDT5D EQU $ ;[ ayashii.2 ] 2392 S000BC5 06 BYTE 00CH/2 2393 S000BC6 00 BYTE 000H 2394 S000BC7 07 0F BYTE 008H-1,010H-1 vvv******* warn :value out of range 2395 S000BC9 30F8 WORD MPCIPCHR+30F8H 2396 S000BCB FF BYTE 0FFH 2397 ; 2398 000BCC MPOBJDT5E EQU $ ;[ big kinoko ] 2399 S000BCC 0B BYTE 016H/2 2400 S000BCD 01 BYTE 001H 2401 S000BCE 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 2402 S000BD0 3071 WORD MPCIPCHR+3071H 2403 S000BD2 FF BYTE 0FFH 2404 ; 2405 000BD3 MPOBJDT5F EQU $ ;[ small kinoko ] 2406 S000BD3 05 BYTE 00AH/2 2407 S000BD4 00 BYTE 000H 2408 S000BD5 09 08 BYTE 00AH-1,009H-1 vvv******* warn :value out of range 2409 S000BD7 16A7 WORD MPCIPCHR+16A7H 2410 S000BD9 FF BYTE 0FFH 2411 ; 2412 000BDA MPOBJDT60 EQU $ ;[ zenmai ] 2413 S000BDA 04 BYTE 008H/2 2414 S000BDB 00 BYTE 000H 2415 S000BDC 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 2416 S000BDE 1871 WORD MPCIPCHR+1871H 2417 S000BE0 FF BYTE 0FFH 2418 ; 2419 000BE1 MPOBJDT61 EQU $ ;[ big crystal ] 2420 S000BE1 06 BYTE 00CH/2 2421 S000BE2 00 BYTE 000H 2422 S000BE3 07 0A BYTE 008H-1,00BH-1 vvv******* warn :value out of range 2423 S000BE5 00A9 WORD MPCIPCHR+00A9H 2424 S000BE7 FF BYTE 0FFH 2425 ; 2426 000BE8 MPOBJDT62 EQU $ ;[ small crystal ] 2427 S000BE8 04 BYTE 008H/2 2428 S000BE9 00 BYTE 000H 2429 S000BEA 04 04 BYTE 005H-1,005H-1 vvv******* warn :value out of range 2430 S000BEC 304F WORD MPCIPCHR+304FH 2431 S000BEE FF BYTE 0FFH 2432 ; 2433 000BEF MPOBJDT63 EQU $ ;[ ishi (tea).1 ] 2434 S000BEF 06 BYTE 00CH/2 2435 S000BF0 00 BYTE 000H 2436 S000BF1 06 05 BYTE 007H-1,006H-1 vvv******* warn :value out of range 2437 S000BF3 3041 WORD MPCIPCHR+3041H 2438 S000BF5 FF BYTE 0FFH 2439 ; 2440 000BF6 MPOBJDT64 EQU $ ;[ ishi (tea).2 ] 2441 S000BF6 06 BYTE 00CH/2 2442 S000BF7 00 BYTE 000H 2443 S000BF8 05 05 BYTE 006H-1,006H-1 vvv******* warn :value out of range 2444 S000BFA 3049 WORD MPCIPCHR+3049H 2445 S000BFC FF BYTE 0FFH 2446 ; 2447 000BFD MPOBJDT65 EQU $ ;[ mini tower ] 2448 S000BFD 05 BYTE 00AH/2 2449 S000BFE 00 BYTE 000H 2450 S000BFF 06 07 BYTE 007H-1,008H-1 vvv******* warn :value out of range 2451 S000C01 3641 WORD MPCIPCHR+3641H 2452 S000C03 FF BYTE 0FFH 2453 ; 2454 000C04 MPOBJDT66 EQU $ ;[ high kinoko.2 ] 2455 S000C04 06 BYTE 00CH/2 2456 S000C05 00 BYTE 000H 2457 S000C06 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 2458 S000C08 18B1 WORD MPCIPCHR+18B1H 2459 S000C0A FF BYTE 0FFH 2460 ; 2461 000C0B MPOBJDT67 EQU $ ;[ high kinoko.3 ] 2462 S000C0B 06 BYTE 00CH/2 2463 S000C0C 00 BYTE 000H 2464 S000C0D 0F 17 BYTE 010H-1,018H-1 vvv******* warn :value out of range 2465 S000C0F 18B1 WORD MPCIPCHR+18B1H 2466 S000C11 FF BYTE 0FFH 2467 ; 2468 000C12 MPOBJDT68 EQU $ ;[ high kinoko.4 ] 2469 S000C12 06 BYTE 00CH/2 2470 S000C13 00 BYTE 000H 2471 S000C14 0F 07 BYTE 010H-1,008H-1 vvv******* warn :value out of range 2472 S000C16 28B1 WORD MPCIPCHR+28B1H 2473 S000C18 0F 17 BYTE 010H-1,018H-1 vvv******* warn :value out of range 2474 S000C1A 18B1 WORD MPCIPCHR+18B1H 2475 S000C1C FF BYTE 0FFH 2476 ; 2477 000C1D MPOBJDT69 EQU $ ;[ high kinoko.6 ] 2478 S000C1D 06 BYTE 00CH/2 2479 S000C1E 00 BYTE 000H 2480 S000C1F 0F 07 BYTE 010H-1,008H-1 vvv******* warn :value out of range 2481 S000C21 28B1 WORD MPCIPCHR+28B1H 2482 S000C23 0F 07 BYTE 010H-1,008H-1 vvv******* warn :value out of range 2483 S000C25 28B1 WORD MPCIPCHR+28B1H 2484 S000C27 0F 07 BYTE 010H-1,008H-1 vvv******* warn :value out of range 2485 S000C29 28B1 WORD MPCIPCHR+28B1H 2486 S000C2B 0F 17 BYTE 010H-1,018H-1 vvv******* warn :value out of range 2487 S000C2D 18B1 WORD MPCIPCHR+18B1H 2488 S000C2F FF BYTE 0FFH 2489 ; 2490 000C30 MPOBJDT6A EQU $ ;[ high kinoko.7 ] 2491 S000C30 06 BYTE 00CH/2 2492 S000C31 00 BYTE 000H 2493 S000C32 0F 07 BYTE 010H-1,008H-1 vvv******* warn :value out of range 2494 S000C34 28B1 WORD MPCIPCHR+28B1H 2495 S000C36 0F 07 BYTE 010H-1,008H-1 vvv******* warn :value out of range 2496 S000C38 28B1 WORD MPCIPCHR+28B1H 2497 S000C3A 0F 07 BYTE 010H-1,008H-1 vvv******* warn :value out of range 2498 S000C3C 28B1 WORD MPCIPCHR+28B1H 2499 S000C3E 0F 07 BYTE 010H-1,008H-1 vvv******* warn :value out of range 2500 S000C40 28B1 WORD MPCIPCHR+28B1H 2501 S000C42 0F 17 BYTE 010H-1,018H-1 vvv******* warn :value out of range 2502 S000C44 18B1 WORD MPCIPCHR+18B1H 2503 S000C46 FF BYTE 0FFH 2504 ; 2505 000C47 MPOBJDT6B EQU $ ;[ holl mask ] 2506 S000C47 00 BYTE 000H/2 2507 S000C48 05 BYTE 005H 2508 S000C49 27 1D BYTE 028H-1,01EH-1 vvv******* warn :value out of range 2509 S000C4B 8000 WORD MFCIPCHR+0000H 2510 S000C4D FF BYTE 0FFH 2511 ; 2512 000C4E MPOBJDT6C EQU $ ;[—d‚µ‚¢–Ø (‘å)] 2513 S000C4E 00 BYTE 000H/2 2514 S000C4F 00 BYTE 000H 2515 S000C50 0F 1F BYTE 010H-1,020H-1 vvv******* warn :value out of range 2516 S000C52 4000 WORD MPCIPCHR+4000H 2517 S000C54 FF BYTE 0FFH 2518 ; 2519 000C55 MPOBJDT6D EQU $ ;[—d‚µ‚¢–Ø (¬)] 2520 S000C55 00 BYTE 000H/2 2521 S000C56 00 BYTE 000H 2522 S000C57 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 2523 S000C59 5010 WORD MPCIPCHR+5010H 2524 S000C5B FF BYTE 0FFH 2525 ; 2526 000C5C MPOBJDT6E EQU $ ;[ Šâ(‘å)] 2527 S000C5C 00 BYTE 000H/2 2528 S000C5D 00 BYTE 000H 2529 S000C5E 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2530 S000C60 40E1 WORD MPCIPCHR+40E1H 2531 S000C62 FF BYTE 0FFH 2532 ; 2533 000C63 MPOBJDT6F EQU $ ;[Šâ(¬)] 2534 S000C63 00 BYTE 000H/2 2535 S000C64 00 BYTE 000H 2536 S000C65 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 2537 S000C67 4010 WORD MPCIPCHR+4010H 2538 S000C69 FF BYTE 0FFH 2539 ; 2540 000C6A MPOBJDT70 EQU $ ;[ ƒWƒƒƒ“ƒOƒ‹‚Ì“ƒ (‘å)] 2541 S000C6A 00 BYTE 000H/2 2542 S000C6B 00 BYTE 000H 2543 S000C6C 0F 1F BYTE 010H-1,020H-1 vvv******* warn :value out of range 2544 S000C6E 00C0 WORD MPCIPCHR+00C0H 2545 S000C70 FF BYTE 0FFH 2546 ; 2547 000C71 MPOBJDT71 EQU $ ;[ ƒWƒƒƒ“ƒOƒ‹‚Ì“ƒ (¬)] 2548 S000C71 00 BYTE 000H/2 2549 S000C72 00 BYTE 000H 2550 S000C73 07 15 BYTE 008H-1,016H-1 vvv******* warn :value out of range 2551 S000C75 2AF9 WORD MPCIPCHR+2AF9H 2552 S000C77 FF BYTE 0FFH 2553 ; 2554 000C78 MPOBJDT72 EQU $ ;[ ƒOƒŒ[‚Ì“ƒ ] 2555 S000C78 00 BYTE 000H/2 2556 S000C79 00 BYTE 000H 2557 S000C7A 0F 1F BYTE 010H-1,020H-1 vvv******* warn :value out of range 2558 S000C7C 20B0 WORD MPCIPCHR+20B0H 2559 S000C7E FF BYTE 0FFH 2560 ; 2561 000C7F MPOBJDT73 EQU $ ;[ ƒNƒbƒpé ] 2562 S000C7F 00 BYTE 000H/2 2563 S000C80 00 BYTE 000H 2564 S000C81 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2565 S000C83 4020 WORD MPCIPCHR+4020H 2566 S000C85 FF BYTE 0FFH 2567 ; 2568 000C86 MPOBJDT74 EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚P] 2569 S000C86 00 BYTE 000H/2 2570 S000C87 00 BYTE 000H 2571 S000C88 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2572 S000C8A 0040 WORD MPCIPCHR+0040H 2573 S000C8C FF BYTE 0FFH 2574 ; 2575 000C8D MPOBJDT75 EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚Q] 2576 S000C8D 00 BYTE 000H/2 2577 S000C8E 00 BYTE 000H 2578 S000C8F 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2579 S000C91 0001 WORD MPCIPCHR+0001H 2580 S000C93 FF BYTE 0FFH 2581 ; 2582 000C94 MPOBJDT76 EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚R] 2583 S000C94 00 BYTE 000H/2 2584 S000C95 00 BYTE 000H 2585 S000C96 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2586 S000C98 2001 WORD MPCIPCHR+2001H 2587 S000C9A FF BYTE 0FFH 2588 ; 2589 000C9B MPOBJDT77 EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚S] 2590 S000C9B 00 BYTE 000H/2 2591 S000C9C 00 BYTE 000H 2592 S000C9D 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2593 S000C9F 2021 WORD MPCIPCHR+2021H 2594 S000CA1 FF BYTE 0FFH 2595 ; 2596 000CA2 MPOBJDT78 EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚T] 2597 S000CA2 00 BYTE 000H/2 2598 S000CA3 00 BYTE 000H 2599 S000CA4 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2600 S000CA6 2081 WORD MPCIPCHR+2081H 2601 S000CA8 FF BYTE 0FFH 2602 ; 2603 000CA9 MPOBJDT79 EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚U] 2604 S000CA9 00 BYTE 000H/2 2605 S000CAA 00 BYTE 000H 2606 S000CAB 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2607 S000CAD 20C1 WORD MPCIPCHR+20C1H 2608 S000CAF FF BYTE 0FFH 2609 ; 2610 000CB0 MPOBJDT7A EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚V] 2611 S000CB0 00 BYTE 000H/2 2612 S000CB1 00 BYTE 000H 2613 S000CB2 1F 17 BYTE 020H-1,018H-1 vvv******* warn :value out of range 2614 S000CB4 4001 WORD MPCIPCHR+4001H 2615 S000CB6 FF BYTE 0FFH 2616 ; 2617 000CB7 MPOBJDT7B EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚W] 2618 S000CB7 00 BYTE 000H/2 2619 S000CB8 00 BYTE 000H 2620 S000CB9 1F 17 BYTE 020H-1,018H-1 vvv******* warn :value out of range 2621 S000CBB 4021 WORD MPCIPCHR+4021H 2622 S000CBD FF BYTE 0FFH 2623 ; 2624 000CBE MPOBJDT7C EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚X] 2625 S000CBE 00 BYTE 000H/2 2626 S000CBF 00 BYTE 000H 2627 S000CC0 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 2628 S000CC2 3080 WORD MPCIPCHR+3080H 2629 S000CC4 FF BYTE 0FFH 2630 ; 2631 000CC5 MPOBJDT7D EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚`] 2632 S000CC5 00 BYTE 000H/2 2633 S000CC6 00 BYTE 000H 2634 S000CC7 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 2635 S000CC9 3090 WORD MPCIPCHR+3090H 2636 S000CCB FF BYTE 0FFH 2637 ; 2638 000CCC MPOBJDT7E EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚P] 2639 S000CCC 00 BYTE 000H/2 2640 S000CCD 00 BYTE 000H 2641 S000CCE 1F 07 BYTE 020H-1,008H-1 vvv******* warn :value out of range 2642 S000CD0 D880 WORD MFCIPCHR+5880H 2643 S000CD2 FF BYTE 0FFH 2644 ; 2645 000CD3 MPOBJDT7F EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚Q] 2646 S000CD3 00 BYTE 000H/2 2647 S000CD4 00 BYTE 000H 2648 S000CD5 1F 0F BYTE 020H-1,010H-1 vvv******* warn :value out of range 2649 S000CD7 C080 WORD MFCIPCHR+4080H 2650 S000CD9 FF BYTE 0FFH 2651 ; 2652 000CDA MPOBJDT80 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚R] 2653 S000CDA 00 BYTE 000H/2 2654 S000CDB 00 BYTE 000H 2655 S000CDC 1F 17 BYTE 020H-1,018H-1 vvv******* warn :value out of range 2656 S000CDE C8C0 WORD MFCIPCHR+48C0H 2657 S000CE0 FF BYTE 0FFH 2658 ; 2659 000CE1 MPOBJDT81 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚S] 2660 S000CE1 00 BYTE 000H/2 2661 S000CE2 00 BYTE 000H 2662 S000CE3 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2663 S000CE5 C0E0 WORD MFCIPCHR+40E0H 2664 S000CE7 FF BYTE 0FFH 2665 ; 2666 000CE8 MPOBJDT82 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚T] 2667 S000CE8 00 BYTE 000H/2 2668 S000CE9 00 BYTE 000H 2669 S000CEA 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2670 S000CEC C060 WORD MFCIPCHR+4060H 2671 S000CEE FF BYTE 0FFH 2672 ; 2673 000CEF MPOBJDT83 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚U] 2674 S000CEF 00 BYTE 000H/2 2675 S000CF0 00 BYTE 000H 2676 S000CF1 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2677 S000CF3 C040 WORD MFCIPCHR+4040H 2678 S000CF5 FF BYTE 0FFH 2679 ; 2680 000CF6 MPOBJDT84 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚V] 2681 S000CF6 00 BYTE 000H/2 2682 S000CF7 00 BYTE 000H 2683 S000CF8 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2684 S000CFA A0C0 WORD MFCIPCHR+20C0H 2685 S000CFC FF BYTE 0FFH 2686 ; 2687 000CFD MPOBJDT85 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚W] 2688 S000CFD 00 BYTE 000H/2 2689 S000CFE 00 BYTE 000H 2690 S000CFF 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2691 S000D01 8060 WORD MFCIPCHR+0060H 2692 S000D03 FF BYTE 0FFH 2693 ; 2694 000D04 MPOBJDT86 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚X] 2695 S000D04 00 BYTE 000H/2 2696 S000D05 00 BYTE 000H 2697 S000D06 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2698 S000D08 A040 WORD MFCIPCHR+2040H 2699 S000D0A FF BYTE 0FFH 2700 ; 2701 000D0B MPOBJDT87 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚`] 2702 S000D0B 00 BYTE 000H/2 2703 S000D0C 00 BYTE 000H 2704 S000D0D 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2705 S000D0F A060 WORD MFCIPCHR+2060H 2706 S000D11 FF BYTE 0FFH 2707 ; 2708 000D12 MPOBJDT88 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚a] 2709 S000D12 00 BYTE 000H/2 2710 S000D13 00 BYTE 000H 2711 S000D14 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2712 S000D16 A000 WORD MFCIPCHR+2000H 2713 S000D18 FF BYTE 0FFH 2714 ; 2715 000D19 MPOBJDT89 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚b] 2716 S000D19 00 BYTE 000H/2 2717 S000D1A 00 BYTE 000H 2718 S000D1B 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2719 S000D1D A020 WORD MFCIPCHR+2020H 2720 S000D1F FF BYTE 0FFH 2721 ; 2722 000D20 MPOBJDT8A EQU $ ;[”j‰ó‚µ‚½Œã‚Ì“V‹óé] 2723 S000D20 00 BYTE 000H/2 2724 S000D21 0A BYTE 00AH 2725 S000D22 1F 17 BYTE 020H-1,018H-1 vvv******* warn :value out of range 2726 S000D24 4081 WORD MPCIPCHR+4081H 2727 S000D26 FF BYTE 0FFH 2728 ; 2729 000D27 MPOBJDT8B EQU $ ;[ƒˆƒbƒV[ ƒtƒ‰ƒbƒVƒ… ‚m‚.‚O] 2730 S000D27 00 BYTE 000H/2 2731 S000D28 00 BYTE 000H 2732 S000D29 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2733 S000D2B 40C1 WORD MPCIPCHR+40C1H 2734 S000D2D FF BYTE 0FFH 2735 ; 2736 000D2E MPOBJDT8C EQU $ ;[ƒˆƒbƒV[ ƒtƒ‰ƒbƒVƒ… ‚m‚.‚P] 2737 S000D2E 00 BYTE 000H/2 2738 S000D2F 00 BYTE 000H 2739 S000D30 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2740 S000D32 40A0 WORD MPCIPCHR+40A0H 2741 S000D34 FF BYTE 0FFH 2742 ; 2743 000D35 MPOBJDT8D EQU $ ;[ƒˆƒbƒV[ ƒtƒ‰ƒbƒVƒ… ‚m‚.‚Q] 2744 S000D35 00 BYTE 000H/2 2745 S000D36 00 BYTE 000H 2746 S000D37 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2747 S000D39 4041 WORD MPCIPCHR+4041H 2748 S000D3B FF BYTE 0FFH 2749 ; 2750 000D3C MPOBJDT8E EQU $ ;[ƒˆƒbƒV[ ƒtƒ‰ƒbƒVƒ… ‚m‚.‚R] 2751 S000D3C 00 BYTE 000H/2 2752 S000D3D 00 BYTE 000H 2753 S000D3E 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2754 S000D40 4061 WORD MPCIPCHR+4061H 2755 S000D42 FF BYTE 0FFH 2756 ; 2757 000D43 MPOBJDT8F EQU $ ;[ƒˆƒbƒV[ ƒtƒ‰ƒbƒVƒ… ‚m‚.‚S] 2758 S000D43 00 BYTE 000H/2 2759 S000D44 00 BYTE 000H 2760 S000D45 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 2761 S000D47 40A1 WORD MPCIPCHR+40A1H 2762 S000D49 FF BYTE 0FFH 2763 ; 2764 ;------------------------------------------------------------------------ 2765 ;- map pars data - 2766 ;------------------------------------------------------------------------ 2767 000300 PARSY EQU 0300H 2768 000D4A PARSDT EQU $ 2769 S000D4A 0120 011F 011F WORD 00120H,0011FH,0011FH,0011EH,0011DH,0011CH,0011CH,0011BH S000D50 011E 011D 011C S000D56 011C 011B 2770 S000D5A 011A 011A 0119 WORD 0011AH,0011AH,00119H,00118H,00117H,00117H,00116H,00115H S000D60 0118 0117 0117 S000D66 0116 0115 2771 S000D6A 0115 0114 0113 WORD 00115H,00114H,00113H,00113H,00112H,00111H,00111H,00110H S000D70 0113 0112 0111 S000D76 0111 0110 2772 S000D7A 010F 010F 010E WORD 0010FH,0010FH,0010EH,0010DH,0010DH,0010CH,0010CH,0010BH S000D80 010D 010D 010C S000D86 010C 010B 2773 S000D8A 010A 010A 0109 WORD 0010AH,0010AH,00109H,00108H,00108H,00107H,00107H,00106H S000D90 0108 0108 0107 S000D96 0107 0106 2774 S000D9A 0105 0105 0104 WORD 00105H,00105H,00104H,00104H,00103H,00102H,00102H,00101H S000DA0 0104 0103 0102 S000DA6 0102 0101 2775 S000DAA 0101 0100 00FF WORD 00101H,00100H,000FFH,000FFH,000FEH,000FEH,000FDH,000FDH S000DB0 00FF 00FE 00FE S000DB6 00FD 00FD 2776 S000DBA 00FC 00FB 00FB WORD 000FCH,000FBH,000FBH,000FAH,000FAH,000F9H,000F9H,000F8H S000DC0 00FA 00FA 00F9 S000DC6 00F9 00F8 2777 S000DCA 00F8 00F7 00F6 WORD 000F8H,000F7H,000F6H,000F6H,000F5H,000F5H,000F4H,000F4H S000DD0 00F6 00F5 00F5 S000DD6 00F4 00F4 2778 S000DDA 00F3 00F3 00F2 WORD 000F3H,000F3H,000F2H,000F2H,000F1H,000F1H,000F0H,000F0H S000DE0 00F2 00F1 00F1 S000DE6 00F0 00F0 2779 S000DEA 00EF 00EF 00EE WORD 000EFH,000EFH,000EEH,000EEH,000EDH,000EDH,000ECH,000ECH S000DF0 00EE 00ED 00ED S000DF6 00EC 00EC 2780 S000DFA 00EB 00EB 00EA WORD 000EBH,000EBH,000EAH,000EAH,000E9H,000E9H,000E8H,000E8H S000E00 00EA 00E9 00E9 S000E06 00E8 00E8 2781 S000E0A 00E7 00E7 00E6 WORD 000E7H,000E7H,000E6H,000E6H,000E5H,000E5H,000E5H,000E4H S000E10 00E6 00E5 00E5 S000E16 00E5 00E4 2782 S000E1A 00E4 00E3 00E3 WORD 000E4H,000E3H,000E3H,000E2H,000E2H,000E1H,000E1H,000E0H S000E20 00E2 00E2 00E1 S000E26 00E1 00E0 2783 ; 2784 0001B9 PARSYP EQU 01B9H 2785 000080 CENTZ EQU 080H 2786 000E2A PARSDV EQU $ 2787 S000E2A 468F 4680 4672 WORD 0468FH,04680H,04672H,04663H,04654H,04645H,04637H,04628H S000E30 4663 4654 4645 S000E36 4637 4628 2788 S000E3A 4619 460B 45FC WORD 04619H,0460BH,045FCH,045EEH,045DFH,045D1H,045C2H,045B4H S000E40 45EE 45DF 45D1 S000E46 45C2 45B4 2789 S000E4A 45A5 4597 4588 WORD 045A5H,04597H,04588H,0457AH,0456CH,0455DH,0454FH,04541H S000E50 457A 456C 455D S000E56 454F 4541 2790 S000E5A 4533 4524 4516 WORD 04533H,04524H,04516H,04508H,044FAH,044ECH,044DDH,044CFH S000E60 4508 44FA 44EC S000E66 44DD 44CF 2791 S000E6A 44C1 44B3 44A5 WORD 044C1H,044B3H,044A5H,04497H,04489H,0447BH,0446DH,0445FH S000E70 4497 4489 447B S000E76 446D 445F 2792 S000E7A 4451 4444 4436 WORD 04451H,04444H,04436H,04428H,0441AH,0440CH,043FEH,043F1H S000E80 4428 441A 440C S000E86 43FE 43F1 2793 S000E8A 43E3 43D5 43C8 WORD 043E3H,043D5H,043C8H,043BAH,043ACH,0439FH,04391H,04383H S000E90 43BA 43AC 439F S000E96 4391 4383 2794 S000E9A 4376 4368 435B WORD 04376H,04368H,0435BH,0434DH,04340H,04332H,04325H,04318H S000EA0 434D 4340 4332 S000EA6 4325 4318 2795 S000EAA 430A 42FD 42F0 WORD 0430AH,042FDH,042F0H,042E2H,042D5H,042C8H,042BAH,042ADH S000EB0 42E2 42D5 42C8 S000EB6 42BA 42AD 2796 S000EBA 42A0 4293 4286 WORD 042A0H,04293H,04286H,04278H,0426BH,0425EH,04251H,04244H S000EC0 4278 426B 425E S000EC6 4251 4244 2797 S000ECA 4237 422A 421D WORD 04237H,0422AH,0421DH,04210H,04203H,041F6H,041E9H,041DCH S000ED0 4210 4203 41F6 S000ED6 41E9 41DC 2798 S000EDA 41CF 41C2 41B5 WORD 041CFH,041C2H,041B5H,041A9H,0419CH,0418FH,04182H,04175H S000EE0 41A9 419C 418F S000EE6 4182 4175 2799 S000EEA 4169 415C 414F WORD 04169H,0415CH,0414FH,04143H,04136H,04129H,0411DH,04110H S000EF0 4143 4136 4129 S000EF6 411D 4110 2800 S000EFA 4103 40F7 40EA WORD 04103H,040F7H,040EAH,040DEH,040D1H,040C5H,040B8H,040ACH S000F00 40DE 40D1 40C5 S000F06 40B8 40AC 2801 S000F0A 409F 4093 4087 WORD 0409FH,04093H,04087H,0407AH,0406EH,04061H,04055H,04049H S000F10 407A 406E 4061 S000F16 4055 4049 2802 S000F1A 403D 4030 4024 WORD 0403DH,04030H,04024H,04018H,0400CH,03FFFH,03FF3H,03FE7H S000F20 4018 400C 3FFF S000F26 3FF3 3FE7 2803 S000F2A 3FDB 3FCF 3FC3 WORD 03FDBH,03FCFH,03FC3H,03FB7H,03FAAH,03F9EH,03F92H,03F86H S000F30 3FB7 3FAA 3F9E S000F36 3F92 3F86 2804 S000F3A 3F7A 3F6E 3F62 WORD 03F7AH,03F6EH,03F62H,03F56H,03F4BH,03F3FH,03F33H,03F27H S000F40 3F56 3F4B 3F3F S000F46 3F33 3F27 2805 S000F4A 3F1B 3F0F 3F03 WORD 03F1BH,03F0FH,03F03H,03EF7H,03EECH,03EE0H,03ED4H,03EC8H S000F50 3EF7 3EEC 3EE0 S000F56 3ED4 3EC8 2806 S000F5A 3EBD 3EB1 3EA5 WORD 03EBDH,03EB1H,03EA5H,03E9AH,03E8EH,03E82H,03E77H,03E6BH S000F60 3E9A 3E8E 3E82 S000F66 3E77 3E6B 2807 S000F6A 3E60 3E54 3E48 WORD 03E60H,03E54H,03E48H,03E3DH,03E31H,03E26H,03E1AH,03E0FH S000F70 3E3D 3E31 3E26 S000F76 3E1A 3E0F 2808 S000F7A 3E03 3DF8 3DED WORD 03E03H,03DF8H,03DEDH,03DE1H,03DD6H,03DCAH,03DBFH,03DB4H S000F80 3DE1 3DD6 3DCA S000F86 3DBF 3DB4 2809 S000F8A 3DA8 3D9D 3D92 WORD 03DA8H,03D9DH,03D92H,03D87H,03D7BH,03D70H,03D65H,03D5AH S000F90 3D87 3D7B 3D70 S000F96 3D65 3D5A 2810 S000F9A 3D4E 3D43 3D38 WORD 03D4EH,03D43H,03D38H,03D2DH,03D22H,03D17H,03D0CH,03D00H S000FA0 3D2D 3D22 3D17 S000FA6 3D0C 3D00 2811 S000FAA 3CF5 3CEA 3CDF WORD 03CF5H,03CEAH,03CDFH,03CD4H,03CC9H,03CBEH,03CB3H,03CA8H S000FB0 3CD4 3CC9 3CBE S000FB6 3CB3 3CA8 2812 S000FBA 3C9D 3C93 3C88 WORD 03C9DH,03C93H,03C88H,03C7DH,03C72H,03C67H,03C5CH,03C51H S000FC0 3C7D 3C72 3C67 S000FC6 3C5C 3C51 2813 S000FCA 3C46 3C3C 3C31 WORD 03C46H,03C3CH,03C31H,03C26H,03C1BH,03C11H,03C06H,03BFBH S000FD0 3C26 3C1B 3C11 S000FD6 3C06 3BFB 2814 S000FDA 3BF0 3BE6 3BDB WORD 03BF0H,03BE6H,03BDBH,03BD0H,03BC6H,03BBBH,03BB1H,03BA6H S000FE0 3BD0 3BC6 3BBB S000FE6 3BB1 3BA6 2815 S000FEA 3B9B 3B91 3B86 WORD 03B9BH,03B91H,03B86H,03B7CH,03B71H,03B67H,03B5CH,03B52H S000FF0 3B7C 3B71 3B67 S000FF6 3B5C 3B52 2816 S000FFA 3B47 3B3D 3B32 WORD 03B47H,03B3DH,03B32H,03B28H,03B1EH,03B13H,03B09H,03AFEH S001000 3B28 3B1E 3B13 S001006 3B09 3AFE 2817 S00100A 3AF4 3AEA 3ADF WORD 03AF4H,03AEAH,03ADFH,03AD5H,03ACBH,03AC0H,03AB6H,03AACH S001010 3AD5 3ACB 3AC0 S001016 3AB6 3AAC 2818 S00101A 3AA2 3A98 3A8D WORD 03AA2H,03A98H,03A8DH,03A83H,03A79H,03A6FH,03A65H,03A5AH S001020 3A83 3A79 3A6F S001026 3A65 3A5A 2819 ; 2820 000070 MPCENTX EQU 0E0H/2 2821 FFFEC0 MPCENTY EQU (070H+31H)-PARSYP-28H 2822 ; 2823 ; 2824 ; 2825 ; 2826 ; 2827 ;************************************************************************ 2828 ;* map data edit bitmap buffer clear * 2829 ;************************************************************************ 2830 ; 2831 00102A EDBFCLR EQU $ vvv******* warn :value out of range 2832 S00102A F1 2C00 IWT R1,#MPBITMAP ;(R1) <-- map bitmap buffer 2833 S00102D A0 00 IBT R0,#0 2834 S00102F FC 1900 IWT R12,#(20*20*20H)/2 2835 ; 2836 S001032 02 CACHE 2837 ; 2838 S001033 2F 1D MOVE R13,R15 2839 EDBCL010 2840 S001035 31 STW (R1) 2841 S001036 D1 INC R1 2842 S001037 3C LOOP 2843 S001038 D1 INC R1 2844 ; 2845 S001039 00 STOP 2846 S00103A 01 NOP 2847 ; 2848 ;************************************************************************ 2849 ;* map data edit bitmap plot * 2850 ;************************************************************************ 2851 ; 2852 00103B EDWRITE EQU $ 2853 ; 2854 ;-------------- map data edit OBJ write ------------------------- 2855 S00103B 3D F6 0204 LM R6,CEDZOOM ;(R6) <-- zoom flag 2856 S00103F F0 5000 IWT R0,#(20*8/2)*100H 2857 S001042 1A TO R10 ;(R10) <-- display area size (R) 2858 S001043 9F FMULT 2859 ; 2860 S001044 26 15 MOVE R5,R6 ;(R5) <-- zoom flag vvv******* warn :value out of range 2861 S001046 F0 24A0 IWT R0,#DIVBUF 2862 S001049 55 ADD R5 2863 S00104A 55 ADD R5 2864 S00104B 16 TO R6 ;(R6) <-- 1 / zoom flag 2865 S00104C 40 LDW (R0) 2866 ; 2867 S00104D FB 06EA IWT R11,#CMPOBJTYP ;(R11) <-- map OBJ data pointer 2868 ; 2869 S001050 3D FC 06E8 LM R12,CMPOBJSTN ;number of point 2870 ; 2871 S001054 02 CACHE 2872 ; 2873 S001055 2F 1D MOVE R13,R15 2874 EDWT0010 2875 S001057 3D 4B LDB (R11) 2876 S001059 E0 DEC R0 2877 S00105A 0A 06' BPL EDWT0020 ;set ok OBJ ? ( yes:EDWT0020 ) 2878 S00105C DB INC R11 2879 ; 2880 S00105D DB INC R11 2881 S00105E FF 110F' IWT R15,#EDWT0100 ;[ JMP EDWT0100 ] 2882 S001061 DB INC R11 ;[ dummy ] 2883 ; 2884 ;-------------- OBJ set --------------------------------- 2885 EDWT0020 2886 S001062 AE 00' IBT R14,#BANK EDOBJDT 2887 S001064 BE FROM R14 2888 S001065 3F DF ROMB 2889 ; 2890 S001067 50 ADD R0 ;x4 2891 S001068 50 ADD R0 2892 S001069 FE 129C' IWT R14,#EDOBJDT 2893 S00106C 1E TO R14 ;(R14) <-- map OBJ status data index address 2894 S00106D 5E ADD R14 2895 ; 2896 ;-------------- display check ------------------- 2897 S00106E 3D 4B LDB (R11) 2898 S001070 95 SEX ;(R0) <-- map OBJ X pos 2899 ; 2900 S001071 13 TO R3 ;(R3) <-- map OBJ size 2901 S001072 EF GETB 2902 S001073 DE INC R14 2903 S001074 B3 FROM R3 2904 S001075 18 TO R8 ;(R8) <-- " (R) 2905 S001076 03 LSR 2906 ; 2907 S001077 3D F1 0206 LM R1,CEDCENTX 2908 S00107B 61 SUB R1 2909 S00107C 20 11 MOVE R1,R0 ;(R1) <-- to display center X size 2910 S00107E 0A 03' BPL EDWT0030 2911 S001080 01 NOP 2912 ; 2913 S001081 4F NOT 2914 S001082 D0 INC R0 2915 EDWT0030 2916 S001083 6A SUB R10 2917 S001084 68 SUB R8 2918 S001085 0B 05' BMI EDWT0040 ;X display area ? ( yes:EDWT0040 ) 2919 S001087 DB INC R11 2920 ; 2921 S001088 FF 110F' IWT R15,#EDWT0100 ;[ JMP EDWT0100 ] 2922 S00108B DB INC R11 ;[ dummy ] 2923 ; 2924 EDWT0040 2925 S00108C 3D 4B LDB (R11) 2926 S00108E 95 SEX ;(R0) <-- map OBJ Z pos 2927 S00108F 3D F2 0208 LM R2,CEDCENTY 2928 S001093 62 SUB R2 2929 S001094 20 12 MOVE R2,R0 ;(R2) <-- to display center Z size 2930 S001096 0A 03' BPL EDWT0050 2931 S001098 01 NOP 2932 ; 2933 S001099 4F NOT 2934 S00109A D0 INC R0 2935 EDWT0050 2936 S00109B 6A SUB R10 2937 S00109C 68 SUB R8 2938 S00109D 0B 05' BMI EDWT0060 ;Y display area ? ( yes:EDWT0060 ) 2939 S00109F DB INC R11 2940 ; 2941 S0010A0 FF 110F' IWT R15,#EDWT0100 ;[ JMP EDWT0100 ] 2942 S0010A3 01 NOP 2943 ; 2944 ;-------------- map OBJ write ------------------- 2945 EDWT0060 2946 S0010A4 19 TO R9 ;(R9) <-- chara data address 2947 S0010A5 EF GETB 2948 S0010A6 DE INC R14 2949 ; 2950 S0010A7 B1 FROM R1 2951 S0010A8 68 SUB R8 2952 S0010A9 3D 9F LMULT 2953 S0010AB 9E LOB 2954 S0010AC 4D SWAP 2955 S0010AD 24 WITH R4 2956 S0010AE C0 HIB 2957 S0010AF C4 OR R4 2958 S0010B0 A7 50 IBT R7,#050H ;(R7) <-- center plot pos 2959 S0010B2 11 TO R1 ;(R1) <-- plot start X pos 2960 S0010B3 57 ADD R7 2961 ; 2962 S0010B4 29 WITH R9 2963 S0010B5 3D EF GETBH 2964 ; 2965 S0010B7 B2 FROM R2 2966 S0010B8 68 SUB R8 2967 S0010B9 3D 9F LMULT 2968 S0010BB 9E LOB 2969 S0010BC 4D SWAP 2970 S0010BD 24 WITH R4 2971 S0010BE C0 HIB 2972 S0010BF C4 OR R4 2973 S0010C0 B7 FROM R7 2974 S0010C1 12 TO R2 ;(R2) <-- plot start Y pos 2975 S0010C2 60 SUB R0 2976 ; 2977 ;-------------- chara plot -------------- 2978 S0010C3 A0 0A IBT R0,#BANK EDCIPCHR ;chara data address(B) set 2979 S0010C5 3F DF ROMB 2980 ; 2981 S0010C7 A7 00 IBT R7,#00 ;(R7) <-- plot mode 2982 S0010C9 B9 FROM R9 2983 S0010CA 03 LSR 2984 S0010CB 0C 03' BCC EDWT0070 ;high bit color ? ( no:EDWT0070 ) 2985 S0010CD 50 ADD R0 ;[ ASL ] 2986 ; 2987 S0010CE A7 04 IBT R7,#04H 2988 EDWT0070 2989 S0010D0 B7 FROM R7 2990 S0010D1 3D 4E CMODE ;plot mode set 2991 S0010D3 29 B0 MOVES R9,R0 ;(R9) <-- chara data address 2992 ; 2993 S0010D5 3E A6 26 SMS R6,REG6 ;(R6) save 2994 ; 2995 S0010D8 21 14 MOVE R4,R1 ;(R4) <-- plot start X pos 2996 S0010DA F6 00A0 IWT R6,#20*8 ;(R6) <-- display area max 2997 S0010DD E3 DEC R3 2998 S0010DE 23 WITH R3 2999 S0010DF 4D SWAP 3000 S0010E0 23 17 MOVE R7,R3 ;(R7) <-- chara Y wide 3001 EDWT0080 3002 S0010E2 24 11 MOVE R1,R4 ;(R1) <-- plot start X pos 3003 S0010E4 23 18 MOVE R8,R3 ;(R8) <-- chara X wide 3004 EDWT0090 3005 S0010E6 B1 FROM R1 3006 S0010E7 66 SUB R6 3007 S0010E8 0D 06' BCS EDWT0092 ;X display area ? ( no:EDWT0092 ) 3008 S0010EA 01 NOP 3009 ; 3010 S0010EB B2 FROM R2 3011 S0010EC 66 SUB R6 3012 S0010ED 0C 10' BCC EDWT0094 ;Y " ( yes:EDWT0094 ) 3013 S0010EF 70 MERGE 3014 ; 3015 ;-------------- not display area plot --- 3016 EDWT0092 3017 S0010F0 28 WITH R8 3018 S0010F1 65 SUB R5 ;(N) <-- end flag 3019 S0010F2 0A F2' BPL EDWT0090 3020 S0010F4 D1 INC R1 3021 ; 3022 S0010F5 27 WITH R7 3023 S0010F6 65 SUB R5 3024 S0010F7 0A E9' BPL EDWT0080 3025 S0010F9 E2 DEC R2 ;Y pos up !! 3026 ; 3027 S0010FA 05 11' BRA EDWT0096+1 3028 S0010FC 3D A6 26 LMS R6,REG6 ;[ dummy ] (R6) load 3029 ; 3030 ;-------------- display area plot ------- 3031 EDWT0094 3032 ;;;; MERGE 3033 S0010FF 1E TO R14 ;(R14) <-- chara data address 3034 S001100 59 ADD R9 3035 ; 3036 S001101 28 WITH R8 3037 S001102 65 SUB R5 ;(N) <-- end flag 3038 ; 3039 S001103 DF GETC ;color get 3040 S001104 0A E0' BPL EDWT0090 3041 S001106 4C PLOT ;plot 3042 ; 3043 S001107 27 WITH R7 3044 S001108 65 SUB R5 3045 S001109 0A D7' BPL EDWT0080 3046 S00110B E2 DEC R2 ;Y pos up !! 3047 ; 3048 EDWT0096 3049 S00110C 3D A6 26 LMS R6,REG6 ;(R6) load 3050 ; 3051 EDWT0100 3052 S00110F 3C LOOP 3053 S001110 DB INC R11 3054 ; 3055 ;-------------- last plot cancel ------------------------ 3056 S001111 D2 INC R2 3057 S001112 3D 4C RPIX 3058 ; 3059 S001114 00 STOP 3060 S001115 01 NOP 3061 ; 3062 ; 3063 ;**************************************************************** 3064 ;* map data edit cursol pos convert * 3065 ;* in : R10 <-- cursol X pos * 3066 ;* R11 <-- " Z " * 3067 ;* out : R10 <-- convert X pos * 3068 ;* R11 <-- " Z " * 3069 ;**************************************************************** 3070 001116 POINTCNV EQU $ 3071 S001116 3D F0 0204 LM R0,CEDZOOM 3072 S00111A 50 ADD R0 vvv******* warn :value out of range 3073 S00111B F1 24A0 IWT R1,#DIVBUF 3074 S00111E 51 ADD R1 3075 S00111F 16 TO R6 3076 S001120 40 LDW (R0) 3077 ; 3078 S001121 BA FROM R10 3079 S001122 3D 9F LMULT 3080 S001124 9E LOB 3081 S001125 4D SWAP 3082 S001126 24 WITH R4 3083 S001127 C0 HIB 3084 S001128 C4 OR R4 3085 S001129 F1 0080 IWT R1,#00080H 3086 S00112C 1A TO R10 3087 S00112D 51 ADD R1 3088 ; 3089 S00112E BB FROM R11 3090 S00112F 3D 9F LMULT 3091 S001131 9E LOB 3092 S001132 4D SWAP 3093 S001133 24 WITH R4 3094 S001134 C0 HIB 3095 S001135 11 TO R1 3096 S001136 C4 OR R4 3097 S001137 A0 58 IBT R0,#058H 3098 S001139 1B TO R11 3099 S00113A 61 SUB R1 3100 ; 3101 S00113B 00 STOP 3102 S00113C 01 NOP 3103 ; 3104 ; 3105 ; 3106 ;************************************************************************ 3107 ;* map data edit cursol pos convert * 3108 ;* in : (CCSRXPS) <-- cursol X pos * 3109 ;* (CCSRYPS) <-- " Z " * 3110 ;* out : (CEDMPXPS) <-- convert X pos * 3111 ;* (CEDMPZPS) <-- " Z " * 3112 ;************************************************************************ 3113 ; 3114 00113D EDPOSCNV EQU $ 3115 S00113D 3D F6 0204 LM R6,CEDZOOM ;(R6) <-- zoom flag 3116 S001141 01 NOP 3117 ; 3118 S001142 3D F0 020A LM R0,CCSRXPS 3119 S001146 F1 0080 IWT R1,#080H ;(R1) <-- display center X pos 3120 S001149 61 SUB R1 3121 S00114A 3D 9F LMULT 3122 S00114C 9E LOB 3123 S00114D 4D SWAP 3124 S00114E 24 WITH R4 3125 S00114F C0 HIB 3126 S001150 C4 OR R4 3127 S001151 3D F3 0206 LM R3,CEDCENTX 3128 S001155 53 ADD R3 3129 S001156 3E F0 020E SM R0,CEDMPXPS ;convert X pos set 3130 ; 3131 S00115A 3D F1 020C LM R1,CCSRYPS 3132 S00115E A0 58 IBT R0,#050H+08H ;(R1) <-- display center Y pos 3133 S001160 61 SUB R1 3134 S001161 3D 9F LMULT 3135 S001163 9E LOB 3136 S001164 4D SWAP 3137 S001165 24 WITH R4 3138 S001166 C0 HIB 3139 S001167 C4 OR R4 3140 S001168 3D F3 0208 LM R3,CEDCENTY 3141 S00116C 53 ADD R3 3142 S00116D 3E F0 0210 SM R0,CEDMPZPS ;convert Z pos set 3143 ; 3144 S001171 00 STOP 3145 S001172 01 NOP 3146 ; 3147 ;************************************************************************ 3148 ;* map data edit map pos convert [ edit pos <-- map pos ] * 3149 ;* in : (R1) <-- map X wide * 3150 ;* (R2) <-- " Z " * 3151 ;* out : (R1) <-- convert edit X wide * 3152 ;* (R2) <-- " Z " * 3153 ;************************************************************************ 3154 ; 3155 001173 EDMPCNV EQU $ 3156 S001173 3D F6 0204 LM R6,CEDZOOM ;(R6) <-- zoom flag vvv******* warn :value out of range 3157 S001177 F0 24A0 IWT R0,#DIVBUF 3158 S00117A 56 ADD R6 3159 S00117B 56 ADD R6 3160 S00117C 16 TO R6 ;(R6) <-- 1/zoom flag 3161 S00117D 40 LDW (R0) 3162 ; 3163 S00117E B1 FROM R1 3164 S00117F 4D SWAP 3165 S001180 11 TO R1 3166 S001181 9F FMULT 3167 ; 3168 S001182 B2 FROM R2 3169 S001183 4D SWAP 3170 S001184 12 TO R2 3171 S001185 9F FMULT 3172 ; 3173 S001186 00 STOP 3174 S001187 01 NOP 3175 ; 3176 ;************************************************************************ 3177 ;* map data edit parts search * 3178 ;* in : (CEDMPXPS) <-- search X pos * 3179 ;* (CEDMPZPS) <-- " Z " * 3180 ;* out : (R0) <-- search parts index * 3181 ;************************************************************************ 3182 ; 3183 001188 EDSARCH EQU $ 3184 ; 3185 ;-------------- search pos zoom convert ------------------------- 3186 S001188 3D F1 020E LM R1,CEDMPXPS ;(R1) <-- search X pos 3187 S00118C 01 NOP 3188 S00118D 3D F2 0210 LM R2,CEDMPZPS ;(R2) <-- zoom convert search Y pos 3189 ; 3190 ;-------------- data search ------------------------------------- 3191 ;;K;; IWT R11,#CMPOBJTYP+(16*4) ;(R11) <-- map OBJ data pointer 3192 ; 3193 S001191 3D F0 06E8 LM R0,CMPOBJSTN 3194 S001195 E0 DEC R0 3195 S001196 50 ADD R0 3196 S001197 50 ADD R0 3197 S001198 20 15 MOVE R5,R0 3198 S00119A F0 06EA IWT R0,#CMPOBJTYP 3199 S00119D 15 TO R5 3200 S00119E 55 ADD R5 3201 ; 3202 S00119F 3D F0 06E8 LM R0,CMPOBJSTN 3203 S0011A3 AC 10 IBT R12,#16 3204 S0011A5 1C TO R12 ;(R12) <-- number of point 3205 S0011A6 6C SUB R12 3206 S0011A7 09 52' BEQ EDSR0102 ;no data ? ( yes:EDSR0102 ) 3207 ; 3208 S0011A9 02 CACHE 3209 ; 3210 S0011AA 2F 1D MOVE R13,R15 3211 EDSR0010 3212 S0011AC 25 1B MOVE R11,R5 3213 ; 3214 S0011AE 3D 4B LDB (R11) 3215 S0011B0 E0 DEC R0 3216 S0011B1 0A 05' BPL EDSR0020 ;set ok OBJ ? ( yes:EDSR0020 ) 3217 S0011B3 DB INC R11 3218 ; 3219 S0011B4 DB INC R11 3220 S0011B5 05 3E' BRA EDSR0100 3221 S0011B7 DB INC R11 ;[ dummy ] 3222 ; 3223 ;-------------- OBJ data read --------------------------- 3224 EDSR0020 3225 S0011B8 AE 00' IBT R14,#BANK EDOBJDT 3226 S0011BA BE FROM R14 3227 S0011BB 3F DF ROMB 3228 ; 3229 S0011BD 50 ADD R0 ;x4 3230 S0011BE 50 ADD R0 3231 S0011BF FE 129C' IWT R14,#EDOBJDT 3232 S0011C2 1E TO R14 ;(R14) <-- map OBJ status data index address 3233 S0011C3 5E ADD R14 3234 ; 3235 ;-------------- data search ----------------------------- 3236 S0011C4 3D 4B LDB (R11) 3237 S0011C6 95 SEX ;(R0) <-- map OBJ X pos 3238 S0011C7 61 SUB R1 3239 S0011C8 20 16 MOVE R6,R0 3240 S0011CA 3D 9F LMULT 3241 S0011CC 3F 50 ADC #0 3242 S0011CE 09 04' BEQ EDSR0030 ;X search ok ? ( yes:EDSR0030 ) 3243 S0011D0 DB INC R11 3244 ; 3245 S0011D1 05 22' BRA EDSR0100 3246 S0011D3 DB INC R11 ;[ dummy ] 3247 ; 3248 EDSR0030 3249 S0011D4 EF GETB 3250 S0011D5 3E 60 SUB #0 3251 S0011D7 09 07' BEQ EDSR0032 ;not edit parts ? ( yes:EDSR0032 ) 3252 S0011D9 03 LSR ;to R !! 3253 ; 3254 S0011DA 80 MULT R0 3255 S0011DB 13 TO R3 ;(R3) <-- ( R * R ) - ( SX * SX ) 3256 S0011DC 64 SUB R4 3257 S0011DD 0D 04' BCS EDSR0040 ;search ok data ? ( yes:EDSR0040 ) 3258 S0011DF 01 NOP 3259 ; 3260 EDSR0032 3261 S0011E0 05 13' BRA EDSR0100 3262 S0011E2 DB INC R11 ;[ dummy ] 3263 ; 3264 EDSR0040 3265 S0011E3 3D 4B LDB (R11) 3266 S0011E5 95 SEX ;(R0) <-- map OBJ Y pos 3267 S0011E6 62 SUB R2 3268 S0011E7 20 16 MOVE R6,R0 3269 S0011E9 3D 9F LMULT 3270 S0011EB 3F 50 ADC #0 3271 S0011ED 08 06' BNE EDSR0100 ;Y search ok ? ( no:EDSR0100 ) 3272 S0011EF DB INC R11 3273 ; 3274 S0011F0 B3 FROM R3 3275 S0011F1 64 SUB R4 3276 S0011F2 0D 0B' BCS EDSR0110 ;search ok data ? ( yes:EDSR0110 ) 3277 S0011F4 01 NOP 3278 ; 3279 EDSR0100 3280 S0011F5 E5 DEC R5 3281 S0011F6 E5 DEC R5 3282 S0011F7 E5 DEC R5 3283 S0011F8 E5 DEC R5 3284 S0011F9 3C LOOP 3285 S0011FA DB INC R11 3286 ; 3287 ;-------------- not data search return set !! ----------- 3288 EDSR0102 3289 S0011FB A0 FF IBT R0,#0FFH ;(R0) <-- not search index set !! 3290 ; 3291 S0011FD 00 STOP 3292 S0011FE 01 NOP 3293 ; 3294 ;-------------- search data return set !! --------------- 3295 EDSR0110 3296 ;;K;; LM R0,CMPOBJSTN ;number of point 3297 ;;K;; SUB R12 3298 ;;K;; ADD R0 ;(R0) <-- search data index 3299 ;;K;; ADD R0 3300 ; 3301 S0011FF 2B WITH R11 3302 S001200 3E 63 SUB #3 3303 S001202 11 TO R1 ;(R1) <-- parts no. 3304 S001203 3D 4B LDB (R11) 3305 ; 3306 S001205 F0 06EA IWT R0,#CMPOBJTYP 3307 S001208 B5 FROM R5 3308 S001209 60 SUB R0 ;(R0) <-- search data index 3309 ; 3310 ;;K;; TO R1 ;(R1) <-- parts no. 3311 ;;K;; LDB (R5) 3312 ; 3313 ; 3314 ;************************************************************************ 3315 ;* map data edit 1 parts chara set * 3316 ;* in : (R1) <-- parts no. * 3317 ;************************************************************************ 3318 ; 3319 00120A EDUNITWT EQU $ 3320 S00120A 3E A0 20 SMS R0,REG0 ;(R0) save 3321 ; 3322 ;-------------- buffer clear ------------------------------------ vvv******* warn :value out of range 3323 S00120D F5 5E00 IWT R5,#MPBITMAP+(20*20*20H) ;(R5) <-- clear start address 3324 S001210 60 SUB R0 ;(R0) <-- clear data 3325 S001211 FC 0550 IWT R12,#((20*5-15)*20H)/2 3326 S001214 2F 1D MOVE R13,R15 3327 EDUW0000 3328 S001216 35 STW (R5) 3329 S001217 D5 INC R5 3330 S001218 3C LOOP 3331 S001219 D5 INC R5 3332 ; 3333 ;-------------- 1 parts chara set ------------------------------- 3334 S00121A 3D F5 0204 LM R5,CEDZOOM ;(R5) <-- zoom flag 3335 S00121E B5 FROM R5 3336 S00121F 55 ADD R5 vvv******* warn :value out of range 3337 S001220 F6 24A0 IWT R6,#DIVBUF 3338 S001223 56 ADD R6 3339 S001224 16 TO R6 ;(R6) <-- 1 / zoom flag 3340 S001225 40 LDW (R0) 3341 ; 3342 S001226 A0 00' IBT R0,#BANK EDOBJDT 3343 S001228 3F DF ROMB 3344 ; 3345 S00122A E1 DEC R1 3346 S00122B B1 FROM R1 ;x4 3347 S00122C 51 ADD R1 3348 S00122D 50 ADD R0 3349 S00122E FE 129C' IWT R14,#EDOBJDT 3350 S001231 1E TO R14 ;(R14) <-- map OBJ status data index address 3351 S001232 5E ADD R14 3352 ; 3353 S001233 EF GETB 3354 S001234 DE INC R14 3355 S001235 20 13 MOVE R3,R0 ;(R3) <-- map OBJ size 3356 S001237 03 LSR 3357 S001238 18 TO R8 ;(R8) <-- " (R) 3358 S001239 4D SWAP 3359 ; 3360 S00123A EF GETB 3361 S00123B DE INC R14 3362 S00123C 3D EF GETBH 3363 S00123E 20 19 MOVE R9,R0 ;(R9) <-- chara data address 3364 ; 3365 S001240 B8 FROM R8 3366 S001241 9F FMULT 3367 S001242 A7 14 IBT R7,#28H/2 ;(R7) <-- 1 parts plot center pos 3368 S001244 B7 FROM R7 3369 S001245 14 TO R4 ;(R4) <-- plot start X offset set 3370 S001246 60 SUB R0 3371 ; 3372 S001247 B8 FROM R8 3373 S001248 9F FMULT 3374 S001249 12 TO R2 ;(R2) <-- plot start Y set 3375 S00124A 57 ADD R7 3376 ; 3377 ;-------------- chara plot -------------- 3378 S00124B A0 0A IBT R0,#BANK EDCIPCHR ;chara data address(B) set 3379 S00124D 3F DF ROMB 3380 ; 3381 S00124F A7 00 IBT R7,#00 ;(R7) <-- plot mode 3382 S001251 B9 FROM R9 3383 S001252 03 LSR 3384 S001253 0C 03' BCC EDUW0010 ;high bit color ? ( no:EDUW0010 ) 3385 S001255 50 ADD R0 ;[ ASL ] 3386 ; 3387 S001256 A7 04 IBT R7,#04H 3388 EDUW0010 3389 S001258 B7 FROM R7 3390 S001259 3D 4E CMODE ;plot mode set 3391 S00125B 29 B0 MOVES R9,R0 ;(R9) <-- chara data address 3392 ; 3393 S00125D AA 28 IBT R10,#28H ;(R10) <-- display area max 3394 S00125F F0 00A0 IWT R0,#0A0H 3395 S001262 1C TO R12 ;(R12) <-- plot start X pos 3396 S001263 54 ADD R4 3397 S001264 E3 DEC R3 3398 S001265 23 WITH R3 3399 S001266 4D SWAP 3400 S001267 23 17 MOVE R7,R3 ;(R7) <-- chara Y wide 3401 ; 3402 S001269 02 CACHE 3403 ; 3404 EDUW0020 3405 S00126A 24 1B MOVE R11,R4 ;(R11) <-- plot start X offset 3406 S00126C 2C 11 MOVE R1,R12 ;(R1) <-- plot satrt X pos 3407 S00126E 23 18 MOVE R8,R3 ;(R8) <-- chara X wide 3408 EDUW0030 3409 S001270 BB FROM R11 3410 S001271 6A SUB R10 3411 S001272 0D 05' BCS EDUW0040 ;X display area ? ( no:EDUW0040 ) 3412 S001274 B2 FROM R2 3413 ; 3414 S001275 6A SUB R10 3415 S001276 0C 11' BCC EDUW0050 ;Y " ( yes:EDUW0050 ) 3416 S001278 70 MERGE 3417 ; 3418 ;-------------- not display area plot --- 3419 EDUW0040 3420 S001279 D1 INC R1 3421 S00127A 28 WITH R8 3422 S00127B 65 SUB R5 ;(N) <-- end flag 3423 S00127C 0A F2' BPL EDUW0030 3424 S00127E DB INC R11 3425 ; 3426 S00127F 27 WITH R7 3427 S001280 65 SUB R5 3428 S001281 0A E7' BPL EDUW0020 3429 S001283 E2 DEC R2 ;Y pos up !! 3430 ; 3431 S001284 3D A0 20 LMS R0,REG0 ;(R0) load 3432 ; 3433 S001287 00 STOP 3434 S001288 01 NOP 3435 ; 3436 ;-------------- display area plot ------- 3437 EDUW0050 3438 ;;;; MERGE 3439 S001289 1E TO R14 ;(R14) <-- chara data address 3440 S00128A 59 ADD R9 3441 ; 3442 S00128B DB INC R11 3443 ; 3444 S00128C 28 WITH R8 3445 S00128D 65 SUB R5 ;(N) <-- end flag 3446 ; 3447 S00128E DF GETC ;color get 3448 S00128F 0A DF' BPL EDUW0030 3449 S001291 4C PLOT ;plot 3450 ; 3451 S001292 27 WITH R7 3452 S001293 65 SUB R5 3453 S001294 0A D4' BPL EDUW0020 3454 S001296 E2 DEC R2 ;Y pos up !! 3455 ; 3456 EDUW0060 3457 S001297 3D A0 20 LMS R0,REG0 ;(R0) load 3458 ; 3459 S00129A 00 STOP 3460 S00129B 01 NOP 3461 ; 3462 ;************************************************************************ 3463 ;* map data edit parts search * 3464 ;* in : (CEDMPXPS) <-- search X pos * 3465 ;* (CEDMPZPS) <-- " Z " * 3466 ;* out : (R0) <-- search parts index * 3467 ;************************************************************************ 3468 ; 3469 ;------------------------------------------------------------------------ 3470 ;- map OBJ data - 3471 ;------------------------------------------------------------------------ 3472 0A8000 EDCIPCHR EQU 0A8000H 3473 ; 3474 00129C EDOBJDT EQU $ ;[MPOBJTYP] 3475 ; [size] 3476 ; [chara address] 3477 ; [dummy] 3478 S00129C 28 HEX 28 ;[01] yama.H vvv******* warn :value out of range 3479 S00129D 8000 WORD EDCIPCHR+0000H 3480 S00129F 00 HEX 00 3481 ; 3482 S0012A0 28 HEX 28 ;[02] " .M vvv******* warn :value out of range 3483 S0012A1 8028 WORD EDCIPCHR+0028H 3484 S0012A3 00 HEX 00 3485 ; 3486 S0012A4 28 HEX 28 ;[03] " .L vvv******* warn :value out of range 3487 S0012A5 D800 WORD EDCIPCHR+5800H 3488 S0012A7 00 HEX 00 3489 ; 3490 S0012A8 10 HEX 10 ;[04] tower( tea ) vvv******* warn :value out of range 3491 S0012A9 A090 WORD EDCIPCHR+2090H 3492 S0012AB 00 HEX 00 3493 ; 3494 S0012AC 10 HEX 10 ;[05] " ( gray ) vvv******* warn :value out of range 3495 S0012AD A0B0 WORD EDCIPCHR+20B0H 3496 S0012AF 00 HEX 00 3497 ; 3498 S0012B0 20 HEX 20 ;[06] kazan vvv******* warn :value out of range 3499 S0012B1 80E0 WORD EDCIPCHR+00E0H 3500 S0012B3 00 HEX 00 3501 ; 3502 S0012B4 20 HEX 20 ;[07] small yama vvv******* warn :value out of range 3503 S0012B5 A060 WORD EDCIPCHR+2060H 3504 S0012B7 00 HEX 00 3505 ; 3506 S0012B8 20 HEX 20 ;[08] dai vvv******* warn :value out of range 3507 S0012B9 8060 WORD EDCIPCHR+0060H 3508 S0012BB 00 HEX 00 3509 ; 3510 S0012BC 08 HEX 08 ;[09] small tower vvv******* warn :value out of range 3511 S0012BD B8D8 WORD EDCIPCHR+38D8H 3512 S0012BF 00 HEX 00 3513 ; 3514 S0012C0 10 HEX 10 ;[0A] wide tower vvv******* warn :value out of range 3515 S0012C1 B0B0 WORD EDCIPCHR+30B0H 3516 S0012C3 00 HEX 00 3517 ; 3518 S0012C4 10 HEX 10 ;[0B] mini yama vvv******* warn :value out of range 3519 S0012C5 B050 WORD EDCIPCHR+3050H 3520 S0012C7 00 HEX 00 3521 ; 3522 S0012C8 04 HEX 04 ;[0C] saku vvv******* warn :value out of range 3523 S0012C9 C94A WORD EDCIPCHR+494AH 3524 S0012CB 00 HEX 00 3525 ; 3526 S0012CC 10 HEX 10 ;[0D] yane vvv******* warn :value out of range 3527 S0012CD A080 WORD EDCIPCHR+2080H 3528 S0012CF 00 HEX 00 3529 ; 3530 S0012D0 20 HEX 20 ;[0E] holl vvv******* warn :value out of range 3531 S0012D1 A0E0 WORD EDCIPCHR+20E0H 3532 S0012D3 00 HEX 00 3533 ; 3534 S0012D4 10 HEX 10 ;[0F] tree.1 vvv******* warn :value out of range 3535 S0012D5 90B0 WORD EDCIPCHR+10B0H 3536 S0012D7 00 HEX 00 3537 ; 3538 S0012D8 10 HEX 10 ;[10] " .2 vvv******* warn :value out of range 3539 S0012D9 A0C0 WORD EDCIPCHR+20C0H 3540 S0012DB 00 HEX 00 3541 ; 3542 S0012DC 0A HEX 0A ;[11] " .3 vvv******* warn :value out of range 3543 S0012DD C23A WORD EDCIPCHR+423AH 3544 S0012DF 00 HEX 00 3545 ; 3546 S0012E0 0A HEX 0A ;[12] " .4 vvv******* warn :value out of range 3547 S0012E1 C22A WORD EDCIPCHR+422AH 3548 S0012E3 00 HEX 00 3549 ; 3550 S0012E4 10 HEX 10 ;[13] " .5 vvv******* warn :value out of range 3551 S0012E5 90C0 WORD EDCIPCHR+10C0H 3552 S0012E7 00 HEX 00 3553 ; 3554 S0012E8 10 HEX 10 ;[14] iwa vvv******* warn :value out of range 3555 S0012E9 80D0 WORD EDCIPCHR+00D0H 3556 S0012EB 00 HEX 00 3557 ; 3558 S0012EC 18 HEX 18 ;[15] kumo vvv******* warn :value out of range 3559 S0012ED C000 WORD EDCIPCHR+4000H 3560 S0012EF 00 HEX 00 3561 ; 3562 S0012F0 20 HEX 20 ;[16] laputa vvv******* warn :value out of range 3563 S0012F1 8080 WORD EDCIPCHR+0080H 3564 S0012F3 00 HEX 00 3565 ; 3566 S0012F4 08 HEX 08 ;[17] keble vvv******* warn :value out of range 3567 S0012F5 B0C8 WORD EDCIPCHR+30C8H 3568 S0012F7 00 HEX 00 3569 ; 3570 S0012F8 07 HEX 07 ;[18] kusa vvv******* warn :value out of range 3571 S0012F9 B9A8 WORD EDCIPCHR+39A8H 3572 S0012FB 00 HEX 00 3573 ; 3574 S0012FC 06 HEX 06 ;[19] flower vvv******* warn :value out of range 3575 S0012FD C25A WORD EDCIPCHR+425AH 3576 S0012FF 00 HEX 00 3577 ; 3578 S001300 08 HEX 08 ;[1A] ishi vvv******* warn :value out of range 3579 S001301 C850 WORD EDCIPCHR+4850H 3580 S001303 00 HEX 00 3581 ; 3582 S001304 04 HEX 04 ;[1B] lope vvv******* warn :value out of range 3583 S001305 C262 WORD EDCIPCHR+4262H 3584 S001307 00 HEX 00 3585 ; 3586 S001308 00 HEX 00 ;[1C] kazan smoke.1 vvv******* warn :value out of range 3587 S001309 8000 WORD EDCIPCHR+0000H 3588 S00130B 00 HEX 00 3589 ; 3590 S00130C 00 HEX 00 ;[1D] " .2 vvv******* warn :value out of range 3591 S00130D 8000 WORD EDCIPCHR+0000H 3592 S00130F 00 HEX 00 3593 ; 3594 S001310 00 HEX 00 ;[1E] " .3 vvv******* warn :value out of range 3595 S001311 8000 WORD EDCIPCHR+0000H 3596 S001313 00 HEX 00 3597 ; 3598 S001314 00 HEX 00 ;[1F] " .4 vvv******* warn :value out of range 3599 S001315 8000 WORD EDCIPCHR+0000H 3600 S001317 00 HEX 00 3601 ; 3602 S001318 00 HEX 00 ;[20] " .5 vvv******* warn :value out of range 3603 S001319 8000 WORD EDCIPCHR+0000H 3604 S00131B 00 HEX 00 3605 ; 3606 S00131C 00 HEX 00 ;[21] " .6 vvv******* warn :value out of range 3607 S00131D 8000 WORD EDCIPCHR+0000H 3608 S00131F 00 HEX 00 3609 ; 3610 S001320 00 HEX 00 ;[22] " .7 vvv******* warn :value out of range 3611 S001321 8000 WORD EDCIPCHR+0000H 3612 S001323 00 HEX 00 3613 ; 3614 S001324 07 HEX 07 ;[23] kamome.1 vvv******* warn :value out of range 3615 S001325 B098 WORD EDCIPCHR+3098H 3616 S001327 00 HEX 00 3617 ; 3618 S001328 00 HEX 00 ;[24] " .2 vvv******* warn :value out of range 3619 S001329 8000 WORD EDCIPCHR+0000H 3620 S00132B 00 HEX 00 3621 ; 3622 S00132C 00 HEX 00 ;[25] " .3 vvv******* warn :value out of range 3623 S00132D 8000 WORD EDCIPCHR+0000H 3624 S00132F 00 HEX 00 3625 ; 3626 S001330 00 HEX 00 ;[26] " .4 vvv******* warn :value out of range 3627 S001331 8000 WORD EDCIPCHR+0000H 3628 S001333 00 HEX 00 3629 ; 3630 S001334 00 HEX 00 ;[27] " .5 vvv******* warn :value out of range 3631 S001335 8000 WORD EDCIPCHR+0000H 3632 S001337 00 HEX 00 3633 ; 3634 S001338 00 HEX 00 ;[28] " .6 vvv******* warn :value out of range 3635 S001339 8000 WORD EDCIPCHR+0000H 3636 S00133B 00 HEX 00 3637 ; 3638 S00133C 00 HEX 00 ;[29] " .7 vvv******* warn :value out of range 3639 S00133D 8000 WORD EDCIPCHR+0000H 3640 S00133F 00 HEX 00 3641 ; 3642 S001340 00 HEX 00 ;[2A] " .8 vvv******* warn :value out of range 3643 S001341 8000 WORD EDCIPCHR+0000H 3644 S001343 00 HEX 00 3645 ; 3646 S001344 00 HEX 00 ;[2B] player.1 vvv******* warn :value out of range 3647 S001345 8000 WORD EDCIPCHR+0000H 3648 S001347 00 HEX 00 3649 ; 3650 S001348 00 HEX 00 ;[2C] " .2 vvv******* warn :value out of range 3651 S001349 8000 WORD EDCIPCHR+0000H 3652 S00134B 00 HEX 00 3653 ; 3654 S00134C 00 HEX 00 ;[2D] " .3 vvv******* warn :value out of range 3655 S00134D 8000 WORD EDCIPCHR+0000H 3656 S00134F 00 HEX 00 3657 ; 3658 S001350 00 HEX 00 ;[2E] " .4 vvv******* warn :value out of range 3659 S001351 8000 WORD EDCIPCHR+0000H 3660 S001353 00 HEX 00 3661 ; 3662 S001354 00 HEX 00 ;[2F] " .5 vvv******* warn :value out of range 3663 S001355 8000 WORD EDCIPCHR+0000H 3664 S001357 00 HEX 00 3665 ; 3666 S001358 00 HEX 00 ;[30] " .6 vvv******* warn :value out of range 3667 S001359 8000 WORD EDCIPCHR+0000H 3668 S00135B 00 HEX 00 3669 ; 3670 S00135C 00 HEX 00 ;[31] " .7 vvv******* warn :value out of range 3671 S00135D 8000 WORD EDCIPCHR+0000H 3672 S00135F 00 HEX 00 3673 ; 3674 S001360 00 HEX 00 ;[32] " .8 vvv******* warn :value out of range 3675 S001361 8000 WORD EDCIPCHR+0000H 3676 S001363 00 HEX 00 3677 ; 3678 S001364 00 HEX 00 ;[33] " .9 vvv******* warn :value out of range 3679 S001365 8000 WORD EDCIPCHR+0000H 3680 S001367 00 HEX 00 3681 ; 3682 S001368 00 HEX 00 ;[34] " .10 vvv******* warn :value out of range 3683 S001369 8000 WORD EDCIPCHR+0000H 3684 S00136B 00 HEX 00 3685 ; 3686 S00136C 00 HEX 00 ;[35] " .11 vvv******* warn :value out of range 3687 S00136D 8000 WORD EDCIPCHR+0000H 3688 S00136F 00 HEX 00 3689 ; 3690 S001370 00 HEX 00 ;[36] " .12 vvv******* warn :value out of range 3691 S001371 8000 WORD EDCIPCHR+0000H 3692 S001373 00 HEX 00 3693 ; 3694 S001374 00 HEX 00 ;[37] " .13 vvv******* warn :value out of range 3695 S001375 8000 WORD EDCIPCHR+0000H 3696 S001377 00 HEX 00 3697 ; 3698 S001378 00 HEX 00 ;[38] " .14 vvv******* warn :value out of range 3699 S001379 8000 WORD EDCIPCHR+0000H 3700 S00137B 00 HEX 00 3701 ; 3702 S00137C 00 HEX 00 ;[39] " .15 vvv******* warn :value out of range 3703 S00137D 8000 WORD EDCIPCHR+0000H 3704 S00137F 00 HEX 00 3705 ; 3706 S001380 00 HEX 00 ;[3A] " .16 vvv******* warn :value out of range 3707 S001381 8000 WORD EDCIPCHR+0000H 3708 S001383 00 HEX 00 3709 ; 3710 S001384 00 HEX 00 ;[3B] " .17 vvv******* warn :value out of range 3711 S001385 8000 WORD EDCIPCHR+0000H 3712 S001387 00 HEX 00 3713 ; 3714 S001388 00 HEX 00 ;[3C] " .18 vvv******* warn :value out of range 3715 S001389 8000 WORD EDCIPCHR+0000H 3716 S00138B 00 HEX 00 3717 ; 3718 S00138C 00 HEX 00 ;[3D] " .19 vvv******* warn :value out of range 3719 S00138D 8000 WORD EDCIPCHR+0000H 3720 S00138F 00 HEX 00 3721 ; 3722 S001390 00 HEX 00 ;[3E] " .20 vvv******* warn :value out of range 3723 S001391 8000 WORD EDCIPCHR+0000H 3724 S001393 00 HEX 00 3725 ; 3726 S001394 00 HEX 00 ;[3F] " .21 vvv******* warn :value out of range 3727 S001395 8000 WORD EDCIPCHR+0000H 3728 S001397 00 HEX 00 3729 ; 3730 S001398 00 HEX 00 ;[40] " .22 vvv******* warn :value out of range 3731 S001399 8000 WORD EDCIPCHR+0000H 3732 S00139B 00 HEX 00 3733 ; 3734 S00139C 00 HEX 00 ;[41] " .23 vvv******* warn :value out of range 3735 S00139D 8000 WORD EDCIPCHR+0000H 3736 S00139F 00 HEX 00 3737 ; 3738 S0013A0 00 HEX 00 ;[42] " .24 vvv******* warn :value out of range 3739 S0013A1 8000 WORD EDCIPCHR+0000H 3740 S0013A3 00 HEX 00 3741 ; 3742 S0013A4 00 HEX 00 ;[43] " .25 vvv******* warn :value out of range 3743 S0013A5 8000 WORD EDCIPCHR+0000H 3744 S0013A7 00 HEX 00 3745 ; 3746 S0013A8 00 HEX 00 ;[44] " .26 vvv******* warn :value out of range 3747 S0013A9 8000 WORD EDCIPCHR+0000H 3748 S0013AB 00 HEX 00 3749 ; 3750 S0013AC 00 HEX 00 ;[45] " .27 vvv******* warn :value out of range 3751 S0013AD 8000 WORD EDCIPCHR+0000H 3752 S0013AF 00 HEX 00 3753 ; 3754 S0013B0 00 HEX 00 ;[46] " .28 vvv******* warn :value out of range 3755 S0013B1 8000 WORD EDCIPCHR+0000H 3756 S0013B3 00 HEX 00 3757 ; 3758 S0013B4 00 HEX 00 ;[47] " .29 vvv******* warn :value out of range 3759 S0013B5 8000 WORD EDCIPCHR+0000H 3760 S0013B7 00 HEX 00 3761 ; 3762 S0013B8 00 HEX 00 ;[48] " .30 vvv******* warn :value out of range 3763 S0013B9 8000 WORD EDCIPCHR+0000H 3764 S0013BB 00 HEX 00 3765 ; 3766 S0013BC 00 HEX 00 ;[49] " .31 vvv******* warn :value out of range 3767 S0013BD 8000 WORD EDCIPCHR+0000H 3768 S0013BF 00 HEX 00 3769 ; 3770 S0013C0 00 HEX 00 ;[4A] " .32 vvv******* warn :value out of range 3771 S0013C1 8000 WORD EDCIPCHR+0000H 3772 S0013C3 00 HEX 00 3773 ; 3774 S0013C4 00 HEX 00 ;[2B] " .33 vvv******* warn :value out of range 3775 S0013C5 8000 WORD EDCIPCHR+0000H 3776 S0013C7 00 HEX 00 3777 ; 3778 S0013C8 00 HEX 00 ;[4C] " .34 vvv******* warn :value out of range 3779 S0013C9 8000 WORD EDCIPCHR+0000H 3780 S0013CB 00 HEX 00 3781 ; 3782 S0013CC 00 HEX 00 ;[4D] " .35 vvv******* warn :value out of range 3783 S0013CD 8000 WORD EDCIPCHR+0000H 3784 S0013CF 00 HEX 00 3785 ; 3786 S0013D0 00 HEX 00 ;[4E] " .36 vvv******* warn :value out of range 3787 S0013D1 8000 WORD EDCIPCHR+0000H 3788 S0013D3 00 HEX 00 3789 ; 3790 S0013D4 00 HEX 00 ;[4F] " .37 vvv******* warn :value out of range 3791 S0013D5 8000 WORD EDCIPCHR+0000H 3792 S0013D7 00 HEX 00 3793 ; 3794 S0013D8 00 HEX 00 ;[50] " .38 vvv******* warn :value out of range 3795 S0013D9 8000 WORD EDCIPCHR+0000H 3796 S0013DB 00 HEX 00 3797 ; 3798 S0013DC 00 HEX 00 ;[51] " .39 vvv******* warn :value out of range 3799 S0013DD 8000 WORD EDCIPCHR+0000H 3800 S0013DF 00 HEX 00 3801 ; 3802 S0013E0 00 HEX 00 ;[52] " .40 vvv******* warn :value out of range 3803 S0013E1 8000 WORD EDCIPCHR+0000H 3804 S0013E3 00 HEX 00 3805 ; 3806 S0013E4 00 HEX 00 ;[53] " .41 vvv******* warn :value out of range 3807 S0013E5 8000 WORD EDCIPCHR+0000H 3808 S0013E7 00 HEX 00 3809 ; 3810 S0013E8 00 HEX 00 ;[54] " .42 vvv******* warn :value out of range 3811 S0013E9 8000 WORD EDCIPCHR+0000H 3812 S0013EB 00 HEX 00 3813 ; 3814 S0013EC 00 HEX 00 ;[55] " .43 vvv******* warn :value out of range 3815 S0013ED 8000 WORD EDCIPCHR+0000H 3816 S0013EF 00 HEX 00 3817 ; 3818 S0013F0 00 HEX 00 ;[56] " .44 vvv******* warn :value out of range 3819 S0013F1 8000 WORD EDCIPCHR+0000H 3820 S0013F3 00 HEX 00 3821 ; 3822 S0013F4 00 HEX 00 ;[57] " .45 vvv******* warn :value out of range 3823 S0013F5 8000 WORD EDCIPCHR+0000H 3824 S0013F7 00 HEX 00 3825 ; 3826 S0013F8 00 HEX 00 ;[58] " .46 vvv******* warn :value out of range 3827 S0013F9 8000 WORD EDCIPCHR+0000H 3828 S0013FB 00 HEX 00 3829 ; 3830 S0013FC 00 HEX 00 ;[59] " .47 vvv******* warn :value out of range 3831 S0013FD 8000 WORD EDCIPCHR+0000H 3832 S0013FF 00 HEX 00 3833 ; 3834 S001400 00 HEX 00 ;[5A] " .48 vvv******* warn :value out of range 3835 S001401 8000 WORD EDCIPCHR+0000H 3836 S001403 00 HEX 00 3837 ; 3838 S001404 10 HEX 10 ;[5B] ayashii.H vvv******* warn :value out of range 3839 S001405 B080 WORD EDCIPCHR+3080H 3840 S001407 00 HEX 00 3841 ; 3842 S001408 08 HEX 08 ;[5C] " .L vvv******* warn :value out of range 3843 S001409 B0A0 WORD EDCIPCHR+30A0H 3844 S00140B 00 HEX 00 3845 ; 3846 S00140C 08 HEX 08 ;[5D] " .2 vvv******* warn :value out of range 3847 S00140D B0D0 WORD EDCIPCHR+30D0H 3848 S00140F 00 HEX 00 3849 ; 3850 S001410 10 HEX 10 ;[5E] big kinoko vvv******* warn :value out of range 3851 S001411 90D0 WORD EDCIPCHR+10D0H 3852 S001413 00 HEX 00 3853 ; 3854 S001414 0A HEX 0A ;[5F] small " vvv******* warn :value out of range 3855 S001415 C31A WORD EDCIPCHR+431AH 3856 S001417 00 HEX 00 3857 ; 3858 S001418 08 HEX 08 ;[60] zenmai vvv******* warn :value out of range 3859 S001419 B0D8 WORD EDCIPCHR+30D8H 3860 S00141B 00 HEX 00 3861 ; 3862 S00141C 08 HEX 08 ;[61] big crystal vvv******* warn :value out of range 3863 S00141D B0C0 WORD EDCIPCHR+30C0H 3864 S00141F 00 HEX 00 3865 ; 3866 S001420 06 HEX 06 ;[62] small " vvv******* warn :value out of range 3867 S001421 C250 WORD EDCIPCHR+4250H 3868 S001423 00 HEX 00 3869 ; 3870 S001424 08 HEX 08 ;[63] ishi (tea).1 vvv******* warn :value out of range 3871 S001425 C858 WORD EDCIPCHR+4858H 3872 S001427 00 HEX 00 3873 ; 3874 S001428 07 HEX 07 ;[64] " .2 vvv******* warn :value out of range 3875 S001429 C148 WORD EDCIPCHR+4148H 3876 S00142B 00 HEX 00 3877 ; 3878 S00142C 08 HEX 08 ;[65] mini tower vvv******* warn :value out of range 3879 S00142D B090 WORD EDCIPCHR+3090H 3880 S00142F 00 HEX 00 3881 ; 3882 S001430 10 HEX 10 ;[66] high kinoko.2 vvv******* warn :value out of range 3883 S001431 A0A0 WORD EDCIPCHR+20A0H 3884 S001433 00 HEX 00 3885 ; 3886 S001434 10 HEX 10 ;[67] " .3 vvv******* warn :value out of range 3887 S001435 90A0 WORD EDCIPCHR+10A0H 3888 S001437 00 HEX 00 3889 ; 3890 S001438 10 HEX 10 ;[68] " .4 vvv******* warn :value out of range 3891 S001439 80A0 WORD EDCIPCHR+00A0H 3892 S00143B 00 HEX 00 3893 ; 3894 S00143C 10 HEX 10 ;[69] " .6 vvv******* warn :value out of range 3895 S00143D 80B0 WORD EDCIPCHR+00B0H 3896 S00143F 00 HEX 00 3897 ; 3898 S001440 10 HEX 10 ;[6A] " .7 vvv******* warn :value out of range 3899 S001441 80C0 WORD EDCIPCHR+00C0H 3900 S001443 00 HEX 00 3901 ; 3902 S001444 00 HEX 00 ;[6B] holl mask vvv******* warn :value out of range 3903 S001445 8000 WORD EDCIPCHR+0000H 3904 S001447 00 HEX 00 3905 ; 3906 S001448 10 HEX 10 ;[6C] —d‚µ‚¢–Ø (‘å) vvv******* warn :value out of range 3907 S001449 F038 WORD EDCIPCHR+7038H 3908 S00144B 00 HEX 00 3909 ; 3910 S00144C 10 HEX 10 ;[6D] —d‚µ‚¢–Ø (¬) vvv******* warn :value out of range 3911 S00144D F048 WORD EDCIPCHR+7048H 3912 S00144F 00 HEX 00 3913 ; 3914 S001450 20 HEX 20 ;[6E] Šâ(‘å) vvv******* warn :value out of range 3915 S001451 D048 WORD EDCIPCHR+5048H 3916 S001453 00 HEX 00 3917 ; 3918 S001454 10 HEX 10 ;[6F] Šâ(¬) vvv******* warn :value out of range 3919 S001455 F028 WORD EDCIPCHR+7028H 3920 S001457 00 HEX 00 3921 ; 3922 S001458 10 HEX 10 ;[70] ƒWƒƒƒ“ƒOƒ‹‚Ì“ƒ (‘å) vvv******* warn :value out of range 3923 S001459 9050 WORD EDCIPCHR+1050H 3924 S00145B 00 HEX 00 3925 ; 3926 S00145C 08 HEX 08 ;[71] ƒWƒƒƒ“ƒOƒ‹‚Ì“ƒ(¬) vvv******* warn :value out of range 3927 S00145D B808 WORD EDCIPCHR+3808H 3928 S00145F 00 HEX 00 3929 ; 3930 S001460 10 HEX 10 ;[72] ƒOƒŒ[‚Ì“ƒ vvv******* warn :value out of range 3931 S001461 8050 WORD EDCIPCHR+0050H 3932 S001463 00 HEX 00 3933 ; 3934 S001464 20 HEX 20 ;[73] ƒNƒbƒpé vvv******* warn :value out of range 3935 S001465 D028 WORD EDCIPCHR+5028H 3936 S001467 00 HEX 00 3937 ; 3938 S001468 00 HEX 00 ;[74] " .9 vvv******* warn :value out of range 3939 S001469 8000 WORD EDCIPCHR+0000H 3940 S00146B 00 HEX 00 3941 ; 3942 S00146C 00 HEX 00 ;[75] " .10 vvv******* warn :value out of range 3943 S00146D 8000 WORD EDCIPCHR+0000H 3944 S00146F 00 HEX 00 3945 ; 3946 S001470 00 HEX 00 ;[76] " .11 vvv******* warn :value out of range 3947 S001471 8000 WORD EDCIPCHR+0000H 3948 S001473 00 HEX 00 3949 ; 3950 S001474 00 HEX 00 ;[77] " .12 vvv******* warn :value out of range 3951 S001475 8000 WORD EDCIPCHR+0000H 3952 S001477 00 HEX 00 3953 ; 3954 S001478 00 HEX 00 ;[78] " .13 vvv******* warn :value out of range 3955 S001479 8000 WORD EDCIPCHR+0000H 3956 S00147B 00 HEX 00 3957 ; 3958 S00147C 00 HEX 00 ;[79] " .14 vvv******* warn :value out of range 3959 S00147D 8000 WORD EDCIPCHR+0000H 3960 S00147F 00 HEX 00 3961 ; 3962 S001480 00 HEX 00 ;[7A] point display hand vvv******* warn :value out of range 3963 S001481 8000 WORD EDCIPCHR+0000H 3964 S001483 00 HEX 00 3965 ; 3966 S001484 10 HEX 10 ;[7B] point.1 vvv******* warn :value out of range 3967 S001485 A800 WORD EDCIPCHR+2800H 3968 S001487 00 HEX 00 3969 ; 3970 ;-------------- player walk point --------------------------------------- 3971 S001488 08 HEX 08 ;[7C] player walk point.1 vvv******* warn :value out of range 3972 S001489 B800 WORD EDCIPCHR+3800H 3973 S00148B 00 HEX 00 3974 ; 3975 ; 3976 ; 3977 ; 3978 ; 3979 ; 3980 ; 3981 ; 3982 ; 3983 ; 3984 ; 3985 ; 3986 ; 3987 ; 3988 ; 3989 ;R0 work 3990 ;R1 drow x pos. 3991 ;R2 drow y pos. 3992 ;R3 kakudo / cos R3 3993 ;R4 sin R3 3994 ;R5 rom data addr. 3995 ;R6 rom data y inc. data / rom data y relative pos. 3996 ;R7 rom data y relative pos. 3997 ;R8 rom data x relative pos. 3998 ;R9 rom data x inc. data / rom data x relative pos. 3999 ;R10 tate loop counter 4000 ;R11 drow start x pos. save 4001 ;R12 yoko loop counter 4002 ;R13 yoko loop addr. 4003 ;R14 rom pointer 4004 ; 4005 ; 4006 ;******************************************************** 4007 ;* drow revice culc. * 4008 ;******************************************************** 4009 ;REVOLTION DROW 4010 00148C EXP_DROW EQU $ 4011 ;REV_DROW EQU $ 4012 S00148C A0 04 IBT R0,#004H ;colour mode set 4013 S00148E 3D 4E CMODE ; 4014 4015 S001490 A0 00' IBT R0,#BANK SIN ;sin cos data bank set 4016 S001492 3F DF ROMB 4017 4018 S001494 23 WITH R3 4019 S001495 9E LOB 4020 4021 S001496 23 WITH R3 ;kakudo * 2 4022 S001497 53 ADD R3 4023 4024 S001498 F0 0164' IWT R0,#SIN ;sin R3 set 4025 S00149B 1E TO R14 ; 4026 S00149C 53 ADD R3 ; 4027 S00149D 3E EF GETBL ; 4028 S00149F DE INC R14 ; 4029 S0014A0 3D EF GETBH ; 4030 S0014A2 20 14 MOVE R4,R0 4031 4032 S0014A4 F0 00E4' IWT R0,#COS ;cos R3 set 4033 S0014A7 1E TO R14 ; 4034 S0014A8 53 ADD R3 ; 4035 S0014A9 3E EF GETBL ; 4036 S0014AB DE INC R14 ; 4037 S0014AC 3D EF GETBH ; 4038 S0014AE 20 13 MOVE R3,R0 4039 4040 S0014B0 F6 1000 IWT R6,#01000H 4041 S0014B3 F0 0100 IWT R0,#00100H 4042 S0014B6 63 SUB R3 4043 S0014B7 17 TO R7 4044 S0014B8 9F FMULT 4045 4046 S0014B9 24 10 MOVE R0,R4 4047 S0014BB 9F FMULT 4048 S0014BC 18 TO R8 4049 S0014BD 57 ADD R7 4050 4051 S0014BE 27 WITH R7 4052 S0014BF 60 SUB R0 4053 4054 S0014C0 27 WITH R7 4055 S0014C1 4D SWAP 4056 S0014C2 28 WITH R8 4057 S0014C3 4D SWAP 4058 4059 S0014C4 27 16 MOVE R6,R7 4060 S0014C6 28 19 MOVE R9,R8 4061 ; 4062 S0014C8 21 1B MOVE R11,R1 4063 4064 S0014CA A0 56 IBT R0,#BANK MPCIPCHR ;dom bank set 4065 S0014CC 3F DF ROMB ; 4066 vvv******* warn :value out of range 4067 S0014CE F5 00C0 IWT R5,#MPCIPCHR+0C0H ;rom data start addr. set 4068 4069 S0014D1 AA 20 IBT R10,#020H ;tate loop counter set 4070 4071 S0014D3 02 CACHE 4072 REV_DROW0400 4073 S0014D4 AC 20 IBT R12,#020H ;yoko loop counter set 4074 4075 S0014D6 2F 1D MOVE R13,R15 ;loop addr. set 4076 4077 S0014D8 A0 00 IBT R0,#000H ;drow colour clear 4078 S0014DA 4E COLOUR ; 4079 4080 S0014DB 70 MERGE ;rom read relative pointer merge & range check 4081 S0014DC 0D 04' BCS REV_DROW0600 ;check ng: REV_DROW0600 4082 S0014DE 01 NOP ; 4083 4084 S0014DF 1E TO R14 ;rom read pointer culc. 4085 S0014E0 55 ADD R5 ; 4086 4087 S0014E1 DF GETC ;rom data read 4088 4089 REV_DROW0600 4090 4091 S0014E2 28 WITH R8 ;next rom data x relative pos. culc. 4092 S0014E3 53 ADD R3 ; 4093 4094 S0014E4 27 WITH R7 ;next rom data y relative pos. culc 4095 S0014E5 54 ADD R4 ; 4096 4097 S0014E6 3C LOOP ;yoko loop end 4098 S0014E7 4C PLOT ;drow point 4099 4100 S0014E8 29 18 MOVE R8,R9 ;rom data x relative pos. reset 4101 S0014EA 28 WITH R8 4102 S0014EB 64 SUB R4 4103 S0014EC 28 19 MOVE R9,R8 4104 4105 S0014EE 26 17 MOVE R7,R6 ;rom data y relative pos. reset 4106 S0014F0 27 WITH R7 4107 S0014F1 53 ADD R3 4108 S0014F2 27 16 MOVE R6,R7 4109 4110 S0014F4 2B 11 MOVE R1,R11 ;drow x pos. reset 4111 4112 S0014F6 D2 INC R2 4113 4114 S0014F7 EA DEC R10 ;tate loop end 4115 S0014F8 0A DA' BPL REV_DROW0400 ; 4116 S0014FA 01 NOP ; 4117 4118 S0014FB 00 STOP 4119 S0014FC 01 NOP 4120 ; 4121 ; 4122 ; 4123 ; 4124 ; 4125 END