; INCLUDE zel_ram.asm INCLUDE zel_label.asm ; ;------------------------------------------------------------------------ ; ; PAL_ZELDA-3 (GERMAN) 1991.10.03(THU) ; ;------------------------------------------------------------------------ ; ORG 018000H ; ;=============================================== (zel_make) ============= GLB MKROOM,HISIST ;=============================================== (zel_main) ============= EXT MD_endg1 ;=============================================== (zel_bgwt) ============= EXT HINFDST,REWTST ; EXT inf_not EXT inf_ee0,inf_ee1,inf_ee2,inf_ee3,inf_ee4 EXT inf_ee5,inf_ee6,inf_ee7,inf_ee8,inf_ee9 EXT inf_bs0,inf_bs1,inf_bs2,inf_bs3,inf_bs4 EXT inf_bs5,inf_bs6,inf_bs7,inf_bs8 EXT inf_ssd,inf_bsd,inf_sd0,inf_sd1 EXT inf_wdn,inf_wup,inf_wgt,inf_gwr EXT inf_wre,inf_wle,inf_wde,inf_wue,inf_cwy EXT inf_tp0,inf_tp1,inf_tp2,inf_bcw,inf_ebl EXT inf_stk,inf_cws EXT inf_et0,inf_et1,inf_et2,inf_et3,inf_et4 EXT inf_et5,inf_et6,inf_et7,inf_et8,inf_et9 EXT inf_btk,inf_trt ;=============================================== (zel_rmdt) ============= EXT DJNDT ;=============================================== (zel_djdt) ============= EXT BASICDT,WRRSD0 EXT DJNBEN,DJNLEN ;=============================================== (zel_data0) ============ EXT UNITDT,FLORDT,UDRTBL,DDRTBL,LDRTBL,RDRTBL ; EXT BITCD0,BITCD1,TBITCD EXT DRADRD,UPADR0,DNADR0,LFADR0,RTADR0,UPADR1,DNADR1,LFADR1,RTADR1 EXT OPDRCD EXT FLRSAD EXT MWLDT0,MWLDT1,WRWPPD0,WRWPPD1,WRWPPD2,djdordt,dkdordt ;--------------------------------------------------------------- unit data EXT wtfldt,nukidt,cnulld,stopyk,watrd0,watrd1,iceykd,iceyd1 EXT beltyd,dngryd,colyk0,colyk1,rupyyk,crshy0,crshy1,crshy2 EXT eraykd,watrd2,sbkykd ; EXT lfwld0,rtwld0,upwld0,dnwld0,lfwld8,rtwld8,upwld8,dnwld8 EXT ulfwld,urtwld,uupwld,udnwld EXT ceildt,uarchd,darchd,larchd,rarchd EXT luswd0,ldswd0,ruswd0,rdswd0,luswd1,ldswd1,ruswd1,rdswd1 EXT luswd2,ldswd2,ruswd2,rdswd2 EXT luswd8,ldswd8,ruswd8,rdswd8,luswd9,ldswd9,ruswd9,rdswd9 EXT luswdA,ldswdA,ruswdA,rdswdA EXT sidndt,sidnmk,sdstpd,holedt,holed9,holed0 EXT fance0,fance1,fance4,fance5 EXT wakls0,wakls1,wakrs0,wakrs1,wakud0,wakud1,wakud2,wakud3 EXT wakud4,wakud5,wakud6,wakud7,wakud8,wakud9,lbrgdt,wbrgdt EXT uscrbd,dscrbd,lscrbd,rscrbd,uscrd1,dscrd1,lscrd1,rscrd1 EXT ushdwd,dshdwd,lshdwd,rshdwd,crptdt,cedged ;;;;;;;;,lroadd,wroadd EXT mwald0,mwald1,mwald2,mwald3,mwalc0,mwalc1 EXT crtnd0,crtnd1,crtnd2,crtnd3,crtnd8,crtnd9,crtndA,crtndB EXT yoroid,pillrd,tldaid,uwndwd,dwndwd,lwndwd,rwndwd EXT twcrdt,btbldt,spild0,spild1,spild2,spild3 EXT wwaku0,wwaku1,wwaku2,wwaku3,wwaku4,wwaku5,wwaku6,wwaku7,wwaku8,wwaku9 EXT btakid,stakid,bltwd0,bltwd1,stand0,stand1,chmnyd,ovend0,rackdt EXT tlifdt,ylifdt,clifd0,clifd1,clifd2,clifd3 EXT tlifd0,tlifd1,tlifd2,tlifd3,clifdt,slifdt,slifdd,clifdd EXT timtd0,timtd1,timtd2,timtd3 EXT cwndw0,cwndw1,cwndw2,cwndw3,cwndw4,cwndw5,cwndw6,cwndw7 EXT cstged,lfwldc,rtwldc,upwldc,dnwldc,tgblkd,dkan10,dkan11 EXT jytnd0,jytnd1,jytnd2,jytnd3,jytnd4,trmkdt EXT ygkbd0,ygkbd1,ygkbd2,ygkbd3 ; EXT lucrd0,ldcrd0,rucrd0,rdcrd0,lupld0,ldpld0,rupld0,rdpld0 EXT lucrd8,ldcrd8,rucrd8,rdcrd8,lupld8,ldpld8,rupld8,rdpld8 EXT lucpl0,ldcpl0,rucpl0,rdcpl0,lucpl1,ldcpl1,rucpl1,rdcpl1 EXT monod0,monod1,mblokd,mblkd0,mblkd1,mblkd2,mblkd3,mblkd4 EXT onswhd,ofswhd,smldid,firedt,tarudt,opnykd EXT tabled,beddat,kchird,qchird,bchird,schird EXT danrod,kzripd,kzrisd,kzribd EXT upstep,dnstep,kdnstp,udstep,udstp1,wrsstp,ustep1,dstep1 EXT cwlkzd,bblmpd,rouyad,roukyd,tkbox0,tkbox1,tkbox2,tkbox3 EXT tthld0,tthld1,tthld2,tthld3,tthld4,tthld5,tthld6,tthld7 EXT lucrdc,ldcrdc,rucrdc,rdcrdc,lupldc,ldpldc,rupldc,rdpldc EXT slstp0,slstp1,slstp2,slstp3,slstp4,slstp5,slstp6,slstp7 EXT ttbod0,ttbod1,ttbog0,ttbog1,ttbog2,ttbog3 EXT wgated,tbrstp,ustepd,dstepd,cplisd,dvldid EXT tapdt0,tapdt1,tapdt2,kntrdt0,kntrdt1,kntrdt2,kntrdt3 EXT ssidid,ssrmd0,ssrmd1,ssrmd2,ssrmd3,ssrmd4,ssrmd5 EXT wgatop0,wgatop1,wgatop2,wgatop3,haisui EXT dkan00,dkan01,dkan02,dkan03,dkan20,dkan21,dkan22,dkan23 EXT dkan30,dkan31,dkan32,dkan33,dkan40,bosice,djwpyk EXT rupydt,kbana0,kbana1,skband,entrd0,kuidt0,kuidt1 EXT kjtand,kjrodt,kjmizd,kjdaid EXT onswh1,ofswh1,djwpy1,inriyk,cngyk0,cngyk1 EXT urnidt,polydd,stand2,stand3,stand4,stand5 EXT saradt,tmizud,booktd,konrod,musikd,botldt EXT slmbsd,slmbs1,dmswhd,emyykd,emyblk,cngana EXT udmbmb,ddmbmb,ldmbmb,rdmbmb EXT monod2,hisui0,hisui1,hisui2,hisui3 EXT hkrid0,hkrid1,hkrid2,ykcnv0,ykcnv1,ykcnv2,ykcnv3,boskme,bsentr EXT gnnkz0,gnnkz1,gnnkz2,iceat2,honeyk,numayk,ykmrk0,ykmrk1,ykmrk2 ;======================================================================== EXT p1_scl1 ;======================================================================== ; EXTEND MEM8 IDX8 ; ; ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;************************************************************************ ;* Make ROOM main (MKROOM) * ;************************************************************************ ; ;======================================================== CHANGE data DATA0 EQU $ ; 00 01 02 03 04 05 06 07 WORD ceildt,upwld0,dnwld0,upwld8,dnwld8,uarchd,darchd,upwldc ; 08 09 0A 0B 0C 0D 0E 0F WORD dnwldc,luswd0,ldswd0,ruswd0,rdswd0,luswd1,ldswd1,ruswd1 ; 10 11 12 13 14 15 16 17 WORD rdswd1,luswd2,ldswd2,ruswd2,rdswd2,luswd8,ldswd8,ruswd8 ; 18 19 1A 1B 1C 1D 1E 1F WORD rdswd8,luswd9,ldswd9,ruswd9,rdswd9,luswdA,ldswdA,ruswdA ; 20 21 22 23 24 25 26 27 WORD rdswdA,sdstpd,fance1,wakls0,wakls1,wakrs0,wakrs1,wakud0 ; 28 29 2A 2B 2C 2D 2E 2F WORD wakud1,wakud4,wakud5,wakud6,wakud7,wakud8,wakud9,uscrbd ; 30 31 32 33 34 35 36 37 word dscrbd,ushdwd,dshdwd,crptdt,cedged,00000H,crtnd0,crtnd1 ; 38 39 3A 3B 3C 3D 3E 3F WORD yoroid,pillrd,uwndwd,dwndwd,twcrdt,tldaid,spild0,wwaku0 ; 40 41 42 43 44 45 46 47 WORD wwaku1,wwaku4,wwaku5,wwaku6,wwaku7,wwaku8,wwaku9,btakid ; 48 49 4A 4B 4C 4D 4E 4F WORD stakid,bltwd0,bltwd1,spild1,stand0,chmnyd,ovend0,rackdt ; 50 51 52 53 54 55 56 57 WORD ylifdt,tthld4,tthld5,dkan11,00000H,timtd0,timtd1,cwndw0 ; 58 59 5A 5B 5C 5D 5E 5F WORD cwndw1,cwndw4,cwndw5,tthld0,tthld1,fance5,mblokd,fance1 ; ; 60 61 62 63 64 65 66 67 WORD ceildt,lfwld0,rtwld0,lfwld8,rtwld8,larchd,rarchd,lfwldc ; 68 69 6A 6B 6C 6D 6E 6F WORD rtwldc,fance0,wakud2,wakud3,lscrbd,rscrbd,lshdwd,rshdwd ; 70 71 72 73 74 75 76 77 WORD crptdt,cedged,00000H,crtnd2,crtnd3,pillrd,lwndwd,rwndwd ; 78 79 7A 7B 7C 7D 7E 7F WORD spild2,wwaku2,wwaku3,spild3,tlifdt,dkan10,00000H,timtd2 ; 80 81 82 83 84 85 86 87 WORD timtd3,cwndw2,cwndw3,cwndw6,cwndw7,tthld2,tthld3,tldaid ; 88 89 8A 8B 8C 8D 8E 8F WORD fance4,mblokd,fance0,lscrd1,rscrd1,jytnd3,jytnd4,stand1 ; 90 91 92 93 94 95 96 97 WORD ygkbd2,ygkbd3,cngyk0,cngyk1,eraykd,mblkd2,kuidt0,00000H ; 98 99 9A 9B 9C 9D 9E 9F WORD 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H ; A0 A1 A2 A3 A4 A5 A6 A7 WORD ceildt,ceildt,ceildt,ceildt,holedt,holed0,holed0,holed0 ; A8 A9 AA AB AC AD AE AF WORD holed0,nukidt,nukidt,nukidt,nukidt,watrd1,00000H,00000H ; B0 B1 B2 B3 B4 B5 B6 B7 WORD uscrd1,dscrd1,jytnd0,jytnd1,jytnd2,trmkdt,ygkbd0,ygkbd1 ; B8 B9 BA BB BC BD BE BF WORD cngyk0,cngyk1,eraykd,dmswhd,mblkd2,kuidt0,00000H,00000H ; ; C0 C1 C2 C3 C4 C5 C6 C7 WORD ceildt,sidndt,holedt,holedt,00000H,wtfldt,nukidt,stopyk ; C8 C9 CA CB CC CD CE CF WORD watrd0,watrd1,beltyd,mwald0,mwald1,mwald2,mwald3,lbrgdt ; D0 D1 D2 D3 D4 D5 D6 D7 WORD wbrgdt,iceykd,iceyd1,mwald0,mwald1,mwald2,mwald3,nukidt ; D8 D9 DA DB DC DD DE DF WORD watrd1,cnulld,watrd1,00000H,cstged,btbldt,tgblkd,dngryd ; E0 E1 E2 E3 E4 E5 E6 E7 WORD colyk0,colyk1,rupyyk,ykcnv0,ykcnv1,ykcnv2,ykcnv3,watrd2 ; E8 E9 EF EB EC ED EE EF WORD sbkykd,00000H,00000H,00000H,00000H,00000H,00000H,00000H ; F0 F1 F2 F3 F4 F5 F6 F7 WORD 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H ; F8 F9 FA FB FC FD FE FF WORD 00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H ; ; ; ; CNGUTBL EQU $ ; change unit table ;----------------------------------------------------------- yoko WORD CEILST1 ; 00 : ceiling yoko ; WORD UWALST0 ; 01 : upper-wall up WORD DWALST0 ; 02 : down ; WORD UWALST8 ; 03 : lower-wall up WORD DWALST8 ; 04 : down ; WORD UARCHST ; 05 : upper-arch up WORD DARCHST ; 06 : down ; WORD UUWALST ; 07 : under-wall up WORD UDWALST ; 08 : down ; WORD LUSWST0 ; 09 : 45" wall left-up (UP - 3F) WORD LDSWST0 ; 0A : down WORD RUSWST0 ; 0B : right-up WORD RDSWST0 ; 0C : down ; WORD LUSWST1 ; 0D : left-up (UP - 2F) WORD LDSWST1 ; 0E : down WORD RUSWST1 ; 0F : right-up WORD RDSWST1 ; 10 : down ; WORD LUSWST2 ; 11 : left-up (UP - 1F) WORD LDSWST2 ; 12 : down WORD RUSWST2 ; 13 : right-up WORD RDSWST2 ; 14 : down ; WORD LUSWST8 ; 15 : 45" wall left-up (DOWN - 3F) WORD LDSWST8 ; 16 : down WORD RUSWST8 ; 17 : right-up WORD RDSWST8 ; 18 : down ; WORD LUSWST9 ; 19 : 45" wall left-up (DOWN - 2F) WORD LDSWST9 ; 1A : down WORD RUSWST9 ; 1B : right-up WORD RDSWST9 ; 1C : down ; WORD LUSWSTA ; 1D : 45" wall left-up (DOWN - 1F) WORD LDSWSTA ; 1E : down WORD RUSWSTA ; 1F : right-up WORD RDSWSTA ; 20 : down ; WORD SDSTEP ; 21 : Saidan step ; WORD WFNCST ; 22 : fance width ; WORD LUWKST ; 23 : waku left-up WORD LDWKST ; 24 : down WORD RUWKST ; 25 : right-up WORD RDWKST ; 26 : down ; WORD WAKUST0 ; 27 : waku - 0 WORD WAKUST1 ; 28 : - 1 WORD WAKUST4 ; 29 : - 4 WORD WAKUST5 ; 2A : - 5 WORD WAKUST6 ; 2B : - 6 WORD WAKUST7 ; 2C : - 7 WORD WAKUST8 ; 2D : - 8 WORD WAKUST9 ; 2E : - 9 ; WORD USCRBST ; 2F : scramble up WORD DSCRBST ; 30 : down ; WORD USHDWST ; 31 : shadow up WORD DSHDWST ; 32 : down ; WORD WCRPTST ; 33 : cerpet width ; WORD WCEDGST ; 34 : cerpet-edge width ; WORD WRDSET ; 35 : road width ; WORD CRTNST0 ; 36 : certen up WORD CRTNST0 ; 37 : down ; WORD YRISET ; 38 : yoroi ; WORD PILRST1 ; 39 : pillar ; WORD UWNDWST ; 3A : up window WORD DWNDWST ; 3B : down ; WORD TWCIRST ; 3C : twin chair ; WORD TLDAIS1 ; 3D : tall dai ; WORD SPILRS0 ; 3E : small pillar (upper) ; WORD WWAKST0 ; 3F : water waku- 0 WORD WWAKST1 ; 40 : - 1 WORD WWAKST4 ; 41 : - 4 WORD WWAKST5 ; 42 : - 5 WORD WWAKST6 ; 43 : - 6 WORD WWAKST7 ; 44 : - 7 WORD WWAKST8 ; 45 : - 8 WORD WWAKST9 ; 46 : - 9 ; WORD BTAKIST ; 47 : big taki WORD STAKIST ; 48 : small ; WORD BLTWKS0 ; 49 : beltconver waku-0 WORD BLTWKS1 ; 4A : -1 ; WORD SPILRS1 ; 4B : small pillar (lower) ; WORD STAND0ST ; 4C : stand WORD CHMNYST ; 4D : chimney WORD OVENST0 ; 4E : oven WORD RACKST ; 4F : rack ; WORD LFTYOKST ; 50 : lift yoko ; WORD TTHLST4 ; 51 : tetsuball hole up WORD TTHLST5 ; 52 : down ; WORD DKANST11 ; 53 : dokan yoko ; WORD NOTHING ; 54 : ; WORD TIMTST0 ; 55 : taimatsu up WORD TIMTST1 ; 56 : down ; WORD CWNDST0 ; 57 : chapel up-window up WORD CWNDST1 ; 58 : down WORD CWNDST4 ; 59 : chapel down-window up WORD CWNDST5 ; 5A : down ; WORD TTHLST0 ; 5B : tetsuball hole up WORD TTHLST1 ; 5C : down ; WORD BWFNCST ; 5D : bif width fance ; WORD WNMVBLKST ; 5E : width non-move block ; WORD LWFNCST ; 5F : long-width fance ; ; ;----------------------------------------------------------- tate WORD CEILST0 ; 60 : ceiling tate ; WORD LWALST0 ; 61 : upper-wall left WORD RWALST0 ; 62 : right ; WORD LWALST8 ; 63 : lower-wall left WORD RWALST8 ; 64 : right ; WORD LARCHST ; 65 : upper-arch left WORD RARCHST ; 66 : right ; WORD ULWALST ; 67 : under-wall left WORD URWALST ; 68 : right ; WORD LFNCST ; 69 : fance length ; WORD WAKUST2 ; 6A : waku - 2 WORD WAKUST3 ; 6B : - 3 ; WORD LSCRBST ; 6C : scramble left WORD RSCRBST ; 6D : right ; WORD LSHDWST ; 6E : shadow left WORD RSHDWST ; 6F : right ; WORD LCRPTST ; 70 : carpet length WORD LCEDGST ; 71 : carpet-edge length ; WORD NOTHING ; 72 : ; WORD CRTNST1 ; 73 : certen left WORD CRTNST1 ; 74 : right ; WORD PILRST0 ; 75 : pillar ; WORD LWNDWST ; 76 : left window WORD RWNDWST ; 77 : right ; WORD SPILRS2 ; 78 : small pillar (left) ; WORD WWAKST2 ; 79 : water waku - 2 WORD WWAKST3 ; 7A : - 3 ; WORD SPILRS3 ; 7B : small pillar (right) ; WORD LFTTATST ; 7C : lift tate ; WORD DKANST10 ; 7D : dokan tate ; WORD NOTHING ; 7E : ; WORD TIMTST2 ; 7F : taimatsu up WORD TIMTST3 ; 80 : down ; WORD CWNDST2 ; 81 : chapel up-window up WORD CWNDST3 ; 82 : down WORD CWNDST6 ; 83 : chapel down-window up WORD CWNDST7 ; 84 : down ; WORD TTHLST2 ; 85 : tetsuball hole left WORD TTHLST3 ; 86 : right ; WORD TLDAIS0 ; 87 : tall dai ; WORD BLFNCST ; 88 : big fance length ; WORD LNMVBLKST ; 89 : length non-move block ; WORD LLFNCST ; 8A : long-length fance ; WORD LSCRBS1 ; 8B : tobiori fuchi left WORD RSCRBS1 ; 8C : right ; WORD JYTNST3 ; 8D : jyutan fuchi left WORD JYTNST4 ; 8E : right ; WORD STAND1ST ; 8F : stand ; WORD YGKBST2 ; 90 : yogore-kage left WORD YGKBST3 ; 91 : right ; WORD CNGYKST2 ; 92 : change-yuka (A) WORD CNGYKST3 ; 93 : change-yuka (B) ; WORD ERAYKST1 ; 94 : erase-yuka ; WORD MTUBOST1 ; 95 : mochiage-tubo ; WORD HMKUIST1 ; 96 : hummer-kui ; WORD NOTHING ; 97 : WORD NOTHING ; 98 : WORD NOTHING ; 99 : WORD NOTHING ; 9A : WORD NOTHING ; 9B : WORD NOTHING ; 9C : WORD NOTHING ; 9D : WORD NOTHING ; 9E : WORD NOTHING ; 9F : ; ; ;----------------------------------------------------------- kintou WORD LUCEIL ; A0 : ceiling left-up WORD LDCEIL ; A1 : down WORD RUCEIL ; A2 : right-up WORD RDCEIL ; A3 : down ; WORD HOLEST2 ; A4 : hole 4x4 (waku) WORD LUHOLE ; A5 : left-up WORD LDHOLE ; A6 : down WORD RUHOLE ; A7 : right-up WORD RDHOLE ; A8 : down ; WORD LUNUKI ; A9 : nuki left-up WORD LDNUKI ; AA : down WORD RUNUKI ; AB : right-up WORD RDNUKI ; AC : down ; WORD NOTHING ; AD : WORD NOTHING ; AE : WORD NOTHING ; AF : ; ; ;----------------------------------------------------------- yoko WORD USCRBS1 ; B0 : tobiori fuchi up WORD DSCRBS1 ; B1 : down ; WORD JYTNST0 ; B2 : jyutan WORD JYTNST1 ; B3 : fuchi up WORD JYTNST2 ; B4 : down ; WORD TRMAKST ; B5 : tare-maku ; WORD YGKBST0 ; B6 : yogore-kabe up WORD YGKBST1 ; B7 : down ; WORD CNGYKST4 ; B8 : change-yuka (A) WORD CNGYKST5 ; B9 : change-yuka (B) ; WORD ERAYKST0 ; BA : erase-yuka ; WORD DMYSWST ; BB : dammy-swich ; WORD MTUBOST0 ; BC : mochiage-tubo ; WORD HMKUIST0 ; BD : hummer-kui ; WORD NOTHING ; BE : WORD NOTHING ; BF : ; ; ;----------------------------------------------------------- ryouhou WORD CEILST2 ; C0 : ceiling ; WORD SIDNST ; C1 : Saidan ; WORD HOLEST0 ; C2 : hole 4x4 WORD HOLEST1 ; C3 : 3x3 ; WORD STYUKA ; C4 : 4x4 yuka (BG.2) WORD WTRYUKA ; C5 : water yuka WORD NUKIST ; C6 : nuki WORD STPYUKA ; C7 : stop yuka WORD WATRST0 ; C8 : water - 0 WORD WATRST1 ; C9 : - 1 WORD BELTYST ; CA : move yuka ; WORD MVWLST0 ; CB : move wall (up) : erase WORD MVWLST1 ; CC : (down) WORD MVWLST2 ; CD : (left) WORD MVWLST3 ; CE : (right) ; WORD LBRGEST ; CF : brige length WORD WBRGEST ; D0 : wideth ; WORD ICEYUKA ; D1 : ice yuka WORD ICEYUK1 ; D2 : ice yuka (little) ; WORD MVWLST4 ; D3 : move wall (up) : write WORD MVWLST5 ; D4 : (down) WORD MVWLST6 ; D5 : (left) WORD MVWLST7 ; D6 : (right) ; WORD NUKIST1 ; D7 : nuki 3x3 ; WORD WPWTRST ; D8 : down wipe-water set ; WORD CNULLST ; D9 : cross null set ; WORD WPWTRS1 ; DA : up wipe-watre set ; WORD STYUKA1 ; DB : 4x4 yuka (BG.1) ; WORD CSTGEST ; DC : chapel stage ; WORD BGTBLST ; DD : big table ; WORD TGBLKST ; DE : toge-block ; WORD DNGRYST ; DF : danger yuka ; WORD STYUKA2 ; E0 : color yuka-0 WORD STYUKA3 ; E1 : -1 ; WORD RUPYYKST ; E2 : rupy yuka ; WORD YKCNVST0 ; E3 : yuka-conver up WORD YKCNVST1 ; E4 : down WORD YKCNVST2 ; E5 : left WORD YKCNVST3 ; E6 : right ; WORD WATRST2 ; E7 : 4x4 water - 2 ; WORD SBKYKST ; E8 : sabaku-yuka ; WORD NOTHING ; E9 : WORD NOTHING ; EA : WORD NOTHING ; EB : WORD NOTHING ; EC : WORD NOTHING ; ED : WORD NOTHING ; EE : WORD NOTHING ; EF : ; WORD NOTHING ; F0 : WORD NOTHING ; F1 : WORD NOTHING ; F2 : WORD NOTHING ; F3 : WORD NOTHING ; F4 : WORD NOTHING ; F5 : WORD NOTHING ; F6 : WORD NOTHING ; F7 : ;// special FIX WORD NOTHING ; F8 : ;// special FIX WORD NOTHING ; F9 : ;// special FIX WORD NOTHING ; FA : ;// special FIX WORD NOTHING ; FB : ;// special FIX WORD NOTHING ; FC : ;// special FIX WORD NOTHING ; FD : ;// special FIX WORD NOTHING ; FE : ;// special FIX WORD NOTHING ; FF : ; ; ; ; ;************************************************************************ ;======================================================== FIX data DATA1 EQU $ ; 00 01 02 03 04 05 06 07 WORD lucrd0,ldcrd0,rucrd0,rdcrd0,lupld0,ldpld0,rupld0,rdpld0 ; 08 09 0A 0B 0C 0D 0E 0F WORD lucrd8,ldcrd8,rucrd8,rdcrd8,lupld8,ldpld8,rupld8,rdpld8 ; 10 11 12 13 14 15 16 17 WORD lucpl0,ldcpl0,rucpl0,rdcpl0,lucpl1,ldcpl1,rucpl1,rdcpl1 ; 18 19 1A 1B 1C 1D 1E 1F WORD lucrdc,ldcrdc,rucrdc,rdcrdc,monod0,monod1,onswhd,ofswhd ; 20 21 22 23 24 25 26 27 WORD firedt,tarudt,opnykd,tabled,kchird,qchird,bchird,schird ; 28 29 2A 2B 2C 2D 2E 2F WORD beddat,danrod,kzripd,kzrisd,kzribd,upstep,dnstep,kdnstp ; 30 31 32 33 34 35 36 37 WORD udstep,udstep,udstep,udstep,mblokd,wrsstp,tbrstp,wgated ; 38 39 3A 3B 3C 3D 3E 3F WORD ustepd,dstepd,ustep1,dstep1,cwlkzd,bblmpd,cplisd,dvldid ; ; ; FIXUTBL EQU $ ; fix unit table WORD LUCRST0 ; 00 : left-up coner WORD LDCRST0 ; 01 : left-down WORD RUCRST0 ; 02 : right-up WORD RDCRST0 ; 03 : right-down ; WORD LUPLST0 ; 04 : left-up pillar WORD LDPLST0 ; 05 : down WORD RUPLST0 ; 06 : right-up WORD RDPLST0 ; 07 : down ; WORD LUCRST8 ; 08 : left-up down coner WORD LDCRST8 ; 09 : left-down WORD RUCRST8 ; 0A : right-up WORD RDCRST8 ; 0B : right-down ; WORD LUPLST8 ; 0C : left-up down pillar WORD LDPLST8 ; 0D : down WORD RUPLST8 ; 0E : right-up WORD RDPLST8 ; 0F : down ; WORD LUCPLS0 ; 10 : left-up coner pillar (length) WORD LDCPLS0 ; 11 : down WORD RUCPLS0 ; 12 : right-up WORD RDCPLS0 ; 13 : down ; WORD LUCPLS1 ; 14 : left-up coner pillar (width) WORD LDCPLS1 ; 15 : down WORD RUCPLS1 ; 16 : right-up WORD RDCPLS1 ; 17 : down ; WORD ULUCRST ; 18 : left-up under coner WORD ULDCRST ; 19 : left-down WORD URUCRST ; 1A : right-up WORD URDCRST ; 1B : right-down ; WORD MONOST0 ; 1C : mono-0 (4x4 sekizou) WORD MONOST1 ; 1D : -1 (2x3 sekizou) WORD ONSWHST ; 1E : on swich WORD OFSWHST ; 1F : off WORD SMLDIST ; 20 : fire dai WORD TARUST ; 21 : taru WORD OPNYKST ; 22 : open yuka WORD TABLEST ; 23 : table WORD KCHIRST ; 24 : chair king WORD QCHIRST ; 25 : queen WORD BCHIRST ; 26 : big WORD SCHIRST ; 27 : small WORD BEDST ; 28 : bed WORD DANROST ; 29 : danro WORD KZRPCST ; 2A : kazari picture WORD KZRSDST ; 2B : sword WORD KZRBDST ; 2C : bed ; WORD USTPST ; 2D : up-step WORD DSTPST ; 2E : down-step WORD KDSPST ; 2F : kakushi down-step WORD UDSTPS0 ; 30 : up,down-step (floor change) WORD UDSTPS1 ; 31 : up,down-step WORD UDSTPS2 ; 32 : normal step WORD WTRSTP ; 33 : water step ; WORD NMVBLKST ; 34 : not-move block ; WORD WRSDSTP ; 35 : water side step WORD TBRSTEP ; 36 : tobiori step ; WORD WTRGATE ; 37 : water gate ; WORD USTEPST ; 38 : rasen up-step WORD DSTEPST ; 39 : down-step WORD USTEPS1 ; 3A : up-step (down) WORD DSTEPS1 ; 3B : down-step (down) ; WORD CWLKZST ; 3C : chapel wall kazari WORD BBLMPST ; 3D : baba lamp ; WORD CPLISUST ; 3E : chapel chair ; WORD DVLDIST ; 3F : devil-dai ; ; ; ;======================================================== special FIX data DATA2 EQU $ ; 00 01 02 03 04 05 06 07 WORD tapdt0,tapdt1,tapdt2,slifdt,clifdt,clifd0,clifd1,clifd2 ; 08 09 0A 0B 0C 0D 0E 0F WORD clifd3,tlifd0,tlifd1,tlifd2,tlifd3,00000H,slifdd,clifdd ; 10 11 12 13 14 15 16 17 WORD kbana0,kbana1,rupydt,skband,entrd0,bosice,kuidt0,rouyad ; 18 19 1A 1B 1C 1D 1E 1F WORD roukyd,tkbox0,tkbox1,udstp1,udstp1,udstp1,slstp0,slstp1 ; 20 21 22 23 24 25 26 27 WORD slstp2,slstp3,lupldc,ldpldc,rupldc,rdpldc,slstp4,slstp5 ; 28 29 2A 2B 2C 2D 2E 2F WORD slstp6,slstp7,00000H,mblkd0,mblkd1,00000H,00000H,mblkd2 ; 30 31 32 33 34 35 36 37 WORD mblkd3,tkbox2,tkbox3,udstp1,ttbod0,ttbod1,ttbog0,ttbog1 ; 38 39 3A 3B 3C 3D 3E 3F WORD ttbog2,ttbog3,dkan00,dkan01,dkan02,dkan03,dkan20,dkan21 ; 40 41 42 43 44 45 46 47 WORD dkan22,dkan23,dkan30,dkan31,dkan32,dkan33,dkan40,crshy0 ; 48 49 4A 4B 4C 4D 4E 4F WORD crshy1,crshy2,djwpyk,kjtand,kjrodt,kjmizd,kjdaid,djwpy1 ; 50 51 52 53 54 55 56 57 WORD ofswh1,inriyk,cngyk0,cngyk1,urnidt,polydd,stand2,stand3 ; 58 59 5A 5B 5C 5D 5E 5F WORD stand4,stand5,saradt,tmizud,booktd,konrod,musikd,botldt ; 60 61 62 63 64 65 66 67 WORD tthld6,tthld7,slmbsd,dmswhd,emyykd,emyblk,cngana,udmbmb ; 68 69 6A 6B 6C 6D 6E 6F WORD ddmbmb,ldmbmb,rdmbmb,monod2,hisui0,hisui1,hisui2,hisui3 ; 70 71 72 73 74 75 76 77 WORD hkrid0,hkrid2,boskme,00000H,bsentr,tkbox0,gnnkz0,gnnkz1 ; 78 79 7A 7B 7C 7D 7E 7F WORD gnnkz2,iceat2,honeyk,numayk,ykmrk0,ykmrk1,ykmrk2,00000H ; ; FIXUTB2 EQU $ ; fix unit table WORD TAPSET0 ; 00 : tap - 0 WORD TAPSET1 ; 01 : - 1 (small water) WORD TAPSET2 ; 02 : - 2 (long water) ; WORD LFTSTPST ; 03 : lift stoper WORD LFTCRSST ; 04 : +cross WORD LFTCR0ST ; 05 : coner left-up WORD LFTCR1ST ; 06 : -down WORD LFTCR2ST ; 07 : right-up WORD LFTCR3ST ; 08 : -down WORD LFTTT0ST ; 09 : T up WORD LFTTT1ST ; 0A : down WORD LFTTT2ST ; 0B : left WORD LFTTT3ST ; 0C : right ; WORD POLYGST ; 0D : poly-gon ; WORD LFTSTPS1 ; 0E : lift ichigi-stop WORD LFTCRSS1 ; 0F : cross ; WORD KBANAST0 ; 10 : kabe-ana up WORD KBANAST1 ; 11 : down ; WORD RUPYST ; 12 : rupy ; WORD SKBANST ; 13 : seki-ban ; WORD ENTRST0 ; 14 : dammy enter ; WORD BOSSICE ; 15 : boss ice ; WORD HMKUIST ; 16 : kui ; WORD ROUYAST ; 17 : rou-ya WORD ROUKYST ; 18 : key ; WORD TKBOXST0 ; 19 : takara-box 0 (close) WORD TKBOXST1 ; 1A : 1 (open) ; WORD UDSTPS8 ; 1B : up,down-step (floor change) WORD UDSTPS9 ; 1C : up,down-step WORD UDSTPSA ; 1D : normal step ; WORD SUSTPS0 ; 1E : scroll-step(up:ue) WORD SDSTPS0 ; 1F : (up:ue) WORD SUSTPS1 ; 20 : (up:sita) WORD SDSTPS1 ; 21 : (up:sita) ; WORD ULUPLST ; 22 : left-up under piller WORD ULDPLST ; 23 : left-down WORD URUPLST ; 24 : right-up WORD URDPLST ; 25 : right-down ; WORD SUSTPS2 ; 26 : scroll-step(down:ue) WORD SDSTPS2 ; 27 : (down:ue) WORD SUSTPS3 ; 28 : (down:sita) WORD SDSTPS3 ; 29 : (down:sita) ; WORD KNTERAST ; 2A : kantera ; WORD MCBLKS0 ; 2B : mochiage block-0 WORD MCBLKS1 ; 2C : -1 (BIG) ; WORD SSDAIST ; 2D : shisai-dai WORD SSRMST ; 2E : shisai-room ; WORD MCBLKS2 ; 2F : mochiage block-2 (tubo) ; WORD MCBLKS3 ; 30 : mochiage block-3 WORD TKBOXST2 ; 31 : specoal-tkara-box (close) WORD TKBOXST3 ; 32 : (open) ; WORD WTRSTP1 ; 33 : water step ; WORD TTBOST0 ; 34 : tetsu-bou (tate) WORD TTBOST1 ; 35 : (yoko) WORD TTBGTS0 ; 36 : tetsu-bou gate (up) WORD TTBGTS1 ; 37 : (down) WORD TTBGTS2 ; 38 : (left) WORD TTBGTS3 ; 39 : (right) ; WORD DKANST00 ; 3A : dokan enter up WORD DKANST01 ; 3B : down WORD DKANST02 ; 3C : left WORD DKANST03 ; 3D : right WORD DKANST20 ; 3E : coner left-up WORD DKANST21 ; 3F : left-down WORD DKANST22 ; 40 : right-up WORD DKANST23 ; 41 : right-down WORD DKANST30 ; 42 : tsunagi up WORD DKANST31 ; 43 : down WORD DKANST32 ; 44 : left WORD DKANST33 ; 45 : right WORD DKANST40 ; 46 : kousa ; WORD CRSHYKS0 ; 47 : crush yuka WORD CRSHYKS1 ; 48 : hibi-yuka (BIG) WORD CRSHYKS2 ; 49 : (SMALL) ; WORD DJWPYKST ; 4A : danjyon warp yuka (enter) ; WORD KJTANAST ; 4B : kajiya tana WORD KJROST ; 4C : ro WORD KJMIZUST ; 4D : mizu WORD KJDAIST ; 4E : dai ; WORD DJWPYKS1 ; 4F : danjyon warp yuka (exit) ; WORD OFSWHS1 ; 50 : off swich WORD INRIYKST ; 51 : inori-yuka WORD CNGYKST0 ; 52 : change-yuka0 (A) WORD CNGYKST1 ; 53 : 1 (B) ; WORD URNIST ; 54 : uranai yakata WORD POLYDIST ; 55 : polygon dai ; WORD STAND2ST ; 56 : stand coner left-up WORD STAND3ST ; 57 : down WORD STAND4ST ; 58 : right-up WORD STAND5ST ; 59 : down ; WORD SARAST ; 5A : sara WORD TMIZUST ; 5B : tate-mizu WORD BOOKTST ; 5C : book-tana WORD KONROST ; 5D : konro WORD MUSIKST ; 5E : musi-kago WORD BOTLST ; 5F : bottle ; WORD TTHLST6 ; 60 : matoate-gate (left) WORD TTHLST7 ; 61 : (right) ; WORD SLMBSBST ; 62 : slime-boss BG. ; WORD DMYSWHST ; 63 : dammy swich ; WORD EMYYKST ; 64 : enemy yuka WORD EMYBLKST ; 65 : block ; WORD CNGANAST ; 66 : change-ana ; WORD DMBMBST0 ; 67 : dammy bomb-door up WORD DMBMBST1 ; 68 : down WORD DMBMBST2 ; 69 : left WORD DMBMBST3 ; 6A : right ; WORD MONOST2 ; 6B : 4x4 syougai-butsu ; WORD HISUIST0 ; 6C : haisui-kou up WORD HISUIST1 ; 6D : down WORD HISUIST2 ; 6E : left WORD HISUIST3 ; 6F : right ; WORD HKRIST0 ; 70 : room hikari WORD HKRIST1 ; 71 : boss-room hikari ; WORD BOSKMEST ; 72 : kame-iwa boss set ; WORD BG1CLEAR ; 73 : BG.1 clear ; WORD BSENTRST ; 74 : boss-room enter ; WORD TKBOXST9 ; 75 : atamon-takara-box 0 (close) ; WORD GNNKZST0 ; 76 : ganon-room kazari - 0 WORD GNNKZST1 ; 77 : 1 WORD GNNKZST2 ; 78 : 2 ; WORD ICEATST2 ; 79 : ice-man ato ; WORD HONEYKST ; 7A : hone-yuka ; WORD NUMAYKST ; 7B ; numa-yuka ; WORD MRKYKST0 ; 7C : mark-yuka (up) WORD MRKYKST1 ; 7D : (down) WORD MRKYKST2 ; 7E : (left) ; WORD NOTHING ; 7F : ; ; ; DOORTBL EQU $ WORD UDOORST ; 00 : up door WORD DDOORST ; 01 : down WORD LDOORST ; 02 : left WORD RDOORST ; 03 : right ; ; ; BFADTBL0 EQU $ BYTE LOW ROOMBF+000H,HIGH ROOMBF+000H,BANK ROOMBF+000H BYTE LOW ROOMBF+002H,HIGH ROOMBF+002H,BANK ROOMBF+002H BYTE LOW ROOMBF+004H,HIGH ROOMBF+004H,BANK ROOMBF+004H BYTE LOW ROOMBF+006H,HIGH ROOMBF+006H,BANK ROOMBF+006H BYTE LOW ROOMBF+080H,HIGH ROOMBF+080H,BANK ROOMBF+080H BYTE LOW ROOMBF+082H,HIGH ROOMBF+082H,BANK ROOMBF+082H BYTE LOW ROOMBF+084H,HIGH ROOMBF+084H,BANK ROOMBF+084H BYTE LOW ROOMBF+086H,HIGH ROOMBF+086H,BANK ROOMBF+086H BYTE LOW ROOMBF+100H,HIGH ROOMBF+100H,BANK ROOMBF+100H BYTE LOW ROOMBF+180H,HIGH ROOMBF+180H,BANK ROOMBF+180H BYTE LOW ROOMBF+200H,HIGH ROOMBF+200H,BANK ROOMBF+200H BFAD0EN EQU $ ; ; BFADTBL1 EQU $ BYTE LOW BG1RBF+000H,HIGH BG1RBF+000H,BANK BG1RBF+000H BYTE LOW BG1RBF+002H,HIGH BG1RBF+002H,BANK BG1RBF+002H BYTE LOW BG1RBF+004H,HIGH BG1RBF+004H,BANK BG1RBF+004H BYTE LOW BG1RBF+006H,HIGH BG1RBF+006H,BANK BG1RBF+006H BYTE LOW BG1RBF+080H,HIGH BG1RBF+080H,BANK BG1RBF+080H BYTE LOW BG1RBF+082H,HIGH BG1RBF+082H,BANK BG1RBF+082H BYTE LOW BG1RBF+084H,HIGH BG1RBF+084H,BANK BG1RBF+084H BYTE LOW BG1RBF+086H,HIGH BG1RBF+086H,BANK BG1RBF+086H BYTE LOW BG1RBF+100H,HIGH BG1RBF+100H,BANK BG1RBF+100H BYTE LOW BG1RBF+180H,HIGH BG1RBF+180H,BANK BG1RBF+180H BYTE LOW BG1RBF+200H,HIGH BG1RBF+200H,BANK BG1RBF+200H BFAD1EN EQU $ ; ; ; MKROOM EQU $ JSR HINFDST ; house information data set ;/////// JSR IDROPCK ; initial door open check ; STZ !SRMNFG ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDX !RMDTPT LDA >DJNDT+1,X STA DJNDT,X STA DJDTBL,X ;// 03.03.07 // AND #0000000000000010B ;// 03.03.07 // BEQ MKRM10 ; rewite room ? ;// 03.03.07 //; ; yes ;// 03.03.07 // MEM8 ;// 03.03.07 // SEP #00100000B ; memory 8bit mode ;// 03.03.07 //; ;// 03.03.07 // LDA !GSUBFG ;// 03.03.07 // CMP #006H ;// 03.03.07 // BCC MKRM05 ; change ? ;// 03.03.07 //; ; yes ;// 03.03.07 //;;;;;;;; LDA !GSUBFG ;// 03.03.07 // EOR #001H ;// 03.03.07 // STA !GSUBFG ;// 03.03.07 //MKRM05 EQU $ ;// 03.03.07 // MEM16 ;// 03.03.07 // REP #00100000B ; memory 16bit mode ;// 03.03.07 //; ;// 03.03.07 // LDX !RMDTPT ;// 03.03.07 // LDA >RDJNDT,X ;// 03.03.07 // STA BASICDT+1,X STA BASICDT,X STA DJNDT+1,X STA DJNDT,X STA DJDTBL,X ;// 03.03.07 // AND #0000000000000010B ;// 03.03.07 // BEQ MKRM60 ; rewite room ? ;// 03.03.07 //; ; yes ;// 03.03.07 // LDX !RMDTPT ;// 03.03.07 // LDA >RDJNDT,X ;// 03.03.07 // STA BFADTBL1+01,X STA BFADTBL0+01,X STA BLKTBUF,X ;// 03.02.25 // CMP BLKTBUF,X ;// 03.02.25 // INX ;// 03.02.25 // INX ;// 03.02.25 // STX BLKTBUF,X ;// 03.02.25 // STA BLKTBUF,X ;// 03.02.25 // CMP #0FFFFH ;// 03.02.25 // BNE MKRM260 ; data end ? ;// 03.02.25 //; ; yes ;// 03.02.25 // INX ;// 03.02.25 // INX ;// 03.02.25 // STX BLKTBUF,X CMP BLKTBUF+2,X STA LMPTBUF,X CMP LMPTBUF,X INX INX STX LMPTBUF,X STA LMPTBUF,X CMP #0FFFFH BNE MKRM350 ; data end ? ; ; yes MKRM380 EQU $ MKRM999 EQU $ MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode RTL ; ; ; MEM16 IDX16 ;************************************************************************ ;* BG.1 House making (BG1MAKE) * ;* BG.2 (BG2MAKE) * ;************************************************************************ BG1MAKE EQU $ BG2MAKE EQU $ B2MK040 EQU $ STZ DOORTBL,X STA CNGUTBL,X STA DATA0,X TAX ; (X) <-- unit data point LDY FIXUTBL,X STA DATA1,X TAX ; (X) <-- unit data point LDY FIXUTB2,X STA DATA2,X TAX ; (X) <-- unit data point LDY BFADTBL1+00,X STA BFADTBL1+01,X STA BFADTBL0+01,X STA BG1RBF+000H,X STA >ROOMBF+000H,X LDA UNITDT+002H,Y STA >BG1RBF+002H,X STA >ROOMBF+002H,X LDA UNITDT+004H,Y STA >BG1RBF+004H,X STA >ROOMBF+004H,X LDA UNITDT+006H,Y STA >BG1RBF+006H,X STA >ROOMBF+006H,X ; LDA UNITDT+008H,Y STA >BG1RBF+080H,X STA >ROOMBF+080H,X LDA UNITDT+00AH,Y STA >BG1RBF+082H,X STA >ROOMBF+082H,X LDA UNITDT+00CH,Y STA >BG1RBF+084H,X STA >ROOMBF+084H,X LDA UNITDT+00EH,Y STA >BG1RBF+086H,X STA >ROOMBF+086H,X ; TXA CLC ADC #00100H TAX DEC BG1RBF+000H,X STA >ROOMBF+000H,X LDA UNITDT+002H,Y STA >BG1RBF+080H,X STA >ROOMBF+080H,X LDA UNITDT+004H,Y STA >BG1RBF+100H,X STA >ROOMBF+100H,X LDA UNITDT+006H,Y STA >BG1RBF+180H,X STA >ROOMBF+180H,X ; LDA UNITDT+008H,Y STA >BG1RBF+002H,X STA >ROOMBF+002H,X LDA UNITDT+00AH,Y STA >BG1RBF+082H,X STA >ROOMBF+082H,X LDA UNITDT+00CH,Y STA >BG1RBF+102H,X STA >ROOMBF+102H,X LDA UNITDT+00EH,Y STA >BG1RBF+182H,X STA >ROOMBF+182H,X ; INX INX INX INX DEC BG1RBF+000H,X STA >ROOMBF+000H,X LDA UNITDT+002H,Y STA >BG1RBF+080H,X STA >ROOMBF+080H,X LDA UNITDT+004H,Y STA >BG1RBF+100H,X STA >ROOMBF+100H,X LDA UNITDT+006H,Y STA >BG1RBF+180H,X STA >ROOMBF+180H,X LDA UNITDT+008H,Y STA >BG1RBF+200H,X STA >ROOMBF+200H,X TXA CLC ADC >> LDA !INFONFG ;<<< 03.09.05 >>> BEQ MWST080 ; open ? ;<<< 03.09.05 >>>; ; yes LDA !EMYSTT+1 AND BITCD0+6+1,Y BEQ MWST080 ; open ? ; ; yes STZ !BGALCKF STZ B1CWBF,X ; BG.1 write buffer null set ;// 03.06.14 // DEX ;// 03.06.14 // DEX ;// 03.06.14 // BPL MWST720 ; end ? ;// 03.06.14 //; ; yes ;// 03.06.14 // LDA B1CWBF,X ;// 03.06.14 // INX ;// 03.06.14 // INX ;// 03.06.14 // DEY ;// 03.06.14 // BNE MWST760 ; data set end ? ;// 03.06.14 //; ; yes ;// 03.06.14 //MWST780 EQU $ ;// 03.06.14 // RTS ;// 03.06.14 //; ; MWST800 EQU $ ; left,right buffer set LDX #0007EH LDA #001ECH MWST820 EQU $ STA >B1CWBF,X ; BG.1 write buffer null set DEX DEX BPL MWST820 ; end ? ; ; yes LDA B1CWBF,X ;// 03.06.14 // INX ;// 03.06.14 // INX ;// 03.06.14 // DEY ;// 03.06.14 // BNE MWST860 ; data set end ? ;// 03.06.14 //; ; yes ;// 03.06.14 //MWST880 EQU $ RTS ; ; ; ;************************************************************************ ;* Certen set (CRTNST0) * ;************************************************************************ CRTNST0 EQU $ JSR STCTST ; counter reset ; STX normal-setp change ; LDA !UDSCKPB STA !UDSCKPA STZ !UDSCKPB WWRS15 EQU $ LDA ROOMBF+000H,X LDA UNITDT+002H,Y STA >ROOMBF+002H,X LDA UNITDT+004H,Y STA >ROOMBF+004H,X LDA UNITDT+006H,Y STA >ROOMBF+006H,X TYA CLC ADC #00008H TAY TXA CLC ADC #00080H TAX DEC normal-setp change ; LDA !UDSCKPB STA !UDSCKPA STZ !UDSCKPB ; STZ !GSUBFG ; sub-gamen off WWRS200 EQU $ MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; WWRS220 EQU $ LDA ROOMBF+000H,X LDA UNITDT+006H,Y CSTGS120 EQU $ STA >ROOMBF+002H,X INX INX DEC ROOMBF+002H,X ; LDA UNITDT+012H,Y STA >ROOMBF+004H,X STA >ROOMBF+006H,X STA >ROOMBF+008H,X STA >ROOMBF+00AH,X ; LDA ROOMBF+00CH,X LDA UNITDT+01EH,Y CSTGS140 EQU $ STA >ROOMBF+00EH,X INX INX DEC ROOMBF+00EH,X ; PLA ; (X) pull CLC ADC #00080H TAX RTS ; ;// 03.04.01 //CSTGEST EQU $ ;// 03.04.01 // LDA ROOMBF+000H,X ;// 03.04.01 // LDA UNITDT+006H,Y ;// 03.04.01 // STA >ROOMBF+002H,X ;// 03.04.01 // STA >ROOMBF+004H,X ;// 03.04.01 // LDA UNITDT+00CH,Y ;// 03.04.01 // STA >ROOMBF+006H,X ;// 03.04.01 //; ;// 03.04.01 // LDA UNITDT+012H,Y ;// 03.04.01 //CSTGS140 EQU $ ;// 03.04.01 // STA >ROOMBF+008H,X ;// 03.04.01 // INX ;// 03.04.01 // INX ;// 03.04.01 // DEC ROOMBF+008H,X ;// 03.04.01 // LDA UNITDT+01EH,Y ;// 03.04.01 // STA >ROOMBF+00AH,X ;// 03.04.01 // STA >ROOMBF+00CH,X ;// 03.04.01 // LDA UNITDT+024H,Y ;// 03.04.01 // STA >ROOMBF+00EH,X ;// 03.04.01 //; ;// 03.04.01 // PLA ; (X) pull ;// 03.04.01 // CLC ;// 03.04.01 // ADC #00080H ;// 03.04.01 // TAX ;// 03.04.01 // RTS ; ; ; ; ;************************************************************************ ;* Stand tate set (STAND1ST) * ;************************************************************************ STAND1ST EQU $ LDA #00002H JSR STCTS0 ; set count set ASL BG1RBF+000H,X STA >ROOMBF+000H,X LDA UNITDT+002H,Y STA >BG1RBF+080H,X STA >ROOMBF+080H,X LDA UNITDT+004H,Y STA >BG1RBF+100H,X STA >ROOMBF+100H,X LDA UNITDT+006H,Y STA >BG1RBF+180H,X STA >ROOMBF+180H,X TYA CLC ADC #00008H TAY INX INX DEC BG1RBF+000H,X STA >ROOMBF+000H,X LDA UNITDT+002H,Y STA >BG1RBF+080H,X STA >ROOMBF+080H,X LDA UNITDT+004H,Y STA >BG1RBF+100H,X STA >ROOMBF+100H,X TYA CLC ADC #00006H TAY INX INX DEC TBITCD,X BEQ TKBX099 ; set ok ? ; ; yes TYA AND ROOMBF+000H,X LDA UNITDT+002H,Y STA >ROOMBF+080H,X LDA UNITDT+004H,Y STA >ROOMBF+100H,X LDA UNITDT+006H,Y STA >ROOMBF+180H,X LDA UNITDT+008H,Y STA >ROOMBF+200H,X LDA UNITDT+00AH,Y STA >ROOMBF+280H,X LDA UNITDT+00CH,Y STA >ROOMBF+300H,X TYA CLC ADC #0000EH TAY INX INX DEC ROOMBF+000H,X STA >ROOMBF+180H,X STA >ROOMBF+300H,X LDA UNITDT+002H,Y STA >ROOMBF+080H,X STA >ROOMBF+200H,X STA >ROOMBF+380H,X INX INX INX INX DEC DJNTBL,X AND #00100H BNE WRSDS40 ; water on ? ; ; yes JMP TBRSTEP ; WRSDS40 EQU $ LDX !UDSCKP4 TYA LSR A STA !UDSCKB4,X INX INX STX !UDSCKP4 ; water-side STEP check data set ; LDX #wrsstp ; ;************************************************************************ ;* Kazari Pictuer set (KZRPCST) * ;************************************************************************ KZRPCST EQU $ LDA #00001H STA ROOMBF+000H,X STA >ROOMBF+008H,X STA >ROOMBF+010H,X STA >ROOMBF+01CH,X STA >ROOMBF+024H,X STA >ROOMBF+02CH,X ORA #04000H STA >ROOMBF+002H,X STA >ROOMBF+00AH,X STA >ROOMBF+012H,X STA >ROOMBF+01EH,X STA >ROOMBF+026H,X STA >ROOMBF+02EH,X ; LDA UNITDT+00CH,Y STA >ROOMBF+004H,X STA >ROOMBF+00CH,X STA >ROOMBF+020H,X STA >ROOMBF+028H,X ORA #04000H STA >ROOMBF+006H,X STA >ROOMBF+00EH,X STA >ROOMBF+022H,X STA >ROOMBF+02AH,X INY INY TXA CLC ADC #00080H TAX DEC BG1RBF+002H,X ;// 03.07.04 // LDA UNITDT+002H,Y ;// 03.07.04 // STA >BG1RBF+004H,X ;// 03.07.04 //TTBS040 EQU $ ;// 03.07.04 // LDA UNITDT+004H,Y ;// 03.07.04 // STA >BG1RBF+080H,X ;// 03.07.04 // LDA UNITDT+006H,Y ;// 03.07.04 // STA >BG1RBF+082H,X ;// 03.07.04 // LDA UNITDT+008H,Y ;// 03.07.04 // STA >BG1RBF+084H,X ;// 03.07.04 // LDA UNITDT+00AH,Y ;// 03.07.04 // STA >BG1RBF+086H,X ;// 03.07.04 // TXA ;// 03.07.04 // CLC ;// 03.07.04 // ADC #00080H ;// 03.07.04 // TAX ;// 03.07.04 // DEC BG1RBF+082H,X ;// 03.07.04 // LDA UNITDT+00EH,Y ;// 03.07.04 // STA >BG1RBF+084H,X ;// 03.07.04 // RTS ; ; ;************************************************************************ ;* Tetsu-bou (yoko) set (TTBOST1) * ;************************************************************************ TTBOST1 EQU $ ;// 03.07.04 // PHX ; (X) push ;// 03.07.04 // TYX ; (X) <-- (Y) ;// 03.07.04 // PLY ; (Y) <-- (X) pull ;// 03.07.04 //; ;// 03.07.04 // LDA #00030-2 ;// 03.07.04 // STA BG1RBF+080H,X ;// 03.07.04 // LDA UNITDT+002H,Y ;// 03.07.04 // STA >BG1RBF+100H,X ;// 03.07.04 //TTBS140 EQU $ ;// 03.07.04 // LDA UNITDT+004H,Y ;// 03.07.04 // STA >BG1RBF+002H,X ;// 03.07.04 // LDA UNITDT+006H,Y ;// 03.07.04 // STA >BG1RBF+102H,X ;// 03.07.04 // LDA UNITDT+008H,Y ;// 03.07.04 // STA >BG1RBF+182H,X ;// 03.07.04 // LDA UNITDT+00AH,Y ;// 03.07.04 // STA >BG1RBF+202H,X ;// 03.07.04 // INX ;// 03.07.04 // INX ;// 03.07.04 // DEC BG1RBF+082H,X ;// 03.07.04 // LDA UNITDT+00EH,Y ;// 03.07.04 // STA >BG1RBF+102H,X ;// 03.07.04 // RTS ; ; ;************************************************************************ ;* Tetsu-bou gate (left) set (TTBGTS2) * ;************************************************************************ TTBGTS2 EQU $ ; ;************************************************************************ ;* Tetsu-bou gate (right) set (TTBGTS3) * ;************************************************************************ TTBGTS3 EQU $ ;// 03.07.04 // JSR UNITST6 ;// 03.07.04 // TXA ;// 03.07.04 // CLC ;// 03.07.04 // ADC #00100H ;// 03.07.04 // TAX ;// 03.07.04 // INY ;// 03.07.04 // INY ;// 03.07.04 // INY ;// 03.07.04 // INY ;// 03.07.04 // INY ;// 03.07.04 // INY ; ;************************************************************************ ;* Unit set (3x2) (UNITST6) * ;************************************************************************ UNITST6 EQU $ LDA UNITDT+000H,X STA [BG1RBF+000H,X ;// 03.07.16 // ORA #01F88H ;// 03.07.16 // STA >BG1RBF+200H,X ;// 03.07.16 // INC ROOMBF+004H+000H,X STA >ROOMBF+012H+000H,X LDA UNITDT+004H,Y STA >ROOMBF+004H+080H,X ORA #04000H STA >ROOMBF+012H+080H,X LDA UNITDT+008H,Y STA >ROOMBF+004H+100H,X ORA #04000H STA >ROOMBF+012H+100H,X LDA UNITDT+00AH,Y STA >ROOMBF+004H+180H,X ORA #04000H STA >ROOMBF+012H+180H,X INX INX DEC ROOMBF+000H,X ORA #04000H STA >ROOMBF+01EH,X LDA UNITDT+002H,Y STA >ROOMBF+002H,X STA >ROOMBF+00EH,X STA >ROOMBF+010H,X STA >ROOMBF+01CH,X LDA UNITDT+006H,Y STA >ROOMBF+002H+100H,X ORA #04000H STA >ROOMBF+01CH+100H,X RTS ; ; ; ;************************************************************************ ;* tetsuball hole set (up) (TTHLST0) * ;************************************************************************ TTHLST0 EQU $ ; ;************************************************************************ ;* tetsuball hole set (down) (TTHLST1) * ;************************************************************************ TTHLST1 EQU $ ; ;************************************************************************ ;* Down tetsuball hole set (up) (TTHLST4) * ;************************************************************************ TTHLST4 EQU $ ; ;************************************************************************ ;* Down tetsuball hole set (down) (TTHLST5) * ;************************************************************************ TTHLST5 EQU $ JSR STCTST ; LDA #00002H JSR UNITST0 ; 2x3 unit set ; DEC DJNTBL,X AND #00100H BNE TAPSET1 ; water on ? ; ; no LDX #tapdt0 TAPS020 EQU $ MEM8 SEP #00100000B ; memory 8bit mode ; LDA #inf_wup CMP CGRAM+080H,X ;// 03.09.20 // STA >CGWORK+080H,X ;// 03.09.20 // DEX ;// 03.09.20 // DEX ;// 03.09.20 // BPL BSICE10 ;// 03.09.20 //; ;// 03.09.20 // INC ROOMBF+000H,X INY INY INX INX DEC BG1RBF+000H,X INY INY INX INX DEC ROOMBF+000H,X ORA #04000H STA >ROOMBF+01AH,X ; LDA UNITDT+01CH*1,Y STA >ROOMBF+002H,X STA >ROOMBF+004H,X EOR #04000H STA >ROOMBF+016H,X STA >ROOMBF+018H,X ; LDA UNITDT+01CH*2,Y STA >ROOMBF+006H,X EOR #04000H STA >ROOMBF+014H,X ; LDA UNITDT+01CH*3,Y STA >ROOMBF+008H,X EOR #04000H STA >ROOMBF+012H,X ; LDA UNITDT+01CH*4,Y STA >ROOMBF+00AH,X EOR #04000H STA >ROOMBF+010H,X ; LDA UNITDT+01CH*5,Y STA >ROOMBF+00CH,X EOR #04000H STA >ROOMBF+00EH,X ; TXA CLC ADC #00080H TAX INY INY DEC ROOMBF+020EH,X STA >ROOMBF+021AH,X STA >ROOMBF+0226H,X LDA UNITDT+002H,Y STA >ROOMBF+028EH,X STA >ROOMBF+029AH,X STA >ROOMBF+02A6H,X LDA UNITDT+004H,Y STA >ROOMBF+030EH,X STA >ROOMBF+031AH,X STA >ROOMBF+0326H,X LDA UNITDT+006H,Y STA >ROOMBF+038EH,X STA >ROOMBF+039AH,X STA >ROOMBF+03A6H,X INY INY INY INY INY INY INY INY INX INX DEC ROOMBF+0504H,X STA >ROOMBF+0486H,X STA >ROOMBF+0408H,X STA >ROOMBF+038AH,X STA >ROOMBF+030CH,X STA >ROOMBF+028EH,X STA >ROOMBF+0210H,X ORA #04000H STA >ROOMBF+022EH,X STA >ROOMBF+02B0H,X STA >ROOMBF+0332H,X STA >ROOMBF+03B4H,X STA >ROOMBF+0436H,X STA >ROOMBF+04B8H,X STA >ROOMBF+053AH,X INY INY TXA CLC ADC #00080H TAX DEC ROOMBF+0584H,X STA >ROOMBF+0884H,X STA >ROOMBF+0B84H,X ORA #04000H STA >ROOMBF+05BAH,X STA >ROOMBF+08BAH,X STA >ROOMBF+0BBAH,X ; LDA UNITDT+002H,Y STA >ROOMBF+0586H,X STA >ROOMBF+0886H,X STA >ROOMBF+0B86H,X ORA #04000H STA >ROOMBF+05B8H,X STA >ROOMBF+08B8H,X STA >ROOMBF+0BB8H,X ; LDA UNITDT+004H,Y STA >ROOMBF+0588H,X STA >ROOMBF+0888H,X STA >ROOMBF+0B88H,X ORA #04000H STA >ROOMBF+05B6H,X STA >ROOMBF+08B6H,X STA >ROOMBF+0BB6H,X ; LDA UNITDT+006H,Y STA >ROOMBF+058AH,X STA >ROOMBF+088AH,X STA >ROOMBF+0B8AH,X ORA #04000H STA >ROOMBF+05B4H,X STA >ROOMBF+08B4H,X STA >ROOMBF+0BB4H,X INY INY INY INY INY INY INY INY TXA CLC ADC #00080H TAX DEC ROOMBF+0498H,X STA >ROOMBF+04A4H,X LDA UNITDT+00CH,Y STA >ROOMBF+0518h,X STA >ROOMBF+0524H,X INY INY INX INX DEC ROOMBF+070EH,X STA >ROOMBF+0A0EH,X LDA UNITDT+002H,Y STA >ROOMBF+0710H,X STA >ROOMBF+0A10H,X INY INY INY INY TXA CLC ADC #00080H TAX DEC ROOMBF+048EH,X LDA UNITDT+002H,Y STA >ROOMBF+050EH,X LDA UNITDT+004H,Y STA >ROOMBF+058EH,X LDA UNITDT+006H,Y STA >ROOMBF+060EH,X LDA UNITDT+008H,Y STA >ROOMBF+068EH,X TYA CLC ADC #0000AH TAY INX INX DEC ROOMBF+0E1CH,X ORA #02000H STA >ROOMBF+0E1CH,X LDA >ROOMBF+0E9CH,X ORA #02000H STA >ROOMBF+0E9CH,X INX INX DEC ROOMBF+002H,X STA >ROOMBF+004H,X STA >ROOMBF+082H,X STA >ROOMBF+084H,X LDA UNITDT+002H,Y STA >ROOMBF+102H,X ORA #04000H STA >ROOMBF+104H,X INX INX INX INX DEC ROOMBF+180H,X STA >ROOMBF+184H,X STA >ROOMBF+194H,X STA >ROOMBF+198H,X ORA #04000H STA >ROOMBF+182H,X STA >ROOMBF+186H,X STA >ROOMBF+196H,X STA >ROOMBF+19AH,X ; LDA UNITDT+00AH,Y STA >ROOMBF+188H,X STA >ROOMBF+18CH,X STA >ROOMBF+190H,X ORA #04000H STA >ROOMBF+18AH,X STA >ROOMBF+18EH,X STA >ROOMBF+192H,X INY INY TXA CLC ADC #00080H TAX DEC ROOMBF+000H,X STA >ROOMBF+080H,X ORA #04000H STA >ROOMBF+01AH,X STA >ROOMBF+09AH,X LDA UNITDT+00CH,Y STA >ROOMBF+100H,X ORA #04000H STA >ROOMBF+11AH,X ; ; LDA #00004H STA ROOMBF+506H,X EOR #04000H STA >ROOMBF+514H,X ; LDA UNITDT+014H+08H,Y STA >ROOMBF+508H,X EOR #04000H STA >ROOMBF+512H,X ; LDA UNITDT+014H+10H,Y STA >ROOMBF+50AH,X EOR #04000H STA >ROOMBF+510H,X ; LDA UNITDT+014H+18H,Y STA >ROOMBF+50CH,X EOR #04000H STA >ROOMBF+50EH,X INY INY TXA CLC ADC #00080H TAX DEC ROOMBF+000H,X ;// 03.07.16 // ORA #04000H ;// 03.07.16 // STA >ROOMBF+016H,X ;// 03.07.16 //; ;// 03.07.16 // LDA UNITDT+000H+18H*1,Y ;// 03.07.16 // STA >ROOMBF+002H,X ;// 03.07.16 // ORA #04000H ;// 03.07.16 // STA >ROOMBF+014H,X ;// 03.07.16 //; ;// 03.07.16 // LDA UNITDT+000H+18H*2,Y ;// 03.07.16 // STA >ROOMBF+004H,X ;// 03.07.16 // ORA #04000H ;// 03.07.16 // STA >ROOMBF+012H,X ;// 03.07.16 //; ;// 03.07.16 // LDA UNITDT+000H+18H*3,Y ;// 03.07.16 // STA >ROOMBF+006H,X ;// 03.07.16 // ORA #04000H ;// 03.07.16 // STA >ROOMBF+010H,X ;// 03.07.16 //; ;// 03.07.16 // LDA UNITDT+000H+18H*4,Y ;// 03.07.16 // STA >ROOMBF+008H,X ;// 03.07.16 // ORA #04000H ;// 03.07.16 // STA >ROOMBF+00EH,X ;// 03.07.16 //; ;// 03.07.16 // LDA UNITDT+000H+18H*5,Y ;// 03.07.16 // STA >ROOMBF+00AH,X ;// 03.07.16 // ORA #04000H ;// 03.07.16 // STA >ROOMBF+00CH,X ;// 03.07.16 // INY ;// 03.07.16 // INY ;// 03.07.16 // TXA ;// 03.07.16 // CLC ;// 03.07.16 // ADC #00080H ;// 03.07.16 // TAX ;// 03.07.16 // DEC BG1RBF+000H,X LDA UNITDT+002H,Y STA >BG1RBF+080H,X LDA UNITDT+004H,Y STA >BG1RBF+100H,X LDA UNITDT+006H,Y STA >BG1RBF+180H,X LDA UNITDT+008H,Y STA >BG1RBF+200H,X LDA UNITDT+00AH,Y STA >BG1RBF+280H,X LDA UNITDT+00CH,Y STA >BG1RBF+300H,X LDA UNITDT+00EH,Y STA >BG1RBF+380H,X LDA UNITDT+010H,Y STA >BG1RBF+400H,X LDA UNITDT+012H,Y STA >BG1RBF+480H,X LDA UNITDT+014H,Y STA >BG1RBF+500H,X TYA CLC ADC #00016H TAY INX INX DEC BG1RBF+592H,X LDA UNITDT+006H,Y STA >BG1RBF+612H,X INY INY INX INX DEC ROOMBF+000H,X STA >BG1RBF+000H,X LDA UNITDT+002H,Y STA >ROOMBF+080H,X STA >BG1RBF+080H,X LDA UNITDT+004H,Y STA >ROOMBF+100H,X STA >BG1RBF+100H,X LDA UNITDT+006H,Y STA >ROOMBF+180H,X STA >BG1RBF+180H,X TYA CLC ADC #00008H TAY INX INX DEC DJNTBL,X AND #00100H BEQ WTRSP80 ; water on ? ; ; yes ;// 03.05.08 // LDA #06202H ;// 03.05.08 // STA ROOMBF+000H,X STA >BG1RBF+000H,X LDA UNITDT+002H,Y STA >ROOMBF+080H,X STA >BG1RBF+080H,X LDA UNITDT+004H,Y STA >ROOMBF+100H,X STA >BG1RBF+100H,X LDA UNITDT+006H,Y STA >ROOMBF+180H,X STA >BG1RBF+180H,X TYA CLC ADC #00008H TAY INX INX DEC DJNTBL,X AND #00100H BEQ WTRSP180 ; water on ? ; ; yes LDA #06202H STA ROOMBF+000H,X STA >BG1RBF+000H,X LDA UNITDT+002H,Y STA >ROOMBF+002H,X STA >BG1RBF+002H,X LDA UNITDT+004H,Y STA >ROOMBF+004H,X STA >BG1RBF+004H,X LDA UNITDT+006H,Y STA >ROOMBF+006H,X STA >BG1RBF+006H,X ; LDA UNITDT+008H,Y STA >ROOMBF+080H,X STA >BG1RBF+080H,X LDA UNITDT+00AH,Y STA >ROOMBF+082H,X STA >BG1RBF+082H,X LDA UNITDT+00CH,Y STA >ROOMBF+084H,X STA >BG1RBF+084H,X LDA UNITDT+00EH,Y STA >ROOMBF+086H,X STA >BG1RBF+086H,X RTS ; ; ; ; ;************************************************************************ ;* Up-step set (USTPST) * ;************************************************************************ USTPST EQU $ LDX !USCKPT TYA LSR A STA !USCKBF,X LDA ROOMBF+000H,X ;// 03.06.13 // ORA #02000H ;// 03.06.13 // STA >ROOMBF+000H,X ;// 03.06.13 // LDA >ROOMBF+00AH,X ;// 03.06.13 // ORA #02000H ;// 03.06.13 // STA >ROOMBF+00AH,X ;// 03.06.13 // RTS ; ; ; ;************************************************************************ ;* Rasen Up-step set (down) (USTEPS1) * ;************************************************************************ USTEPS1 EQU $ LDX !UPCKP1 TYA SEC SBC #00080H LSR A STA !USCKBF,X LDA BG1RBF+000H,X ;// 03.06.13 // ORA #02000H ;// 03.06.13 // STA >BG1RBF+000H,X ;// 03.06.13 // LDA >BG1RBF+00AH,X ;// 03.06.13 // ORA #02000H ;// 03.06.13 // STA >BG1RBF+00AH,X ;// 03.06.13 // RTS ; ; ; ;************************************************************************ ;* Rasen Down-step set (DSTEPST) * ;************************************************************************ DSTEPST EQU $ LDX !DNCKPT TYA SEC SBC #00080H LSR A STA !DSCKBF,X LDA ROOMBF+000H,X ORA #02000H STA >ROOMBF+000H,X LDA >ROOMBF+00AH,X ORA #02000H STA >ROOMBF+00AH,X RTS ; ; ;************************************************************************ ;* Rasen Down-step set (down) (DSTEPS1) * ;************************************************************************ DSTEPS1 EQU $ LDX !DNCKP1 TYA SEC SBC #00080H LSR A STA !DSCKBF,X LDA BG1RBF+000H,X ORA #02000H STA >BG1RBF+000H,X LDA >BG1RBF+00AH,X ORA #02000H STA >BG1RBF+00AH,X RTS ; ; ; ; ; ; ;************************************************************************ ;* Scroll Up-step set (up:ue) (SUSTPS0) * ;************************************************************************ SUSTPS0 EQU $ PHX ; (X) push ; LDX !SUPCP0 TYA LSR A STA !USCKBF,X INX INX STX !SUPCP0 ; (scroll-step) STX !SUPCP1 ; (scroll-step) STX !DSCKPT ; Dn-STEP set pointer set STX !DNCKPT ; (BG.2:rasen) STX !DNCKP1 ; (BG.1:rasen) STX !SDNCP0 ; (scroll-step) STX !SDNCP1 ; (scroll-step) BRA SUPS000 ; ; ;************************************************************************ ;* Scroll Down-step set (up:ue) (SDUSTPS0) * ;************************************************************************ SDSTPS0 EQU $ PHX ; (X) push ; LDX !SDNCP0 TYA LSR A STA !DSCKBF,X INX INX STX !SDNCP0 ; (scroll-step) STX !SDNCP1 ; (scroll-step) BRA SUPS000 ; ; ;************************************************************************ ;* Scroll Up-step set (up:sita) (SUSTPS1) * ;************************************************************************ SUSTPS1 EQU $ PHX ; (X) push ; LDX !SUPCP1 TYA LSR A STA !USCKBF,X INX INX STX !SUPCP1 ; (scroll-step) STX !DSCKPT ; Dn-STEP set pointer set STX !DNCKPT ; (BG.2:rasen) STX !DNCKP1 ; (BG.1:rasen) STX !SDNCP0 ; (scroll-step) STX !SDNCP1 ; (scroll-step) BRA SUPS000 ; ;************************************************************************ ;* Scroll Down-step set (up:sita) (SDUSTPS1) * ;************************************************************************ SDSTPS1 EQU $ PHX ; (X) push ; LDX !SDNCP1 TYA LSR A STA !DSCKBF,X INX INX STX !SDNCP1 ; (scroll-step) SUPS000 EQU $ TYX ; (X) <-- (Y) PLY ; (Y) <-- (X) pull LDA #00004H STA ROOMBF+000H,X LDA UNITDT+002H,Y STA >ROOMBF+080H,X LDA UNITDT+004H,Y STA >ROOMBF+100H,X LDA UNITDT+006H,Y STA >ROOMBF+180H,X TYA CLC ADC #00008H TAY INX INX DEC ROOMBF+000H,X STA >BG1RBF+000H,X LDA UNITDT+002H,Y STA >BG1RBF+080H,X LDA UNITDT+004H,Y STA >BG1RBF+100H,X LDA UNITDT+006H,Y STA >BG1RBF+180H,X TYA CLC ADC #00008H TAY INX INX DEC ROOMBF+000H,X ORA #02000H STA >ROOMBF+000H,X LDA >ROOMBF+080H,X ORA #02000H STA >ROOMBF+080H,X LDA >ROOMBF+100H,X ORA #02000H STA >ROOMBF+100H,X LDA >ROOMBF+180H,X ORA #02000H STA >ROOMBF+180H,X RTS ; ; ;************************************************************************ ;* Scroll Up-step set (down:sita) (SUSTPS3) * ;************************************************************************ SUSTPS3 EQU $ PHX ; (X) push ; LDX !SUPCP1 TYA LSR A STA !USCKBF,X LDA BG1RBF+000H,X LDA UNITDT+002H,Y STA >BG1RBF+080H,X LDA UNITDT+004H,Y STA >BG1RBF+100H,X LDA UNITDT+006H,Y STA >ROOMBF+180H,X STA >BG1RBF+180H,X TYA CLC ADC #00008H TAY INX INX DEC ROOMBF+000H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+000H,X ;// 03.08.29 // LDA >ROOMBF+080H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+080H,X ;// 03.08.29 // LDA >ROOMBF+100H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+100H,X ;// 03.08.29 // LDA >ROOMBF+180H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+180H,X ;// 03.08.29 // RTS ; ; ; ;************************************************************************ ;* Matoate gate (left) set (TTHLST6) * ;************************************************************************ TTHLST6 EQU $ ; ;************************************************************************ ;* Matoate gate (right) set (TTHLST7) * ;************************************************************************ TTHLST7 EQU $ LDA #00003H JSR UNITST0 ; 3x3 unit set LDA DJNTBL+065H*2 AND #00100H BEQ HKRS80 ; set ok ? ; ; yes ; ;************************************************************************ ;* Boss-Room Enter (BSENTRST) * ;************************************************************************ BSENTRST EQU $ JSR UNITST1 ; 4x4 unit set JSR UNITST1 ; 4x4 unit set LDA ROOMBF+000H,X STA >BG1RBF+000H,X LDA UNITDT+002H,Y STA >BG1RBF+080H,X LDA UNITDT+004H,Y STA >BG1RBF+100H,X TYA CLC ADC #00006H TAY INX INX DEC BG1RBF+000H,X ORA #02000H STA >ROOMBF+000H,X INX INX DEY BNE DDRS70 ; ; ; RTS ; ; DDRS80 EQU $ CMP #dkt_dr BEQ DDRS90 ; doukutsu-enter-door ? ; ; yes CMP #dk1_dr BNE DDRS95 ; doukutsu-enter-door ? ; ; yes DDRS85 EQU $ TYA CLC ADC #00200H JSR UDDRST0 ; under-door data reset-0 DDRS90 EQU $ LDX !DORPNT LDA #00001H JSR DRDTGT ; door data get LDY ROOMBF+000H,X STA >ROOMBF+080H,X STA >ROOMBF+100H,X STA >ROOMBF+180H,X STA >ROOMBF+200H,X STA >ROOMBF+280H,X INX INX DEC ROOMBF+000H,X LDA UNITDT+002H,Y STA >BG1RBF+080H,X LDA UNITDT+004H,Y STA >BG1RBF+100H,X TYA CLC ADC #00006H TAY INX INX DEC ROOMBF+000H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+000H,X ;// 03.08.29 // LDA >ROOMBF+002H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+002H,X ;// 03.08.29 // LDA >ROOMBF+004H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+004H,X ;// 03.08.29 // LDA >ROOMBF+006H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+006H,X ;// 03.08.29 // TXA ;// 03.08.29 // CLC ;// 03.08.29 // ADC #00080H ;// 03.08.29 // TAX ;// 03.08.29 // CPX BG1RBF+080H,X LDA UNITDT+002H,Y STA >BG1RBF+100H,X LDA UNITDT+004H,Y STA >ROOMBF+180H,X TYA CLC ADC #00006H TAY INX INX DEC ROOMBF+000H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+000H,X ;// 03.08.29 // LDA >ROOMBF+002H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+002H,X ;// 03.08.29 // LDA >ROOMBF+004H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+004H,X ;// 03.08.29 // LDA >ROOMBF+006H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+006H,X ;// 03.08.29 // TXA ;// 03.08.29 // CLC ;// 03.08.29 // ADC #00080H ;// 03.08.29 // TAX ;// 03.08.29 // AND #00F80H ;// 03.08.29 // BNE DDR160 ; set end ? ;// 03.08.29 //; ; yes LDX !DORPNT LDA !DORADR-2,X ORA #02000H STA !DORADR-2,X RTS ; ; ;************************************************************************ ;* BG.1 Left door set (LDOORS1) * ;************************************************************************ LDOORS1 EQU $ LDX ROOMBF+000H,X LDA UNITDT+002H,Y STA >ROOMBF+080H,X LDA UNITDT+004H,Y STA >ROOMBF+100H,X LDA UNITDT+006H,Y STA >ROOMBF+180H,X ; TYA CLC ADC #00008H TAY INX INX LDA #00002H STA BG1RBF+000H,X LDA UNITDT+002H,Y STA >BG1RBF+080H,X LDA UNITDT+004H,Y STA >BG1RBF+100H,X LDA UNITDT+006H,Y STA >BG1RBF+180H,X TYA CLC ADC #00008H TAY INX INX DEC ROOMBF+000H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+000H,X ;// 03.08.29 // LDA >ROOMBF+080H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+080H,X ;// 03.08.29 // LDA >ROOMBF+100H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+100H,X ;// 03.08.29 // LDA >ROOMBF+180H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+180H,X ;// 03.08.29 // INX ;// 03.08.29 // INX ;// 03.08.29 // CPX BG1RBF+002H,X LDA UNITDT+002H,Y STA >BG1RBF+082H,X LDA UNITDT+004H,Y STA >BG1RBF+102H,X LDA UNITDT+006H,Y STA >BG1RBF+182H,X TYA CLC ADC #00008H TAY INX INX DEC ROOMBF+002H,X LDA UNITDT+002H,Y STA >ROOMBF+082H,X LDA UNITDT+004H,Y STA >ROOMBF+102H,X LDA UNITDT+006H,Y STA >ROOMBF+182H,X ; LDA ROOMBF+000H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+000H,X ;// 03.08.29 // LDA >ROOMBF+080H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+080H,X ;// 03.08.29 // LDA >ROOMBF+100H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+100H,X ;// 03.08.29 // LDA >ROOMBF+180H,X ;// 03.08.29 // ORA #02000H ;// 03.08.29 // STA >ROOMBF+180H,X ;// 03.08.29 // INX ;// 03.08.29 // INX ;// 03.08.29 // TXA ;// 03.08.29 // AND #0003FH ;// 03.08.29 // BNE RDR160 ; set end ? ;// 03.08.29 //; ; yes LDX !DORPNT LDA !DORADR-2,X ORA #02000H STA !DORADR-2,X RTS ; ; ; ; ;---------------------------- WALL ------------------------------------ ;************************************************************************ ;* Wall UP (UWLDRST) * ;************************************************************************ UWLDRST EQU $ LDA #00000H JSR DRDTGT ; door data get ; LDA ROOMBF+000H,X ORA #02000H STA >ROOMBF+000H,X LDA >ROOMBF+002H,X ORA #02000H STA >ROOMBF+002H,X LDA >ROOMBF+004H,X ORA #02000H STA >ROOMBF+004H,X LDA >ROOMBF+006H,X ORA #02000H STA >ROOMBF+006H,X TXA CLC ADC #00080H TAX CPX ROOMBF+000H,X ORA #02000H STA >ROOMBF+000H,X LDA >ROOMBF+002H,X ORA #02000H STA >ROOMBF+002H,X LDA >ROOMBF+004H,X ORA #02000H STA >ROOMBF+004H,X LDA >ROOMBF+006H,X ORA #02000H STA >ROOMBF+006H,X TXA CLC ADC #00080H TAX AND #00F80H BNE DWDS40 ; set end ? ; ; yes RTS ; ; ;************************************************************************ ;* Wall LEFT (LWLDRST) * ;************************************************************************ LWLDRST EQU $ LDA #00002H JSR DRDTGT ; door data get ; LDA ROOMBF+000H,X ORA #02000H STA >ROOMBF+000H,X LDA >ROOMBF+080H,X ORA #02000H STA >ROOMBF+080H,X LDA >ROOMBF+100H,X ORA #02000H STA >ROOMBF+100H,X LDA >ROOMBF+180H,X ORA #02000H STA >ROOMBF+180H,X INX INX CPX ROOMBF+000H,X ORA #02000H STA >ROOMBF+000H,X LDA >ROOMBF+080H,X ORA #02000H STA >ROOMBF+080H,X LDA >ROOMBF+100H,X ORA #02000H STA >ROOMBF+100H,X LDA >ROOMBF+180H,X ORA #02000H STA >ROOMBF+180H,X INX INX TXA AND #0003FH BNE RWDS40 ; set end ? ; ; yes RTS ; ; ; ; ;---------------------------- DANJYON --------------------------------- ;************************************************************************ ;* Danjyon change check (DJCDRST) * ;************************************************************************ DJCDRST EQU $ LDX !DJCCKPT LSR A STA !DJCCKBF,X INX INX STX !DJCCKPT ; danjyon change check RTS ; ; ; ; ;---------------------------- SPECIAL --------------------------------- ;************************************************************************ ;* Mode change check (MDCCKST) * ;************************************************************************ MDCCKST EQU $ LDX !MDCCKPT LSR A STA !MDCCKBF,X INX INX STX !MDCCKPT ; mode change check RTS ; ; ; ;// 03.02.22 //; ;// 03.02.22 //;---------------------------- WARP ------------------------------------ ;// 03.02.22 //;************************************************************************ ;// 03.02.22 //;* Warp check (WRPDRST) * ;// 03.02.22 //;************************************************************************ ;// 03.02.22 //WRPDRST EQU $ ;// 03.02.22 // LDX !WRPCKPT ;// 03.02.22 // LSR A ;// 03.02.22 // STA !WRPCKBF,X ;// 03.02.22 // INX ;// 03.02.22 // INX ;// 03.02.22 // STX !WRPCKPT ; warp check ;// 03.02.22 // RTS ;// 03.02.22 //; ; ; ; ; ;====================== Unit set Subroutine =========================== ;************************************************************************ ;* Count reset (STCTST) * ;************************************************************************ STCTST EQU $ LDA #00001H ; ;************************************************************************ ;* Count reset (STCTS0) * ;************************************************************************ STCTS0 EQU $ STA ROOMBF+000H,X ORA #02000H STA >ROOMBF+000H,X LDA >ROOMBF+002H,X ORA #02000H STA >ROOMBF+002H,X LDA >ROOMBF+004H,X ORA #02000H STA >ROOMBF+004H,X LDA >ROOMBF+006H,X ORA #02000H STA >ROOMBF+006H,X TXA CLC ADC #00080H TAX DEC ROOMBF+000H,X ORA #02000H STA >ROOMBF+000H,X LDA >ROOMBF+080H,X ORA #02000H STA >ROOMBF+080H,X LDA >ROOMBF+100H,X ORA #02000H STA >ROOMBF+100H,X LDA >ROOMBF+180H,X ORA #02000H STA >ROOMBF+180H,X INX INX DEC GDTRPF BEQ MCBL280 ; ura ? ; ; yes LDX #mblkd4 MCBL280 EQU $ JMP UNITST7 ; 2x2 unit set ; ; ; ; ;************************************************************************ ;* Crush yuka set (CRSHYKS0) * ;************************************************************************ CRSHYKS0 EQU $ LDA