zti.s 98-11-10 11:31:47......PAGE 0001 LINE# LOC CODE LINE 1:00000000 ;; ドイツ 2:00000000 ; 3:00000000 onbankgroup 4:00000000 ; 5:00000000 ;============== バンク０ ================================================ 6:00000000 BANK0 GROUP 0 7:00000000 ;-------------< ZCO >------------- 8:00000000 extern DATA_MOV,RAMCLR,RAMCL2,RNDSUB,OBJBG,SVOPEN,RAMCL3 9:00000000 extern SOUNDCLR,DJITRV,BGMSET,RAMCLR4 10:00000000 ; 11:00000000 ;-------------< ZES >------------- 12:00000000 extern ENEMY,ENIDSHL,COHTITL,ITEMDPL,ENOMST,EN2CST,ECACH 13:00000000 extern EMOVE,EFAIL 14:00000000 ; 15:00000000 ;-------------< ZBS >------------- 16:00000000 extern BGDTST,ENDTST,BGBKST,DJTKCK 17:00000000 ; 18:00000000 ;-------------< ZPL >------------- 19:00000000 extern MSGCHK,FDIN,FDOUT,NXGOTO,ENEMYL,GKCHRV,MSCHNOR 20:00000000 extern ENEMYL1,PLCSET,GPLAY,NMREG,NMCLR,PSLCT,PINDR2 21:00000000 extern NMCPY,GPMAIN,MSCHN2R 22:00000000 ; 23:00000000 ;-------------< ZMA >------------- 24:00000000 extern HIMITSU,VRMCL,VRMBT,BKCH2,BKCH3,WINDBGS,RBGST 25:00000000 extern PSLBGS,GVCHG,GOVBG,PSLBG2,NSLBGS,NCLBGS,GMAPBGS 26:00000000 extern VRMB2,DJBST,GRBST,GMBST,BLVRDS,GMAPCL,BNKTR 27:00000000 extern SPTST,BKCHG,TLCHG,ODCHG,NCPBGS,GRCST,TSVBG 28:00000000 ; 29:00000000 ;============== バンク１ ================================================ 30:00000000 BANK1 GROUP 1 31:00010000 ;-------------< ZS1 >------------- 32:00010000 extern GMRESET,CURSDST,CURSDSS,WANWANCK,TBGCST 33:00010000 ; 34:00010000 ;============== バンク２ ================================================ 35:00010000 BANK2 GROUP 2 36:00020000 ;-------------< ZEX >------------- 37:00020000 extern EXSTRA,COINIT,HARTIT,ITEMDP,WINDOW,ITEMDP2 38:00020000 ; 39:00020000 ;============== バンク３ ================================================ 40:00020000 BANK3 GROUP 3 41:00030000 ;-------------< ZEN >------------- 42:00030000 extern ENCAPS,BOMBR,BUMER,KTOBJ,PYAAA 43:00030000 ; 44:00030000 ;============== バンク８ ================================================ 45:00030000 BANK8 GROUP 8 46:00080000 ;-------------< ZBD >------------- 47:00080000 extern GRBGCR,BGUNCH 48:00080000 ; 49:00080000 ;============== バンク１４ ============================================== 50:00080000 BANK14 GROUP $14 51:00140000 ;-------------< ZDB >------------- 52:00140000 extern SKY,BKY 53:00140000 ; 54:00140000 ;======================================================================== 55:00140000 PUBALL 56:00140000 ; 57:00140000 BANK1 GROUP 1 ZRAM.s 98-11-10 11:31:47......PAGE 0002 LINE# LOC CODE LINE 1:00010000 PUBALL 2:00010000 ;;BANK0 GROUP 0 3:00010000 ;************************************************ 4:00010000 ;* <<<<< ＲＡＭ ＥＱＵ. >>>>> * 5:00010000 ;************************************************ 6:00010000 ; FF80->FF8F :SOUND USE 7:00010000 ; FFC0->FFC9 :DMA SUB 8:00010000 ; ORG $FF8A 9:00010000 ; 10:00010000 [0000FF90] BKCHFG EQU $FF90 11:00010000 [0000FF91] BKCHF2 EQU $FF91 12:00010000 [0000FF92] BKCHCT EQU $FF92 13:00010000 [0000FF93] BKCHC2 EQU $FF93 14:00010000 [0000FF94] BKCHNO EQU $FF94 15:00010000 [0000FF95] BKCHN2 EQU $FF95 16:00010000 ; 17:00010000 [0000FF96] SCCH EQU $FF96 18:00010000 [0000FF97] SCCV EQU $FF97 19:00010000 ; 20:00010000 [0000FF98] PLXPSL EQU $FF98 21:00010000 [0000FF99] PLYPSL EQU $FF99 22:00010000 [0000FF9A] PLXSPD EQU $FF9A 23:00010000 [0000FF9B] PLYSPD EQU $FF9B 24:00010000 [0000FF9C] PLSTAT EQU $FF9C 25:00010000 [0000FF9D] PLCHPT EQU $FF9D 26:00010000 [0000FF9E] PLCMKI EQU $FF9E 27:00010000 [0000FF9F] PLSVXL EQU $FF9F 28:00010000 [0000FFA0] PLSVYL EQU $FFA0 29:00010000 [0000FFA1] PLSTOP EQU $FFA1 30:00010000 [0000FFA2] PLZPSL EQU $FFA2 31:00010000 [0000FFA3] PLZSPD EQU $FFA3 32:00010000 [0000FFA4] CHTRFG EQU $FFA4 ; 常時 Character 転送 種類フラグ 33:00010000 [0000FFA5] CHTRF2 EQU $FFA5 ; 特殊 Character 転送 種類フラグ 34:00010000 [0000FFA6] CHTRCT EQU $FFA6 ; 35:00010000 [0000FFA7] CHTRC2 EQU $FFA7 ; 36:00010000 [0000FFA8] SDOUTFG EQU $FFA8 ; SOUND fade out flag ! 37:00010000 [0000FFA9] SLEVEL EQU $FFA9 ; SOUND level 1 flag ! 38:00010000 [0000FFAA] SLEVEL2 EQU $FFAA ; SOUND level 2 flag ! 39:00010000 [0000FFAB] SDONFG EQU $FFAB ; SOUND fade IN flag ! 40:00010000 [0000FFAC] EXITFG EQU $FFAC ; Dundeon Exit hit check mode 41:00010000 [0000FFAD] EXITXP EQU $FFAD 42:00010000 [0000FFAE] EXITYP EQU $FFAE 43:00010000 [0000FFAF] UNITNO EQU $FFAF 44:00010000 [0000FFB0] BGMNO EQU $FFB0 ; Now BGM no. 45:00010000 [0000FFB1] BGMSTF EQU $FFB1 ; BGM Chenge flag! 46:00010000 [0000FFB2] IKADAON EQU $FFB2 ; Player Ikada on flag ! 47:00010000 [0000FFB3] PLDSYP EQU $FFB3 ; PLYPSL+PLZPSL 48:00010000 [0000FFB4] DJMSTM EQU $FFB4 ; Dundeon message set time ! 49:00010000 [0000FFB5] OPKYTM EQU $FFB5 ;Opening key wait ! 50:00010000 [0000FFB6] KNKNTM EQU $FFB6 ; Ken vs Ken protect time ! 51:00010000 [0000FFB7] PLTIM0 EQU $FFB7 ; 52:00010000 [0000FFB8] FTUNNO EQU $FFB8 ;Foot unit no. 53:00010000 [0000FFB9] PANELMD EQU $FFB9 ;ひみつパネル順番テーブル 54:00010000 [0000FFBA] HIKUSFG EQU $FFBA ;引っ張るスイッチ 55:00010000 [0000FFBB] ONOFHELP EQU $FFBB ;スクロール前凹凸ブロック転送フラグ！ 56:00010000 ;;;BSFLFG EQU $FFBB ;ボスやられフラグ(専用サウンドセット） 57:00010000 [0000FFBC] BGMNOT EQU $FFBC ; BGM initial set noth flag ! ZRAM.s 98-11-10 11:31:47......PAGE 0003 LINE# LOC CODE LINE 58:00010000 [0000FFBD] BGMNO2 EQU $FFBD 59:00010000 [0000FFBE] ENBGRV EQU $FFBE ;BG check don't revise 60:00010000 [0000FFBF] TODYFG EQU $FFBF ;ファンファーレからの復帰するためのBGMの番号！ 61:00010000 ; 62:00010000 [0000FFCA] SVSTS EQU $FFCA ; DS 1 ; セーブステータス 63:00010000 [0000FFCB] CNT1 EQU $FFCB ; DS 1 ; コントローラ キー 情報 ベタ 入力 64:00010000 [0000FFCC] TRG1 EQU $FFCC ; DS 1 ; コントローラ キー 情報 トリガ 入力 65:00010000 [0000FFCD] OBJYP EQU $FFCD ; DS 1 ; ＯＢＪ Ｙ 座標 66:00010000 [0000FFCE] OBJXP EQU $FFCE ; DS 1 ; ＯＢＪ Ｘ 座標 67:00010000 [0000FFCF] VRAMH EQU $FFCF ; DS 1 ; ＶＲＡＭ 上位 アドレス 68:00010000 [0000FFD0] VRAML EQU $FFD0 ; DS 1 ; ＶＲＡＭ 下位 アドレス 69:00010000 [0000FFD1] VBLANK_F EQU $FFD1 ; DS 1 ; Ｖ−ＢＬＡＮＫ 終了 フラグ 70:00010000 [0000FFD2] IEB EQU $FFD2 ; DS 1 ; 割り込み許可フラグのバッファ 71:00010000 ; 72:00010000 [0000FFD3] W_SEQ EQU $FFD3 ; DS 1 ; ＯＢＪ-ＲＡＭ転送イニシャルフラグ 73:00010000 ; 74:00010000 [0000FFD4] S_DATA EQU $FFD4 ; DS 2 75:00010000 ; 76:00010000 [0000FFD6] BGTM EQU $FFD6 ; DS 1 77:00010000 ; 78:00010000 [0000FFD7] WORK EQU $FFD7 79:00010000 [0000FFD7] WORK0 EQU $FFD7 80:00010000 [0000FFD8] WORK1 EQU $FFD8 81:00010000 [0000FFD9] WORK2 EQU $FFD9 82:00010000 [0000FFDA] WORK3 EQU $FFDA 83:00010000 [0000FFDB] WORK4 EQU $FFDB 84:00010000 [0000FFDC] WORK5 EQU $FFDC 85:00010000 [0000FFDD] WORK6 EQU $FFDD 86:00010000 [0000FFDE] WORK7 EQU $FFDE 87:00010000 [0000FFDF] WORK8 EQU $FFDF 88:00010000 [0000FFE0] WORK9 EQU $FFE0 89:00010000 [0000FFE1] WORKA EQU $FFE1 90:00010000 [0000FFE2] WORKB EQU $FFE2 91:00010000 [0000FFE3] WORKC EQU $FFE3 92:00010000 [0000FFE4] WORKD EQU $FFE4 93:00010000 [0000FFE5] WORKE EQU $FFE5 94:00010000 [0000FFE6] WORKF EQU $FFE6 95:00010000 [0000FFE7] FRCNT EQU $FFE7 96:00010000 [0000FFE8] ENHELP EQU $FFE8 ; Enemy work 1 97:00010000 [0000FFE9] ENHELP2 EQU $FFE9 ; Enemy work 2 98:00010000 [0000FFEA] ENMODE2 EQU $FFEA 99:00010000 [0000FFEB] ENMYNO2 EQU $FFEB 100:00010000 [0000FFEC] ENDSYP EQU $FFEC 101:00010000 [0000FFED] ENFLCL EQU $FFED 102:00010000 [0000FFEE] ENSVXL EQU $FFEE 103:00010000 [0000FFEF] ENSVYL EQU $FFEF 104:00010000 [0000FFF0] ENSTAT2 EQU $FFF0 105:00010000 [0000FFF1] ENCHPT2 EQU $FFF1 106:00010000 ; 107:00010000 [0000FFF2] SOUND1 EQU $FFF2 108:00010000 [0000FFF3] SOUND2 EQU $FFF3 109:00010000 [0000FFF4] SOUND3 EQU $FFF4 110:00010000 [0000D368] SOUND4 EQU $D368 111:00010000 ;;;;;;SOUND4 EQU $FFF5 112:00010000 ; 113:00010000 [0000FFF5] ENCHNO EQU $FFF5 114:00010000 ; ZRAM.s 98-11-10 11:31:47......PAGE 0004 LINE# LOC CODE LINE 115:00010000 [0000FFF6] GRNDPT EQU $FFF6 116:00010000 [0000FFF7] DNJNNO EQU $FFF7 117:00010000 [0000FFF8] DJSVBF EQU $FFF8 118:00010000 [0000FFF9] YKFLAG EQU $FFF9 119:00010000 [0000FFFA] FTUNAD EQU $FFFA ;Foot BG unit Adress ! 120:00010000 [0000FFFB] WFTUNAD EQU $FFFB ; " save ! 121:00010000 [0000FFFD] NMIFG EQU $FFFD 122:00010000 ; 123:00010000 [0000FFCB] KEYA1 EQU CNT1 124:00010000 [0000FFCC] KEYA2 EQU TRG1 125:00010000 ;******************************** 126:00010000 ;* 制御用レジスタ * 127:00010000 ;******************************** 128:00010000 129:00010000 [0000FF00] P1 EQU $FF00 ; キーポート 130:00010000 [0000FF01] SSB EQU $FF01 ; シリアル転送 データ 131:00010000 [0000FF02] SSC EQU $FF02 ; シリアル コントロール 132:00010000 [0000FF04] DIV EQU $FF04 ; ディバイダー 133:00010000 [0000FF05] TIMA EQU $FF05 ; タイマー レジスタ 134:00010000 [0000FF06] TMA EQU $FF06 ; モジュロ レジスタ 135:00010000 [0000FF07] TAC EQU $FF07 ; タイマー コントロール 136:00010000 [0000FF0F] IF EQU $FF0F ; 割り込み要求フラグ 137:00010000 [0000FFFF] IE EQU $FFFF ; 割り込み許可フラグ 138:00010000 [0000FF40] LCDC EQU $FF40 ; ＬＣＤ コントロール 139:00010000 [0000FF41] STAT EQU $FF41 ; ＬＣＤＣ ステータス 140:00010000 [0000FF42] SCY EQU $FF42 ; スクロール Ｘ 141:00010000 [0000FF43] SCX EQU $FF43 ; スクロール Ｙ 142:00010000 [0000FF44] LY EQU $FF44 ; ＬＣＤＣ Ｙ 座標 143:00010000 [0000FF45] LYC EQU $FF45 ; ＬＹ コンペア レジスタ 144:00010000 [0000FF46] DMA EQU $FF46 ; ＤＭＡ 転送 145:00010000 [0000FF47] BGP EQU $FF47 ; ＢＧ パレット 146:00010000 [0000FF48] OBP0 EQU $FF48 ; ＯＢＪ パレット 0 147:00010000 [0000FF49] OBP1 EQU $FF49 ; ＯＢＪ パレット 1 148:00010000 [0000FF4A] WDY EQU $FF4A ; ウインド Ｘ 座標 149:00010000 [0000FF4B] WDX EQU $FF4B ; ウインド Ｙ 座標 150:00010000 ; 151:00010000 [0000DFE8] OTO EQU $DFE8 152:00010000 ; 153:00010000 ;******************************** 154:00010000 ;* ＤＭＡ * 155:00010000 ;******************************** 156:00010000 [0000FFC0] DMASUB EQU $FFC0 ; ＤＭＡ転送サブルーチン 157:00010000 [0000C000] OBJRAM EQU $C000 ; ＯＡＭ 原簿 158:00010000 [0000C000] OAM EQU $C000 159:00010000 [0000C008] POAM EQU $C008 160:00010000 ;;;;;; +A0 161:00010000 [0000C030] ENOAM EQU $C030 162:00010000 ;;;;; 0A0H use (C0A0->C0FFEQUDammy) 163:00010000 ;******************************** 164:00010000 ;* GAME USE RAM * 165:00010000 ;******************************** 166:00010000 [0000C100] SCCH1 EQU $C100 ; Opening part scroll counter ! 167:00010000 [0000C101] SCCH2 EQU $C101 168:00010000 [0000C102] SCCH3 EQU $C102 169:00010000 [0000C103] SCCH4 EQU $C103 170:00010000 [0000C104] SCCH5 EQU $C104 171:00010000 [0000C105] OPSCCT EQU $C105 ; Line check counter ! ZRAM.s 98-11-10 11:31:47......PAGE 0005 LINE# LOC CODE LINE 172:00010000 [0000C106] SCCV1 EQU $C106 ; 173:00010000 [0000C107] BGMFLG EQU $C107 ; BGM select TEST flag ! 174:00010000 [0000C108] NMSTCT EQU $C108 ; Mesege NAME in count ! 175:00010000 [0000C109] MSTNO EQU $C109 ; Message test No. 176:00010000 [0000C10A] BEDOFF EQU $C10A ; Start demo bed off flag !(Not BG check) 177:00010000 [0000C10B] SNDSPD EQU $C10B ; Sound speed ! 178:00010000 [0000C10C] DAMASI EQU $C10C ; タヌキだましフラグ！ 179:00010000 [0000C10D] EBCHF2 EQU $C10D ; 敵転送フラグ２ 180:00010000 [0000C10E] BKCHF3 EQU $C10E ; " 181:00010000 [0000C10F] BKCHC3 EQU $C10F ; " 182:00010000 [0000C110] PINCHCT EQU $C110 ; ライフ危険サウンドセットタイミング！ 183:00010000 [0000C111] ENSTTM EQU $C111 ; 敵ストップタイム 184:00010000 [0000C112] MSGENOH EQU $C112 ; メッセージナンバー High! 185:00010000 [0000C113] EFLFLG EQU $C113 ; 敵全部穴落ちたフラグ！ 186:00010000 [0000C114] NAMIOTO EQU $C114 ; 波際 ＳE COUNT 187:00010000 [0000C115] KDMSCT EQU $C115 ;子供メッセージカウント 188:00010000 [0000C116] ZZZFLG EQU $C116 ;タリン ＺＺＺ 転送フラグ(いらん） 189:00010000 [0000C117] SLIMFG EQU $C117 ;スライムひっつき！ 190:00010000 ;MSSDWT EQU $C117 191:00010000 ; 192:00010000 ; 193:00010000 [0000C118] PLXPSH EQU $C118 194:00010000 [0000C119] PLYPSH EQU $C119 195:00010000 [0000C11A] PLXSDR EQU $C11A 196:00010000 [0000C11B] PLYSDR EQU $C11B 197:00010000 [0000C11C] PLMODE EQU $C11C 198:00010000 [0000C11D] PLFLPL EQU $C11D 199:00010000 [0000C11E] PLFLPR EQU $C11E 200:00010000 [0000C11F] HASGFG EQU $C11F 201:00010000 [0000C120] PLWKCT EQU $C120 202:00010000 [0000C121] SPCTTM EQU $C121 203:00010000 [0000C122] SPCTWT EQU $C122 204:00010000 [0000C123] INDEX EQU $C123 205:00010000 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 206:00010000 [0000C124] SCRLFG EQU $C124 207:00010000 [0000C125] SCRLMK EQU $C125 208:00010000 [0000C126] SCRADH EQU $C126 209:00010000 [0000C127] SCRADL EQU $C127 210:00010000 [0000C128] SCRLC1 EQU $C128 211:00010000 [0000C129] SCRLC2 EQU $C129 212:00010000 [0000C12A] SCUNTA EQU $C12A 213:00010000 [0000C12B] SCRLTM EQU $C12B 214:00010000 [0000C12C] SCCHNX EQU $C12C 215:00010000 [0000C12D] SCCVNX EQU $C12D 216:00010000 [0000C12E] SCVRMH EQU $C12E 217:00010000 [0000C12F] SCVRML EQU $C12F 218:00010000 [0000C130] WHASGFG EQU $C130 219:00010000 ;;;GRNDPT EQU $C130 220:00010000 ;PLSVXL EQU $C131 221:00010000 ;PLSVYL EQU $C132 222:00010000 [0000C133] PLCBFG EQU $C133 223:00010000 [0000C134] MSOFTM EQU $C134 ;メッセージ連続防止タイム！ 224:00010000 ;;UNITNO EQU $C134 225:00010000 [0000C135] PLPRIO EQU $C135 226:00010000 [0000C136] PKENPT EQU $C136 227:00010000 [0000C137] PCUTFG EQU $C137 228:00010000 [0000C138] PCUTTM EQU $C138 ZRAM.s 98-11-10 11:31:47......PAGE 0006 LINE# LOC CODE LINE 229:00010000 [0000C139] PKENYD EQU $C139 230:00010000 [0000C13A] PKENXD EQU $C13A 231:00010000 [0000C13B] PLDSYD EQU $C13B 232:00010000 [0000C13C] PLDSXD EQU $C13C 233:00010000 [0000C13D] RNDFLG EQU $C13D 234:00010000 [0000C13E] HANEFG EQU $C13E 235:00010000 [0000C13F] OVSLCT EQU $C13F 236:00010000 [0000C140] PKCRX1 EQU $C140 237:00010000 [0000C141] PKCRX2 EQU $C141 238:00010000 [0000C142] PKCRY1 EQU $C142 239:00010000 [0000C143] PKCRY2 EQU $C143 240:00010000 [0000C144] PLOSHI EQU $C144 241:00010000 [0000C145] PLYPS2 EQU $C145 242:00010000 [0000C146] PLJPFG EQU $C146 243:00010000 [0000C147] ONLFFG EQU $C147 ;リフト 載りフラグ！ 244:00010000 ;PLZPSL EQU $C147 245:00010000 ;PLZSPD EQU $C148 246:00010000 [0000C149] PLZSDR EQU $C149 247:00010000 [0000C14A] DUSHFG EQU $C14A 248:00010000 [0000C14B] DUSHCT EQU $C14B 249:00010000 [0000C14C] PYAATM EQU $C14C 250:00010000 [0000C14D] BUMEFG EQU $C14D 251:00010000 [0000C14D] PRTBMFG EQU $C14D 252:00010000 [0000C14E] BOMBFG EQU $C14E 253:00010000 ;---------------------- 254:00010000 [0000C14F] WNDFLG EQU $C14F 255:00010000 [0000C150] WNDSPD EQU $C150 256:00010000 [0000C151] WNDSTT EQU $C151 257:00010000 [0000C152] PLJCPT EQU $C152 258:00010000 [0000C153] PLJCCT EQU $C153 259:00010000 [0000C154] WDITFG EQU $C154 260:00010000 [0000C155] TILTXD EQU $C155 261:00010000 [0000C156] TILTYD EQU $C156 262:00010000 [0000C157] TILTCT EQU $C157 263:00010000 [0000C158] TILTMK EQU $C158 264:00010000 [0000C159] MPWRK0 EQU $C159 265:00010000 [0000C15A] TATEFG EQU $C15A 266:00010000 [0000C15B] TATEON EQU $C15B 267:00010000 [0000C15C] PLCAMD EQU $C15C 268:00010000 [0000C15D] PLCAMK EQU $C15D 269:00010000 ;PLSTOP EQU $C15E 270:00010000 [0000C15F] PLHKCT EQU $C15F 271:00010000 [0000C160] PCUTOF EQU $C160 272:00010000 [0000C161] WTBGCT EQU $C161 273:00010000 [0000C162] WTBGC2 EQU $C162 274:00010000 [0000C163] PINCHFG EQU $C163 275:00010000 [0000C164] MJSTCTH EQU $C164 ;メッセージ文字数カウントＨ 276:00010000 [0000C165] BSSDTM EQU $C165 ;ボス メッセージ セット タイマー 277:00010000 [0000C166] OKARFG EQU $C166 ;オカリナ吹きフラグ！ 278:00010000 [0000C167] ITEMNOT EQU $C167 ;アイテム不可！ 279:00010000 [0000C168] SARUFG EQU $C168 ;猿 指導フラグ！ 280:00010000 [0000C169] DAMSEFG EQU $C169 ;ズクロールエンドたぬきだまし音セットフラグ！ 281:00010000 ;------------------ 282:00010000 ;BKCHFG EQU $C163 283:00010000 ;BKCHF2 EQU $C164 284:00010000 ;BKCHCT EQU $C165 285:00010000 ;BKCHC2 EQU $C166 ZRAM.s 98-11-10 11:31:47......PAGE 0007 LINE# LOC CODE LINE 286:00010000 ;BKCHNO EQU $C167 287:00010000 ;BKCHN2 EQU $C168 288:00010000 ;PLSTAT EQU $C169 289:00010000 ;-------------------- 290:00010000 [0000C16A] WCUTFG EQU $C16A 291:00010000 [0000C16B] SBHR EQU $C16B 292:00010000 [0000C16C] SBCNT EQU $C16C 293:00010000 [0000C16D] CARITM EQU $C16D ; Ken chari time 294:00010000 [0000C16E] KENON EQU $C16E ; ken butoon on ! 295:00010000 [0000C16F] MSSTCT EQU $C16F 296:00010000 [0000C170] MJSTCT EQU $C170 297:00010000 [0000C171] MJSTCT2 EQU $C171 298:00010000 [0000C172] MJSTTM EQU $C172 299:00010000 [0000C173] MSGENO EQU $C173 300:00010000 [0000C174] PWORK0 EQU $C174 301:00010000 [0000C175] MSVRMH EQU $C175 302:00010000 [0000C176] MSVRML EQU $C176 303:00010000 [0000C177] MSANSR EQU $C177 304:00010000 [0000C178] TLCRTM EQU $C178 305:00010000 [0000C179] TLCRXL EQU $C179 306:00010000 [0000C17A] TLCRYL EQU $C17A 307:00010000 [0000C17B] BGCKOF EQU $C17B 308:00010000 [0000C17C] WAVCNT EQU $C17C 309:00010000 [0000C17D] WAVCNT2 EQU $C17D 310:00010000 [0000C17E] WAVCNT3 EQU $C17E 311:00010000 [0000C17F] WAVFLG EQU $C17F 312:00010000 [0000C180] WAVTIM EQU $C180 313:00010000 [0000C181] FTBGNO EQU $C181 314:00010000 [0000C182] WDMVCT EQU $C182 315:00010000 [0000C183] PLSWTM EQU $C183 316:00010000 [0000C184] PCTRALH EQU $C184 317:00010000 [0000C185] PCTRALL EQU $C185 318:00010000 [0000C186] PCTRARH EQU $C186 319:00010000 [0000C187] PCTRARL EQU $C187 320:00010000 [0000C188] DROPFG EQU $C188 321:00010000 [0000C189] DROPMD EQU $C189 322:00010000 [0000C18A] SHSTCT EQU $C18A 323:00010000 [0000C18B] SHSTCT2 EQU $C18B 324:00010000 [0000C18C] SHOPEN EQU $C18C 325:00010000 [0000C18D] SHSHUT EQU $C18D 326:00010000 [0000C18E] NAZOFG EQU $C18E 327:00010000 [0000C18F] NAZOCL EQU $C18F 328:00010000 [0000C190] SHUTFG EQU $C190 329:00010000 [0000C191] BLOSTM EQU $C191 330:00010000 [0000C193] EBANK0 EQU $C193 331:00010000 [0000C194] EBANK1 EQU $C194 332:00010000 [0000C195] EBANK2 EQU $C195 333:00010000 [0000C196] EBANK3 EQU $C196 334:00010000 [0000C197] EBCHFG EQU $C197 335:00010000 [0000C198] KURDCT EQU $C198 336:00010000 [0000C199] DUSHTM EQU $C199 337:00010000 [0000C19A] DUSHMK EQU $C19A 338:00010000 [0000C19B] POWDRTM EQU $C19B 339:00010000 [0000C19C] DOORCT EQU $C19C 340:00010000 [0000C19D] WARPFG EQU $C19D 341:00010000 ;;PLTIM0 EQU $C19D 342:00010000 [0000C19E] ATCKNO EQU $C19E ZRAM.s 98-11-10 11:31:47......PAGE 0008 LINE# LOC CODE LINE 343:00010000 [0000C19F] MSGEFG EQU $C19F 344:00010000 [0000C1A0] SPDMAPL EQU $C1A0 ; Danjyon Map special character TR. data adress L 345:00010000 [0000C1A1] SPDMAPH EQU $C1A1 ; H 346:00010000 [0000C1A2] TOURCT EQU $C1A2 347:00010000 [0000C1A3] LIKEFG EQU $C1A3 ;Like like yabaa flag ! 348:00010000 [0000C1A4] PFUCKFG EQU $C1A4 ;Fuck shot flag ! 349:00010000 [0000C1A5] BELTFG EQU $C1A5 350:00010000 [0000C1A6] PFUCKID EQU $C1A6 ;Fuck shot index 351:00010000 [0000C1A7] TOGEFG EQU $C1A7 ; Toge BG flag 352:00010000 [0000C1A8] ENSTFG EQU $C1A8 ; Enemy stop flag ! 353:00010000 [0000C1A9] DEMOFG EQU $C1A9 ; Player demo flag 354:00010000 [0000C1AA] DEMOTM EQU $C1AA ; " time 355:00010000 [0000C1AB] MSKYOF EQU $C1AB ; Mesege key not check 356:00010000 [0000C1AC] KENOFF EQU $C1AC 357:00010000 [0000C1AD] MSCRFG EQU $C1AD ; Peaple cros flag 358:00010000 [0000C1AE] SLIMCNT EQU $C1AE ; Boss small slime set count ! 359:00010000 [0000C1AF] BSFLFG EQU $C1AF ;ボスやられフラグ(専用サウンドセット） 360:00010000 ;;BGMNOT EQU $C1AF ; BGM initial set noth flag ! 361:00010000 [0000C1B0] ICONWRK EQU $C1B0 ; G map icon set ram 362:00010000 [0000C1B1] ICONFG EQU $C1B1 363:00010000 [0000C1B2] ICONTM EQU $C1B2 364:00010000 [0000C1B3] ICONTM2 EQU $C1B3 365:00010000 [0000C1B4] WGMAPPT EQU $C1B4 ; GMAPPT save 366:00010000 [0000C1B5] FUEFLG EQU $C1B5 ; Window fue display flag ! 367:00010000 [0000C1B6] WITEMPT EQU $C1B6 ; Item waku point save 368:00010000 [0000C1B7] FUECPT EQU $C1B7 ; Fue chr pt 369:00010000 [0000C1B8] FUETM EQU $C1B8 ; Fue window set timer ! 370:00010000 [0000C1B9] FUETM2 EQU $C1B9 ; " 371:00010000 [0000C1BA] FUEAUT EQU $C1BA ; Auto window off flag ! 372:00010000 [0000C1BB] FLDWTM EQU $C1BB ; Player fole down help time ! 373:00010000 [0000C1BC] DJCLTM EQU $C1BC ; Danjyon clear time ! 374:00010000 [0000C1BD] BSSDFG EQU $C1BD ; Boss sound set flag 375:00010000 [0000C1BE] BOSSFG EQU $C1BE ; Boss room flag 376:00010000 [0000C1BF] SCXAD EQU $C1BF ; Part Scroll ADD count 377:00010000 [0000C1C0] BMYATM EQU $C1C0 ; Bomber alow time ! 378:00010000 [0000C1C1] BMINDX EQU $C1C1 ; Bomber use index 379:00010000 [0000C1C2] YAINDX EQU $C1C2 ; ya use index 380:00010000 [0000C1C3] CARISTM EQU $C1C3 ; BG ken cyari set timing flag ! 381:00010000 [0000C1C4] KNBGTM EQU $C1C4 ; Ken BG check protect time ! 382:00010000 [0000C1C5] MJSTCT3 EQU $C1C5 ; Test 383:00010000 [0000C1C6] MUTEKI EQU $C1C6 ; Player no damege flag ! 384:00010000 [0000C1C7] ANAHFG EQU $C1C7 ; Ana hori flag ! 385:00010000 [0000C1C8] ANAHTM EQU $C1C8 ; Ana hori time ! 386:00010000 [0000C1C9] FLBKTM EQU $C1C9 ; 壊れる床タイム 387:00010000 [0000C1CA] SWCHCT EQU $C1CA ; 乗る SWICH on count 388:00010000 [0000C1CB] SWCHTM EQU $C1CB ; " Return Timer !! 389:00010000 [0000C1CC] MJSDON EQU $C1CC ;メッセージ送り音セットフラグ！ 390:00010000 [0000C1CD] BSXPSL EQU $C1CD ;Boss woak ram (RANEM suna set pos.) 391:00010000 [0000C1CE] BSYPSL EQU $C1CE 392:00010000 [0000C1CF] DJSDON EQU $C1CF ;ダンジョンスクロールBGMセットフラグ！ 393:00010000 ;- - - - - - - - - - - - - - 394:00010000 [0000C1D0] DROBPX EQU $C1D0 ;シャッターアドレス 395:00010000 [0000C1E0] DROBPY EQU $C1E0 ; 396:00010000 [0000C1F0] DRUNPS EQU $C1F0 ; " UNIT ADRESS 397:00010000 ;===SOUND TEST ===== 398:00010000 [0000C1FE] SDFLAG EQU $C1FE 399:00010000 [0000C1FF] SDTIME EQU $C1FF ZRAM.s 98-11-10 11:31:47......PAGE 0009 LINE# LOC CODE LINE 400:00010000 ;- - 敵 専用- - - - - - - - 401:00010000 [00000010] ENNO EQU $10 402:00010000 [0000C200] ENXPSL EQU $C200 403:00010000 [0000C210] ENYPSL EQU $C210 404:00010000 [0000C220] ENXPSH EQU $C220 405:00010000 [0000C230] ENYPSH EQU $C230 406:00010000 [0000C240] ENXSPD EQU $C240 407:00010000 [0000C250] ENYSPD EQU $C250 408:00010000 [0000C260] ENXSDR EQU $C260 409:00010000 [0000C270] ENYSDR EQU $C270 410:00010000 [0000C280] ENMODE EQU $C280 411:00010000 [0000C290] ENSTAT EQU $C290 412:00010000 [0000C2A0] ENCBFG EQU $C2A0 413:00010000 [0000C2B0] ENWRK0 EQU $C2B0 414:00010000 [0000C2C0] ENWRK1 EQU $C2C0 415:00010000 [0000C2D0] ENWRK2 EQU $C2D0 416:00010000 [0000C2E0] ENTIM0 EQU $C2E0 417:00010000 [0000C2F0] ENTIM1 EQU $C2F0 418:00010000 [0000C300] ENTIM2 EQU $C300 419:00010000 [0000C310] ENZPSL EQU $C310 420:00010000 [0000C320] ENZSPD EQU $C320 421:00010000 [0000C330] ENZSDR EQU $C330 422:00010000 [0000C340] ENMOD0 EQU $C340 423:00010000 [0000C350] ENMOD1 EQU $C350 424:00010000 [0000C360] ENLIFE EQU $C360 425:00010000 [0000C370] ENBANK EQU $C370 426:00010000 [0000C380] ENMUKI EQU $C380 427:00010000 [0000C390] ENWRK4 EQU $C390 428:00010000 [0000C3A0] ENMYNO EQU $C3A0 429:00010000 [0000C3B0] ENCHPT EQU $C3B0 430:00010000 [0000C3C0] ENOMID EQU $C3C0 431:00010000 [0000C3C1] ENOMIS EQU $C3C1 432:00010000 ;--------------------------- 433:00010000 [0000C3C2] PLWRK0 EQU $C3C2 434:00010000 [0000C3C3] MSNXMJ EQU $C3C3 ;メッセージ先読み用！ 435:00010000 [0000C3C4] LVWRK0 EQU $C3C4 ;海岸熱いデモ用！ 436:00010000 [0000C3C5] LVWRK1 EQU $C3C5 437:00010000 [0000C3C6] LVWRK2 EQU $C3C6 438:00010000 [0000C3C7] LVTIM0 EQU $C3C7 439:00010000 [0000C3C8] UTAFLG EQU $C3C8 ;マリン唄フラグ！ 440:00010000 [0000C3C9] PIMODE EQU $C3C9 ;マリンダンジョン入る、、、、 441:00010000 [0000C3CA] WAVCNT4 EQU $C3CA ;ヱーブ 442:00010000 ;- - - - - - - - - - - 443:00010000 [0000C3CB] FADEON EQU $C3CB ;Fade on set 444:00010000 [0000C3CC] FADECT EQU $C3CC ;Now count 445:00010000 [0000C3CD] FADECT2 EQU $C3CD ;Max count 446:00010000 [0000C3CE] COINWT EQU $C3CE ;コインカウントアップメッセージ待ち！ 447:00010000 [0000C3CF] WPLCAMD EQU $C3CF ;かつぎフラグセーブ！ 448:00010000 ;;;;;;;;;;BGFLSH EQU $C3CE ;BG フラッシュ 449:00010000 ;;;; Fury !! 450:00010000 [0000C3D0] ENCONT EQU $C3D0 451:00010000 [0000C3E0] ENGRPT EQU $C3E0 452:00010000 [0000C3F0] ENHNXS EQU $C3F0 453:00010000 [0000C400] ENHNYS EQU $C400 454:00010000 [0000C410] ENHNFG EQU $C410 455:00010000 [0000C420] ENFLSH EQU $C420 456:00010000 [0000C430] ENMOD3 EQU $C430 ZRAM.s 98-11-10 11:31:47......PAGE 0010 LINE# LOC CODE LINE 457:00010000 [0000C440] ENWRK3 EQU $C440 458:00010000 [0000C450] ENTIM3 EQU $C450 ; Long timer ! 459:00010000 [0000C460] ENJYUN EQU $C460 ; Enemy set jyunban count 0,1,2,3.... 460:00010000 [0000C470] ENWATR EQU $C470 ; In water flag ! 461:00010000 [0000C480] ENTIM4 EQU $C480 462:00010000 [0000C490] ENCAST EQU $C490 463:00010000 [0000C4A0] ENHNMD EQU $C4A0 ; Hanekeri 464:00010000 [0000C4B0] ENFLXP EQU $C4B0 ; Fole down serch xpos 465:00010000 [0000C4C0] ENFLYP EQU $C4C0 ; " y 466:00010000 [0000C4D0] ENMOD2 EQU $C4D0 467:00010000 [0000C4E0] ENITMF EQU $C4E0 ;強制アイテムセットフラグ 468:00010000 [0000C4F0] ENBCOF EQU $C4F0 ;BG チェック無視！ 469:00010000 ; 470:00010000 [0000C500] MAMUUFG EQU $C500 ;マムーウインドウ 471:00010000 [0000C501] FKINDX EQU $C501 ;ふくろうインデックス 472:00010000 [0000C502] OTOFLG EQU $C502 473:00010000 [0000C503] ENBGLR EQU $C503 474:00010000 [0000C504] SPEKFG EQU $C504 475:00010000 [0000C505] SHOHIN EQU $C505 476:00010000 ;;;;; +4 477:00010000 [0000C509] SHOHFG EQU $C509 478:00010000 [0000C50A] SHOPFG EQU $C50A ;No atack flag ! 479:00010000 [0000C50B] SHOHID EQU $C50B ;SHOHIN Index ! 480:00010000 [0000C50C] KTINDX EQU $C50C ;KTOBJ use index 481:00010000 [0000C50D] ENBGUD EQU $C50D 482:00010000 [0000C50E] TAKISDF EQU $C50E ;滝音セットフラグ！ 483:00010000 [0000C50F] MAINDX EQU $C50F ;マリンオプションインデックス 484:00010000 ;---------------------- 485:00010000 [00000010] EXNO EQU $10 486:00010000 [0000C510] EXMODE EQU $C510 487:00010000 [0000C520] EXTIM0 EQU $C520 488:00010000 [0000C530] EXXPSL EQU $C530 489:00010000 [0000C540] EXYPSL EQU $C540 490:00010000 [0000C550] EXXSPD EQU $C550 491:00010000 [0000C560] EXYSPD EQU $C560 492:00010000 [0000C570] EXXSDR EQU $C570 493:00010000 [0000C580] EXYSDR EQU $C580 494:00010000 [0000C590] EXSTAT EQU $C590 495:00010000 ;-------------- 496:00010000 [0000C5A0] EXWRK0 EQU $C5A0 ;未使用！ 497:00010000 [0000C5B0] EXWRK1 EQU $C5B0 ; ” 498:00010000 ;-------------- 499:00010000 [0000C5A0] FIREBFG EQU $C5A0 500:00010000 [0000C5A1] WFIREBFG EQU $C5A1 501:00010000 [0000C5A2] GMAPFG EQU $C5A2 ;本からの地上マップ用！ 502:00010000 [0000C5A3] SEIRENFG EQU $C5A3 ;セイレーン楽器デモ用！ 503:00010000 [0000C5A4] OKACNT EQU $C5A4 ; タイミング！ 504:00010000 [0000C5A5] OKACNT2 EQU $C5A5 505:00010000 [0000C5A6] IWAMSFG EQU $C5A6 ;１回のみ岩もちあげられます！msgeflag! 506:00010000 [0000C5A7] BSFLSD EQU $C5A7 ;ボスやられ音セット時間さ用！ 507:00010000 [0000C5A8] PLCANO EQU $C5A8 ;かついでる敵のＮo. 508:00010000 [0000C5A9] HARTFUL EQU $C5A9 ;ライフまんたんフラグ！ 509:00010000 [0000C5AA] L9NZCT EQU $C5AA ;レベル９謎カウント！ 510:00010000 [0000C5AB] FKMSFG EQU $C5AB ;フクロウメッセージ音！フラグ！ 511:00010000 [0000C5AC] HABACNT EQU $C5AC ;はばたき音セットカウント！ 512:00010000 [0000C5AD] FADEBP EQU $C5AD ;フェード BGPFG 513:00010000 [0000C5AE] CACHTM EQU $C5AE ;敵投げプロテクト！ ZRAM.s 98-11-10 11:31:47......PAGE 0011 LINE# LOC CODE LINE 514:00010000 [0000C5AF] BGMSTM EQU $C5AF ;BGM時間差セット！ 515:00010000 [0000C5B0] KENTAT EQU $C5B0 ;剣か盾かどっちか(当たり判定) 516:00010000 ;- - - - - - - - - 517:00010000 [0000C5C0] EXSTCT EQU $C5C0 518:00010000 [0000C5D0] ENSHMK EQU $C5D0 ;プレイヤー武器投げ向き 519:00010000 [0000C5E0] ENSHUN EQU $C5E0 ;プレイヤー武器投げ現在ユニット 520:00010000 ;---------------------- 521:00010000 [0000CE80] ENONCT EQU $CE80 ; Enemy on off check room count 522:00010000 [0000CE81] ENONBF EQU $CE81 ; " Buffer 523:00010000 ;;; +6 524:00010000 ;---------------------- 525:00010000 [0000CF00] ENONOF EQU $CF00 ; Enemy fail bit on off data Max 256 526:00010000 ;---------------------- 527:00010000 [0000D000] XMVBUF EQU $D000 528:00010000 [0000D100] YMVBUF EQU $D100 529:00010000 [0000D200] ZMVBUF EQU $D200 530:00010000 ;---------------------- 531:00010000 [0000D200] KRENC1 EQU $D200 ;クレーンゲーム 532:00010000 [0000D201] KRENC2 EQU $D201 533:00010000 [0000D202] BUTNC1 EQU $D202 534:00010000 [0000D203] BUTNC2 EQU $D203 535:00010000 [0000D204] KRENXP EQU $D204 536:00010000 [0000D205] KRENYP EQU $D205 537:00010000 [0000D206] KRENAD EQU $D206 538:00010000 ;---------------------- 539:00010000 [0000D000] LUREXP EQU $D000 540:00010000 [0000D001] LUREYP EQU $D001 541:00010000 [0000D002] FISHON EQU $D002 542:00010000 [0000D003] LUREID EQU $D003 543:00010000 [0000D004] FISHCT EQU $D004 544:00010000 ;---------------------- 545:00010000 [0000D000] OYAJIXS EQU $D000 546:00010000 [0000D001] OYAJIYS EQU $D001 547:00010000 [0000D002] TBINDX EQU $D002 548:00010000 ;--Boss use----------- 549:00010000 [0000D200] BHEADFG EQU $D200 550:00010000 [0000D201] BSINDX EQU $D201 551:00010000 [0000D202] BSINDX2 EQU $D202 552:00010000 [0000D203] BHAZUCT EQU $D203 553:00010000 [0000D204] BSLIFE EQU $D204 554:00010000 [0000D205] BDATNO EQU $D205 ; Big bird atack No. 555:00010000 ;--BSKEL use-- 556:00010000 [0000D206] BSTTPT EQU $D206 557:00010000 [0000D207] BSKNPT EQU $D207 558:00010000 [0000D208] BSUPPT EQU $D208 559:00010000 [0000D209] BSDWPT EQU $D209 560:00010000 [0000D20A] BSTTXP EQU $D20A 561:00010000 [0000D20B] BSTTYP EQU $D20B 562:00010000 [0000D20C] BSKNXP EQU $D20C 563:00010000 [0000D20D] BSKNYP EQU $D20D 564:00010000 [0000D20E] BSUPYP EQU $D20E 565:00010000 [0000D20F] BSDWYP EQU $D20F 566:00010000 ;-- Manbou & Mamuu use --- 567:00010000 [0000D210] BGMCNT EQU $D210 568:00010000 [0000D211] BGMCNT2 EQU $D211 569:00010000 [0000D212] BGMCNT3 EQU $D212 570:00010000 [0000D213] BGMCNT4 EQU $D213 ZRAM.s 98-11-10 11:31:47......PAGE 0012 LINE# LOC CODE LINE 571:00010000 [0000D214] BGMTIM0 EQU $D214 572:00010000 [0000D215] BGMWRK0 EQU $D215 573:00010000 [0000D216] BGMWRK1 EQU $D216 574:00010000 [0000D217] BGMCNT5 EQU $D217 575:00010000 [0000D218] BGMTIM1 EQU $D218 576:00010000 ;--------------------- 577:00010000 [0000D200] LDWRK0 EQU $D200 578:00010000 [0000D210] LDWRK1 EQU $D210 579:00010000 ;-- ラストボス use --- 580:00010000 [0000D219] BOSSNO EQU $D219 581:00010000 [0000D21A] BSCSOFF EQU $D21A 582:00010000 [0000D21B] AGWPPX EQU $D21B 583:00010000 [0000D21C] AGWPPY EQU $D21C 584:00010000 [0000D21D] AGTMFG EQU $D21D 585:00010000 [0000D21E] BSMUKI EQU $D21E 586:00010000 [0000D21F] BSATCT EQU $D21F 587:00010000 [0000D220] BSDMCT EQU $D220 588:00010000 [0000D221] BSWRK0 EQU $D221 589:00010000 [0000D222] BSWRK1 EQU $D222 590:00010000 [0000D223] BSWRK2 EQU $D223 591:00010000 [0000D224] GABOFG EQU $D224 592:00010000 [0000D225] GABOXD EQU $D225 593:00010000 [0000D226] GABOYD EQU $D226 594:00010000 [0000D227] BSKBMK EQU $D227 595:00010000 [0000D228] BSKBPT EQU $D228 596:00010000 ;---------------------- 597:00010000 [0000D000] NAMEOK EQU $D000 598:00010000 [0000D001] NMCPP1 EQU $D001 599:00010000 [0000D002] NMCPP2 EQU $D002 600:00010000 ;---------------------- 601:00010000 [0000D000] TLSCCT EQU $D000 602:00010000 [0000D001] TLSCCT2 EQU $D001 603:00010000 ;---------------------- 604:00010000 [0000D000] OPWRK0 EQU $D000 ; Opening & ending use ! 605:00010000 [0000D001] OPWRK1 EQU $D001 606:00010000 [0000D002] OPWRK2 EQU $D002 607:00010000 [0000D003] OPWRK3 EQU $D003 608:00010000 [0000D004] OPWRK4 EQU $D004 609:00010000 [0000D005] OPWRK5 EQU $D005 610:00010000 [0000D006] NMCH0L EQU $D006 ; Nami Chr TR. ADRESS ! 611:00010000 [0000D007] NMCH0H EQU $D007 612:00010000 [0000D008] NMCH1L EQU $D008 613:00010000 [0000D009] NMCH1H EQU $D009 614:00010000 [0000D00A] YAMACT EQU $D00A ; Yama BG write count ! 615:00010000 [0000D00B] EGGZL EQU $D00B ; " adress 616:00010000 [0000D00C] EGGZH EQU $D00C ; " H 617:00010000 [0000D00D] OPWRK6 EQU $D00D ; 618:00010000 [0000D00E] OPWRK7 EQU $D00E ; 619:00010000 [0000D00F] OPWRK8 EQU $D00F ; 620:00010000 [0000D010] OPFDCT EQU $D010 ;Fade count 621:00010000 ;--Ending USE-------------------- 622:00010000 [0000D000] EDWRK0 EQU $D000 623:00010000 [0000D001] EDWRK1 EQU $D001 624:00010000 [0000D002] EDWRK2 EQU $D002 625:00010000 [0000D003] EDWRK3 EQU $D003 626:00010000 [0000D004] EDWRK4 EQU $D004 627:00010000 [0000D005] EDWRK5 EQU $D005 ZRAM.s 98-11-10 11:31:47......PAGE 0013 LINE# LOC CODE LINE 628:00010000 [0000D006] EDTIM0 EQU $D006 629:00010000 [0000D007] EDTIM1 EQU $D007 630:00010000 [0000D008] EDTIM2 EQU $D008 631:00010000 [0000D009] EDTIM3 EQU $D009 632:00010000 [0000D00A] EDCNT0 EQU $D00A 633:00010000 [0000D00B] EDCNT1 EQU $D00B 634:00010000 [0000D00C] EDCNT2 EQU $D00C 635:00010000 [0000D00D] EDCNT3 EQU $D00D 636:00010000 [0000D00E] EDMODE EQU $D00E 637:00010000 ;- Not ERCLER -- 638:00010000 [0000D00F] EDCNT4 EQU $D00F 639:00010000 [0000D00F] EDCNT5 EQU $D00F 640:00010000 ;- Staff role - 641:00010000 [0000D010] STWRK0 EQU $D010 642:00010000 [0000D011] STWRK1 EQU $D011 643:00010000 [0000D012] STMODE EQU $D012 644:00010000 [0000D013] EDTIM4 EQU $D013 645:00010000 ;--------------- 646:00010000 [0000D100] WAXBUF EQU $D100 ; WANWAN calc buffer 647:00010000 [0000D110] WAYBUF EQU $D110 ; WANWAN calc buffer 648:00010000 [0000D120] WAXBUF2 EQU $D120 ; WANWAN calc buffer Save 649:00010000 [0000D130] WAYBUF2 EQU $D130 ; WANWAN calc buffer Save 650:00010000 [0000D150] WACTXP EQU $D150 ; 中心 651:00010000 [0000D151] WACTYP EQU $D151 ; 652:00010000 [0000D152] WAINDX EQU $D152 ; 対敵インデックス 653:00010000 [0000D153] WAINDX2 EQU $D153 ;モリブリン捕まりインデックス 654:00010000 [0000D154] WAINDX3 EQU $D154 ;ワンワン自分インデクス 655:00010000 ;--------------------------------- 656:00010000 [0000D155] MAXBUF EQU $D155 ;マリンオプシヨンバッフアー 657:00010000 [0000D175] MAYBUF EQU $D175 ;マリンオプシヨンバッフアー 658:00010000 [0000D195] MAZBUF EQU $D195 ;マリンオプシヨンバッフアー 659:00010000 [0000D1B5] MAMBUF EQU $D1B5 ;マリンオプシヨンバッフアー 660:00010000 ;=============================== 661:00010000 [0000D300] SOUNRAM EQU $D300 ; SOUND USE !! 662:00010000 ;=Not clear======================= 663:00010000 ;YKFLAG EQU $D400 ; Yoko display flag ! 664:00010000 ;- - Next goto paramater - - - - 665:00010000 [0000D401] NXRMMD EQU $D401 666:00010000 [0000D402] NXDJNO EQU $D402 667:00010000 [0000D403] NXRMNO EQU $D403 668:00010000 [0000D404] NXRMPX EQU $D404 669:00010000 [0000D405] NXRMPY EQU $D405 670:00010000 ; EQU $D406 671:00010000 ; EQU $D407 672:00010000 ; EQU $D408 673:00010000 ; EQU $D409 674:00010000 ; EQU $D40A 675:00010000 ; EQU $D40B 676:00010000 ; EQU $D40C 677:00010000 ; EQU $D40D 678:00010000 ; EQU $D40E 679:00010000 ; EQU $D40F 680:00010000 ; EQU $D410 681:00010000 ; EQU $D411 682:00010000 ; EQU $D412 683:00010000 ; EQU $D413 684:00010000 ; EQU $D414 ZRAM.s 98-11-10 11:31:47......PAGE 0014 LINE# LOC CODE LINE 685:00010000 ;---------------------------- 686:00010000 [0000D415] ENFLCT EQU $D415 ;パワーセット用カウント！ 687:00010000 ;---------------------------- 688:00010000 [0000D416] DRPSBF EQU $D416 689:00010000 ;;; +4 690:00010000 ;---------------------- 691:00010000 [0000D45E] TOBIOF EQU $D45E ;プレイヤー飛び降り無し！ 692:00010000 [0000D45F] GMPTIM EQU $D45F ;地上マップキー待ち！ 693:00010000 [0000D460] EFLFLG2 EQU $D460 ;１匹でも敵おちた 694:00010000 [0000D461] SEINDX EQU $D461 ;たまご山インデックス 695:00010000 [0000D462] KEYSDON EQU $D462 ;カギ謎 S E 696:00010000 [0000D463] WPLMODE EQU $D463 ;PLMODE 前！ 697:00010000 [0000D464] NYOTIM EQU $D464 ;ニョロニョロしびれタイム！ 698:00010000 [0000D465] SEIRENFG2 EQU $D465 ;楽器 BGM NO. 699:00010000 [0000D466] KAMOSE EQU $D466 ;かもめ音！ 700:00010000 ;MAWTIM2 EQU $D467 ;マリン外まってるTIME(ごうけい） 701:00010000 [0000D468] MAWTIM EQU $D468 ;マリン外まってるTIME！ 702:00010000 ;MAWAIT EQU $D469 ;マリン外まってるフラグ！ 703:00010000 [0000D46A] LIFLG EQU $D46A ;ライン割り込みフラグ！ 704:00010000 [0000D46B] WDNJNPT EQU $D46B ;ダンジョンマップポイントひょうじ用！ 705:00010000 [0000D46C] BSFLFG2 EQU $D46C ;ボスやられフラグ(専用サウンドセット） 706:00010000 [0000D46D] PCTRAL EQU $D46D ;プレイヤー転送アドレス 左！ 707:00010000 ;;;;;; EQU $D46E 708:00010000 [0000D46F] PCTRAR EQU $D46F ;プレイヤー転送アドレス 右！ 709:00010000 ;;;;;; EQU $D470 710:00010000 ;- - - - - - - - - - 711:00010000 [0000D471] ENFLCT2 EQU $D471 ;木のみセット用カウント！ 712:00010000 [0000D472] KHIMICT EQU $D472 ;カンバンひみつ順番カウント！ 713:00010000 [0000D473] KHIMIFG EQU $D473 ; " フラグ！ 714:00010000 [0000D474] OKWARPF EQU $D474 ;オカリナワープフラグ！ 715:00010000 [0000D475] WARPFG2 EQU $D475 ;ワープ後回転落下フラグ！ 716:00010000 [0000D476] FUKUROF EQU $D476 ;ダンジョン１クリアー後ふくろうセットフラグ！ 717:00010000 [0000D477] IKADAFG EQU $D477 ; Ikada setted flag ! 718:00010000 [0000D478] BIRDFG EQU $D478 ; Boss bird seted flag ! 719:00010000 [0000D479] TESTMD EQU $D479 720:00010000 [0000D47A] POWRCT EQU $D47A ; Ken power up fail count 721:00010000 [0000D47B] STARTFG EQU $D47B ; First start flag (sound set NAME REGI) 722:00010000 [0000D47C] POWRFG EQU $D47C ; Ken power up flag ! 723:00010000 ;;MANBIKI EQU $D47D 724:00010000 [0000D47E] MANBIKIF EQU $D47E 725:00010000 [0000D47F] RMINCT EQU $D47F 726:00010000 ;---------------------- 727:00010000 [0000D480] DJMPBF EQU $D480 728:00010000 ;---------------------- 729:00010000 [0000D4C0] DJGOFG EQU $D4C0 730:00010000 ;---------------------- 731:00010000 [0000D500] MSBGBF EQU $D500 ; Mesege Before BG vram save buffer ! 732:00010000 ;---------------------- 733:00010000 [0000D580] ENOJSZ EQU $D580 ; Enemy OBJ hit size 734:00010000 [0000D5C0] ENKNSZ EQU $D5C0 ; Enemy ken cross size! 735:00010000 ;---------------------- 736:00010000 [0000D600] VRAMD EQU $D600 737:00010000 [0000D650] VRAMD2 EQU $D650 738:00010000 ;;;;; 739:00010000 ;---------------------- 740:00010000 ;;;;GRNDPTW EQU $D6F7 ; ダンジョン用地上マップ位置セーブ 741:00010000 [0000D6F8] ONOFTM EQU $D6F8 ; On off block chenge time ! ZRAM.s 98-11-10 11:31:47......PAGE 0015 LINE# LOC CODE LINE 742:00010000 [0000D6F9] ONBGFG EQU $D6F9 ; Player Foot BG on flag ! 743:00010000 [0000D6FA] ONOFBLF EQU $D6FA ; On off block set flag ! 744:00010000 [0000D6FB] ONOFFG EQU $D6FB ; On off block (which) flag ! 745:00010000 [0000D6FC] PAUSFG EQU $D6FC 746:00010000 [0000D6FD] LCDCB EQU $D6FD 747:00010000 [0000D6FE] BLNKFG EQU $D6FE 748:00010000 [0000D6FF] VRFLG EQU $D6FF 749:00010000 ;- - - - - - - - - - - - - 750:00010000 [0000D700] BGUNDT EQU $D700 751:00010000 [0000D7C0] TOURBF EQU $D7C0 752:00010000 ;=======Save data work=============== 753:00010000 [0000D800] SAVERM EQU $D800 754:00010000 [0000D800] GRRMSV EQU $D800 ; 755:00010000 [0000D900] DJRMSV EQU $D900 ; 756:00010000 ;;;;;+$100 757:00010000 ;-- Item table -- 758:00010000 [0000DB00] SAVEBF EQU $DB00 759:00010000 [0000DB00] ITEMB EQU $DB00 760:00010000 [0000DB01] ITEMA EQU $DB01 761:00010000 [0000DB02] ITEMF EQU $DB02 762:00010000 ;;;; $DB0B 763:00010000 [0000DB0C] SPITF EQU $DB0C 764:00010000 [0000DB0C] HIREF EQU $DB0C 765:00010000 [0000DB0D] KBINF EQU $DB0D 766:00010000 [0000DB0E] MEGAF EQU $DB0E 767:00010000 [0000DB0F] CLC20 EQU $DB0F 768:00010000 [0000DB10] MAWAIT EQU $DB10 ;マリン外まってるフラグ！ 769:00010000 ;LUCKY EQU $DB0E 770:00010000 ;MAMOR EQU $DB0F 771:00010000 ;- - - - - - 772:00010000 [0000DB11] GRKEY1 EQU $DB11 ; Groud key flag ! 773:00010000 [0000DB12] GRKEY2 EQU $DB12 774:00010000 [0000DB13] GRKEY3 EQU $DB13 775:00010000 [0000DB14] GRKEY4 EQU $DB14 776:00010000 [0000DB15] GRKEY5 EQU $DB15 777:00010000 ; 778:00010000 [0000DB16] DMAPF1 EQU $DB16 779:00010000 [0000DB17] KONPF1 EQU $DB17 780:00010000 [0000DB18] PENDF1 EQU $DB18 781:00010000 [0000DB19] BKEYF1 EQU $DB19 782:00010000 [0000DB1A] SKEYF1 EQU $DB1A 783:00010000 ; 784:00010000 [0000DB1B] DMAPF2 EQU $DB1B 785:00010000 [0000DB1C] KONPF2 EQU $DB1C 786:00010000 [0000DB1D] PENDF2 EQU $DB1D 787:00010000 [0000DB1E] BKEYF2 EQU $DB1E 788:00010000 [0000DB1F] SKEYF2 EQU $DB1F 789:00010000 ; 790:00010000 [0000DB20] DMAPF3 EQU $DB20 791:00010000 [0000DB21] KONPF3 EQU $DB21 792:00010000 [0000DB22] PENDF3 EQU $DB22 793:00010000 [0000DB23] BKEYF3 EQU $DB23 794:00010000 [0000DB24] SKEYF3 EQU $DB24 795:00010000 ; 796:00010000 [0000DB25] DMAPF4 EQU $DB25 797:00010000 [0000DB26] KONPF4 EQU $DB26 798:00010000 [0000DB27] PENDF4 EQU $DB27 ZRAM.s 98-11-10 11:31:47......PAGE 0016 LINE# LOC CODE LINE 799:00010000 [0000DB28] BKEYF4 EQU $DB28 800:00010000 [0000DB29] SKEYF4 EQU $DB29 801:00010000 ; 802:00010000 [0000DB2A] DMAPF5 EQU $DB2A 803:00010000 [0000DB2B] KONPF5 EQU $DB2B 804:00010000 [0000DB2C] PENDF5 EQU $DB2C 805:00010000 [0000DB2D] BKEYF5 EQU $DB2D 806:00010000 [0000DB2E] SKEYF5 EQU $DB2E 807:00010000 ; 808:00010000 [0000DB2F] DMAPF6 EQU $DB2F 809:00010000 [0000DB30] KONPF6 EQU $DB30 810:00010000 [0000DB31] PENDF6 EQU $DB31 811:00010000 [0000DB32] BKEYF6 EQU $DB32 812:00010000 [0000DB33] SKEYF6 EQU $DB33 813:00010000 ; 814:00010000 [0000DB34] DMAPF7 EQU $DB34 815:00010000 [0000DB35] KONPF7 EQU $DB35 816:00010000 [0000DB36] PENDF7 EQU $DB36 817:00010000 [0000DB37] BKEYF7 EQU $DB37 818:00010000 [0000DB38] SKEYF7 EQU $DB38 819:00010000 ; 820:00010000 [0000DB39] DMAPF8 EQU $DB39 821:00010000 [0000DB3A] KONPF8 EQU $DB3A 822:00010000 [0000DB3B] PENDF8 EQU $DB3B 823:00010000 [0000DB3C] BKEYF8 EQU $DB3C 824:00010000 [0000DB3D] SKEYF8 EQU $DB3D 825:00010000 ; 826:00010000 [0000DB3E] DMAPF9 EQU $DB3E 827:00010000 [0000DB3F] KONPF9 EQU $DB3F 828:00010000 [0000DB40] PENDF9 EQU $DB40 829:00010000 [0000DB41] BKEYF9 EQU $DB41 830:00010000 [0000DB42] SKEYF9 EQU $DB42 831:00010000 ; 832:00010000 [0000DB43] BULLEV EQU $DB43 833:00010000 [0000DB44] TATLEV EQU $DB44 834:00010000 [0000DB45] YAAACT EQU $DB45 835:00010000 [0000DB46] MANBIKI EQU $DB46 836:00010000 ;;;;;;;;;;;;;; EQU $DB46 837:00010000 [0000DB47] RODCT EQU $DB47 ;(未使用） 838:00010000 [0000DB47] MAWTIM2 EQU $DB47 ;マリン外まってるTIME(ごうけい） 839:00010000 [0000DB48] PAPA0FG EQU $DB48 840:00010000 [0000DB49] ONPUFG EQU $DB49 841:00010000 [0000DB4A] FUESLPT EQU $DB4A 842:00010000 [0000DB4B] KINOKFG EQU $DB4B 843:00010000 [0000DB4C] TUBOCT EQU $DB4C 844:00010000 [0000DB4D] BOMBCT EQU $DB4D 845:00010000 [0000DB4E] KENLEV EQU $DB4E 846:00010000 ; 847:00010000 [0000DB4F] NAME EQU $DB4F ; Player name 5 of Words 848:00010000 ;; EQU $DB50 849:00010000 ;; EQU $DB51 850:00010000 ;; EQU $DB52 851:00010000 ;; EQU $DB53 852:00010000 ;- - - - - - - - - - - - 853:00010000 ;;;;;;;;;;;;;;;;;;;Fury EQU $DB54 854:00010000 [0000DB54] GRNDPTW EQU $DB54 855:00010000 ;- - - - - - - - - - - - ZRAM.s 98-11-10 11:31:47......PAGE 0017 LINE# LOC CODE LINE 856:00010000 [0000DB55] URURIFG EQU $DB55 ; うるりらじいさん進行状況！ 857:00010000 [0000DB56] WANFLG EQU $DB56 ; ワンワン状態！ 858:00010000 [0000DB57] DETHCT EQU $DB57 ; コンチニュー回数！ Max 999 859:00010000 ;;;; +1 860:00010000 [0000DB59] URAFLG EQU $DB59 861:00010000 [0000DB5A] HARTCT EQU $DB5A 862:00010000 [0000DB5B] HARTMX EQU $DB5B 863:00010000 [0000DB5C] KAKERCT EQU $DB5C ; Hart kakera cach count ! 864:00010000 [0000DB5D] COINC1 EQU $DB5D 865:00010000 [0000DB5E] COINC2 EQU $DB5E 866:00010000 [0000DB5F] CONTBF EQU $DB5F ; Continue start pos. 5 bytes 867:00010000 [0000DB65] WARPSV EQU $DB65 ; Danjyon warp point set flag 868:00010000 ;; x9 869:00010000 ; 870:00010000 [0000DB6D] KEYECT EQU $DB6D ; Key of E colect count ! 871:00010000 [0000DB6E] MANBICT EQU $DB6E ; マンビキ カウント！ 872:00010000 ;;;CLC20 EQU $DB6E ; Ken power chip Max 20 873:00010000 ;------------------------------ 874:00010000 [0000DB6F] TAMA0PT EQU $DB6F ; 柱壊し玉座標！ 875:00010000 [0000DB70] TAMA0XP EQU $DB70 ; - 876:00010000 [0000DB71] TAMA0YP EQU $DB71 ; - 877:00010000 [0000DB72] HASRCNT EQU $DB72 ; 柱壊しカウント 878:00010000 [0000DB73] MARINFG EQU $DB73 ; マリンオプションフラグ！ 879:00010000 [0000DB74] MARINOF EQU $DB74 ; マリンオプションはなれフラグ！ 880:00010000 [0000DB75] TRYCYCT EQU $DB75 ; トレーシー薬売りカウント 881:00010000 [0000DB76] PWMAX EQU $DB76 ; 粉持てる数 882:00010000 [0000DB77] BOMAX EQU $DB77 ; バクダン持てる数 883:00010000 [0000DB78] YAMAX EQU $DB78 ; 矢持てる数 884:00010000 [0000DB79] OBAKEFG EQU $DB79 ; オバケオプションフラグ 885:00010000 [0000DB7A] OBAKEFG2 EQU $DB7A ; オバケオプションフラグ 2 886:00010000 [0000DB7B] NIWATFG EQU $DB7B ; ニワトリ オプションフラグ 887:00010000 [0000DB7C] L9NZFG EQU $DB7C ; レベル９謎内容！ 888:00010000 [0000DB7D] BUMENO EQU $DB7D ; ブーメランのひきかえ ITEM NO. 889:00010000 [0000DB7E] KDMSCTS EQU $DB7E ;子供メッセージカウント(セーブ用） 890:00010000 [0000DB7F] WARAFG EQU $DB7F ; わらしべアイテム表示なしフラグ！ 891:00010000 ;=============================================== 892:00010000 ; 893:00010000 ; 894:00010000 ; 895:00010000 ;- - - For name registration use work - - - 896:00010000 [0000DB80] NAMEBF EQU $DB80 897:00010000 ;;;;; 5 Words x 3 men 898:00010000 ;- - - - - - - - - - - - - 899:00010000 [0000DB8F] COINU1 EQU $DB8F 900:00010000 [0000DB90] COINU2 EQU $DB90 901:00010000 [0000DB91] COIND1 EQU $DB91 902:00010000 [0000DB92] COIND2 EQU $DB92 903:00010000 [0000DB93] HARTUP EQU $DB93 904:00010000 [0000DB94] HARTDW EQU $DB94 905:00010000 ;---------------------- 906:00010000 [0000DB95] GMMODE EQU $DB95 907:00010000 [0000DB96] ITMODE EQU $DB96 908:00010000 [0000DB97] BGPFG EQU $DB97 909:00010000 [0000DB98] OBP0FG EQU $DB98 910:00010000 [0000DB99] OBP1FG EQU $DB99 911:00010000 [0000DB9A] WNDYPS EQU $DB9A 912:00010000 ;GRNDPT EQU $DB9B ZRAM.s 98-11-10 11:31:47......PAGE 0018 LINE# LOC CODE LINE 913:00010000 [0000DB9C] WGRNDPT EQU $DB9C 914:00010000 [0000DB9D] WPLXPSL EQU $DB9D 915:00010000 [0000DB9E] WPLYPSL EQU $DB9E 916:00010000 [0000DB9F] WPLXPS2 EQU $DB9F 917:00010000 [0000DBA0] WPLYPS2 EQU $DBA0 918:00010000 ;PLCMKI EQU $DBA1 919:00010000 ;PLCHPT EQU $DBA2 920:00010000 [0000DBA3] ITEMPT EQU $DBA3 ; Window item waku point 921:00010000 [0000DBA4] ITEMMX EQU $DBA4 922:00010000 [0000DBA5] DJFLAG EQU $DBA5 923:00010000 ;;;MSGEFG EQU $DBA4 924:00010000 [0000DBA6] NMSLPT EQU $DBA6 925:00010000 [0000DBA7] NAMEON EQU $DBA7 926:00010000 [0000DBA8] NRNMPT EQU $DBA8 927:00010000 [0000DBA9] NRWDPT EQU $DBA9 928:00010000 [0000DBAA] MRWDPT EQU $DBAA ;;;;;;;;; BOMB 929:00010000 ;DJSVBF EQU $DBAB 930:00010000 [0000DBAC] INCNT EQU $DBAC 931:00010000 ;DNJNNO EQU $DBAD 932:00010000 [0000DBAE] DNJNPT EQU $DBAE 933:00010000 [0000DBAF] PBANK EQU $DBAF 934:00010000 [0000DBB0] DAMPFG EQU $DBB0 935:00010000 [0000DBB1] PLITXS EQU $DBB1 936:00010000 [0000DBB2] PLITYS EQU $DBB2 937:00010000 [0000DBB3] DALVFG EQU $DBB3 ;;;;;;;;; BOMB 938:00010000 [0000DBB4] GMAPPT EQU $DBB4 ; Ground map cursol point! 939:00010000 [0000DBB5] ENFLPT EQU $DBB5 ; Enemy fail buffer pointer ! 940:00010000 [0000DBB6] ENFLBF EQU $DBB6 ; Enemy fail buffer ! 941:00010000 ;;;; 16 of 942:00010000 [0000DBC6] GMOVFG EQU $DBC6 943:00010000 [0000DBC7] PLFLSH EQU $DBC7 944:00010000 [0000DBC8] NXRMPZ EQU $DBC8 945:00010000 [0000DBC9] TOUROU EQU $DBC9 946:00010000 ;TOURFG EQU $DBCA 947:00010000 [0000DBCB] ANAFLG EQU $DBCB 948:00010000 ;- - Danjyon item buffer -For display - - - 949:00010000 [0000DBCC] DMAPF EQU $DBCC 950:00010000 [0000DBCD] KONPF EQU $DBCD 951:00010000 [0000DBCE] PENDF EQU $DBCE 952:00010000 [0000DBCF] BKEYF EQU $DBCF 953:00010000 [0000DBD0] SKEYF EQU $DBD0 954:00010000 ;- - - - - - 955:00010000 [0000DBD1] SAVEFG EQU $DBD1 ; Non save Continue flag ! 956:00010000 ;- - - - - - 957:00010000 [0000DC00] DETHCTF EQU $DC00 958:00010000 [0000DC06] HARTCTF EQU $DC06 959:00010000 [0000DC09] HARTMXF EQU $DC09 960:00010000 ;;; EQU $DC0C 961:00010000 ;------------------------------- 962:00010000 [0000DCC0] BELTBF EQU $DCC0 ;Belt convear Chr. buffer 963:00010000 ;- - TEST SAVE DATA - - - 964:00010000 ;******************************** 965:00010000 ;* スペース キャラクタ * 966:00010000 ;******************************** 967:00010000 ; 968:00010000 [0000007F] SPACE EQU $7F ; クリア キャラクタ コード 969:00010000 [0000007E] BETA EQU $7E ; べた キャラクタ コード ZRAM.s 98-11-10 11:31:47......PAGE 0019 LINE# LOC CODE LINE 970:00010000 ; 971:00010000 ;******************************** 972:00010000 ;* スタック * 973:00010000 ;******************************** 974:00010000 ; 975:00010000 [0000DFFF] STACK EQU $DFFF 976:00010000 ; 977:00010000 ;******************************** 978:00010000 ;* サウンド * 979:00010000 ;******************************** 980:00010000 ; 981:00010000 ;SOUNDIT EQU $4000 982:00010000 ;SOUNDCL EQU $4003 983:00010000 ;SOUNDSB EQU $4006 984:00010000 ;; 985:00010000 ;; 986:00010000 ;;SOUND EQU $7FF0 987:00010000 ;-------------------------------- 988:00010000 [00004000] CHRDAT EQU $4000 989:00010000 [00005800] PLCHDT EQU $4000+$1800 990:00010000 [00008000] CHRRAM EQU $8000 991:00010000 ; 992:00010000 ;******************************** 993:00010000 ;* セーブ エリア * 994:00010000 ;******************************** 995:00010000 [0000A100] SAVEDT EQU $A000+$100 996:00010000 ; 997:00010000 [0000A100] SAVED1 EQU $A000+$100 ;セーブチェック用 1,2,3,4,5 998:00010000 [0000A105] SAVEB1 EQU SAVED1+$05 ;部屋情報 999:00010000 [0000A405] SAVEI1 EQU SAVEB1+$100+$200 ;使用アイテム用 1000:00010000 ; 1001:00010000 [0000A485] SAVED2 EQU SAVEI1+$7F+$01 1002:00010000 [0000A48A] SAVEB2 EQU SAVED2+$05 1003:00010000 [0000A78A] SAVEI2 EQU SAVEB2+$100+$200 1004:00010000 ; 1005:00010000 [0000A80A] SAVED3 EQU SAVEI2+$7F+$01 1006:00010000 [0000A80F] SAVEB3 EQU SAVED3+$05 1007:00010000 [0000AB0F] SAVEI3 EQU SAVEB3+$100+$200 1008:00010000 ; 1009:00010000 ;;;; +7 1010:00010000 ; 1011:00010000 ; ORG $A000 1012:00010000 ; 1013:00010000 ;SAVE_CK DS $10 1014:00010000 ;SAVE_AREA DS $100 1015:00010000 ;SAVE_SUM DS $02 1016:00010000 ;- - - - - - - 1017:00010000 [00000006] DJROOM EQU $06 ; Danjyon room no. 0xx or 1xx check no. 1018:00010000 [0000000A] DJMAX EQU $0A ; Dundeon : Minka 1019:00010000 [0000001A] DJROOM2 EQU $1A ; Room No. 0xx 1020:00010000 ;=============================================== 58:00010000 59:00010000 ;;;;;;;;;---sub--------------------------------------- 60:00010000 ;;;;;;;; EXTERN DATA_MOV,ENEMY,EXSTRA,RAMCLR,RAMCL2,BGDTST,GMRESET 61:00010000 ;;;;;;;; EXTERN ENDTST,COINIT,HARTIT,ITEMDP,RNDSUB,WINDOW,ITEMDP2,MSGCHK 62:00010000 ;;;;;;;; EXTERN ENIDSHL,OBJBG,ENCAPS,FDIN,FDOUT,NXGOTO,ENEMYL,SVOPEN,GKCHRV 63:00010000 ;;;;;;;; EXTERN COHTITL,ITEMDPL,RAMCL3,BGBKST,SOUNDCLR,DJITRV,ENOMST,EN2CST zti.s 98-11-10 11:31:47......PAGE 0020 LINE# LOC CODE LINE 64:00010000 ;;;;;;;; EXTERN CURSDST,CURSDSS,BGMSET,MSCHNOR,MSCHN2R 65:00010000 ;;;;;;;; EXTERN WANWANCK,HIMITSU,RAMCLR4 ;,TOURCK 66:00010000 ;;;;;;;; EXTERN ENEMYL1,TBGCST,PLCSET 67:00010000 ;;;;;;;; EXTERN DJTKCK 68:00010000 ;;;;;;;;;- -lavel - 69:00010000 ;;;;;;;; EXTERN VRMCL,VRMBT,BKCH2,BKCH3,WINDBGS,RBGST,BOMBR,BUMER,KTOBJ,GRBGCR 70:00010000 ;;;;;;;; EXTERN BGUNCH,ECACH,PYAAA,EMOVE,EFAIL,PSLBGS,GPLAY,GVCHG,GOVBG 71:00010000 ;;;;;;;; EXTERN PSLBG2,NSLBGS,NMREG,NMCLR,NCLBGS,PSLCT,GMAPBGS,VRMB2 72:00010000 ;;;;;;;; EXTERN PINDR2,DJBST,GRBST,GMBST,BLVRDS,GMAPCL,BNKTR,NMCPY,SPTST 73:00010000 ;;;;;;;; EXTERN BKCHG,TLCHG,ODCHG,GPMAIN,NCPBGS,GRCST,TSVBG 74:00010000 ;;;;;;;; EXTERN SKY,BKY 75:00010000 ;- - - - - - - - - - - - - - - - - - - 76:00010000 KANJI 77:00010000 isdmg 78:00010000 LIST 79:00010000 ORG $4000 80:00014000 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 81:00014000 ;% 強制セーブ % 82:00014000 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 83:00014000 TSAVESB 84:00014000 FA96DB LD A,(ITMODE) 85:00014003 C7 RST 0 86:00014004 1040 DW TSV0800 87:00014006 4140 DW TSV1000 88:00014008 4D40 DW TSV2000 89:0001400A 6540 DW TSV2800 90:0001400C 7340 DW TSV3000 91:0001400E C456 DW TSV4000 92:00014010 ;===================================== 93:00014010 TSV0800 94:00014010 CD0000 CALL PLCSET 95:00014013 CD0000 CALL ENEMYL1 96:00014016 ; 97:00014016 CD0000 CALL FDIN 98:00014019 ; 99:00014019 FA6BC1 LD A,(SBHR) 100:0001401C FE04 CP $04 101:0001401E 2020 JR NZ,TSV0810 102:00014020 ; 103:00014020 3E03 LD A,$03 104:00014022 E0A9 LD (SLEVEL),A 105:00014024 3E30 LD A,$30 106:00014026 E0AA LD (SLEVEL+1),A 107:00014028 ; 108:00014028 CD4544 CALL ITMINC 109:0001402B ; 110:0001402B AF XOR A 111:0001402C EABFC1 LD (SCXAD),A 112:0001402F EA4FC1 LD (WNDFLG),A 113:00014032 EAB8C1 LD (FUETM),A 114:00014035 EAB9C1 LD (FUETM2),A 115:00014038 EAB5C1 LD (FUEFLG),A 116:0001403B ; 117:0001403B 3E00 LD A,VRMB2 ;CL 118:0001403D ;; LD A,VRMCL 119:0001403D EAFED6 LD (BLNKFG),A 120:00014040 TSV0810 zti.s 98-11-10 11:31:47......PAGE 0021 LINE# LOC CODE LINE 121:00014040 C9 RET 122:00014041 ;===================================== 123:00014041 TSV1000 124:00014041 3E00 LD A,GVCHG 125:00014043 EAFED6 LD (BLNKFG),A 126:00014046 ; 127:00014046 AF XOR A 128:00014047 EA3FC1 LD (OVSLCT),A 129:0001404A ; 130:0001404A C34544 JP ITMINC 131:0001404D ;===================================== 132:0001404D TSV2000 133:0001404D ;; LD A,SPTST 134:0001404D ;; LD (BLNKFG),A 135:0001404D 3E00 LD A,TSVBG 136:0001404F EAFFD6 LD (VRFLG),A 137:00014052 ; 138:00014052 3EFF LD A,$FF 139:00014054 EA9ADB LD (WNDYPS),A 140:00014057 ; 141:00014057 AF XOR A 142:00014058 E096 LD (SCCH),A 143:0001405A E097 LD (SCCV),A 144:0001405C ; 145:0001405C EA6BC1 LD (SBHR),A 146:0001405F EA6CC1 LD (SBCNT),A 147:00014062 ; 148:00014062 C34544 JP ITMINC 149:00014065 ;===================================== 150:00014065 TSV2800 151:00014065 CD0000 CALL FDOUT 152:00014068 ; 153:00014068 FA6BC1 LD A,(SBHR) 154:0001406B FE04 CP $04 155:0001406D 2003 JR NZ,TSV2810 156:0001406F ; 157:0001406F CD4544 CALL ITMINC 158:00014072 TSV2810 159:00014072 C9 RET 160:00014073 ;===================================== 161:00014073 TSV3000 162:00014073 CDEB40 CALL TSSLST ; Slect obj set 163:00014076 ; 164:00014076 F0CC LD A,(KEYA2) 165:00014078 E6B0 AND %10110000 166:0001407A 286C JR Z,TSV3010 167:0001407C ; 168:0001407C 3E13 LD A,$13 169:0001407E E0F2 LD (SOUND1),A ;(S) 170:00014080 ; 171:00014080 FA3FC1 LD A,(OVSLCT) 172:00014083 FE01 CP $01 173:00014085 283B JR Z,TSV3008 ; Continue ? 174:00014087 ; ; yes ! 175:00014087 ;; CP $00 176:00014087 ;; JR Z,TSV3002 ; With Save ? 177:00014087 ; ; Yes ! zti.s 98-11-10 11:31:47......PAGE 0022 LINE# LOC CODE LINE 178:00014087 ;;; LD (SAVEFG),A ; Not continue flag ! 179:00014087 CD4544 CALL ITMINC 180:0001408A ; 181:0001408A AF XOR A 182:0001408B EA6BC1 LD (SBHR),A 183:0001408E EA6CC1 LD (SBCNT),A 184:00014091 ; 185:00014091 FAA5DB LD A,(DJFLAG) 186:00014094 A7 AND A 187:00014095 2807 JR Z,SSV0900 188:00014097 ; 189:00014097 AF XOR A 190:00014098 EA0AC5 LD (SHOPFG),A ; Shop BG initial !! 191:0001409B EA16C1 LD (ZZZFLG),A ;タリン ｚｚｚ セットフラグ 192:0001409E ; 193:0001409E ; LD A,(ONOFBLF) 194:0001409E ; AND A 195:0001409E ; JR Z,SSV0900 ; On off block stage ? 196:0001409E ;; ; yes ! 197:0001409E ; LD A,$05 198:0001409E ; LD (ONOFTM),A ; On off block revise set ! 199:0001409E ;; 200:0001409E ; LD A,(SWCHTM) 201:0001409E ; AND A 202:0001409E ; JR Z,SSV0900 ; Swich on ? 203:0001409E ;; ; Yes ! 204:0001409E ; LD A,$03 ;F2 205:0001409E ; LD (CHTRF2),A ;TOURFG),A ; Swich down chr TR. 206:0001409E SSV0900 207:0001409E C9 RET 208:0001409F ;; JR TSV3003 209:0001409F ; 210:0001409F ;;TSV3002 211:0001409F ;; CALL DTSAVE 212:0001409F TSV3003 213:0001409F AF XOR A 214:000140A0 EA98DB LD (OBP0FG),A 215:000140A3 EA99DB LD (OBP1FG),A 216:000140A6 E048 LD (OBP0),A 217:000140A8 E049 LD (OBP1),A 218:000140AA EA97DB LD (BGPFG),A 219:000140AD E047 LD (BGP),A 220:000140AF ; 221:000140AF F098 LD A,(PLXPSL) 222:000140B1 EA9DDB LD (WPLXPSL),A 223:000140B4 F099 LD A,(PLYPSL) 224:000140B6 EA9EDB LD (WPLYPSL),A 225:000140B9 ; 226:000140B9 CDF151 CALL GMSTART 227:000140BC ; 228:000140BC 3E80 LD A,$80 229:000140BE EAC7DB LD (PLFLSH),A 230:000140C1 C9 RET 231:000140C2 ;====================================== 232:000140C2 TSV3008 233:000140C2 CD0000 CALL SOUNDCLR ;(S) 234:000140C5 ; zti.s 98-11-10 11:31:47......PAGE 0023 LINE# LOC CODE LINE 235:000140C5 CD5B5C CALL DTSAVE 236:000140C8 ; 237:000140C8 CD0000 CALL RAMCLR4 238:000140CB CD0000 CALL GMRESET ; Game reset ! 239:000140CE ;======================================== 240:000140CE DSPINT 241:000140CE 3EC7 LD A,%11000111 ; ＯＢＪ ＢＧ ＯＮ ＬＣＤＣ スタート 242:000140D0 E040 LD (LCDC),A 243:000140D2 EAFDD6 LD (LCDCB),A 244:000140D5 3E07 LD A,$07 245:000140D7 E04B LD (WDX),A 246:000140D9 3E80 LD A,$80 247:000140DB EA9ADB LD (WNDYPS),A ; Window y pos set ! 248:000140DE E04A LD (WDY),A 249:000140E0 3E07 LD A,$07 250:000140E2 E0A9 LD (SLEVEL),A ; sound level 1 MAX set ! 251:000140E4 3E70 LD A,$70 252:000140E6 E0AA LD (SLEVEL2),A ; sound level 2 MAX set ! 253:000140E8 TSV3010 254:000140E8 C9 RET 255:000140E9 ;========================================= 256:000140E9 TSSLYS 257:000140E9 4858 DB $48,$58 258:000140EB TSSLST 259:000140EB 213FC1 LD HL,OVSLCT 260:000140EE ; 261:000140EE CD0000 CALL CURSDST ;(S) 262:000140F1 ; 263:000140F1 F0CC LD A,(KEYA2) 264:000140F3 E64C AND %01001100 265:000140F5 2805 JR Z,TSSL00 266:000140F7 ; 267:000140F7 7E LD A,(HL) 268:000140F8 3C INC A 269:000140F9 E601 AND $01 270:000140FB 77 LD (HL),A 271:000140FC TSSL00 272:000140FC ;======== TEST ========= 273:000140FC ; LD A,(FRCNT) 274:000140FC ; AND $07 275:000140FC ; JR NZ,TSSL111 276:000140FC ;; 277:000140FC ; LD A,(LCDCB) 278:000140FC ; XOR %00001000 279:000140FC ; LD (LCDCB),A 280:000140FC ;TSSL111 281:000140FC ;; 282:000140FC ;; 283:000140FC ; RET 284:000140FC ; 285:000140FC 5E LD E,(HL) 286:000140FD 1600 LD D,$00 287:000140FF ; 288:000140FF 21E940 LD HL,TSSLYS 289:00014102 19 ADD HL,DE 290:00014103 7E LD A,(HL) 291:00014104 ; zti.s 98-11-10 11:31:47......PAGE 0024 LINE# LOC CODE LINE 292:00014104 2118C0 LD HL,OAM+$18 293:00014107 22 LD (HLI),A 294:00014108 3E24 LD A,$24 295:0001410A 22 LD (HLI),A 296:0001410B 3EBE LD A,$BE 297:0001410D 22 LD (HLI),A 298:0001410E 3600 LD (HL),$00 299:00014110 C9 RET 300:00014111 ;========================================== 301:00014111 ODEMOSUB 302:00014111 ; 303:00014111 MA0010 304:00014111 F0B7 LD A,(PLTIM0) 305:00014113 A7 AND A 306:00014114 C27D41 JP NZ,OD0010 307:00014117 ; 308:00014117 ; LD A,(LY) 309:00014117 ; CP $60 310:00014117 ; JR C,MA0010 311:00014117 ; 312:00014117 1E70 LD E,$70 313:00014119 MA00111 314:00014119 3E00 LD A,$00 315:0001411B E047 LD (BGP),A 316:0001411D ; 317:0001411D 0000000000000000 DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 318:0001412C 0000000000000000 DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 319:0001413B ; 320:0001413B 1D DEC E 321:0001413C 20DB JR NZ,MA00111 322:0001413E ; 323:0001413E 1E30 LD E,$30 324:00014140 MA00112 325:00014140 3E40 LD A,$40 326:00014142 E047 LD (BGP),A 327:00014144 1D DEC E 328:00014145 20F9 JR NZ,MA00112 329:00014147 ; 330:00014147 1E30 LD E,$30 331:00014149 MA00113 332:00014149 3E80 LD A,$80 333:0001414B E047 LD (BGP),A 334:0001414D 1D DEC E 335:0001414E 20F9 JR NZ,MA00113 336:00014150 ; 337:00014150 1EFF LD E,$FF 338:00014152 MA00114 339:00014152 3EC0 LD A,$C0 340:00014154 E047 LD (BGP),A 341:00014156 ; 342:00014156 0000000000000000 DB 0,0,0,0,0,0,0,0,0 343:0001415F 0000000000000000 DB 0,0,0,0,0,0,0,0,0 344:00014168 ; 345:00014168 1D DEC E 346:00014169 20E7 JR NZ,MA00114 347:0001416B ; 348:0001416B 1E30 LD E,$30 zti.s 98-11-10 11:31:47......PAGE 0025 LINE# LOC CODE LINE 349:0001416D MA00115 350:0001416D 3E80 LD A,$80 351:0001416F E047 LD (BGP),A 352:00014171 1D DEC E 353:00014172 20F9 JR NZ,MA00115 354:00014174 ; 355:00014174 ; 356:00014174 1E30 LD E,$30 357:00014176 MA00116 358:00014176 3E40 LD A,$40 359:00014178 E047 LD (BGP),A 360:0001417A 1D DEC E 361:0001417B 20F9 JR NZ,MA00116 362:0001417D ; 363:0001417D OD0010 364:0001417D AF XOR A 365:0001417E EA97DB LD (BGPFG),A 366:00014181 E047 LD (BGP),A 367:00014183 C9 RET 368:00014184 ;========================================= 369:00014184 ;= Game over sub = 370:00014184 ;========================================= 371:00014184 PLOVERS 372:00014184 F09C LD A,(PLSTAT) 373:00014186 C7 RST 0 374:00014187 C541 DW POV1000 375:00014189 4942 DW POV1800 376:0001418B 5342 DW POV1A00 377:0001418D 7F42 DW POV2000 378:0001418F 8E42 DW POV3000 379:00014191 ;===================================== 380:00014191 PLOVCD 381:00014191 6A6A6A6A DB $6A,$6A,$6A,$6A 382:00014195 6A6A6A6A DB $6A,$6A,$6A,$6A 383:00014199 6A6A0000 DB $6A,$6A,$00,$00 384:0001419D 000A0406 DB $00,$0A,$04,$06 385:000141A1 000A0406 DB $00,$0A,$04,$06 386:000141A5 000A0406 DB $00,$0A,$04,$06 387:000141A9 ;; DB $00,$0A,$04,$06 388:000141A9 ;; DB $00,$0A,$04,$06 389:000141A9 ;; DB $00,$0A,$04,$06 390:000141A9 ;; DB $00,$0A,$04,$06 391:000141A9 PLOVCL 392:000141A9 1C DB $1C 393:000141AA 1C DB $1C 394:000141AB 1C DB $1C 395:000141AC 1C DB $1C 396:000141AD 1C DB $1C 397:000141AE 1C DB $1C 398:000141AF 1C DB $1C 399:000141B0 1C DB $1C 400:000141B1 1C DB $1C 401:000141B2 1C DB $1C 402:000141B3 1B DB $1B 403:000141B4 1A DB $1A 404:000141B5 19 DB $19 405:000141B6 18 DB $18 zti.s 98-11-10 11:31:47......PAGE 0026 LINE# LOC CODE LINE 406:000141B7 17 DB $17 407:000141B8 16 DB $16 408:000141B9 15 DB $15 409:000141BA 14 DB $14 410:000141BB 13 DB $13 411:000141BC 12 DB $12 412:000141BD 11 DB $11 413:000141BE 10 DB $10 414:000141BF 10 DB $10 415:000141C0 10 DB $10 416:000141C1 10 DB $10 417:000141C2 10 DB $10 418:000141C3 10 DB $10 419:000141C4 10 DB $10 420:000141C5 ; 421:000141C5 ; DB %00000000 422:000141C5 ; DB %00000000 423:000141C5 ; DB %00000000 424:000141C5 ; DB %00000000 425:000141C5 ; DB %01010000 426:000141C5 ; DB %10100100 427:000141C5 ; DB %11100100 428:000141C5 ; DB %11100100 429:000141C5 ; DB %11100100 430:000141C5 ; DB %11100100 431:000141C5 ; DB %11100100 432:000141C5 ; DB %11100100 433:000141C5 ; 434:000141C5 POV1000 435:000141C5 AF XOR A 436:000141C6 EA55C1 LD (TILTXD),A 437:000141C9 EA56C1 LD (TILTYD),A 438:000141CC ; 439:000141CC F0B7 LD A,(PLTIM0) 440:000141CE A7 AND A 441:000141CF 2048 JR NZ,POV1010 442:000141D1 ; 443:000141D1 3E10 LD A,$10 444:000141D3 E0B7 LD (PLTIM0),A 445:000141D5 ; 446:000141D5 3E01 LD A,$01 447:000141D7 E09C LD (PLSTAT),A 448:000141D9 ; 449:000141D9 3E00 LD A,VRMB2 ;CL 450:000141DB EAFED6 LD (BLNKFG),A 451:000141DE ; 452:000141DE 3EFF LD A,$FF 453:000141E0 E09D LD (PLCHPT),A 454:000141E2 ; 455:000141E2 FA57DB LD A,(DETHCT) 456:000141E5 C601 ADD A,$01 457:000141E7 27 DAA 458:000141E8 EA57DB LD (DETHCT),A 459:000141EB ; 460:000141EB FA58DB LD A,(DETHCT+1) 461:000141EE CE00 ADC A,$00 462:000141F0 27 DAA zti.s 98-11-10 11:31:47......PAGE 0027 LINE# LOC CODE LINE 463:000141F1 EA58DB LD (DETHCT+1),A 464:000141F4 FE10 CP $10 465:000141F6 380A JR C,POV1008 466:000141F8 ; 467:000141F8 3E99 LD A,$99 468:000141FA EA57DB LD (DETHCT),A 469:000141FD 3E09 LD A,$09 470:000141FF EA58DB LD (DETHCT+1),A 471:00014202 POV1008 472:00014202 AF XOR A 473:00014203 EABFC1 LD (SCXAD),A 474:00014206 EA15D4 LD (ENFLCT),A 475:00014209 EA7CD4 LD (POWRFG),A 476:0001420C EA7AD4 LD (POWRCT),A 477:0001420F ;;; XOR A 478:0001420F EACBC3 LD (FADEON),A 479:00014212 EACCC3 LD (FADECT),A 480:00014215 EACDC3 LD (FADECT2),A 481:00014218 ; 482:00014218 C9 RET 483:00014219 POV1010 484:00014219 1F RRA 485:0001421A 1F RRA 486:0001421B 1F RRA 487:0001421C E63F AND %00111111 488:0001421E 5F LD E,A 489:0001421F 1600 LD D,$00 490:00014221 219141 LD HL,PLOVCD 491:00014224 19 ADD HL,DE 492:00014225 7E LD A,(HL) 493:00014226 E09D LD (PLCHPT),A 494:00014228 ; 495:00014228 F0B7 LD A,(PLTIM0) 496:0001422A 1F RRA 497:0001422B 1F RRA 498:0001422C 1F RRA 499:0001422D ;; RRA 500:0001422D ;; RRA 501:0001422D E61F AND $1F 502:0001422F 5F LD E,A 503:00014230 21A941 LD HL,PLOVCL 504:00014233 19 ADD HL,DE 505:00014234 7E LD A,(HL) 506:00014235 EACDC3 LD (FADECT2),A 507:00014238 ;;;; LD (FADECT),A 508:00014238 ;;;; LD (BGPFG),A 509:00014238 ;;;; LD (OBP1FG),A 510:00014238 ; 511:00014238 3E01 LD A,$01 512:0001423A EACBC3 LD (FADEON),A 513:0001423D ; 514:0001423D 3E1C LD A,$01C 515:0001423F EA98DB LD (OBP0FG),A 516:00014242 FA97DB LD A,(BGPFG) 517:00014245 EA99DB LD (OBP1FG),A 518:00014248 C9 RET 519:00014249 ;===================================== zti.s 98-11-10 11:31:47......PAGE 0028 LINE# LOC CODE LINE 520:00014249 POV1800 521:00014249 3E00 LD A,GVCHG 522:0001424B EAFED6 LD (BLNKFG),A 523:0001424E ; 524:0001424E 219CFF LD HL,PLSTAT 525:00014251 34 INC (HL) 526:00014252 C9 RET 527:00014253 ; 528:00014253 ;===================================== 529:00014253 POV1A00 530:00014253 3EE4 LD A,$0E4 531:00014255 EA97DB LD (BGPFG),A 532:00014258 ; 533:00014258 3E00 LD A,GOVBG 534:0001425A EAFFD6 LD (VRFLG),A 535:0001425D ; 536:0001425D 3EFF LD A,$FF 537:0001425F EA9ADB LD (WNDYPS),A 538:00014262 ; 539:00014262 AF XOR A 540:00014263 E096 LD (SCCH),A 541:00014265 E097 LD (SCCV),A 542:00014267 ; 543:00014267 219CFF LD HL,PLSTAT 544:0001426A 34 INC (HL) 545:0001426B ; 546:0001426B CD0000 CALL DJITRV 547:0001426E C9 RET 548:0001426F ;===================================== 549:0001426F PIYOYD 550:0001426F 00FEFDFE DB $00,$FE,$FD,$FE 551:00014273 00020302 DB $00,$02,$03,$02 552:00014277 PIYOXD 553:00014277 0004080C DB $00,$04,$08,$0C 554:0001427B 100C0804 DB $10,$0C,$08,$04 555:0001427F POV2000 556:0001427F F0B7 LD A,(PLTIM0) 557:00014281 A7 AND A 558:00014282 2009 JR NZ,POV2010 559:00014284 ; 560:00014284 219CFF LD HL,PLSTAT 561:00014287 34 INC (HL) 562:00014288 ; 563:00014288 ;; LD A,$03 564:00014288 ;; LD ($D368),A ;(S) 565:00014288 ; CALL RNDSUB 566:00014288 ; LD E,$03 567:00014288 ; AND $01 568:00014288 ; JR Z,POV2008 569:00014288 ; LD E,$05 570:00014288 ;POV2008 571:00014288 3E03 LD A,$03 ;E 572:0001428A EA68D3 LD (SOUND4),A ;(S) 573:0001428D POV2010 574:0001428D ;PIYOST 575:0001428D ; LD HL,OAM+$10 576:0001428D ;; zti.s 98-11-10 11:31:47......PAGE 0029 LINE# LOC CODE LINE 577:0001428D ; LD A,(FRCNT) 578:0001428D ; RRA 579:0001428D ; RRA 580:0001428D ; RRA 581:0001428D ; PUSH AF 582:0001428D ; AND %00000111 583:0001428D ;; 584:0001428D ; CALL PIYOSB 585:0001428D ;; 586:0001428D ; POP AF 587:0001428D ; ADD A,$04 588:0001428D ; AND %00000111 589:0001428D ;PIYOSB 590:0001428D ; PUSH HL 591:0001428D ;; 592:0001428D ; LD E,A 593:0001428D ; LD D,$00 594:0001428D ; LD HL,PIYOYD 595:0001428D ; ADD HL,DE 596:0001428D ; LD B,(HL) 597:0001428D ; LD HL,PIYOXD 598:0001428D ; ADD HL,DE 599:0001428D ; LD C,(HL) 600:0001428D ;; 601:0001428D ; POP HL 602:0001428D ;; 603:0001428D ; LD A,(PLYPSL) 604:0001428D ; ADD A,B 605:0001428D ; ADD A,$F6 606:0001428D ; LD (HLI),A 607:0001428D ; LD A,(PLXPSL) 608:0001428D ; ADD A,C 609:0001428D ; ADD A,$FC 610:0001428D ; LD (HLI),A 611:0001428D ;; 612:0001428D ; LD (HL),$24 613:0001428D ; INC HL 614:0001428D ; LD (HL),$00 615:0001428D ; INC HL 616:0001428D C9 RET 617:0001428E ;===================================== 618:0001428E POV3000 619:0001428E ;; CALL PIYOST 620:0001428E ; 621:0001428E CDE642 CALL OVSLST ; Slect obj set 622:00014291 ; 623:00014291 F0CC LD A,(KEYA2) 624:00014293 E6B0 AND %10110000 625:00014295 284B JR Z,POV3010 626:00014297 ; 627:00014297 FA3FC1 LD A,(OVSLCT) 628:0001429A FE01 CP $01 629:0001429C 283E JR Z,POV3008 ; Continue ? 630:0001429E ; ; yes ! 631:0001429E FE00 CP $00 632:000142A0 2805 JR Z,POV3002 ; With Save ? 633:000142A2 ; ; Yes ! zti.s 98-11-10 11:31:47......PAGE 0030 LINE# LOC CODE LINE 634:000142A2 EAD1DB LD (SAVEFG),A ; Not continue flag ! 635:000142A5 1803 JR POV3003 636:000142A7 ; 637:000142A7 POV3002 638:000142A7 ;; LD A,$01 639:000142A7 ;; CALL PBSET 640:000142A7 CD5B5C CALL DTSAVE 641:000142AA POV3003 642:000142AA AF XOR A 643:000142AB ; 644:000142AB 2180C2 LD HL,ENMODE 645:000142AE 1E10 LD E,ENNO 646:000142B0 POV3005 647:000142B0 22 LD (HLI),A 648:000142B1 1D DEC E 649:000142B2 20FC JR NZ,POV3005 650:000142B4 ; 651:000142B4 EA98DB LD (OBP0FG),A 652:000142B7 EA99DB LD (OBP1FG),A 653:000142BA E048 LD (OBP0),A 654:000142BC E049 LD (OBP1),A 655:000142BE EA97DB LD (BGPFG),A 656:000142C1 E047 LD (BGP),A 657:000142C3 EAFBD6 LD (ONOFFG),A 658:000142C6 EA75D4 LD (WARPFG2),A 659:000142C9 ; 660:000142C9 F098 LD A,(PLXPSL) 661:000142CB EA9DDB LD (WPLXPSL),A 662:000142CE F099 LD A,(PLYPSL) 663:000142D0 EA9EDB LD (WPLYPSL),A 664:000142D3 ; 665:000142D3 ;; LD A,$01 666:000142D3 ;; CALL PBSET 667:000142D3 CDF151 CALL GMSTART 668:000142D6 ; 669:000142D6 ; LD A,GPLAY 670:000142D6 ; LD (GMMODE),A 671:000142D6 ; XOR A 672:000142D6 ; LD (ITMODE),A 673:000142D6 ;; 674:000142D6 ; LD A,$17 675:000142D6 ; LD (HARTCT),A 676:000142D6 ;; 677:000142D6 ; XOR A 678:000142D6 ; LD (PLSTAT),A 679:000142D6 ; LD (HARTDW),A 680:000142D6 ; LD (COINUP),A 681:000142D6 ; LD (COINDW),A 682:000142D6 ; INC A 683:000142D6 ; LD (HARTUP),A ; Becouse Vram write ! 684:000142D6 ; 685:000142D6 ;;; CALL OTDRST 686:000142D6 ; 687:000142D6 3E80 LD A,$80 688:000142D8 EAC7DB LD (PLFLSH),A 689:000142DB C9 RET 690:000142DC ;====================================== zti.s 98-11-10 11:31:47......PAGE 0031 LINE# LOC CODE LINE 691:000142DC POV3008 692:000142DC ;; LD A,$01 693:000142DC ;; CALL PBSET 694:000142DC CD5B5C CALL DTSAVE 695:000142DF ; 696:000142DF CD0000 CALL GMRESET ; Game reset ! 697:000142E2 POV3010 698:000142E2 C9 RET 699:000142E3 ;========================================= 700:000142E3 OBSLYS 701:000142E3 506070 DB $50,$60,$70 702:000142E6 ;- - - - - - - - - - - - - - - - - - - - 703:000142E6 OVSLST 704:000142E6 213FC1 LD HL,OVSLCT 705:000142E9 ; 706:000142E9 CD0000 CALL CURSDST ;(S) 707:000142EC ; 708:000142EC F0CC LD A,(KEYA2) 709:000142EE E648 AND %01001000 710:000142F0 2808 JR Z,OVSL00 711:000142F2 ; 712:000142F2 7E LD A,(HL) 713:000142F3 3C INC A 714:000142F4 FE03 CP $03 715:000142F6 2001 JR NZ,OVSLF0 716:000142F8 AF XOR A 717:000142F9 OVSLF0 718:000142F9 77 LD (HL),A 719:000142FA OVSL00 720:000142FA F0CC LD A,(KEYA2) 721:000142FC E604 AND %00000100 722:000142FE 2809 JR Z,OVSL20 723:00014300 ; 724:00014300 7E LD A,(HL) 725:00014301 3D DEC A 726:00014302 FEFF CP $FF 727:00014304 2002 JR NZ,OVSL10 728:00014306 3E02 LD A,$02 729:00014308 OVSL10 730:00014308 77 LD (HL),A 731:00014309 OVSL20 732:00014309 5E LD E,(HL) 733:0001430A 1600 LD D,$00 734:0001430C ; 735:0001430C 21E342 LD HL,OBSLYS 736:0001430F 19 ADD HL,DE 737:00014310 7E LD A,(HL) 738:00014311 ; 739:00014311 2118C0 LD HL,OAM+$18 740:00014314 22 LD (HLI),A 741:00014315 3E1C LD A,$1C 742:00014317 22 LD (HLI),A 743:00014318 3EBE LD A,$BE 744:0001431A 22 LD (HLI),A 745:0001431B 3600 LD (HL),$00 746:0001431D C9 RET 747:0001431E ;======================================== zti.s 98-11-10 11:31:47......PAGE 0032 LINE# LOC CODE LINE 748:0001431E ;======================================== 749:0001431E ;**************************************** 750:0001431E ;* GAME Play initial * 751:0001431E ;**************************************** 752:0001431E GPSUB 753:0001431E FA96DB LD A,(ITMODE) 754:00014321 C7 RST 0 755:00014322 3F43 DW PLITF0 756:00014324 B343 DW PLIT00 757:00014326 GPMAD ;;DW PLIT06 758:00014326 3444 DW PLIT08 759:00014328 4A44 DW PLIT10 760:0001432A 6844 DW PLIT20 761:0001432C 6F44 DW PLIT30 762:0001432E 7644 DW PLIT40 763:00014330 0000 DW GPMAIN 764:00014332 [00000002] GPM EQU $2 ;Return From Map display 1! 765:00014332 [00000007] GPMA EQU $7 ;8 ;Return From Map display 2! 766:00014332 ;=========================================== 767:00014332 DAMPFGD ; ﾀﾞﾝｼﾞｮﾝ ﾏｯﾌﾟ ｺｳｾｲ ﾃﾞｰﾀ 768:00014332 00 DB %00000000 ;0 769:00014333 00 DB %00000000 ;1 770:00014334 11 DB %00010001 ;2 771:00014335 00 DB %00000000 ;3 772:00014336 00 DB %00000000 ;4 773:00014337 00 DB %00000000 ;5 774:00014338 30 DB %00110000 ;6 775:00014339 00 DB %00000000 ;7 776:0001433A 00 DB %00000000 777:0001433B 00 DB %00000000 778:0001433C 00 DB %00000000 779:0001433D 00 DB %00000000 780:0001433E 00 DB %00000000 781:0001433F ;====================================== 782:0001433F PLITF0 783:0001433F CD0000 CALL SOUNDCLR 784:00014342 ; 785:00014342 CD4544 CALL ITMINC 786:00014345 ; 787:00014345 FAA5DB LD A,(DJFLAG) 788:00014348 A7 AND A 789:00014349 2851 JR Z,PLITF8 790:0001434B ;- - Danjyon item buffer set - - - 791:0001434B F0F7 LD A,(DNJNNO) 792:0001434D 5F LD E,A 793:0001434E CB27 SLA A 794:00014350 CB27 SLA A 795:00014352 83 ADD A,E 796:00014353 5F LD E,A 797:00014354 1600 LD D,$00 798:00014356 2116DB LD HL,DMAPF1 799:00014359 19 ADD HL,DE 800:0001435A 11CCDB LD DE,DMAPF 801:0001435D ; 802:0001435D 0E05 LD C,$05 803:0001435F PLITF01 804:0001435F F0F7 LD A,(DNJNNO) zti.s 98-11-10 11:31:47......PAGE 0033 LINE# LOC CODE LINE 805:00014361 FE0A CP DJMAX ;$20 806:00014363 F0F7 LD A,(DNJNNO) 807:00014365 FE08 CP $08 808:00014367 2802 JR Z,PLITF011 809:00014369 3803 JR C,PLITF02 ; Danjyon item not display ? 810:0001436B PLITF011 811:0001436B AF XOR A ; yes ! 812:0001436C 2801 JR Z,PLITF03 813:0001436E PLITF02 814:0001436E 2A LD A,(HLI) 815:0001436F PLITF03 816:0001436F 12 LD (DE),A 817:00014370 13 INC DE 818:00014371 0D DEC C 819:00014372 20EB JR NZ,PLITF01 820:00014374 ; 821:00014374 F0F7 LD A,(DNJNNO) 822:00014376 5F LD E,A 823:00014377 1600 LD D,$00 824:00014379 ; 825:00014379 213243 LD HL,DAMPFGD 826:0001437C 19 ADD HL,DE 827:0001437D 7E LD A,(HL) 828:0001437E EAB0DB LD (DAMPFG),A 829:00014381 ; 830:00014381 7B LD A,E 831:00014382 FE08 CP $08 832:00014384 2827 JR Z,PLITFA 833:00014386 FE0A CP DJMAX ;$20 834:00014388 3023 JR NC,PLITFA ; Normal danjyon ? 835:0001438A ; ; yes ! map set ! 836:0001438A FE06 CP $06 837:0001438C 2005 JR NZ,PLITF7 838:0001438E ; 839:0001438E F0F9 LD A,(YKFLAG) 840:00014390 A7 AND A 841:00014391 201A JR NZ,PLITFA 842:00014393 PLITF7 843:00014393 ;; LD A,$1 844:00014393 ;; CALL PBSET 845:00014393 ; 846:00014393 CD1E54 CALL DMAPSUB 847:00014396 ; 848:00014396 3E00 LD A,BLVRDS 849:00014398 EAFFD6 LD (VRFLG),A 850:0001439B ;; 851:0001439B ; CALL RNDSUB 852:0001439B ; LD HL,FRCNT 853:0001439B ; OR (HL) 854:0001439B ; AND $03 855:0001439B ; LD (PANELMD),A ;順番パネル秘密テーブルセット 856:0001439B C9 RET 857:0001439C ;-------------------------------- 858:0001439C PLITF8 859:0001439C 3E00 LD A,WINDBGS 860:0001439E EAFFD6 LD (VRFLG),A 861:000143A1 ; zti.s 98-11-10 11:31:47......PAGE 0034 LINE# LOC CODE LINE 862:000143A1 CD0000 CALL RNDSUB 863:000143A4 21E7FF LD HL,FRCNT 864:000143A7 B6 OR (HL) 865:000143A8 E603 AND $03 866:000143AA E0B9 LD (PANELMD),A ;順番パネル秘密テーブルセット 867:000143AC C9 RET 868:000143AD ;-------------------------------- 869:000143AD PLITFA ; レベル７雲BGセット！ Window Map clear 870:000143AD 3E00 LD A,GMAPCL 871:000143AF EAFFD6 LD (VRFLG),A 872:000143B2 C9 RET 873:000143B3 ;=========================================== 874:000143B3 PLIT00 875:000143B3 CD0000 CALL RAMCL3 876:000143B6 AF XOR A 877:000143B7 EA1CC1 LD (PLMODE),A 878:000143BA ; 879:000143BA CD4544 CALL ITMINC 880:000143BD ; 881:000143BD FA9DDB LD A,(WPLXPSL) 882:000143C0 E098 LD (PLXPSL),A 883:000143C2 EAB1DB LD (PLITXS),A 884:000143C5 FA9EDB LD A,(WPLYPSL) 885:000143C8 E099 LD (PLYPSL),A 886:000143CA EAB2DB LD (PLITYS),A 887:000143CD ; 888:000143CD FAC8DB LD A,(NXRMPZ) 889:000143D0 E0A2 LD (PLZPSL),A 890:000143D2 A7 AND A 891:000143D3 2805 JR Z,PLIT011 892:000143D5 ; 893:000143D5 3E02 LD A,$02 894:000143D7 EA46C1 LD (PLJPFG),A 895:000143DA PLIT011 896:000143DA 3E04 LD A,$04 897:000143DC EA25C1 LD (SCRLMK),A ; Not scroll ! 898:000143DF ; 899:000143DF CD0000 CALL BGDTST ; BG data set 900:000143E2 ; 901:000143E2 CD0000 CALL ENDTST ; Enemy data set 902:000143E5 ; 903:000143E5 CD0000 CALL WANWANCK ;ワンワンセットチェック 904:000143E8 ; 905:000143E8 ;; CALL TOURCK 906:000143E8 ; 907:000143E8 3EFF LD A,$FF 908:000143EA E0A6 LD (CHTRCT),A ;すぐ転送するため！ 909:000143EC ; 910:000143EC FAA5DB LD A,(DJFLAG) 911:000143EF A7 AND A 912:000143F0 2834 JR Z,PI0088 913:000143F2 ; 914:000143F2 57 LD D,A 915:000143F3 ; 916:000143F3 F0F7 LD A,(DNJNNO) 917:000143F5 FE1A CP DJROOM2 ;$20 918:000143F7 3005 JR NC,PTKS010 zti.s 98-11-10 11:31:47......PAGE 0035 LINE# LOC CODE LINE 919:000143F9 FE06 CP DJROOM ;$20 920:000143FB 3801 JR C,PTKS010 921:000143FD 14 INC D 922:000143FE PTKS010 923:000143FE F0F6 LD A,(GRNDPT) 924:00014400 5F LD E,A 925:00014401 CD0000 CALL DJTKCK 926:00014404 FE00 CP SKY 927:00014406 280D JR Z,PTKS100 928:00014408 FE00 CP BKY 929:0001440A 2809 JR Z,PTKS100 930:0001440C ; 931:0001440C FA8EC1 LD A,(NAZOFG) 932:0001440F E6E0 AND %11100000 933:00014411 FE80 CP %10000000 934:00014413 2011 JR NZ,PI0088 ;カギおってくる謎？ 935:00014415 ; ;YES ! 936:00014415 PTKS100 937:00014415 FACDDB LD A,(KONPF) 938:00014418 A7 AND A 939:00014419 280B JR Z,PI0088 ;コンパス？ 940:0001441B ; 941:0001441B F0F8 LD A,(DJSVBF) 942:0001441D E610 AND %00010000 943:0001441F 2005 JR NZ,PI0088 ;取った？ 944:00014421 ; 945:00014421 3E0C LD A,$0C 946:00014423 EA62D4 LD (KEYSDON),A 947:00014426 ;; CALL TOURCK 948:00014426 PI0088 949:00014426 ; 950:00014426 FAA5DB LD A,(DJFLAG) 951:00014429 A7 AND A 952:0001442A 3E00 LD A,DJBST ; Bank set! 953:0001442C 2002 JR NZ,PI0090 ; Danjyon ? 954:0001442E ; ; yes ! 955:0001442E 3E00 LD A,GRBST ; Bank set! 956:00014430 PI0090 957:00014430 EAFED6 LD (BLNKFG),A 958:00014433 PI009A 959:00014433 C9 RET 960:00014434 ;=========================================== 961:00014434 ;PLIT06 962:00014434 ; LD A,WINDBGS 963:00014434 ; LD (VRFLG),A 964:00014434 ;; 965:00014434 ;; LD A,$0F 966:00014434 ;; LD (BKCHNO),A 967:00014434 ;;; 968:00014434 ;; CALL BGBKST ; BG bank set! 969:00014434 ; JP ITMINC 970:00014434 ;=========================================== 971:00014434 PLIT08 972:00014434 3E0F LD A,$0F 973:00014436 E094 LD (BKCHNO),A 974:00014438 ; 975:00014438 CD0000 CALL BGBKST ; BG bank set! zti.s 98-11-10 11:31:47......PAGE 0036 LINE# LOC CODE LINE 976:0001443B AF XOR A 977:0001443C E090 LD (BKCHFG),A 978:0001443E E091 LD (BKCHF2),A 979:00014440 ;; LD (FADEON),A 980:00014440 ; 981:00014440 ; LD A,$0 982:00014440 ; LD (EBANK0),A 983:00014440 ; LD A,$1 984:00014440 ; LD (EBANK1),A 985:00014440 ; LD A,$2 986:00014440 ; LD (EBANK2),A 987:00014440 ; LD A,$3 988:00014440 ; LD (EBANK3),A 989:00014440 ; 990:00014440 3E00 LD A,BNKTR 991:00014442 EAFED6 LD (BLNKFG),A 992:00014445 ; 993:00014445 ; 994:00014445 ; 995:00014445 ; 996:00014445 ; 997:00014445 ; LD A,$06 998:00014445 ; LD (BKCHNO),A 999:00014445 ; LD (BKCHFG),A 1000:00014445 ; 1001:00014445 ; LD A,$2 1002:00014445 ; LD (ITMODE),A 1003:00014445 ITMINC 1004:00014445 2196DB LD HL,ITMODE 1005:00014448 34 INC (HL) 1006:00014449 ;;; CALL ITMINC 1007:00014449 C9 RET 1008:0001444A ;=========================================== 1009:0001444A PLIT10 1010:0001444A 3E00 LD A,RBGST ; Room BG initial set 1011:0001444C EAFED6 LD (BLNKFG),A 1012:0001444F ; 1013:0001444F FAFAD6 LD A,(ONOFBLF) 1014:00014452 A7 AND A 1015:00014453 280F JR Z,PI101010 ; On off block stage ? 1016:00014455 ; ; yes ! 1017:00014455 3E05 LD A,$05 1018:00014457 EAF8D6 LD (ONOFTM),A ; On off block revise set ! 1019:0001445A ; 1020:0001445A FACBC1 LD A,(SWCHTM) 1021:0001445D A7 AND A 1022:0001445E 2804 JR Z,PI101010 ; Swich on ? 1023:00014460 ; ; Yes ! 1024:00014460 3E03 LD A,$03 ;F2 1025:00014462 E0A5 LD (CHTRF2),A ;TOURFG),A ; Swich down chr TR. 1026:00014464 PI101010 1027:00014464 CD4544 CALL ITMINC 1028:00014467 C9 RET 1029:00014468 ;=========================================== 1030:00014468 PLIT20 1031:00014468 ;; LD A,$2 1032:00014468 ;; CALL PBSET zti.s 98-11-10 11:31:47......PAGE 0037 LINE# LOC CODE LINE 1033:00014468 ; 1034:00014468 CD0000 CALL COHTITL ; Coint & heart display 1035:0001446B ; 1036:0001446B CD4544 CALL ITMINC 1037:0001446E C9 RET 1038:0001446F ;=========================================== 1039:0001446F PLIT30 1040:0001446F ;; LD A,$2 1041:0001446F ;; CALL PBSET 1042:0001446F ; 1043:0001446F CD0000 CALL ITEMDPL ; Item window display 1044:00014472 ; 1045:00014472 CD4544 CALL ITMINC 1046:00014475 C9 RET 1047:00014476 ;=========================================== 1048:00014476 PLIT40 1049:00014476 ; LD A,$80 1050:00014476 ; LD (WNDYPS),A 1051:00014476 ; LD A,$06 1052:00014476 ; LD (WDX),A ; Item window position initial 1053:00014476 ;; 1054:00014476 ; LD A,$08 1055:00014476 ; LD (WNDSPD),A ; Item window speed initial 1056:00014476 CD0A57 CALL WINDIT ;Window pos initial 1057:00014479 ; 1058:00014479 F040 LD A,(LCDC) 1059:0001447B F620 OR %00100000 ; Window on ! 1060:0001447D EAFDD6 LD (LCDCB),A 1061:00014480 E040 LD (LCDC),A 1062:00014482 ; 1063:00014482 ;; LD A,GPLAY 1064:00014482 ;; LD (GMMODE),A 1065:00014482 ; LD A,$6 1066:00014482 ; LD (ITMODE),A 1067:00014482 CD4544 CALL ITMINC 1068:00014485 ; 1069:00014485 ;; LD A,(GRNDPT) 1070:00014485 ;; AND $0F 1071:00014485 ;; CP $08 1072:00014485 ;; LD A,(DJFLAG) 1073:00014485 ;; AND A 1074:00014485 OTDRST 1075:00014485 FA1CC1 LD A,(PLMODE) 1076:00014488 EA63D4 LD (WPLMODE),A 1077:0001448B ; 1078:0001448B 3E00 LD A,PINDR2 1079:0001448D ;; JR Z,PI4300 1080:0001448D ;;; 1081:0001448D ;; LD A,POTDR2 1082:0001448D ;;PI4300 1083:0001448D EA1CC1 LD (PLMODE),A 1084:00014490 ; 1085:00014490 AF XOR A 1086:00014491 EA6BC1 LD (SBHR),A 1087:00014494 EA6CC1 LD (SBCNT),A 1088:00014497 ; 1089:00014497 FACBC3 LD A,(FADEON) zti.s 98-11-10 11:31:47......PAGE 0038 LINE# LOC CODE LINE 1090:0001449A A7 AND A 1091:0001449B 2815 JR Z,PIT4050 1092:0001449D ; 1093:0001449D FAADC5 LD A,(FADEBP) 1094:000144A0 EA97DB LD (BGPFG),A 1095:000144A3 ; 1096:000144A3 3E1C LD A,$1C 1097:000144A5 EA98DB LD (OBP0FG),A 1098:000144A8 3EE4 LD A,$E4 1099:000144AA EA99DB LD (OBP1FG),A 1100:000144AD ; 1101:000144AD 3E04 LD A,$04 1102:000144AF EA6BC1 LD (SBHR),A 1103:000144B2 PIT4050 1104:000144B2 C30000 JP BGMSET 1105:000144B5 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 1106:000144B5 ;% % 1107:000144B5 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 1108:000144B5 PSLCHK 1109:000144B5 F0CC LD A,(KEYA2) 1110:000144B7 E690 AND %10010000 1111:000144B9 CACB45 JP Z,TLM000 1112:000144BC ; 1113:000144BC PSLCTGO 1114:000144BC EA7BD4 LD (STARTFG),A 1115:000144BF ; 1116:000144BF ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 1117:000144BF PSLGO 1118:000144BF CD0000 CALL SVOPEN ;(SV) 1119:000144C2 ;--SAVEDATA => WORK BUFFER 1120:000144C2 FA54A4 LD A,(NAME+0-SAVEBF+SAVEI1) 1121:000144C5 EA80DB LD (NAMEBF+00),A 1122:000144C8 CD0000 CALL SVOPEN ;(SV) 1123:000144CB FA55A4 LD A,(NAME+1-SAVEBF+SAVEI1) 1124:000144CE EA81DB LD (NAMEBF+01),A 1125:000144D1 CD0000 CALL SVOPEN ;(SV) 1126:000144D4 FA56A4 LD A,(NAME+2-SAVEBF+SAVEI1) 1127:000144D7 EA82DB LD (NAMEBF+02),A 1128:000144DA CD0000 CALL SVOPEN ;(SV) 1129:000144DD FA57A4 LD A,(NAME+3-SAVEBF+SAVEI1) 1130:000144E0 EA83DB LD (NAMEBF+03),A 1131:000144E3 CD0000 CALL SVOPEN ;(SV) 1132:000144E6 FA58A4 LD A,(NAME+4-SAVEBF+SAVEI1) 1133:000144E9 EA84DB LD (NAMEBF+04),A 1134:000144EC ; 1135:000144EC CD0000 CALL SVOPEN ;(SV) 1136:000144EF FA5FA4 LD A,(HARTCT-SAVEBF+SAVEI1) 1137:000144F2 EA06DC LD (HARTCTF),A 1138:000144F5 CD0000 CALL SVOPEN ;(SV) 1139:000144F8 FA60A4 LD A,(HARTMX-SAVEBF+SAVEI1) 1140:000144FB EA09DC LD (HARTMXF),A 1141:000144FE ; 1142:000144FE CD0000 CALL SVOPEN ;(SV) 1143:00014501 FA5CA4 LD A,(DETHCT-SAVEBF+SAVEI1) 1144:00014504 EA00DC LD (DETHCTF),A 1145:00014507 CD0000 CALL SVOPEN ;(SV) 1146:0001450A FA5DA4 LD A,(DETHCT+1-SAVEBF+SAVEI1) zti.s 98-11-10 11:31:47......PAGE 0039 LINE# LOC CODE LINE 1147:0001450D EA01DC LD (DETHCTF+1),A 1148:00014510 ;-- 1149:00014510 CD0000 CALL SVOPEN ;(SV) 1150:00014513 FAD9A7 LD A,(NAME+0-SAVEBF+SAVEI2) 1151:00014516 EA85DB LD (NAMEBF+05),A 1152:00014519 CD0000 CALL SVOPEN ;(SV) 1153:0001451C FADAA7 LD A,(NAME+1-SAVEBF+SAVEI2) 1154:0001451F EA86DB LD (NAMEBF+06),A 1155:00014522 CD0000 CALL SVOPEN ;(SV) 1156:00014525 FADBA7 LD A,(NAME+2-SAVEBF+SAVEI2) 1157:00014528 EA87DB LD (NAMEBF+07),A 1158:0001452B CD0000 CALL SVOPEN ;(SV) 1159:0001452E FADCA7 LD A,(NAME+3-SAVEBF+SAVEI2) 1160:00014531 EA88DB LD (NAMEBF+08),A 1161:00014534 CD0000 CALL SVOPEN ;(SV) 1162:00014537 FADDA7 LD A,(NAME+4-SAVEBF+SAVEI2) 1163:0001453A EA89DB LD (NAMEBF+09),A 1164:0001453D ; 1165:0001453D CD0000 CALL SVOPEN ;(SV) 1166:00014540 FAE4A7 LD A,(HARTCT-SAVEBF+SAVEI2) 1167:00014543 EA07DC LD (HARTCTF+1),A 1168:00014546 CD0000 CALL SVOPEN ;(SV) 1169:00014549 FAE5A7 LD A,(HARTMX-SAVEBF+SAVEI2) 1170:0001454C EA0ADC LD (HARTMXF+1),A 1171:0001454F ; 1172:0001454F CD0000 CALL SVOPEN ;(SV) 1173:00014552 FAE1A7 LD A,(DETHCT-SAVEBF+SAVEI2) 1174:00014555 EA02DC LD (DETHCTF+2),A 1175:00014558 CD0000 CALL SVOPEN ;(SV) 1176:0001455B FAE2A7 LD A,(DETHCT+1-SAVEBF+SAVEI2) 1177:0001455E EA03DC LD (DETHCTF+3),A 1178:00014561 ;-- 1179:00014561 CD0000 CALL SVOPEN ;(SV) 1180:00014564 FA5EAB LD A,(NAME+0-SAVEBF+SAVEI3) 1181:00014567 EA8ADB LD (NAMEBF+$0A),A 1182:0001456A CD0000 CALL SVOPEN ;(SV) 1183:0001456D FA5FAB LD A,(NAME+1-SAVEBF+SAVEI3) 1184:00014570 EA8BDB LD (NAMEBF+$0B),A 1185:00014573 CD0000 CALL SVOPEN ;(SV) 1186:00014576 FA60AB LD A,(NAME+2-SAVEBF+SAVEI3) 1187:00014579 EA8CDB LD (NAMEBF+$0C),A 1188:0001457C CD0000 CALL SVOPEN ;(SV) 1189:0001457F FA61AB LD A,(NAME+3-SAVEBF+SAVEI3) 1190:00014582 EA8DDB LD (NAMEBF+$0D),A 1191:00014585 CD0000 CALL SVOPEN ;(SV) 1192:00014588 FA62AB LD A,(NAME+4-SAVEBF+SAVEI3) 1193:0001458B EA8EDB LD (NAMEBF+$0E),A 1194:0001458E ; 1195:0001458E CD0000 CALL SVOPEN ;(SV) 1196:00014591 FA69AB LD A,(HARTCT-SAVEBF+SAVEI3) 1197:00014594 EA08DC LD (HARTCTF+2),A 1198:00014597 CD0000 CALL SVOPEN ;(SV) 1199:0001459A FA6AAB LD A,(HARTMX-SAVEBF+SAVEI3) 1200:0001459D EA0BDC LD (HARTMXF+2),A 1201:000145A0 ; 1202:000145A0 CD0000 CALL SVOPEN ;(SV) 1203:000145A3 FA66AB LD A,(DETHCT-SAVEBF+SAVEI3) zti.s 98-11-10 11:31:47......PAGE 0040 LINE# LOC CODE LINE 1204:000145A6 EA04DC LD (DETHCTF+4),A 1205:000145A9 CD0000 CALL SVOPEN ;(SV) 1206:000145AC FA67AB LD A,(DETHCT+1-SAVEBF+SAVEI3) 1207:000145AF EA05DC LD (DETHCTF+5),A 1208:000145B2 ;-- 1209:000145B2 ; 1210:000145B2 ;; XOR A 1211:000145B2 ;; LD (NMSLPT),A 1212:000145B2 ; 1213:000145B2 3E00 LD A,PSLCT ; Goto player select 1214:000145B4 EA95DB LD (GMMODE),A 1215:000145B7 AF XOR A 1216:000145B8 EA96DB LD (ITMODE),A 1217:000145BB ; 1218:000145BB AF XOR A 1219:000145BC E097 LD (SCCV),A 1220:000145BE E096 LD (SCCH),A 1221:000145C0 ; 1222:000145C0 DISPCL 1223:000145C0 3E00 LD A,%00000000 ; パレット データ セット 1224:000145C2 EA97DB LD (BGPFG),A 1225:000145C5 EA98DB LD (OBP0FG),A 1226:000145C8 EA99DB LD (OBP1FG),A 1227:000145CB TLM000 1228:000145CB C9 RET 1229:000145CC ;=============================== 1230:000145CC ITITDT ; Inchiki test data 1231:000145CC 0102030405060708 DB 1,2,3,4,5,6,7,8,9,10,11,12 1232:000145D8 0101010100 DB 1,1,1,1,0 1233:000145DD 0101010100 DB 1,1,1,1,0 1234:000145E2 0101010101 DB 1,1,1,1,1 1235:000145E7 0101010102 DB 1,1,1,1,2 1236:000145EC 0101010103 DB 1,1,1,1,3 1237:000145F1 0101010104 DB 1,1,1,1,4 1238:000145F6 0101010105 DB 1,1,1,1,5 1239:000145FB 0101010106 DB 1,1,1,1,6 1240:00014600 0101010107 DB 1,1,1,1,7 1241:00014605 0101010108 DB 1,1,1,1,8 1242:0001460A 0101010109 DB 1,1,1,1,9 1243:0001460F ITITDD 1244:0001460F ; 1245:0001460F NAMESET 1246:0001460F ;- - Have item initial - - - - 1247:0001460F ;; CALL SVOPEN ;(SV) 1248:0001460F ; 1249:0001460F 110000 LD DE,$0000 1250:00014612 CDDD46 CALL SAVECK 1251:00014615 118503 LD DE,SAVED2-SAVEDT 1252:00014618 CDDD46 CALL SAVECK 1253:0001461B 110A07 LD DE,SAVED3-SAVEDT 1254:0001461E CDDD46 CALL SAVECK 1255:00014621 ; 1256:00014621 FA0000 LD A,(HIMITSU) 1257:00014624 A7 AND A 1258:00014625 CADC46 JP Z,NMSRET 1259:00014628 ; 1260:00014628 1E00 LD E,$0 zti.s 98-11-10 11:31:47......PAGE 0041 LINE# LOC CODE LINE 1261:0001462A 1600 LD D,$0 1262:0001462C ; 1263:0001462C 0105A4 LD BC,SAVEI1 ;ITEMB 1264:0001462F PI3000 1265:0001462F 21CC45 LD HL,ITITDT 1266:00014632 19 ADD HL,DE 1267:00014633 2A LD A,(HLI) 1268:00014634 02 LD (BC),A 1269:00014635 03 INC BC 1270:00014636 1C INC E 1271:00014637 7B LD A,E 1272:00014638 FE43 CP ITITDD-ITITDT 1273:0001463A 20F3 JR NZ,PI3000 1274:0001463C ; 1275:0001463C 3E01 LD A,$01 1276:0001463E EA53A4 LD (KENLEV-SAVEBF+SAVEI1),A 1277:00014641 3E01 LD A,$01 1278:00014643 EA49A4 LD (TATLEV-SAVEBF+SAVEI1),A 1279:00014646 3E02 LD A,$02 1280:00014648 EA48A4 LD (BULLEV-SAVEBF+SAVEI1),A 1281:0001464B ; 1282:0001464B ; LD HL,GRKEY1-SAVEBF+SAVEI1 1283:0001464B ; LD E,$4 1284:0001464B ;PI3010 1285:0001464B ; LD (HLI),A 1286:0001464B ; DEC E 1287:0001464B ; JR NZ,PI3010 1288:0001464B ; 1289:0001464B 216AA4 LD HL,WARPSV-SAVEBF+SAVEI1 1290:0001464E 1E09 LD E,$9 1291:00014650 3E02 LD A,%00000010 1292:00014652 PI3011 1293:00014652 22 LD (HLI),A 1294:00014653 1D DEC E 1295:00014654 20FC JR NZ,PI3011 1296:00014656 ; 1297:00014656 3E60 LD A,$60 1298:00014658 EA52A4 LD (BOMBCT-SAVEBF+SAVEI1),A 1299:0001465B EA7DA4 LD (YAMAX-SAVEBF+SAVEI1),A 1300:0001465E EA7CA4 LD (BOMAX-SAVEBF+SAVEI1),A 1301:00014661 EA4AA4 LD (YAAACT-SAVEBF+SAVEI1),A 1302:00014664 ; 1303:00014664 3E40 LD A,$40 1304:00014666 EA7BA4 LD (PWMAX-SAVEBF+SAVEI1),A 1305:00014669 EA51A4 LD (TUBOCT-SAVEBF+SAVEI1),A 1306:0001466C ; 1307:0001466C 3E89 LD A,$89 1308:0001466E EA4CA4 LD (RODCT-SAVEBF+SAVEI1),A 1309:00014671 3E00 LD A,$00 1310:00014673 EA14A4 LD (CLC20-SAVEBF+SAVEI1),A 1311:00014676 3E07 LD A,%00000111 1312:00014678 EA4EA4 LD (ONPUFG-SAVEBF+SAVEI1),A 1313:0001467B ; 1314:0001467B 3E05 LD A,$5 1315:0001467D EA62A4 LD (COINC1-SAVEBF+SAVEI1),A 1316:00014680 3E09 LD A,$09 1317:00014682 EA63A4 LD (COINC2-SAVEBF+SAVEI1),A zti.s 98-11-10 11:31:47......PAGE 0042 LINE# LOC CODE LINE 1318:00014685 3E01 LD A,$01 1319:00014687 EA4DA4 LD (PAPA0FG-SAVEBF+SAVEI1),A 1320:0001468A ; 1321:0001468A 3E50 LD A,$50 1322:0001468C EA5FA4 LD (HARTCT-SAVEBF+SAVEI1),A 1323:0001468F 3E0A LD A,$A 1324:00014691 EA60A4 LD (HARTMX-SAVEBF+SAVEI1),A 1325:00014694 ;; LD A,$06 1326:00014694 ;; LD (KBINF-SAVEBF+SAVEI1),A 1327:00014694 ; 1328:00014694 3E5B LD A,$5B 1329:00014696 EA54A4 LD (NAME+0-SAVEBF+SAVEI1),A 1330:00014699 3E46 LD A,$46 1331:0001469B EA55A4 LD (NAME+1-SAVEBF+SAVEI1),A 1332:0001469E 3E4D LD A,$4D 1333:000146A0 EA56A4 LD (NAME+2-SAVEBF+SAVEI1),A 1334:000146A3 3E45 LD A,$45 1335:000146A5 EA57A4 LD (NAME+3-SAVEBF+SAVEI1),A 1336:000146A8 3E42 LD A,$42 1337:000146AA EA58A4 LD (NAME+4-SAVEBF+SAVEI1),A 1338:000146AD ; 1339:000146AD 3E00 LD A,$00 1340:000146AF EA5CA4 LD (DETHCT-SAVEBF+SAVEI1),A 1341:000146B2 EA5DA4 LD (DETHCT+1-SAVEBF+SAVEI1),A 1342:000146B5 ; 1343:000146B5 3E00 LD A,$0 ;$01 1344:000146B7 EA5BA4 LD (WANFLG-SAVEBF+SAVEI1),A 1345:000146BA EA64A4 LD (CONTBF+0-SAVEBF+SAVEI1),A 1346:000146BD ; 1347:000146BD 3E00 LD A,$00 1348:000146BF EA65A4 LD (CONTBF+1-SAVEBF+SAVEI1),A 1349:000146C2 ; 1350:000146C2 3E92 LD A,$92 ;D6 ;7F ;$50 1351:000146C4 EA66A4 LD (CONTBF+2-SAVEBF+SAVEI1),A 1352:000146C7 ; 1353:000146C7 3E48 LD A,$48 1354:000146C9 EA67A4 LD (CONTBF+3-SAVEBF+SAVEI1),A 1355:000146CC 3E62 LD A,$62 1356:000146CE EA68A4 LD (CONTBF+4-SAVEBF+SAVEI1),A 1357:000146D1 ; 1358:000146D1 2105A1 LD HL,GRRMSV-SAVERM+SAVEB1 1359:000146D4 3E80 LD A,$80 1360:000146D6 1E00 LD E,$00 1361:000146D8 NS0090 1362:000146D8 22 LD (HLI),A 1363:000146D9 1D DEC E 1364:000146DA 20FC JR NZ,NS0090 1365:000146DC ; 1366:000146DC NMSRET 1367:000146DC C9 RET 1368:000146DD ;====Save data check ========================== 1369:000146DD SAVECK 1370:000146DD 0E01 LD C,$01 1371:000146DF 0605 LD B,$05 1372:000146E1 ; 1373:000146E1 2100A1 LD HL,SAVED1 1374:000146E4 19 ADD HL,DE zti.s 98-11-10 11:31:47......PAGE 0043 LINE# LOC CODE LINE 1375:000146E5 SVCK10 1376:000146E5 CD0000 CALL SVOPEN ;(SV) 1377:000146E8 2A LD A,(HLI) 1378:000146E9 B9 CP C 1379:000146EA 2007 JR NZ,SVCK20 1380:000146EC ; 1381:000146EC 0C INC C 1382:000146ED 0C INC C 1383:000146EE 05 DEC B 1384:000146EF 20F4 JR NZ,SVCK10 1385:000146F1 ; 1386:000146F1 1823 JR SVCK50 1387:000146F3 SVCK20 1388:000146F3 D5 PUSH DE 1389:000146F4 ; 1390:000146F4 ; LD HL,SAVED1 1391:000146F4 ; ADD HL,DE 1392:000146F4 ; LD A,$01 1393:000146F4 ;SVCK30 1394:000146F4 ; CALL SVOPEN ;(SV) 1395:000146F4 ; LD (HLI),A 1396:000146F4 ; INC A 1397:000146F4 ; INC A 1398:000146F4 ; CP $0B 1399:000146F4 ; JR C,SVCK30 1400:000146F4 ; 1401:000146F4 2105A1 LD HL,SAVED1+5 1402:000146F7 19 ADD HL,DE 1403:000146F8 118003 LD DE,$100+$200+$7F+$01 1404:000146FB SVCK40 1405:000146FB CD0000 CALL SVOPEN ;(SV) 1406:000146FE AF XOR A 1407:000146FF 22 LD (HLI),A 1408:00014700 1B DEC DE 1409:00014701 7B LD A,E 1410:00014702 B2 OR D 1411:00014703 20F6 JR NZ,SVCK40 1412:00014705 ; 1413:00014705 D1 POP DE 1414:00014706 2100A1 LD HL,SAVED1 1415:00014709 19 ADD HL,DE 1416:0001470A 3E01 LD A,$01 1417:0001470C SVCK30 1418:0001470C CD0000 CALL SVOPEN ;(SV) 1419:0001470F 22 LD (HLI),A 1420:00014710 3C INC A 1421:00014711 3C INC A 1422:00014712 FE0B CP $0B 1423:00014714 38F6 JR C,SVCK30 1424:00014716 SVCK50 1425:00014716 C9 RET 1426:00014717 ;**************************************** 1427:00014717 ;* Player select * 1428:00014717 ;**************************************** 1429:00014717 PLSLCTS 1430:00014717 CD355C CALL NAMECK 1431:0001471A ; zti.s 98-11-10 11:31:47......PAGE 0044 LINE# LOC CODE LINE 1432:0001471A FA96DB LD A,(ITMODE) 1433:0001471D C7 RST 0 1434:0001471E 3247 DW PSLINTE 1435:00014720 3E47 DW PSLINTF 1436:00014722 4647 DW PSLINT01 1437:00014724 4F47 DW PSLINT02 1438:00014726 5547 DW PSLINT03 1439:00014728 9847 DW PSLINT0 1440:0001472A 0948 DW PSLINT1 1441:0001472C ;; DW PSLINT2 1442:0001472C 4648 DW PSLMAI0 1443:0001472E 1249 DW PSLMAI1 1444:00014730 7C49 DW PSLMAI2 1445:00014732 ;--------------------------------------- 1446:00014732 PSLINTE 1447:00014732 3E00 LD A,BKCH2 1448:00014734 EAFED6 LD (BLNKFG),A 1449:00014737 ; 1450:00014737 AF XOR A 1451:00014738 EA00D0 LD (NAMEOK),A 1452:0001473B C34544 JP ITMINC 1453:0001473E ;--------------------------------------- 1454:0001473E PSLINTF 1455:0001473E 3E00 LD A,VRMBT 1456:00014740 EAFED6 LD (BLNKFG),A 1457:00014743 C34544 JP ITMINC 1458:00014746 ;--------------------------------------- 1459:00014746 ;USDTH 1460:00014746 ; DB $98,$98,$98,$98,$99,$99,$99,$99 1461:00014746 ;USDTL 1462:00014746 ; DB $A7,$A8,$A9,$AA,$07,$08,$09,$0A 1463:00014746 ; 1464:00014746 ;--------------------------------------- 1465:00014746 PSLINT01 1466:00014746 CDD34C CALL HART1ST 1467:00014749 CDEC4C CALL HART2ST 1468:0001474C C34544 JP ITMINC 1469:0001474F ;--------------------------------------- 1470:0001474F PSLINT02 1471:0001474F CD044D CALL HART3ST 1472:00014752 C34544 JP ITMINC 1473:00014755 ;--------------------------------------- 1474:00014755 PSLINT03 1475:00014755 ALLDETHST 1476:00014755 FAA7DB LD A,(NAMEON) 1477:00014758 E601 AND %00000001 1478:0001475A 280E JR Z,DS0010 1479:0001475C ; 1480:0001475C FA00DC LD A,(DETHCTF+0) 1481:0001475F 67 LD H,A 1482:00014760 FA01DC LD A,(DETHCTF+1) 1483:00014763 6F LD L,A 1484:00014764 ; 1485:00014764 11E798 LD DE,$98E7 1486:00014767 CDB44E CALL DETHCST 1487:0001476A DS0010 1488:0001476A FAA7DB LD A,(NAMEON) zti.s 98-11-10 11:31:47......PAGE 0045 LINE# LOC CODE LINE 1489:0001476D E602 AND %00000010 1490:0001476F 280E JR Z,DS0020 1491:00014771 ; 1492:00014771 FA02DC LD A,(DETHCTF+2) 1493:00014774 67 LD H,A 1494:00014775 FA03DC LD A,(DETHCTF+3) 1495:00014778 6F LD L,A 1496:00014779 ; 1497:00014779 114799 LD DE,$9947 1498:0001477C CDB44E CALL DETHCST 1499:0001477F ; 1500:0001477F DS0020 1501:0001477F FAA7DB LD A,(NAMEON) 1502:00014782 E604 AND %00000100 1503:00014784 280E JR Z,DS0030 1504:00014786 ; 1505:00014786 FA04DC LD A,(DETHCTF+4) 1506:00014789 67 LD H,A 1507:0001478A FA05DC LD A,(DETHCTF+5) 1508:0001478D 6F LD L,A 1509:0001478E ; 1510:0001478E 11A799 LD DE,$99A7 1511:00014791 CDB44E CALL DETHCST 1512:00014794 DS0030 1513:00014794 C34544 JP ITMINC 1514:00014797 C9 RET 1515:00014798 ; 1516:00014798 PSLINT0 1517:00014798 C39A4C JP ALLNMST 1518:0001479B ; 1519:0001479B ; LD BC,$98C6 1520:0001479B ; LD DE,NAMEBF 1521:0001479B ; CALL NAMEDP 1522:0001479B ;; 1523:0001479B ; LD BC,$9926 1524:0001479B ; LD DE,NAMEBF+4 1525:0001479B ; CALL NAMEDP 1526:0001479B ;; 1527:0001479B ;; LD BC,$9986 1528:0001479B ;; LD DE,NAMEBF+8 1529:0001479B ;; CALL NAMEDP 1530:0001479B ;; 1531:0001479B ;; LD HL,NAMEBF+8 1532:0001479B ;; LD E,$8 1533:0001479B ;; XOR A 1534:0001479B ;;PSI001 1535:0001479B ;; LD (HLI),A 1536:0001479B ;; DEC E 1537:0001479B ;; JR NZ,PSI001 1538:0001479B ;; 1539:0001479B ; JP ITMINC 1540:0001479B ;- - - - - - - - - - - - - - - - - - - - - - - 1541:0001479B NAMEDP 1542:0001479B ;--- Moji set --- 1543:0001479B D5 PUSH DE 1544:0001479C ; 1545:0001479C FA00D6 LD A,(VRAMD) zti.s 98-11-10 11:31:47......PAGE 0046 LINE# LOC CODE LINE 1546:0001479F 5F LD E,A 1547:000147A0 1600 LD D,$0 1548:000147A2 2101D6 LD HL,VRAMD+1 1549:000147A5 19 ADD HL,DE 1550:000147A6 C610 ADD A,$10 1551:000147A8 ;; ADD A,$E 1552:000147A8 EA00D6 LD (VRAMD),A 1553:000147AB ; 1554:000147AB 78 LD A,B 1555:000147AC 22 LD (HLI),A 1556:000147AD 79 LD A,C 1557:000147AE 22 LD (HLI),A 1558:000147AF 3E04 LD A,$04 1559:000147B1 ;; LD A,$03 1560:000147B1 22 LD (HLI),A 1561:000147B2 ; 1562:000147B2 D1 POP DE 1563:000147B3 D5 PUSH DE 1564:000147B4 ; 1565:000147B4 3E05 LD A,$05 1566:000147B6 ;; LD A,$04 1567:000147B6 NM1D08 1568:000147B6 E0D7 LD (WORK0),A 1569:000147B8 ; 1570:000147B8 1A LD A,(DE) 1571:000147B9 A7 AND A 1572:000147BA 3E7E LD A,BETA ;$DF 1573:000147BC 280C JR Z,NM1D0C ; Not word ? 1574:000147BE ; ; yes ! beta ! 1575:000147BE 1A LD A,(DE) 1576:000147BF 3D DEC A 1577:000147C0 ;; AND $3F 1578:000147C0 C5 PUSH BC 1579:000147C1 E5 PUSH HL 1580:000147C2 4F LD C,A 1581:000147C3 0600 LD B,$00 1582:000147C5 CD0000 CALL MSCHNOR 1583:000147C8 E1 POP HL 1584:000147C9 C1 POP BC 1585:000147CA NM1D0C 1586:000147CA 22 LD (HLI),A 1587:000147CB 13 INC DE 1588:000147CC F0D7 LD A,(WORK0) 1589:000147CE 3D DEC A 1590:000147CF 20E5 JR NZ,NM1D08 1591:000147D1 ; 1592:000147D1 78 LD A,B 1593:000147D2 22 LD (HLI),A 1594:000147D3 79 LD A,C 1595:000147D4 D620 SUB $20 1596:000147D6 22 LD (HLI),A 1597:000147D7 3E04 LD A,$04 1598:000147D9 ;; LD A,$03 1599:000147D9 22 LD (HLI),A 1600:000147DA ;- - -Daketen set --- 1601:000147DA ;; LD DE,NAMEBF 1602:000147DA D1 POP DE zti.s 98-11-10 11:31:47......PAGE 0047 LINE# LOC CODE LINE 1603:000147DB 3E05 LD A,$05 1604:000147DD ;; LD A,$04 1605:000147DD NM1D18 1606:000147DD E0D7 LD (WORK0),A 1607:000147DF ; 1608:000147DF 1A LD A,(DE) 1609:000147E0 A7 AND A 1610:000147E1 280F JR Z,NM1D19 1611:000147E3 3D DEC A 1612:000147E4 ;; AND %11000000 1613:000147E4 E5 PUSH HL 1614:000147E5 C5 PUSH BC 1615:000147E6 ; 1616:000147E6 4F LD C,A 1617:000147E7 0600 LD B,$00 1618:000147E9 ;; LD HL,MSCHN2 1619:000147E9 ;; ADD HL,BC 1620:000147E9 ;; LD A,(HL) 1621:000147E9 CD0000 CALL MSCHN2R 1622:000147EC E0E8 LD (ENHELP),A 1623:000147EE ; 1624:000147EE C1 POP BC 1625:000147EF E1 POP HL 1626:000147F0 FE00 CP $00 1627:000147F2 NM1D19 1628:000147F2 3E7E LD A,BETA ;$DF 1629:000147F4 2809 JR Z,NM1D1E 1630:000147F6 ; 1631:000147F6 F0E8 LD A,(ENHELP) 1632:000147F8 FE02 CP $02 1633:000147FA 3EC8 LD A,$C8 1634:000147FC 2801 JR Z,NM1D1E 1635:000147FE 3C INC A 1636:000147FF NM1D1E 1637:000147FF 22 LD (HLI),A 1638:00014800 13 INC DE 1639:00014801 F0D7 LD A,(WORK0) 1640:00014803 3D DEC A 1641:00014804 20D7 JR NZ,NM1D18 1642:00014806 ; 1643:00014806 AF XOR A 1644:00014807 77 LD (HL),A 1645:00014808 C9 RET 1646:00014809 ; 1647:00014809 ; 1648:00014809 ; 1649:00014809 ; 1650:00014809 ; 1651:00014809 ; 1652:00014809 ; 1653:00014809 ;;;; 柴原 使えええ！！！ 1654:00014809 ;; 1655:00014809 ; LD C,$0 1656:00014809 ; LD B,C 1657:00014809 ; LD E,C 1658:00014809 ; LD D,C 1659:00014809 ; XOR A zti.s 98-11-10 11:31:47......PAGE 0048 LINE# LOC CODE LINE 1660:00014809 ; LD (WORK0),A 1661:00014809 ; LD (WORK1),A 1662:00014809 ;; 1663:00014809 ; LD HL,VRAMD+1 1664:00014809 ;USSBLP 1665:00014809 ; PUSH HL 1666:00014809 ; LD HL,NAMEBF 1667:00014809 ; ADD HL,BC 1668:00014809 ; LD A,(HL) 1669:00014809 ; POP HL 1670:00014809 ; AND A 1671:00014809 ; JR Z,UBETA 1672:00014809 ;; 1673:00014809 ; LD A,C 1674:00014809 ; AND A 1675:00014809 ; JR Z,USB2 1676:00014809 ;; 1677:00014809 ; LD A,(WORK0) 1678:00014809 ; AND A 1679:00014809 ; JR NZ,USB2 1680:00014809 ;; 1681:00014809 ; DEC BC 1682:00014809 ; PUSH HL 1683:00014809 ; LD HL,NAMEBF 1684:00014809 ; ADD HL,BC 1685:00014809 ; LD A,(HL) 1686:00014809 ; POP HL 1687:00014809 ; SUB $01 1688:00014809 ; AND $3F 1689:00014809 ; LD E,A 1690:00014809 ; JR MOJI 1691:00014809 ;; 1692:00014809 ;; 1693:00014809 ;; 1694:00014809 ;USB2 1695:00014809 ; PUSH HL 1696:00014809 ; LD HL,NAMEBF 1697:00014809 ; ADD HL,BC 1698:00014809 ; LD A,(HL) 1699:00014809 ; POP HL 1700:00014809 ; SUB $01 1701:00014809 ; LD E,A 1702:00014809 ; AND $C0 1703:00014809 ; JR Z,MOJI 1704:00014809 ; 1705:00014809 ; XOR A 1706:00014809 ; LD (WORK0),A 1707:00014809 ; BIT 7,E 1708:00014809 ; JR NZ,DAKTEN 1709:00014809 ;; 1710:00014809 ; LD E,$C8 1711:00014809 ; JR SBVSET 1712:00014809 ;; 1713:00014809 ;DAKTEN 1714:00014809 ; XOR A 1715:00014809 ; LD (WORK0),A 1716:00014809 ; LD E,$C7 zti.s 98-11-10 11:31:47......PAGE 0049 LINE# LOC CODE LINE 1717:00014809 ; JR SBVSET 1718:00014809 ;; 1719:00014809 ;UBETA 1720:00014809 ; LD E,$DF 1721:00014809 ; JR SBVSET 1722:00014809 ;; 1723:00014809 ;MOJI 1724:00014809 ; LD A,$20 1725:00014809 ; LD (WORK0),A 1726:00014809 ;; 1727:00014809 ;SBVSET 1728:00014809 ; PUSH HL 1729:00014809 ; LD HL,USDTH 1730:00014809 ; ADD HL,BC 1731:00014809 ; LD A,(HL) 1732:00014809 ; POP HL 1733:00014809 ;;; LD HL,VRAMD+1 1734:00014809 ; LD (HLI),A 1735:00014809 ;; 1736:00014809 ; PUSH HL 1737:00014809 ; LD HL,USDTL 1738:00014809 ; ADD HL,BC 1739:00014809 ; LD A,(WORK0) 1740:00014809 ; ADD A,(HL) 1741:00014809 ;; 1742:00014809 ; POP HL 1743:00014809 ; LD (HLI),A 1744:00014809 ;; 1745:00014809 ; XOR A 1746:00014809 ; LD (HLI),A 1747:00014809 ;; 1748:00014809 ; LD A,E 1749:00014809 ; LD (HLI),A 1750:00014809 ;; 1751:00014809 ; LD A,C 1752:00014809 ; CP $07 1753:00014809 ; JR Z,PS0END 1754:00014809 ;;; 1755:00014809 ; INC BC 1756:00014809 ; JR USSBLP 1757:00014809 ;; 1758:00014809 ;PS0END 1759:00014809 ;; 1760:00014809 ; XOR A 1761:00014809 ; LD (HL),A 1762:00014809 ;; 1763:00014809 ;; LD A,$1 1764:00014809 ;; LD (ITMODE),A 1765:00014809 ; JP ITMINC 1766:00014809 ;; RET 1767:00014809 ;--------------------------------------- 1768:00014809 PSLINT1 1769:00014809 FA7BD4 LD A,(STARTFG) 1770:0001480C A7 AND A 1771:0001480D 2809 JR Z,PSLI110 1772:0001480F ; 1773:0001480F AF XOR A zti.s 98-11-10 11:31:47......PAGE 0050 LINE# LOC CODE LINE 1774:00014810 EA7BD4 LD (STARTFG),A 1775:00014813 ; 1776:00014813 3E11 LD A,$11 1777:00014815 EA68D3 LD (SOUND4),A ;(S) 1778:00014818 PSLI110 1779:00014818 ; LD E,$7+4 ; 3 of names! 1780:00014818 ; LD C,$0 1781:00014818 ; LD HL,NAMEBF 1782:00014818 ;PSI100 1783:00014818 ; LD A,(HLI) 1784:00014818 ; OR C 1785:00014818 ; LD C,A 1786:00014818 ; DEC E 1787:00014818 ; LD A,E 1788:00014818 ; CP $FF 1789:00014818 ; JR NZ,PSI100 1790:00014818 ;; 1791:00014818 ; LD A,C 1792:00014818 ; LD (NAMEON),A 1793:00014818 ; 1794:00014818 FAA7DB LD A,(NAMEON) 1795:0001481B E0A1 LD (PLSTOP),A 1796:0001481D A7 AND A 1797:0001481E 3E00 LD A,PSLBGS 1798:00014820 2802 JR Z,PSI110 ; Already name reg. ? 1799:00014822 ; 1800:00014822 3E00 LD A,PSLBG2 1801:00014824 PSI110 1802:00014824 EAFFD6 LD (VRFLG),A 1803:00014827 ; 1804:00014827 ;; LD A,$2 1805:00014827 ;; LD (ITMODE),A 1806:00014827 ;; RET 1807:00014827 ; 1808:00014827 3EE4 LD A,%11100100 ; パレット データ セット 1809:00014829 EA97DB LD (BGPFG),A 1810:0001482C 3E1C LD A,%00011100 ; パレット データ セット 1811:0001482E EA98DB LD (OBP0FG),A 1812:00014831 3EE4 LD A,%11100100 ; パレット データ セット 1813:00014833 EA99DB LD (OBP1FG),A 1814:00014836 ; 1815:00014836 C34544 JP ITMINC 1816:00014839 ;--------------------------------------- 1817:00014839 ;PSLINT2 1818:00014839 ; LD A,BKCH2 1819:00014839 ; LD (BLNKFG),A 1820:00014839 ;; 1821:00014839 ; LD A,%11100100 ; パレット データ セット 1822:00014839 ; LD (BGPFG),A 1823:00014839 ; LD A,%00011100 ; パレット データ セット 1824:00014839 ; LD (OBP0FG),A 1825:00014839 ; LD A,%11100100 ; パレット データ セット 1826:00014839 ; LD (OBP1FG),A 1827:00014839 ;; 1828:00014839 ; JP ITMINC 1829:00014839 ;--------------------------------------- 1830:00014839 FYOPDT zti.s 98-11-10 11:31:47......PAGE 0051 LINE# LOC CODE LINE 1831:00014839 3B536B83 DB $3B,$53,$6B,$83 1832:0001483D ;--------------------------------------- 1833:0001483D PSIDT 1834:0001483D 99C600AA DB $99,$C6,$00,$AA 1835:00014841 99C700AF DB $99,$C7,$00,$AF 1836:00014845 00 DB $00 1837:00014846 ;--------------------------------------- 1838:00014846 PSLMAI0 1839:00014846 F0A1 LD A,(PLSTOP) 1840:00014848 A7 AND A 1841:00014849 2811 JR Z,PMA100 1842:0001484B ; 1843:0001484B AF XOR A 1844:0001484C E0A1 LD (PLSTOP),A 1845:0001484E ; 1846:0001484E 2101D6 LD HL,VRAMD+1 1847:00014851 113D48 LD DE,PSIDT 1848:00014854 0E09 LD C,$09 1849:00014856 PSI0011 1850:00014856 1A LD A,(DE) 1851:00014857 13 INC DE 1852:00014858 22 LD (HLI),A 1853:00014859 0D DEC C 1854:0001485A 20FA JR NZ,PSI0011 ; yes ! KILL MODE BG set ! 1855:0001485C ; 1856:0001485C PMA100 1857:0001485C ; 1858:0001485C CD0000 CALL CURSDST ;(S) 1859:0001485F ; 1860:0001485F F0CC LD A,(KEYA2) 1861:00014861 E690 AND %10010000 1862:00014863 2803 JR Z,PSLM10 ; Start ? 1863:00014865 ; ; yes ! 1864:00014865 C34544 JP ITMINC 1865:00014868 ;; LD A,$4 1866:00014868 ;; LD (ITMODE),A 1867:00014868 ;; RET 1868:00014868 PSLM10 1869:00014868 ;;; 妖精カ−ソル　セット　柴原 やらんかあああ！！！ 1870:00014868 ;;; 誰が 柴原ですねん！！！　い−ですよ，い−ですよ　森田さん！ 1871:00014868 ;; 1872:00014868 1873:00014868 F0CC LD A,(KEYA2) 1874:0001486A ;;; AND $0C 1875:0001486A E64C AND %01001100 1876:0001486C 282A JR Z,FOJA3 1877:0001486E ; 1878:0001486E 0E02 LD C,$02 1879:00014870 FAA7DB LD A,(NAMEON) 1880:00014873 A7 AND A 1881:00014874 2801 JR Z,FOJA 1882:00014876 ; 1883:00014876 0C INC C 1884:00014877 FOJA 1885:00014877 F0CC LD A,(KEYA2) 1886:00014879 CB77 BIT 6,A 1887:0001487B 2004 JR NZ,FDOWN2 zti.s 98-11-10 11:31:47......PAGE 0052 LINE# LOC CODE LINE 1888:0001487D CB57 BIT 2,A 1889:0001487F 200C JR NZ,FOUP 1890:00014881 ; 1891:00014881 FDOWN2 1892:00014881 FAA6DB LD A,(NMSLPT) 1893:00014884 C601 ADD A,$01 1894:00014886 0C INC C 1895:00014887 B9 CP C 1896:00014888 380B JR C,FOJA2 1897:0001488A ; 1898:0001488A AF XOR A 1899:0001488B 1808 JR FOJA2 1900:0001488D ; 1901:0001488D FOUP 1902:0001488D FAA6DB LD A,(NMSLPT) 1903:00014890 D601 SUB $01 1904:00014892 3001 JR NC,FOJA2 1905:00014894 ; 1906:00014894 79 LD A,C 1907:00014895 ; 1908:00014895 FOJA2 1909:00014895 EAA6DB LD (NMSLPT),A 1910:00014898 ; 1911:00014898 FOJA3 1912:00014898 FAA6DB LD A,(NMSLPT) 1913:0001489B FE03 CP $03 1914:0001489D 202D JR NZ,PSLM100 1915:0001489F ; 1916:0001489F F0CC LD A,(KEYA2) 1917:000148A1 E603 AND %00000011 1918:000148A3 280B JR Z,SL3020 1919:000148A5 ; 1920:000148A5 CD0000 CALL CURSDSS ;(S) 1921:000148A8 ; 1922:000148A8 FA00D0 LD A,(NAMEOK) 1923:000148AB EE01 XOR $01 1924:000148AD EA00D0 LD (NAMEOK),A 1925:000148B0 SL3020 1926:000148B0 F0E7 LD A,(FRCNT) 1927:000148B2 E610 AND $10 1928:000148B4 2016 JR NZ,PSLM100 1929:000148B6 ; 1930:000148B6 FA00D0 LD A,(NAMEOK) 1931:000148B9 A7 AND A 1932:000148BA 3E2E LD A,$2E 1933:000148BC 2802 JR Z,SL3030 1934:000148BE 3E66 LD A,$66 1935:000148C0 SL3030 1936:000148C0 2108C0 LD HL,OAM+$08 1937:000148C3 3688 LD (HL),$88 1938:000148C5 23 INC HL 1939:000148C6 22 LD (HLI),A 1940:000148C7 ; 1941:000148C7 3EBE LD A,$BE 1942:000148C9 22 LD (HLI),A 1943:000148CA ; 1944:000148CA AF XOR A zti.s 98-11-10 11:31:47......PAGE 0053 LINE# LOC CODE LINE 1945:000148CB 77 LD (HL),A 1946:000148CC PSLM100 1947:000148CC ;=================================== 1948:000148CC FOAMSET 1949:000148CC FAA6DB LD A,(NMSLPT) 1950:000148CF 5F LD E,A 1951:000148D0 1600 LD D,$0 1952:000148D2 213948 LD HL,FYOPDT 1953:000148D5 19 ADD HL,DE 1954:000148D6 ; 1955:000148D6 F0E7 LD A,(FRCNT) 1956:000148D8 E608 AND %00001000 1957:000148DA 281B JR Z,FO0010 1958:000148DC ; 1959:000148DC 7E LD A,(HL) 1960:000148DD 2100C0 LD HL,OAM 1961:000148E0 F5 PUSH AF 1962:000148E1 22 LD (HLI),A 1963:000148E2 3E18 LD A,$18 1964:000148E4 22 LD (HLI),A 1965:000148E5 ; 1966:000148E5 3E00 LD A,$00 1967:000148E7 22 LD (HLI),A 1968:000148E8 ; 1969:000148E8 3E00 LD A,$00 1970:000148EA 22 LD (HLI),A 1971:000148EB F1 POP AF 1972:000148EC 22 LD (HLI),A 1973:000148ED 3E20 LD A,$20 1974:000148EF 22 LD (HLI),A 1975:000148F0 ; 1976:000148F0 3E02 LD A,$02 1977:000148F2 22 LD (HLI),A 1978:000148F3 ; 1979:000148F3 3E00 LD A,$00 1980:000148F5 77 LD (HL),A 1981:000148F6 ; 1982:000148F6 C9 RET 1983:000148F7 ;---------------------------------- 1984:000148F7 FO0010 1985:000148F7 7E LD A,(HL) 1986:000148F8 2100C0 LD HL,OAM 1987:000148FB F5 PUSH AF 1988:000148FC 22 LD (HLI),A 1989:000148FD 3E18 LD A,$18 1990:000148FF 22 LD (HLI),A 1991:00014900 ; 1992:00014900 3E02 LD A,$02 1993:00014902 22 LD (HLI),A 1994:00014903 ; 1995:00014903 3E20 LD A,$20 1996:00014905 22 LD (HLI),A 1997:00014906 F1 POP AF 1998:00014907 22 LD (HLI),A 1999:00014908 3E20 LD A,$20 2000:0001490A 22 LD (HLI),A 2001:0001490B ; zti.s 98-11-10 11:31:47......PAGE 0054 LINE# LOC CODE LINE 2002:0001490B 3E00 LD A,$00 2003:0001490D 22 LD (HLI),A 2004:0001490E ; 2005:0001490E 3E20 LD A,$20 2006:00014910 77 LD (HL),A 2007:00014911 ; 2008:00014911 C9 RET 2009:00014912 ; 2010:00014912 ;--------------------------------------- 2011:00014912 PSLMAI1 2012:00014912 FAA6DB LD A,(NMSLPT) 2013:00014915 FE03 CP $03 2014:00014917 283D JR Z,PSM190 ; Name kill ? 2015:00014919 ; 2016:00014919 FAA6DB LD A,(NMSLPT) 2017:0001491C 5F LD E,A 2018:0001491D CB27 SLA A 2019:0001491F CB27 SLA A 2020:00014921 83 ADD A,E 2021:00014922 5F LD E,A 2022:00014923 1600 LD D,$00 2023:00014925 0E05 LD C,$05 2024:00014927 ;; LD C,$04 2025:00014927 2180DB LD HL,NAMEBF 2026:0001492A 19 ADD HL,DE 2027:0001492B ; 2028:0001492B PS1008 2029:0001492B 2A LD A,(HLI) 2030:0001492C A7 AND A 2031:0001492D 2011 JR NZ,PS100C 2032:0001492F ; 2033:0001492F 0D DEC C 2034:00014930 20F9 JR NZ,PS1008 ; Already Name in? 2035:00014932 ; ; NO ! goto touroku! 2036:00014932 AF XOR A 2037:00014933 EA96DB LD (ITMODE),A 2038:00014936 ; 2039:00014936 3E00 LD A,NMREG 2040:00014938 EA95DB LD (GMMODE),A 2041:0001493B KETTEIS 2042:0001493B ;決定音セット 2043:0001493B 3E13 LD A,$13 2044:0001493D E0F2 LD (SOUND1),A ;(S) 2045:0001493F C9 RET 2046:00014940 PS100C 2047:00014940 CD3B49 CALL KETTEIS ;(S) 2048:00014943 ; 2049:00014943 3E00 LD A,%00000000 ; パレット データ セット 2050:00014945 EA97DB LD (BGPFG),A 2051:00014948 EA98DB LD (OBP0FG),A 2052:0001494B EA99DB LD (OBP1FG),A 2053:0001494E ; 2054:0001494E 3E00 LD A,BKCH3 2055:00014950 EAFED6 LD (BLNKFG),A ; BG bank revise ! 2056:00014953 ; 2057:00014953 C34544 JP ITMINC ; Goto game !! 2058:00014956 PSM190 zti.s 98-11-10 11:31:47......PAGE 0055 LINE# LOC CODE LINE 2059:00014956 AF XOR A 2060:00014957 EA96DB LD (ITMODE),A 2061:0001495A ; 2062:0001495A FA00D0 LD A,(NAMEOK) 2063:0001495D A7 AND A 2064:0001495E 3E00 LD A,NMCLR ; KILL 2065:00014960 2802 JR Z,PSM1A0 2066:00014962 ; 2067:00014962 3E00 LD A,NMCPY ; COPY 2068:00014964 PSM1A0 2069:00014964 EA95DB LD (GMMODE),A 2070:00014967 C33B49 JP KETTEIS ;(S) 2071:0001496A ;--------------------------------------- 2072:0001496A SVDTAD 2073:0001496A 05A4 DW SAVEI1 2074:0001496C 8AA7 DW SAVEI2 2075:0001496E 0FAB DW SAVEI3 2076:00014970 SVDTAD2 2077:00014970 05A1 DW SAVEB1 2078:00014972 8AA4 DW SAVEB2 2079:00014974 0FA8 DW SAVEB3 2080:00014976 SVDTAD3 2081:00014976 00A1 DW SAVED1 2082:00014978 85A4 DW SAVED2 2083:0001497A 0AA8 DW SAVED3 2084:0001497C ; 2085:0001497C PSLMAI2 2086:0001497C ; LD A,(NMSLPT) 2087:0001497C ; LD E,A 2088:0001497C ; LD D,$00 2089:0001497C ; LD HL,HARTCTF 2090:0001497C ; ADD HL,DE 2091:0001497C ; LD A,(HL) 2092:0001497C ; LD (HARTCT),A 2093:0001497C ; LD HL,HARTMXF 2094:0001497C ; ADD HL,DE 2095:0001497C ; LD A,(HL) 2096:0001497C ; LD (HARTMX),A 2097:0001497C ; SLA E 2098:0001497C ; LD HL,DETHCTF 2099:0001497C ; ADD HL,DE 2100:0001497C ; LD A,(HL) 2101:0001497C ; LD (DETHCT),A 2102:0001497C ;; 2103:0001497C ; SLA E 2104:0001497C ; LD HL,NAMEBF 2105:0001497C ; ADD HL,DE 2106:0001497C ; LD A,(HLI) 2107:0001497C ; LD (NAME),A 2108:0001497C ; LD A,(HLI) 2109:0001497C ; LD (NAME+1),A 2110:0001497C ; LD A,(HLI) 2111:0001497C ; LD (NAME+2),A 2112:0001497C ; LD A,(HLI) 2113:0001497C ; LD (NAME+3),A 2114:0001497C ; 2115:0001497C C3F151 JP GMSTART zti.s 98-11-10 11:31:47......PAGE 0056 LINE# LOC CODE LINE 2116:0001497F ;**************************************** 2117:0001497F ;* Name regi * 2118:0001497F ;**************************************** 2119:0001497F NMREGIS 2120:0001497F FA96DB LD A,(ITMODE) 2121:00014982 C7 RST 0 2122:00014983 8949 DW NRF0000 2123:00014985 9C49 DW NR00000 2124:00014987 BA49 DW NR10000 2125:00014989 ;;; DW NR20000 2126:00014989 ;-------------------------------------- 2127:00014989 NRF0000 2128:00014989 CD4544 CALL ITMINC 2129:0001498C ;; 2130:0001498C ; LD A,(NMSLPT) 2131:0001498C ; SLA A 2132:0001498C ; SLA A 2133:0001498C ; LD E,A 2134:0001498C ; LD D,$00 2135:0001498C ; LD C,$4 2136:0001498C ; LD HL,NAMEBF 2137:0001498C ; ADD HL,DE 2138:0001498C ;; 2139:0001498C ;NRF008 2140:0001498C ; LD A,(HLI) 2141:0001498C ; AND A 2142:0001498C ; JR NZ,NRF00C 2143:0001498C ;; 2144:0001498C ; DEC C 2145:0001498C ; JR NZ,NRF008 ; Already Name in? 2146:0001498C ;; ; yes ! goto touroku! 2147:0001498C 3E00 LD A,VRMBT 2148:0001498E EAFED6 LD (BLNKFG),A 2149:00014991 ; 2150:00014991 ;; LD A,$4 2151:00014991 ;;;; LD (SCCH),A 2152:00014991 ;; LD (SCCV),A 2153:00014991 ; 2154:00014991 AF XOR A 2155:00014992 EAA8DB LD (NRNMPT),A 2156:00014995 EAA9DB LD (NRWDPT),A 2157:00014998 EAAADB LD (MRWDPT),A 2158:0001499B C9 RET 2159:0001499C ;;- - - - - - - - - - - - - - - - - - 2160:0001499C ;NRF00C 2161:0001499C ; CALL ITMINC ; Goto game ! 2162:0001499C ; JP NR1010 2163:0001499C ;-------------------------------------- 2164:0001499C NR00000 2165:0001499C 3E00 LD A,NSLBGS 2166:0001499E EAFFD6 LD (VRFLG),A 2167:000149A1 ; 2168:000149A1 2101D6 LD HL,VRAMD+1 2169:000149A4 3E98 LD A,$98 2170:000149A6 22 LD (HLI),A 2171:000149A7 3E48 LD A,$48 2172:000149A9 22 LD (HLI),A zti.s 98-11-10 11:31:47......PAGE 0057 LINE# LOC CODE LINE 2173:000149AA AF XOR A 2174:000149AB 22 LD (HLI),A 2175:000149AC FAA6DB LD A,(NMSLPT) 2176:000149AF C6AB ADD A,$AB 2177:000149B1 22 LD (HLI),A 2178:000149B2 AF XOR A 2179:000149B3 77 LD (HL),A 2180:000149B4 ; 2181:000149B4 C34544 JP ITMINC 2182:000149B7 ;-------------------------------------- 2183:000149B7 NRNMAD 2184:000149B7 00050A DB 0,$5,$0A 2185:000149BA ;; DB 0,4,8 2186:000149BA ; 2187:000149BA NR10000 ; Name registration main ! 2188:000149BA FAA6DB LD A,(NMSLPT) 2189:000149BD 5F LD E,A 2190:000149BE 1600 LD D,$00 2191:000149C0 21B749 LD HL,NRNMAD 2192:000149C3 19 ADD HL,DE 2193:000149C4 5E LD E,(HL) 2194:000149C5 2180DB LD HL,NAMEBF 2195:000149C8 19 ADD HL,DE 2196:000149C9 E5 PUSH HL 2197:000149CA D1 POP DE 2198:000149CB ; 2199:000149CB ; LD DE,NAMEBF ; 1P 2200:000149CB ;; 2201:000149CB ; LD A,(NMSLPT) 2202:000149CB ; CP $01 2203:000149CB ; JR NZ,NR1008 2204:000149CB ;; 2205:000149CB ; LD DE,NAMEBF+4 ; 2P 2206:000149CB ;NR1008 2207:000149CB 014998 LD BC,$9849 2208:000149CE ;; LD BC,$984A 2209:000149CE CD9B47 CALL NAMEDP 2210:000149D1 ; 2211:000149D1 F0CC LD A,(KEYA2) 2212:000149D3 E680 AND %10000000 2213:000149D5 CA6A4A JP Z,NMR010 2214:000149D8 ; 2215:000149D8 NR1010 2216:000149D8 CD3B49 CALL KETTEIS ;(S) 2217:000149DB ;;;; DATA SAVE SET 2218:000149DB ; 2219:000149DB ; LD A,(NMSLPT) 2220:000149DB ; LD E,A 2221:000149DB ; LD D,$00 2222:000149DB ; 2223:000149DB ; CP $00 2224:000149DB ; JR Z,SSSWW 2225:000149DB ;; 2226:000149DB ; LD HL,HARTCTF 2227:000149DB ; ADD HL,DE 2228:000149DB ; LD (HL),$18 2229:000149DB ; LD HL,HARTMXF zti.s 98-11-10 11:31:47......PAGE 0058 LINE# LOC CODE LINE 2230:000149DB ; ADD HL,DE 2231:000149DB ; LD (HL),$03 2232:000149DB ;; 2233:000149DB ;SSSWW 2234:000149DB ; SLA E 2235:000149DB ; LD HL,DETHCTF 2236:000149DB ; ADD HL,DE 2237:000149DB ; XOR A 2238:000149DB ; LD (HLI),A 2239:000149DB ; LD (HL),A 2240:000149DB ; 2241:000149DB FAA6DB LD A,(NMSLPT) 2242:000149DE CB27 SLA A 2243:000149E0 5F LD E,A 2244:000149E1 1600 LD D,$00 2245:000149E3 216A49 LD HL,SVDTAD 2246:000149E6 19 ADD HL,DE 2247:000149E7 2A LD A,(HLI) 2248:000149E8 66 LD H,(HL) 2249:000149E9 6F LD L,A 2250:000149EA E5 PUSH HL 2251:000149EB 114F00 LD DE,NAME-SAVEBF 2252:000149EE 19 ADD HL,DE 2253:000149EF E5 PUSH HL 2254:000149F0 ; 2255:000149F0 FAA6DB LD A,(NMSLPT) 2256:000149F3 5F LD E,A 2257:000149F4 CB27 SLA A 2258:000149F6 CB27 SLA A 2259:000149F8 83 ADD A,E 2260:000149F9 5F LD E,A 2261:000149FA 1600 LD D,$00 2262:000149FC 2180DB LD HL,NAMEBF 2263:000149FF 19 ADD HL,DE 2264:00014A00 ; 2265:00014A00 ;----------------------------------- 2266:00014A00 2A LD A,(HLI) 2267:00014A01 FE4E CP $4E 2268:00014A03 2018 JR NZ,TOCK00 2269:00014A05 ; 2270:00014A05 2A LD A,(HLI) 2271:00014A06 FE50 CP $50 2272:00014A08 2013 JR NZ,TOCK00 2273:00014A0A ; 2274:00014A0A 2A LD A,(HLI) 2275:00014A0B FE5A CP $5A 2276:00014A0D 200E JR NZ,TOCK00 2277:00014A0F ; 2278:00014A0F 2A LD A,(HLI) 2279:00014A10 FE54 CP $54 2280:00014A12 2009 JR NZ,TOCK00 2281:00014A14 ; 2282:00014A14 2A LD A,(HLI) 2283:00014A15 FE46 CP $46 2284:00014A17 2004 JR NZ,TOCK00 ;MOYSE? 2285:00014A19 ; 2286:00014A19 3E3C LD A,$3C zti.s 98-11-10 11:31:47......PAGE 0059 LINE# LOC CODE LINE 2287:00014A1B 181F JR TOCK0C 2288:00014A1D TOCK00 2289:00014A1D 2180DB LD HL,NAMEBF 2290:00014A20 19 ADD HL,DE 2291:00014A21 ;--------------------------- 2292:00014A21 2A LD A,(HLI) 2293:00014A22 FE5B CP $5B 2294:00014A24 2019 JR NZ,NMSD10 2295:00014A26 2A LD A,(HLI) 2296:00014A27 FE46 CP $46 2297:00014A29 2014 JR NZ,NMSD10 2298:00014A2B 2A LD A,(HLI) 2299:00014A2C FE4D CP $4D 2300:00014A2E 200F JR NZ,NMSD10 2301:00014A30 2A LD A,(HLI) 2302:00014A31 FE45 CP $45 2303:00014A33 200A JR NZ,NMSD10 2304:00014A35 2A LD A,(HLI) 2305:00014A36 FE42 CP $42 2306:00014A38 2005 JR NZ,NMSD10 ;Z E L D A ? 2307:00014A3A ; ;YES ! 2308:00014A3A 3E60 LD A,$60 2309:00014A3C TOCK0C 2310:00014A3C EA68D3 LD (SOUND4),A ;(S) 2311:00014A3F ; 2312:00014A3F NMSD10 2313:00014A3F 2180DB LD HL,NAMEBF 2314:00014A42 19 ADD HL,DE 2315:00014A43 C1 POP BC 2316:00014A44 ; 2317:00014A44 ;; CALL SVOPEN ;(SV) 2318:00014A44 ; 2319:00014A44 1E05 LD E,$05 2320:00014A46 ;; LD E,$04 2321:00014A46 NMS010 2322:00014A46 CD0000 CALL SVOPEN ;(SV) 2323:00014A49 2A LD A,(HLI) 2324:00014A4A 02 LD (BC),A 2325:00014A4B 03 INC BC 2326:00014A4C 1D DEC E 2327:00014A4D 20F7 JR NZ,NMS010 2328:00014A4F ; 2329:00014A4F E1 POP HL 2330:00014A50 E5 PUSH HL 2331:00014A51 115A00 LD DE,HARTCT-SAVEBF 2332:00014A54 19 ADD HL,DE 2333:00014A55 3618 LD (HL),$18 2334:00014A57 ; 2335:00014A57 E1 POP HL 2336:00014A58 E5 PUSH HL 2337:00014A59 115B00 LD DE,HARTMX-SAVEBF 2338:00014A5C 19 ADD HL,DE 2339:00014A5D 3603 LD (HL),$03 2340:00014A5F ; 2341:00014A5F E1 POP HL 2342:00014A60 115700 LD DE,DETHCT-SAVEBF 2343:00014A63 19 ADD HL,DE zti.s 98-11-10 11:31:47......PAGE 0060 LINE# LOC CODE LINE 2344:00014A64 AF XOR A 2345:00014A65 22 LD (HLI),A 2346:00014A66 77 LD (HL),A 2347:00014A67 ; 2348:00014A67 C3BF44 JP PSLGO ; Back to the player select mode ! 2349:00014A6A ;- - - - - - - - - - - - - - - - - - - - - - - - 2350:00014A6A NMR010 2351:00014A6A CD664B CALL NMRSUB 2352:00014A6D CDFB4B CALL NMRSUB2 ;;;;;;;;;;;;;;;; BOMB 2353:00014A70 ;;; CALL NMRSUB3 ;;;;;;;;;;;;;;;; BOMB 2354:00014A70 C9 RET 2355:00014A71 ;----------------------------------------------- 2356:00014A71 CARYDT 2357:00014A71 3838383838383838 DB $38,$38,$38,$38,$38,$38,$38,$38,$38,$38,$38,$38,$38,$38,$38,$38 2358:00014A81 4848484848484848 DB $48,$48,$48,$48,$48,$48,$48,$48,$48,$48,$48,$48,$48,$48,$48,$48 2359:00014A91 5858585858585858 DB $58,$58,$58,$58,$58,$58,$58,$58,$58,$58,$58,$58,$58,$58,$58,$58 2360:00014AA1 6868686868686868 DB $68,$68,$68,$68,$68,$68,$68,$68,$68,$68,$68,$68,$68,$68,$68,$68 2361:00014AB1 7878787878787878 DB $78,$78,$78,$78,$78,$78,$78,$78,$78,$78,$78,$78,$78,$78,$78,$78 2362:00014AC1 ; 2363:00014AC1 CARXDT 2364:00014AC1 141C242C343C444C DB $14,$1C,$24,$2C,$34,$3C,$44,$4C,$54,$5C,$64,$6C,$74,$7C,$84,$8C 2365:00014AD1 141C242C343C444C DB $14,$1C,$24,$2C,$34,$3C,$44,$4C,$54,$5C,$64,$6C,$74,$7C,$84,$8C 2366:00014AE1 141C242C343C444C DB $14,$1C,$24,$2C,$34,$3C,$44,$4C,$54,$5C,$64,$6C,$74,$7C,$84,$8C 2367:00014AF1 141C242C343C444C DB $14,$1C,$24,$2C,$34,$3C,$44,$4C,$54,$5C,$64,$6C,$74,$7C,$84,$8C 2368:00014B01 141C242C343C444C DB $14,$1C,$24,$2C,$34,$3C,$44,$4C,$54,$5C,$64,$6C,$74,$7C,$84,$8C 2369:00014B11 ; 2370:00014B11 C2XDT 2371:00014B11 4C545C646C DB $4C,$54,$5C,$64,$6C 2372:00014B16 ; 2373:00014B16 NMZHYO 2374:00014B16 42C5434445464700 DB $42,$C5,$43,$44,$45,$46,$47,0,0,$62,$E5,$63,$64,$65,$66,$67 2375:00014B26 48494A4B4C4D4E00 DB $48,$49,$4A,$4B,$4C,$4D,$4E,0,0,$68,$69,$6A,$6B,$6C,$6D,$6E 2376:00014B36 4F50D75152535400 DB $4F,$50,$D7,$51,$52,$53,$54,0,0,$6F,$70,$F7,$71,$72,$73,$74 2377:00014B46 5556DD5758595A00 DB $55,$56,$DD,$57,$58,$59,$5A,0,0,$E0,$75,$76,$FD,$77,$78,$79 2378:00014B56 5B00000000000000 DB $5B,000,000,000,000,000,000,0,0,$7A,$7B,000,000,000,000,000 2379:00014B66 ; 2380:00014B66 ; DB $01,$06,$0B,$10,$15,$1A,$1F,$24,$27,$2C,$00,$86,$8B,$90,$9A,$5A 2381:00014B66 ; DB $02,$07,$0C,$11,$16,$1B,$20,$25,$28,$2D,$00,$87,$8C,$91,$9B,$5B 2382:00014B66 ; DB $03,$08,$0D,$12,$17,$1C,$21,$26,$29,$3F,$00,$88,$8D,$92,$9C,$5C 2383:00014B66 ; DB $04,$09,$0E,$13,$18,$1D,$22,$2F,$2A,$30,$00,$89,$8E,$93,$9D,$5D 2384:00014B66 ; DB $05,$0A,$0F,$14,$19,$1E,$23,$40,$2B,$2E,$00,$8A,$8F,$94,$9E,$5E 2385:00014B66 ; 2386:00014B66 ;SBHDT 2387:00014B66 ; DB $0C,$9A,$1A,$27 2388:00014B66 ;=============================================== 2389:00014B66 NMRSUB 2390:00014B66 ;; さっさとやらんかあ 柴原あああ ！！ 2391:00014B66 ;; フラグが立っていた場合 2392:00014B66 ; 2393:00014B66 F0CC LD A,(KEYA2) 2394:00014B68 NMRS10 2395:00014B68 E0D7 LD (WORK0),A 2396:00014B6A F0D7 LD A,(WORK0) 2397:00014B6C E60C AND $0C 2398:00014B6E 2042 JR NZ,UD 2399:00014B70 ; 2400:00014B70 F0D7 LD A,(WORK0) zti.s 98-11-10 11:31:47......PAGE 0061 LINE# LOC CODE LINE 2401:00014B72 E603 AND $03 2402:00014B74 ;; JR Z,TLMAIN ;;;;;;;;;COAMSET 2403:00014B74 201C JR NZ,LR ;;;;;;;;;COAMSET 2404:00014B76 ; 2405:00014B76 F0CB LD A,(KEYA1) 2406:00014B78 2182C1 LD HL,WDMVCT 2407:00014B7B E60F AND $0F 2408:00014B7D 2004 JR NZ,NMRS20 2409:00014B7F ; 2410:00014B7F AF XOR A 2411:00014B80 77 LD (HL),A 2412:00014B81 180D JR NMRS30 2413:00014B83 NMRS20 2414:00014B83 7E LD A,(HL) 2415:00014B84 3C INC A 2416:00014B85 77 LD (HL),A 2417:00014B86 FE18 CP $18 2418:00014B88 2006 JR NZ,NMRS30 2419:00014B8A ; 2420:00014B8A ;; LD A,$15 2421:00014B8A 3615 LD (HL),$15 ;A 2422:00014B8C F0CB LD A,(KEYA1) 2423:00014B8E 18D8 JR NMRS10 2424:00014B90 NMRS30 2425:00014B90 1842 JR TLMAIN 2426:00014B92 ;=============================== 2427:00014B92 LR 2428:00014B92 CD0000 CALL CURSDSS ;(S) 2429:00014B95 ; 2430:00014B95 CB4F BIT 1,A 2431:00014B97 200C JR NZ,CLEFT 2432:00014B99 ; 2433:00014B99 FAA9DB LD A,(NRWDPT) 2434:00014B9C C601 ADD A,$01 2435:00014B9E FE50 CP $50 2436:00014BA0 382D JR C,LRMAIN 2437:00014BA2 ; 2438:00014BA2 AF XOR A 2439:00014BA3 182A JR LRMAIN 2440:00014BA5 ; 2441:00014BA5 CLEFT 2442:00014BA5 FAA9DB LD A,(NRWDPT) 2443:00014BA8 D601 SUB $01 2444:00014BAA FEFF CP $FF 2445:00014BAC 2021 JR NZ,LRMAIN 2446:00014BAE ; 2447:00014BAE 3E4F LD A,$4F 2448:00014BB0 181D JR LRMAIN 2449:00014BB2 ;------------------------------------ 2450:00014BB2 UD 2451:00014BB2 CD0000 CALL CURSDSS ;(S) 2452:00014BB5 ; 2453:00014BB5 CB57 BIT 2,A 2454:00014BB7 280B JR Z,UE 2455:00014BB9 ; 2456:00014BB9 FAA9DB LD A,(NRWDPT) 2457:00014BBC D610 SUB $10 zti.s 98-11-10 11:31:47......PAGE 0062 LINE# LOC CODE LINE 2458:00014BBE 300F JR NC,LRMAIN 2459:00014BC0 ; 2460:00014BC0 C650 ADD A,$50 2461:00014BC2 180B JR LRMAIN 2462:00014BC4 ; 2463:00014BC4 UE 2464:00014BC4 FAA9DB LD A,(NRWDPT) 2465:00014BC7 C610 ADD A,$10 2466:00014BC9 FE50 CP $50 2467:00014BCB 3802 JR C,LRMAIN 2468:00014BCD ; 2469:00014BCD D650 SUB $50 2470:00014BCF LRMAIN 2471:00014BCF EAA9DB LD (NRWDPT),A 2472:00014BD2 1800 JR TL2MAIN 2473:00014BD4 ; 2474:00014BD4 TLMAIN 2475:00014BD4 ; 2476:00014BD4 ; LD A,(FRCNT) 2477:00014BD4 ; AND %00010000 2478:00014BD4 ; JR Z,COMRET 2479:00014BD4 ; 2480:00014BD4 TL2MAIN 2481:00014BD4 FAA9DB LD A,(NRWDPT) 2482:00014BD7 21C14A LD HL,CARXDT 2483:00014BDA 4F LD C,A 2484:00014BDB 0600 LD B,$0 2485:00014BDD 09 ADD HL,BC 2486:00014BDE 5E LD E,(HL) 2487:00014BDF ; 2488:00014BDF FAA9DB LD A,(NRWDPT) 2489:00014BE2 21714A LD HL,CARYDT 2490:00014BE5 4F LD C,A 2491:00014BE6 0600 LD B,$0 2492:00014BE8 09 ADD HL,BC 2493:00014BE9 56 LD D,(HL) 2494:00014BEA ;------------------------------------ 2495:00014BEA COAMSET 2496:00014BEA 2100C0 LD HL,OAM 2497:00014BED ; 2498:00014BED 7A LD A,D 2499:00014BEE C60B ADD A,$B 2500:00014BF0 22 LD (HLI),A 2501:00014BF1 ; 2502:00014BF1 7B LD A,E 2503:00014BF2 C604 ADD A,$4 2504:00014BF4 22 LD (HLI),A 2505:00014BF5 ; 2506:00014BF5 3EE0 LD A,$E0 2507:00014BF7 22 LD (HLI),A 2508:00014BF8 ; 2509:00014BF8 AF XOR A 2510:00014BF9 77 LD (HL),A 2511:00014BFA ; 2512:00014BFA COMRET 2513:00014BFA C9 RET 2514:00014BFB ;====================================== zti.s 98-11-10 11:31:47......PAGE 0063 LINE# LOC CODE LINE 2515:00014BFB NMRSUB2 2516:00014BFB F0CC LD A,(KEYA2) 2517:00014BFD E630 AND $30 2518:00014BFF 2827 JR Z,T2MAIN 2519:00014C01 ; 2520:00014C01 CB6F BIT 5,A 2521:00014C03 2013 JR NZ,BACKB 2522:00014C05 ; 2523:00014C05 INCA 2524:00014C05 CD3B49 CALL KETTEIS ;(S) 2525:00014C08 CD4B4C CALL NMRSUB3 2526:00014C0B ; 2527:00014C0B FAAADB LD A,(MRWDPT) 2528:00014C0E C601 ADD A,$01 2529:00014C10 FE05 CP $05 2530:00014C12 ;; CP $04 2531:00014C12 3811 JR C,ABMAIN 2532:00014C14 ; 2533:00014C14 3E04 LD A,$04 2534:00014C16 ;; LD A,$03 2535:00014C16 180D JR ABMAIN 2536:00014C18 ; 2537:00014C18 ;=================================== 2538:00014C18 BACKB 2539:00014C18 CD3B49 CALL KETTEIS ;(S) 2540:00014C1B ; 2541:00014C1B FAAADB LD A,(MRWDPT) 2542:00014C1E D601 SUB $01 2543:00014C20 FEFF CP $FF 2544:00014C22 2001 JR NZ,ABMAIN 2545:00014C24 ; 2546:00014C24 AF XOR A 2547:00014C25 ABMAIN 2548:00014C25 EAAADB LD (MRWDPT),A 2549:00014C28 ; 2550:00014C28 T2MAIN 2551:00014C28 FAAADB LD A,(MRWDPT) 2552:00014C2B 21114B LD HL,C2XDT 2553:00014C2E 4F LD C,A 2554:00014C2F 0600 LD B,$0 2555:00014C31 09 ADD HL,BC 2556:00014C32 5E LD E,(HL) 2557:00014C33 ; 2558:00014C33 C2OSET 2559:00014C33 F0E7 LD A,(FRCNT) 2560:00014C35 E610 AND %00010000 2561:00014C37 2811 JR Z,C2RET 2562:00014C39 ; 2563:00014C39 2104C0 LD HL,OAM+4 2564:00014C3C ; 2565:00014C3C 3E18 LD A,$18 2566:00014C3E C60B ADD A,$B 2567:00014C40 22 LD (HLI),A 2568:00014C41 ; 2569:00014C41 7B LD A,E 2570:00014C42 C604 ADD A,$4 2571:00014C44 22 LD (HLI),A zti.s 98-11-10 11:31:47......PAGE 0064 LINE# LOC CODE LINE 2572:00014C45 ; 2573:00014C45 3EE0 LD A,$E0 2574:00014C47 22 LD (HLI),A 2575:00014C48 ; 2576:00014C48 AF XOR A 2577:00014C49 77 LD (HL),A 2578:00014C4A ; 2579:00014C4A C2RET 2580:00014C4A C9 RET 2581:00014C4B ;====================================== 2582:00014C4B NMRSUB3 2583:00014C4B FAA9DB LD A,(NRWDPT) 2584:00014C4E 4F LD C,A 2585:00014C4F 0600 LD B,$00 2586:00014C51 21164B LD HL,NMZHYO 2587:00014C54 09 ADD HL,BC 2588:00014C55 7E LD A,(HL) 2589:00014C56 5F LD E,A 2590:00014C57 ;--serclet--- 2591:00014C57 ; LD A,(MRWDPT) 2592:00014C57 ; LD C,A 2593:00014C57 ; LD HL,SBHDT 2594:00014C57 ; ADD HL,BC 2595:00014C57 ; LD E,(HL) 2596:00014C57 ;-- 2597:00014C57 FAA6DB LD A,(NMSLPT) 2598:00014C5A ;; RLCA 2599:00014C5A ;; RLCA 2600:00014C5A 4F LD C,A 2601:00014C5B CB27 SLA A 2602:00014C5D CB27 SLA A 2603:00014C5F 81 ADD A,C 2604:00014C60 4F LD C,A 2605:00014C61 2180DB LD HL,NAMEBF 2606:00014C64 09 ADD HL,BC 2607:00014C65 FAAADB LD A,(MRWDPT) 2608:00014C68 4F LD C,A 2609:00014C69 09 ADD HL,BC 2610:00014C6A 73 LD (HL),E 2611:00014C6B ; 2612:00014C6B C9 RET 2613:00014C6C ;-------------------------------------- 2614:00014C6C ;NR20000 2615:00014C6C ; CALL GMSTART 2616:00014C6C ; RET 2617:00014C6C ;**************************************** 2618:00014C6C ;* Name clear * 2619:00014C6C ;**************************************** 2620:00014C6C NMCLERS 2621:00014C6C CD355C CALL NAMECK 2622:00014C6F ; 2623:00014C6F FA96DB LD A,(ITMODE) 2624:00014C72 C7 RST 0 2625:00014C73 834C DW NC00000 2626:00014C75 924C DW NC10000 2627:00014C77 9A4C DW NC18000 2628:00014C79 A64C DW NC18002 zti.s 98-11-10 11:31:47......PAGE 0065 LINE# LOC CODE LINE 2629:00014C7B AF4C DW NC18003 2630:00014C7D B54C DW NC18004 2631:00014C7F 344D DW NC20000 2632:00014C81 A04D DW NC30000 2633:00014C83 ;-------------------------------------- 2634:00014C83 NC00000 2635:00014C83 3E00 LD A,VRMBT 2636:00014C85 EAFED6 LD (BLNKFG),A 2637:00014C88 ; 2638:00014C88 AF XOR A 2639:00014C89 EAA6DB LD (NMSLPT),A 2640:00014C8C EA00D0 LD (NAMEOK),A 2641:00014C8F C34544 JP ITMINC 2642:00014C92 ;-------------------------------------- 2643:00014C92 NC10000 2644:00014C92 3E00 LD A,NCLBGS 2645:00014C94 EAFFD6 LD (VRFLG),A 2646:00014C97 C34544 JP ITMINC 2647:00014C9A ;-------------------------------------- 2648:00014C9A NC18000 2649:00014C9A ALLNMST 2650:00014C9A CDB84C CALL NAME1ST 2651:00014C9D CDC14C CALL NAME2ST 2652:00014CA0 CDCA4C CALL NAME3ST 2653:00014CA3 C34544 JP ITMINC 2654:00014CA6 ;-------------------------------------- 2655:00014CA6 NC18002 2656:00014CA6 ALLHTST 2657:00014CA6 CDD34C CALL HART1ST 2658:00014CA9 CDEC4C CALL HART2ST 2659:00014CAC C34544 JP ITMINC 2660:00014CAF ;-------------------------------------- 2661:00014CAF NC18003 2662:00014CAF CD044D CALL HART3ST 2663:00014CB2 C34544 JP ITMINC 2664:00014CB5 ;-------------------------------------- 2665:00014CB5 NC18004 2666:00014CB5 C35547 JP ALLDETHST 2667:00014CB8 ;------------------------------------------- 2668:00014CB8 NAME1ST 2669:00014CB8 01C598 LD BC,$98C5 2670:00014CBB 1180DB LD DE,NAMEBF 2671:00014CBE C39B47 JP NAMEDP 2672:00014CC1 NAME2ST 2673:00014CC1 012599 LD BC,$9925 2674:00014CC4 1185DB LD DE,NAMEBF+5 2675:00014CC7 C39B47 JP NAMEDP 2676:00014CCA NAME3ST 2677:00014CCA 018599 LD BC,$9985 2678:00014CCD 118ADB LD DE,NAMEBF+$A 2679:00014CD0 C39B47 JP NAMEDP 2680:00014CD3 ;------------------------------------------- 2681:00014CD3 HART1ST 2682:00014CD3 FAA7DB LD A,(NAMEON) 2683:00014CD6 E601 AND %00000001 2684:00014CD8 2811 JR Z,HT1S90 ; Name aru ? 2685:00014CDA ; ; yes ! zti.s 98-11-10 11:31:47......PAGE 0066 LINE# LOC CODE LINE 2686:00014CDA 3E00 LD A,$00 2687:00014CDC E0DB LD (WORK4),A 2688:00014CDE ; 2689:00014CDE FA06DC LD A,(HARTCTF) 2690:00014CE1 E0D9 LD (WORK2),A 2691:00014CE3 FA09DC LD A,(HARTMXF) 2692:00014CE6 E0DA LD (WORK3),A 2693:00014CE8 C3C85B JP NHARTIT 2694:00014CEB HT1S90 2695:00014CEB C9 RET 2696:00014CEC ;------------------------------------------- 2697:00014CEC HART2ST 2698:00014CEC FAA7DB LD A,(NAMEON) 2699:00014CEF E602 AND %00000010 2700:00014CF1 28F8 JR Z,HT1S90 2701:00014CF3 ; 2702:00014CF3 3E01 LD A,$01 2703:00014CF5 E0DB LD (WORK4),A 2704:00014CF7 ; 2705:00014CF7 FA07DC LD A,(HARTCTF+1) 2706:00014CFA E0D9 LD (WORK2),A 2707:00014CFC FA0ADC LD A,(HARTMXF+1) 2708:00014CFF E0DA LD (WORK3),A 2709:00014D01 C3C85B JP NHARTIT 2710:00014D04 ;------------------------------------------- 2711:00014D04 HART3ST 2712:00014D04 FAA7DB LD A,(NAMEON) 2713:00014D07 E604 AND %00000100 2714:00014D09 28E0 JR Z,HT1S90 2715:00014D0B ; 2716:00014D0B 3E02 LD A,$02 2717:00014D0D E0DB LD (WORK4),A 2718:00014D0F ; 2719:00014D0F FA08DC LD A,(HARTCTF+2) 2720:00014D12 E0D9 LD (WORK2),A 2721:00014D14 FA0BDC LD A,(HARTMXF+2) 2722:00014D17 E0DA LD (WORK3),A 2723:00014D19 C3C85B JP NHARTIT 2724:00014D1C ;------------------------------------------- 2725:00014D1C NMCLD1 2726:00014D1C 98A5447E DB $98,$A5,$44,$7E 2727:00014D20 98C5447E DB $98,$C5,$44,$7E 2728:00014D24 ; DB $98,$E7,$4A,$7E 2729:00014D24 ; DB $00,$00,$00,$00 2730:00014D24 ; 2731:00014D24 NMCLD2 2732:00014D24 9905447E DB $99,$05,$44,$7E 2733:00014D28 9925447E DB $99,$25,$44,$7E 2734:00014D2C ; DB $99,$47,$4A,$7E 2735:00014D2C ; DB $00,$00,$00,$00 2736:00014D2C ; 2737:00014D2C NMCLD3 2738:00014D2C 9965447E DB $99,$65,$44,$7E 2739:00014D30 9985447E DB $99,$85,$44,$7E 2740:00014D34 ; DB $99,$A7,$4A,$7E 2741:00014D34 ; DB $00,$00,$00,$00 2742:00014D34 ;----------------------------------------- zti.s 98-11-10 11:31:47......PAGE 0067 LINE# LOC CODE LINE 2743:00014D34 NC20000 2744:00014D34 CD0000 CALL CURSDST ;(S) 2745:00014D37 ; 2746:00014D37 ; LD A,(KEYA2) 2747:00014D37 ; AND %10000000 2748:00014D37 ; JR Z,NC2020 2749:00014D37 ;; 2750:00014D37 ; JP PSLGO 2751:00014D37 ;NC2020 2752:00014D37 F0CC LD A,(KEYA2) 2753:00014D39 E648 AND %01001000 2754:00014D3B 2809 JR Z,NC2040 2755:00014D3D ; 2756:00014D3D FAA6DB LD A,(NMSLPT) 2757:00014D40 3C INC A 2758:00014D41 E603 AND $03 2759:00014D43 EAA6DB LD (NMSLPT),A 2760:00014D46 ; 2761:00014D46 ; LD A,(NMSLPT) 2762:00014D46 ; XOR $1 2763:00014D46 ; LD (NMSLPT),A 2764:00014D46 NC2040 2765:00014D46 F0CC LD A,(KEYA2) 2766:00014D48 E604 AND %00000100 2767:00014D4A 280D JR Z,NC2042 2768:00014D4C ; 2769:00014D4C FAA6DB LD A,(NMSLPT) 2770:00014D4F 3D DEC A 2771:00014D50 FEFF CP $FF 2772:00014D52 2002 JR NZ,NC2041 2773:00014D54 3E03 LD A,$03 2774:00014D56 NC2041 2775:00014D56 EAA6DB LD (NMSLPT),A 2776:00014D59 NC2042 2777:00014D59 F0CC LD A,(KEYA2) 2778:00014D5B E690 AND %10010000 2779:00014D5D 283D JR Z,NC2050 2780:00014D5F ; 2781:00014D5F FAA6DB LD A,(NMSLPT) 2782:00014D62 FE03 CP $03 2783:00014D64 2003 JR NZ,NC2043 2784:00014D66 ; 2785:00014D66 C3BF44 JP PSLGO 2786:00014D69 NC2043 2787:00014D69 CD3B49 CALL KETTEIS ;(S) 2788:00014D6C CD4544 CALL ITMINC 2789:00014D6F 181C JR OKSET 2790:00014D71 ;==================================== 2791:00014D71 QUITOKD 2792:00014D71 99C601A96F DB $99,$C6,$01,$A9,$6F 2793:00014D76 99D100A9 DB $99,$D1,$00,$A9 2794:00014D7A ; 2795:00014D7A 99E30E DB $99,$E3,$0E 2796:00014D7D ; 2797:00014D7D 7E DB $7E 2798:00014D7E 19141114020A7E7E DB $19,$14,$11,$14,$02,$0A,$7E,$7E,$7E 2799:00014D87 0E0A00183D DB $0E,$0A,$00,$18,$3D zti.s 98-11-10 11:31:47......PAGE 0068 LINE# LOC CODE LINE 2800:00014D8C 00 DB $00 2801:00014D8D ;- - - - - - - - - - - - - - - - 2802:00014D8D OKSET 2803:00014D8D 2101D6 LD HL,VRAMD+1 2804:00014D90 11714D LD DE,QUITOKD 2805:00014D93 0E1C LD C,$1C 2806:00014D95 OKST10 2807:00014D95 1A LD A,(DE) 2808:00014D96 13 INC DE 2809:00014D97 22 LD (HLI),A 2810:00014D98 ; 2811:00014D98 0D DEC C 2812:00014D99 20FA JR NZ,OKST10 2813:00014D9B ; 2814:00014D9B C9 RET 2815:00014D9C ;; CALL ITMINC 2816:00014D9C NC2050 2817:00014D9C CDCC48 CALL FOAMSET 2818:00014D9F C9 RET 2819:00014DA0 ;-------------------------------------- 2820:00014DA0 NC30000 2821:00014DA0 F0CC LD A,(KEYA2) 2822:00014DA2 CB6F BIT 5,A 2823:00014DA4 202E JR NZ,NC3001 2824:00014DA6 ; 2825:00014DA6 E690 AND %10010000 2826:00014DA8 CA484E JP Z,NC3010 2827:00014DAB ; 2828:00014DAB FA00D0 LD A,(NAMEOK) 2829:00014DAE A7 AND A 2830:00014DAF CABF44 JP Z,PSLGO ;NC3001 ; CLEAR OK ? 2831:00014DB2 ; ; YES ! 2832:00014DB2 ; LD A,(NMSLPT) 2833:00014DB2 ; RLA 2834:00014DB2 ; RLA 2835:00014DB2 ; LD E,A 2836:00014DB2 ; LD D,$00 2837:00014DB2 ; LD HL,NAMEBF 2838:00014DB2 ; ADD HL,DE 2839:00014DB2 ; LD C,$04 2840:00014DB2 ; XOR A 2841:00014DB2 ;NC30F0 2842:00014DB2 ; LD (HLI),A 2843:00014DB2 ; DEC C 2844:00014DB2 ; JR NZ,NC30F0 2845:00014DB2 ;- - - Save data clear - - - - - 2846:00014DB2 CD3B49 CALL KETTEIS ;(S) 2847:00014DB5 ; 2848:00014DB5 FAA6DB LD A,(NMSLPT) 2849:00014DB8 CB27 SLA A 2850:00014DBA 5F LD E,A 2851:00014DBB 1600 LD D,$00 2852:00014DBD 217049 LD HL,SVDTAD2 2853:00014DC0 19 ADD HL,DE 2854:00014DC1 2A LD A,(HLI) 2855:00014DC2 66 LD H,(HL) 2856:00014DC3 6F LD L,A zti.s 98-11-10 11:31:47......PAGE 0069 LINE# LOC CODE LINE 2857:00014DC4 ; 2858:00014DC4 ;; CALL SVOPEN ;(SV) 2859:00014DC4 ; 2860:00014DC4 118003 LD DE,$100+$200+$7F+$01 2861:00014DC7 NC30F8 2862:00014DC7 CD0000 CALL SVOPEN ;(SV) 2863:00014DCA AF XOR A 2864:00014DCB 22 LD (HLI),A 2865:00014DCC 1B DEC DE 2866:00014DCD 7B LD A,E 2867:00014DCE B2 OR D 2868:00014DCF 20F6 JR NZ,NC30F8 2869:00014DD1 ; 2870:00014DD1 C3BF44 JP PSLGO 2871:00014DD4 ;------------------------------------------ 2872:00014DD4 NC3001 ; Recover ! 2873:00014DD4 CD544E CALL NMRCVR 2874:00014DD7 ; 2875:00014DD7 CD234E CALL OKCLEAR 2876:00014DDA NC300F 2877:00014DDA 2196DB LD HL,ITMODE 2878:00014DDD 35 DEC (HL) 2879:00014DDE C9 RET 2880:00014DDF ;- - - - - - - - - - - - - - - - 2881:00014DDF ;----------------------------------------- 2882:00014DDF OKCLDT ;CLEAR 2883:00014DDF 99C60B DB $99,$C6,$0B 2884:00014DE2 A96FA9A9A9A9A9A9 DB $A9,$6F,$A9,$A9,$A9,$A9,$A9,$A9,$A9,$A9,$A9,$6F 2885:00014DEE ; 2886:00014DEE 99E40D DB $99,$E4,$0D 2887:00014DF1 19141114020A6B6C DB $19,$14,$11,$14,$02,$0A,$6B,$6C,$6D,$6E,$0C 2888:00014DFC 040D14 DB $04,$0D,$14 2889:00014DFF 00 DB $00 2890:00014E00 00 DB $00 2891:00014E01 OKCLDT2 ;COPY 2892:00014E01 99C60B DB $99,$C6,$0B 2893:00014E04 6FA9A9A9A9A9A9A9 DB $6F,$A9,$A9,$A9,$A9,$A9,$A9,$A9,$A9,$A9,$A9,$6F 2894:00014E10 ; 2895:00014E10 99E30E DB $99,$E3,$0E 2896:00014E13 19141114020A7E19 DB $19,$14,$11,$14,$02,$0A,$7E,$19,$14,$0C,$7E 2897:00014E1E 0C040D14 DB $0C,$04,$0D,$14 2898:00014E22 00 DB $00 2899:00014E23 ;- - - - - - - - - - - - - - - - - - - 2900:00014E23 OKCLEAR 2901:00014E23 FA00D6 LD A,(VRAMD) 2902:00014E26 5F LD E,A 2903:00014E27 C621 ADD A,$21 2904:00014E29 EA00D6 LD (VRAMD),A 2905:00014E2C 1600 LD D,$00 2906:00014E2E ; 2907:00014E2E 2101D6 LD HL,VRAMD+1 2908:00014E31 19 ADD HL,DE 2909:00014E32 ; 2910:00014E32 11DF4D LD DE,OKCLDT 2911:00014E35 ; 2912:00014E35 FA95DB LD A,(GMMODE) 2913:00014E38 FE00 CP NMCPY zti.s 98-11-10 11:31:47......PAGE 0070 LINE# LOC CODE LINE 2914:00014E3A 2003 JR NZ,OKCL08 2915:00014E3C ; 2916:00014E3C 11014E LD DE,OKCLDT2 2917:00014E3F OKCL08 2918:00014E3F 0E22 LD C,$22 2919:00014E41 OKCL10 2920:00014E41 1A LD A,(DE) 2921:00014E42 13 INC DE 2922:00014E43 22 LD (HLI),A 2923:00014E44 0D DEC C 2924:00014E45 20FA JR NZ,OKCL10 2925:00014E47 ; 2926:00014E47 C9 RET 2927:00014E48 ; 2928:00014E48 NC3010 2929:00014E48 CD7B4E CALL OKOAMST 2930:00014E4B ; 2931:00014E4B CDCC48 CALL FOAMSET 2932:00014E4E ; 2933:00014E4E F0E7 LD A,(FRCNT) 2934:00014E50 E610 AND $10 2935:00014E52 280A JR Z,NC3008 2936:00014E54 ;----------------------------------- 2937:00014E54 NMRCVR 2938:00014E54 FAA6DB LD A,(NMSLPT) 2939:00014E57 C7 RST 0 2940:00014E58 B84C DW NAME1ST 2941:00014E5A C14C DW NAME2ST 2942:00014E5C CA4C DW NAME3ST 2943:00014E5E ;----------------------------------- 2944:00014E5E NC3008 2945:00014E5E FAA6DB LD A,(NMSLPT) 2946:00014E61 17 RLA 2947:00014E62 17 RLA 2948:00014E63 17 RLA 2949:00014E64 ;; RLA 2950:00014E64 E6F8 AND $F8 2951:00014E66 5F LD E,A 2952:00014E67 1600 LD D,$0 2953:00014E69 211C4D LD HL,NMCLD1 2954:00014E6C 19 ADD HL,DE 2955:00014E6D 1101D6 LD DE,VRAMD+1 2956:00014E70 0E08 LD C,$08 2957:00014E72 NC3090 2958:00014E72 2A LD A,(HLI) 2959:00014E73 12 LD (DE),A 2960:00014E74 13 INC DE 2961:00014E75 0D DEC C 2962:00014E76 20FA JR NZ,NC3090 2963:00014E78 ; 2964:00014E78 AF XOR A 2965:00014E79 12 LD (DE),A 2966:00014E7A C9 RET 2967:00014E7B ;========================================= 2968:00014E7B OKOAMST 2969:00014E7B F0CC LD A,(KEYA2) 2970:00014E7D E643 AND %01000011 zti.s 98-11-10 11:31:47......PAGE 0071 LINE# LOC CODE LINE 2971:00014E7F 280B JR Z,NC3020 2972:00014E81 ; 2973:00014E81 CD0000 CALL CURSDSS ;(S) 2974:00014E84 ; 2975:00014E84 FA00D0 LD A,(NAMEOK) 2976:00014E87 EE01 XOR $01 2977:00014E89 EA00D0 LD (NAMEOK),A 2978:00014E8C NC3020 2979:00014E8C F0E7 LD A,(FRCNT) 2980:00014E8E E610 AND $10 2981:00014E90 2017 JR NZ,NC3038 2982:00014E92 ; 2983:00014E92 FA00D0 LD A,(NAMEOK) 2984:00014E95 5F LD E,A 2985:00014E96 ; 2986:00014E96 ; LD A,(GMMODE) 2987:00014E96 ; CP NMCPY 2988:00014E96 ; LD A,$1C 2989:00014E96 ; JR NZ,NC3028 2990:00014E96 ; LD A,$14 2991:00014E96 ;NC3028 2992:00014E96 3E1E LD A,$1E 2993:00014E98 1D DEC E 2994:00014E99 2002 JR NZ,NC3030 2995:00014E9B 3E66 LD A,$66 2996:00014E9D NC3030 2997:00014E9D 210CC0 LD HL,OAM+$0C 2998:00014EA0 3688 LD (HL),$88 2999:00014EA2 23 INC HL 3000:00014EA3 22 LD (HLI),A 3001:00014EA4 ; 3002:00014EA4 3EBE LD A,$BE 3003:00014EA6 22 LD (HLI),A 3004:00014EA7 ; 3005:00014EA7 AF XOR A 3006:00014EA8 77 LD (HL),A 3007:00014EA9 NC3038 3008:00014EA9 C9 RET 3009:00014EAA ; 3010:00014EAA ;============================================= 3011:00014EAA DENODT 3012:00014EAA B0B1B2B3B4B5B6B7 DB $B0,$B1,$B2,$B3,$B4,$B5,$B6,$B7,$B8,$B9 3013:00014EB4 ; 3014:00014EB4 DETHCST 3015:00014EB4 E5 PUSH HL 3016:00014EB5 ; 3017:00014EB5 FA00D6 LD A,(VRAMD) 3018:00014EB8 4F LD C,A 3019:00014EB9 C606 ADD A,$06 3020:00014EBB EA00D6 LD (VRAMD),A 3021:00014EBE ; 3022:00014EBE 0600 LD B,$00 3023:00014EC0 2101D6 LD HL,VRAMD+1 3024:00014EC3 09 ADD HL,BC 3025:00014EC4 7A LD A,D 3026:00014EC5 22 LD (HLI),A 3027:00014EC6 ; zti.s 98-11-10 11:31:47......PAGE 0072 LINE# LOC CODE LINE 3028:00014EC6 7B LD A,E 3029:00014EC7 22 LD (HLI),A 3030:00014EC8 ; 3031:00014EC8 3E02 LD A,$02 3032:00014ECA 22 LD (HLI),A 3033:00014ECB ; 3034:00014ECB C1 POP BC 3035:00014ECC E5 PUSH HL 3036:00014ECD ; 3037:00014ECD 79 LD A,C 3038:00014ECE E60F AND $0F 3039:00014ED0 5F LD E,A 3040:00014ED1 1600 LD D,$00 3041:00014ED3 21AA4E LD HL,DENODT 3042:00014ED6 19 ADD HL,DE 3043:00014ED7 7E LD A,(HL) 3044:00014ED8 ; 3045:00014ED8 E1 POP HL 3046:00014ED9 ; 3047:00014ED9 22 LD (HLI),A 3048:00014EDA ; 3049:00014EDA E5 PUSH HL 3050:00014EDB ; 3051:00014EDB 78 LD A,B 3052:00014EDC E6F0 AND $F0 3053:00014EDE CB37 SWAP A 3054:00014EE0 5F LD E,A 3055:00014EE1 1600 LD D,$00 3056:00014EE3 21AA4E LD HL,DENODT 3057:00014EE6 19 ADD HL,DE 3058:00014EE7 7E LD A,(HL) 3059:00014EE8 ; 3060:00014EE8 E1 POP HL 3061:00014EE9 ; 3062:00014EE9 22 LD (HLI),A 3063:00014EEA ; 3064:00014EEA E5 PUSH HL 3065:00014EEB ; 3066:00014EEB 78 LD A,B 3067:00014EEC E60F AND $0F 3068:00014EEE 5F LD E,A 3069:00014EEF 1600 LD D,$00 3070:00014EF1 21AA4E LD HL,DENODT 3071:00014EF4 19 ADD HL,DE 3072:00014EF5 7E LD A,(HL) 3073:00014EF6 ; 3074:00014EF6 E1 POP HL 3075:00014EF7 ; 3076:00014EF7 22 LD (HLI),A 3077:00014EF8 ; 3078:00014EF8 AF XOR A 3079:00014EF9 77 LD (HL),A 3080:00014EFA ; 3081:00014EFA C9 RET 3082:00014EFB ;**************************************** 3083:00014EFB ;* Name copy * 3084:00014EFB ;**************************************** zti.s 98-11-10 11:31:47......PAGE 0073 LINE# LOC CODE LINE 3085:00014EFB NMCOPYS 3086:00014EFB FA96DB LD A,(ITMODE) 3087:00014EFE C7 RST 0 3088:00014EFF 0D4F DW NCP0000 3089:00014F01 224F DW NCP1000 3090:00014F03 2A4F DW NCP2000 3091:00014F05 484F DW NCP2001 3092:00014F07 664F DW NCP3000 3093:00014F09 2C50 DW NCP4000 3094:00014F0B 3651 DW NCP5000 3095:00014F0D ;=============================================== 3096:00014F0D NCP0000 3097:00014F0D 3E00 LD A,VRMBT 3098:00014F0F EAFED6 LD (BLNKFG),A 3099:00014F12 ; 3100:00014F12 AF XOR A 3101:00014F13 EAA6DB LD (NMSLPT),A 3102:00014F16 EA00D0 LD (NAMEOK),A 3103:00014F19 EA01D0 LD (NMCPP1),A 3104:00014F1C EA02D0 LD (NMCPP2),A 3105:00014F1F ; 3106:00014F1F C34544 JP ITMINC 3107:00014F22 ;=============================================== 3108:00014F22 NCP1000 3109:00014F22 3E00 LD A,NCPBGS 3110:00014F24 EAFFD6 LD (VRFLG),A 3111:00014F27 C34544 JP ITMINC 3112:00014F2A ;=============================================== 3113:00014F2A NCP2000 3114:00014F2A 01C498 LD BC,$98C4 3115:00014F2D 1180DB LD DE,NAMEBF 3116:00014F30 CD9B47 CALL NAMEDP 3117:00014F33 012499 LD BC,$9924 3118:00014F36 1185DB LD DE,NAMEBF+5 3119:00014F39 CD9B47 CALL NAMEDP 3120:00014F3C 018499 LD BC,$9984 3121:00014F3F 118ADB LD DE,NAMEBF+$A 3122:00014F42 CD9B47 CALL NAMEDP 3123:00014F45 ; 3124:00014F45 C34544 JP ITMINC 3125:00014F48 ;=============================================== 3126:00014F48 NCP2001 3127:00014F48 01CD98 LD BC,$98CD 3128:00014F4B 1180DB LD DE,NAMEBF 3129:00014F4E CD9B47 CALL NAMEDP 3130:00014F51 012D99 LD BC,$992D 3131:00014F54 1185DB LD DE,NAMEBF+5 3132:00014F57 CD9B47 CALL NAMEDP 3133:00014F5A 018D99 LD BC,$998D 3134:00014F5D 118ADB LD DE,NAMEBF+$A 3135:00014F60 CD9B47 CALL NAMEDP 3136:00014F63 ; 3137:00014F63 C34544 JP ITMINC 3138:00014F66 ;=============================================== 3139:00014F66 NCP3000 3140:00014F66 CD0000 CALL CURSDST ;(S) 3141:00014F69 ; zti.s 98-11-10 11:31:47......PAGE 0074 LINE# LOC CODE LINE 3142:00014F69 F0CC LD A,(KEYA2) 3143:00014F6B E648 AND %01001000 3144:00014F6D 2809 JR Z,CP3040 3145:00014F6F ; 3146:00014F6F FA01D0 LD A,(NMCPP1) 3147:00014F72 3C INC A 3148:00014F73 E603 AND $03 3149:00014F75 EA01D0 LD (NMCPP1),A 3150:00014F78 ; 3151:00014F78 CP3040 3152:00014F78 F0CC LD A,(KEYA2) 3153:00014F7A E604 AND %00000100 3154:00014F7C 280D JR Z,CP3042 3155:00014F7E ; 3156:00014F7E FA01D0 LD A,(NMCPP1) 3157:00014F81 3D DEC A 3158:00014F82 FEFF CP $FF 3159:00014F84 2002 JR NZ,CP3041 3160:00014F86 3E03 LD A,$03 3161:00014F88 CP3041 3162:00014F88 EA01D0 LD (NMCPP1),A 3163:00014F8B CP3042 3164:00014F8B ;=================================== 3165:00014F8B F0CC LD A,(KEYA2) 3166:00014F8D E690 AND %10010000 3167:00014F8F 280E JR Z,CP3080 3168:00014F91 ; 3169:00014F91 FA01D0 LD A,(NMCPP1) 3170:00014F94 FE03 CP $03 3171:00014F96 CABF44 JP Z,PSLGO 3172:00014F99 ; 3173:00014F99 CD4544 CALL ITMINC 3174:00014F9C CD3B49 CALL KETTEIS ;(S) 3175:00014F9F CP3080 3176:00014F9F ;----------------------------------------- 3177:00014F9F FOAMSET2 3178:00014F9F FA01D0 LD A,(NMCPP1) 3179:00014FA2 5F LD E,A 3180:00014FA3 1600 LD D,$0 3181:00014FA5 213948 LD HL,FYOPDT 3182:00014FA8 19 ADD HL,DE 3183:00014FA9 ; 3184:00014FA9 F0E7 LD A,(FRCNT) 3185:00014FAB E608 AND %00001000 3186:00014FAD 7E LD A,(HL) 3187:00014FAE 2100C0 LD HL,OAM 3188:00014FB1 FO2SUB 3189:00014FB1 2817 JR Z,FO2010 3190:00014FB3 ; 3191:00014FB3 F5 PUSH AF 3192:00014FB4 22 LD (HLI),A 3193:00014FB5 3E10 LD A,$10 3194:00014FB7 22 LD (HLI),A 3195:00014FB8 ; 3196:00014FB8 3E00 LD A,$00 3197:00014FBA 22 LD (HLI),A 3198:00014FBB ; zti.s 98-11-10 11:31:47......PAGE 0075 LINE# LOC CODE LINE 3199:00014FBB 3E00 LD A,$00 3200:00014FBD 22 LD (HLI),A 3201:00014FBE F1 POP AF 3202:00014FBF 22 LD (HLI),A 3203:00014FC0 3E18 LD A,$18 3204:00014FC2 22 LD (HLI),A 3205:00014FC3 ; 3206:00014FC3 3E02 LD A,$02 3207:00014FC5 22 LD (HLI),A 3208:00014FC6 ; 3209:00014FC6 3E00 LD A,$00 3210:00014FC8 77 LD (HL),A 3211:00014FC9 ; 3212:00014FC9 C9 RET 3213:00014FCA ;---------------------------------- 3214:00014FCA FO2010 3215:00014FCA ;; LD A,(HL) 3216:00014FCA ;; LD HL,OAM 3217:00014FCA F5 PUSH AF 3218:00014FCB 22 LD (HLI),A 3219:00014FCC 3E10 LD A,$10 3220:00014FCE 22 LD (HLI),A 3221:00014FCF ; 3222:00014FCF 3E02 LD A,$02 3223:00014FD1 22 LD (HLI),A 3224:00014FD2 ; 3225:00014FD2 3E20 LD A,$20 3226:00014FD4 22 LD (HLI),A 3227:00014FD5 F1 POP AF 3228:00014FD6 22 LD (HLI),A 3229:00014FD7 3E18 LD A,$18 3230:00014FD9 22 LD (HLI),A 3231:00014FDA ; 3232:00014FDA 3E00 LD A,$00 3233:00014FDC 22 LD (HLI),A 3234:00014FDD ; 3235:00014FDD 3E20 LD A,$20 3236:00014FDF 77 LD (HL),A 3237:00014FE0 C9 RET 3238:00014FE1 ; 3239:00014FE1 ;----------------------------------------- 3240:00014FE1 FOAMSET2S 3241:00014FE1 ; LD A,(FRCNT) 3242:00014FE1 ; AND $10 3243:00014FE1 ; JR NZ,FO2S90 3244:00014FE1 ; 3245:00014FE1 FA01D0 LD A,(NMCPP1) 3246:00014FE4 5F LD E,A 3247:00014FE5 1600 LD D,$0 3248:00014FE7 213948 LD HL,FYOPDT 3249:00014FEA 19 ADD HL,DE 3250:00014FEB ; 3251:00014FEB 7E LD A,(HL) 3252:00014FEC 2100C0 LD HL,OAM 3253:00014FEF C605 ADD A,$05 3254:00014FF1 22 LD (HLI),A 3255:00014FF2 3E14 LD A,$14 zti.s 98-11-10 11:31:47......PAGE 0076 LINE# LOC CODE LINE 3256:00014FF4 22 LD (HLI),A 3257:00014FF5 ; 3258:00014FF5 3EBE LD A,$BE 3259:00014FF7 22 LD (HLI),A 3260:00014FF8 ; 3261:00014FF8 3E00 LD A,$00 3262:00014FFA 77 LD (HL),A 3263:00014FFB FO2S90 3264:00014FFB C9 RET 3265:00014FFC ;=============================================== 3266:00014FFC ;------------------------------------------- 3267:00014FFC CPCLDT 3268:00014FFC 98A4447E DB $98,$A4,$44,$7E 3269:00015000 98C4447E DB $98,$C4,$44,$7E 3270:00015004 ; 3271:00015004 9904447E DB $99,$04,$44,$7E 3272:00015008 9924447E DB $99,$24,$44,$7E 3273:0001500C ; 3274:0001500C 9964447E DB $99,$64,$44,$7E 3275:00015010 9984447E DB $99,$84,$44,$7E 3276:00015014 ;------------------------------------------- 3277:00015014 CPCLD2 3278:00015014 98AD447E DB $98,$AD,$44,$7E 3279:00015018 98CD447E DB $98,$CD,$44,$7E 3280:0001501C ; 3281:0001501C 990D447E DB $99,$0D,$44,$7E 3282:00015020 992D447E DB $99,$2D,$44,$7E 3283:00015024 ; 3284:00015024 996D447E DB $99,$6D,$44,$7E 3285:00015028 998D447E DB $99,$8D,$44,$7E 3286:0001502C ;----------------------------------------- 3287:0001502C NCP4000 3288:0001502C CD0000 CALL CURSDST ;(S) 3289:0001502F ; 3290:0001502F F0CC LD A,(KEYA2) 3291:00015031 E648 AND %01001000 3292:00015033 2809 JR Z,CP4040 3293:00015035 ; 3294:00015035 FA02D0 LD A,(NMCPP2) 3295:00015038 3C INC A 3296:00015039 E603 AND $03 3297:0001503B EA02D0 LD (NMCPP2),A 3298:0001503E ; 3299:0001503E CP4040 3300:0001503E F0CC LD A,(KEYA2) 3301:00015040 E604 AND %00000100 3302:00015042 280D JR Z,CP4042 3303:00015044 ; 3304:00015044 FA02D0 LD A,(NMCPP2) 3305:00015047 3D DEC A 3306:00015048 FEFF CP $FF 3307:0001504A 2002 JR NZ,CP4041 3308:0001504C 3E03 LD A,$03 3309:0001504E CP4041 3310:0001504E EA02D0 LD (NMCPP2),A 3311:00015051 CP4042 3312:00015051 CDE14F CALL FOAMSET2S zti.s 98-11-10 11:31:47......PAGE 0077 LINE# LOC CODE LINE 3313:00015054 ;=================================== 3314:00015054 F0CC LD A,(KEYA2) 3315:00015056 CB6F BIT 5,A 3316:00015058 2807 JR Z,CP4050 3317:0001505A ; 3318:0001505A 2196DB LD HL,ITMODE 3319:0001505D 35 DEC (HL) 3320:0001505E ; 3321:0001505E C39C50 JP CPNMST 3322:00015061 ;- - - - - - - - - - - - - - - - - 3323:00015061 CP4050 3324:00015061 E690 AND %10010000 3325:00015063 2811 JR Z,CP4080 3326:00015065 ; 3327:00015065 FA02D0 LD A,(NMCPP2) 3328:00015068 FE03 CP $03 3329:0001506A CABF44 JP Z,PSLGO 3330:0001506D ; 3331:0001506D CD3B49 CALL KETTEIS ;(S) 3332:00015070 CD4544 CALL ITMINC 3333:00015073 ; 3334:00015073 C38D4D JP OKSET 3335:00015076 CP4080 3336:00015076 CDC250 CALL FOAMSET21 3337:00015079 ; 3338:00015079 NCPSUB 3339:00015079 F0E7 LD A,(FRCNT) 3340:0001507B E610 AND %00010000 3341:0001507D 281D JR Z,CP4090 3342:0001507F ; 3343:0001507F FA01D0 LD A,(NMCPP1) 3344:00015082 17 RLA 3345:00015083 17 RLA 3346:00015084 17 RLA 3347:00015085 E6F8 AND $F8 3348:00015087 5F LD E,A 3349:00015088 1600 LD D,$0 3350:0001508A 21FC4F LD HL,CPCLDT 3351:0001508D 19 ADD HL,DE 3352:0001508E 1101D6 LD DE,VRAMD+1 3353:00015091 0E08 LD C,$08 3354:00015093 CP4082 3355:00015093 2A LD A,(HLI) 3356:00015094 12 LD (DE),A 3357:00015095 13 INC DE 3358:00015096 0D DEC C 3359:00015097 20FA JR NZ,CP4082 3360:00015099 ; 3361:00015099 AF XOR A 3362:0001509A 12 LD (DE),A 3363:0001509B C9 RET 3364:0001509C ;- - - - - - - - - - - - - - - - - 3365:0001509C CP4090 3366:0001509C CPNMST 3367:0001509C FA01D0 LD A,(NMCPP1) 3368:0001509F FE01 CP $01 3369:000150A1 280D JR Z,CP4092 zti.s 98-11-10 11:31:47......PAGE 0078 LINE# LOC CODE LINE 3370:000150A3 FE02 CP $02 3371:000150A5 2812 JR Z,CP4093 3372:000150A7 ; 3373:000150A7 01C498 LD BC,$98C4 3374:000150AA 1180DB LD DE,NAMEBF 3375:000150AD C39B47 JP NAMEDP 3376:000150B0 ; 3377:000150B0 CP4092 3378:000150B0 012499 LD BC,$9924 3379:000150B3 1185DB LD DE,NAMEBF+5 3380:000150B6 C39B47 JP NAMEDP 3381:000150B9 ; 3382:000150B9 CP4093 3383:000150B9 018499 LD BC,$9984 3384:000150BC 118ADB LD DE,NAMEBF+$A 3385:000150BF C39B47 JP NAMEDP 3386:000150C2 ; 3387:000150C2 ;======================================== 3388:000150C2 FOAMSET21 3389:000150C2 FA02D0 LD A,(NMCPP2) 3390:000150C5 ; 3391:000150C5 5F LD E,A 3392:000150C6 1600 LD D,$0 3393:000150C8 213948 LD HL,FYOPDT 3394:000150CB 19 ADD HL,DE 3395:000150CC ; 3396:000150CC FA02D0 LD A,(NMCPP2) 3397:000150CF FE03 CP $03 3398:000150D1 CA1051 JP Z,FO2100 3399:000150D4 ; 3400:000150D4 F0E7 LD A,(FRCNT) 3401:000150D6 E608 AND %00001000 3402:000150D8 281B JR Z,F21010 3403:000150DA ; 3404:000150DA 7E LD A,(HL) 3405:000150DB 2108C0 LD HL,OAM+$08 3406:000150DE F5 PUSH AF 3407:000150DF 22 LD (HLI),A 3408:000150E0 3E58 LD A,$58 3409:000150E2 22 LD (HLI),A 3410:000150E3 ; 3411:000150E3 3E00 LD A,$00 3412:000150E5 22 LD (HLI),A 3413:000150E6 ; 3414:000150E6 3E00 LD A,$00 3415:000150E8 22 LD (HLI),A 3416:000150E9 F1 POP AF 3417:000150EA 22 LD (HLI),A 3418:000150EB 3E60 LD A,$60 3419:000150ED 22 LD (HLI),A 3420:000150EE ; 3421:000150EE 3E02 LD A,$02 3422:000150F0 22 LD (HLI),A 3423:000150F1 ; 3424:000150F1 3E00 LD A,$00 3425:000150F3 77 LD (HL),A 3426:000150F4 ; zti.s 98-11-10 11:31:47......PAGE 0079 LINE# LOC CODE LINE 3427:000150F4 C9 RET 3428:000150F5 ;---------------------------------- 3429:000150F5 F21010 3430:000150F5 7E LD A,(HL) 3431:000150F6 2108C0 LD HL,OAM+$08 3432:000150F9 F5 PUSH AF 3433:000150FA 22 LD (HLI),A 3434:000150FB 3E58 LD A,$58 3435:000150FD 22 LD (HLI),A 3436:000150FE ; 3437:000150FE 3E02 LD A,$02 3438:00015100 22 LD (HLI),A 3439:00015101 ; 3440:00015101 3E20 LD A,$20 3441:00015103 22 LD (HLI),A 3442:00015104 F1 POP AF 3443:00015105 22 LD (HLI),A 3444:00015106 3E60 LD A,$60 3445:00015108 22 LD (HLI),A 3446:00015109 ; 3447:00015109 3E00 LD A,$00 3448:0001510B 22 LD (HLI),A 3449:0001510C ; 3450:0001510C 3E20 LD A,$20 3451:0001510E 77 LD (HL),A 3452:0001510F C9 RET 3453:00015110 ;--------------------------- 3454:00015110 FO2100 3455:00015110 F0E7 LD A,(FRCNT) 3456:00015112 E608 AND %00001000 3457:00015114 7E LD A,(HL) 3458:00015115 2108C0 LD HL,OAM+$08 3459:00015118 C3B14F JP FO2SUB 3460:0001511B ;----------------------------------------- 3461:0001511B FOAMSET21S 3462:0001511B ; LD A,(FRCNT) 3463:0001511B ; AND $10 3464:0001511B ; JR NZ,F21S90 3465:0001511B ; 3466:0001511B FA02D0 LD A,(NMCPP2) 3467:0001511E 5F LD E,A 3468:0001511F 1600 LD D,$0 3469:00015121 213948 LD HL,FYOPDT 3470:00015124 19 ADD HL,DE 3471:00015125 ; 3472:00015125 7E LD A,(HL) 3473:00015126 2108C0 LD HL,OAM+$08 3474:00015129 C605 ADD A,$05 3475:0001512B 22 LD (HLI),A 3476:0001512C 3E5C LD A,$5C 3477:0001512E 22 LD (HLI),A 3478:0001512F ; 3479:0001512F 3EBE LD A,$BE 3480:00015131 22 LD (HLI),A 3481:00015132 ; 3482:00015132 3E00 LD A,$00 3483:00015134 77 LD (HL),A zti.s 98-11-10 11:31:47......PAGE 0080 LINE# LOC CODE LINE 3484:00015135 F21S90 3485:00015135 C9 RET 3486:00015136 ;----------------------------------------- 3487:00015136 NCP5000 3488:00015136 CDE14F CALL FOAMSET2S 3489:00015139 CD1B51 CALL FOAMSET21S 3490:0001513C ; 3491:0001513C CD7B4E CALL OKOAMST 3492:0001513F ; 3493:0001513F F0CC LD A,(KEYA2) 3494:00015141 E690 AND %10010000 3495:00015143 283D JR Z,CP5010 3496:00015145 ; 3497:00015145 FA00D0 LD A,(NAMEOK) 3498:00015148 A7 AND A 3499:00015149 CABF44 JP Z,PSLGO 3500:0001514C ; 3501:0001514C CD3B49 CALL KETTEIS ;(S) 3502:0001514F ; 3503:0001514F FA01D0 LD A,(NMCPP1) 3504:00015152 CB27 SLA A 3505:00015154 5F LD E,A 3506:00015155 1600 LD D,$00 3507:00015157 217649 LD HL,SVDTAD3 3508:0001515A 19 ADD HL,DE 3509:0001515B 4E LD C,(HL) 3510:0001515C 23 INC HL 3511:0001515D 46 LD B,(HL) 3512:0001515E FA02D0 LD A,(NMCPP2) 3513:00015161 CB27 SLA A 3514:00015163 5F LD E,A 3515:00015164 1600 LD D,$00 3516:00015166 217649 LD HL,SVDTAD3 3517:00015169 19 ADD HL,DE 3518:0001516A 7E LD A,(HL) 3519:0001516B 23 INC HL 3520:0001516C 66 LD H,(HL) 3521:0001516D 6F LD L,A 3522:0001516E ; 3523:0001516E 118503 LD DE,$05+$100+$200+$7F+$01 3524:00015171 CPS001 3525:00015171 ; LD A,$0A 3526:00015171 ; LD ($0000),A ;(SV) 3527:00015171 ; 3528:00015171 CD0000 CALL SVOPEN ; (SV) 3529:00015174 0A LD A,(BC) 3530:00015175 03 INC BC 3531:00015176 CD0000 CALL SVOPEN ; (SV) 3532:00015179 22 LD (HLI),A 3533:0001517A 1B DEC DE 3534:0001517B 7B LD A,E 3535:0001517C B2 OR D 3536:0001517D 20F2 JR NZ,CPS001 3537:0001517F ; 3538:0001517F ; 3539:0001517F ; 3540:0001517F ; zti.s 98-11-10 11:31:47......PAGE 0081 LINE# LOC CODE LINE 3541:0001517F ; 3542:0001517F ; 3543:0001517F ; 3544:0001517F ; 3545:0001517F ; 3546:0001517F ; 3547:0001517F ; LD A,(NMCPP1) 3548:0001517F ; RLA 3549:0001517F ; RLA 3550:0001517F ; AND %11111100 3551:0001517F ; LD E,A 3552:0001517F ; LD D,$0 3553:0001517F ; LD HL,NAMEBF 3554:0001517F ; ADD HL,DE 3555:0001517F ; PUSH HL 3556:0001517F ; LD A,(NMCPP2) 3557:0001517F ; RLA 3558:0001517F ; RLA 3559:0001517F ; AND %11111100 3560:0001517F ; LD E,A 3561:0001517F ; LD D,$0 3562:0001517F ; LD HL,NAMEBF 3563:0001517F ; ADD HL,DE 3564:0001517F ; POP DE 3565:0001517F ;; 3566:0001517F ; LD C,$04 3567:0001517F ;CP5008 3568:0001517F ; LD A,(DE) 3569:0001517F ; INC DE 3570:0001517F ; LD (HLI),A 3571:0001517F ; DEC C 3572:0001517F ; JR NZ,CP5008 3573:0001517F ;; 3574:0001517F ; LD A,(NMCPP1) 3575:0001517F ; LD E,A 3576:0001517F ; LD D,B 3577:0001517F ; LD HL,HARTCTF 3578:0001517F ; ADD HL,DE 3579:0001517F ; PUSH HL 3580:0001517F ; LD A,(NMCPP2) 3581:0001517F ; LD E,A 3582:0001517F ; LD D,B 3583:0001517F ; LD HL,HARTCTF 3584:0001517F ; ADD HL,DE 3585:0001517F ; POP DE 3586:0001517F ; LD A,(DE) 3587:0001517F ; LD (HL),A 3588:0001517F ;; 3589:0001517F ; LD A,(NMCPP1) 3590:0001517F ; LD E,A 3591:0001517F ; LD D,B 3592:0001517F ; LD HL,HARTMXF 3593:0001517F ; ADD HL,DE 3594:0001517F ; PUSH HL 3595:0001517F ; LD A,(NMCPP2) 3596:0001517F ; LD E,A 3597:0001517F ; LD D,B zti.s 98-11-10 11:31:47......PAGE 0082 LINE# LOC CODE LINE 3598:0001517F ; LD HL,HARTMXF 3599:0001517F ; ADD HL,DE 3600:0001517F ; POP DE 3601:0001517F ; LD A,(DE) 3602:0001517F ; LD (HL),A 3603:0001517F ;; 3604:0001517F ; LD A,(NMCPP1) 3605:0001517F ; SLA A 3606:0001517F ; LD E,A 3607:0001517F ; LD D,B 3608:0001517F ; LD HL,DETHCTF 3609:0001517F ; ADD HL,DE 3610:0001517F ; PUSH HL 3611:0001517F ; LD A,(NMCPP2) 3612:0001517F ; SLA A 3613:0001517F ; LD E,A 3614:0001517F ; LD D,B 3615:0001517F ; LD HL,DETHCTF 3616:0001517F ; ADD HL,DE 3617:0001517F ; POP DE 3618:0001517F ; LD A,(DE) 3619:0001517F ; INC DE 3620:0001517F ; LD (HLI),A 3621:0001517F ; LD A,(DE) 3622:0001517F ; LD (HL),A 3623:0001517F ; 3624:0001517F ; 3625:0001517F ; 3626:0001517F ; 3627:0001517F ; 3628:0001517F C3BF44 JP PSLGO 3629:00015182 ; 3630:00015182 ; 3631:00015182 CP5010 3632:00015182 F0CC LD A,(KEYA2) 3633:00015184 CB6F BIT 5,A 3634:00015186 280E JR Z,CP5050 3635:00015188 ; 3636:00015188 2196DB LD HL,ITMODE 3637:0001518B 35 DEC (HL) 3638:0001518C ; 3639:0001518C AF XOR A 3640:0001518D EA00D0 LD (NAMEOK),A 3641:00015190 ; 3642:00015190 CD234E CALL OKCLEAR 3643:00015193 ; 3644:00015193 C3BC51 JP CPNMST2 3645:00015196 ;- - - - - - - - - - - - - - - - - 3646:00015196 CP5050 3647:00015196 CD7950 CALL NCPSUB 3648:00015199 ; 3649:00015199 F0E7 LD A,(FRCNT) 3650:0001519B E610 AND %00010000 3651:0001519D 281D JR Z,CP5090 3652:0001519F ; 3653:0001519F FA02D0 LD A,(NMCPP2) 3654:000151A2 17 RLA zti.s 98-11-10 11:31:47......PAGE 0083 LINE# LOC CODE LINE 3655:000151A3 17 RLA 3656:000151A4 17 RLA 3657:000151A5 E6F8 AND $F8 3658:000151A7 5F LD E,A 3659:000151A8 1600 LD D,$0 3660:000151AA 211450 LD HL,CPCLD2 3661:000151AD 19 ADD HL,DE 3662:000151AE 1109D6 LD DE,VRAMD+1+8 3663:000151B1 0E08 LD C,$08 3664:000151B3 CP5082 3665:000151B3 2A LD A,(HLI) 3666:000151B4 12 LD (DE),A 3667:000151B5 13 INC DE 3668:000151B6 0D DEC C 3669:000151B7 20FA JR NZ,CP5082 3670:000151B9 ; 3671:000151B9 AF XOR A 3672:000151BA 12 LD (DE),A 3673:000151BB C9 RET 3674:000151BC ;- - - - - - - - - - - - - - - - - 3675:000151BC CP5090 3676:000151BC CPNMST2 3677:000151BC FA02D0 LD A,(NMCPP2) 3678:000151BF FE01 CP $01 3679:000151C1 280D JR Z,CP5092 3680:000151C3 FE02 CP $02 3681:000151C5 2812 JR Z,CP5093 3682:000151C7 ; 3683:000151C7 01CD98 LD BC,$98CD 3684:000151CA 1180DB LD DE,NAMEBF 3685:000151CD C39B47 JP NAMEDP 3686:000151D0 ; 3687:000151D0 CP5092 3688:000151D0 012D99 LD BC,$992D 3689:000151D3 1185DB LD DE,NAMEBF+$5 3690:000151D6 C39B47 JP NAMEDP 3691:000151D9 ; 3692:000151D9 CP5093 3693:000151D9 018D99 LD BC,$998D 3694:000151DC 118ADB LD DE,NAMEBF+$A 3695:000151DF C39B47 JP NAMEDP 3696:000151E2 ;=============================================== 3697:000151E2 HARTSTD 3698:000151E2 181818 DB $18,$18,$18 3699:000151E5 ;; 3 4 5 6 7 8 9 10 11 12 13 14 3700:000151E5 1818182828282838 DB $18,$18,$18,$28,$28,$28,$28,$38,$38,$38,$38,$50 3701:000151F1 ;- - - - - - - - - - - - - - - 3702:000151F1 GMSTART 3703:000151F1 AF XOR A 3704:000151F2 E0F9 LD (YKFLAG),A ; Yoko gamen flag reset 3705:000151F4 ; 3706:000151F4 FA5ADB LD A,(HARTCT) 3707:000151F7 A7 AND A 3708:000151F8 200E JR NZ,GMST01 ; Game over ? 3709:000151FA ; ; yes ! 3710:000151FA FA5BDB LD A,(HARTMX) 3711:000151FD 5F LD E,A zti.s 98-11-10 11:31:47......PAGE 0084 LINE# LOC CODE LINE 3712:000151FE 1600 LD D,$00 3713:00015200 21E251 LD HL,HARTSTD 3714:00015203 19 ADD HL,DE 3715:00015204 7E LD A,(HL) 3716:00015205 ; 3717:00015205 ;; LD A,$18 3718:00015205 EA5ADB LD (HARTCT),A 3719:00015208 GMST01 3720:00015208 21D1DB LD HL,SAVEFG 3721:0001520B 7E LD A,(HL) 3722:0001520C 3600 LD (HL),$00 3723:0001520E A7 AND A 3724:0001520F 2020 JR NZ,GMST010 ; Load ok ? 3725:00015211 ; ; yes ! 3726:00015211 FAA6DB LD A,(NMSLPT) 3727:00015214 CB27 SLA A 3728:00015216 5F LD E,A 3729:00015217 1600 LD D,$00 3730:00015219 217049 LD HL,SVDTAD2 3731:0001521C 19 ADD HL,DE 3732:0001521D 4E LD C,(HL) 3733:0001521E 23 INC HL 3734:0001521F 46 LD B,(HL) 3735:00015220 ; 3736:00015220 ;; LD A,$0A 3737:00015220 ;; LD ($0000),A ;(SV) 3738:00015220 ;; CALL SVOPEN ;(SV) 3739:00015220 ; 3740:00015220 2100D8 LD HL,SAVERM 3741:00015223 118003 LD DE,$200+$100+$7F+1 ; Game use data set !! 3742:00015226 SVDS010 3743:00015226 CD0000 CALL SVOPEN ;(SV) 3744:00015229 0A LD A,(BC) 3745:0001522A 03 INC BC 3746:0001522B 22 LD (HLI),A 3747:0001522C 1B DEC DE 3748:0001522D ; 3749:0001522D 7B LD A,E 3750:0001522E B2 OR D 3751:0001522F 20F5 JR NZ,SVDS010 3752:00015231 ; 3753:00015231 GMST010 3754:00015231 ; LD A,$7F ;$50 3755:00015231 ; LD (WGRNDPT),A 3756:00015231 ; LD (GRNDPT),A 3757:00015231 ; XOR A 3758:00015231 ; LD (DJFLAG),A 3759:00015231 ; 3760:00015231 ; LD A,$48 3761:00015231 ; LD (WPLXPSL),A 3762:00015231 ; LD A,$30 3763:00015231 ; LD (WPLYPSL),A 3764:00015231 ; 3765:00015231 ; LD A,$0A 3766:00015231 ; LD (HARTMX),A 3767:00015231 ; 3768:00015231 ;; LD A,WINDBGS zti.s 98-11-10 11:31:47......PAGE 0085 LINE# LOC CODE LINE 3769:00015231 ;; LD (VRFLG),A ; Window BG set 3770:00015231 ;;- - Have item initial - - - - 3771:00015231 ; LD E,$0 3772:00015231 ; LD D,$0 3773:00015231 ;; 3774:00015231 ; LD BC,ITEMB 3775:00015231 ;PI3000 3776:00015231 ; LD HL,ITITDT 3777:00015231 ; ADD HL,DE 3778:00015231 ; LD A,(HLI) 3779:00015231 ; LD (BC),A 3780:00015231 ; INC BC 3781:00015231 ; INC E 3782:00015231 ; LD A,E 3783:00015231 ; CP 12+10 3784:00015231 ; JR NZ,PI3000 3785:00015231 ;; 3786:00015231 ; LD A,$01 3787:00015231 ; LD (KENLEV),A 3788:00015231 ; LD A,$01 3789:00015231 ; LD (TATLEV),A 3790:00015231 ; LD A,$01 3791:00015231 ; LD (BULLEV),A 3792:00015231 ;; 3793:00015231 ; LD HL,GRKEY1 3794:00015231 ; LD E,$5 3795:00015231 ;PI3010 3796:00015231 ; LD (HLI),A 3797:00015231 ; DEC E 3798:00015231 ; JR NZ,PI3010 3799:00015231 ;; 3800:00015231 ; LD A,$69 3801:00015231 ; LD (BOMBCT),A 3802:00015231 ; LD A,$78 3803:00015231 ; LD (YAAACT),A 3804:00015231 ; LD A,$35 3805:00015231 ; LD (TUBOCT),A 3806:00015231 ;GMSTST 3807:00015231 3E00 LD A,GPLAY ;GINIT 3808:00015233 EA95DB LD (GMMODE),A 3809:00015236 AF XOR A 3810:00015237 EA96DB LD (ITMODE),A 3811:0001523A ; 3812:0001523A ; LD A,$5 3813:0001523A ; LD (COINC1),A 3814:0001523A ; LD A,$09 3815:0001523A ; LD (COINC2),A 3816:0001523A ;; 3817:0001523A ; LD A,$18 3818:0001523A ; LD (HARTCT),A 3819:0001523A ; LD A,$4 3820:0001523A ; LD (HARTMX),A 3821:0001523A ;; 3822:0001523A ; LD A,(NMSLPT) 3823:0001523A ; AND A 3824:0001523A ; JR Z,GMSS10 3825:0001523A ;; zti.s 98-11-10 11:31:47......PAGE 0086 LINE# LOC CODE LINE 3826:0001523A ; LD A,$50 3827:0001523A ; LD (HARTCT),A 3828:0001523A ; LD A,$A 3829:0001523A ; LD (HARTMX),A 3830:0001523A ; LD A,$06 3831:0001523A ; LD (KBINF),A 3832:0001523A GMSS10 3833:0001523A AF XOR A 3834:0001523B EA1CC1 LD (PLMODE),A 3835:0001523E E09C LD (PLSTAT),A 3836:00015240 EA93DB LD (HARTUP),A 3837:00015243 EA94DB LD (HARTDW),A 3838:00015246 EA90DB LD (COINU2),A 3839:00015249 EA8FDB LD (COINU1),A 3840:0001524C EA92DB LD (COIND2),A 3841:0001524F EA91DB LD (COIND1),A 3842:00015252 ;; INC A 3843:00015252 ;; LD (HARTUP),A ; Becouse Vram write ! 3844:00015252 ; 3845:00015252 ; LD A,$A3 ;D6 ;7F ;$50 3846:00015252 ; LD (WGRNDPT),A 3847:00015252 ; LD (GRNDPT),A 3848:00015252 ; LD A,$01 ;$01 3849:00015252 ; LD (DJFLAG),A 3850:00015252 ;; 3851:00015252 ; LD A,$10 ;DJMAX ;$20 3852:00015252 ; LD (DNJNNO),A 3853:00015252 ;; 3854:00015252 ; LD A,$50 3855:00015252 ; LD (WPLXPSL),A 3856:00015252 ; LD A,$60 3857:00015252 ; LD (WPLYPSL),A 3858:00015252 ;; 3859:00015252 ; XOR A 3860:00015252 ; LD (PLCHPT),A 3861:00015252 ; LD A,$3 3862:00015252 ; LD (PLCMKI),A 3863:00015252 ;; 3864:00015252 FA6FDB LD A,(TAMA0PT) 3865:00015255 A7 AND A 3866:00015256 200F JR NZ,GMSTRT90 ;Level 7 テッキュウ位置セット！ 3867:00015258 ; 3868:00015258 3E16 LD A,$16 3869:0001525A EA6FDB LD (TAMA0PT),A 3870:0001525D ; 3871:0001525D 3E50 LD A,$50 3872:0001525F EA70DB LD (TAMA0XP),A 3873:00015262 3E27 LD A,$27 3874:00015264 EA71DB LD (TAMA0YP),A 3875:00015267 ; 3876:00015267 GMSTRT90 3877:00015267 FA62DB LD A,(CONTBF+3) 3878:0001526A A7 AND A 3879:0001526B 2837 JR Z,GMS0B0 ; Continue ? 3880:0001526D ; ; yes ! 3881:0001526D EA9DDB LD (WPLXPSL),A 3882:00015270 FA63DB LD A,(CONTBF+4) zti.s 98-11-10 11:31:47......PAGE 0087 LINE# LOC CODE LINE 3883:00015273 EA9EDB LD (WPLYPSL),A 3884:00015276 FA61DB LD A,(CONTBF+2) 3885:00015279 E0F6 LD (GRNDPT),A 3886:0001527B EA9CDB LD (WGRNDPT),A 3887:0001527E FA60DB LD A,(CONTBF+1) 3888:00015281 E0F7 LD (DNJNNO),A 3889:00015283 FA64DB LD A,(CONTBF+5) 3890:00015286 EAAEDB LD (DNJNPT),A 3891:00015289 ; 3892:00015289 AF XOR A 3893:0001528A E0F9 LD (YKFLAG),A 3894:0001528C ; 3895:0001528C FA5FDB LD A,(CONTBF+0) 3896:0001528F E601 AND $01 3897:00015291 EAA5DB LD (DJFLAG),A 3898:00015294 2808 JR Z,GMS098 3899:00015296 ; 3900:00015296 3E04 LD A,$04 3901:00015298 E09D LD (PLCHPT),A 3902:0001529A 3E02 LD A,$02 3903:0001529C E09E LD (PLCMKI),A 3904:0001529E GMS098 3905:0001529E 3E00 LD A,WINDBGS 3906:000152A0 EAFFD6 LD (VRFLG),A ; Window BG set 3907:000152A3 C9 RET 3908:000152A4 ;----------------------------------- 3909:000152A4 GMS0B0 ;一番最初！ 3910:000152A4 3E30 LD A,$30 3911:000152A6 EA78DB LD (YAMAX),A 3912:000152A9 3E30 LD A,$30 3913:000152AB EA77DB LD (BOMAX),A 3914:000152AE 3E20 LD A,$20 3915:000152B0 EA76DB LD (PWMAX),A 3916:000152B3 ; 3917:000152B3 3EA3 LD A,$A3 ;D6 ;7F ;$50 3918:000152B5 EA9CDB LD (WGRNDPT),A 3919:000152B8 E0F6 LD (GRNDPT),A 3920:000152BA 3E01 LD A,$01 ;$01 3921:000152BC EAA5DB LD (DJFLAG),A 3922:000152BF ; 3923:000152BF 3E10 LD A,$10 ;DJMAX ;$20 3924:000152C1 E0F7 LD (DNJNNO),A 3925:000152C3 ; 3926:000152C3 3E50 LD A,$50 3927:000152C5 EA9DDB LD (WPLXPSL),A 3928:000152C8 3E60 LD A,$60 3929:000152CA EA9EDB LD (WPLYPSL),A 3930:000152CD ; 3931:000152CD AF XOR A 3932:000152CE E09D LD (PLCHPT),A 3933:000152D0 3E03 LD A,$3 3934:000152D2 E09E LD (PLCMKI),A 3935:000152D4 ; 3936:000152D4 ; LD A,(TAMA0PT) 3937:000152D4 ; AND A 3938:000152D4 ; JR NZ,GMSTRT90 ;Level 7 テッキュウ位置セット！ 3939:000152D4 ; zti.s 98-11-10 11:31:47......PAGE 0088 LINE# LOC CODE LINE 3940:000152D4 3E16 LD A,$16 3941:000152D6 EA6FDB LD (TAMA0PT),A 3942:000152D9 ; 3943:000152D9 3E50 LD A,$50 3944:000152DB EA70DB LD (TAMA0XP),A 3945:000152DE 3E27 LD A,$27 3946:000152E0 EA71DB LD (TAMA0YP),A 3947:000152E3 ;GMSTRT90 3948:000152E3 18B9 JR GMS098 3949:000152E5 ;==================================== 3950:000152E5 ;==================================== 3951:000152E5 ;= 地下洞窟白地図出力命令群 = 3952:000152E5 ;==================================== 3953:000152E5 ; 3954:000152E5 DMVH 3955:000152E5 9D9D9DFF DB $9D,$9D,$9D,$FF 3956:000152E9 9D9D9DFF DB $9D,$9D,$9D,$FF 3957:000152ED 9D9D9CFF DB $9D,$9D,$9C,$FF 3958:000152F1 9D9D9CFF DB $9D,$9D,$9C,$FF 3959:000152F5 ; 3960:000152F5 DMVL 3961:000152F5 323209FF DB $32,$32,$09,$FF 3962:000152F9 2E2E09FF DB $2E,$2E,$09,$FF 3963:000152FD 8A32E9FF DB $8A,$32,$E9,$FF 3964:00015301 8A2EE9FF DB $8A,$2E,$E9,$FF 3965:00015305 ; 3966:00015305 DMSURYO 3967:00015305 C8C800FF DB $C8,$C8,$00,$FF 3968:00015309 C8C800FF DB $C8,$C8,$00,$FF 3969:0001530D 48C800FF DB $48,$C8,$00,$FF 3970:00015311 48C800FF DB $48,$C8,$00,$FF 3971:00015315 ; 3972:00015315 DMCHAR 3973:00015315 7F7FBAFF DB $7F,$7F,$BA,$FF 3974:00015319 7F7FBAFF DB $7F,$7F,$BA,$FF 3975:0001531D 7F7FBAFF DB $7F,$7F,$BA,$FF 3976:00015321 7F7FBAFF DB $7F,$7F,$BA,$FF 3977:00015325 ; 3978:00015325 ;------------------------------------------------------------------ 3979:00015325 DDDHH 3980:00015325 000000FF DB $00,$00,$00,$FF 3981:00015329 000000FF DB $00,$00,$00,$FF 3982:0001532D ; 3983:0001532D 9D9DFF00 DB $9D,$9D,$FF,$00 3984:00015331 9D9D9DFF DB $9D,$9D,$9D,$FF 3985:00015335 ; 3986:00015335 9D9CFF00 DB $9D,$9C,$FF,$00 3987:00015339 9D9C9CFF DB $9D,$9C,$9C,$FF 3988:0001533D ; 3989:0001533D 9D9D9C9CFF000000 DB $9D,$9D,$9C,$9C,$FF,$00,$00,$00,$00,$00,$00 3990:00015348 9D9D9C9C9C9CFF00 DB $9D,$9D,$9C,$9C,$9C,$9C,$FF,$00,$00,$00,$00 3991:00015353 9D9D9C9C9D9D9C9C DB $9D,$9D,$9C,$9C,$9D,$9D,$9C,$9C,$FF,$00,$00 3992:0001535E 9D9D9C9C9D9D9C9C DB $9D,$9D,$9C,$9C,$9D,$9D,$9C,$9C,$9C,$9C,$FF 3993:00015369 ;-------------------------------------------------------------------------------------- 3994:00015369 DDDLL 3995:00015369 000000FF DB $00,$00,$00,$FF 3996:0001536D 000000FF DB $00,$00,$00,$FF zti.s 98-11-10 11:31:47......PAGE 0089 LINE# LOC CODE LINE 3997:00015371 ; 3998:00015371 0D12FF00 DB $0D,$12,$FF,$00 3999:00015375 0D1112FF DB $0D,$11,$12,$FF 4000:00015379 ; 4001:00015379 92F2FF00 DB $92,$F2,$FF,$00 4002:0001537D 92F1F2FF DB $92,$F1,$F2,$FF 4003:00015381 ; 4004:00015381 8D92EDF2FF000000 DB $8D,$92,$ED,$F2,$FF,$00,$00,$00,$00,$00,$00 4005:0001538C 8D92EDF2F1F2FF00 DB $8D,$92,$ED,$F2,$F1,$F2,$FF,$00,$00,$00,$00 4006:00015397 8D92EDF29192F1F2 DB $8D,$92,$ED,$F2,$91,$92,$F1,$F2,$FF,$00,$00 4007:000153A2 8D92EDF29192ECED DB $8D,$92,$ED,$F2,$91,$92,$EC,$ED,$F1,$F2,$FF 4008:000153AD ;-------------------------------------------------------------------------------------- 4009:000153AD DDDCC 4010:000153AD 000000FF DB $00,$00,$00,$FF 4011:000153B1 000000FF DB $00,$00,$00,$FF 4012:000153B5 ; 4013:000153B5 E8E9FF00 DB $E8,$E9,$FF,$00 4014:000153B9 E87FECFF DB $E8,$7F,$EC,$FF 4015:000153BD ; 4016:000153BD E8E9FF00 DB $E8,$E9,$FF,$00 4017:000153C1 E8ECE8FF DB $E8,$EC,$E8,$FF 4018:000153C5 ; 4019:000153C5 E8EAE9EBFF000000 DB $E8,$EA,$E9,$EB,$FF,$00,$00,$00,$00,$00,$00 4020:000153D0 E8EAE9EBECE8FF00 DB $E8,$EA,$E9,$EB,$EC,$E8,$FF,$00,$00,$00,$00 4021:000153DB E8EAE9EBECE8ECE9 DB $E8,$EA,$E9,$EB,$EC,$E8,$EC,$E9,$FF,$00,$00 4022:000153E6 E8EAE9EBECE8ECEA DB $E8,$EA,$E9,$EB,$EC,$E8,$EC,$EA,$EC,$E9,$FF 4023:000153F1 ;------------------------------------------------------------------- 4024:000153F1 ;=================================================================== 4025:000153F1 DLVH 4026:000153F1 9D9C DB $9D,$9C 4027:000153F3 ; 4028:000153F3 DLVL 4029:000153F3 0AEA DB $0A,$EA 4030:000153F5 ; 4031:000153F5 ;DLVSU 4032:000153F5 ; DB $B1,$B2,$B3,$B4,$B5,$B6,$B7,$B8,$B9 4033:000153F5 ;=================================================================== 4034:000153F5 ;=================================================================== 4035:000153F5 DMCLDT 4036:000153F5 DCD 4037:000153F5 9CE9497F DB $9C,$E9,$49,$7F 4038:000153F9 9D09497F DB $9D,$09,$49,$7F 4039:000153FD 9D29497F DB $9D,$29,$49,$7F 4040:00015401 9D49497F DB $9D,$49,$49,$7F 4041:00015405 9D69497F DB $9D,$69,$49,$7F 4042:00015409 9D89497F DB $9D,$89,$49,$7F 4043:0001540D 9DA9497F DB $9D,$A9,$49,$7F 4044:00015411 9DC9497F DB $9D,$C9,$49,$7F 4045:00015415 9DE9497F DB $9D,$E9,$49,$7F 4046:00015419 9E09497F DB $9E,$09,$49,$7F 4047:0001541D 00 DB $00 4048:0001541E DCE 4049:0001541E ;-------------------------------------------- 4050:0001541E ;=================================================================== 4051:0001541E ;=================================================================== 4052:0001541E ;=================================================================== 4053:0001541E DMAPSUB zti.s 98-11-10 11:31:47......PAGE 0090 LINE# LOC CODE LINE 4054:0001541E 21F553 LD HL,DMCLDT 4055:00015421 1150D6 LD DE,VRAMD2+1-1 4056:00015424 0E29 LD C,DCE-DCD 4057:00015426 DCS010 4058:00015426 2A LD A,(HLI) 4059:00015427 13 INC DE 4060:00015428 12 LD (DE),A 4061:00015429 0D DEC C 4062:0001542A 20FA JR NZ,DCS010 4063:0001542C ; 4064:0001542C D5 PUSH DE 4065:0001542D ; 4066:0001542D AF XOR A 4067:0001542E E0D7 LD (WORK0),A 4068:00015430 E0D8 LD (WORK1),A 4069:00015432 E0D9 LD (WORK2),A 4070:00015434 E0DA LD (WORK3),A 4071:00015436 4F LD C,A 4072:00015437 47 LD B,A 4073:00015438 5F LD E,A 4074:00015439 57 LD D,A 4075:0001543A ; 4076:0001543A FAB0DB LD A,(DAMPFG) 4077:0001543D CB37 SWAP A 4078:0001543F E603 AND $03 4079:00015441 5F LD E,A 4080:00015442 ; 4081:00015442 A7 AND A 4082:00015443 280B JR Z,DMVSET 4083:00015445 ; 4084:00015445 DMHNDN 4085:00015445 ; 4086:00015445 79 LD A,C 4087:00015446 C604 ADD A,$04 ;;;;;;;;;;;;;; 4088:00015448 4F LD C,A 4089:00015449 1D DEC E 4090:0001544A 7B LD A,E 4091:0001544B A7 AND A 4092:0001544C 20F7 JR NZ,DMHNDN 4093:0001544E ; 4094:0001544E 0600 LD B,$0 4095:00015450 ; 4096:00015450 DMVSET 4097:00015450 ; 4098:00015450 ;; LD HL,VRAMD2+1 4099:00015450 E1 POP HL 4100:00015451 ; 4101:00015451 DMVSET2 4102:00015451 ; 4103:00015451 E5 PUSH HL 4104:00015452 ; 4105:00015452 21E552 LD HL,DMVH 4106:00015455 09 ADD HL,BC 4107:00015456 7E LD A,(HL) 4108:00015457 E0D7 LD (WORK0),A 4109:00015459 ; 4110:00015459 21F552 LD HL,DMVL zti.s 98-11-10 11:31:47......PAGE 0091 LINE# LOC CODE LINE 4111:0001545C 09 ADD HL,BC 4112:0001545D 7E LD A,(HL) 4113:0001545E E0D8 LD (WORK1),A 4114:00015460 ; 4115:00015460 210553 LD HL,DMSURYO 4116:00015463 09 ADD HL,BC 4117:00015464 7E LD A,(HL) 4118:00015465 E0D9 LD (WORK2),A 4119:00015467 ; 4120:00015467 211553 LD HL,DMCHAR 4121:0001546A 09 ADD HL,BC 4122:0001546B 7E LD A,(HL) 4123:0001546C E0DA LD (WORK3),A 4124:0001546E ; 4125:0001546E E1 POP HL 4126:0001546F ; 4127:0001546F CD2855 CALL DVRSET 4128:00015472 ; 4129:00015472 E5 PUSH HL 4130:00015473 ; 4131:00015473 21E552 LD HL,DMVH 4132:00015476 03 INC BC 4133:00015477 09 ADD HL,BC 4134:00015478 7E LD A,(HL) 4135:00015479 ; 4136:00015479 E1 POP HL 4137:0001547A ; 4138:0001547A 23 INC HL 4139:0001547B ; 4140:0001547B FEFF CP $FF 4141:0001547D 20D2 JR NZ,DMVSET2 4142:0001547F ; 4143:0001547F AF XOR A 4144:00015480 77 LD (HL),A 4145:00015481 DMEND 4146:00015481 ;===================================== 4147:00015481 ;===================================== 4148:00015481 ;===================================== 4149:00015481 ;===================================== 4150:00015481 DFDSET 4151:00015481 ; 4152:00015481 AF XOR A 4153:00015482 E0D7 LD (WORK0),A 4154:00015484 E0D8 LD (WORK1),A 4155:00015486 E0D9 LD (WORK2),A 4156:00015488 E0DA LD (WORK3),A 4157:0001548A 4F LD C,A 4158:0001548B 47 LD B,A 4159:0001548C 5F LD E,A 4160:0001548D 57 LD D,A 4161:0001548E ; 4162:0001548E FAB0DB LD A,(DAMPFG) 4163:00015491 CB37 SWAP A 4164:00015493 E603 AND $03 4165:00015495 5F LD E,A 4166:00015496 ; 4167:00015496 A7 AND A zti.s 98-11-10 11:31:47......PAGE 0092 LINE# LOC CODE LINE 4168:00015497 285E JR Z,DFDEND 4169:00015499 ; 4170:00015499 DFZLOP 4171:00015499 0600 LD B,$0 4172:0001549B 79 LD A,C 4173:0001549C C608 ADD A,$08 4174:0001549E 4F LD C,A 4175:0001549F 1D DEC E 4176:000154A0 7B LD A,E 4177:000154A1 A7 AND A 4178:000154A2 20F5 JR NZ,DFZLOP 4179:000154A4 ; 4180:000154A4 FAB0DB LD A,(DAMPFG) 4181:000154A7 E603 AND $03 4182:000154A9 2822 JR Z,DFMAIN 4183:000154AB ; 4184:000154AB FAB0DB LD A,(DAMPFG) 4185:000154AE E630 AND $30 4186:000154B0 FE30 CP $30 4187:000154B2 2808 JR Z,DF3SET 4188:000154B4 ; 4189:000154B4 79 LD A,C 4190:000154B5 C604 ADD A,$04 4191:000154B7 4F LD C,A 4192:000154B8 0600 LD B,$0 4193:000154BA 1811 JR DFMAIN 4194:000154BC ; 4195:000154BC DF3SET 4196:000154BC FAB0DB LD A,(DAMPFG) 4197:000154BF E603 AND $03 4198:000154C1 5F LD E,A 4199:000154C2 ; 4200:000154C2 DF3LOP 4201:000154C2 ; 4202:000154C2 0600 LD B,$0 4203:000154C4 79 LD A,C 4204:000154C5 C60B ADD A,$0B 4205:000154C7 4F LD C,A 4206:000154C8 1D DEC E 4207:000154C9 7B LD A,E 4208:000154CA A7 AND A 4209:000154CB 20F5 JR NZ,DF3LOP 4210:000154CD ; 4211:000154CD DFMAIN 4212:000154CD ; 4213:000154CD E5 PUSH HL 4214:000154CE ; 4215:000154CE 212553 LD HL,DDDHH 4216:000154D1 09 ADD HL,BC 4217:000154D2 7E LD A,(HL) 4218:000154D3 E0D7 LD (WORK0),A 4219:000154D5 ; 4220:000154D5 216953 LD HL,DDDLL 4221:000154D8 09 ADD HL,BC 4222:000154D9 7E LD A,(HL) 4223:000154DA E0D8 LD (WORK1),A 4224:000154DC ; zti.s 98-11-10 11:31:47......PAGE 0093 LINE# LOC CODE LINE 4225:000154DC AF XOR A 4226:000154DD E0D9 LD (WORK2),A 4227:000154DF ; 4228:000154DF 21AD53 LD HL,DDDCC 4229:000154E2 09 ADD HL,BC 4230:000154E3 7E LD A,(HL) 4231:000154E4 E0DA LD (WORK3),A 4232:000154E6 ; 4233:000154E6 E1 POP HL 4234:000154E7 ; 4235:000154E7 CD2855 CALL DVRSET 4236:000154EA ; 4237:000154EA E5 PUSH HL 4238:000154EB ; 4239:000154EB 212553 LD HL,DDDHH 4240:000154EE 03 INC BC 4241:000154EF 09 ADD HL,BC 4242:000154F0 7E LD A,(HL) 4243:000154F1 ; 4244:000154F1 E1 POP HL 4245:000154F2 ; 4246:000154F2 23 INC HL 4247:000154F3 ; 4248:000154F3 FEFF CP $FF 4249:000154F5 20D6 JR NZ,DFMAIN 4250:000154F7 ; 4251:000154F7 ; XOR A 4252:000154F7 ; LD (HL),A 4253:000154F7 DFDEND 4254:000154F7 ; RET 4255:000154F7 ;===================================== 4256:000154F7 ;===================================== 4257:000154F7 DALVSET 4258:000154F7 AF XOR A 4259:000154F8 47 LD B,A 4260:000154F9 4F LD C,A 4261:000154FA ; 4262:000154FA ;; LD A,(DNJNNO) ;DALVFG) 4263:000154FA ;; SWAP A 4264:000154FA ;; AND $0F 4265:000154FA ;; LD D,A 4266:000154FA ;;; 4267:000154FA ;; LD A,(DNJNNO) ;DALVFG) 4268:000154FA ;; AND $0F 4269:000154FA ;; LD E,A 4270:000154FA ; 4271:000154FA FAB0DB LD A,(DAMPFG) 4272:000154FD CB6F BIT 5,A 4273:000154FF 2801 JR Z,DLVMAIN 4274:00015501 ; 4275:00015501 03 INC BC 4276:00015502 DLVMAIN 4277:00015502 ; 4278:00015502 E5 PUSH HL 4279:00015503 ; 4280:00015503 21F153 LD HL,DLVH 4281:00015506 09 ADD HL,BC zti.s 98-11-10 11:31:47......PAGE 0094 LINE# LOC CODE LINE 4282:00015507 7E LD A,(HL) 4283:00015508 E0D7 LD (WORK0),A 4284:0001550A ; 4285:0001550A 21F353 LD HL,DLVL 4286:0001550D 09 ADD HL,BC 4287:0001550E 7E LD A,(HL) 4288:0001550F E0D8 LD (WORK1),A 4289:00015511 ; 4290:00015511 3E01 LD A,$01 4291:00015513 E0D9 LD (WORK2),A 4292:00015515 ; 4293:00015515 ;; LD C,D 4294:00015515 ;; LD B,$0 4295:00015515 ;; LD HL,DLVSU 4296:00015515 ;; ADD HL,BC 4297:00015515 ;; LD A,(HL) 4298:00015515 F0F7 LD A,(DNJNNO) 4299:00015517 C6B1 ADD A,$B1 4300:00015519 E0DA LD (WORK3),A 4301:0001551B ; 4302:0001551B E1 POP HL 4303:0001551C ; 4304:0001551C CD2855 CALL DVRSET 4305:0001551F ; 4306:0001551F E5 PUSH HL 4307:00015520 ; 4308:00015520 ;; LD C,E 4309:00015520 ;; LD B,$0 4310:00015520 ;; LD HL,DLVSU 4311:00015520 ;; ADD HL,BC 4312:00015520 ;; LD A,(HL) 4313:00015520 ; 4314:00015520 E1 POP HL 4315:00015521 23 INC HL 4316:00015522 ; 4317:00015522 3E7F LD A,$7F 4318:00015524 22 LD (HLI),A 4319:00015525 ; 4320:00015525 AF XOR A 4321:00015526 77 LD (HL),A 4322:00015527 DALEND 4323:00015527 C9 RET 4324:00015528 ;===================================== 4325:00015528 ;===================================== 4326:00015528 ;===================================== 4327:00015528 DVRSET 4328:00015528 ; 4329:00015528 F0D7 LD A,(WORK0) 4330:0001552A 22 LD (HLI),A 4331:0001552B ; 4332:0001552B F0D8 LD A,(WORK1) 4333:0001552D 22 LD (HLI),A 4334:0001552E ; 4335:0001552E F0D9 LD A,(WORK2) 4336:00015530 22 LD (HLI),A 4337:00015531 ; 4338:00015531 F0DA LD A,(WORK3) zti.s 98-11-10 11:31:47......PAGE 0095 LINE# LOC CODE LINE 4339:00015533 77 LD (HL),A 4340:00015534 ; 4341:00015534 C9 RET 4342:00015535 ;===================================== 4343:00015535 ;===================================== 4344:00015535 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 4345:00015535 ;% 大　地上マップ　ディスプレイ % 4346:00015535 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 4347:00015535 GRMAPSB 4348:00015535 AF XOR A 4349:00015536 EAC0C3 LD (ENOMID),A 4350:00015539 ; 4351:00015539 FA96DB LD A,(ITMODE) 4352:0001553C C7 RST 0 4353:0001553D 4955 DW GRMIT00 4354:0001553F C555 DW GRMIT08 4355:00015541 CE55 DW GRMIT0C 4356:00015543 D755 DW GRMIT10 4357:00015545 E855 DW GRMMAIN 4358:00015547 C456 DW GRMMA00 4359:00015549 ;===================================== 4360:00015549 GRMIT00 4361:00015549 CD0000 CALL PLCSET 4362:0001554C CD0000 CALL ENEMYL1 4363:0001554F ; 4364:0001554F CD0000 CALL FDIN 4365:00015552 ; 4366:00015552 FA6BC1 LD A,(SBHR) 4367:00015555 FE04 CP $4 4368:00015557 206B JR NZ,GRMI02 4369:00015559 ; 4370:00015559 3E03 LD A,$03 4371:0001555B E0A9 LD (SLEVEL),A 4372:0001555D 3E30 LD A,$30 4373:0001555F E0AA LD (SLEVEL+1),A 4374:00015561 ; 4375:00015561 CD4544 CALL ITMINC 4376:00015564 ; 4377:00015564 AF XOR A 4378:00015565 EA6BC1 LD (SBHR),A 4379:00015568 EA6CC1 LD (SBCNT),A 4380:0001556B E096 LD (SCCH),A 4381:0001556D EABFC1 LD (SCXAD),A 4382:00015570 E097 LD (SCCV),A 4383:00015572 EA4FC1 LD (WNDFLG),A 4384:00015575 ;;; LD (ICONFG),A 4385:00015575 EAB2C1 LD (ICONTM),A 4386:00015578 EAB3C1 LD (ICONTM2),A 4387:0001557B ; 4388:0001557B FA54DB LD A,(GRNDPTW) 4389:0001557E EAB4DB LD (GMAPPT),A 4390:00015581 5F LD E,A 4391:00015582 1600 LD D,$00 4392:00015584 21CE57 LD HL,GRPOINT 4393:00015587 19 ADD HL,DE 4394:00015588 7E LD A,(HL) 4395:00015589 A7 AND A zti.s 98-11-10 11:31:47......PAGE 0096 LINE# LOC CODE LINE 4396:0001558A 281E JR Z,GRMI01 4397:0001558C ; 4398:0001558C CB37 SWAP A 4399:0001558E E607 AND $07 ;3 4400:00015590 3C INC A 4401:00015591 FE01 CP $01 4402:00015593 2015 JR NZ,GRMI01 ;ふくろう？ 4403:00015595 ; ;YES ! 4404:00015595 FAA2C5 LD A,(GMAPFG) 4405:00015598 A7 AND A 4406:00015599 3E00 LD A,$00 4407:0001559B 200D JR NZ,GRMI01 4408:0001559D ; 4409:0001559D 2100D8 LD HL,GRRMSV 4410:000155A0 19 ADD HL,DE 4411:000155A1 7E LD A,(HL) 4412:000155A2 E620 AND %00100000 4413:000155A4 3E00 LD A,$00 4414:000155A6 2802 JR Z,GRMI01 ;１回でも話した？ 4415:000155A8 ; ;YES! 4416:000155A8 3E01 LD A,$01 4417:000155AA GRMI01 4418:000155AA EAB1C1 LD (ICONFG),A ; Icon initial 4419:000155AD ; 4420:000155AD FAB4DB LD A,(GMAPPT) 4421:000155B0 EAB4C1 LD (WGMAPPT),A 4422:000155B3 ; 4423:000155B3 F040 LD A,(LCDC) 4424:000155B5 E6DF AND %11011111 ; Window off ! 4425:000155B7 EAFDD6 LD (LCDCB),A 4426:000155BA E040 LD (LCDC),A 4427:000155BC ; 4428:000155BC CDFD56 CALL SCRRCLR 4429:000155BF ; 4430:000155BF 3E00 LD A,GMAPBGS 4431:000155C1 EAFFD6 LD (VRFLG),A ; Waku BG set 4432:000155C4 GRMI02 4433:000155C4 C9 RET 4434:000155C5 ;===================================== 4435:000155C5 GRMIT08 4436:000155C5 3E00 LD A,GMBST 4437:000155C7 EAFED6 LD (BLNKFG),A ; Bank set 4438:000155CA ; 4439:000155CA CD4544 CALL ITMINC 4440:000155CD C9 RET 4441:000155CE ;===================================== 4442:000155CE GRMIT0C 4443:000155CE 3E00 LD A,GRCST 4444:000155D0 EAFED6 LD (BLNKFG),A ; Unit chr set ! 4445:000155D3 ; 4446:000155D3 CD4544 CALL ITMINC 4447:000155D6 C9 RET 4448:000155D7 ;===================================== 4449:000155D7 GRMIT10 4450:000155D7 ; LD A,(FADEON) 4451:000155D7 ; AND A 4452:000155D7 ; JR Z,GRMIT11 zti.s 98-11-10 11:31:47......PAGE 0097 LINE# LOC CODE LINE 4453:000155D7 ;; 4454:000155D7 ; LD A,$04 4455:000155D7 ; LD (SBHR),A 4456:000155D7 ;; 4457:000155D7 ; LD A,(FADEBP) 4458:000155D7 ; LD (BGPFG),A 4459:000155D7 ; JR GRMIT12 4460:000155D7 ;GRMIT11 4461:000155D7 CD0000 CALL FDOUT 4462:000155DA ; 4463:000155DA ;GRMIT12 4464:000155DA FA6BC1 LD A,(SBHR) 4465:000155DD FE04 CP $4 4466:000155DF 2006 JR NZ,GRMI12 4467:000155E1 ; 4468:000155E1 CD4544 CALL ITMINC 4469:000155E4 ; 4470:000155E4 CD3B49 CALL KETTEIS ;(S) 4471:000155E7 GRMI12 4472:000155E7 C9 RET 4473:000155E8 ;===================================== 4474:000155E8 ;- - - - - - - - - - - - - - - - - - - - 4475:000155E8 GRMMAIN 4476:000155E8 FA9FC1 LD A,(MSGEFG) 4477:000155EB A7 AND A 4478:000155EC C2B756 JP NZ,SQEED 4479:000155EF ; 4480:000155EF F0CC LD A,(KEYA2) 4481:000155F1 E610 AND $10 4482:000155F3 2866 JR Z,SQEE 4483:000155F5 ; 4484:000155F5 ;;;; LD A,$56 4485:000155F5 FAB4DB LD A,(GMAPPT) 4486:000155F8 5F LD E,A 4487:000155F9 1600 LD D,$00 4488:000155FB 21CE57 LD HL,GRPOINT 4489:000155FE 19 ADD HL,DE 4490:000155FF 7E LD A,(HL) 4491:00015600 A7 AND A 4492:00015601 2823 JR Z,GRMM000 4493:00015603 ; 4494:00015603 5F LD E,A 4495:00015604 ; 4496:00015604 E6F0 AND $F0 4497:00015606 2015 JR NZ,GAMS02 ;ふくろう？ 4498:00015608 ; ;YES ! 4499:00015608 FAA2C5 LD A,(GMAPFG) 4500:0001560B A7 AND A 4501:0001560C 2018 JR NZ,GRMM000 4502:0001560E ; 4503:0001560E D5 PUSH DE 4504:0001560F FAB4DB LD A,(GMAPPT) 4505:00015612 5F LD E,A 4506:00015613 ; 4507:00015613 2100D8 LD HL,GRRMSV 4508:00015616 19 ADD HL,DE 4509:00015617 D1 POP DE zti.s 98-11-10 11:31:47......PAGE 0098 LINE# LOC CODE LINE 4510:00015618 7E LD A,(HL) 4511:00015619 E620 AND %00100000 4512:0001561B 2809 JR Z,GRMM000 ;１回でも話した？ 4513:0001561D ; 4514:0001561D GAMS02 4515:0001561D 1600 LD D,$00 4516:0001561F 217E57 LD HL,GRMSDT 4517:00015622 19 ADD HL,DE 4518:00015623 7E LD A,(HL) 4519:00015624 1823 JR GRMSCK 4520:00015626 ; 4521:00015626 GRMM000 4522:00015626 FAB4DB LD A,(GMAPPT) 4523:00015629 FE24 CP $24 4524:0001562B 2804 JR Z,GAMS08 4525:0001562D FE34 CP $34 4526:0001562F 2004 JR NZ,GAMS10 4527:00015631 GAMS08 4528:00015631 3E76 LD A,$76 4529:00015633 1814 JR GRMSCK 4530:00015635 GAMS10 4531:00015635 1F RRA 4532:00015636 E607 AND $07 4533:00015638 5F LD E,A 4534:00015639 FAB4DB LD A,(GMAPPT) 4535:0001563C 1F RRA 4536:0001563D 1F RRA 4537:0001563E E638 AND %00111000 4538:00015640 B3 OR E 4539:00015641 5F LD E,A 4540:00015642 1600 LD D,$00 4541:00015644 213E57 LD HL,GRAREA 4542:00015647 19 ADD HL,DE 4543:00015648 7E LD A,(HL) 4544:00015649 ; AND A 4545:00015649 ; JR Z,SQEE 4546:00015649 ;; 4547:00015649 ; ADD A,$56-1 4548:00015649 ;====================================== 4549:00015649 GRMSCK 4550:00015649 CD0000 CALL MSGCHK 4551:0001564C ; 4552:0001564C FAB4DB LD A,(GMAPPT) 4553:0001564F FE70 CP $70 4554:00015651 3E01 LD A,$01 4555:00015653 3002 JR NC,ERT 4556:00015655 ; 4557:00015655 3E81 LD A,$81 4558:00015657 ERT 4559:00015657 EA9FC1 LD (MSGEFG),A 4560:0001565A C9 RET 4561:0001565B ;- - - - - - - - - - - - - - - - 4562:0001565B SQEE 4563:0001565B FA0000 LD A,(HIMITSU) 4564:0001565E A7 AND A 4565:0001565F 283D JR Z,GRMM08 4566:00015661 ; zti.s 98-11-10 11:31:47......PAGE 0099 LINE# LOC CODE LINE 4567:00015661 F0CB LD A,(KEYA1) 4568:00015663 FE60 CP %01100000 4569:00015665 2037 JR NZ,GRMM08 4570:00015667 ; 4571:00015667 3E00 LD A,GPLAY 4572:00015669 EA95DB LD (GMMODE),A 4573:0001566C ; 4574:0001566C CD0000 CALL NXGOTO 4575:0001566F ; 4576:0001566F 3E00 LD A,$00 4577:00015671 EA01D4 LD (NXRMMD),A 4578:00015674 EA02D4 LD (NXDJNO),A 4579:00015677 FAB4DB LD A,(GMAPPT) 4580:0001567A EA03D4 LD (NXRMNO),A 4581:0001567D 3E48 LD A,$48 4582:0001567F EA04D4 LD (NXRMPX),A 4583:00015682 3E52 LD A,$52 4584:00015684 EA05D4 LD (NXRMPY),A 4585:00015687 ; 4586:00015687 F098 LD A,(PLXPSL) 4587:00015689 CB37 SWAP A 4588:0001568B E60F AND $0F 4589:0001568D 5F LD E,A 4590:0001568E F099 LD A,(PLYPSL) 4591:00015690 D608 SUB $08 4592:00015692 E6F0 AND $F0 4593:00015694 B3 OR E 4594:00015695 ;; LD A,$44 4595:00015695 EA16D4 LD (DRPSBF),A 4596:00015698 ; 4597:00015698 3E07 LD A,GPMA 4598:0001569A EA96DB LD (ITMODE),A 4599:0001569D ; 4600:0001569D C9 RET 4601:0001569E GRMM08 4602:0001569E 1E40 LD E,%01000000 4603:000156A0 FA0000 LD A,(HIMITSU) 4604:000156A3 A7 AND A 4605:000156A4 2002 JR NZ,GRMM09 4606:000156A6 ; 4607:000156A6 1E60 LD E,%01100000 4608:000156A8 GRMM09 4609:000156A8 F0CC LD A,(KEYA2) 4610:000156AA A3 AND E 4611:000156AB ;; AND %01000000 ;Select & B 4612:000156AB ;; AND %01100000 ;Select & B 4613:000156AB 280A JR Z,GRMM10 4614:000156AD ; 4615:000156AD AF XOR A 4616:000156AE EA6BC1 LD (SBHR),A 4617:000156B1 EA6CC1 LD (SBCNT),A 4618:000156B4 ; 4619:000156B4 CD4544 CALL ITMINC 4620:000156B7 GRMM10 4621:000156B7 SQEED 4622:000156B7 CD1D57 CALL GRMPST 4623:000156BA CDE658 CALL GRMCST zti.s 98-11-10 11:31:47......PAGE 0100 LINE# LOC CODE LINE 4624:000156BD ; 4625:000156BD CDBE5A CALL ICONCS 4626:000156C0 C9 RET 4627:000156C1 ;===================================== 4628:000156C1 TBGEND 4629:000156C1 CD0000 CALL TBGCST 4630:000156C4 ;===================================== 4631:000156C4 TSV4000 4632:000156C4 GRMMA00 4633:000156C4 CD0000 CALL FDIN 4634:000156C7 ; 4635:000156C7 FA6BC1 LD A,(SBHR) 4636:000156CA FE04 CP $4 4637:000156CC 204E JR NZ,GRMA02 4638:000156CE ; 4639:000156CE ;; CALL KETTEIS ;(S) 4640:000156CE ; 4641:000156CE AF XOR A 4642:000156CF EA0AC5 LD (SHOPFG),A ; Shop BG initial !! 4643:000156D2 EA16C1 LD (ZZZFLG),A ;タリン ｚｚｚ セットフラグ 4644:000156D5 E096 LD (SCCH),A 4645:000156D7 E097 LD (SCCV),A 4646:000156D9 EA67C1 LD (ITEMNOT),A 4647:000156DC ; 4648:000156DC 3E07 LD A,$07 4649:000156DE E0A9 LD (SLEVEL),A 4650:000156E0 3E70 LD A,$70 4651:000156E2 E0AA LD (SLEVEL+1),A 4652:000156E4 ; 4653:000156E4 3E00 LD A,GPLAY 4654:000156E6 EA95DB LD (GMMODE),A 4655:000156E9 ; 4656:000156E9 E0BC LD (BGMNOT),A 4657:000156EB ; 4658:000156EB 3E02 LD A,GPM 4659:000156ED EA96DB LD (ITMODE),A 4660:000156F0 ; 4661:000156F0 FAA5DB LD A,(DJFLAG) 4662:000156F3 A7 AND A 4663:000156F4 3E00 LD A,DJBST ; Bank set! 4664:000156F6 2002 JR NZ,GRMA01 ; Danjyon ? 4665:000156F8 ; ; yes ! 4666:000156F8 3E00 LD A,GRBST ; Bank set! 4667:000156FA GRMA01 4668:000156FA EAFED6 LD (BLNKFG),A 4669:000156FD ; 4670:000156FD SCRRCLR 4671:000156FD 2124C1 LD HL,SCRLFG ; Scroll base display reset ! 4672:00015700 1E00 LD E,$0 4673:00015702 GRMA015 4674:00015702 AF XOR A 4675:00015703 22 LD (HLI),A 4676:00015704 1C INC E 4677:00015705 7B LD A,E 4678:00015706 FE0C CP $C 4679:00015708 20F8 JR NZ,GRMA015 4680:0001570A ;================================== zti.s 98-11-10 11:31:47......PAGE 0101 LINE# LOC CODE LINE 4681:0001570A WINDIT 4682:0001570A 3E80 LD A,$80 4683:0001570C EA9ADB LD (WNDYPS),A 4684:0001570F 3E06 LD A,$06 4685:00015711 E04B LD (WDX),A ; Item window position initial 4686:00015713 ; 4687:00015713 3E08 LD A,$08 4688:00015715 EA50C1 LD (WNDSPD),A ; Item window speed initial 4689:00015718 ; 4690:00015718 AF XOR A 4691:00015719 EA4FC1 LD (WNDFLG),A 4692:0001571C GRMA02 4693:0001571C C9 RET 4694:0001571D ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 4695:0001571D ;% Player pos set % 4696:0001571D ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 4697:0001571D GRMPST 4698:0001571D ; LD A,(FRCNT) 4699:0001571D ; AND %00010000 4700:0001571D ; JR Z,GRMPS10 4701:0001571D ;;; JR NZ,GRMPS10 4702:0001571D ; 4703:0001571D 219CC0 LD HL,OAM+$9C 4704:00015720 ; 4705:00015720 FA54DB LD A,(GRNDPTW) 4706:00015723 1F RRA 4707:00015724 E678 AND %01111000 4708:00015726 C618 ADD A,$18 4709:00015728 22 LD (HLI),A 4710:00015729 FA54DB LD A,(GRNDPTW) 4711:0001572C CB37 SWAP A 4712:0001572E 1F RRA 4713:0001572F E678 AND %01111000 4714:00015731 C618 ADD A,$18 4715:00015733 22 LD (HLI),A 4716:00015734 ; 4717:00015734 363E LD (HL),$3E 4718:00015736 23 INC HL 4719:00015737 ; 4720:00015737 F0E7 LD A,(FRCNT) 4721:00015739 17 RLA 4722:0001573A ; RLA 4723:0001573A ; RLA 4724:0001573A E610 AND %00010000 4725:0001573C ; 4726:0001573C 77 LD (HL),A ;$00 4727:0001573D GRMPS10 4728:0001573D C9 RET 4729:0001573E ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 4730:0001573E ;% Cursol set % 4731:0001573E ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 4732:0001573E GRAREA 4733:0001573E ;; 0 1 2 3 4 5 6 7 4734:0001573E 6C6C6C6B6C6C6C6C DB $6C,$6C,$6C,$6B,$6C,$6C,$6C,$6C ;0 4735:00015746 7676797979797979 DB $76,$76,$79,$79,$79,$79,$79,$79 ;1 4736:0001574E 6A6A727A78787171 DB $6A,$6A,$72,$7A,$78,$78,$71,$71 ;2 4737:00015756 6A6A727078787171 DB $6A,$6A,$72,$70,$78,$78,$71,$71 ;3 zti.s 98-11-10 11:31:47......PAGE 0102 LINE# LOC CODE LINE 4738:0001575E 6A6E696969697771 DB $6A,$6E,$69,$69,$69,$69,$77,$71 ;4 4739:00015766 6E6E696969697777 DB $6E,$6E,$69,$69,$69,$69,$77,$77 ;5 4740:0001576E 7B7B6D6274746F68 DB $7B,$7B,$6D,$62,$74,$74,$6F,$68 ;6 4741:00015776 7373737474747568 DB $73,$73,$73,$74,$74,$74,$75,$68 ;7 4742:0001577E ;--------------------------------------------------- 4743:0001577E GRMSDT 4744:0001577E ;; 0 1 2 3 4 5 6 7 8 9 A B C D E F 4745:0001577E 00D9C0C1C2C3C4C5 DB 0,$D9,$C0,$C1,$C2,$C3,$C4,$C5,$C6,$C7,$C8,$C9,$CA,$CB,$CC,$CD ;0 4746:0001578E 00565758595A5B5C DB 0,$56,$57,$58,$59,$5A,$5B,$5C,$5D,$00,$00,$00,$00,$00,$00,$00 ;1 4747:0001579E 007C670000806500 DB 0,$7C,$67,$00,$00,$80,$65,$00,$64,$88,$00,$00,$00,$00,$00,$00 ;2 4748:000157AE 005E5F7F7E7D8284 DB 0,$5E,$5F,$7F,$7E,$7D,$82,$84,$85,$86,$87,$81,$66,$83,$5E,$63 ;3 4749:000157BE 0061000000000000 DB 0,$61,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 ;4 4750:000157CE GRPOINT 4751:000157CE ;;; 0x:FukurouMesege 1x:Danjyon 2x:Shop 3x:Nanka 4x:Nanka next 4752:000157CE ;; 0 1 2 3 4 5 6 7 8 9 A B C D E F 4753:000157CE 0000000000003E00 DB $00,$00,$00,$00,$00,$00,$3E,$00,$0E,$00,$39,$00,$00,$00,$17,$00 ;0 4754:000157DE 183D00000000060C DB $18,$3D,$00,$00,$00,$00,$06,$0C,$00,$00,$00,$00,$00,$00,$00,$00 ;1 4755:000157EE 0000000012000000 DB $00,$00,$00,$00,$12,$00,$00,$00,$07,$00,$00,$14,$00,$00,$00,$00 ;2 4756:000157FE 333D000000000500 DB $33,$3D,$00,$00,$00,$00,$05,$00,$00,$00,$00,$00,$00,$00,$00,$29 ;3 4757:0001580E 0003000000250000 DB $00,$03,$00,$00,$00,$25,$00,$00,$00,$00,$00,$3D,$00,$00,$00,$00 ;4 4758:0001581E 0000000000000000 DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 ;5 4759:0001582E 000000000D220000 DB $00,$00,$00,$00,$0D,$22,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 ;6 4760:0001583E 0000000000000000 DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 ;7 4761:0001584E 02213B3600000000 DB $02,$21,$3B,$36,$00,$00,$00,$00,$3D,$00,$37,$00,$16,$00,$00,$00 ;8 4762:0001585E 0000002600000000 DB $00,$00,$00,$26,$00,$00,$00,$00,$00,$00,$00,$09,$0B,$09,$00,$00 ;9 4763:0001586E 00353C003D000000 DB $00,$35,$3C,$00,$3D,$00,$00,$00,$00,$00,$00,$00,$0A,$00,$00,$00 ;A 4764:0001587E 3A343D2800130700 DB $3A,$34,$3D,$28,$00,$13,$07,$00,$00,$00,$00,$00,$00,$00,$00,$00 ;B 4765:0001588E 0000000000000000 DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 ;C 4766:0001589E 0000041100003800 DB $00,$00,$04,$11,$00,$00,$38,$00,$00,$15,$00,$3D,$00,$00,$00,$00 ;D 4767:000158AE 0000004100000000 DB $00,$00,$00,$41,$00,$00,$00,$00,$3D,$00,$00,$00,$00,$00,$08,$00 ;E 4768:000158BE 0000010000003F00 DB $00,$00,$01,$00,$00,$00,$3F,$00,$00,$00,$00,$00,$00,$00,$00,$00 ;F 4769:000158CE ;===================================================== 4770:000158CE FKMSCKL 4771:000158CE F0F6 LD A,(GRNDPT) 4772:000158D0 5F LD E,A 4773:000158D1 1600 LD D,$00 4774:000158D3 21CE57 LD HL,GRPOINT 4775:000158D6 19 ADD HL,DE 4776:000158D7 5E LD E,(HL) 4777:000158D8 217E57 LD HL,GRMSDT 4778:000158DB 19 ADD HL,DE 4779:000158DC 7E LD A,(HL) 4780:000158DD C30000 JP MSGCHK 4781:000158E0 ;-------------------------------------------------------- 4782:000158E0 GRCSXD 4783:000158E0 0001FF DB $00,$01,$FF 4784:000158E3 GRCSYD 4785:000158E3 00F010 DB $00,$F0,$10 4786:000158E6 ;---------------------------------------------- 4787:000158E6 GRMCST 4788:000158E6 FAB4DB LD A,(GMAPPT) 4789:000158E9 E0D7 LD (WORK0),A 4790:000158EB ; 4791:000158EB FAB3C1 LD A,(ICONTM2) 4792:000158EE 21B2C1 LD HL,ICONTM 4793:000158F1 B6 OR (HL) 4794:000158F2 219FC1 LD HL,MSGEFG zti.s 98-11-10 11:31:47......PAGE 0103 LINE# LOC CODE LINE 4795:000158F5 B6 OR (HL) 4796:000158F6 C2B459 JP NZ,GRMC60 4797:000158F9 ; 4798:000158F9 F0CB LD A,(KEYA1) 4799:000158FB 4F LD C,A 4800:000158FC 2182C1 LD HL,WDMVCT 4801:000158FF E60F AND $0F 4802:00015901 2004 JR NZ,GRMC20 4803:00015903 ; 4804:00015903 AF XOR A 4805:00015904 77 LD (HL),A 4806:00015905 180B JR GRMC30 4807:00015907 GRMC20 4808:00015907 7E LD A,(HL) 4809:00015908 3C INC A 4810:00015909 77 LD (HL),A 4811:0001590A FE18 CP $18 4812:0001590C 2004 JR NZ,GRMC30 4813:0001590E ; 4814:0001590E ;; LD A,$15 4815:0001590E 3615 LD (HL),$15 ;A 4816:00015910 1803 JR GRMC50 4817:00015912 GRMC30 4818:00015912 F0CC LD A,(KEYA2) 4819:00015914 4F LD C,A 4820:00015915 GRMC50 4821:00015915 79 LD A,C 4822:00015916 E603 AND %00000011 4823:00015918 5F LD E,A 4824:00015919 1600 LD D,$0 4825:0001591B 21E058 LD HL,GRCSXD 4826:0001591E 19 ADD HL,DE 4827:0001591F FAB4DB LD A,(GMAPPT) 4828:00015922 57 LD D,A 4829:00015923 E6F0 AND $F0 4830:00015925 5F LD E,A 4831:00015926 7A LD A,D 4832:00015927 86 ADD A,(HL) 4833:00015928 E60F AND $0F 4834:0001592A B3 OR E 4835:0001592B EAB4DB LD (GMAPPT),A 4836:0001592E ; 4837:0001592E 79 LD A,C ;(KEYA2) 4838:0001592F 1F RRA 4839:00015930 1F RRA 4840:00015931 E603 AND %00000011 4841:00015933 5F LD E,A 4842:00015934 1600 LD D,$0 4843:00015936 21E358 LD HL,GRCSYD 4844:00015939 19 ADD HL,DE 4845:0001593A FAB4DB LD A,(GMAPPT) 4846:0001593D 86 ADD A,(HL) 4847:0001593E 21D7FF LD HL,WORK0 4848:00015941 EAB4DB LD (GMAPPT),A 4849:00015944 BE CP (HL) 4850:00015945 286D JR Z,GRMC60 ; Move ? 4851:00015947 ; ; yes ! zti.s 98-11-10 11:31:47......PAGE 0104 LINE# LOC CODE LINE 4852:00015947 5F LD E,A 4853:00015948 1600 LD D,$00 4854:0001594A 2100D8 LD HL,GRRMSV 4855:0001594D 19 ADD HL,DE 4856:0001594E ; 4857:0001594E FAA2C5 LD A,(GMAPFG) 4858:00015951 A7 AND A 4859:00015952 2016 JR NZ,GRMC55 4860:00015954 ; 4861:00015954 7E LD A,(HL) 4862:00015955 E6FF AND %11111111 4863:00015957 2011 JR NZ,GRMC55 ;既に行ったか？ 4864:00015959 ; ;NO 4865:00015959 FA7BC1 LD A,(BGCKOF) 4866:0001595C A7 AND A 4867:0001595D 200B JR NZ,GRMC55 4868:0001595F ; 4869:0001595F 3E09 LD A,$09 4870:00015961 E0F2 LD (SOUND1),A ;(S) 4871:00015963 ; 4872:00015963 F0D7 LD A,(WORK0) 4873:00015965 EAB4DB LD (GMAPPT),A 4874:00015968 184A JR GRMC60 4875:0001596A ; 4876:0001596A GRMC55 4877:0001596A CD0000 CALL CURSDSS ;(S) 4878:0001596D ;; AND $07 4879:0001596D ;; CP $03 4880:0001596D ;; JR NZ,GRMC58 4881:0001596D ;; LD E,A 4882:0001596D ;; LD D,$00 4883:0001596D 21CE57 LD HL,GRPOINT 4884:00015970 19 ADD HL,DE 4885:00015971 7E LD A,(HL) 4886:00015972 A7 AND A 4887:00015973 2830 JR Z,GRMC58 4888:00015975 ; 4889:00015975 CB37 SWAP A 4890:00015977 E607 AND $07 ;3 4891:00015979 3C INC A 4892:0001597A 4F LD C,A 4893:0001597B ; 4894:0001597B FE01 CP $01 4895:0001597D 200F JR NZ,GRMC53 ;ふくろう？ 4896:0001597F ; ;YES ! 4897:0001597F FAA2C5 LD A,(GMAPFG) 4898:00015982 A7 AND A 4899:00015983 2020 JR NZ,GRMC58 4900:00015985 ; 4901:00015985 2100D8 LD HL,GRRMSV 4902:00015988 19 ADD HL,DE 4903:00015989 7E LD A,(HL) 4904:0001598A E620 AND %00100000 4905:0001598C 2817 JR Z,GRMC58 ;１回でも話した？ 4906:0001598E ; ;YES! 4907:0001598E GRMC53 4908:0001598E FAB1C1 LD A,(ICONFG) zti.s 98-11-10 11:31:47......PAGE 0105 LINE# LOC CODE LINE 4909:00015991 A7 AND A 4910:00015992 2005 JR NZ,GRMC56 4911:00015994 ; 4912:00015994 3E10 LD A,$10 4913:00015996 EAB2C1 LD (ICONTM),A 4914:00015999 GRMC56 4915:00015999 79 LD A,C 4916:0001599A EAB1C1 LD (ICONFG),A 4917:0001599D ; 4918:0001599D FAB4DB LD A,(GMAPPT) 4919:000159A0 EAB4C1 LD (WGMAPPT),A 4920:000159A3 ; 4921:000159A3 180F JR GRMC60 4922:000159A5 GRMC58 4923:000159A5 FAB1C1 LD A,(ICONFG) 4924:000159A8 A7 AND A 4925:000159A9 2809 JR Z,GRMC60 4926:000159AB ; 4927:000159AB AF XOR A 4928:000159AC EAB1C1 LD (ICONFG),A 4929:000159AF ; 4930:000159AF 3E10 LD A,$10 4931:000159B1 EAB3C1 LD (ICONTM2),A 4932:000159B4 GRMC60 4933:000159B4 ;- - - - C SET- - - - - - 4934:000159B4 2180C0 LD HL,OAM+$80 4935:000159B7 ; 4936:000159B7 FAB4DB LD A,(GMAPPT) 4937:000159BA 1F RRA 4938:000159BB E678 AND %01111000 4939:000159BD C614 ADD A,$14 4940:000159BF ;;; LD (HLI),A 4941:000159BF 5F LD E,A 4942:000159C0 FAB4DB LD A,(GMAPPT) 4943:000159C3 CB37 SWAP A 4944:000159C5 1F RRA 4945:000159C6 E678 AND %01111000 4946:000159C8 C614 ADD A,$14 4947:000159CA ;;; LD (HLI),A 4948:000159CA 57 LD D,A 4949:000159CB ; 4950:000159CB ; LD A,(FRCNT) 4951:000159CB ; AND %00010000 4952:000159CB ; JR NZ,GRMCS70 4953:000159CB ; 4954:000159CB 7B LD A,E 4955:000159CC 22 LD (HLI),A 4956:000159CD 7A LD A,D 4957:000159CE 22 LD (HLI),A 4958:000159CF ; 4959:000159CF 36F0 LD (HL),$F0 4960:000159D1 23 INC HL 4961:000159D2 ; 4962:000159D2 3600 LD (HL),$00 4963:000159D4 23 INC HL 4964:000159D5 ; 4965:000159D5 7B LD A,E zti.s 98-11-10 11:31:47......PAGE 0106 LINE# LOC CODE LINE 4966:000159D6 22 LD (HLI),A 4967:000159D7 ; 4968:000159D7 7A LD A,D 4969:000159D8 C608 ADD A,$08 4970:000159DA 22 LD (HLI),A 4971:000159DB ; 4972:000159DB 36F0 LD (HL),$F0 4973:000159DD 23 INC HL 4974:000159DE ; 4975:000159DE 3620 LD (HL),$20 4976:000159E0 GRMCS70 4977:000159E0 F0E7 LD A,(FRCNT) 4978:000159E2 E610 AND %00010000 4979:000159E4 203B JR NZ,GRMCS80 4980:000159E6 ; 4981:000159E6 2188C0 LD HL,OAM+$88 4982:000159E9 ; 4983:000159E9 7B LD A,E 4984:000159EA C604 ADD A,$04 4985:000159EC 22 LD (HLI),A 4986:000159ED 7A LD A,D 4987:000159EE C6F6 ADD A,$F6 4988:000159F0 22 LD (HLI),A 4989:000159F1 3EF6 LD A,$F6 4990:000159F3 22 LD (HLI),A 4991:000159F4 3E00 LD A,$00 4992:000159F6 22 LD (HLI),A 4993:000159F7 ; 4994:000159F7 7B LD A,E 4995:000159F8 C604 ADD A,$04 4996:000159FA 22 LD (HLI),A 4997:000159FB 7A LD A,D 4998:000159FC C613 ADD A,$13 4999:000159FE 22 LD (HLI),A 5000:000159FF 3EF6 LD A,$F6 5001:00015A01 22 LD (HLI),A 5002:00015A02 3E20 LD A,$20 5003:00015A04 22 LD (HLI),A 5004:00015A05 ; 5005:00015A05 7B LD A,E 5006:00015A06 C6F6 ADD A,$F6 5007:00015A08 22 LD (HLI),A 5008:00015A09 7A LD A,D 5009:00015A0A C604 ADD A,$04 5010:00015A0C 22 LD (HLI),A 5011:00015A0D 3EF8 LD A,$F8 5012:00015A0F 22 LD (HLI),A 5013:00015A10 3E00 LD A,$00 5014:00015A12 22 LD (HLI),A 5015:00015A13 ; 5016:00015A13 7B LD A,E 5017:00015A14 C60B ADD A,$0B 5018:00015A16 22 LD (HLI),A 5019:00015A17 7A LD A,D 5020:00015A18 C604 ADD A,$04 5021:00015A1A 22 LD (HLI),A 5022:00015A1B 3EF8 LD A,$F8 zti.s 98-11-10 11:31:47......PAGE 0107 LINE# LOC CODE LINE 5023:00015A1D 22 LD (HLI),A 5024:00015A1E 3E40 LD A,$40 5025:00015A20 22 LD (HLI),A 5026:00015A21 GRMCS80 5027:00015A21 C9 RET 5028:00015A22 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 5029:00015A22 ;% Icon set % 5030:00015A22 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 5031:00015A22 ICONCD 5032:00015A22 ;0 5033:00015A22 F8F8F200 DB $F8,$F8,$F2,$00 5034:00015A26 F800F400 DB $F8,$00,$F4,$00 5035:00015A2A F808F420 DB $F8,$08,$F4,$20 5036:00015A2E F810F220 DB $F8,$10,$F2,$20 5037:00015A32 08F8F240 DB $08,$F8,$F2,$40 5038:00015A36 0800F440 DB $08,$00,$F4,$40 5039:00015A3A 0808F460 DB $08,$08,$F4,$60 5040:00015A3E 0810F260 DB $08,$10,$F2,$60 5041:00015A42 ;1 5042:00015A42 FAFAF200 DB $FA,$FA,$F2,$00 5043:00015A46 FA02F400 DB $FA,$02,$F4,$00 5044:00015A4A FA06F420 DB $FA,$06,$F4,$20 5045:00015A4E FA0EF220 DB $FA,$0E,$F2,$20 5046:00015A52 06FAF240 DB $06,$FA,$F2,$40 5047:00015A56 0602F440 DB $06,$02,$F4,$40 5048:00015A5A 0606F460 DB $06,$06,$F4,$60 5049:00015A5E 060EF260 DB $06,$0E,$F2,$60 5050:00015A62 ;2 5051:00015A62 FCFCF200 DB $FC,$FC,$F2,$00 5052:00015A66 FC04F400 DB $FC,$04,$F4,$00 5053:00015A6A FC04F420 DB $FC,$04,$F4,$20 5054:00015A6E FC0CF220 DB $FC,$0C,$F2,$20 5055:00015A72 04FCF240 DB $04,$FC,$F2,$40 5056:00015A76 0404F440 DB $04,$04,$F4,$40 5057:00015A7A 0404F460 DB $04,$04,$F4,$60 5058:00015A7E 040CF260 DB $04,$0C,$F2,$60 5059:00015A82 ;3 5060:00015A82 FEFEF200 DB $FE,$FE,$F2,$00 5061:00015A86 FE04F400 DB $FE,$04,$F4,$00 5062:00015A8A FE04F420 DB $FE,$04,$F4,$20 5063:00015A8E FE0AF220 DB $FE,$0A,$F2,$20 5064:00015A92 02FEF240 DB $02,$FE,$F2,$40 5065:00015A96 0204F440 DB $02,$04,$F4,$40 5066:00015A9A 0204F460 DB $02,$04,$F4,$60 5067:00015A9E 020AF260 DB $02,$0A,$F2,$60 5068:00015AA2 ICONCD2 5069:00015AA2 20002200 DB $20,$00,$22,$00 5070:00015AA6 24002600 DB $24,$00,$26,$00 5071:00015AAA 28002A00 DB $28,$00,$2A,$00 5072:00015AAE 2C002E00 DB $2C,$00,$2E,$00 5073:00015AB2 2C002E00 DB $2C,$00,$2E,$00 5074:00015AB6 ;- - - - - - - - - - - - - - - - - - 5075:00015AB6 ICCXDT 5076:00015AB6 2878 DB $28,$78 5077:00015AB8 2878 DB $28,$78 5078:00015ABA ICCYDT 5079:00015ABA 2828 DB $28,$28 zti.s 98-11-10 11:31:47......PAGE 0108 LINE# LOC CODE LINE 5080:00015ABC 7878 DB $78,$78 5081:00015ABE ;- - - - - - - - - - - - - - - - - - 5082:00015ABE ICONCS 5083:00015ABE FA40C3 LD A,(ENMOD0) 5084:00015AC1 F5 PUSH AF 5085:00015AC2 CDCA5A CALL ICONCSS 5086:00015AC5 F1 POP AF 5087:00015AC6 EA40C3 LD (ENMOD0),A 5088:00015AC9 C9 RET 5089:00015ACA ;============================================= 5090:00015ACA ICONCSS 5091:00015ACA FAB3C1 LD A,(ICONTM2) 5092:00015ACD A7 AND A 5093:00015ACE 2807 JR Z,ICC002 5094:00015AD0 ; 5095:00015AD0 3D DEC A 5096:00015AD1 EAB3C1 LD (ICONTM2),A 5097:00015AD4 2F CPL 5098:00015AD5 180A JR ICC0021 5099:00015AD7 ICC002 5100:00015AD7 FAB2C1 LD A,(ICONTM) 5101:00015ADA A7 AND A 5102:00015ADB 280A JR Z,ICC003 5103:00015ADD ; 5104:00015ADD 3D DEC A 5105:00015ADE EAB2C1 LD (ICONTM),A 5106:00015AE1 ICC0021 5107:00015AE1 1F RRA 5108:00015AE2 1F RRA 5109:00015AE3 E603 AND $03 5110:00015AE5 1809 JR ICC005 5111:00015AE7 ICC003 5112:00015AE7 FAB1C1 LD A,(ICONFG) 5113:00015AEA A7 AND A 5114:00015AEB CA885B JP Z,ICC0A0 5115:00015AEE ; 5116:00015AEE 3E00 LD A,$00 5117:00015AF0 ICC005 5118:00015AF0 EAB0C1 LD (ICONWRK),A 5119:00015AF3 E0F1 LD (ENCHPT2),A 5120:00015AF5 ; 5121:00015AF5 3E00 LD A,$00 5122:00015AF7 EAC0C3 LD (ENOMID),A 5123:00015AFA ; 5124:00015AFA 3E08 LD A,$08 5125:00015AFC EA40C3 LD (ENMOD0+00),A 5126:00015AFF ; 5127:00015AFF 3E00 LD A,$00 5128:00015B01 EA23C1 LD (INDEX),A 5129:00015B04 E0ED LD (ENFLCL),A 5130:00015B06 ; 5131:00015B06 1E00 LD E,$00 5132:00015B08 FAB4C1 LD A,(WGMAPPT) 5133:00015B0B FE70 CP $70 5134:00015B0D 3802 JR C,ICC010 5135:00015B0F 1E02 LD E,$02 5136:00015B11 ICC010 zti.s 98-11-10 11:31:47......PAGE 0109 LINE# LOC CODE LINE 5137:00015B11 E60F AND $0F 5138:00015B13 FE08 CP $08 5139:00015B15 3001 JR NC,ICC020 5140:00015B17 1C INC E 5141:00015B18 ICC020 5142:00015B18 1600 LD D,$00 5143:00015B1A 21B65A LD HL,ICCXDT 5144:00015B1D 19 ADD HL,DE 5145:00015B1E 7E LD A,(HL) 5146:00015B1F E0EE LD (ENSVXL),A 5147:00015B21 21BA5A LD HL,ICCYDT 5148:00015B24 19 ADD HL,DE 5149:00015B25 7E LD A,(HL) 5150:00015B26 E0EC LD (ENDSYP),A 5151:00015B28 ; 5152:00015B28 FAB0C1 LD A,(ICONWRK) 5153:00015B2B 17 RLA 5154:00015B2C 17 RLA 5155:00015B2D 17 RLA 5156:00015B2E 17 RLA 5157:00015B2F 17 RLA 5158:00015B30 E6E0 AND %11100000 5159:00015B32 5F LD E,A 5160:00015B33 1600 LD D,$00 5161:00015B35 ; 5162:00015B35 21225A LD HL,ICONCD 5163:00015B38 19 ADD HL,DE 5164:00015B39 ; 5165:00015B39 3E08 LD A,$08 5166:00015B3B EAC0C3 LD (ENOMID),A 5167:00015B3E ; 5168:00015B3E AF XOR A 5169:00015B3F E0F5 LD (ENCHNO),A 5170:00015B41 0E08 LD C,$08 5171:00015B43 CD0000 CALL ENOMST 5172:00015B46 ; 5173:00015B46 FAB0C1 LD A,(ICONWRK) 5174:00015B49 FE00 CP $00 5175:00015B4B 203B JR NZ,ICC0A0 5176:00015B4D ; 5177:00015B4D FAB1C1 LD A,(ICONFG) 5178:00015B50 3D DEC A 5179:00015B51 FE80 CP $80 5180:00015B53 3033 JR NC,ICC0A0 5181:00015B55 E0F1 LD (ENCHPT2),A 5182:00015B57 ; 5183:00015B57 ;; LD DE,ICONCD2 5184:00015B57 ;;; 5185:00015B57 ;; PUSH DE ; Chr data addr push ! 5186:00015B57 ; 5187:00015B57 1130C0 LD DE,ENOAM+$00 5188:00015B5A ; 5189:00015B5A F0EC LD A,(ENDSYP) ;(HL) 5190:00015B5C 12 LD (DE),A ; Y L 5191:00015B5D 13 INC DE 5192:00015B5E ; 5193:00015B5E F0EE LD A,(ENSVXL) zti.s 98-11-10 11:31:47......PAGE 0110 LINE# LOC CODE LINE 5194:00015B60 12 LD (DE),A ; X L 5195:00015B61 13 INC DE 5196:00015B62 ; 5197:00015B62 F0F1 LD A,(ENCHPT2) ;HL) 5198:00015B64 4F LD C,A 5199:00015B65 0600 LD B,$0 5200:00015B67 CB21 SLA C 5201:00015B69 CB10 RL B 5202:00015B6B CB21 SLA C 5203:00015B6D CB10 RL B 5204:00015B6F ;; POP HL ; Chrs data addr. ! 5205:00015B6F 21A25A LD HL,ICONCD2 5206:00015B72 09 ADD HL,BC 5207:00015B73 2A LD A,(HLI) 5208:00015B74 12 LD (DE),A ; C L 5209:00015B75 13 INC DE 5210:00015B76 2A LD A,(HLI) 5211:00015B77 ; 5212:00015B77 12 LD (DE),A ; A L 5213:00015B78 13 INC DE 5214:00015B79 ;- - Right - - - 5215:00015B79 F0EC LD A,(ENDSYP) ;(HL) 5216:00015B7B 12 LD (DE),A ; Y R 5217:00015B7C 13 INC DE 5218:00015B7D ; 5219:00015B7D F0EE LD A,(ENSVXL) ;$08 ;10 5220:00015B7F C608 ADD A,$08 5221:00015B81 12 LD (DE),A ; X R 5222:00015B82 13 INC DE 5223:00015B83 ; 5224:00015B83 2A LD A,(HLI) 5225:00015B84 12 LD (DE),A ; C R 5226:00015B85 13 INC DE 5227:00015B86 ; 5228:00015B86 7E LD A,(HL) 5229:00015B87 12 LD (DE),A ; A R 5230:00015B88 ICC0A0 5231:00015B88 C9 RET 5232:00015B89 ; 5233:00015B89 ; 5234:00015B89 ;===================================== 5235:00015B89 ;======================================= 5236:00015B89 NHARTVD 5237:00015B89 98CB06 DB $98,$CB,$06 5238:00015B8C 7E7E7E7E7E7E7E DB $7E,$7E,$7E,$7E,$7E,$7E,$7E 5239:00015B93 98EB06 DB $98,$EB,$06 5240:00015B96 7E7E7E7E7E7E7E DB $7E,$7E,$7E,$7E,$7E,$7E,$7E 5241:00015B9D 00 DB $00 5242:00015B9E NHARTVD2 5243:00015B9E 992B06 DB $99,$2B,$06 5244:00015BA1 7E7E7E7E7E7E7E DB $7E,$7E,$7E,$7E,$7E,$7E,$7E 5245:00015BA8 994B06 DB $99,$4B,$06 5246:00015BAB 7E7E7E7E7E7E7E DB $7E,$7E,$7E,$7E,$7E,$7E,$7E 5247:00015BB2 00 DB $00 5248:00015BB3 NHARTVD3 5249:00015BB3 998B06 DB $99,$8B,$06 5250:00015BB6 7E7E7E7E7E7E7E DB $7E,$7E,$7E,$7E,$7E,$7E,$7E zti.s 98-11-10 11:31:47......PAGE 0111 LINE# LOC CODE LINE 5251:00015BBD 99AB06 DB $99,$AB,$06 5252:00015BC0 7E7E7E7E7E7E7E DB $7E,$7E,$7E,$7E,$7E,$7E,$7E 5253:00015BC7 00 DB $00 5254:00015BC8 ; 5255:00015BC8 ;------------------------------------- 5256:00015BC8 NHARTIT ; For initial set 5257:00015BC8 FA00D6 LD A,(VRAMD) 5258:00015BCB 5F LD E,A 5259:00015BCC 1600 LD D,$00 5260:00015BCE C614 ADD A,$14 5261:00015BD0 EA00D6 LD (VRAMD),A 5262:00015BD3 ; 5263:00015BD3 2101D6 LD HL,VRAMD+1 5264:00015BD6 19 ADD HL,DE 5265:00015BD7 D5 PUSH DE 5266:00015BD8 ; 5267:00015BD8 01895B LD BC,NHARTVD 5268:00015BDB F0DB LD A,(WORK4) 5269:00015BDD A7 AND A 5270:00015BDE 280A JR Z,NHTI008 5271:00015BE0 ; 5272:00015BE0 019E5B LD BC,NHARTVD2 5273:00015BE3 FE01 CP $01 5274:00015BE5 2803 JR Z,NHTI008 5275:00015BE7 ; 5276:00015BE7 01B35B LD BC,NHARTVD3 5277:00015BEA NHTI008 5278:00015BEA 1E15 LD E,$15 5279:00015BEC ; 5280:00015BEC NHTI010 5281:00015BEC 0A LD A,(BC) 5282:00015BED 03 INC BC 5283:00015BEE 22 LD (HLI),A 5284:00015BEF 1D DEC E 5285:00015BF0 20FA JR NZ,NHTI010 5286:00015BF2 ; 5287:00015BF2 D1 POP DE 5288:00015BF3 2104D6 LD HL,VRAMD+4 5289:00015BF6 19 ADD HL,DE 5290:00015BF7 ; 5291:00015BF7 0E00 LD C,$00 5292:00015BF9 ; 5293:00015BF9 F0D9 LD A,(WORK2) ;HARTCT) 5294:00015BFB A7 AND A 5295:00015BFC 2822 JR Z,NHTI080 5296:00015BFE ; 5297:00015BFE E0D7 LD (WORK0),A 5298:00015C00 ; 5299:00015C00 NQWQW 5300:00015C00 F0D7 LD A,(WORK0) 5301:00015C02 D608 SUB $8 5302:00015C04 E0D7 LD (WORK0),A 5303:00015C06 380F JR C,NSSSS 5304:00015C08 ; 5305:00015C08 3EAE LD A,$AE 5306:00015C0A ;; LD A,$A9 5307:00015C0A 22 LD (HLI),A zti.s 98-11-10 11:31:47......PAGE 0112 LINE# LOC CODE LINE 5308:00015C0B ; 5309:00015C0B 0C INC C 5310:00015C0C 79 LD A,C 5311:00015C0D FE07 CP $07 5312:00015C0F 2004 JR NZ,NEEE 5313:00015C11 ; 5314:00015C11 7D LD A,L 5315:00015C12 C603 ADD A,$3 5316:00015C14 6F LD L,A 5317:00015C15 NEEE 5318:00015C15 18E9 JR NQWQW 5319:00015C17 ; 5320:00015C17 NSSSS 5321:00015C17 C608 ADD A,$8 5322:00015C19 2805 JR Z,NHTI080 ; Hasuu ? 5323:00015C1B ; ; yes ! harf ! 5324:00015C1B 3EAE LD A,$AE ;CE 5325:00015C1D 22 LD (HLI),A 5326:00015C1E 1808 JR NHTI088 ;INC C 5327:00015C20 NHTI080 5328:00015C20 ; 5329:00015C20 F0DA LD A,(WORK3) ;HARTMX) 5330:00015C22 B9 CP C 5331:00015C23 280F JR Z,NHTI090 5332:00015C25 ; 5333:00015C25 3EAE LD A,$AE ;CD 5334:00015C27 22 LD (HLI),A 5335:00015C28 NHTI088 5336:00015C28 0C INC C 5337:00015C29 79 LD A,C 5338:00015C2A FE07 CP $07 5339:00015C2C 2004 JR NZ,NHTI08A 5340:00015C2E ; 5341:00015C2E 7D LD A,L 5342:00015C2F C603 ADD A,$3 5343:00015C31 6F LD L,A 5344:00015C32 NHTI08A 5345:00015C32 18EC JR NHTI080 5346:00015C34 NHTI090 5347:00015C34 C9 RET 5348:00015C35 ;============================================== 5349:00015C35 NAMECK 5350:00015C35 AF XOR A 5351:00015C36 11A7DB LD DE,NAMEON 5352:00015C39 12 LD (DE),A 5353:00015C3A ; 5354:00015C3A 0601 LD B,%00000001 5355:00015C3C ; 5356:00015C3C 0E00 LD C,$00 5357:00015C3E 2180DB LD HL,NAMEBF 5358:00015C41 NCK010 5359:00015C41 2A LD A,(HLI) 5360:00015C42 A7 AND A 5361:00015C43 2803 JR Z,SSTS 5362:00015C45 ; 5363:00015C45 1A LD A,(DE) 5364:00015C46 B0 OR B zti.s 98-11-10 11:31:47......PAGE 0113 LINE# LOC CODE LINE 5365:00015C47 12 LD (DE),A 5366:00015C48 ; 5367:00015C48 SSTS 5368:00015C48 0C INC C 5369:00015C49 79 LD A,C 5370:00015C4A FE05 CP $05 5371:00015C4C ;; CP $04 5372:00015C4C 2002 JR NZ,WTWW 5373:00015C4E ; 5374:00015C4E 0602 LD B,%00000010 5375:00015C50 WTWW 5376:00015C50 FE0A CP $0A 5377:00015C52 ;; CP $08 5378:00015C52 2002 JR NZ,RWWW 5379:00015C54 ; 5380:00015C54 0604 LD B,%00000100 5381:00015C56 RWWW 5382:00015C56 FE0F CP $0F 5383:00015C58 ;; CP $0C 5384:00015C58 20E7 JR NZ,NCK010 5385:00015C5A ; 5386:00015C5A C9 RET 5387:00015C5B ;===================================== 5388:00015C5B DTSAVE 5389:00015C5B FA5ADB LD A,(HARTCT) 5390:00015C5E A7 AND A 5391:00015C5F 200E JR NZ,DTSAVE2 5392:00015C61 ; 5393:00015C61 FA5BDB LD A,(HARTMX) 5394:00015C64 5F LD E,A 5395:00015C65 1600 LD D,$00 5396:00015C67 21E251 LD HL,HARTSTD 5397:00015C6A 19 ADD HL,DE 5398:00015C6B 7E LD A,(HL) 5399:00015C6C ;; LD A,$18 5400:00015C6C EA5ADB LD (HARTCT),A 5401:00015C6F ; 5402:00015C6F DTSAVE2 5403:00015C6F CD0000 CALL DJITRV 5404:00015C72 ; 5405:00015C72 FAA6DB LD A,(NMSLPT) 5406:00015C75 CB27 SLA A 5407:00015C77 5F LD E,A 5408:00015C78 1600 LD D,$00 5409:00015C7A 217049 LD HL,SVDTAD2 5410:00015C7D 19 ADD HL,DE 5411:00015C7E 2A LD A,(HLI) 5412:00015C7F 66 LD H,(HL) 5413:00015C80 6F LD L,A 5414:00015C81 ; 5415:00015C81 0100D8 LD BC,SAVERM 5416:00015C84 ; 5417:00015C84 118003 LD DE,$200+$100+$7F+$01 5418:00015C87 DTS010 5419:00015C87 CD0000 CALL SVOPEN ;(SV) 5420:00015C8A 0A LD A,(BC) 5421:00015C8B 03 INC BC zti.s 98-11-10 11:31:47......PAGE 0114 LINE# LOC CODE LINE 5422:00015C8C CD0000 CALL SVOPEN ;(SV) 5423:00015C8F 22 LD (HLI),A 5424:00015C90 1B DEC DE 5425:00015C91 7B LD A,E 5426:00015C92 B2 OR D 5427:00015C93 20F2 JR NZ,DTS010 5428:00015C95 ; 5429:00015C95 C9 RET 5430:00015C96 ;================================== 5431:00015C96 DJITRS 5432:00015C96 C5 PUSH BC 5433:00015C97 ; 5434:00015C97 FAA5DB LD A,(DJFLAG) 5435:00015C9A A7 AND A 5436:00015C9B 281E JR Z,DTS00A 5437:00015C9D ; 5438:00015C9D F0F7 LD A,(DNJNNO) 5439:00015C9F FE0A CP DJMAX ;$20 5440:00015CA1 3018 JR NC,DTS00A 5441:00015CA3 5F LD E,A 5442:00015CA4 CB27 SLA A 5443:00015CA6 CB27 SLA A 5444:00015CA8 83 ADD A,E 5445:00015CA9 5F LD E,A 5446:00015CAA 1600 LD D,$00 5447:00015CAC 2116DB LD HL,DMAPF1 5448:00015CAF 19 ADD HL,DE 5449:00015CB0 11CCDB LD DE,DMAPF 5450:00015CB3 ; 5451:00015CB3 0E05 LD C,$05 5452:00015CB5 DTS008 5453:00015CB5 1A LD A,(DE) 5454:00015CB6 13 INC DE 5455:00015CB7 22 LD (HLI),A 5456:00015CB8 0D DEC C 5457:00015CB9 20FA JR NZ,DTS008 5458:00015CBB ; 5459:00015CBB DTS00A 5460:00015CBB C1 POP BC 5461:00015CBC C9 RET 5462:00015CBD ;===================================== 5463:00015CBD ; Enemy data set sub sub 5464:00015CBD ;====================================== 5465:00015CBD ENRVXL 5466:00015CBD A060000000 DB $A0,$60,$00,$00,0 5467:00015CC2 ENRVXH 5468:00015CC2 00FF000000 DB $00,$FF,$00,$00,0 5469:00015CC7 ENRVYL 5470:00015CC7 0000808000 DB $00,$00,$80,$80,0 5471:00015CCC ENRVYH 5472:00015CCC 0000FF0000 DB $00,$00,$FF,$00,0 5473:00015CD1 ;- - - - - - - - - - - - - - - - 5474:00015CD1 ENISSUB 5475:00015CD1 2160C4 LD HL,ENJYUN 5476:00015CD4 19 ADD HL,DE 5477:00015CD5 F0E4 LD A,(WORKD) 5478:00015CD7 77 LD (HL),A zti.s 98-11-10 11:31:47......PAGE 0115 LINE# LOC CODE LINE 5479:00015CD8 3C INC A 5480:00015CD9 E0E4 LD (WORKD),A 5481:00015CDB ;-------- 5482:00015CDB C5 PUSH BC 5483:00015CDC ; 5484:00015CDC FA25C1 LD A,(SCRLMK) 5485:00015CDF 4F LD C,A 5486:00015CE0 0600 LD B,$0 5487:00015CE2 ; 5488:00015CE2 21BD5C LD HL,ENRVXL 5489:00015CE5 09 ADD HL,BC 5490:00015CE6 7E LD A,(HL) 5491:00015CE7 E0D7 LD (WORK0),A 5492:00015CE9 21C25C LD HL,ENRVXH 5493:00015CEC 09 ADD HL,BC 5494:00015CED 7E LD A,(HL) 5495:00015CEE E0D8 LD (WORK1),A 5496:00015CF0 ; 5497:00015CF0 21C75C LD HL,ENRVYL 5498:00015CF3 09 ADD HL,BC 5499:00015CF4 7E LD A,(HL) 5500:00015CF5 E0D9 LD (WORK2),A 5501:00015CF7 21CC5C LD HL,ENRVYH 5502:00015CFA 09 ADD HL,BC 5503:00015CFB 7E LD A,(HL) 5504:00015CFC E0DA LD (WORK3),A 5505:00015CFE ; 5506:00015CFE 2100C2 LD HL,ENXPSL 5507:00015D01 19 ADD HL,DE 5508:00015D02 F0D7 LD A,(WORK0) 5509:00015D04 86 ADD A,(HL) 5510:00015D05 77 LD (HL),A 5511:00015D06 ; 5512:00015D06 CB19 RR C ; PUSH C 5513:00015D08 ; 5514:00015D08 2120C2 LD HL,ENXPSH 5515:00015D0B 19 ADD HL,DE 5516:00015D0C F0D8 LD A,(WORK1) 5517:00015D0E CB11 RL C ; POP C 5518:00015D10 8E ADC A,(HL) 5519:00015D11 77 LD (HL),A 5520:00015D12 ; 5521:00015D12 2110C2 LD HL,ENYPSL 5522:00015D15 19 ADD HL,DE 5523:00015D16 F0D9 LD A,(WORK2) 5524:00015D18 86 ADD A,(HL) 5525:00015D19 77 LD (HL),A 5526:00015D1A ; 5527:00015D1A CB19 RR C ; PUSH C 5528:00015D1C ; 5529:00015D1C 2130C2 LD HL,ENYPSH 5530:00015D1F 19 ADD HL,DE 5531:00015D20 F0DA LD A,(WORK3) 5532:00015D22 CB11 RL C ; POP C 5533:00015D24 8E ADC A,(HL) 5534:00015D25 77 LD (HL),A 5535:00015D26 ; zti.s 98-11-10 11:31:47......PAGE 0116 LINE# LOC CODE LINE 5536:00015D26 C1 POP BC 5537:00015D27 C9 RET 5538:00015D28 ;====Enemy data 6 rooms go bit clear check========== 5539:00015D28 ENBTCK 5540:00015D28 0E06 LD C,$06 5541:00015D2A F0F6 LD A,(GRNDPT) 5542:00015D2C 2181CE LD HL,ENONBF 5543:00015D2F EDS001 5544:00015D2F BE CP (HL) 5545:00015D30 2821 JR Z,EDS002 5546:00015D32 23 INC HL 5547:00015D33 0D DEC C 5548:00015D34 20F9 JR NZ,EDS001 5549:00015D36 ; 5550:00015D36 FA80CE LD A,(ENONCT) 5551:00015D39 3C INC A 5552:00015D3A FE06 CP $06 5553:00015D3C 2001 JR NZ,EDS000 5554:00015D3E ; 5555:00015D3E AF XOR A 5556:00015D3F EDS000 5557:00015D3F EA80CE LD (ENONCT),A 5558:00015D42 ; 5559:00015D42 ;;; LD A,(ENONCT) 5560:00015D42 5F LD E,A 5561:00015D43 1600 LD D,$00 5562:00015D45 2181CE LD HL,ENONBF 5563:00015D48 19 ADD HL,DE 5564:00015D49 5E LD E,(HL) 5565:00015D4A F0F6 LD A,(GRNDPT) 5566:00015D4C 77 LD (HL),A 5567:00015D4D 2100CF LD HL,ENONOF 5568:00015D50 19 ADD HL,DE 5569:00015D51 3600 LD (HL),$00 5570:00015D53 EDS002 5571:00015D53 C9 RET 5572:00015D54 ;===================================== 5573:00015D54 ;===================================================== 5574:00015D54 END