File : ys_mplay0.asm SUPER-FX ASSEMBLER $Ver 1.01 Wed Jul 5 09:48:09 1995 Page 0001 1 ;************************************************************************ 2 ;* * 3 ;* title name : "yossy" * 4 ;* proccess : mario chip player program * 5 ;* file name : ys_mplay * 6 ;* * 7 ;************************************************************************ 8 ; 9 ; 10 SALL 11 ; 12 include ys_chip.inc 13 ; 14 XALL 15 ; 16 ; 17 ;------------------------------------------------------------------------ 18 ;- global symbol - 19 ;------------------------------------------------------------------------ 20 GLB CAR_MV 21 ; 22 GLB M_RAD_GET_S 23 ; 24 GLB M_ANGCKD,M_ATAN,M_TAN 25 ; 26 ;------------------------------------------------------------------------ 27 ;- extern symbol - 28 ;------------------------------------------------------------------------ 29 ; 30 ;-------------< ys_chip0 >----------------------------------------------- 31 EXT COS,SIN,LCOS,LSIN 32 ; 33 ;-------------< ys_msub0 >----------------------------------------------- 34 EXT ENCRDT,ENMODE0,ENMODE1,ENMODE2,ENDATA0,ENDATA1 35 EXT ENCHR_BNK,ETCADR 36 EXT EXMODE0,EXMODE1,EXMODE2,EXDATA0,EXDATA1 37 EXT EXCHR_BNK 38 EXT EN_BGTYPE,SAKA_DATA 39 ; 40 EXT COIN1,COINR,ZFLWR,ZFLW2 41 ; 42 ; 43 ;-------------< 敵Ｎｏ． >--------------------------------------- 44 ; 45 ;-------------< 効果Ｎｏ． >------------------------------------- 46 ; 47 ;-------------< ys_mplay >----------------------------------------------- 48 EXT PL_CALC,XY_CALC,DASH_SMOK_CK 49 ; 50 EXT BG_SIDECK_IN,BG_SIDECK,BG_HDFTCK,FOOT_RESULT 51 EXT BRBG0_SET,BGUNIT_READ_S 52 EXT BG_SIDECK_0000,BG_HDFTCK_0000 53 ; 54 EXT R_32_ZOOM_16,R_32_RTZ_32_XY 55 ; 56 ;-------------< ys_mpldt0 >----------------------------------------------- 57 EXT PLAYER_DATA 58 ; 59 EXT PLBGCK_POINT_CR 60 ; 61 EXT MAX_SPEED,ADD_SPEED,MIN_SPEED,SUB_SPEED,MAX_DASH 62 EXT CAR_MAX_DASH 63 ; 64 EXT CAR_CHAR,CAR_TIRE_XREV 65 ; 66 ;------------------------------------------------------------------------ 67 ;- define symbol - 68 ;------------------------------------------------------------------------ 69 ; 70 ;-------------- ＢＧユニットＮｏ．バッファアドレス ---------------------- 71 7F8000 CBGUNIT EQU 7F8000H 72 ; 73 ; 74 ; 75 ; 76 ;************************************************************************ 77 ;* * 78 ;* program start * 79 ;* * 80 ;************************************************************************ 81 ; 82 ; 83 Group_B GROUP S_play0 84 S_play0 SECT REL 85 ; 86 ;************************************************************************ 87 ;* 角度計算用データ * 88 ;************************************************************************ 89 M_ANGCKD 90 ; ;[ ???H/2+[XXH] : XXH = NEG flag ] 91 S000000 8080 0040 0080 WORD 100H/2+8000H,080H/2+0000H,100H/2+0000H,180H/2+8000H S000006 80C0 92 S000008 0000 8040 8100 WORD 000H/2+0000H,080H/2+8000H,200H/2+8000H,180H/2+0000H S00000E 00C0 93 ; 94 ;************************************************************************ 95 ;* atan data * 96 ;************************************************************************ 97 M_ATAN 98 000010 ATAN EQU $ 99 S000010 0000 0000 0000 WORD 00000H,00000H,00000H,00000H,00000H,00002H,00002H,00002H S000016 0000 0000 0002 S00001C 0002 0002 100 S000020 0002 0002 0002 WORD 00002H,00002H,00002H,00002H,00004H,00004H,00004H,00004H S000026 0002 0004 0004 S00002C 0004 0004 101 S000030 0004 0004 0006 WORD 00004H,00004H,00006H,00006H,00006H,00006H,00006H,00006H S000036 0006 0006 0006 S00003C 0006 0006 102 S000040 0008 0008 0008 WORD 00008H,00008H,00008H,00008H,00008H,00008H,0000AH,0000AH S000046 0008 0008 0008 S00004C 000A 000A 103 S000050 000A 000A 000A WORD 0000AH,0000AH,0000AH,0000AH,0000AH,0000CH,0000CH,0000CH S000056 000A 000A 000C S00005C 000C 000C 104 S000060 000C 000C 000C WORD 0000CH,0000CH,0000CH,0000EH,0000EH,0000EH,0000EH,0000EH S000066 000E 000E 000E S00006C 000E 000E 105 S000070 000E 000E 0010 WORD 0000EH,0000EH,00010H,00010H,00010H,00010H,00010H,00010H S000076 0010 0010 0010 S00007C 0010 0010 106 S000080 0012 0012 0012 WORD 00012H,00012H,00012H,00012H,00012H,00012H,00012H,00014H S000086 0012 0012 0012 S00008C 0012 0014 107 S000090 0014 0014 0014 WORD 00014H,00014H,00014H,00014H,00014H,00014H,00016H,00016H S000096 0014 0014 0014 S00009C 0016 0016 108 S0000A0 0016 0016 0016 WORD 00016H,00016H,00016H,00016H,00018H,00018H,00018H,00018H S0000A6 0016 0018 0018 S0000AC 0018 0018 109 S0000B0 0018 0018 0018 WORD 00018H,00018H,00018H,0001AH,0001AH,0001AH,0001AH,0001AH S0000B6 001A 001A 001A S0000BC 001A 001A 110 S0000C0 001A 001A 001C WORD 0001AH,0001AH,0001CH,0001CH,0001CH,0001CH,0001CH,0001CH S0000C6 001C 001C 001C S0000CC 001C 001C 111 S0000D0 001C 001E 001E WORD 0001CH,0001EH,0001EH,0001EH,0001EH,0001EH,0001EH,0001EH S0000D6 001E 001E 001E S0000DC 001E 001E 112 S0000E0 001E 0020 0020 WORD 0001EH,00020H,00020H,00020H,00020H,00020H,00020H,00020H S0000E6 0020 0020 0020 S0000EC 0020 0020 113 S0000F0 0022 0022 0022 WORD 00022H,00022H,00022H,00022H,00022H,00022H,00022H,00022H S0000F6 0022 0022 0022 S0000FC 0022 0022 114 S000100 0024 0024 0024 WORD 00024H,00024H,00024H,00024H,00024H,00024H,00024H,00026H S000106 0024 0024 0024 S00010C 0024 0026 115 S000110 0026 0026 0026 WORD 00026H,00026H,00026H,00026H,00026H,00026H,00026H,00028H S000116 0026 0026 0026 S00011C 0026 0028 116 S000120 0028 0028 0028 WORD 00028H,00028H,00028H,00028H,00028H,00028H,00028H,0002AH S000126 0028 0028 0028 S00012C 0028 002A 117 S000130 002A 002A 002A WORD 0002AH,0002AH,0002AH,0002AH,0002AH,0002AH,0002AH,0002AH S000136 002A 002A 002A S00013C 002A 002A 118 S000140 002C 002C 002C WORD 0002CH,0002CH,0002CH,0002CH,0002CH,0002CH,0002CH,0002CH S000146 002C 002C 002C S00014C 002C 002C 119 S000150 002E 002E 002E WORD 0002EH,0002EH,0002EH,0002EH,0002EH,0002EH,0002EH,0002EH S000156 002E 002E 002E S00015C 002E 002E 120 S000160 002E 0030 0030 WORD 0002EH,00030H,00030H,00030H,00030H,00030H,00030H,00030H S000166 0030 0030 0030 S00016C 0030 0030 121 S000170 0030 0030 0032 WORD 00030H,00030H,00032H,00032H,00032H,00032H,00032H,00032H S000176 0032 0032 0032 S00017C 0032 0032 122 S000180 0032 0032 0032 WORD 00032H,00032H,00032H,00032H,00034H,00034H,00034H,00034H S000186 0032 0034 0034 S00018C 0034 0034 123 S000190 0034 0034 0034 WORD 00034H,00034H,00034H,00034H,00034H,00034H,00036H,00036H S000196 0034 0034 0034 S00019C 0036 0036 124 S0001A0 0036 0036 0036 WORD 00036H,00036H,00036H,00036H,00036H,00036H,00036H,00036H S0001A6 0036 0036 0036 S0001AC 0036 0036 125 S0001B0 0038 0038 0038 WORD 00038H,00038H,00038H,00038H,00038H,00038H,00038H,00038H S0001B6 0038 0038 0038 S0001BC 0038 0038 126 S0001C0 0038 0038 0038 WORD 00038H,00038H,00038H,0003AH,0003AH,0003AH,0003AH,0003AH S0001C6 003A 003A 003A S0001CC 003A 003A 127 S0001D0 003A 003A 003A WORD 0003AH,0003AH,0003AH,0003AH,0003AH,0003AH,0003CH,0003CH S0001D6 003A 003A 003A S0001DC 003C 003C 128 S0001E0 003C 003C 003C WORD 0003CH,0003CH,0003CH,0003CH,0003CH,0003CH,0003CH,0003CH S0001E6 003C 003C 003C S0001EC 003C 003C 129 S0001F0 003C 003E 003E WORD 0003CH,0003EH,0003EH,0003EH,0003EH,0003EH,0003EH,0003EH S0001F6 003E 003E 003E S0001FC 003E 003E 130 S000200 003E 003E 003E WORD 0003EH,0003EH,0003EH,0003EH,0003EH,00040H,00040H,00040H S000206 003E 003E 0040 S00020C 0040 0040 131 S000210 0040 WORD 00040H 132 ; 133 ;************************************************************************ 134 ;* tan data [ efini = 7FFF ] * 135 ;************************************************************************ 136 000212 M_TAN EQU $ 137 000212 TAN EQU $ 138 S000212 0000 0006 000C WORD 00000H,00006H,0000CH,00012H,00019H,0001FH,00025H,0002CH S000218 0012 0019 001F S00021E 0025 002C 139 S000222 0032 0039 0040 WORD 00032H,00039H,00040H,00046H,0004DH,00054H,0005BH,00062H S000228 0046 004D 0054 S00022E 005B 0062 140 S000232 006A 0071 0079 WORD 0006AH,00071H,00079H,00080H,00088H,00091H,00099H,000A2H S000238 0080 0088 0091 S00023E 0099 00A2 141 S000242 00AB 00B4 00BD WORD 000ABH,000B4H,000BDH,000C7H,000D2H,000DCH,000E8H,000F3H S000248 00C7 00D2 00DC S00024E 00E8 00F3 142 S000252 0100 010C 011A WORD 00100H,0010CH,0011AH,00128H,00137H,00148H,00159H,0016BH S000258 0128 0137 0148 S00025E 0159 016B 143 S000262 017F 0194 01AB WORD 0017FH,00194H,001ABH,001C3H,001DEH,001FCH,0021DH,00241H S000268 01C3 01DE 01FC S00026E 021D 0241 144 S000272 026A 0297 02CB WORD 0026AH,00297H,002CBH,00306H,0034BH,0039DH,003FEH,00474H S000278 0306 034B 039D S00027E 03FE 0474 145 S000282 0506 05C3 06BD WORD 00506H,005C3H,006BDH,0081BH,00A27H,00D8EH,0145BH,028BCH S000288 081B 0A27 0D8E S00028E 145B 28BC 146 S000292 7FFF D744 EBA6 WORD 07FFFH,0D744H,0EBA6H,0F272H,0F5D9H,0F7E5H,0F943H,0FA3DH S000298 F272 F5D9 F7E5 S00029E F943 FA3D 147 S0002A2 FAFA FB8C FC02 WORD 0FAFAH,0FB8CH,0FC02H,0FC63H,0FCB5H,0FCFAH,0FD35H,0FD69H S0002A8 FC63 FCB5 FCFA S0002AE FD35 FD69 148 S0002B2 FD96 FDBF FDE3 WORD 0FD96H,0FDBFH,0FDE3H,0FE04H,0FE22H,0FE3DH,0FE55H,0FE6CH S0002B8 FE04 FE22 FE3D S0002BE FE55 FE6C 149 S0002C2 FE81 FE95 FEA7 WORD 0FE81H,0FE95H,0FEA7H,0FEB8H,0FEC9H,0FED8H,0FEE6H,0FEF4H S0002C8 FEB8 FEC9 FED8 S0002CE FEE6 FEF4 150 S0002D2 FF01 FF0D FF18 WORD 0FF01H,0FF0DH,0FF18H,0FF24H,0FF2EH,0FF39H,0FF43H,0FF4CH S0002D8 FF24 FF2E FF39 S0002DE FF43 FF4C 151 S0002E2 FF55 FF5E FF67 WORD 0FF55H,0FF5EH,0FF67H,0FF6FH,0FF78H,0FF80H,0FF87H,0FF8FH S0002E8 FF6F FF78 FF80 S0002EE FF87 FF8F 152 S0002F2 FF96 FF9E FFA5 WORD 0FF96H,0FF9EH,0FFA5H,0FFACH,0FFB3H,0FFBAH,0FFC0H,0FFC7H S0002F8 FFAC FFB3 FFBA S0002FE FFC0 FFC7 153 S000302 FFCE FFD4 FFDB WORD 0FFCEH,0FFD4H,0FFDBH,0FFE1H,0FFE7H,0FFEEH,0FFF4H,0FFFAH S000308 FFE1 FFE7 FFEE S00030E FFF4 FFFA 154 S000312 0000 0006 000C WORD 00000H,00006H,0000CH,00012H,00019H,0001FH,00025H,0002CH S000318 0012 0019 001F S00031E 0025 002C 155 S000322 0032 0039 0040 WORD 00032H,00039H,00040H,00046H,0004DH,00054H,0005BH,00062H S000328 0046 004D 0054 S00032E 005B 0062 156 S000332 006A 0071 0079 WORD 0006AH,00071H,00079H,00080H,00088H,00091H,00099H,000A2H S000338 0080 0088 0091 S00033E 0099 00A2 157 S000342 00AB 00B4 00BD WORD 000ABH,000B4H,000BDH,000C7H,000D2H,000DCH,000E8H,000F3H S000348 00C7 00D2 00DC S00034E 00E8 00F3 158 S000352 0100 010C 011A WORD 00100H,0010CH,0011AH,00128H,00137H,00148H,00159H,0016BH S000358 0128 0137 0148 S00035E 0159 016B 159 S000362 017F 0194 01AB WORD 0017FH,00194H,001ABH,001C3H,001DEH,001FCH,0021DH,00241H S000368 01C3 01DE 01FC S00036E 021D 0241 160 S000372 026A 0297 02CB WORD 0026AH,00297H,002CBH,00306H,0034BH,0039DH,003FEH,00474H S000378 0306 034B 039D S00037E 03FE 0474 161 S000382 0506 05C3 06BD WORD 00506H,005C3H,006BDH,0081BH,00A27H,00D8EH,0145BH,028BCH S000388 081B 0A27 0D8E S00038E 145B 28BC 162 S000392 7FFF D744 EBA6 WORD 07FFFH,0D744H,0EBA6H,0F272H,0F5D9H,0F7E5H,0F943H,0FA3DH S000398 F272 F5D9 F7E5 S00039E F943 FA3D 163 S0003A2 FAFA FB8C FC02 WORD 0FAFAH,0FB8CH,0FC02H,0FC63H,0FCB5H,0FCFAH,0FD35H,0FD69H S0003A8 FC63 FCB5 FCFA S0003AE FD35 FD69 164 S0003B2 FD96 FDBF FDE3 WORD 0FD96H,0FDBFH,0FDE3H,0FE04H,0FE22H,0FE3DH,0FE55H,0FE6CH S0003B8 FE04 FE22 FE3D S0003BE FE55 FE6C 165 S0003C2 FE81 FE95 FEA7 WORD 0FE81H,0FE95H,0FEA7H,0FEB8H,0FEC9H,0FED8H,0FEE6H,0FEF4H S0003C8 FEB8 FEC9 FED8 S0003CE FEE6 FEF4 166 S0003D2 FF01 FF0D FF18 WORD 0FF01H,0FF0DH,0FF18H,0FF24H,0FF2EH,0FF39H,0FF43H,0FF4CH S0003D8 FF24 FF2E FF39 S0003DE FF43 FF4C 167 S0003E2 FF55 FF5E FF67 WORD 0FF55H,0FF5EH,0FF67H,0FF6FH,0FF78H,0FF80H,0FF87H,0FF8FH S0003E8 FF6F FF78 FF80 S0003EE FF87 FF8F 168 S0003F2 FF96 FF9E FFA5 WORD 0FF96H,0FF9EH,0FFA5H,0FFACH,0FFB3H,0FFBAH,0FFC0H,0FFC7H S0003F8 FFAC FFB3 FFBA S0003FE FFC0 FFC7 169 S000402 FFCE FFD4 FFDB WORD 0FFCEH,0FFD4H,0FFDBH,0FFE1H,0FFE7H,0FFEEH,0FFF4H,0FFFAH S000408 FFE1 FFE7 FFEE S00040E FFF4 FFFA 170 ; 171 ;**************************************************************** 172 ;* 点の回転ルーチン * 173 ;* * 174 ;* R5 回転角 * 175 ;* R7 Ｙ座標 * 176 ;* R8 Ｘ座標 * 177 ;* * 178 ;**************************************************************** 179 POI_ROT 180 S000412 3E A4 24 SMS R4,REG4 181 S000415 3E AC 2C SMS R12,REG12 182 S000418 3E AE 2E SMS R14,REG14 183 S00041B 3E AA 2A SMS R10,REG10 184 ; 185 S00041E A0 00" IBT R0,#BANK LCOS 186 S000420 3F DF ROMB 187 ; 188 S000422 25 WITH R5 189 S000423 55 ADD R5 190 191 S000424 F0 0000" IWT R0,#SIN 192 S000427 1E TO R14 193 S000428 55 ADD R5 194 195 S000429 F0 0000" IWT R0,#COS 196 S00042C 1A TO R10 197 S00042D 55 ADD R5 198 199 S00042E EF GETB 200 S00042F DE INC R14 201 S000430 3D EF GETBH 202 S000432 20 16 MOVE R6,R0 203 204 S000434 B8 FROM R8 ;(R12) <-- X * SIN 205 S000435 3D 9F LMULT 206 S000437 24 WITH R4 207 S000438 C0 HIB 208 S000439 9E LOB 209 S00043A 4D SWAP 210 S00043B 1C TO R12 211 S00043C C4 OR R4 212 213 S00043D B7 FROM R7 ;(R5) <-- Y * SIN 214 S00043E 3D 9F LMULT 215 S000440 24 WITH R4 216 S000441 C0 HIB 217 S000442 9E LOB 218 S000443 4D SWAP 219 S000444 15 TO R5 220 S000445 C4 OR R4 221 222 S000446 2A 1E MOVE R14,R10 223 224 S000448 EF GETB 225 S000449 DE INC R14 226 S00044A 3D EF GETBH 227 S00044C 20 16 MOVE R6,R0 228 229 S00044E B8 FROM R8 ;(R8) <-- X * COS - Y * SIN 230 S00044F 3D 9F LMULT 231 S000451 24 WITH R4 232 S000452 C0 HIB 233 S000453 9E LOB 234 S000454 4D SWAP 235 S000455 C4 OR R4 236 S000456 18 TO R8 237 S000457 65 SUB R5 238 239 S000458 B7 FROM R7 ;(R7) <-- X * SIN + Y * COS 240 S000459 3D 9F LMULT 241 S00045B 24 WITH R4 242 S00045C C0 HIB 243 S00045D 9E LOB 244 S00045E 4D SWAP 245 S00045F C4 OR R4 246 S000460 17 TO R7 247 S000461 5C ADD R12 248 249 S000462 A0 00" IBT R0,#BANK PLAYER_DATA 250 S000464 3F DF ROMB 251 ; 252 S000466 3D AA 2A LMS R10,REG10 253 S000469 3D AC 2C LMS R12,REG12 254 S00046C 3D AE 2E LMS R14,REG14 255 S00046F 3D A4 24 LMS R4,REG4 256 mRTS 256+ S000472 9B JMP R11 256+ S000473 01 NOP 257 ; 258 ;**************************************************************** 259 ;* 角度計算ルーチン * 260 ;**************************************************************** 261 ;[IN] 262 ; R1 Ｘ成分（２バイト） 263 ; R2 Ｙ成分（２バイト） 264 ;[OUT] 265 ; R0 角度（０ー１ＦＥＨ） 266 ; R1 角度（０ー０ＦＦＨ） 267 ; 268 000474 M_RAD_GET_S EQU $ 269 S000474 A0 00' IBT R0,#BANK M_ANGCKD 270 S000476 3F DF ROMB 271 272 S000478 3E AB 1C SMS R11,CWORK1C 273 S00047B 3E A5 1D SMS R5,CWORK1D 274 S00047E 3E A9 1E SMS R9,CWORK1E 275 S000481 3E AA 1F SMS R10,CWORK1F 276 277 S000484 F9 0010' IWT R9,#M_ATAN 278 S000487 FA 0000' IWT R10,#M_ANGCKD 279 vvv******* warn :value out of range 280 S00048A F5 2200 IWT R5,#DIVBUF 281 S00048D F7 0200 IWT R7,#(0100H*2) 282 S000490 F8 01FE IWT R8,#001FEH 283 284 S000493 23 WITH R3 285 S000494 63 SUB R3 286 287 S000495 26 B1 MOVES R6,R1 288 S000497 0A 07' BPL M_R_G0100 289 S000499 01 NOP 290 291 S00049A A3 04 IBT R3,#004 292 S00049C B1 FROM R1 293 S00049D 16 TO R6 294 S00049E 4F NOT 295 S00049F D6 INC R6 296 297 M_R_G0100 298 S0004A0 20 B2 MOVES R0,R2 299 S0004A2 0A 06' BPL M_R_G0200 300 S0004A4 01 NOP 301 302 S0004A5 D3 INC R3 303 S0004A6 D3 INC R3 304 305 S0004A7 B2 FROM R2 306 S0004A8 4F NOT 307 S0004A9 D0 INC R0 308 309 M_R_G0200 310 S0004AA 3F 66 CMP R6 311 S0004AC 0A 08' BPL M_R_G0300 312 S0004AE D3 INC R3 313 314 S0004AF E3 DEC R3 315 S0004B0 20 14 MOVE R4,R0 316 S0004B2 26 10 MOVE R0,R6 317 S0004B4 24 16 MOVE R6,R4 318 319 M_R_G0300 320 S0004B6 50 ADD R0 321 S0004B7 55 ADD R5 322 S0004B8 40 LDW (R0) 323 S0004B9 3D 9F LMULT 324 S0004BB 24 WITH R4 325 S0004BC C0 HIB 326 S0004BD 9E LOB 327 S0004BE 4D SWAP 328 S0004BF C4 OR R4 329 S0004C0 50 ADD R0 330 S0004C1 3F 67 CMP R7 331 S0004C3 0C 04' BCC M_R_G0400 332 S0004C5 01 NOP 333 334 S0004C6 F0 01FE IWT R0,#(0100H-1)*2 335 336 M_R_G0400 337 S0004C9 1E TO R14 338 S0004CA 59 ADD R9 339 340 S0004CB EF GETB 341 S0004CC DE INC R14 342 S0004CD 3D EF GETBH 343 S0004CF 20 14 MOVE R4,R0 344 345 S0004D1 23 WITH R3 346 S0004D2 53 ADD R3 347 348 S0004D3 BA FROM R10 349 S0004D4 1E TO R14 350 S0004D5 53 ADD R3 351 352 S0004D6 EF GETB 353 S0004D7 DE INC R14 354 S0004D8 3D EF GETBH 355 356 S0004DA 50 ADD R0 357 S0004DB 0C 04' BCC M_R_G0500 358 S0004DD 01 NOP 359 360 S0004DE 24 WITH R4 361 S0004DF 4F NOT 362 S0004E0 D4 INC R4 363 364 M_R_G0500 365 S0004E1 54 ADD R4 366 S0004E2 78 AND R8 367 S0004E3 11 TO R1 368 S0004E4 03 LSR 369 370 S0004E5 3D A9 1E LMS R9,CWORK1E 371 S0004E8 3D AA 1F LMS R10,CWORK1F 372 373 S0004EB 3D AB 1C LMS R11,CWORK1C 374 S0004EE 2B WITH R11 375 S0004EF 3E 53 ADD #03 376 S0004F1 3D A8 1D LMS R8,CWORK1D 377 378 S0004F4 BB FROM R11 379 S0004F5 3D 98 LJMP R8 380 S0004F7 01 NOP 381 382 ;;;;;;;; mRTS 383 ; 384 0004F8 M_RAD_GET EQU $ 385 S0004F8 F0 0474' IWT R0,#M_RAD_GET_S 386 S0004FB A8 00' IBT R8,#BANK M_RAD_GET_S 387 S0004FD A5 00' IBT R5,#BANK M_RAD_GET 388 S0004FF 2F 1B MOVE R11,R15 389 S000501 3D 98 LJMP R8 390 S000503 01 NOP 391 ;;;;;;;; mJSR M_RAD_GET_S 392 393 S000504 00 STOP 394 S000505 01 NOP 395 ; 396 ;************************************************************************ 397 ;* * 398 ;* くるま　よしお * 399 ;* * 400 ;************************************************************************ 401 CAR_MV 402 ; 403 ;------------------------------------------------------------------------ 404 ;- 移動サウンドセット - 405 ;------------------------------------------------------------------------ 406 S000506 3D A0 5A LMS R0,CPLMVSP 407 S000509 E0 DEC R0 408 S00050A 0A 03' BPL CAR_SUB0100 409 S00050C D0 INC R0 410 ; 411 S00050D 4F NOT 412 S00050E D0 INC R0 413 CAR_SUB0100 414 S00050F C0 HIB 415 S000510 11 TO R1 ;[ * not break (R0) ] 416 S000511 3E 64 SUB #4 417 S000513 0C 03' BCC CAR_SUB0200 ;スピードオーバー？ ( no:CAR_SUB0200 ) 418 S000515 01 NOP 419 ; 420 S000516 A0 03 IBT R0,#3 421 CAR_SUB0200 422 S000518 A1 44 IBT R1,#01000100B 423 S00051A C1 OR R1 424 S00051B 3E A0 3B SMS R0,CMSOUND1 425 ; 426 S00051E 3D A0 7E LMS R0,CPLBGCR 427 S000521 3E 7F AND #000001111B 428 S000523 3E A0 CD SMS R0,CCARWK0 429 S000526 3D A0 62 LMS R0,CPLCMKI 430 S000529 3E A0 CE SMS R0,CCARWK1 431 432 S00052C 60 SUB R0 433 S00052D 3E A0 D2 SMS R0,CRAMCK0 434 S000530 3E A0 D3 SMS R0,CRAMCK1 435 S000533 3E A0 D4 SMS R0,CRAMCK2 436 S000536 3E A0 D5 SMS R0,CRAMCK3 437 S000539 3E A0 D6 SMS R0,CRAMCK4 438 ; 439 mJSR PL_CALC ;座標計算 439+ S00053C 94 LINK #4 439+ S00053D FF 0000" IWT R15, #PL_CALC 439+ S000540 01 NOP 440 ; 441 mJSR CR_BGCK ;ＢＧチェック 441+ S000541 94 LINK #4 441+ S000542 FF 0667' IWT R15, #CR_BGCK 441+ S000545 01 NOP 442 ; 443 mJSR CR_KEY ;コントローラー入力 443+ S000546 94 LINK #4 443+ S000547 FF 0BC5' IWT R15, #CR_KEY 443+ S00054A 01 NOP 444 ; 445 mJSR CR_PATN ;パターンＮｏ．セット 445+ S00054B 94 LINK #4 445+ S00054C FF 0D64' IWT R15, #CR_PATN 445+ S00054F 01 NOP 446 ; 447 S000550 A5 60 IBT R5,#060H 448 S000552 3D A1 7E LMS R1,CPLBGCR 449 S000555 B1 FROM R1 450 S000556 75 AND R5 451 S000557 09 1D' BEQ CAR_SUB0300 ;天井にぶつかった? ( no:CAR_SUB0300 ) 452 S000559 01 NOP 453 454 S00055A B1 FROM R1 455 S00055B 3E 7F AND #00001111B 456 S00055D 09 17' BEQ CAR_SUB0300 ;地面に着いてる? ( no:CAR_SUB0300 ) 457 S00055F 01 NOP 458 459 S000560 F5 00A0 IWT R5,#000A0H 460 S000563 3D A0 C6 LMS R0,CCARZOM 461 S000566 3F 65 CMP R5 462 S000568 0B 20' BMI CAR_SUB0400 ; 463 S00056A 01 NOP 464 465 S00056B 3E 68 SUB #008 466 S00056D 3F 65 CMP R5 467 S00056F 0A 19' BPL CAR_SUB0400 ; 468 S000571 E5 DEC R5 469 470 S000572 25 WITH R5 ;[ MOVE R0,R5 ] 471 S000573 05 15' BRA CAR_SUB0400 472 S000575 10 TO R0 473 474 CAR_SUB0300 475 S000576 F5 0100 IWT R5,#00100H 476 S000579 3D A0 C6 LMS R0,CCARZOM 477 S00057C 3F 65 CMP R5 478 S00057E 0A 0A' BPL CAR_SUB0400 479 S000580 01 NOP 480 481 S000581 3E 58 ADD #008 482 S000583 3F 65 CMP R5 483 S000585 0B 03' BMI CAR_SUB0400 484 S000587 01 NOP 485 486 S000588 25 10 MOVE R0,R5 487 488 CAR_SUB0400 489 S00058A 90 SBK 490 491 CAR_SUB0500 492 S00058B 60 SUB R0 493 S00058C 20 13 MOVE R3,R0 ;(R3) <-- ビットマップ座標＿Ｘセット 494 S00058E A0 20 IBT R0,#020H ; 495 S000590 20 12 MOVE R2,R0 ;(R2) <-- ” 　＿Ｙセット 496 S000592 F6 0100 IWT R6,#00100H ;(R6) <-- 横倍率 497 S000595 3D A4 C6 LMS R4,CCARZOM ;(R11) <-- 縦　” 498 S000598 3D A5 C7 LMS R5,CCARANG ;(R5) <-- 回転角 499 500 S00059B 3D A0 D1 LMS R0,CCARBDY 501 S00059E 9E LOB 502 S00059F 09 09' BEQ CAR_SUB0700 ;ボディーキャラ固定? ( no:CAR_SUB0700 ) 503 S0005A1 01 NOP 504 vvv******* warn :value out of range 505 S0005A2 FC C021 IWT R12,#CIPCHD2+4020H+001 506 S0005A5 AD 54 IBT R13,#BANK CIPCHD2+4020H+001 507 S0005A7 05 11' BRA CAR_SUB0800 508 S0005A9 01 NOP 509 510 CAR_SUB0700 511 S0005AA 3D A0 7C LMS R0,CPLWALK 512 S0005AD FE 0000" IWT R14,#CAR_CHAR 513 S0005B0 2E WITH R14 514 S0005B1 50 ADD R0 515 S0005B2 EF GETB 516 S0005B3 DE INC R14 517 S0005B4 3D EF GETBH 518 S0005B6 20 1C MOVE R12,R0 ;キャラクターアドレス（Ｌ，Ｈ） 519 520 S0005B8 AD 54 IBT R13,#BANK CIPCHD+60A0H+000 ;キャラクターアドレス（Ｂ） 521 522 CAR_SUB0800 523 mJSR R_32_RTZ_32_XY 523+ S0005BA 94 LINK #4 523+ S0005BB FF 0000" IWT R15, #R_32_RTZ_32_XY 523+ S0005BE 01 NOP 524 525 S0005BF 3D A0 CE LMS R0,CCARWK1 526 S0005C2 3D A1 62 LMS R1,CPLCMKI 527 S0005C5 3F 61 CMP R1 528 S0005C7 09 09' BEQ CAR_SUB0880 529 S0005C9 01 NOP 530 531 S0005CA 3D A0 C7 LMS R0,CCARANG ;角度補正 532 S0005CD 95 SEX 533 S0005CE 4F NOT 534 S0005CF D0 INC R0 535 S0005D0 9E LOB 536 S0005D1 90 SBK 537 538 CAR_SUB0880 539 S0005D2 A0 00" IBT R0,#BANK PLBGCK_POINT_CR 540 S0005D4 3F DF ROMB 541 ; 542 S0005D6 F0 0000" IWT R0,#PLBGCK_POINT_CR 543 S0005D9 12 TO R2 544 S0005DA 3E 5E ADD #00EH ;足チェックデータから 545 546 S0005DC 3D A0 62 LMS R0,CPLCMKI 547 S0005DF 50 ADD R0 548 S0005E0 F1 0000" IWT R1,#CAR_TIRE_XREV 549 S0005E3 11 TO R1 550 S0005E4 51 ADD R1 551 ; 552 S0005E5 F3 017E IWT R3,#CPLLFTX 553 S0005E8 F4 0184 IWT R4,#CPLLFTY 554 ; 555 S0005EB 3D A9 46 LMS R9,CPLXPSL 556 S0005EE 3D AA 48 LMS R10,CPLYPSL 557 ; 558 S0005F1 AC 03 IBT R12,#03 559 S0005F3 02 CACHE 560 S0005F4 2F 1D MOVE R13,R15 561 562 S0005F6 21 1E MOVE R14,R1 563 S0005F8 16 TO R6 564 S0005F9 3F EF GETBS 565 S0005FB D1 INC R1 566 567 S0005FC 22 1E MOVE R14,R2 568 S0005FE 3F EF GETBS 569 S000600 18 TO R8 570 S000601 56 ADD R6 571 S000602 DE INC R14 572 S000603 D2 INC R2 573 S000604 D2 INC R2 574 S000605 17 TO R7 575 S000606 3F EF GETBS 576 577 S000608 3D A5 5B LMS R5,CPLANGL 578 579 mJSR POI_ROT 579+ S00060B 94 LINK #4 579+ S00060C FF 0412' IWT R15, #POI_ROT 579+ S00060F 01 NOP 580 581 S000610 B8 FROM R8 582 S000611 3E 58 ADD #08 583 S000613 59 ADD R9 584 S000614 33 STW (R3) 585 586 S000615 A6 18 IBT R6,#018H 587 S000617 B7 FROM R7 588 S000618 56 ADD R6 589 S000619 5A ADD R10 590 S00061A 34 STW (R4) 591 592 S00061B D3 INC R3 593 S00061C D3 INC R3 594 S00061D D4 INC R4 595 596 S00061E 3C LOOP 597 S00061F D4 INC R4 598 ; 599 ; 600 S000620 3D A0 46 LMS R0,CPLXPSL 601 S000623 3E A0 CE SMS R0,CCARWK1 602 603 S000626 A0 01 IBT R0,#01 604 S000628 3E A0 D2 SMS R0,CRAMCK0 605 606 S00062B 3D A2 7E LMS R2,CPLBGCR 607 mJSR CR_TIRE_BGCK 607+ S00062E 94 LINK #4 607+ S00062F FF 09BB' IWT R15, #CR_TIRE_BGCK 607+ S000632 01 NOP 608 609 S000633 3D A1 CE LMS R1,CCARWK1 610 S000636 3D A0 46 LMS R0,CPLXPSL 611 S000639 11 TO R1 612 S00063A 61 SUB R1 613 614 S00063B F3 017E IWT R3,#CPLLFTX 615 S00063E AC 03 IBT R12,#03 616 S000640 02 CACHE 617 S000641 2F 1D MOVE R13,R15 618 619 S000643 43 LDW (R3) 620 S000644 51 ADD R1 621 S000645 90 SBK 622 623 S000646 D3 INC R3 624 625 S000647 3C LOOP 626 S000648 D3 INC R3 627 628 S000649 3D A0 48 LMS R0,CPLYPSL 629 S00064C 3E A0 CC SMS R0,CPLYPSV 630 631 ;;;; IWT R1,#000A7H 632 S00064F A1 67 IBT R1,#00067H 633 S000651 3D A0 EB LMS R0,CPLFLSH 634 S000654 61 SUB R1 635 S000655 09 0E' BEQ CAR_SUB0900+1 ;プレイヤーダメージ? ( yes:CAR_SUB0900 ) 636 S000657 60 SUB R0 637 638 S000658 3D A0 C5 LMS R0,CCARYSW 639 S00065B 9E LOB 640 S00065C 09 07' BEQ CAR_SUB0900+1 ;足伸びてる? ( no:CAR_SUB0900 ) 641 S00065E 01 NOP 642 643 ;;;;;;;; mJSR CAR_COUNT_UP 644 mJSR CAR_COIN_GET 644+ S00065F 94 LINK #4 644+ S000660 FF 0DC7' IWT R15, #CAR_COIN_GET 644+ S000663 01 NOP 645 646 CAR_SUB0900 647 S000664 60 SUB R0 ;<<< end >>> 648 S000665 00 STOP 649 S000666 01 NOP 650 ; 651 ;************************************************************************ 652 ;* * 653 ;* ＢＧチェック * 654 ;* * 655 ;************************************************************************ 656 ; 657 CR_BGCK 658 S000667 3E AB 32 SMS R11,RTS2 ;[ return address save ] 659 ; 660 S00066A FE 0000" IWT R14,#PLBGCK_POINT_CR ;(R14) <-- ＢＧチェックポイントデータポインター 661 S00066D 3D A9 46 LMS R9,CPLXPSL ;(R9) <-- プレイヤーＸ座標 662 S000670 3D AA 48 LMS R10,CPLYPSL ;(R10) <-- ” Ｙ ” 663 S000673 A2 00 IBT R2,#00 ;(R2) <-- ＢＧ当たりフラグクリアー 664 S000675 3E A2 7F SMS R2,CPLWATR ;水中当たりフラグクリアー 665 S000678 3E A2 80 SMS R2,CPLTNEL ;トンネル当たりフラグクリアー 666 S00067B 3E A2 7D SMS R2,CPLBGNO ;歩いている床のＢＧタイプクリアー 667 S00067E 3E A2 6D SMS R2,CPLKAID ;階段歩きフラグクリアー 668 ; 669 ;------------------------------------------------------------------------ 670 ;- 左上サイドチェック - 671 ;------------------------------------------------------------------------ 672 S000681 A3 01 IBT R3,#001H ;(R3) <-- 補正向き 673 S000683 23 14 MOVE R4,R3 ;(R4) <-- 補正データ 674 S000685 60 SUB R0 675 mJSR_X CR_SIDECK_IN 675+ S000686 94 LINK #4 675+ S000687 FF 0B4D' IWT R15, #CR_SIDECK_IN 676 S00068A 02 CACHE 677 678 S00068B B2 FROM R2 ;for [ PLBGCR ] 679 S00068C 16 TO R6 ; " 680 S00068D 3E 71 AND #01 ; " 681 S00068F B2 FROM R2 ; " 682 S000690 52 ADD R2 ; " 683 S000691 12 TO R2 ; " 684 S000692 C6 OR R6 ; " 685 ; 686 ;------------------------------------------------------------------------ 687 ;- 左下サイドチェック - 688 ;------------------------------------------------------------------------ 689 S000693 60 SUB R0 690 mJSR_X CR_SIDECK+1 690+ S000694 94 LINK #4 690+ S000695 FF 0B50' IWT R15, #CR_SIDECK+1 691 S000698 3E HEX 3E 692 693 S000699 B2 FROM R2 ;for [ PLBGCR ] 694 S00069A 16 TO R6 ; " 695 S00069B 3E 71 AND #01 ; " 696 S00069D B2 FROM R2 ; " 697 S00069E 52 ADD R2 ; " 698 S00069F 12 TO R2 ; " 699 S0006A0 C6 OR R6 ; " 700 ; 701 ;------------------------------------------------------------------------ 702 ;- 右上サイドチェック - 703 ;------------------------------------------------------------------------ 704 S0006A1 A3 FF IBT R3,#0FFH ;(R3) <-- 補正データ 705 S0006A3 E4 DEC R4 ;[ CMP #0 ] 706 S0006A4 0B 03' BMI CR_BGCK_0010 ;左サイド補正した？ ( yes:CR_BGCK_0010 ) 707 S0006A6 D4 INC R4 708 ; 709 S0006A7 23 14 MOVE R4,R3 ;(R4) <-- 補正データ 710 CR_BGCK_0010 711 S0006A9 A0 FF IBT R0,#0FFH 712 mJSR_X CR_SIDECK+1 712+ S0006AB 94 LINK #4 712+ S0006AC FF 0B50' IWT R15, #CR_SIDECK+1 713 S0006AF 3E HEX 3E ;[ SMS R11,RTS1 ] 714 715 S0006B0 B2 FROM R2 ;for [ PLBGCR ] 716 S0006B1 16 TO R6 ; " 717 S0006B2 3E 71 AND #01 ; " 718 S0006B4 B2 FROM R2 ; " 719 S0006B5 52 ADD R2 ; " 720 S0006B6 12 TO R2 ; " 721 S0006B7 C6 OR R6 ; " 722 ; 723 ;------------------------------------------------------------------------ 724 ;- 右下サイドチェック - 725 ;------------------------------------------------------------------------ 726 S0006B8 A0 FF IBT R0,#0FFH 727 mJSR_X CR_SIDECK+1 727+ S0006BA 94 LINK #4 727+ S0006BB FF 0B50' IWT R15, #CR_SIDECK+1 728 S0006BE 3E HEX 3E 729 730 S0006BF B2 FROM R2 ;for [ PLBGCR ] 731 S0006C0 16 TO R6 ; " 732 S0006C1 3E 71 AND #01 ; " 733 S0006C3 B2 FROM R2 ; " 734 S0006C4 52 ADD R2 ; " 735 S0006C5 12 TO R2 ; " 736 S0006C6 C6 OR R6 ; " 737 ; 738 ;------------------------------------------------------------------------ 739 ;- サイド総合チェック - 740 ;------------------------------------------------------------------------ 741 S0006C7 60 SUB R0 ;[ IBT R0,#0 ] 742 S0006C8 3E A0 6E SMS R0,CPSPUSH ;横壁押しカウンターリセット 743 ; 744 S0006CB 20 B1 MOVES R0,R1 745 S0006CD 09 5C' BEQ CR_BGCK_0040 ;横当たりＯＫ？ ( no:CR_BGCK_0040 ) 746 S0006CF 03 LSR 747 ; 748 S0006D0 03 LSR 749 S0006D1 C1 OR R1 750 S0006D2 20 15 MOVE R5,R0 751 S0006D4 03 LSR 752 S0006D5 03 LSR 753 S0006D6 03 LSR 754 S0006D7 03 LSR 755 S0006D8 C5 OR R5 756 S0006D9 3E 73 AND #03 757 S0006DB E0 DEC R0 758 S0006DC 08 2D' BNE CR_BGCK_0030 ;スピード出過ぎてた？ ( yes:CR_BGCK_0030 ) 759 S0006DE 60 SUB R0 760 ; 761 S0006DF 3E A0 54 SMS R0,CPLXSPD 762 S0006E2 3E A0 5A SMS R0,CPLMVSP 763 ; 764 S0006E5 B1 FROM R1 765 S0006E6 3E 7F AND #0FH 766 S0006E8 09 03' BEQ CR_BGCK_0018 ;左当たり？ ( yes:CR_BGCK_0018 ) 767 S0006EA D9 INC R9 768 ; 769 S0006EB E9 DEC R9 770 S0006EC E9 DEC R9 771 CR_BGCK_0018 772 ; 773 ;-------------- 横壁押しチェック -------------------------------- 774 S0006ED 3D A0 60 LMS R0,CPLJUMP 775 S0006F0 3E 60 SUB #0 776 S0006F2 08 37' BNE CR_BGCK_0040 ;ジャンプ中？ ( yes:CR_BGCK_0040 ) 777 S0006F4 01 NOP 778 ; 779 S0006F5 B1 FROM R1 780 S0006F6 3E 7F AND #0FH 781 S0006F8 09 02' BEQ CR_BGCK_0020 ;左当たり？ ( yes:CR_BGCK_0020 ) 782 S0006FA D0 INC R0 ;[ IBT R0,#01H ] 783 ; 784 S0006FB 60 SUB R0 ;[ IBT R0,#0 ] 785 CR_BGCK_0020 786 S0006FC D0 INC R0 ;[ 左:00000010B 右:00000001B ] 787 ; 788 S0006FD 3D F5 0071 LM R5,CMKEYC1 ;(R5) <-- コントローラー情報 789 S000701 75 AND R5 790 S000702 09 27' BEQ CR_BGCK_0040 ;横壁押しキー入力？ ( no:CR_BGCK_0040 ) 791 S000704 01 NOP 792 ; 793 ;-------------- 横壁押しカウンターセット ---------------- 794 S000705 3E A0 6E SMS R0,CPSPUSH ;横壁押しカウンターセット 795 S000708 05 21' BRA CR_BGCK_0040 796 S00070A 01 NOP 797 ; 798 ;-------------- プレイヤー跳ね返り ---------------------- 799 CR_BGCK_0030 800 S00070B 3D A0 54 LMS R0,CPLXSPD ;プレイヤースピード反転 801 S00070E 4F NOT 802 S00070F D0 INC R0 803 ;;;;;;;; DIV2 804 S000710 3D 96 DIV2 805 S000712 3D 96 DIV2 806 S000714 90 SBK ;[ SMS R0,CPLXSPD ] プレイヤーＸスピードセット 807 S000715 3E A0 5A SMS R0,CPLMVSP 808 S000718 0B 03' BMI CR_BGCK_0032 809 S00071A 50 ADD R0 810 ; 811 S00071B 4F NOT 812 S00071C D0 INC R0 813 CR_BGCK_0032 814 S00071D 50 ADD R0 815 S00071E 3E A0 55 SMS R0,CPLYSPD ;プレイヤーＹスピードセット 816 817 S000721 A0 47 IBT R0,#047H ;［♪］ 818 S000723 3E A0 3D SMS R0,CMSOUND3 819 ; 820 S000726 A0 20 IBT R0,#020H 821 S000728 3E A0 E3 SMS R0,CTILTCT 822 ; 823 ;------------------------------------------------------------------------ 824 ;- 左頭チェック - 825 ;------------------------------------------------------------------------ 826 CR_BGCK_0040 827 S00072B A1 00 IBT R1,#00 828 S00072D A3 10 IBT R3,#010H ;(R3) <-- 頭チェックフラグ 829 mJSR_X CR_HEADCK+1 829+ S00072F 94 LINK #4 829+ S000730 FF 0B9A' IWT R15, #CR_HEADCK+1 830 S000733 3E HEX 3E ;[ SMS R11,RTS1 ] 831 ; 832 ;------------------------------------------------------------------------ 833 ;- 中頭チェック - 834 ;------------------------------------------------------------------------ 835 S000734 A1 00 IBT R1,#00 836 mJSR_X CR_HEADCK+1 836+ S000736 94 LINK #4 836+ S000737 FF 0B9A' IWT R15, #CR_HEADCK+1 837 S00073A 3E HEX 3E ;[ SMS R11,RTS1 ] 838 839 S00073B B2 FROM R2 ;for [ PLBGCR ] 840 S00073C 16 TO R6 ; " 841 S00073D 3E 71 AND #01 ; " 842 S00073F B2 FROM R2 ; " 843 S000740 52 ADD R2 ; " 844 S000741 12 TO R2 ; " 845 S000742 C6 OR R6 ; " 846 ; 847 ;------------------------------------------------------------------------ 848 ;- 右頭チェック - 849 ;------------------------------------------------------------------------ 850 S000743 A1 00 IBT R1,#00 851 mJSR_X CR_HEADCK+1 851+ S000745 94 LINK #4 851+ S000746 FF 0B9A' IWT R15, #CR_HEADCK+1 852 S000749 3E HEX 3E ;[ SMS R11,RTS1 ] 853 ; 854 ;------------------------------------------------------------------------ 855 ;- 頭総合チェック - 856 ;------------------------------------------------------------------------ 857 S00074A B2 FROM R2 858 S00074B 3E 7F AND #00001111B 859 S00074D 09 13' BEQ CR_BGCK_0050 ;頭当たり？ ( no:CR_BGCK_0050 ) 860 S00074F 01 NOP 861 ; 862 ;-------------- ＢＧ当たった -------------------------------------------- 863 S000750 DA INC R10 ;Ｙ座標補正 864 ; 865 S000751 3D A0 55 LMS R0,CPLYSPD 866 S000754 3E 60 SUB #0 867 S000756 0A 0A' BPL CR_BGCK_0050 ;プレイヤー下降中？ ( yes:CR_BGCK_0050 ) 868 S000758 60 SUB R0 869 ; 870 S000759 90 SBK ;[ SMS R0,PLYSPD ] 871 S00075A 3E A0 69 SMS R0,CPLSPJP ;ジタバタジャンプ リセット 872 ; 873 S00075D A0 0A IBT R0,#0AH ;[♪] 874 S00075F 3E A0 3D SMS R0,CMSOUND3 875 ; 876 ;------------------------------------------------------------------------ 877 ;- 左足チェック - 878 ;------------------------------------------------------------------------ 879 CR_BGCK_0050 880 S000762 A3 F0 IBT R3,#0F0H ;(R3) <-- 足チェックフラグ 881 S000764 3D A4 5C LMS R4,CPLSKCL ;(R4) <-- 前回坂フラグ 882 mJSR_X CR_FOOTCK+1 882+ S000767 94 LINK #4 882+ S000768 FF 0B9A' IWT R15, #CR_FOOTCK+1 883 S00076B 3E HEX 3E ;[ SMS R11,RTS1 ] 884 ; 885 ;-------------- 左足のＢＧチェック情報保存 ---------------------- 886 S00076C 3D A0 08 LMS R0,CWORK8 ;(CWKC) <-- 左足移動角度 887 S00076F 3E A0 0C SMS R0,CWORKC 888 S000772 3E A0 5C SMS R0,CPLSKCL ;前回坂フラグセット 889 S000775 3E A1 0D SMS R1,CWORKD ;(CWKD) <-- 左足補正値 890 ; 891 S000778 3D A0 00 LMS R0,CWORK0 ;(CWKA) <-- ＢＧチェックＸ座標 892 S00077B 3E A0 0A SMS R0,CWORKA 893 S00077E 3D A0 01 LMS R0,CWORK1 ;(CWKB) <-- ＢＧチェックＹ座標 894 S000781 3E A0 0B SMS R0,CWORKB 895 ; 896 ;------------------------------------------------------------------------ 897 ;- 中足チェック - 898 ;------------------------------------------------------------------------ 899 S000784 3D A4 5D LMS R4,CPLSKCC ;(R4) <-- 前回坂フラグ 900 mJSR_X CR_FOOTCK+1 900+ S000787 94 LINK #4 900+ S000788 FF 0B9A' IWT R15, #CR_FOOTCK+1 901 S00078B 3E HEX 3E ;[ SMS R11,RTS1 ] 902 ; 903 ;-------------- 中足のＢＧチェック情報保存 ---------------------- 904 S00078C 3D A0 08 LMS R0,CWORK8 ;(CWK10) <-- 中足移動角度 905 S00078F 3E A0 10 SMS R0,CWORK10 906 S000792 3E A0 5D SMS R0,CPLSKCC ;前回坂フラグセット 907 S000795 3E A1 11 SMS R1,CWORK11 ;(CWK11) <-- 中足補正値 908 ; 909 S000798 3D A0 00 LMS R0,CWORK0 ;(CWKE) <-- ＢＧチェックＸ座標 910 S00079B 3E A0 0E SMS R0,CWORKE 911 S00079E 3D A0 01 LMS R0,CWORK1 ;(CWKF) <-- ＢＧチェックＹ座標 912 S0007A1 3E A0 0F SMS R0,CWORKF 913 ; 914 S0007A4 B2 FROM R2 ;for [ PLBGCR ] 915 S0007A5 16 TO R6 ; " 916 S0007A6 3E 71 AND #01 ; " 917 S0007A8 B2 FROM R2 ; " 918 S0007A9 52 ADD R2 ; " 919 S0007AA 12 TO R2 ; " 920 S0007AB C6 OR R6 ; " 921 ; 922 ;------------------------------------------------------------------------ 923 ;- 右足チェック - 924 ;------------------------------------------------------------------------ 925 S0007AC 3D A4 5E LMS R4,CPLSKCR ;(R4) <-- 前回坂フラグ 926 mJSR_X CR_FOOTCK+1 926+ S0007AF 94 LINK #4 926+ S0007B0 FF 0B9A' IWT R15, #CR_FOOTCK+1 927 S0007B3 3E HEX 3E ;[ SMS R11,RTS1 ] 928 ; 929 ;-------------- 右足のＢＧチェック情報保存 ---------------------- 930 S0007B4 3D A0 08 LMS R0,CWORK8 ;(CWK17) <-- 右足移動角度 931 S0007B7 3E A0 17 SMS R0,CWORK17 932 S0007BA 3E A0 5E SMS R0,CPLSKCR ;前回坂フラグセット 933 S0007BD 3E A1 18 SMS R1,CWORK18 ;(CWK18) <-- 右足補正値 934 ; 935 S0007C0 3D A0 00 LMS R0,CWORK0 ;(CWK15) <-- ＢＧチェックＸ座標 936 S0007C3 3E A0 15 SMS R0,CWORK15 937 S0007C6 3D A0 01 LMS R0,CWORK1 ;(CWK16) <-- ＢＧチェックＹ座標 938 S0007C9 3E A0 16 SMS R0,CWORK16 939 ; 940 ;------------------------------------------------------------------------ 941 ;- 足ＢＧ総合チェック - 942 ;------------------------------------------------------------------------ 943 S0007CC 3E A2 22 SMS R2,REG2 944 S0007CF 3D A0 C7 LMS R0,CCARANG 945 S0007D2 3E A0 20 SMS R0,REG0 946 ; 947 S0007D5 B2 FROM R2 ;足着いてる ? 948 S0007D6 3E 7F AND #00001111B ; 949 S0007D8 09 15' BEQ CR_BGCK_0178 ; no: CR_BGCK_0178 950 S0007DA 01 NOP 951 952 S0007DB F0 0100 IWT R0,#00100H 953 S0007DE 3E A0 55 SMS R0,CPLYSPD 954 955 S0007E1 B2 FROM R2 956 S0007E2 3E 76 AND #00000110B 957 S0007E4 09 04' BEQ CR_BGCK_0170 ;中が地面に着いてる? ( no:CR_BGCK_0170 ) 958 S0007E6 B2 FROM R2 959 960 S0007E7 05 4F' BRA CR_BGCK_0450 961 S0007E9 01 NOP 962 963 CR_BGCK_0170 964 S0007EA 3E 79 AND #00001001B 965 S0007EC 08 1D' BNE CR_BGCK_0200 ;左右どちらかが地面に着いてる? ( yes:CR_BGCK_0200 ) 966 S0007EE 01 NOP 967 ; 968 ;-------------- リフト乗ってるか？チェック ------------------------------ 969 CR_BGCK_0178 970 S0007EF 3D A0 DA LMS R0,CONLFFG 971 S0007F2 3E 60 SUB #0 972 S0007F4 09 0B' BEQ CR_BGCK_0180 ;リフト乗ってる？ ( no:CR_BGCK_0180 ) 973 S0007F6 60 SUB R0 974 ; 975 S0007F7 3E A0 5B SMS R0,CPLANGL ;移動角度セット 976 S0007FA 3E A0 C7 SMS R0,CCARANG ;表示角度セット 977 978 mDJMP CR_BGCK_0700 978+ S0007FD FF 0986' IWT R15, #CR_BGCK_0700 978+ S000800 01 NOP 979 ; 980 ;-------------- ＢＧ当たって無い ---------------------------------------- 981 CR_BGCK_0180 982 ;;;;;;;; LMS R0,CPLJUMP 983 ;;;;;;;; SUB #0 984 ;;;;;;;; BNE CR_BGCK_0190 ;プレイヤージャンプ中？ ( yes:CR_BGCK_0190 ) 985 ;;;;;;;; NOP 986 ; 987 S000801 F0 0008 IWT R0,#P008 ;ジャンプフラグ”ＯＮ” 988 S000804 3E A0 60 SMS R0,CPLJUMP 989 CR_BGCK_0190 990 mDJMP CR_BGCK_0800 990+ S000807 FF 09A7' IWT R15, #CR_BGCK_0800 990+ S00080A 01 NOP 991 ; 992 ;-------------- ＢＧ当たり ---------------------------------------------- 993 CR_BGCK_0200 994 S00080B 3E 69 SUB #00001001B 995 S00080D 09 05' BEQ CR_BGCK_0400 ;左右両足が地面に着いてる? ( YES:CR_BGCK_0400 ) 996 S00080F 01 NOP 997 998 mDJMP CR_BGCK_0500 998+ S000810 FF 087D' IWT R15, #CR_BGCK_0500 998+ S000813 01 NOP 999 ; 1000 ;-------------- 左＆右 -------------- 1001 CR_BGCK_0400 1002 S000814 3D A0 C1 LMS R0,CPLRFTX ;(CWK1C) <-- 右足Ｘ座標 1003 S000817 3E A0 1C SMS R0,CWORK1C 1004 S00081A 3D A1 C4 LMS R1,CPLRFTY ;(CWK1D) <-- 右足Ｙ座標 1005 S00081D 3E A1 1D SMS R1,CWORK1D 1006 S000820 3D A0 BF LMS R0,CPLLFTX ;(CWK1E) <-- 左足Ｘ座標 1007 S000823 3E A0 1E SMS R0,CWORK1E 1008 S000826 3D A0 C2 LMS R0,CPLLFTY ;(CWK1F) <-- 左足Ｙ座標 1009 S000829 3E A0 1F SMS R0,CWORK1F 1010 ; 1011 S00082C 3D A0 18 LMS R0,CWORK18 ;(R0) <-- 右足補正値 1012 mJSR CR_ANG_POS_CALC 1012+ S00082F 94 LINK #4 1012+ S000830 FF 0AEE' IWT R15, #CR_ANG_POS_CALC 1012+ S000833 01 NOP 1013 1014 mDJMP CR_BGCK_0700 1014+ S000834 FF 0986' IWT R15, #CR_BGCK_0700 1014+ S000837 01 NOP 1015 ; 1016 ;-------------- 中足 -------------- 1017 CR_BGCK_0450 1018 S000838 A0 01 IBT R0,#01 1019 S00083A 3E A0 CF SMS R0,CCARBGF 1020 ; 1021 S00083D 3D A0 CB LMS R0,CPLANSV 1022 S000840 3E A0 D0 SMS R0,CCARSKV 1023 ; 1024 S000843 3D A0 0E LMS R0,CWORKE 1025 S000846 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- 中足ＢＧチェックＸ座標 1026 S000849 3D A0 0F LMS R0,CWORKF 1027 S00084C 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- 中足ＢＧチェックＹ座標 1028 ; 1029 S00084F 3D A0 0E LMS R0,CWORKE ;中足チェックＸ座標 1030 S000852 3D A1 10 LMS R1,CWORK10 ;中足移動角度 1031 ; 1032 S000855 3D A2 54 LMS R2,CPLXSPD 1033 S000858 22 WITH R2 1034 S000859 3E 60 SUB #0 1035 S00085B 08 09' BNE CR_BGCK_0460 ;動いてる? ( yes:CR_BGCK_0460 ) 1036 S00085D 01 NOP 1037 1038 S00085E 3D A2 62 LMS R2,CPLCMKI 1039 S000861 22 WITH R2 1040 S000862 9E LOB 1041 S000863 08 0C' BNE CR_BGCK_0470 ;左向き? ( yes:CR_BGCK_0470 ) 1042 S000865 01 NOP 1043 1044 CR_BGCK_0460 1045 S000866 0B 09' BMI CR_BGCK_0470 ;左に動いてる? ( yes:CR_BGCK_0470 ) 1046 S000868 01 NOP 1047 1048 mJSR CR_ANG_CALC_R 1048+ S000869 94 LINK #4 1048+ S00086A FF 0AA6' IWT R15, #CR_ANG_CALC_R 1048+ S00086D 01 NOP 1049 S00086E 05 06' BRA CR_BGCK_0480 1050 S000870 01 NOP 1051 1052 CR_BGCK_0470 1053 mJSR CR_ANG_CALC_L 1053+ S000871 94 LINK #4 1053+ S000872 FF 0A5A' IWT R15, #CR_ANG_CALC_L 1053+ S000875 01 NOP 1054 ; 1055 CR_BGCK_0480 1056 S000876 3D A0 11 LMS R0,CWORK11 1057 mDJMP_X CR_BGCK_05A0 1057+ S000879 FF 096C' IWT R15, #CR_BGCK_05A0 1058 S00087C 1A TO R10 1059 ; 1060 ;-------------- 片足 -------------- 1061 CR_BGCK_0500 1062 S00087D FC 0080 IWT R12,#00080H 1063 S000880 FD 0100 IWT R13,#00100H 1064 S000883 B2 FROM R2 1065 S000884 3E 78 AND #00001000B 1066 S000886 09 79' BEQ CR_BGCK_0550 ;右足で補正? ( yes:CR_BGCK_0550 ) 1067 S000888 60 SUB R0 1068 ; 1069 S000889 3D A0 0A LMS R0,CWORKA 1070 S00088C 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- 左足ＢＧチェックＸ座標 1071 S00088F 3D A0 0B LMS R0,CWORKB 1072 S000892 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- 左足ＢＧチェックＹ座標 1073 ; 1074 S000895 3D A1 0C LMS R1,CWORKC ;左足移動角度 1075 S000898 3D A0 CF LMS R0,CCARBGF 1076 S00089B 9E LOB 1077 S00089C 09 3B' BEQ CR_BGCK_0509 ;前は中足でチェックしてた? ( no:CR_BGCK_0509 ) 1078 S00089E 01 NOP 1079 1080 S00089F 3D A0 D0 LMS R0,CCARSKV 1081 S0008A2 3F 61 CMP R1 1082 S0008A4 08 2C' BNE CR_BGCK_0508 ;同一角度? ( no:CR_BGCK_0508 ) 1083 S0008A6 01 NOP 1084 1085 S0008A7 3E 60 SUB #0 1086 S0008A9 08 53' BNE CR_BGCK_0540 ;平地? ( no:CR_BGCK_0540 ) 1087 S0008AB 60 SUB R0 1088 1089 S0008AC 3D A0 54 LMS R0,CPLXSPD 1090 S0008AF 5C ADD R12 1091 S0008B0 3F 6D CMP R13 1092 S0008B2 0D 18' BCS CR_BGCK_0507 ;スピードの出過ぎ? ( yes:CR_BGCK_0507 ) 1093 S0008B4 01 NOP 1094 1095 S0008B5 3D A0 0E LMS R0,CWORKE 1096 S0008B8 3E 7F AND #00FH 1097 S0008BA 1C TO R12 1098 S0008BB 3E 63 SUB #03 1099 S0008BD 0B 0D' BMI CR_BGCK_0507 ;中足が出過ぎ? ( no:CR_BGCK_0507 ) 1100 S0008BF DC INC R12 1101 1102 S0008C0 2A WITH R10 1103 S0008C1 5C ADD R12 1104 S0008C2 DA INC R10 1105 1106 S0008C3 60 SUB R0 1107 S0008C4 A1 04 IBT R1,#004 1108 S0008C6 2F 1D MOVE R13,R15 1109 1110 S0008C8 61 SUB R1 1111 1112 S0008C9 3C LOOP 1113 S0008CA 20 WITH R0 1114 1115 S0008CB 11 TO R1 ;[ MOVE R1,R0 ] 1116 1117 CR_BGCK_0507 1118 S0008CC 3D A0 0D LMS R0,CWORKD 1119 S0008CF 05 2D' BRA CR_BGCK_0540 1120 S0008D1 01 NOP 1121 1122 CR_BGCK_0508 1123 S0008D2 60 SUB R0 1124 S0008D3 3E A0 CF SMS R0,CCARBGF 1125 S0008D6 3E A1 D0 SMS R1,CCARSKV 1126 1127 CR_BGCK_0509 1128 S0008D9 3D A0 0A LMS R0,CWORKA ;左足チェックＸ座標 1129 ; 1130 S0008DC 3D A2 54 LMS R2,CPLXSPD 1131 S0008DF 22 WITH R2 1132 S0008E0 3E 60 SUB #0 1133 S0008E2 08 09' BNE CR_BGCK_0510 ;動いてる? ( yes:CR_BGCK_0510 ) 1134 S0008E4 01 NOP 1135 1136 S0008E5 3D A2 62 LMS R2,CPLCMKI 1137 S0008E8 22 WITH R2 1138 S0008E9 9E LOB 1139 S0008EA 08 0C' BNE CR_BGCK_0530 ;左向き? ( yes:CR_BGCK_0530 ) 1140 S0008EC 01 NOP 1141 1142 CR_BGCK_0510 1143 S0008ED 0B 09' BMI CR_BGCK_0530 ;左に動いてる? ( yes:CR_BGCK_0530 ) 1144 S0008EF 01 NOP 1145 1146 CR_BGCK_0520 1147 mJSR CR_ANG_CALC_R 1147+ S0008F0 94 LINK #4 1147+ S0008F1 FF 0AA6' IWT R15, #CR_ANG_CALC_R 1147+ S0008F4 01 NOP 1148 S0008F5 05 07' BRA CR_BGCK_0540 1149 S0008F7 60 SUB R0 1150 1151 CR_BGCK_0530 1152 mJSR CR_ANG_CALC_L 1152+ S0008F8 94 LINK #4 1152+ S0008F9 FF 0A5A' IWT R15, #CR_ANG_CALC_L 1152+ S0008FC 01 NOP 1153 S0008FD 60 SUB R0 1154 ; 1155 CR_BGCK_0540 1156 ;;;;;;;; LMS R0,CWORKD 1157 S0008FE 05 6C' BRA CR_BGCK_05A0 1158 S000900 1A TO R10 1159 1160 CR_BGCK_0550 1161 S000901 3D A1 17 LMS R1,CWORK17 ;右足移動角度 1162 S000904 3D A0 CF LMS R0,CCARBGF 1163 S000907 9E LOB 1164 S000908 09 3C' BEQ CR_BGCK_0559 ;前は中足でチェックしてた? ( no:CR_BGCK_0559 ) 1165 S00090A 01 NOP 1166 1167 S00090B 3D A0 D0 LMS R0,CCARSKV 1168 S00090E 3F 61 CMP R1 1169 S000910 08 2D' BNE CR_BGCK_0558 ;同一角度? ( no:CR_BGCK_0558 ) 1170 S000912 01 NOP 1171 1172 S000913 3E 60 SUB #0 1173 S000915 08 54' BNE CR_BGCK_0590 ;平地? ( no:CR_BGCK_0590 ) 1174 S000917 60 SUB R0 1175 1176 S000918 3D A0 54 LMS R0,CPLXSPD 1177 S00091B 5C ADD R12 1178 S00091C 3F 6D CMP R13 1179 S00091E 0D 19' BCS CR_BGCK_0557 ;スピードの出過ぎ? ( yes:CR_BGCK_0557 ) 1180 S000920 01 NOP 1181 1182 S000921 3D A0 0E LMS R0,CWORKE 1183 S000924 3E 7F AND #00FH 1184 S000926 3E 6D SUB #00DH 1185 S000928 0A 0F' BPL CR_BGCK_0557 ;中足が出過ぎ? ( no:CR_BGCK_0557 ) 1186 S00092A 1C TO R12 1187 1188 S00092B 4F NOT 1189 S00092C DC INC R12 1190 S00092D 2A WITH R10 1191 S00092E 5C ADD R12 1192 S00092F DA INC R10 1193 1194 S000930 60 SUB R0 1195 S000931 A1 04 IBT R1,#004 1196 S000933 2F 1D MOVE R13,R15 1197 1198 S000935 51 ADD R1 1199 1200 S000936 3C LOOP 1201 S000937 20 WITH R0 1202 1203 S000938 11 TO R1 ; [ MOVE R1,R0 ] 1204 1205 CR_BGCK_0557 1206 S000939 3D A0 18 LMS R0,CWORK18 1207 S00093C 05 2D' BRA CR_BGCK_0590 1208 S00093E 01 NOP 1209 1210 CR_BGCK_0558 1211 S00093F 60 SUB R0 1212 S000940 3E A0 CF SMS R0,CCARBGF 1213 S000943 3E A1 D0 SMS R1,CCARSKV 1214 1215 CR_BGCK_0559 1216 S000946 3D A0 15 LMS R0,CWORK15 ;チェックＸ座標 1217 ; 1218 S000949 3D A2 54 LMS R2,CPLXSPD 1219 S00094C 22 WITH R2 1220 S00094D 3E 60 SUB #0 1221 S00094F 08 09' BNE CR_BGCK_0560 ;動いてる? ( yes:CR_BGCK_0560 ) 1222 S000951 01 NOP 1223 1224 S000952 3D A2 62 LMS R2,CPLCMKI 1225 S000955 22 WITH R2 1226 S000956 9E LOB 1227 S000957 08 0C' BNE CR_BGCK_0580 ;左向き? ( yes:CR_BGCK_0580 ) 1228 S000959 01 NOP 1229 1230 CR_BGCK_0560 1231 S00095A 0B 09' BMI CR_BGCK_0580 ;左に動いてる? ( yes:CR_BGCK_0580 ) 1232 S00095C 01 NOP 1233 1234 CR_BGCK_0570 1235 mJSR CR_ANG_CALC_R 1235+ S00095D 94 LINK #4 1235+ S00095E FF 0AA6' IWT R15, #CR_ANG_CALC_R 1235+ S000961 01 NOP 1236 S000962 05 07' BRA CR_BGCK_0590 1237 S000964 60 SUB R0 1238 1239 CR_BGCK_0580 1240 mJSR CR_ANG_CALC_L 1240+ S000965 94 LINK #4 1240+ S000966 FF 0A5A' IWT R15, #CR_ANG_CALC_L 1240+ S000969 01 NOP 1241 S00096A 60 SUB R0 1242 ; 1243 CR_BGCK_0590 1244 ;;;;;;;; LMS R0,CWORK18 1245 S00096B 1A TO R10 1246 1247 CR_BGCK_05A0 1248 S00096C 5A ADD R10 1249 ; 1250 S00096D B1 FROM R1 1251 S00096E 12 TO R2 1252 S00096F 9E LOB 1253 S000970 3E A2 5B SMS R2,CPLANGL 1254 1255 S000973 3D A0 62 LMS R0,CPLCMKI 1256 S000976 9E LOB 1257 S000977 08 05' BNE CR_BGCK_0600 1258 S000979 B1 FROM R1 1259 1260 S00097A 4F NOT 1261 S00097B D0 INC R0 1262 S00097C 12 TO R2 1263 S00097D 9E LOB 1264 1265 CR_BGCK_0600 1266 S00097E 3E A2 C7 SMS R2,CCARANG 1267 ; 1268 ;-------------- 足当たりＯＫ後特殊ＢＧチェック ------------------ 1269 mJSR FOOT_RESULT 1269+ S000981 94 LINK #4 1269+ S000982 FF 0000" IWT R15, #FOOT_RESULT 1269+ S000985 01 NOP 1270 ; 1271 CR_BGCK_0700 1272 S000986 3D A2 22 LMS R2,REG2 1273 1274 S000989 60 SUB R0 ;前回坂フラグリセット 1275 S00098A 3E A0 5C SMS R0,CPLSKCL 1276 S00098D 3E A0 5D SMS R0,CPLSKCC 1277 S000990 3E A0 5E SMS R0,CPLSKCR 1278 ; 1279 ;-------------- 着地の瞬間チェック ------------------------------ 1280 S000993 3D A0 60 LMS R0,CPLJUMP 1281 S000996 3E 60 SUB #0 1282 S000998 09 0D' BEQ CR_BGCK_0770 ;着地の瞬間？ ( no:CR_BGCK_0770 ) 1283 S00099A 60 SUB R0 1284 ; 1285 S00099B 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＦＦ” 1286 S00099E 3E A0 69 SMS R0,CPLSPJP ;ジタバタジャンプフラグリセット 1287 S0009A1 3D A0 54 LMS R0,CPLXSPD 1288 S0009A4 3E A0 5A SMS R0,CPLMVSP ;移動スピードセット 1289 ; 1290 CR_BGCK_0770 1291 ; 1292 ;-------------- ダッシュ土けむりセットチェック ------------------ 1293 ;;;;;;;; mJSR DASH_SMOK_CK 1294 ; 1295 CR_BGCK_0800 1296 S0009A7 3E A9 46 SMS R9,CPLXPSL 1297 S0009AA 3E AA 48 SMS R10,CPLYPSL 1298 S0009AD 3E A2 7E SMS R2,CPLBGCR 1299 S0009B0 B2 FROM R2 1300 S0009B1 3E 7F AND #00001111B 1301 S0009B3 3E A0 C9 SMS R0,CPLBGSV 1302 ; 1303 S0009B6 3D AB 32 LMS R11,RTS2 ;[ return address load ] 1304 mRTS 1304+ S0009B9 9B JMP R11 1304+ S0009BA 01 NOP 1305 ; 1306 ;**************************************************************** 1307 ;* * 1308 ;* 足伸びたときのタイヤのサイドチェック * 1309 ;* * 1310 ;* [In] * 1311 ;* R2 PLBGCR * 1312 ;* R9 PLXPSL * 1313 ;* R10 PLYPSL * 1314 ;* * 1315 ;**************************************************************** 1316 CR_TIRE_BGCK 1317 S0009BB 3E AB 36 SMS R11,RTS6 ;[ return address save ] 1318 ; 1319 S0009BE 3D A0 89 LMS R0,CPLFTLN 1320 S0009C1 9E LOB 1321 S0009C2 09 09' BEQ CR_T_BGCK0100 ;足伸びてる? ( no:CR_T_BGCK0100 ) 1322 S0009C4 01 NOP 1323 ; 1324 S0009C5 F1 FF00 IWT R1,#0FF00H 1325 S0009C8 B2 FROM R2 1326 S0009C9 71 AND R1 1327 S0009CA 09 03' BEQ CR_T_BGCK0200 ;すでにサイドがあたってる? ( no:CR_T_BGCK0200 ) 1328 S0009CC 01 NOP 1329 1330 CR_T_BGCK0100 1331 mRTS 1331+ S0009CD 9B JMP R11 1331+ S0009CE 01 NOP 1332 ; 1333 ;------------------------------------------------------------------------ 1334 ;- 左タイヤサイドチェック - 1335 ;------------------------------------------------------------------------ 1336 CR_T_BGCK0200 1337 S0009CF A2 00 IBT R2,#0 1338 ; 1339 S0009D1 A3 01 IBT R3,#001H ;(R3) <-- 補正向き 1340 S0009D3 23 14 MOVE R4,R3 ;(R4) <-- 補正データ 1341 ; 1342 S0009D5 3D A0 BF LMS R0,CPLLFTX 1343 S0009D8 18 TO R8 1344 S0009D9 3E 64 SUB #04 1345 S0009DB 3D A5 89 LMS R5,CPLFTLN 1346 S0009DE 3D A0 C2 LMS R0,CPLLFTY 1347 S0009E1 3E 68 SUB #08 1348 S0009E3 55 ADD R5 1349 S0009E4 17 TO R7 1350 S0009E5 50 ADD R0 1351 1352 mJSR_X CR_T_SIDECK_IN 1352+ S0009E6 94 LINK #4 1352+ S0009E7 FF 0A44' IWT R15, #CR_T_SIDECK_IN 1353 S0009EA 02 CACHE 1354 1355 S0009EB B2 FROM R2 ;for [ PLBGCR ] 1356 S0009EC 16 TO R6 ; " 1357 S0009ED 3E 71 AND #01 ; " 1358 S0009EF B2 FROM R2 ; " 1359 S0009F0 52 ADD R2 ; " 1360 S0009F1 C6 OR R6 ; " 1361 S0009F2 50 ADD R0 ; " 1362 S0009F3 C6 OR R6 ; " 1363 S0009F4 50 ADD R0 ; " 1364 S0009F5 12 TO R2 ; " 1365 S0009F6 C6 OR R6 ; " 1366 ; 1367 ;------------------------------------------------------------------------ 1368 ;- 右タイヤサイドチェック - 1369 ;------------------------------------------------------------------------ 1370 S0009F7 A3 FF IBT R3,#0FFH ;(R3) <-- 補正データ 1371 S0009F9 E4 DEC R4 ;[ CMP #0 ] 1372 S0009FA 0B 03' BMI CR_T_BGCK_0300 ;左サイド補正した？ ( yes:CR_T_BGCK_0300 ) 1373 S0009FC D4 INC R4 1374 ; 1375 S0009FD 23 14 MOVE R4,R3 ;(R4) <-- 補正データ 1376 CR_T_BGCK_0300 1377 S0009FF 3D A0 C1 LMS R0,CPLRFTX 1378 S000A02 18 TO R8 1379 S000A03 3E 54 ADD #04 1380 S000A05 3D A5 89 LMS R5,CPLFTLN 1381 S000A08 3D A0 C4 LMS R0,CPLRFTY 1382 S000A0B 3E 68 SUB #08 1383 S000A0D 55 ADD R5 1384 S000A0E 17 TO R7 1385 S000A0F 50 ADD R0 1386 1387 mJSR_X CR_T_SIDECK+1 1387+ S000A10 94 LINK #4 1387+ S000A11 FF 0A47' IWT R15, #CR_T_SIDECK+1 1388 S000A14 3E HEX 3E 1389 1390 S000A15 B2 FROM R2 ;for [ PLBGCR ] 1391 S000A16 16 TO R6 ; " 1392 S000A17 3E 71 AND #01 ; " 1393 S000A19 B2 FROM R2 ; " 1394 S000A1A 52 ADD R2 ; " 1395 S000A1B C6 OR R6 ; " 1396 S000A1C 50 ADD R0 ; " 1397 S000A1D C6 OR R6 ; " 1398 S000A1E 50 ADD R0 ; " 1399 S000A1F 12 TO R2 ; " 1400 S000A20 C6 OR R6 ; " 1401 ; 1402 ;------------------------------------------------------------------------ 1403 ;- サイド総合チェック - 1404 ;------------------------------------------------------------------------ 1405 S000A21 20 B1 MOVES R0,R1 1406 S000A23 09 10' BEQ CR_T_BGCK_0800 ;横当たりＯＫ？ ( no:CR_T_BGCK_0800 ) 1407 S000A25 01 NOP 1408 ; 1409 S000A26 60 SUB R0 1410 S000A27 3E A0 54 SMS R0,CPLXSPD 1411 S000A2A 3E A0 5A SMS R0,CPLMVSP 1412 ; 1413 S000A2D B1 FROM R1 1414 S000A2E 3E 73 AND #03H 1415 S000A30 09 03' BEQ CR_T_BGCK_0800 ;左当たり？ ( yes:CR_T_BGCK_0800 ) 1416 S000A32 D9 INC R9 1417 ; 1418 S000A33 E9 DEC R9 1419 S000A34 E9 DEC R9 1420 ; 1421 CR_T_BGCK_0800 1422 S000A35 22 WITH R2 1423 S000A36 4D SWAP 1424 S000A37 3D A0 7E LMS R0,CPLBGCR 1425 S000A3A C2 OR R2 1426 S000A3B 90 SBK 1427 ; 1428 S000A3C 3E A9 46 SMS R9,CPLXPSL 1429 ; 1430 S000A3F 3D AB 36 LMS R11,RTS6 1431 1432 mRTS 1432+ S000A42 9B JMP R11 1432+ S000A43 01 NOP 1433 ; 1434 ;**************************************************************** 1435 ;* タイヤサイドチェック * 1436 ;**************************************************************** 1437 CR_T_SIDECK_IN 1438 S000A44 A1 00 IBT R1,#0 ;(R1) <-- 横ＢＧ当たりＯＫフラグ 1439 ; 1440 CR_T_SIDECK 1441 S000A46 3E AB 31 SMS R11,RTS1 ;[ return address save ] 1442 ; 1443 S000A49 22 WITH R2 ;[ ASL R2 ] 1444 S000A4A 52 ADD R2 1445 S000A4B 21 WITH R1 ;[ ASL R1 ] 1446 S000A4C 51 ADD R1 1447 S000A4D 21 WITH R1 ;[ ASL R1 ] 1448 S000A4E 51 ADD R1 1449 ; 1450 ;-------------- ＢＧ当たりチェック -------------------------------------- 1451 S000A4F B7 FROM R7 1452 S000A50 03 LSR 1453 mJSR_X BGUNIT_READ_S+1 1453+ S000A51 94 LINK #4 1453+ S000A52 FF 0001" IWT R15, #BGUNIT_READ_S+1 1454 S000A55 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 1455 ; 1456 mDJMP BG_SIDECK_0000 1456+ S000A56 FF 0000" IWT R15, #BG_SIDECK_0000 1456+ S000A59 01 NOP 1457 ; 1458 ;**************************************************************** 1459 ;* 回転角計算 * 1460 ;* * 1461 ;* [In] * 1462 ;* R0 チェックＸ座標 * 1463 ;* R1 目標回転角 * 1464 ;* * 1465 ;**************************************************************** 1466 CR_ANG_CALC_L 1467 S000A5A 3E AB 36 SMS R11,RTS6 1468 ; 1469 S000A5D 3D A2 CB LMS R2,CPLANSV 1470 S000A60 B2 FROM R2 1471 S000A61 3F 61 CMP R1 1472 S000A63 09 3C' BEQ CR_A_CALC_L0200 1473 S000A65 9E LOB 1474 ; 1475 S000A66 09 36' BEQ CR_A_CALC_L0100 1476 S000A68 4F NOT 1477 1478 S000A69 D0 INC R0 1479 S000A6A 14 TO R4 1480 S000A6B 3E 7F AND #00FH 1481 S000A6D A5 08 IBT R5,#08 1482 S000A6F B4 FROM R4 1483 S000A70 65 SUB R5 1484 S000A71 0A 2B' BPL CR_A_CALC_L0100 1485 S000A73 01 NOP 1486 ; 1487 S000A74 B1 FROM R1 1488 S000A75 95 SEX 1489 S000A76 3D 96 DIV2 1490 S000A78 3D 96 DIV2 1491 S000A7A 3D 96 DIV2 1492 S000A7C 24 1C MOVE R12,R4 1493 S000A7E A2 00 IBT R2,#0 1494 S000A80 02 CACHE 1495 S000A81 2F 1D MOVE R13,R15 1496 1497 S000A83 22 WITH R2 1498 S000A84 50 ADD R0 1499 1500 S000A85 3C LOOP 1501 S000A86 E5 DEC R5 1502 ; vvv******* warn :value out of range 1503 S000A87 3D A0 CB LMS R0,PLANSV 1504 S000A8A 95 SEX 1505 S000A8B 3D 96 DIV2 1506 S000A8D 3D 96 DIV2 1507 S000A8F 13 TO R3 1508 S000A90 3D 96 DIV2 1509 S000A92 25 1C MOVE R12,R5 1510 S000A94 60 SUB R0 ;[ IBT R0,#0 ] 1511 S000A95 2F 1D MOVE R13,R15 1512 1513 S000A97 53 ADD R3 1514 1515 S000A98 3C LOOP 1516 S000A99 01 NOP 1517 ; 1518 S000A9A 11 TO R1 1519 S000A9B 05 04' BRA CR_A_CALC_L0200 1520 S000A9D 52 ADD R2 1521 1522 CR_A_CALC_L0100 1523 S000A9E 3E A1 CB SMS R1,CPLANSV 1524 1525 CR_A_CALC_L0200 1526 S000AA1 3D AB 36 LMS R11,RTS6 1527 1528 mRTS 1528+ S000AA4 9B JMP R11 1528+ S000AA5 01 NOP 1529 ; 1530 ; 1531 CR_ANG_CALC_R 1532 S000AA6 3E AB 36 SMS R11,RTS6 1533 ; 1534 S000AA9 3D A2 CB LMS R2,CPLANSV 1535 S000AAC B2 FROM R2 1536 S000AAD 3F 61 CMP R1 1537 S000AAF 09 38' BEQ CR_A_CALC_R0200 1538 S000AB1 14 TO R4 1539 ; 1540 S000AB2 3E 7F AND #00FH 1541 S000AB4 A5 07 IBT R5,#07 1542 S000AB6 B4 FROM R4 1543 S000AB7 65 SUB R5 1544 S000AB8 0A 2C' BPL CR_A_CALC_R0100 1545 S000ABA D4 INC R4 1546 ; 1547 S000ABB D5 INC R5 1548 S000ABC B1 FROM R1 1549 S000ABD 95 SEX 1550 S000ABE 3D 96 DIV2 1551 S000AC0 3D 96 DIV2 1552 S000AC2 3D 96 DIV2 1553 S000AC4 24 1C MOVE R12,R4 1554 S000AC6 A2 00 IBT R2,#0 1555 S000AC8 02 CACHE 1556 S000AC9 2F 1D MOVE R13,R15 1557 1558 S000ACB 22 WITH R2 1559 S000ACC 50 ADD R0 1560 1561 S000ACD 3C LOOP 1562 S000ACE E5 DEC R5 1563 ; vvv******* warn :value out of range 1564 S000ACF 3D A0 CB LMS R0,PLANSV 1565 S000AD2 95 SEX 1566 S000AD3 3D 96 DIV2 1567 S000AD5 3D 96 DIV2 1568 S000AD7 13 TO R3 1569 S000AD8 3D 96 DIV2 1570 S000ADA 25 1C MOVE R12,R5 1571 S000ADC 60 SUB R0 ;[ IBT R0,#0 ] 1572 S000ADD 2F 1D MOVE R13,R15 1573 1574 S000ADF 53 ADD R3 1575 1576 S000AE0 3C LOOP 1577 S000AE1 01 NOP 1578 ; 1579 S000AE2 11 TO R1 1580 S000AE3 05 04' BRA CR_A_CALC_R0200 1581 S000AE5 52 ADD R2 1582 1583 CR_A_CALC_R0100 1584 S000AE6 3E A1 CB SMS R1,CPLANSV 1585 1586 CR_A_CALC_R0200 1587 S000AE9 3D AB 36 LMS R11,RTS6 1588 1589 mRTS 1589+ S000AEC 9B JMP R11 1589+ S000AED 01 NOP 1590 ; 1591 ;---------------------------------------------------------------- 1592 ;- - 1593 ;- [In] - 1594 ;- R0 右足補正値 - 1595 ;- CWK0 右足ＢＧチェックＸ座標 - 1596 ;- CWK1 右足ＢＧチェックＹ座標 - 1597 ;- CWKA 左足ＢＧチェックＸ座標 - 1598 ;- CWKB 左足ＢＧチェックＹ座標 - 1599 ;- CWKD 左足補正値 - 1600 ;- CWK1C 右足Ｘ座標 - 1601 ;- CWK1D 右足Ｙ座標 - 1602 ;- CWK1E 左足Ｘ座標 - 1603 ;- CWK1F 左足Ｙ座標 - 1604 ;- [Use] - 1605 ;- R5 return address - 1606 ;- - 1607 ;---------------------------------------------------------------- 1608 ; 1609 CR_ANG_POS_CALC 1610 S000AEE 3E AB 35 SMS R11,RTS5 ;[ return address save ] 1611 ; 1612 S000AF1 3D A5 0D LMS R5,CWORKD ;(R5) <-- 左足補正値 1613 S000AF4 15 TO R5 1614 S000AF5 65 SUB R5 1615 S000AF6 0B 18' BMI CR_A_P_CALC0200 ;左足で補正？ ( no:CR_A_P_CALC0200 ) 1616 S000AF8 01 NOP 1617 ; 1618 S000AF9 08 06' BNE CR_A_P_CALC0100 ;両足当たり？ ( no:CR_A_P_CALC0100 ) 1619 S000AFB 01 NOP 1620 ; 1621 ;-------------- 右足当たりＯＫ後特殊ＢＧチェック ---------------- 1622 mJSR FOOT_RESULT 1622+ S000AFC 94 LINK #4 1622+ S000AFD FF 0000" IWT R15, #FOOT_RESULT 1622+ S000B00 01 NOP 1623 ; 1624 ;-------------- 左足のＢＧチェック情報復帰 ---------------------- 1625 CR_A_P_CALC0100 1626 S000B01 3D A0 0A LMS R0,CWORKA 1627 S000B04 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- 左足ＢＧチェックＸ座標 1628 S000B07 3D A0 0B LMS R0,CWORKB 1629 S000B0A 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- 左足ＢＧチェックＹ座標 1630 1631 S000B0D 3D A0 0D LMS R0,CWORKD ;(R0) <-- 左足補正値 1632 ; 1633 CR_A_P_CALC0200 1634 S000B10 1A TO R10 ;Ｙ座標補正 1635 S000B11 5A ADD R10 1636 ; 1637 ;-------------- 足当たりＯＫ後特殊ＢＧチェック ------------------ 1638 mJSR FOOT_RESULT 1638+ S000B12 94 LINK #4 1638+ S000B13 FF 0000" IWT R15, #FOOT_RESULT 1638+ S000B16 01 NOP 1639 ; 1640 ;-------------- 足当たり情報セット ------------------------------ 1641 S000B17 A0 FF IBT R0,#0FFH ;[ IWT R0,#0FFFFH ] 着地継続の為 1642 S000B19 3E A0 47 SMS R0,CPLYSDR 1643 1644 S000B1C 3D A0 17 LMS R0,CWORK17 1645 S000B1F 95 SEX 1646 S000B20 3D A1 0C LMS R1,CWORKC 1647 S000B23 21 WITH R1 1648 S000B24 95 SEX 1649 S000B25 51 ADD R1 1650 S000B26 11 TO R1 1651 S000B27 3D 96 DIV2 1652 S000B29 3D A0 5B LMS R0,CPLANGL 1653 S000B2C 95 SEX 1654 S000B2D 51 ADD R1 1655 S000B2E 11 TO R1 1656 S000B2F 3D 96 DIV2 1657 1658 S000B31 B1 FROM R1 1659 S000B32 14 TO R4 1660 S000B33 9E LOB 1661 S000B34 3E A4 5B SMS R4,CPLANGL 1662 S000B37 3E A4 CB SMS R4,CPLANSV 1663 1664 S000B3A 3D A0 62 LMS R0,CPLCMKI 1665 S000B3D 9E LOB 1666 S000B3E 08 05' BNE CR_A_P_CALC0400 1667 S000B40 B1 FROM R1 1668 1669 S000B41 4F NOT 1670 S000B42 D0 INC R0 1671 S000B43 14 TO R4 1672 S000B44 9E LOB 1673 1674 CR_A_P_CALC0400 1675 S000B45 3E A4 C7 SMS R4,CCARANG 1676 ; 1677 S000B48 3D AB 35 LMS R11,RTS5 1678 1679 mRTS 1679+ S000B4B 9B JMP R11 1679+ S000B4C 01 NOP 1680 ; 1681 ;**************************************************************** 1682 ;* サイドチェック * 1683 ;**************************************************************** 1684 CR_SIDECK_IN 1685 S000B4D A1 00 IBT R1,#0 ;(R1) <-- 横ＢＧ当たりＯＫフラグ 1686 ; 1687 CR_SIDECK 1688 S000B4F 3E AB 31 SMS R11,RTS1 ;[ return address save ] 1689 ; 1690 S000B52 22 WITH R2 ;[ ASL R2 ] 1691 S000B53 52 ADD R2 1692 S000B54 21 WITH R1 ;[ ASL R1 ] 1693 S000B55 51 ADD R1 1694 S000B56 21 WITH R1 ;[ ASL R1 ] 1695 S000B57 51 ADD R1 1696 1697 S000B58 18 TO R8 1698 S000B59 3F EF GETBS 1699 S000B5B DE INC R14 1700 S000B5C 17 TO R7 1701 S000B5D 3F EF GETBS 1702 S000B5F DE INC R14 1703 1704 S000B60 3D A5 62 LMS R5,CPLCMKI 1705 S000B63 E5 DEC R5 1706 S000B64 16 TO R6 1707 S000B65 3D C5 XOR R5 1708 1709 S000B67 3D A0 C5 LMS R0,CCARYSW 1710 S000B6A 9E LOB 1711 S000B6B 08 11' BNE CR_SIDECK0200 ;足伸びてる? ( yes:CR_SIDECK0200 ) 1712 S000B6D 01 NOP 1713 1714 S000B6E 3D A0 5B LMS R0,CPLANGL 1715 S000B71 95 SEX 1716 S000B72 25 B5 MOVES R5,R5 1717 S000B74 0A 03' BPL CR_SIDECK0100 1718 S000B76 01 NOP 1719 1720 S000B77 4F NOT 1721 S000B78 D0 INC R0 1722 1723 CR_SIDECK0100 1724 S000B79 3D C6 XOR R6 1725 S000B7B 0A 0A' BPL CR_SIDECK0300+1 1726 S000B7D B8 FROM R8 1727 ;;;;;;;; NOP 1728 1729 CR_SIDECK0200 1730 S000B7E 3D A5 5B LMS R5,CPLANGL 1731 1732 mJSR POI_ROT 1732+ S000B81 94 LINK #4 1732+ S000B82 FF 0412' IWT R15, #POI_ROT 1732+ S000B85 01 NOP 1733 1734 CR_SIDECK0300 1735 S000B86 B8 FROM R8 1736 S000B87 3E 58 ADD #008 1737 S000B89 18 TO R8 1738 S000B8A 59 ADD R9 1739 S000B8B A5 18 IBT R5,#018H 1740 S000B8D B7 FROM R7 1741 S000B8E 55 ADD R5 1742 S000B8F 5A ADD R10 1743 ;;;; TO R7 1744 ;;;; ADD R0 1745 ; 1746 ;-------------- ＢＧ当たりチェック -------------------------------------- 1747 mJSR_X BGUNIT_READ_S+1 1747+ S000B90 94 LINK #4 1747+ S000B91 FF 0001" IWT R15, #BGUNIT_READ_S+1 1748 S000B94 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 1749 1750 mDJMP BG_SIDECK_0000 1750+ S000B95 FF 0000" IWT R15, #BG_SIDECK_0000 1750+ S000B98 01 NOP 1751 ; 1752 ;**************************************************************** 1753 ;* 足頭チェック * 1754 ;**************************************************************** 1755 CR_HEADCK 1756 CR_FOOTCK 1757 S000B99 3E AB 31 SMS R11,RTS1 ;[ return address save ] 1758 ; 1759 S000B9C 22 WITH R2 ;[ ASL R2 ] 1760 S000B9D 52 ADD R2 1761 ; 1762 S000B9E 60 SUB R0 1763 S000B9F 3E A0 08 SMS R0,CWORK8 ;(CWK8) <-- saka angle 1764 ; 1765 S000BA2 18 TO R8 1766 S000BA3 3F EF GETBS 1767 S000BA5 DE INC R14 1768 S000BA6 17 TO R7 1769 S000BA7 3F EF GETBS 1770 S000BA9 DE INC R14 1771 1772 S000BAA B8 FROM R8 1773 S000BAB 3E 58 ADD #008 1774 S000BAD 18 TO R8 1775 S000BAE 59 ADD R9 1776 1777 S000BAF A0 18 IBT R0,#018H 1778 S000BB1 5A ADD R10 1779 ;;;; TO R7 1780 S000BB2 57 ADD R7 1781 1782 S000BB3 23 B3 MOVES R3,R3 1783 S000BB5 0A 05' BPL CR_HDFTCK0100 ;頭チェック? ( yes:CR_HDFTCK0100 ) 1784 S000BB7 01 NOP 1785 1786 ;;;; LMS R0,CCARYSW 1787 S000BB8 3D A7 C5 LMS R7,CCARYSW 1788 ;;;; TO R7 1789 S000BBB 57 ADD R7 1790 1791 CR_HDFTCK0100 1792 ;;;; WITH R7 1793 ;;;; ADD R7 1794 ; 1795 mJSR_X BGUNIT_READ_S+1 1795+ S000BBC 94 LINK #4 1795+ S000BBD FF 0001" IWT R15, #BGUNIT_READ_S+1 1796 S000BC0 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 1797 ; 1798 mDJMP BG_HDFTCK_0000 1798+ S000BC1 FF 0000" IWT R15, #BG_HDFTCK_0000 1798+ S000BC4 01 NOP 1799 ; 1800 ;************************************************************************ 1801 ;* * 1802 ;* コントローラー入力 * 1803 ;* * 1804 ;************************************************************************ 1805 ; 1806 CR_KEY 1807 ;------------------------------------------------------------------------ 1808 ;- 移動キーチェック - 1809 ;------------------------------------------------------------------------ 1810 ; LM R1,CMKEYC1L ;(R1) <-- コントローラー情報（連続） 1811 S000BC5 3D F1 0072 LM R1,CMKEYC2L ;(R2) <-- ” （トリガー） 1812 ; 1813 ;------------------------------------------------------------------------ 1814 ;- 足のびチェック - 1815 ;------------------------------------------------------------------------ 1816 CR_KEY_0500 1817 S000BC9 3D A0 F2 LMS R0,CPLTIM0 ;足伸ばしタイマーＯＮ ? 1818 S000BCC 3E 60 SUB #0 ; 1819 S000BCE 09 04' BEQ CR_KEY_0530 ; no: CR_KEY_0530 1820 S000BD0 60 SUB R0 1821 1822 S000BD1 05 2E' BRA CR_KEY_0550 1823 S000BD3 01 NOP 1824 1825 CR_KEY_0530 1826 S000BD4 3D A0 C6 LMS R0,CCARZOM ;車縮んでる ? 1827 S000BD7 C0 HIB ; 1828 S000BD8 09 69' BEQ CR_KEY_0600+1 ; yes: CR_KEY_0600+1 1829 S000BDA 3D A0 89 LMS R0,CPLFTLN ;足伸びてる ? 1830 S000BDD 3E 60 SUB #0 ; 1831 S000BDF 08 61' BNE CR_KEY_0600 ; yes: CR_KEY_0600 1832 S000BE1 01 NOP 1833 1834 S000BE2 3D F0 0084 LM R0,CP_KEY_JUMP ;Ｙ／Ｂ／Ａボタン押された ? 1835 S000BE6 3D F5 0088 LM R5,CP_KEY_BERO ; 1836 S000BEA C5 OR R5 ; 1837 S000BEB 3D F5 0086 LM R5,CP_KEY_MNAG ; 1838 S000BEF C5 OR R5 ; 1839 S000BF0 71 AND R1 ; 1840 S000BF1 09 4F' BEQ CR_KEY_0600 ; no: CR_KEY_0600 1841 S000BF3 D0 INC R0 ;[ IBT R0,#001 ] 1842 S000BF4 3E A0 CA SMS R0,CCARFTF 1843 1844 S000BF7 A0 40 IBT R0,#040H ;足伸ばしタイマーセット 1845 S000BF9 3E A0 F2 SMS R0,CPLTIM0 ; 1846 S000BFC A0 34 IBT R0,#034H ;［♪］ 1847 S000BFE 3E A0 3D SMS R0,CMSOUND3 1848 1849 CR_KEY_0550 1850 S000C01 A5 F0 IBT R5,#0F0H ;頭、左右あたってる ? 1851 S000C03 3D A0 7E LMS R0,CPLBGCR ; 1852 S000C06 75 AND R5 ; 1853 S000C07 09 1A' BEQ CR_KEY_0560 ; no: CR_KEY_0560 1854 S000C09 01 NOP 1855 1856 S000C0A F5 FF00 IWT R5,#0FF00H ;左右あたってる ? 1857 S000C0D 75 AND R5 ; 1858 S000C0E 09 0D' BEQ CR_KEY_0555 ; no: CR_KEY_0555 1859 S000C10 01 NOP 1860 1861 S000C11 F0 FC00 IWT R0,#0FC00H 1862 S000C14 3E A0 55 SMS R0,CPLYSPD 1863 S000C17 A0 08 IBT R0,#P008 1864 S000C19 3E A0 60 SMS R0,CPLJUMP 1865 S000C1C 60 SUB R0 1866 1867 CR_KEY_0555 1868 S000C1D 3E A0 F2 SMS R0,CPLTIM0 1869 S000C20 05 43' BRA CR_KEY_1000 ;頭あたってる? ( yes:CR_KEY_1000 ) 1870 S000C22 01 NOP 1871 1872 CR_KEY_0560 1873 S000C23 3D A0 89 LMS R0,CPLFTLN ;足伸びてる ? 1874 S000C26 3E 61 SUB #1 ; 1875 S000C28 0B 06' BMI CR_KEY_0580 ; no: CR_KEY_0580 1876 S000C2A D0 INC R0 1877 1878 S000C2B A5 01 IBT R5,#01 ;ボディーキャラフラグセット 1879 S000C2D 3E A5 D1 SMS R5,CCARBDY 1880 1881 CR_KEY_0580 1882 S000C30 D0 INC R0 ;足伸び切った ? 1883 S000C31 D0 INC R0 ; 1884 S000C32 A5 20 IBT R5,#020H ; 1885 S000C34 3F 65 CMP R5 ; 1886 S000C36 0A 2D' BPL CR_KEY_1000 ; yes: CR_KEY_1000 1887 S000C38 01 NOP 1888 1889 S000C39 3E A0 89 SMS R0,CPLFTLN 1890 S000C3C 3E A0 C5 SMS R0,CCARYSW 1891 S000C3F 05 24' BRA CR_KEY_1000 1892 S000C41 01 NOP 1893 1894 CR_KEY_0600 1895 S000C42 3D A0 C5 LMS R0,CCARYSW ;さっきまで伸びてた ? 1896 S000C45 3E 60 SUB #00 ; 1897 S000C47 09 07' BEQ CR_KEY_0610+1 ; no: CR_KEY_0610+1 1898 S000C49 60 SUB R0 1899 1900 S000C4A A0 56 IBT R0,#056H ;［♪］ 1901 S000C4C 3E A0 3D SMS R0,CMSOUND3 1902 1903 000C4F CR_KEY_0610 EQU $ 1904 S000C4F 60 SUB R0 1905 S000C50 3E A0 C5 SMS R0,CCARYSW 1906 1907 S000C53 3D A0 89 LMS R0,CPLFTLN ;足縮んでる ? 1908 S000C56 3E 68 SUB #08 ; 1909 S000C58 0A 0B' BPL CR_KEY_1000 ; no: CR_KEY_1000 1910 S000C5A 90 SBK 1911 1912 S000C5B 60 SUB R0 1913 S000C5C 90 SBK 1914 1915 S000C5D 3D A0 D1 LMS R0,CCARBDY 1916 S000C60 9E LOB 1917 S000C61 09 02' BEQ CR_KEY_1000 ;ボディーキャラ固定? ( no:CR_KEY_1000 ) 1918 S000C63 60 SUB R0 1919 1920 S000C64 90 SBK ;ボディーキャラフラグクリア 1921 ; 1922 ;------------------------------------------------------------------------ 1923 ;- 移動キーチェック - 1924 ;------------------------------------------------------------------------ 1925 CR_KEY_1000 1926 S000C65 3D F1 0071 LM R1,CMKEYC1 ;(R1) <-- コントローラー情報（連続） 1927 S000C69 3D A0 6C LMS R0,CPLDASH 1928 S000C6C 3E 60 SUB #0 1929 S000C6E 08 0A' BNE CR_KEY_1510 ;溜めダッシュ？ ( yes:CR_KEY_1510 ) 1930 S000C70 B1 FROM R1 1931 1932 S000C71 3E 73 AND #00000011B 1933 S000C73 08 05' BNE CR_KEY_1510 ;左右キー入力？ ( yes:CR_KEY_1510 ) 1934 S000C75 01 NOP 1935 ; 1936 mDJMP CR_KEY_1800 1936+ S000C76 FF 0CFA' IWT R15, #CR_KEY_1800 1936+ S000C79 01 NOP 1937 ; 1938 CR_KEY_1510 1939 S000C7A 3E A0 66 SMS R0,CPLSTOP ;止まってるフラグリセット 1940 ; 1941 S000C7D A7 FF IBT R7,#-1 ;(R7) <-- 左右キーによる移動方向（左） 1942 S000C7F 3E 72 AND #02H ;(R0) <-- プレイヤー向き 1943 S000C81 08 03' BNE CR_KEY_1520 ;左へ？ ( yes:CR_KEY_1520 ) 1944 S000C83 01 NOP 1945 ; 1946 S000C84 A7 01 IBT R7,#01H ;(R7) <-- 左右キーによる移動方向（右） 1947 CR_KEY_1520 1948 S000C86 3D A4 62 LMS R4,CPLCMKI ;(R4) <-- 移動向き 1949 S000C89 64 SUB R4 1950 S000C8A 09 06' BEQ CR_KEY_1550 ;向き変わった？ ( no:CR_KEY_1550 ) 1951 S000C8C 54 ADD R4 1952 ; 1953 S000C8D 3E A0 62 SMS R0,CPLCMKI 1954 S000C90 20 14 MOVE R4,R0 ;(R4) <-- 移動向き 1955 1956 CR_KEY_1550 1957 S000C92 3D A0 5A LMS R0,CPLMVSP 1958 S000C95 3E 60 SUB #0 1959 S000C97 09 13' BEQ CR_KEY_1700 ;止まってた？ ( yes:CR_KEY_1700 ) 1960 S000C99 01 NOP 1961 ; 1962 S000C9A 3D C7 XOR R7 1963 S000C9C 0A 0E' BPL CR_KEY_1700 ;スリップ？ ( no:CR_KEY_1700 ) 1964 S000C9E 01 NOP 1965 ; 1966 ;---------------------------------------------------------------- 1967 ;- スリップ - 1968 ;---------------------------------------------------------------- 1969 S000C9F 3D A0 60 LMS R0,CPLJUMP 1970 S000CA2 3E 60 SUB #0 1971 S000CA4 08 06' BNE CR_KEY_1700 ;ジャンプ中？ ( yes:CR_KEY_1700 ) 1972 S000CA6 01 NOP 1973 ; 1974 S000CA7 A0 08 IBT R0,#08H 1975 S000CA9 3E A0 E8 SMS R0,CPLSLIP ;スリップフラグ”ＯＮ” 1976 ; 1977 ;---------------------------------------------------------------- 1978 ;- 加速 - 1979 ;---------------------------------------------------------------- 1980 CR_KEY_1700 1981 S000CAC 3D A0 7D LMS R0,CPLBGNO 1982 S000CAF 4D SWAP ;ＢＧタイプ ×（（２＋２）×１６） 1983 S000CB0 03 LSR ; 1984 S000CB1 03 LSR ; 1985 S000CB2 17 TO R7 1986 S000CB3 C4 OR R4 ;[ ＯＲ（移動向き） ] 1987 S000CB4 3D A0 5B LMS R0,CPLANGL 1988 S000CB7 3F 7F BIC #0FH ;[ AND #0FFF0H ] 1989 S000CB9 03 LSR 1990 S000CBA 03 LSR 1991 S000CBB 17 TO R7 ;(R7) <-- 加速データポインター 1992 S000CBC C7 OR R7 1993 ; 1994 S000CBD 3D A0 6C LMS R0,CPLDASH 1995 S000CC0 E0 DEC R0 1996 S000CC1 0B 09' BMI CR_KEY_1702+1 ;溜めダッシュ？ ( no:CR_KEY_1702+1 ) 1997 1998 S000CC3 F0 0000" IWT R0,#CAR_MAX_DASH 1999 S000CC6 1E TO R14 ;(R14) <-- 溜めダッシュＭＡＸスピードデータポインター 2000 S000CC7 54 ADD R4 2001 S000CC8 05 07' BRA CR_KEY_1704+1 2002 S000CCA EF GETB 2003 2004 CR_KEY_1702 2005 S000CCB F0 0000" IWT R0,#MAX_SPEED 2006 S000CCE 1E TO R14 ;(R14) <-- ＭＡＸスピードデータポインター 2007 S000CCF 57 ADD R7 2008 ; 2009 CR_KEY_1704 2010 S000CD0 EF GETB 2011 S000CD1 DE INC R14 2012 S000CD2 18 TO R8 ;(R8) <-- ＭＡＸスピード 2013 S000CD3 3D EF GETBH 2014 ; 2015 S000CD5 3D A0 5A LMS R0,CPLMVSP ;(R0) <-- 移動スピード 2016 S000CD8 68 SUB R8 2017 S000CD9 09 45' BEQ CR_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:CR_KEY_1850 ) 2018 S000CDB 01 NOP 2019 ; 2020 S000CDC 3D C8 XOR R8 2021 S000CDE 0A 40' BPL CR_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:CR_KEY_1850 ) 2022 S000CE0 01 NOP 2023 ; 2024 S000CE1 3D A0 E8 LMS R0,CPLSLIP 2025 S000CE4 9E LOB 2026 S000CE5 09 02' BEQ CR_KEY_1710 ;スリップ？ ( no:CR_KEY_1710 ) 2027 S000CE7 01 NOP 2028 ; 2029 S000CE8 D7 INC R7 2030 CR_KEY_1710 2031 S000CE9 F0 0000" IWT R0,#ADD_SPEED 2032 S000CEC 57 ADD R7 2033 S000CED 1E TO R14 2034 S000CEE 57 ADD R7 2035 S000CEF EF GETB 2036 S000CF0 DE INC R14 2037 S000CF1 3D EF GETBH 2038 ; 2039 S000CF3 3D A7 5A LMS R7,CPLMVSP 2040 S000CF6 57 ADD R7 2041 S000CF7 90 SBK ;[ SMS R0,CPLMVSP ] 2042 ; 2043 CR_KEY_1720 2044 mRTS 2044+ S000CF8 9B JMP R11 2044+ S000CF9 01 NOP 2045 ; 2046 ;---------------------------------------------------------------- 2047 ;- 減速 - 2048 ;---------------------------------------------------------------- 2049 CR_KEY_1800 2050 S000CFA 3D A0 60 LMS R0,CPLJUMP 2051 S000CFD 3E 60 SUB #0 2052 S000CFF 09 1F' BEQ CR_KEY_1850 ;ジャンプ中？ ( no:CR_KEY_1850 ) 2053 S000D01 01 NOP 2054 ; 2055 ;-------------------------------------------------------- 2056 ;- ジャンプ中の減速 - 2057 ;-------------------------------------------------------- 2058 S000D02 FE 0000" IWT R14,#MAX_SPEED ;(R14) <-- ＭＡＸスピードデータポインター 2059 S000D05 3D A0 5A LMS R0,CPLMVSP 2060 S000D08 3E 60 SUB #0 2061 S000D0A 0A 03' BPL CR_KEY_1810 2062 S000D0C 01 NOP 2063 ; 2064 S000D0D DE INC R14 2065 S000D0E DE INC R14 2066 CR_KEY_1810 2067 S000D0F 18 TO R8 2068 S000D10 EF GETB 2069 S000D11 DE INC R14 2070 S000D12 28 WITH R8 2071 S000D13 3D EF GETBH 2072 ; 2073 S000D15 68 SUB R8 2074 S000D16 09 08' BEQ CR_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:CR_KEY_1850 ) 2075 S000D18 01 NOP 2076 ; 2077 S000D19 3D C8 XOR R8 2078 S000D1B 0A 03' BPL CR_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:CR_KEY_1850 ) 2079 S000D1D 01 NOP 2080 ; 2081 mRTS 2081+ S000D1E 9B JMP R11 2081+ S000D1F 01 NOP 2082 ; 2083 ;-------------------------------------------------------- 2084 ;- 着地中の減速 - 2085 ;-------------------------------------------------------- 2086 CR_KEY_1850 2087 S000D20 3D A0 7D LMS R0,CPLBGNO 2088 S000D23 4D SWAP ;ＢＧタイプ ×（２×１６） 2089 S000D24 03 LSR ; 2090 S000D25 03 LSR ; 2091 S000D26 17 TO R7 ; 2092 S000D27 03 LSR ; 2093 S000D28 3D A0 5B LMS R0,CPLANGL 2094 S000D2B 3F 7F BIC #0FH ;[ AND #0FFF0H ] 2095 S000D2D 03 LSR 2096 S000D2E 03 LSR 2097 S000D2F 03 LSR 2098 S000D30 14 TO R4 ;(R4) <-- 減速データポインター 2099 S000D31 C7 OR R7 2100 S000D32 F0 0000" IWT R0,#MIN_SPEED 2101 S000D35 1E TO R14 2102 S000D36 54 ADD R4 2103 S000D37 EF GETB 2104 S000D38 DE INC R14 2105 S000D39 17 TO R7 ;(R7) <-- ＭＩＮスピード 2106 S000D3A 3D EF GETBH 2107 ; 2108 S000D3C 3D A8 5A LMS R8,CPLMVSP ;(R8) <-- 移動スピード 2109 S000D3F B8 FROM R8 2110 S000D40 67 SUB R7 2111 S000D41 0A 02' BPL CR_KEY_1860 2112 S000D43 01 NOP 2113 ; 2114 S000D44 D4 INC R4 2115 CR_KEY_1860 2116 S000D45 F0 0000" IWT R0,#SUB_SPEED 2117 S000D48 54 ADD R4 2118 S000D49 1E TO R14 2119 S000D4A 54 ADD R4 2120 S000D4B EF GETB 2121 S000D4C DE INC R14 2122 S000D4D 3D EF GETBH 2123 S000D4F 20 14 MOVE R4,R0 ;(R4) <-- 減速値 2124 ; 2125 S000D51 58 ADD R8 2126 S000D52 20 18 MOVE R8,R0 2127 S000D54 67 SUB R7 2128 S000D55 3D C4 XOR R4 2129 S000D57 0B 06' BMI CR_KEY_1870 ;ＭＩＮスピードオーバー？ ( no:CR_KEY_1870 ) 2130 S000D59 60 SUB R0 2131 ; 2132 S000D5A 3E A0 66 SMS R0,CPLSTOP 2133 S000D5D 27 18 MOVE R8,R7 2134 ; 2135 CR_KEY_1870 2136 S000D5F 3E A8 5A SMS R8,CPLMVSP 2137 mRTS 2137+ S000D62 9B JMP R11 2137+ S000D63 01 NOP 2138 ; 2139 ;************************************************************************ 2140 ;* * 2141 ;* パターンＮｏ．セット * 2142 ;* * 2143 ;************************************************************************ 2144 ; 2145 CR_PATN 2146 ; 2147 ;-------------- ジャンプパターンセット -------------------------------- 2148 S000D64 3D A0 60 LMS R0,CPLJUMP 2149 S000D67 9E LOB 2150 ;;;;;;;; BEQ CR_PATN_0200 ;ジャンプ中? ( no:BP_PATN_0200 ) 2151 ;;;;;;;; NOP 2152 ;;;;;;;; 2153 ;;;;;;;; mDJMP CR_PATN_0500 2154 S000D68 08 34' BNE CR_PATN_0500 2155 S000D6A 01 NOP 2156 ; 2157 ;-------------- 止まっている時のパターンセット ------------------------ 2158 CR_PATN_0200 2159 S000D6B 3D A0 66 LMS R0,CPLSTOP 2160 S000D6E 9E LOB 2161 S000D6F 09 08' BEQ CR_PATN_0380 ;止まってる? ( yes:BP_PATN_0380 ) 2162 S000D71 01 NOP 2163 2164 S000D72 3D A0 6E LMS R0,CPSPUSH 2165 S000D75 9E LOB 2166 S000D76 09 07' BEQ CR_PATN_0400 ;壁を押してる? ( no:CR_PATN_0400 ) 2167 S000D78 01 NOP 2168 2169 CR_PATN_0380 2170 S000D79 F0 0080 IWT R0,#00080H 2171 S000D7C 05 0E' BRA CR_PATN_0410 2172 S000D7E 01 NOP 2173 2174 CR_PATN_0400 2175 S000D7F 3D A0 5A LMS R0,CPLMVSP 2176 S000D82 3E 60 SUB #0 2177 S000D84 09 F3' BEQ CR_PATN_0380 ;止まってる? ( yes:BP_PATN_0380 ) 2178 S000D86 01 NOP 2179 2180 S000D87 0A 03' BPL CR_PATN_0410 2181 S000D89 01 NOP 2182 2183 S000D8A 4F NOT 2184 S000D8B D0 INC R0 2185 2186 CR_PATN_0410 2187 S000D8C 3D A3 7C LMS R3,CPLWALK 2188 S000D8F F2 0800 IWT R2,#00800H 2189 S000D92 3D A1 C8 LMS R1,CCARCT0 2190 S000D95 51 ADD R1 2191 S000D96 62 SUB R2 2192 S000D97 0B 04' BMI CR_PATN_0420 ;パターンチェンジ? ( no: CR_PATN_0420 ) 2193 S000D99 52 ADD R2 2194 2195 S000D9A 62 SUB R2 2196 S000D9B D3 INC R3 2197 S000D9C D3 INC R3 2198 2199 CR_PATN_0420 2200 S000D9D 90 SBK 2201 2202 CR_PATN_0500 2203 S000D9E F2 016B IWT R2,#CA00 2204 S000DA1 3D A0 89 LMS R0,CPLFTLN 2205 S000DA4 9E LOB 2206 S000DA5 09 15' BEQ CR_PATN_0800 ;足伸びてる? ( no:CR_PATN_0800 ) 2207 S000DA7 01 NOP 2208 2209 S000DA8 F2 016C IWT R2,#CA01 2210 2211 S000DAB B3 FROM R3 2212 S000DAC 3E 72 AND #02 2213 S000DAE 09 04' BEQ CR_PATN_0600 2214 S000DB0 01 NOP 2215 2216 S000DB1 F2 016D IWT R2,#CA02 2217 2218 CR_PATN_0600 2219 S000DB4 3E A2 5F SMS R2,CPLPATN 2220 S000DB7 3E A0 7C SMS R0,CPLWALK 2221 2222 mRTS 2222+ S000DBA 9B JMP R11 2222+ S000DBB 01 NOP 2223 2224 CR_PATN_0800 2225 S000DBC 3E A2 5F SMS R2,CPLPATN 2226 2227 S000DBF B3 FROM R3 2228 S000DC0 3E 72 AND #02 2229 S000DC2 3E A0 7C SMS R0,CPLWALK 2230 2231 mRTS 2231+ S000DC5 9B JMP R11 2231+ S000DC6 01 NOP 2232 ; 2233 ;**************************************************************** 2234 ;* コインまたぎ処理 * 2235 ;**************************************************************** 2236 CAR_COIN_GET 2237 S000DC7 3E AB 31 SMS R11,RTS1 ;[ return address save ] 2238 ; 2239 S000DCA A1 10 IBT R1,#CEMOVE 2240 S000DCC F2 0F00 IWT R2,#CENMODE 2241 S000DCF F3 1360 IWT R3,#CENMYNO 2242 S000DD2 F4 1CD6 IWT R4,#CECENTX 2243 S000DD5 F5 1BB6 IWT R5,#CEWIDEX 2244 ; 2245 S000DD8 3D A6 8E LMS R6,CPCENTX 2246 S000DDB 3D A7 8F LMS R7,CPCENTY 2247 S000DDE 3D A8 89 LMS R8,CPLFTLN 2248 ; 2249 S000DE1 AC 18 IBT R12,#CENNO 2250 S000DE3 02 CACHE 2251 S000DE4 2F 1D MOVE R13,R15 2252 2253 S000DE6 42 LDW (R2) ;生きてる ? 2254 S000DE7 61 SUB R1 ; 2255 S000DE8 08 4E' BNE CAR_C_G0800 ; no: CAR_C_G0800 2256 S000DEA D2 INC R2 2257 2258 S000DEB 19 TO R9 ;R9 <- EWIDEX 2259 S000DEC 45 LDW (R5) ; 2260 S000DED B9 FROM R9 ;R10 <- CMP DATA 2261 S000DEE 1A TO R10 ; 2262 S000DEF 59 ADD R9 ; 2263 2264 S000DF0 44 LDW (R4) ;横あたりＯＫ ? 2265 S000DF1 66 SUB R6 ; 2266 S000DF2 59 ADD R9 ; 2267 S000DF3 3F 6A CMP R10 ; 2268 S000DF5 0D 41' BCS CAR_C_G0800 ; no: CAR_C_G0800 2269 S000DF7 01 NOP 2270 2271 S000DF8 D5 INC R5 2272 S000DF9 D5 INC R5 2273 S000DFA D4 INC R4 2274 S000DFB D4 INC R4 2275 2276 S000DFC 45 LDW (R5) ; 2277 S000DFD 19 TO R9 ;R9 <- EWIDEY 2278 S000DFE 58 ADD R8 2279 2280 S000DFF 44 LDW (R4) ;縦あたりＯＫ ? 2281 S000E00 E5 DEC R5 ; 2282 S000E01 E5 DEC R5 ; 2283 S000E02 E4 DEC R4 ; 2284 S000E03 67 SUB R7 ; 2285 S000E04 3F 69 CMP R9 ; 2286 S000E06 0D 30' BCS CAR_C_G0800 ; no: CAR_C_G0800 2287 S000E08 E4 DEC R4 ; 2288 2289 S000E09 19 TO R9 2290 S000E0A 43 LDW (R3) 2291 S000E0B F0 0000" IWT R0,#COIN1 2292 S000E0E 3F 69 CMP R9 2293 S000E10 09 19' BEQ CAR_C_G0100 2294 S000E12 01 NOP 2295 2296 S000E13 F0 0000" IWT R0,#COINR 2297 S000E16 3F 69 CMP R9 2298 S000E18 09 11' BEQ CAR_C_G0100 2299 S000E1A 01 NOP 2300 2301 S000E1B F0 0000" IWT R0,#ZFLWR 2302 S000E1E 3F 69 CMP R9 2303 S000E20 09 09' BEQ CAR_C_G0100 2304 S000E22 01 NOP 2305 2306 S000E23 F0 0000" IWT R0,#ZFLW2 2307 S000E26 3F 69 CMP R9 2308 S000E28 08 0E' BNE CAR_C_G0800 2309 S000E2A 01 NOP 2310 2311 CAR_C_G0100 2312 S000E2B F0 0018 IWT R0,#CENNO 2313 S000E2E 6C SUB R12 2314 S000E2F 50 ADD R0 2315 S000E30 50 ADD R0 2316 S000E31 3E A0 00 SMS R0,CWORK0 2317 2318 mSFCALL GET_POINT 2318+ S000E34 A0 1C IBT R0,#GET_POINT 2318+ S000E36 00 STOP 2318+ S000E37 01 NOP 2319 2320 CAR_C_G0800 2321 S000E38 A0 04 IBT R0,#04 2322 S000E3A 23 WITH R3 2323 S000E3B 50 ADD R0 2324 S000E3C 24 WITH R4 2325 S000E3D 50 ADD R0 2326 S000E3E 25 WITH R5 2327 S000E3F 50 ADD R0 2328 S000E40 D2 INC R2 2329 S000E41 D2 INC R2 2330 S000E42 3C LOOP 2331 S000E43 D2 INC R2 2332 2333 S000E44 3D AB 31 LMS R11,RTS1 2334 mRTS 2334+ S000E47 9B JMP R11 2334+ S000E48 01 NOP 2335 ; 2336 ; 2337 ; 2338 ; 2339 ; 2340 END