File : ys_chip5.asm SUPER-FX ASSEMBLER $Ver 1.01 Wed Jul 5 09:46:34 1995 Page 0001 1 ;************************************************************************ 2 ;* * 3 ;* title name : "yossy" * 4 ;* proccess : mario chip program.5 * 5 ;* file name : ys_chip5 * 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 GLB WSIN,WCOS 22 ; 23 GLB SPARK_XSPD,SPARK_YSPD,SPARK_NEXT,SPARK_ANG 24 GLB SPARK_XREV,SPARK_YREV 25 GLB SPARK_XSPD3,SPARK_YSPD3,SPARK_ANG3 26 GLB SPARK_XREV3,SPARK_YREV3 27 GLB SPARK_BGCKXP,SPARK_BGCKYP,SPARK_BGCKXP2,SPARK_BGCKYP2 28 GLB SPARK_BGCKDT_SK 29 GLB SPARK_RET_XREV,SPARK_RET_YREV 30 ; 31 ;------------------------------------------------------------------------ 32 ;- extern symbol - 33 ;------------------------------------------------------------------------ 34 ; 35 ;-------------< ys_chip0 >----------------------------------------------- 36 EXT COS,SIN,LCOS,LSIN 37 ; 38 ;-------------< ys_chip2 >----------------------------------------------- 39 ; 40 ;-------------< ys_mpldt >----------------------------------------------- 41 EXT M_TAN 42 ; 43 ;-------------< ys_mplay0 >----------------------------------------------- 44 EXT M_RAD_GET_S 45 ; 46 ; 47 ;************************************************************************ 48 ;* * 49 ;* program start * 50 ;* * 51 ;************************************************************************ 52 ; 53 ; 54 Group_F GROUP S_chip_5 55 S_chip_5 SECT REL 56 ; 57 ; 58 ;************************************************************************ 59 ;* cos data * 60 ;************************************************************************ 61 000000 WCOS EQU $ 62 S000000 0100 0100 0100 WORD 00100H,00100H,00100H,00100H,00100H,00100H,000FFH,000FFH S000006 0100 0100 0100 S00000C 00FF 00FF 63 S000010 00FF 00FE 00FE WORD 000FFH,000FEH,000FEH,000FEH,000FDH,000FDH,000FCH,000FCH S000016 00FE 00FD 00FD S00001C 00FC 00FC 64 S000020 00FB 00FA 00FA WORD 000FBH,000FAH,000FAH,000F9H,000F8H,000F8H,000F7H,000F6H S000026 00F9 00F8 00F8 S00002C 00F7 00F6 65 S000030 00F5 00F4 00F3 WORD 000F5H,000F4H,000F3H,000F2H,000F1H,000F0H,000EFH,000EEH S000036 00F2 00F1 00F0 S00003C 00EF 00EE 66 S000040 00ED 00EB 00EA WORD 000EDH,000EBH,000EAH,000E9H,000E7H,000E6H,000E5H,000E3H S000046 00E9 00E7 00E6 S00004C 00E5 00E3 67 S000050 00E2 00E0 00DF WORD 000E2H,000E0H,000DFH,000DDH,000DCH,000DAH,000D8H,000D7H S000056 00DD 00DC 00DA S00005C 00D8 00D7 68 S000060 00D5 00D3 00D1 WORD 000D5H,000D3H,000D1H,000CFH,000CEH,000CCH,000CAH,000C8H S000066 00CF 00CE 00CC S00006C 00CA 00C8 69 S000070 00C6 00C4 00C2 WORD 000C6H,000C4H,000C2H,000C0H,000BEH,000BCH,000B9H,000B7H S000076 00C0 00BE 00BC S00007C 00B9 00B7 70 S000080 00B5 00B3 00B1 WORD 000B5H,000B3H,000B1H,000AEH,000ACH,000AAH,000A7H,000A5H S000086 00AE 00AC 00AA S00008C 00A7 00A5 71 S000090 00A2 00A0 009D WORD 000A2H,000A0H,0009DH,0009BH,00098H,00096H,00093H,00091H S000096 009B 0098 0096 S00009C 0093 0091 72 S0000A0 008E 008C 0089 WORD 0008EH,0008CH,00089H,00086H,00084H,00081H,0007EH,0007BH S0000A6 0086 0084 0081 S0000AC 007E 007B 73 S0000B0 0079 0076 0073 WORD 00079H,00076H,00073H,00070H,0006DH,0006BH,00068H,00065H S0000B6 0070 006D 006B S0000BC 0068 0065 74 S0000C0 0062 005F 005C WORD 00062H,0005FH,0005CH,00059H,00056H,00053H,00050H,0004DH S0000C6 0059 0056 0053 S0000CC 0050 004D 75 S0000D0 004A 0047 0044 WORD 0004AH,00047H,00044H,00041H,0003EH,0003BH,00038H,00035H S0000D6 0041 003E 003B S0000DC 0038 0035 76 S0000E0 0032 002F 002C WORD 00032H,0002FH,0002CH,00029H,00026H,00022H,0001FH,0001CH S0000E6 0029 0026 0022 S0000EC 001F 001C 77 S0000F0 0019 0016 0013 WORD 00019H,00016H,00013H,00010H,0000DH,00009H,00006H,00003H S0000F6 0010 000D 0009 S0000FC 0006 0003 78 ; 79 000100 WSIN EQU $ 80 S000100 0000 FFFD FFFA WORD 00000H,0FFFDH,0FFFAH,0FFF7H,0FFF3H,0FFF0H,0FFEDH,0FFEAH S000106 FFF7 FFF3 FFF0 S00010C FFED FFEA 81 S000110 FFE7 FFE4 FFE1 WORD 0FFE7H,0FFE4H,0FFE1H,0FFDEH,0FFDAH,0FFD7H,0FFD4H,0FFD1H S000116 FFDE FFDA FFD7 S00011C FFD4 FFD1 82 S000120 FFCE FFCB FFC8 WORD 0FFCEH,0FFCBH,0FFC8H,0FFC5H,0FFC2H,0FFBFH,0FFBCH,0FFB9H S000126 FFC5 FFC2 FFBF S00012C FFBC FFB9 83 S000130 FFB6 FFB3 FFB0 WORD 0FFB6H,0FFB3H,0FFB0H,0FFADH,0FFAAH,0FFA7H,0FFA4H,0FFA1H S000136 FFAD FFAA FFA7 S00013C FFA4 FFA1 84 S000140 FF9E FF9B FF98 WORD 0FF9EH,0FF9BH,0FF98H,0FF95H,0FF93H,0FF90H,0FF8DH,0FF8AH S000146 FF95 FF93 FF90 S00014C FF8D FF8A 85 S000150 FF87 FF85 FF82 WORD 0FF87H,0FF85H,0FF82H,0FF7FH,0FF7CH,0FF7AH,0FF77H,0FF74H S000156 FF7F FF7C FF7A S00015C FF77 FF74 86 S000160 FF72 FF6F FF6D WORD 0FF72H,0FF6FH,0FF6DH,0FF6AH,0FF68H,0FF65H,0FF63H,0FF60H S000166 FF6A FF68 FF65 S00016C FF63 FF60 87 S000170 FF5E FF5B FF59 WORD 0FF5EH,0FF5BH,0FF59H,0FF56H,0FF54H,0FF52H,0FF4FH,0FF4DH S000176 FF56 FF54 FF52 S00017C FF4F FF4D 88 S000180 FF4B FF49 FF47 WORD 0FF4BH,0FF49H,0FF47H,0FF44H,0FF42H,0FF40H,0FF3EH,0FF3CH S000186 FF44 FF42 FF40 S00018C FF3E FF3C 89 S000190 FF3A FF38 FF36 WORD 0FF3AH,0FF38H,0FF36H,0FF34H,0FF32H,0FF31H,0FF2FH,0FF2DH S000196 FF34 FF32 FF31 S00019C FF2F FF2D 90 S0001A0 FF2B FF29 FF28 WORD 0FF2BH,0FF29H,0FF28H,0FF26H,0FF24H,0FF23H,0FF21H,0FF20H S0001A6 FF26 FF24 FF23 S0001AC FF21 FF20 91 S0001B0 FF1E FF1D FF1B WORD 0FF1EH,0FF1DH,0FF1BH,0FF1AH,0FF19H,0FF17H,0FF16H,0FF15H S0001B6 FF1A FF19 FF17 S0001BC FF16 FF15 92 S0001C0 FF13 FF12 FF11 WORD 0FF13H,0FF12H,0FF11H,0FF10H,0FF0FH,0FF0EH,0FF0DH,0FF0CH S0001C6 FF10 FF0F FF0E S0001CC FF0D FF0C 93 S0001D0 FF0B FF0A FF09 WORD 0FF0BH,0FF0AH,0FF09H,0FF08H,0FF08H,0FF07H,0FF06H,0FF06H S0001D6 FF08 FF08 FF07 S0001DC FF06 FF06 94 S0001E0 FF05 FF04 FF04 WORD 0FF05H,0FF04H,0FF04H,0FF03H,0FF03H,0FF02H,0FF02H,0FF02H S0001E6 FF03 FF03 FF02 S0001EC FF02 FF02 95 S0001F0 FF01 FF01 FF01 WORD 0FF01H,0FF01H,0FF01H,0FF00H,0FF00H,0FF00H,0FF00H,0FF00H S0001F6 FF00 FF00 FF00 S0001FC FF00 FF00 96 S000200 FF00 FF00 FF00 WORD 0FF00H,0FF00H,0FF00H,0FF00H,0FF00H,0FF00H,0FF01H,0FF01H S000206 FF00 FF00 FF00 S00020C FF01 FF01 97 S000210 FF01 FF02 FF02 WORD 0FF01H,0FF02H,0FF02H,0FF02H,0FF03H,0FF03H,0FF04H,0FF04H S000216 FF02 FF03 FF03 S00021C FF04 FF04 98 S000220 FF05 FF06 FF06 WORD 0FF05H,0FF06H,0FF06H,0FF07H,0FF08H,0FF08H,0FF09H,0FF0AH S000226 FF07 FF08 FF08 S00022C FF09 FF0A 99 S000230 FF0B FF0C FF0D WORD 0FF0BH,0FF0CH,0FF0DH,0FF0EH,0FF0FH,0FF10H,0FF11H,0FF12H S000236 FF0E FF0F FF10 S00023C FF11 FF12 100 S000240 FF13 FF15 FF16 WORD 0FF13H,0FF15H,0FF16H,0FF17H,0FF19H,0FF1AH,0FF1BH,0FF1DH S000246 FF17 FF19 FF1A S00024C FF1B FF1D 101 S000250 FF1E FF20 FF21 WORD 0FF1EH,0FF20H,0FF21H,0FF23H,0FF24H,0FF26H,0FF28H,0FF29H S000256 FF23 FF24 FF26 S00025C FF28 FF29 102 S000260 FF2B FF2D FF2F WORD 0FF2BH,0FF2DH,0FF2FH,0FF31H,0FF32H,0FF34H,0FF36H,0FF38H S000266 FF31 FF32 FF34 S00026C FF36 FF38 103 S000270 FF3A FF3C FF3E WORD 0FF3AH,0FF3CH,0FF3EH,0FF40H,0FF42H,0FF44H,0FF47H,0FF49H S000276 FF40 FF42 FF44 S00027C FF47 FF49 104 S000280 FF4B FF4D FF4F WORD 0FF4BH,0FF4DH,0FF4FH,0FF52H,0FF54H,0FF56H,0FF59H,0FF5BH S000286 FF52 FF54 FF56 S00028C FF59 FF5B 105 S000290 FF5E FF60 FF63 WORD 0FF5EH,0FF60H,0FF63H,0FF65H,0FF68H,0FF6AH,0FF6DH,0FF6FH S000296 FF65 FF68 FF6A S00029C FF6D FF6F 106 S0002A0 FF72 FF74 FF77 WORD 0FF72H,0FF74H,0FF77H,0FF7AH,0FF7CH,0FF7FH,0FF82H,0FF85H S0002A6 FF7A FF7C FF7F S0002AC FF82 FF85 107 S0002B0 FF87 FF8A FF8D WORD 0FF87H,0FF8AH,0FF8DH,0FF90H,0FF93H,0FF95H,0FF98H,0FF9BH S0002B6 FF90 FF93 FF95 S0002BC FF98 FF9B 108 S0002C0 FF9E FFA1 FFA4 WORD 0FF9EH,0FFA1H,0FFA4H,0FFA7H,0FFAAH,0FFADH,0FFB0H,0FFB3H S0002C6 FFA7 FFAA FFAD S0002CC FFB0 FFB3 109 S0002D0 FFB6 FFB9 FFBC WORD 0FFB6H,0FFB9H,0FFBCH,0FFBFH,0FFC2H,0FFC5H,0FFC8H,0FFCBH S0002D6 FFBF FFC2 FFC5 S0002DC FFC8 FFCB 110 S0002E0 FFCE FFD1 FFD4 WORD 0FFCEH,0FFD1H,0FFD4H,0FFD7H,0FFDAH,0FFDEH,0FFE1H,0FFE4H S0002E6 FFD7 FFDA FFDE S0002EC FFE1 FFE4 111 S0002F0 FFE7 FFEA FFED WORD 0FFE7H,0FFEAH,0FFEDH,0FFF0H,0FFF3H,0FFF7H,0FFFAH,0FFFDH S0002F6 FFF0 FFF3 FFF7 S0002FC FFFA FFFD 112 S000300 0000 0003 0006 WORD 00000H,00003H,00006H,00009H,0000DH,00010H,00013H,00016H S000306 0009 000D 0010 S00030C 0013 0016 113 S000310 0019 001C 001F WORD 00019H,0001CH,0001FH,00022H,00026H,00029H,0002CH,0002FH S000316 0022 0026 0029 S00031C 002C 002F 114 S000320 0032 0035 0038 WORD 00032H,00035H,00038H,0003BH,0003EH,00041H,00044H,00047H S000326 003B 003E 0041 S00032C 0044 0047 115 S000330 004A 004D 0050 WORD 0004AH,0004DH,00050H,00053H,00056H,00059H,0005CH,0005FH S000336 0053 0056 0059 S00033C 005C 005F 116 S000340 0062 0065 0068 WORD 00062H,00065H,00068H,0006BH,0006DH,00070H,00073H,00076H S000346 006B 006D 0070 S00034C 0073 0076 117 S000350 0079 007B 007E WORD 00079H,0007BH,0007EH,00081H,00084H,00086H,00089H,0008CH S000356 0081 0084 0086 S00035C 0089 008C 118 S000360 008E 0091 0093 WORD 0008EH,00091H,00093H,00096H,00098H,0009BH,0009DH,000A0H S000366 0096 0098 009B S00036C 009D 00A0 119 S000370 00A2 00A5 00A7 WORD 000A2H,000A5H,000A7H,000AAH,000ACH,000AEH,000B1H,000B3H S000376 00AA 00AC 00AE S00037C 00B1 00B3 120 S000380 00B5 00B7 00B9 WORD 000B5H,000B7H,000B9H,000BCH,000BEH,000C0H,000C2H,000C4H S000386 00BC 00BE 00C0 S00038C 00C2 00C4 121 S000390 00C6 00C8 00CA WORD 000C6H,000C8H,000CAH,000CCH,000CEH,000CFH,000D1H,000D3H S000396 00CC 00CE 00CF S00039C 00D1 00D3 122 S0003A0 00D5 00D7 00D8 WORD 000D5H,000D7H,000D8H,000DAH,000DCH,000DDH,000DFH,000E0H S0003A6 00DA 00DC 00DD S0003AC 00DF 00E0 123 S0003B0 00E2 00E3 00E5 WORD 000E2H,000E3H,000E5H,000E6H,000E7H,000E9H,000EAH,000EBH S0003B6 00E6 00E7 00E9 S0003BC 00EA 00EB 124 S0003C0 00ED 00EE 00EF WORD 000EDH,000EEH,000EFH,000F0H,000F1H,000F2H,000F3H,000F4H S0003C6 00F0 00F1 00F2 S0003CC 00F3 00F4 125 S0003D0 00F5 00F6 00F7 WORD 000F5H,000F6H,000F7H,000F8H,000F8H,000F9H,000FAH,000FAH S0003D6 00F8 00F8 00F9 S0003DC 00FA 00FA 126 S0003E0 00FB 00FC 00FC WORD 000FBH,000FCH,000FCH,000FDH,000FDH,000FEH,000FEH,000FEH S0003E6 00FD 00FD 00FE S0003EC 00FE 00FE 127 S0003F0 00FF 00FF 00FF WORD 000FFH,000FFH,000FFH,00100H,00100H,00100H,00100H,00100H S0003F6 0100 0100 0100 S0003FC 0100 0100 128 S000400 0100 0100 0100 WORD 00100H,00100H,00100H,00100H,00100H,00100H,000FFH,000FFH S000406 0100 0100 0100 S00040C 00FF 00FF 129 S000410 00FF 00FE 00FE WORD 000FFH,000FEH,000FEH,000FEH,000FDH,000FDH,000FCH,000FCH S000416 00FE 00FD 00FD S00041C 00FC 00FC 130 S000420 00FB 00FA 00FA WORD 000FBH,000FAH,000FAH,000F9H,000F8H,000F8H,000F7H,000F6H S000426 00F9 00F8 00F8 S00042C 00F7 00F6 131 S000430 00F5 00F4 00F3 WORD 000F5H,000F4H,000F3H,000F2H,000F1H,000F0H,000EFH,000EEH S000436 00F2 00F1 00F0 S00043C 00EF 00EE 132 S000440 00ED 00EB 00EA WORD 000EDH,000EBH,000EAH,000E9H,000E7H,000E6H,000E5H,000E3H S000446 00E9 00E7 00E6 S00044C 00E5 00E3 133 S000450 00E2 00E0 00DF WORD 000E2H,000E0H,000DFH,000DDH,000DCH,000DAH,000D8H,000D7H S000456 00DD 00DC 00DA S00045C 00D8 00D7 134 S000460 00D5 00D3 00D1 WORD 000D5H,000D3H,000D1H,000CFH,000CEH,000CCH,000CAH,000C8H S000466 00CF 00CE 00CC S00046C 00CA 00C8 135 S000470 00C6 00C4 00C2 WORD 000C6H,000C4H,000C2H,000C0H,000BEH,000BCH,000B9H,000B7H S000476 00C0 00BE 00BC S00047C 00B9 00B7 136 S000480 00B5 00B3 00B1 WORD 000B5H,000B3H,000B1H,000AEH,000ACH,000AAH,000A7H,000A5H S000486 00AE 00AC 00AA S00048C 00A7 00A5 137 S000490 00A2 00A0 009D WORD 000A2H,000A0H,0009DH,0009BH,00098H,00096H,00093H,00091H S000496 009B 0098 0096 S00049C 0093 0091 138 S0004A0 008E 008C 0089 WORD 0008EH,0008CH,00089H,00086H,00084H,00081H,0007EH,0007BH S0004A6 0086 0084 0081 S0004AC 007E 007B 139 S0004B0 0079 0076 0073 WORD 00079H,00076H,00073H,00070H,0006DH,0006BH,00068H,00065H S0004B6 0070 006D 006B S0004BC 0068 0065 140 S0004C0 0062 005F 005C WORD 00062H,0005FH,0005CH,00059H,00056H,00053H,00050H,0004DH S0004C6 0059 0056 0053 S0004CC 0050 004D 141 S0004D0 004A 0047 0044 WORD 0004AH,00047H,00044H,00041H,0003EH,0003BH,00038H,00035H S0004D6 0041 003E 003B S0004DC 0038 0035 142 S0004E0 0032 002F 002C WORD 00032H,0002FH,0002CH,00029H,00026H,00022H,0001FH,0001CH S0004E6 0029 0026 0022 S0004EC 001F 001C 143 S0004F0 0019 0016 0013 WORD 00019H,00016H,00013H,00010H,0000DH,00009H,00006H,00003H S0004F6 0010 000D 0009 S0004FC 0006 0003 144 ; 145 ;**************************************************************** 146 ;* fuantei yuka check * 147 ;**************************************************************** 148 ;R1 床端Ｘ　ＰＯＳ．＊１００Ｈ 149 ;R2 ｔａｎデータ 150 ;R4 チェックＹ　ＰＯＳ．の上限 151 ;R7 プレイヤーチェックＸ　ＰＯＳ． 152 ;R8 プレイヤーチェックＹ　ＰＯＳ． 153 ;R9 回転角（０〜１００Ｈ） 154 ;R12 範囲チェック用データ 155 ;R13 プレイヤーＯＮフラグ 156 ; 157 000500 M_FYUKA_CHECK EQU $ 158 S000500 A0 00" IBT R0,#BANK SIN 159 S000502 3F DF ROMB 160 161 S000504 F0 0000" IWT R0,#SIN 162 S000507 1E TO R14 163 S000508 59 ADD R9 164 165 S000509 F0 0000" IWT R0,#COS 166 S00050C 1A TO R10 167 S00050D 59 ADD R9 168 169 S00050E EF GETB 170 S00050F DE INC R14 171 S000510 3D EF GETBH 172 173 S000512 20 1B MOVE R11,R0 174 175 S000514 24 16 MOVE R6,R4 ;SIN * Y 176 S000516 15 TO R5 177 S000517 9F FMULT 178 179 S000518 2A 1E MOVE R14,R10 180 181 S00051A EF GETB 182 S00051B DE INC R14 183 S00051C 3D EF GETBH 184 185 S00051E 20 1A MOVE R10,R0 186 187 S000520 21 16 MOVE R6,R1 ;COS * X 188 S000522 9F FMULT 189 S000523 65 SUB R5 ;R0 <- RANGE X POS. 190 S000524 67 SUB R7 ;レンジ外 ? 191 S000525 3D CC XOR R12 ; 192 S000527 0A 2D' BPL F_CHK0800 ; yes: F_CHK0800 193 S000529 60 SUB R0 ; 194 195 S00052A 24 16 MOVE R6,R4 ;R6 <- ( SIN * Y + X' ) 196 S00052C BB FROM R11 197 S00052D 9F FMULT 198 S00052E 57 ADD R7 199 S00052F 9E LOB 200 S000530 16 TO R6 201 S000531 4D SWAP 202 203 S000532 B2 FROM R2 ;R3 <- TAN * Y 204 S000533 13 TO R3 205 S000534 9F FMULT 206 207 S000535 A5 08 IBT R5,#008H 208 209 S000537 24 16 MOVE R6,R4 ;COS * Y 210 S000539 BA FROM R10 211 S00053A 9F FMULT 212 S00053B 63 SUB R3 ;R0 <- CHECK Y POS. 213 S00053C 20 17 MOVE R7,R0 214 215 S00053E 2D BD MOVES R13,R13 ;プレイヤーはすでに乗ってる ? 216 S000540 08 0A' BNE F_CHK0500 ; yes: F_CHK0500 217 S000542 01 NOP 218 219 S000543 68 SUB R8 220 S000544 55 ADD R5 221 S000545 25 WITH R5 222 S000546 55 ADD R5 223 S000547 3F 65 CMP R5 ;床に乗ってる ? 224 S000549 0D 0B' BCS F_CHK0800 ; no: F_CHK0800 225 S00054B 60 SUB R0 226 227 F_CHK0500 228 S00054C 3E A7 1E SMS R7,CWORK1E 229 230 S00054F A0 01 IBT R0,#001 231 S000551 3E A0 1F SMS R0,CWORK1F 232 233 S000554 00 STOP 234 S000555 01 NOP 235 236 F_CHK0800 237 S000556 3E A0 1F SMS R0,CWORK1F 238 239 S000559 00 STOP 240 S00055A 01 NOP 241 ; 242 00055B M_FYUKA_POSCALC EQU $ 243 S00055B A0 00" IBT R0,#BANK SIN 244 S00055D 3F DF ROMB 245 246 S00055F F0 0000" IWT R0,#SIN 247 S000562 1E TO R14 248 S000563 51 ADD R1 249 250 S000564 F0 0000" IWT R0,#COS 251 S000567 1A TO R10 252 S000568 51 ADD R1 253 254 S000569 EF GETB 255 S00056A DE INC R14 256 S00056B 3D EF GETBH 257 258 S00056D 11 TO R1 259 S00056E 9F FMULT 260 261 S00056F 2A 1E MOVE R14,R10 262 263 S000571 EF GETB 264 S000572 DE INC R14 265 S000573 3D EF GETBH 266 267 S000575 9F FMULT 268 269 S000576 00 STOP 270 S000577 01 NOP 271 ; 272 ;**************************************************************** 273 ;* zoom char. vs player check * 274 ;**************************************************************** 275 000578 M_ZOOM_PLCHK EQU $ 276 S000578 9F FMULT 277 S000579 57 ADD R7 278 S00057A 3E A0 1E SMS R0,CWORK1E 279 S00057D 50 ADD R0 280 S00057E D0 INC R0 281 S00057F 3E A0 1C SMS R0,CWORK1C 282 283 S000582 29 16 MOVE R6,R9 284 S000584 B1 FROM R1 285 S000585 9F FMULT 286 S000586 3E A0 1B SMS R0,CWORK1B 287 S000589 58 ADD R8 288 S00058A 53 ADD R3 289 S00058B 3E A0 1F SMS R0,CWORK1F 290 S00058E 50 ADD R0 291 S00058F D0 INC R0 292 S000590 3E A0 1D SMS R0,CWORK1D 293 294 S000593 00 STOP 295 S000594 01 NOP 296 ; 297 ;**************************************************************** 298 ;* enemy 1 point rotation * 299 ;**************************************************************** 300 ;[IN] R1 角度 （　最大１ＦＥ　） 301 ; R6 半径、スカラー量、ｅｔｃ． 302 ; 303 ;[OUT] R0 Ｘ成分 304 ; R1 Ｙ成分 305 ; 306 000595 M_ENMY_1P_ROT EQU $ 307 mJSR M_ENMY_1P_ROT_S 307+ S000595 94 LINK #4 307+ S000596 FF 059C' IWT R15, #M_ENMY_1P_ROT_S 307+ S000599 01 NOP 308 309 S00059A 00 STOP 310 S00059B 01 NOP 311 ; 312 00059C M_ENMY_1P_ROT_S EQU $ 313 S00059C A0 00" IBT R0,#BANK SIN 314 S00059E 3F DF ROMB 315 316 S0005A0 F0 0000" IWT R0,#SIN 317 S0005A3 1E TO R14 318 S0005A4 51 ADD R1 319 320 S0005A5 F0 0000" IWT R0,#COS 321 S0005A8 12 TO R2 322 S0005A9 51 ADD R1 323 324 S0005AA EF GETB 325 S0005AB DE INC R14 326 S0005AC 3D EF GETBH 327 S0005AE 3D 9F LMULT 328 S0005B0 F3 0080 IWT R3,#00080H 329 S0005B3 24 WITH R4 330 S0005B4 53 ADD R3 331 S0005B5 3F 50 ADC #00 332 S0005B7 24 WITH R4 333 S0005B8 C0 HIB 334 S0005B9 9E LOB 335 S0005BA 4D SWAP 336 S0005BB 11 TO R1 337 S0005BC C4 OR R4 338 339 S0005BD 22 1E MOVE R14,R2 340 S0005BF EF GETB 341 S0005C0 DE INC R14 342 S0005C1 3D EF GETBH 343 S0005C3 3D 9F LMULT 344 S0005C5 24 WITH R4 345 S0005C6 53 ADD R3 346 S0005C7 3F 50 ADC #00 347 S0005C9 24 WITH R4 348 S0005CA C0 HIB 349 S0005CB 9E LOB 350 S0005CC 4D SWAP 351 S0005CD C4 OR R4 352 353 mRTS 353+ S0005CE 9B JMP R11 353+ S0005CF 01 NOP 354 ; 355 ;**************************************************************** 356 ;* 水車リフトのＯＡＭセットに関する数値の計算 * 357 ;* * 358 ;* [In] * 359 ;* R1 角度 （　最大１ＦＥ　） * 360 ;* R6 半径 * 361 ;* R9 くさりの数＋１ * 362 ;* [Out] * 363 ;* R7 Ｘ成分 * 364 ;* R8 Ｙ成分 * 365 ;* R9 Ｘ成分 / R9 * 366 ;* R10 Ｙ成分 / R9 * 367 ;* * 368 ;**************************************************************** 369 0005D0 M_MILL0_OAM_CAL EQU $ 370 S0005D0 A0 00" IBT R0,#BANK SIN 371 S0005D2 3F DF ROMB 372 373 S0005D4 F0 0000" IWT R0,#SIN 374 S0005D7 1E TO R14 375 S0005D8 51 ADD R1 376 377 S0005D9 F0 0000" IWT R0,#COS 378 S0005DC 12 TO R2 379 S0005DD 51 ADD R1 380 381 S0005DE EF GETB 382 S0005DF DE INC R14 383 S0005E0 3D EF GETBH 384 S0005E2 3D 9F LMULT 385 S0005E4 24 WITH R4 386 S0005E5 C0 HIB 387 S0005E6 9E LOB 388 S0005E7 4D SWAP 389 S0005E8 18 TO R8 390 S0005E9 C4 OR R4 391 392 S0005EA 22 1E MOVE R14,R2 393 S0005EC EF GETB 394 S0005ED DE INC R14 395 S0005EE 3D EF GETBH 396 S0005F0 3D 9F LMULT 397 S0005F2 24 WITH R4 398 S0005F3 C0 HIB 399 S0005F4 9E LOB 400 S0005F5 4D SWAP 401 S0005F6 17 TO R7 402 S0005F7 C4 OR R4 403 vvv******* warn :value out of range 404 S0005F8 F1 2200 IWT R1,#DIVBUF 405 S0005FB B9 FROM R9 406 S0005FC 16 TO R6 407 S0005FD 59 ADD R9 408 S0005FE 21 WITH R1 409 S0005FF 56 ADD R6 410 411 S000600 16 TO R6 412 S000601 41 LDW (R1) 413 414 S000602 B7 FROM R7 415 S000603 19 TO R9 416 S000604 9F FMULT 417 418 S000605 B8 FROM R8 419 S000606 1A TO R10 420 S000607 9F FMULT 421 422 S000608 00 STOP 423 S000609 01 NOP 424 ;; 425 ;**************************************************************** 426 ;* maruta bashi vs player check * 427 ;**************************************************************** 428 ; 429 ; R2 丸太のＸ　ＰＯＳ．と対象物との距離（丸太の位置インデックス計算用） 430 ; R3 丸太のＸ　ＰＯＳ．と対象物との距離 431 ; R6 丸太のＭＡＸ下げ幅 432 ; R8 対象物のセンターＹ　ＰＯＳ． 433 ; R9 対象物のＹチェック幅 434 ; R10 丸太のＹ　ＰＯＳ． 435 ; 436 ; WRK0 左端の丸太のオフセットＹ　ＰＯＳ． 437 ; WRK1 中左の ” 438 ; WRK2 中右の ” 439 ; WRK2 右端の ” 440 ; WRK1E 丸太のＭＡＸ下げ幅　（両端用） 441 ; WRK1F 丸太のＭＡＸ下げ幅　（中用） 442 ; 443 00060A M_MARUT_CHK EQU $ 444 S00060A FB 0000 IWT R11,#CWORK0 445 S00060D A5 10 IBT R5,#010H 446 447 S00060F A7 F8 IBT R7,#0F8H ;WRK10 <- 何番目の丸太に乗ってるか 448 S000611 B2 FROM R2 ; 449 S000612 77 AND R7 ; 450 S000613 03 LSR ; 451 S000614 03 LSR ; 452 S000615 3E A0 10 SMS R0,CWORK10 ; 453 S000618 5B ADD R11 454 S000619 40 LDW (R0) 455 S00061A 5A ADD R10 456 S00061B 68 SUB R8 457 S00061C 3F 69 CMP R9 ;プレイヤー乗ってる ? 458 S00061E 0A 71' BPL M_MARUT_CHK1000 ; 459 S000620 01 NOP ; 460 ; 461 ; ADD R5 ; 462 ; CMP R9 ; 463 ; BMI M_MARUT_CHK1000 ; no: M_MARUT_CHK1000 464 ; NOP ; 465 ; 466 S000621 59 ADD R9 467 S000622 0B 6D' BMI M_MARUT_CHK1000 468 S000624 01 NOP 469 470 S000625 D1 INC R1 471 472 S000626 3D A0 10 LMS R0,CWORK10 473 S000629 1A TO R10 474 S00062A 3E 72 AND #02 475 S00062C 2B WITH R11 476 S00062D 5A ADD R10 477 478 S00062E 22 WITH R2 479 S00062F 62 SUB R2 480 S000630 3D A8 1E LMS R8,CWORK1E 481 S000633 3D A9 1F LMS R9,CWORK1F 482 S000636 A7 10 IBT R7,#010H 483 S000638 A5 38 IBT R5,#038H 484 S00063A AC 04 IBT R12,#004 485 S00063C 02 CACHE 486 S00063D 2F 1D MOVE R13,R15 487 488 S00063F 20 B3 MOVES R0,R3 ;左側の丸太 ? 489 S000641 0B 03' BMI M_MARUT_CHK0500 ; yes: M_MARUT_CHK0500 490 S000643 01 NOP 491 492 S000644 4F NOT 493 S000645 D0 INC R0 494 495 M_MARUT_CHK0500 496 S000646 55 ADD R5 497 S000647 3D 9F LMULT 498 S000649 24 WITH R4 499 S00064A C0 HIB 500 S00064B 9E LOB 501 S00064C 4D SWAP 502 S00064D C4 OR R4 503 S00064E 3B STW (R11) 504 505 S00064F 23 WITH R3 506 S000650 57 ADD R7 507 508 S000651 22 B2 MOVES R2,R2 ;左端の丸太 ? 509 S000653 08 03' BNE M_MARUT_CHK0600 ; no: M_MARUT_CHK0600 510 S000655 01 NOP 511 512 S000656 29 16 MOVE R6,R9 513 514 M_MARUT_CHK0600 515 S000658 B2 FROM R2 ;右端の丸太 ? 516 S000659 3E 62 SUB #002 ; 517 S00065B 08 03' BNE M_MARUT_CHK0700 ; no: M_MARUT_CHK0700 518 S00065D 01 NOP 519 520 S00065E 28 16 MOVE R6,R8 521 522 M_MARUT_CHK0700 523 S000660 2B WITH R11 524 S000661 3E 54 ADD #04 525 526 S000663 3C LOOP 527 S000664 D2 INC R2 528 529 M_MARUT_CHK0800 530 S000665 BA FROM R10 ;左側補正 ? 531 S000666 3E 60 SUB #0 ; 532 S000668 08 29' BNE M_MARUT_CHK2000 ; no: M_MARUT_CHK2000 533 S00066A 01 NOP 534 535 S00066B 60 SUB R0 536 S00066C 3E A0 08 SMS R0,CWORK8 537 S00066F 3D A2 00 LMS R2,CWORK0 538 S000672 3D A3 02 LMS R3,CWORK2 539 S000675 FA 0008 IWT R10,#CWORK4 540 S000678 FB 0002 IWT R11,#CWORK1 541 542 S00067B AC 04 IBT R12,#004 543 544 S00067D 2F 1D MOVE R13,R15 545 546 S00067F B2 FROM R2 547 S000680 53 ADD R3 548 S000681 03 LSR 549 S000682 3D 3B STB (R11) 550 551 S000684 23 12 MOVE R2,R3 552 S000686 13 TO R3 553 S000687 3D 4A LDB (R10) 554 555 S000689 2A WITH R10 556 S00068A 3E 54 ADD #4 557 S00068C 2B WITH R11 558 S00068D 3E 54 ADD #4 559 560 S00068F 3C LOOP 561 S000690 01 NOP 562 563 M_MARUT_CHK1000 564 565 S000691 00 STOP 566 S000692 01 NOP 567 568 M_MARUT_CHK2000 569 S000693 A2 00 IBT R2,#000 570 S000695 3D A3 01 LMS R3,CWORK1 571 S000698 FA 0006 IWT R10,#CWORK3 572 S00069B FB 0000 IWT R11,#CWORK0 573 574 S00069E AC 04 IBT R12,#004 575 576 S0006A0 2F 1D MOVE R13,R15 577 578 S0006A2 B2 FROM R2 579 S0006A3 53 ADD R3 580 S0006A4 03 LSR 581 S0006A5 3D 3B STB (R11) 582 583 S0006A7 23 12 MOVE R2,R3 584 S0006A9 13 TO R3 585 S0006AA 3D 4A LDB (R10) 586 587 S0006AC 2A WITH R10 588 S0006AD 3E 54 ADD #4 589 S0006AF 2B WITH R11 590 S0006B0 3E 54 ADD #4 591 592 S0006B2 3C LOOP 593 S0006B3 01 NOP 594 595 S0006B4 00 STOP 596 S0006B5 01 NOP 597 ; 598 ;**************************************************************** 599 ;* 掛け算ルーチン ( R0*R6/100H ) * 600 ;* * 601 ;* [In] * 602 ;* R0 * 603 ;* R6 * 604 ;* [Out] * 605 ;* R0 * 606 ;* * 607 ;**************************************************************** 608 0006B6 MULTIPLY EQU $ 609 S0006B6 3D 9F LMULT 610 S0006B8 24 WITH R4 611 S0006B9 C0 HIB 612 S0006BA 9E LOB 613 S0006BB 4D SWAP 614 S0006BC C4 OR R4 615 616 S0006BD 00 STOP 617 S0006BE 01 NOP 618 ; 619 ;**************************************************************** 620 ;* 割り算ルーチン ( R0*(100H/R6) ) * 621 ;* * 622 ;* [In] * 623 ;* R0 * 624 ;* R6 * 625 ;* [Out] * 626 ;* R0 * 627 ;* * 628 ;**************************************************************** 629 0006BF DIVIDE EQU $ vvv******* warn :value out of range 630 S0006BF F1 2200 IWT R1,#DIVBUF 631 S0006C2 26 WITH R6 632 S0006C3 56 ADD R6 633 S0006C4 21 WITH R1 634 S0006C5 56 ADD R6 635 636 S0006C6 16 TO R6 637 S0006C7 41 LDW (R1) 638 639 S0006C8 3D 9F LMULT 640 S0006CA 24 WITH R4 641 S0006CB C0 HIB 642 S0006CC 9E LOB 643 S0006CD 4D SWAP 644 S0006CE C4 OR R4 645 646 S0006CF 00 STOP 647 S0006D0 01 NOP 648 ; 649 ;**************************************************************** 650 ;* * 651 ;* 割合計算ルーチン * 652 ;* * 653 ;* [In] * 654 ;* r1 Ｙスピード * 655 ;* r2 割合計算データ（Ｙｍａｘスピード／４） * 656 ;* r3 １００％の時のデータ * 657 ;* * 658 ;* [Out] * 659 ;* r0 result * 660 ;* * 661 ;**************************************************************** 662 0006D1 M_PERCENT_VALUE EQU $ vvv******* warn :value out of range 663 S0006D1 F0 2200 IWT R0,#DIVBUF 664 S0006D4 52 ADD R2 665 666 S0006D5 16 TO R6 667 S0006D6 40 LDW (R0) 668 669 S0006D7 B1 FROM R1 670 S0006D8 03 LSR 671 S0006D9 03 LSR 672 S0006DA 3D 9F LMULT 673 S0006DC 24 WITH R4 674 S0006DD C0 HIB 675 S0006DE 9E LOB 676 S0006DF 4D SWAP 677 S0006E0 C4 OR R4 678 679 S0006E1 23 16 MOVE R6,R3 680 S0006E3 3D 9F LMULT 681 S0006E5 24 WITH R4 682 S0006E6 C0 HIB 683 S0006E7 9E LOB 684 S0006E8 4D SWAP 685 S0006E9 C4 OR R4 686 687 S0006EA 00 STOP 688 S0006EB 01 NOP 689 ; 690 ;**************************************************************** 691 ;* * 692 ;* バウンドブラザーズ　兄弟補正 * 693 ;* * 694 ;* [In] * 695 ;* r0 どんぶりの直径 * 696 ;* r1 足の位置 * 697 ;* r2 ENYPSL * 698 ;* r6 倍率 * 699 ;* r3 足の長さ * 700 ;* * 701 ;* [Out] * 702 ;* r0 result * 703 ;* * 704 ;**************************************************************** 705 0006EC M_BBROS_B_REV EQU $ 706 S0006EC 3D 9F LMULT 707 S0006EE 24 WITH R4 708 S0006EF C0 HIB 709 S0006F0 9E LOB 710 S0006F1 4D SWAP 711 S0006F2 C4 OR R4 712 S0006F3 4F NOT 713 S0006F4 D0 INC R0 714 S0006F5 52 ADD R2 715 S0006F6 51 ADD R1 716 S0006F7 63 SUB R3 717 718 S0006F8 00 STOP 719 S0006F9 01 NOP 720 ; 721 ;**************************************************************** 722 ;* * 723 ;* ENEMY 1POINT ROTATION & ZOOM * 724 ;* * 725 ;* [In] * 726 ;* r1 角度 （　最大１ＦＥ　） * 727 ;* r2 Ｘ倍率 * 728 ;* r3 Ｙ倍率 * 729 ;* r5 半径、スカラー量、ｅｔｃ． * 730 ;* * 731 ;* [Out] * 732 ;* r0 Ｘ成分 * 733 ;* r1 Ｙ成分 * 734 ;* * 735 ;**************************************************************** 736 0006FA M_ENMY_ROTZOM EQU $ 737 S0006FA A0 00" IBT R0,#BANK SIN 738 S0006FC 3F DF ROMB 739 740 S0006FE F0 0000" IWT R0,#SIN 741 S000701 1E TO R14 742 S000702 51 ADD R1 743 744 S000703 F0 0000" IWT R0,#COS 745 S000706 1A TO R10 746 S000707 51 ADD R1 747 748 S000708 EF GETB 749 S000709 DE INC R14 750 S00070A 3D EF GETBH 751 S00070C 25 16 MOVE R6,R5 752 S00070E 3D 9F LMULT 753 S000710 24 WITH R4 754 S000711 C0 HIB 755 S000712 9E LOB 756 S000713 4D SWAP 757 S000714 16 TO R6 758 S000715 C4 OR R4 759 760 S000716 B3 FROM R3 761 S000717 3D 9F LMULT 762 S000719 24 WITH R4 763 S00071A C0 HIB 764 S00071B 9E LOB 765 S00071C 4D SWAP 766 S00071D 11 TO R1 767 S00071E C4 OR R4 768 769 S00071F 2A 1E MOVE R14,R10 770 S000721 EF GETB 771 S000722 DE INC R14 772 S000723 3D EF GETBH 773 S000725 25 16 MOVE R6,R5 774 S000727 3D 9F LMULT 775 S000729 24 WITH R4 776 S00072A C0 HIB 777 S00072B 9E LOB 778 S00072C 4D SWAP 779 S00072D 16 TO R6 780 S00072E C4 OR R4 781 782 S00072F B2 FROM R2 783 S000730 3D 9F LMULT 784 S000732 24 WITH R4 785 S000733 C0 HIB 786 S000734 9E LOB 787 S000735 4D SWAP 788 S000736 C4 OR R4 789 790 S000737 00 STOP 791 S000738 01 NOP 792 ; 793 ;**************************************************************** 794 ;* * 795 ;* ENEMY TRIANGLE CALC * 796 ;* * 797 ;* [In] * 798 ;* r0 ＸＷＩＤＥ （　最大１ＦＦ　） * 799 ;* r2 ＹＷＩＤＥ （　最大１ＦＦ　） * 800 ;* r6 ＹＳＰＤ * 801 ;* * 802 ;* [Out] * 803 ;* r0 ＸＳＰＤ * 804 ;* * 805 ;**************************************************************** 806 000739 M_TRIANGLE_CALC EQU $ 807 S000739 3D 9F LMULT 808 S00073B 24 WITH R4 809 S00073C C0 HIB 810 S00073D 9E LOB 811 S00073E 4D SWAP 812 S00073F 16 TO R6 813 S000740 C4 OR R4 814 vvv******* warn :value out of range 815 S000741 F3 2200 IWT R3,#DIVBUF 816 S000744 B2 FROM R2 817 S000745 52 ADD R2 818 S000746 53 ADD R3 819 S000747 40 LDW (R0) 820 821 S000748 3D 9F LMULT 822 S00074A 24 WITH R4 823 S00074B C0 HIB 824 S00074C 9E LOB 825 S00074D 4D SWAP 826 S00074E C4 OR R4 827 828 S00074F 00 STOP 829 S000750 01 NOP 830 ; 831 ;******************************************************************************** 832 ;* でぶあほーどり特別ＯＡＭセット * 833 ;* * 834 ;* [In] * 835 ;* (R1) <-- ENDSXL * 836 ;* (R2) <-- ENDSYL * 837 ;* (R6) <-- 横倍率 * 838 ;* REG6 <-- 縦倍率 * 839 ;* (R7) <-- ENCHPT * 840 ;* (R8) <-- ENMUKI * 841 ;* (R10) <-- 敵のインデックス * 842 ;* (R0) <-- ＯＡＭセットデータバンク * 843 ;* (R14) <-- ＯＡＭセットＰＯＳ．データアドレス * 844 ;* (R12) <-- ＯＡＭセットＰＯＳ．データＸ補正値 * 845 ;* (R13) <-- ＯＡＭセットＰＯＳ．データＹ補正値 * 846 ;* WRK0 <-- ＯＡＭセットデータアドレス * 847 ;* * 848 ;******************************************************************************** 849 000751 M_DBAHO_OAMSET EQU $ 850 S000751 3F DF ROMB 851 ; 852 S000753 3E A1 01 SMS R1,CWORK1 853 S000756 3E A2 02 SMS R2,CWORK2 854 855 S000759 F0 1362 IWT R0,#CENOAML 856 S00075C 5A ADD R10 857 S00075D 40 LDW (R0) 858 S00075E 24 B0 MOVES R4,R0 859 S000760 0A 03' BPL DBAHO_OAMSET_000 ;ＯＡＭ確保？ ( yes:DBAHO_OAMSET_000 ) 860 S000762 BE FROM R14 861 ; 862 S000763 00 STOP 863 S000764 01 NOP 864 ; 865 DBAHO_OAMSET_000 866 S000765 58 ADD R8 ;ＰＯＳ．データアドレスの計算 867 S000766 1E TO R14 ; 868 S000767 58 ADD R8 ; 869 ; 870 S000768 3E A4 24 SMS R4,REG4 871 ; 872 S00076B 3F EF GETBS 873 S00076D DE INC R14 874 S00076E 13 TO R3 ;X0 手前のはね 875 S00076F 5C ADD R12 876 S000770 3F EF GETBS 877 S000772 DE INC R14 878 S000773 1B TO R11 ;Y0 879 S000774 5D ADD R13 880 S000775 3F EF GETBS 881 S000777 DE INC R14 882 S000778 15 TO R5 ;X1 後ろのはね 883 S000779 5C ADD R12 884 S00077A 3F EF GETBS 885 S00077C 19 TO R9 ;Y1 886 S00077D 5D ADD R13 887 ; 888 S00077E B5 FROM R5 889 S00077F 3D 9F LMULT 890 S000781 24 WITH R4 891 S000782 C0 HIB 892 S000783 9E LOB 893 S000784 4D SWAP 894 S000785 C4 OR R4 895 S000786 65 SUB R5 896 S000787 51 ADD R1 897 S000788 3E A0 01 SMS R0,CWORK1 898 899 S00078B B3 FROM R3 900 S00078C 3D 9F LMULT 901 S00078E 24 WITH R4 902 S00078F C0 HIB 903 S000790 9E LOB 904 S000791 4D SWAP 905 S000792 C4 OR R4 906 S000793 63 SUB R3 907 S000794 11 TO R1 908 S000795 51 ADD R1 909 ; 910 S000796 3D A6 26 LMS R6,REG6 911 ; 912 S000799 B9 FROM R9 913 S00079A 3D 9F LMULT 914 S00079C 24 WITH R4 915 S00079D C0 HIB 916 S00079E 9E LOB 917 S00079F 4D SWAP 918 S0007A0 C4 OR R4 919 ; FROM R9 920 ; SUB R0 921 S0007A1 69 SUB R9 922 S0007A2 52 ADD R2 923 S0007A3 3E A0 02 SMS R0,CWORK2 924 ; 925 S0007A6 BB FROM R11 926 S0007A7 3D 9F LMULT 927 S0007A9 24 WITH R4 928 S0007AA C0 HIB 929 S0007AB 9E LOB 930 S0007AC 4D SWAP 931 S0007AD C4 OR R4 932 ; FROM R11 933 ; SUB R0 934 S0007AE 6B SUB R11 935 S0007AF 12 TO R2 936 S0007B0 52 ADD R2 937 938 S0007B1 3D A4 24 LMS R4,REG4 939 ; 940 S0007B4 3D A0 00 LMS R0,CWORK0 941 S0007B7 57 ADD R7 942 S0007B8 1E TO R14 943 S0007B9 57 ADD R7 944 ; 945 S0007BA EF GETB 946 S0007BB DE INC R14 947 S0007BC 1E TO R14 ;(R14) <-- セットパターンＯＡＭセットデータアドレス 948 S0007BD 3D EF GETBH 949 ; 950 S0007BF F0 1042 IWT R0,#CENCLOR ;ATR SET 951 S0007C2 5A ADD R10 952 S0007C3 13 TO R3 953 S0007C4 3D 40 LDB (R0) 954 S0007C6 B8 FROM R8 ;ENMUKI 955 S0007C7 58 ADD R8 956 S0007C8 50 ADD R0 957 S0007C9 3E 88 MULT #008H 958 S0007CB 3D C3 XOR R3 959 S0007CD 13 TO R3 960 S0007CE 4D SWAP 961 ; 962 S0007CF F0 1180 IWT R0,#CENCHRB 963 S0007D2 5A ADD R10 964 S0007D3 3D 40 LDB (R0) 965 S0007D5 3E 88 MULT #8 966 S0007D7 3E A0 00 SMS R0,CWORK0 ;キャラクターバンク 967 ; 968 S0007DA F0 10E0 IWT R0,#CENEMU0 ;DATA SET 969 S0007DD 5A ADD R10 970 S0007DE 3D 40 LDB (R0) 971 S0007E0 1A TO R10 972 S0007E1 4D SWAP 973 ; 974 S0007E2 AC 06 IBT R12,#06 ;ＯＡＭセット数 975 ; 976 S0007E4 02 CACHE 977 ; 978 S0007E5 2F 1D MOVE R13,R15 ; loop address set 979 DBAHO_OAMSET_110 980 S0007E7 3F EF GETBS 981 ; 982 S0007E9 F9 4000 IWT R9,#4000H ;H flip check data 983 S0007EC 29 WITH R9 984 S0007ED 73 AND R3 985 S0007EE 09 05' BEQ DBAHO_OAMSET_120 ;H frip ? [ no:DBAHO_OAMSET_120 ] 986 S0007F0 DE INC R14 ;[ * (Z)=1: IBT R9,#0 ] 987 ; 988 S0007F1 4F NOT 989 S0007F2 D0 INC R0 990 S0007F3 A9 08 IBT R9,#008H 991 DBAHO_OAMSET_120 992 S0007F5 15 TO R5 993 S0007F6 51 ADD R1 ; r5 <- x position 994 ; 995 S0007F7 3F EF GETBS 996 ; 997 S0007F9 A8 00 IBT R8,#00H ;V flip check data 998 S0007FB 23 B3 MOVES R3,R3 999 S0007FD 0A 05' BPL DBAHO_OAMSET_130 ;V frip ? [ no:DBAHO_OAMSET_130 ] 1000 S0007FF DE INC R14 1001 ; 1002 S000800 4F NOT 1003 S000801 D0 INC R0 1004 S000802 A8 08 IBT R8,#008H 1005 DBAHO_OAMSET_130 1006 S000804 16 TO R6 1007 S000805 52 ADD R2 ; r6 <- y position 1008 ; 1009 S000806 EF GETB 1010 S000807 DE INC R14 1011 S000808 3D EF GETBH 1012 S00080A DE INC R14 1013 ; 1014 S00080B 17 TO R7 1015 S00080C 3D C3 XOR R3 ; R7 <- atoribute & chara No. 1016 ; 1017 S00080E EF GETB ; oamsb 1018 S00080F 3E 72 AND #02H 1019 S000811 08 05' BNE DBAHO_OAMSET_140 1020 S000813 01 NOP 1021 ; 1022 S000814 25 WITH R5 1023 S000815 59 ADD R9 1024 S000816 26 WITH R6 1025 S000817 58 ADD R8 1026 DBAHO_OAMSET_140 1027 S000818 3D EF GETBH ;(R0) <-- sub,data 1028 S00081A DE INC R14 1029 ; 1030 S00081B B5 FROM R5 1031 S00081C 34 STW (R4) ; x position 1032 S00081D D4 INC R4 1033 S00081E D4 INC R4 1034 ; 1035 S00081F 15 TO R5 ; r5 <- sub,data 1036 S000820 3D CA XOR R10 1037 ; 1038 S000822 B6 FROM R6 1039 S000823 34 STW (R4) ; y position 1040 S000824 D4 INC R4 1041 S000825 D4 INC R4 1042 S000826 3D A0 00 LMS R0,CWORK0 ;(R0) <-- キャラクターバンク 1043 S000829 57 ADD R7 1044 S00082A 34 STW (R4) ; chara No., atoribute 1045 S00082B D4 INC R4 1046 S00082C D4 INC R4 1047 S00082D B5 FROM R5 1048 S00082E 34 STW (R4) ; oamsb,data 1049 ; 1050 S00082F BC FROM R12 ;前の羽根と後ろの羽根の間 ? 1051 S000830 3E 64 SUB #004 ; 1052 S000832 08 0B' BNE DBAHO_OAMSET_150 ; no: DBAHO_OAMSET_150 1053 S000834 D4 INC R4 1054 1055 S000835 A0 20 IBT R0,#08*4 1056 S000837 24 WITH R4 1057 S000838 50 ADD R0 1058 S000839 3D A1 01 LMS R1,CWORK1 1059 S00083C 3D A2 02 LMS R2,CWORK2 1060 1061 DBAHO_OAMSET_150 1062 S00083F 3C LOOP 1063 S000840 D4 INC R4 1064 ; 1065 S000841 00 STOP 1066 S000842 01 NOP 1067 ; 1068 ;******************************************************** 1069 ;* * 1070 ;******************************************************** 1071 000843 SPARK_XSPD EQU $ 1072 S000843 00 00 59 00 A7 HEX 000,000,059,000,0A7 1073 000848 SPARK_XSPD_RT EQU $ 1074 S000848 59 A7 00 00 00 HEX 059,0A7,000,000,000 1075 00084D SPARK_XSPD2 EQU $ 1076 S00084D 00 00 A7 00 59 HEX 000,000,0A7,000,059 1077 000852 SPARK_XSPD2_RT EQU $ 1078 S000852 A7 59 00 00 00 HEX 0A7,059,000,000,000 1079 000857 SPARK_XSPD2_SU EQU $ 1080 S000857 59 A7 00 00 00 HEX 059,0A7,000,000,000 1081 00085C SPARK_XSPD2_SUR EQU $ 1082 S00085C 00 00 59 00 A7 HEX 000,000,059,000,0A7 1083 000861 SPARK_XSPD2_SL EQU $ 1084 S000861 00 00 A7 00 59 HEX 000,000,0A7,000,059 1085 000866 SPARK_XSPD2_SLR EQU $ 1086 S000866 A7 59 00 00 00 HEX 0A7,059,000,000,000 1087 1088 00086B SPARK_YSPD EQU $ 1089 S00086B A7 59 00 00 00 HEX 0A7,059,000,000,000 1090 000870 SPARK_YSPD_RT EQU $ 1091 S000870 00 00 59 00 A7 HEX 000,000,059,000,0A7 1092 000875 SPARK_YSPD2 EQU $ 1093 S000875 59 A7 00 00 00 HEX 059,0A7,000,000,000 1094 00087A SPARK_YSPD2_RT EQU $ 1095 S00087A 00 00 A7 00 59 HEX 000,000,0A7,000,059 1096 00087F SPARK_YSPD2_SU EQU $ 1097 S00087F 00 00 59 00 A7 HEX 000,000,059,000,0A7 1098 000884 SPARK_YSPD2_SUR EQU $ 1099 S000884 A7 59 00 00 00 HEX 0A7,059,000,000,000 1100 000889 SPARK_YSPD2_SL EQU $ 1101 S000889 59 A7 00 00 00 HEX 059,0A7,000,000,000 1102 00088E SPARK_YSPD2_SLR EQU $ 1103 S00088E 00 00 A7 00 59 HEX 000,000,0A7,000,059 1104 1105 000893 SPARK_NEXT EQU $ 1106 S000893 08 04 01 00 02 HEX 008,004,001,000,002 1107 000898 SPARK_NEXT_RT EQU $ 1108 S000898 04 08 02 00 01 HEX 004,008,002,000,001 1109 00089D SPARK_NEXT2 EQU $ 1110 S00089D 04 08 02 00 01 HEX 004,008,002,000,001 1111 0008A2 SPARK_NEXT2_RT EQU $ 1112 S0008A2 08 04 01 00 02 HEX 008,004,001,000,002 1113 0008A7 SPARK_NEXT2_SU EQU $ 1114 S0008A7 01 02 04 00 08 HEX 001,002,004,000,008 1115 0008AC SPARK_NEXT2_SUR EQU $ 1116 S0008AC 01 02 04 00 08 HEX 001,002,004,000,008 1117 0008B1 SPARK_NEXT2_SL EQU $ 1118 S0008B1 04 08 02 00 01 HEX 004,008,002,000,001 1119 0008B6 SPARK_NEXT2_SLR EQU $ 1120 S0008B6 08 04 01 00 02 HEX 008,004,001,000,002 1121 1122 0008BB SPARK_ANG EQU $ ;LOW BIT 1123 S0008BB 81 80 01 00 00 HEX 081,080,001,000,000 1124 0008C0 SPARK_ANG_RT EQU $ 1125 S0008C0 01 00 80 00 81 HEX 001,000,080,000,081 1126 0008C5 SPARK_ANG2 EQU $ 1127 S0008C5 80 81 00 00 01 HEX 080,081,000,000,001 1128 0008CA SPARK_ANG2_RT EQU $ 1129 S0008CA 00 01 81 00 80 HEX 000,001,081,000,080 1130 0008CF SPARK_ANG2_SU EQU $ 1131 S0008CF 01 00 80 00 81 HEX 001,000,080,000,081 1132 0008D4 SPARK_ANG2_SUR EQU $ 1133 S0008D4 81 80 01 00 00 HEX 081,080,001,000,000 1134 0008D9 SPARK_ANG2_SL EQU $ 1135 S0008D9 80 81 00 00 01 HEX 080,081,000,000,001 1136 0008DE SPARK_ANG2_SLR EQU $ 1137 S0008DE 00 01 81 00 80 HEX 000,001,081,000,080 1138 1139 0008E3 SPARK_XREV EQU $ 1140 S0008E3 01 0F 0F 00 01 HEX 001,00F,00F,000,001 1141 0008E8 SPARK_XREV_RT EQU $ 1142 S0008E8 0F 01 01 00 0F HEX 00F,001,001,000,00F 1143 0008ED SPARK_XREV2 EQU $ 1144 S0008ED FF 01 0F 00 01 HEX 0FF,001,00F,000,001 1145 0008F2 SPARK_XREV2_RT EQU $ 1146 S0008F2 0F 01 FF 00 01 HEX 00F,001,0FF,000,001 1147 0008F7 SPARK_XREV2_SU EQU $ 1148 S0008F7 01 0F 0F 00 01 HEX 001,00F,00F,000,001 1149 0008FC SPARK_XREV2_SUR EQU $ 1150 S0008FC 0F 01 01 00 0F HEX 00F,001,001,000,00F 1151 000901 SPARK_XREV2_SL EQU $ 1152 S000901 FF 01 0F 00 01 HEX 0FF,001,00F,000,001 1153 000906 SPARK_XREV2_SLR EQU $ 1154 S000906 0F 01 FF 00 01 HEX 00F,001,0FF,000,001 1155 1156 00090B SPARK_YREV EQU $ 1157 S00090B 01 0F 01 00 0F HEX 001,00F,001,000,00F 1158 000910 SPARK_YREV_RT EQU $ 1159 S000910 0F 01 0F 00 01 HEX 00F,001,00F,000,001 1160 000915 SPARK_YREV2 EQU $ 1161 S000915 01 0F FF 00 01 HEX 001,00F,0FF,000,001 1162 00091A SPARK_YREV2_RT EQU $ 1163 S00091A 01 FF 0F 00 01 HEX 001,0FF,00F,000,001 1164 00091F SPARK_YREV2_SU EQU $ 1165 S00091F 01 0F 01 00 0F HEX 001,00F,001,000,00F 1166 000924 SPARK_YREV2_SUR EQU $ 1167 S000924 0F 01 0F 00 01 HEX 00F,001,00F,000,001 1168 000929 SPARK_YREV2_SL EQU $ 1169 S000929 01 0F FF 00 01 HEX 001,00F,0FF,000,001 1170 00092E SPARK_YREV2_SLR EQU $ 1171 S00092E 01 FF 0F 00 01 HEX 001,0FF,00F,000,001 1172 ; 1173 ;******************************************************** 1174 ;* 坂のデータ * 1175 ;******************************************************** 1176 000933 SPARK_XSPD3 EQU $ 1177 S000933 3E C2 3E 00 C2 HEX 03E,0C2,03E,000,0C2 1178 S000938 3E C2 3E 00 C2 HEX 03E,0C2,03E,000,0C2 1179 S00093D 3E C2 C2 00 3E HEX 03E,0C2,0C2,000,03E 1180 S000942 C2 3E 3E 00 C2 HEX 0C2,03E,03E,000,0C2 1181 000947 SPARK_YSPD3 EQU $ 1182 S000947 C2 3E 3E 00 C2 HEX 0C2,03E,03E,000,0C2 1183 S00094C C2 3E 3E 00 C2 HEX 0C2,03E,03E,000,0C2 1184 S000951 3E C2 3E 00 C2 HEX 03E,0C2,03E,000,0C2 1185 S000956 C2 3E C2 00 3E HEX 0C2,03E,0C2,000,03E 1186 00095B SPARK_ANG3 EQU $ 1187 S00095B 41 40 C0 00 C1 HEX 041,040,0C0,000,0C1 1188 S000960 41 40 C0 00 C1 HEX 041,040,0C0,000,0C1 1189 S000965 C0 C1 40 00 41 HEX 0C0,0C1,040,000,041 1190 S00096A C1 C0 41 00 40 HEX 0C1,0C0,041,000,040 1191 00096F SPARK_XREV3 EQU $ 1192 S00096F 01 0F 0F 00 01 HEX 001,00F,00F,000,001 ;上り坂 1193 S000974 0F 01 01 00 0F HEX 00F,001,001,000,00F 1194 ; 1195 S000979 00 00 0F 00 01 HEX 000,000,00F,000,001 ;下り坂 1196 S00097E 0F 01 00 00 00 HEX 00F,001,000,000,000 1197 ; 1198 000983 SPARK_YREV3 EQU $ 1199 S000983 01 0F 01 00 0F HEX 001,00F,001,000,00F ;上り坂 1200 S000988 0F 01 0F 00 01 HEX 00F,001,00F,000,001 1201 ; 1202 S00098D 01 0F 00 00 01 HEX 001,00F,000,000,001 ;下り坂 1203 S000992 00 00 0F 00 01 HEX 000,000,00F,000,001 1204 ; 1205 000997 SPARK_BGCKXP EQU $ 1206 S000997 0F 00 01 00 0E HEX 00F,000,001,000,00E 1207 S00099C 01 0E 0F 00 00 HEX 001,00E,00F,000,000 1208 0009A1 SPARK_BGCKYP EQU $ 1209 S0009A1 0E 01 0F 00 00 HEX 00E,001,00F,000,000 1210 S0009A6 00 0F 01 00 0E HEX 000,00F,001,000,00E 1211 ; 1212 0009AB SPARK_BGCKXP2 EQU $ 1213 S0009AB 00 0F 00 00 0F HEX 000,00F,000,000,00F 1214 0009B0 SPARK_BGCKYP2 EQU $ 1215 S0009B0 0F 00 00 00 0F HEX 00F,000,000,000,00F 1216 ; 1217 0009B5 SPARK_BGCKDT_SK EQU $ 1218 S0009B5 70 80 80 80 80 HEX 070,080,080,080,080,000,002,080 ;右手を壁につく（下り坂用：５、６、９、 S0009BA 00 02 80 1219 S0009BD 80 04 01 80 80 HEX 080,004,001,080,080,080,080,080 ;以外は上り坂と共用） S0009C2 80 80 80 1220 0009C5 SPARK_BGCKDT_S2 EQU $ 1221 S0009C5 70 80 80 80 80 HEX 070,080,080,080,080,007,006,080 ;左手を壁につく S0009CA 07 06 80 1222 S0009CD 80 05 09 80 80 HEX 080,005,009,080,080,080,080,080 ;（＋Ａ：左手分のインデックス） S0009D2 80 80 80 1223 ; 1224 0009D5 SPARK_RET_XREV EQU $ 1225 S0009D5 00 00 FF 00 01 HEX 000,000,0FF,000,001 1226 S0009DA FF 01 00 00 00 HEX 0FF,001,000,000,000 1227 0009DF SPARK_RET_YREV EQU $ 1228 S0009DF 01 FF 00 00 00 HEX 001,0FF,000,000,000 1229 S0009E4 00 00 FF 00 01 HEX 000,000,0FF,000,001 1230 ; 1231 ; 1232 ;************************************************************************ 1233 ;* * 1234 ;* ロープリフトのＢＧチェック * 1235 ;* * 1236 ;* [In] * 1237 ;* (R10) <-- 敵のインデックス * 1238 ;* * 1239 ;* [Out] * 1240 ;* WRKF <-- 角振動数 * 1241 ;* * 1242 ;************************************************************************ 1243 0009E9 M_ROPE_CHK EQU $ 1244 mLDW R1,CENWRKC,R10 1244+ S0009E9 F0 1902 IWT R0,#CENWRKC 1244+ S0009EC 5A ADD R10 1244+ S0009ED 11 TO R1 1244+ S0009EE 40 LDW (R0) vvv******* warn :value out of range 1245 S0009EF F0 0006 IWT R0,#ENBGCK_UNIT_C 1246 S0009F2 15 TO R5 1247 S0009F3 51 ADD R1 1248 S0009F4 3E A5 25 SMS R5,REG5 1249 1250 S0009F7 A0 FF IBT R0,#0FFH ;[CHK] 1251 S0009F9 3E A0 20 SMS R0,REG0 1252 S0009FC 3E A0 21 SMS R0,REG1 1253 1254 mLDB0 CENWRKB,R10 1254+ S0009FF F0 1901 IWT R0,#CENWRKB 1254+ S000A02 5A ADD R10 1254+ S000A03 3D 40 LDB (R0) 1255 S000A05 3E A0 0C SMS R0,CWORKC 1256 1257 mLDW R7,CENXPSL,R10 1257+ S000A08 F0 10E2 IWT R0,#CENXPSL 1257+ S000A0B 5A ADD R10 1257+ S000A0C 17 TO R7 1257+ S000A0D 40 LDW (R0) 1258 mLDW R8,CENYPSL,R10 1258+ S000A0E F0 1182 IWT R0,#CENYPSL 1258+ S000A11 5A ADD R10 1258+ S000A12 18 TO R8 1258+ S000A13 40 LDW (R0) 1259 mLDW R9,CENCONT,R10 1259+ S000A14 F0 1976 IWT R0,#CENCONT 1259+ S000A17 5A ADD R10 1259+ S000A18 19 TO R9 1259+ S000A19 40 LDW (R0) 1260 S000A1A 3E A7 17 SMS R7,CWORK17 1261 S000A1D 3E A8 18 SMS R8,CWORK18 1262 S000A20 3E A9 19 SMS R9,CWORK19 1263 1264 mJSR ROPE_CHK_SB ; 1264+ S000A23 94 LINK #4 1264+ S000A24 FF 0C44' IWT R15, #ROPE_CHK_SB 1264+ S000A27 01 NOP 1265 1266 S000A28 60 SUB R0 ;[CHK] 1267 S000A29 3E A0 21 SMS R0,REG1 1268 1269 S000A2C 3D A5 25 LMS R5,REG5 1270 S000A2F 3D A7 17 LMS R7,CWORK17 1271 S000A32 3D A8 18 LMS R8,CWORK18 1272 S000A35 3D A9 19 LMS R9,CWORK19 1273 1274 mLDB R1,CENWRKA,R10 ;空中に浮いてた ? 1274+ S000A38 F0 1900 IWT R0,#CENWRKA 1274+ S000A3B 5A ADD R10 1274+ S000A3C 11 TO R1 1274+ S000A3D 3D 40 LDB (R0) 1275 S000A3F B1 FROM R1 ; 1276 S000A40 95 SEX ; 1277 S000A41 0A 03' BPL ROPE_CHK0080 ; no: ROPE_CHK0080 1278 S000A43 01 NOP 1279 1280 S000A44 00 STOP 1281 S000A45 01 NOP 1282 1283 ROPE_CHK0080 1284 S000A46 B1 FROM R1 ;円の上だった ? 1285 S000A47 3E 62 SUB #02 ; 1286 S000A49 09 05' BEQ ROPE_CHK0100 ; yes: ROPE_CHK0100 1287 S000A4B 01 NOP ; 1288 mDJMP ROPE_CHK5000 ; no: ROPE_CHK5000 1288+ S000A4C FF 0B1B' IWT R15, #ROPE_CHK5000 1288+ S000A4F 01 NOP 1289 1290 ROPE_CHK0100 1291 S000A50 A0 01 IBT R0,#01 ;[CHK] 1292 S000A52 3E A0 21 SMS R0,REG1 1293 1294 mLDW R1,CENCONT,R10 ;角度計算 1294+ S000A55 F0 1976 IWT R0,#CENCONT 1294+ S000A58 5A ADD R10 1294+ S000A59 11 TO R1 1294+ S000A5A 40 LDW (R0) 1295 ; LMS R5,CWORKF ; 1296 ; MOVES R5,R5 ;時計回り ? 1297 ; BMI ROPE_CHK0200 ; yes: ROPE_CHK0200 1298 ; SUB R0 1299 ; NOP 1300 ; 1301 ; NOT 1302 ; INC R0 1303 ; 1304 ; mLDW R6,CENWRK6,R10 ; 1305 ; mLDW0 CENWRK8,R10 ; 1306 ; WITH R6 ; 1307 ; HIB ; 1308 ; LOB ; 1309 ; SWAP ; 1310 ; TO R6 ; 1311 ; OR R6 ; 1312 ; FROM R5 ; 1313 ; LMULT ; 1314 ; WITH R4 ; 1315 ; HIB ; 1316 ; LOB ; 1317 ; SWAP ; 1318 ; OR R4 ; 1319 ; 1320 ROPE_CHK0200 1321 S000A5B F0 E000 IWT R0,#0E000H 1322 S000A5E 3E A0 03 SMS R0,CWORK3 ;[CHK] 1323 S000A61 3E A1 04 SMS R1,CWORK4 ;[CHK] 1324 1325 S000A64 B1 FROM R1 1326 S000A65 60 SUB R0 1327 S000A66 C0 HIB 1328 S000A67 3E A0 05 SMS R0,CWORK5 ;[CHK] 1329 1330 S000A6A A4 40 IBT R4,#040H ;縦方向に進んでた ? 1331 S000A6C 74 AND R4 ; 1332 S000A6D 08 28' BNE ROPE_CHK1000 ; yes: ROPE_CHK1000 1333 S000A6F 01 NOP 1334 1335 S000A70 A0 02 IBT R0,#02 ;[CHK] 1336 S000A72 3E A0 21 SMS R0,REG1 1337 1338 S000A75 B8 FROM R8 1339 S000A76 3E 7F AND #0FH 1340 S000A78 3E 68 SUB #08 1341 S000A7A 0B 0C' BMI ROPE_CHK0300+1 1342 S000A7C A1 18 IBT R1,#018H ;上チェック 1343 1344 S000A7E B8 FROM R8 1345 S000A7F 3F 7F BIC #0FH 1346 S000A81 18 TO R8 1347 S000A82 3E C6 OR #06 1348 S000A84 05 35' BRA ROPE_CHK2000 1349 S000A86 01 NOP 1350 1351 ROPE_CHK0300 1352 S000A87 A1 20 IBT R1,#020H ;下チェック 1353 1354 S000A89 3D A0 21 LMS R0,REG1 ;[CHK] 1355 S000A8C D0 INC R0 1356 S000A8D 90 SBK 1357 1358 S000A8E B8 FROM R8 1359 S000A8F 3F 7F BIC #0FH 1360 S000A91 18 TO R8 1361 S000A92 3E C9 OR #09 1362 S000A94 05 25' BRA ROPE_CHK2000 1363 S000A96 01 NOP 1364 1365 ROPE_CHK1000 1366 S000A97 A0 04 IBT R0,#04 ;[CHK] 1367 S000A99 3E A0 21 SMS R0,REG1 1368 1369 S000A9C B7 FROM R7 1370 S000A9D 3E 7F AND #0FH 1371 S000A9F 3E 68 SUB #08 1372 S000AA1 0B 0C' BMI ROPE_CHK1300+1 1373 S000AA3 A1 08 IBT R1,#08 ;左チェック 1374 1375 S000AA5 B7 FROM R7 1376 S000AA6 3F 7F BIC #0FH 1377 S000AA8 17 TO R7 1378 S000AA9 3E C6 OR #06 1379 S000AAB 05 0E' BRA ROPE_CHK2000 1380 S000AAD 01 NOP 1381 1382 ROPE_CHK1300 1383 S000AAE A1 10 IBT R1,#010H ;右チェック 1384 1385 S000AB0 3D A0 21 LMS R0,REG1 ;[CHK] 1386 S000AB3 D0 INC R0 1387 S000AB4 90 SBK 1388 1389 S000AB5 B7 FROM R7 1390 S000AB6 3F 7F BIC #0FH 1391 S000AB8 17 TO R7 1392 S000AB9 3E C9 OR #09 1393 1394 ROPE_CHK2000 1395 mSTW R7,CENXPSL,R10 1395+ S000ABB F0 10E2 IWT R0,#CENXPSL 1395+ S000ABE 5A ADD R10 1395+ S000ABF B7 FROM R7 1395+ S000AC0 30 STW (R0) 1396 mSTW R8,CENYPSL,R10 1396+ S000AC1 F0 1182 IWT R0,#CENYPSL 1396+ S000AC4 5A ADD R10 1396+ S000AC5 B8 FROM R8 1396+ S000AC6 30 STW (R0) 1397 mSTW R9,CENCONT,R10 1397+ S000AC7 F0 1976 IWT R0,#CENCONT 1397+ S000ACA 5A ADD R10 1397+ S000ACB B9 FROM R9 1397+ S000ACC 30 STW (R0) 1398 1399 S000ACD 3D A5 25 LMS R5,REG5 1400 S000AD0 25 WITH R5 ;上チェック 1401 S000AD1 51 ADD R1 1402 1403 mJSR ROPE_CHK_SB 1403+ S000AD2 94 LINK #4 1403+ S000AD3 FF 0C44' IWT R15, #ROPE_CHK_SB 1403+ S000AD6 01 NOP 1404 1405 S000AD7 3D A7 17 LMS R7,CWORK17 ;元に戻す 1406 S000ADA 3D A8 18 LMS R8,CWORK18 ; 1407 S000ADD 3D A9 19 LMS R9,CWORK19 1408 mSTW R7,CENXPSL,R10 ; 1408+ S000AE0 F0 10E2 IWT R0,#CENXPSL 1408+ S000AE3 5A ADD R10 1408+ S000AE4 B7 FROM R7 1408+ S000AE5 30 STW (R0) 1409 mSTW R8,CENYPSL,R10 ; 1409+ S000AE6 F0 1182 IWT R0,#CENYPSL 1409+ S000AE9 5A ADD R10 1409+ S000AEA B8 FROM R8 1409+ S000AEB 30 STW (R0) 1410 1411 mLDW R6,CENWRK6,R10 ;角度計算 1411+ S000AEC F0 1A36 IWT R0,#CENWRK6 1411+ S000AEF 5A ADD R10 1411+ S000AF0 16 TO R6 1411+ S000AF1 40 LDW (R0) 1412 mLDW0 CENWRK8,R10 ; 1412+ S000AF2 F0 1A38 IWT R0,#CENWRK8 1412+ S000AF5 5A ADD R10 1412+ S000AF6 40 LDW (R0) 1413 S000AF7 26 WITH R6 ; 1414 S000AF8 C0 HIB ; 1415 S000AF9 9E LOB ; 1416 S000AFA 4D SWAP ; 1417 S000AFB 16 TO R6 ; 1418 S000AFC C6 OR R6 ; 1419 S000AFD 3D A5 0F LMS R5,CWORKF ; 1420 S000B00 B5 FROM R5 ; 1421 S000B01 3D 9F LMULT ; 1422 S000B03 24 WITH R4 ; 1423 S000B04 C0 HIB ; 1424 S000B05 9E LOB ; 1425 S000B06 4D SWAP ; 1426 S000B07 C4 OR R4 ; 1427 S000B08 19 TO R9 ; 1428 S000B09 59 ADD R9 ; 1429 mSTW R9,CENCONT,R10 ; 1429+ S000B0A F0 1976 IWT R0,#CENCONT 1429+ S000B0D 5A ADD R10 1429+ S000B0E B9 FROM R9 1429+ S000B0F 30 STW (R0) 1430 1431 S000B10 A1 FF IBT R1,#0FFH 1432 mSTB R1,CENWRKA,R10 1432+ S000B12 F0 1900 IWT R0,#CENWRKA 1432+ S000B15 5A ADD R10 1432+ S000B16 B1 FROM R1 1432+ S000B17 3D 30 STB (R0) 1433 1434 S000B19 00 STOP 1435 S000B1A 01 NOP 1436 ; 1437 ROPE_CHK5000 1438 S000B1B D0 INC R0 ;坂＆水平直線 ? 1439 S000B1C 09 46' BEQ ROPE_CHK5280 ; no: ROPE_CHK5280 1440 S000B1E 01 NOP 1441 1442 S000B1F A0 10 IBT R0,#010H ;[CHK] 1443 S000B21 3E A0 21 SMS R0,REG1 1444 1445 S000B24 29 WITH R9 1446 S000B25 4F NOT 1447 S000B26 D9 INC R9 1448 1449 S000B27 B8 FROM R8 ;上のユニットをチェックする ? 1450 S000B28 3E 7F AND #0FH ; 1451 S000B2A 3E 68 SUB #08 ; 1452 S000B2C 0B 11' BMI ROPE_CHK5100+1 ; no: ROPE_CHK5100 1453 S000B2E A1 18 IBT R1,#018H ;上チェック 1454 1455 S000B30 3D A0 21 LMS R0,REG1 ;[CHK] 1456 S000B33 D0 INC R0 1457 S000B34 90 SBK 1458 1459 S000B35 B8 FROM R8 1460 S000B36 3F 7F BIC #0FH 1461 S000B38 18 TO R8 1462 S000B39 3E C6 OR #06 1463 S000B3B 05 09' BRA ROPE_CHK5200 1464 S000B3D 01 NOP 1465 1466 ROPE_CHK5100 1467 S000B3E A1 20 IBT R1,#020H ;下チェック 1468 1469 S000B40 B8 FROM R8 1470 S000B41 3F 7F BIC #0FH 1471 S000B43 18 TO R8 1472 S000B44 3E C9 OR #09 1473 1474 ROPE_CHK5200 1475 mJSR ROPE_ARCHK 1475+ S000B46 94 LINK #4 1475+ S000B47 FF 0C05' IWT R15, #ROPE_ARCHK 1475+ S000B4A 01 NOP 1476 1477 S000B4B 3D A0 0C LMS R0,CWORKC ;前は直線だった ? 1478 S000B4E 3E 66 SUB #06 ; 1479 S000B50 08 05' BNE ROPE_CHK5250 ; no: ROPE_CHK5250 1480 S000B52 01 NOP 1481 mDJMP ROPE_CHK5500 1481+ S000B53 FF 0BFA' IWT R15, #ROPE_CHK5500 1481+ S000B56 01 NOP 1482 1483 ROPE_CHK5250 1484 S000B57 F3 8000 IWT R3,#08000H 1485 S000B5A B3 FROM R3 1486 S000B5B 19 TO R9 1487 S000B5C 69 SUB R9 1488 1489 S000B5D B7 FROM R7 ;左のユニットをチェックする ? 1490 S000B5E 3E 7F AND #0FH ; 1491 S000B60 3E 68 SUB #08 ; 1492 S000B62 0B 12' BMI ROPE_CHK5300+1 ; no: ROPE_CHK5300 1493 1494 ROPE_CHK5280 1495 S000B64 A1 08 IBT R1,#08 ;左チェック 1496 1497 S000B66 3D A0 21 LMS R0,REG1 ;[CHK] 1498 S000B69 3E 52 ADD #02 1499 S000B6B 90 SBK 1500 1501 S000B6C B7 FROM R7 1502 S000B6D 3F 7F BIC #0FH 1503 S000B6F 17 TO R7 1504 S000B70 3E C6 OR #06 1505 S000B72 05 0F' BRA ROPE_CHK5400 1506 S000B74 01 NOP 1507 1508 ROPE_CHK5300 1509 S000B75 A1 10 IBT R1,#010H ;右チェック 1510 1511 S000B77 3D A0 21 LMS R0,REG1 ;[CHK] 1512 S000B7A 3E 54 ADD #04 1513 S000B7C 90 SBK 1514 1515 S000B7D B7 FROM R7 1516 S000B7E 3F 7F BIC #0FH 1517 S000B80 17 TO R7 1518 S000B81 3E C9 OR #09 1519 1520 ROPE_CHK5400 1521 mJSR ROPE_ARCHK 1521+ S000B83 94 LINK #4 1521+ S000B84 FF 0C05' IWT R15, #ROPE_ARCHK 1521+ S000B87 01 NOP 1522 1523 mLDB0 CENWRKB,R10 ;ｔａｎ　＝　１の坂 ? 1523+ S000B88 F0 1901 IWT R0,#CENWRKB 1523+ S000B8B 5A ADD R10 1523+ S000B8C 3D 40 LDB (R0) 1524 S000B8E 3E 62 SUB #02 ; 1525 S000B90 0A 68' BPL ROPE_CHK5500 ; no: ROPE_CHK5500 1526 S000B92 01 NOP 1527 1528 mLDW R5,CENXMAX,R10 ;上ってた ? 1528+ S000B93 F0 15E0 IWT R0,#CENXMAX 1528+ S000B96 5A ADD R10 1528+ S000B97 15 TO R5 1528+ S000B98 40 LDW (R0) 1529 S000B99 B5 FROM R5 ; 1530 S000B9A C0 HIB ; 1531 S000B9B E0 DEC R0 ; 1532 S000B9C 08 5C' BNE ROPE_CHK5500 ; no: ROPE_CHK5500 1533 S000B9E 01 NOP 1534 1535 S000B9F A0 40 IBT R0,#040H ;[CHK] 1536 S000BA1 3E A0 21 SMS R0,REG1 1537 1538 S000BA4 B5 FROM R5 1539 S000BA5 4D SWAP 1540 S000BA6 3F C1 XOR #01 1541 S000BA8 15 TO R5 1542 S000BA9 4D SWAP 1543 1544 mLDW R6,CENWRK6,R10 ;アナログジャンプセット 1544+ S000BAA F0 1A36 IWT R0,#CENWRK6 1544+ S000BAD 5A ADD R10 1544+ S000BAE 16 TO R6 1544+ S000BAF 40 LDW (R0) 1545 mLDW0 CENWRK8,R10 ; 1545+ S000BB0 F0 1A38 IWT R0,#CENWRK8 1545+ S000BB3 5A ADD R10 1545+ S000BB4 40 LDW (R0) 1546 S000BB5 26 WITH R6 ; 1547 S000BB6 C0 HIB ; 1548 S000BB7 9E LOB ; 1549 S000BB8 4D SWAP ; 1550 S000BB9 16 TO R6 ; 1551 S000BBA C6 OR R6 ; 1552 S000BBB F0 0180 IWT R0,#00180H 1553 S000BBE 3D 9F LMULT 1554 S000BC0 24 WITH R4 1555 S000BC1 C0 HIB 1556 S000BC2 9E LOB 1557 S000BC3 4D SWAP 1558 S000BC4 16 TO R6 1559 S000BC5 C4 OR R4 1560 ; 1561 S000BC6 A0 00" IBT R0,#BANK SIN ; 1562 S000BC8 3F DF ROMB ; 1563 ; 1564 S000BCA F0 0000" IWT R0,#COS ; 1565 S000BCD 1E TO R14 ; 1566 S000BCE 55 ADD R5 ; 1567 S000BCF F0 0000" IWT R0,#SIN ; 1568 S000BD2 12 TO R2 ; 1569 S000BD3 55 ADD R5 ; 1570 ; 1571 S000BD4 EF GETB ; 1572 S000BD5 DE INC R14 ; 1573 S000BD6 3D EF GETBH ; 1574 S000BD8 3D 9F LMULT ; 1575 S000BDA 24 WITH R4 ; 1576 S000BDB C0 HIB ; 1577 S000BDC 9E LOB ; 1578 S000BDD 4D SWAP ; 1579 S000BDE 14 TO R4 ; 1580 S000BDF C4 OR R4 ; 1581 mSTW R4,CENXSPD,R10 ; 1581+ S000BE0 F0 1220 IWT R0,#CENXSPD 1581+ S000BE3 5A ADD R10 1581+ S000BE4 B4 FROM R4 1581+ S000BE5 30 STW (R0) 1582 ; 1583 S000BE6 22 1E MOVE R14,R2 ; 1584 S000BE8 EF GETB ; 1585 S000BE9 DE INC R14 ; 1586 S000BEA 3D EF GETBH ; 1587 S000BEC 3D 9F LMULT ; 1588 S000BEE 24 WITH R4 ; 1589 S000BEF C0 HIB ; 1590 S000BF0 9E LOB ; 1591 S000BF1 4D SWAP ; 1592 S000BF2 14 TO R4 ; 1593 S000BF3 C4 OR R4 ; 1594 mSTW R4,CENYSPD,R10 ; 1594+ S000BF4 F0 1222 IWT R0,#CENYSPD 1594+ S000BF7 5A ADD R10 1594+ S000BF8 B4 FROM R4 1594+ S000BF9 30 STW (R0) 1595 1596 ROPE_CHK5500 1597 S000BFA A1 FF IBT R1,#0FFH 1598 mSTB R1,CENWRKA,R10 1598+ S000BFC F0 1900 IWT R0,#CENWRKA 1598+ S000BFF 5A ADD R10 1598+ S000C00 B1 FROM R1 1598+ S000C01 3D 30 STB (R0) 1599 1600 S000C03 00 STOP 1601 S000C04 01 NOP 1602 ; 1603 ROPE_ARCHK 1604 S000C05 3E AB 35 SMS R11,RTS5 1605 1606 mSTW R7,CENXPSL,R10 1606+ S000C08 F0 10E2 IWT R0,#CENXPSL 1606+ S000C0B 5A ADD R10 1606+ S000C0C B7 FROM R7 1606+ S000C0D 30 STW (R0) 1607 mSTW R8,CENYPSL,R10 1607+ S000C0E F0 1182 IWT R0,#CENYPSL 1607+ S000C11 5A ADD R10 1607+ S000C12 B8 FROM R8 1607+ S000C13 30 STW (R0) 1608 mSTW R9,CENCONT,R10 1608+ S000C14 F0 1976 IWT R0,#CENCONT 1608+ S000C17 5A ADD R10 1608+ S000C18 B9 FROM R9 1608+ S000C19 30 STW (R0) 1609 S000C1A 3D A5 25 LMS R5,REG5 1610 1611 S000C1D 25 WITH R5 1612 S000C1E 51 ADD R1 1613 1614 mJSR ROPE_CHK_SB 1614+ S000C1F 94 LINK #4 1614+ S000C20 FF 0C44' IWT R15, #ROPE_CHK_SB 1614+ S000C23 01 NOP 1615 1616 S000C24 3D A7 17 LMS R7,CWORK17 ;元に戻す 1617 S000C27 3D A8 18 LMS R8,CWORK18 ; 1618 S000C2A 3D A9 19 LMS R9,CWORK19 1619 mSTW R7,CENXPSL,R10 ; 1619+ S000C2D F0 10E2 IWT R0,#CENXPSL 1619+ S000C30 5A ADD R10 1619+ S000C31 B7 FROM R7 1619+ S000C32 30 STW (R0) 1620 mSTW R8,CENYPSL,R10 ; 1620+ S000C33 F0 1182 IWT R0,#CENYPSL 1620+ S000C36 5A ADD R10 1620+ S000C37 B8 FROM R8 1620+ S000C38 30 STW (R0) 1621 mSTW R9,CENCONT,R10 1621+ S000C39 F0 1976 IWT R0,#CENCONT 1621+ S000C3C 5A ADD R10 1621+ S000C3D B9 FROM R9 1621+ S000C3E 30 STW (R0) 1622 1623 S000C3F 3D AB 35 LMS R11,RTS5 1624 1625 mRTS 1625+ S000C42 9B JMP R11 1625+ S000C43 01 NOP 1626 ; 1627 ROPE_CHK_SB 1628 S000C44 3E AB 30 SMS R11,RTS0 1629 1630 S000C47 60 SUB R0 ;[CHK] 1631 S000C48 3E A0 22 SMS R0,REG2 1632 1633 S000C4B A3 28 IBT R3,#028H 1634 mSTW R3,CENGPOW,R10 1634+ S000C4D F0 1542 IWT R0,#CENGPOW 1634+ S000C50 5A ADD R10 1634+ S000C51 B3 FROM R3 1634+ S000C52 30 STW (R0) 1635 1636 S000C53 F0 8700 IWT R0,#UT8700 1637 S000C56 12 TO R2 1638 S000C57 C0 HIB 1639 S000C58 17 TO R7 1640 S000C59 45 LDW (R5) 1641 1642 S000C5A 3E A7 27 SMS R7,REG7 ;[CHK] 1643 1644 S000C5D B7 FROM R7 1645 S000C5E C0 HIB 1646 S000C5F 62 SUB R2 ;ロープユニット ? 1647 S000C60 09 03' BEQ ROPE_CHK_SB0000 ; yes: ROPE_CHK_SB0000 1648 S000C62 01 NOP 1649 1650 mRTS 1650+ S000C63 9B JMP R11 1650+ S000C64 01 NOP 1651 1652 ROPE_CHK_SB0000 1653 S000C65 A0 01 IBT R0,#01 ;[CHK] 1654 S000C67 3E A0 22 SMS R0,REG2 1655 1656 S000C6A F0 0000' IWT R0,#BANK ROPE_CHK_DT 1657 S000C6D 3F DF ROMB 1658 S000C6F F3 12AE' IWT R3,#ROPE_CHK_DT 1659 S000C72 B7 FROM R7 1660 S000C73 9E LOB 1661 S000C74 50 ADD R0 1662 S000C75 1E TO R14 1663 S000C76 53 ADD R3 1664 S000C77 EF GETB 1665 S000C78 DE INC R14 1666 S000C79 1E TO R14 1667 S000C7A 3D EF GETBH 1668 S000C7C EF GETB 1669 S000C7D 28 B0 MOVES R8,R0 ;坂 ? 1670 S000C7F 08 0E' BNE ROPE_CHK_SB0100 ; no: ROPE_CHK_SB0100 1671 S000C81 DE INC R14 1672 1673 S000C82 A0 02 IBT R0,#02 ;[CHK] 1674 S000C84 3E A0 22 SMS R0,REG2 1675 1676 mJSR ROPE_CHK_SB1 1676+ S000C87 94 LINK #4 1676+ S000C88 FF 0CC0' IWT R15, #ROPE_CHK_SB1 1676+ S000C8B 01 NOP 1677 S000C8C 05 2D' BRA ROPE_CHK_SB0400 1678 S000C8E 01 NOP 1679 1680 ROPE_CHK_SB0100 1681 S000C8F E0 DEC R0 ;直線 ? 1682 S000C90 08 0E' BNE ROPE_CHK_SB0200 ; no: ROPE_CHK_SB0200 1683 S000C92 01 NOP 1684 1685 S000C93 A0 03 IBT R0,#03 ;[CHK] 1686 S000C95 3E A0 22 SMS R0,REG2 1687 1688 mJSR ROPE_CHK_SB2 1688+ S000C98 94 LINK #4 1688+ S000C99 FF 0EFB' IWT R15, #ROPE_CHK_SB2 1688+ S000C9C 01 NOP 1689 S000C9D 05 1C' BRA ROPE_CHK_SB0400 1690 S000C9F 01 NOP 1691 1692 ROPE_CHK_SB0200 1693 S000CA0 E0 DEC R0 ;円 ? 1694 S000CA1 08 0E' BNE ROPE_CHK_SB0300 ; no: ROPE_CHK_SB0300 1695 S000CA3 01 NOP 1696 1697 S000CA4 A0 04 IBT R0,#04 ;[CHK] 1698 S000CA6 3E A0 22 SMS R0,REG2 1699 1700 mJSR ROPE_CHK_SB3 1700+ S000CA9 94 LINK #4 1700+ S000CAA FF 1027' IWT R15, #ROPE_CHK_SB3 1700+ S000CAD 01 NOP 1701 S000CAE 05 0B' BRA ROPE_CHK_SB0400 1702 S000CB0 01 NOP 1703 1704 ROPE_CHK_SB0300 1705 S000CB1 A0 05 IBT R0,#05 ;[CHK] 1706 S000CB3 3E A0 22 SMS R0,REG2 1707 1708 mJSR ROPE_CHK_SB4 1708+ S000CB6 94 LINK #4 1708+ S000CB7 FF 1218' IWT R15, #ROPE_CHK_SB4 1708+ S000CBA 01 NOP 1709 1710 ROPE_CHK_SB0400 1711 S000CBB 3D AB 30 LMS R11,RTS0 1712 1713 mRTS 1713+ S000CBE 9B JMP R11 1713+ S000CBF 01 NOP 1714 ; 1715 ; 1716 ROPE_CHK_SB1 1717 S000CC0 60 SUB R0 ;[CHK] 1718 S000CC1 3E A0 20 SMS R0,REG0 1719 1720 mLDB R9,CENWRKA,R10 ;前も坂だった ? 1720+ S000CC4 F0 1900 IWT R0,#CENWRKA 1720+ S000CC7 5A ADD R10 1720+ S000CC8 19 TO R9 1720+ S000CC9 3D 40 LDB (R0) 1721 S000CCB B8 FROM R8 ; 1722 S000CCC 69 SUB R9 ; 1723 S000CCD 09 07' BEQ ROPE_CHK_SB1010 ; yes: ROPE_CHK_SB1010 1724 S000CCF 01 NOP 1725 1726 ROPE_CHK_SB1000 1727 mDJMP_X ROPE_CHK_SB1100+1 1727+ S000CD0 FF 0DEB' IWT R15, #ROPE_CHK_SB1100+1 1728 S000CD3 3E AB 31 SMS R11,RTS1 1729 1730 ROPE_CHK_SB1010 1731 S000CD6 A0 10 IBT R0,#010H ;[CHK] vvv******* warn :value out of range 1732 S000CD8 3E A0 20 SMS R0,CREG0 1733 1734 S000CDB 13 TO R3 ;前と同じグループユニット ? 1735 S000CDC EF GETB ; 1736 mLDB0 CENWRKB,R10 ; 1736+ S000CDD F0 1901 IWT R0,#CENWRKB 1736+ S000CE0 5A ADD R10 1736+ S000CE1 3D 40 LDB (R0) 1737 S000CE3 3F 63 CMP R3 ; 1738 S000CE5 08 E9' BNE ROPE_CHK_SB1000 ; no: ROPE_CHK_SB1000 1739 S000CE7 01 NOP 1740 1741 S000CE8 A0 11 IBT R0,#011H ;[CHK] vvv******* warn :value out of range 1742 S000CEA 3E A0 20 SMS R0,CREG0 1743 1744 S000CED A0 00" IBT R0,#BANK SIN 1745 S000CEF 3F DF ROMB 1746 1747 S000CF1 3D A1 0F LMS R1,CWORKF 1748 S000CF4 F0 0000" IWT R0,#COS 1749 S000CF7 1E TO R14 1750 S000CF8 51 ADD R1 1751 1752 S000CF9 F2 0100 IWT R2,#00100H 1753 1754 S000CFC 3E A1 04 SMS R1,CWORK4 ;[CHK] 1755 1756 S000CFF B1 FROM R1 1757 S000D00 9E LOB 1758 S000D01 15 TO R5 1759 S000D02 95 SEX 1760 S000D03 0A 04' BPL ROPE_CHK_SB1011 1761 S000D05 01 NOP 1762 1763 S000D06 4F NOT 1764 S000D07 D0 INC R0 1765 S000D08 52 ADD R2 1766 1767 ROPE_CHK_SB1011 1768 S000D09 3E A0 03 SMS R0,CWORK3 ;[CHK] 1769 1770 S000D0C F2 0000" IWT R2,#M_TAN 1771 S000D0F 12 TO R2 1772 S000D10 52 ADD R2 1773 1774 S000D11 3E A1 09 SMS R1,CWORK9 ;[CHK] 1775 1776 mLDB R7,CENXSDR,R10 ;Ｘ　ＰＯＳ．計算 1776+ S000D14 F0 10E1 IWT R0,#CENXSDR 1776+ S000D17 5A ADD R10 1776+ S000D18 17 TO R7 1776+ S000D19 3D 40 LDB (R0) 1777 mLDW R8,CENXPSL,R10 ; 1777+ S000D1B F0 10E2 IWT R0,#CENXPSL 1777+ S000D1E 5A ADD R10 1777+ S000D1F 18 TO R8 1777+ S000D20 40 LDW (R0) 1778 S000D21 3E A8 28 SMS R8,REG8 ; 1779 S000D24 B8 FROM R8 ; 1780 S000D25 9E LOB ; 1781 S000D26 4D SWAP ; 1782 S000D27 17 TO R7 ; 1783 S000D28 C7 OR R7 ; 1784 S000D29 28 WITH R8 ; 1785 S000D2A C0 HIB ; 1786 ; 1787 mLDW R6,CENWRK6,R10 ; 1787+ S000D2B F0 1A36 IWT R0,#CENWRK6 1787+ S000D2E 5A ADD R10 1787+ S000D2F 16 TO R6 1787+ S000D30 40 LDW (R0) 1788 mLDW0 CENWRK8,R10 ; 1788+ S000D31 F0 1A38 IWT R0,#CENWRK8 1788+ S000D34 5A ADD R10 1788+ S000D35 40 LDW (R0) 1789 S000D36 3E A0 00 SMS R0,CWORK0 ; 1790 S000D39 26 WITH R6 ; 1791 S000D3A C0 HIB ; 1792 S000D3B 9E LOB ; 1793 S000D3C 4D SWAP ; 1794 S000D3D 16 TO R6 ; 1795 S000D3E C6 OR R6 ; 1796 ; 1797 S000D3F EF GETB ; 1798 S000D40 DE INC R14 ; 1799 S000D41 3D EF GETBH ; 1800 S000D43 3D 9F LMULT ; 1801 S000D45 24 WITH R4 ; 1802 S000D46 C0 HIB ; 1803 S000D47 9E LOB ; 1804 S000D48 4D SWAP ; 1805 S000D49 C4 OR R4 ; 1806 S000D4A 13 TO R3 ; 1807 S000D4B 3E 60 SUB #00 ; 1808 S000D4D 0A 08' BPL ROPE_CHK_SB1020 ; 1809 S000D4F 27 WITH R7 ; 1810 ; 1811 S000D50 63 SUB R3 ; 1812 S000D51 28 WITH R8 ; 1813 S000D52 3F 50 ADC #00 ; 1814 S000D54 05 07' BRA ROPE_CHK_SB1030 ; 1815 S000D56 28 WITH R8 ; 1816 ; 1817 ROPE_CHK_SB1020 ; 1818 S000D57 63 SUB R3 ; 1819 S000D58 0D 03' BCS ROPE_CHK_SB1030 ; 1820 S000D5A 28 WITH R8 ; 1821 S000D5B E8 DEC R8 ; 1822 S000D5C 28 WITH R8 ; 1823 ; 1824 ROPE_CHK_SB1030 ; 1825 S000D5D 4D SWAP ; 1826 S000D5E B7 FROM R7 ; 1827 S000D5F C0 HIB ; 1828 S000D60 18 TO R8 ; 1829 S000D61 C8 OR R8 ; 1830 mSTW R8,CENXPSL,R10 ; 1830+ S000D62 F0 10E2 IWT R0,#CENXPSL 1830+ S000D65 5A ADD R10 1830+ S000D66 B8 FROM R8 1830+ S000D67 30 STW (R0) 1831 mSTB R7,CENXSDR,R10 ; 1831+ S000D68 F0 10E1 IWT R0,#CENXSDR 1831+ S000D6B 5A ADD R10 1831+ S000D6C B7 FROM R7 1831+ S000D6D 3D 30 STB (R0) 1832 1833 S000D6F 3D A0 28 LMS R0,REG8 1834 S000D72 28 WITH R8 ;Ｘ移動量 1835 S000D73 60 SUB R0 ; 1836 1837 S000D74 A0 00" IBT R0,#BANK M_TAN ;Ｙ　ＰＯＳ．計算 1838 S000D76 3F DF ROMB ; 1839 ; 1840 S000D78 22 1E MOVE R14,R2 ; 1841 S000D7A EF GETB ; 1842 S000D7B DE INC R14 ; 1843 S000D7C 3D EF GETBH ; 1844 1845 S000D7E 3E A0 05 SMS R0,CWORK5 ;[CHK] 1846 1847 S000D81 25 B5 MOVES R5,R5 ; 1848 S000D83 0A 04' BPL ROPE_CHK_SB1031 ; 1849 S000D85 20 WITH R0 ; 1850 ; 1851 S000D86 4F NOT ; 1852 S000D87 D0 INC R0 ; 1853 S000D88 20 WITH R0 ; 1854 ; 1855 ROPE_CHK_SB1031 ; 1856 S000D89 16 TO R6 ; 1857 1858 S000D8A 3E A8 10 SMS R8,CWORK10 ;[CHK] 1859 S000D8D 3E A6 06 SMS R6,CWORK6 ;[CHK] 1860 1861 S000D90 B8 FROM R8 ; 1862 S000D91 4F NOT ; 1863 S000D92 D0 INC R0 ; 1864 S000D93 11 TO R1 ; 1865 S000D94 3D 9F LMULT ; 1866 1867 S000D96 3E A1 07 SMS R1,CWORK7 ;[CHK] 1868 S000D99 3E A4 08 SMS R4,CWORK8 ;[CHK] 1869 1870 mLDB R7,CENYSDR,R10 ;Ｙ　ＰＯＳ．計算 1870+ S000D9C F0 1181 IWT R0,#CENYSDR 1870+ S000D9F 5A ADD R10 1870+ S000DA0 17 TO R7 1870+ S000DA1 3D 40 LDB (R0) 1871 mLDW R8,CENYPSL,R10 ; 1871+ S000DA3 F0 1182 IWT R0,#CENYPSL 1871+ S000DA6 5A ADD R10 1871+ S000DA7 18 TO R8 1871+ S000DA8 40 LDW (R0) 1872 S000DA9 B8 FROM R8 ; 1873 S000DAA 9E LOB ; 1874 S000DAB 4D SWAP ; 1875 S000DAC 17 TO R7 ; 1876 S000DAD C7 OR R7 ; 1877 S000DAE 28 WITH R8 ; 1878 S000DAF C0 HIB ; 1879 S000DB0 21 B1 MOVES R1,R1 ; 1880 S000DB2 0A 09' BPL ROPE_CHK_SB1040 ; 1881 S000DB4 27 WITH R7 ; 1882 ; 1883 S000DB5 54 ADD R4 ; 1884 S000DB6 0D 0A' BCS ROPE_CHK_SB1050 ; 1885 S000DB8 28 WITH R8 ; 1886 S000DB9 E8 DEC R8 ; 1887 S000DBA 05 06' BRA ROPE_CHK_SB1050 ; 1888 S000DBC 28 WITH R8 ; 1889 ; 1890 ROPE_CHK_SB1040 ; 1891 S000DBD 54 ADD R4 ; 1892 S000DBE 28 WITH R8 ; 1893 S000DBF 3F 50 ADC #00 ; 1894 S000DC1 28 WITH R8 ; 1895 ; 1896 ROPE_CHK_SB1050 ; 1897 S000DC2 4D SWAP ; 1898 ; 1899 S000DC3 B7 FROM R7 ; 1900 S000DC4 C0 HIB ; 1901 S000DC5 18 TO R8 ; 1902 S000DC6 C8 OR R8 ; 1903 mSTW R8,CENYPSL,R10 ; 1903+ S000DC7 F0 1182 IWT R0,#CENYPSL 1903+ S000DCA 5A ADD R10 1903+ S000DCB B8 FROM R8 1903+ S000DCC 30 STW (R0) 1904 mSTB R7,CENYSDR,R10 ; 1904+ S000DCD F0 1181 IWT R0,#CENYSDR 1904+ S000DD0 5A ADD R10 1904+ S000DD1 B7 FROM R7 1904+ S000DD2 3D 30 STB (R0) 1905 1906 S000DD4 A3 00 IBT R3,#00 1907 mSTW R3,CENGPOW,R10 1907+ S000DD6 F0 1542 IWT R0,#CENGPOW 1907+ S000DD9 5A ADD R10 1907+ S000DDA B3 FROM R3 1907+ S000DDB 30 STW (R0) 1908 mSTW R3,CENYSPD,R10 1908+ S000DDC F0 1222 IWT R0,#CENYSPD 1908+ S000DDF 5A ADD R10 1908+ S000DE0 B3 FROM R3 1908+ S000DE1 30 STW (R0) 1909 mSTW R3,CENXSPD,R10 1909+ S000DE2 F0 1220 IWT R0,#CENXSPD 1909+ S000DE5 5A ADD R10 1909+ S000DE6 B3 FROM R3 1909+ S000DE7 30 STW (R0) 1910 1911 S000DE8 00 STOP 1912 S000DE9 01 NOP 1913 1914 ROPE_CHK_SB1100 1915 S000DEA 3E AB 31 SMS R11,RTS1 1916 1917 S000DED 3D A0 20 LMS R0,REG0 ;[CHK] 1918 S000DF0 D0 INC R0 1919 S000DF1 90 SBK 1920 1921 S000DF2 19 TO R9 1922 S000DF3 EF GETB 1923 S000DF4 DE INC R14 1924 1925 S000DF5 3E A9 0B SMS R9,CWORKB ;WRKB <- 坂の種類セット 1926 S000DF8 3E A8 0A SMS R8,CWORKA ;WRKA <- ＢＧの種類セット 1927 1928 mJSR ROPE_CPOS_SB 1928+ S000DFB 94 LINK #4 1928+ S000DFC FF 126E' IWT R15, #ROPE_CPOS_SB 1928+ S000DFF 01 NOP 1929 1930 S000E00 F0 14EB' IWT R0,#ROPE_SK_DATA 1931 S000E03 1E TO R14 1932 S000E04 59 ADD R9 1933 1934 S000E05 15 TO R5 1935 S000E06 EF GETB 1936 1937 S000E07 A0 00" IBT R0,#BANK M_TAN 1938 S000E09 3F DF ROMB 1939 1940 S000E0B F1 0100 IWT R1,#00100H 1941 S000E0E B5 FROM R5 1942 S000E0F 9E LOB 1943 S000E10 12 TO R2 1944 S000E11 95 SEX 1945 S000E12 0A 04' BPL ROPE_CHK_SB1200 1946 S000E14 01 NOP 1947 1948 S000E15 4F NOT 1949 S000E16 D0 INC R0 1950 S000E17 51 ADD R1 1951 1952 ROPE_CHK_SB1200 1953 S000E18 F1 0000" IWT R1,#M_TAN 1954 S000E1B 1E TO R14 1955 S000E1C 51 ADD R1 1956 1957 S000E1D 3D A6 00 LMS R6,CWORK0 ; 1958 S000E20 B9 FROM R9 ;右上がりの坂 ? 1959 S000E21 3E 71 AND #01 ; 1960 S000E23 08 02' BNE ROPE_CHK_SB1300 ; no: ROPE_CHK_SB1300 1961 S000E25 01 NOP 1962 S000E26 E6 DEC R6 1963 1964 ROPE_CHK_SB1300 1965 S000E27 EF GETB 1966 S000E28 DE INC R14 1967 S000E29 3D EF GETBH 1968 S000E2B 22 B2 MOVES R2,R2 1969 S000E2D 0A 03' BPL ROPE_CHK_SB1320 1970 S000E2F 01 NOP 1971 1972 S000E30 4F NOT 1973 S000E31 D0 INC R0 1974 1975 ROPE_CHK_SB1320 1976 S000E32 3D 9F LMULT ; 1977 S000E34 24 18 MOVE R8,R4 ; 1978 S000E36 24 WITH R4 ; 1979 S000E37 C0 HIB ; 1980 S000E38 9E LOB ; 1981 S000E39 4D SWAP ; 1982 S000E3A 17 TO R7 ; 1983 S000E3B C4 OR R4 ; 1984 1985 S000E3C 3E A7 27 SMS R7,REG7 ;[CHK] 1986 1987 mLDB0 CENWRKA,R10 ;ファーストフレーム ? 1987+ S000E3F F0 1900 IWT R0,#CENWRKA 1987+ S000E42 5A ADD R10 1987+ S000E43 3D 40 LDB (R0) 1988 S000E45 50 ADD R0 ; 1989 S000E46 4D SWAP ; 1990 S000E47 E0 DEC R0 ; 1991 S000E48 09 15' BEQ ROPE_CHK_SB1380 ; yes: ROPE_CHK_SB1380 1992 S000E4A 01 NOP 1993 1994 S000E4B 3D A3 01 LMS R3,CWORK1 ;範囲内 ? 1995 S000E4E E3 DEC R3 ; 1996 S000E4F B7 FROM R7 ; 1997 S000E50 4F NOT ; 1998 S000E51 D0 INC R0 ; 1999 S000E52 63 SUB R3 ; 2000 S000E53 3E 54 ADD #04 ; 2001 S000E55 3E 68 SUB #08 ; 2002 S000E57 0C 06' BCC ROPE_CHK_SB1380 ; yes: ROPE_CHK_SB1380 2003 S000E59 01 NOP 2004 2005 S000E5A 3D AB 31 LMS R11,RTS1 2006 2007 mRTS 2007+ S000E5D 9B JMP R11 2007+ S000E5E 01 NOP 2008 2009 ROPE_CHK_SB1380 2010 S000E5F 3D A0 20 LMS R0,REG0 ;[CHK] 2011 S000E62 D0 INC R0 2012 S000E63 90 SBK 2013 2014 S000E64 3D A3 0A LMS R3,CWORKA 2015 mSTB R3,CENWRKA,R10 ;ＢＧの種類セット 2015+ S000E67 F0 1900 IWT R0,#CENWRKA 2015+ S000E6A 5A ADD R10 2015+ S000E6B B3 FROM R3 2015+ S000E6C 3D 30 STB (R0) 2016 S000E6E 3D A3 0B LMS R3,CWORKB 2017 mSTB R3,CENWRKB,R10 ;坂の種類セット 2017+ S000E71 F0 1901 IWT R0,#CENWRKB 2017+ S000E74 5A ADD R10 2017+ S000E75 B3 FROM R3 2017+ S000E76 3D 30 STB (R0) 2018 2019 S000E78 3D A0 12 LMS R0,CWORK12 ;Ｙ　ＰＯＳ．補正 2020 S000E7B 23 WITH R3 ; ;直線 ? 2021 S000E7C 3E 66 SUB #06 ; ; 2022 S000E7E 08 03' BNE ROPE_CHK_SB1400 ; ; no: ROPE_CHK_SB1400 2023 S000E80 01 NOP ; 2024 ; 2025 S000E81 3E 62 SUB #02 ; 2026 ; 2027 ROPE_CHK_SB1400 ; 2028 S000E83 57 ADD R7 ; 2029 S000E84 17 TO R7 ; 2030 S000E85 3E 68 SUB #08 ; 2031 mSTW R7,CENYPSL,R10 ; 2031+ S000E87 F0 1182 IWT R0,#CENYPSL 2031+ S000E8A 5A ADD R10 2031+ S000E8B B7 FROM R7 2031+ S000E8C 30 STW (R0) 2032 mSTB R8,CENYSDR,R10 ; 2032+ S000E8D F0 1181 IWT R0,#CENYSDR 2032+ S000E90 5A ADD R10 2032+ S000E91 B8 FROM R8 2032+ S000E92 3D 30 STB (R0) 2033 2034 S000E94 F7 0100 IWT R7,#00100H ;進行角度セット 2035 S000E97 3D A0 0B LMS R0,CWORKB ;今、横直線 ? 2036 S000E9A 3E 66 SUB #06 ; 2037 S000E9C 09 1E' BEQ ROPE_CHK_SB1700 ; yes: ROPE_CHK_SB1700 2038 S000E9E 01 NOP 2039 2040 S000E9F 3D A0 0C LMS R0,CWORKC ;前、横直線だった ? 2041 S000EA2 3E 66 SUB #06 ; 2042 S000EA4 09 16' BEQ ROPE_CHK_SB1700 ; yes: ROPE_CHK_SB1700 2043 S000EA6 01 NOP 2044 2045 S000EA7 3D A0 21 LMS R0,REG1 ;中心をチェック中 ? 2046 S000EAA 3E 60 SUB #0 ; 2047 S000EAC 0B 0E' BMI ROPE_CHK_SB1700 ; yes: ROPE_CHK_SB1700 2048 S000EAE 01 NOP 2049 2050 mLDW0 CENCONT,R10 ; 2050+ S000EAF F0 1976 IWT R0,#CENCONT 2050+ S000EB2 5A ADD R10 2050+ S000EB3 40 LDW (R0) 2051 S000EB4 C0 HIB ; 2052 S000EB5 50 ADD R0 ; 2053 S000EB6 77 AND R7 ; 2054 S000EB7 15 TO R5 ; 2055 S000EB8 C5 OR R5 ; 2056 S000EB9 05 16' BRA ROPE_CHK_SB1800 2057 S000EBB 01 NOP 2058 2059 ROPE_CHK_SB1700 2060 S000EBC F8 01FE IWT R8,#001FEH ; 2061 S000EBF F1 0080 IWT R1,#00080H ; 2062 mLDW0 CENCONT,R10 2062+ S000EC2 F0 1976 IWT R0,#CENCONT 2062+ S000EC5 5A ADD R10 2062+ S000EC6 40 LDW (R0) 2063 S000EC7 C0 HIB 2064 S000EC8 50 ADD R0 2065 S000EC9 65 SUB R5 ; 2066 S000ECA 51 ADD R1 ; 2067 S000ECB 78 AND R8 ; 2068 S000ECC 67 SUB R7 ; 2069 S000ECD 0B 02' BMI ROPE_CHK_SB1800 ; 2070 S000ECF 25 WITH R5 ; 2071 S000ED0 C7 OR R7 ; 2072 ; 2073 ROPE_CHK_SB1800 ; 2074 S000ED1 3E A5 0F SMS R5,CWORKF ; 2075 2076 S000ED4 B5 FROM R5 ; 2077 S000ED5 03 LSR ; 2078 S000ED6 15 TO R5 ; 2079 S000ED7 4D SWAP ; 2080 mSTW R5,CENCONT,R10 ; 2080+ S000ED8 F0 1976 IWT R0,#CENCONT 2080+ S000EDB 5A ADD R10 2080+ S000EDC B5 FROM R5 2080+ S000EDD 30 STW (R0) 2081 2082 S000EDE A1 00 IBT R1,#000 2083 mSTB R1,CENXSDR,R10 2083+ S000EE0 F0 10E1 IWT R0,#CENXSDR 2083+ S000EE3 5A ADD R10 2083+ S000EE4 B1 FROM R1 2083+ S000EE5 3D 30 STB (R0) 2084 mSTW R1,CENGPOW,R10 2084+ S000EE7 F0 1542 IWT R0,#CENGPOW 2084+ S000EEA 5A ADD R10 2084+ S000EEB B1 FROM R1 2084+ S000EEC 30 STW (R0) 2085 mSTW R1,CENYSPD,R10 2085+ S000EED F0 1222 IWT R0,#CENYSPD 2085+ S000EF0 5A ADD R10 2085+ S000EF1 B1 FROM R1 2085+ S000EF2 30 STW (R0) 2086 mSTW R1,CENXSPD,R10 2086+ S000EF3 F0 1220 IWT R0,#CENXSPD 2086+ S000EF6 5A ADD R10 2086+ S000EF7 B1 FROM R1 2086+ S000EF8 30 STW (R0) 2087 2088 S000EF9 00 STOP 2089 S000EFA 01 NOP 2090 ; 2091 ROPE_CHK_SB2 2092 S000EFB 60 SUB R0 ;[CHK] 2093 S000EFC 3E A0 20 SMS R0,REG0 2094 2095 mLDB R9,CENWRKA,R10 ;前も壁だった ? 2095+ S000EFF F0 1900 IWT R0,#CENWRKA 2095+ S000F02 5A ADD R10 2095+ S000F03 19 TO R9 2095+ S000F04 3D 40 LDB (R0) 2096 S000F06 B8 FROM R8 ; 2097 S000F07 69 SUB R9 ; 2098 S000F08 08 6F' BNE ROPE_CHK_SB2300 ; no: ROPE_CHK_SB2300 2099 S000F0A 01 NOP 2100 2101 S000F0B A0 10 IBT R0,#010H ;[CHK] vvv******* warn :value out of range 2102 S000F0D 3E A0 20 SMS R0,CREG0 2103 2104 mLDW R1,CENWRK6,R10 2104+ S000F10 F0 1A36 IWT R0,#CENWRK6 2104+ S000F13 5A ADD R10 2104+ S000F14 11 TO R1 2104+ S000F15 40 LDW (R0) 2105 mLDW R2,CENWRK8,R10 2105+ S000F16 F0 1A38 IWT R0,#CENWRK8 2105+ S000F19 5A ADD R10 2105+ S000F1A 12 TO R2 2105+ S000F1B 40 LDW (R0) 2106 S000F1C 21 WITH R1 2107 S000F1D C0 HIB 2108 S000F1E B2 FROM R2 2109 S000F1F 9E LOB 2110 S000F20 4D SWAP 2111 S000F21 11 TO R1 2112 S000F22 C1 OR R1 2113 2114 mLDB R7,CENYSDR,R10 ;Ｙ　ＰＯＳ．計算 2114+ S000F23 F0 1181 IWT R0,#CENYSDR 2114+ S000F26 5A ADD R10 2114+ S000F27 17 TO R7 2114+ S000F28 3D 40 LDB (R0) 2115 mLDW R8,CENYPSL,R10 ; 2115+ S000F2A F0 1182 IWT R0,#CENYPSL 2115+ S000F2D 5A ADD R10 2115+ S000F2E 18 TO R8 2115+ S000F2F 40 LDW (R0) 2116 S000F30 B8 FROM R8 ; 2117 S000F31 9E LOB ; 2118 S000F32 4D SWAP ; 2119 S000F33 17 TO R7 ; 2120 S000F34 C7 OR R7 ; 2121 S000F35 28 WITH R8 ; 2122 S000F36 C0 HIB ; 2123 2124 mLDW R9,CENCONT,R10 ;上り ? 2124+ S000F37 F0 1976 IWT R0,#CENCONT 2124+ S000F3A 5A ADD R10 2124+ S000F3B 19 TO R9 2124+ S000F3C 40 LDW (R0) 2125 S000F3D 29 B9 MOVES R9,R9 ; 2126 S000F3F 0A 09' BPL ROPE_CHK_SB2100 ; no: ROPE_CHK_SB2100 2127 S000F41 27 WITH R7 2128 S000F42 61 SUB R1 2129 S000F43 0D 0A' BCS ROPE_CHK_SB2200 2130 S000F45 28 WITH R8 2131 S000F46 E8 DEC R8 2132 S000F47 05 06' BRA ROPE_CHK_SB2200 2133 S000F49 28 WITH R8 2134 2135 ROPE_CHK_SB2100 2136 S000F4A 51 ADD R1 2137 S000F4B 28 WITH R8 2138 S000F4C 3F 50 ADC #00 2139 S000F4E 28 WITH R8 2140 2141 ROPE_CHK_SB2200 2142 S000F4F 9E LOB 2143 S000F50 28 WITH R8 2144 S000F51 4D SWAP 2145 2146 S000F52 B7 FROM R7 ; 2147 S000F53 C0 HIB ; 2148 S000F54 18 TO R8 ; 2149 S000F55 C8 OR R8 ; 2150 mSTW R8,CENYPSL,R10 ; 2150+ S000F56 F0 1182 IWT R0,#CENYPSL 2150+ S000F59 5A ADD R10 2150+ S000F5A B8 FROM R8 2150+ S000F5B 30 STW (R0) 2151 mSTB R7,CENYSDR,R10 ; 2151+ S000F5C F0 1181 IWT R0,#CENYSDR 2151+ S000F5F 5A ADD R10 2151+ S000F60 B7 FROM R7 2151+ S000F61 3D 30 STB (R0) 2152 2153 S000F63 A3 00 IBT R3,#00 2154 mSTW R3,CENGPOW,R10 2154+ S000F65 F0 1542 IWT R0,#CENGPOW 2154+ S000F68 5A ADD R10 2154+ S000F69 B3 FROM R3 2154+ S000F6A 30 STW (R0) 2155 mSTW R3,CENYSPD,R10 2155+ S000F6B F0 1222 IWT R0,#CENYSPD 2155+ S000F6E 5A ADD R10 2155+ S000F6F B3 FROM R3 2155+ S000F70 30 STW (R0) 2156 mSTW R3,CENXSPD,R10 2156+ S000F71 F0 1220 IWT R0,#CENXSPD 2156+ S000F74 5A ADD R10 2156+ S000F75 B3 FROM R3 2156+ S000F76 30 STW (R0) 2157 2158 S000F77 00 STOP 2159 S000F78 01 NOP 2160 2161 ROPE_CHK_SB2300 2162 S000F79 3E AB 31 SMS R11,RTS1 2163 2164 S000F7C 3D A0 20 LMS R0,REG0 ;[CHK] 2165 S000F7F D0 INC R0 2166 S000F80 90 SBK 2167 2168 S000F81 19 TO R9 2169 S000F82 EF GETB 2170 S000F83 DE INC R14 2171 2172 S000F84 B9 FROM R9 2173 S000F85 3F 77 BIC #07 2174 S000F87 3E A0 0B SMS R0,CWORKB ;WRKB <- 坂の種類セット 2175 S000F8A 3E A8 0A SMS R8,CWORKA ;WRKA <- ＢＧの種類セット 2176 2177 mLDW R9,CENXPSL,R10 ;範囲内 ? 2177+ S000F8D F0 10E2 IWT R0,#CENXPSL 2177+ S000F90 5A ADD R10 2177+ S000F91 19 TO R9 2177+ S000F92 40 LDW (R0) 2178 2179 mLDB0 CENWRKA,R10 ;ファーストフレーム ? 2179+ S000F93 F0 1900 IWT R0,#CENWRKA 2179+ S000F96 5A ADD R10 2179+ S000F97 3D 40 LDB (R0) 2180 S000F99 50 ADD R0 ; 2181 S000F9A 4D SWAP ; 2182 S000F9B E0 DEC R0 ; 2183 S000F9C 09 0E' BEQ ROPE_CHK_SB2500 ; yes: ROPE_CHK_SB2500 2184 S000F9E 01 NOP 2185 2186 S000F9F B9 FROM R9 ; 2187 S000FA0 3E 7F AND #00FH ; 2188 S000FA2 3E 68 SUB #08 ; 2189 S000FA4 0A 06' BPL ROPE_CHK_SB2500 ; yes: ROPE_CHK_SB2500 2190 S000FA6 01 NOP 2191 2192 S000FA7 3D AB 31 LMS R11,RTS1 2193 2194 mRTS 2194+ S000FAA 9B JMP R11 2194+ S000FAB 01 NOP 2195 2196 ROPE_CHK_SB2500 2197 S000FAC 3D A0 20 LMS R0,REG0 ;[CHK] 2198 S000FAF D0 INC R0 2199 S000FB0 90 SBK 2200 2201 S000FB1 3D A3 0B LMS R3,CWORKB 2202 mSTB R3,CENWRKB,R10 ;坂の種類セット 2202+ S000FB4 F0 1901 IWT R0,#CENWRKB 2202+ S000FB7 5A ADD R10 2202+ S000FB8 B3 FROM R3 2202+ S000FB9 3D 30 STB (R0) 2203 S000FBB 3D A3 0A LMS R3,CWORKA 2204 mSTB R3,CENWRKA,R10 ;ＢＧの種類セット 2204+ S000FBE F0 1900 IWT R0,#CENWRKA 2204+ S000FC1 5A ADD R10 2204+ S000FC2 B3 FROM R3 2204+ S000FC3 3D 30 STB (R0) 2205 2206 S000FC5 B9 FROM R9 ;Ｘ　ＰＯＳ．補正 2207 S000FC6 3E 58 ADD #08 ; 2208 S000FC8 3F 7F BIC #00FH ; 2209 S000FCA 13 TO R3 ; 2210 S000FCB 3E 68 SUB #08 ; 2211 mSTW R3,CENXPSL,R10 ; 2211+ S000FCD F0 10E2 IWT R0,#CENXPSL 2211+ S000FD0 5A ADD R10 2211+ S000FD1 B3 FROM R3 2211+ S000FD2 30 STW (R0) 2212 2213 S000FD3 B9 FROM R9 2214 S000FD4 3E 58 ADD #008 2215 S000FD6 19 TO R9 2216 S000FD7 3E 7F AND #00FH 2217 2218 S000FD9 F7 8000 IWT R7,#08000H ;進行角度セット 2219 mLDW R8,CENYPSL,R10 ; 2219+ S000FDC F0 1182 IWT R0,#CENYPSL 2219+ S000FDF 5A ADD R10 2219+ S000FE0 18 TO R8 2219+ S000FE1 40 LDW (R0) 2220 S000FE2 B8 FROM R8 ; 2221 S000FE3 3E 7F AND #00FH ; 2222 S000FE5 3E 68 SUB #08 ; 2223 S000FE7 0A 05' BPL ROPE_CHK_SB2600 ; 2224 S000FE9 28 WITH R8 2225 S000FEA 69 SUB R9 2226 S000FEB 05 02' BRA ROPE_CHK_SB2700 ; 2227 S000FED D7 INC R7 ; 2228 ; 2229 ROPE_CHK_SB2600 ; 2230 S000FEE 59 ADD R9 2231 2232 ROPE_CHK_SB2700 2233 S000FEF B7 FROM R7 ; 2234 S000FF0 4D SWAP ; 2235 S000FF1 3E A0 0F SMS R0,CWORKF ; 2236 S000FF4 03 LSR ; 2237 S000FF5 15 TO R5 ; 2238 S000FF6 4D SWAP ; 2239 mSTW R5,CENCONT,R10 ; 2239+ S000FF7 F0 1976 IWT R0,#CENCONT 2239+ S000FFA 5A ADD R10 2239+ S000FFB B5 FROM R5 2239+ S000FFC 30 STW (R0) 2240 mSTW R8,CENYPSL,R10 2240+ S000FFD F0 1182 IWT R0,#CENYPSL 2240+ S001000 5A ADD R10 2240+ S001001 B8 FROM R8 2240+ S001002 30 STW (R0) 2241 2242 S001003 A1 00 IBT R1,#000 2243 mSTB R1,CENXSDR,R10 2243+ S001005 F0 10E1 IWT R0,#CENXSDR 2243+ S001008 5A ADD R10 2243+ S001009 B1 FROM R1 2243+ S00100A 3D 30 STB (R0) 2244 mSTB R1,CENYSDR,R10 2244+ S00100C F0 1181 IWT R0,#CENYSDR 2244+ S00100F 5A ADD R10 2244+ S001010 B1 FROM R1 2244+ S001011 3D 30 STB (R0) 2245 mSTW R1,CENGPOW,R10 2245+ S001013 F0 1542 IWT R0,#CENGPOW 2245+ S001016 5A ADD R10 2245+ S001017 B1 FROM R1 2245+ S001018 30 STW (R0) 2246 mSTW R1,CENYSPD,R10 2246+ S001019 F0 1222 IWT R0,#CENYSPD 2246+ S00101C 5A ADD R10 2246+ S00101D B1 FROM R1 2246+ S00101E 30 STW (R0) 2247 mSTW R1,CENXSPD,R10 2247+ S00101F F0 1220 IWT R0,#CENXSPD 2247+ S001022 5A ADD R10 2247+ S001023 B1 FROM R1 2247+ S001024 30 STW (R0) 2248 2249 S001025 00 STOP 2250 S001026 01 NOP 2251 ; 2252 ROPE_CHK_SB3 2253 S001027 60 SUB R0 ;[CHK] 2254 S001028 3E A0 20 SMS R0,REG0 2255 2256 mLDB R9,CENWRKA,R10 2256+ S00102B F0 1900 IWT R0,#CENWRKA 2256+ S00102E 5A ADD R10 2256+ S00102F 19 TO R9 2256+ S001030 3D 40 LDB (R0) 2257 S001032 B8 FROM R8 ;前も円だった ? 2258 S001033 69 SUB R9 ; 2259 S001034 09 07' BEQ ROPE_CHK_SB3010 ; yes: ROPE_CHK_SB3010 2260 S001036 01 NOP 2261 2262 ROPE_CHK_SB3000 2263 mDJMP_X ROPE_CHK_SB3100+1 ; no: ROPE_CHK_SB3100+1 2263+ S001037 FF 1087' IWT R15, #ROPE_CHK_SB3100+1 2264 S00103A 3E AB 31 SMS R11,RTS1 2265 2266 ROPE_CHK_SB3010 2267 S00103D 13 TO R3 2268 S00103E EF GETB ;前と同じユニット ? 2269 S00103F B3 FROM R3 ; 2270 S001040 16 TO R6 ; 2271 S001041 3F 73 BIC #03 ; 2272 mLDB0 CENWRKB,R10 ; 2272+ S001043 F0 1901 IWT R0,#CENWRKB 2272+ S001046 5A ADD R10 2272+ S001047 3D 40 LDB (R0) 2273 S001049 3F 66 CMP R6 ; 2274 S00104B 08 EA' BNE ROPE_CHK_SB3000 ; no: ROPE_CHK_SB3000 2275 S00104D 01 NOP 2276 2277 S00104E B3 FROM R3 ;半径１０Ｈの円 ? 2278 S00104F 3E 73 AND #03 ; 2279 S001051 3E 63 SUB #03 ; 2280 S001053 08 02' BNE ROPE_CHK_SB3020 ; no: ROPE_CHK_SB3020 2281 S001055 DE INC R14 2282 2283 S001056 DE INC R14 ; 2284 2285 ROPE_CHK_SB3020 2286 mJSR ROPE_CPOS_SB ;円の中心計算 2286+ S001057 94 LINK #4 2286+ S001058 FF 126E' IWT R15, #ROPE_CPOS_SB 2286+ S00105B 01 NOP 2287 2288 S00105C B6 FROM R6 ;(R3) <-- 円の半径 2289 S00105D 03 LSR 2290 S00105E 03 LSR 2291 S00105F 3F 77 BIC #007H 2292 S001061 16 TO R6 2293 S001062 3E 54 ADD #04 2294 S001064 F0 14F2' IWT R0,#ROPE_EN_DATA 2295 S001067 1E TO R14 2296 S001068 56 ADD R6 2297 S001069 13 TO R3 ; 2298 S00106A EF GETB ; 2299 2300 mJSR ROPE_EN_POS_CALC 2300+ S00106B 94 LINK #4 2300+ S00106C FF 1186' IWT R15, #ROPE_EN_POS_CALC 2300+ S00106F 01 NOP 2301 2302 S001070 A3 00 IBT R3,#00 2303 mSTW R3,CENGPOW,R10 2303+ S001072 F0 1542 IWT R0,#CENGPOW 2303+ S001075 5A ADD R10 2303+ S001076 B3 FROM R3 2303+ S001077 30 STW (R0) 2304 mSTW R3,CENYSPD,R10 2304+ S001078 F0 1222 IWT R0,#CENYSPD 2304+ S00107B 5A ADD R10 2304+ S00107C B3 FROM R3 2304+ S00107D 30 STW (R0) 2305 mSTW R3,CENXSPD,R10 2305+ S00107E F0 1220 IWT R0,#CENXSPD 2305+ S001081 5A ADD R10 2305+ S001082 B3 FROM R3 2305+ S001083 30 STW (R0) 2306 2307 S001084 00 STOP 2308 S001085 01 NOP 2309 2310 ROPE_CHK_SB3100 2311 S001086 3E AB 31 SMS R11,RTS1 2312 vvv******* warn :value out of range 2313 S001089 3D A0 20 LMS R0,CREG0 ;[CHK] 2314 S00108C D0 INC R0 2315 S00108D 90 SBK 2316 2317 S00108E 19 TO R9 2318 S00108F EF GETB 2319 S001090 DE INC R14 2320 2321 S001091 B9 FROM R9 2322 S001092 3F 73 BIC #03 2323 S001094 3E A0 0B SMS R0,CWORKB ;WRKB <- 円の種類セット 2324 S001097 3E A8 0A SMS R8,CWORKA ;WRKA <- ＢＧの種類セット 2325 2326 S00109A B9 FROM R9 ;半径１０Ｈの円 ? 2327 S00109B 3E 73 AND #03 ; 2328 S00109D 3E 63 SUB #03 ; 2329 S00109F 08 0A' BNE ROPE_CHK_SB3180 ; no: ROPE_CHK_SB3180 2330 S0010A1 01 NOP 2331 2332 S0010A2 1D TO R13 ; 2333 S0010A3 EF GETB ;(R13) <-- 中心角度 2334 S0010A4 DE INC R14 ; 2335 S0010A5 3E AD 2D SMS R13,REG13 2336 S0010A8 3E AE 2C SMS R14,REG12 2337 2338 ROPE_CHK_SB3180 2339 mJSR ROPE_CPOS_SB 2339+ S0010AB 94 LINK #4 2339+ S0010AC FF 126E' IWT R15, #ROPE_CPOS_SB 2339+ S0010AF 01 NOP 2340 2341 S0010B0 3D A0 00 LMS R0,CWORK0 2342 S0010B3 20 16 MOVE R6,R0 2343 S0010B5 3D 9F LMULT 2344 S0010B7 24 1B MOVE R11,R4 2345 S0010B9 3D A0 01 LMS R0,CWORK1 2346 S0010BC 20 16 MOVE R6,R0 2347 S0010BE 3D 9F LMULT 2348 S0010C0 2B WITH R11 ;X2+Y2 2349 S0010C1 54 ADD R4 2350 2351 S0010C2 B9 FROM R9 2352 S0010C3 03 LSR 2353 S0010C4 03 LSR 2354 S0010C5 13 TO R3 2355 S0010C6 3F 77 BIC #007H 2356 S0010C8 F0 14F2' IWT R0,#ROPE_EN_DATA 2357 S0010CB 1E TO R14 2358 S0010CC 53 ADD R3 2359 2360 mLDB0 CENWRKA,R10 ;ファーストフレーム ? 2360+ S0010CD F0 1900 IWT R0,#CENWRKA 2360+ S0010D0 5A ADD R10 2360+ S0010D1 3D 40 LDB (R0) 2361 S0010D3 50 ADD R0 ; 2362 S0010D4 4D SWAP ; 2363 S0010D5 E0 DEC R0 ; 2364 S0010D6 09 18' BEQ ROPE_CHK_SB3370 ; yes: ROPE_CHK_SB3370 2365 S0010D8 01 NOP 2366 2367 S0010D9 EF GETB ;チェック範囲内 ? 2368 S0010DA DE INC R14 ; 2369 S0010DB 3D EF GETBH ; 2370 S0010DD 3F 6B CMP R11 ; 2371 S0010DF 0A 0A' BPL ROPE_CHK_SB3350 ; no: ROPE_CHK_SB3350 2372 S0010E1 DE INC R14 ; 2373 S0010E2 EF GETB ; 2374 S0010E3 DE INC R14 ; 2375 S0010E4 3D EF GETBH ; 2376 S0010E6 3F 6B CMP R11 ; 2377 S0010E8 0A 09' BPL ROPE_CHK_SB3380 ; yes: ROPE_CHK_SB3380 2378 S0010EA DE INC R14 ; 2379 2380 ROPE_CHK_SB3350 2381 S0010EB 3D AB 31 LMS R11,RTS1 2382 2383 mRTS 2383+ S0010EE 9B JMP R11 2383+ S0010EF 01 NOP 2384 2385 ROPE_CHK_SB3370 2386 S0010F0 2E WITH R14 2387 S0010F1 3E 54 ADD #04 2388 2389 ROPE_CHK_SB3380 vvv******* warn :value out of range 2390 S0010F3 3D A0 20 LMS R0,CREG0 ;[CHK] 2391 S0010F6 D0 INC R0 2392 S0010F7 90 SBK 2393 2394 S0010F8 3D A3 0B LMS R3,CWORKB 2395 mSTB R3,CENWRKB,R10 ;円の種類セット 2395+ S0010FB F0 1901 IWT R0,#CENWRKB 2395+ S0010FE 5A ADD R10 2395+ S0010FF B3 FROM R3 2395+ S001100 3D 30 STB (R0) 2396 S001102 3D A3 0A LMS R3,CWORKA 2397 mSTB R3,CENWRKA,R10 ;ＢＧの種類セット 2397+ S001105 F0 1900 IWT R0,#CENWRKA 2397+ S001108 5A ADD R10 2397+ S001109 B3 FROM R3 2397+ S00110A 3D 30 STB (R0) 2398 2399 S00110C 3E AE 2E SMS R14,REG14 2400 2401 S00110F 3D A0 00 LMS R0,CWORK0 2402 S001112 11 TO R1 2403 S001113 4F NOT 2404 S001114 D1 INC R1 2405 S001115 3D A0 01 LMS R0,CWORK1 2406 S001118 12 TO R2 2407 S001119 4F NOT 2408 S00111A D2 INC R2 2409 2410 S00111B F0 0000" IWT R0,#M_RAD_GET_S ;角度計算 2411 S00111E A8 00" IBT R8,#BANK M_RAD_GET_S ; 2412 S001120 A5 00' IBT R5,#BANK M_ROPE_CHK ; 2413 S001122 2F 1B MOVE R11,R15 ; 2414 S001124 3D 98 LJMP R8 ; 2415 S001126 01 NOP 2416 2417 S001127 A0 00' IBT R0,#BANK ROPE_EN_DATA 2418 S001129 3F DF ROMB 2419 S00112B 3D AE 2E LMS R14,REG14 2420 S00112E 13 TO R3 ; 2421 S00112F EF GETB ;(R3) <-- 円の半径 2422 S001130 DE INC R14 2423 2424 S001131 F4 4000 IWT R4,#04000H ;(R5) <-- 進行方向角度セット（ＭＡＸ　ＦＦＨ） 2425 S001134 B1 FROM R1 ; 2426 S001135 4D SWAP ; 2427 S001136 15 TO R5 ; 2428 S001137 54 ADD R4 ; 2429 2430 S001138 EF GETB ;(R1) <-- 角振動数 2431 S001139 DE INC R14 ; 2432 S00113A 11 TO R1 ; 2433 S00113B 3D EF GETBH ; 2434 2435 mLDW R7,CENCONT,R10 2435+ S00113D F0 1976 IWT R0,#CENCONT 2435+ S001140 5A ADD R10 2435+ S001141 17 TO R7 2435+ S001142 40 LDW (R0) 2436 S001143 B5 FROM R5 2437 S001144 67 SUB R7 2438 S001145 54 ADD R4 2439 S001146 0A 08' BPL ROPE_CHK_SB3400 2440 S001148 01 NOP 2441 2442 S001149 B5 FROM R5 ;進行方向角度を反転 2443 S00114A 54 ADD R4 ; 2444 S00114B 15 TO R5 ; 2445 S00114C 54 ADD R4 ; 2446 2447 S00114D 21 WITH R1 ;角振動数を反転 2448 S00114E 4F NOT ; 2449 S00114F D1 INC R1 ; 2450 2451 001150 ROPE_CHK_SB3400 EQU $ 2452 S001150 3E A1 0F SMS R1,CWORKF ;WRKF <-- 角振動数 2453 2454 S001153 F2 0100 IWT R2,#00100H ;角度補正 2455 S001156 21 B1 MOVES R1,R1 ; 2456 S001158 0A 05' BPL ROPE_CHK_SB3500 ; 2457 S00115A 25 WITH R5 ; 2458 ; 2459 S00115B 62 SUB R2 ; 2460 S00115C 05 02' BRA ROPE_CHK_SB3600 ; 2461 S00115E 01 NOP ; 2462 ; 2463 ROPE_CHK_SB3500 ; 2464 S00115F 52 ADD R2 ; 2465 2466 ROPE_CHK_SB3600 2467 mSTW R5,CENCONT,R10 ;初期角度セット 2467+ S001160 F0 1976 IWT R0,#CENCONT 2467+ S001163 5A ADD R10 2467+ S001164 B5 FROM R5 2467+ S001165 30 STW (R0) 2468 2469 S001166 25 11 MOVE R1,R5 2470 S001168 3D A5 0F LMS R5,CWORKF 2471 mJSR ROPE_EN_POS_CALC2 2471+ S00116B 94 LINK #4 2471+ S00116C FF 11B0' IWT R15, #ROPE_EN_POS_CALC2 2471+ S00116F 01 NOP 2472 2473 S001170 A3 00 IBT R3,#00 2474 mSTW R3,CENGPOW,R10 2474+ S001172 F0 1542 IWT R0,#CENGPOW 2474+ S001175 5A ADD R10 2474+ S001176 B3 FROM R3 2474+ S001177 30 STW (R0) 2475 mSTW R3,CENYSPD,R10 2475+ S001178 F0 1222 IWT R0,#CENYSPD 2475+ S00117B 5A ADD R10 2475+ S00117C B3 FROM R3 2475+ S00117D 30 STW (R0) 2476 mSTW R3,CENXSPD,R10 2476+ S00117E F0 1220 IWT R0,#CENXSPD 2476+ S001181 5A ADD R10 2476+ S001182 B3 FROM R3 2476+ S001183 30 STW (R0) 2477 2478 S001184 00 STOP 2479 S001185 01 NOP 2480 ; 2481 ROPE_EN_POS_CALC 2482 mLDW R1,CENCONT,R10 ;角度計算 2482+ S001186 F0 1976 IWT R0,#CENCONT 2482+ S001189 5A ADD R10 2482+ S00118A 11 TO R1 2482+ S00118B 40 LDW (R0) 2483 mLDW R6,CENWRK6,R10 ; 2483+ S00118C F0 1A36 IWT R0,#CENWRK6 2483+ S00118F 5A ADD R10 2483+ S001190 16 TO R6 2483+ S001191 40 LDW (R0) 2484 mLDW0 CENWRK8,R10 ; 2484+ S001192 F0 1A38 IWT R0,#CENWRK8 2484+ S001195 5A ADD R10 2484+ S001196 40 LDW (R0) 2485 S001197 26 WITH R6 ; 2486 S001198 C0 HIB ; 2487 S001199 9E LOB ; 2488 S00119A 4D SWAP ; 2489 S00119B 16 TO R6 ; 2490 S00119C C6 OR R6 ; 2491 S00119D 3D A5 0F LMS R5,CWORKF ; 2492 S0011A0 B5 FROM R5 ; 2493 S0011A1 3D 9F LMULT ; 2494 S0011A3 24 WITH R4 ; 2495 S0011A4 C0 HIB ; 2496 S0011A5 9E LOB ; 2497 S0011A6 4D SWAP ; 2498 S0011A7 C4 OR R4 ; 2499 S0011A8 11 TO R1 ; 2500 S0011A9 51 ADD R1 ; 2501 mSTW R1,CENCONT,R10 ; 2501+ S0011AA F0 1976 IWT R0,#CENCONT 2501+ S0011AD 5A ADD R10 2501+ S0011AE B1 FROM R1 2501+ S0011AF 30 STW (R0) 2502 2503 ROPE_EN_POS_CALC2 2504 S0011B0 F7 4000 IWT R7,#04000H 2505 S0011B3 25 B5 MOVES R5,R5 2506 S0011B5 0A 05' BPL ROPE_E_P_C0100 2507 S0011B7 21 WITH R1 2508 S0011B8 57 ADD R7 2509 S0011B9 05 02' BRA ROPE_E_P_C0200 2510 S0011BB 01 NOP 2511 2512 ROPE_E_P_C0100 2513 S0011BC 67 SUB R7 2514 2515 ROPE_E_P_C0200 2516 S0011BD B1 FROM R1 2517 S0011BE 03 LSR 2518 S0011BF 03 LSR 2519 S0011C0 03 LSR 2520 S0011C1 03 LSR 2521 S0011C2 03 LSR 2522 S0011C3 03 LSR 2523 S0011C4 11 TO R1 2524 S0011C5 3F 71 BIC #01 2525 ;;;;;;;; FROM R1 ;位置計算 2526 ;;;;;;;; HIB ; 2527 ;;;;;;;; TO R1 ; 2528 ;;;;;;;; ADD R0 ; 2529 S0011C7 23 16 MOVE R6,R3 ; 2530 2531 S0011C9 A0 00' IBT R0,#BANK WSIN 2532 S0011CB 3F DF ROMB 2533 2534 S0011CD F0 0100' IWT R0,#WSIN 2535 S0011D0 1E TO R14 2536 S0011D1 51 ADD R1 2537 2538 S0011D2 F0 0000' IWT R0,#WCOS 2539 S0011D5 12 TO R2 2540 S0011D6 51 ADD R1 2541 2542 S0011D7 EF GETB 2543 S0011D8 DE INC R14 2544 S0011D9 3D EF GETBH 2545 S0011DB 3D 9F LMULT 2546 S0011DD F3 0080 IWT R3,#00080H 2547 S0011E0 24 WITH R4 2548 S0011E1 53 ADD R3 2549 S0011E2 3F 50 ADC #00 2550 S0011E4 24 WITH R4 2551 S0011E5 C0 HIB 2552 S0011E6 9E LOB 2553 S0011E7 4D SWAP 2554 S0011E8 11 TO R1 2555 S0011E9 C4 OR R4 2556 2557 S0011EA 22 1E MOVE R14,R2 2558 S0011EC EF GETB 2559 S0011ED DE INC R14 2560 S0011EE 3D EF GETBH 2561 S0011F0 3D 9F LMULT 2562 S0011F2 24 WITH R4 2563 S0011F3 53 ADD R3 2564 S0011F4 3F 50 ADC #00 2565 S0011F6 24 WITH R4 2566 S0011F7 C0 HIB 2567 S0011F8 9E LOB 2568 S0011F9 4D SWAP 2569 S0011FA C4 OR R4 2570 2571 S0011FB 3E 58 ADD #08 2572 S0011FD 3D A3 11 LMS R3,CWORK11 ;Ｘ　ＰＯＳ．補正 2573 S001200 23 WITH R3 ; 2574 S001201 60 SUB R0 ; 2575 mSTW R3,CENXPSL,R10 ; 2575+ S001202 F0 10E2 IWT R0,#CENXPSL 2575+ S001205 5A ADD R10 2575+ S001206 B3 FROM R3 2575+ S001207 30 STW (R0) 2576 S001208 3D A3 12 LMS R3,CWORK12 ;Ｙ　ＰＯＳ．補正 2577 S00120B B3 FROM R3 ; 2578 S00120C 61 SUB R1 ; 2579 S00120D 13 TO R3 2580 S00120E 3E 68 SUB #08 2581 mSTW R3,CENYPSL,R10 ; 2581+ S001210 F0 1182 IWT R0,#CENYPSL 2581+ S001213 5A ADD R10 2581+ S001214 B3 FROM R3 2581+ S001215 30 STW (R0) 2582 2583 mRTS 2583+ S001216 9B JMP R11 2583+ S001217 01 NOP 2584 ; 2585 ROPE_CHK_SB4 2586 S001218 A0 02 IBT R0,#002 ;[CHK] 2587 S00121A 3E A0 20 SMS R0,REG0 2588 2589 mLDW0 CENXPSL,R10 2589+ S00121D F0 10E2 IWT R0,#CENXPSL 2589+ S001220 5A ADD R10 2589+ S001221 40 LDW (R0) 2590 S001222 11 TO R1 2591 S001223 3F 7F BIC #0FH 2592 mLDW0 CENYPSL,R10 2592+ S001225 F0 1182 IWT R0,#CENYPSL 2592+ S001228 5A ADD R10 2592+ S001229 40 LDW (R0) 2593 S00122A 12 TO R2 2594 S00122B 3F 7F BIC #0FH 2595 S00122D EF GETB 2596 S00122E DE INC R14 2597 S00122F 11 TO R1 2598 S001230 C1 OR R1 2599 S001231 EF GETB 2600 S001232 C2 OR R2 2601 ; FROM R2 ;[ mSTW R2,CENYPSL,R10 ] 2602 S001233 90 SBK 2603 mSTW R1,CENXPSL,R10 2603+ S001234 F0 10E2 IWT R0,#CENXPSL 2603+ S001237 5A ADD R10 2603+ S001238 B1 FROM R1 2603+ S001239 30 STW (R0) 2604 2605 S00123A F3 0100 IWT R3,#00100H 2606 S00123D F2 01FE IWT R2,#001FEH 2607 mLDB R1,CENWRKA,R10 2607+ S001240 F0 1900 IWT R0,#CENWRKA 2607+ S001243 5A ADD R10 2607+ S001244 11 TO R1 2607+ S001245 3D 40 LDB (R0) 2608 S001247 3D A0 0F LMS R0,CWORKF 2609 S00124A 21 WITH R1 2610 S00124B 3E 62 SUB #02 2611 S00124D 0A 05' BPL ROPE_CHK_SB4100 2612 S00124F 01 NOP 2613 2614 S001250 53 ADD R3 2615 S001251 05 03' BRA ROPE_CHK_SB4200 2616 S001253 72 AND R2 2617 2618 ROPE_CHK_SB4100 2619 S001254 4F NOT 2620 S001255 D0 INC R0 2621 2622 ROPE_CHK_SB4200 2623 S001256 3E A0 0F SMS R0,CWORKF 2624 2625 S001259 A3 03 IBT R3,#03 2626 mSTB R3,CENWRKA,R10 2626+ S00125B F0 1900 IWT R0,#CENWRKA 2626+ S00125E 5A ADD R10 2626+ S00125F B3 FROM R3 2626+ S001260 3D 30 STB (R0) 2627 2628 S001262 F3 8000 IWT R3,#08000H 2629 mLDW0 CENCONT,R10 2629+ S001265 F0 1976 IWT R0,#CENCONT 2629+ S001268 5A ADD R10 2629+ S001269 40 LDW (R0) 2630 S00126A 53 ADD R3 2631 S00126B 90 SBK 2632 2633 S00126C 00 STOP 2634 S00126D 01 NOP 2635 ; 2636 ROPE_CPOS_SB 2637 S00126E 3E AB 32 SMS R11,RTS2 2638 2639 mLDW0 CENXPSL,R10 ;(R7) <- リフトの中心のＸ　ＰＯＳ． 2639+ S001271 F0 10E2 IWT R0,#CENXPSL 2639+ S001274 5A ADD R10 2639+ S001275 40 LDW (R0) 2640 S001276 17 TO R7 ; 2641 S001277 3E 58 ADD #08 ; 2642 S001279 B7 FROM R7 ; 2643 S00127A 1B TO R11 ;(R11) <-- チェックしたユニットのＸ　ＰＯＳ． 2644 S00127B 3F 7F BIC #00FH ; 2645 2646 mLDW0 CENYPSL,R10 ;(R8) <- リフトの中心のＹ　ＰＯＳ． 2646+ S00127D F0 1182 IWT R0,#CENYPSL 2646+ S001280 5A ADD R10 2646+ S001281 40 LDW (R0) 2647 S001282 18 TO R8 ; 2648 S001283 3E 58 ADD #08 ; 2649 S001285 B8 FROM R8 ; 2650 S001286 1C TO R12 ;(R12) <-- チェックしたユニットのＹ　ＰＯＳ． 2651 S001287 3F 7F BIC #00FH ; 2652 2653 S001289 3F EF GETBS ;X OFFSET POS 2654 S00128B 3E 60 SUB #0 2655 S00128D 0B 02' BMI ROPE_CPOS_SB3200 2656 S00128F DE INC R14 2657 2658 S001290 50 ADD R0 2659 2660 ROPE_CPOS_SB3200 2661 S001291 5B ADD R11 ; 2662 S001292 3E A0 11 SMS R0,CWORK11 ;WRK11 <-- 円の中心のＸ　ＰＯＳ． 2663 S001295 67 SUB R7 2664 S001296 3E A0 00 SMS R0,CWORK0 ;WRK0 <-- リフトの中心と円の中心のＸキョリ 2665 2666 S001299 3F EF GETBS ;Y OFFSET POS 2667 2668 S00129B 3E 60 SUB #0 2669 S00129D 0B 02' BMI ROPE_CPOS_SB3300 2670 S00129F DE INC R14 2671 2672 S0012A0 50 ADD R0 2673 2674 ROPE_CPOS_SB3300 2675 S0012A1 5C ADD R12 2676 S0012A2 3E A0 12 SMS R0,CWORK12 ;WRK12 <-- 円の中心のＹ　ＰＯＳ． 2677 S0012A5 68 SUB R8 2678 S0012A6 3E A0 01 SMS R0,CWORK1 ;WRK1 <-- リフトの中心と円の中心のＹキョリ 2679 2680 S0012A9 3D AB 32 LMS R11,RTS2 2681 2682 mRTS 2682+ S0012AC 9B JMP R11 2682+ S0012AD 01 NOP 2683 ; 2684 0012AE ROPE_CHK_DT EQU $ 2685 ;UT87** [00] [01] [02] [03] [04] [05] [06] [07] 2686 S0012AE 136E'1372'1376' WORD UT00_DA,UT01_DA,UT02_DA,UT03_DA,UT04_DA,UT05_DA,UT06_DA,UT07_DA S0012B4 137A'137E'1382' S0012BA 1386'138A' 2687 ;UT87** [08] [09] [0A] [0B] [0C] [0D] [0E] [0F] 2688 S0012BE 138E'1392'1396' WORD UT08_DA,UT09_DA,UT0A_DA,UT0B_DA,UT0C_DA,UT0D_DA,UT0E_DA,UT0F_DA S0012C4 139A'139E'13A2' S0012CA 13A6'13AA' 2689 ;UT87** [10] [11] [12] [13] [14] [15] [16] [17] 2690 S0012CE 13AB'13B0'13B5' WORD UT10_DA,UT11_DA,UT12_DA,UT13_DA,UT14_DA,UT15_DA,UT16_DA,UT17_DA S0012D4 13BA'13BF'13C3' S0012DA 13C7'13CB' 2691 ;UT87** [18] [19] [1A] [1B] [1C] [1D] [1E] [1F] 2692 S0012DE 13CF'13D3'13D7' WORD UT18_DA,UT19_DA,UT1A_DA,UT1B_DA,UT1C_DA,UT1D_DA,UT1E_DA,UT1F_DA S0012E4 13DB'13DF'13E3' S0012EA 13E7'13EB' 2693 ;UT87** [20] [21] [22] [23] [24] [25] [26] [27] 2694 S0012EE 13EF'13F3'13F7' WORD UT20_DA,UT21_DA,UT22_DA,UT23_DA,UT24_DA,UT25_DA,UT26_DA,UT27_DA S0012F4 13FB'13FF'1403' S0012FA 1407'140B' 2695 ;UT87** [28] [29] [2A] [2B] [2C] [2D] [2E] [2F] 2696 S0012FE 140F'1413'1417' WORD UT28_DA,UT29_DA,UT2A_DA,UT2B_DA,UT2C_DA,UT2D_DA,UT2E_DA,UT2F_DA S001304 141B'141F'1423' S00130A 1427'142B' 2697 ;UT87** [30] [31] [32] [33] [34] [35] [36] [37] 2698 S00130E 142E'1432'1436' WORD UT30_DA,UT31_DA,UT32_DA,UT33_DA,UT34_DA,UT35_DA,UT36_DA,UT37_DA S001314 143A'143E'1442' S00131A 1446'144A' 2699 ;UT87** [38] [39] [3A] [3B] [3C] [3D] [3E] [3F] 2700 S00131E 144E'1452'1456' WORD UT38_DA,UT39_DA,UT3A_DA,UT3B_DA,UT3C_DA,UT3D_DA,UT3E_DA,UT3F_DA S001324 145A'145E'1462' S00132A 1466'146A' 2701 ;UT87** [40] [41] [42] [43] [44] [45] [46] [47] 2702 S00132E 146D'1471'1475' WORD UT40_DA,UT41_DA,UT42_DA,UT43_DA,UT44_DA,UT45_DA,UT46_DA,UT47_DA S001334 1479'147D'1481' S00133A 1485'1489' 2703 ;UT87** [48] [49] [4A] [4B] [4C] [4D] [4E] [4F] 2704 S00133E 148D'1491'1495' WORD UT48_DA,UT49_DA,UT4A_DA,UT4B_DA,UT4C_DA,UT4D_DA,UT4E_DA,UT4F_DA S001344 1499'149D'14A1' S00134A 14A5'14A9' 2705 ;UT87** [50] [51] [52] [53] [54] [55] [56] [57] 2706 S00134E 14AC'14B0'14B4' WORD UT50_DA,UT51_DA,UT52_DA,UT53_DA,UT54_DA,UT55_DA,UT56_DA,UT57_DA S001354 14B8'14BC'14C0' S00135A 14C4'14C8' 2707 ;UT87** [58] [59] [5A] [5B] [5C] [5D] [5E] [5F] 2708 S00135E 14CC'14D0'14D4' WORD UT58_DA,UT59_DA,UT5A_DA,UT5B_DA,UT5C_DA,UT5D_DA,UT5E_DA,UT5F_DA S001364 14D8'14DC'14E0' S00136A 14E4'14E8' 2709 ; 2710 ;ー坂ー 2711 ; ＢＧの種類（０：坂）,坂の種類＊８ 2712 ; Ｘ　ＰＯＳ．/02H（負なら/01H）,（Ｙ　ＰＯＳ．＋２）/02H（負なら/01H） 2713 ; 2714 ;ー円ー 2715 ; ＢＧの種類（２：円）,円の種類＊８＋Ｘ（Ｘ：０ー真ん中、１ー反時計、２ー時計、３ー同一）, 2716 ; Ｘ　ＰＯＳ．/02H（負なら/01H）,Ｙ　ＰＯＳ．/02H（負なら/01H） 2717 ; 2718 ;ーストッパーー 2719 ; ＢＧの種類（３：止）,Ｘ補正値,Ｙ補正値 2720 ; 2721 00136E ROPE_DATA EQU $ 2722 00136E UT00_DA EQU $ 2723 S00136E 00 00 00 08 BYTE 00,00H,000H/2,(00FH+2)/2 2724 001372 UT01_DA EQU $ 2725 S001372 00 01 08 08 BYTE 00,01H,010H/2,(00FH+2)/2 2726 001376 UT02_DA EQU $ 2727 S001376 00 02 F0 08 BYTE 00,02H,0F0H/1,(00FH+2)/2 2728 00137A UT03_DA EQU $ 2729 S00137A 00 02 00 08 BYTE 00,02H,000H/2,(00FH+2)/2 2730 00137E UT04_DA EQU $ 2731 S00137E 00 03 10 08 BYTE 00,03H,020H/2,(00FH+2)/2 2732 001382 UT05_DA EQU $ 2733 S001382 00 03 08 08 BYTE 00,03H,010H/2,(00FH+2)/2 2734 001386 UT06_DA EQU $ 2735 S001386 00 04 D0 08 BYTE 00,04H,0D0H/1,(00FH+2)/2 2736 00138A UT07_DA EQU $ 2737 S00138A 00 04 E0 08 BYTE 00,04H,0E0H/1,(00FH+2)/2 2738 00138E UT08_DA EQU $ 2739 S00138E 00 04 F0 08 BYTE 00,04H,0F0H/1,(00FH+2)/2 2740 001392 UT09_DA EQU $ 2741 S001392 00 04 00 08 BYTE 00,04H,000H/2,(00FH+2)/2 2742 001396 UT0A_DA EQU $ 2743 S001396 00 05 20 08 BYTE 00,05H,040H/2,(00FH+2)/2 2744 00139A UT0B_DA EQU $ 2745 S00139A 00 05 18 08 BYTE 00,05H,030H/2,(00FH+2)/2 2746 00139E UT0C_DA EQU $ 2747 S00139E 00 05 10 08 BYTE 00,05H,020H/2,(00FH+2)/2 2748 0013A2 UT0D_DA EQU $ 2749 S0013A2 00 05 08 08 BYTE 00,05H,010H/2,(00FH+2)/2 2750 0013A6 UT0E_DA EQU $ 2751 S0013A6 00 06 00 01 BYTE 00,06H,000H/2,(000H+2)/2 2752 0013AA UT0F_DA EQU $ 2753 S0013AA 01 BYTE 01 2754 ; 2755 0013AB UT10_DA EQU $ 2756 S0013AB 02 03 E0 08 08 BYTE 02,00H*8+3,0E0H,010H/02,010H/02 2757 0013B0 UT11_DA EQU $ 2758 S0013B0 02 0B A0 00 08 BYTE 02,01H*8+3,0A0H,000H/02,010H/02 2759 0013B5 UT12_DA EQU $ 2760 S0013B5 02 1B 20 08 00 BYTE 02,03H*8+3,020H,010H/02,000H/02 2761 0013BA UT13_DA EQU $ 2762 S0013BA 02 13 60 00 00 BYTE 02,02H*8+3,060H,000H/02,000H/02 2763 0013BF UT14_DA EQU $ 2764 S0013BF 02 20 10 10 BYTE 02,04H*8+0,020H/02,020H/02 2765 0013C3 UT15_DA EQU $ 2766 S0013C3 02 21 08 10 BYTE 02,04H*8+1,010H/02,020H/02 2767 0013C7 UT16_DA EQU $ 2768 S0013C7 02 2A 00 10 BYTE 02,05H*8+2,000H/02,020H/02 2769 0013CB UT17_DA EQU $ 2770 S0013CB 02 28 F0 10 BYTE 02,05H*8+0,0F0H/01,020H/02 2771 0013CF UT18_DA EQU $ 2772 S0013CF 02 22 10 08 BYTE 02,04H*8+2,020H/02,010H/02 2773 0013D3 UT19_DA EQU $ 2774 S0013D3 02 29 F0 08 BYTE 02,05H*8+1,0F0H/01,010H/02 2775 0013D7 UT1A_DA EQU $ 2776 S0013D7 02 38 10 F0 BYTE 02,07H*8+0,020H/02,0F0H/01 2777 0013DB UT1B_DA EQU $ 2778 S0013DB 02 3A 08 F0 BYTE 02,07H*8+2,010H/02,0F0H/01 2779 0013DF UT1C_DA EQU $ 2780 S0013DF 02 31 00 F0 BYTE 02,06H*8+1,000H/02,0F0H/01 2781 0013E3 UT1D_DA EQU $ 2782 S0013E3 02 30 F0 F0 BYTE 02,06H*8+0,0F0H/01,0F0H/01 2783 0013E7 UT1E_DA EQU $ 2784 S0013E7 02 39 10 00 BYTE 02,07H*8+1,020H/02,000H/02 2785 0013EB UT1F_DA EQU $ 2786 S0013EB 02 32 F0 00 BYTE 02,06H*8+2,0F0H/01,000H/02 2787 ; 2788 0013EF UT20_DA EQU $ 2789 S0013EF 02 40 20 40 BYTE 02,08H*8+0,040H/02,080H/02 2790 0013F3 UT21_DA EQU $ 2791 S0013F3 02 40 18 40 BYTE 02,08H*8+0,030H/02,080H/02 2792 0013F7 UT22_DA EQU $ 2793 S0013F7 02 40 10 40 BYTE 02,08H*8+0,020H/02,080H/02 2794 0013FB UT23_DA EQU $ 2795 S0013FB 02 41 08 40 BYTE 02,08H*8+1,010H/02,080H/02 2796 0013FF UT24_DA EQU $ 2797 S0013FF 02 40 30 38 BYTE 02,08H*8+0,060H/02,070H/02 2798 001403 UT25_DA EQU $ 2799 S001403 02 40 28 38 BYTE 02,08H*8+0,050H/02,070H/02 2800 001407 UT26_DA EQU $ 2801 S001407 02 40 20 38 BYTE 02,08H*8+0,040H/02,070H/02 2802 00140B UT27_DA EQU $ 2803 S00140B 02 40 38 30 BYTE 02,08H*8+0,070H/02,060H/02 2804 00140F UT28_DA EQU $ 2805 S00140F 02 40 30 30 BYTE 02,08H*8+0,060H/02,060H/02 2806 001413 UT29_DA EQU $ 2807 S001413 02 40 38 28 BYTE 02,08H*8+0,070H/02,050H/02 2808 001417 UT2A_DA EQU $ 2809 S001417 02 40 40 20 BYTE 02,08H*8+0,080H/02,040H/02 2810 00141B UT2B_DA EQU $ 2811 S00141B 02 40 38 20 BYTE 02,08H*8+0,070H/02,040H/02 2812 00141F UT2C_DA EQU $ 2813 S00141F 02 40 40 18 BYTE 02,08H*8+0,080H/02,030H/02 2814 001423 UT2D_DA EQU $ 2815 S001423 02 40 40 10 BYTE 02,08H*8+0,080H/02,020H/02 2816 001427 UT2E_DA EQU $ 2817 S001427 02 42 40 08 BYTE 02,08H*8+2,080H/02,010H/02 2818 00142B UT2F_DA EQU $ 2819 S00142B 03 08 08 BYTE 03,008H,008H 2820 ; 2821 00142E UT30_DA EQU $ 2822 S00142E 02 58 20 90 BYTE 02,0BH*8+0,040H/02,090H/01 2823 001432 UT31_DA EQU $ 2824 S001432 02 58 18 90 BYTE 02,0BH*8+0,030H/02,090H/01 2825 001436 UT32_DA EQU $ 2826 S001436 02 58 10 90 BYTE 02,0BH*8+0,020H/02,090H/01 2827 00143A UT33_DA EQU $ 2828 S00143A 02 5A 08 90 BYTE 02,0BH*8+2,010H/02,090H/01 2829 00143E UT34_DA EQU $ 2830 S00143E 02 58 30 A0 BYTE 02,0BH*8+0,060H/02,0A0H/01 2831 001442 UT35_DA EQU $ 2832 S001442 02 58 28 A0 BYTE 02,0BH*8+0,050H/02,0A0H/01 2833 001446 UT36_DA EQU $ 2834 S001446 02 58 20 A0 BYTE 02,0BH*8+0,040H/02,0A0H/01 2835 00144A UT37_DA EQU $ 2836 S00144A 02 58 38 B0 BYTE 02,0BH*8+0,070H/02,0B0H/01 2837 00144E UT38_DA EQU $ 2838 S00144E 02 58 30 B0 BYTE 02,0BH*8+0,060H/02,0B0H/01 2839 001452 UT39_DA EQU $ 2840 S001452 02 58 38 C0 BYTE 02,0BH*8+0,070H/02,0C0H/01 2841 001456 UT3A_DA EQU $ 2842 S001456 02 58 40 D0 BYTE 02,0BH*8+0,080H/02,0D0H/01 2843 00145A UT3B_DA EQU $ 2844 S00145A 02 58 38 D0 BYTE 02,0BH*8+0,070H/02,0D0H/01 2845 00145E UT3C_DA EQU $ 2846 S00145E 02 58 40 E0 BYTE 02,0BH*8+0,080H/02,0E0H/01 2847 001462 UT3D_DA EQU $ 2848 S001462 02 58 40 F0 BYTE 02,0BH*8+0,080H/02,0F0H/01 2849 001466 UT3E_DA EQU $ 2850 S001466 02 59 40 00 BYTE 02,0BH*8+1,080H/02,000H/01 2851 00146A UT3F_DA EQU $ 2852 S00146A 03 07 08 BYTE 03,007H,008H 2853 ; 2854 00146D UT40_DA EQU $ 2855 S00146D 02 49 90 08 BYTE 02,09H*8+1,090H/01,010H/02 2856 001471 UT41_DA EQU $ 2857 S001471 02 48 90 10 BYTE 02,09H*8+0,090H/01,020H/02 2858 001475 UT42_DA EQU $ 2859 S001475 02 48 90 18 BYTE 02,09H*8+0,090H/01,030H/02 2860 001479 UT43_DA EQU $ 2861 S001479 02 48 A0 20 BYTE 02,09H*8+0,0A0H/01,040H/02 2862 00147D UT44_DA EQU $ 2863 S00147D 02 48 90 20 BYTE 02,09H*8+0,090H/01,040H/02 2864 001481 UT45_DA EQU $ 2865 S001481 02 48 A0 28 BYTE 02,09H*8+0,0A0H/01,050H/02 2866 001485 UT46_DA EQU $ 2867 S001485 02 48 B0 30 BYTE 02,09H*8+0,0B0H/01,060H/02 2868 001489 UT47_DA EQU $ 2869 S001489 02 48 A0 30 BYTE 02,09H*8+0,0A0H/01,060H/02 2870 00148D UT48_DA EQU $ 2871 S00148D 02 48 D0 38 BYTE 02,09H*8+0,0D0H/01,070H/02 2872 001491 UT49_DA EQU $ 2873 S001491 02 48 C0 38 BYTE 02,09H*8+0,0C0H/01,070H/02 2874 001495 UT4A_DA EQU $ 2875 S001495 02 48 B0 38 BYTE 02,09H*8+0,0B0H/01,070H/02 2876 001499 UT4B_DA EQU $ 2877 S001499 02 4A 00 40 BYTE 02,09H*8+2,000H/01,080H/02 2878 00149D UT4C_DA EQU $ 2879 S00149D 02 48 F0 40 BYTE 02,09H*8+0,0F0H/01,080H/02 2880 0014A1 UT4D_DA EQU $ 2881 S0014A1 02 48 E0 40 BYTE 02,09H*8+0,0E0H/01,080H/02 2882 0014A5 UT4E_DA EQU $ 2883 S0014A5 02 48 D0 40 BYTE 02,09H*8+0,0D0H/01,080H/02 2884 0014A9 UT4F_DA EQU $ 2885 S0014A9 03 08 08 BYTE 03,008H,008H 2886 ; 2887 0014AC UT50_DA EQU $ 2888 S0014AC 02 52 90 00 BYTE 02,0AH*8+2,090H/01,000H/01 2889 0014B0 UT51_DA EQU $ 2890 S0014B0 02 50 90 F0 BYTE 02,0AH*8+0,090H/01,0F0H/01 2891 0014B4 UT52_DA EQU $ 2892 S0014B4 02 50 90 E0 BYTE 02,0AH*8+0,090H/01,0E0H/01 2893 0014B8 UT53_DA EQU $ 2894 S0014B8 02 50 A0 D0 BYTE 02,0AH*8+0,0A0H/01,0D0H/01 2895 0014BC UT54_DA EQU $ 2896 S0014BC 02 50 90 D0 BYTE 02,0AH*8+0,090H/01,0D0H/01 2897 0014C0 UT55_DA EQU $ 2898 S0014C0 02 50 A0 C0 BYTE 02,0AH*8+0,0A0H/01,0C0H/01 2899 0014C4 UT56_DA EQU $ 2900 S0014C4 02 50 B0 B0 BYTE 02,0AH*8+0,0B0H/01,0B0H/01 2901 0014C8 UT57_DA EQU $ 2902 S0014C8 02 50 A0 B0 BYTE 02,0AH*8+0,0A0H/01,0B0H/01 2903 0014CC UT58_DA EQU $ 2904 S0014CC 02 50 D0 A0 BYTE 02,0AH*8+0,0D0H/01,0A0H/01 2905 0014D0 UT59_DA EQU $ 2906 S0014D0 02 50 C0 A0 BYTE 02,0AH*8+0,0C0H/01,0A0H/01 2907 0014D4 UT5A_DA EQU $ 2908 S0014D4 02 50 B0 A0 BYTE 02,0AH*8+0,0B0H/01,0A0H/01 2909 0014D8 UT5B_DA EQU $ 2910 S0014D8 02 51 00 90 BYTE 02,0AH*8+1,000H/01,090H/01 2911 0014DC UT5C_DA EQU $ 2912 S0014DC 02 50 F0 90 BYTE 02,0AH*8+0,0F0H/01,090H/01 2913 0014E0 UT5D_DA EQU $ 2914 S0014E0 02 50 E0 90 BYTE 02,0AH*8+0,0E0H/01,090H/01 2915 0014E4 UT5E_DA EQU $ 2916 S0014E4 02 50 D0 90 BYTE 02,0AH*8+0,0D0H/01,090H/01 2917 0014E8 UT5F_DA EQU $ 2918 S0014E8 03 08 07 BYTE 03,008H,007H 2919 ; 2920 ;ー坂ー 2921 ; BYTE 角度データ 2922 ; 2923 ROPE_SK_DATA 2924 S0014EB 40 BYTE 040H ;坂（右上がり　ｔａｎ　＝　１） 2925 ; 2926 S0014EC C0 BYTE 0C0H ;坂（左上がり　ｔａｎ　＝　１） 2927 ; 2928 S0014ED 26 BYTE 026H ;坂（右上がり　ｔａｎ　＝　１／２） 2929 ; 2930 S0014EE DA BYTE 0DAH ;坂（左上がり　ｔａｎ　＝　１／２） 2931 ; 2932 S0014EF 14 BYTE 014H ;坂（右上がり　ｔａｎ　＝　１／４） 2933 ; 2934 S0014F0 EC BYTE 0ECH ;坂（左上がり　ｔａｎ　＝　１／４） 2935 ; 2936 S0014F1 00 BYTE 000H ;直線 2937 ; 2938 ; 2939 ;ー円ー 2940 ; WORD 半径S*半径S 2941 ; WORD 半径L*半径L 2942 ; HEX 半径 2943 ; WORD 角振動数（１フレームに何度動くか）*100H/2 （角度＝０〜０ＦＦＨ） 2944 ; HEX 000 2945 ; 2946 ROPE_EN_DATA 2947 S0014F2 00A9 WORD (010H-1-2)*(010H-1-2) ;[00]-[03] 2948 S0014F4 0144 WORD (010H+2)*(010H+2) ; 2949 S0014F6 0F BYTE 010H-1 2950 S0014F7 028F WORD 0051FH/2 2951 S0014F9 00 HEX 000 2952 ; 2953 S0014FA 0349 WORD (020H-1-2)*(020H-1-2) ;[04]-[07] 2954 S0014FC 0484 WORD (020H+2)*(020H+2) ; 2955 S0014FE 1F BYTE 020H-1 2956 S0014FF 0146 WORD 0028DH/2 2957 S001501 00 HEX 000 2958 ; 2959 S001502 3D09 WORD (080H-1-2)*(080H-1-2) ;[08]-[0B] 2960 S001504 4204 WORD (080H+2)*(080H+2) ; 2961 S001506 7F BYTE 080H-1 2962 S001507 0051 WORD 000A3H/2 2963 S001509 00 HEX 000 2964 ; 2965 ;**************************************************************** 2966 ;* おさるのＯＡＭセット位置計算 * 2967 ;* * 2968 ;* [In] * 2969 ;* R1 一番中のさるの回転角 * 2970 ;* R5 一番外のさるの回転角 * 2971 ;* R8 キャラ向き * 2972 ;* * 2973 ;**************************************************************** 2974 00150A OSARU_POS_CALC EQU $ 2975 S00150A F6 5500 IWT R6,#100H/3*100H 2976 S00150D 19 TO R9 2977 S00150E 9F FMULT 2978 2979 S00150F FA 01FE IWT R10,#001FEH 2980 2981 S001512 A6 F6 IBT R6,#-00AH 2982 mJSR M_ENMY_1P_ROT_S 2982+ S001514 94 LINK #4 2982+ S001515 FF 059C' IWT R15, #M_ENMY_1P_ROT_S 2982+ S001518 01 NOP 2983 S001519 3E A0 10 SMS R0,CWORK10 2984 S00151C 3E A1 11 SMS R1,CWORK11 2985 2986 S00151F B7 FROM R7 2987 S001520 59 ADD R9 2988 S001521 11 TO R1 2989 S001522 7A AND R10 2990 S001523 A6 E2 IBT R6,#-00AH*3 2991 mJSR M_ENMY_1P_ROT_S 2991+ S001525 94 LINK #4 2991+ S001526 FF 059C' IWT R15, #M_ENMY_1P_ROT_S 2991+ S001529 01 NOP 2992 S00152A 3E A0 12 SMS R0,CWORK12 2993 S00152D 3E A1 13 SMS R1,CWORK13 2994 2995 S001530 B5 FROM R5 2996 S001531 69 SUB R9 2997 S001532 11 TO R1 2998 S001533 7A AND R10 2999 S001534 A6 CE IBT R6,#-00AH*5 3000 mJSR M_ENMY_1P_ROT_S 3000+ S001536 94 LINK #4 3000+ S001537 FF 059C' IWT R15, #M_ENMY_1P_ROT_S 3000+ S00153A 01 NOP 3001 S00153B 3E A0 14 SMS R0,CWORK14 3002 S00153E 3E A1 15 SMS R1,CWORK15 3003 3004 S001541 25 11 MOVE R1,R5 3005 S001543 A6 BA IBT R6,#-00AH*7 3006 mJSR M_ENMY_1P_ROT_S 3006+ S001545 94 LINK #4 3006+ S001546 FF 059C' IWT R15, #M_ENMY_1P_ROT_S 3006+ S001549 01 NOP 3007 S00154A 3E A0 16 SMS R0,CWORK16 3008 S00154D 3E A1 17 SMS R1,CWORK17 3009 3010 S001550 28 B8 MOVES R8,R8 ;左向き ? 3011 S001552 09 11' BEQ OSARU_P_C0800 ; yes: OSARU_P_C0800 3012 S001554 01 NOP 3013 3014 S001555 F7 0020 IWT R7,#CWORK10 3015 S001558 AC 04 IBT R12,#04 3016 S00155A 02 CACHE 3017 S00155B 2F 1D MOVE R13,R15 3018 3019 S00155D 47 LDW (R7) 3020 S00155E 4F NOT 3021 S00155F D0 INC R0 3022 S001560 27 WITH R7 3023 S001561 3E 54 ADD #04 3024 3025 S001563 3C LOOP 3026 S001564 90 SBK 3027 3028 OSARU_P_C0800 3029 S001565 00 STOP 3030 S001566 01 NOP 3031 ; 3032 ; 3033 ; 3034 ; 3035 ;**************************************************************** 3036 ;* * 3037 ;* 雪ごろごろの倍率、回転角、オブジェ衝突チェックサイズ計算 * 3038 ;* * 3039 ;* [IN] * 3040 ;* R10 敵のインデックス * 3041 ;* * 3042 ;**************************************************************** 3043 001567 M_YGORO_CALC EQU $ 3044 mLDW0 CENXSPD,R10 3044+ S001567 F0 1220 IWT R0,#CENXSPD 3044+ S00156A 5A ADD R10 3044+ S00156B 40 LDW (R0) 3045 S00156C 50 ADD R0 3046 S00156D 50 ADD R0 3047 S00156E 16 TO R6 3048 S00156F 50 ADD R0 3049 vvv******* warn :value out of range 3050 S001570 F3 2200 IWT R3,#DIVBUF 3051 mLDW R1,CENWRK6,R10 3051+ S001573 F0 1A36 IWT R0,#CENWRK6 3051+ S001576 5A ADD R10 3051+ S001577 11 TO R1 3051+ S001578 40 LDW (R0) 3052 S001579 B1 FROM R1 3053 S00157A 03 LSR 3054 S00157B 03 LSR 3055 S00157C 3F 71 BIC #01H 3056 S00157E 53 ADD R3 3057 S00157F 40 LDW (R0) 3058 3059 S001580 3D 9F LMULT 3060 S001582 3E 60 SUB #0 3061 S001584 0A 03' BPL YGORO_CALC0100 3062 S001586 01 NOP 3063 3064 S001587 4F NOT 3065 S001588 D0 INC R0 3066 3067 YGORO_CALC0100 3068 S001589 3D 96 DIV2 3069 S00158B 51 ADD R1 3070 S00158C F6 0FF8 IWT R6,#001FFH*8 3071 S00158F 3F 66 CMP R6 3072 S001591 0A 02' BPL YGORO_CALC0200 3073 S001593 20 WITH R0 3074 3075 S001594 16 TO R6 3076 3077 YGORO_CALC0200 3078 mSTW R6,CENWRK6,R10 3078+ S001595 F0 1A36 IWT R0,#CENWRK6 3078+ S001598 5A ADD R10 3078+ S001599 B6 FROM R6 3078+ S00159A 30 STW (R0) 3079 S00159B 26 17 MOVE R7,R6 3080 3081 mLDW0 CENMOVX,R10 3081+ S00159D F0 12C0 IWT R0,#CENMOVX 3081+ S0015A0 5A ADD R10 3081+ S0015A1 40 LDW (R0) 3082 S0015A2 50 ADD R0 3083 S0015A3 50 ADD R0 3084 S0015A4 12 TO R2 3085 S0015A5 50 ADD R0 3086 S0015A6 B6 FROM R6 3087 S0015A7 03 LSR 3088 S0015A8 03 LSR 3089 S0015A9 3F 71 BIC #01H 3090 S0015AB 53 ADD R3 3091 S0015AC 16 TO R6 3092 S0015AD 40 LDW (R0) 3093 mLDW R1,CENWRK8,R10 3093+ S0015AE F0 1A38 IWT R0,#CENWRK8 3093+ S0015B1 5A ADD R10 3093+ S0015B2 11 TO R1 3093+ S0015B3 40 LDW (R0) 3094 S0015B4 B2 FROM R2 3095 S0015B5 3D 9F LMULT 3096 S0015B7 B1 FROM R1 3097 S0015B8 64 SUB R4 3098 S0015B9 90 SBK 3099 3100 S0015BA B7 FROM R7 3101 S0015BB 03 LSR 3102 S0015BC 03 LSR 3103 S0015BD 16 TO R6 3104 S0015BE 03 LSR 3105 S0015BF A0 0C IBT R0,#00CH 3106 S0015C1 3D 9F LMULT 3107 S0015C3 24 WITH R4 3108 S0015C4 C0 HIB 3109 S0015C5 9E LOB 3110 S0015C6 4D SWAP 3111 S0015C7 11 TO R1 3112 S0015C8 C4 OR R4 3113 mSTW R1,CEWIDEX,R10 3113+ S0015C9 F0 1BB6 IWT R0,#CEWIDEX 3113+ S0015CC 5A ADD R10 3113+ S0015CD B1 FROM R1 3113+ S0015CE 30 STW (R0) 3114 mSTW R1,CEWIDEY,R10 3114+ S0015CF F0 1BB8 IWT R0,#CEWIDEY 3114+ S0015D2 5A ADD R10 3114+ S0015D3 B1 FROM R1 3114+ S0015D4 30 STW (R0) 3115 3116 S0015D5 00 STOP 3117 S0015D6 01 NOP 3118 ; 3119 ;**************************************************************** 3120 ;* 釣りジュゲムの釣糸ＯＡＭセット * 3121 ;* [In] * 3122 ;* R6 率 * 3123 ;* R8 加速値( TJUGMSPD ) * 3124 ;* R10 敵のインデックス * 3125 ;* R11 糸の長さ * 3126 ;* * 3127 ;**************************************************************** 3128 ; 3129 ;ジュゲムのサオ 3130 0015D7 TJUGM_CHAR_ADR EQU $ 3131 S0015D7 F6 FB BYTE 0F6H,0FBH ;[00] 3132 S0015D9 24 02 02 HEX 24,02,02 3133 ; 3134 S0015DC F6 FB BYTE 0F6H,0FBH ;[01] 3135 S0015DE 24 02 02 HEX 24,02,02 3136 ; 3137 S0015E1 FA E9 BYTE 0FAH,0E9H ;[02] 3138 S0015E3 24 02 02 HEX 24,02,02 3139 ; 3140 0015E6 M_TJUGM_OAMSET EQU $ 3141 S0015E6 B8 FROM R8 3142 S0015E7 3D 9F LMULT 3143 S0015E9 24 WITH R4 3144 S0015EA C0 HIB 3145 S0015EB 9E LOB 3146 S0015EC 4D SWAP 3147 S0015ED 18 TO R8 3148 S0015EE C4 OR R4 3149 3150 mLDW R1,CENDSXL,R10 3150+ S0015EF F0 1680 IWT R0,#CENDSXL 3150+ S0015F2 5A ADD R10 3150+ S0015F3 11 TO R1 3150+ S0015F4 40 LDW (R0) 3151 mLDW R2,CENDSYL,R10 3151+ S0015F5 F0 1682 IWT R0,#CENDSYL 3151+ S0015F8 5A ADD R10 3151+ S0015F9 12 TO R2 3151+ S0015FA 40 LDW (R0) 3152 S0015FB F3 2000 IWT R3,#02000H 3153 mLDB0 CENCHRB,R10 3153+ S0015FE F0 1180 IWT R0,#CENCHRB 3153+ S001601 5A ADD R10 3153+ S001602 3D 40 LDB (R0) 3154 S001604 3E 88 MULT #08 3155 S001606 13 TO R3 3156 S001607 53 ADD R3 3157 ; 3158 S001608 A0 00' IBT R0,#BANK TJUGM_CHAR_ADR ;サオのキャラデータバンクセット 3159 S00160A 3F DF ROMB ; 3160 S00160C F4 15D7' IWT R4,#TJUGM_CHAR_ADR ;サオのキャラデータアドレス計算 3161 mLDB0 CENCHPT,R10 ; 3161+ S00160F F0 1402 IWT R0,#CENCHPT 3161+ S001612 5A ADD R10 3161+ S001613 3D 40 LDB (R0) 3162 S001615 3E 85 MULT #05 ; 3163 S001617 1E TO R14 ; 3164 S001618 54 ADD R4 ; 3165 mLDW R4,CENOAML,R10 3165+ S001619 F0 1362 IWT R0,#CENOAML 3165+ S00161C 5A ADD R10 3165+ S00161D 14 TO R4 3165+ S00161E 40 LDW (R0) 3166 3167 S00161F 3F EF GETBS ;X position set 3168 S001621 DE INC R14 ; 3169 S001622 51 ADD R1 ; 3170 S001623 34 STW (R4) ; 3171 S001624 20 11 MOVE R1,R0 ; 3172 S001626 D4 INC R4 ; 3173 S001627 D4 INC R4 ; 3174 S001628 3F EF GETBS ;Y position set 3175 S00162A DE INC R14 ; 3176 S00162B 52 ADD R2 ; 3177 S00162C 34 STW (R4) ; 3178 S00162D 20 12 MOVE R2,R0 ; 3179 S00162F D4 INC R4 ; 3180 S001630 D4 INC R4 ; 3181 S001631 EF GETB ;Attribute & char no. set 3182 S001632 DE INC R14 ; 3183 S001633 3D EF GETBH ; 3184 S001635 DE INC R14 ; 3185 S001636 53 ADD R3 ; 3186 S001637 34 STW (R4) ; 3187 S001638 D4 INC R4 ; 3188 S001639 D4 INC R4 ; 3189 S00163A EF GETB ;other data set 3190 S00163B DE INC R14 ; 3191 S00163C 34 STW (R4) ; 3192 S00163D D4 INC R4 ; 3193 3194 S00163E B8 FROM R8 ;セットＸ　ＰＯＳ．計算 3195 S00163F 19 TO R9 3196 S001640 58 ADD R8 3197 3198 S001641 22 WITH R2 ;セットＹ　ＰＯＳ．計算 3199 S001642 3E 58 ADD #08 ; 3200 3201 mLDB0 CENMOD2+1,R10 ;糸の数計算 3201+ S001644 F0 1041 IWT R0,#CENMOD2+1 3201+ S001647 5A ADD R10 3201+ S001648 3D 40 LDB (R0) 3202 S00164A 03 LSR ; 3203 S00164B 03 LSR ; 3204 S00164C 03 LSR ; 3205 S00164D 1C TO R12 ; 3206 S00164E 3E 67 SUB #05+02 ;糸ある ? 3207 S001650 09 48' BEQ TJUGM_OAMSET100 ; no: TJUGM_OAMSET100 3208 S001652 D4 INC R4 3209 3210 S001653 F0 0234 IWT R0,#00234H ;Attribute & char no. データセット 3211 S001656 17 TO R7 ; 3212 S001657 53 ADD R3 ; 3213 3214 S001658 02 CACHE 3215 S001659 2F 1D MOVE R13,R15 3216 3217 S00165B BB FROM R11 ;セットＹ　ＰＯＳ．計算 3218 S00165C 3E 68 SUB #08 ; 3219 S00165E 0B 0B' BMI TJUGM_OAMSET010 ; 3220 S001660 01 NOP ; 3221 ; 3222 S001661 2B WITH R11 ; 3223 S001662 3E 68 SUB #08 ; 3224 S001664 29 WITH R9 ; 3225 S001665 58 ADD R8 ; 3226 S001666 A0 08 IBT R0,#08 ; 3227 S001668 05 18' BRA TJUGM_OAMSET020 ; 3228 S00166A 01 NOP ; 3229 ; 3230 TJUGM_OAMSET010 ; 3231 S00166B 24 15 MOVE R5,R4 ; 3232 S00166D B8 FROM R8 ; 3233 S00166E 3D 96 DIV2 ; 3234 S001670 3D 96 DIV2 ; 3235 S001672 16 TO R6 ; 3236 S001673 3D 96 DIV2 ; 3237 S001675 BB FROM R11 ; 3238 S001676 3D 9F LMULT ; 3239 S001678 24 WITH R4 ; 3240 S001679 C0 HIB ; 3241 S00167A 9E LOB ; 3242 S00167B 4D SWAP ; 3243 S00167C C4 OR R4 ; 3244 S00167D 19 TO R9 ; 3245 S00167E 59 ADD R9 ; 3246 S00167F 25 14 MOVE R4,R5 ; 3247 ; 3248 S001681 BB FROM R11 ; 3249 ; 3250 TJUGM_OAMSET020 ; 3251 S001682 12 TO R2 ; 3252 S001683 52 ADD R2 ; 3253 3254 S001684 B9 FROM R9 ;セットＸ　ＰＯＳ．計算 3255 S001685 C0 HIB ; 3256 S001686 95 SEX ; 3257 S001687 11 TO R1 ; 3258 S001688 51 ADD R1 ; 3259 3260 S001689 B1 FROM R1 ;X position set 3261 S00168A 34 STW (R4) ; 3262 S00168B D4 INC R4 ; 3263 S00168C D4 INC R4 ; 3264 S00168D B2 FROM R2 ;Y position set 3265 S00168E 34 STW (R4) ; 3266 S00168F D4 INC R4 ; 3267 S001690 D4 INC R4 ; 3268 S001691 B7 FROM R7 ;Attribute & char no. set 3269 S001692 34 STW (R4) ; 3270 S001693 D4 INC R4 ; 3271 S001694 D4 INC R4 ; 3272 S001695 60 SUB R0 ;other data set 3273 S001696 34 STW (R4) ; 3274 S001697 D4 INC R4 ; 3275 3276 S001698 3C LOOP 3277 S001699 D4 INC R4 3278 3279 TJUGM_OAMSET100 3280 S00169A 29 WITH R9 ;セットＸ　ＰＯＳ．計算 3281 S00169B 58 ADD R8 ; 3282 S00169C B9 FROM R9 ; 3283 S00169D C0 HIB ; 3284 S00169E 95 SEX ; 3285 S00169F 11 TO R1 ; 3286 S0016A0 51 ADD R1 ; 3287 3288 S0016A1 22 WITH R2 ;セットＹ　ＰＯＳ．計算 3289 S0016A2 3E 58 ADD #08 ; 3290 3291 S0016A4 21 WITH R1 3292 S0016A5 3E 67 SUB #07 3293 3294 S0016A7 B1 FROM R1 3295 S0016A8 34 STW (R4) 3296 S0016A9 D4 INC R4 3297 S0016AA D4 INC R4 3298 S0016AB B2 FROM R2 3299 S0016AC 34 STW (R4) 3300 S0016AD D4 INC R4 3301 S0016AE D4 INC R4 3302 S0016AF F0 0226 IWT R0,#00226H 3303 S0016B2 53 ADD R3 3304 S0016B3 34 STW (R4) 3305 S0016B4 D4 INC R4 3306 S0016B5 D4 INC R4 3307 S0016B6 A0 02 IBT R0,#02 3308 S0016B8 34 STW (R4) 3309 S0016B9 D4 INC R4 3310 S0016BA D4 INC R4 3311 3312 S0016BB 29 WITH R9 3313 S0016BC 58 ADD R8 3314 S0016BD B9 FROM R9 3315 S0016BE C0 HIB 3316 S0016BF 19 TO R9 3317 S0016C0 95 SEX 3318 3319 S0016C1 00 STOP 3320 S0016C2 01 NOP 3321 ; 3322 ;**************************************************************** 3323 ;* * 3324 ;* クッパ ドスン ウェーブ セット * 3325 ;* * 3326 ;* [In] * 3327 ;* R2 波の力 * 3328 ;* R4 * 3329 ;* R5 バッファインデックス加算データ * 3330 ;* R6 * 3331 ;* R7 * 3332 ;* R8 １ドット進んだときの波の力加算値 * 3333 ;* R9 波の先頭の DS pos. * 3334 ;* * 3335 ;* * 3336 ;* * 3337 ;**************************************************************** 3338 0016C3 KUPPA_DOSUN EQU $ 3339 S0016C3 02 CACHE ; キャッシュ スタート!! 3340 S0016C4 F1 2000 IWT R1,#02000H 3341 S0016C7 3D A0 4A LMS R0,CESCCH1 3342 S0016CA 3E F0 1EEE SM R0,CBG2OFH 3343 S0016CE C1 OR R1 ; R0 <- 基本Ｈスクロール値 3344 S0016CF FA 1EF2 IWT R10,#CBG2OFF 3345 S0016D2 AC 20 IBT R12,#020H 3346 S0016D4 2F 1D MOVE R13,R15 3347 ; 3348 S0016D6 3A STW (R10) ; 横揺れ用 バッファ クリア 3349 S0016D7 DA INC R10 ; 3350 S0016D8 3C LOOP ; 3351 S0016D9 DA INC R10 ; 3352 ; 3353 S0016DA 3D A0 4E LMS R0,CESCCV1 3354 S0016DD C1 OR R1 ; R0 <- 基本Ｖスクロール値 3355 S0016DE 20 13 MOVE R3,R0 3356 S0016E0 AC 20 IBT R12,#020H 3357 S0016E2 2F 1D MOVE R13,R15 3358 ; 3359 S0016E4 3A STW (R10) ; 縦揺れ用 バッファ クリア 3360 S0016E5 DA INC R10 ; 3361 S0016E6 3C LOOP ; 3362 S0016E7 DA INC R10 ; 3363 ; 3364 S0016E8 00 STOP 3365 S0016E9 01 NOP 3366 ; 3367 ; 3368 0016EA KUPPA_DOSUN2 EQU $ 3369 S0016EA 02 CACHE ; キャッシュ スタート!! 3370 ; 3371 S0016EB A1 F8 IBT R1,#0F8H ;(R10) <- バッファセットインデックス 3372 S0016ED B9 FROM R9 ; 3373 S0016EE 71 AND R1 ; 3374 S0016EF 3D 96 DIV2 ; 3375 S0016F1 3D 96 DIV2 ; 3376 S0016F3 F1 1F32 IWT R1,#CBG2OFF+040H ; 3377 S0016F6 1A TO R10 ; 3378 S0016F7 51 ADD R1 ; 3379 ; 3380 S0016F8 B9 FROM R9 ;(R2) <- バッファにセットする最初の波の力 3381 S0016F9 3E 77 AND #07H ; 3382 S0016FB 3E 64 SUB #04H ; 3383 S0016FD 88 MULT R8 ; 3384 S0016FE 12 TO R2 ; 3385 S0016FF 52 ADD R2 ; 3386 S001700 22 14 MOVE R4,R2 ;(R4) <- バッファにセットする最初の波の高さ 3387 ; 3388 S001702 F8 FC00 IWT R8,#0FC00H ;(R8) <- ８ドット進んだときの波の力加算値 3389 ; 3390 S001705 F1 2000 IWT R1,#02000H ;(R3) <- 基本Ｖスクロール値 3391 S001708 3D A0 4E LMS R0,CESCCV1 ; 3392 S00170B 13 TO R3 ; 3393 S00170C C1 OR R1 ; 3394 ; 3395 S00170D F6 1F32 IWT R6,#CBG2OFF+040H 3396 S001710 F7 1F73 IWT R7,#CBG2OFF+040H+040H+1 3397 ; 3398 KP_DSN_100 3399 S001713 BA FROM R10 ;バッファ範囲外（左端） ? 3400 S001714 3F 66 CMP R6 ; 3401 S001716 0B 13' BMI KP_DSN_200 ; yes: KP_DSN_200 3402 S001718 01 NOP 3403 S001719 BA FROM R10 ;バッファ範囲外（右端） ? 3404 S00171A 3F 67 CMP R7 ; 3405 S00171C 0A 0D' BPL KP_DSN_200 ; yes: KP_DSN_200 3406 S00171E 01 NOP 3407 3408 S00171F B4 FROM R4 ;(R1) <- バッファにセットするデータ 3409 S001720 C0 HIB ; 3410 S001721 95 SEX ; 3411 S001722 11 TO R1 ; 3412 S001723 53 ADD R3 ; 3413 S001724 4A LDW (R10) ;前にセットされてるデータの方が大きい ? 3414 S001725 61 SUB R1 ; 3415 S001726 0A 03' BPL KP_DSN_200 ; yes: KP_DSN_200 3416 S001728 01 NOP 3417 ; 3418 S001729 B1 FROM R1 ;データセット 3419 S00172A 3A STW (R10) ; 3420 ; 3421 KP_DSN_200 3422 S00172B 2A WITH R10 ;(R10) <- 次のバッファインデックス 3423 S00172C 55 ADD R5 ; 3424 3425 S00172D 22 WITH R2 ;波の頂点を過ぎた ? 3426 S00172E 58 ADD R8 ; 3427 S00172F 0A 05' BPL KP_DSN_300 ; no: KP_DSN_300 3428 S001731 24 WITH R4 3429 3430 S001732 F8 FC80 IWT R8,#0FC80H 3431 S001735 24 WITH R4 3432 3433 KP_DSN_300 3434 ; WITH R4 ;波が消えた ? 3435 S001736 52 ADD R2 ; 3436 S001737 0A DB' BPL KP_DSN_100+1 ; no: KP_DSN_100+1 3437 S001739 BA FROM R10 3438 ; 3439 ; 3440 S00173A 3D A1 4A LMS R1,CESCCH1 3441 S00173D A2 F8 IBT R2,#0F8H 3442 S00173F A0 18 IBT R0,#018H 3443 S001741 3F 61 CMP R1 ; 左端までいっているか ? 3444 S001743 09 16' BEQ KP_DSN_400 ; 3445 S001745 01 NOP ; NO -> KP_DSN_400 3446 S001746 0C 13' BCC KP_DSN_400 ; 3447 S001748 61 SUB R1 3448 S001749 3E 57 ADD #007 3449 S00174B 72 AND R2 3450 S00174C 03 LSR 3451 S00174D 03 LSR 3452 S00174E 1C TO R12 3453 S00174F 03 LSR 3454 S001750 FA 1F32 IWT R10,#CBG2OFF+040H 3455 S001753 23 10 MOVE R0,R3 3456 S001755 2F 1D MOVE R13,R15 3457 S001757 3A STW (R10) 3458 S001758 DA INC R10 3459 S001759 3C LOOP 3460 S00175A DA INC R10 3461 ; 3462 KP_DSN_400 3463 S00175B F0 0160 IWT R0,#00160H 3464 S00175E 61 SUB R1 3465 S00175F 11 TO R1 3466 S001760 C0 HIB ; 右端までいっているか ? 3467 S001761 08 1A' BNE KP_DSN_500 ; NO -> KP_DSN_500 3468 S001763 01 NOP 3469 S001764 3E 67 SUB #007 3470 S001766 72 AND R2 3471 S001767 03 LSR 3472 S001768 11 TO R1 3473 S001769 03 LSR 3474 S00176A 1C TO R12 3475 S00176B 03 LSR 3476 S00176C F0 1F32 IWT R0,#CBG2OFF+040H 3477 S00176F 1B TO R11 3478 S001770 51 ADD R1 3479 S001771 A0 40 IBT R0,#040H 3480 S001773 1C TO R12 3481 S001774 6C SUB R12 3482 S001775 23 10 MOVE R0,R3 3483 S001777 2F 1D MOVE R13,R15 3484 S001779 3B STW (R11) 3485 S00177A DB INC R11 3486 S00177B 3C LOOP 3487 S00177C DB INC R11 3488 ; 3489 KP_DSN_500 3490 S00177D F0 1F32 IWT R0,#CBG2OFF+040H 3491 S001780 40 LDW (R0) 3492 S001781 3E F0 1EF0 SM R0,CBG2OFV 3493 ; 3494 S001785 00 STOP 3495 S001786 01 NOP 3496 ; 3497 ; 3498 ; 3499 ; 3500 ; 3501 ; 3502 ; 3503 ; 3504 ; 3505 ; 3506 mEND_NOP 3506+ S001787 01 NOP 3506+ S001788 01 NOP 3506+ S001789 01 NOP 3506+ S00178A 01 NOP 3506+ S00178B 01 NOP 3506+ S00178C 01 NOP 3506+ S00178D 01 NOP 3506+ S00178E 01 NOP 3506+ S00178F 01 NOP 3506+ S001790 01 NOP 3506+ S001791 01 NOP 3506+ S001792 01 NOP 3506+ S001793 01 NOP 3506+ S001794 01 NOP 3506+ S001795 01 NOP 3506+ S001796 01 NOP 3506+ S001797 01 NOP 3506+ S001798 01 NOP 3506+ S001799 01 NOP 3506+ S00179A 01 NOP 3506+ S00179B 01 NOP 3506+ S00179C 01 NOP 3506+ S00179D 01 NOP 3506+ S00179E 01 NOP 3506+ S00179F 01 NOP 3506+ S0017A0 01 NOP 3506+ S0017A1 01 NOP 3506+ S0017A2 01 NOP 3506+ S0017A3 01 NOP 3506+ S0017A4 01 NOP 3506+ S0017A5 01 NOP 3506+ S0017A6 01 NOP 3506+ S0017A7 01 NOP 3506+ S0017A8 01 NOP 3506+ S0017A9 01 NOP 3506+ S0017AA 01 NOP 3506+ S0017AB 01 NOP 3506+ S0017AC 01 NOP 3506+ S0017AD 01 NOP 3506+ S0017AE 01 NOP 3506+ S0017AF 01 NOP 3506+ S0017B0 01 NOP 3506+ S0017B1 01 NOP 3506+ S0017B2 01 NOP 3506+ S0017B3 01 NOP 3506+ S0017B4 01 NOP 3506+ S0017B5 01 NOP 3506+ S0017B6 01 NOP 3506+ S0017B7 01 NOP 3506+ S0017B8 01 NOP 3506+ S0017B9 01 NOP 3506+ S0017BA 01 NOP 3506+ S0017BB 01 NOP 3506+ S0017BC 01 NOP 3506+ S0017BD 01 NOP 3506+ S0017BE 01 NOP 3506+ S0017BF 01 NOP 3506+ S0017C0 01 NOP 3506+ S0017C1 01 NOP 3506+ S0017C2 01 NOP 3506+ S0017C3 01 NOP 3506+ S0017C4 01 NOP 3506+ S0017C5 01 NOP 3506+ S0017C6 01 NOP 3506+ S0017C7 01 NOP 3506+ S0017C8 01 NOP 3506+ S0017C9 01 NOP 3506+ S0017CA 01 NOP 3506+ S0017CB 01 NOP 3506+ S0017CC 01 NOP 3506+ S0017CD 01 NOP 3506+ S0017CE 01 NOP 3506+ S0017CF 01 NOP 3506+ S0017D0 01 NOP 3506+ S0017D1 01 NOP 3506+ S0017D2 01 NOP 3506+ S0017D3 01 NOP 3506+ S0017D4 01 NOP 3506+ S0017D5 01 NOP 3506+ S0017D6 01 NOP 3506+ S0017D7 01 NOP 3506+ S0017D8 01 NOP 3506+ S0017D9 01 NOP 3506+ S0017DA 01 NOP 3506+ S0017DB 01 NOP 3506+ S0017DC 01 NOP 3506+ S0017DD 01 NOP 3506+ S0017DE 01 NOP 3506+ S0017DF 01 NOP 3506+ S0017E0 01 NOP 3506+ S0017E1 01 NOP 3506+ S0017E2 01 NOP 3506+ S0017E3 01 NOP 3506+ S0017E4 01 NOP 3506+ S0017E5 01 NOP 3506+ S0017E6 01 NOP 3506+ S0017E7 01 NOP 3506+ S0017E8 01 NOP 3506+ S0017E9 01 NOP 3506+ S0017EA 01 NOP 3506+ S0017EB 01 NOP 3506+ S0017EC 01 NOP 3506+ S0017ED 01 NOP 3506+ S0017EE 01 NOP 3506+ S0017EF 01 NOP 3506+ S0017F0 01 NOP 3506+ S0017F1 01 NOP 3506+ S0017F2 01 NOP 3506+ S0017F3 01 NOP 3506+ S0017F4 01 NOP 3506+ S0017F5 01 NOP 3506+ S0017F6 01 NOP 3506+ S0017F7 01 NOP 3506+ S0017F8 01 NOP 3506+ S0017F9 01 NOP 3506+ S0017FA 01 NOP 3506+ S0017FB 01 NOP 3506+ S0017FC 01 NOP 3506+ S0017FD 01 NOP 3506+ S0017FE 01 NOP 3506+ S0017FF 01 NOP 3507 ; 3508 END