File : ys_chip7.asm SUPER-FX ASSEMBLER $Ver 1.01 Thu Aug 10 15:22:05 1995 Page 0001 1 ;************************************************************************ 2 ;* * 3 ;* title name : "yossy" * 4 ;* proccess : mario chip program.7 * 5 ;* file name : ys_chip7 * 6 ;* * 7 ;************************************************************************ 8 ; 9 ; 10 SALL 11 ; 12 include ys_chip.inc 13 include ys_chip2.inc 14 ; 15 XALL 16 ; 17 ; 18 ;------------------------------------------------------------------------ 19 ;- global symbol - 20 ;------------------------------------------------------------------------ 21 ; 22 ;------------------------------------------------------------------------ 23 ;- extern symbol - 24 ;------------------------------------------------------------------------ 25 ; 26 ;-------------< ys_chip0 >----------------------------------------------- 27 EXT COS,SIN,LCOS,LSIN 28 ; 29 ;-------------< ys_msub0 >----------------------------------------------- 30 ; 31 ;-------------< 敵Ｎｏ． >--------------------------------------- 32 EXT FKPBM,KPBOM 33 ; 34 ;-------------< ys_msge0 >----------------------------------------------- 35 EXT MSG_FONT,MSG_FONT_X 36 ; 37 ;------------------------------------------------------------------------ 38 ;- define symbol - 39 ;------------------------------------------------------------------------ 40 4C32A4 UNDTADD EQU 4c32a4H 41 4C33F2 UNDATA EQU 4c33f2H 42 ; 43 ; 44 ; 45 ; 46 ;************************************************************************ 47 ;* * 48 ;* program start * 49 ;* * 50 ;************************************************************************ 51 ; 52 ; 53 Group_9 GROUP S_chip_7 54 S_chip_7 SECT REL 55 ; 56 ; 57 ;************************************************************************ 58 ;* ＜エンディングビットマップ用＞ * 59 ;* ３Ｄ表現メイン処理 * 60 ;* 入力 ： (R1) <-- スクリーン面Ｚ座標 * 61 ;* (R2) <-- ” Ｙ座標 * 62 ;* (R3) <-- ” Ｘ座標 * 63 ;* (R5) <-- バッファ アドレス * 64 ;* (CWK0) <-- データ数 * 65 ;************************************************************************ 66 ; 67 000000 E_BITMAP EQU $ 68 S000000 60 SUB R0 ;プロットモードセット 69 S000001 3D 4E CMODE 70 ; 71 S000003 3E A1 01 SMS R1,CWORK1 ;(CWK1) <-- スクリーン面Ｚ座標 72 S000006 3E A2 02 SMS R2,CWORK2 ;(CWK2) <-- ” Ｙ座標 73 S000009 3E A3 03 SMS R3,CWORK3 ;(CWK3) <-- ” Ｘ座標 74 ; 75 S00000C 02 CACHE 76 ; 77 E_BITMAP_0050 78 S00000D 45 LDW (R5) ;(R0) <-- ＯＢＪＺ座標 79 S00000E D0 INC R0 80 S00000F 08 05' BNE E_BITMAP_0060 ;データＥＮＤ？ ( no:E_BITMAP_0060 ) 81 S000011 E0 DEC R0 82 ; 83 S000012 3D 4C RPIX 84 ; 85 S000014 00 STOP 86 S000015 01 NOP 87 ; 88 E_BITMAP_0060 89 S000016 61 SUB R1 90 S000017 0B 08' BMI E_BITMAP_0110 ;スクリーン面より手前？ ( yes:E_BITMAP_0110 ) 91 S000019 D5 INC R5 92 ; 93 E_BITMAP_0100 94 S00001A F6 01C0 IWT R6,#01C0H 95 S00001D 66 SUB R6 96 S00001E 0C 07' BCC E_BITMAP_0150 ;スクリーン面から遠すぎ？ ( no:E_BITMAP_0150 ) 97 S000020 56 ADD R6 98 ; 99 E_BITMAP_0110 100 S000021 25 WITH R5 101 S000022 3E 55 ADD #6-1 102 S000024 05 E8' BRA E_BITMAP_0050+1 103 S000026 45 LDW (R5) 104 ; 105 E_BITMAP_0150 106 S000027 20 17 MOVE R7,R0 ;(R7) <-- スクリーン面からのＺ距離 107 S000029 F6 0040 IWT R6,#040H ;スクリーン面Ｚ座標補正値 108 S00002C 56 ADD R6 109 S00002D 50 ADD R0 vvv******* warn :value out of range 110 S00002E F6 1200 IWT R6,#BITMAP_DIV 111 S000031 56 ADD R6 112 S000032 16 TO R6 ;(R6) <-- スクリーン面での倍率 113 S000033 40 LDW (R0) 114 ; 115 S000034 D5 INC R5 116 S000035 3D 45 LDB (R5) ;(R0) <-- ＯＢＪＸ座標 117 S000037 95 SEX 118 S000038 63 SUB R3 119 S000039 3D 9F LMULT 120 S00003B 24 WITH R4 121 S00003C C0 HIB 122 S00003D 9E LOB 123 S00003E 4D SWAP 124 S00003F C4 OR R4 125 S000040 A4 60 IBT R4,#(24*8)/2 126 S000042 13 TO R3 ;(R3) <-- スクリーン面表示Ｘ座標 127 S000043 54 ADD R4 128 ; 129 S000044 D5 INC R5 130 S000045 3D 45 LDB (R5) ;(R0) <-- ＯＢＪＹ座標 131 S000047 95 SEX 132 S000048 62 SUB R2 133 S000049 3D 9F LMULT 134 S00004B 24 WITH R4 135 S00004C C0 HIB 136 S00004D 9E LOB 137 S00004E 4D SWAP 138 S00004F C4 OR R4 139 S000050 A4 20 IBT R4,#32 140 S000052 12 TO R2 ;(R2) <-- スクリーン面表示Ｙ座標 141 S000053 54 ADD R4 142 ; 143 S000054 D5 INC R5 144 S000055 3D 45 LDB (R5) ;(R0) <-- キャラクター基本倍率 145 S000057 50 ADD R0 ;×４（１００Ｈ←０４０Ｈ） 146 S000058 50 ADD R0 ; 147 S000059 3D 9F LMULT 148 S00005B 24 WITH R4 149 S00005C C0 HIB 150 S00005D 9E LOB 151 S00005E 4D SWAP 152 S00005F 16 TO R6 ;(R6) <-- スクリーン面でのキャラクター倍率 153 S000060 C4 OR R4 154 ; 155 S000061 A0 00' IBT R0,#BANK BITMAP_OBJ_TBL ;ＯＢＪタイプデータアドレス（Ｂ）セット 156 S000063 3F DF ROMB 157 ; 158 S000065 D5 INC R5 159 S000066 3D 45 LDB (R5) ;(R0) <-- ＯＢＪタイプＮｏ．＆パレットＮｏ． 160 S000068 3E A5 25 SMS R5,REG5 ;(R5) save 161 ; 162 S00006B F4 00C0 IWT R4,#11000000B 163 S00006E 15 TO R5 ;(R5) <-- パレットＮｏ．×４０Ｈ 164 S00006F 74 AND R4 165 S000070 3D 74 BIC R4 166 S000072 3E 87 MULT #7 ;×７ 167 S000074 FE 0400' IWT R14,#BITMAP_OBJ_TBL 168 S000077 1E TO R14 ;(R14) <-- ＯＢＪタイプデータアドレス（Ｌ，Ｈ） 169 S000078 5E ADD R14 170 ; 171 S000079 B7 FROM R7 172 S00007A 03 LSR 173 S00007B 03 LSR 174 S00007C 03 LSR 175 S00007D A4 30 IBT R4,#030H 176 S00007F 74 AND R4 177 S000080 15 TO R5 ;(R5) <-- シェーディング 178 S000081 C5 OR R5 179 ; 180 S000082 EF GETB ;(R0) <-- キャラクター中心Ｘ 181 S000083 DE INC R14 182 S000084 4D SWAP ;×１００Ｈ 183 S000085 9F FMULT 184 S000086 3D 53 ADC R3 185 S000088 20 13 MOVE R3,R0 ;(R3) <-- スクリーン面表示左上Ｘ座標 186 S00008A F1 00C0 IWT R1,#24*8 ;(R1) <-- ビットマップ最大Ｘ座標 187 S00008D 61 SUB R1 188 S00008E 0A 1F' BPL E_BITMAP_0152 ;表示ＯＫ？ ( no:E_BITMAP_0152 ) 189 S000090 EF GETB ;(R0) <-- キャラクター中心Ｙ 190 ; 191 S000091 DE INC R14 192 S000092 4D SWAP 193 S000093 9F FMULT 194 S000094 3D 52 ADC R2 195 S000096 20 12 MOVE R2,R0 ;(R2) <-- スクリーン面表示左上Ｙ座標 196 S000098 F8 0080 IWT R8,#16*8 ;(R8) <-- ビットマップ最大Ｙ座標 197 S00009B 68 SUB R8 198 S00009C 0A 11' BPL E_BITMAP_0152 ;表示ＯＫ？ ( no:E_BITMAP_0152 ) 199 S00009E EF GETB ;(R0) <-- キャラクターＸ幅 200 ; 201 S00009F DE INC R14 202 S0000A0 4D SWAP 203 S0000A1 9F FMULT 204 S0000A2 19 TO R9 ;(R9) <-- スクリーン面表示右下Ｘ座標 205 S0000A3 53 ADD R3 206 S0000A4 0B 09' BMI E_BITMAP_0152 ;表示ＯＫ？ ( no:E_BITMAP_0152 ) 207 S0000A6 EF GETB ;(R0) <-- キャラクターＹ幅 208 ; 209 S0000A7 DE INC R14 210 S0000A8 4D SWAP 211 S0000A9 9F FMULT 212 S0000AA 1A TO R10 ;(R10) <-- スクリーン面表示右下Ｙ座標 213 S0000AB 52 ADD R2 214 S0000AC 0A 07' BPL E_BITMAP_0154 ;表示ＯＫ？ ( yes:E_BITMAP_0154 ) 215 S0000AE EF GETB 216 ; 217 E_BITMAP_0152 218 mDJMP_X E_BITMAP_0600+1 218+ S0000AF FF 0142' IWT R15, #E_BITMAP_0600+1 219 S0000B2 3D A1 01 LMS R1,CWORK1 ;(R1) <-- スクリーン面Ｚ座標 220 ; 221 E_BITMAP_0154 222 S0000B5 DE INC R14 223 S0000B6 1B TO R11 ;(R11) <-- キャラクターアドレス（Ｌ，Ｈ） 224 S0000B7 3D EF GETBH 225 S0000B9 DE INC R14 226 ; 227 ;------------------------------------------------------------------------ 228 ;- ＜キャラクターセット（１／倍率）計算＞ - 229 ;- 除算 - 230 ;- in : - 231 ;- (R7) <-- 被除数 - 232 ;- (R6) <-- 除数 - 233 ;- out : - 234 ;- (R4) <-- 商 - 235 ;- (R0) <-- 余り - 236 ;------------------------------------------------------------------------ 237 S0000BA A7 01 IBT R7,#01H ;(R7) <-- １．０ 238 ; 239 S0000BC 60 SUB R0 ;(R0) <-- アキュムレータをクリア 240 S0000BD 20 14 MOVE R4,R0 ;(R4) <-- 商をクリア 241 ; 242 S0000BF AC 20 IBT R12,#32 243 S0000C1 FD 00C5' IWT R13,#E_BITMAP_0160+1 244 E_BITMAP_0160 245 S0000C4 24 WITH R4 ;商を左へシフト 246 S0000C5 54 ADD R4 247 S0000C6 27 WITH R7 ;被除数を左へシフト 248 S0000C7 57 ADD R7 249 S0000C8 04 ROL ;被除数をアキュムレータにシフト 250 S0000C9 66 SUB R6 ;アキュムレータと除数を比較 251 S0000CA 0C 03' BCC E_BITMAP_0170 ;アキュムレータ＜除数であれば、減算を省略 252 S0000CC 56 ADD R6 253 ; 254 S0000CD 66 SUB R6 ;アキュムレータから除数を引く 255 S0000CE D4 INC R4 ;商に１を加える 256 E_BITMAP_0170 257 S0000CF 3C LOOP 258 S0000D0 24 WITH R4 259 ; 260 S0000D1 24 16 MOVE R6,R4 ;(R6) <-- スクリーン面でのキャラクター倍率 261 ; 262 S0000D3 EF GETB 263 S0000D4 A4 7F IBT R4,#7FH 264 S0000D6 74 AND R4 265 S0000D7 3F DF ROMB ;キャラクターアドレス（Ｂ）セット 266 ; 267 S0000D9 3F EF GETBS 268 S0000DB F4 8000 IWT R4,#8000H 269 S0000DE 74 AND R4 270 S0000DF 15 TO R5 ;(R5) <-- 上位ｏｒ下位４ビットモード 271 S0000E0 C5 OR R5 272 ; 273 ;------------------------------------------------------------------------ 274 ;- キャラクター拡大、縮小 - 275 ;- 入力 ： (R1) <-- ビットマップ最大Ｘ座標 - 276 ;- (R8) <-- ビットマップ最大Ｙ座標 - 277 ;- (R2) <-- 左上ビットマップ座標＿Ｙ - 278 ;- (R3) <-- ” ＿Ｘ - 279 ;- (R5) <-- パレットＮｏ． - 280 ;- (R6) <-- 倍率（１００Ｈ＝１．０） - 281 ;- (R9) <-- 右下ビットマップ座標＿Ｘ - 282 ;- (R10) <-- ” ＿Ｙ - 283 ;- (R11) <-- キャラクターアドレス（Ｌ，Ｈ）- 284 ;------------------------------------------------------------------------ 285 ; 286 ;-------------- キャラクタースタートポインター計算 ---------------------- 287 S0000E1 A7 00 IBT R7,#0 ;(R7) <-- キャラクタースタートポインターＹ 288 S0000E3 20 B2 MOVES R0,R2 289 S0000E5 0A 08' BPL E_BITMAP_0200 ;ビットマップエリア上端オーバー？ ( no:E_BITMAP_0200 ) 290 S0000E7 4F NOT 291 ; 292 S0000E8 D0 INC R0 293 S0000E9 3D 9F LMULT 294 S0000EB 24 17 MOVE R7,R4 ;(R7) <-- キャラクタースタートポインターＹ 295 S0000ED A2 00 IBT R2,#0 296 E_BITMAP_0200 297 S0000EF A4 00 IBT R4,#0 ;(R4) <-- キャラクタースタートポインターＸ 298 S0000F1 20 B3 MOVES R0,R3 299 S0000F3 0A 06' BPL E_BITMAP_0250 ;ビットマップエリア左端オーバー？ ( no:E_BITMAP_0250 ) 300 S0000F5 4F NOT 301 ; 302 S0000F6 D0 INC R0 303 S0000F7 3D 9F LMULT ;(R4) <-- キャラクタースタートポインターＸ 304 S0000F9 A3 00 IBT R3,#0 305 E_BITMAP_0250 306 ; 307 ;-------------- キャラクター書き込み ------------------------------------ 308 S0000FB E1 DEC R1 ;[ IBT R1,#24*8-1 ] 309 S0000FC B1 FROM R1 310 S0000FD 69 SUB R9 311 S0000FE 0C 02' BCC E_BITMAP_0300 312 S000100 59 ADD R9 313 ; 314 S000101 B9 FROM R9 315 E_BITMAP_0300 316 S000102 19 TO R9 ;(R9) <-- X loop no. 317 S000103 63 SUB R3 318 S000104 D9 INC R9 319 ; 320 S000105 E8 DEC R8 ;[ IBT R8,#16*8-1 ] 321 S000106 B8 FROM R8 322 S000107 6A SUB R10 323 S000108 0C 02' BCC E_BITMAP_0350 324 S00010A 5A ADD R10 325 ; 326 S00010B BA FROM R10 327 E_BITMAP_0350 328 S00010C 1A TO R10 329 S00010D 62 SUB R2 330 S00010E DA INC R10 331 ; 332 S00010F FD 0118' IWT R13,#E_BITMAP_0450 ;(R13) <-- loop address 333 E_BITMAP_0400 334 S000112 23 11 MOVE R1,R3 ;(R1) <-- plot start X pos set 335 S000114 24 18 MOVE R8,R4 ;(R8) <-- PX 336 ; 337 S000116 29 1C MOVE R12,R9 ;(R12) <-- X loop no. 338 E_BITMAP_0450 339 S000118 70 MERGE 340 S000119 1E TO R14 341 S00011A 5B ADD R11 342 ; 343 S00011B 28 WITH R8 344 S00011C 56 ADD R6 345 ; 346 S00011D 25 B5 MOVES R5,R5 347 S00011F 0A 05' BPL E_BITMAP_0500 ;high color ? ( no:E_BITMAP_0500 ) 348 S000121 EF GETB ;color read 349 ; 350 S000122 03 LSR 351 S000123 03 LSR 352 S000124 03 LSR 353 S000125 03 LSR 354 E_BITMAP_0500 355 S000126 3E 7F AND #0FH 356 S000128 09 0F' BEQ E_BITMAP_0550 ;ヌキ？ ( yes:E_BITMAP_0550 ) 357 S00012A 55 ADD R5 358 ; 359 S00012B 4E COLOUR 360 S00012C 3C LOOP 361 S00012D 4C PLOT ;pset 362 ; 363 S00012E 27 WITH R7 364 S00012F 56 ADD R6 365 ; 366 S000130 EA DEC R10 367 S000131 08 DF' BNE E_BITMAP_0400 368 S000133 D2 INC R2 ;Y pos +1 369 ; 370 S000134 05 0C' BRA E_BITMAP_0600+1 371 S000136 3D A1 01 LMS R1,CWORK1 ;(R1) <-- スクリーン面Ｚ座標 372 ; 373 E_BITMAP_0550 374 S000139 3C LOOP 375 S00013A D1 INC R1 376 ; 377 S00013B 27 WITH R7 378 S00013C 56 ADD R6 379 ; 380 S00013D EA DEC R10 381 S00013E 08 D2' BNE E_BITMAP_0400 382 S000140 D2 INC R2 ;Y pos +1 383 ; 384 E_BITMAP_0600 385 S000141 3D A1 01 LMS R1,CWORK1 ;(R1) <-- スクリーン面Ｚ座標 386 S000144 3D A2 02 LMS R2,CWORK2 ;(R2) <-- ” Ｙ座標 387 S000147 3D A3 03 LMS R3,CWORK3 ;(R3) <-- ” Ｘ座標 388 ; 389 S00014A 3D A5 25 LMS R5,REG5 ;(R5) load 390 mDJMP_X E_BITMAP_0050 390+ S00014D FF 000D' IWT R15, #E_BITMAP_0050 391 S000150 D5 INC R5 392 ; 393 ; 394 ; 395 mEND_NOP 395+ S000151 01 NOP 395+ S000152 01 NOP 395+ S000153 01 NOP 395+ S000154 01 NOP 395+ S000155 01 NOP 395+ S000156 01 NOP 395+ S000157 01 NOP 395+ S000158 01 NOP 395+ S000159 01 NOP 395+ S00015A 01 NOP 395+ S00015B 01 NOP 395+ S00015C 01 NOP 395+ S00015D 01 NOP 395+ S00015E 01 NOP 395+ S00015F 01 NOP 395+ S000160 01 NOP 395+ S000161 01 NOP 395+ S000162 01 NOP 395+ S000163 01 NOP 395+ S000164 01 NOP 395+ S000165 01 NOP 395+ S000166 01 NOP 395+ S000167 01 NOP 395+ S000168 01 NOP 395+ S000169 01 NOP 395+ S00016A 01 NOP 395+ S00016B 01 NOP 395+ S00016C 01 NOP 395+ S00016D 01 NOP 395+ S00016E 01 NOP 395+ S00016F 01 NOP 395+ S000170 01 NOP 395+ S000171 01 NOP 395+ S000172 01 NOP 395+ S000173 01 NOP 395+ S000174 01 NOP 395+ S000175 01 NOP 395+ S000176 01 NOP 395+ S000177 01 NOP 395+ S000178 01 NOP 395+ S000179 01 NOP 395+ S00017A 01 NOP 395+ S00017B 01 NOP 395+ S00017C 01 NOP 395+ S00017D 01 NOP 395+ S00017E 01 NOP 395+ S00017F 01 NOP 395+ S000180 01 NOP 395+ S000181 01 NOP 395+ S000182 01 NOP 395+ S000183 01 NOP 395+ S000184 01 NOP 395+ S000185 01 NOP 395+ S000186 01 NOP 395+ S000187 01 NOP 395+ S000188 01 NOP 395+ S000189 01 NOP 395+ S00018A 01 NOP 395+ S00018B 01 NOP 395+ S00018C 01 NOP 395+ S00018D 01 NOP 395+ S00018E 01 NOP 395+ S00018F 01 NOP 395+ S000190 01 NOP 395+ S000191 01 NOP 395+ S000192 01 NOP 395+ S000193 01 NOP 395+ S000194 01 NOP 395+ S000195 01 NOP 395+ S000196 01 NOP 395+ S000197 01 NOP 395+ S000198 01 NOP 395+ S000199 01 NOP 395+ S00019A 01 NOP 395+ S00019B 01 NOP 395+ S00019C 01 NOP 395+ S00019D 01 NOP 395+ S00019E 01 NOP 395+ S00019F 01 NOP 395+ S0001A0 01 NOP 395+ S0001A1 01 NOP 395+ S0001A2 01 NOP 395+ S0001A3 01 NOP 395+ S0001A4 01 NOP 395+ S0001A5 01 NOP 395+ S0001A6 01 NOP 395+ S0001A7 01 NOP 395+ S0001A8 01 NOP 395+ S0001A9 01 NOP 395+ S0001AA 01 NOP 395+ S0001AB 01 NOP 395+ S0001AC 01 NOP 395+ S0001AD 01 NOP 395+ S0001AE 01 NOP 395+ S0001AF 01 NOP 395+ S0001B0 01 NOP 395+ S0001B1 01 NOP 395+ S0001B2 01 NOP 395+ S0001B3 01 NOP 395+ S0001B4 01 NOP 395+ S0001B5 01 NOP 395+ S0001B6 01 NOP 395+ S0001B7 01 NOP 395+ S0001B8 01 NOP 395+ S0001B9 01 NOP 395+ S0001BA 01 NOP 395+ S0001BB 01 NOP 395+ S0001BC 01 NOP 395+ S0001BD 01 NOP 395+ S0001BE 01 NOP 395+ S0001BF 01 NOP 395+ S0001C0 01 NOP 395+ S0001C1 01 NOP 395+ S0001C2 01 NOP 395+ S0001C3 01 NOP 395+ S0001C4 01 NOP 395+ S0001C5 01 NOP 395+ S0001C6 01 NOP 395+ S0001C7 01 NOP 395+ S0001C8 01 NOP 395+ S0001C9 01 NOP 395+ S0001CA 01 NOP 395+ S0001CB 01 NOP 395+ S0001CC 01 NOP 395+ S0001CD 01 NOP 395+ S0001CE 01 NOP 395+ S0001CF 01 NOP 395+ S0001D0 01 NOP 395+ S0001D1 01 NOP 395+ S0001D2 01 NOP 395+ S0001D3 01 NOP 395+ S0001D4 01 NOP 395+ S0001D5 01 NOP 395+ S0001D6 01 NOP 395+ S0001D7 01 NOP 395+ S0001D8 01 NOP 395+ S0001D9 01 NOP 395+ S0001DA 01 NOP 395+ S0001DB 01 NOP 395+ S0001DC 01 NOP 395+ S0001DD 01 NOP 395+ S0001DE 01 NOP 395+ S0001DF 01 NOP 395+ S0001E0 01 NOP 395+ S0001E1 01 NOP 395+ S0001E2 01 NOP 395+ S0001E3 01 NOP 395+ S0001E4 01 NOP 395+ S0001E5 01 NOP 395+ S0001E6 01 NOP 395+ S0001E7 01 NOP 395+ S0001E8 01 NOP 395+ S0001E9 01 NOP 395+ S0001EA 01 NOP 395+ S0001EB 01 NOP 395+ S0001EC 01 NOP 395+ S0001ED 01 NOP 395+ S0001EE 01 NOP 395+ S0001EF 01 NOP 395+ S0001F0 01 NOP 395+ S0001F1 01 NOP 395+ S0001F2 01 NOP 395+ S0001F3 01 NOP 395+ S0001F4 01 NOP 395+ S0001F5 01 NOP 395+ S0001F6 01 NOP 395+ S0001F7 01 NOP 395+ S0001F8 01 NOP 395+ S0001F9 01 NOP 395+ S0001FA 01 NOP 395+ S0001FB 01 NOP 395+ S0001FC 01 NOP 395+ S0001FD 01 NOP 395+ S0001FE 01 NOP 395+ S0001FF 01 NOP 395+ S000200 01 NOP 395+ S000201 01 NOP 395+ S000202 01 NOP 395+ S000203 01 NOP 395+ S000204 01 NOP 395+ S000205 01 NOP 395+ S000206 01 NOP 395+ S000207 01 NOP 395+ S000208 01 NOP 395+ S000209 01 NOP 395+ S00020A 01 NOP 395+ S00020B 01 NOP 395+ S00020C 01 NOP 395+ S00020D 01 NOP 395+ S00020E 01 NOP 395+ S00020F 01 NOP 395+ S000210 01 NOP 395+ S000211 01 NOP 395+ S000212 01 NOP 395+ S000213 01 NOP 395+ S000214 01 NOP 395+ S000215 01 NOP 395+ S000216 01 NOP 395+ S000217 01 NOP 395+ S000218 01 NOP 395+ S000219 01 NOP 395+ S00021A 01 NOP 395+ S00021B 01 NOP 395+ S00021C 01 NOP 395+ S00021D 01 NOP 395+ S00021E 01 NOP 395+ S00021F 01 NOP 395+ S000220 01 NOP 395+ S000221 01 NOP 395+ S000222 01 NOP 395+ S000223 01 NOP 395+ S000224 01 NOP 395+ S000225 01 NOP 395+ S000226 01 NOP 395+ S000227 01 NOP 395+ S000228 01 NOP 395+ S000229 01 NOP 395+ S00022A 01 NOP 395+ S00022B 01 NOP 395+ S00022C 01 NOP 395+ S00022D 01 NOP 395+ S00022E 01 NOP 395+ S00022F 01 NOP 395+ S000230 01 NOP 395+ S000231 01 NOP 395+ S000232 01 NOP 395+ S000233 01 NOP 395+ S000234 01 NOP 395+ S000235 01 NOP 395+ S000236 01 NOP 395+ S000237 01 NOP 395+ S000238 01 NOP 395+ S000239 01 NOP 395+ S00023A 01 NOP 395+ S00023B 01 NOP 395+ S00023C 01 NOP 395+ S00023D 01 NOP 395+ S00023E 01 NOP 395+ S00023F 01 NOP 395+ S000240 01 NOP 395+ S000241 01 NOP 395+ S000242 01 NOP 395+ S000243 01 NOP 395+ S000244 01 NOP 395+ S000245 01 NOP 395+ S000246 01 NOP 395+ S000247 01 NOP 395+ S000248 01 NOP 395+ S000249 01 NOP 395+ S00024A 01 NOP 395+ S00024B 01 NOP 395+ S00024C 01 NOP 395+ S00024D 01 NOP 395+ S00024E 01 NOP 395+ S00024F 01 NOP 395+ S000250 01 NOP 395+ S000251 01 NOP 395+ S000252 01 NOP 395+ S000253 01 NOP 395+ S000254 01 NOP 395+ S000255 01 NOP 395+ S000256 01 NOP 395+ S000257 01 NOP 395+ S000258 01 NOP 395+ S000259 01 NOP 395+ S00025A 01 NOP 395+ S00025B 01 NOP 395+ S00025C 01 NOP 395+ S00025D 01 NOP 395+ S00025E 01 NOP 395+ S00025F 01 NOP 395+ S000260 01 NOP 395+ S000261 01 NOP 395+ S000262 01 NOP 395+ S000263 01 NOP 395+ S000264 01 NOP 395+ S000265 01 NOP 395+ S000266 01 NOP 395+ S000267 01 NOP 395+ S000268 01 NOP 395+ S000269 01 NOP 395+ S00026A 01 NOP 395+ S00026B 01 NOP 395+ S00026C 01 NOP 395+ S00026D 01 NOP 395+ S00026E 01 NOP 395+ S00026F 01 NOP 395+ S000270 01 NOP 395+ S000271 01 NOP 395+ S000272 01 NOP 395+ S000273 01 NOP 395+ S000274 01 NOP 395+ S000275 01 NOP 395+ S000276 01 NOP 395+ S000277 01 NOP 395+ S000278 01 NOP 395+ S000279 01 NOP 395+ S00027A 01 NOP 395+ S00027B 01 NOP 395+ S00027C 01 NOP 395+ S00027D 01 NOP 395+ S00027E 01 NOP 395+ S00027F 01 NOP 395+ S000280 01 NOP 395+ S000281 01 NOP 395+ S000282 01 NOP 395+ S000283 01 NOP 395+ S000284 01 NOP 395+ S000285 01 NOP 395+ S000286 01 NOP 395+ S000287 01 NOP 395+ S000288 01 NOP 395+ S000289 01 NOP 395+ S00028A 01 NOP 395+ S00028B 01 NOP 395+ S00028C 01 NOP 395+ S00028D 01 NOP 395+ S00028E 01 NOP 395+ S00028F 01 NOP 395+ S000290 01 NOP 395+ S000291 01 NOP 395+ S000292 01 NOP 395+ S000293 01 NOP 395+ S000294 01 NOP 395+ S000295 01 NOP 395+ S000296 01 NOP 395+ S000297 01 NOP 395+ S000298 01 NOP 395+ S000299 01 NOP 395+ S00029A 01 NOP 395+ S00029B 01 NOP 395+ S00029C 01 NOP 395+ S00029D 01 NOP 395+ S00029E 01 NOP 395+ S00029F 01 NOP 395+ S0002A0 01 NOP 395+ S0002A1 01 NOP 395+ S0002A2 01 NOP 395+ S0002A3 01 NOP 395+ S0002A4 01 NOP 395+ S0002A5 01 NOP 395+ S0002A6 01 NOP 395+ S0002A7 01 NOP 395+ S0002A8 01 NOP 395+ S0002A9 01 NOP 395+ S0002AA 01 NOP 395+ S0002AB 01 NOP 395+ S0002AC 01 NOP 395+ S0002AD 01 NOP 395+ S0002AE 01 NOP 395+ S0002AF 01 NOP 395+ S0002B0 01 NOP 395+ S0002B1 01 NOP 395+ S0002B2 01 NOP 395+ S0002B3 01 NOP 395+ S0002B4 01 NOP 395+ S0002B5 01 NOP 395+ S0002B6 01 NOP 395+ S0002B7 01 NOP 395+ S0002B8 01 NOP 395+ S0002B9 01 NOP 395+ S0002BA 01 NOP 395+ S0002BB 01 NOP 395+ S0002BC 01 NOP 395+ S0002BD 01 NOP 395+ S0002BE 01 NOP 395+ S0002BF 01 NOP 395+ S0002C0 01 NOP 395+ S0002C1 01 NOP 395+ S0002C2 01 NOP 395+ S0002C3 01 NOP 395+ S0002C4 01 NOP 395+ S0002C5 01 NOP 395+ S0002C6 01 NOP 395+ S0002C7 01 NOP 395+ S0002C8 01 NOP 395+ S0002C9 01 NOP 395+ S0002CA 01 NOP 395+ S0002CB 01 NOP 395+ S0002CC 01 NOP 395+ S0002CD 01 NOP 395+ S0002CE 01 NOP 395+ S0002CF 01 NOP 395+ S0002D0 01 NOP 395+ S0002D1 01 NOP 395+ S0002D2 01 NOP 395+ S0002D3 01 NOP 395+ S0002D4 01 NOP 395+ S0002D5 01 NOP 395+ S0002D6 01 NOP 395+ S0002D7 01 NOP 395+ S0002D8 01 NOP 395+ S0002D9 01 NOP 395+ S0002DA 01 NOP 395+ S0002DB 01 NOP 395+ S0002DC 01 NOP 395+ S0002DD 01 NOP 395+ S0002DE 01 NOP 395+ S0002DF 01 NOP 395+ S0002E0 01 NOP 395+ S0002E1 01 NOP 395+ S0002E2 01 NOP 395+ S0002E3 01 NOP 395+ S0002E4 01 NOP 395+ S0002E5 01 NOP 395+ S0002E6 01 NOP 395+ S0002E7 01 NOP 395+ S0002E8 01 NOP 395+ S0002E9 01 NOP 395+ S0002EA 01 NOP 395+ S0002EB 01 NOP 395+ S0002EC 01 NOP 395+ S0002ED 01 NOP 395+ S0002EE 01 NOP 395+ S0002EF 01 NOP 395+ S0002F0 01 NOP 395+ S0002F1 01 NOP 395+ S0002F2 01 NOP 395+ S0002F3 01 NOP 395+ S0002F4 01 NOP 395+ S0002F5 01 NOP 395+ S0002F6 01 NOP 395+ S0002F7 01 NOP 395+ S0002F8 01 NOP 395+ S0002F9 01 NOP 395+ S0002FA 01 NOP 395+ S0002FB 01 NOP 395+ S0002FC 01 NOP 395+ S0002FD 01 NOP 395+ S0002FE 01 NOP 395+ S0002FF 01 NOP 395+ S000300 01 NOP 395+ S000301 01 NOP 395+ S000302 01 NOP 395+ S000303 01 NOP 395+ S000304 01 NOP 395+ S000305 01 NOP 395+ S000306 01 NOP 395+ S000307 01 NOP 395+ S000308 01 NOP 395+ S000309 01 NOP 395+ S00030A 01 NOP 395+ S00030B 01 NOP 395+ S00030C 01 NOP 395+ S00030D 01 NOP 395+ S00030E 01 NOP 395+ S00030F 01 NOP 395+ S000310 01 NOP 395+ S000311 01 NOP 395+ S000312 01 NOP 395+ S000313 01 NOP 395+ S000314 01 NOP 395+ S000315 01 NOP 395+ S000316 01 NOP 395+ S000317 01 NOP 395+ S000318 01 NOP 395+ S000319 01 NOP 395+ S00031A 01 NOP 395+ S00031B 01 NOP 395+ S00031C 01 NOP 395+ S00031D 01 NOP 395+ S00031E 01 NOP 395+ S00031F 01 NOP 395+ S000320 01 NOP 395+ S000321 01 NOP 395+ S000322 01 NOP 395+ S000323 01 NOP 395+ S000324 01 NOP 395+ S000325 01 NOP 395+ S000326 01 NOP 395+ S000327 01 NOP 395+ S000328 01 NOP 395+ S000329 01 NOP 395+ S00032A 01 NOP 395+ S00032B 01 NOP 395+ S00032C 01 NOP 395+ S00032D 01 NOP 395+ S00032E 01 NOP 395+ S00032F 01 NOP 395+ S000330 01 NOP 395+ S000331 01 NOP 395+ S000332 01 NOP 395+ S000333 01 NOP 395+ S000334 01 NOP 395+ S000335 01 NOP 395+ S000336 01 NOP 395+ S000337 01 NOP 395+ S000338 01 NOP 395+ S000339 01 NOP 395+ S00033A 01 NOP 395+ S00033B 01 NOP 395+ S00033C 01 NOP 395+ S00033D 01 NOP 395+ S00033E 01 NOP 395+ S00033F 01 NOP 395+ S000340 01 NOP 395+ S000341 01 NOP 395+ S000342 01 NOP 395+ S000343 01 NOP 395+ S000344 01 NOP 395+ S000345 01 NOP 395+ S000346 01 NOP 395+ S000347 01 NOP 395+ S000348 01 NOP 395+ S000349 01 NOP 395+ S00034A 01 NOP 395+ S00034B 01 NOP 395+ S00034C 01 NOP 395+ S00034D 01 NOP 395+ S00034E 01 NOP 395+ S00034F 01 NOP 395+ S000350 01 NOP 395+ S000351 01 NOP 395+ S000352 01 NOP 395+ S000353 01 NOP 395+ S000354 01 NOP 395+ S000355 01 NOP 395+ S000356 01 NOP 395+ S000357 01 NOP 395+ S000358 01 NOP 395+ S000359 01 NOP 395+ S00035A 01 NOP 395+ S00035B 01 NOP 395+ S00035C 01 NOP 395+ S00035D 01 NOP 395+ S00035E 01 NOP 395+ S00035F 01 NOP 395+ S000360 01 NOP 395+ S000361 01 NOP 395+ S000362 01 NOP 395+ S000363 01 NOP 395+ S000364 01 NOP 395+ S000365 01 NOP 395+ S000366 01 NOP 395+ S000367 01 NOP 395+ S000368 01 NOP 395+ S000369 01 NOP 395+ S00036A 01 NOP 395+ S00036B 01 NOP 395+ S00036C 01 NOP 395+ S00036D 01 NOP 395+ S00036E 01 NOP 395+ S00036F 01 NOP 395+ S000370 01 NOP 395+ S000371 01 NOP 395+ S000372 01 NOP 395+ S000373 01 NOP 395+ S000374 01 NOP 395+ S000375 01 NOP 395+ S000376 01 NOP 395+ S000377 01 NOP 395+ S000378 01 NOP 395+ S000379 01 NOP 395+ S00037A 01 NOP 395+ S00037B 01 NOP 395+ S00037C 01 NOP 395+ S00037D 01 NOP 395+ S00037E 01 NOP 395+ S00037F 01 NOP 395+ S000380 01 NOP 395+ S000381 01 NOP 395+ S000382 01 NOP 395+ S000383 01 NOP 395+ S000384 01 NOP 395+ S000385 01 NOP 395+ S000386 01 NOP 395+ S000387 01 NOP 395+ S000388 01 NOP 395+ S000389 01 NOP 395+ S00038A 01 NOP 395+ S00038B 01 NOP 395+ S00038C 01 NOP 395+ S00038D 01 NOP 395+ S00038E 01 NOP 395+ S00038F 01 NOP 395+ S000390 01 NOP 395+ S000391 01 NOP 395+ S000392 01 NOP 395+ S000393 01 NOP 395+ S000394 01 NOP 395+ S000395 01 NOP 395+ S000396 01 NOP 395+ S000397 01 NOP 395+ S000398 01 NOP 395+ S000399 01 NOP 395+ S00039A 01 NOP 395+ S00039B 01 NOP 395+ S00039C 01 NOP 395+ S00039D 01 NOP 395+ S00039E 01 NOP 395+ S00039F 01 NOP 395+ S0003A0 01 NOP 395+ S0003A1 01 NOP 395+ S0003A2 01 NOP 395+ S0003A3 01 NOP 395+ S0003A4 01 NOP 395+ S0003A5 01 NOP 395+ S0003A6 01 NOP 395+ S0003A7 01 NOP 395+ S0003A8 01 NOP 395+ S0003A9 01 NOP 395+ S0003AA 01 NOP 395+ S0003AB 01 NOP 395+ S0003AC 01 NOP 395+ S0003AD 01 NOP 395+ S0003AE 01 NOP 395+ S0003AF 01 NOP 395+ S0003B0 01 NOP 395+ S0003B1 01 NOP 395+ S0003B2 01 NOP 395+ S0003B3 01 NOP 395+ S0003B4 01 NOP 395+ S0003B5 01 NOP 395+ S0003B6 01 NOP 395+ S0003B7 01 NOP 395+ S0003B8 01 NOP 395+ S0003B9 01 NOP 395+ S0003BA 01 NOP 395+ S0003BB 01 NOP 395+ S0003BC 01 NOP 395+ S0003BD 01 NOP 395+ S0003BE 01 NOP 395+ S0003BF 01 NOP 395+ S0003C0 01 NOP 395+ S0003C1 01 NOP 395+ S0003C2 01 NOP 395+ S0003C3 01 NOP 395+ S0003C4 01 NOP 395+ S0003C5 01 NOP 395+ S0003C6 01 NOP 395+ S0003C7 01 NOP 395+ S0003C8 01 NOP 395+ S0003C9 01 NOP 395+ S0003CA 01 NOP 395+ S0003CB 01 NOP 395+ S0003CC 01 NOP 395+ S0003CD 01 NOP 395+ S0003CE 01 NOP 395+ S0003CF 01 NOP 395+ S0003D0 01 NOP 395+ S0003D1 01 NOP 395+ S0003D2 01 NOP 395+ S0003D3 01 NOP 395+ S0003D4 01 NOP 395+ S0003D5 01 NOP 395+ S0003D6 01 NOP 395+ S0003D7 01 NOP 395+ S0003D8 01 NOP 395+ S0003D9 01 NOP 395+ S0003DA 01 NOP 395+ S0003DB 01 NOP 395+ S0003DC 01 NOP 395+ S0003DD 01 NOP 395+ S0003DE 01 NOP 395+ S0003DF 01 NOP 395+ S0003E0 01 NOP 395+ S0003E1 01 NOP 395+ S0003E2 01 NOP 395+ S0003E3 01 NOP 395+ S0003E4 01 NOP 395+ S0003E5 01 NOP 395+ S0003E6 01 NOP 395+ S0003E7 01 NOP 395+ S0003E8 01 NOP 395+ S0003E9 01 NOP 395+ S0003EA 01 NOP 395+ S0003EB 01 NOP 395+ S0003EC 01 NOP 395+ S0003ED 01 NOP 395+ S0003EE 01 NOP 395+ S0003EF 01 NOP 395+ S0003F0 01 NOP 395+ S0003F1 01 NOP 395+ S0003F2 01 NOP 395+ S0003F3 01 NOP 395+ S0003F4 01 NOP 395+ S0003F5 01 NOP 395+ S0003F6 01 NOP 395+ S0003F7 01 NOP 395+ S0003F8 01 NOP 395+ S0003F9 01 NOP 395+ S0003FA 01 NOP 395+ S0003FB 01 NOP 395+ S0003FC 01 NOP 395+ S0003FD 01 NOP 395+ S0003FE 01 NOP 395+ S0003FF 01 NOP 396 ; 397 ; 398 ; 399 ;------------------------------------------------------------------------ 400 ;- ＯＢＪタイプデータ - 401 ;------------------------------------------------------------------------ 402 000400 BITMAP_OBJ_TBL EQU $ 403 ; +---------------- キャラクター中心Ｘ 404 ; | +--------------- キャラクター中心Ｙ 405 ; | | +-------------- キャラクターＸ幅 406 ; | | | +------------- キャラクターＹ幅 407 ; | | | | +----------- キャラクターアドレス 408 ; | | | | | （バンクが８０Ｈ以上は上位４ビット） 409 ; | | | | | 410 ; | | | | | 411 ; | | | | | 412 ; 413 ;-------------- 鳥−１ -------------------------------------------------- 414 000400 BMP_OBJ_TORI00 EQU $ 415 S000400 F4 F0 18 28 BYTE 0F4H,0F0H,018H,028H 416 S000404 D5C000 LWORD 804000H+CIPCHD5+0000H*8 417 ; 418 ;-------------- 鳥−２ -------------------------------------------------- 419 000407 BMP_OBJ_TORI01 EQU $ 420 S000407 E8 F3 2F 28 BYTE 0E8H,0F3H,02FH,028H 421 S00040B D5C018 LWORD 804000H+CIPCHD5+0003H*8 422 ; 423 ;-------------- 鳥−３ -------------------------------------------------- 424 00040E BMP_OBJ_TORI02 EQU $ 425 S00040E E4 FA 37 1F BYTE 0E4H,0FAH,037H,01FH 426 S000412 D58080 LWORD 800000H+CIPCHD5+0010H*8 427 ; 428 ;-------------- 鳥−４ -------------------------------------------------- 429 000415 BMP_OBJ_TORI03 EQU $ 430 S000415 E0 05 3F 0F BYTE 0E0H,005H,03FH,00FH 431 S000419 D58040 LWORD 800000H+CIPCHD5+0008H*8 432 ; 433 ;-------------- 鳥−５ -------------------------------------------------- 434 00041C BMP_OBJ_TORI04 EQU $ 435 S00041C E4 04 37 17 BYTE 0E4H,004H,037H,017H 436 S000420 D5E830 LWORD 804000H+CIPCHD5+0506H*8 437 ; 438 ;-------------- 鳥−６ -------------------------------------------------- 439 000423 BMP_OBJ_TORI05 EQU $ 440 S000423 F0 04 1F 1F BYTE 0F0H,004H,01FH,01FH 441 S000427 D5A060 LWORD 800000H+CIPCHD5+040CH*8 442 ; 443 ;-------------- 鳥−７ -------------------------------------------------- 444 00042A BMP_OBJ_TORI06 EQU $ 445 S00042A F0 04 20 1F BYTE 0F0H,004H,020H,01FH 446 S00042E D58020 LWORD 800000H+CIPCHD5+0004H*8 447 ; 448 ;-------------- 鳥−８ -------------------------------------------------- 449 000431 BMP_OBJ_TORI07 EQU $ 450 S000431 F0 01 20 1F BYTE 0F0H,001H,020H,01FH 451 S000435 D58000 LWORD 800000H+CIPCHD5+0000H*8 452 ; 453 ;-------------- 鳥−９ -------------------------------------------------- 454 000438 BMP_OBJ_TORI08 EQU $ 455 S000438 E8 05 2F 10 BYTE 0E8H,005H,02FH,010H 456 S00043C D59040 LWORD 800000H+CIPCHD5+0208H*8 457 ; 458 ;-------------- 鳥−１０ ------------------------------------------------ 459 00043F BMP_OBJ_TORI09 EQU $ 460 S00043F E8 02 2F 17 BYTE 0E8H,002H,02FH,017H 461 S000443 D5E800 LWORD 804000H+CIPCHD5+0500H*8 462 ; 463 ;-------------- 鳥−１１ ------------------------------------------------ 464 000446 BMP_OBJ_TORI10 EQU $ 465 S000446 E8 FF 30 17 BYTE 0E8H,0FFH,030H,017H 466 S00044A D5A030 LWORD 800000H+CIPCHD5+0406H*8 467 ; 468 ;-------------- 鳥−１２ ------------------------------------------------ 469 00044D BMP_OBJ_TORI11 EQU $ 470 S00044D E8 F9 2F 1F BYTE 0E8H,0F9H,02FH,01FH 471 S000451 D5A000 LWORD 800000H+CIPCHD5+0400H*8 472 ; 473 ;-------------- 鳥−１３ ------------------------------------------------ 474 000454 BMP_OBJ_TORI12 EQU $ 475 S000454 F4 F0 17 28 BYTE 0F4H,0F0H,017H,028H 476 S000458 D5C048 LWORD 804000H+CIPCHD5+0009H*8 477 ; 478 ;-------------- 山−１ -------------------------------------------------- 479 00045B BMP_OBJ_YAMA0 EQU $ 480 S00045B E8 C0 2F 3F BYTE 0E8H,0C0H,02FH,03FH 481 S00045F 558000 LWORD 000000H+CIPCHD5+0000H*8 482 ; 483 ;-------------- 山−２ -------------------------------------------------- 484 000462 BMP_OBJ_YAMA1 EQU $ 485 S000462 F8 E8 0F 17 BYTE 0F8H,0E8H,00FH,017H 486 S000466 55A830 LWORD 000000H+CIPCHD5+0506H*8 487 ; 488 ;-------------- 山−３ , 山−４ ----------------------------------------- 489 000469 BMP_OBJ_YAMA2 EQU $ 490 000469 BMP_OBJ_YAMA3 EQU $ 491 S000469 E8 C0 2F 3F BYTE 0E8H,0C0H,02FH,03FH 492 S00046D 558080 LWORD 000000H+CIPCHD5+0010H*8 493 ; 494 ;-------------- 雲−１ -------------------------------------------------- 495 000470 BMP_OBJ_KUMO0 EQU $ 496 S000470 E8 E8 2F 27 BYTE 0E8H,0E8H,02FH,027H 497 S000474 558030 LWORD 000000H+CIPCHD5+0006H*8 498 ; 499 ;-------------- 雲−２ -------------------------------------------------- 500 000477 BMP_OBJ_KUMO1 EQU $ 501 S000477 F0 D0 1F 2F BYTE 0F0H,0D0H,01FH,02FH 502 S00047B 558060 LWORD 000000H+CIPCHD5+000CH*8 503 ; 504 ;-------------- 雲−３ -------------------------------------------------- 505 00047E BMP_OBJ_KUMO2 EQU $ 506 S00047E F0 F4 1F 17 BYTE 0F0H,0F4H,01FH,017H 507 S000482 55A840 LWORD 000000H+CIPCHD5+0508H*8 508 ; 509 ;-------------- 雲−４ -------------------------------------------------- 510 000485 BMP_OBJ_KUMO3 EQU $ 511 S000485 F0 F8 1F 0F BYTE 0F0H,0F8H,01FH,00FH 512 S000489 55B060 LWORD 000000H+CIPCHD5+060CH*8 513 ; 514 ;-------------- 巨大雲 -------------------------------------------------- 515 00048C BMP_OBJ_BIGKUM EQU $ 516 S00048C C0 C8 7F 37 BYTE 0C0H,0C8H,07FH,037H 517 S000490 D5C880 LWORD 804000H+CIPCHD5+0110H*8 518 ; 519 ;-------------- 家 ------------------------------------------------------ 520 000493 BMP_OBJ_HOME EQU $ 521 S000493 D8 C0 4F 47 BYTE 0D8H,0C0H,04FH,047H 522 S000497 5580B0 LWORD 000000H+CIPCHD5+0016H*8 523 ; 524 ;-------------- 丘 ------------------------------------------------------ 525 00049A BMP_OBJ_OKA EQU $ 526 S00049A C0 F8 7F 17 BYTE 0C0H,0F8H,07FH,017H 527 S00049E 55E880 LWORD 004000H+CIPCHD5+0510H*8 528 ; 529 ;-------------- 上草 ---------------------------------------------------- 530 0004A1 BMP_OBJ_UKS EQU $ 531 S0004A1 D8 E0 50 40 BYTE 0D8H,0E0H,050H,040H 532 S0004A5 55C030 LWORD 004000H+CIPCHD5+0006H*8 533 ; 534 ;-------------- 下草 １ ------------------------------------------------- 535 0004A8 BMP_OBJ_DKS0 EQU $ 536 S0004A8 E8 E0 2F 3F BYTE 0E8H,0E0H,02FH,03FH 537 S0004AC 55C000 LWORD 004000H+CIPCHD5+0000H*8 538 ; 539 ;-------------- 下草 ２ ------------------------------------------------- 540 0004AF BMP_OBJ_DKS1 EQU $ 541 S0004AF DC DC 47 47 BYTE 0DCH,0DCH,047H,047H 542 S0004B3 D580B8 LWORD 800000H+CIPCHD5+0017H*8 543 ; 544 ;-------------- 飛び立つ鳥 １ ------------------------------------------- 545 0004B6 BMP_OBJ_STORI0 EQU $ 546 S0004B6 F8 F4 10 18 BYTE 0F8H,0F4H,010H,018H 547 S0004BA D5C060 LWORD 804000H+CIPCHD5+000CH*8 548 ; 549 ;-------------- 飛び立つ鳥 ２ ------------------------------------------- 550 0004BD BMP_OBJ_STORI1 EQU $ 551 S0004BD F8 F4 10 18 BYTE 0F8H,0F4H,010H,018H 552 S0004C1 D5C070 LWORD 804000H+CIPCHD5+000EH*8 553 ; 554 ;-------------- 飛び立つ鳥 ３ ------------------------------------------- 555 0004C4 BMP_OBJ_STORI2 EQU $ 556 S0004C4 F8 F4 10 18 BYTE 0F8H,0F4H,010H,018H 557 S0004C8 55A830 LWORD 000000H+CIPCHD5+0506H*8 558 ; 559 ;-------------- 飛び立つ鳥 ４ ------------------------------------------- 560 0004CB BMP_OBJ_STORI3 EQU $ 561 S0004CB F4 F4 18 18 BYTE 0F4H,0F4H,018H,018H 562 S0004CF 55D080 LWORD 004000H+CIPCHD5+0210H*8 563 ; 564 ;-------------- 飛び立つ鳥 ５ ------------------------------------------- 565 0004D2 BMP_OBJ_STORI4 EQU $ 566 S0004D2 F4 F4 18 18 BYTE 0F4H,0F4H,018H,018H 567 S0004D6 55D098 LWORD 004000H+CIPCHD5+0213H*8 568 ; 569 ;-------------- 飛び立つ鳥 ６ ------------------------------------------- 570 0004D9 BMP_OBJ_STORI5 EQU $ 571 S0004D9 F4 F4 18 18 BYTE 0F4H,0F4H,018H,018H 572 S0004DD D5D868 LWORD 804000H+CIPCHD5+030DH*8 573 ; 574 ;-------------- 飛び立つ鳥 ７ ------------------------------------------- 575 0004E0 BMP_OBJ_STORI6 EQU $ 576 S0004E0 F4 F4 18 18 BYTE 0F4H,0F4H,018H,018H 577 S0004E4 D5A080 LWORD 800000H+CIPCHD5+0410H*8 578 ; 579 ;-------------- 飛ぶ鳥 １ ----------------------------------------------- 580 0004E7 BMP_OBJ_FTORI0 EQU $ 581 S0004E7 F8 F8 10 10 BYTE 0F8H,0F8H,010H,010H 582 S0004EB 55C080 LWORD 004000H+CIPCHD5+0010H*8 583 ; 584 ;-------------- 飛ぶ鳥 ２ ----------------------------------------------- 585 0004EE BMP_OBJ_FTORI1 EQU $ 586 S0004EE F8 F8 10 10 BYTE 0F8H,0F8H,010H,010H 587 S0004F2 55C090 LWORD 004000H+CIPCHD5+0012H*8 588 ; 589 ;-------------- 飛ぶ鳥 ３ ----------------------------------------------- 590 0004F5 BMP_OBJ_FTORI2 EQU $ 591 S0004F5 F8 F8 10 10 BYTE 0F8H,0F8H,010H,010H 592 S0004F9 55C0A0 LWORD 004000H+CIPCHD5+0014H*8 593 ; 594 ;-------------- 飛ぶ鳥 ４ ----------------------------------------------- 595 0004FC BMP_OBJ_FTORI3 EQU $ 596 S0004FC F8 F8 10 10 BYTE 0F8H,0F8H,010H,010H 597 S000500 55C8B0 LWORD 004000H+CIPCHD5+0116H*8 598 ; 599 ;-------------- 飛ぶ鳥 ５ ----------------------------------------------- 600 000503 BMP_OBJ_FTORI4 EQU $ 601 S000503 F8 F8 10 10 BYTE 0F8H,0F8H,010H,010H 602 S000507 55C8C0 LWORD 004000H+CIPCHD5+0118H*8 603 ; 604 ;-------------- 飛ぶ鳥 ６ ----------------------------------------------- 605 00050A BMP_OBJ_FTORI5 EQU $ 606 S00050A F8 F8 10 10 BYTE 0F8H,0F8H,010H,010H 607 S00050E 55C8D0 LWORD 004000H+CIPCHD5+011AH*8 608 ; 609 ;-------------- 飛ぶ鳥 ７ ----------------------------------------------- 610 000511 BMP_OBJ_FTORI6 EQU $ 611 S000511 F8 F8 10 10 BYTE 0F8H,0F8H,010H,010H 612 S000515 55C8E0 LWORD 004000H+CIPCHD5+011CH*8 613 ; 614 ;-------------- 飛ぶ鳥 ８ ----------------------------------------------- 615 000518 BMP_OBJ_FTORI7 EQU $ 616 S000518 F8 F8 10 10 BYTE 0F8H,0F8H,010H,010H 617 S00051C 55C8F0 LWORD 004000H+CIPCHD5+011EH*8 618 ; 619 ;-------------- 飛ぶ鳥 ９ ----------------------------------------------- 620 00051F BMP_OBJ_FTORI8 EQU $ 621 S00051F F8 F8 10 10 BYTE 0F8H,0F8H,010H,010H 622 S000523 55D8B0 LWORD 004000H+CIPCHD5+0316H*8 623 ; 624 ;-------------- 飛ぶ鳥 １０ --------------------------------------------- 625 000526 BMP_OBJ_FTORI9 EQU $ 626 S000526 F8 F8 10 10 BYTE 0F8H,0F8H,010H,010H 627 S00052A 55D8C0 LWORD 004000H+CIPCHD5+0318H*8 628 ; 629 ;-------------- 飛ぶ鳥 １１ --------------------------------------------- 630 00052D BMP_OBJ_FTORIA EQU $ 631 S00052D F8 F8 10 10 BYTE 0F8H,0F8H,010H,010H 632 S000531 55D8D0 LWORD 004000H+CIPCHD5+031AH*8 633 ; 634 ; 635 ; 636 ; 637 ; 638 ;************************************************************************ 639 ;* 大クッパグラデーションバッファセット * 640 ;* in : * 641 ;* (R0) <-- グラデーションカラーアドレス * 642 ;* (R14) <-- ” * 643 ;************************************************************************ 644 ; 645 000534 KOOPA_GRADATION EQU $ 646 S000534 3F DF ROMB 647 S000536 2E 1E MOVE R14,R14 648 ; 649 mJSR COL_R_G_B_ST 649+ S000538 94 LINK #4 649+ S000539 FF 058C' IWT R15, #COL_R_G_B_ST 649+ S00053C 01 NOP 650 ; vvv******* warn :value out of range 651 S00053D F8 385E IWT R8,#HDMABF0 ;(R8) <-- ヌキカラーバッファポインター vvv******* warn :value out of range 652 S000540 F9 5800 IWT R9,#WOB7CHR ;(R9) <-- Ｒバッファポインター vvv******* warn :value out of range 653 S000543 FA 58D2 IWT R10,#WOB7CHR+0D2H ;(R10) <-- Ｇ・Ｂバッファポインター 654 ; 655 S000546 02 CACHE 656 ; 657 S000547 AC 4F IBT R12,#04FH 658 S000549 2F 1D MOVE R13,R15 659 KOOPA_GRAD_0050 660 S00054B B1 FROM R1 661 S00054C 38 STW (R8) 662 S00054D D8 INC R8 663 S00054E D8 INC R8 664 S00054F B2 FROM R2 665 S000550 3D 39 STB (R9) 666 S000552 D9 INC R9 667 S000553 B3 FROM R3 668 S000554 3A STW (R10) 669 S000555 DA INC R10 670 S000556 3C LOOP 671 S000557 DA INC R10 672 ; 673 S000558 A7 0E IBT R7,#14 674 KOOPA_GRAD_0100 675 mJSR COL_R_G_B_ST 675+ S00055A 94 LINK #4 675+ S00055B FF 058C' IWT R15, #COL_R_G_B_ST 675+ S00055E 01 NOP 676 ; 677 S00055F AC 04 IBT R12,#004H 678 S000561 2F 1D MOVE R13,R15 679 KOOPA_GRAD_0150 680 S000563 B1 FROM R1 681 S000564 38 STW (R8) 682 S000565 D8 INC R8 683 S000566 D8 INC R8 684 S000567 B2 FROM R2 685 S000568 3D 39 STB (R9) 686 S00056A D9 INC R9 687 S00056B B3 FROM R3 688 S00056C 3A STW (R10) 689 S00056D DA INC R10 690 S00056E 3C LOOP 691 S00056F DA INC R10 692 ; 693 S000570 E7 DEC R7 694 S000571 08 E7' BNE KOOPA_GRAD_0100 695 S000573 01 NOP 696 ; 697 mJSR COL_R_G_B_ST 697+ S000574 94 LINK #4 697+ S000575 FF 058C' IWT R15, #COL_R_G_B_ST 697+ S000578 01 NOP 698 ; 699 S000579 AC 4A IBT R12,#0D2H-(050H+(14*004H)) 700 S00057B 2F 1D MOVE R13,R15 701 KOOPA_GRAD_0200 702 S00057D B1 FROM R1 703 S00057E 38 STW (R8) 704 S00057F D8 INC R8 705 S000580 D8 INC R8 706 S000581 B2 FROM R2 707 S000582 3D 39 STB (R9) 708 S000584 D9 INC R9 709 S000585 B3 FROM R3 710 S000586 3A STW (R10) 711 S000587 DA INC R10 712 S000588 3C LOOP 713 S000589 DA INC R10 714 ; 715 S00058A 00 STOP 716 S00058B 01 NOP 717 ; 718 ;------------------------------------------------------------------------ 719 ;- カラーＲ・Ｇ・Ｂ分割 - 720 ;- out : - 721 ;- (R1) <-- カラーデータ - 722 ;- (R2) <-- Ｒ - 723 ;- (R3) <-- Ｇ・Ｂ - 724 ;------------------------------------------------------------------------ 725 COL_R_G_B_ST 726 S00058C EF GETB 727 S00058D DE INC R14 728 S00058E 3D EF GETBH 729 S000590 DE INC R14 730 S000591 20 11 MOVE R1,R0 ;(R1) <-- セットカラー 731 ; 732 S000593 A5 1F IBT R5,#1FH ;(R5) <-- Ｒ・Ｇ・ＢＡＮＤデータ 733 S000595 75 AND R5 734 S000596 A6 20 IBT R6,#00100000B ;(R6) <-- 固定カラーＲ・Ｇ・Ｂ選択データ 735 S000598 12 TO R2 ;(R2) <-- Ｒ 736 S000599 C6 OR R6 737 ; 738 S00059A B1 FROM R1 739 S00059B 03 LSR 740 S00059C 03 LSR 741 S00059D 03 LSR 742 S00059E 03 LSR 743 S00059F 03 LSR 744 S0005A0 20 14 MOVE R4,R0 745 S0005A2 75 AND R5 746 S0005A3 26 WITH R6 ;[ IBT R6,#01000000B ] 747 S0005A4 56 ADD R6 ; 748 S0005A5 13 TO R3 ;(R3) <-- Ｇ 749 S0005A6 C6 OR R6 750 ; 751 S0005A7 B4 FROM R4 752 S0005A8 03 LSR 753 S0005A9 03 LSR 754 S0005AA 03 LSR 755 S0005AB 03 LSR 756 S0005AC 03 LSR 757 S0005AD 75 AND R5 758 S0005AE 26 WITH R6 ;[ IWT R6,#10000000B ] 759 S0005AF 56 ADD R6 ; 760 S0005B0 C6 OR R6 761 S0005B1 4D SWAP 762 S0005B2 13 TO R3 ;(R3) <-- Ｇ・Ｂ 763 S0005B3 C3 OR R3 764 ; 765 mRTS 765+ S0005B4 9B JMP R11 765+ S0005B5 01 NOP 766 ; 767 ;************************************************************************ 768 ;* 大クッパＯＡＭ３Ｄ変換 * 769 ;* in : * 770 ;* (R1) <-- Ｘ座標 * 771 ;* (R2) <-- Ｙ座標 * 772 ;* (R3) <-- 基準Ｘ座標 * 773 ;* (R5) <-- ＯＡＭインデックス * 774 ;* (R7) <-- ＯＡＭ数 * 775 ;* out : * 776 ;* (R1) <-- ＯＡＭ座標Ｘ補正値 * 777 ;* (R2) <-- ＯＡＭ座標Ｙ補正値 * 778 ;* (R6) <-- ３Ｄ変換倍率 * 779 ;* (R9) <-- Ｚ座標 * 780 ;************************************************************************ 781 ; 782 0005B6 KOOPA_3D_OAM EQU $ 783 S0005B6 B1 FROM R1 784 S0005B7 63 SUB R3 785 S0005B8 F9 0100 IWT R9,#0100H 786 S0005BB 19 TO R9 ;(R9) <-- Ｚ座標 787 S0005BC 59 ADD R9 788 ; 789 ;------------------------------------------------------------------------ 790 ;- ＜（１／倍率）計算＞ - 791 ;- 除算 - 792 ;- in : - 793 ;- (R9) <-- 除数 - 794 ;- out : - 795 ;- (R6) <-- 商 - 796 ;- (R0) <-- 余り - 797 ;------------------------------------------------------------------------ 798 S0005BD AA 01 IBT R10,#01H ;(R10) <-- １．０ 799 ; 800 S0005BF 60 SUB R0 ;(R0) <-- アキュムレータをクリア 801 S0005C0 20 16 MOVE R6,R0 ;(R6) <-- 商をクリア 802 ; 803 S0005C2 02 CACHE 804 ; 805 S0005C3 AC 20 IBT R12,#32 806 S0005C5 FD 05C9' IWT R13,#KOOPA_3D_OAM_20+1 807 KOOPA_3D_OAM_20 808 S0005C8 26 WITH R6 ;商を左へシフト 809 S0005C9 56 ADD R6 810 S0005CA 2A WITH R10 ;被除数を左へシフト 811 S0005CB 5A ADD R10 812 S0005CC 04 ROL ;被除数をアキュムレータにシフト 813 S0005CD 69 SUB R9 ;アキュムレータと除数を比較 814 S0005CE 0C 03' BCC KOOPA_3D_OAM_30 ;アキュムレータ＜除数であれば、減算を省略 815 S0005D0 59 ADD R9 816 ; 817 S0005D1 69 SUB R9 ;アキュムレータから除数を引く 818 S0005D2 D6 INC R6 ;商に１を加える 819 KOOPA_3D_OAM_30 820 S0005D3 3C LOOP 821 S0005D4 26 WITH R6 ;(R6) <-- スクリーン面での倍率 822 ; 823 ;------------------------------------------------------------------------ 824 ;- ３Ｄ変換 - 825 ;------------------------------------------------------------------------ 826 S0005D5 3D A8 4A LMS R8,CESCCH1 ;(R8) <-- スクロールカウンターＨ 827 S0005D8 FA 0078 IWT R10,#080H-8 ;(R10) <-- 画面中心Ｘ座標 828 ; 829 S0005DB B3 FROM R3 830 S0005DC 68 SUB R8 831 S0005DD 6A SUB R10 832 S0005DE 3D 9F LMULT 833 S0005E0 24 WITH R4 834 S0005E1 C0 HIB 835 S0005E2 9E LOB 836 S0005E3 4D SWAP 837 S0005E4 C4 OR R4 838 S0005E5 5A ADD R10 839 S0005E6 58 ADD R8 840 S0005E7 11 TO R1 ;(R1) <-- ＯＡＭ座標Ｘ補正値 841 S0005E8 61 SUB R1 842 ; 843 S0005E9 3D A8 4E LMS R8,CESCCV1 ;(R8) <-- スクロールカウンターＶ 844 S0005EC FA 0088 IWT R10,#090H-8 ;(R10) <-- 画面中心Ｙ座標 845 ; 846 S0005EF B2 FROM R2 847 S0005F0 68 SUB R8 848 S0005F1 6A SUB R10 849 S0005F2 3D 9F LMULT 850 S0005F4 24 WITH R4 851 S0005F5 C0 HIB 852 S0005F6 9E LOB 853 S0005F7 4D SWAP 854 S0005F8 C4 OR R4 855 S0005F9 5A ADD R10 856 S0005FA 58 ADD R8 857 S0005FB 12 TO R2 ;(R2) <-- ＯＡＭ座標Ｘ補正値 858 S0005FC 62 SUB R2 859 ; 860 ;------------------------------------------------------------------------ 861 ;- ＯＡＭ補正 - 862 ;------------------------------------------------------------------------ 863 S0005FD A4 06 IBT R4,#8-2 ;ＯＡＭインデックス加算値 864 ; 865 S0005FF 27 1C MOVE R12,R7 ;(R12) <-- ＯＡＭ数 866 S000601 2F 1D MOVE R13,R15 867 KOOPA_3D_OAM_40 868 S000603 45 LDW (R5) 869 S000604 51 ADD R1 870 S000605 90 SBK ;[ STW (R5) ] 871 S000606 D5 INC R5 872 S000607 D5 INC R5 873 S000608 45 LDW (R5) 874 S000609 52 ADD R2 875 ; 876 S00060A 25 WITH R5 877 S00060B 54 ADD R4 878 S00060C 3C LOOP 879 S00060D 90 SBK ;[ STW (R5) ] 880 ; 881 S00060E 00 STOP 882 S00060F 01 NOP 883 ; 884 ; 885 ;**************************************************************** 886 ;* * 887 ;* エンディング用 カラーフェード * 888 ;* in * 889 ;* R1 : 元カラーデータ * 890 ;* R2 : チェンジ カラーデータ * 891 ;* R3 : カラーデータ バッファ * 892 ;**************************************************************** 893 000610 END_COL_FADE EQU $ 894 S000610 02 CACHE ; キャッシュ スタート !! 895 ; 896 S000611 AA 1F IBT R10,#01FH 897 S000613 3D F0 11AA LM R0,CBTMP_COL_CNT 898 S000617 D0 INC R0 899 S000618 90 SBK 900 S000619 20 16 MOVE R6,R0 901 S00061B FC 0100 IWT R12,#00200H/2 902 S00061E 2F 1D MOVE R13,R15 903 ; 904 S000620 41 LDW (R1) ; Ｒカラーの変換 905 S000621 18 TO R8 906 S000622 7A AND R10 907 S000623 42 LDW (R2) 908 S000624 19 TO R9 909 S000625 7A AND R10 910 S000626 94 LINK #004 911 S000627 FF 0665' IWT R15,#END_COL_SUB 912 S00062A 01 NOP 913 S00062B 20 15 MOVE R5,R0 914 ; 915 S00062D 41 LDW (R1) ; Ｇカラーの変換 916 S00062E 50 ADD R0 917 S00062F 50 ADD R0 918 S000630 50 ADD R0 919 S000631 4D SWAP 920 S000632 18 TO R8 921 S000633 7A AND R10 922 S000634 42 LDW (R2) 923 S000635 50 ADD R0 924 S000636 50 ADD R0 925 S000637 50 ADD R0 926 S000638 4D SWAP 927 S000639 19 TO R9 928 S00063A 7A AND R10 929 S00063B 94 LINK #004 930 S00063C FF 0665' IWT R15,#END_COL_SUB 931 S00063F 01 NOP 932 S000640 4D SWAP 933 S000641 03 LSR 934 S000642 03 LSR 935 S000643 03 LSR 936 S000644 15 TO R5 937 S000645 C5 OR R5 938 ; 939 S000646 41 LDW (R1) ; Ｂカラーの変換 940 S000647 4D SWAP 941 S000648 03 LSR 942 S000649 03 LSR 943 S00064A 18 TO R8 944 S00064B 7A AND R10 945 S00064C 42 LDW (R2) 946 S00064D 4D SWAP 947 S00064E 03 LSR 948 S00064F 03 LSR 949 S000650 19 TO R9 950 S000651 7A AND R10 951 S000652 94 LINK #004 952 S000653 FF 0665' IWT R15,#END_COL_SUB 953 S000656 01 NOP 954 S000657 4D SWAP 955 S000658 50 ADD R0 956 S000659 50 ADD R0 957 ; 958 S00065A C5 OR R5 959 S00065B 33 STW (R3) 960 S00065C D1 INC R1 961 S00065D D1 INC R1 962 S00065E D2 INC R2 963 S00065F D2 INC R2 964 S000660 D3 INC R3 965 S000661 3C LOOP 966 S000662 D3 INC R3 967 ; 968 END_COL_990 969 S000663 00 STOP 970 S000664 01 NOP 971 ; 972 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 973 ;+ エンディング用 カラーフェード サブルーチン + 974 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 975 END_COL_SUB 976 S000665 B9 FROM R9 977 S000666 68 SUB R8 978 S000667 86 MULT R6 979 S000668 96 ASR 980 S000669 96 ASR 981 S00066A 96 ASR 982 S00066B 96 ASR 983 S00066C 96 ASR 984 S00066D 58 ADD R8 985 S00066E 7A AND R10 986 S00066F 2B 1F MOVE R15,R11 987 S000671 01 NOP 988 ; 989 ;************************************************************************ 990 ;* 大クッパモード７スクリーン３Ｄ変換 * 991 ;* in : * 992 ;* (R1) <-- Ｚ座標 * 993 ;* (R2) <-- Ｙ座標 * 994 ;* (R3) <-- Ｘ座標 * 995 ;* (R5) <-- 向き * 996 ;* out : * 997 ;* (R6) <-- ３Ｄ変換倍率 * 998 ;* (R9) <-- モード７倍率 * 999 ;************************************************************************ 1000 ; 1001 000672 KOOPA_3D_SET EQU $ 1002 S000672 F6 0040 IWT R6,#040H 1003 S000675 B1 FROM R1 1004 S000676 3D 9F LMULT 1005 S000678 24 WITH R4 1006 S000679 C0 HIB 1007 S00067A 9E LOB 1008 S00067B 4D SWAP 1009 S00067C 19 TO R9 ;(R9) <-- モード７倍率 1010 S00067D C4 OR R4 1011 ; 1012 ;------------------------------------------------------------------------ 1013 ;- ＜（１／倍率）計算＞ - 1014 ;- 除算 - 1015 ;- in : - 1016 ;- (R1) <-- 除数 - 1017 ;- out : - 1018 ;- (R6) <-- 商 - 1019 ;- (R0) <-- 余り - 1020 ;------------------------------------------------------------------------ 1021 S00067E AA 01 IBT R10,#01H ;(R10) <-- １．０ 1022 ; 1023 S000680 60 SUB R0 ;(R0) <-- アキュムレータをクリア 1024 S000681 20 16 MOVE R6,R0 ;(R6) <-- 商をクリア 1025 ; 1026 S000683 02 CACHE 1027 ; 1028 S000684 AC 20 IBT R12,#32 1029 S000686 FD 068A' IWT R13,#KOOPA_3D_SET_20+1 1030 KOOPA_3D_SET_20 1031 S000689 26 WITH R6 ;商を左へシフト 1032 S00068A 56 ADD R6 1033 S00068B 2A WITH R10 ;被除数を左へシフト 1034 S00068C 5A ADD R10 1035 S00068D 04 ROL ;被除数をアキュムレータにシフト 1036 S00068E 61 SUB R1 ;アキュムレータと除数を比較 1037 S00068F 0C 03' BCC KOOPA_3D_SET_30 ;アキュムレータ＜除数であれば、減算を省略 1038 S000691 51 ADD R1 1039 ; 1040 S000692 61 SUB R1 ;アキュムレータから除数を引く 1041 S000693 D6 INC R6 ;商に１を加える 1042 KOOPA_3D_SET_30 1043 S000694 3C LOOP 1044 S000695 26 WITH R6 ;(R6) <-- スクリーン面での倍率 1045 ; 1046 ;------------------------------------------------------------------------ 1047 ;- ３Ｄ変換 - 1048 ;------------------------------------------------------------------------ 1049 S000696 3D A8 4A LMS R8,CESCCH1 ;(R8) <-- スクロールカウンターＨ 1050 S000699 FA 0080 IWT R10,#080H ;(R10) <-- 画面中心Ｘ座標 1051 ; 1052 S00069C B3 FROM R3 1053 S00069D 68 SUB R8 1054 S00069E 6A SUB R10 1055 S00069F 3D 9F LMULT 1056 S0006A1 24 WITH R4 1057 S0006A2 C0 HIB 1058 S0006A3 9E LOB 1059 S0006A4 4D SWAP 1060 S0006A5 C4 OR R4 1061 S0006A6 E5 DEC R5 1062 S0006A7 0A 03' BPL KOOPA_3D_SET_40 ;向き反転？ ( yes:KOOPA_3D_SET_40 ) 1063 S0006A9 D5 INC R5 1064 ; 1065 S0006AA 4F NOT 1066 S0006AB D0 INC R0 1067 KOOPA_3D_SET_40 1068 S0006AC F5 0180 IWT R5,#0180H 1069 S0006AF 55 ADD R5 1070 S0006B0 3E A0 4C SMS R0,CESCCH3 ;クッパＸ座標セット 1071 ; 1072 S0006B3 3D A8 4E LMS R8,CESCCV1 ;(R8) <-- スクロールカウンターＶ 1073 S0006B6 FA 0090 IWT R10,#090H ;(R10) <-- 画面中心Ｙ座標 1074 ; 1075 S0006B9 B2 FROM R2 1076 S0006BA 68 SUB R8 1077 S0006BB 6A SUB R10 1078 S0006BC 3D 9F LMULT 1079 S0006BE 24 WITH R4 1080 S0006BF C0 HIB 1081 S0006C0 9E LOB 1082 S0006C1 4D SWAP 1083 S0006C2 15 TO R5 1084 S0006C3 C4 OR R4 1085 S0006C4 F0 0180 IWT R0,#0180H 1086 S0006C7 65 SUB R5 1087 S0006C8 3E A0 50 SMS R0,CESCCV3 ;クッパＹ座標セット 1088 ; 1089 S0006CB 00 STOP 1090 S0006CC 01 NOP 1091 ; 1092 ;************************************************************************ 1093 ;* 大クッパファイヤープレイヤー衝突チェック * 1094 ;* in : * 1095 ;* (R1) <-- ファイヤーインデックス * 1096 ;* out : * 1097 ;* (R0) <-- 衝突フラグ（ 0:衝突 ) * 1098 ;************************************************************************ 1099 ; 1100 0006CD KPFIR_CROSS EQU $ 1101 mLDW0 CEPWIDX,R1 1101+ S0006CD F0 1C16 IWT R0,#CEPWIDX 1101+ S0006D0 51 ADD R1 1101+ S0006D1 40 LDW (R0) 1102 S0006D2 E0 DEC R0 1103 S0006D3 0A 03' BPL KPFIR_CROSS_010 1104 S0006D5 D0 INC R0 1105 ; 1106 S0006D6 4F NOT 1107 S0006D7 D0 INC R0 1108 KPFIR_CROSS_010 1109 S0006D8 A4 40 IBT R4,#040H 1110 S0006DA 64 SUB R4 1111 S0006DB 0D 24' BCS KPFIR_CROSS_050 ;Ｘ距離ＯＫ？ ( no:KPFIR_CROSS_050 ) 1112 S0006DD 54 ADD R4 1113 ; 1114 S0006DE 12 TO R2 ;(R2) <-- Ｘ距離×Ｘ距離 1115 S0006DF 3D 80 UMULT R0 1116 ; 1117 mLDW0 CEPWIDY,R1 1117+ S0006E1 F0 1C18 IWT R0,#CEPWIDY 1117+ S0006E4 51 ADD R1 1117+ S0006E5 40 LDW (R0) 1118 S0006E6 E0 DEC R0 1119 S0006E7 0A 03' BPL KPFIR_CROSS_020 1120 S0006E9 D0 INC R0 1121 ; 1122 S0006EA 4F NOT 1123 S0006EB D0 INC R0 1124 KPFIR_CROSS_020 1125 S0006EC 64 SUB R4 1126 S0006ED 0D 12' BCS KPFIR_CROSS_050 ;Ｙ距離ＯＫ？ ( no:KPFIR_CROSS_050 ) 1127 S0006EF 54 ADD R4 1128 ; 1129 S0006F0 3D 80 UMULT R0 ;(R0) <-- Ｙ距離×Ｙ距離 1130 S0006F2 12 TO R2 ;(R2) <-- Ｘ距離×Ｘ距離＋Ｙ距離×Ｙ距離 1131 S0006F3 52 ADD R2 1132 ; 1133 S0006F4 3D A0 91 LMS R0,CPWIDEY 1134 S0006F7 3D 80 UMULT R0 ;(R0) <-- プレイヤーサイズ×プレイヤーサイズ 1135 S0006F9 F3 0790 IWT R3,#02CH*02CH 1136 S0006FC 53 ADD R3 1137 S0006FD 62 SUB R2 1138 S0006FE 0D 03' BCS KPFIR_CROSS_100 ;衝突？ ( yes:KPFIR_CROSS_100 ) 1139 S000700 60 SUB R0 ;[ IBT R0,#0 ] 当たった 1140 ; 1141 KPFIR_CROSS_050 1142 S000701 A0 01 IBT R0,#1 ;当たって無い 1143 KPFIR_CROSS_100 1144 S000703 00 STOP 1145 S000704 01 NOP 1146 ; 1147 ;************************************************************************ 1148 ;* 大クッパバクダンセットチェック * 1149 ;* out : * 1150 ;* (R1) <-- バクダン数 * 1151 ;************************************************************************ 1152 000705 KPBOM_CHECK EQU $ 1153 S000705 A1 00 IBT R1,#0 ;(R1) <-- バクダン数 1154 ; 1155 S000707 F2 0F00 IWT R2,#CENMODE 1156 S00070A F3 1360 IWT R3,#CENMYNO 1157 S00070D F4 1D38 IWT R4,#CENSHOT 1158 S000710 F5 0000" IWT R5,#FKPBM 1159 S000713 F6 0000" IWT R6,#KPBOM 1160 S000716 F7 0004 IWT R7,#4 1161 ; 1162 S000719 02 CACHE 1163 ; 1164 S00071A AC 18 IBT R12,#CENNO 1165 S00071C 2F 1D MOVE R13,R15 1166 KPBOM_CHECK_050 1167 S00071E 42 LDW (R2) 1168 S00071F 9E LOB 1169 S000720 09 11' BEQ KPBOM_CHECK_150 ;敵存在？ ( no:KPBOM_CHECK_150 ) 1170 S000722 01 NOP 1171 ; 1172 S000723 43 LDW (R3) 1173 S000724 65 SUB R5 1174 S000725 09 0B' BEQ KPBOM_CHECK_100 ;風船バクダン？ ( yes:KPBOM_CHECK_100 ) 1175 S000727 55 ADD R5 1176 ; 1177 S000728 66 SUB R6 1178 S000729 08 08' BNE KPBOM_CHECK_150 ;バクダン？ ( no:KPBOM_CHECK_150 ) 1179 S00072B 01 NOP 1180 ; 1181 S00072C 44 LDW (R4) 1182 S00072D 3E 60 SUB #0 1183 S00072F 08 02' BNE KPBOM_CHECK_150 ;ショット中？ ( yes:KPBOM_CHECK_150 ) 1184 S000731 01 NOP 1185 ; 1186 KPBOM_CHECK_100 1187 S000732 D1 INC R1 ;バクダン数ｕｐ 1188 ; 1189 KPBOM_CHECK_150 1190 S000733 22 WITH R2 1191 S000734 57 ADD R7 1192 S000735 23 WITH R3 1193 S000736 57 ADD R7 1194 S000737 24 WITH R4 1195 S000738 57 ADD R7 1196 ; 1197 S000739 3C LOOP 1198 S00073A 01 NOP 1199 ; 1200 S00073B 00 STOP 1201 S00073C 01 NOP 1202 ; 1203 ;************************************************************************ 1204 ;* エンディングメッセージＢＧ３スクリーンセット * 1205 ;************************************************************************ 1206 00073D ENDMSG_SCRST EQU $ 1207 S00073D 02 CACHE 1208 ; vvv******* warn :value out of range 1209 S00073E F3 6800 IWT R3,#WOB7CHR+1000H ;(R3) <-- スクリーンセットバッファポインター 1210 S000741 F0 03CE IWT R0,#3CEH ;(R3) <-- ヌキキャラＮｏ． 1211 S000744 FC 0400 IWT R12,#800H/2 1212 S000747 2F 1D MOVE R13,R15 1213 ENDMSG_SCRST_10 1214 S000749 33 STW (R3) 1215 S00074A D3 INC R3 1216 S00074B 3C LOOP 1217 S00074C D3 INC R3 1218 ; 1219 S00074D F1 2000 IWT R1,#2000H ;(R1) <-- スクリーンスタートキャラＮｏ． vvv******* warn :value out of range 1220 S000750 F2 6C44 IWT R2,#WOB7CHR+1000H+(32*2*(16+1))+(2*2) ;(R2) <-- スクリーンスタートポインター 1221 ; 1222 S000753 A4 10 IBT R4,#20H-10H ;[ IBT R4,#10H ] 1223 S000755 A5 0F IBT R5,#0FH 1224 S000757 A7 28 IBT R7,#(32*2)-((24/2)*2) 1225 S000759 A8 38 IBT R8,#038H 1226 S00075B AA 0B IBT R10,#11 ;(R10) <-- 行数 1227 S00075D AB 0C IBT R11,#24/2 ;(R11) <-- 桁数 1228 ENDMSG_SCRST_20 1229 S00075F 21 10 MOVE R0,R1 1230 S000761 2B 1C MOVE R12,R11 1231 S000763 2F 1D MOVE R13,R15 1232 ENDMSG_SCRST_30 1233 S000765 32 STW (R2) 1234 S000766 D0 INC R0 1235 S000767 D0 INC R0 1236 S000768 1E TO R14 ;[ * not break (R0) ] 1237 S000769 75 AND R5 1238 S00076A 08 02' BNE ENDMSG_SCRST_40 1239 S00076C D2 INC R2 1240 ; 1241 S00076D 54 ADD R4 1242 ENDMSG_SCRST_40 1243 S00076E 3C LOOP 1244 S00076F D2 INC R2 1245 ; 1246 S000770 22 WITH R2 1247 S000771 57 ADD R7 1248 S000772 B1 FROM R1 1249 S000773 58 ADD R8 1250 S000774 11 TO R1 1251 S000775 3D 74 BIC R4 ;[ 奇数を偶数に ] 1252 ; 1253 S000777 EA DEC R10 1254 S000778 08 E6' BNE ENDMSG_SCRST_20+1 1255 S00077A 21 10 MOVE R0,R1 1256 ; 1257 S00077C 00 STOP 1258 S00077D 01 NOP 1259 ; 1260 ;************************************************************************ 1261 ;* エンディングメッセージＢＧ３ビットマップセット * 1262 ;* in : * 1263 ;* (R3) <-- メッセージアドレス（Ｂ） * 1264 ;* (R4) <-- ” （Ｌ，Ｈ） * 1265 ;************************************************************************ 1266 00077E ENDMSG_CHRST EQU $ 1267 S00077E 02 CACHE 1268 ; vvv******* warn :value out of range 1269 S00077F F5 6800 IWT R5,#WOB7CHR+1000H 1270 S000782 60 SUB R0 ;[ IBT R0,#0 ] 1271 S000783 FC 0300 IWT R12,#600H/2 1272 S000786 2F 1D MOVE R13,R15 1273 ENDMSG_CHRST_00 1274 S000788 35 STW (R5) 1275 S000789 D5 INC R5 1276 S00078A 3C LOOP 1277 S00078B D5 INC R5 1278 ; 1279 S00078C A5 00 IBT R5,#0 ;(R5) <-- ビットマップＸ座標 1280 S00078E A6 00 IBT R6,#0 ;(R6) <-- ビットマップＹ座標 1281 ; 1282 IF JPN ;**** 日本 対応 [1995/6/30] **************************** 1283 S000790 A7 01 IBT R7,#1 ;(R7) <-- カラーＡＮＤデータ 1284 ENDIF ;**** 日本 対応 [1995/6/30] **************************** 1285 S000792 F9 0080 IWT R9,#128 ;(R9) <-- ビットマップＸ座標補正値 1286 S000795 AA 10 IBT R10,#16 ;(R10) <-- ビットマップＹ座標補正値 1287 ENDMSG_CHRST_10 1288 S000797 B3 FROM R3 1289 S000798 3F DF ROMB 1290 S00079A 24 1E MOVE R14,R4 ;(R14) <-- メッセージデータポインター 1291 S00079C EF GETB 1292 S00079D DE INC R14 1293 ; 1294 S00079E FB 00FF IWT R11,#0FFH ;(R11) <-- 特殊コード 1295 S0007A1 6B SUB R11 1296 S0007A2 08 11' BNE ENDMSG_CHRST_50 ;特殊コード？ ( no:ENDMSG_CHRST_50 ) 1297 S0007A4 5B ADD R11 1298 ; 1299 ;-------------- 特殊コード ---------------------------------------------- 1300 S0007A5 EF GETB ;(R0) <-- 特殊コード内容 1301 S0007A6 DE INC R14 ;(R14) <-- 次からのメッセージアドレス 1302 ; 1303 S0007A7 1B TO R11 ;[ * not break (R0) ] 1304 S0007A8 3E 6A SUB #0AH 1305 S0007AA 09 03' BEQ ENDMSG_CHRST_20 ;２行目へ？ ( yes:ENDMSG_CHRST_20 ) 1306 S0007AC 01 NOP 1307 ; 1308 S0007AD 00 STOP 1309 S0007AE 01 NOP 1310 ; 1311 ENDMSG_CHRST_20 1312 S0007AF EF GETB 1313 S0007B0 DE INC R14 1314 ; 1315 S0007B1 A5 40 IBT R5,#040H ;(R5) <-- ビットマップＸ座標 1316 S0007B3 A6 10 IBT R6,#010H ;(R6) <-- ビットマップＹ座標 1317 ; 1318 ;-------------- メッセージプロット -------------------------------------- 1319 ENDMSG_CHRST_50 1320 S0007B5 2E 14 MOVE R4,R14 ;(R4) <-- 次からのメッセージデータポインター 1321 ; 1322 S0007B7 AE 00" IBT R14,#BANK MSG_FONT 1323 S0007B9 BE FROM R14 1324 S0007BA 3F DF ROMB 1325 ; 1326 IF NES | PAL ;**** NES or PAL 対応 [1995/7/19] ***************** 1327 IWT R14,#MSG_FONT_X 1328 TO R14 1329 ADD R14 1330 TO R7 ;(R7) <-- ヨコドット数 1331 GETB 1332 ENDIF ;**** NES or PAL 対応 [1995/7/19] ********************** 1333 ; 1334 S0007BC 3F 8C UMULT #12 1335 S0007BE FE 0000" IWT R14,#MSG_FONT 1336 S0007C1 1E TO R14 ;(R14) <-- フォントデータアドレス 1337 S0007C2 5E ADD R14 1338 ; 1339 S0007C3 A8 0C IBT R8,#12 1340 ENDMSG_CHRST_60 1341 S0007C5 1B TO R11 ;(R11) <-- フォントデータ 1342 S0007C6 3D EF GETBH 1343 S0007C8 DE INC R14 1344 ; 1345 S0007C9 25 11 MOVE R1,R5 ;(R1) <-- プロットＸ座標 1346 S0007CB 26 12 MOVE R2,R6 ;(R2) <-- プロットＹ座標 1347 ; 1348 IF JPN ;**** 日本 対応 [1995/6/30] **************************** 1349 S0007CD AC 08 IBT R12,#8 1350 ELSE ;**** NES or PAL 対応 [1995/7/19] ********************** 1351 MOVE R12,R7 1352 ENDIF 1353 S0007CF 2F 1D MOVE R13,R15 1354 ENDMSG_CHRST_70 1355 S0007D1 2B WITH R11 1356 S0007D2 5B ADD R11 1357 S0007D3 04 ROL 1358 IF JPN ;**** 日本 対応 [1995/6/30] **************************** 1359 S0007D4 77 AND R7 1360 ELSE ;**** NES or PAL 対応 [1995/7/19] ***************** 1361 AND #1 1362 ENDIF 1363 S0007D5 4E COLOUR 1364 ; 1365 S0007D6 B1 FROM R1 1366 S0007D7 69 SUB R9 1367 S0007D8 0C 04' BCC ENDMSG_CHRST_80 1368 S0007DA 22 WITH R2 1369 ; 1370 S0007DB 5A ADD R10 1371 S0007DC 20 11 MOVE R1,R0 1372 ENDMSG_CHRST_80 1373 S0007DE 3C LOOP 1374 S0007DF 4C PLOT 1375 ; 1376 S0007E0 E8 DEC R8 1377 S0007E1 08 E2' BNE ENDMSG_CHRST_60 1378 S0007E3 D6 INC R6 1379 ; 1380 S0007E4 26 WITH R6 1381 S0007E5 3E 6C SUB #12 1382 IF JPN ;**** 日本 対応 [1995/6/30] **************************** 1383 S0007E7 25 WITH R5 1384 S0007E8 3E 5A ADD #10 1385 ELSE ;**** NES or PAL 対応 [1995/7/19] ********************** 1386 WITH R5 1387 ADD R7 1388 ENDIF ;**** NES or PAL 対応 [1995/7/19] ********************** 1389 ; 1390 S0007EA 3D 4C RPIX 1391 ; 1392 S0007EC B5 FROM R5 1393 S0007ED 69 SUB R9 1394 S0007EE 0C A8' BCC ENDMSG_CHRST_10+1 1395 S0007F0 B3 FROM R3 1396 ; 1397 S0007F1 20 15 MOVE R5,R0 1398 S0007F3 26 WITH R6 ;(R6) <-- 改行ビットマップＹ座標 1399 S0007F4 05 A1' BRA ENDMSG_CHRST_10 1400 S0007F6 5A ADD R10 1401 ; 1402 ;************************************************************************ 1403 ;* ソニックマリオ衝突サイズセット * 1404 ;* in : * 1405 ;* (R1) <-- 回転角度 * 1406 ;* (R4) <-- 中心までのＹ距離＋１ * 1407 ;************************************************************************ 1408 0007F7 MARIO_SIZEST EQU $ 1409 S0007F7 A0 00" IBT R0,#BANK LCOS 1410 S0007F9 3F DF ROMB 1411 S0007FB F0 0000" IWT R0,#LCOS 1412 S0007FE 1E TO R14 1413 S0007FF 51 ADD R1 1414 S000800 3F EF GETBS 1415 S000802 20 11 MOVE R1,R0 ;(R1) <-- ｃｏｓデータ 1416 ; 1417 S000804 3D A3 91 LMS R3,CPWIDEY ;(R3) <-- Ｙサイズ 1418 S000807 83 MULT R3 1419 S000808 50 ADD R0 1420 S000809 50 ADD R0 1421 S00080A C0 HIB 1422 S00080B 95 SEX 1423 S00080C 4F NOT 1424 S00080D 54 ADD R4 1425 S00080E 3D A4 48 LMS R4,CPLYPSL 1426 S000811 54 ADD R4 1427 S000812 3E A0 8F SMS R0,CPCENTY ;中心Ｙ座標 1428 ; 1429 S000815 A0 40 IBT R0,#040H ;[ IWT R14,#LSIN ] 1430 S000817 1E TO R14 1431 S000818 5E ADD R14 1432 S000819 3F EF GETBS 1433 S00081B 20 12 MOVE R2,R0 ;(R2) <-- ｓｉｎデータ 1434 ; 1435 S00081D 83 MULT R3 1436 S00081E 50 ADD R0 1437 S00081F 50 ADD R0 1438 S000820 C0 HIB 1439 S000821 95 SEX 1440 S000822 3E 58 ADD #8 1441 S000824 3D A4 46 LMS R4,CPLXPSL 1442 S000827 54 ADD R4 1443 S000828 3E A0 8E SMS R0,CPCENTX ;中心Ｘ座標 1444 ; 1445 S00082B E1 DEC R1 1446 S00082C 0A 04' BPL MARIO_SIZEST_10 1447 S00082E D1 INC R1 1448 ; 1449 S00082F 21 WITH R1 1450 S000830 4F NOT 1451 S000831 D1 INC R1 1452 MARIO_SIZEST_10 1453 S000832 E2 DEC R2 1454 S000833 0A 04' BPL MARIO_SIZEST_20 1455 S000835 D2 INC R2 1456 ; 1457 S000836 22 WITH R2 1458 S000837 4F NOT 1459 S000838 D2 INC R2 1460 MARIO_SIZEST_20 1461 S000839 3D A0 90 LMS R0,CPWIDEX ;(R0) <-- Ｘサイズ 1462 S00083C 15 TO R5 ;(R5) <-- Ｘサイズ×ｃｏｓ 1463 S00083D 81 MULT R1 1464 S00083E 16 TO R6 ;(R6) <-- Ｘサイズ×ｓｉｎ 1465 S00083F 82 MULT R2 1466 ; 1467 S000840 B3 FROM R3 1468 S000841 82 MULT R2 1469 S000842 55 ADD R5 1470 S000843 50 ADD R0 1471 S000844 50 ADD R0 1472 S000845 C0 HIB 1473 S000846 3E A0 90 SMS R0,CPWIDEX ;Ｘサイズセット 1474 ; 1475 S000849 B3 FROM R3 1476 S00084A 81 MULT R1 1477 S00084B 56 ADD R6 1478 S00084C 50 ADD R0 1479 S00084D 50 ADD R0 1480 S00084E C0 HIB 1481 S00084F 3E A0 91 SMS R0,CPWIDEY ;Ｙサイズセット 1482 ; 1483 S000852 00 STOP 1484 S000853 01 NOP 1485 ; 1486 ;;;;;************************************************************************ 1487 ;;;;;* 土管コース水の音セットチェック * 1488 ;;;;;* out : * 1489 ;;;;;* (R0) <-- 0:サウンドセット * 1490 ;;;;;************************************************************************ 1491 ;;;;DOKAN_SND_CK EQU $ 1492 ;;;; IWT R1,#UT77CF ;(R1) <-- ドカン水流穴ユニット 1493 ;;;; IWT R2,#UT77D6-UT77CF ;(R2) <-- ドカン水流穴ユニット 1494 ;;;; IWT R3,#UT8554-UT77CF-(UT77D6-UT77CF) ;(R3) <-- ドカン水流穴ユニット 1495 ;;;; IWT R4,#BGCHECK_BUF ;(R4) <-- ＢＧユニットバッファポインター 1496 ;;;;; 1497 ;;;; CACHE 1498 ;;;;; 1499 ;;;; IWT R12,#16*2*16 1500 ;;;; MOVE R13,R15 1501 ;;;;DOKAN_SND_CK_10 1502 ;;;; LDW (R4) 1503 ;;;; SUB R1 1504 ;;;; BEQ DOKAN_SND_CK_50 ;ドカン水流穴ユニット？ ( yes:DOKAN_SND_CK_50 ) 1505 ;;;; NOP 1506 ;;;;; 1507 ;;;; SUB R2 1508 ;;;; BEQ DOKAN_SND_CK_50 ;ドカン水流穴ユニット？ ( yes:DOKAN_SND_CK_50 ) 1509 ;;;; NOP 1510 ;;;;; 1511 ;;;; SUB R3 1512 ;;;; BEQ DOKAN_SND_CK_50 ;ドカン水流穴ユニット？ ( yes:DOKAN_SND_CK_50 ) 1513 ;;;; INC R4 1514 ;;;;; 1515 ;;;; LOOP 1516 ;;;; INC R4 1517 ;;;;; 1518 ;;;;DOKAN_SND_CK_50 1519 ;;;; STOP 1520 ;;;; NOP 1521 ; 1522 ;************************************************************************ 1523 ;* * 1524 ;* ＹＯＳＨＩ ＤＯＯＲ ＭＯＶＥ * ２ * 1525 ;* Programmed by Y. Yamamoto. * 1526 ;* 1995年 6月19日(月曜日) 14時06分20秒 JST * 1527 ;* Ver 0.00* 1528 ;************************************************************************ 1529 000020 DOR2_SIZE EQU 020h 1530 00001F DOR2_A0 EQU DOR2_SIZE * 000h + DOR2_SIZE - 1 1531 00003F DOR2_A1 EQU DOR2_SIZE * 001h + DOR2_SIZE - 1 1532 00021F DOR2_A2 EQU DOR2_SIZE * 010h + DOR2_SIZE - 1 1533 00023F DOR2_A3 EQU DOR2_SIZE * 011h + DOR2_SIZE - 1 1534 00041F DOR2_A4 EQU DOR2_SIZE * 020h + DOR2_SIZE - 1 1535 00043F DOR2_A5 EQU DOR2_SIZE * 021h + DOR2_SIZE - 1 1536 00061F DOR2_A6 EQU DOR2_SIZE * 030h + DOR2_SIZE - 1 1537 00063F DOR2_A7 EQU DOR2_SIZE * 031h + DOR2_SIZE - 1 1538 ; 1539 00023F DOR2_B0 EQU DOR2_SIZE * 011h + DOR2_SIZE - 1 1540 00027F DOR2_B1 EQU DOR2_SIZE * 013h + DOR2_SIZE - 1 1541 00063F DOR2_B2 EQU DOR2_SIZE * 031h + DOR2_SIZE - 1 1542 00067F DOR2_B3 EQU DOR2_SIZE * 033h + DOR2_SIZE - 1 1543 0002BF DOR2_B4 EQU DOR2_SIZE * 015h + DOR2_SIZE - 1 1544 0002FF DOR2_B5 EQU DOR2_SIZE * 017h + DOR2_SIZE - 1 1545 0006BF DOR2_B6 EQU DOR2_SIZE * 035h + DOR2_SIZE - 1 1546 0006FF DOR2_B7 EQU DOR2_SIZE * 037h + DOR2_SIZE - 1 1547 ; 1548 000854 DOOR2_MV EQU $ 1549 S000854 3D F0 0002 LM R0, CWORK1 ;R1 = Y * 40H + X * 10H 1550 S000858 50 ADD R0 1551 S000859 3E 88 MULT #8 1552 S00085B 3D F1 0000 LM R1, CWORK0 1553 S00085F 51 ADD R1 1554 S000860 3E 84 MULT #4 vvv******* warn :value out of range 1555 S000862 F1 5800 IWT R1, #WOB7CHR 1556 S000865 1E TO R14 1557 S000866 51 ADD R1 1558 ; 1559 S000867 02 CACHE 1560 ; 1561 S000868 F1 063F IWT R1, #DOR2_A7 1562 S00086B F3 06FF IWT R3, #DOR2_B7 1563 S00086E 94 LINK #4 1564 S00086F FF 08C2' IWT R15, #DO2S_M00 1565 S000872 01 NOP 1566 S000873 F1 061F IWT R1, #DOR2_A6 1567 S000876 F3 06BF IWT R3, #DOR2_B6 1568 S000879 94 LINK #4 1569 S00087A FF 08C2' IWT R15, #DO2S_M00 1570 S00087D 01 NOP 1571 S00087E F1 043F IWT R1, #DOR2_A5 1572 S000881 F3 02FF IWT R3, #DOR2_B5 1573 S000884 94 LINK #4 1574 S000885 FF 08C2' IWT R15, #DO2S_M00 1575 S000888 01 NOP 1576 S000889 F1 041F IWT R1, #DOR2_A4 1577 S00088C F3 02BF IWT R3, #DOR2_B4 1578 S00088F 94 LINK #4 1579 S000890 FF 08C2' IWT R15, #DO2S_M00 1580 S000893 01 NOP 1581 S000894 F1 023F IWT R1, #DOR2_A3 1582 S000897 F3 067F IWT R3, #DOR2_B3 1583 S00089A 94 LINK #4 1584 S00089B FF 08C2' IWT R15, #DO2S_M00 1585 S00089E 01 NOP 1586 S00089F F1 021F IWT R1, #DOR2_A2 1587 S0008A2 F3 063F IWT R3, #DOR2_B2 1588 S0008A5 94 LINK #4 1589 S0008A6 FF 08C2' IWT R15, #DO2S_M00 1590 S0008A9 01 NOP 1591 S0008AA F1 003F IWT R1, #DOR2_A1 1592 S0008AD F3 027F IWT R3, #DOR2_B1 1593 S0008B0 94 LINK #4 1594 S0008B1 FF 08C2' IWT R15, #DO2S_M00 1595 S0008B4 01 NOP 1596 S0008B5 F1 001F IWT R1, #DOR2_A0 1597 S0008B8 F3 023F IWT R3, #DOR2_B0 1598 S0008BB 94 LINK #4 1599 S0008BC FF 08C2' IWT R15, #DO2S_M00 1600 S0008BF 01 NOP 1601 ; 1602 S0008C0 00 STOP 1603 S0008C1 01 NOP 1604 ; 1605 ; 1606 ; 1607 DO2S_M00 1608 S0008C2 21 WITH R1 1609 S0008C3 5E ADD R14 1610 S0008C4 23 WITH R3 1611 S0008C5 5E ADD R14 1612 ; 1613 S0008C6 A2 10 IBT R2, #010H 1614 S0008C8 B1 FROM R1 1615 S0008C9 12 TO R2 1616 S0008CA 62 SUB R2 1617 ; 1618 S0008CB A4 20 IBT R4, #DOR2_SIZE 1619 S0008CD B3 FROM R3 1620 S0008CE 14 TO R4 1621 S0008CF 64 SUB R4 1622 S0008D0 B3 FROM R3 1623 S0008D1 15 TO R5 1624 S0008D2 3E 62 SUB #2 1625 S0008D4 B4 FROM R4 1626 S0008D5 16 TO R6 1627 S0008D6 3E 62 SUB #2 1628 ; 1629 S0008D8 AA 02 IBT R10, #2 1630 DO2S_M50 1631 S0008DA AC 04 IBT R12, #4 1632 DO2S_M20 1633 S0008DC AD 02 IBT R13, #2 1634 DO2S_M10 1635 S0008DE 17 TO R7 1636 S0008DF 3D 41 LDB (R1) 1637 S0008E1 27 18 MOVE R8, R7 1638 ; 1639 S0008E3 27 WITH R7 1640 S0008E4 03 LSR 1641 S0008E5 97 ROR 1642 S0008E6 28 WITH R8 1643 S0008E7 03 LSR 1644 S0008E8 97 ROR 1645 S0008E9 27 WITH R7 1646 S0008EA 03 LSR 1647 S0008EB 97 ROR 1648 S0008EC 28 WITH R8 1649 S0008ED 03 LSR 1650 S0008EE 97 ROR 1651 S0008EF 27 WITH R7 1652 S0008F0 03 LSR 1653 S0008F1 97 ROR 1654 S0008F2 28 WITH R8 1655 S0008F3 03 LSR 1656 S0008F4 97 ROR 1657 S0008F5 27 WITH R7 1658 S0008F6 03 LSR 1659 S0008F7 97 ROR 1660 S0008F8 28 WITH R8 1661 S0008F9 03 LSR 1662 S0008FA 97 ROR 1663 ; 1664 S0008FB 4D SWAP 1665 S0008FC 3D 33 STB (R3) 1666 S0008FE E3 DEC R3 1667 S0008FF 3D 35 STB (R5) 1668 S000901 E5 DEC R5 1669 ; 1670 S000902 27 WITH R7 1671 S000903 03 LSR 1672 S000904 97 ROR 1673 S000905 28 WITH R8 1674 S000906 03 LSR 1675 S000907 97 ROR 1676 S000908 27 WITH R7 1677 S000909 03 LSR 1678 S00090A 97 ROR 1679 S00090B 28 WITH R8 1680 S00090C 03 LSR 1681 S00090D 97 ROR 1682 S00090E 27 WITH R7 1683 S00090F 03 LSR 1684 S000910 97 ROR 1685 S000911 28 WITH R8 1686 S000912 03 LSR 1687 S000913 97 ROR 1688 S000914 27 WITH R7 1689 S000915 03 LSR 1690 S000916 97 ROR 1691 S000917 28 WITH R8 1692 S000918 03 LSR 1693 S000919 97 ROR 1694 ; 1695 S00091A 4D SWAP 1696 S00091B 3D 34 STB (R4) 1697 S00091D E4 DEC R4 1698 S00091E 3D 36 STB (R6) 1699 S000920 E6 DEC R6 1700 ; 1701 S000921 ED DEC R13 1702 S000922 08 BA' BNE DO2S_M10 1703 S000924 E1 DEC R1 1704 ; 1705 S000925 23 WITH R3 1706 S000926 3E 62 SUB #2 1707 S000928 24 WITH R4 1708 S000929 3E 62 SUB #2 1709 S00092B 25 WITH R5 1710 S00092C 3E 62 SUB #2 1711 S00092E 26 WITH R6 1712 S00092F 3E 62 SUB #2 1713 ; 1714 S000931 EC DEC R12 1715 S000932 08 A8' BNE DO2S_M20 1716 S000934 01 NOP 1717 ; 1718 S000935 AC 04 IBT R12, #4 1719 DO2S_M40 1720 S000937 AD 02 IBT R13, #2 1721 DO2S_M30 1722 S000939 17 TO R7 1723 S00093A 3D 42 LDB (R2) 1724 S00093C 27 18 MOVE R8, R7 1725 ; 1726 S00093E 27 WITH R7 1727 S00093F 03 LSR 1728 S000940 97 ROR 1729 S000941 28 WITH R8 1730 S000942 03 LSR 1731 S000943 97 ROR 1732 S000944 27 WITH R7 1733 S000945 03 LSR 1734 S000946 97 ROR 1735 S000947 28 WITH R8 1736 S000948 03 LSR 1737 S000949 97 ROR 1738 S00094A 27 WITH R7 1739 S00094B 03 LSR 1740 S00094C 97 ROR 1741 S00094D 28 WITH R8 1742 S00094E 03 LSR 1743 S00094F 97 ROR 1744 S000950 27 WITH R7 1745 S000951 03 LSR 1746 S000952 97 ROR 1747 S000953 28 WITH R8 1748 S000954 03 LSR 1749 S000955 97 ROR 1750 ; 1751 S000956 4D SWAP 1752 S000957 3D 33 STB (R3) 1753 S000959 E3 DEC R3 1754 S00095A 3D 35 STB (R5) 1755 S00095C E5 DEC R5 1756 ; 1757 S00095D 27 WITH R7 1758 S00095E 03 LSR 1759 S00095F 97 ROR 1760 S000960 28 WITH R8 1761 S000961 03 LSR 1762 S000962 97 ROR 1763 S000963 27 WITH R7 1764 S000964 03 LSR 1765 S000965 97 ROR 1766 S000966 28 WITH R8 1767 S000967 03 LSR 1768 S000968 97 ROR 1769 S000969 27 WITH R7 1770 S00096A 03 LSR 1771 S00096B 97 ROR 1772 S00096C 28 WITH R8 1773 S00096D 03 LSR 1774 S00096E 97 ROR 1775 S00096F 27 WITH R7 1776 S000970 03 LSR 1777 S000971 97 ROR 1778 S000972 28 WITH R8 1779 S000973 03 LSR 1780 S000974 97 ROR 1781 ; 1782 S000975 4D SWAP 1783 S000976 3D 34 STB (R4) 1784 S000978 E4 DEC R4 1785 S000979 3D 36 STB (R6) 1786 S00097B E6 DEC R6 1787 ; 1788 S00097C ED DEC R13 1789 S00097D 08 BA' BNE DO2S_M30 1790 S00097F E2 DEC R2 1791 ; 1792 S000980 23 WITH R3 1793 S000981 3E 62 SUB #2 1794 S000983 24 WITH R4 1795 S000984 3E 62 SUB #2 1796 S000986 25 WITH R5 1797 S000987 3E 62 SUB #2 1798 S000989 26 WITH R6 1799 S00098A 3E 62 SUB #2 1800 ; 1801 S00098C EC DEC R12 1802 S00098D 08 A8' BNE DO2S_M40 1803 S00098F 01 NOP 1804 ; 1805 S000990 FC 01E0 IWT R12, #DOR2_SIZE * 0FH 1806 S000993 23 WITH R3 1807 S000994 6C SUB R12 1808 S000995 24 WITH R4 1809 S000996 6C SUB R12 1810 S000997 25 WITH R5 1811 S000998 6C SUB R12 1812 S000999 26 WITH R6 1813 S00099A 6C SUB R12 1814 ; 1815 S00099B EA DEC R10 1816 S00099C 09 05' BEQ DO2S_M60 1817 S00099E 01 NOP 1818 ; 1819 mDJMP DO2S_M50 1819+ S00099F FF 08DA' IWT R15, #DO2S_M50 1819+ S0009A2 01 NOP 1820 ; 1821 DO2S_M60 1822 S0009A3 9B JMP R11 1823 S0009A4 01 NOP 1824 ; 1825 ; 1826 ; 1827 ; 1828 ; 1829 ;************************************************************************ 1830 ;* ＢＧＨスクロール書き換えバッファセット * 1831 ;* in : * 1832 ;* (R1) <-- ユニットバッファポインター．１* 1833 ;* (R12) <-- ユニット数．１ * 1834 ;* (R2) <-- ユニットバッファポインター．２* 1835 ;* (R3) <-- ユニット数．２ * 1836 ;* (R10) <-- 書き換えバッファポインター * 1837 ;************************************************************************ 1838 0009A5 BGWRITE_H EQU $ vvv******* warn :value out of range 1839 S0009A5 F0 409E IWT R0,#BGCHECK_BUF 1840 S0009A8 11 TO R1 ;(R1) <-- ユニットバッファポインター．１ 1841 S0009A9 51 ADD R1 1842 S0009AA 12 TO R2 ;(R2) <-- ユニットバッファポインター．２ 1843 S0009AB 52 ADD R2 1844 ; 1845 S0009AC F0 0DAA IWT R0,#CBGHSCRBF 1846 S0009AF 14 TO R4 ;(R4) <-- 書き換えバッファポインター(左) 1847 S0009B0 5A ADD R10 1848 S0009B1 A0 40 IBT R0,#20H*2 1849 S0009B3 15 TO R5 ;(R5) <-- 書き換えバッファポインター(右) 1850 S0009B4 54 ADD R4 1851 S0009B5 BC FROM R12 1852 S0009B6 5C ADD R12 1853 S0009B7 50 ADD R0 1854 S0009B8 5A ADD R10 1855 S0009B9 AA 3E IBT R10,#1FH*2 1856 S0009BB 1A TO R10 1857 S0009BC 7A AND R10 1858 ; 1859 S0009BD A0 4C IBT R0,#BANK UNDTADD 1860 S0009BF 3F DF ROMB vvv******* warn :value out of range 1861 S0009C1 F6 32A4 IWT R6,#UNDTADD ;(R6) <-- ユニットキャラＮｏ．データテーブルアドレス vvv******* warn :value out of range 1862 S0009C4 F7 33F2 IWT R7,#UNDATA ;(R7) <-- ユニットキャラＮｏ．データアドレス 1863 S0009C7 A8 08 IBT R8,#8 ;(R8) <-- ×８データ 1864 ; 1865 mJSR_X BGWRITE_H_SUB 1865+ S0009C9 94 LINK #4 1865+ S0009CA FF 09E5' IWT R15, #BGWRITE_H_SUB 1866 S0009CD 02 CACHE 1867 ; 1868 S0009CE 22 11 MOVE R1,R2 1869 S0009D0 2C B3 MOVES R12,R3 1870 S0009D2 09 0F' BEQ BGWRITE_H_0010 ;ユニット数．２＝０？ ( yes:BGWRITE_H_0010 ) 1871 S0009D4 01 NOP 1872 ; 1873 S0009D5 F0 0DAA IWT R0,#CBGHSCRBF 1874 S0009D8 14 TO R4 ;(R4) <-- 書き換えバッファポインター(左) 1875 S0009D9 5A ADD R10 1876 S0009DA A0 40 IBT R0,#20H*2 1877 S0009DC 15 TO R5 ;(R5) <-- 書き換えバッファポインター(右) 1878 S0009DD 54 ADD R4 1879 ; 1880 mJSR BGWRITE_H_SUB 1880+ S0009DE 94 LINK #4 1880+ S0009DF FF 09E5' IWT R15, #BGWRITE_H_SUB 1880+ S0009E2 01 NOP 1881 BGWRITE_H_0010 1882 S0009E3 00 STOP 1883 S0009E4 01 NOP 1884 ; 1885 BGWRITE_H_SUB 1886 S0009E5 2F 1D MOVE R13,R15 1887 BGWRITE_H_0050 1888 S0009E7 41 LDW (R1) 1889 S0009E8 19 TO R9 1890 S0009E9 3D 88 UMULT R8 1891 S0009EB C0 HIB 1892 S0009EC 50 ADD R0 1893 S0009ED 1E TO R14 1894 S0009EE 56 ADD R6 1895 ; 1896 S0009EF EF GETB 1897 S0009F0 DE INC R14 1898 S0009F1 3D EF GETBH 1899 S0009F3 59 ADD R9 1900 S0009F4 1E TO R14 1901 S0009F5 57 ADD R7 1902 ; 1903 S0009F6 A9 40 IBT R9,#(010H*2)*2 1904 S0009F8 21 WITH R1 1905 S0009F9 59 ADD R9 1906 ; 1907 S0009FA EF GETB 1908 S0009FB DE INC R14 1909 S0009FC 3D 34 STB (R4) 1910 S0009FE D4 INC R4 1911 S0009FF EF GETB 1912 S000A00 DE INC R14 1913 S000A01 3D 34 STB (R4) 1914 S000A03 D4 INC R4 1915 ; 1916 S000A04 EF GETB 1917 S000A05 DE INC R14 1918 S000A06 3D 35 STB (R5) 1919 S000A08 D5 INC R5 1920 S000A09 EF GETB 1921 S000A0A DE INC R14 1922 S000A0B 3D 35 STB (R5) 1923 S000A0D D5 INC R5 1924 ; 1925 S000A0E EF GETB 1926 S000A0F DE INC R14 1927 S000A10 3D 34 STB (R4) 1928 S000A12 D4 INC R4 1929 S000A13 EF GETB 1930 S000A14 DE INC R14 1931 S000A15 3D 34 STB (R4) 1932 S000A17 D4 INC R4 1933 ; 1934 S000A18 EF GETB 1935 S000A19 DE INC R14 1936 S000A1A 3D 35 STB (R5) 1937 S000A1C D5 INC R5 1938 S000A1D EF GETB 1939 S000A1E DE INC R14 1940 S000A1F 3D 35 STB (R5) 1941 ; 1942 S000A21 3C LOOP 1943 S000A22 D5 INC R5 1944 ; 1945 mRTS 1945+ S000A23 9B JMP R11 1945+ S000A24 01 NOP 1946 ; 1947 ;************************************************************************ 1948 ;* ＢＧＶスクロール書き換えバッファセット * 1949 ;* in : * 1950 ;* (R1) <-- ユニットバッファポインター．１* 1951 ;* (R12) <-- ユニット数．１ * 1952 ;* (R2) <-- ユニットバッファポインター．２* 1953 ;* (R3) <-- ユニット数．２ * 1954 ;************************************************************************ 1955 000A25 BGWRITE_V EQU $ vvv******* warn :value out of range 1956 S000A25 F0 409E IWT R0,#BGCHECK_BUF 1957 S000A28 11 TO R1 ;(R1) <-- ユニットバッファポインター．１ 1958 S000A29 51 ADD R1 1959 S000A2A 12 TO R2 ;(R2) <-- ユニットバッファポインター．２ 1960 S000A2B 52 ADD R2 1961 ; 1962 S000A2C F4 0E2A IWT R4,#CBGVSCRBF ;(R4) <-- 書き換えバッファポインター（上） 1963 S000A2F F5 0E6E IWT R5,#CBGVSCRBF+22H*2 ;(R5) <-- 書き換えバッファポインター（下） 1964 ; 1965 S000A32 A0 4C IBT R0,#BANK UNDTADD 1966 S000A34 3F DF ROMB vvv******* warn :value out of range 1967 S000A36 F6 32A4 IWT R6,#UNDTADD ;(R6) <-- ユニットキャラＮｏ．データテーブルアドレス vvv******* warn :value out of range 1968 S000A39 F7 33F2 IWT R7,#UNDATA ;(R7) <-- ユニットキャラＮｏ．データアドレス 1969 S000A3C A8 08 IBT R8,#8 ;(R8) <-- ×８データ 1970 ; 1971 mJSR_X BGWRITE_V_SUB 1971+ S000A3E 94 LINK #4 1971+ S000A3F FF 0A4E' IWT R15, #BGWRITE_V_SUB 1972 S000A42 02 CACHE 1973 ; 1974 S000A43 22 11 MOVE R1,R2 1975 S000A45 23 1C MOVE R12,R3 1976 mJSR BGWRITE_V_SUB 1976+ S000A47 94 LINK #4 1976+ S000A48 FF 0A4E' IWT R15, #BGWRITE_V_SUB 1976+ S000A4B 01 NOP 1977 ; 1978 S000A4C 00 STOP 1979 S000A4D 01 NOP 1980 ; 1981 BGWRITE_V_SUB 1982 S000A4E 2F 1D MOVE R13,R15 1983 BGWRITE_V_0050 1984 S000A50 41 LDW (R1) 1985 S000A51 19 TO R9 1986 S000A52 3D 88 UMULT R8 1987 S000A54 C0 HIB 1988 S000A55 50 ADD R0 1989 S000A56 1E TO R14 1990 S000A57 56 ADD R6 1991 ; 1992 S000A58 EF GETB 1993 S000A59 DE INC R14 1994 S000A5A D1 INC R1 1995 S000A5B D1 INC R1 1996 S000A5C 3D EF GETBH 1997 S000A5E 59 ADD R9 1998 S000A5F 1E TO R14 1999 S000A60 57 ADD R7 2000 ; 2001 S000A61 EF GETB 2002 S000A62 DE INC R14 2003 S000A63 3D 34 STB (R4) 2004 S000A65 D4 INC R4 2005 S000A66 EF GETB 2006 S000A67 DE INC R14 2007 S000A68 3D 34 STB (R4) 2008 S000A6A D4 INC R4 2009 ; 2010 S000A6B EF GETB 2011 S000A6C DE INC R14 2012 S000A6D 3D 34 STB (R4) 2013 S000A6F D4 INC R4 2014 S000A70 EF GETB 2015 S000A71 DE INC R14 2016 S000A72 3D 34 STB (R4) 2017 S000A74 D4 INC R4 2018 ; 2019 S000A75 EF GETB 2020 S000A76 DE INC R14 2021 S000A77 3D 35 STB (R5) 2022 S000A79 D5 INC R5 2023 S000A7A EF GETB 2024 S000A7B DE INC R14 2025 S000A7C 3D 35 STB (R5) 2026 S000A7E D5 INC R5 2027 ; 2028 S000A7F EF GETB 2029 S000A80 DE INC R14 2030 S000A81 3D 35 STB (R5) 2031 S000A83 D5 INC R5 2032 S000A84 EF GETB 2033 S000A85 DE INC R14 2034 S000A86 3D 35 STB (R5) 2035 ; 2036 S000A88 3C LOOP 2037 S000A89 D5 INC R5 2038 ; 2039 mRTS 2039+ S000A8A 9B JMP R11 2039+ S000A8B 01 NOP 2040 ; 2041 ; 2042 ; 2043 ; 2044 ; 2045 END