File : ys_chip0.asm SUPER-FX ASSEMBLER $Ver 1.01 Wed Jul 5 09:46:20 1995 Page 0001 1 ;************************************************************************ 2 ;* * 3 ;* title name : "yossy" * 4 ;* proccess : mario chip program * 5 ;* file name : ys_chip0 * 6 ;* * 7 ;************************************************************************ 8 ; 9 ; 10 SALL 11 ; 12 include ys_chip.inc 13 ; 14 XALL 15 ; 16 ; 17 ;------------------------------------------------------------------------ 18 ;- global symbol - 19 ;------------------------------------------------------------------------ 20 GLB COS,SIN,LCOS,LSIN,LCOS_S,LSIN_S 21 GLB FURA_WAVE_MAP 22 ; 23 ;------------------------------------------------------------------------ 24 ;- extern symbol - 25 ;------------------------------------------------------------------------ 26 ; 27 ;-------------< ys_chip1 >----------------------------------------------- 28 ; EXT 29 ; 30 ;-------------< ys_chip2 >----------------------------------------------- 31 EXT C_32_ROTZOM,C_32_ZOOM_XY_16,C_32_ROTZOM_16,C_16_ROTZOM 32 EXT C_32_RTZ_16_XY,C_64HZOOM_32,C_32_ZOOM 33 EXT C_32_ZOOM_XY_C,C_32_ROTZOM_C,C_32_ZOOM_XY 34 EXT C_32_RTZ_32_XY 35 ; 36 ;-------------< ys_pldt >----------------------------------------------- 37 EXT M_TAN 38 ; 39 ;------------------------------------------------------------------------ 40 ;- define symbol - 41 ;------------------------------------------------------------------------ 42 560000 MPCIPCHR EQU 560000H ;ƒ}ƒbƒvƒrƒbƒgƒ}ƒbƒvƒLƒƒƒ‰ƒNƒ^[ƒAƒhƒŒƒX 43 568000 MFCIPCHR EQU 568000H ;H flip 44 ; 45 ; 46 ;************************************************************************ 47 ;* * 48 ;* program start * 49 ;* * 50 ;************************************************************************ 51 ; 52 ; 53 Group_8 GROUP S_chip_0 54 S_chip_0 SECT REL 55 ; 56 ; 57 ;************************************************************************ 58 ;* M-chip initial set * 59 ;************************************************************************ 60 000000 CHIPINIT EQU $ 61 S000000 60 SUB R0 ;[ IBT R0,#0 ] 62 S000001 3E DF RAMB 63 ; 64 S000003 00 STOP 65 S000004 01 NOP 66 ; 67 ;************************************************************************ 68 ;* ƒf[ƒ^ˆ³k‰ð“€ (DT_UNCOMPRESS) * 69 ;* m‚‰‚Žn @‚q‚SFƒf[ƒ^Œ³ƒoƒ“ƒNi‚S‚O‚g`‚T‚e‚gj * 70 ;* @‚q‚XF@@@@ƒAƒhƒŒƒX * 71 ;* ‚q‚P‚OF‰ð“€æ@ƒAƒhƒŒƒX * 72 ;* * 73 ;* m‚‚•‚”n ‚q‚P‚OF‰ð“€Œã‚Ì ‰ð“€æ ƒAƒhƒŒƒX * 74 ;* * 75 ;* m‚t‚“‚…‚„nR0,R1,R2,R3,R4,R5,R6,R7,R9,R10,R11,R12,R13,R14,R15 * 76 ;************************************************************************ 77 000005 DT_UNCOMPRESS EQU $ 78 S000005 B4 FROM R4 79 S000006 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒN‰ŠúÝ’è 80 S000008 29 1E MOVE R14,R9 ; ‚q‚P‚S©‚b|‚q‚‚ƒAƒhƒŒƒX‰ŠúÝ’è 81 ; 82 S00000A 2A 19 MOVE R9,R10 ; (‚q‚X) ©‰ð“€æƒAƒhƒŒƒX(‰Šú’l) 83 S00000C F5 03FF IWT R5,#003FFH ;i‚q‚Tj@©ƒf[ƒ^ŒÂ”ƒ`ƒFƒbƒNƒR[ƒh 84 S00000F A6 1F IBT R6,#0001FH ;i‚q‚Uj@©ƒf[ƒ^ŒÂ”ƒ`ƒFƒbƒNƒR[ƒh 85 S000011 F7 00E0 IWT R7,#000E0H ;i‚q‚Vj@©ƒf[ƒ^‚s‚™‚‚…ƒ`ƒFƒbƒNƒR[ƒh 86 S000014 F8 00FF IWT R8,#000FFH ;i‚q‚Wj@©ƒf[ƒ^I—¹ƒ`ƒFƒbƒNƒR[ƒh 87 S000017 FB 001C' IWT R11,#(DT_UNC000+1) ;i‚q‚P‚Pj©‚i‚l‚oæƒAƒhƒŒƒX 88 ; 89 S00001A 02 CACHE ; ƒLƒƒƒbƒVƒ…§Œä 90 ; 91 DT_UNC000 92 S00001B EF GETB ; ‚q‚O©‚q‚‚ƒoƒbƒtƒ@ 93 S00001C DE INC R14 94 S00001D 08 09' BNE DT_UNC100+1 ; ‚m‚…‚˜‚”ƒoƒ“ƒNH 95 ; ; ‚™‚…‚“ 96 S00001F 68 SUB R8 97 S000020 58 ADD R8 98 S000021 D4 INC R4 99 S000022 B4 FROM R4 100 S000023 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒNƒZƒbƒg 101 S000025 2E 1E MOVE R14,R14 102 DT_UNC100 103 S000027 68 SUB R8 104 S000028 08 03' BNE DT_UNC200 ; ƒf[ƒ^I—¹H 105 ; ; ‚™‚…‚“ 106 S00002A 58 ADD R8 107 S00002B 00 STOP ; ‚f‚r‚tI—¹ 108 S00002C 01 NOP 109 ; 110 ;-----------------------------------------------; ƒf[ƒ^ŒÂ”ƒ`ƒFƒbƒN 111 DT_UNC200 112 S00002D 12 TO R2 ; ‚c‚’‚…‚‡©‚q‚Q 113 S00002E 77 AND R7 ; ‚q‚Q©ƒf[ƒ^‚s‚™‚‚… 114 S00002F 67 SUB R7 115 S000030 0A 05' BPL DT_UNC300 ; ŒÂ”‚P‚e‚gŒÂˆÈãƒf[ƒ^H 116 ; ; ‚Ž‚ 117 S000032 57 ADD R7 118 S000033 76 AND R6 ; ‚q‚O©iƒf[ƒ^ŒÂ”F‚P‚eŒÂˆÈ“àj 119 S000034 05 18' BRA DT_UNC500+1 120 S000036 D0 INC R0 121 ; 122 DT_UNC300 123 S000037 20 11 MOVE R1,R0 ; ‚q‚O‚Ì“à—e‚ð‚q‚P‚ɃZƒbƒg 124 S000039 50 ADD R0 125 S00003A 50 ADD R0 126 S00003B 50 ADD R0 ; ‚q‚O©‚q‚O–‚W@ 127 S00003C 12 TO R2 ; ‚c‚’‚…‚‡©‚q‚Q 128 S00003D 77 AND R7 ; ‚q‚Q©ƒf[ƒ^‚s‚™‚‚… 129 ; 130 S00003E EF GETB ; ‚q‚O©‚q‚‚ƒoƒbƒtƒ@ 131 S00003F DE INC R14 132 S000040 08 08' BNE DT_UNC400+1 ; ‚m‚…‚˜‚”ƒoƒ“ƒNH 133 ; ; ‚™‚…‚“ 134 S000042 21 WITH R1 ; ‚r‚’‚…‚‡©‚q‚P 135 S000043 D4 INC R4 136 S000044 B4 FROM R4 137 S000045 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒNƒZƒbƒg 138 S000047 2E 1E MOVE R14,R14 139 DT_UNC400 140 S000049 21 WITH R1 ; ‚r‚’‚…‚‡©‚q‚P 141 S00004A 4D SWAP ; ‚r‚’‚…‚‡i‚k|‚gj¨‚c‚’‚…‚‡i‚g|‚kj 142 S00004B C1 OR R1 143 S00004C 75 AND R5 ; ‚q‚O©iƒf[ƒ^ŒÂ”F‚P‚eŒÂˆÈãj 144 ; 145 ;-----------------------------------------------; ƒf[ƒ^‚s‚™‚‚…ƒ`ƒFƒbƒN 146 DT_UNC500 147 S00004D D0 INC R0 148 S00004E 20 1C MOVE R12,R0 ; ‚q‚P‚Q‚Ƀf[ƒ^ŒÂ”‚ðƒZƒbƒg 149 S000050 20 B2 MOVES R0,R2 ; ƒf[ƒ^‚s‚™‚‚…ƒ`ƒFƒbƒN 150 S000052 09 1D' BEQ DT_UNC1100 ;i”ñ‹¤’ʃf[ƒ^jH 151 ; ; ‚Ž‚ 152 S000054 4D SWAP 153 S000055 0B 2D' BMI DT_UNC1200 ;iŽQƃf[ƒ^jH 154 ; ; ‚Ž‚ 155 S000057 50 ADD R0 156 S000058 0A 52' BPL DT_UNC1300 ;i‚P‚‚‚™‚”‚…‹¤’ʃf[ƒ^jH 157 ; ; ‚Ž‚ 158 S00005A 50 ADD R0 159 S00005B 0A 62' BPL DT_UNC1400 ;i‚Q‚‚‚™‚”‚…‹¤’ʃf[ƒ^jH 160 ; ; ‚Ž‚ 161 ;-----------------------------------------------;iƒvƒ‰ƒX‚Pƒf[ƒ^j 162 DT_UNC1000 163 S00005D EF GETB ; ‚q‚O©‚q‚‚ƒoƒbƒtƒ@ 164 S00005E DE INC R14 165 S00005F 08 07' BNE DT_UNC1040 ; ‚m‚…‚˜‚”ƒoƒ“ƒNH 166 ; ; ‚™‚…‚“ 167 S000061 01 NOP 168 S000062 D4 INC R4 169 S000063 B4 FROM R4 170 S000064 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒNƒZƒbƒg 171 S000066 2E 1E MOVE R14,R14 172 DT_UNC1040 173 S000068 2F 1D MOVE R13,R15 ; ‚f‚r‚tƒvƒƒOƒ‰ƒ€ƒJƒEƒ“ƒ^‚ð‚q‚P‚R‚ɃZƒbƒg 174 ; 175 S00006A 3D 3A STB (R10) ; ‚b|‚q‚‚‚Öƒf[ƒ^‚ðƒXƒgƒA 176 S00006C D0 INC R0 177 S00006D 3C LOOP 178 S00006E DA INC R10 179 ; 180 S00006F 9B JMP R11 ; ‚i‚l‚oi‚c‚sQ‚t‚m‚b‚O‚O‚O{‚Pj 181 S000070 EF GETB 182 ; 183 ;-----------------------------------------------;i”ñ‹¤’ʃf[ƒ^j 184 DT_UNC1100 185 S000071 2F 1D MOVE R13,R15 ; ‚f‚r‚tƒvƒƒOƒ‰ƒ€ƒJƒEƒ“ƒ^‚ð‚q‚P‚R‚ɃZƒbƒg 186 ; 187 S000073 EF GETB ; ‚q‚O©‚q‚‚ƒoƒbƒtƒ@ 188 S000074 DE INC R14 189 S000075 08 07' BNE DT_UNC1140 ; ‚m‚…‚˜‚”ƒoƒ“ƒNH 190 ; ; ‚™‚…‚“ 191 S000077 01 NOP 192 S000078 D4 INC R4 193 S000079 B4 FROM R4 194 S00007A 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒNƒZƒbƒg 195 S00007C 2E 1E MOVE R14,R14 196 DT_UNC1140 197 S00007E 3D 3A STB (R10) ; ‚b|‚q‚‚‚Öƒf[ƒ^‚ðƒXƒgƒA 198 S000080 3C LOOP 199 S000081 DA INC R10 200 ; 201 S000082 9B JMP R11 ; ‚i‚l‚oi‚c‚sQ‚t‚m‚b‚O‚O‚O{‚Pj 202 S000083 EF GETB 203 ; 204 ;-----------------------------------------------;iŽQƃf[ƒ^j 205 DT_UNC1200 206 S000084 21 WITH R1 ; ‚c‚’‚…‚‡©‚q‚P 207 S000085 EF GETB ; ‚q‚P©‚q‚‚ƒoƒbƒtƒ@ 208 S000086 DE INC R14 209 S000087 08 08' BNE DT_UNC1220+1 ; ‚m‚…‚˜‚”ƒoƒ“ƒNH 210 ; ; ‚™‚…‚“ 211 S000089 EF GETB ; ‚q‚O©‚q‚‚ƒoƒbƒtƒ@ 212 S00008A D4 INC R4 213 S00008B B4 FROM R4 214 S00008C 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒNƒZƒbƒg 215 S00008E 2E 1E MOVE R14,R14 216 DT_UNC1220 217 S000090 EF GETB ; ‚q‚O©‚q‚‚ƒoƒbƒtƒ@ 218 S000091 DE INC R14 219 S000092 08 08' BNE DT_UNC1240+1 ; ‚m‚…‚˜‚”ƒoƒ“ƒNH 220 ; ; ‚™‚…‚“ 221 S000094 21 WITH R1 ; ‚r‚’‚…‚‡©‚q‚P 222 S000095 D4 INC R4 223 S000096 B4 FROM R4 224 S000097 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒNƒZƒbƒg 225 S000099 2E 1E MOVE R14,R14 226 DT_UNC1240 227 S00009B 21 WITH R1 ; ‚r‚’‚…‚‡©‚q‚P 228 S00009C 4D SWAP ; ‚r‚’‚…‚‡i‚k|‚gj¨‚c‚’‚…‚‡i‚g|‚kj 229 S00009D 12 TO R2 ; ‚c‚’‚…‚‡©‚q‚Q 230 S00009E C1 OR R1 ; ‚q‚Q©ŽQƃf[ƒ^ƒAƒhƒŒƒX 231 S00009F 22 WITH R2 ; ‚c‚’‚…‚‡©‚q‚Q 232 S0000A0 59 ADD R9 ; ‚q‚Q©ŽQƃf[ƒ^ƒAƒhƒŒƒX 233 ; 234 S0000A1 2F 1D MOVE R13,R15 ; ‚f‚r‚tƒvƒƒOƒ‰ƒ€ƒJƒEƒ“ƒ^‚ð‚q‚P‚R‚ɃZƒbƒg 235 ; 236 S0000A3 3D 42 LDB (R2) ; ‚b|‚q‚‚‚©‚çƒf[ƒ^‚ðƒ[ƒh 237 S0000A5 3D 3A STB (R10) ; ‚b|‚q‚‚‚Öƒf[ƒ^‚ðƒXƒgƒA 238 S0000A7 D2 INC R2 239 S0000A8 3C LOOP 240 S0000A9 DA INC R10 241 ; 242 S0000AA 9B JMP R11 ; ‚i‚l‚oi‚c‚sQ‚t‚m‚b‚O‚O‚O{‚Pj 243 S0000AB EF GETB 244 ; 245 ;-----------------------------------------------; i‚P‚‚‚™‚”‚…‹¤’ʃf[ƒ^j 246 DT_UNC1300 247 S0000AC EF GETB ; ‚q‚O©‚q‚‚ƒoƒbƒtƒ@ 248 S0000AD DE INC R14 249 S0000AE 08 07' BNE DT_UNC1340 ; ‚m‚…‚˜‚”ƒoƒ“ƒNH 250 ; ; ‚™‚…‚“ 251 S0000B0 01 NOP 252 S0000B1 D4 INC R4 253 S0000B2 B4 FROM R4 254 S0000B3 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒNƒZƒbƒg 255 S0000B5 2E 1E MOVE R14,R14 256 DT_UNC1340 257 S0000B7 2F 1D MOVE R13,R15 ; ‚f‚r‚tƒvƒƒOƒ‰ƒ€ƒJƒEƒ“ƒ^‚ð‚q‚P‚R‚ɃZƒbƒg 258 ; 259 S0000B9 3D 3A STB (R10) ; ‚b|‚q‚‚‚Öƒf[ƒ^‚ðƒXƒgƒA 260 S0000BB 3C LOOP 261 S0000BC DA INC R10 262 ; 263 S0000BD 9B JMP R11 ; ‚i‚l‚oi‚c‚sQ‚t‚m‚b‚O‚O‚O{‚Pj 264 S0000BE EF GETB 265 ; 266 ;-----------------------------------------------; i‚Q‚‚‚™‚”‚…‹¤’ʃf[ƒ^j 267 DT_UNC1400 268 S0000BF DE INC R14 269 S0000C0 08 08' BNE DT_UNC1420+1 ; ‚m‚…‚˜‚”ƒoƒ“ƒNH 270 ; ; ‚™‚…‚“ 271 S0000C2 21 WITH R1 ; ‚c‚’‚…‚‡©‚q‚P 272 S0000C3 D4 INC R4 273 S0000C4 B4 FROM R4 274 S0000C5 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒNƒZƒbƒg 275 S0000C7 2E 1E MOVE R14,R14 276 DT_UNC1420 277 S0000C9 21 WITH R1 ; ‚c‚’‚…‚‡©‚q‚P 278 S0000CA EF GETB ; ‚q‚P©‚q‚‚ƒoƒbƒtƒ@ 279 S0000CB DE INC R14 280 S0000CC 08 07' BNE DT_UNC1440 ; ‚m‚…‚˜‚”ƒoƒ“ƒNH 281 ; ; ‚™‚…‚“ 282 S0000CE 01 NOP 283 S0000CF D4 INC R4 284 S0000D0 B4 FROM R4 285 S0000D1 3F DF ROMB ; ‚b|‚q‚‚ƒoƒ“ƒNƒZƒbƒg 286 S0000D3 2E 1E MOVE R14,R14 287 DT_UNC1440 288 S0000D5 2F 1D MOVE R13,R15 ; ‚f‚r‚tƒvƒƒOƒ‰ƒ€ƒJƒEƒ“ƒ^‚ð‚q‚P‚R‚ɃZƒbƒg 289 ; 290 S0000D7 3D 3A STB (R10) ; ‚b|‚q‚‚‚Öƒf[ƒ^‚ðƒXƒgƒA 291 S0000D9 DA INC R10 292 S0000DA EC DEC R12 293 S0000DB 09 05' BEQ DT_UNC1480 ; ƒf[ƒ^I—¹H 294 ; ; ‚Ž‚ 295 S0000DD B1 FROM R1 296 S0000DE 3D 3A STB (R10) ; ‚b|‚q‚‚‚Öƒf[ƒ^‚ðƒXƒgƒA 297 S0000E0 3C LOOP 298 S0000E1 DA INC R10 299 DT_UNC1480 300 S0000E2 9B JMP R11 ; ‚i‚l‚oi‚c‚sQ‚t‚m‚b‚O‚O‚O{‚Pj 301 S0000E3 EF GETB 302 ; 303 ;************************************************************************ 304 ;* ƒ‚[ƒh‚VƒLƒƒƒ‰ƒNƒ^[‚Wƒrƒbƒg•ÏŠ· * 305 ;* in : * 306 ;* (R12) <-- •ÏŠ·ƒoƒCƒg” * 307 ;************************************************************************ 308 0000E4 M7_CHR_CNV EQU $ vvv******* warn :value out of range 309 S0000E4 F1 7000 IWT R1,#WOB7CHR+1800H ;(R1) <-- ‚Sƒrƒbƒgƒf[ƒ^ƒ|ƒCƒ“ƒ^[ vvv******* warn :value out of range 310 S0000E7 F2 6800 IWT R2,#WOB7CHR+1000H ;(R2) <-- ‚Wƒrƒbƒg•ÏŠ·ƒf[ƒ^ƒ|ƒCƒ“ƒ^[ 311 ; 312 S0000EA A3 0F IBT R3,#0FH ;(R3) <-- i‚kjƒf[ƒ^‚`‚m‚cƒf[ƒ^ 313 S0000EC F4 00F0 IWT R4,#0F0H ;(R4) <-- i‚gj h 314 ; 315 S0000EF 02 CACHE 316 ; 317 S0000F0 2F 1D MOVE R13,R15 318 M7_CHR_CNV_010 319 S0000F2 3D 41 LDB (R1) 320 S0000F4 15 TO R5 321 S0000F5 73 AND R3 322 ; 323 S0000F6 74 AND R4 324 S0000F7 03 LSR 325 S0000F8 03 LSR 326 S0000F9 03 LSR 327 S0000FA 03 LSR 328 S0000FB 4D SWAP 329 S0000FC C5 OR R5 330 S0000FD 32 STW (R2) 331 ; 332 S0000FE D2 INC R2 333 S0000FF D2 INC R2 334 S000100 3C LOOP 335 S000101 D1 INC R1 336 ; 337 S000102 00 STOP 338 S000103 01 NOP 339 ; 340 ;************************************************************************ 341 ;* ‚q‚`‚lƒuƒƒbƒN“]‘— * 342 ;* in : * 343 ;* (R1) <-- “]‘—Œ³ƒ|ƒCƒ“ƒ^[ * 344 ;* (R2) <-- “]‘—æƒ|ƒCƒ“ƒ^[ * 345 ;* (R12) <-- “]‘—ƒoƒCƒg” * 346 ;************************************************************************ 347 000104 MRAM_MOVE EQU $ 348 S000104 02 CACHE 349 ; 350 S000105 2F 1D MOVE R13,R15 351 MRAM_MOVE_0010 352 S000107 3D 41 LDB (R1) 353 S000109 3D 32 STB (R2) 354 S00010B D1 INC R1 355 S00010C 3C LOOP 356 S00010D D2 INC R2 357 ; 358 S00010E 00 STOP 359 S00010F 01 NOP 360 ; 361 ;************************************************************************ 362 ;* ‚q‚`‚lƒf[ƒ^“]‘— * 363 ;* in : * 364 ;* (R0) <-- “]‘—æƒAƒhƒŒƒX * 365 ;* (R1) <-- h ‰ÁŽZƒf[ƒ^ * 366 ;* (R2) <-- “]‘—ƒf[ƒ^ * 367 ;* (R12) <-- “]‘—ƒ[ƒh” * 368 ;************************************************************************ 369 000110 MRAM_FILL EQU $ 370 S000110 02 CACHE 371 ; 372 S000111 2F 1D MOVE R13,R15 373 MRAM_FILL_0010 374 S000113 B2 FROM R2 375 S000114 30 STW (R0) 376 S000115 3C LOOP 377 S000116 51 ADD R1 378 ; 379 S000117 00 STOP 380 S000118 01 NOP 381 ; 382 ;**************************************************************** 383 ;* PROGRAM * 384 ;**************************************************************** 385 ;=============== OAM ALL KAITEN ================================= 386 ; 387 ; KAKUDO --> OBJKAKU 388 ; MANNAKA X --> OBJXPOS 389 ; MANNAKA Y --> OBJYPOS 390 ; ZOOM X --> OBJXZUM 391 ; ZOOM Y --> OBJYZUM 392 ; 393 ; 394 000119 OBJKAI EQU $ vvv******* warn :value out of range 395 S000119 3D F0 2684 LM R0,OBJKAKU ;KAKUDO(0 - FF) 396 S00011D 94 LINK #4 ;R9 = SIN(KAKUDO) 397 S00011E FF 01FB' IWT R15,#SINGET 398 S000121 01 NOP 399 S000122 20 11 MOVE R1,R0 400 ; vvv******* warn :value out of range 401 S000124 3D F0 2684 LM R0,OBJKAKU ;KAKUDO(0 - FF) 402 S000128 94 LINK #4 ;R10 = COS(KAKUDO) 403 S000129 FF 0208' IWT R15,#COSGET 404 S00012C 01 NOP 405 S00012D 20 12 MOVE R2,R0 406 ; vvv******* warn :value out of range 407 S00012F 3D F3 268A LM R3,OBJXZUM ;X ZOOM vvv******* warn :value out of range 408 S000133 3D F5 268C LM R5,OBJYZUM ;Y ZOOM 409 ; vvv******* warn :value out of range 410 S000137 3D FB 2686 LM R11,OBJXPOS ;R11 = MANNAKA X vvv******* warn :value out of range 411 S00013B 3D FE 2688 LM R14,OBJYPOS ;R14 = MANNAKA Y 412 ; 413 S00013F 22 16 MOVE R6,R2 ;COS * X ZOOM 414 S000141 23 10 MOVE R0,R3 415 S000143 3D 9F LMULT 416 S000145 9E LOB 417 S000146 17 TO R7 418 S000147 4D SWAP 419 S000148 B4 FROM R4 420 S000149 C0 HIB 421 S00014A 17 TO R7 422 S00014B C7 OR R7 423 ; 424 S00014C 21 16 MOVE R6,R1 ;SIN * X ZOOM 425 S00014E 23 10 MOVE R0,R3 426 S000150 3D 9F LMULT 427 S000152 9E LOB 428 S000153 18 TO R8 429 S000154 4D SWAP 430 S000155 B4 FROM R4 431 S000156 C0 HIB 432 S000157 18 TO R8 433 S000158 C8 OR R8 434 ; 435 S000159 22 16 MOVE R6,R2 ;COS * Y ZOOM 436 S00015B 25 10 MOVE R0,R5 437 S00015D 3D 9F LMULT 438 S00015F 9E LOB 439 S000160 19 TO R9 440 S000161 4D SWAP 441 S000162 B4 FROM R4 442 S000163 C0 HIB 443 S000164 19 TO R9 444 S000165 C9 OR R9 445 ; 446 S000166 21 16 MOVE R6,R1 ;SIN * Y ZOOM 447 S000168 25 10 MOVE R0,R5 448 S00016A 3D 9F LMULT 449 S00016C 9E LOB 450 S00016D 1A TO R10 451 S00016E 4D SWAP 452 S00016F B4 FROM R4 453 S000170 C0 HIB 454 S000171 1A TO R10 455 S000172 CA OR R10 456 ; 457 S000173 F1 0200 IWT R1,#COAM_DX 458 S000176 FC 0100 IWT R12,#00100H 459 S000179 02 CACHE 460 S00017A 2F 1D MOVE R13,R15 461 ; 462 S00017C 41 LDW (R1) ;X POS 463 S00017D F2 8000 IWT R2,#08000H ;OFF CHK. 464 S000180 3F 62 CMP R2 465 S000182 08 08' BNE OBJKAI20 466 S000184 01 NOP 467 OBJKAI30 468 S000185 21 WITH R1 469 S000186 3E 58 ADD #008H 470 S000188 3C LOOP 471 S000189 01 NOP 472 S00018A 00 STOP 473 S00018B 01 NOP 474 ; 475 OBJKAI20 476 S00018C 12 TO R2 477 S00018D 6B SUB R11 478 S00018E 21 15 MOVE R5,R1 479 S000190 D5 INC R5 480 S000191 D5 INC R5 481 S000192 45 LDW (R5) ;Y POS 482 S000193 13 TO R3 483 S000194 6E SUB R14 484 S000195 25 WITH R5 485 S000196 3E 54 ADD #004H 486 S000198 45 LDW (R5) 487 S000199 3E 50 ADD #000H 488 S00019B 0A E8' BPL OBJKAI30 489 S00019D 01 NOP 490 ; 491 S00019E 27 16 MOVE R6,R7 ;COS * X ZOOM * X POS 492 S0001A0 22 10 MOVE R0,R2 493 S0001A2 3D 9F LMULT 494 S0001A4 3E A4 00 SMS R4,CWORK0 495 S0001A7 3E A0 01 SMS R0,CWORK1 496 S0001AA 28 16 MOVE R6,R8 ;SIN * X ZOOM * Y POS 497 S0001AC 23 10 MOVE R0,R3 498 S0001AE 3D 9F LMULT 499 S0001B0 3E A0 02 SMS R0,CWORK2 500 S0001B3 3D A0 00 LMS R0,CWORK0 501 S0001B6 15 TO R5 502 S0001B7 54 ADD R4 503 S0001B8 3D A0 01 LMS R0,CWORK1 504 S0001BB 3D A4 02 LMS R4,CWORK2 505 S0001BE 3D 54 ADC R4 506 S0001C0 9E LOB 507 S0001C1 14 TO R4 508 S0001C2 4D SWAP 509 S0001C3 B5 FROM R5 510 S0001C4 C0 HIB 511 S0001C5 C4 OR R4 512 S0001C6 5B ADD R11 513 S0001C7 31 STW (R1) 514 S0001C8 D1 INC R1 515 S0001C9 D1 INC R1 516 ; 517 S0001CA 29 16 MOVE R6,R9 ;COS * Y ZOOM * Y POS 518 S0001CC 23 10 MOVE R0,R3 519 S0001CE 3D 9F LMULT 520 S0001D0 3E A4 00 SMS R4,CWORK0 521 S0001D3 3E A0 01 SMS R0,CWORK1 522 S0001D6 2A 16 MOVE R6,R10 ;SIN * Y ZOOM * X POS 523 S0001D8 22 10 MOVE R0,R2 524 S0001DA 3D 9F LMULT 525 S0001DC 3E A0 02 SMS R0,CWORK2 526 S0001DF 3D A0 00 LMS R0,CWORK0 527 S0001E2 15 TO R5 528 S0001E3 64 SUB R4 529 S0001E4 3D A0 01 LMS R0,CWORK1 530 S0001E7 3D A4 02 LMS R4,CWORK2 531 S0001EA 3D 64 SBC R4 532 S0001EC 9E LOB 533 S0001ED 14 TO R4 534 S0001EE 4D SWAP 535 S0001EF B5 FROM R5 536 S0001F0 C0 HIB 537 S0001F1 C4 OR R4 538 S0001F2 5E ADD R14 539 S0001F3 31 STW (R1) 540 ; 541 OBJKAI10 542 S0001F4 21 WITH R1 543 S0001F5 3E 56 ADD #006H 544 S0001F7 3C LOOP 545 S0001F8 01 NOP 546 ; 547 S0001F9 00 STOP 548 S0001FA 01 NOP 549 ; 550 ;======================================================================== 551 ; 552 ; ? --> R0 553 ; 554 ; R0 <--- SIN(?) 555 ; 556 SINGET 557 S0001FB 9E LOB 558 S0001FC 50 ADD R0 559 S0001FD FE 029D' IWT R14,#SIN 560 S000200 1E TO R14 561 S000201 5E ADD R14 562 S000202 EF GETB 563 S000203 DE INC R14 564 S000204 3D EF GETBH 565 S000206 9B JMP R11 566 S000207 01 NOP 567 ;------------------------------------------------------------------------ 568 ; 569 ; ? --> R0 570 ; 571 ; R0 <--- COS(?) 572 ; 573 COSGET 574 S000208 9E LOB 575 S000209 50 ADD R0 576 S00020A FE 021D' IWT R14,#COS 577 S00020D 1E TO R14 578 S00020E 5E ADD R14 579 S00020F EF GETB 580 S000210 DE INC R14 581 S000211 3D EF GETBH 582 S000213 9B JMP R11 583 S000214 01 NOP 584 ;------------------------------------------------------------------------ 585 ; 586 ;************************************************************************ 587 ;* ƒ‚[ƒh‚Q hƒtƒ‰ƒtƒ‰h”g‚ÌŽüŠúƒ}ƒbƒvƒf[ƒ^ * 588 ;************************************************************************ 589 000215 FURA_WAVE_MAP EQU $ 590 S000215 08 08 08 08 08 HEX 08,08,08,08,08,08,10,10 S00021A 08 10 10 591 ; 592 ;************************************************************************ 593 ;* cos data * 594 ;************************************************************************ 595 00021D M_COS EQU $ 596 00021D COS EQU $ 597 S00021D 0100 0100 0100 WORD 00100H,00100H,00100H,000FFH,000FFH,000FEH,000FDH,000FCH S000223 00FF 00FF 00FE S000229 00FD 00FC 598 S00022D 00FB 00FA 00F8 WORD 000FBH,000FAH,000F8H,000F7H,000F5H,000F3H,000F1H,000EFH S000233 00F7 00F5 00F3 S000239 00F1 00EF 599 S00023D 00ED 00EA 00E7 WORD 000EDH,000EAH,000E7H,000E5H,000E2H,000DFH,000DCH,000D8H S000243 00E5 00E2 00DF S000249 00DC 00D8 600 S00024D 00D5 00D1 00CE WORD 000D5H,000D1H,000CEH,000CAH,000C6H,000C2H,000BEH,000B9H S000253 00CA 00C6 00C2 S000259 00BE 00B9 601 S00025D 00B5 00B1 00AC WORD 000B5H,000B1H,000ACH,000A7H,000A2H,0009DH,00098H,00093H S000263 00A7 00A2 009D S000269 0098 0093 602 S00026D 008E 0089 0084 WORD 0008EH,00089H,00084H,0007EH,00079H,00073H,0006DH,00068H S000273 007E 0079 0073 S000279 006D 0068 603 S00027D 0062 005C 0056 WORD 00062H,0005CH,00056H,00050H,0004AH,00044H,0003EH,00038H S000283 0050 004A 0044 S000289 003E 0038 604 S00028D 0032 002C 0026 WORD 00032H,0002CH,00026H,0001FH,00019H,00013H,0000DH,00006H S000293 001F 0019 0013 S000299 000D 0006 605 ; 606 00029D M_SIN EQU $ 607 00029D SIN EQU $ 608 S00029D 0000 FFFA FFF3 WORD 00000H,0FFFAH,0FFF3H,0FFEDH,0FFE7H,0FFE1H,0FFDAH,0FFD4H S0002A3 FFED FFE7 FFE1 S0002A9 FFDA FFD4 609 S0002AD FFCE FFC8 FFC2 WORD 0FFCEH,0FFC8H,0FFC2H,0FFBCH,0FFB6H,0FFB0H,0FFAAH,0FFA4H S0002B3 FFBC FFB6 FFB0 S0002B9 FFAA FFA4 610 S0002BD FF9E FF98 FF93 WORD 0FF9EH,0FF98H,0FF93H,0FF8DH,0FF87H,0FF82H,0FF7CH,0FF77H S0002C3 FF8D FF87 FF82 S0002C9 FF7C FF77 611 S0002CD FF72 FF6D FF68 WORD 0FF72H,0FF6DH,0FF68H,0FF63H,0FF5EH,0FF59H,0FF54H,0FF4FH S0002D3 FF63 FF5E FF59 S0002D9 FF54 FF4F 612 S0002DD FF4B FF47 FF42 WORD 0FF4BH,0FF47H,0FF42H,0FF3EH,0FF3AH,0FF36H,0FF32H,0FF2FH S0002E3 FF3E FF3A FF36 S0002E9 FF32 FF2F 613 S0002ED FF2B FF28 FF24 WORD 0FF2BH,0FF28H,0FF24H,0FF21H,0FF1EH,0FF1BH,0FF19H,0FF16H S0002F3 FF21 FF1E FF1B S0002F9 FF19 FF16 614 S0002FD FF13 FF11 FF0F WORD 0FF13H,0FF11H,0FF0FH,0FF0DH,0FF0BH,0FF09H,0FF08H,0FF06H S000303 FF0D FF0B FF09 S000309 FF08 FF06 615 S00030D FF05 FF04 FF03 WORD 0FF05H,0FF04H,0FF03H,0FF02H,0FF01H,0FF01H,0FF00H,0FF00H S000313 FF02 FF01 FF01 S000319 FF00 FF00 616 S00031D FF00 FF00 FF00 WORD 0FF00H,0FF00H,0FF00H,0FF01H,0FF01H,0FF02H,0FF03H,0FF04H S000323 FF01 FF01 FF02 S000329 FF03 FF04 617 S00032D FF05 FF06 FF08 WORD 0FF05H,0FF06H,0FF08H,0FF09H,0FF0BH,0FF0DH,0FF0FH,0FF11H S000333 FF09 FF0B FF0D S000339 FF0F FF11 618 S00033D FF13 FF16 FF19 WORD 0FF13H,0FF16H,0FF19H,0FF1BH,0FF1EH,0FF21H,0FF24H,0FF28H S000343 FF1B FF1E FF21 S000349 FF24 FF28 619 S00034D FF2B FF2F FF32 WORD 0FF2BH,0FF2FH,0FF32H,0FF36H,0FF3AH,0FF3EH,0FF42H,0FF47H S000353 FF36 FF3A FF3E S000359 FF42 FF47 620 S00035D FF4B FF4F FF54 WORD 0FF4BH,0FF4FH,0FF54H,0FF59H,0FF5EH,0FF63H,0FF68H,0FF6DH S000363 FF59 FF5E FF63 S000369 FF68 FF6D 621 S00036D FF72 FF77 FF7C WORD 0FF72H,0FF77H,0FF7CH,0FF82H,0FF87H,0FF8DH,0FF93H,0FF98H S000373 FF82 FF87 FF8D S000379 FF93 FF98 622 S00037D FF9E FFA4 FFAA WORD 0FF9EH,0FFA4H,0FFAAH,0FFB0H,0FFB6H,0FFBCH,0FFC2H,0FFC8H S000383 FFB0 FFB6 FFBC S000389 FFC2 FFC8 623 S00038D FFCE FFD4 FFDA WORD 0FFCEH,0FFD4H,0FFDAH,0FFE1H,0FFE7H,0FFEDH,0FFF3H,0FFFAH S000393 FFE1 FFE7 FFED S000399 FFF3 FFFA 624 S00039D 0000 0006 000D WORD 00000H,00006H,0000DH,00013H,00019H,0001FH,00026H,0002CH S0003A3 0013 0019 001F S0003A9 0026 002C 625 S0003AD 0032 0038 003E WORD 00032H,00038H,0003EH,00044H,0004AH,00050H,00056H,0005CH S0003B3 0044 004A 0050 S0003B9 0056 005C 626 S0003BD 0062 0068 006D WORD 00062H,00068H,0006DH,00073H,00079H,0007EH,00084H,00089H S0003C3 0073 0079 007E S0003C9 0084 0089 627 S0003CD 008E 0093 0098 WORD 0008EH,00093H,00098H,0009DH,000A2H,000A7H,000ACH,000B1H S0003D3 009D 00A2 00A7 S0003D9 00AC 00B1 628 S0003DD 00B5 00B9 00BE WORD 000B5H,000B9H,000BEH,000C2H,000C6H,000CAH,000CEH,000D1H S0003E3 00C2 00C6 00CA S0003E9 00CE 00D1 629 S0003ED 00D5 00D8 00DC WORD 000D5H,000D8H,000DCH,000DFH,000E2H,000E5H,000E7H,000EAH S0003F3 00DF 00E2 00E5 S0003F9 00E7 00EA 630 S0003FD 00ED 00EF 00F1 WORD 000EDH,000EFH,000F1H,000F3H,000F5H,000F7H,000F8H,000FAH S000403 00F3 00F5 00F7 S000409 00F8 00FA 631 S00040D 00FB 00FC 00FD WORD 000FBH,000FCH,000FDH,000FEH,000FFH,000FFH,00100H,00100H S000413 00FE 00FF 00FF S000419 0100 0100 632 S00041D 0100 0100 0100 WORD 00100H,00100H,00100H,000FFH,000FFH,000FEH,000FDH,000FCH S000423 00FF 00FF 00FE S000429 00FD 00FC 633 S00042D 00FB 00FA 00F8 WORD 000FBH,000FAH,000F8H,000F7H,000F5H,000F3H,000F1H,000EFH S000433 00F7 00F5 00F3 S000439 00F1 00EF 634 S00043D 00ED 00EA 00E7 WORD 000EDH,000EAH,000E7H,000E5H,000E2H,000DFH,000DCH,000D8H S000443 00E5 00E2 00DF S000449 00DC 00D8 635 S00044D 00D5 00D1 00CE WORD 000D5H,000D1H,000CEH,000CAH,000C6H,000C2H,000BEH,000B9H S000453 00CA 00C6 00C2 S000459 00BE 00B9 636 S00045D 00B5 00B1 00AC WORD 000B5H,000B1H,000ACH,000A7H,000A2H,0009DH,00098H,00093H S000463 00A7 00A2 009D S000469 0098 0093 637 S00046D 008E 0089 0084 WORD 0008EH,00089H,00084H,0007EH,00079H,00073H,0006DH,00068H S000473 007E 0079 0073 S000479 006D 0068 638 S00047D 0062 005C 0056 WORD 00062H,0005CH,00056H,00050H,0004AH,00044H,0003EH,00038H S000483 0050 004A 0044 S000489 003E 0038 639 S00048D 0032 002C 0026 WORD 00032H,0002CH,00026H,0001FH,00019H,00013H,0000DH,00006H S000493 001F 0019 0013 S000499 000D 0006 640 ; 641 ;************************************************************************ 642 ;* cos data ( 8 bit ) * 643 ;************************************************************************ 644 00049D LCOS EQU $ 645 S00049D 40 40 40 40 40 BYTE 040H,040H,040H,040H,040H,040H,03FH,03FH S0004A2 40 3F 3F 646 S0004A5 3F 3E 3E 3E 3D BYTE 03FH,03EH,03EH,03EH,03DH,03DH,03CH,03CH S0004AA 3D 3C 3C 647 S0004AD 3B 3B 3A 39 38 BYTE 03BH,03BH,03AH,039H,038H,038H,037H,036H S0004B2 38 37 36 648 S0004B5 35 34 33 32 31 BYTE 035H,034H,033H,032H,031H,030H,02FH,02EH S0004BA 30 2F 2E 649 S0004BD 2D 2C 2B 2A 29 BYTE 02DH,02CH,02BH,02AH,029H,027H,026H,025H S0004C2 27 26 25 650 S0004C5 24 22 21 20 1E BYTE 024H,022H,021H,020H,01EH,01DH,01BH,01AH S0004CA 1D 1B 1A 651 S0004CD 18 17 16 14 13 BYTE 018H,017H,016H,014H,013H,011H,010H,00EH S0004D2 11 10 0E 652 S0004D5 0C 0B 09 08 06 BYTE 00CH,00BH,009H,008H,006H,005H,003H,002H S0004DA 05 03 02 653 ; 654 0004DD LSIN EQU $ 655 S0004DD 00 FE FD FB FA BYTE 000H,0FEH,0FDH,0FBH,0FAH,0F8H,0F7H,0F5H S0004E2 F8 F7 F5 656 S0004E5 F4 F2 F0 EF ED BYTE 0F4H,0F2H,0F0H,0EFH,0EDH,0ECH,0EAH,0E9H S0004EA EC EA E9 657 S0004ED E8 E6 E5 E3 E2 BYTE 0E8H,0E6H,0E5H,0E3H,0E2H,0E0H,0DFH,0DEH S0004F2 E0 DF DE 658 S0004F5 DC DB DA D9 D7 BYTE 0DCH,0DBH,0DAH,0D9H,0D7H,0D6H,0D5H,0D4H S0004FA D6 D5 D4 659 S0004FD D3 D2 D1 D0 CF BYTE 0D3H,0D2H,0D1H,0D0H,0CFH,0CEH,0CDH,0CCH S000502 CE CD CC 660 S000505 CB CA C9 C8 C8 BYTE 0CBH,0CAH,0C9H,0C8H,0C8H,0C7H,0C6H,0C5H S00050A C7 C6 C5 661 S00050D C5 C4 C4 C3 C3 BYTE 0C5H,0C4H,0C4H,0C3H,0C3H,0C2H,0C2H,0C2H S000512 C2 C2 C2 662 S000515 C1 C1 C1 C0 C0 BYTE 0C1H,0C1H,0C1H,0C0H,0C0H,0C0H,0C0H,0C0H S00051A C0 C0 C0 663 S00051D C0 C0 C0 C0 C0 BYTE 0C0H,0C0H,0C0H,0C0H,0C0H,0C0H,0C1H,0C1H S000522 C0 C1 C1 664 S000525 C1 C2 C2 C2 C3 BYTE 0C1H,0C2H,0C2H,0C2H,0C3H,0C3H,0C4H,0C4H S00052A C3 C4 C4 665 S00052D C5 C5 C6 C7 C8 BYTE 0C5H,0C5H,0C6H,0C7H,0C8H,0C8H,0C9H,0CAH S000532 C8 C9 CA 666 S000535 CB CC CD CE CF BYTE 0CBH,0CCH,0CDH,0CEH,0CFH,0D0H,0D1H,0D2H S00053A D0 D1 D2 667 S00053D D3 D4 D5 D6 D7 BYTE 0D3H,0D4H,0D5H,0D6H,0D7H,0D9H,0DAH,0DBH S000542 D9 DA DB 668 S000545 DC DE DF E0 E2 BYTE 0DCH,0DEH,0DFH,0E0H,0E2H,0E3H,0E5H,0E6H S00054A E3 E5 E6 669 S00054D E8 E9 EA EC ED BYTE 0E8H,0E9H,0EAH,0ECH,0EDH,0EFH,0F0H,0F2H S000552 EF F0 F2 670 S000555 F4 F5 F7 F8 FA BYTE 0F4H,0F5H,0F7H,0F8H,0FAH,0FBH,0FDH,0FEH S00055A FB FD FE 671 S00055D 00 02 03 05 06 BYTE 000H,002H,003H,005H,006H,008H,009H,00BH S000562 08 09 0B 672 S000565 0C 0E 10 11 13 BYTE 00CH,00EH,010H,011H,013H,014H,016H,017H S00056A 14 16 17 673 S00056D 18 1A 1B 1D 1E BYTE 018H,01AH,01BH,01DH,01EH,020H,021H,022H S000572 20 21 22 674 S000575 24 25 26 27 29 BYTE 024H,025H,026H,027H,029H,02AH,02BH,02CH S00057A 2A 2B 2C 675 S00057D 2D 2E 2F 30 31 BYTE 02DH,02EH,02FH,030H,031H,032H,033H,034H S000582 32 33 34 676 S000585 35 36 37 38 38 BYTE 035H,036H,037H,038H,038H,039H,03AH,03BH S00058A 39 3A 3B 677 S00058D 3B 3C 3C 3D 3D BYTE 03BH,03CH,03CH,03DH,03DH,03EH,03EH,03EH S000592 3E 3E 3E 678 S000595 3F 3F 3F 40 40 BYTE 03FH,03FH,03FH,040H,040H,040H,040H,040H S00059A 40 40 40 679 S00059D 40 40 40 40 40 BYTE 040H,040H,040H,040H,040H,040H,03FH,03FH S0005A2 40 3F 3F 680 S0005A5 3F 3E 3E 3E 3D BYTE 03FH,03EH,03EH,03EH,03DH,03DH,03CH,03CH S0005AA 3D 3C 3C 681 S0005AD 3B 3B 3A 39 38 BYTE 03BH,03BH,03AH,039H,038H,038H,037H,036H S0005B2 38 37 36 682 S0005B5 35 34 33 32 31 BYTE 035H,034H,033H,032H,031H,030H,02FH,02EH S0005BA 30 2F 2E 683 S0005BD 2D 2C 2B 2A 29 BYTE 02DH,02CH,02BH,02AH,029H,027H,026H,025H S0005C2 27 26 25 684 S0005C5 24 22 21 20 1E BYTE 024H,022H,021H,020H,01EH,01DH,01BH,01AH S0005CA 1D 1B 1A 685 S0005CD 18 17 16 14 13 BYTE 018H,017H,016H,014H,013H,011H,010H,00EH S0005D2 11 10 0E 686 S0005D5 0C 0B 09 08 06 BYTE 00CH,00BH,009H,008H,006H,005H,003H,002H S0005DA 05 03 02 687 ; 688 ;************************************************************************ 689 ;* cos data * 690 ;************************************************************************ 691 0005DD LCOS_S EQU $ 692 S0005DD 40 40 40 40 40 BYTE 040H,040H,040H,040H,040H,040H,040H,040H S0005E2 40 40 40 693 S0005E5 40 40 40 3F 3F BYTE 040H,040H,040H,03FH,03FH,03FH,03FH,03FH S0005EA 3F 3F 3F 694 S0005ED 3F 3F 3E 3E 3E BYTE 03FH,03FH,03EH,03EH,03EH,03EH,03EH,03DH S0005F2 3E 3E 3D 695 S0005F5 3D 3D 3D 3D 3C BYTE 03DH,03DH,03DH,03DH,03CH,03CH,03CH,03BH S0005FA 3C 3C 3B 696 S0005FD 3B 3B 3B 3A 3A BYTE 03BH,03BH,03BH,03AH,03AH,03AH,039H,039H S000602 3A 39 39 697 S000605 38 38 38 37 37 BYTE 038H,038H,038H,037H,037H,036H,036H,036H S00060A 36 36 36 698 S00060D 35 35 34 34 33 BYTE 035H,035H,034H,034H,033H,033H,032H,032H S000612 33 32 32 699 S000615 31 31 30 30 2F BYTE 031H,031H,030H,030H,02FH,02FH,02EH,02EH S00061A 2F 2E 2E 700 S00061D 2D 2D 2C 2C 2B BYTE 02DH,02DH,02CH,02CH,02BH,02AH,02AH,029H S000622 2A 2A 29 701 S000625 29 28 27 27 26 BYTE 029H,028H,027H,027H,026H,025H,025H,024H S00062A 25 25 24 702 S00062D 24 23 22 22 21 BYTE 024H,023H,022H,022H,021H,020H,020H,01FH S000632 20 20 1F 703 S000635 1E 1D 1D 1C 1B BYTE 01EH,01DH,01DH,01CH,01BH,01BH,01AH,019H S00063A 1B 1A 19 704 S00063D 18 18 17 16 16 BYTE 018H,018H,017H,016H,016H,015H,014H,013H S000642 15 14 13 705 S000645 13 12 11 10 10 BYTE 013H,012H,011H,010H,010H,00FH,00EH,00DH S00064A 0F 0E 0D 706 S00064D 0C 0C 0B 0A 09 BYTE 00CH,00CH,00BH,00AH,009H,009H,008H,007H S000652 09 08 07 707 S000655 06 05 05 04 03 BYTE 006H,005H,005H,004H,003H,002H,002H,001H S00065A 02 02 01 708 ; 709 00065D LSIN_S EQU $ 710 S00065D 00 FF FE FE FD BYTE 000H,0FFH,0FEH,0FEH,0FDH,0FCH,0FBH,0FBH S000662 FC FB FB 711 S000665 FA F9 F8 F7 F7 BYTE 0FAH,0F9H,0F8H,0F7H,0F7H,0F6H,0F5H,0F4H S00066A F6 F5 F4 712 S00066D F4 F3 F2 F1 F0 BYTE 0F4H,0F3H,0F2H,0F1H,0F0H,0F0H,0EFH,0EEH S000672 F0 EF EE 713 S000675 ED ED EC EB EA BYTE 0EDH,0EDH,0ECH,0EBH,0EAH,0EAH,0E9H,0E8H S00067A EA E9 E8 714 S00067D E8 E7 E6 E5 E5 BYTE 0E8H,0E7H,0E6H,0E5H,0E5H,0E4H,0E3H,0E3H S000682 E4 E3 E3 715 S000685 E2 E1 E0 E0 DF BYTE 0E2H,0E1H,0E0H,0E0H,0DFH,0DEH,0DEH,0DDH S00068A DE DE DD 716 S00068D DC DC DB DB DA BYTE 0DCH,0DCH,0DBH,0DBH,0DAH,0D9H,0D9H,0D8H S000692 D9 D9 D8 717 S000695 D7 D7 D6 D6 D5 BYTE 0D7H,0D7H,0D6H,0D6H,0D5H,0D4H,0D4H,0D3H S00069A D4 D4 D3 718 S00069D D3 D2 D2 D1 D1 BYTE 0D3H,0D2H,0D2H,0D1H,0D1H,0D0H,0D0H,0CFH S0006A2 D0 D0 CF 719 S0006A5 CF CE CE CD CD BYTE 0CFH,0CEH,0CEH,0CDH,0CDH,0CCH,0CCH,0CBH S0006AA CC CC CB 720 S0006AD CB CA CA CA C9 BYTE 0CBH,0CAH,0CAH,0CAH,0C9H,0C9H,0C8H,0C8H S0006B2 C9 C8 C8 721 S0006B5 C8 C7 C7 C6 C6 BYTE 0C8H,0C7H,0C7H,0C6H,0C6H,0C6H,0C5H,0C5H S0006BA C6 C5 C5 722 S0006BD C5 C5 C4 C4 C4 BYTE 0C5H,0C5H,0C4H,0C4H,0C4H,0C3H,0C3H,0C3H S0006C2 C3 C3 C3 723 S0006C5 C3 C3 C2 C2 C2 BYTE 0C3H,0C3H,0C2H,0C2H,0C2H,0C2H,0C2H,0C1H S0006CA C2 C2 C1 724 S0006CD C1 C1 C1 C1 C1 BYTE 0C1H,0C1H,0C1H,0C1H,0C1H,0C1H,0C0H,0C0H S0006D2 C1 C0 C0 725 S0006D5 C0 C0 C0 C0 C0 BYTE 0C0H,0C0H,0C0H,0C0H,0C0H,0C0H,0C0H,0C0H S0006DA C0 C0 C0 726 S0006DD C0 C0 C0 C0 C0 BYTE 0C0H,0C0H,0C0H,0C0H,0C0H,0C0H,0C0H,0C0H S0006E2 C0 C0 C0 727 S0006E5 C0 C0 C0 C1 C1 BYTE 0C0H,0C0H,0C0H,0C1H,0C1H,0C1H,0C1H,0C1H S0006EA C1 C1 C1 728 S0006ED C1 C1 C2 C2 C2 BYTE 0C1H,0C1H,0C2H,0C2H,0C2H,0C2H,0C2H,0C3H S0006F2 C2 C2 C3 729 S0006F5 C3 C3 C3 C3 C4 BYTE 0C3H,0C3H,0C3H,0C3H,0C4H,0C4H,0C4H,0C5H S0006FA C4 C4 C5 730 S0006FD C5 C5 C5 C6 C6 BYTE 0C5H,0C5H,0C5H,0C6H,0C6H,0C6H,0C7H,0C7H S000702 C6 C7 C7 731 S000705 C8 C8 C8 C9 C9 BYTE 0C8H,0C8H,0C8H,0C9H,0C9H,0CAH,0CAH,0CAH S00070A CA CA CA 732 S00070D CB CB CC CC CD BYTE 0CBH,0CBH,0CCH,0CCH,0CDH,0CDH,0CEH,0CEH S000712 CD CE CE 733 S000715 CF CF D0 D0 D1 BYTE 0CFH,0CFH,0D0H,0D0H,0D1H,0D1H,0D2H,0D2H S00071A D1 D2 D2 734 S00071D D3 D3 D4 D4 D5 BYTE 0D3H,0D3H,0D4H,0D4H,0D5H,0D6H,0D6H,0D7H S000722 D6 D6 D7 735 S000725 D7 D8 D9 D9 DA BYTE 0D7H,0D8H,0D9H,0D9H,0DAH,0DBH,0DBH,0DCH S00072A DB DB DC 736 S00072D DC DD DE DE DF BYTE 0DCH,0DDH,0DEH,0DEH,0DFH,0E0H,0E0H,0E1H S000732 E0 E0 E1 737 S000735 E2 E3 E3 E4 E5 BYTE 0E2H,0E3H,0E3H,0E4H,0E5H,0E5H,0E6H,0E7H S00073A E5 E6 E7 738 S00073D E8 E8 E9 EA EA BYTE 0E8H,0E8H,0E9H,0EAH,0EAH,0EBH,0ECH,0EDH S000742 EB EC ED 739 S000745 ED EE EF F0 F0 BYTE 0EDH,0EEH,0EFH,0F0H,0F0H,0F1H,0F2H,0F3H S00074A F1 F2 F3 740 S00074D F4 F4 F5 F6 F7 BYTE 0F4H,0F4H,0F5H,0F6H,0F7H,0F7H,0F8H,0F9H S000752 F7 F8 F9 741 S000755 FA FB FB FC FD BYTE 0FAH,0FBH,0FBH,0FCH,0FDH,0FEH,0FEH,0FFH S00075A FE FE FF 742 S00075D 00 01 02 02 03 BYTE 000H,001H,002H,002H,003H,004H,005H,005H S000762 04 05 05 743 S000765 06 07 08 09 09 BYTE 006H,007H,008H,009H,009H,00AH,00BH,00CH S00076A 0A 0B 0C 744 S00076D 0C 0D 0E 0F 10 BYTE 00CH,00DH,00EH,00FH,010H,010H,011H,012H S000772 10 11 12 745 S000775 13 13 14 15 16 BYTE 013H,013H,014H,015H,016H,016H,017H,018H S00077A 16 17 18 746 S00077D 18 19 1A 1B 1B BYTE 018H,019H,01AH,01BH,01BH,01CH,01DH,01DH S000782 1C 1D 1D 747 S000785 1E 1F 20 20 21 BYTE 01EH,01FH,020H,020H,021H,022H,022H,023H S00078A 22 22 23 748 S00078D 24 24 25 25 26 BYTE 024H,024H,025H,025H,026H,027H,027H,028H S000792 27 27 28 749 S000795 29 29 2A 2A 2B BYTE 029H,029H,02AH,02AH,02BH,02CH,02CH,02DH S00079A 2C 2C 2D 750 S00079D 2D 2E 2E 2F 2F BYTE 02DH,02EH,02EH,02FH,02FH,030H,030H,031H S0007A2 30 30 31 751 S0007A5 31 32 32 33 33 BYTE 031H,032H,032H,033H,033H,034H,034H,035H S0007AA 34 34 35 752 S0007AD 35 36 36 36 37 BYTE 035H,036H,036H,036H,037H,037H,038H,038H S0007B2 37 38 38 753 S0007B5 38 39 39 3A 3A BYTE 038H,039H,039H,03AH,03AH,03AH,03BH,03BH S0007BA 3A 3B 3B 754 S0007BD 3B 3B 3C 3C 3C BYTE 03BH,03BH,03CH,03CH,03CH,03DH,03DH,03DH S0007C2 3D 3D 3D 755 S0007C5 3D 3D 3E 3E 3E BYTE 03DH,03DH,03EH,03EH,03EH,03EH,03EH,03FH S0007CA 3E 3E 3F 756 S0007CD 3F 3F 3F 3F 3F BYTE 03FH,03FH,03FH,03FH,03FH,03FH,040H,040H S0007D2 3F 40 40 757 S0007D5 40 40 40 40 40 BYTE 040H,040H,040H,040H,040H,040H,040H,040H S0007DA 40 40 40 758 S0007DD 40 40 40 40 40 BYTE 040H,040H,040H,040H,040H,040H,040H,040H S0007E2 40 40 40 759 S0007E5 40 40 40 3F 3F BYTE 040H,040H,040H,03FH,03FH,03FH,03FH,03FH S0007EA 3F 3F 3F 760 S0007ED 3F 3F 3E 3E 3E BYTE 03FH,03FH,03EH,03EH,03EH,03EH,03EH,03DH S0007F2 3E 3E 3D 761 S0007F5 3D 3D 3D 3D 3C BYTE 03DH,03DH,03DH,03DH,03CH,03CH,03CH,03BH S0007FA 3C 3C 3B 762 S0007FD 3B 3B 3B 3A 3A BYTE 03BH,03BH,03BH,03AH,03AH,03AH,039H,039H S000802 3A 39 39 763 S000805 38 38 38 37 37 BYTE 038H,038H,038H,037H,037H,036H,036H,036H S00080A 36 36 36 764 S00080D 35 35 34 34 33 BYTE 035H,035H,034H,034H,033H,033H,032H,032H S000812 33 32 32 765 S000815 31 31 30 30 2F BYTE 031H,031H,030H,030H,02FH,02FH,02EH,02EH S00081A 2F 2E 2E 766 S00081D 2D 2D 2C 2C 2B BYTE 02DH,02DH,02CH,02CH,02BH,02AH,02AH,029H S000822 2A 2A 29 767 S000825 29 28 27 27 26 BYTE 029H,028H,027H,027H,026H,025H,025H,024H S00082A 25 25 24 768 S00082D 24 23 22 22 21 BYTE 024H,023H,022H,022H,021H,020H,020H,01FH S000832 20 20 1F 769 S000835 1E 1D 1D 1C 1B BYTE 01EH,01DH,01DH,01CH,01BH,01BH,01AH,019H S00083A 1B 1A 19 770 S00083D 18 18 17 16 16 BYTE 018H,018H,017H,016H,016H,015H,014H,013H S000842 15 14 13 771 S000845 13 12 11 10 10 BYTE 013H,012H,011H,010H,010H,00FH,00EH,00DH S00084A 0F 0E 0D 772 S00084D 0C 0C 0B 0A 09 BYTE 00CH,00CH,00BH,00AH,009H,009H,008H,007H S000852 09 08 07 773 S000855 06 05 05 04 03 BYTE 006H,005H,005H,004H,003H,002H,002H,001H S00085A 02 02 01 774 ; 775 ; 776 ;================ OAM_DXCLR ============================================= 777 00085D OAM_DXCLR EQU $ 778 S00085D 02 CACHE 779 S00085E F0 0200 IWT R0,#COAM_DX 780 S000861 3E A0 49 SMS R0,COAMIDX 781 ; 782 S000864 F1 8000 IWT R1,#08000H 783 S000867 A2 08 IBT R2,#008H 784 ; 785 S000869 FC 0100 IWT R12,#256 786 S00086C 2F 1D MOVE R13,R15 787 ; 788 S00086E B1 FROM R1 789 S00086F 30 STW (R0) 790 ; 791 S000870 3C LOOP 792 S000871 52 ADD R2 793 ; 794 S000872 00 STOP 795 S000873 01 NOP 796 ; 797 ;;;;;================ OAM_DXCLR_S =========================================== 798 ;;;;OAM_DXCLR_S EQU $ 799 ;;;; CACHE 800 ;;;; IWT R0,#COAM_DX 801 ;;;; SMS R0,COAMIDX 802 ;;;;; 803 ;;;; IWT R1,#08000H 804 ;;;; IBT R2,#008H 805 ;;;;; 806 ;;;; IBT R3,#6 ;to spacial flag pointer add data 807 ;;;;; 808 ;;;; IWT R12,#128 809 ;;;; MOVE R13,R15 810 ;;;;; 811 ;;;; TO R4 812 ;;;; ADD R3 813 ;;;; TO R5 814 ;;;; LDW (R4) 815 ;;;; MOVES R5,R5 816 ;;;; BMI OAM_DXCLR_S_010 817 ;;;; FROM R1 818 ;;;;; 819 ;;;; STW (R0) 820 ;;;;; 821 ;;;;OAM_DXCLR_S_010 822 ;;;; LOOP 823 ;;;; ADD R2 824 ;;;;; 825 ;;;; STOP 826 ;;;; NOP 827 ; 828 ;======================================================================== 829 000874 DX_OAM EQU $ 830 S000874 AC 10 IBT R12,#16 ;not OAM_DX area no 831 ; 832 ;;;;DX_OAM_S EQU $ 833 ;;;; MOVE R6,R12 834 ; 835 ;-------------- not OAM_DX area clear ----------------------------------- 836 S000876 F0 0A01 IWT R0,#COAM+1 837 S000879 A1 04 IBT R1,#4 838 S00087B A2 F0 IBT R2,#0F0H 839 ; 840 S00087D 02 CACHE 841 ; 842 S00087E 2F 1D MOVE R13,R15 843 ; 844 S000880 B2 FROM R2 845 S000881 3D 30 STB (R0) 846 S000883 3C LOOP 847 S000884 51 ADD R1 848 ; 849 ;-------------- OAM_DX area set ----------------------------------------- 850 ;;;; MOVE R2,R0 851 ;;;; DEC R2 852 S000885 F2 0A40 IWT R2,#COAM+4*16 853 ;;;; IWT R0,#COAMSB 854 ;;;; TO R4 855 ;;;; ADD R6 856 S000888 F4 0C30 IWT R4,#COAMSB+1*16 857 ; 858 S00088B F1 0200 IWT R1,#COAM_DX 859 S00088E F3 0BFC IWT R3,#COAM+200H-4 860 S000891 F5 0C9F IWT R5,#COAMSB+80H-1 861 S000894 A7 F1 IBT R7,#0F1H 862 ; 863 ;;;; IWT R12,#128 ;LOOP N 864 S000896 FC 0100 IWT R12,#256 ;LOOP N 865 S000899 2F 1D MOVE R13,R15 ;LOOP ADDR 866 ; 867 S00089B 21 16 MOVE R6,R1 ;INDEX KEISAN USE SET 868 ; 869 S00089D 46 LDW (R6) ;X POS CHK. 870 S00089E 3F 67 CMP R7 871 S0008A0 07 58' BLT DX_OAM80 872 S0008A2 01 NOP 873 S0008A3 F8 0100 IWT R8,#00100H 874 S0008A6 3F 68 CMP R8 875 S0008A8 06 50' BGE DX_OAM80 876 S0008AA D6 INC R6 877 S0008AB D6 INC R6 878 S0008AC A9 00 IBT R9,#000H ;COAMSB DATA INT 879 S0008AE 2B B0 MOVES R11,R0 880 S0008B0 0A 02' BPL DX_OAM60 881 S0008B2 01 NOP 882 S0008B3 D9 INC R9 ;COAMSB SET 883 ; 884 DX_OAM60 885 S0008B4 46 LDW (R6) ;Y POS CHK. 886 S0008B5 3F 67 CMP R7 887 S0008B7 07 41' BLT DX_OAM80 888 S0008B9 01 NOP 889 S0008BA F8 00F0 IWT R8,#000F0H 890 S0008BD 3F 68 CMP R8 891 S0008BF 06 39' BGE DX_OAM80 892 S0008C1 D6 INC R6 893 S0008C2 20 1E MOVE R14,R0 894 S0008C4 D6 INC R6 895 ; 896 S0008C5 1A TO R10 ;CHAR & ATR SET 897 S0008C6 46 LDW (R6) 898 S0008C7 D6 INC R6 899 S0008C8 D6 INC R6 900 ; 901 S0008C9 46 LDW (R6) ;SB & DATA SET 902 S0008CA 19 TO R9 903 S0008CB C9 OR R9 904 S0008CC F8 4000 IWT R8,#04000H ;YUSEN CHK. 905 S0008CF 78 AND R8 906 S0008D0 08 13' BNE DX_OAM10 907 S0008D2 BB FROM R11 908 ; ;YUSEN 909 S0008D3 3D 32 STB (R2) ;COAM X SET 910 S0008D5 D2 INC R2 911 ; 912 S0008D6 EE DEC R14 913 S0008D7 BE FROM R14 ;COAM Y SET 914 S0008D8 3D 32 STB (R2) 915 S0008DA D2 INC R2 916 ; 917 S0008DB BA FROM R10 ;CHAR & ATR SET 918 S0008DC 32 STW (R2) 919 S0008DD D2 INC R2 920 S0008DE D2 INC R2 921 ; 922 S0008DF B9 FROM R9 ;SB SET 923 S0008E0 3D 34 STB (R4) 924 ; 925 S0008E2 05 12' BRA DX_OAM40 926 S0008E4 D4 INC R4 927 ; 928 DX_OAM10 ;NOT YUSEN 929 S0008E5 3D 33 STB (R3) ;COAM X SET 930 S0008E7 D3 INC R3 931 ; 932 S0008E8 EE DEC R14 933 S0008E9 BE FROM R14 ;COAM Y SET 934 S0008EA 3D 33 STB (R3) 935 S0008EC D3 INC R3 936 ; 937 S0008ED BA FROM R10 ;CHAR & ATR SET 938 S0008EE 33 STW (R3) 939 ; 940 S0008EF B9 FROM R9 ;SB SET 941 S0008F0 3D 35 STB (R5) 942 S0008F2 E5 DEC R5 943 ; 944 S0008F3 23 WITH R3 945 S0008F4 3E 66 SUB #006H 946 ; 947 DX_OAM40 948 S0008F6 B3 FROM R3 ;COAM OVERFLOR CHK. 949 S0008F7 62 SUB R2 950 S0008F8 0C 14' BCC DX_OAM90 951 ; 952 DX_OAM80 953 S0008FA 21 WITH R1 ;NEXT COAM_DX 954 S0008FB 3E 58 ADD #008H 955 ; 956 S0008FD 3C LOOP 957 S0008FE 01 NOP 958 ; 959 S0008FF A0 F0 IBT R0,#0F0H ;COAM CLR 960 S000901 D2 INC R2 961 S000902 D3 INC R3 962 DX_OAM50 963 S000903 3D 32 STB (R2) 964 S000905 22 WITH R2 965 S000906 3E 54 ADD #004H 966 S000908 B3 FROM R3 967 S000909 3F 62 CMP R2 968 S00090B 0D F6' BCS DX_OAM50 969 S00090D 01 NOP 970 ; 971 DX_OAM90 972 ;;;; STOP 973 ;;;; NOP 974 ; 975 ;************************************************************************ 976 ;* OAMCHG2 * 977 ;************************************************************************ 978 00090E OAMCHG2 EQU $ 979 S00090E 02 CACHE 980 ; 981 S00090F FA 0C9F IWT R10,#COAMSB+80H-1 ;R10 <-- COAM index 982 S000912 F8 0C1F IWT R8,#COAMSUB+20H-1 ;R8 <-- COAM sub index 983 S000915 AC 20 IBT R12,#20H ;COAM sub loop set 984 S000917 2F 1D MOVE R13,R15 985 OACG10 986 S000919 3D 4A LDB (R10) 987 S00091B EA DEC R10 988 S00091C 50 ADD R0 ;[ ASL ] 989 S00091D 50 ADD R0 ;[ ASL ] 990 S00091E 11 TO R1 991 S00091F 3D 4A LDB (R10) 992 S000921 C1 OR R1 993 S000922 EA DEC R10 994 S000923 50 ADD R0 ;[ ASL ] 995 S000924 50 ADD R0 ;[ ASL ] 996 S000925 11 TO R1 997 S000926 3D 4A LDB (R10) 998 S000928 C1 OR R1 999 S000929 EA DEC R10 1000 S00092A 50 ADD R0 ;[ ASL ] 1001 S00092B 50 ADD R0 ;[ ASL ] 1002 S00092C 11 TO R1 1003 S00092D 3D 4A LDB (R10) 1004 S00092F C1 OR R1 1005 S000930 EA DEC R10 1006 ; 1007 S000931 3D 38 STB (R8) 1008 S000933 3C LOOP 1009 S000934 E8 DEC R8 1010 ; 1011 S000935 00 STOP 1012 S000936 01 NOP 1013 ; 1014 ;======================================================================== 1015 ; 1016 ; R0,R4 = R0 * R6 1017 ; 1018 ; 1019 000937 MULT16C EQU $ 1020 S000937 3D 9F LMULT 1021 ; 1022 S000939 00 STOP 1023 S00093A 01 NOP 1024 ; 1025 ;************************************************************************ 1026 ;* circle window ( big circle ) * 1027 ;* in : (R0) <-- window data address(B) * 1028 ;* (R4) <-- " (L,H) * 1029 ;* (R1) <-- circle center X pos * 1030 ;* (R2) <-- " Y " * 1031 ;* (R12) <-- " R * 1032 ;************************************************************************ 1033 ; 1034 00093B CIRCLWD EQU $ 1035 S00093B 3F DF ROMB ;window data address(B) set 1036 S00093D B2 FROM R2 ;circle center Y pos x4 1037 S00093E 52 ADD R2 1038 S00093F 50 ADD R0 vvv******* warn :value out of range 1039 S000940 F5 3A02 IWT R5,#WINDBF 1040 S000943 55 ADD R5 1041 S000944 20 16 MOVE R6,R0 ;(R6) <-- center window buffer address(down) 1042 S000946 15 TO R5 1043 S000947 3E 64 SUB #4 ;(R5) <-- " (up) 1044 S000949 A7 00 IBT R7,#00 ;(R7) <-- window data pointer 1045 S00094B 28 BC MOVES R8,R12 ;(R8) <-- circle R 1046 S00094D 09 4F' BEQ CRW220 ;R=0 ? ( yes:CRW220 ) 1047 S00094F BC FROM R12 ;circle R x2 1048 ; 1049 ;-------------- circle window set ------------------------------- 1050 S000950 5C ADD R12 vvv******* warn :value out of range 1051 S000951 F3 2200 IWT R3,#DIVBUF 1052 S000954 53 ADD R3 1053 S000955 13 TO R3 1054 S000956 40 LDW (R0) ;(R3) <-- window data step 1055 ; vvv******* warn :value out of range 1056 S000957 FB 3D49 IWT R11,#WINDBF+(0D2H*4)-1 ;(R11) <-- window buffer 1057 S00095A FA 00FF IWT R10,#00FFH ;(R10) <-- right max check data 1058 ; 1059 S00095D 02 CACHE 1060 ; 1061 S00095E FD 0962' IWT R13,#CRW210+1 1062 CRW210 1063 S000961 B7 FROM R7 1064 S000962 C0 HIB 1065 S000963 1E TO R14 1066 S000964 54 ADD R4 1067 S000965 EF GETB 1068 S000966 3D 88 UMULT R8 1069 S000968 19 TO R9 1070 S000969 C0 HIB 1071 S00096A B1 FROM R1 1072 S00096B 69 SUB R9 1073 S00096C 0A 02' BPL CRW212 ;left max over ? ( no:CRW212 ) 1074 S00096E 01 NOP 1075 ; 1076 S00096F 60 SUB R0 1077 CRW212 1078 S000970 3D 35 STB (R5) ;left pos set 1079 S000972 3D 36 STB (R6) 1080 S000974 D5 INC R5 1081 S000975 D6 INC R6 1082 S000976 B9 FROM R9 1083 S000977 51 ADD R1 1084 S000978 6A SUB R10 1085 S000979 0B 03' BMI CRW214 ;right max over ? ( no:CRW214 ) 1086 S00097B 5A ADD R10 1087 ; 1088 S00097C 2A 10 MOVE R0,R10 1089 CRW214 1090 S00097E 3D 35 STB (R5) ;right pos set 1091 S000980 3D 36 STB (R6) 1092 S000982 27 WITH R7 1093 S000983 53 ADD R3 1094 S000984 25 WITH R5 1095 S000985 3E 65 SUB #4+1 vvv******* warn :value out of range 1096 S000987 F0 39FE IWT R0,#WINDBF-4 ;(R4) <-- max window buffer address(up) 1097 S00098A B5 FROM R5 1098 S00098B 60 SUB R0 1099 S00098C 0D 04' BCS CRW216 ;buffer size over ? ( no:CRW216 ) 1100 S00098E 01 NOP 1101 ; vvv******* warn :value out of range 1102 S00098F F5 39FE IWT R5,#WINDBF-4 1103 CRW216 1104 S000992 26 WITH R6 1105 S000993 3E 53 ADD #4-1 1106 S000995 B6 FROM R6 1107 S000996 6B SUB R11 1108 S000997 0C 03' BCC CRW218 ;buffer size over ? ( no:CRW218 ) 1109 S000999 01 NOP 1110 ; 1111 S00099A 2B 16 MOVE R6,R11 1112 CRW218 1113 S00099C 3C LOOP 1114 S00099D B7 FROM R7 1115 ; 1116 ;-------------- up clear window set ----------------------------- 1117 CRW220 vvv******* warn :value out of range 1118 S00099E F0 3A02 IWT R0,#WINDBF 1119 S0009A1 B5 FROM R5 1120 S0009A2 60 SUB R0 1121 S0009A3 0B 10' BMI CRW232 ;up buffer set ? ( no:CRW232 ) 1122 S0009A5 1C TO R12 1123 ; 1124 S0009A6 03 LSR 1125 S0009A7 DC INC R12 1126 S0009A8 F9 00FF IWT R9,#00FFH ;(R9) <-- clear window data 1127 S0009AB AA 04 IBT R10,#4 ;(R10) <-- buffer add data 1128 S0009AD 25 10 MOVE R0,R5 1129 S0009AF 2F 1D MOVE R13,R15 1130 CRW230 1131 S0009B1 B9 FROM R9 1132 S0009B2 30 STW (R0) 1133 S0009B3 3C LOOP 1134 S0009B4 6A SUB R10 1135 ; 1136 ;-------------- down clear window set --------------------------- 1137 CRW232 vvv******* warn :value out of range 1138 S0009B5 F0 3D46 IWT R0,#WINDBF+(0D2H*4)-4 1139 S0009B8 66 SUB R6 1140 S0009B9 0B 10' BMI CRW250 ;down buffer set ? ( no:CRW250 ) 1141 S0009BB 1C TO R12 1142 ; 1143 S0009BC 03 LSR 1144 S0009BD DC INC R12 1145 S0009BE F9 00FF IWT R9,#00FFH ;(R9) <-- clear window data 1146 S0009C1 AA 04 IBT R10,#4 ;(R10) <-- buffer add data 1147 S0009C3 26 10 MOVE R0,R6 1148 S0009C5 2F 1D MOVE R13,R15 1149 CRW240 1150 S0009C7 B9 FROM R9 1151 S0009C8 30 STW (R0) 1152 S0009C9 3C LOOP 1153 S0009CA 5A ADD R10 1154 ; 1155 CRW250 1156 S0009CB 00 STOP 1157 S0009CC 01 NOP 1158 ; 1159 ;************************************************************************ 1160 ;* circle window ( big circle ) * 1161 ;* in : (R0) <-- window data address(B) * 1162 ;* (R4) <-- " (L,H) * 1163 ;* (R1) <-- circle center X pos * 1164 ;* (R2) <-- " Y " * 1165 ;* (R11) <-- 0:left 2:right * 1166 ;* (R12) <-- " R * 1167 ;************************************************************************ 1168 ; 1169 0009CD BS_CIRCLWD EQU $ 1170 S0009CD 3F DF ROMB ;window data address(B) set 1171 S0009CF B2 FROM R2 ;circle center Y pos x4 1172 S0009D0 52 ADD R2 1173 S0009D1 50 ADD R0 vvv******* warn :value out of range 1174 S0009D2 F5 3A02 IWT R5,#WINDBF 1175 S0009D5 55 ADD R5 1176 S0009D6 5B ADD R11 1177 S0009D7 20 16 MOVE R6,R0 ;(R6) <-- center window buffer address(down) 1178 S0009D9 15 TO R5 1179 S0009DA 3E 64 SUB #04H ;(R5) <-- " (up) 1180 S0009DC A7 00 IBT R7,#00 ;(R7) <-- window data pointer 1181 S0009DE 28 BC MOVES R8,R12 ;(R8) <-- circle R 1182 S0009E0 09 39' BEQ BS_CRW220 ;R=0 ? ( yes:BS_CRW220 ) 1183 S0009E2 BC FROM R12 ;circle R x2 1184 ; 1185 ;-------------- circle window set ------------------------------- 1186 S0009E3 5C ADD R12 vvv******* warn :value out of range 1187 S0009E4 F3 2200 IWT R3,#DIVBUF 1188 S0009E7 53 ADD R3 1189 S0009E8 13 TO R3 1190 S0009E9 40 LDW (R0) ;(R3) <-- window data step 1191 ; 1192 S0009EA FA 00FF IWT R10,#000FFH ;(R10) <-- right max check data 1193 ; 1194 S0009ED 02 CACHE 1195 ; 1196 S0009EE 2F 1D MOVE R13,R15 1197 BS_CRW210 1198 S0009F0 B7 FROM R7 1199 S0009F1 C0 HIB 1200 S0009F2 1E TO R14 1201 S0009F3 54 ADD R4 1202 S0009F4 EF GETB 1203 S0009F5 3D 88 UMULT R8 1204 S0009F7 19 TO R9 1205 S0009F8 C0 HIB 1206 S0009F9 B1 FROM R1 1207 S0009FA 69 SUB R9 1208 S0009FB 0A 02' BPL BS_CRW212 ;left max over ? ( no:BS_CRW212 ) 1209 S0009FD 01 NOP 1210 ; 1211 S0009FE 60 SUB R0 1212 BS_CRW212 1213 S0009FF 3D 35 STB (R5) ;left pos set 1214 S000A01 3D 36 STB (R6) 1215 S000A03 D5 INC R5 1216 S000A04 D6 INC R6 1217 S000A05 B9 FROM R9 1218 S000A06 51 ADD R1 1219 S000A07 3F 6A CMP R10 1220 S000A09 0B 03' BMI BS_CRW214 ;right max over ? ( no:BS_CRW214 ) 1221 S000A0B 01 NOP 1222 ; 1223 S000A0C 2A 10 MOVE R0,R10 1224 BS_CRW214 1225 S000A0E 3D 35 STB (R5) ;right pos set 1226 S000A10 3D 36 STB (R6) 1227 ; 1228 S000A12 27 WITH R7 1229 S000A13 53 ADD R3 1230 S000A14 25 WITH R5 1231 S000A15 3E 65 SUB #5 1232 S000A17 D6 INC R6 1233 S000A18 D6 INC R6 1234 ; 1235 S000A19 3C LOOP 1236 S000A1A D6 INC R6 1237 ; 1238 BS_CRW220 1239 S000A1B 00 STOP 1240 S000A1C 01 NOP 1241 ; 1242 ;************************************************************************ 1243 ;* circle window ( big circle ) * 1244 ;* in : (R5) <-- mask data * 1245 ;************************************************************************ 1246 ; 1247 000A1D BS_MASKST EQU $ vvv******* warn :value out of range 1248 S000A1D F6 3A02 IWT R6,#WINDBF 1249 ; 1250 S000A20 F1 00B8 IWT R1,#000B8H ; R1 <-- window 1 left data set 1251 S000A23 F0 00D7 IWT R0,#000D7H 1252 S000A26 65 SUB R5 ; R2 <-- window 1 right data set 1253 S000A27 3F 61 CMP R1 1254 S000A29 08 05' BNE BS_MSS050 ; mask over ? 1255 S000A2B 01 NOP 1256 ; 1257 S000A2C F1 00FF IWT R1,#000FFH 1258 S000A2F 60 SUB R0 1259 ; 1260 BS_MSS050 1261 S000A30 20 12 MOVE R2,R0 1262 ; 1263 S000A32 F4 00F7 IWT R4,#000F7H ; R4 <-- window 2 right deta set 1264 S000A35 F0 00D8 IWT R0,#000D8H 1265 S000A38 55 ADD R5 ; R3 <-- window 2 left deta set 1266 S000A39 3F 64 CMP R4 1267 S000A3B 08 06' BNE BS_MSS100 1268 S000A3D 01 NOP 1269 ; 1270 S000A3E A4 00 IBT R4,#000H 1271 S000A40 F0 00FF IWT R0,#000FFH 1272 ; 1273 BS_MSS100 1274 S000A43 20 13 MOVE R3,R0 1275 ; 1276 S000A45 FC 00D2 IWT R12,#000D2H 1277 ; 1278 S000A48 02 CACHE 1279 ; 1280 S000A49 2F 1D MOVE R13,R15 1281 BS_MSS150 1282 S000A4B B1 FROM R1 1283 S000A4C 3D 36 STB (R6) 1284 S000A4E D6 INC R6 1285 ; 1286 S000A4F B2 FROM R2 1287 S000A50 3D 36 STB (R6) 1288 S000A52 D6 INC R6 1289 ; 1290 S000A53 B3 FROM R3 1291 S000A54 3D 36 STB (R6) 1292 S000A56 D6 INC R6 1293 ; 1294 S000A57 B4 FROM R4 1295 S000A58 3D 36 STB (R6) 1296 ; 1297 S000A5A 3C LOOP 1298 S000A5B D6 INC R6 1299 ; 1300 S000A5C 00 STOP 1301 S000A5D 01 NOP 1302 ; 1303 ;************************************************************************ 1304 ;* window buffer initial set sub * 1305 ;************************************************************************ 1306 000A5E WINBFCLR EQU $ vvv******* warn :value out of range 1307 S000A5E F1 3A02 IWT R1,#WINDBF vvv******* warn :value out of range 1308 S000A61 F2 3A04 IWT R2,#WINDBF+1*2 1309 S000A64 F0 00FF IWT R0,#000FFH 1310 S000A67 FC 00D2 IWT R12,#000D2H 1311 ; 1312 S000A6A 02 CACHE 1313 ; 1314 S000A6B 2F 1D MOVE R13,R15 1315 ; 1316 000A6D WFR050 EQU $ 1317 S000A6D 31 STW (R1) ; left window data clear !! 1318 S000A6E 32 STW (R2) ; right window data clear !! 1319 ; 1320 S000A6F D1 INC R1 1321 S000A70 D1 INC R1 1322 S000A71 D1 INC R1 1323 S000A72 D1 INC R1 1324 S000A73 D2 INC R2 1325 S000A74 D2 INC R2 1326 S000A75 D2 INC R2 1327 S000A76 3C LOOP 1328 S000A77 D2 INC R2 1329 ; 1330 S000A78 00 STOP 1331 S000A79 01 NOP 1332 ; 1333 ;************************************************************************ 1334 ;* slot window ( big circle ) * 1335 ;* in : (R1) <-- BG 1 scroll data * 1336 ;************************************************************************ 1337 ; 1338 000A7A BS_SLOTWIN EQU $ 1339 S000A7A F0 00FF IWT R0,#000FFH vvv******* warn :value out of range 1340 S000A7D F2 3A02 IWT R2,#WINDBF 1341 S000A80 FC 00D2 IWT R12,#000D2H 1342 ; 1343 S000A83 02 CACHE 1344 ; 1345 S000A84 2F 1D MOVE R13,R15 1346 ; 1347 BS_STN000 1348 S000A86 32 STW (R2) 1349 S000A87 D2 INC R2 1350 S000A88 D2 INC R2 1351 S000A89 32 STW (R2) 1352 S000A8A D2 INC R2 1353 S000A8B 3C LOOP 1354 S000A8C D2 INC R2 1355 ; vvv******* warn :value out of range 1356 S000A8D F4 3A02 IWT R4,#WINDBF 1357 S000A90 A0 63 IBT R0,#04EH+15H 1358 S000A92 61 SUB R1 1359 S000A93 50 ADD R0 1360 S000A94 50 ADD R0 1361 S000A95 12 TO R2 ; (R2) <-- up window address !! 1362 S000A96 54 ADD R4 1363 ; 1364 S000A97 F0 0082 IWT R0,#00082H 1365 S000A9A 61 SUB R1 1366 S000A9B 50 ADD R0 1367 S000A9C 50 ADD R0 1368 S000A9D 13 TO R3 ; (R3) <-- down window address !! 1369 S000A9E 54 ADD R4 1370 ; vvv******* warn :value out of range 1371 S000A9F F4 3D4A IWT R4,#WINDBF+(000D2H*4) 1372 S000AA2 F5 852E IWT R5,#0852EH 1373 ; 1374 S000AA5 AC 16 IBT R12,#016H 1375 ; 1376 S000AA7 2F 1D MOVE R13,R15 1377 ; 1378 BS_STN050 1379 S000AA9 B2 FROM R2 1380 S000AAA 3F 64 CMP R4 1381 S000AAC 0D 03' BCS BS_STN100 ; up addres pointer over ? 1382 S000AAE 01 NOP ; Yes !! 1383 ; 1384 S000AAF B5 FROM R5 1385 S000AB0 32 STW (R2) 1386 ; 1387 BS_STN100 1388 S000AB1 E2 DEC R2 1389 S000AB2 E2 DEC R2 1390 S000AB3 E2 DEC R2 1391 S000AB4 E2 DEC R2 1392 ; 1393 S000AB5 B3 FROM R3 1394 S000AB6 3F 64 CMP R4 1395 S000AB8 0D 03' BCS BS_STN150 ; down address pointer over ? 1396 S000ABA 01 NOP ; Yes !! 1397 ; 1398 S000ABB B5 FROM R5 1399 S000ABC 33 STW (R3) 1400 ; 1401 BS_STN150 1402 S000ABD D3 INC R3 1403 S000ABE D3 INC R3 1404 S000ABF D3 INC R3 1405 S000AC0 3C LOOP 1406 S000AC1 D3 INC R3 1407 ; 1408 S000AC2 00 STOP 1409 S000AC3 01 NOP 1410 ; 1411 ;---------------------------------------------------------------- 1412 ;- R7 / R8 -> R9 ... R0 - 1413 ;---------------------------------------------------------------- 1414 ;---------------------------------------------------------------- 1415 ;- use register - 1416 ;- r0,r7,r8,r9,r12,r13 - 1417 ;---------------------------------------------------------------- 1418 000AC4 DIV16 EQU $ 1419 S000AC4 AC 10 IBT R12,#0016 ; R12 <- 00016 1420 S000AC6 60 SUB R0 ; R0 <- 0000 1421 S000AC7 20 19 MOVE R9,R0 ; R9 <- 0000 ( syou clear ) 1422 S000AC9 2F 1D MOVE R13,R15 1423 DIV000 1424 S000ACB 29 WITH R9 1425 S000ACC 59 ADD R9 ; R9 <- R9 << 1 1426 S000ACD 27 WITH R7 1427 S000ACE 57 ADD R7 ; R7 <- R7 << 1 1428 S000ACF 04 ROL ; R0 <- R0 << 1 1429 S000AD0 3F 68 CMP R8 1430 S000AD2 0C 03' BCC DIV020 1431 S000AD4 01 NOP 1432 ; 1433 S000AD5 68 SUB R8 ; R0 <- R0 - R8 1434 S000AD6 D9 INC R9 1435 DIV020 1436 S000AD7 3C LOOP 1437 S000AD8 01 NOP 1438 ; 1439 S000AD9 9B JMP R11 1440 S000ADA 01 NOP 1441 ; 1442 ;************************************************************************ 1443 ;* R G B color change * 1444 ;* R1 <- read ram address * 1445 ;* R2 <- write " " * 1446 ;* R5 <- Red bairitu * 1447 ;* R10 <- Green bairitu * 1448 ;* R14 <- Blue bairitu * 1449 ;************************************************************************ 1450 ; 1451 ;------------------------------------------------------------------------ 1452 ;- use register - 1453 ;- r0,r1,r2,r3,r5,r6,r7,r8,r9,r10,r11,r12,r13,r14 - 1454 ;------------------------------------------------------------------------ 1455 000ADB COLHEN EQU $ 1456 S000ADB 02 CACHE 1457 ;;;; IWT R1,#MOTOCOL ; read ram address set 1458 ;;;; IWT R2,#CHNGCOL ; write " " " 1459 S000ADC FC 0100 IWT R12,#100H ; loop suu set 1460 S000ADF A3 1F IBT R3,#01FH ; colour and data 1461 S000AE1 2F 1D MOVE R13,R15 1462 COL000 1463 S000AE3 41 LDW (R1) ; colour read 1464 S000AE4 17 TO R7 1465 S000AE5 73 AND R3 ; r7 <- Red 1466 S000AE6 03 LSR 1467 S000AE7 03 LSR 1468 S000AE8 03 LSR 1469 S000AE9 03 LSR 1470 S000AEA 03 LSR 1471 S000AEB 18 TO R8 1472 S000AEC 73 AND R3 ; r8 <- Green 1473 S000AED 03 LSR 1474 S000AEE 03 LSR 1475 S000AEF 03 LSR 1476 S000AF0 03 LSR 1477 S000AF1 03 LSR 1478 S000AF2 73 AND R3 ; r0 <- Blue 1479 S000AF3 57 ADD R7 1480 S000AF4 58 ADD R8 ; R+G+B 1481 S000AF5 17 TO R7 1482 S000AF6 4D SWAP ; low <-> high 1483 ; 1484 S000AF7 3E AC 2C SMS R12,REG12 ; r12 push 1485 S000AFA 3E AD 2D SMS R13,REG13 ; r13 push 1486 ; 1487 S000AFD A8 03 IBT R8,#03 1488 S000AFF 94 LINK #4 1489 S000B00 FF 0AC4' IWT R15,#DIV16 ; warizan 1490 S000B03 01 NOP 1491 ; 1492 S000B04 3D AC 2C LMS R12,REG12 ; r12 pull 1493 S000B07 3D AD 2D LMS R13,REG13 ; r13 pull 1494 ; 1495 S000B0A F0 0080 IWT R0,#00080H 1496 S000B0D 59 ADD R9 1497 S000B0E C0 HIB 1498 S000B0F 16 TO R6 1499 S000B10 4D SWAP 1500 ; 1501 S000B11 B5 FROM R5 1502 S000B12 17 TO R7 1503 S000B13 9F FMULT ; r7 <- Red 1504 ; 1505 S000B14 BA FROM R10 1506 S000B15 18 TO R8 1507 S000B16 9F FMULT ; r8 <- Green 1508 1509 ; 1510 S000B17 BE FROM R14 1511 S000B18 9F FMULT ; r0 <- Blue 1512 ; 1513 S000B19 50 ADD R0 1514 S000B1A 50 ADD R0 1515 S000B1B 50 ADD R0 1516 S000B1C 50 ADD R0 1517 S000B1D 50 ADD R0 1518 S000B1E C8 OR R8 1519 S000B1F 50 ADD R0 1520 S000B20 50 ADD R0 1521 S000B21 50 ADD R0 1522 S000B22 50 ADD R0 1523 S000B23 50 ADD R0 1524 S000B24 C7 OR R7 1525 ; 1526 S000B25 32 STW (R2) 1527 S000B26 D1 INC R1 1528 S000B27 D1 INC R1 1529 S000B28 D2 INC R2 1530 S000B29 D2 INC R2 1531 ; 1532 S000B2A 3C LOOP 1533 S000B2B 01 NOP 1534 ; 1535 S000B2C 00 STOP 1536 S000B2D 01 NOP 1537 ; 1538 ;************************************************************************ 1539 ;* * 1540 ;* * 1541 ;* COLOR FADE * 1542 ;* * 1543 ;* * 1544 ;************************************************************************ 1545 ; 1546 ; 1547 ; R1 R 1548 ; R2 G 1549 ; R3 B 1550 ; 1551 ; R4 R 1552 ; R5 G 1553 ; R6 B 1554 ; 1555 ; R7 R 1556 ; R8 G 1557 ; R9 B 1558 ; 1559 ; R10 00010H 1560 ; R11 COLOR FADE CNT 1561 ; 1562 ; R12 RAM POINTER 1563 ; R14 ROM POINTER 1564 ; 1565 ; 1566 000B2E COLFADE EQU $ 1567 S000B2E A0 00' IBT R0,#BANK COLDAT0 1568 S000B30 3F DF ROMB 1569 ; 1570 S000B32 A1 1F IBT R1,#01FH vvv******* warn :value out of range 1571 S000B34 3D F0 336C LM R0,CLFDCNT 1572 S000B38 20 1B MOVE R11,R0 ;CNT SET 1573 S000B3A D0 INC R0 1574 ;;;; AND R1 1575 S000B3B 01 NOP 1576 S000B3C 01 NOP 1577 S000B3D 90 SBK 1578 ; 1579 S000B3E AA 20 IBT R10,#020H ;MULT 1580 ; 1581 S000B40 FC 0200 IWT R12,#00200H 1582 S000B43 02 CACHE 1583 S000B44 2F 1D MOVE R13,R15 1584 ; vvv******* warn :value out of range 1585 S000B46 3D F0 336E LM R0,MOTOADR ;MOTO COLOR SET 1586 S000B4A 3E 62 SUB #002H 1587 ; IWT R0,#MOTOCOL-2 1588 S000B4C 5C ADD R12 1589 S000B4D 40 LDW (R0) 1590 S000B4E 20 12 MOVE R2,R0 1591 S000B50 20 11 MOVE R1,R0 1592 S000B52 03 LSR 1593 S000B53 03 LSR 1594 S000B54 13 TO R3 1595 S000B55 4D SWAP 1596 S000B56 B2 FROM R2 1597 S000B57 52 ADD R2 1598 S000B58 50 ADD R0 1599 S000B59 50 ADD R0 1600 S000B5A 12 TO R2 1601 S000B5B 4D SWAP 1602 S000B5C A0 1F IBT R0,#01FH 1603 S000B5E 11 TO R1 1604 S000B5F 71 AND R1 1605 S000B60 12 TO R2 1606 S000B61 72 AND R2 1607 S000B62 13 TO R3 1608 S000B63 73 AND R3 1609 ; vvv******* warn :value out of range 1610 S000B64 3D F0 3370 LM R0,CHNGADR ;CHANGE COLOR SET 1611 S000B68 3E 62 SUB #002H 1612 ; IWT R0,#CHNGCOL-2 1613 S000B6A 5C ADD R12 1614 S000B6B 40 LDW (R0) 1615 S000B6C 20 15 MOVE R5,R0 1616 S000B6E 20 14 MOVE R4,R0 1617 S000B70 03 LSR 1618 S000B71 03 LSR 1619 S000B72 16 TO R6 1620 S000B73 4D SWAP 1621 S000B74 B5 FROM R5 1622 S000B75 55 ADD R5 1623 S000B76 50 ADD R0 1624 S000B77 50 ADD R0 1625 S000B78 15 TO R5 1626 S000B79 4D SWAP 1627 S000B7A A0 1F IBT R0,#01FH 1628 S000B7C 14 TO R4 1629 S000B7D 74 AND R4 1630 S000B7E 15 TO R5 1631 S000B7F 75 AND R5 1632 S000B80 16 TO R6 1633 S000B81 76 AND R6 1634 ; vvv******* warn :value out of range 1635 S000B82 F0 1FFE IWT R0,#DATACOL-2 ;DATA COLOR SET 1636 S000B85 5C ADD R12 1637 S000B86 40 LDW (R0) 1638 S000B87 20 18 MOVE R8,R0 1639 S000B89 20 17 MOVE R7,R0 1640 S000B8B 03 LSR 1641 S000B8C 03 LSR 1642 S000B8D 19 TO R9 1643 S000B8E 4D SWAP 1644 S000B8F B8 FROM R8 1645 S000B90 58 ADD R8 1646 S000B91 50 ADD R0 1647 S000B92 50 ADD R0 1648 S000B93 18 TO R8 1649 S000B94 4D SWAP 1650 S000B95 A0 1F IBT R0,#01FH 1651 S000B97 17 TO R7 1652 S000B98 77 AND R7 1653 S000B99 18 TO R8 1654 S000B9A 78 AND R8 1655 S000B9B 19 TO R9 1656 S000B9C 79 AND R9 1657 ; 1658 S000B9D B3 FROM R3 1659 S000B9E 66 SUB R6 1660 S000B9F 09 1D' BEQ CLADE10 1661 S000BA1 01 NOP 1662 S000BA2 0A 03' BPL CLADE20 1663 S000BA4 01 NOP 1664 S000BA5 4F NOT 1665 S000BA6 D0 INC R0 1666 CLADE20 1667 S000BA7 8A MULT R10 1668 S000BA8 5B ADD R11 1669 S000BA9 FE 0C17' IWT R14,#COLDAT0 1670 S000BAC 2E WITH R14 1671 S000BAD 50 ADD R0 1672 S000BAE B9 FROM R9 1673 S000BAF 66 SUB R6 1674 S000BB0 09 0C' BEQ CLADE10 1675 S000BB2 01 NOP 1676 S000BB3 0A 06' BPL CLADE30 1677 S000BB5 01 NOP 1678 S000BB6 EF GETB 1679 S000BB7 29 WITH R9 1680 S000BB8 05 04' BRA CLADE10 1681 S000BBA 50 ADD R0 1682 CLADE30 1683 S000BBB EF GETB 1684 S000BBC 29 WITH R9 1685 S000BBD 60 SUB R0 1686 CLADE10 1687 ; 1688 S000BBE B2 FROM R2 1689 S000BBF 65 SUB R5 1690 S000BC0 09 1D' BEQ CLADE40 1691 S000BC2 01 NOP 1692 S000BC3 0A 03' BPL CLADE50 1693 S000BC5 01 NOP 1694 S000BC6 4F NOT 1695 S000BC7 D0 INC R0 1696 CLADE50 1697 S000BC8 8A MULT R10 1698 S000BC9 5B ADD R11 1699 S000BCA FE 0C17' IWT R14,#COLDAT0 1700 S000BCD 2E WITH R14 1701 S000BCE 50 ADD R0 1702 S000BCF B8 FROM R8 1703 S000BD0 65 SUB R5 1704 S000BD1 09 0C' BEQ CLADE40 1705 S000BD3 01 NOP 1706 S000BD4 0A 06' BPL CLADE60 1707 S000BD6 01 NOP 1708 S000BD7 EF GETB 1709 S000BD8 28 WITH R8 1710 S000BD9 05 04' BRA CLADE40 1711 S000BDB 50 ADD R0 1712 CLADE60 1713 S000BDC EF GETB 1714 S000BDD 28 WITH R8 1715 S000BDE 60 SUB R0 1716 CLADE40 1717 ; 1718 S000BDF B1 FROM R1 1719 S000BE0 64 SUB R4 1720 S000BE1 09 1D' BEQ CLADE70 1721 S000BE3 01 NOP 1722 S000BE4 0A 03' BPL CLADE80 1723 S000BE6 01 NOP 1724 S000BE7 4F NOT 1725 S000BE8 D0 INC R0 1726 CLADE80 1727 S000BE9 8A MULT R10 1728 S000BEA 5B ADD R11 1729 S000BEB FE 0C17' IWT R14,#COLDAT0 1730 S000BEE 2E WITH R14 1731 S000BEF 50 ADD R0 1732 S000BF0 B7 FROM R7 1733 S000BF1 64 SUB R4 1734 S000BF2 09 0C' BEQ CLADE70 1735 S000BF4 01 NOP 1736 S000BF5 0A 06' BPL CLADE90 1737 S000BF7 01 NOP 1738 S000BF8 EF GETB 1739 S000BF9 27 WITH R7 1740 S000BFA 05 04' BRA CLADE70 1741 S000BFC 50 ADD R0 1742 CLADE90 1743 S000BFD EF GETB 1744 S000BFE 27 WITH R7 1745 S000BFF 60 SUB R0 1746 CLADE70 1747 ; 1748 S000C00 B8 FROM R8 1749 S000C01 4D SWAP 1750 S000C02 03 LSR 1751 S000C03 03 LSR 1752 S000C04 18 TO R8 1753 S000C05 03 LSR 1754 S000C06 B9 FROM R9 1755 S000C07 4D SWAP 1756 S000C08 50 ADD R0 1757 S000C09 50 ADD R0 1758 S000C0A C8 OR R8 1759 S000C0B C7 OR R7 vvv******* warn :value out of range 1760 S000C0C F1 1FFE IWT R1,#DATACOL-2 1761 S000C0F 21 WITH R1 1762 S000C10 5C ADD R12 1763 S000C11 31 STW (R1) 1764 ; 1765 S000C12 EC DEC R12 1766 S000C13 3C LOOP 1767 S000C14 01 NOP 1768 S000C15 00 STOP 1769 S000C16 01 NOP 1770 ; 1771 COLDAT0 1772 S000C17 00 00 00 00 00 BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 S000C1C 00 00 00 00 00 S000C21 00 00 00 00 00 S000C26 00 1773 S000C27 00 00 00 00 00 BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 S000C2C 00 00 00 00 00 S000C31 00 00 00 00 00 S000C36 00 1774 ; 1775 COLDAT1 1776 S000C37 00 00 00 00 00 BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 S000C3C 00 00 00 00 00 S000C41 00 00 00 00 00 S000C46 01 1777 S000C47 00 00 00 00 00 BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 S000C4C 00 00 00 00 00 S000C51 00 00 00 00 00 S000C56 00 1778 ; 1779 COLDAT2 1780 S000C57 01 00 00 00 00 BYTE 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 S000C5C 00 00 00 00 00 S000C61 00 00 00 00 00 S000C66 00 1781 S000C67 01 00 00 00 00 BYTE 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 S000C6C 00 00 00 00 00 S000C71 00 00 00 00 00 S000C76 00 1782 ; 1783 COLDAT3 1784 S000C77 01 00 00 00 00 BYTE 1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0 S000C7C 00 00 00 00 00 S000C81 01 00 00 00 00 S000C86 00 1785 S000C87 00 00 00 00 00 BYTE 0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0 S000C8C 01 00 00 00 00 S000C91 00 00 00 00 00 S000C96 00 1786 ; 1787 COLDAT4 1788 S000C97 01 00 00 00 00 BYTE 1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0 S000C9C 00 00 00 01 00 S000CA1 00 00 00 00 00 S000CA6 00 1789 S000CA7 01 00 00 00 00 BYTE 1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0 S000CAC 00 00 00 01 00 S000CB1 00 00 00 00 00 S000CB6 00 1790 ; 1791 COLDAT5 1792 S000CB7 01 00 00 00 00 BYTE 1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0 S000CBC 00 01 00 00 00 S000CC1 00 00 01 00 00 S000CC6 00 1793 S000CC7 00 00 00 01 00 BYTE 0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0 S000CCC 00 00 00 00 01 S000CD1 00 00 00 00 00 S000CD6 00 1794 ; 1795 COLDAT6 1796 S000CD7 01 00 00 00 00 BYTE 1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0 S000CDC 01 00 00 00 00 S000CE1 01 00 00 00 00 S000CE6 00 1797 S000CE7 01 00 00 00 00 BYTE 1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0 S000CEC 01 00 00 00 00 S000CF1 01 00 00 00 00 S000CF6 00 1798 ; 1799 COLDAT7 1800 S000CF7 01 00 00 00 01 BYTE 1,0,0,0,1,0,0,0,0,1,0,0,0,1,0,0 S000CFC 00 00 00 00 01 S000D01 00 00 00 01 00 S000D06 00 1801 S000D07 00 00 01 00 00 BYTE 0,0,1,0,0,0,1,0,0,0,0,1,0,0,0,0 S000D0C 00 01 00 00 00 S000D11 00 01 00 00 00 S000D16 00 1802 ; 1803 COLDAT8 1804 S000D17 01 00 00 00 01 BYTE 1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0 S000D1C 00 00 00 01 00 S000D21 00 00 01 00 00 S000D26 00 1805 S000D27 01 00 00 00 01 BYTE 1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0 S000D2C 00 00 00 01 00 S000D31 00 00 01 00 00 S000D36 00 1806 ; 1807 COLDAT9 1808 S000D37 01 00 00 01 00 BYTE 1,0,0,1,0,0,0,1,0,0,1,0,0,0,1,0 S000D3C 00 00 01 00 00 S000D41 01 00 00 00 01 S000D46 00 1809 S000D47 00 01 00 00 00 BYTE 0,1,0,0,0,1,0,0,1,0,0,0,1,0,0,0 S000D4C 01 00 00 01 00 S000D51 00 00 01 00 00 S000D56 00 1810 ; 1811 COLDATA 1812 S000D57 01 00 00 01 00 BYTE 1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,0 S000D5C 00 01 00 00 01 S000D61 00 00 01 00 00 S000D66 00 1813 S000D67 01 00 00 01 00 BYTE 1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,0 S000D6C 00 01 00 00 01 S000D71 00 00 01 00 00 S000D76 00 1814 ; 1815 COLDATB 1816 S000D77 01 00 01 00 00 BYTE 1,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0 S000D7C 01 00 00 01 00 S000D81 00 01 00 00 01 S000D86 00 1817 S000D87 00 01 00 00 01 BYTE 0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0 S000D8C 00 00 01 00 00 S000D91 01 00 00 01 00 S000D96 00 1818 ; 1819 COLDATC 1820 S000D97 01 00 01 00 00 BYTE 1,0,1,0,0,1,0,0,1,0,1,0,0,1,0,0 S000D9C 01 00 00 01 00 S000DA1 01 00 00 01 00 S000DA6 00 1821 S000DA7 01 00 01 00 00 BYTE 1,0,1,0,0,1,0,0,1,0,1,0,0,1,0,0 S000DAC 01 00 00 01 00 S000DB1 01 00 00 01 00 S000DB6 00 1822 ; 1823 COLDATD 1824 S000DB7 01 00 01 00 01 BYTE 1,0,1,0,1,0,0,1,0,1,0,0,1,0,0,1 S000DBC 00 00 01 00 01 S000DC1 00 00 01 00 00 S000DC6 01 1825 S000DC7 00 01 00 01 00 BYTE 0,1,0,1,0,0,1,0,1,0,0,1,0,1,0,0 S000DCC 00 01 00 01 00 S000DD1 00 01 00 01 00 S000DD6 00 1826 ; 1827 COLDATE 1828 S000DD7 01 00 01 00 01 BYTE 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0 S000DDC 00 01 00 01 00 S000DE1 01 00 01 00 01 S000DE6 00 1829 S000DE7 00 01 00 01 00 BYTE 0,1,0,1,0,0,1,0,1,0,0,1,0,1,0,0 S000DEC 00 01 00 01 00 S000DF1 00 01 00 01 00 S000DF6 00 1830 ; 1831 COLDATF 1832 S000DF7 01 00 01 00 01 BYTE 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0 S000DFC 00 01 00 01 00 S000E01 01 00 01 00 01 S000E06 00 1833 S000E07 00 01 00 01 00 BYTE 0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,0 S000E0C 01 00 01 00 01 S000E11 00 01 00 01 00 S000E16 00 1834 ; 1835 COLDAT10 1836 S000E17 01 00 01 00 01 BYTE 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0 S000E1C 00 01 00 01 00 S000E21 01 00 01 00 01 S000E26 00 1837 S000E27 01 00 01 00 01 BYTE 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0 S000E2C 00 01 00 01 00 S000E31 01 00 01 00 01 S000E36 00 1838 ; 1839 COLDAT11 1840 S000E37 01 01 00 01 00 BYTE 1,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0 S000E3C 01 00 01 01 00 S000E41 01 00 01 00 01 S000E46 00 1841 S000E47 01 00 01 00 01 BYTE 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0 S000E4C 00 01 00 01 00 S000E51 01 00 01 00 01 S000E56 00 1842 ; 1843 COLDAT12 1844 S000E57 01 01 00 01 00 BYTE 1,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0 S000E5C 01 00 01 01 00 S000E61 01 00 01 00 01 S000E66 00 1845 S000E67 01 01 00 01 00 BYTE 1,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0 S000E6C 01 00 01 01 00 S000E71 01 00 01 00 01 S000E76 00 1846 ; 1847 COLDAT13 1848 S000E77 01 01 00 01 00 BYTE 1,1,0,1,0,1,1,0,1,0,1,1,0,1,0,1 S000E7C 01 01 00 01 00 S000E81 01 01 00 01 00 S000E86 01 1849 S000E87 01 00 01 00 01 BYTE 1,0,1,0,1,1,0,1,0,1,1,0,1,0,1,0 S000E8C 01 00 01 00 01 S000E91 01 00 01 00 01 S000E96 00 1850 ; 1851 COLDAT14 1852 S000E97 01 01 00 01 01 BYTE 1,1,0,1,1,0,1,0,1,1,0,1,1,0,1,0 S000E9C 00 01 00 01 01 S000EA1 00 01 01 00 01 S000EA6 00 1853 S000EA7 01 01 00 01 01 BYTE 1,1,0,1,1,0,1,0,1,1,0,1,1,0,1,0 S000EAC 00 01 00 01 01 S000EB1 00 01 01 00 01 S000EB6 00 1854 ; 1855 COLDAT15 1856 S000EB7 01 01 00 01 01 BYTE 1,1,0,1,1,0,1,1,0,1,1,0,1,1,0,1 S000EBC 00 01 01 00 01 S000EC1 01 00 01 01 00 S000EC6 01 1857 S000EC7 01 00 01 01 00 BYTE 1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,0 S000ECC 01 01 00 01 01 S000ED1 00 01 01 00 01 S000ED6 00 1858 ; 1859 COLDAT16 1860 S000ED7 01 01 01 00 01 BYTE 1,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0 S000EDC 01 00 01 01 00 S000EE1 01 01 00 01 01 S000EE6 00 1861 S000EE7 01 01 01 00 01 BYTE 1,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0 S000EEC 01 00 01 01 00 S000EF1 01 01 00 01 01 S000EF6 00 1862 ; 1863 COLDAT17 1864 S000EF7 01 01 01 00 01 BYTE 1,1,1,0,1,1,1,0,1,1,0,1,1,1,0,1 S000EFC 01 01 00 01 01 S000F01 00 01 01 01 00 S000F06 01 1865 S000F07 01 00 01 01 01 BYTE 1,0,1,1,1,0,1,1,0,1,1,1,0,1,1,0 S000F0C 00 01 01 00 01 S000F11 01 01 00 01 01 S000F16 00 1866 ; 1867 COLDAT18 1868 S000F17 01 01 01 00 01 BYTE 1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0 S000F1C 01 01 00 01 01 S000F21 01 00 01 01 01 S000F26 00 1869 S000F27 01 01 01 00 01 BYTE 1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0 S000F2C 01 01 00 01 01 S000F31 01 00 01 01 01 S000F36 00 1870 ; 1871 COLDAT19 1872 S000F37 01 01 01 01 00 BYTE 1,1,1,1,0,1,1,1,1,0,1,1,1,0,1,1 S000F3C 01 01 01 01 00 S000F41 01 01 01 00 01 S000F46 01 1873 S000F47 01 01 00 01 01 BYTE 1,1,0,1,1,1,0,1,1,1,1,0,1,1,1,0 S000F4C 01 00 01 01 01 S000F51 01 00 01 01 01 S000F56 00 1874 ; 1875 COLDAT1A 1876 S000F57 01 01 01 01 01 BYTE 1,1,1,1,1,0,1,1,1,1,0,1,1,1,1,0 S000F5C 00 01 01 01 01 S000F61 00 01 01 01 01 S000F66 00 1877 S000F67 01 01 01 01 01 BYTE 1,1,1,1,1,0,1,1,1,1,0,1,1,1,1,0 S000F6C 00 01 01 01 01 S000F71 00 01 01 01 01 S000F76 00 1878 ; 1879 COLDAT1B 1880 S000F77 01 01 01 01 01 BYTE 1,1,1,1,1,1,0,1,1,1,1,1,0,1,1,1 S000F7C 01 00 01 01 01 S000F81 01 01 00 01 01 S000F86 01 1881 S000F87 01 01 01 00 01 BYTE 1,1,1,0,1,1,1,1,1,0,1,1,1,1,1,0 S000F8C 01 01 01 01 00 S000F91 01 01 01 01 01 S000F96 00 1882 ; 1883 COLDAT1C 1884 S000F97 01 01 01 01 01 BYTE 1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,0 S000F9C 01 01 00 01 01 S000FA1 01 01 01 01 01 S000FA6 00 1885 S000FA7 01 01 01 01 01 BYTE 1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,0 S000FAC 01 01 00 01 01 S000FB1 01 01 01 01 01 S000FB6 00 1886 ; 1887 COLDAT1D 1888 S000FB7 01 01 01 01 01 BYTE 1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1 S000FBC 01 01 01 01 01 S000FC1 00 01 01 01 01 S000FC6 01 1889 S000FC7 01 01 01 01 01 BYTE 1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,0 S000FCC 00 01 01 01 01 S000FD1 01 01 01 01 01 S000FD6 00 1890 ; 1891 COLDAT1E 1892 S000FD7 01 01 01 01 01 BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0 S000FDC 01 01 01 01 01 S000FE1 01 01 01 01 01 S000FE6 00 1893 S000FE7 01 01 01 01 01 BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0 S000FEC 01 01 01 01 01 S000FF1 01 01 01 01 01 S000FF6 00 1894 ; 1895 COLDAT1F 1896 S000FF7 01 01 01 01 01 BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 S000FFC 01 01 01 01 01 S001001 01 01 01 01 01 S001006 01 1897 S001007 01 01 01 01 01 BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0 S00100C 01 01 01 01 01 S001011 01 01 01 01 01 S001016 00 1898 ; 1899 ;************************************************************************ 1900 ;* window change * 1901 ;* in : * 1902 ;* (R0) <-- data bank * 1903 ;* (R1) <-- from data address * 1904 ;* (R2) <-- to data address * 1905 ;* (R3) <-- counter * 1906 ;* (R8) <-- center X pos * 1907 ;* (R9) <-- " Y " * 1908 ;************************************************************************ 1909 ; 1910 001017 CHANGE EQU $ 1911 S001017 3F DF ROMB 1912 ; 1913 ;-------------- low clear area set ------------------------------ vvv******* warn :value out of range 1914 S001019 F4 3D46 IWT R4,#WINDBF+((0D2H-1)*4) 1915 S00101C F0 00D2 IWT R0,#0D2H 1916 S00101F 69 SUB R9 1917 S001020 1C TO R12 1918 S001021 50 ADD R0 1919 S001022 F0 00FF IWT R0,#00FFH ;(R0) <-- clear data 1920 ; 1921 S001025 02 CACHE 1922 ; 1923 S001026 2F 1D MOVE R13,R15 1924 CHG030 1925 S001028 34 STW (R4) 1926 S001029 E4 DEC R4 1927 S00102A 3C LOOP 1928 S00102B E4 DEC R4 1929 ; 1930 ;-------------- change area set --------------------------------- 1931 S00102C 21 1E MOVE R14,R1 1932 S00102E D1 INC R1 vvv******* warn :value out of range 1933 S00102F F4 2200 IWT R4,#DIVBUF ;(R4) <-- div data pointer 1934 S001032 23 16 MOVE R6,R3 ;(R6) <-- bairitsu 1935 S001034 15 TO R5 ;(R5) <-- data.1 high 1936 S001035 EF GETB 1937 S001036 22 1E MOVE R14,R2 1938 S001038 D2 INC R2 1939 S001039 17 TO R7 ;(R7) <-- data.2 high 1940 S00103A EF GETB 1941 S00103B B7 FROM R7 1942 S00103C 65 SUB R5 1943 S00103D 4D SWAP 1944 S00103E 9F FMULT 1945 S00103F 55 ADD R5 1946 S001040 20 1C MOVE R12,R0 ;(R12) <-- loop no. ( data high ) 1947 S001042 50 ADD R0 ;[ ASL ] 1948 S001043 54 ADD R4 1949 S001044 40 LDW (R0) 1950 S001045 16 TO R6 1951 S001046 03 LSR 1952 S001047 B5 FROM R5 1953 S001048 4D SWAP 1954 S001049 9F FMULT 1955 S00104A 15 TO R5 ;(R5) <-- data.1 step 1956 S00104B 50 ADD R0 1957 S00104C B7 FROM R7 1958 S00104D 4D SWAP 1959 S00104E 9F FMULT 1960 S00104F 17 TO R7 ;(R7) <-- data.2 step 1961 S001050 50 ADD R0 1962 ; 1963 S001051 23 16 MOVE R6,R3 ;(R6) <-- bairitsu vvv******* warn :value out of range 1964 S001053 F0 3A02 IWT R0,#WINDBF 1965 S001056 59 ADD R9 1966 S001057 59 ADD R9 1967 S001058 59 ADD R9 1968 S001059 19 TO R9 ;(R9) <-- window data pointer 1969 S00105A 59 ADD R9 1970 S00105B E9 DEC R9 ;[-1] 1971 S00105C AA 00 IBT R10,#00 ;(R10) <-- data.1 add pointer 1972 S00105E 2A 1B MOVE R11,R10 ;(R11) <-- data.2 " 1973 ; 1974 S001060 2F 1D MOVE R13,R15 1975 CHG010 1976 S001062 BA FROM R10 1977 S001063 C0 HIB 1978 S001064 50 ADD R0 ;[ ASL ] 1979 S001065 50 ADD R0 ;[ ASL ] 1980 S001066 1E TO R14 1981 S001067 51 ADD R1 1982 S001068 14 TO R4 ;(R4) <-- dada.1 right data 1983 S001069 3F EF GETBS 1984 S00106B DE INC R14 1985 S00106C 13 TO R3 ;(R3) <-- data.1 left data 1986 S00106D 3F EF GETBS 1987 S00106F DE INC R14 1988 S001070 3F EF GETBS 1989 S001072 DE INC R14 1990 S001073 3E A0 01 SMS R0,CWORK1 ;(WK1) <-- no.2 data 1991 S001076 3F EF GETBS 1992 S001078 3E A0 00 SMS R0,CWORK0 ;(WK0) <-- no.2 data 1993 ; 1994 S00107B BB FROM R11 1995 S00107C C0 HIB 1996 S00107D 50 ADD R0 ;[ ASL ] 1997 S00107E 50 ADD R0 ;[ ASL ] 1998 S00107F 1E TO R14 1999 S001080 52 ADD R2 2000 S001081 3F EF GETBS 2001 S001083 DE INC R14 2002 S001084 64 SUB R4 2003 S001085 4D SWAP 2004 S001086 9F FMULT 2005 S001087 54 ADD R4 2006 S001088 58 ADD R8 2007 S001089 3D 39 STB (R9) ;left data set 2008 S00108B E9 DEC R9 2009 ; 2010 S00108C 3F EF GETBS 2011 S00108E DE INC R14 2012 S00108F 63 SUB R3 2013 S001090 4D SWAP 2014 S001091 9F FMULT 2015 S001092 53 ADD R3 2016 S001093 58 ADD R8 2017 S001094 3D 39 STB (R9) ;right data set 2018 S001096 E9 DEC R9 2019 ; 2020 S001097 3F EF GETBS 2021 S001099 DE INC R14 2022 S00109A 3D A4 01 LMS R4,CWORK1 2023 S00109D 64 SUB R4 2024 S00109E 4D SWAP 2025 S00109F 9F FMULT 2026 S0010A0 54 ADD R4 2027 S0010A1 58 ADD R8 2028 S0010A2 3D 39 STB (R9) ;left data set 2029 S0010A4 E9 DEC R9 2030 ; 2031 S0010A5 3F EF GETBS 2032 S0010A7 3D A3 00 LMS R3,CWORK0 2033 S0010AA 63 SUB R3 2034 S0010AB 4D SWAP 2035 S0010AC 9F FMULT 2036 S0010AD 53 ADD R3 2037 S0010AE 58 ADD R8 2038 S0010AF 3D 39 STB (R9) ;right data set 2039 ; 2040 S0010B1 2A WITH R10 2041 S0010B2 55 ADD R5 2042 S0010B3 2B WITH R11 2043 S0010B4 57 ADD R7 2044 S0010B5 3C LOOP 2045 S0010B6 E9 DEC R9 2046 ; 2047 ;-------------- up clear area set ------------------------------- vvv******* warn :value out of range 2048 S0010B7 F0 39FE IWT R0,#WINDBF-4 2049 S0010BA B9 FROM R9 2050 S0010BB 60 SUB R0 2051 S0010BC 1C TO R12 2052 S0010BD 03 LSR 2053 S0010BE F0 00FF IWT R0,#00FFH ;(R0) <-- clear data 2054 S0010C1 2F 1D MOVE R13,R15 2055 CHG020 2056 S0010C3 E9 DEC R9 2057 S0010C4 39 STW (R9) 2058 S0010C5 3C LOOP 2059 S0010C6 E9 DEC R9 2060 ; 2061 S0010C7 00 STOP 2062 S0010C8 01 NOP 2063 ; 2064 ;************************************************************************ 2065 ;* chara change * 2066 ;* in : (R0) <-- data bank * 2067 ;* (R1) <-- from data address * 2068 ;* (R2) <-- to data address * 2069 ;* (R3) <-- counter * 2070 ;* (R4) <-- ƒvƒƒbƒgŠî€‚wÀ•W * 2071 ;* (R5) <-- h ‚x h * 2072 ;************************************************************************ 2073 ; 2074 0010C9 CCHANGE EQU $ 2075 S0010C9 3E A0 20 SMS R0,REG0 ;data bank save 2076 S0010CC 3F DF ROMB 2077 S0010CE 3E A3 23 SMS R3,REG3 ;bairitsu save 2078 S0010D1 3E A4 10 SMS R4,CWORK10 ;(CWK10) <-- ƒvƒƒbƒgŠî€‚wÀ•W 2079 S0010D4 3E A5 11 SMS R5,CWORK11 ;(CWK11) <-- h ‚x h 2080 ; 2081 S0010D7 60 SUB R0 ;color mode set 2082 S0010D8 3D 4E CMODE 2083 ; 2084 ;-------------- ram clear --------------------------------------- 2085 S0010DA A0 40 IBT R0,#040H 2086 S0010DC 3D 85 UMULT R5 2087 S0010DE 24 WITH R4 2088 S0010DF 3F 84 UMULT #4 2089 S0010E1 54 ADD R4 vvv******* warn :value out of range 2090 S0010E2 F4 5800 IWT R4,#WOB7CHR 2091 S0010E5 14 TO R4 2092 S0010E6 54 ADD R4 2093 ; 2094 ;;;; IWT R4,#WOB7CHR+(40H*20H) 2095 S0010E7 A5 40 IBT R5,#(20H*4)/2 2096 S0010E9 F6 0180 IWT R6,#200H-20H*4 2097 S0010EC FD 10F5' IWT R13,#CCHG02 2098 S0010EF A7 04 IBT R7,#4 2099 S0010F1 60 SUB R0 ;[ IBT R0,#0 ] 2100 ; 2101 S0010F2 02 CACHE 2102 ; 2103 CCHG00 2104 S0010F3 25 1C MOVE R12,R5 2105 CCHG02 2106 S0010F5 34 STW (R4) 2107 S0010F6 D4 INC R4 2108 S0010F7 3C LOOP 2109 S0010F8 D4 INC R4 2110 ; 2111 S0010F9 24 WITH R4 2112 S0010FA 56 ADD R6 2113 S0010FB E7 DEC R7 2114 S0010FC 08 F6' BNE CCHG00+1 2115 S0010FE 25 WITH R5 2116 ; 2117 ;-------------- change area set --------------------------------- 2118 S0010FF 21 1E MOVE R14,R1 2119 S001101 EF GETB 2120 S001102 DE INC R14 2121 S001103 3D EF GETBH 2122 S001105 DE INC R14 2123 S001106 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- from data chara address 2124 S001109 17 TO R7 ;(R7) <-- data.1 high 2125 S00110A EF GETB 2126 S00110B DE INC R14 2127 S00110C 3E AE 0C SMS R14,CWORKC ;(CWKC) <-- from data next address 2128 ; 2129 S00110F 22 1E MOVE R14,R2 2130 S001111 EF GETB 2131 S001112 DE INC R14 2132 S001113 3D EF GETBH 2133 S001115 DE INC R14 2134 S001116 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- to data chara address 2135 S001119 18 TO R8 ;(R8) <-- data.2 high 2136 S00111A EF GETB 2137 S00111B DE INC R14 2138 S00111C 3E AE 0D SMS R14,CWORKD ;(CWKD) <-- from data next address 2139 ; 2140 S00111F 23 16 MOVE R6,R3 ;(R6) <-- bairitsu 2141 S001121 B8 FROM R8 2142 S001122 67 SUB R7 2143 S001123 9E LOB 2144 S001124 4D SWAP 2145 S001125 9F FMULT 2146 S001126 3D 57 ADC R7 2147 S001128 3E A0 2C SMS R0,REG12 ;loop no. ( data high ) 2148 S00112B 50 ADD R0 ;[ ASL ] vvv******* warn :value out of range 2149 S00112C F1 2200 IWT R1,#DIVBUF ;(R4) <-- div data pointer 2150 S00112F 51 ADD R1 2151 S001130 16 TO R6 2152 S001131 40 LDW (R0) 2153 S001132 B7 FROM R7 2154 S001133 9E LOB 2155 S001134 4D SWAP 2156 S001135 9F FMULT 2157 S001136 3F 50 ADC #0 2158 S001138 3E A0 0A SMS R0,CWORKA ;(CWKA) <-- data.1 step 2159 S00113B 17 TO R7 2160 S00113C 03 LSR 2161 S00113D B8 FROM R8 2162 S00113E 9E LOB 2163 S00113F 4D SWAP 2164 S001140 9F FMULT 2165 S001141 3F 50 ADC #0 2166 S001143 3E A0 0B SMS R0,CWORKB ;(CWKB) <-- data.2 step 2167 S001146 1B TO R11 2168 S001147 03 LSR 2169 ; 2170 S001148 3D A0 11 LMS R0,CWORK11 2171 S00114B A2 1F IBT R2,#020H-1 2172 S00114D 12 TO R2 ;(R2) <-- plot Y pos 2173 S00114E 52 ADD R2 2174 ;;;; IBT R2,#40H-1 ;(R2) <-- plot Y pos 2175 CCHG10 2176 S00114F 3D A0 20 LMS R0,REG0 ;data bank set 2177 S001152 3F DF ROMB 2178 ; 2179 S001154 B7 FROM R7 2180 S001155 C0 HIB 2181 S001156 50 ADD R0 ;[ ASL ] 2182 S001157 50 ADD R0 ;[ ASL ] 2183 S001158 3D A4 0C LMS R4,CWORKC 2184 S00115B 1E TO R14 2185 S00115C 54 ADD R4 2186 S00115D 1D TO R13 2187 S00115E EF GETB 2188 S00115F DE INC R14 2189 S001160 3E AD 02 SMS R13,CWORK2 ;(CWK2) <-- no.2 data 2190 S001163 EF GETB 2191 S001164 DE INC R14 2192 S001165 3E A0 03 SMS R0,CWORK3 ;(CWK3) <-- no.2 data 2193 S001168 6D SUB R13 2194 S001169 3E A0 04 SMS R0,CWORK4 ;(CWK4) <-- no.2 wide 2195 S00116C EF GETB 2196 S00116D 20 11 MOVE R1,R0 ;(R1) <-- data.1 left data 2197 S00116F 9E LOB 2198 S001170 18 TO R8 ;(R8) <-- X pointer 2199 S001171 4D SWAP 2200 S001172 DE INC R14 2201 S001173 1C TO R12 ;(R12) <-- " right data 2202 S001174 EF GETB 2203 S001175 BC FROM R12 2204 S001176 61 SUB R1 2205 S001177 3E A0 05 SMS R0,CWORK5 ;(CWK5) <-- data.1 wide 2206 ; 2207 ;-------------- no.1 data step calculate ------------------------ 2208 S00117A BB FROM R11 2209 S00117B C0 HIB 2210 S00117C 50 ADD R0 ;[ ASL ] 2211 S00117D 50 ADD R0 ;[ ASL ] 2212 S00117E 3D A5 0D LMS R5,CWORKD 2213 S001181 1E TO R14 2214 S001182 55 ADD R5 2215 S001183 1D TO R13 2216 S001184 EF GETB 2217 S001185 DE INC R14 2218 S001186 3E AD 06 SMS R13,CWORK6 ;(WK6) <-- no.2 data 2219 S001189 EF GETB 2220 S00118A DE INC R14 2221 S00118B 3E A0 07 SMS R0,CWORK7 ;(WK7) <-- no.2 data 2222 S00118E 6D SUB R13 2223 S00118F 3E A0 08 SMS R0,CWORK8 ;(CWK8) <-- no.2 wide 2224 S001192 EF GETB ;(R0) <-- " right data 2225 S001193 20 1D MOVE R13,R0 2226 S001195 9E LOB 2227 S001196 19 TO R9 ;(R9) <-- X pointer 2228 S001197 4D SWAP 2229 S001198 DE INC R14 2230 S001199 EF GETB 2231 ; 2232 S00119A 16 TO R6 2233 S00119B 6D SUB R13 2234 S00119C 3E A6 09 SMS R6,CWORK9 ;(CWK9) <-- data.2 wide 2235 ; 2236 S00119F 6C SUB R12 2237 S0011A0 9E LOB 2238 S0011A1 4D SWAP 2239 S0011A2 3D A6 23 LMS R6,REG3 ;(R6) <-- bairitsu 2240 S0011A5 9F FMULT 2241 S0011A6 1C TO R12 ;(R12) <-- new right X pos 2242 S0011A7 3D 5C ADC R12 2243 S0011A9 BD FROM R13 2244 S0011AA 61 SUB R1 2245 S0011AB 9E LOB 2246 S0011AC 4D SWAP 2247 S0011AD 9F FMULT 2248 S0011AE 3D 51 ADC R1 2249 S0011B0 2C WITH R12 ;(R12) <-- new wide 2250 S0011B1 60 SUB R0 2251 S0011B2 3D A1 10 LMS R1,CWORK10 2252 S0011B5 11 TO R1 2253 S0011B6 51 ADD R1 2254 ; 2255 ;-------------- no.1 data plot ---------------------------------- 2256 S0011B7 A0 54 IBT R0,#BANK CIPCHD ;chara data bank set 2257 S0011B9 3F DF ROMB 2258 ; vvv******* warn :value out of range 2259 S0011BB F0 2200 IWT R0,#DIVBUF ;(R0) <-- div data pointer 2260 S0011BE 5C ADD R12 2261 S0011BF 5C ADD R12 2262 S0011C0 40 LDW (R0) 2263 S0011C1 26 B0 MOVES R6,R0 2264 S0011C3 3D A0 05 LMS R0,CWORK5 2265 S0011C6 0A 05' BPL CCHG12 2266 S0011C8 01 NOP 2267 S0011C9 E6 DEC R6 2268 S0011CA 0B 03' BMI CCHG14 2269 S0011CC 01 NOP 2270 ; 2271 CCHG12 2272 S0011CD 4D SWAP 2273 S0011CE 9F FMULT 2274 CCHG14 2275 S0011CF 20 1A MOVE R10,R0 ;(R10) <-- chara data X step 2276 S0011D1 03 LSR 2277 S0011D2 18 TO R8 2278 S0011D3 58 ADD R8 2279 ; 2280 S0011D4 26 B6 MOVES R6,R6 2281 S0011D6 3D A0 09 LMS R0,CWORK9 2282 S0011D9 0A 05' BPL CCHG16 2283 S0011DB 01 NOP 2284 S0011DC E6 DEC R6 2285 S0011DD 0B 03' BMI CCHG18 2286 S0011DF 01 NOP 2287 ; 2288 CCHG16 2289 S0011E0 4D SWAP 2290 S0011E1 9F FMULT 2291 CCHG18 2292 S0011E2 20 15 MOVE R5,R0 ;(R5) <-- chara data X step 2293 S0011E4 03 LSR 2294 S0011E5 19 TO R9 2295 S0011E6 59 ADD R9 2296 ; 2297 S0011E7 3D A6 23 LMS R6,REG3 ;(R6) <-- bairitsu 2298 S0011EA DC INC R12 2299 S0011EB 2F 1D MOVE R13,R15 2300 CCHG20 2301 S0011ED B7 FROM R7 2302 S0011EE C0 HIB 2303 S0011EF 4D SWAP 2304 S0011F0 3D A3 00 LMS R3,CWORK0 ;(R3) <-- from data chara address 2305 S0011F3 23 WITH R3 2306 S0011F4 60 SUB R0 2307 S0011F5 B8 FROM R8 2308 S0011F6 C0 HIB 2309 S0011F7 1E TO R14 2310 S0011F8 53 ADD R3 2311 S0011F9 28 WITH R8 2312 S0011FA 5A ADD R10 2313 S0011FB EF GETB 2314 S0011FC 14 TO R4 ;(R4) <-- data.1 color 2315 S0011FD 3E 7F AND #0FH 2316 ; 2317 S0011FF BB FROM R11 2318 S001200 C0 HIB 2319 S001201 4D SWAP 2320 S001202 3D A3 01 LMS R3,CWORK1 ;(R3) <-- from data chara address 2321 S001205 23 WITH R3 2322 S001206 60 SUB R0 2323 S001207 B9 FROM R9 2324 S001208 C0 HIB 2325 S001209 1E TO R14 2326 S00120A 53 ADD R3 2327 S00120B 29 WITH R9 2328 S00120C 55 ADD R5 2329 S00120D EF GETB ;(R0) <-- data.2 color 2330 S00120E 3E 7F AND #0FH 2331 S001210 64 SUB R4 2332 S001211 4D SWAP 2333 S001212 9F FMULT 2334 S001213 54 ADD R4 2335 S001214 4E COLOUR ;color set 2336 ; 2337 S001215 3C LOOP 2338 S001216 4C PLOT 2339 ; 2340 ;-------------- no.2 data step calculate ------------------------ 2341 S001217 3D A0 07 LMS R0,CWORK7 2342 S00121A 3D AC 03 LMS R12,CWORK3 2343 S00121D 6C SUB R12 2344 S00121E 9E LOB 2345 S00121F 4D SWAP 2346 S001220 3D A6 23 LMS R6,REG3 ;(R6) <-- bairitsu 2347 S001223 9F FMULT 2348 S001224 1C TO R12 2349 S001225 3D 5C ADC R12 2350 S001227 3D A0 06 LMS R0,CWORK6 2351 S00122A 19 TO R9 ;(R9) <-- X pointer 2352 S00122B 9E LOB 2353 S00122C 29 WITH R9 2354 S00122D 4D SWAP 2355 S00122E 3D A1 02 LMS R1,CWORK2 2356 S001231 B1 FROM R1 2357 S001232 18 TO R8 ;(R8) <-- X pointer 2358 S001233 9E LOB 2359 S001234 28 WITH R8 2360 S001235 4D SWAP 2361 S001236 61 SUB R1 2362 S001237 9E LOB 2363 S001238 4D SWAP 2364 S001239 9F FMULT 2365 S00123A 3D 51 ADC R1 2366 S00123C 2C WITH R12 ;(R12) <-- new wide 2367 S00123D 60 SUB R0 2368 S00123E 3D A1 10 LMS R1,CWORK10 2369 S001241 11 TO R1 2370 S001242 51 ADD R1 2371 ; 2372 ;-------------- no.2 data plot ---------------------------------- vvv******* warn :value out of range 2373 S001243 F0 2200 IWT R0,#DIVBUF ;(R0) <-- div data pointer 2374 S001246 5C ADD R12 2375 S001247 5C ADD R12 2376 S001248 40 LDW (R0) 2377 S001249 26 B0 MOVES R6,R0 2378 S00124B 3D A0 04 LMS R0,CWORK4 2379 S00124E 0A 05' BPL CCHG22 2380 S001250 01 NOP 2381 S001251 E6 DEC R6 2382 S001252 0B 03' BMI CCHG24 2383 S001254 01 NOP 2384 ; 2385 CCHG22 2386 S001255 4D SWAP 2387 S001256 9F FMULT 2388 CCHG24 2389 S001257 20 1A MOVE R10,R0 ;(R10) <-- chara data X step 2390 S001259 03 LSR 2391 S00125A 18 TO R8 2392 S00125B 58 ADD R8 2393 ; 2394 S00125C 26 B6 MOVES R6,R6 2395 S00125E 3D A0 08 LMS R0,CWORK8 2396 S001261 0A 05' BPL CCHG26 2397 S001263 01 NOP 2398 S001264 E6 DEC R6 2399 S001265 0B 03' BMI CCHG28 2400 S001267 01 NOP 2401 ; 2402 CCHG26 2403 S001268 4D SWAP 2404 S001269 9F FMULT 2405 CCHG28 2406 S00126A 20 15 MOVE R5,R0 ;(R5) <-- chara data X step 2407 S00126C 03 LSR 2408 S00126D 19 TO R9 2409 S00126E 59 ADD R9 2410 ; 2411 S00126F 3D A6 23 LMS R6,REG3 ;(R6) <-- bairitsu 2412 S001272 DC INC R12 2413 S001273 2F 1D MOVE R13,R15 2414 CCHG30 2415 S001275 B7 FROM R7 2416 S001276 C0 HIB 2417 S001277 4D SWAP 2418 S001278 3D A3 00 LMS R3,CWORK0 ;(R3) <-- from data chara address 2419 S00127B 23 WITH R3 2420 S00127C 60 SUB R0 2421 S00127D B8 FROM R8 2422 S00127E C0 HIB 2423 S00127F 1E TO R14 2424 S001280 53 ADD R3 2425 S001281 28 WITH R8 2426 S001282 5A ADD R10 2427 S001283 EF GETB 2428 S001284 14 TO R4 ;(R4) <-- data.1 color 2429 S001285 3E 7F AND #0FH 2430 ; 2431 S001287 BB FROM R11 2432 S001288 C0 HIB 2433 S001289 4D SWAP 2434 S00128A 3D A3 01 LMS R3,CWORK1 ;(R3) <-- from data chara address 2435 S00128D 23 WITH R3 2436 S00128E 60 SUB R0 2437 S00128F B9 FROM R9 2438 S001290 C0 HIB 2439 S001291 1E TO R14 2440 S001292 53 ADD R3 2441 S001293 29 WITH R9 2442 S001294 55 ADD R5 2443 S001295 EF GETB ;(R0) <-- data.2 color 2444 S001296 3E 7F AND #0FH 2445 S001298 64 SUB R4 2446 S001299 4D SWAP 2447 S00129A 9F FMULT 2448 S00129B 54 ADD R4 2449 S00129C 4E COLOUR ;color set 2450 ; 2451 S00129D 3C LOOP 2452 S00129E 4C PLOT 2453 ; 2454 ;-------------- next set ---------------------------------------- 2455 S00129F 3D A0 0A LMS R0,CWORKA 2456 S0012A2 17 TO R7 2457 S0012A3 57 ADD R7 2458 S0012A4 3D A0 0B LMS R0,CWORKB 2459 S0012A7 1B TO R11 2460 S0012A8 5B ADD R11 2461 ; 2462 S0012A9 3D A0 2C LMS R0,REG12 2463 S0012AC E0 DEC R0 2464 S0012AD 3E A0 2C SMS R0,REG12 2465 S0012B0 09 05' BEQ CCHG40 2466 S0012B2 E2 DEC R2 2467 ; 2468 S0012B3 FF 114F' IWT R15,#CCHG10 ;[ JMP CCHG10 ] 2469 S0012B6 01 NOP 2470 ; 2471 CCHG40 2472 ; 2473 ;-------------- chara data change ------------------------------- 2474 S0012B7 3D 4C RPIX 2475 ; 2476 S0012B9 00 STOP 2477 S0012BA 01 NOP 2478 ; 2479 ;;;;;************************************************************************ 2480 ;;;;;* root ( 32 bit ) * 2481 ;;;;;* in : (R2) <-- root data(L) * 2482 ;;;;;* (R3) <-- " (H) * 2483 ;;;;;* out : (R4) <-- root result data(decimal) * 2484 ;;;;;* (R5) <-- " (integer) * 2485 ;;;;;************************************************************************ 2486 ;;;;; 2487 ;;;;ROOT32 EQU $ 2488 ;;;; CACHE 2489 ;;;;; 2490 ;;;; SUB R0 ;(R0.R1) <-- calculate work 2491 ;;;; MOVE R1,R0 2492 ;;;; MOVE R4,R0 ;(R4.R5) <-- root result 2493 ;;;; MOVE R5,R0 2494 ;;;; IBT R12,#16+16 ;(R12) <-- loop no. 2495 ;;;; IWT R13,#ROT3210+1 2496 ;;;;ROT3210 2497 ;;;; WITH R4 ;[ ASL R4.R5 ] 2498 ;;;; ADD R4 2499 ;;;; WITH R5 2500 ;;;; ROL 2501 ;;;; WITH R2 2502 ;;;; ADD R2 ;[ ASL R2.R3 ] 2503 ;;;; WITH R3 2504 ;;;; ROL 2505 ;;;; ROL ;[ ROL R0,R1 ] 2506 ;;;; WITH R1 2507 ;;;; ROL 2508 ;;;; WITH R2 ;[ ASL R2.R3 ] 2509 ;;;; ADD R2 2510 ;;;; WITH R3 2511 ;;;; ROL 2512 ;;;; ROL ;[ ROL R0,R1 ] 2513 ;;;; WITH R1 2514 ;;;; ROL 2515 ;;;;; 2516 ;;;; TO R6 2517 ;;;; SBC R4 2518 ;;;; FROM R1 2519 ;;;; TO R7 2520 ;;;; SBC R5 2521 ;;;; BCC ROT3220 2522 ;;;; WITH R4 2523 ;;;;; 2524 ;;;; ADD #2 2525 ;;;; WITH R5 2526 ;;;; ADC #0 2527 ;;;; MOVE R0,R6 2528 ;;;; MOVE R1,R7 2529 ;;;;ROT3220 2530 ;;;; LOOP 2531 ;;;; WITH R4 2532 ;;;;; 2533 ;;;; WITH R5 ;[ LSR R4,R5 ] 2534 ;;;; LSR 2535 ;;;; WITH R4 2536 ;;;; ROR 2537 ;;;;; 2538 ;;;; STOP 2539 ;;;; NOP 2540 ;;;;; 2541 ;;;;;************************************************************************ 2542 ;;;;;* root ( 16 bit ) * 2543 ;;;;;* in : (R1) <-- root data(L) * 2544 ;;;;;* out : (R2) <-- root result data * 2545 ;;;;;* (low byte : decimal) * 2546 ;;;;;* (high byte : integer) * 2547 ;;;;;************************************************************************ 2548 ;;;;; 2549 ;;;;RCALC EQU $ 2550 ;;;; FROM R3 ;(R1) <-- SX^2 2551 ;;;; TO R1 2552 ;;;; MULT R3 2553 ;;;; FROM R2 2554 ;;;; MULT R2 ;(R0) <-- SY^2 2555 ;;;; TO R1 2556 ;;;; ADD R1 ;(R1) <-- SZ^2 = SY^2 2557 ;;;;; 2558 ;;;;ROOT16 EQU $ 2559 ;;;; CACHE 2560 ;;;;; 2561 ;;;; SUB R0 ;(R0) <-- calculate work 2562 ;;;; MOVE R2,R0 ;(R2) <-- root result 2563 ;;;; IBT R12,#8+8 ;(R12) <-- loop no. 2564 ;;;; IWT R13,#ROT1610+1 2565 ;;;;ROT1610 2566 ;;;; WITH R2 ;[ ASL R2 ] 2567 ;;;; ADD R2 2568 ;;;; WITH R1 ;[ ASL R1 ] 2569 ;;;; ADD R1 2570 ;;;; ROL ;[ ROL R0 ] 2571 ;;;; WITH R1 ;[ ASL R1 ] 2572 ;;;; ADD R1 2573 ;;;; ROL ;[ ROL R0 ] 2574 ;;;;; 2575 ;;;; TO R3 2576 ;;;; SBC R2 2577 ;;;; BCC ROT1620 2578 ;;;; WITH R2 2579 ;;;;; 2580 ;;;; ADD #2 2581 ;;;; MOVE R0,R3 2582 ;;;;ROT1620 2583 ;;;; LOOP 2584 ;;;; WITH R2 2585 ;;;;; 2586 ;;;; LSR 2587 ;;;;; 2588 ;;;; STOP 2589 ;;;; NOP 2590 ; 2591 ;************************************************************************ 2592 ;* "mogura" course grass BG3 screen set * 2593 ;* in : (R6) <-- convert AND data * 2594 ;* (R7) <-- " OR " * 2595 ;* (R8) <-- V scroll write start pointer * 2596 ;************************************************************************ 2597 ; 2598 0012BB BG3SCST EQU $ 2599 ; 2600 ;-------------- BG3 V scroll screen data set ---------------------------- 2601 S0012BB F1 0E2A IWT R1,#CBGVSCRBF ;(R1) <-- BG1 screen data pointer vvv******* warn :value out of range 2602 S0012BE F2 2644 IWT R2,#BG3VSCRBF ;(R2) <-- BG3 " 2603 S0012C1 F3 03FF IWT R3,#03FFH ;(R3) <-- chara no. check AND data 2604 S0012C4 F4 0180 IWT R4,#0180H ;(R4) <-- convert top chara no. 2605 S0012C7 F5 0080 IWT R5,#0080H ;(R5) <-- number of convert chara no. 2606 S0012CA F9 01CE IWT R9,#01CEH ;(R9) <-- nuki chara no. 2607 S0012CD AE 3E IBT R14,#03EH ;(R14) <-- BG3 screen data set index AND data 2608 ; 2609 S0012CF 02 CACHE 2610 ; 2611 S0012D0 AC 11 IBT R12,#022H/2 2612 S0012D2 2F 1D MOVE R13,R15 2613 BG3S10 2614 S0012D4 B2 FROM R2 2615 S0012D5 1A TO R10 ;(R10) <-- BG3 screen data set pointer 2616 S0012D6 58 ADD R8 2617 ; 2618 S0012D7 41 LDW (R1) ;BG1 screen data load 2619 S0012D8 20 1B MOVE R11,R0 2620 S0012DA 73 AND R3 2621 S0012DB 64 SUB R4 2622 S0012DC 0C 09' BCC BG3S20 ;convert chara no. ? ( no:BG3S20 ) 2623 ; 2624 S0012DE 65 SUB R5 2625 S0012DF 0D 07' BCS BG3S30 ;convert chara no. ? ( no:BG3S30 ) 2626 S0012E1 B9 FROM R9 2627 ; 2628 ;-------------- chara no. convert ------------------------------- 2629 S0012E2 BB FROM R11 2630 S0012E3 76 AND R6 2631 S0012E4 05 02' BRA BG3S30 2632 S0012E6 C7 OR R7 2633 ; 2634 ;-------------- nuki chara no. set ------------------------------ 2635 BG3S20 2636 S0012E7 B9 FROM R9 2637 BG3S30 2638 S0012E8 3A STW (R10) ;BG3 screen data set 2639 S0012E9 D8 INC R8 2640 S0012EA D8 INC R8 2641 S0012EB 28 WITH R8 2642 S0012EC 7E AND R14 2643 S0012ED D1 INC R1 2644 S0012EE D1 INC R1 2645 S0012EF D1 INC R1 2646 S0012F0 3C LOOP 2647 S0012F1 D1 INC R1 2648 ; 2649 ;-------------- BG3 H scroll screen data set ---------------------------- 2650 S0012F2 F1 0DAA IWT R1,#CBGHSCRBF ;(R1) <-- BG1 screen data pointer vvv******* warn :value out of range 2651 S0012F5 F2 2604 IWT R2,#BG3HSCRBF ;(R2) <-- BG3 " vvv******* warn :value out of range 2652 S0012F8 FA 2624 IWT R10,#BG3HSCRBF+20H ;(R10) <-- " 2653 S0012FB AE 04 IBT R14,#4 ;(R14) <-- BG1 screen data pointer add data 2654 ; 2655 S0012FD AC 10 IBT R12,#020H/2 2656 S0012FF 2F 1D MOVE R13,R15 2657 BG3S40 2658 S001301 41 LDW (R1) ;BG1 screen data load 2659 S001302 20 1B MOVE R11,R0 2660 S001304 73 AND R3 2661 S001305 64 SUB R4 2662 S001306 0C 08' BCC BG3S50 ;convert chara no. ? ( no:BG3S50 ) 2663 ; 2664 S001308 65 SUB R5 2665 S001309 0D 05' BCS BG3S50 ;convert chara no. ? ( no:BG3S50 ) 2666 ; 2667 ;-------------- chara no. convert ------------------------------- 2668 S00130B BB FROM R11 2669 S00130C 76 AND R6 2670 S00130D 05 03' BRA BG3S60 2671 S00130F C7 OR R7 2672 ; 2673 ;-------------- nuki chara no. set ------------------------------ 2674 BG3S50 2675 S001310 29 10 MOVE R0,R9 2676 BG3S60 2677 S001312 32 STW (R2) ;BG3 screen data set 2678 S001313 3A STW (R10) ; " 2679 S001314 21 WITH R1 2680 S001315 5E ADD R14 2681 S001316 D2 INC R2 2682 S001317 D2 INC R2 2683 S001318 DA INC R10 2684 S001319 3C LOOP 2685 S00131A DA INC R10 2686 ; 2687 S00131B 00 STOP 2688 S00131C 01 NOP 2689 ; 2690 ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2691 ;x x 2692 ;x color gensan sub x 2693 ;x x 2694 ;x R1 <--- henkan moto color address set x 2695 ;x R2 <--- henkan ato color address set x 2696 ;x R3 <--- gensan color data set x 2697 ;x R12 <--- henkan color data counter set x 2698 ;x x 2699 ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2700 00131D COLRDEC EQU $ 2701 S00131D 02 CACHE 2702 ; 2703 S00131E A4 1F IBT R4,#01FH ; R4 <--- and data set !! 2704 ; 2705 S001320 B3 FROM R3 2706 S001321 15 TO R5 2707 S001322 74 AND R4 ; red color dec. data set !! 2708 ; 2709 S001323 B3 FROM R3 2710 S001324 03 LSR 2711 S001325 03 LSR 2712 S001326 03 LSR 2713 S001327 03 LSR 2714 S001328 03 LSR 2715 S001329 16 TO R6 2716 S00132A 74 AND R4 ; green color dec. data set !! 2717 ; 2718 S00132B B3 FROM R3 2719 S00132C 4D SWAP 2720 S00132D 03 LSR 2721 S00132E 03 LSR 2722 S00132F 17 TO R7 2723 S001330 74 AND R4 ; blue color dec. data set !! 2724 ; 2725 S001331 2F 1D MOVE R13,R15 2726 ; 2727 001333 CRC050 EQU $ 2728 S001333 3D 41 LDB (R1) 2729 S001335 74 AND R4 2730 S001336 65 SUB R5 ; red color gensan !! 2731 S001337 0A 02' BPL CRC100 ; plas ? 2732 S001339 01 NOP ; No !! 2733 ; 2734 S00133A 60 SUB R0 ; red color clear set !! 2735 ; 2736 00133B CRC100 EQU $ 2737 S00133B 20 18 MOVE R8,R0 2738 ; 2739 S00133D 41 LDW (R1) 2740 S00133E 03 LSR 2741 S00133F 03 LSR 2742 S001340 03 LSR 2743 S001341 03 LSR 2744 S001342 03 LSR 2745 S001343 74 AND R4 2746 S001344 66 SUB R6 ; green color gensan !! 2747 S001345 0A 02' BPL CRC150 ; plas ? 2748 S001347 01 NOP ; No !! 2749 ; 2750 S001348 60 SUB R0 ; green color clear set !! 2751 ; 2752 001349 CRC150 EQU $ 2753 S001349 A9 20 IBT R9,#020H 2754 S00134B 89 MULT R9 2755 S00134C 18 TO R8 2756 S00134D C8 OR R8 2757 ; 2758 S00134E 41 LDW (R1) 2759 S00134F 4D SWAP 2760 S001350 03 LSR 2761 S001351 03 LSR 2762 S001352 74 AND R4 2763 S001353 67 SUB R7 ; blue color gensan !! 2764 S001354 0A 02' BPL CRC200 ; plas ? 2765 S001356 01 NOP ; No !! 2766 ; 2767 S001357 60 SUB R0 ; blue color clear set !! 2768 ; 2769 001358 CRC200 EQU $ 2770 S001358 A9 04 IBT R9,#004H 2771 S00135A 4D SWAP 2772 S00135B 89 MULT R9 2773 S00135C C8 OR R8 2774 S00135D 32 STW (R2) ; gensan color data set !! 2775 ; 2776 S00135E D1 INC R1 2777 S00135F D1 INC R1 ; moto color data address inc. !! 2778 S001360 D2 INC R2 2779 S001361 3C LOOP 2780 S001362 D2 INC R2 ; ato color data address inc. !! 2781 ; 2782 S001363 00 STOP 2783 S001364 01 NOP 2784 ; 2785 ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2786 ;x x 2787 ;x tonneal BG_3 kusa chenge sub x 2788 ;x x 2789 ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2790 001365 BG3CHEG EQU $ 2791 S001365 02 CACHE 2792 ; 2793 S001366 A0 01 IBT R0,#1 2794 S001368 3D 4E CMODE 2795 ; 2796 S00136A 3D F6 0000 LM R6,CWORK0 ; R3 <--- char data X_pos set !! 2797 S00136E 3D F3 0002 LM R3,CWORK1 ; R2 <--- moto char data Y_pos set !! 2798 S001372 A5 07 IBT R5,#007H ; R5 <--- big loop counter set !! 2799 S001374 A0 40 IBT R0,#040H 2800 ; 2801 S001376 14 TO R4 ; R4 <--- ato char data Y_pos set !! 2802 S001377 53 ADD R3 2803 ; 2804 001378 BCG050 EQU $ 2805 S001378 26 11 MOVE R1,R6 2806 S00137A AC 10 IBT R12,#010H 2807 S00137C 2F 1D MOVE R13,R15 2808 ; 2809 00137E BCG100 EQU $ 2810 S00137E 23 12 MOVE R2,R3 2811 ; 2812 S001380 3D 4C RPIX 2813 ; 2814 S001382 4E COLOR 2815 ; 2816 S001383 24 12 MOVE R2,R4 2817 ; 2818 S001385 4C PLOT 2819 ; 2820 S001386 21 WITH R1 2821 S001387 3E 57 ADD #007H 2822 ; 2823 S001389 3C LOOP 2824 S00138A 01 NOP 2825 ; 2826 S00138B 23 WITH R3 2827 S00138C 3E 58 ADD #008 2828 ; 2829 S00138E 24 WITH R4 2830 S00138F 3E 58 ADD #008 2831 ; 2832 S001391 26 11 MOVE R1,R6 2833 ; 2834 S001393 E5 DEC R5 2835 S001394 0A E2' BPL BCG050 2836 S001396 01 NOP 2837 ; 2838 S001397 3D 4C RPIX 2839 ; 2840 S001399 00 STOP 2841 S00139A 01 NOP 2842 ; 2843 ;;;;;************************************************************************ 2844 ;;;;;* program start ( 32x32 ) spacial * 2845 ;;;;;************************************************************************ 2846 ;;;;; 2847 ;;;;OBJM73X EQU $ 2848 ;;;; CACHE 2849 ;;;;; 2850 ;;;; LM R0,OCHRADR+2 ;chara data address(B) 2851 ;;;; ROMB 2852 ;;;;; 2853 ;;;;;-------------- rotation pos calculate -------------------------- 2854 ;;;; LM R0,OSCCH 2855 ;;;; LOB ;(R1) <-- SCCH*100H 2856 ;;;; TO R1 2857 ;;;; SWAP 2858 ;;;; LM R0,OCENTX 2859 ;;;; TO R6 2860 ;;;; NOT 2861 ;;;; INC R6 2862 ;;;; LM R3,OMATA ;R3 <-- MATA 2863 ;;;; FROM R3 2864 ;;;; LMULT 2865 ;;;; MOVE R9,R4 ;R9 <-- SX*MATA 2866 ;;;; LM R5,OMATC ;R5 <-- MATC 2867 ;;;; FROM R5 2868 ;;;; LMULT 2869 ;;;; MOVE R10,R4 ;R10 <--- SX*MATC 2870 ;;;;; 2871 ;;;; LM R0,OSCCV 2872 ;;;; LOB ;(R2) <-- SCCV*100H 2873 ;;;; TO R2 2874 ;;;; SWAP 2875 ;;;; LM R0,OCENTY 2876 ;;;; TO R6 2877 ;;;; NOT 2878 ;;;; INC R6 2879 ;;;; LM R0,OMATB 2880 ;;;; TO R11 2881 ;;;; ASR 2882 ;;;; LMULT 2883 ;;;; FROM R4 2884 ;;;; ADD R9 2885 ;;;; ADD R1 2886 ;;;; TO R9 ;R9 <-- PX 2887 ;;;; ADD R11 2888 ;;;; LM R0,OMATD 2889 ;;;; TO R11 2890 ;;;; ASR 2891 ;;;; LMULT 2892 ;;;; FROM R4 2893 ;;;; ADD R10 2894 ;;;; ADD R2 2895 ;;;; TO R10 ;R10 <-- PY 2896 ;;;; ADD R11 2897 ;;;;; 2898 ;;;;;-------------- plot intial set --------------------------------- 2899 ;;;; LM R0,OCHRADR 2900 ;;;; LSR ;(C) <-- color mode 2901 ;;;; IBT R6,#01H ;plot mode set 2902 ;;;; BCC OM73X00 ;high bit color ? ( no:OM73X00 ) 2903 ;;;; ADD R0 2904 ;;;;; 2905 ;;;; IBT R6,#05H 2906 ;;;;OM73X00 2907 ;;;; FROM R6 2908 ;;;; CMODE ;plot mode set 2909 ;;;; MOVE R11,R0 ;R11 <-- chara data address(L,H) 2910 ;;;;; 2911 ;;;; LM R6,OBUFXPS ;R6 <-- plot start X pos set 2912 ;;;; LM R2,OBUFYPS ;R2 <-- " Y " 2913 ;;;; IWT R13,#OM73X20 2914 ;;;;; 2915 ;;;; IBT R4,#32 ;R4 <-- Y loop set 2916 ;;;;OM73X10 2917 ;;;; MOVE R1,R6 ;R1 <-- plot start X pos set 2918 ;;;; FROM R3 2919 ;;;; ASR 2920 ;;;; TO R8 ;R8 <-- PX 2921 ;;;; ADD R9 2922 ;;;; FROM R5 2923 ;;;; ASR 2924 ;;;; TO R7 ;R7 <-- PY 2925 ;;;; ADD R10 2926 ;;;; IBT R12,#32 ;X loop set 2927 ;;;;OM73X20 2928 ;;;; MERGE 2929 ;;;; BCC OM73X30 ;area over ? ( no:OM73X30 ) 2930 ;;;; TO R14 2931 ;;;;; 2932 ;;;; WITH R8 2933 ;;;; ADD R3 2934 ;;;; WITH R7 2935 ;;;; ADD R5 2936 ;;;; SUB R0 ;[ IBT R0,#00 ] 2937 ;;;; BRA OM73X40 2938 ;;;; COLOUR ;color set 2939 ;;;;; 2940 ;;;;OM73X30 2941 ;;;; ADD R11 2942 ;;;;; 2943 ;;;; WITH R8 2944 ;;;; ADD R3 2945 ;;;; WITH R7 2946 ;;;; ADD R5 2947 ;;;; GETC ;color set 2948 ;;;;OM73X40 2949 ;;;; LOOP 2950 ;;;; PLOT ;pset 2951 ;;;;; 2952 ;;;; LM R0,OMATB 2953 ;;;; TO R9 2954 ;;;; ADD R9 2955 ;;;; LM R0,OMATD 2956 ;;;; TO R10 2957 ;;;; ADD R10 2958 ;;;; DEC R4 2959 ;;;; BNE OM73X10 ;end ? ( no:OM73X10 ) 2960 ;;;; INC R2 ;Y pos +1 2961 ;;;;; 2962 ;;;; STOP 2963 ;;;; NOP 2964 ; 2965 ;************************************************************************ 2966 ;* normal OAM clear * 2967 ;************************************************************************ 2968 ; 2969 00139B OAM_CLR EQU $ 2970 S00139B 02 CACHE 2971 ; 2972 S00139C F0 0A00 IWT R0,#COAM ;(R0) <-- normal OAM address 2973 S00139F F1 F080 IWT R1,#0F080H ;(R1) <-- " clear X,Y pos data 2974 S0013A2 A2 04 IBT R2,#4 ;(R2) <-- " add data 2975 S0013A4 FC 0080 IWT R12,#128 ;(R12) <-- loop no. 2976 S0013A7 2F 1D MOVE R13,R15 2977 OAMCL010 2978 S0013A9 B1 FROM R1 2979 S0013AA 30 STW (R0) 2980 S0013AB 3C LOOP 2981 S0013AC 52 ADD R2 2982 ; 2983 S0013AD 20 11 MOVE R1,R0 ;(R1) <-- normal OAM sub address 2984 S0013AF F0 5555 IWT R0,#05555H ;(R0) <-- " clear data 2985 S0013B2 AC 10 IBT R12,#128/8 ;(R12) <-- loop no. 2986 S0013B4 2F 1D MOVE R13,R15 2987 OAMCL020 2988 S0013B6 31 STW (R1) 2989 S0013B7 D1 INC R1 2990 S0013B8 3C LOOP 2991 S0013B9 D1 INC R1 2992 ; 2993 S0013BA 00 STOP 2994 S0013BB 01 NOP 2995 ; 2996 ;************************************************************************ 2997 ;* spacial zoom window * 2998 ;* in : (R0) <-- window data address(B) * 2999 ;* (R5) <-- " (L,H) * 3000 ;* (R1) <-- " center X pos * 3001 ;* (R2) <-- " Y " * 3002 ;* (R3) <-- " display center X pos * 3003 ;* (R4) <-- " Y " * 3004 ;* (R6) <-- zoom flag ( 1.0 = 100H ) * 3005 ;************************************************************************ 3006 ; 3007 0013BC SPWINDOW EQU $ 3008 S0013BC 3F DF ROMB ;window data address(B) set 3009 ; 3010 S0013BE B4 FROM R4 3011 S0013BF 54 ADD R4 ;[ ASL ] 3012 S0013C0 50 ADD R0 ;[ ASL ] x4 vvv******* warn :value out of range 3013 S0013C1 F4 3A02 IWT R4,#WINDBF 3014 S0013C4 54 ADD R4 3015 S0013C5 20 1A MOVE R10,R0 ;(R10) <-- window up buffer pointer 3016 S0013C7 1B TO R11 ;(R11) <-- " down " 3017 S0013C8 3E 54 ADD #4 3018 ; 3019 S0013CA 02 CACHE 3020 ; 3021 ;-------------- div data calculate ------------------------------ 3022 S0013CB 27 B6 MOVES R7,R6 3023 S0013CD 08 04' BNE SPWD000 ;n / 0 ? ( no:SPWD000 ) 3024 S0013CF 60 SUB R0 ;[ IBT R0,#00 ] 3025 ; 3026 ;-------------- n / 0 !! -------------------------------- 3027 S0013D0 05 01' BRA SPWD000 3028 S0013D2 E7 DEC R7 ;[ IWT R7,#0FFFFH ] 3029 ; 3030 SPWD000 3031 S0013D3 20 17 MOVE R7,R0 ;(R7) <-- div ans. 3032 S0013D5 D0 INC R0 ;[ IBT R0,#01 ] 3033 S0013D6 AC 11 IBT R12,#17 3034 S0013D8 2F 1D MOVE R13,R15 3035 SPWD002 3036 S0013DA 27 WITH R7 3037 S0013DB 57 ADD R7 ;[ ASL ] 3038 S0013DC 3F 66 CMP R6 3039 S0013DE 0C 03' BCC SPWD004 3040 S0013E0 01 NOP 3041 ; 3042 S0013E1 66 SUB R6 3043 S0013E2 D7 INC R7 3044 SPWD004 3045 S0013E3 3C LOOP 3046 S0013E4 50 ADD R0 ;[ ASL ] 3047 ; 3048 S0013E5 25 1E MOVE R14,R5 3049 S0013E7 EF GETB 3050 S0013E8 18 TO R8 ;(R8) <-- Y size 3051 S0013E9 4D SWAP 3052 S0013EA D5 INC R5 3053 ; 3054 S0013EB 22 10 MOVE R0,R2 ;(R2) <-- up window data pointer 3055 S0013ED 22 WITH R2 3056 S0013EE 4D SWAP 3057 S0013EF 3E 54 ADD #4 3058 S0013F1 19 TO R9 ;(R9) <-- down " 3059 S0013F2 4D SWAP 3060 ; 3061 ;-------------- window up buffer set ---------------------------- 3062 SPWD010 vvv******* warn :value out of range 3063 S0013F3 F0 3A02 IWT R0,#WINDBF 3064 S0013F6 BA FROM R10 3065 S0013F7 60 SUB R0 3066 S0013F8 0B 4D' BMI SPWD070 ;H-DMA buffer up over ? ( yes:SPWD070 ) 3067 S0013FA 01 NOP 3068 ; 3069 S0013FB F4 0348 IWT R4,#0D2H*4 3070 S0013FE 64 SUB R4 3071 S0013FF 0A 26' BPL SPWD050 ;H-DMA buffer down over ? ( yes:SPWD050 ) 3072 S001401 01 NOP 3073 ; 3074 S001402 B2 FROM R2 3075 S001403 C0 HIB 3076 S001404 50 ADD R0 ;[ ASL ] 3077 S001405 50 ADD R0 ;[ ASL ] x4 3078 S001406 1E TO R14 3079 S001407 55 ADD R5 3080 ; 3081 S001408 AC 04 IBT R12,#4 3082 S00140A 2F 1D MOVE R13,R15 3083 SPWD020 3084 S00140C EF GETB 3085 S00140D 61 SUB R1 3086 S00140E 3D 9F LMULT 3087 S001410 9E LOB 3088 S001411 4D SWAP 3089 S001412 24 WITH R4 3090 S001413 C0 HIB 3091 S001414 C4 OR R4 3092 S001415 53 ADD R3 3093 S001416 0A 02' BPL SPWD030 ;min over ? ( no:SPWD030 ) 3094 S001418 DE INC R14 ;go to next window data 3095 ; 3096 S001419 60 SUB R0 ;[ IBT R0,#00 ] 3097 SPWD030 3098 S00141A F4 00FF IWT R4,#00FFH ;(R11) <-- max data 3099 S00141D 3F 64 CMP R4 3100 S00141F 0C 02' BCC SPWD040 ;max over ? ( no:SPWD040 ) 3101 S001421 01 NOP 3102 ; 3103 S001422 B4 FROM R4 3104 SPWD040 3105 S001423 3D 3A STB (R10) 3106 S001425 3C LOOP 3107 S001426 DA INC R10 3108 ; 3109 SPWD050 3110 S001427 2A WITH R10 3111 S001428 3E 68 SUB #4+4 3112 S00142A 22 WITH R2 3113 S00142B 67 SUB R7 3114 S00142C B2 FROM R2 3115 S00142D 68 SUB R8 3116 S00142E 0C C4' BCC SPWD010+1 ;window data end ? ( no:SPWD010+1 ) vvv******* warn :value out of range 3117 S001430 F0 3A02 IWT R0,#WINDBF ;[ next program dummy ] 3118 ; 3119 ;-------------- up window clear set ----------------------------- 3120 S001433 20 14 MOVE R4,R0 3121 S001435 BA FROM R10 3122 S001436 60 SUB R0 3123 S001437 0B 0E' BMI SPWD070 ;H-DMA buffer up over ? ( yes:SPWD070 ) 3124 S001439 03 LSR 3125 ; 3126 S00143A 03 LSR ;/4 3127 S00143B D0 INC R0 3128 S00143C 1C TO R12 3129 S00143D 50 ADD R0 ;[ ASL ] x2 3130 S00143E F0 00FF IWT R0,#00FFH ;(R0) <-- clear window data 3131 S001441 2F 1D MOVE R13,R15 3132 SPWD060 3133 S001443 34 STW (R4) 3134 S001444 D4 INC R4 3135 S001445 3C LOOP 3136 S001446 D4 INC R4 3137 ; 3138 ;-------------- window down buffer set -------------------------- 3139 SPWD070 vvv******* warn :value out of range 3140 S001447 F0 3D46 IWT R0,#WINDBF+((0D2H-1)*4) 3141 S00144A 6B SUB R11 3142 S00144B 0B 48' BMI SPWD130 ;H-DMA buffer up over ? ( yes:SPWD130 ) 3143 S00144D 01 NOP 3144 ; 3145 S00144E F4 0348 IWT R4,#0D2H*4 3146 S001451 64 SUB R4 3147 S001452 0A 26' BPL SPWD110 ;H-DMA buffer down over ? ( yes:SPWD110 ) 3148 S001454 01 NOP 3149 ; 3150 S001455 B9 FROM R9 3151 S001456 C0 HIB 3152 S001457 50 ADD R0 ;[ ASL ] 3153 S001458 50 ADD R0 ;[ ASL ] x4 3154 S001459 1E TO R14 3155 S00145A 55 ADD R5 3156 ; 3157 S00145B AC 04 IBT R12,#4 3158 S00145D 2F 1D MOVE R13,R15 3159 SPWD080 3160 S00145F EF GETB 3161 S001460 61 SUB R1 3162 S001461 3D 9F LMULT 3163 S001463 9E LOB 3164 S001464 4D SWAP 3165 S001465 24 WITH R4 3166 S001466 C0 HIB 3167 S001467 C4 OR R4 3168 S001468 53 ADD R3 3169 S001469 0A 02' BPL SPWD090 ;min over ? ( no:SPWD090 ) 3170 S00146B DE INC R14 ;go to next window data 3171 ; 3172 S00146C 60 SUB R0 ;[ IBT R0,#00 ] 3173 SPWD090 3174 S00146D F4 00FF IWT R4,#00FFH ;(R11) <-- max data 3175 S001470 3F 64 CMP R4 3176 S001472 0C 02' BCC SPWD100 ;max over ? ( no:SPWD100 ) 3177 S001474 01 NOP 3178 ; 3179 S001475 B4 FROM R4 3180 SPWD100 3181 S001476 3D 3B STB (R11) 3182 S001478 3C LOOP 3183 S001479 DB INC R11 3184 ; 3185 SPWD110 3186 S00147A 29 WITH R9 3187 S00147B 57 ADD R7 3188 S00147C B9 FROM R9 3189 S00147D 68 SUB R8 3190 S00147E 0C C8' BCC SPWD070+1 ;window data end ? ( no:SPWD070+1 ) vvv******* warn :value out of range 3191 S001480 F0 3D46 IWT R0,#WINDBF+((0D2H-1)*4) ;[ next program dummy ] 3192 ; 3193 ;-------------- up window clear set ----------------------------- 3194 S001483 B0 FROM R0 3195 S001484 6B SUB R11 3196 S001485 0B 0E' BMI SPWD130 ;H-DMA buffer up over ? ( yes:SPWD130 ) 3197 S001487 03 LSR 3198 ; 3199 S001488 03 LSR ;/4 3200 S001489 D0 INC R0 3201 S00148A 1C TO R12 3202 S00148B 50 ADD R0 ;[ ASL ] x2 3203 S00148C F0 00FF IWT R0,#00FFH ;(R0) <-- clear window data 3204 S00148F 2F 1D MOVE R13,R15 3205 SPWD120 3206 S001491 3B STW (R11) 3207 S001492 DB INC R11 3208 S001493 3C LOOP 3209 S001494 DB INC R11 3210 ; 3211 SPWD130 3212 S001495 00 STOP 3213 S001496 01 NOP 3214 ; 3215 ;************************************************************************ 3216 ;* BG3 spacial screen data set * 3217 ;* in : * 3218 ;* (R2) <-- scroll counter_V * 3219 ;************************************************************************ 3220 ; 3221 001497 BG3SCSP EQU $ vvv******* warn :value out of range 3222 S001497 F1 385E IWT R1,#HDMABF0 ;(R1) <-- H-DMA buffer address 3223 S00149A F3 07F0 IWT R3,#07F0H ;(R3) <-- " AND data 3224 S00149D F4 0080 IWT R4,#0080H ;(R4) <-- H-DMA max line no 3225 S0014A0 A5 7F IBT R5,#007FH ;(R5) <-- " -1 3226 S0014A2 AC 00 IBT R12,#00H ;(R12) <-- end line check flag 3227 ;;;; IWT R13,#0B2H ;(R13) <-- max line no 3228 S0014A4 FD 00D2 IWT R13,#0D2H ;(R13) <-- max line no 3229 S0014A7 FE 0094 IWT R14,#CESCCH1 ;(R14) <-- BG1 scroll counter_H address 3230 ; 3231 S0014AA B2 FROM R2 3232 S0014AB 3E 59 ADD #8+1 ;[ up blanking 8 dot hosei !! ] 3233 S0014AD 16 TO R6 ;(R6) <-- BG1 scroll counter_V 0-F dot data 3234 S0014AE 3E 7F AND #0FH 3235 ; 3236 S0014B0 73 AND R3 3237 S0014B1 03 LSR ;x6 3238 S0014B2 03 LSR 3239 S0014B3 20 17 MOVE R7,R0 3240 S0014B5 03 LSR 3241 S0014B6 57 ADD R7 vvv******* warn :value out of range 3242 S0014B7 F7 3D4A IWT R7,#BG3SCBF 3243 S0014BA 17 TO R7 ;(R7) <-- BG3 spacial screen data buffer address 3244 S0014BB 57 ADD R7 3245 ; 3246 S0014BC 47 LDW (R7) 3247 S0014BD 20 18 MOVE R8,R0 ;(R8) <-- line no 3248 S0014BF 66 SUB R6 3249 S0014C0 05 04' BRA B3SP011 3250 S0014C2 02 CACHE 3251 ; 3252 B3SP010 3253 S0014C3 47 LDW (R7) 3254 S0014C4 20 18 MOVE R8,R0 ;(R8) <-- line no 3255 B3SP011 3256 S0014C6 20 19 MOVE R9,R0 ;(R9) <-- set line no 3257 S0014C8 1C TO R12 3258 S0014C9 5C ADD R12 3259 S0014CA BD FROM R13 3260 S0014CB 6C SUB R12 3261 S0014CC 0A 02' BPL B3SP012 ;max line no over ? ( no:B3SP012 ) 3262 S0014CE 19 TO R9 3263 ; 3264 S0014CF 59 ADD R9 3265 B3SP012 3266 S0014D0 D7 INC R7 3267 S0014D1 D7 INC R7 3268 S0014D2 47 LDW (R7) 3269 S0014D3 1A TO R10 ;(R10) <-- H-DMA data set BG3 scroll counter_V 3270 S0014D4 52 ADD R2 3271 S0014D5 D7 INC R7 3272 S0014D6 D7 INC R7 3273 S0014D7 47 LDW (R7) ;(R0) <-- scroll type no. 3274 S0014D8 5E ADD R14 3275 S0014D9 1B TO R11 ;(R11) <-- H-DMA data set BG3 scrool counter_H 3276 S0014DA 40 LDW (R0) 3277 S0014DB D7 INC R7 3278 S0014DC D7 INC R7 3279 B3SP020 3280 S0014DD B9 FROM R9 3281 S0014DE 64 SUB R4 3282 S0014DF 0C 1A' BCC B3SP030 ;line no max over ? ( no:B3SP030 ) 3283 S0014E1 B5 FROM R5 3284 ; 3285 S0014E2 3D 31 STB (R1) ;line no set 3286 S0014E4 D1 INC R1 3287 S0014E5 2B 10 MOVE R0,R11 3288 S0014E7 3D 31 STB (R1) ;BG3 scroll counter_H set 3289 S0014E9 D1 INC R1 3290 S0014EA 4D SWAP 3291 S0014EB 3D 31 STB (R1) ; " 3292 S0014ED D1 INC R1 3293 S0014EE 2A 10 MOVE R0,R10 3294 S0014F0 3D 31 STB (R1) ;BG3 scroll counter_V set 3295 S0014F2 D1 INC R1 3296 S0014F3 4D SWAP 3297 S0014F4 3D 31 STB (R1) ; " 3298 S0014F6 29 WITH R9 3299 S0014F7 65 SUB R5 3300 S0014F8 05 E3' BRA B3SP020 3301 S0014FA D1 INC R1 3302 ; 3303 B3SP030 3304 S0014FB B9 FROM R9 3305 S0014FC 3D 31 STB (R1) ;line no set 3306 S0014FE D1 INC R1 3307 S0014FF 2B 10 MOVE R0,R11 3308 S001501 3D 31 STB (R1) ;BG3 scroll counter_H set 3309 S001503 D1 INC R1 3310 S001504 4D SWAP 3311 S001505 3D 31 STB (R1) ; " 3312 S001507 D1 INC R1 3313 S001508 2A 10 MOVE R0,R10 3314 S00150A 3D 31 STB (R1) ;BG3 scroll counter_V set 3315 S00150C D1 INC R1 3316 S00150D 4D SWAP 3317 S00150E 3D 31 STB (R1) ; " 3318 S001510 D1 INC R1 3319 S001511 E8 DEC R8 3320 S001512 B8 FROM R8 3321 S001513 73 AND R3 3322 S001514 03 LSR ;x6 3323 S001515 03 LSR 3324 S001516 20 18 MOVE R8,R0 3325 S001518 03 LSR 3326 S001519 58 ADD R8 3327 S00151A 17 TO R7 3328 S00151B 57 ADD R7 3329 S00151C BD FROM R13 3330 S00151D 6C SUB R12 3331 S00151E E0 DEC R0 3332 S00151F 0A A3' BPL B3SP010+1 ;max line no over ? ( no:B3SP010+1 ) 3333 S001521 47 LDW (R7) ;[ next program ] 3334 ; 3335 B3SP040 3336 S001522 00 STOP 3337 S001523 01 NOP 3338 ; 3339 ;************************************************************************ 3340 ;* BG3 polygon * 3341 ;* in : (R1) <-- scroll counter_H * 3342 ;* (R2) <-- display center Y pos * 3343 ;* (R3) <-- " Z " * 3344 ;* (R4) <-- (X)_rotation angle * 3345 ;* (R12) <-- polygon data address(B) * 3346 ;* (R13) <-- " (L,H) * 3347 ;* * 3348 ;************************************************************************ 3349 ; 3350 ;------------------------------------------------------------------------ 3351 ;- polygon data format - 3352 ;- (point no),(Z1,Y1,XW1),(Z2,Y2,XW2),...(Zn,Yn,XWn) - 3353 ;- (face no),(color1),(P11),(P12),...(color2)(Pn1)(Pn2) - 3354 ;------------------------------------------------------------------------ 3355 ; 3356 001524 BG3POLY EQU $ 3357 S001524 22 WITH R2 ;(R2) <-- display center Y pos hosei 3358 S001525 3E 68 SUB #8 3359 ; 3360 ;-------------- display check ----------------------------------- 3361 S001527 F0 00F0 IWT R0,#0F0H 3362 S00152A 15 TO R5 ;[ IWT R5,#0F0H*2 ] 3363 S00152B 50 ADD R0 3364 S00152C 51 ADD R1 3365 S00152D 65 SUB R5 3366 S00152E 0C 0C' BCC B3POL000 ;display ? ( yes:B3POL000 ) 3367 S001530 01 NOP 3368 ; 3369 ;-------------- not display clear set !! ---------------- vvv******* warn :value out of range 3370 S001531 F3 3372 IWT R3,#HDMABF ;(R3) <-- H-DMA buffer pointer 3371 ;;;; IWT R12,#0B2H ;(R12) <-- loop no 3372 S001534 FC 00D2 IWT R12,#0D2H ;(R12) <-- loop no 3373 S001537 60 SUB R0 ;[ IBT R0,#0 ] 3374 S001538 FF 16BF' IWT R15,#B3POL112 ;[ JMP B3POL112 ] 3375 S00153B E0 DEC R0 ;[ IBT R0,#0FFH ] 3376 ; 3377 ;-------------- (X)_rotation cos & sin data set ----------------- 3378 B3POL000 3379 S00153C A0 00' IBT R0,#BANK COS 3380 S00153E 3F DF ROMB 3381 S001540 F0 021D' IWT R0,#COS 3382 S001543 54 ADD R4 3383 S001544 1E TO R14 3384 S001545 54 ADD R4 3385 S001546 EF GETB 3386 S001547 DE INC R14 3387 S001548 3D EF GETBH 3388 S00154A 20 17 MOVE R7,R0 ;(R7) <-- cos data 3389 ; 3390 S00154C F0 029D' IWT R0,#SIN 3391 S00154F 54 ADD R4 3392 S001550 1E TO R14 3393 S001551 54 ADD R4 3394 S001552 EF GETB 3395 S001553 DE INC R14 3396 S001554 3D EF GETBH 3397 S001556 20 18 MOVE R8,R0 ;(R8) <-- sin data 3398 ; 3399 S001558 3E A4 24 SMS R4,REG4 ;(REG4) <-- rotation angle save 3400 ; 3401 ;-------------- point data rotation ----------------------------- 3402 S00155B BC FROM R12 3403 S00155C 3F DF ROMB ;polygon data address(B) set 3404 S00155E 2D 1E MOVE R14,R13 ; " (L,H) set 3405 ; 3406 S001560 1C TO R12 ;(R12) <-- point no 3407 S001561 EF GETB 3408 S001562 DE INC R14 3409 S001563 3E AC 2C SMS R12,REG12 ;(REG12) <-- point no. 3410 ; vvv******* warn :value out of range 3411 S001566 F1 2200 IWT R1,#DIVBUF ;(R1) <-- div data pointer 3412 S001569 A5 00 IBT R5,#CWORK0 ;(R5) <-- object point data buffer pointer 3413 ; 3414 S00156B 02 CACHE 3415 ; 3416 S00156C 2F 1D MOVE R13,R15 3417 B3POL010 3418 S00156E 3F EF GETBS ;(R0) <-- Z pos 3419 S001570 DE INC R14 3420 S001571 20 19 MOVE R9,R0 ;(R9) <-- Z pos 3421 S001573 27 16 MOVE R6,R7 ;(R6) <-- cos data 3422 S001575 3D 9F LMULT 3423 S001577 24 1A MOVE R10,R4 ;(R10) <-- SZ*cos 3424 ; 3425 S001579 3F EF GETBS ;(R0) <-- Y pos 3426 S00157B DE INC R14 3427 S00157C 20 1B MOVE R11,R0 ;(R11) <-- Y pos 3428 S00157E 28 16 MOVE R6,R8 ;(R6) <-- sin data 3429 S001580 3D 9F LMULT ;(R4) <-- SY*sin 3430 S001582 BA FROM R10 3431 S001583 54 ADD R4 3432 S001584 C0 HIB 3433 S001585 95 SEX 3434 S001586 53 ADD R3 ;(R0) <-- object Z pos = SZ*cos+SY*sin+CZ 3435 S001587 50 ADD R0 ;x2 3436 S001588 51 ADD R1 3437 S001589 1A TO R10 ;(R10) <-- object Z pos mult data 3438 S00158A 40 LDW (R0) 3439 ; 3440 S00158B B9 FROM R9 3441 S00158C 3D 9F LMULT 3442 S00158E 24 19 MOVE R9,R4 ;(R9) <-- SZ*sin 3443 S001590 27 16 MOVE R6,R7 ;(R6) <-- cos data 3444 S001592 BB FROM R11 3445 S001593 3D 9F LMULT 3446 S001595 B4 FROM R4 3447 S001596 69 SUB R9 3448 S001597 C0 HIB ;(R0) <-- SY*cos-SZ*sin 3449 S001598 95 SEX 3450 ; 3451 S001599 2A 16 MOVE R6,R10 3452 S00159B 4D SWAP 3453 S00159C 9F FMULT 3454 S00159D 52 ADD R2 3455 S00159E 35 STW (R5) ;object Y pos set 3456 S00159F D5 INC R5 3457 S0015A0 D5 INC R5 3458 ; 3459 S0015A1 EF GETB ;(R0) <-- X wide 3460 S0015A2 DE INC R14 3461 S0015A3 4D SWAP 3462 S0015A4 9F FMULT 3463 S0015A5 3F 50 ADC #0 3464 S0015A7 35 STW (R5) ;object X wide set 3465 S0015A8 D5 INC R5 3466 ; 3467 S0015A9 3C LOOP 3468 S0015AA D5 INC R5 3469 ; 3470 ;-------------- polygon set ------------------------------------- 3471 S0015AB 11 TO R1 ;(R1) <-- face no 3472 S0015AC EF GETB 3473 S0015AD DE INC R14 3474 ; vvv******* warn :value out of range 3475 S0015AE FB 2200 IWT R11,#DIVBUF ;(R11) <-- div data pointer 3476 B3POL020 3477 S0015B1 12 TO R2 ;(R2) <-- face color & angle 3478 S0015B2 EF GETB 3479 S0015B3 DE INC R14 3480 ; 3481 S0015B4 EF GETB 3482 S0015B5 DE INC R14 3483 S0015B6 50 ADD R0 3484 S0015B7 18 TO R8 ;(R8) <-- point.1 pointer 3485 S0015B8 50 ADD R0 3486 ; 3487 S0015B9 EF GETB 3488 S0015BA DE INC R14 3489 S0015BB 50 ADD R0 3490 S0015BC 19 TO R9 ;(R9) <-- point.2 pointer 3491 S0015BD 50 ADD R0 3492 ; 3493 ;-------------- face display check ---------------------- 3494 S0015BE 13 TO R3 ;(R3) <-- point.1 Y pos 3495 S0015BF 48 LDW (R8) 3496 S0015C0 49 LDW (R9) 3497 S0015C1 63 SUB R3 3498 S0015C2 0A 05' BPL B3POL022 ;face display ? ( yes:B3POL022 ) 3499 S0015C4 D0 INC R0 3500 ; 3501 S0015C5 FF 1676' IWT R15,#B3POL060+1 ;[ JMP B3POL060+1 ] 3502 S0015C8 E1 DEC R1 ;[ dummy ] 3503 ; 3504 ;-------------- face set -------------------------------- 3505 B3POL022 3506 S0015C9 3E A0 2A SMS R0,REG10 ;(REG10) <-- Y move loop no 3507 ; 3508 S0015CC D8 INC R8 3509 S0015CD D8 INC R8 3510 S0015CE 17 TO R7 ;(R7) <-- XW1 3511 S0015CF 48 LDW (R8) 3512 S0015D0 D9 INC R9 3513 S0015D1 D9 INC R9 3514 S0015D2 18 TO R8 ;(R8) <-- XW2 3515 S0015D3 49 LDW (R9) 3516 ; 3517 ;-------------- face color set ------------------ 3518 S0015D4 F0 00F0 IWT R0,#0F0H 3519 S0015D7 72 AND R2 3520 S0015D8 3D A4 24 LMS R4,REG4 3521 S0015DB 54 ADD R4 3522 S0015DC 50 ADD R0 ;[ ASL ] 3523 S0015DD 4D SWAP 3524 S0015DE 0A 06' BPL B3POL024 3525 S0015E0 C0 HIB 3526 ; 3527 S0015E1 F4 00FF IWT R4,#0FFH 3528 S0015E4 B4 FROM R4 3529 S0015E5 60 SUB R0 3530 B3POL024 3531 S0015E6 14 TO R4 ;(R4) <-- color contrast 3532 S0015E7 50 ADD R0 ;[ ASL ] 3533 ; 3534 S0015E8 B2 FROM R2 3535 S0015E9 3E 7F AND #0FH 3536 S0015EB 20 12 MOVE R2,R0 ;(R2) <-- face color 3537 S0015ED 50 ADD R0 3538 S0015EE 50 ADD R0 3539 S0015EF 19 TO R9 3540 S0015F0 50 ADD R0 vvv******* warn :value out of range 3541 S0015F1 F0 2D6E IWT R0,#MOTOCOL+2 3542 S0015F4 1A TO R10 ;(R10) <-- base color pointer 3543 S0015F5 59 ADD R9 vvv******* warn :value out of range 3544 S0015F6 F0 2002 IWT R0,#DATACOL+2 3545 S0015F9 19 TO R9 ;(R9) <-- now color pointer 3546 S0015FA 59 ADD R9 3547 S0015FB B2 FROM R2 3548 S0015FC 3F 89 UMULT #9 vvv******* warn :value out of range 3549 S0015FE F6 404A IWT R6,#POLYCOL 3550 S001601 16 TO R6 ;(R6) <-- polygon color pointer 3551 S001602 56 ADD R6 3552 ; 3553 S001603 AC 03 IBT R12,#3 3554 S001605 2F 1D MOVE R13,R15 3555 B3POL032 3556 S001607 3D 46 LDB (R6) 3557 S001609 3D 84 UMULT R4 3558 S00160B 4D SWAP 3559 S00160C 0A 02' BPL B3POL034 3560 S00160E 9E LOB 3561 ; 3562 S00160F D0 INC R0 3563 B3POL034 3564 S001610 50 ADD R0 3565 S001611 50 ADD R0 3566 S001612 50 ADD R0 3567 S001613 50 ADD R0 3568 S001614 15 TO R5 3569 S001615 50 ADD R0 3570 S001616 D6 INC R6 3571 S001617 3D 46 LDB (R6) 3572 S001619 3D 84 UMULT R4 3573 S00161B 4D SWAP 3574 S00161C 0A 02' BPL B3POL036 3575 S00161E 9E LOB 3576 ; 3577 S00161F D0 INC R0 3578 B3POL036 3579 S001620 C5 OR R5 3580 S001621 50 ADD R0 3581 S001622 50 ADD R0 3582 S001623 50 ADD R0 3583 S001624 50 ADD R0 3584 S001625 15 TO R5 3585 S001626 50 ADD R0 3586 S001627 D6 INC R6 3587 S001628 3D 46 LDB (R6) 3588 S00162A 3D 84 UMULT R4 3589 S00162C 4D SWAP 3590 S00162D 0A 02' BPL B3POL038 3591 S00162F 9E LOB 3592 ; 3593 S001630 D0 INC R0 3594 B3POL038 3595 S001631 C5 OR R5 3596 S001632 3A STW (R10) ;color set 3597 S001633 39 STW (R9) 3598 S001634 D9 INC R9 3599 S001635 D9 INC R9 3600 S001636 DA INC R10 3601 S001637 DA INC R10 3602 S001638 3C LOOP 3603 S001639 D6 INC R6 3604 ; 3605 ;-------------- line step set ------------------- 3606 S00163A 3D AC 2A LMS R12,REG10 3607 S00163D BC FROM R12 3608 S00163E 5C ADD R12 3609 S00163F 5B ADD R11 3610 S001640 40 LDW (R0) 3611 S001641 16 TO R6 ;(R6) <-- div data 3612 S001642 03 LSR ;1/2 3613 S001643 B8 FROM R8 3614 S001644 67 SUB R7 3615 S001645 9E LOB 3616 S001646 4D SWAP 3617 S001647 9F FMULT 3618 S001648 18 TO R8 ;(R8) <-- XW1-XW2 step 3619 S001649 04 ROL ;x2 3620 ; 3621 S00164A F4 0080 IWT R4,#0080H ;(R4) <-- XW1-XW2 step calculate buffer 3622 ; vvv******* warn :value out of range 3623 S00164D F0 3372 IWT R0,#HDMABF 3624 S001650 53 ADD R3 3625 S001651 1A TO R10 ;(R10) <-- H-DMA buffer pointer 3626 S001652 53 ADD R3 3627 ;;;; IWT R9,#0B2H ;(R9) <-- max Y pos 3628 S001653 F9 00D2 IWT R9,#0D2H ;(R9) <-- max Y pos 3629 ; 3630 S001656 B2 FROM R2 3631 S001657 4D SWAP 3632 S001658 12 TO R2 ;(R2) <-- face color set data 3633 S001659 03 LSR ;[ 80H step ] 3634 S00165A 2F 1D MOVE R13,R15 3635 B3POL040 3636 S00165C 20 B3 MOVES R0,R3 3637 S00165E 0B 09' BMI B3POL050 ;H-DMA data set ? ( no:B3POL050 ) 3638 S001660 69 SUB R9 3639 ; 3640 S001661 0A 12' BPL B3POL060 ;H-DMA set end ? ( yes:B3POL060 ) 3641 S001663 B2 FROM R2 3642 ; 3643 S001664 63 SUB R3 3644 S001665 57 ADD R7 3645 S001666 3E 68 SUB #8 3646 S001668 3A STW (R10) ;H-DMA buffer set 3647 ; 3648 B3POL050 3649 S001669 B4 FROM R4 3650 S00166A 58 ADD R8 3651 S00166B 14 TO R4 3652 S00166C 9E LOB 3653 S00166D C0 HIB 3654 S00166E 95 SEX 3655 S00166F 17 TO R7 3656 S001670 57 ADD R7 3657 S001671 DA INC R10 3658 S001672 DA INC R10 3659 S001673 3C LOOP 3660 S001674 D3 INC R3 3661 ; 3662 B3POL060 3663 S001675 E1 DEC R1 3664 S001676 09 05' BEQ B3POL062 3665 S001678 01 NOP 3666 ; 3667 S001679 FF 15B2' IWT R15,#B3POL020+1 ;[ JMP B3POL020+1 ] 3668 S00167C 12 TO R2 ;[ dummy ] 3669 ; 3670 B3POL062 3671 ;-------------- H-DMA buffer clear area set --------------------- 3672 ;;;; IWT R1,#0B2H-1 ;(R1) <-- min Y pos 3673 S00167D F1 00D1 IWT R1,#0D2H-1 ;(R1) <-- min Y pos 3674 S001680 21 14 MOVE R4,R1 ;(R4) <-- " 3675 S001682 A2 FF IBT R2,#0FFH ;(R2) <-- max Y pos 3676 S001684 A3 00 IBT R3,#CWORK0 ;(R3) <-- object point data pointer 3677 S001686 3D AC 2C LMS R12,REG12 3678 S001689 2F 1D MOVE R13,R15 3679 B3POL070 3680 S00168B 43 LDW (R3) 3681 S00168C 61 SUB R1 3682 S00168D 0A 03' BPL B3POL080 ;new min ? ( no:B3POL080 ) 3683 S00168F 51 ADD R1 3684 ; 3685 S001690 20 11 MOVE R1,R0 3686 B3POL080 3687 S001692 62 SUB R2 3688 S001693 0B 03' BMI B3POL090 ;new max ? ( no:B3POL080 ) 3689 S001695 52 ADD R2 3690 ; 3691 S001696 20 12 MOVE R2,R0 3692 B3POL090 3693 S001698 D3 INC R3 3694 S001699 D3 INC R3 3695 S00169A D3 INC R3 3696 S00169B 3C LOOP 3697 S00169C D3 INC R3 3698 ; 3699 ;-------------- uper area clear ------------------------- vvv******* warn :value out of range 3700 S00169D F5 3372 IWT R5,#HDMABF ;(R5) <-- H-DMA buffer pointer 3701 S0016A0 21 1C MOVE R12,R1 3702 S0016A2 E1 DEC R1 3703 S0016A3 0B 0D' BMI B3POL110+1 ;uper area clear ? ( no:B3POL110+1 ) 3704 S0016A5 B4 FROM R4 ;[ to B3POL110 ] 3705 ; 3706 S0016A6 25 13 MOVE R3,R5 ;(R3) <-- H-DMA buffer pointer 3707 S0016A8 A0 F8 IBT R0,#-8 3708 S0016AA 2F 1D MOVE R13,R15 3709 B3POL100 3710 S0016AC E0 DEC R0 3711 S0016AD 33 STW (R3) 3712 S0016AE D3 INC R3 3713 S0016AF 3C LOOP 3714 S0016B0 D3 INC R3 3715 ; 3716 ;-------------- lower area clear ------------------------ 3717 B3POL110 3718 S0016B1 B4 FROM R4 3719 S0016B2 62 SUB R2 3720 S0016B3 20 1C MOVE R12,R0 3721 S0016B5 E0 DEC R0 3722 S0016B6 0B 10' BMI B3POL130 ;lower area clear ? ( no:B3POL130 ) 3723 S0016B8 D2 INC R2 3724 ; 3725 S0016B9 B5 FROM R5 3726 S0016BA 52 ADD R2 3727 S0016BB 13 TO R3 ;(R3) <-- H-DMA buffer pointer 3728 S0016BC 52 ADD R2 3729 S0016BD B2 FROM R2 3730 S0016BE 4F NOT 3731 ; 3732 B3POL112 3733 S0016BF 3E 68 SUB #8 3734 S0016C1 2F 1D MOVE R13,R15 3735 B3POL120 3736 S0016C3 33 STW (R3) 3737 S0016C4 D3 INC R3 3738 S0016C5 D3 INC R3 3739 S0016C6 3C LOOP 3740 S0016C7 E0 DEC R0 3741 ; 3742 B3POL130 3743 S0016C8 00 STOP 3744 S0016C9 01 NOP 3745 ; 3746 ;************************************************************************ 3747 ;* BG3 polygon OBJ chara set * 3748 ;* in : (R10) <-- chara data address(B) * 3749 ;* (R11) <-- " (L,H) * 3750 ;* (R1) <-- OBJ X pos * 3751 ;* (R2) <-- " Y " * 3752 ;* (R3) <-- " Z " * 3753 ;* (R4) <-- angle * 3754 ;* out : (CWK0) <-- OBJ set X pos * 3755 ;* (CWK1) <-- " Y " * 3756 ;************************************************************************ 3757 ; 3758 0016CA POLYCHR EQU $ 3759 S0016CA 02 CACHE 3760 ; 3761 S0016CB 60 SUB R0 ;color mode set 3762 S0016CC 3D 4E CMODE 3763 ; 3764 ;-------------- chara data buffer clear ------------------------- vvv******* warn :value out of range 3765 S0016CE F5 6000 IWT R5,#WOB7CHR+(40H*20H) 3766 S0016D1 F6 0140 IWT R6,#(20H*(16-6)) 3767 S0016D4 F7 0060 IWT R7,#(20H*6)/2 3768 S0016D7 FD 16DF' IWT R13,#POLCH002 3769 S0016DA A8 04 IBT R8,#4 3770 S0016DC 60 SUB R0 ;[ IBT R0,#00 ] 3771 POLCH000 3772 S0016DD 27 1C MOVE R12,R7 3773 POLCH002 3774 S0016DF 35 STW (R5) 3775 S0016E0 D5 INC R5 3776 S0016E1 3C LOOP 3777 S0016E2 D5 INC R5 3778 ; 3779 S0016E3 25 WITH R5 3780 S0016E4 56 ADD R6 3781 S0016E5 E8 DEC R8 3782 S0016E6 08 F6' BNE POLCH000+1 3783 S0016E8 27 1C MOVE R12,R7 ;[ dummy ] 3784 ; 3785 ;-------------- OBJ Y pos(up) 2D pos calculate ------------------ 3786 S0016EA A0 00' IBT R0,#BANK COS 3787 S0016EC 3F DF ROMB 3788 ; 3789 S0016EE 24 WITH R4 ;(R4) <-- angle * 2 3790 S0016EF 54 ADD R4 3791 ; 3792 S0016F0 B2 FROM R2 3793 S0016F1 16 TO R6 ;(R6) <-- OBJ Y pos * 100H 3794 S0016F2 4D SWAP 3795 ; 3796 S0016F3 F0 021D' IWT R0,#COS 3797 S0016F6 1E TO R14 3798 S0016F7 54 ADD R4 3799 S0016F8 EF GETB 3800 S0016F9 DE INC R14 3801 S0016FA 3D EF GETBH 3802 S0016FC 20 17 MOVE R7,R0 ;(R7) <-- cos data 3803 S0016FE 15 TO R5 ;(R5) <-- rotation OBJ Y pos 3804 S0016FF 9F FMULT 3805 ; 3806 S001700 F0 029D' IWT R0,#SIN 3807 S001703 1E TO R14 3808 S001704 54 ADD R4 3809 S001705 EF GETB 3810 S001706 DE INC R14 3811 S001707 3D EF GETBH 3812 S001709 20 18 MOVE R8,R0 ;(R8) <-- sin data 3813 S00170B 9F FMULT 3814 S00170C 53 ADD R3 ;(R0) <-- rotation OBJ Z pos 3815 S00170D 50 ADD R0 ;x2 vvv******* warn :value out of range 3816 S00170E FD 2200 IWT R13,#DIVBUF ;(R13) <-- div data pointer 3817 S001711 5D ADD R13 3818 S001712 16 TO R6 ;(R6) <-- 2D convert size 3819 S001713 40 LDW (R0) 3820 ; 3821 S001714 FE 1800 IWT R14,#01800H ;(R14) <-- X wide data * 100H 3822 ; 3823 S001717 B1 FROM R1 3824 S001718 4D SWAP 3825 S001719 19 TO R9 ;(R9) <-- 2D convert OBJ X pos(up) 3826 S00171A 9F FMULT 3827 S00171B B5 FROM R5 3828 S00171C 4D SWAP 3829 S00171D 1C TO R12 ;(R12) <-- 2D convert OBJ Y pos(up) 3830 S00171E 9F FMULT 3831 S00171F 3E AC 01 SMS R12,CWORK1 ;(CWK1) <-- OBJ set Y pos 3832 S001722 BE FROM R14 3833 S001723 9F FMULT 3834 S001724 50 ADD R0 ;x2 3835 S001725 5D ADD R13 3836 S001726 16 TO R6 3837 S001727 40 LDW (R0) 3838 S001728 F0 2000 IWT R0,#02000H 3839 S00172B 15 TO R5 ;(R5) <-- X zoom size(up) 3840 S00172C 9F FMULT 3841 ; 3842 ;-------------- OBJ Y pos(low) 2D pos calculate ----------------- 3843 S00172D A0 18 IBT R0,#018H 3844 S00172F 52 ADD R2 3845 S001730 16 TO R6 ;(R6) <-- OBJ Y pos(low) * 100H 3846 S001731 4D SWAP 3847 ; 3848 S001732 B7 FROM R7 3849 ;;;; TO R4 ;(R4) <-- rotation OBJ Y pos 3850 S001733 9F FMULT 3851 S001734 20 14 MOVE R4,R0 ;(R4) <-- rotation OBJ Y pos 3852 ; 3853 S001736 B8 FROM R8 3854 S001737 9F FMULT 3855 S001738 53 ADD R3 ;(R0) <-- rotation OBJ Z pos 3856 S001739 50 ADD R0 ;x2 3857 S00173A 5D ADD R13 3858 S00173B 16 TO R6 ;(R6) <-- 2D convert size 3859 S00173C 40 LDW (R0) 3860 ; 3861 S00173D B1 FROM R1 3862 S00173E 4D SWAP 3863 S00173F 11 TO R1 ;(R1) <-- 2D convert OBJ X pos(low) 3864 S001740 9F FMULT 3865 ; 3866 S001741 B4 FROM R4 3867 S001742 4D SWAP 3868 S001743 12 TO R2 ;(R2) <-- 2D convert OBJ Y pos(low) 3869 S001744 9F FMULT 3870 S001745 BE FROM R14 3871 S001746 9F FMULT 3872 S001747 50 ADD R0 ;x2 3873 S001748 5D ADD R13 3874 S001749 16 TO R6 3875 S00174A 40 LDW (R0) 3876 S00174B F0 2000 IWT R0,#02000H 3877 S00174E 9F FMULT 3878 S00174F 13 TO R3 ;(R3) <-- X zoom size(low) - X zoom size(up) 3879 S001750 65 SUB R5 3880 ; 3881 S001751 B2 FROM R2 3882 S001752 6C SUB R12 3883 S001753 E0 DEC R0 3884 S001754 20 17 MOVE R7,R0 ;(R7) <-- chara set ok flag 3885 S001756 0A 03' BPL POLCH008 ;chara set ok ? ( yes:POLCH008 ) 3886 S001758 D0 INC R0 3887 ; 3888 S001759 4F NOT 3889 S00175A D0 INC R0 3890 POLCH008 3891 S00175B 50 ADD R0 ;x2 3892 S00175C 5D ADD R13 3893 S00175D 40 LDW (R0) 3894 S00175E 16 TO R6 ;(R6) <-- Y wide div data 3895 S00175F 03 LSR 3896 ; 3897 S001760 B3 FROM R3 3898 S001761 3D 9F LMULT 3899 S001763 13 TO R3 ;(R3) <-- X zoom size step 3900 S001764 3D 50 ADC R0 3901 ; 3902 S001766 AC 00 IBT R12,#0 ;(R12) <-- plot start X pos 3903 S001768 29 12 MOVE R2,R9 ;(R2) <-- 2D convert OBJ X pos(up) 3904 S00176A B1 FROM R1 3905 S00176B 69 SUB R9 ;(R0) <-- " wide 3906 S00176C 0A 07' BPL POLCH010 3907 S00176E 1C TO R12 3908 ; 3909 S00176F 4F NOT 3910 S001770 DC INC R12 3911 S001771 2C WITH R12 3912 S001772 4D SWAP 3913 S001773 21 12 MOVE R2,R1 3914 POLCH010 3915 S001775 3E A2 00 SMS R2,CWORK0 ;(CWK0) <-- OBJ set X pos 3916 ; 3917 S001778 27 B7 MOVES R7,R7 3918 S00177A 0B 3D' BMI POLCH050 ;chara set ok ? ( no:POLCH050 ) 3919 S00177C 9E LOB 3920 ; 3921 S00177D 4D SWAP 3922 S00177E 9F FMULT 3923 S00177F 1D TO R13 ;(R13) <-- plot X pos step 3924 S001780 3D 50 ADC R0 ;x2 3925 ; 3926 S001782 F0 2000 IWT R0,#02000H 3927 S001785 9F FMULT 3928 S001786 19 TO R9 ;(R9) <-- Y zoom size step 3929 S001787 3D 50 ADC R0 ;x2 3930 ; 3931 ;-------------- character plot ---------------------------------- 3932 S001789 BA FROM R10 3933 S00178A 3F DF ROMB ;chara data address(B) set 3934 S00178C 2B 16 MOVE R6,R11 ;(R6) <-- chara data address(L,H) 3935 ; 3936 S00178E 2C 1A MOVE R10,R12 ;(R10) <-- plot start X pos 3937 S001790 2D 1B MOVE R11,R13 ;(R11) <-- " X pos step 3938 ; 3939 S001792 A2 20 IBT R2,#020H ;(R2) <-- plot start Y pos 3940 S001794 22 17 MOVE R7,R2 ;(R7) <-- chara data Y pointer 3941 S001796 FD 17A5' IWT R13,#POLCH030 3942 3943 S001799 A4 20 IBT R4,#32 ;(R4) <-- Y loop no 3944 POLCH020 3945 S00179B A8 00 IBT R8,#0 ;(R8) <-- chara data X pointer 3946 ; 3947 S00179D 70 MERGE 3948 S00179E 0D 19' BCS POLCH050 ;area over ? ( no:POLCH050 ) 3949 S0017A0 BA FROM R10 3950 ; 3951 S0017A1 11 TO R1 ;(R1) <-- plot start X pos 3952 S0017A2 C0 HIB 3953 ; 3954 S0017A3 AC 2A IBT R12,#42 ;(R12) <-- X loop no 3955 POLCH030 3956 S0017A5 70 MERGE 3957 S0017A6 0D 07' BCS POLCH040 ;area over ? ( yes:POLCH040 ) 3958 S0017A8 1E TO R14 3959 ; 3960 S0017A9 56 ADD R6 3961 S0017AA 28 WITH R8 3962 S0017AB 55 ADD R5 3963 S0017AC DF GETC ;color set 3964 ; 3965 S0017AD 3C LOOP 3966 S0017AE 4C PLOT 3967 ; 3968 POLCH040 3969 S0017AF 2A WITH R10 3970 S0017B0 5B ADD R11 3971 S0017B1 25 WITH R5 3972 S0017B2 53 ADD R3 3973 ; 3974 S0017B3 27 WITH R7 3975 S0017B4 59 ADD R9 3976 ; 3977 S0017B5 E4 DEC R4 3978 S0017B6 08 E3' BNE POLCH020 3979 S0017B8 D2 INC R2 3980 ; 3981 POLCH050 3982 S0017B9 00 STOP 3983 S0017BA 01 NOP 3984 ; 3985 ;************************************************************************ 3986 ;* BG3 polygon OBJ chara set ( "Hira Hira" ) * 3987 ;* in : (R10) <-- chara data address(B) * 3988 ;* (R11) <-- " (L,H) (front view) * 3989 ;* (R12) <-- " (L,H) (back " ) * 3990 ;* (R9) <-- "Hira Hira" data pointer * 3991 ;* (R8) <-- Y step zoom flag * 3992 ;************************************************************************ 3993 ; 3994 0017BB HIRACHR EQU $ 3995 S0017BB 02 CACHE 3996 ; 3997 S0017BC 60 SUB R0 ;color mode set 3998 S0017BD 3D 4E CMODE 3999 ; 4000 S0017BF 3E AB 00 SMS R11,CWORK0 ;(CWK0) <-- front view chara address 4001 S0017C2 3E AC 01 SMS R12,CWORK1 ;(CWK1) <-- back " 4002 S0017C5 3E A8 02 SMS R8,CWORK2 ;(CWK2) <-- Y step zoom flag 4003 ; 4004 ;-------------- chara data buffer clear ------------------------- vvv******* warn :value out of range 4005 S0017C8 F5 6000 IWT R5,#WOB7CHR+(40H*20H) 4006 S0017CB F6 0180 IWT R6,#(20H*(16-4)) 4007 S0017CE F7 0040 IWT R7,#(20H*4)/2 4008 S0017D1 FD 17D9' IWT R13,#HIRCH002 4009 S0017D4 A8 08 IBT R8,#8 4010 S0017D6 60 SUB R0 ;[ IBT R0,#00 ] 4011 HIRCH000 4012 S0017D7 27 1C MOVE R12,R7 4013 HIRCH002 4014 S0017D9 35 STW (R5) 4015 S0017DA D5 INC R5 4016 S0017DB 3C LOOP 4017 S0017DC D5 INC R5 4018 ; 4019 S0017DD 25 WITH R5 4020 S0017DE 56 ADD R6 4021 S0017DF E8 DEC R8 4022 S0017E0 08 F6' BNE HIRCH000+1 4023 S0017E2 27 1C MOVE R12,R7 ;[ dummy ] 4024 ; 4025 ;-------------- "Hira Hira" data address set -------------------- 4026 S0017E4 B9 FROM R9 4027 S0017E5 59 ADD R9 4028 S0017E6 50 ADD R0 4029 S0017E7 F9 1851' IWT R9,#HIRASTEP 4030 S0017EA 19 TO R9 ;(R9) <-- "Hira Hira" data address 4031 S0017EB 59 ADD R9 4032 ; 4033 S0017EC A4 20 IBT R4,#32 ;(R3) <-- V loop no 4034 S0017EE F5 4800 IWT R5,#4800H ;(R5) <-- plot Y pos buffer 4035 S0017F1 A7 1F IBT R7,#01FH ;(R7) <-- chara data start Y pos 4036 S0017F3 FD 183B' IWT R13,#HIRCH020 4037 HIRCH010 4038 ; 4039 ;-------------- "Hira Hira" data read --------------------------- 4040 S0017F6 A0 00' IBT R0,#BANK HIRASTEP 4041 S0017F8 3F DF ROMB 4042 S0017FA 29 1E MOVE R14,R9 ;(R14) <-- "Hira Hira" data address 4043 S0017FC 13 TO R3 ;(R3) <-- X step 4044 S0017FD EF GETB 4045 S0017FE DE INC R14 4046 ; 4047 S0017FF AC 20 IBT R12,#32 ;(R12) <-- H loop no vvv******* warn :value out of range 4048 S001801 F6 2200 IWT R6,#DIVBUF ;(R6) <-- div data pointer 4049 S001804 B5 FROM R5 4050 S001805 12 TO R2 ;(R2) <-- plot start Y pos 4051 S001806 C0 HIB 4052 ; 4053 S001807 23 WITH R3 4054 S001808 3D EF GETBH 4055 S00180A DE INC R14 4056 ; 4057 S00180B B3 FROM R3 4058 S00180C 53 ADD R3 ;x2 4059 S00180D 56 ADD R6 4060 S00180E 16 TO R6 ;(R6) <-- div data 4061 S00180F 40 LDW (R0) 4062 ; 4063 S001810 18 TO R8 ;(R8) <-- Y step 4064 S001811 EF GETB 4065 S001812 DE INC R14 4066 ; 4067 S001813 BC FROM R12 4068 S001814 4D SWAP 4069 S001815 9F FMULT 4070 S001816 BC FROM R12 4071 S001817 3D 60 SBC R0 4072 S001819 11 TO R1 ;(R1) <-- plot start X pos 4073 S00181A 03 LSR 4074 ; 4075 S00181B 28 WITH R8 4076 S00181C 3D EF GETBH 4077 S00181E DE INC R14 4078 S00181F 2E 19 MOVE R9,R14 ;(R9) <-- next "Hira Hira" data address 4079 ; 4080 S001821 3D A6 02 LMS R6,CWORK2 ;(R6) <-- Y step zoom flag 4081 S001824 B8 FROM R8 4082 S001825 9F FMULT 4083 S001826 3D 50 ADC R0 4084 S001828 25 WITH R5 ;plot Y pos up !! 4085 S001829 60 SUB R0 4086 ; 4087 ;-------------- chara data plot --------------------------------- 4088 S00182A 28 B8 MOVES R8,R8 4089 S00182C 0A 03' BPL HIRCH012 ;front view ? ( yes:HIRCH012 ) 4090 S00182E 60 SUB R0 4091 ; 4092 S00182F D0 INC R0 4093 S001830 D0 INC R0 4094 HIRCH012 4095 S001831 1B TO R11 ;(R11) <-- chara address(L,H) 4096 S001832 40 LDW (R0) 4097 ; 4098 S001833 BA FROM R10 4099 S001834 3F DF ROMB 4100 S001836 60 SUB R0 ;[ IBT R0,#0 ] 4101 S001837 20 18 MOVE R8,R0 ;(R8) <-- chara data X pos buffer 4102 S001839 27 WITH R7 ;(R7) <-- " Y " 4103 S00183A 4D SWAP 4104 HIRCH020 4105 S00183B 70 MERGE 4106 S00183C 0D 09' BCS HIRCH030 ;chara area over ? ( yes:HIRCH030 ) 4107 S00183E 1E TO R14 ;(R14) <-- chara data address 4108 ; 4109 S00183F 5B ADD R11 4110 S001840 28 WITH R8 ;plot X pos up !! 4111 S001841 53 ADD R3 4112 S001842 B8 FROM R8 4113 S001843 C0 HIB 4114 ; 4115 S001844 DF GETC 4116 S001845 3C LOOP 4117 S001846 4C PLOT 4118 ; 4119 HIRCH030 4120 S001847 27 WITH R7 4121 S001848 4D SWAP 4122 S001849 E4 DEC R4 4123 S00184A 08 AA' BNE HIRCH010 4124 S00184C E7 DEC R7 4125 ; 4126 S00184D 3D 4C RPIX 4127 ; 4128 S00184F 00 STOP 4129 S001850 01 NOP 4130 ; 4131 ;------------------------------------------------------------------------ 4132 ;- "Hira Hira" data - 4133 ;------------------------------------------------------------------------ 4134 001851 HIRASTEP EQU $ 4135 S001851 0155 00C0 0155 WORD 00155H,000C0H, 00155H,000C0H, 00155H,000C0H, 00155H,000C0H ;[00] S001857 00C0 0155 00C0 S00185D 0155 00C0 4136 S001861 0155 00C0 0155 WORD 00155H,000C0H, 00155H,000C0H, 00155H,000C0H, 00155H,000C0H ;[04] S001867 00C0 0155 00C0 S00186D 0155 00C0 4137 S001871 0155 00C0 0155 WORD 00155H,000C0H, 00155H,000C0H, 00155H,000C0H, 00155H,000C0H ;[08] S001877 00C0 0155 00C0 S00187D 0155 00C0 4138 S001881 0155 00C0 0155 WORD 00155H,000C0H, 00155H,000C0H, 00155H,000C0H, 00155H,000C0H ;[0C] S001887 00C0 0155 00C0 S00188D 0155 00C0 4139 S001891 0155 00C0 0155 WORD 00155H,000C0H, 00155H,000C0H, 00155H,000C0H, 00155H,000C0H ;[10] S001897 00C0 0155 00C0 S00189D 0155 00C0 4140 S0018A1 0155 00C0 0155 WORD 00155H,000C0H, 00155H,000C0H, 00155H,000C0H, 00155H,000C0H ;[14] S0018A7 00C0 0155 00C0 S0018AD 0155 00C0 4141 S0018B1 0155 00C0 0155 WORD 00155H,000C0H, 00155H,000C0H, 00155H,000C0H, 00155H,000C0H ;[18] S0018B7 00C0 0155 00C0 S0018BD 0155 00C0 4142 S0018C1 0155 00C0 0155 WORD 00155H,000C0H, 00155H,000C0H, 00155H,000C0H, 00155H,000C0H ;[1C] S0018C7 00C0 0155 00C0 S0018CD 0155 00C0 4143 ; 4144 S0018D1 0155 00C0 0155 WORD 00155H,000C0H, 00155H,000C0H, 00155H,000BEH, 00155H,000BCH ;[20] S0018D7 00C0 0155 00BE S0018DD 0155 00BC 4145 S0018E1 0155 00BA 0154 WORD 00155H,000BAH, 00154H,000B6H, 00154H,000B2H, 00153H,000ADH ;[24] S0018E7 00B6 0154 00B2 S0018ED 0153 00AD 4146 S0018F1 0152 00A7 0152 WORD 00152H,000A7H, 00152H,000A0H, 00151H,00099H, 00150H,00091H ;[28] S0018F7 00A0 0151 0099 S0018FD 0150 0091 4147 S001901 014F 0088 014E WORD 0014FH,00088H, 0014EH,0007FH, 0014DH,00075H, 0014CH,0006BH ;[2C] S001907 007F 014D 0075 S00190D 014C 006B 4148 S001911 014B 0060 0149 WORD 0014BH,00060H, 00149H,00054H, 00148H,00048H, 00147H,0003CH ;[30] S001917 0054 0148 0048 S00191D 0147 003C 4149 S001921 0145 002F 0144 WORD 00145H,0002FH, 00144H,00022H, 00143H,00015H, 00141H,00008H ;[34] S001927 0022 0143 0015 S00192D 0141 0008 4150 S001931 0140 FFFB 013F WORD 00140H,0FFFBH, 0013FH,0FFEDH, 0013DH,0FFE0H, 0013CH,0FFD2H ;[38] S001937 FFED 013D FFE0 S00193D 013C FFD2 4151 S001941 013A FFC4 0139 WORD 0013AH,0FFC4H, 00139H,0FFB7H, 00138H,0FFAAH, 00137H,0FF9DH ;[3C] S001947 FFB7 0138 FFAA S00194D 0137 FF9D 4152 S001951 0135 FF90 0134 WORD 00135H,0FF90H, 00134H,0FF84H, 00133H,0FF78H, 00132H,0FF6DH ;[40] S001957 FF84 0133 FF78 S00195D 0132 FF6D 4153 S001961 0131 FF63 0130 WORD 00131H,0FF63H, 00130H,0FF59H, 0012FH,0FF50H, 0012FH,0FF47H ;[44] S001967 FF59 012F FF50 S00196D 012F FF47 4154 S001971 012E FF40 012D WORD 0012EH,0FF40H, 0012DH,0FF39H, 0012DH,0FF34H, 0012CH,0FF2FH ;[48] S001977 FF39 012D FF34 S00197D 012C FF2F 4155 S001981 012C FF2B 012C WORD 0012CH,0FF2BH, 0012CH,0FF29H, 0012CH,0FF27H, 0012CH,0FF26H ;[4C] S001987 FF29 012C FF27 S00198D 012C FF26 4156 ; 4157 S001991 012C FF26 012C WORD 0012CH,0FF26H, 0012CH,0FF27H, 0012CH,0FF28H, 0012BH,0FF2AH ;[50] S001997 FF27 012C FF28 S00199D 012B FF2A 4158 S0019A1 012B FF2D 012B WORD 0012BH,0FF2DH, 0012BH,0FF30H, 0012AH,0FF34H, 0012AH,0FF3AH ;[54] S0019A7 FF30 012A FF34 S0019AD 012A FF3A 4159 S0019B1 0129 FF3F 0128 WORD 00129H,0FF3FH, 00128H,0FF46H, 00128H,0FF4DH, 00127H,0FF55H ;[58] S0019B7 FF46 0128 FF4D S0019BD 0127 FF55 4160 S0019C1 0126 FF5E 0125 WORD 00126H,0FF5EH, 00125H,0FF67H, 00124H,0FF71H, 00123H,0FF7CH ;[5C] S0019C7 FF67 0124 FF71 S0019CD 0123 FF7C 4161 S0019D1 0122 FF87 0120 WORD 00122H,0FF87H, 00120H,0FF92H, 0011FH,0FF9FH, 0011EH,0FFABH ;[60] S0019D7 FF92 011F FF9F S0019DD 011E FFAB 4162 S0019E1 011D FFB8 011B WORD 0011DH,0FFB8H, 0011BH,0FFC6H, 0011AH,0FFD4H, 00118H,0FFE2H ;[64] S0019E7 FFC6 011A FFD4 S0019ED 0118 FFE2 4163 S0019F1 0117 FFF0 0116 WORD 00117H,0FFF0H, 00116H,0FFFFH, 00114H,0000DH, 00113H,0001CH ;[68] S0019F7 FFFF 0114 000D S0019FD 0113 001C 4164 S001A01 0112 002B 0110 WORD 00112H,0002BH, 00110H,0003AH, 0010FH,00048H, 0010EH,00057H S001A07 003A 010F 0048 S001A0D 010E 0057 4165 S001A11 010C 0066 010B WORD 0010CH,00066H, 0010BH,00074H, 0010AH,00082H, 00109H,0008FH S001A17 0074 010A 0082 S001A1D 0109 008F 4166 S001A21 0108 009C 0107 WORD 00108H,0009CH, 00107H,000A9H, 00106H,000B5H, 00105H,000C0H S001A27 00A9 0106 00B5 S001A2D 0105 00C0 4167 S001A31 0104 00CA 0103 WORD 00104H,000CAH, 00103H,000D4H, 00102H,000DDH, 00102H,000E5H S001A37 00D4 0102 00DD S001A3D 0102 00E5 4168 S001A41 0101 00EC 0100 WORD 00101H,000ECH, 00100H,000F2H, 00100H,000F7H, 00100H,000FBH S001A47 00F2 0100 00F7 S001A4D 0100 00FB 4169 S001A51 0100 00FE 0100 WORD 00100H,000FEH, 00100H,00100H, 00100H,00100H ;[*81] S001A57 0100 0100 0100 4170 ; 4171 S001A5D 0100 0100 0100 WORD 00100H,00100H, 00100H,00100H, 00100H,00100H, 00100H,00100H S001A63 0100 0100 0100 S001A69 0100 0100 4172 S001A6D 0100 0100 WORD 00100H,00100H 4173 ; 4174 S001A71 0100 0100 0100 WORD 00100H,00100H, 00100H,00100H, 00100H,00100H, 00100H,00100H S001A77 0100 0100 0100 S001A7D 0100 0100 4175 S001A81 0100 0100 0100 WORD 00100H,00100H, 00100H,00100H, 00100H,00100H, 00100H,00100H S001A87 0100 0100 0100 S001A8D 0100 0100 4176 S001A91 0100 0100 0100 WORD 00100H,00100H, 00100H,00100H, 00100H,00100H, 00100H,00100H S001A97 0100 0100 0100 S001A9D 0100 0100 4177 S001AA1 0100 0100 0100 WORD 00100H,00100H, 00100H,00100H, 00100H,00100H, 00100H,00100H S001AA7 0100 0100 0100 S001AAD 0100 0100 4178 S001AB1 0100 0100 0100 WORD 00100H,00100H, 00100H,00100H, 00100H,00100H, 00100H,00100H S001AB7 0100 0100 0100 S001ABD 0100 0100 4179 S001AC1 0100 0100 0100 WORD 00100H,00100H, 00100H,00100H, 00100H,00100H, 00100H,00100H S001AC7 0100 0100 0100 S001ACD 0100 0100 4180 S001AD1 0100 0100 WORD 00100H,00100H 4181 ; 4182 ;************************************************************************ 4183 ;* BG3 polygon ( Y loop ) * 4184 ;* in : (R1) <-- big face wide * 4185 ;* (R2) <-- small " * 4186 ;* (R3) <-- angle * 4187 ;* (R5) <-- center Y pos * 4188 ;* (R7) <-- Y wide * 4189 ;* (R8) <-- center X pos * 4190 ;************************************************************************ 4191 ; 4192 ;-------------- initial ------------------------------------------------- 4193 001AD5 BG3POLY1IN EQU $ 4194 ; 4195 ;-------------- BG3 wide H-DMA buffer initial clear ------------- vvv******* warn :value out of range 4196 S001AD5 F4 3372 IWT R4,#HDMABF ;(R4) <-- BG3 wide H-DMA buffer clear !! 4197 S001AD8 A0 F8 IBT R0,#-8 4198 ; 4199 S001ADA 02 CACHE 4200 ; 4201 ;;;; IWT R12,#0B2H 4202 S001ADB FC 00D2 IWT R12,#0D2H 4203 S001ADE 2F 1D MOVE R13,R15 4204 B3POL1I010 4205 S001AE0 E0 DEC R0 4206 S001AE1 34 STW (R4) 4207 S001AE2 D4 INC R4 4208 S001AE3 3C LOOP 4209 S001AE4 D4 INC R4 4210 ; 4211 ;-------------- scroll counter_H H-DMA buffer initial clear ----- vvv******* warn :value out of range 4212 S001AE5 F4 3516 IWT R4,#HDMABF1 ;(R4) <-- BG3 scroll counter_H H-DMA buffer claer 4213 S001AE8 60 SUB R0 ;[ IBT R0,#0 ] initial start code set 4214 S001AE9 3D 34 STB (R4) 4215 ; 4216 ;-------------- color H-DMA buffer initial clear ---------------- vvv******* warn :value out of range 4217 S001AEB F4 352E IWT R4,#HDMABF1+((1+2)*8) 4218 S001AEE 3D 34 STB (R4) vvv******* warn :value out of range 4219 S001AF0 F4 3576 IWT R4,#HDMABF1+((1+2)*8)+(((1+2)*3)*8) 4220 S001AF3 3D 34 STB (R4) 4221 ; 4222 ;-------------- normal -------------------------------------------------- 4223 001AF5 BG3POLY1 EQU $ 4224 S001AF5 25 WITH R5 ;(R5) <_- center Y pos hosei 4225 S001AF6 3E 68 SUB #8 4226 ; 4227 ;-------------- not display check ------------------------------- 4228 S001AF8 F0 0100 IWT R0,#0100H 4229 S001AFB F4 0200 IWT R4,#0200H 4230 S001AFE 58 ADD R8 4231 S001AFF 64 SUB R4 4232 S001B00 0D 5C' BCS B3POL1012 ;not display ? ( yes:B3POL1012 ) 4233 S001B02 01 NOP 4234 ; 4235 ;-------------- BG3 wide calculate ------------------------------ 4236 S001B03 A0 00' IBT R0,#BANK COS 4237 S001B05 3F DF ROMB ;cos & sin data bank set 4238 ; 4239 S001B07 F0 021D' IWT R0,#COS 4240 S001B0A 53 ADD R3 4241 S001B0B 1E TO R14 ;(R14) <-- cos data address 4242 S001B0C 53 ADD R3 4243 S001B0D EF GETB 4244 S001B0E DE INC R14 4245 S001B0F 3D EF GETBH 4246 S001B11 26 B0 MOVES R6,R0 4247 S001B13 0A 04' BPL B3POL1000 4248 S001B15 4F NOT 4249 ; 4250 S001B16 D0 INC R0 4251 S001B17 20 16 MOVE R6,R0 4252 B3POL1000 4253 S001B19 B1 FROM R1 4254 S001B1A 3D 9F LMULT 4255 S001B1C 24 11 MOVE R1,R4 ;(R1) <-- big face rotation wide 4256 ; 4257 S001B1E F0 029D' IWT R0,#SIN 4258 S001B21 20 1B MOVE R11,R0 ;(R11) <-- sin data address 4259 S001B23 53 ADD R3 4260 S001B24 1E TO R14 4261 S001B25 53 ADD R3 4262 S001B26 EF GETB 4263 S001B27 DE INC R14 4264 S001B28 3D EF GETBH 4265 S001B2A 26 B0 MOVES R6,R0 4266 S001B2C 0A 04' BPL B3POL1002 4267 S001B2E 4F NOT 4268 ; 4269 S001B2F D0 INC R0 4270 S001B30 20 16 MOVE R6,R0 4271 B3POL1002 4272 S001B32 B2 FROM R2 4273 S001B33 3D 9F LMULT 4274 S001B35 B4 FROM R4 4275 S001B36 51 ADD R1 4276 S001B37 4D SWAP 4277 S001B38 0A 02' BPL B3POL1003 4278 S001B3A 9E LOB 4279 ; 4280 S001B3B D0 INC R0 4281 B3POL1003 4282 S001B3C 11 TO R1 ;(R1) <-- big + small face rotation wide 4283 S001B3D 3E 68 SUB #8 4284 ; 4285 ;-------------- BG3 face muki check ----------------------------- 4286 S001B3F F0 0040 IWT R0,#040H 4287 S001B42 73 AND R3 4288 S001B43 50 ADD R0 4289 S001B44 12 TO R2 ;(R2) <-- BG3 type ( 000H or 100H ) 4290 S001B45 50 ADD R0 4291 ; 4292 ;-------------- BG3 wide H-DMA buffer set ----------------------- 4293 S001B46 27 1C MOVE R12,R7 ;(R12) <-- Y wide 4294 ; 4295 ;-------------- uper over check ------------------------- 4296 S001B48 20 B5 MOVES R0,R5 4297 S001B4A 0A 0A' BPL B3POL1010 ;from uper over set ? ( no:B3POL1010 ) 4298 S001B4C 02 CACHE 4299 ; 4300 S001B4D 1C TO R12 ;(R12) <-- new Y wide 4301 S001B4E 5C ADD R12 4302 S001B4F EC DEC R12 4303 S001B50 0B 0C' BMI B3POL1012 ;not display ? ( yes:B3POL1012 ) 4304 S001B52 DC INC R12 4305 ; 4306 S001B53 05 12' BRA B3POL1020 4307 S001B55 60 SUB R0 4308 ; 4309 ;-------------- lower over check ------------------------ 4310 B3POL1010 4311 ;;;; IWT R6,#0B2H ;(R6) <-- max Y pos 4312 S001B56 F6 00D2 IWT R6,#0D2H ;(R6) <-- max Y pos 4313 S001B59 16 TO R6 4314 S001B5A 66 SUB R6 4315 S001B5B 0C 03' BCC B3POL1018 ;not display ? ( no:B3POL1018 ) 4316 S001B5D 26 WITH R6 ;[ dummy ] 4317 ; 4318 B3POL1012 4319 S001B5E 00 STOP 4320 S001B5F 01 NOP 4321 ; 4322 B3POL1018 4323 ;;;; WITH R6 4324 S001B60 5C ADD R12 4325 S001B61 E6 DEC R6 4326 S001B62 0B 03' BMI B3POL1020 ;lower over ? ( no:B3POL1020 ) 4327 S001B64 D6 INC R6 4328 ; 4329 S001B65 2C WITH R12 4330 S001B66 66 SUB R6 4331 ; 4332 ;-------------- polygon data set ------------------------ 4333 B3POL1020 4334 S001B67 20 14 MOVE R4,R0 ;(R4) <-- set center Y pos 4335 S001B69 50 ADD R0 ;x2 vvv******* warn :value out of range 4336 S001B6A F6 3372 IWT R6,#HDMABF 4337 S001B6D 16 TO R6 ;(R6) <-- BG3 wide H-DMA buffer pointer 4338 S001B6E 56 ADD R6 4339 ; 4340 S001B6F B2 FROM R2 4341 S001B70 64 SUB R4 4342 S001B71 51 ADD R1 ;(R0) <-- start polygon set data 4343 ; 4344 S001B72 24 WITH R4 ;(R4) <-- scroll counter_H H-DMA buffer set Y pos 4345 S001B73 5C ADD R12 4346 ; 4347 S001B74 2F 1D MOVE R13,R15 4348 B3POL1030 4349 S001B76 36 STW (R6) 4350 S001B77 D6 INC R6 4351 S001B78 D6 INC R6 4352 S001B79 3C LOOP 4353 S001B7A E0 DEC R0 4354 ; 4355 ;-------------- scroll counter_H H-DMA buffer set --------------- 4356 ; 4357 ;-------------- H-DMA data insert pos check ------------- vvv******* warn :value out of range 4358 S001B7B F6 3516 IWT R6,#HDMABF1 ;(R6) <-- scroll counter_H H-DMA buffer pointer 4359 S001B7E A1 00 IBT R1,#0 ;(R1) <-- H-DMA data Y pos 4360 B3POL1040 4361 S001B80 3D 46 LDB (R6) 4362 S001B82 29 B0 MOVES R9,R0 4363 S001B84 09 0C' BEQ B3POL1050 ;end code ? ( yes:B3POL1050 ) 4364 S001B86 51 ADD R1 4365 ; 4366 S001B87 64 SUB R4 4367 S001B88 0D 08' BCS B3POL1050 ;data change ? ( yes:B3POL1050 ) 4368 S001B8A 54 ADD R4 4369 ; 4370 S001B8B 20 11 MOVE R1,R0 4371 S001B8D D6 INC R6 4372 S001B8E D6 INC R6 4373 S001B8F 05 EF' BRA B3POL1040 4374 S001B91 D6 INC R6 4375 ; 4376 ;-------------- insert H-DMA data max line check -------- 4377 B3POL1050 vvv******* warn :value out of range 4378 S001B92 FA 3527 IWT R10,#HDMABF1+((1+2)*(7-1))-1 4379 ; 4380 S001B95 24 WITH R4 ;(R4) <-- line no.1 4381 S001B96 61 SUB R1 4382 ; 4383 S001B97 B4 FROM R4 4384 S001B98 69 SUB R9 4385 S001B99 08 0E' BNE B3POL1051 ;data delete ? ( no:B3POL1051 ) 4386 S001B9B B6 FROM R6 4387 ; 4388 S001B9C 19 TO R9 ;next data line no add !! 4389 S001B9D 3E 53 ADD #3 4390 S001B9F 3D 49 LDB (R9) 4391 S001BA1 54 ADD R4 4392 S001BA2 3D 39 STB (R9) 4393 S001BA4 DA INC R10 4394 S001BA5 DA INC R10 4395 S001BA6 05 15' BRA B3POL1052 4396 S001BA8 DA INC R10 4397 ; 4398 B3POL1051 4399 S001BA9 21 B1 MOVES R1,R1 4400 S001BAB 09 10' BEQ B3POL1052 ;up data change check ? ( no:B3POL1052 ) 4401 S001BAD B4 FROM R4 4402 ; 4403 S001BAE 69 SUB R9 4404 S001BAF 0D 0C' BCS B3POL1052 ;up data change ? ( no:B3POL1052 ) 4405 S001BB1 B6 FROM R6 4406 ; 4407 S001BB2 19 TO R9 4408 S001BB3 3E 62 SUB #2 4409 S001BB5 28 10 MOVE R0,R8 4410 S001BB7 3D 39 STB (R9) 4411 S001BB9 D9 INC R9 4412 S001BBA 4D SWAP 4413 S001BBB 3D 39 STB (R9) 4414 ; 4415 B3POL1052 4416 S001BBD A9 7F IBT R9,#7FH 4417 S001BBF B9 FROM R9 4418 S001BC0 12 TO R2 4419 S001BC1 64 SUB R4 4420 S001BC2 0A 09' BPL B3POL1060 4421 S001BC4 60 SUB R0 4422 ; 4423 S001BC5 29 14 MOVE R4,R9 4424 S001BC7 B2 FROM R2 4425 S001BC8 4F NOT 4426 S001BC9 D0 INC R0 4427 S001BCA EA DEC R10 4428 S001BCB EA DEC R10 4429 S001BCC EA DEC R10 4430 B3POL1060 4431 S001BCD 20 12 MOVE R2,R0 ;(R2) <-- line no.2 4432 ; 4433 ;-------------- H-DMA data move ------------------------- vvv******* warn :value out of range 4434 S001BCF F9 352A IWT R9,#HDMABF1+((1+2)*7)-1 4435 S001BD2 1C TO R12 4436 S001BD3 BA FROM R10 4437 S001BD4 66 SUB R6 4438 S001BD5 DC INC R12 4439 S001BD6 2F 1D MOVE R13,R15 4440 B3POL1070 4441 S001BD8 3D 4A LDB (R10) 4442 S001BDA 3D 39 STB (R9) 4443 S001BDC EA DEC R10 4444 S001BDD 3C LOOP 4445 S001BDE E9 DEC R9 4446 ; 4447 ;-------------- insert H-DMA data set ------------------- 4448 S001BDF B4 FROM R4 4449 S001BE0 3D 36 STB (R6) 4450 S001BE2 D6 INC R6 4451 S001BE3 28 10 MOVE R0,R8 4452 S001BE5 3D 36 STB (R6) 4453 S001BE7 D6 INC R6 4454 S001BE8 4D SWAP 4455 S001BE9 3D 36 STB (R6) 4456 ; 4457 S001BEB 20 B2 MOVES R0,R2 4458 S001BED 09 0F' BEQ B3POL1080 ;line no.2 set ? ( no:B3POL1080 ) 4459 S001BEF D6 INC R6 4460 ; 4461 S001BF0 3D 36 STB (R6) 4462 S001BF2 20 14 MOVE R4,R0 4463 S001BF4 D6 INC R6 4464 S001BF5 28 10 MOVE R0,R8 4465 S001BF7 3D 36 STB (R6) 4466 S001BF9 D6 INC R6 4467 S001BFA 4D SWAP 4468 S001BFB 3D 36 STB (R6) 4469 S001BFD D6 INC R6 4470 ; 4471 B3POL1080 4472 S001BFE 3D 46 LDB (R6) ;next line no change !! 4473 S001C00 3E 60 SUB #0 4474 S001C02 09 03' BEQ B3POL1082 ;end code ? ( yes:B3POL1082 ) 4475 S001C04 64 SUB R4 4476 ; 4477 S001C05 3D 36 STB (R6) 4478 ; 4479 ;-------------- color H-DMA buffer set -------------------------- 4480 B3POL1082 4481 ; 4482 ;-------------- light shading calculate ----------------- 4483 S001C07 3E A5 10 SMS R5,CWORK10 ;(CWK10) <-- center Y pos 4484 S001C0A 3E A7 11 SMS R7,CWORK11 ;(CWK11) <-- Y wide 4485 ; vvv******* warn :value out of range 4486 S001C0D F9 404A IWT R9,#POLYCOL ;(R9) <-- polygon face color buffer pointer 4487 S001C10 A7 7F IBT R7,#7FH ;(R7) <-- light shading check data 4488 S001C12 A8 60 IBT R8,#60H ;(R8) <-- " 4489 S001C14 F5 00FF IWT R5,#0FFH ;(R5) <-- hi-light check data 4490 S001C17 AA 20 IBT R10,#20H ;(R10) <-- color fade offset data 4491 ; 4492 S001C19 BA FROM R10 4493 S001C1A 53 ADD R3 ;(R0) <-- light vector muki set 4494 ; 4495 S001C1B A1 00 IBT R1,#CWORK0 4496 S001C1D A2 02 IBT R2,#2 4497 B3POL1090 4498 S001C1F 20 13 MOVE R3,R0 4499 S001C21 77 AND R7 4500 S001C22 68 SUB R8 4501 S001C23 0D 1E' BCS B3POL1100 4502 S001C25 60 SUB R0 4503 ; 4504 S001C26 B3 FROM R3 4505 S001C27 9E LOB 4506 S001C28 50 ADD R0 ;x2 4507 S001C29 1E TO R14 4508 S001C2A 5B ADD R11 4509 S001C2B EF GETB 4510 S001C2C DE INC R14 4511 S001C2D F6 00B0 IWT R6,#0B0H 4512 S001C30 3D EF GETBH 4513 S001C32 E0 DEC R0 4514 S001C33 0A 03' BPL B3POL1092 4515 S001C35 D0 INC R0 4516 ; 4517 S001C36 4F NOT 4518 S001C37 D0 INC R0 4519 B3POL1092 4520 S001C38 65 SUB R5 4521 S001C39 0C 04' BCC B3POL1094 4522 S001C3B 55 ADD R5 4523 ; 4524 S001C3C F6 00E0 IWT R6,#0E0H 4525 B3POL1094 4526 S001C3F 3D 9F LMULT 4527 S001C41 B4 FROM R4 4528 S001C42 C0 HIB 4529 ; 4530 B3POL1100 4531 S001C43 16 TO R6 4532 S001C44 5A ADD R10 4533 ; 4534 S001C45 AC 03 IBT R12,#3 4535 S001C47 2F 1D MOVE R13,R15 4536 B3POL1110 4537 S001C49 3D 49 LDB (R9) 4538 S001C4B 4D SWAP 4539 S001C4C 9F FMULT 4540 S001C4D 3F 50 ADC #0 4541 S001C4F 50 ADD R0 ;[ ASL ] 4542 S001C50 50 ADD R0 ;[ ASL ] 4543 S001C51 50 ADD R0 ;[ ASL ] 4544 S001C52 50 ADD R0 ;[ ASL ] 4545 S001C53 14 TO R4 4546 S001C54 50 ADD R0 ;[ ASL ] 4547 ; 4548 S001C55 D9 INC R9 4549 S001C56 3D 49 LDB (R9) 4550 S001C58 4D SWAP 4551 S001C59 9F FMULT 4552 S001C5A 3D 54 ADC R4 ;[ ASL ] 4553 S001C5C 50 ADD R0 ;[ ASL ] 4554 S001C5D 50 ADD R0 ;[ ASL ] 4555 S001C5E 50 ADD R0 ;[ ASL ] 4556 S001C5F 50 ADD R0 ;[ ASL ] 4557 S001C60 14 TO R4 4558 S001C61 50 ADD R0 ;[ ASL ] 4559 ; 4560 S001C62 D9 INC R9 4561 S001C63 3D 49 LDB (R9) 4562 S001C65 4D SWAP 4563 S001C66 9F FMULT 4564 S001C67 3D 54 ADC R4 ;[ ASL ] 4565 S001C69 31 STW (R1) 4566 S001C6A 21 WITH R1 4567 S001C6B 3E 54 ADD #4 4568 S001C6D 3C LOOP 4569 S001C6E D9 INC R9 4570 ; 4571 S001C6F 21 WITH R1 4572 S001C70 3E 6A SUB #4*3-2 4573 S001C72 A0 40 IBT R0,#40H 4574 S001C74 53 ADD R3 4575 ; 4576 S001C75 E2 DEC R2 4577 S001C76 08 A7' BNE B3POL1090 4578 S001C78 01 NOP 4579 ; 4580 S001C79 3D A5 10 LMS R5,CWORK10 ;(R5) <-- center Y pos 4581 S001C7C 3D A7 11 LMS R7,CWORK11 ;(R7) <-- Y wide 4582 ; 4583 ;-------------- H-DMA data set -------------------------- 4584 S001C7F B7 FROM R7 4585 S001C80 03 LSR 4586 S001C81 03 LSR 4587 S001C82 03 LSR 4588 S001C83 18 TO R8 ;(R8) <-- color line no 4589 S001C84 03 LSR 4590 ;;;; IWT R3,#0B1H ;(R3) <-- max line no 4591 S001C85 F3 00D1 IWT R3,#0D2H-1 ;(R3) <-- max line no 4592 S001C88 A4 10 IBT R4,#010H ;(R4) <-- 1 line no 4593 S001C8A AB 00 IBT R11,#CWORK0 ;(R11) <-- light shading color pointer 4594 B3POL1120 4595 ; 4596 ;-------------- set data check ------------------ 4597 S001C8C 25 WITH R5 4598 S001C8D 54 ADD R4 4599 S001C8E E5 DEC R5 4600 S001C8F 0A 06' BPL B3POL1122 ;up over ? ( no:B3POL1122 ) 4601 S001C91 D5 INC R5 4602 ; 4603 S001C92 DB INC R11 4604 S001C93 FF 1D7C' IWT R15,#B3POL1210 ;[ JMP B3POL1210 ] 4605 S001C96 DB INC R11 4606 ; 4607 B3POL1122 4608 S001C97 B3 FROM R3 4609 S001C98 65 SUB R5 4610 S001C99 0A 06' BPL B3POL1130 ;lower over ? ( no:B3POL1130 ) 4611 S001C9B 54 ADD R4 4612 ; 4613 S001C9C 0A 03' BPL B3POL1130 ;set end ? ( no:B3POL1130 ) 4614 S001C9E 01 NOP 4615 ; 4616 S001C9F 00 STOP 4617 S001CA0 01 NOP 4618 ; 4619 ;-------------- H-DMA data insert pos check ----- 4620 B3POL1130 vvv******* warn :value out of range 4621 S001CA1 F6 352E IWT R6,#HDMABF1+((1+2)*8) ;(R6) <-- color H-DMA buffer pointer 4622 S001CA4 A1 00 IBT R1,#0 ;(R1) <-- H-DMA data Y pos 4623 B3POL1150 4624 S001CA6 3D 46 LDB (R6) 4625 S001CA8 29 B0 MOVES R9,R0 4626 S001CAA 09 0C' BEQ B3POL1160 ;end code ? ( yes:B3POL1160 ) 4627 S001CAC 51 ADD R1 4628 ; 4629 S001CAD 65 SUB R5 4630 S001CAE 0D 08' BCS B3POL1160 ;data change ? ( yes:B3POL1160 ) 4631 S001CB0 55 ADD R5 4632 ; 4633 S001CB1 20 11 MOVE R1,R0 4634 S001CB3 D6 INC R6 4635 S001CB4 D6 INC R6 4636 S001CB5 05 EF' BRA B3POL1150 4637 S001CB7 D6 INC R6 4638 ; 4639 ;-------------- insert H-DMA data max line check - 4640 B3POL1160 vvv******* warn :value out of range 4641 S001CB8 FC 3569 IWT R12,#HDMABF1+((1+2)*8)+(((1+2)*3)*7)-(1+2)-1 4642 ; 4643 S001CBB B5 FROM R5 4644 S001CBC 17 TO R7 ;(R7) <-- line no.1 4645 S001CBD 61 SUB R1 4646 ; 4647 S001CBE B7 FROM R7 4648 S001CBF 69 SUB R9 4649 S001CC0 08 0E' BNE B3POL1161 ;data delete ? ( no:B3POL1161 ) 4650 S001CC2 B6 FROM R6 4651 ; 4652 S001CC3 19 TO R9 4653 S001CC4 3E 53 ADD #3 4654 S001CC6 3D 49 LDB (R9) 4655 S001CC8 57 ADD R7 4656 S001CC9 3D 39 STB (R9) 4657 S001CCB DC INC R12 4658 S001CCC DC INC R12 4659 S001CCD 05 22' BRA B3POL1162 4660 S001CCF DC INC R12 4661 ; 4662 B3POL1161 4663 S001CD0 21 B1 MOVES R1,R1 4664 S001CD2 09 1D' BEQ B3POL1162 ;up data change check ? ( no:B3POL1161 ) 4665 S001CD4 B7 FROM R7 4666 ; 4667 S001CD5 64 SUB R4 4668 S001CD6 0D 19' BCS B3POL1162 ;up data change ? ( no:B3POL1162 ) 4669 S001CD8 B6 FROM R6 4670 ; 4671 S001CD9 1A TO R10 4672 S001CDA 3E 62 SUB #2 4673 S001CDC A0 48 IBT R0,#((1+2)*3)*8 4674 S001CDE 19 TO R9 4675 S001CDF 5A ADD R10 4676 S001CE0 4B LDW (R11) 4677 S001CE1 3D 3A STB (R10) 4678 S001CE3 DA INC R10 4679 S001CE4 4D SWAP 4680 S001CE5 3D 3A STB (R10) 4681 S001CE7 BB FROM R11 4682 S001CE8 3E 52 ADD #2 4683 S001CEA 40 LDW (R0) 4684 S001CEB 3D 39 STB (R9) 4685 S001CED D9 INC R9 4686 S001CEE 4D SWAP 4687 S001CEF 3D 39 STB (R9) 4688 ; 4689 B3POL1162 4690 S001CF1 2C 1A MOVE R10,R12 4691 S001CF3 A9 7F IBT R9,#7FH 4692 S001CF5 B9 FROM R9 4693 S001CF6 12 TO R2 4694 S001CF7 67 SUB R7 4695 S001CF8 0A 09' BPL B3POL1170 4696 S001CFA 60 SUB R0 4697 ; 4698 S001CFB 29 17 MOVE R7,R9 4699 S001CFD B2 FROM R2 4700 S001CFE 4F NOT 4701 S001CFF D0 INC R0 4702 S001D00 EA DEC R10 4703 S001D01 EA DEC R10 4704 S001D02 EA DEC R10 4705 B3POL1170 4706 S001D03 20 12 MOVE R2,R0 ;(R2) <-- line no.2 4707 ; 4708 ;-------------- H-DMA data move ----------------- 4709 S001D05 3E A3 23 SMS R3,REG3 ;(R3) save 4710 S001D08 3E A5 25 SMS R5,REG5 ;(R5) " 4711 S001D0B 3E A8 28 SMS R8,REG8 ;(R8) " 4712 ; vvv******* warn :value out of range 4713 S001D0E F9 356C IWT R9,#HDMABF1+((1+2)*8)+(((1+2)*3)*7)-1 4714 S001D11 A0 48 IBT R0,#((1+2)*3)*8 4715 S001D13 15 TO R5 ;(R5) <-- (R6)+((1+2)*3)*5 4716 S001D14 56 ADD R6 4717 S001D15 13 TO R3 ;(R3) <-- (R9)+((1+2)*3)*5 4718 S001D16 59 ADD R9 4719 S001D17 18 TO R8 ;(R8) <-- (R10)+((1+2)*3)*5 4720 S001D18 5A ADD R10 4721 S001D19 BA FROM R10 4722 S001D1A 1C TO R12 4723 S001D1B 66 SUB R6 4724 S001D1C DC INC R12 4725 S001D1D 2F 1D MOVE R13,R15 4726 B3POL1180 4727 S001D1F 3D 4A LDB (R10) 4728 S001D21 3D 39 STB (R9) 4729 S001D23 3D 48 LDB (R8) 4730 S001D25 3D 33 STB (R3) 4731 S001D27 EA DEC R10 4732 S001D28 E9 DEC R9 4733 S001D29 E8 DEC R8 4734 S001D2A 3C LOOP 4735 S001D2B E3 DEC R3 4736 ; 4737 ;-------------- insert H-DMA data set ------------------- 4738 S001D2C 27 10 MOVE R0,R7 4739 S001D2E 3D 36 STB (R6) 4740 S001D30 3D 35 STB (R5) 4741 S001D32 D6 INC R6 4742 S001D33 D5 INC R5 4743 S001D34 4B LDW (R11) 4744 S001D35 20 19 MOVE R9,R0 4745 S001D37 3D 36 STB (R6) 4746 S001D39 D6 INC R6 4747 S001D3A 4D SWAP 4748 S001D3B 3D 36 STB (R6) 4749 S001D3D DB INC R11 4750 S001D3E DB INC R11 4751 S001D3F 4B LDW (R11) 4752 S001D40 20 1A MOVE R10,R0 4753 S001D42 3D 35 STB (R5) 4754 S001D44 D5 INC R5 4755 S001D45 4D SWAP 4756 S001D46 3D 35 STB (R5) 4757 S001D48 D6 INC R6 4758 ; 4759 S001D49 20 B2 MOVES R0,R2 4760 S001D4B 09 1B' BEQ B3POL1190 ;line no.2 set ? ( no:B3POL1190 ) 4761 S001D4D D5 INC R5 4762 ; 4763 S001D4E 3D 36 STB (R6) 4764 S001D50 3D 35 STB (R5) 4765 S001D52 20 17 MOVE R7,R0 4766 S001D54 D6 INC R6 4767 S001D55 D5 INC R5 4768 S001D56 29 10 MOVE R0,R9 4769 S001D58 3D 36 STB (R6) 4770 S001D5A D6 INC R6 4771 S001D5B 4D SWAP 4772 S001D5C 3D 36 STB (R6) 4773 S001D5E 2A 10 MOVE R0,R10 4774 S001D60 3D 35 STB (R5) 4775 S001D62 D5 INC R5 4776 S001D63 4D SWAP 4777 S001D64 3D 35 STB (R5) 4778 S001D66 D6 INC R6 4779 S001D67 D5 INC R5 4780 ; 4781 B3POL1190 4782 S001D68 3D 46 LDB (R6) ;next line no change !! 4783 S001D6A 3E 60 SUB #0 4784 S001D6C 09 05' BEQ B3POL1200 ;end code ? ( yes:B3POL1200 ) 4785 S001D6E 67 SUB R7 4786 ; 4787 S001D6F 3D 36 STB (R6) 4788 S001D71 3D 35 STB (R5) 4789 ; 4790 B3POL1200 4791 S001D73 3D A3 23 LMS R3,REG3 ;(R3) load 4792 S001D76 3D A5 25 LMS R5,REG5 ;(R5) " 4793 S001D79 3D A8 28 LMS R8,REG8 ;(R8) " 4794 ; 4795 B3POL1210 4796 S001D7C E8 DEC R8 4797 S001D7D 09 05' BEQ B3POL1220 4798 S001D7F DB INC R11 4799 ; 4800 S001D80 FF 1C8C' IWT R15,#B3POL1120 ;[ JMP B3POL1120 ] 4801 S001D83 DB INC R11 4802 ; 4803 B3POL1220 4804 S001D84 00 STOP 4805 S001D85 01 NOP 4806 ; 4807 ;************************************************************************ 4808 ;* map bitmap buffer clear * 4809 ;************************************************************************ 4810 ; 4811 001D86 MPBFCLR EQU $ vvv******* warn :value out of range 4812 S001D86 F1 2800 IWT R1,#MPBITMAP ;(R1) <-- map bitmap buffer 4813 S001D89 A0 00 IBT R0,#0 4814 S001D8B FC 2300 IWT R12,#4600H/2 4815 ; 4816 S001D8E 02 CACHE 4817 ; 4818 S001D8F 2F 1D MOVE R13,R15 4819 MPBCL010 4820 S001D91 31 STW (R1) 4821 S001D92 D1 INC R1 4822 S001D93 3C LOOP 4823 S001D94 D1 INC R1 4824 ; 4825 S001D95 00 STOP 4826 S001D96 01 NOP 4827 ; 4828 ;************************************************************************ 4829 ;* map bitmap buffer convert * 4830 ;* in : (R0) <-- convert status data address(B) * 4831 ;* (R14) <-- " (L,H)* 4832 ;************************************************************************ 4833 ; 4834 001D97 MPBFCNV EQU $ 4835 S001D97 3F DF ROMB ;convert status data address(B) set 4836 S001D99 2E 1E MOVE R14,R14 ; " (L,H) set 4837 ; 4838 S001D9B F8 0260 IWT R8,#280H-20H ;(R8) <-- convert address change data 4839 S001D9E A9 10 IBT R9,#10H ;(R9) <-- 1 chara loop no vvv******* warn :value out of range 4840 S001DA0 FA 6E00 IWT R10,#MPCNVBF ;(R10) <-- convert data set buffer 4841 S001DA3 FD 1DB7' IWT R13,#MPBCV030 4842 ; 4843 S001DA6 02 CACHE 4844 ; 4845 MPBCV010 4846 S001DA7 EF GETB 4847 S001DA8 DE INC R14 4848 S001DA9 20 11 MOVE R1,R0 ;(R1) <-- up convert bitmap buffer pointer 4849 S001DAB 03 LSR 4850 S001DAC 0D 1A' BCS MPBCV040 ;end ? ( yes:MPBCV040 ) 4851 S001DAE 21 WITH R1 4852 ; 4853 S001DAF 3D EF GETBH 4854 S001DB1 DE INC R14 4855 ; 4856 S001DB2 12 TO R2 ;(R2) <-- number of chara 4857 S001DB3 EF GETB 4858 S001DB4 DE INC R14 4859 ; 4860 MPBCV020 4861 S001DB5 29 1C MOVE R12,R9 4862 MPBCV030 4863 S001DB7 41 LDW (R1) 4864 S001DB8 3A STW (R10) 4865 S001DB9 D1 INC R1 4866 S001DBA D1 INC R1 4867 S001DBB DA INC R10 4868 S001DBC 3C LOOP 4869 S001DBD DA INC R10 4870 ; 4871 S001DBE 21 WITH R1 4872 S001DBF 58 ADD R8 4873 ; 4874 S001DC0 E2 DEC R2 4875 S001DC1 08 F3' BNE MPBCV020+1 4876 S001DC3 29 1C MOVE R12,R9 ;[ dummy ] 4877 ; 4878 S001DC5 05 E1' BRA MPBCV010+1 4879 S001DC7 EF GETB ;[ dummy ] 4880 ; 4881 MPBCV040 4882 S001DC8 00 STOP 4883 S001DC9 01 NOP 4884 ; 4885 ;************************************************************************ 4886 ;* map mode 7 pars data set * 4887 ;************************************************************************ 4888 ; 4889 001DCA MPPARSST EQU $ 4890 ; 4891 ;---------------------------------------------------------------- 4892 ;- cos & sin data get - 4893 ;---------------------------------------------------------------- 4894 S001DCA A0 00' IBT R0,#BANK COS 4895 S001DCC 3F DF ROMB 4896 ; 4897 S001DCE 3D F0 0CA0 LM R0,CMPANGLE 4898 S001DD2 1B TO R11 ;(R11) <-- angle 4899 S001DD3 50 ADD R0 4900 ; 4901 S001DD4 F0 021D' IWT R0,#COS 4902 S001DD7 1E TO R14 4903 S001DD8 5B ADD R11 4904 S001DD9 EF GETB 4905 S001DDA DE INC R14 4906 S001DDB F6 00E8 IWT R6,#0E8H ;(R6) <-- mode 7 screen zoom flag set 4907 S001DDE 3D EF GETBH 4908 S001DE0 3D 9F LMULT 4909 S001DE2 9E LOB 4910 S001DE3 4D SWAP 4911 S001DE4 24 WITH R4 4912 S001DE5 C0 HIB 4913 S001DE6 11 TO R1 ;(R1) <-- cos data 4914 S001DE7 C4 OR R4 4915 ; 4916 S001DE8 F0 029D' IWT R0,#SIN 4917 S001DEB 1E TO R14 4918 S001DEC 5B ADD R11 4919 S001DED EF GETB 4920 S001DEE DE INC R14 4921 S001DEF 3D EF GETBH 4922 S001DF1 3D 9F LMULT 4923 S001DF3 9E LOB 4924 S001DF4 4D SWAP 4925 S001DF5 24 WITH R4 4926 S001DF6 C0 HIB 4927 S001DF7 12 TO R2 ;(R2) <-- sin data 4928 S001DF8 C4 OR R4 4929 ; 4930 ;---------------------------------------------------------------- 4931 ;- mode 7 pars data calculate set - 4932 ;---------------------------------------------------------------- 4933 MPWT0000 4934 S001DF9 A0 00' IBT R0,#BANK PARSDT 4935 S001DFB 3F DF ROMB 4936 S001DFD FE 2696' IWT R14,#PARSDT ;(R14) <-- pars data address 4937 ; 4938 S001E00 F7 0CA8 IWT R7,#CMPHDMAB0-2 ;(R7) <-- X cos,sin data set RAM pointer 4939 S001E03 F8 0E66 IWT R8,#CMPHDMAB2-4 ;(R8) <-- Y -sin,cos " 4940 S001E06 A9 06 IBT R9,#6 ;(R9) <-- " pointer add data 4941 S001E08 FB 0300 IWT R11,#PARSY ;(R11) <-- Y zoom data 4942 ; 4943 S001E0B AC 70 IBT R12,#70H 4944 ; 4945 S001E0D 02 CACHE 4946 ; 4947 S001E0E 2F 1D MOVE R13,R15 4948 MPWT0002 4949 S001E10 EF GETB 4950 S001E11 DE INC R14 4951 S001E12 D7 INC R7 ;X cos data set RAM pointer up !! 4952 S001E13 D7 INC R7 4953 S001E14 28 WITH R8 4954 S001E15 59 ADD R9 4955 S001E16 21 16 MOVE R6,R1 ;(R6) <-- cos data 4956 S001E18 3D EF GETBH 4957 S001E1A DE INC R14 4958 S001E1B 20 15 MOVE R5,R0 ;(R5) <-- pars data 4959 ; 4960 S001E1D 3D 9F LMULT ;data x cos 4961 S001E1F 9E LOB 4962 S001E20 4D SWAP 4963 S001E21 24 WITH R4 4964 S001E22 C0 HIB 4965 S001E23 C4 OR R4 4966 S001E24 37 STW (R7) ;X cos data set 4967 S001E25 D7 INC R7 4968 S001E26 D7 INC R7 4969 ; 4970 S001E27 2B 16 MOVE R6,R11 4971 S001E29 3D 9F LMULT 4972 S001E2B 9E LOB 4973 S001E2C 4D SWAP 4974 S001E2D 24 WITH R4 4975 S001E2E C0 HIB 4976 S001E2F C4 OR R4 4977 S001E30 38 STW (R8) ;Y cos data set 4978 ; 4979 S001E31 25 10 MOVE R0,R5 ;(R0) <-- pars data 4980 S001E33 22 16 MOVE R6,R2 ;(R6) <-- sin data 4981 S001E35 3D 9F LMULT ;data x cos 4982 S001E37 9E LOB 4983 S001E38 4D SWAP 4984 S001E39 24 WITH R4 4985 S001E3A C0 HIB 4986 S001E3B C4 OR R4 4987 S001E3C 20 16 MOVE R6,R0 ;(R6) <-- X sin data 4988 ; 4989 S001E3E 4F NOT 4990 S001E3F D0 INC R0 4991 S001E40 E8 DEC R8 4992 S001E41 E8 DEC R8 4993 S001E42 38 STW (R8) ;Y -sin data set 4994 ; 4995 S001E43 BB FROM R11 4996 S001E44 3D 9F LMULT 4997 S001E46 9E LOB 4998 S001E47 4D SWAP 4999 S001E48 24 WITH R4 5000 S001E49 C0 HIB 5001 S001E4A C4 OR R4 5002 S001E4B 3C LOOP 5003 S001E4C 37 STW (R7) ;-sin data set 5004 ; 5005 S001E4D 00 STOP 5006 S001E4E 01 NOP 5007 ; 5008 ;************************************************************************ 5009 ;* map bitmap plot * 5010 ;************************************************************************ 5011 ; 5012 ;-------------- map OBJ name -------------------------------------------- 5013 000001 YAMA_H EQU 01H 5014 000002 YAMA_M EQU 02H 5015 000003 YAMA_L EQU 03H 5016 000004 TOWER_T EQU 04H 5017 000005 TOWER_G EQU 05H 5018 000006 KAZAN EQU 06H 5019 000007 SML_YAMA EQU 07H 5020 000008 DAI EQU 08H 5021 000009 SML_TOWER EQU 09H 5022 00000A WID_TOWER EQU 0AH 5023 00000B MIN_YAMA EQU 0BH 5024 00000C SAKU EQU 0CH 5025 00000D YANE EQU 0DH 5026 00000E HOLL EQU 0EH 5027 00000F TREE_1 EQU 0FH 5028 000010 TREE_2 EQU 10H 5029 000011 TREE_3 EQU 11H 5030 000012 TREE_4 EQU 12H 5031 000013 TREE_5 EQU 13H 5032 000014 IWA EQU 14H 5033 000015 KUMO EQU 15H 5034 000016 LAPUTA EQU 16H 5035 000017 KEBLE EQU 17H 5036 000018 KUSA EQU 18H 5037 000019 FLOWER EQU 19H 5038 00001A ISHI EQU 1AH 5039 00001B LOPE EQU 1BH 5040 00001C SMOKE_1 EQU 1CH 5041 00001D SMOKE_2 EQU 1DH 5042 00001E SMOKE_3 EQU 1EH 5043 00001F SMOKE_4 EQU 1FH 5044 000020 SMOKE_5 EQU 20H 5045 000021 SMOKE_6 EQU 21H 5046 000022 SMOKE_7 EQU 22H 5047 000023 KAMO_1 EQU 23H 5048 000024 KAMO_2 EQU 24H 5049 000025 KAMO_3 EQU 25H 5050 000026 KAMO_4 EQU 26H 5051 000027 KAMO_5 EQU 27H 5052 000028 KAMO_6 EQU 28H 5053 000029 KAMO_7 EQU 29H 5054 00002A KAMO_8 EQU 2AH 5055 00002B PLAYER_01 EQU 2BH 5056 00002C PLAYER_02 EQU 2CH 5057 00002D PLAYER_03 EQU 2DH 5058 00002E PLAYER_04 EQU 2EH 5059 00002F PLAYER_05 EQU 2FH 5060 000030 PLAYER_06 EQU 30H 5061 000031 PLAYER_07 EQU 31H 5062 000032 PLAYER_08 EQU 32H 5063 000033 PLAYER_09 EQU 33H 5064 000034 PLAYER_10 EQU 34H 5065 000035 PLAYER_11 EQU 35H 5066 000036 PLAYER_12 EQU 36H 5067 000037 PLAYER_13 EQU 37H 5068 000038 PLAYER_14 EQU 38H 5069 000039 PLAYER_15 EQU 39H 5070 00003A PLAYER_16 EQU 3AH 5071 00003B PLAYER_17 EQU 3BH 5072 00003C PLAYER_18 EQU 3CH 5073 00003D PLAYER_19 EQU 3DH 5074 00003E PLAYER_20 EQU 3EH 5075 00003F PLAYER_21 EQU 3FH 5076 000040 PLAYER_22 EQU 40H 5077 000041 PLAYER_23 EQU 41H 5078 000042 PLAYER_24 EQU 42H 5079 000043 PLAYER_25 EQU 43H 5080 000044 PLAYER_26 EQU 44H 5081 000045 PLAYER_27 EQU 45H 5082 000046 PLAYER_28 EQU 46H 5083 000047 PLAYER_29 EQU 47H 5084 000048 PLAYER_30 EQU 48H 5085 000049 PLAYER_31 EQU 49H 5086 00004A PLAYER_32 EQU 4AH 5087 00004B PLAYER_33 EQU 4BH 5088 00004C PLAYER_34 EQU 4CH 5089 00004D PLAYER_35 EQU 4DH 5090 00004E PLAYER_36 EQU 4EH 5091 00004F PLAYER_37 EQU 4FH 5092 000050 PLAYER_38 EQU 50H 5093 000051 PLAYER_39 EQU 51H 5094 000052 PLAYER_40 EQU 52H 5095 000053 PLAYER_41 EQU 53H 5096 000054 PLAYER_42 EQU 54H 5097 000055 PLAYER_43 EQU 55H 5098 000056 PLAYER_44 EQU 56H 5099 000057 PLAYER_45 EQU 57H 5100 000058 PLAYER_46 EQU 58H 5101 000059 PLAYER_47 EQU 59H 5102 00005A PLAYER_48 EQU 5AH 5103 00005B AYASHI_H EQU 5BH 5104 00005C AYASHI_L EQU 5CH 5105 00005D AYASHI_2 EQU 5DH 5106 00005E BIG_KINOKO EQU 5EH 5107 00005F SML_KINOKO EQU 5FH 5108 000060 ZENMAI EQU 60H 5109 000061 BIG_CRYSTL EQU 61H 5110 000062 SML_CRYSTL EQU 62H 5111 000063 ISHI_T_1 EQU 63H 5112 000064 ISHI_T_2 EQU 64H 5113 000065 MIN_TOWER EQU 65H 5114 000066 KINOKO_2 EQU 66H 5115 000067 KINOKO_3 EQU 67H 5116 000068 KINOKO_4 EQU 68H 5117 000069 KINOKO_6 EQU 69H 5118 00006A KINOKO_7 EQU 6AH 5119 00006B HOLL_MASK EQU 6BH 5120 00006C AYA_WOD_L EQU 6CH 5121 00006D AYA_WOD_S EQU 6DH 5122 00006E IWA_L EQU 6EH 5123 00006F IWA_S EQU 6FH 5124 000070 J_TOWR_L EQU 70H 5125 000071 J_TOWR_S EQU 71H 5126 000072 GY_TOWR EQU 72H 5127 000073 KUPA_TOWR EQU 73H 5128 000074 BOOM_1 EQU 74H 5129 000075 BOOM_2 EQU 75H 5130 000076 BOOM_3 EQU 76H 5131 000077 BOOM_4 EQU 77H 5132 000078 BOOM_5 EQU 78H 5133 000079 BOOM_6 EQU 79H 5134 00007A BOOM_7 EQU 7AH 5135 00007B BOOM_8 EQU 7BH 5136 00007C BOOM_9 EQU 7CH 5137 00007D BOOM_A EQU 7DH 5138 00007E HATA_01 EQU 7EH 5139 00007F HATA_02 EQU 7FH 5140 000080 HATA_03 EQU 80H 5141 000081 HATA_04 EQU 81H 5142 000082 HATA_05 EQU 82H 5143 000083 HATA_06 EQU 83H 5144 000084 HATA_07 EQU 84H 5145 000085 HATA_08 EQU 85H 5146 000086 HATA_09 EQU 86H 5147 000087 HATA_0A EQU 87H 5148 000088 HATA_0B EQU 88H 5149 000089 HATA_0C EQU 89H 5150 00008A BRK_LPUT EQU 8AH 5151 00008B YS_FRSH0 EQU 8BH 5152 00008C YS_FRSH1 EQU 8CH 5153 00008D YS_FRSH2 EQU 8DH 5154 00008E YS_FRSH3 EQU 8EH 5155 00008F YS_FRSH4 EQU 8FH 5156 ; 5157 ; 5158 001E4F MPWRITE EQU $ 5159 ; 5160 ;---------------------------------------------------------------- 5161 ;- cos & sin data get - 5162 ;---------------------------------------------------------------- 5163 S001E4F A0 00' IBT R0,#BANK COS 5164 S001E51 3F DF ROMB 5165 ; 5166 S001E53 3D F0 0CA0 LM R0,CMPANGLE 5167 S001E57 1B TO R11 ;(R11) <-- angle 5168 S001E58 50 ADD R0 5169 ; 5170 S001E59 F0 021D' IWT R0,#COS 5171 S001E5C 1E TO R14 5172 S001E5D 5B ADD R11 5173 S001E5E EF GETB 5174 S001E5F DE INC R14 5175 S001E60 3D EF GETBH 5176 S001E62 20 11 MOVE R1,R0 ;(R1) <-- cos data 5177 ; 5178 S001E64 F0 029D' IWT R0,#SIN 5179 S001E67 1E TO R14 5180 S001E68 5B ADD R11 5181 S001E69 EF GETB 5182 S001E6A DE INC R14 5183 S001E6B 3D EF GETBH 5184 S001E6D 20 12 MOVE R2,R0 ;(R2) <-- sin data 5185 ; 5186 ;---------------------------------------------------------------- 5187 ;- 2D convert position calculate - 5188 ;---------------------------------------------------------------- 5189 S001E6F A0 00' IBT R0,#BANK PARSDV 5190 S001E71 3F DF ROMB 5191 ; 5192 S001E73 F9 102D IWT R9,#CMPOBJXPS ;(R9) <-- point data pointer 5193 S001E76 FA 1284 IWT R10,#CMPWOBJXPS ;(R10) <-- 2D convert X,Y pos data pointer 5194 S001E79 FB 14DC IWT R11,#CMPWOBJZPS ;(R11) <-- " Z " 5195 ; 5196 S001E7C 3D FC 102A LM R12,CMPOBJSTN ;(R12) <-- number of point 5197 ; 5198 S001E80 02 CACHE 5199 ; 5200 S001E81 2F 1D MOVE R13,R15 ;(R13) <-- loop address 5201 MPWT0010 5202 ; 5203 ;-------------- position rotation ----------------------- 5204 S001E83 21 16 MOVE R6,R1 ;(R6) <-- cos data 5205 ; 5206 S001E85 3D 49 LDB (R9) 5207 S001E87 95 SEX 5208 S001E88 D9 INC R9 5209 S001E89 20 15 MOVE R5,R0 ;(R5) <-- X pos 5210 S001E8B 3D 9F LMULT 5211 S001E8D 24 17 MOVE R7,R4 ;(R7) <-- (X * cos) 5212 S001E8F 3D 49 LDB (R9) 5213 S001E91 95 SEX 5214 S001E92 20 13 MOVE R3,R0 ;(R3) <-- Z pos 5215 S001E94 3D 9F LMULT 5216 S001E96 24 18 MOVE R8,R4 ;(R8) <-- (Z * cos) 5217 ; 5218 S001E98 22 16 MOVE R6,R2 ;(R6) <-- sin data 5219 ; 5220 S001E9A B3 FROM R3 5221 S001E9B 3D 9F LMULT ;(R4) <-- (Z * sin) 5222 S001E9D B4 FROM R4 5223 S001E9E 57 ADD R7 ;(R0) <-- (X * cos) + (Z * sin) 5224 S001E9F FE 0080 IWT R14,#080H 5225 S001EA2 5E ADD R14 5226 S001EA3 4D SWAP 5227 S001EA4 13 TO R3 ;(R3) <-- rotation X pos 5228 S001EA5 95 SEX 5229 ; 5230 S001EA6 B5 FROM R5 5231 S001EA7 3D 9F LMULT ;(R4) <-- (X * sin) 5232 S001EA9 B8 FROM R8 5233 S001EAA 64 SUB R4 ;(R0) <-- (Z * cos) - (X * sin) 5234 S001EAB 5E ADD R14 5235 S001EAC 4D SWAP 5236 S001EAD 95 SEX 5237 S001EAE F5 0080 IWT R5,#CENTZ 5238 S001EB1 55 ADD R5 5239 S001EB2 3D 3B STB (R11) ;rotation Z pos set 5240 ; 5241 ;-------------- 2D pos calculate ------------------------ 5242 S001EB4 50 ADD R0 5243 S001EB5 FE 2776' IWT R14,#PARSDV 5244 S001EB8 1E TO R14 ;(R14) <-- pars div data address 5245 S001EB9 5E ADD R14 5246 ; 5247 S001EBA D9 INC R9 5248 S001EBB 3D 49 LDB (R9) 5249 S001EBD 17 TO R7 ;(R7) <-- Y pos 5250 S001EBE 95 SEX 5251 S001EBF 0A 05' BPL MPWT0011 ;chika ? ( no:MPWT0011 ) 5252 S001EC1 D9 INC R9 5253 ; 5254 ;-------------- chika Z pos change !! ----------- 5255 S001EC2 B7 FROM R7 5256 S001EC3 3D 3B STB (R11) 5257 S001EC5 D7 INC R7 ;[ 0000- <-- FFFF- ] 5258 MPWT0011 5259 S001EC6 D9 INC R9 5260 ; 5261 S001EC7 16 TO R6 ;(R6) <-- pars div data 5262 S001EC8 EF GETB 5263 S001EC9 DE INC R14 5264 ; 5265 S001ECA 3D F0 102A LM R0,CMPOBJSTN 5266 S001ECE 6C SUB R12 5267 S001ECF DB INC R11 5268 S001ED0 3D 3B STB (R11) ;Z pos sort index set 5269 S001ED2 DB INC R11 5270 ; 5271 S001ED3 26 WITH R6 5272 S001ED4 3D EF GETBH 5273 ; 5274 S001ED6 B3 FROM R3 5275 S001ED7 9E LOB 5276 S001ED8 4D SWAP 5277 S001ED9 9F FMULT 5278 S001EDA A4 20 IBT R4,#20H 5279 S001EDC 54 ADD R4 5280 S001EDD 50 ADD R0 ;[ ASL ] 5281 S001EDE 50 ADD R0 ;[ ASL ] 5282 S001EDF 4D SWAP 5283 S001EE0 95 SEX 5284 S001EE1 A4 70 IBT R4,#MPCENTX 5285 S001EE3 54 ADD R4 5286 S001EE4 3D 3A STB (R10) ;2D convert X pos set 5287 S001EE6 DA INC R10 5288 ; 5289 S001EE7 F0 01B9 IWT R0,#PARSYP 5290 S001EEA 50 ADD R0 ;[ ASL ] 5291 S001EEB 50 ADD R0 ;[ ASL ] 5292 S001EEC 9F FMULT 5293 S001EED F4 FEC0 IWT R4,#MPCENTY 5294 S001EF0 3D 54 ADC R4 5295 S001EF2 67 SUB R7 5296 S001EF3 3D 3A STB (R10) ;2D convert Y pos set 5297 S001EF5 DA INC R10 5298 ; 5299 S001EF6 DA INC R10 5300 S001EF7 3C LOOP 5301 S001EF8 DA INC R10 5302 ; 5303 ;-------------- Z pos sort -------------------------------------- 5304 S001EF9 FB 1608 IWT R11,#CMPWORK ;(R11) <-- stack pointer 5305 S001EFC 2B 1C MOVE R12,R11 ;(R12) <-- search end check data 5306 S001EFE F1 14DC IWT R1,#CMPWOBJZPS ;(R1) <-- check start pointer 5307 S001F01 3D F0 102A LM R0,CMPOBJSTN 5308 S001F05 E0 DEC R0 ;[-1] 5309 S001F06 50 ADD R0 ;[x2] 5310 S001F07 12 TO R2 ;(R2) <-- " end " 5311 S001F08 51 ADD R1 5312 ; 5313 S001F09 3D 41 LDB (R1) ;player Z pos 5314 S001F0B E0 DEC R0 5315 S001F0C 90 SBK 5316 MPWT0012 5317 S001F0D 21 13 MOVE R3,R1 ;(R3) <-- (R1) 5318 S001F0F 22 14 MOVE R4,R2 ;(R4) <-- (R2) 5319 S001F11 B1 FROM R1 5320 S001F12 52 ADD R2 5321 S001F13 03 LSR 5322 S001F14 03 LSR 5323 S001F15 50 ADD R0 5324 S001F16 15 TO R5 ;(R5) <-- search data 5325 S001F17 3D 40 LDB (R0) 5326 ; 5327 ;-------------- max search ------------------------------ 5328 MPWT0014 5329 S001F19 17 TO R7 ;(R7) <-- max search data 5330 S001F1A 3D 43 LDB (R3) 5331 S001F1C B5 FROM R5 5332 S001F1D 67 SUB R7 5333 S001F1E 0D 0A' BCS MPWT0030 ;max search end ? ( yes:MPWT0030 ) 5334 S001F20 D3 INC R3 5335 ; 5336 MPWT0020 5337 S001F21 D3 INC R3 5338 S001F22 17 TO R7 ;(R7) <-- max search data 5339 S001F23 3D 43 LDB (R3) 5340 S001F25 B5 FROM R5 5341 S001F26 67 SUB R7 5342 S001F27 0C F8' BCC MPWT0020 ;max search end ? ( no:MPWT0020 ) 5343 S001F29 D3 INC R3 5344 ; 5345 MPWT0030 5346 S001F2A E3 DEC R3 5347 ; 5348 ;-------------- min serach ------------------------------ 5349 S001F2B 3D 44 LDB (R4) 5350 S001F2D 65 SUB R5 5351 S001F2E 0D 09' BCS MPWT0050 ;min search end ? ( yes:MPWT0050 ) 5352 S001F30 55 ADD R5 5353 ; 5354 MPWT0040 5355 S001F31 E4 DEC R4 5356 S001F32 E4 DEC R4 5357 S001F33 3D 44 LDB (R4) 5358 S001F35 65 SUB R5 5359 S001F36 0C F9' BCC MPWT0040 ;min search end ? ( no:MPWT0040 ) 5360 S001F38 55 ADD R5 5361 ; 5362 MPWT0050 5363 S001F39 20 16 MOVE R6,R0 ;(R6) <-- min search data 5364 ; 5365 ;-------------- data change check ----------------------- 5366 S001F3B B4 FROM R4 5367 S001F3C 63 SUB R3 5368 S001F3D 0C 1A' BCC MPWT0062 ;data change ? ( no:MPWT0062 ) 5369 S001F3F B7 FROM R7 5370 ; 5371 S001F40 3D 34 STB (R4) 5372 S001F42 B6 FROM R6 5373 S001F43 3D 33 STB (R3) 5374 S001F45 D3 INC R3 5375 S001F46 D4 INC R4 5376 S001F47 18 TO R8 5377 S001F48 3D 44 LDB (R4) 5378 S001F4A 3D 43 LDB (R3) 5379 S001F4C 3D 34 STB (R4) 5380 S001F4E B8 FROM R8 5381 S001F4F 3D 33 STB (R3) 5382 ; 5383 S001F51 D3 INC R3 5384 S001F52 E4 DEC R4 5385 S001F53 E4 DEC R4 5386 S001F54 E4 DEC R4 5387 ; 5388 MPWT0060 5389 S001F55 B4 FROM R4 5390 S001F56 63 SUB R3 5391 S001F57 0D C0' BCS MPWT0014 ;next data change check ? ( yes:MPWT0014 ) 5392 MPWT0062 5393 S001F59 B1 FROM R1 5394 ; 5395 ;-------------- data serach stack set check ------------- 5396 S001F5A 64 SUB R4 5397 S001F5B 0D 08' BCS MPWT0070 ;stack set ? ( no:MPWT0070 ) 5398 S001F5D B1 FROM R1 5399 ; 5400 S001F5E 3B STW (R11) 5401 S001F5F DB INC R11 5402 S001F60 DB INC R11 5403 S001F61 B4 FROM R4 5404 S001F62 3B STW (R11) 5405 S001F63 DB INC R11 5406 S001F64 DB INC R11 5407 ; 5408 MPWT0070 5409 S001F65 B3 FROM R3 5410 S001F66 62 SUB R2 5411 S001F67 0D 08' BCS MPWT0080 ;stack set ? ( no:MPWT0080 ) 5412 S001F69 B3 FROM R3 5413 ; 5414 S001F6A 3B STW (R11) 5415 S001F6B DB INC R11 5416 S001F6C DB INC R11 5417 S001F6D B2 FROM R2 5418 S001F6E 3B STW (R11) 5419 S001F6F DB INC R11 5420 S001F70 DB INC R11 5421 MPWT0080 5422 S001F71 EB DEC R11 5423 S001F72 BB FROM R11 5424 S001F73 6C SUB R12 5425 S001F74 0C 0B' BCC MPWT0090 ;sort end ? ( yes:MPWT0090 ) 5426 S001F76 EB DEC R11 5427 ; 5428 S001F77 12 TO R2 ;(R1) <-- check start pointer 5429 S001F78 4B LDW (R11) 5430 S001F79 EB DEC R11 5431 S001F7A EB DEC R11 5432 S001F7B 11 TO R1 ;(R2) <-- " end " 5433 S001F7C 4B LDW (R11) 5434 S001F7D 05 8F' BRA MPWT0012+1 5435 S001F7F 21 13 MOVE R3,R1 ;[ dummy ] 5436 ; 5437 ;-------------- map OBJ write ----------------------------------- 5438 MPWT0090 5439 ; 5440 ; 93/07/26 angle roation delete ( then (R10) free !! ) 5441 ; 5442 S001F81 FB 14DD IWT R11,#CMPSORTIDX ;(R11) <-- Z pos sort index pointer 5443 ; 5444 S001F84 3D FC 102A LM R12,CMPOBJSTN ;number of point 5445 ; 5446 S001F88 02 CACHE 5447 ; 5448 S001F89 2F 1D MOVE R13,R15 5449 MPWT0100 5450 S001F8B A0 00' IBT R0,#BANK MPOBJDIN 5451 S001F8D 3F DF ROMB 5452 ; 5453 S001F8F 3D 4B LDB (R11) 5454 S001F91 50 ADD R0 ;x4 5455 S001F92 50 ADD R0 ; 5456 S001F93 F1 1284 IWT R1,#CMPWOBJXPS 5457 S001F96 11 TO R1 ;(R1) <-- map OBJ 2D pos pointer 5458 S001F97 51 ADD R1 5459 S001F98 F2 102C IWT R2,#CMPOBJTYP 5460 S001F9B 52 ADD R2 ;(R0) <-- map OBJ type no. pointer 5461 S001F9C 3D 40 LDB (R0) 5462 S001F9E E0 DEC R0 5463 S001F9F 0A 05' BPL MPWT0102 ;set ok OBJ ? ( yes:MPWT0102 ) 5464 S001FA1 50 ADD R0 ;x2 5465 ; 5466 S001FA2 FF 207E' IWT R15,#MPWT0140+1 ;[ JMP MPWT0140+1 ] 5467 S001FA5 DB INC R11 ;[ dummy ] 5468 ; 5469 ;-------------- OBJ set --------------------------------- 5470 MPWT0102 5471 S001FA6 FE 214B' IWT R14,#MPOBJDIN 5472 S001FA9 1E TO R14 ;(R14) <-- map OBJ status data index address 5473 S001FAA 5E ADD R14 5474 S001FAB EF GETB 5475 S001FAC DE INC R14 5476 ; 5477 S001FAD 3E AB 2B SMS R11,REG11 ;(R11) save 5478 S001FB0 3E AC 2C SMS R12,REG12 ;(R12) save 5479 ; 5480 S001FB3 F7 0080 IWT R7,#080H ;(R7) <-- chara Y wide buffer 5481 ; 5482 S001FB6 3D EF GETBH 5483 ; 5484 S001FB8 20 1E MOVE R14,R0 ;(R14) <-- map OBJ status data address 5485 ; 5486 S001FBA 1B TO R11 ;(R11) <-- 2D X pos 5487 S001FBB 3D 41 LDB (R1) 5488 S001FBD D1 INC R1 5489 S001FBE 12 TO R2 ;(R2) <-- 2D Y pos 5490 S001FBF 3D 41 LDB (R1) 5491 ; 5492 S001FC1 EF GETB 5493 S001FC2 DE INC R14 5494 S001FC3 90 SBK ;(CMPWOBJYPS) <-- player VS cross check R set 5495 S001FC4 D1 INC R1 5496 ; 5497 S001FC5 41 LDW (R1) 5498 S001FC6 03 LSR 5499 S001FC7 08 07' BNE MPWT0104 ;zoom size ok ? ( yes:MPWT0104 ) 5500 S001FC9 16 TO R6 ;(R6) <-- zoom size 5501 ; 5502 S001FCA FF 2077' IWT R15,#MPWT0134 ;[ JMP MPWT0134 ] 5503 S001FCD 3D AB 2B LMS R11,REG11 ;[ dummy ] 5504 ; 5505 MPWT0104 5506 S001FD0 04 ROL 5507 S001FD1 EF GETB ;(R0) <-- to center Y wide 5508 S001FD2 DE INC R14 5509 S001FD3 4D SWAP 5510 S001FD4 9F FMULT 5511 S001FD5 12 TO R2 ;(R2) <-- plot start Y pos 5512 S001FD6 3D 52 ADC R2 5513 ; vvv******* warn :value out of range 5514 S001FD8 F0 2200 IWT R0,#DIVBUF 5515 S001FDB 56 ADD R6 5516 S001FDC 56 ADD R6 5517 S001FDD 15 TO R5 ;(R5) <-- chara plot step 5518 S001FDE 40 LDW (R0) 5519 ; 5520 S001FDF EF GETB 5521 S001FE0 DE INC R14 5522 S001FE1 13 TO R3 ;(R3) <-- chara X wide 5523 S001FE2 4D SWAP 5524 S001FE3 23 WITH R3 5525 S001FE4 C7 OR R7 5526 ; 5527 S001FE5 D0 INC R0 5528 MPWT0110 5529 S001FE6 03 LSR 5530 S001FE7 4D SWAP 5531 S001FE8 9F FMULT 5532 S001FE9 BB FROM R11 5533 S001FEA 1C TO R12 ;(R12) <-- plot start X pos 5534 S001FEB 60 SUB R0 5535 ; 5536 S001FEC EF GETB 5537 S001FED DE INC R14 5538 S001FEE 2E 19 MOVE R9,R14 ;(R9) <-- (R14) 5539 S001FF0 4D SWAP 5540 S001FF1 17 TO R7 ;(R7) <-- chara Y wide 5541 S001FF2 57 ADD R7 5542 ; 5543 S001FF3 14 TO R4 5544 S001FF4 EF GETB 5545 S001FF5 DE INC R14 5546 ; 5547 S001FF6 60 SUB R0 ;[ IBT R0,#0 ] 5548 S001FF7 20 18 MOVE R8,R0 ;(R8) <-- plot mode 5549 ; 5550 S001FF9 24 WITH R4 5551 S001FFA 3D EF GETBH 5552 ; 5553 S001FFC A0 56 IBT R0,#BANK MPCIPCHR ;chara data address(B) set 5554 S001FFE 3F DF ROMB 5555 ; 5556 S002000 B4 FROM R4 5557 S002001 03 LSR 5558 S002002 0C 03' BCC MPWT0112 ;high bit color ? ( no:MPWT0112 ) 5559 S002004 50 ADD R0 ;[ ASL ] 5560 ; 5561 S002005 A8 04 IBT R8,#04H 5562 MPWT0112 5563 S002007 B8 FROM R8 5564 S002008 3D 4E CMODE ;plot mode set 5565 S00200A 24 B0 MOVES R4,R0 ;(R4) <-- chara data address 5566 S00200C 0A 45' BPL MPWT0120+1 ;H flip ? ( no:MPWT0120+1 ) 5567 ; 5568 ;-------------- H flip chara data plot ---------- 5569 S00200E 2C 11 MOVE R1,R12 ;[ to not H flip quit !! ] 5570 ; 5571 S002010 50 ADD R0 5572 S002011 14 TO R4 ;(R4) <-- chara data address 5573 S002012 03 LSR 5574 S002013 09 1A' BEQ MPWT0118 ;<> ? ( yes:MPWT118 ) 5575 S002015 60 SUB R0 ;[ spacial plot quit !! ] 5576 ; 5577 MPWT0114 5578 S002016 2C 11 MOVE R1,R12 ;(R1) <-- plot start X pos 5579 S002018 F8 0080 IWT R8,#080H ;(R8) <-- chara X wide 5580 MPWT0116 5581 S00201B 70 MERGE 5582 S00201C 1E TO R14 ;(R14) <-- chara data address 5583 S00201D 54 ADD R4 5584 ; 5585 S00201E 28 WITH R8 5586 S00201F 55 ADD R5 ;(N) <-- end flag 5587 S002020 B3 FROM R3 5588 S002021 68 SUB R8 5589 ; 5590 S002022 DF GETC ;color get 5591 S002023 0A F6' BPL MPWT0116 5592 S002025 4C PLOT ;plot 5593 ; 5594 S002026 27 WITH R7 5595 S002027 65 SUB R5 5596 S002028 0A EC' BPL MPWT0114 5597 S00202A E2 DEC R2 ;Y pos up !! 5598 ; 5599 S00202B 05 38' BRA MPWT0132+1 5600 S00202D A0 00' IBT R0,#BANK MPOBJDIN ;[ dummy ] 5601 ; 5602 ;-------------- spacial plot !! ----------------- 5603 MPWT0118 5604 ;;;; SUB R0 ;[ IBT R0,#0 ] 5605 S00202F 4E COLOUR ;plot color set ( nuki ) 5606 S002030 D0 INC R0 ;[ IBT R0,#01H ] 5607 S002031 3D 4E CMODE ;plot mode set 5608 MPWT01182 5609 S002033 2C 11 MOVE R1,R12 ;(R1) <-- plot start X pos 5610 S002035 23 18 MOVE R8,R3 ;(R8) <-- chara X wide 5611 MPWT01184 5612 S002037 70 MERGE 5613 S002038 1E TO R14 ;(R14) <-- chara data address 5614 S002039 54 ADD R4 5615 ; 5616 S00203A 28 WITH R8 5617 S00203B 65 SUB R5 5618 ; 5619 S00203C EF GETB 5620 S00203D 3E 7F AND #0FH 5621 S00203F 09 03' BEQ MPWT01186 ;plot ? ( no:MPWT01186 ) 5622 S002041 D1 INC R1 5623 ; 5624 S002042 E1 DEC R1 5625 S002043 4C PLOT ;plot 5626 MPWT01186 5627 S002044 28 B8 MOVES R8,R8 5628 S002046 0A F0' BPL MPWT01184+1 5629 S002048 70 MERGE ;[ dummy ] 5630 ; 5631 S002049 27 WITH R7 5632 S00204A 65 SUB R5 5633 S00204B 0A E6' BPL MPWT01182 5634 S00204D E2 DEC R2 ;Y pos up !! 5635 ; 5636 S00204E 05 15' BRA MPWT0132+1 5637 S002050 A0 00' IBT R0,#BANK MPOBJDIN ;[ dummy ] 5638 ; 5639 ;-------------- chara data plot ----------------- 5640 MPWT0120 5641 S002052 2C 11 MOVE R1,R12 ;(R1) <-- plot start X pos 5642 S002054 23 18 MOVE R8,R3 ;(R8) <-- chara X wide 5643 MPWT0130 5644 S002056 70 MERGE 5645 S002057 1E TO R14 ;(R14) <-- chara data address 5646 S002058 54 ADD R4 5647 ; 5648 S002059 28 WITH R8 5649 S00205A 65 SUB R5 ;(N) <-- end flag 5650 ; 5651 S00205B DF GETC ;color get 5652 S00205C 0A F8' BPL MPWT0130 5653 S00205E 4C PLOT ;plot 5654 ; 5655 S00205F 27 WITH R7 5656 S002060 65 SUB R5 5657 S002061 0A EF' BPL MPWT0120 5658 S002063 E2 DEC R2 ;Y pos up !! 5659 ; 5660 ;-------------- next chara set check ------------ 5661 MPWT0132 5662 S002064 A0 00' IBT R0,#BANK MPOBJDIN 5663 S002066 3F DF ROMB 5664 ; 5665 S002068 29 1E MOVE R14,R9 ;(R14) <-- next status data address 5666 S00206A DE INC R14 5667 S00206B DE INC R14 5668 S00206C EF GETB 5669 S00206D DE INC R14 5670 S00206E 13 TO R3 ;(R3) <-- chara X wide 5671 S00206F 4D SWAP 5672 S002070 0B 05' BMI MPWT0134 ;next data nothing ? ( yes:MPWT0134 ) 5673 S002072 D0 INC R0 5674 ; 5675 S002073 FF 1FE7' IWT R15,#MPWT0110+1 ;[ JMP MPWT0110+1 ] 5676 S002076 03 LSR ;[ dummy ] 5677 ; 5678 MPWT0134 5679 S002077 3D AB 2B LMS R11,REG11 ;(R11) load 5680 S00207A 3D AC 2C LMS R12,REG12 ;(R12) load 5681 ; 5682 MPWT0140 5683 S00207D DB INC R11 5684 S00207E 3C LOOP 5685 S00207F DB INC R11 5686 ; 5687 ;-------------- last plot cancel ------------------------ 5688 S002080 D2 INC R2 5689 S002081 3D 4C RPIX 5690 ; 5691 ; 5692 ;-------------- player VS cross check --------------------------- 5693 S002083 F1 1030 IWT R1,#CMPMVTYP ;(R1) <-- map OBJ type no. pointer 5694 S002086 F2 1031 IWT R2,#CMPMVXPS ;(R2) <-- " X pos pointer 5695 S002089 F5 1033 IWT R5,#CMPMVYPS ;(R5) <-- " Y " 5696 S00208C F3 1289 IWT R3,#CMPWMVYPS ;(R3) <-- " cross check R pointer 5697 S00208F 3D F0 0CA4 LM R0,CMPPLXPOS 5698 S002093 C0 HIB 5699 S002094 1A TO R10 ;(R10) <-- " player X pos 5700 S002095 95 SEX 5701 S002096 3D F0 0CA6 LM R0,CMPPLZPOS 5702 S00209A C0 HIB 5703 S00209B 1B TO R11 ;(R11) <-- " Z " 5704 S00209C 95 SEX 5705 ; 5706 S00209D 3D FC 102A LM R12,CMPOBJSTN 5707 S0020A1 EC DEC R12 5708 ; 5709 S0020A2 02 CACHE 5710 ; 5711 S0020A3 2F 1D MOVE R13,R15 5712 MPWT0150 5713 S0020A5 3D 41 LDB (R1) 5714 S0020A7 E0 DEC R0 5715 S0020A8 0B 2F' BMI MPWT0160 ;check ok ? ( no:MPWT0160 ) 5716 S0020AA 01 NOP 5717 ; 5718 ;;;; LDB (R5) 5719 ;;;; DEC R0 5720 ;;;; BPL MPWT0160 ;Y pos cross ok ? ( no:MPWT0160 ) 5721 ;;;; NOP 5722 ; 5723 S0020AB 3D 43 LDB (R3) 5724 S0020AD 26 B0 MOVES R6,R0 5725 S0020AF 09 28' BEQ MPWT0160 ;cross check ok ? ( no:MPWT0160 ) 5726 S0020B1 01 NOP 5727 ; 5728 S0020B2 3D 9F LMULT 5729 S0020B4 24 17 MOVE R7,R4 ;(R7) <-- cross check R * R 5730 ; 5731 S0020B6 3D 42 LDB (R2) 5732 S0020B8 95 SEX 5733 S0020B9 6A SUB R10 5734 S0020BA 20 18 MOVE R8,R0 ;(R8) <-- SX 5735 S0020BC 20 16 MOVE R6,R0 5736 S0020BE 3D 9F LMULT ;(R4) <-- SX * SX 5737 S0020C0 27 WITH R7 5738 S0020C1 64 SUB R4 5739 S0020C2 0C 16' BCC MPWT0170 ;cross ? ( no:MPWT0170 ) 5740 S0020C4 D2 INC R2 5741 ; 5742 S0020C5 24 1E MOVE R14,R4 ;(R14) <-- SX * SX 5743 S0020C7 3D 42 LDB (R2) 5744 S0020C9 95 SEX 5745 S0020CA 6B SUB R11 5746 S0020CB 20 19 MOVE R9,R0 ;(R9) <-- SZ 5747 S0020CD 20 16 MOVE R6,R0 5748 S0020CF 3D 9F LMULT ;(R4) <-- SZ * SZ 5749 S0020D1 B4 FROM R4 5750 S0020D2 67 SUB R7 5751 S0020D3 0D 06' BCS MPWT0170+1 ;cross ? ( no:MPWT0170+1 ) 5752 S0020D5 D2 INC R2 5753 ; 5754 S0020D6 05 10' BRA MPWT0180 5755 S0020D8 2E WITH R14 ;(R14) <-- ( SX * SX ) + ( SZ * SZ ) 5756 ; 5757 MPWT0160 5758 S0020D9 D2 INC R2 5759 MPWT0170 5760 S0020DA D2 INC R2 5761 S0020DB D2 INC R2 5762 S0020DC A0 04 IBT R0,#4 5763 S0020DE 11 TO R1 5764 S0020DF 51 ADD R1 5765 S0020E0 15 TO R5 5766 S0020E1 55 ADD R5 5767 S0020E2 13 TO R3 5768 S0020E3 53 ADD R3 5769 S0020E4 3C LOOP 5770 S0020E5 D2 INC R2 5771 ; 5772 S0020E6 00 STOP 5773 S0020E7 01 NOP 5774 ; 5775 ;-------------- cross !! -------------------------------- 5776 MPWT0180 5777 ;;;; WITH R14 ;(R14) <-- ( SX * SX ) + ( SZ * SZ ) 5778 S0020E8 54 ADD R4 5779 ; 5780 S0020E9 3D 41 LDB (R1) 5781 S0020EB 3E 6E SUB #HOLL 5782 S0020ED 08 0E' BNE MPWT0182 ;holl in ? ( no:MPWT0182 ) 5783 S0020EF 60 SUB R0 ;(R0) <-- calculate work 5784 ; 5785 ;-------------- holl in !! ---------------------- 5786 S0020F0 3D F0 0CA2 LM R0,CMPLMODE 5787 S0020F4 3E 60 SUB #0 5788 S0020F6 08 03' BNE MPWT0181 ;now holl in ? ( yes:MPWT0181 ) 5789 S0020F8 D0 INC R0 5790 ; 5791 S0020F9 D0 INC R0 5792 S0020FA 90 SBK 5793 MPWT0181 5794 S0020FB 00 STOP 5795 S0020FC 01 NOP 5796 ; 5797 ;-------------- player hosei ---------------------------- 5798 ; 5799 ;-------------- sqr ----------------------------- 5800 MPWT0182 5801 ;;;; SUB R0 ;(R0) <-- calculate work 5802 S0020FD 20 16 MOVE R6,R0 ;(R6) <-- root result 5803 S0020FF A5 02 IBT R5,#2 ;(R5) <-- add data 5804 S002101 AC 10 IBT R12,#8+8 ;(R12) <-- loop no. 5805 S002103 FD 2107' IWT R13,#MPWT0190+1 5806 MPWT0190 5807 S002106 26 WITH R6 ;[ ASL R6 ] 5808 S002107 56 ADD R6 5809 S002108 2E WITH R14 ;[ ASL R14 ] 5810 S002109 5E ADD R14 5811 S00210A 04 ROL ;[ ROL R0 ] 5812 S00210B 2E WITH R14 ;[ ASL R14 ] 5813 S00210C 5E ADD R14 5814 S00210D 04 ROL ;[ ROL R0 ] 5815 ; 5816 S00210E 11 TO R1 5817 S00210F 3D 66 SBC R6 5818 S002111 0C 04' BCC MPWT0200 5819 S002113 26 WITH R6 5820 ; 5821 S002114 55 ADD R5 5822 S002115 21 10 MOVE R0,R1 5823 MPWT0200 5824 S002117 3C LOOP 5825 S002118 26 WITH R6 5826 ; 5827 S002119 03 LSR 5828 ; 5829 S00211A 3D 43 LDB (R3) ;(R0) <-- cross check R 5830 S00211C 50 ADD R0 ;x2 vvv******* warn :value out of range 5831 S00211D F3 2200 IWT R3,#DIVBUF 5832 S002120 53 ADD R3 5833 S002121 40 LDW (R0) 5834 S002122 9F FMULT 5835 S002123 50 ADD R0 ;x2 5836 S002124 53 ADD R3 5837 S002125 16 TO R6 ;(R6) <-- hosei mult data 5838 S002126 40 LDW (R0) 5839 ; 5840 S002127 B9 FROM R9 5841 S002128 95 SEX 5842 S002129 4D SWAP 5843 S00212A 9F FMULT 5844 S00212B 20 11 MOVE R1,R0 5845 S00212D C0 HIB 5846 S00212E 95 SEX ;(R0) <-- integer add data 5847 S00212F 11 TO R1 5848 S002130 3D 51 ADC R1 5849 S002132 E2 DEC R2 5850 S002133 3D 42 LDB (R2) 5851 S002135 95 SEX 5852 S002136 61 SUB R1 5853 S002137 4D SWAP 5854 ;;;; SM R0,CMPPLZPOS 5855 ; 5856 S002138 B8 FROM R8 5857 S002139 95 SEX 5858 S00213A 4D SWAP 5859 S00213B 9F FMULT 5860 S00213C 20 11 MOVE R1,R0 5861 S00213E C0 HIB 5862 S00213F 95 SEX ;(R0) <-- integer add data 5863 S002140 11 TO R1 5864 S002141 3D 51 ADC R1 5865 S002143 E2 DEC R2 5866 S002144 3D 42 LDB (R2) 5867 S002146 95 SEX 5868 S002147 61 SUB R1 5869 S002148 4D SWAP 5870 ;;;; SM R0,CMPPLXPOS 5871 ; 5872 S002149 00 STOP 5873 S00214A 01 NOP 5874 ; 5875 ;------------------------------------------------------------------------ 5876 ;- map OBJ data - 5877 ;------------------------------------------------------------------------ 5878 00214B MPOBJDIN EQU $ ;[MPOBJTYP] 5879 S00214B 2269' WORD MPOBJDT01 ;[01] yama.H 5880 S00214D 2280' WORD MPOBJDT02 ;[02] " .M 5881 S00214F 2293' WORD MPOBJDT03 ;[03] " .L 5882 S002151 22A2' WORD MPOBJDT04 ;[04] tower( tea ) 5883 S002153 22A9' WORD MPOBJDT05 ;[05] " ( gray ) 5884 S002155 22B0' WORD MPOBJDT06 ;[06] kazan 5885 S002157 22B7' WORD MPOBJDT07 ;[07] small yama 5886 S002159 22BE' WORD MPOBJDT08 ;[08] dai 5887 S00215B 22C5' WORD MPOBJDT09 ;[09] small tower 5888 S00215D 22CC' WORD MPOBJDT0A ;[0A] wide tower 5889 S00215F 22D3' WORD MPOBJDT0B ;[0B] mini yama 5890 S002161 22DA' WORD MPOBJDT0C ;[0C] saku 5891 S002163 22E1' WORD MPOBJDT0D ;[0D] yane 5892 S002165 22E8' WORD MPOBJDT0E ;[0E] holl 5893 S002167 22EF' WORD MPOBJDT0F ;[0F] tree.1 5894 S002169 22F6' WORD MPOBJDT10 ;[10] " .2 5895 S00216B 22FD' WORD MPOBJDT11 ;[11] " .3 5896 S00216D 2304' WORD MPOBJDT12 ;[12] " .4 5897 S00216F 230B' WORD MPOBJDT13 ;[13] " .5 5898 S002171 2312' WORD MPOBJDT14 ;[14] iwa 5899 S002173 2319' WORD MPOBJDT15 ;[15] kumo 5900 S002175 2320' WORD MPOBJDT16 ;[16] laputa 5901 S002177 2327' WORD MPOBJDT17 ;[17] keble 5902 S002179 232E' WORD MPOBJDT18 ;[18] kusa 5903 S00217B 2335' WORD MPOBJDT19 ;[19] flower 5904 S00217D 233C' WORD MPOBJDT1A ;[1A] ishi 5905 S00217F 2343' WORD MPOBJDT1B ;[1B] lope 5906 S002181 234A' WORD MPOBJDT1C ;[1C] kazan smoke.1 5907 S002183 2351' WORD MPOBJDT1D ;[1D] " .2 5908 S002185 2358' WORD MPOBJDT1E ;[1E] " .3 5909 S002187 235F' WORD MPOBJDT1F ;[1F] " .4 5910 S002189 2366' WORD MPOBJDT20 ;[20] " .5 5911 S00218B 236D' WORD MPOBJDT21 ;[21] " .6 5912 S00218D 2374' WORD MPOBJDT22 ;[22] " .7 5913 S00218F 237B' WORD MPOBJDT23 ;[23] kamome.1 5914 S002191 2382' WORD MPOBJDT24 ;[24] " .2 5915 S002193 2389' WORD MPOBJDT25 ;[25] " .3 5916 S002195 2390' WORD MPOBJDT26 ;[26] " .4 5917 S002197 2397' WORD MPOBJDT27 ;[27] " .5 5918 S002199 239E' WORD MPOBJDT28 ;[28] " .6 5919 S00219B 23A5' WORD MPOBJDT29 ;[29] " .7 5920 S00219D 23AC' WORD MPOBJDT2A ;[2A] " .8 5921 S00219F 23B3' WORD MPOBJDT2B ;[2B] player.1 5922 S0021A1 23BA' WORD MPOBJDT2C ;[2C] " .2 5923 S0021A3 23C1' WORD MPOBJDT2D ;[2D] " .3 5924 S0021A5 23C8' WORD MPOBJDT2E ;[2E] " .4 5925 S0021A7 23CF' WORD MPOBJDT2F ;[2F] " .5 5926 S0021A9 23D6' WORD MPOBJDT30 ;[30] " .6 5927 S0021AB 23DD' WORD MPOBJDT31 ;[31] " .7 5928 S0021AD 23E4' WORD MPOBJDT32 ;[32] " .8 5929 S0021AF 23EB' WORD MPOBJDT33 ;[33] " .9 5930 S0021B1 23F2' WORD MPOBJDT34 ;[34] " .10 5931 S0021B3 23F9' WORD MPOBJDT35 ;[35] " .11 5932 S0021B5 2400' WORD MPOBJDT36 ;[36] " .12 5933 S0021B7 2407' WORD MPOBJDT37 ;[37] " .13 5934 S0021B9 240E' WORD MPOBJDT38 ;[38] " .14 5935 S0021BB 2415' WORD MPOBJDT39 ;[39] " .15 5936 S0021BD 241C' WORD MPOBJDT3A ;[3A] " .16 5937 S0021BF 2423' WORD MPOBJDT3B ;[3B] " .17 5938 S0021C1 242A' WORD MPOBJDT3C ;[3C] " .18 5939 S0021C3 2431' WORD MPOBJDT3D ;[3D] " .19 5940 S0021C5 2438' WORD MPOBJDT3E ;[3E] " .20 5941 S0021C7 243F' WORD MPOBJDT3F ;[3F] " .21 5942 S0021C9 2446' WORD MPOBJDT40 ;[40] " .22 5943 S0021CB 244D' WORD MPOBJDT41 ;[41] " .23 5944 S0021CD 2454' WORD MPOBJDT42 ;[42] " .24 5945 S0021CF 245B' WORD MPOBJDT43 ;[43] " .25 5946 S0021D1 2462' WORD MPOBJDT44 ;[44] " .26 5947 S0021D3 2469' WORD MPOBJDT45 ;[45] " .27 5948 S0021D5 2470' WORD MPOBJDT46 ;[46] " .28 5949 S0021D7 2477' WORD MPOBJDT47 ;[47] " .29 5950 S0021D9 247E' WORD MPOBJDT48 ;[48] " .30 5951 S0021DB 2485' WORD MPOBJDT49 ;[49] " .31 5952 S0021DD 248C' WORD MPOBJDT4A ;[4A] " .32 5953 S0021DF 2493' WORD MPOBJDT4B ;[2B] " .33 5954 S0021E1 249A' WORD MPOBJDT4C ;[4C] " .34 5955 S0021E3 24A1' WORD MPOBJDT4D ;[4D] " .35 5956 S0021E5 24A8' WORD MPOBJDT4E ;[4E] " .36 5957 S0021E7 24AF' WORD MPOBJDT4F ;[4F] " .37 5958 S0021E9 24B6' WORD MPOBJDT50 ;[50] " .38 5959 S0021EB 24BD' WORD MPOBJDT51 ;[51] " .39 5960 S0021ED 24C4' WORD MPOBJDT52 ;[52] " .40 5961 S0021EF 24CB' WORD MPOBJDT53 ;[53] " .41 5962 S0021F1 24D2' WORD MPOBJDT54 ;[54] " .42 5963 S0021F3 24D9' WORD MPOBJDT55 ;[55] " .43 5964 S0021F5 24E0' WORD MPOBJDT56 ;[56] " .44 5965 S0021F7 24E7' WORD MPOBJDT57 ;[57] " .45 5966 S0021F9 24EE' WORD MPOBJDT58 ;[58] " .46 5967 S0021FB 24F5' WORD MPOBJDT59 ;[59] " .47 5968 S0021FD 24FC' WORD MPOBJDT5A ;[5A] " .48 5969 S0021FF 2503' WORD MPOBJDT5B ;[5B] ayashii.H 5970 S002201 250A' WORD MPOBJDT5C ;[5C] " .L 5971 S002203 2511' WORD MPOBJDT5D ;[5D] " .2 5972 S002205 2518' WORD MPOBJDT5E ;[5E] big kinoko 5973 S002207 251F' WORD MPOBJDT5F ;[5F] small " 5974 S002209 2526' WORD MPOBJDT60 ;[60] zenmai 5975 S00220B 252D' WORD MPOBJDT61 ;[61] big crystal 5976 S00220D 2534' WORD MPOBJDT62 ;[62] small " 5977 S00220F 253B' WORD MPOBJDT63 ;[63] ishi (tea).1 5978 S002211 2542' WORD MPOBJDT64 ;[64] " .2 5979 S002213 2549' WORD MPOBJDT65 ;[65] mini tower 5980 S002215 2550' WORD MPOBJDT66 ;[66] high kinoko.2 5981 S002217 2557' WORD MPOBJDT67 ;[67] " .3 5982 S002219 255E' WORD MPOBJDT68 ;[68] " .4 5983 S00221B 2569' WORD MPOBJDT69 ;[69] " .6 5984 S00221D 257C' WORD MPOBJDT6A ;[6A] " .7 5985 S00221F 2593' WORD MPOBJDT6B ;[6B] holl mask 5986 S002221 259A' WORD MPOBJDT6C ;[6C] —d‚µ‚¢–Ø (‘å) 5987 S002223 25A1' WORD MPOBJDT6D ;[6D] —d‚µ‚¢–Ø (¬) 5988 S002225 25A8' WORD MPOBJDT6E ;[6E] Šâ(‘å) 5989 S002227 25AF' WORD MPOBJDT6F ;[6F] Šâ(¬) 5990 S002229 25B6' WORD MPOBJDT70 ;[70] ƒWƒƒƒ“ƒOƒ‹‚Ì“ƒ (‘å) 5991 S00222B 25BD' WORD MPOBJDT71 ;[71] " " (¬) 5992 S00222D 25C4' WORD MPOBJDT72 ;[72] ƒOƒŒ[‚Ì“ƒ 5993 S00222F 25CB' WORD MPOBJDT73 ;[73] ƒNƒbƒpé 5994 S002231 25D2' WORD MPOBJDT74 ;[74] ”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚P 5995 S002233 25D9' WORD MPOBJDT75 ;[75] " " ‚m‚.‚Q 5996 S002235 25E0' WORD MPOBJDT76 ;[76] " " ‚m‚.‚R 5997 S002237 25E7' WORD MPOBJDT77 ;[77] " " ‚m‚.‚S 5998 S002239 25EE' WORD MPOBJDT78 ;[78] " " ‚m‚.‚T 5999 S00223B 25F5' WORD MPOBJDT79 ;[79] " " ‚m‚.‚U 6000 S00223D 25FC' WORD MPOBJDT7A ;[7A] " " ‚m‚.‚V 6001 S00223F 2603' WORD MPOBJDT7B ;[7B] " " ‚m‚.‚W 6002 S002241 260A' WORD MPOBJDT7C ;[7C] " " ‚m‚.‚X 6003 S002243 2611' WORD MPOBJDT7D ;[7D] " " ‚m‚.‚` 6004 S002245 2618' WORD MPOBJDT7E ;[7E] Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚P 6005 S002247 261F' WORD MPOBJDT7F ;[7F] " " " ‚m‚.‚Q 6006 S002249 2626' WORD MPOBJDT80 ;[80] " " " ‚m‚.‚R 6007 S00224B 262D' WORD MPOBJDT81 ;[81] " " " ‚m‚.‚S 6008 S00224D 2634' WORD MPOBJDT82 ;[82] " " " ‚m‚.‚T 6009 S00224F 263B' WORD MPOBJDT83 ;[83] " " " ‚m‚.‚U 6010 S002251 2642' WORD MPOBJDT84 ;[84] " " " ‚m‚.‚V 6011 S002253 2649' WORD MPOBJDT85 ;[85] " " " ‚m‚.‚W 6012 S002255 2650' WORD MPOBJDT86 ;[86] " " " ‚m‚.‚X 6013 S002257 2657' WORD MPOBJDT87 ;[87] " " " ‚m‚.‚` 6014 S002259 265E' WORD MPOBJDT88 ;[88] " " " ‚m‚.‚a 6015 S00225B 2665' WORD MPOBJDT89 ;[89] " " " ‚m‚.‚b 6016 S00225D 266C' WORD MPOBJDT8A ;[8A] ”j‰ó‚µ‚½Œã‚Ì“V‹óé 6017 S00225F 2673' WORD MPOBJDT8B ;[8B] ƒˆƒbƒV[ ƒtƒ‰ƒbƒVƒ… ‚m‚.‚O 6018 S002261 267A' WORD MPOBJDT8C ;[8C] " " ‚m‚.‚P 6019 S002263 2681' WORD MPOBJDT8D ;[8D] " " ‚m‚.‚Q 6020 S002265 2688' WORD MPOBJDT8E ;[8E] " " ‚m‚.‚R 6021 S002267 268F' WORD MPOBJDT8F ;[8F] " " ‚m‚.‚S 6022 ; 6023 002269 MPOBJDT01 EQU $ ;[ yama.H ] 6024 ; [VS player cross check R ( 0:not cross ) ] 6025 ; [to center Y wide] 6026 ; [X wide],[Y wide] 6027 ; [chara address] 6028 S002269 17 BYTE 02EH/2 6029 S00226A 06 BYTE 006H 6030 S00226B 27 1B BYTE 028H-1,01CH-1 vvv******* warn :value out of range 6031 S00226D 0400 WORD MPCIPCHR+0400H 6032 S00226F 27 16 BYTE 028H-1,017H-1 vvv******* warn :value out of range 6033 S002271 0400 WORD MPCIPCHR+0400H 6034 S002273 27 0F BYTE 028H-1,010H-1 vvv******* warn :value out of range 6035 S002275 1880 WORD MPCIPCHR+1880H 6036 S002277 27 17 BYTE 028H-1,018H-1 vvv******* warn :value out of range 6037 S002279 0080 WORD MPCIPCHR+0080H 6038 S00227B 07 08 BYTE 008H-1,009H-1 vvv******* warn :value out of range 6039 S00227D 3641 WORD MPCIPCHR+3641H 6040 S00227F FF BYTE 0FFH 6041 ; 6042 002280 MPOBJDT02 EQU $ ;[ yama.M ] 6043 S002280 17 BYTE 02EH/2 6044 S002281 06 BYTE 006H 6045 S002282 27 1B BYTE 028H-1,01CH-1 vvv******* warn :value out of range 6046 S002284 0400 WORD MPCIPCHR+0400H 6047 S002286 27 07 BYTE 028H-1,008H-1 vvv******* warn :value out of range 6048 S002288 0400 WORD MPCIPCHR+0400H 6049 S00228A 27 0F BYTE 028H-1,010H-1 vvv******* warn :value out of range 6050 S00228C 1880 WORD MPCIPCHR+1880H 6051 S00228E 27 17 BYTE 028H-1,018H-1 vvv******* warn :value out of range 6052 S002290 0080 WORD MPCIPCHR+0080H 6053 S002292 FF BYTE 0FFH 6054 ; 6055 002293 MPOBJDT03 EQU $ ;[ yama.L ] 6056 S002293 17 BYTE 02EH/2 6057 S002294 06 BYTE 006H 6058 S002295 27 17 BYTE 028H-1,018H-1 vvv******* warn :value out of range 6059 S002297 0800 WORD MPCIPCHR+0800H 6060 S002299 27 0F BYTE 028H-1,010H-1 vvv******* warn :value out of range 6061 S00229B 1880 WORD MPCIPCHR+1880H 6062 S00229D 27 17 BYTE 028H-1,018H-1 vvv******* warn :value out of range 6063 S00229F 0080 WORD MPCIPCHR+0080H 6064 S0022A1 FF BYTE 0FFH 6065 ; 6066 0022A2 MPOBJDT04 EQU $ ;[ tower( tea ) ] 6067 S0022A2 09 BYTE 012H/2 6068 S0022A3 02 BYTE 002H 6069 S0022A4 0F 1F BYTE 010H-1,020H-1 vvv******* warn :value out of range 6070 S0022A6 80B0 WORD MFCIPCHR+00B0H 6071 S0022A8 FF BYTE 0FFH 6072 ; 6073 0022A9 MPOBJDT05 EQU $ ;[ tower( gray ) ] 6074 S0022A9 0B BYTE 016H/2 6075 S0022AA 03 BYTE 003H 6076 S0022AB 0F 1F BYTE 010H-1,020H-1 vvv******* warn :value out of range 6077 S0022AD 80D0 WORD MFCIPCHR+00D0H 6078 S0022AF FF BYTE 0FFH 6079 ; 6080 0022B0 MPOBJDT06 EQU $ ;[ kazan ] 6081 S0022B0 12 BYTE 024H/2 6082 S0022B1 07 BYTE 007H 6083 S0022B2 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 6084 S0022B4 80C1 WORD MFCIPCHR+00C1H 6085 S0022B6 FF BYTE 0FFH 6086 ; 6087 0022B7 MPOBJDT07 EQU $ ;[ small yama ] 6088 S0022B7 12 BYTE 024H/2 6089 S0022B8 05 BYTE 005H 6090 S0022B9 1F 1A BYTE 020H-1,01BH-1 vvv******* warn :value out of range 6091 S0022BB 8081 WORD MFCIPCHR+0081H 6092 S0022BD FF BYTE 0FFH 6093 ; 6094 0022BE MPOBJDT08 EQU $ ;[ dai ] 6095 S0022BE 12 BYTE 024H/2 6096 S0022BF 06 BYTE 006H 6097 S0022C0 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 6098 S0022C2 0021 WORD MPCIPCHR+0021H 6099 S0022C4 FF BYTE 0FFH 6100 ; 6101 0022C5 MPOBJDT09 EQU $ ;[ small tower ] 6102 S0022C5 07 BYTE 00EH/2 6103 S0022C6 01 BYTE 001H 6104 S0022C7 07 0F BYTE 008H-1,010H-1 vvv******* warn :value out of range 6105 S0022C9 8051 WORD MFCIPCHR+0051H 6106 S0022CB FF BYTE 0FFH 6107 ; 6108 0022CC MPOBJDT0A EQU $ ;[ wide tower ] 6109 S0022CC 0B BYTE 016H/2 6110 S0022CD 02 BYTE 002H 6111 S0022CE 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 6112 S0022D0 A071 WORD MFCIPCHR+2071H 6113 S0022D2 FF BYTE 0FFH 6114 ; 6115 0022D3 MPOBJDT0B EQU $ ;[ mini yama ] 6116 S0022D3 09 BYTE 012H/2 6117 S0022D4 03 BYTE 003H 6118 S0022D5 0F 0C BYTE 010H-1,00DH-1 vvv******* warn :value out of range 6119 S0022D7 8041 WORD MFCIPCHR+0041H 6120 S0022D9 FF BYTE 0FFH 6121 ; 6122 0022DA MPOBJDT0C EQU $ ;[ saku ] 6123 S0022DA 04 BYTE 008H/2 6124 S0022DB 00 BYTE 000H 6125 S0022DC 03 03 BYTE 004H-1,004H-1 vvv******* warn :value out of range 6126 S0022DE 1B61 WORD MPCIPCHR+1B61H 6127 S0022E0 FF BYTE 0FFH 6128 ; 6129 0022E1 MPOBJDT0D EQU $ ;[ yorozuya ] 6130 S0022E1 08 BYTE 010H/2 6131 S0022E2 02 BYTE 002H 6132 S0022E3 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 6133 S0022E5 A061 WORD MFCIPCHR+2061H 6134 S0022E7 FF BYTE 0FFH 6135 ; 6136 0022E8 MPOBJDT0E EQU $ ;[ holl ] 6137 S0022E8 0C BYTE 018H/2 6138 S0022E9 03 BYTE 003H 6139 S0022EA 1F 07 BYTE 020H-1,008H-1 vvv******* warn :value out of range 6140 S0022EC 5801 WORD MPCIPCHR+5801H 6141 S0022EE FF BYTE 0FFH 6142 ; 6143 0022EF MPOBJDT0F EQU $ ;[ tree.1 ] 6144 S0022EF 07 BYTE 00EH/2 6145 S0022F0 00 BYTE 000H 6146 S0022F1 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 6147 S0022F3 30B1 WORD MPCIPCHR+30B1H 6148 S0022F5 FF BYTE 0FFH 6149 ; 6150 0022F6 MPOBJDT10 EQU $ ;[ tree.2 ] 6151 S0022F6 06 BYTE 00CH/2 6152 S0022F7 00 BYTE 000H 6153 S0022F8 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 6154 S0022FA 20F0 WORD MPCIPCHR+20F0H 6155 S0022FC FF BYTE 0FFH 6156 ; 6157 0022FD MPOBJDT11 EQU $ ;[ tree.3 ] 6158 S0022FD 04 BYTE 008H/2 6159 S0022FE 00 BYTE 000H 6160 S0022FF 07 0C BYTE 008H-1,00DH-1 vvv******* warn :value out of range 6161 S002301 0071 WORD MPCIPCHR+0071H 6162 S002303 FF BYTE 0FFH 6163 ; 6164 002304 MPOBJDT12 EQU $ ;[ tree.4 ] 6165 S002304 04 BYTE 008H/2 6166 S002305 00 BYTE 000H 6167 S002306 08 09 BYTE 009H-1,00AH-1 vvv******* warn :value out of range 6168 S002308 0E71 WORD MPCIPCHR+0E71H 6169 S00230A FF BYTE 0FFH 6170 ; 6171 00230B MPOBJDT13 EQU $ ;[ tree.5 ] 6172 S00230B 07 BYTE 00EH/2 6173 S00230C 00 BYTE 000H 6174 S00230D 0E 1A BYTE 00FH-1,01BH-1 vvv******* warn :value out of range 6175 S00230F 0061 WORD MPCIPCHR+0061H 6176 S002311 FF BYTE 0FFH 6177 ; 6178 002312 MPOBJDT14 EQU $ ;[ iwa ] 6179 S002312 09 BYTE 012H/2 6180 S002313 02 BYTE 002H 6181 S002314 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 6182 S002316 A0E0 WORD MFCIPCHR+20E0H 6183 S002318 FF BYTE 0FFH 6184 ; 6185 002319 MPOBJDT15 EQU $ ;[ kumo ] 6186 S002319 00 BYTE 000H/2 6187 S00231A 08 BYTE 008H 6188 S00231B 17 0E BYTE 018H-1,00FH-1 vvv******* warn :value out of range 6189 S00231D 30E0 WORD MPCIPCHR+30E0H 6190 S00231F FF BYTE 0FFH 6191 ; 6192 002320 MPOBJDT16 EQU $ ;[ laputa ] 6193 S002320 00 BYTE 000H/2 6194 S002321 0A BYTE 00AH 6195 S002322 1F 17 BYTE 020H-1,018H-1 vvv******* warn :value out of range 6196 S002324 00E0 WORD MPCIPCHR+00E0H 6197 S002326 FF BYTE 0FFH 6198 ; 6199 002327 MPOBJDT17 EQU $ ;[ keble ] 6200 S002327 00 BYTE 000H/2 6201 S002328 08 BYTE 008H 6202 S002329 06 08 BYTE 007H-1,009H-1 vvv******* warn :value out of range 6203 S00232B 1779 WORD MPCIPCHR+1779H 6204 S00232D FF BYTE 0FFH 6205 ; 6206 00232E MPOBJDT18 EQU $ ;[ kusa ] 6207 S00232E 00 BYTE 000H/2 6208 S00232F 00 BYTE 000H 6209 S002330 06 03 BYTE 007H-1,004H-1 vvv******* warn :value out of range 6210 S002332 1B65 WORD MPCIPCHR+1B65H 6211 S002334 FF BYTE 0FFH 6212 ; 6213 002335 MPOBJDT19 EQU $ ;[ flower ] 6214 S002335 00 BYTE 000H/2 6215 S002336 00 BYTE 000H 6216 S002337 04 05 BYTE 005H-1,006H-1 vvv******* warn :value out of range 6217 S002339 007B WORD MPCIPCHR+007BH 6218 S00233B FF BYTE 0FFH 6219 ; 6220 00233C MPOBJDT1A EQU $ ;[ ishi ] 6221 S00233C 06 BYTE 00CH/2 6222 S00233D 01 BYTE 001H 6223 S00233E 05 05 BYTE 006H-1,006H-1 vvv******* warn :value out of range 6224 S002340 067B WORD MPCIPCHR+067BH 6225 S002342 FF BYTE 0FFH 6226 ; 6227 002343 MPOBJDT1B EQU $ ;[ lope ] 6228 S002343 00 BYTE 000H/2 6229 S002344 01 BYTE 001H 6230 S002345 02 02 BYTE 003H-1,003H-1 vvv******* warn :value out of range 6231 S002347 0C7B WORD MPCIPCHR+0C7BH 6232 S002349 FF BYTE 0FFH 6233 ; 6234 00234A MPOBJDT1C EQU $ ;[ kazan smoke.1 ] 6235 S00234A 00 BYTE 000H/2 6236 S00234B 00 BYTE 000H 6237 S00234C 03 02 BYTE 004H-1,003H-1 vvv******* warn :value out of range 6238 S00234E 1A41 WORD MPCIPCHR+1A41H 6239 S002350 FF BYTE 0FFH 6240 ; 6241 002351 MPOBJDT1D EQU $ ;[ kazan smoke.2 ] 6242 S002351 00 BYTE 000H/2 6243 S002352 01 BYTE 001H 6244 S002353 05 04 BYTE 006H-1,005H-1 vvv******* warn :value out of range 6245 S002355 1A45 WORD MPCIPCHR+1A45H 6246 S002357 FF BYTE 0FFH 6247 ; 6248 002358 MPOBJDT1E EQU $ ;[ kazan smoke.3 ] 6249 S002358 00 BYTE 000H/2 6250 S002359 02 BYTE 002H 6251 S00235A 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 6252 S00235C 1A4B WORD MPCIPCHR+1A4BH 6253 S00235E FF BYTE 0FFH 6254 ; 6255 00235F MPOBJDT1F EQU $ ;[ kazan smoke.4 ] 6256 S00235F 00 BYTE 000H/2 6257 S002360 02 BYTE 002H 6258 S002361 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 6259 S002363 1A53 WORD MPCIPCHR+1A53H 6260 S002365 FF BYTE 0FFH 6261 ; 6262 002366 MPOBJDT20 EQU $ ;[ kazan smoke.5 ] 6263 S002366 00 BYTE 000H/2 6264 S002367 02 BYTE 002H 6265 S002368 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 6266 S00236A 2141 WORD MPCIPCHR+2141H 6267 S00236C FF BYTE 0FFH 6268 ; 6269 00236D MPOBJDT21 EQU $ ;[ kazan smoke.6 ] 6270 S00236D 00 BYTE 000H/2 6271 S00236E 02 BYTE 002H 6272 S00236F 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 6273 S002371 2149 WORD MPCIPCHR+2149H 6274 S002373 FF BYTE 0FFH 6275 ; 6276 002374 MPOBJDT22 EQU $ ;[ kazan smoke.7 ] 6277 S002374 00 BYTE 000H/2 6278 S002375 02 BYTE 002H 6279 S002376 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 6280 S002378 2151 WORD MPCIPCHR+2151H 6281 S00237A FF BYTE 0FFH 6282 ; 6283 00237B MPOBJDT23 EQU $ ;[ kamome.1 ] 6284 S00237B 00 BYTE 000H/2 6285 S00237C 00 BYTE 000H 6286 S00237D 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6287 S00237F 18E0 WORD MPCIPCHR+18E0H 6288 S002381 FF BYTE 0FFH 6289 ; 6290 002382 MPOBJDT24 EQU $ ;[ kamome.2 ] 6291 S002382 00 BYTE 000H/2 6292 S002383 00 BYTE 000H 6293 S002384 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6294 S002386 18E8 WORD MPCIPCHR+18E8H 6295 S002388 FF BYTE 0FFH 6296 ; 6297 002389 MPOBJDT25 EQU $ ;[ kamome.3 ] 6298 S002389 00 BYTE 000H/2 6299 S00238A 00 BYTE 000H 6300 S00238B 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6301 S00238D 18F0 WORD MPCIPCHR+18F0H 6302 S00238F FF BYTE 0FFH 6303 ; 6304 002390 MPOBJDT26 EQU $ ;[ kamome.4 ] 6305 S002390 00 BYTE 000H/2 6306 S002391 00 BYTE 000H 6307 S002392 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6308 S002394 18F8 WORD MPCIPCHR+18F8H 6309 S002396 FF BYTE 0FFH 6310 ; 6311 002397 MPOBJDT27 EQU $ ;[ kamome.5 ] 6312 S002397 00 BYTE 000H/2 6313 S002398 00 BYTE 000H 6314 S002399 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6315 S00239B 2841 WORD MPCIPCHR+2841H 6316 S00239D FF BYTE 0FFH 6317 ; 6318 00239E MPOBJDT28 EQU $ ;[ kamome.6 ] 6319 S00239E 00 BYTE 000H/2 6320 S00239F 00 BYTE 000H 6321 S0023A0 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6322 S0023A2 2849 WORD MPCIPCHR+2849H 6323 S0023A4 FF BYTE 0FFH 6324 ; 6325 0023A5 MPOBJDT29 EQU $ ;[ kamome.7 ] 6326 S0023A5 00 BYTE 000H/2 6327 S0023A6 00 BYTE 000H 6328 S0023A7 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6329 S0023A9 2851 WORD MPCIPCHR+2851H 6330 S0023AB FF BYTE 0FFH 6331 ; 6332 0023AC MPOBJDT2A EQU $ ;[ kamome.8 ] 6333 S0023AC 00 BYTE 000H/2 6334 S0023AD 00 BYTE 000H 6335 S0023AE 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6336 S0023B0 2859 WORD MPCIPCHR+2859H 6337 S0023B2 FF BYTE 0FFH 6338 ; 6339 0023B3 MPOBJDT2B EQU $ ;[ player.1 ( : stop ) ] 6340 S0023B3 00 BYTE 000H/2 6341 S0023B4 00 BYTE 000H 6342 S0023B5 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6343 S0023B7 A0F1 WORD MFCIPCHR+20F1H 6344 S0023B9 FF BYTE 0FFH 6345 ; 6346 0023BA MPOBJDT2C EQU $ ;[ player.2 ( : walk.1 ) ] 6347 S0023BA 00 BYTE 000H/2 6348 S0023BB 00 BYTE 000H 6349 S0023BC 09 07 BYTE 00AH-1,008H-1 vvv******* warn :value out of range 6350 S0023BE 80EB WORD MFCIPCHR+00EBH 6351 S0023C0 FF BYTE 0FFH 6352 ; 6353 0023C1 MPOBJDT2D EQU $ ;[ player.3 ( : walk.2 ) ] 6354 S0023C1 00 BYTE 000H/2 6355 S0023C2 00 BYTE 000H 6356 S0023C3 09 07 BYTE 00AH-1,008H-1 vvv******* warn :value out of range 6357 S0023C5 88EB WORD MFCIPCHR+08EBH 6358 S0023C7 FF BYTE 0FFH 6359 ; 6360 0023C8 MPOBJDT2E EQU $ ;[ player.4 ( : walk.3 ) ] 6361 S0023C8 00 BYTE 000H/2 6362 S0023C9 00 BYTE 000H 6363 S0023CA 09 07 BYTE 00AH-1,008H-1 vvv******* warn :value out of range 6364 S0023CC 90EB WORD MFCIPCHR+10EBH 6365 S0023CE FF BYTE 0FFH 6366 ; 6367 0023CF MPOBJDT2F EQU $ ;[ player.5 ( : walk.4 ) ] 6368 S0023CF 00 BYTE 000H/2 6369 S0023D0 00 BYTE 000H 6370 S0023D1 09 07 BYTE 00AH-1,008H-1 vvv******* warn :value out of range 6371 S0023D3 98EB WORD MFCIPCHR+18EBH 6372 S0023D5 FF BYTE 0FFH 6373 ; 6374 0023D6 MPOBJDT30 EQU $ ;[ player.6 ( : stop ) ] 6375 S0023D6 00 BYTE 000H/2 6376 S0023D7 00 BYTE 000H 6377 S0023D8 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6378 S0023DA A059 WORD MFCIPCHR+2059H 6379 S0023DC FF BYTE 0FFH 6380 ; 6381 0023DD MPOBJDT31 EQU $ ;[ player.7 ( : walk.1 ) ] 6382 S0023DD 00 BYTE 000H/2 6383 S0023DE 00 BYTE 000H 6384 S0023DF 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 6385 S0023E1 80E1 WORD MFCIPCHR+00E1H 6386 S0023E3 FF BYTE 0FFH 6387 ; 6388 0023E4 MPOBJDT32 EQU $ ;[ player.8 ( : walk.2 ) ] 6389 S0023E4 00 BYTE 000H/2 6390 S0023E5 00 BYTE 000H 6391 S0023E6 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 6392 S0023E8 88E1 WORD MFCIPCHR+08E1H 6393 S0023EA FF BYTE 0FFH 6394 ; 6395 0023EB MPOBJDT33 EQU $ ;[ player.9 ( : walk.3 ) ] 6396 S0023EB 00 BYTE 000H/2 6397 S0023EC 00 BYTE 000H 6398 S0023ED 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 6399 S0023EF 90E1 WORD MFCIPCHR+10E1H 6400 S0023F1 FF BYTE 0FFH 6401 ; 6402 0023F2 MPOBJDT34 EQU $ ;[ player.10 ( : walk.4 ) ] 6403 S0023F2 00 BYTE 000H/2 6404 S0023F3 00 BYTE 000H 6405 S0023F4 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 6406 S0023F6 98E1 WORD MFCIPCHR+18E1H 6407 S0023F8 FF BYTE 0FFH 6408 ; 6409 0023F9 MPOBJDT35 EQU $ ;[ player.11 ( : stop ) ] 6410 S0023F9 00 BYTE 000H/2 6411 S0023FA 00 BYTE 000H 6412 S0023FB 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6413 S0023FD B0F1 WORD MFCIPCHR+30F1H 6414 S0023FF FF BYTE 0FFH 6415 ; 6416 002400 MPOBJDT36 EQU $ ;[ player.12 ( : walk.1 ) ] 6417 S002400 00 BYTE 000H/2 6418 S002401 00 BYTE 000H 6419 S002402 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6420 S002404 A0E1 WORD MFCIPCHR+20E1H 6421 S002406 FF BYTE 0FFH 6422 ; 6423 002407 MPOBJDT37 EQU $ ;[ player.13 ( : walk.2 ) ] 6424 S002407 00 BYTE 000H/2 6425 S002408 00 BYTE 000H 6426 S002409 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6427 S00240B A8E1 WORD MFCIPCHR+28E1H 6428 S00240D FF BYTE 0FFH 6429 ; 6430 00240E MPOBJDT38 EQU $ ;[ player.14 ( : walk.3 ) ] 6431 S00240E 00 BYTE 000H/2 6432 S00240F 00 BYTE 000H 6433 S002410 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 6434 S002412 B0E1 WORD MFCIPCHR+30E1H 6435 S002414 FF BYTE 0FFH 6436 ; 6437 002415 MPOBJDT39 EQU $ ;[ player.15 ( : walk.4 ) ] 6438 S002415 00 BYTE 000H/2 6439 S002416 00 BYTE 000H 6440 S002417 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 6441 S002419 B8E1 WORD MFCIPCHR+38E1H 6442 S00241B FF BYTE 0FFH 6443 ; 6444 00241C MPOBJDT3A EQU $ ;[ player.16 ( : stop ) ] 6445 S00241C 00 BYTE 000H/2 6446 S00241D 00 BYTE 000H 6447 S00241E 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 6448 S002420 2059 WORD MPCIPCHR+2059H 6449 S002422 FF BYTE 0FFH 6450 ; 6451 002423 MPOBJDT3B EQU $ ;[ player.17 ( : walk.1 ) ] 6452 S002423 00 BYTE 000H/2 6453 S002424 00 BYTE 000H 6454 S002425 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 6455 S002427 00E1 WORD MPCIPCHR+00E1H 6456 S002429 FF BYTE 0FFH 6457 ; 6458 00242A MPOBJDT3C EQU $ ;[ player.18 ( : walk.2 ) ] 6459 S00242A 00 BYTE 000H/2 6460 S00242B 00 BYTE 000H 6461 S00242C 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 6462 S00242E 08E1 WORD MPCIPCHR+08E1H 6463 S002430 FF BYTE 0FFH 6464 ; 6465 002431 MPOBJDT3D EQU $ ;[ player.19 ( : walk.3 ) ] 6466 S002431 00 BYTE 000H/2 6467 S002432 00 BYTE 000H 6468 S002433 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 6469 S002435 10E1 WORD MPCIPCHR+10E1H 6470 S002437 FF BYTE 0FFH 6471 ; 6472 002438 MPOBJDT3E EQU $ ;[ player.20 ( : walk.4 ) ] 6473 S002438 00 BYTE 000H/2 6474 S002439 00 BYTE 000H 6475 S00243A 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 6476 S00243C 18E1 WORD MPCIPCHR+18E1H 6477 S00243E FF BYTE 0FFH 6478 ; 6479 00243F MPOBJDT3F EQU $ ;[ player.21 ( : stop ) ] 6480 S00243F 00 BYTE 000H/2 6481 S002440 00 BYTE 000H 6482 S002441 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6483 S002443 20F1 WORD MPCIPCHR+20F1H 6484 S002445 FF BYTE 0FFH 6485 ; 6486 002446 MPOBJDT40 EQU $ ;[ player.22 ( : walk.1 ) ] 6487 S002446 00 BYTE 000H/2 6488 S002447 00 BYTE 000H 6489 S002448 09 07 BYTE 00AH-1,008H-1 vvv******* warn :value out of range 6490 S00244A 00EB WORD MPCIPCHR+00EBH 6491 S00244C FF BYTE 0FFH 6492 ; 6493 00244D MPOBJDT41 EQU $ ;[ player.23 ( : walk.2 ) ] 6494 S00244D 00 BYTE 000H/2 6495 S00244E 00 BYTE 000H 6496 S00244F 09 07 BYTE 00AH-1,008H-1 vvv******* warn :value out of range 6497 S002451 08EB WORD MPCIPCHR+08EBH 6498 S002453 FF BYTE 0FFH 6499 ; 6500 002454 MPOBJDT42 EQU $ ;[ player.24 ( : walk.3 ) ] 6501 S002454 00 BYTE 000H/2 6502 S002455 00 BYTE 000H 6503 S002456 09 07 BYTE 00AH-1,008H-1 vvv******* warn :value out of range 6504 S002458 10EB WORD MPCIPCHR+10EBH 6505 S00245A FF BYTE 0FFH 6506 ; 6507 00245B MPOBJDT43 EQU $ ;[ player.25 ( : walk.4 ) ] 6508 S00245B 00 BYTE 000H/2 6509 S00245C 00 BYTE 000H 6510 S00245D 09 07 BYTE 00AH-1,008H-1 vvv******* warn :value out of range 6511 S00245F 18EB WORD MPCIPCHR+18EBH 6512 S002461 FF BYTE 0FFH 6513 ; 6514 002462 MPOBJDT44 EQU $ ;[ player.26 ( : stop ) ] 6515 S002462 00 BYTE 000H/2 6516 S002463 00 BYTE 000H 6517 S002464 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6518 S002466 A8F1 WORD MFCIPCHR+28F1H 6519 S002468 FF BYTE 0FFH 6520 ; 6521 002469 MPOBJDT45 EQU $ ;[ player.27 ( : walk.1 ) ] 6522 S002469 00 BYTE 000H/2 6523 S00246A 00 BYTE 000H 6524 S00246B 08 06 BYTE 009H-1,007H-1 vvv******* warn :value out of range 6525 S00246D 80F5 WORD MFCIPCHR+00F5H 6526 S00246F FF BYTE 0FFH 6527 ; 6528 002470 MPOBJDT46 EQU $ ;[ player.28 ( : walk.2 ) ] 6529 S002470 00 BYTE 000H/2 6530 S002471 00 BYTE 000H 6531 S002472 08 06 BYTE 009H-1,007H-1 vvv******* warn :value out of range 6532 S002474 88F5 WORD MFCIPCHR+08F5H 6533 S002476 FF BYTE 0FFH 6534 ; 6535 002477 MPOBJDT47 EQU $ ;[ player.29 ( : walk.3 ) ] 6536 S002477 00 BYTE 000H/2 6537 S002478 00 BYTE 000H 6538 S002479 08 06 BYTE 009H-1,007H-1 vvv******* warn :value out of range 6539 S00247B 8FF5 WORD MFCIPCHR+0FF5H 6540 S00247D FF BYTE 0FFH 6541 ; 6542 00247E MPOBJDT48 EQU $ ;[ player.30 ( : walk.4 ) ] 6543 S00247E 00 BYTE 000H/2 6544 S00247F 00 BYTE 000H 6545 S002480 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 6546 S002482 97F5 WORD MFCIPCHR+17F5H 6547 S002484 FF BYTE 0FFH 6548 ; 6549 002485 MPOBJDT49 EQU $ ;[ player.31 ( : stop ) ] 6550 S002485 00 BYTE 000H/2 6551 S002486 00 BYTE 000H 6552 S002487 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6553 S002489 B8F1 WORD MFCIPCHR+38F1H 6554 S00248B FF BYTE 0FFH 6555 ; 6556 00248C MPOBJDT4A EQU $ ;[ player.32 ( : walk.1 ) ] 6557 S00248C 00 BYTE 000H/2 6558 S00248D 00 BYTE 000H 6559 S00248E 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6560 S002490 A0E9 WORD MFCIPCHR+20E9H 6561 S002492 FF BYTE 0FFH 6562 ; 6563 002493 MPOBJDT4B EQU $ ;[ player.33 ( : walk.2 ) ] 6564 S002493 00 BYTE 000H/2 6565 S002494 00 BYTE 000H 6566 S002495 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 6567 S002497 A8E9 WORD MFCIPCHR+28E9H 6568 S002499 FF BYTE 0FFH 6569 ; 6570 00249A MPOBJDT4C EQU $ ;[ player.34 ( : walk.3 ) ] 6571 S00249A 00 BYTE 000H/2 6572 S00249B 00 BYTE 000H 6573 S00249C 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 6574 S00249E B0E9 WORD MFCIPCHR+30E9H 6575 S0024A0 FF BYTE 0FFH 6576 ; 6577 0024A1 MPOBJDT4D EQU $ ;[ player.35 ( : walk.4 ) ] 6578 S0024A1 00 BYTE 000H/2 6579 S0024A2 00 BYTE 000H 6580 S0024A3 07 06 BYTE 008H-1,007H-1 vvv******* warn :value out of range 6581 S0024A5 B8E9 WORD MFCIPCHR+38E9H 6582 S0024A7 FF BYTE 0FFH 6583 ; 6584 0024A8 MPOBJDT4E EQU $ ;[ player.36 ( : stop ) ] 6585 S0024A8 00 BYTE 000H/2 6586 S0024A9 00 BYTE 000H 6587 S0024AA 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6588 S0024AC 28F1 WORD MPCIPCHR+28F1H 6589 S0024AE FF BYTE 0FFH 6590 ; 6591 0024AF MPOBJDT4F EQU $ ;[ player.37 ( : walk.1 ) ] 6592 S0024AF 00 BYTE 000H/2 6593 S0024B0 00 BYTE 000H 6594 S0024B1 08 06 BYTE 009H-1,007H-1 vvv******* warn :value out of range 6595 S0024B3 00F5 WORD MPCIPCHR+00F5H 6596 S0024B5 FF BYTE 0FFH 6597 ; 6598 0024B6 MPOBJDT50 EQU $ ;[ player.38 ( : walk.2 ) ] 6599 S0024B6 00 BYTE 000H/2 6600 S0024B7 00 BYTE 000H 6601 S0024B8 08 06 BYTE 009H-1,007H-1 vvv******* warn :value out of range 6602 S0024BA 08F5 WORD MPCIPCHR+08F5H 6603 S0024BC FF BYTE 0FFH 6604 ; 6605 0024BD MPOBJDT51 EQU $ ;[ player.39 ( : walk.3 ) ] 6606 S0024BD 00 BYTE 000H/2 6607 S0024BE 00 BYTE 000H 6608 S0024BF 08 06 BYTE 009H-1,007H-1 vvv******* warn :value out of range 6609 S0024C1 0FF5 WORD MPCIPCHR+0FF5H 6610 S0024C3 FF BYTE 0FFH 6611 ; 6612 0024C4 MPOBJDT52 EQU $ ;[ player.40 ( : walk.4 ) ] 6613 S0024C4 00 BYTE 000H/2 6614 S0024C5 00 BYTE 000H 6615 S0024C6 08 07 BYTE 009H-1,008H-1 vvv******* warn :value out of range 6616 S0024C8 17F5 WORD MPCIPCHR+17F5H 6617 S0024CA FF BYTE 0FFH 6618 ; 6619 0024CB MPOBJDT53 EQU $ ;[ player.12 ( : walk.5 ) ] 6620 S0024CB 00 BYTE 000H/2 6621 S0024CC 00 BYTE 000H 6622 S0024CD 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6623 S0024CF 20E1 WORD MPCIPCHR+20E1H 6624 S0024D1 FF BYTE 0FFH 6625 ; 6626 0024D2 MPOBJDT54 EQU $ ;[ player.13 ( : walk.6 ) ] 6627 S0024D2 00 BYTE 000H/2 6628 S0024D3 00 BYTE 000H 6629 S0024D4 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6630 S0024D6 28E1 WORD MPCIPCHR+28E1H 6631 S0024D8 FF BYTE 0FFH 6632 ; 6633 0024D9 MPOBJDT55 EQU $ ;[ player.14 ( : walk.7 ) ] 6634 S0024D9 00 BYTE 000H/2 6635 S0024DA 00 BYTE 000H 6636 S0024DB 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6637 S0024DD 30E1 WORD MPCIPCHR+30E1H 6638 S0024DF FF BYTE 0FFH 6639 ; 6640 0024E0 MPOBJDT56 EQU $ ;[ player.15 ( : walk.8 ) ] 6641 S0024E0 00 BYTE 000H/2 6642 S0024E1 00 BYTE 000H 6643 S0024E2 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6644 S0024E4 38E1 WORD MPCIPCHR+38E1H 6645 S0024E6 FF BYTE 0FFH 6646 ; 6647 0024E7 MPOBJDT57 EQU $ ;[ player.32 ( : walk.5 ) ] 6648 S0024E7 00 BYTE 000H/2 6649 S0024E8 00 BYTE 000H 6650 S0024E9 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6651 S0024EB 20E9 WORD MPCIPCHR+20E9H 6652 S0024ED FF BYTE 0FFH 6653 ; 6654 0024EE MPOBJDT58 EQU $ ;[ player.33 ( : walk.6 ) ] 6655 S0024EE 00 BYTE 000H/2 6656 S0024EF 00 BYTE 000H 6657 S0024F0 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6658 S0024F2 28E9 WORD MPCIPCHR+28E9H 6659 S0024F4 FF BYTE 0FFH 6660 ; 6661 0024F5 MPOBJDT59 EQU $ ;[ player.34 ( : walk.7 ) ] 6662 S0024F5 00 BYTE 000H/2 6663 S0024F6 00 BYTE 000H 6664 S0024F7 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6665 S0024F9 30E9 WORD MPCIPCHR+30E9H 6666 S0024FB FF BYTE 0FFH 6667 ; 6668 0024FC MPOBJDT5A EQU $ ;[ player.35 ( : walk.8 ) ] 6669 S0024FC 00 BYTE 000H/2 6670 S0024FD 00 BYTE 000H 6671 S0024FE 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6672 S002500 38E9 WORD MPCIPCHR+38E9H 6673 S002502 FF BYTE 0FFH 6674 ; 6675 002503 MPOBJDT5B EQU $ ;[ ayashii.H ] 6676 S002503 04 BYTE 008H/2 6677 S002504 00 BYTE 000H 6678 S002505 0F 1F BYTE 010H-1,020H-1 vvv******* warn :value out of range 6679 S002507 20A1 WORD MPCIPCHR+20A1H 6680 S002509 FF BYTE 0FFH 6681 ; 6682 00250A MPOBJDT5C EQU $ ;[ ayashii.L ] 6683 S00250A 03 BYTE 006H/2 6684 S00250B 00 BYTE 000H 6685 S00250C 06 0D BYTE 007H-1,00EH-1 vvv******* warn :value out of range 6686 S00250E 12A1 WORD MPCIPCHR+12A1H 6687 S002510 FF BYTE 0FFH 6688 ; 6689 002511 MPOBJDT5D EQU $ ;[ ayashii.2 ] 6690 S002511 06 BYTE 00CH/2 6691 S002512 00 BYTE 000H 6692 S002513 07 0F BYTE 008H-1,010H-1 vvv******* warn :value out of range 6693 S002515 30F8 WORD MPCIPCHR+30F8H 6694 S002517 FF BYTE 0FFH 6695 ; 6696 002518 MPOBJDT5E EQU $ ;[ big kinoko ] 6697 S002518 0B BYTE 016H/2 6698 S002519 01 BYTE 001H 6699 S00251A 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 6700 S00251C 3071 WORD MPCIPCHR+3071H 6701 S00251E FF BYTE 0FFH 6702 ; 6703 00251F MPOBJDT5F EQU $ ;[ small kinoko ] 6704 S00251F 05 BYTE 00AH/2 6705 S002520 00 BYTE 000H 6706 S002521 09 08 BYTE 00AH-1,009H-1 vvv******* warn :value out of range 6707 S002523 16A7 WORD MPCIPCHR+16A7H 6708 S002525 FF BYTE 0FFH 6709 ; 6710 002526 MPOBJDT60 EQU $ ;[ zenmai ] 6711 S002526 04 BYTE 008H/2 6712 S002527 00 BYTE 000H 6713 S002528 07 07 BYTE 008H-1,008H-1 vvv******* warn :value out of range 6714 S00252A 1871 WORD MPCIPCHR+1871H 6715 S00252C FF BYTE 0FFH 6716 ; 6717 00252D MPOBJDT61 EQU $ ;[ big crystal ] 6718 S00252D 06 BYTE 00CH/2 6719 S00252E 00 BYTE 000H 6720 S00252F 07 0A BYTE 008H-1,00BH-1 vvv******* warn :value out of range 6721 S002531 00A9 WORD MPCIPCHR+00A9H 6722 S002533 FF BYTE 0FFH 6723 ; 6724 002534 MPOBJDT62 EQU $ ;[ small crystal ] 6725 S002534 04 BYTE 008H/2 6726 S002535 00 BYTE 000H 6727 S002536 04 04 BYTE 005H-1,005H-1 vvv******* warn :value out of range 6728 S002538 304F WORD MPCIPCHR+304FH 6729 S00253A FF BYTE 0FFH 6730 ; 6731 00253B MPOBJDT63 EQU $ ;[ ishi (tea).1 ] 6732 S00253B 06 BYTE 00CH/2 6733 S00253C 00 BYTE 000H 6734 S00253D 06 05 BYTE 007H-1,006H-1 vvv******* warn :value out of range 6735 S00253F 3041 WORD MPCIPCHR+3041H 6736 S002541 FF BYTE 0FFH 6737 ; 6738 002542 MPOBJDT64 EQU $ ;[ ishi (tea).2 ] 6739 S002542 06 BYTE 00CH/2 6740 S002543 00 BYTE 000H 6741 S002544 05 05 BYTE 006H-1,006H-1 vvv******* warn :value out of range 6742 S002546 3049 WORD MPCIPCHR+3049H 6743 S002548 FF BYTE 0FFH 6744 ; 6745 002549 MPOBJDT65 EQU $ ;[ mini tower ] 6746 S002549 05 BYTE 00AH/2 6747 S00254A 00 BYTE 000H 6748 S00254B 06 07 BYTE 007H-1,008H-1 vvv******* warn :value out of range 6749 S00254D 3641 WORD MPCIPCHR+3641H 6750 S00254F FF BYTE 0FFH 6751 ; 6752 002550 MPOBJDT66 EQU $ ;[ high kinoko.2 ] 6753 S002550 06 BYTE 00CH/2 6754 S002551 00 BYTE 000H 6755 S002552 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 6756 S002554 18B1 WORD MPCIPCHR+18B1H 6757 S002556 FF BYTE 0FFH 6758 ; 6759 002557 MPOBJDT67 EQU $ ;[ high kinoko.3 ] 6760 S002557 06 BYTE 00CH/2 6761 S002558 00 BYTE 000H 6762 S002559 0F 17 BYTE 010H-1,018H-1 vvv******* warn :value out of range 6763 S00255B 18B1 WORD MPCIPCHR+18B1H 6764 S00255D FF BYTE 0FFH 6765 ; 6766 00255E MPOBJDT68 EQU $ ;[ high kinoko.4 ] 6767 S00255E 06 BYTE 00CH/2 6768 S00255F 00 BYTE 000H 6769 S002560 0F 07 BYTE 010H-1,008H-1 vvv******* warn :value out of range 6770 S002562 28B1 WORD MPCIPCHR+28B1H 6771 S002564 0F 17 BYTE 010H-1,018H-1 vvv******* warn :value out of range 6772 S002566 18B1 WORD MPCIPCHR+18B1H 6773 S002568 FF BYTE 0FFH 6774 ; 6775 002569 MPOBJDT69 EQU $ ;[ high kinoko.6 ] 6776 S002569 06 BYTE 00CH/2 6777 S00256A 00 BYTE 000H 6778 S00256B 0F 07 BYTE 010H-1,008H-1 vvv******* warn :value out of range 6779 S00256D 28B1 WORD MPCIPCHR+28B1H 6780 S00256F 0F 07 BYTE 010H-1,008H-1 vvv******* warn :value out of range 6781 S002571 28B1 WORD MPCIPCHR+28B1H 6782 S002573 0F 07 BYTE 010H-1,008H-1 vvv******* warn :value out of range 6783 S002575 28B1 WORD MPCIPCHR+28B1H 6784 S002577 0F 17 BYTE 010H-1,018H-1 vvv******* warn :value out of range 6785 S002579 18B1 WORD MPCIPCHR+18B1H 6786 S00257B FF BYTE 0FFH 6787 ; 6788 00257C MPOBJDT6A EQU $ ;[ high kinoko.7 ] 6789 S00257C 06 BYTE 00CH/2 6790 S00257D 00 BYTE 000H 6791 S00257E 0F 07 BYTE 010H-1,008H-1 vvv******* warn :value out of range 6792 S002580 28B1 WORD MPCIPCHR+28B1H 6793 S002582 0F 07 BYTE 010H-1,008H-1 vvv******* warn :value out of range 6794 S002584 28B1 WORD MPCIPCHR+28B1H 6795 S002586 0F 07 BYTE 010H-1,008H-1 vvv******* warn :value out of range 6796 S002588 28B1 WORD MPCIPCHR+28B1H 6797 S00258A 0F 07 BYTE 010H-1,008H-1 vvv******* warn :value out of range 6798 S00258C 28B1 WORD MPCIPCHR+28B1H 6799 S00258E 0F 17 BYTE 010H-1,018H-1 vvv******* warn :value out of range 6800 S002590 18B1 WORD MPCIPCHR+18B1H 6801 S002592 FF BYTE 0FFH 6802 ; 6803 002593 MPOBJDT6B EQU $ ;[ holl mask ] 6804 S002593 00 BYTE 000H/2 6805 S002594 05 BYTE 005H 6806 S002595 27 1D BYTE 028H-1,01EH-1 vvv******* warn :value out of range 6807 S002597 8000 WORD MFCIPCHR+0000H 6808 S002599 FF BYTE 0FFH 6809 ; 6810 00259A MPOBJDT6C EQU $ ;[—d‚µ‚¢–Ø (‘å)] 6811 S00259A 00 BYTE 000H/2 6812 S00259B 00 BYTE 000H 6813 S00259C 0F 1F BYTE 010H-1,020H-1 vvv******* warn :value out of range 6814 S00259E 4000 WORD MPCIPCHR+4000H 6815 S0025A0 FF BYTE 0FFH 6816 ; 6817 0025A1 MPOBJDT6D EQU $ ;[—d‚µ‚¢–Ø (¬)] 6818 S0025A1 00 BYTE 000H/2 6819 S0025A2 00 BYTE 000H 6820 S0025A3 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 6821 S0025A5 5010 WORD MPCIPCHR+5010H 6822 S0025A7 FF BYTE 0FFH 6823 ; 6824 0025A8 MPOBJDT6E EQU $ ;[ Šâ(‘å)] 6825 S0025A8 00 BYTE 000H/2 6826 S0025A9 00 BYTE 000H 6827 S0025AA 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 6828 S0025AC 40E1 WORD MPCIPCHR+40E1H 6829 S0025AE FF BYTE 0FFH 6830 ; 6831 0025AF MPOBJDT6F EQU $ ;[Šâ(¬)] 6832 S0025AF 00 BYTE 000H/2 6833 S0025B0 00 BYTE 000H 6834 S0025B1 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 6835 S0025B3 4010 WORD MPCIPCHR+4010H 6836 S0025B5 FF BYTE 0FFH 6837 ; 6838 0025B6 MPOBJDT70 EQU $ ;[ ƒWƒƒƒ“ƒOƒ‹‚Ì“ƒ (‘å)] 6839 S0025B6 00 BYTE 000H/2 6840 S0025B7 00 BYTE 000H 6841 S0025B8 0F 1F BYTE 010H-1,020H-1 vvv******* warn :value out of range 6842 S0025BA 00C0 WORD MPCIPCHR+00C0H 6843 S0025BC FF BYTE 0FFH 6844 ; 6845 0025BD MPOBJDT71 EQU $ ;[ ƒWƒƒƒ“ƒOƒ‹‚Ì“ƒ (¬)] 6846 S0025BD 00 BYTE 000H/2 6847 S0025BE 00 BYTE 000H 6848 S0025BF 07 15 BYTE 008H-1,016H-1 vvv******* warn :value out of range 6849 S0025C1 2AF9 WORD MPCIPCHR+2AF9H 6850 S0025C3 FF BYTE 0FFH 6851 ; 6852 0025C4 MPOBJDT72 EQU $ ;[ ƒOƒŒ[‚Ì“ƒ ] 6853 S0025C4 00 BYTE 000H/2 6854 S0025C5 00 BYTE 000H 6855 S0025C6 0F 1F BYTE 010H-1,020H-1 vvv******* warn :value out of range 6856 S0025C8 20B0 WORD MPCIPCHR+20B0H 6857 S0025CA FF BYTE 0FFH 6858 ; 6859 0025CB MPOBJDT73 EQU $ ;[ ƒNƒbƒpé ] 6860 S0025CB 00 BYTE 000H/2 6861 S0025CC 00 BYTE 000H 6862 S0025CD 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 6863 S0025CF 4020 WORD MPCIPCHR+4020H 6864 S0025D1 FF BYTE 0FFH 6865 ; 6866 0025D2 MPOBJDT74 EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚P] 6867 S0025D2 00 BYTE 000H/2 6868 S0025D3 00 BYTE 000H 6869 S0025D4 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 6870 S0025D6 0040 WORD MPCIPCHR+0040H 6871 S0025D8 FF BYTE 0FFH 6872 ; 6873 0025D9 MPOBJDT75 EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚Q] 6874 S0025D9 00 BYTE 000H/2 6875 S0025DA 00 BYTE 000H 6876 S0025DB 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 6877 S0025DD 0001 WORD MPCIPCHR+0001H 6878 S0025DF FF BYTE 0FFH 6879 ; 6880 0025E0 MPOBJDT76 EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚R] 6881 S0025E0 00 BYTE 000H/2 6882 S0025E1 00 BYTE 000H 6883 S0025E2 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 6884 S0025E4 2001 WORD MPCIPCHR+2001H 6885 S0025E6 FF BYTE 0FFH 6886 ; 6887 0025E7 MPOBJDT77 EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚S] 6888 S0025E7 00 BYTE 000H/2 6889 S0025E8 00 BYTE 000H 6890 S0025E9 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 6891 S0025EB 2021 WORD MPCIPCHR+2021H 6892 S0025ED FF BYTE 0FFH 6893 ; 6894 0025EE MPOBJDT78 EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚T] 6895 S0025EE 00 BYTE 000H/2 6896 S0025EF 00 BYTE 000H 6897 S0025F0 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 6898 S0025F2 2081 WORD MPCIPCHR+2081H 6899 S0025F4 FF BYTE 0FFH 6900 ; 6901 0025F5 MPOBJDT79 EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚U] 6902 S0025F5 00 BYTE 000H/2 6903 S0025F6 00 BYTE 000H 6904 S0025F7 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 6905 S0025F9 20C1 WORD MPCIPCHR+20C1H 6906 S0025FB FF BYTE 0FFH 6907 ; 6908 0025FC MPOBJDT7A EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚V] 6909 S0025FC 00 BYTE 000H/2 6910 S0025FD 00 BYTE 000H 6911 S0025FE 1F 17 BYTE 020H-1,018H-1 vvv******* warn :value out of range 6912 S002600 4001 WORD MPCIPCHR+4001H 6913 S002602 FF BYTE 0FFH 6914 ; 6915 002603 MPOBJDT7B EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚W] 6916 S002603 00 BYTE 000H/2 6917 S002604 00 BYTE 000H 6918 S002605 1F 17 BYTE 020H-1,018H-1 vvv******* warn :value out of range 6919 S002607 4021 WORD MPCIPCHR+4021H 6920 S002609 FF BYTE 0FFH 6921 ; 6922 00260A MPOBJDT7C EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚X] 6923 S00260A 00 BYTE 000H/2 6924 S00260B 00 BYTE 000H 6925 S00260C 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 6926 S00260E 3080 WORD MPCIPCHR+3080H 6927 S002610 FF BYTE 0FFH 6928 ; 6929 002611 MPOBJDT7D EQU $ ;[”š”­ƒAƒjƒ[ƒVƒ‡ƒ“‚m‚.‚`] 6930 S002611 00 BYTE 000H/2 6931 S002612 00 BYTE 000H 6932 S002613 0F 0F BYTE 010H-1,010H-1 vvv******* warn :value out of range 6933 S002615 3090 WORD MPCIPCHR+3090H 6934 S002617 FF BYTE 0FFH 6935 ; 6936 002618 MPOBJDT7E EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚P] 6937 S002618 00 BYTE 000H/2 6938 S002619 00 BYTE 000H 6939 S00261A 1F 07 BYTE 020H-1,008H-1 vvv******* warn :value out of range 6940 S00261C D880 WORD MFCIPCHR+5880H 6941 S00261E FF BYTE 0FFH 6942 ; 6943 00261F MPOBJDT7F EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚Q] 6944 S00261F 00 BYTE 000H/2 6945 S002620 00 BYTE 000H 6946 S002621 1F 0F BYTE 020H-1,010H-1 vvv******* warn :value out of range 6947 S002623 C080 WORD MFCIPCHR+4080H 6948 S002625 FF BYTE 0FFH 6949 ; 6950 002626 MPOBJDT80 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚R] 6951 S002626 00 BYTE 000H/2 6952 S002627 00 BYTE 000H 6953 S002628 1F 17 BYTE 020H-1,018H-1 vvv******* warn :value out of range 6954 S00262A C8C0 WORD MFCIPCHR+48C0H 6955 S00262C FF BYTE 0FFH 6956 ; 6957 00262D MPOBJDT81 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚S] 6958 S00262D 00 BYTE 000H/2 6959 S00262E 00 BYTE 000H 6960 S00262F 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 6961 S002631 C0E0 WORD MFCIPCHR+40E0H 6962 S002633 FF BYTE 0FFH 6963 ; 6964 002634 MPOBJDT82 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚T] 6965 S002634 00 BYTE 000H/2 6966 S002635 00 BYTE 000H 6967 S002636 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 6968 S002638 C060 WORD MFCIPCHR+4060H 6969 S00263A FF BYTE 0FFH 6970 ; 6971 00263B MPOBJDT83 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚U] 6972 S00263B 00 BYTE 000H/2 6973 S00263C 00 BYTE 000H 6974 S00263D 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 6975 S00263F C040 WORD MFCIPCHR+4040H 6976 S002641 FF BYTE 0FFH 6977 ; 6978 002642 MPOBJDT84 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚V] 6979 S002642 00 BYTE 000H/2 6980 S002643 00 BYTE 000H 6981 S002644 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 6982 S002646 A0C0 WORD MFCIPCHR+20C0H 6983 S002648 FF BYTE 0FFH 6984 ; 6985 002649 MPOBJDT85 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚W] 6986 S002649 00 BYTE 000H/2 6987 S00264A 00 BYTE 000H 6988 S00264B 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 6989 S00264D 8060 WORD MFCIPCHR+0060H 6990 S00264F FF BYTE 0FFH 6991 ; 6992 002650 MPOBJDT86 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚X] 6993 S002650 00 BYTE 000H/2 6994 S002651 00 BYTE 000H 6995 S002652 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 6996 S002654 A040 WORD MFCIPCHR+2040H 6997 S002656 FF BYTE 0FFH 6998 ; 6999 002657 MPOBJDT87 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚`] 7000 S002657 00 BYTE 000H/2 7001 S002658 00 BYTE 000H 7002 S002659 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 7003 S00265B A060 WORD MFCIPCHR+2060H 7004 S00265D FF BYTE 0FFH 7005 ; 7006 00265E MPOBJDT88 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚a] 7007 S00265E 00 BYTE 000H/2 7008 S00265F 00 BYTE 000H 7009 S002660 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 7010 S002662 A000 WORD MFCIPCHR+2000H 7011 S002664 FF BYTE 0FFH 7012 ; 7013 002665 MPOBJDT89 EQU $ ;[Šø‚Í‚½‚ß‚« ƒAƒjƒ[ƒVƒ‡ƒ“ ‚m‚.‚b] 7014 S002665 00 BYTE 000H/2 7015 S002666 00 BYTE 000H 7016 S002667 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 7017 S002669 A020 WORD MFCIPCHR+2020H 7018 S00266B FF BYTE 0FFH 7019 ; 7020 00266C MPOBJDT8A EQU $ ;[”j‰ó‚µ‚½Œã‚Ì“V‹óé] 7021 S00266C 00 BYTE 000H/2 7022 S00266D 0A BYTE 00AH 7023 S00266E 1F 17 BYTE 020H-1,018H-1 vvv******* warn :value out of range 7024 S002670 4081 WORD MPCIPCHR+4081H 7025 S002672 FF BYTE 0FFH 7026 ; 7027 002673 MPOBJDT8B EQU $ ;[ƒˆƒbƒV[ ƒtƒ‰ƒbƒVƒ… ‚m‚.‚O] 7028 S002673 00 BYTE 000H/2 7029 S002674 00 BYTE 000H 7030 S002675 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 7031 S002677 40C1 WORD MPCIPCHR+40C1H 7032 S002679 FF BYTE 0FFH 7033 ; 7034 00267A MPOBJDT8C EQU $ ;[ƒˆƒbƒV[ ƒtƒ‰ƒbƒVƒ… ‚m‚.‚P] 7035 S00267A 00 BYTE 000H/2 7036 S00267B 00 BYTE 000H 7037 S00267C 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 7038 S00267E 40A0 WORD MPCIPCHR+40A0H 7039 S002680 FF BYTE 0FFH 7040 ; 7041 002681 MPOBJDT8D EQU $ ;[ƒˆƒbƒV[ ƒtƒ‰ƒbƒVƒ… ‚m‚.‚Q] 7042 S002681 00 BYTE 000H/2 7043 S002682 00 BYTE 000H 7044 S002683 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 7045 S002685 4041 WORD MPCIPCHR+4041H 7046 S002687 FF BYTE 0FFH 7047 ; 7048 002688 MPOBJDT8E EQU $ ;[ƒˆƒbƒV[ ƒtƒ‰ƒbƒVƒ… ‚m‚.‚R] 7049 S002688 00 BYTE 000H/2 7050 S002689 00 BYTE 000H 7051 S00268A 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 7052 S00268C 4061 WORD MPCIPCHR+4061H 7053 S00268E FF BYTE 0FFH 7054 ; 7055 00268F MPOBJDT8F EQU $ ;[ƒˆƒbƒV[ ƒtƒ‰ƒbƒVƒ… ‚m‚.‚S] 7056 S00268F 00 BYTE 000H/2 7057 S002690 00 BYTE 000H 7058 S002691 1F 1F BYTE 020H-1,020H-1 vvv******* warn :value out of range 7059 S002693 40A1 WORD MPCIPCHR+40A1H 7060 S002695 FF BYTE 0FFH 7061 ; 7062 ; 7063 ;------------------------------------------------------------------------ 7064 ;- map pars data - 7065 ;------------------------------------------------------------------------ 7066 000300 PARSY EQU 0300H 7067 002696 PARSDT EQU $ 7068 S002696 0120 011F 011F WORD 00120H,0011FH,0011FH,0011EH,0011DH,0011CH,0011CH,0011BH S00269C 011E 011D 011C S0026A2 011C 011B 7069 S0026A6 011A 011A 0119 WORD 0011AH,0011AH,00119H,00118H,00117H,00117H,00116H,00115H S0026AC 0118 0117 0117 S0026B2 0116 0115 7070 S0026B6 0115 0114 0113 WORD 00115H,00114H,00113H,00113H,00112H,00111H,00111H,00110H S0026BC 0113 0112 0111 S0026C2 0111 0110 7071 S0026C6 010F 010F 010E WORD 0010FH,0010FH,0010EH,0010DH,0010DH,0010CH,0010CH,0010BH S0026CC 010D 010D 010C S0026D2 010C 010B 7072 S0026D6 010A 010A 0109 WORD 0010AH,0010AH,00109H,00108H,00108H,00107H,00107H,00106H S0026DC 0108 0108 0107 S0026E2 0107 0106 7073 S0026E6 0105 0105 0104 WORD 00105H,00105H,00104H,00104H,00103H,00102H,00102H,00101H S0026EC 0104 0103 0102 S0026F2 0102 0101 7074 S0026F6 0101 0100 00FF WORD 00101H,00100H,000FFH,000FFH,000FEH,000FEH,000FDH,000FDH S0026FC 00FF 00FE 00FE S002702 00FD 00FD 7075 S002706 00FC 00FB 00FB WORD 000FCH,000FBH,000FBH,000FAH,000FAH,000F9H,000F9H,000F8H S00270C 00FA 00FA 00F9 S002712 00F9 00F8 7076 S002716 00F8 00F7 00F6 WORD 000F8H,000F7H,000F6H,000F6H,000F5H,000F5H,000F4H,000F4H S00271C 00F6 00F5 00F5 S002722 00F4 00F4 7077 S002726 00F3 00F3 00F2 WORD 000F3H,000F3H,000F2H,000F2H,000F1H,000F1H,000F0H,000F0H S00272C 00F2 00F1 00F1 S002732 00F0 00F0 7078 S002736 00EF 00EF 00EE WORD 000EFH,000EFH,000EEH,000EEH,000EDH,000EDH,000ECH,000ECH S00273C 00EE 00ED 00ED S002742 00EC 00EC 7079 S002746 00EB 00EB 00EA WORD 000EBH,000EBH,000EAH,000EAH,000E9H,000E9H,000E8H,000E8H S00274C 00EA 00E9 00E9 S002752 00E8 00E8 7080 S002756 00E7 00E7 00E6 WORD 000E7H,000E7H,000E6H,000E6H,000E5H,000E5H,000E5H,000E4H S00275C 00E6 00E5 00E5 S002762 00E5 00E4 7081 S002766 00E4 00E3 00E3 WORD 000E4H,000E3H,000E3H,000E2H,000E2H,000E1H,000E1H,000E0H S00276C 00E2 00E2 00E1 S002772 00E1 00E0 7082 ; 7083 0001B9 PARSYP EQU 01B9H 7084 000080 CENTZ EQU 080H 7085 002776 PARSDV EQU $ 7086 S002776 468F 4680 4672 WORD 0468FH,04680H,04672H,04663H,04654H,04645H,04637H,04628H S00277C 4663 4654 4645 S002782 4637 4628 7087 S002786 4619 460B 45FC WORD 04619H,0460BH,045FCH,045EEH,045DFH,045D1H,045C2H,045B4H S00278C 45EE 45DF 45D1 S002792 45C2 45B4 7088 S002796 45A5 4597 4588 WORD 045A5H,04597H,04588H,0457AH,0456CH,0455DH,0454FH,04541H S00279C 457A 456C 455D S0027A2 454F 4541 7089 S0027A6 4533 4524 4516 WORD 04533H,04524H,04516H,04508H,044FAH,044ECH,044DDH,044CFH S0027AC 4508 44FA 44EC S0027B2 44DD 44CF 7090 S0027B6 44C1 44B3 44A5 WORD 044C1H,044B3H,044A5H,04497H,04489H,0447BH,0446DH,0445FH S0027BC 4497 4489 447B S0027C2 446D 445F 7091 S0027C6 4451 4444 4436 WORD 04451H,04444H,04436H,04428H,0441AH,0440CH,043FEH,043F1H S0027CC 4428 441A 440C S0027D2 43FE 43F1 7092 S0027D6 43E3 43D5 43C8 WORD 043E3H,043D5H,043C8H,043BAH,043ACH,0439FH,04391H,04383H S0027DC 43BA 43AC 439F S0027E2 4391 4383 7093 S0027E6 4376 4368 435B WORD 04376H,04368H,0435BH,0434DH,04340H,04332H,04325H,04318H S0027EC 434D 4340 4332 S0027F2 4325 4318 7094 S0027F6 430A 42FD 42F0 WORD 0430AH,042FDH,042F0H,042E2H,042D5H,042C8H,042BAH,042ADH S0027FC 42E2 42D5 42C8 S002802 42BA 42AD 7095 S002806 42A0 4293 4286 WORD 042A0H,04293H,04286H,04278H,0426BH,0425EH,04251H,04244H S00280C 4278 426B 425E S002812 4251 4244 7096 S002816 4237 422A 421D WORD 04237H,0422AH,0421DH,04210H,04203H,041F6H,041E9H,041DCH S00281C 4210 4203 41F6 S002822 41E9 41DC 7097 S002826 41CF 41C2 41B5 WORD 041CFH,041C2H,041B5H,041A9H,0419CH,0418FH,04182H,04175H S00282C 41A9 419C 418F S002832 4182 4175 7098 S002836 4169 415C 414F WORD 04169H,0415CH,0414FH,04143H,04136H,04129H,0411DH,04110H S00283C 4143 4136 4129 S002842 411D 4110 7099 S002846 4103 40F7 40EA WORD 04103H,040F7H,040EAH,040DEH,040D1H,040C5H,040B8H,040ACH S00284C 40DE 40D1 40C5 S002852 40B8 40AC 7100 S002856 409F 4093 4087 WORD 0409FH,04093H,04087H,0407AH,0406EH,04061H,04055H,04049H S00285C 407A 406E 4061 S002862 4055 4049 7101 S002866 403D 4030 4024 WORD 0403DH,04030H,04024H,04018H,0400CH,03FFFH,03FF3H,03FE7H S00286C 4018 400C 3FFF S002872 3FF3 3FE7 7102 S002876 3FDB 3FCF 3FC3 WORD 03FDBH,03FCFH,03FC3H,03FB7H,03FAAH,03F9EH,03F92H,03F86H S00287C 3FB7 3FAA 3F9E S002882 3F92 3F86 7103 S002886 3F7A 3F6E 3F62 WORD 03F7AH,03F6EH,03F62H,03F56H,03F4BH,03F3FH,03F33H,03F27H S00288C 3F56 3F4B 3F3F S002892 3F33 3F27 7104 S002896 3F1B 3F0F 3F03 WORD 03F1BH,03F0FH,03F03H,03EF7H,03EECH,03EE0H,03ED4H,03EC8H S00289C 3EF7 3EEC 3EE0 S0028A2 3ED4 3EC8 7105 S0028A6 3EBD 3EB1 3EA5 WORD 03EBDH,03EB1H,03EA5H,03E9AH,03E8EH,03E82H,03E77H,03E6BH S0028AC 3E9A 3E8E 3E82 S0028B2 3E77 3E6B 7106 S0028B6 3E60 3E54 3E48 WORD 03E60H,03E54H,03E48H,03E3DH,03E31H,03E26H,03E1AH,03E0FH S0028BC 3E3D 3E31 3E26 S0028C2 3E1A 3E0F 7107 S0028C6 3E03 3DF8 3DED WORD 03E03H,03DF8H,03DEDH,03DE1H,03DD6H,03DCAH,03DBFH,03DB4H S0028CC 3DE1 3DD6 3DCA S0028D2 3DBF 3DB4 7108 S0028D6 3DA8 3D9D 3D92 WORD 03DA8H,03D9DH,03D92H,03D87H,03D7BH,03D70H,03D65H,03D5AH S0028DC 3D87 3D7B 3D70 S0028E2 3D65 3D5A 7109 S0028E6 3D4E 3D43 3D38 WORD 03D4EH,03D43H,03D38H,03D2DH,03D22H,03D17H,03D0CH,03D00H S0028EC 3D2D 3D22 3D17 S0028F2 3D0C 3D00 7110 S0028F6 3CF5 3CEA 3CDF WORD 03CF5H,03CEAH,03CDFH,03CD4H,03CC9H,03CBEH,03CB3H,03CA8H S0028FC 3CD4 3CC9 3CBE S002902 3CB3 3CA8 7111 S002906 3C9D 3C93 3C88 WORD 03C9DH,03C93H,03C88H,03C7DH,03C72H,03C67H,03C5CH,03C51H S00290C 3C7D 3C72 3C67 S002912 3C5C 3C51 7112 S002916 3C46 3C3C 3C31 WORD 03C46H,03C3CH,03C31H,03C26H,03C1BH,03C11H,03C06H,03BFBH S00291C 3C26 3C1B 3C11 S002922 3C06 3BFB 7113 S002926 3BF0 3BE6 3BDB WORD 03BF0H,03BE6H,03BDBH,03BD0H,03BC6H,03BBBH,03BB1H,03BA6H S00292C 3BD0 3BC6 3BBB S002932 3BB1 3BA6 7114 S002936 3B9B 3B91 3B86 WORD 03B9BH,03B91H,03B86H,03B7CH,03B71H,03B67H,03B5CH,03B52H S00293C 3B7C 3B71 3B67 S002942 3B5C 3B52 7115 S002946 3B47 3B3D 3B32 WORD 03B47H,03B3DH,03B32H,03B28H,03B1EH,03B13H,03B09H,03AFEH S00294C 3B28 3B1E 3B13 S002952 3B09 3AFE 7116 S002956 3AF4 3AEA 3ADF WORD 03AF4H,03AEAH,03ADFH,03AD5H,03ACBH,03AC0H,03AB6H,03AACH S00295C 3AD5 3ACB 3AC0 S002962 3AB6 3AAC 7117 S002966 3AA2 3A98 3A8D WORD 03AA2H,03A98H,03A8DH,03A83H,03A79H,03A6FH,03A65H,03A5AH S00296C 3A83 3A79 3A6F S002972 3A65 3A5A 7118 ; 7119 000070 MPCENTX EQU 0E0H/2 7120 FFFEC0 MPCENTY EQU (070H+31H)-PARSYP-28H 7121 ; 7122 ; 7123 ; 7124 ; 7125 ; 7126 ; 7127 ; 7128 ; 7129 ;************************************************************************ 7130 ;* M-chip RAM clear * 7131 ;* in : (R1) <-- clear RAM start address * 7132 ;* (R12) <-- " size ( word ) * 7133 ;************************************************************************ 7134 ; 7135 002976 MRAM_CLR EQU $ 7136 S002976 60 SUB R0 ;[ IBT R0,#0 ] 7137 ; 7138 S002977 02 CACHE 7139 ; 7140 S002978 2F 1D MOVE R13,R15 7141 MRMCL010 7142 S00297A 31 STW (R1) 7143 S00297B D1 INC R1 7144 S00297C 3C LOOP 7145 S00297D D1 INC R1 7146 ; 7147 S00297E 00 STOP 7148 S00297F 01 NOP 7149 ; 7150 ;************************************************************************ 7151 ;* moji polygon RAM convert * 7152 ;* in : (R1) <-- convert RAM from start address * 7153 ;* (R2) <-- convert RAM to start address * 7154 ;* (R3) <-- 1 block number of word * 7155 ;* (R4) <-- number of block * 7156 ;************************************************************************ 7157 ; 7158 002980 MJRAMCNV EQU $ 7159 S002980 F0 0200 IWT R0,#16*20H 7160 S002983 63 SUB R3 7161 S002984 15 TO R5 ;(R5) <-- from address add data 7162 S002985 63 SUB R3 7163 ; 7164 S002986 02 CACHE 7165 ; 7166 S002987 FD 298C' IWT R13,#MRCNV020 7167 MRCNV010 7168 S00298A 23 1C MOVE R12,R3 7169 MRCNV020 7170 S00298C 41 LDW (R1) 7171 S00298D 32 STW (R2) 7172 S00298E D1 INC R1 7173 S00298F D1 INC R1 7174 S002990 D2 INC R2 7175 S002991 3C LOOP 7176 S002992 D2 INC R2 7177 ; 7178 S002993 21 WITH R1 7179 S002994 55 ADD R5 7180 ; 7181 S002995 E4 DEC R4 7182 S002996 08 F3' BNE MRCNV010+1 7183 S002998 23 1C MOVE R12,R3 ;[dummy] 7184 ; 7185 S00299A 00 STOP 7186 S00299B 01 NOP 7187 ; 7188 ; 7189 ;************************************************************************ 7190 ;* * 7191 ;* ‚x‚n‚r‚g‚h ‚c‚n‚n‚q ‚l‚n‚u‚d * 7192 ;* Programmed by Y. Yamamoto. * 7193 ;* Jul. 14(Wed), JST 1993 * 7194 ;* Ver 0.00* 7195 ;************************************************************************ 7196 556000 DOR_ADR EQU CIPCHD3 + 6000H 7197 000055 DOR_ADR_B EQU BANK DOR_ADR 7198 00001F DOR_YS EQU 020H - 1 7199 00000F DOR_XS EQU 010H - 1 7200 00021F DOR_COS EQU COS + 002H 7201 000008 DOR_COS_B EQU 8 ;BANK DOR_COS 7202 702200 DOR_NDT EQU DIVBUF ;1/n DATA 7203 ; 7204 ; 7205 00299C DOOR_MV EQU $ 7206 S00299C 3F DF ROMB 7207 ; 7208 S00299E 02 CACHE 7209 S00299F 3D F0 0002 LM R0, CWORK1 ;R1 = Y * 40H + X * 10H 7210 S0029A3 50 ADD R0 7211 S0029A4 3E 88 MULT #8 7212 S0029A6 3D F1 0000 LM R1, CWORK0 7213 S0029AA 51 ADD R1 7214 S0029AB 3E 84 MULT #4 vvv******* warn :value out of range 7215 S0029AD F1 5800 IWT R1, #WOB7CHR 7216 S0029B0 11 TO R1 7217 S0029B1 51 ADD R1 7218 mCHAR_CLR_4X R1, 4, R2, R3, R4, R5 7218+ S0029B2 F0 0200 IWT R0, #00200H 7218+ S0029B5 21 12 MOVE R2, R1 7218+ S0029B7 13 TO R3 7218+ S0029B8 52 ADD R2 7218+ S0029B9 14 TO R4 7218+ S0029BA 53 ADD R3 7218+ S0029BB 15 TO R5 7218+ S0029BC 54 ADD R4 7218+ 7218+ S0029BD 60 SUB R0 7218+ S0029BE FC 0040 IWT R12, #(20H * 4) / 2 7218+ S0029C1 2F 1D MOVE R13, R15 7218+ __0000 7218+ S0029C3 32 STW (R2) 7218+ S0029C4 D2 INC R2 7218+ S0029C5 D2 INC R2 7218+ S0029C6 33 STW (R3) 7218+ S0029C7 D3 INC R3 7218+ S0029C8 D3 INC R3 7218+ S0029C9 34 STW (R4) 7218+ S0029CA D4 INC R4 7218+ S0029CB D4 INC R4 7218+ S0029CC 35 STW (R5) 7218+ S0029CD D5 INC R5 7218+ S0029CE 3C LOOP 7218+ S0029CF D5 INC R5 7219 mROMB DOR_COS_B ;COS DATA ROM BANK SET 7219+ S0029D0 A0 08 IBT R0,#DOR_COS_B 7219+ S0029D2 3F DF ROMB 7220 ; 7221 ;;;; IWT R9, #DOR_ADR 7222 S0029D4 F1 021F' IWT R1,#DOR_COS ;DOOR COS DATA vvv******* warn :value out of range 7223 S0029D7 F2 2200 IWT R2,#DOR_NDT ;DOOR 1/n DATA 7224 S0029DA BA FROM R10 ;DOOR KAKUDO 7225 S0029DB 5A ADD R10 ;COS DATA = DOR_RAD * 2 + DOR_COS 7226 S0029DC 1E TO R14 7227 S0029DD 51 ADD R1 7228 S0029DE EF GETB 7229 S0029DF DE INC R14 7230 S0029E0 3D EF GETBH 7231 S0029E2 50 ADD R0 7232 S0029E3 52 ADD R2 7233 S0029E4 16 TO R6 7234 S0029E5 40 LDW (R0) ;R6 <- 1/COS(R10) 7235 ; 7236 ;;;; mCMODE 004H ;CMODE DATA SET 7237 S0029E6 B9 FROM R9 7238 S0029E7 03 LSR 7239 S0029E8 0C 03' BCC DO_M00 7240 S0029EA 60 SUB R0 ;[ IBT R0,#00 ] 7241 ; 7242 S0029EB 3E C4 OR #04H 7243 DO_M00 7244 S0029ED 3D 4E CMODE 7245 ;;;; mCMODE 000H ;CMODE DATA SET 7246 ;;;; mROMB DOR_ADR_B ;DOOR DATA ROM BANK SET 7247 S0029EF BB FROM R11 7248 S0029F0 3F DF ROMB 7249 ; 7250 S0029F2 FB 0100 IWT R11, #00100H 7251 S0029F5 FD 2A0C' IWT R13, #DO_M20 7252 S0029F8 3D F2 0002 LM R2, CWORK1 7253 S0029FC F0 001F IWT R0, #DOR_YS 7254 S0029FF 12 TO R2 7255 S002A00 52 ADD R2 7256 S002A01 F7 1F00 IWT R7, #DOR_YS * 100H 7257 DO_M10 7258 S002A04 3D F1 0000 LM R1, CWORK0 7259 S002A08 A8 00 IBT R8, #000H 7260 S002A0A AC 10 IBT R12, #DOR_XS + 1 7261 DO_M20 7262 S002A0C 70 MERGE 7263 S002A0D 1E TO R14 7264 S002A0E 59 ADD R9 7265 S002A0F 9E LOB 7266 S002A10 3F 7F BIC #00FH 7267 S002A12 08 05' BNE DO_M30 7268 S002A14 DF GETC 7269 ; 7270 S002A15 28 WITH R8 7271 S002A16 56 ADD R6 7272 S002A17 3C LOOP 7273 S002A18 4C PLOT 7274 DO_M30 7275 S002A19 E1 DEC R1 7276 ; ibt r0,#010h 7277 ; colour 7278 ; plot 7279 ;;;; IBT R0,#0CCH ;[ (L) color ] 7280 S002A1A A0 11 IBT R0,#011H ;[ (L) color ] 7281 ; ADD R10 7282 S002A1C 4E COLOUR 7283 S002A1D BA FROM R10 7284 S002A1E 03 LSR 7285 S002A1F 03 LSR 7286 S002A20 03 LSR 7287 S002A21 03 LSR 7288 S002A22 4F NOT 7289 S002A23 3E 73 AND #003H 7290 S002A25 2F WITH R15 7291 S002A26 50 ADD R0 7292 S002A27 4C PLOT 7293 S002A28 4C PLOT 7294 S002A29 4C PLOT 7295 ; 7296 S002A2A 27 WITH R7 7297 S002A2B 6B SUB R11 7298 S002A2C 0A D6' BPL DO_M10 7299 S002A2E E2 DEC R2 7300 ; 7301 S002A2F 3D 4C RPIX 7302 ; 7303 S002A31 00 STOP 7304 S002A32 01 NOP 7305 ; 7306 ; 7307 ;************************************************************************ 7308 ;* gate OAM set * 7309 ;* in : (R1) <-- enemy index * 7310 ;* (R2) <-- start angle * 7311 ;* (R3) <-- OAM index * 7312 ;* (R4) <-- start pattern chara no. index * 7313 ;* (R6) <-- ”¼Œa * 7314 ;************************************************************************ 7315 002A33 GATCHNO EQU $ 7316 ; 7317 ;-------------- ƒŠƒ“ƒOƒAƒjƒ[ƒVƒ‡ƒ“ƒLƒƒƒ‰‚m‚Dƒf[ƒ^ ------------------ 7318 ; 1 2 3 4 5 6 7319 S002A33 44 54 45 55 45 HEX 44,54,45,55,45,54 S002A38 54 7320 S002A39 44 54 45 55 45 HEX 44,54,45,55,45,54,44,54,45,55,45,54,44 S002A3E 54 44 54 45 55 S002A43 45 54 44 7321 ; 7322 ;-------------- ƒŠƒ“ƒOÁ‹ŽƒLƒƒƒ‰‚m‚Dƒf[ƒ^ ---------------------------- 7323 S002A46 55 55 55 55 55 HEX 55,55,55,55,55,55,55,55,55,55,55,55,55,55 S002A4B 55 55 55 55 55 S002A50 55 55 55 55 7324 S002A54 45 45 45 45 45 HEX 45,45,45,45,45,45,45,45,45,45,45,45,45,45 S002A59 45 45 45 45 45 S002A5E 45 45 45 45 7325 S002A62 54 54 54 54 54 HEX 54,54,54,54,54,54,54,54,54,54,54,54,54,54 S002A67 54 54 54 54 54 S002A6C 54 54 54 54 7326 S002A70 44 44 44 44 44 HEX 44,44,44,44,44,44,44,44,44,44,44,44,44,44 S002A75 44 44 44 44 44 S002A7A 44 44 44 44 7327 ; 7328 002A7E GATOAMST EQU $ 7329 S002A7E F0 2A33' IWT R0,#GATCHNO 7330 S002A81 17 TO R7 ;(R7) <-- star chara pattern data address 7331 S002A82 54 ADD R4 7332 S002A83 F0 1400 IWT R0,#CENMUKI 7333 S002A86 51 ADD R1 7334 S002A87 40 LDW (R0) 7335 S002A88 4D SWAP 7336 S002A89 50 ADD R0 7337 S002A8A 50 ADD R0 7338 S002A8B 50 ADD R0 7339 S002A8C 50 ADD R0 7340 S002A8D 1B TO R11 ;(R11) <-- OBJ pri. muki 7341 S002A8E 50 ADD R0 7342 S002A8F F0 1680 IWT R0,#CENDSXL 7343 S002A92 51 ADD R1 7344 S002A93 40 LDW (R0) 7345 S002A94 14 TO R4 ;(R4) <-- enmy display X pos 7346 S002A95 3E 58 ADD #8 7347 S002A97 F0 1682 IWT R0,#CENDSYL 7348 S002A9A 51 ADD R1 7349 S002A9B 40 LDW (R0) 7350 S002A9C 15 TO R5 ;(R5) <-- " Y " 7351 S002A9D 3E 58 ADD #8 7352 ; 7353 S002A9F 26 WITH R6 ;;(R6) <-- circle R 7354 S002AA0 4D SWAP 7355 ; 7356 S002AA1 F8 021D' IWT R8,#COS ;(R8) <-- cos data address 7357 S002AA4 F9 029D' IWT R9,#SIN ;(R9) <-- sin " 7358 S002AA7 FA 1249 IWT R10,#(256*100H)/14 ;(R10) <-- angle add data 7359 ; 7360 S002AAA 22 WITH R2 ;(R2) <-- start angle * 100H 7361 S002AAB 4D SWAP 7362 ; 7363 S002AAC A0 00' IBT R0,#BANK COS 7364 S002AAE 3F DF ROMB 7365 7366 S002AB0 02 CACHE 7367 ; 7368 S002AB1 AC 0E IBT R12,#14 7369 S002AB3 2F 1D MOVE R13,R15 7370 GTOS010 7371 S002AB5 B2 FROM R2 7372 S002AB6 C0 HIB 7373 S002AB7 50 ADD R0 7374 S002AB8 20 11 MOVE R1,R0 7375 S002ABA 1E TO R14 ;(R14) <-- cos data address 7376 S002ABB 59 ADD R9 7377 S002ABC EF GETB 7378 S002ABD DE INC R14 7379 S002ABE 3D EF GETBH 7380 S002AC0 9F FMULT 7381 S002AC1 3D 96 DIV2 7382 S002AC3 54 ADD R4 7383 S002AC4 33 STW (R3) ;X pos set 7384 S002AC5 D3 INC R3 7385 S002AC6 D3 INC R3 7386 ; 7387 S002AC7 B1 FROM R1 7388 S002AC8 1E TO R14 ;(R14) <-- sin data address 7389 S002AC9 58 ADD R8 7390 S002ACA EF GETB 7391 S002ACB DE INC R14 7392 S002ACC 3D EF GETBH 7393 ; 7394 S002ACE 27 1E MOVE R14,R7 ;(R14) <-- star chara pattern data address 7395 ; 7396 S002AD0 9F FMULT 7397 S002AD1 55 ADD R5 7398 S002AD2 33 STW (R3) ;Y pos set 7399 S002AD3 D3 INC R3 7400 S002AD4 D3 INC R3 7401 ; 7402 S002AD5 EF GETB 7403 S002AD6 3D 33 STB (R3) ;chara no. set 7404 S002AD8 D3 INC R3 7405 ; 7406 S002AD9 A0 36 IBT R0,#036H ;(R11) <-- att data 7407 S002ADB 3D 33 STB (R3) ;att set 7408 S002ADD D3 INC R3 7409 ; 7410 S002ADE B2 FROM R2 7411 S002ADF 03 LSR 7412 S002AE0 F1 4000 IWT R1,#4000H 7413 S002AE3 71 AND R1 ;spacial flag set [ 4000H ] 7414 S002AE4 3D CB XOR R11 7415 S002AE6 33 STW (R3) ;size & spacial flag set 7416 S002AE7 D3 INC R3 7417 S002AE8 D3 INC R3 7418 ; 7419 S002AE9 22 WITH R2 7420 S002AEA 5A ADD R10 7421 ; 7422 S002AEB 3C LOOP 7423 S002AEC D7 INC R7 7424 ; 7425 S002AED 00 STOP 7426 S002AEE 01 NOP 7427 ; 7428 ; 7429 ;;;;;************************************************************************ 7430 ;;;;;* rotation point polygon * 7431 ;;;;;* in : (R1) <-- data no. * 7432 ;;;;;* (R2) <-- X angle * 7433 ;;;;;* (R3) <-- Y " * 7434 ;;;;;* (R4) <-- center X pos. * 7435 ;;;;;* (R5) <-- " Y " * 7436 ;;;;;* (R6) <-- zoom flag * 7437 ;;;;;************************************************************************ 7438 ;;;;ROTPOLY EQU $ 7439 ;;;;; 7440 ;;;;;-------------- bitmap buffer clear !! ---------------------------------- 7441 ;;;; CACHE 7442 ;;;;; 7443 ;;;; IWT R7,#(WOB7CHR+20H*4) 7444 ;;;; IWT R8,#(WOB7CHR+20H*4)+200H 7445 ;;;; IWT R9,#(WOB7CHR+20H*4)+400H 7446 ;;;; IWT R10,#(WOB7CHR+20H*4)+600H 7447 ;;;; SUB R0 ;[ IBT R0,#0 ] 7448 ;;;; IWT R12,#(20H*4)/2 7449 ;;;; MOVE R13,R15 7450 ;;;;RTPOL000 7451 ;;;; STW (R7) 7452 ;;;; STW (R8) 7453 ;;;; STW (R9) 7454 ;;;; STW (R10) 7455 ;;;; INC R7 7456 ;;;; INC R7 7457 ;;;; INC R8 7458 ;;;; INC R8 7459 ;;;; INC R9 7460 ;;;; INC R9 7461 ;;;; INC R10 7462 ;;;; LOOP 7463 ;;;; INC R10 7464 ;;;;; 7465 ;;;;;-------------- moji polygon set ---------------------------------------- 7466 ;;;;; 7467 ;;;;;-------------- plot mode set ----------------------------------- 7468 ;;;; SUB R0 ;[ IBT R0,#0 ] 7469 ;;;; CMODE 7470 ;;;; IBT R0,#01H 7471 ;;;; COLOUR ;color set 7472 ;;;;; 7473 ;;;;;-------------- cos & sin data read ----------------------------- 7474 ;;;; IBT R0,#BANK LCOS ;cos & sin data bank set 7475 ;;;; ROMB 7476 ;;;;; 7477 ;;;; IWT R13,#LCOS 7478 ;;;; FROM R13 7479 ;;;; TO R14 7480 ;;;; ADD R2 7481 ;;;; TO R7 ;(R7) <-- X cos data 7482 ;;;; GETB 7483 ;;;;; 7484 ;;;; FROM R13 7485 ;;;; TO R14 7486 ;;;; ADD R3 7487 ;;;; TO R9 ;(R9) <-- Y cos data 7488 ;;;; GETB 7489 ;;;;; 7490 ;;;; IWT R13,#LSIN 7491 ;;;; FROM R13 7492 ;;;; TO R14 7493 ;;;; ADD R2 7494 ;;;; TO R8 ;(R8) <-- X sin data 7495 ;;;; GETB 7496 ;;;;; 7497 ;;;; FROM R13 7498 ;;;; TO R14 7499 ;;;; ADD R3 7500 ;;;; TO R10 ;(R10) <-- Y sin data 7501 ;;;; GETB 7502 ;;;;; 7503 ;;;;;-------------- moji polygon data address read ------------------ 7504 ;;;; IWT R0,#ROTPOLIN 7505 ;;;; ADD R1 7506 ;;;; TO R14 7507 ;;;; ADD R1 7508 ;;;; GETB 7509 ;;;; INC R14 7510 ;;;; GETBH 7511 ;;;; MOVE R14,R0 ;(R14) <-- moji polygon data pointer 7512 ;;;;; 7513 ;;;;;-------------- point rotation & 2D convert --------------------- 7514 ;;;; MOVE R11,R6 ;(R11) <-- zoom flag 7515 ;;;; TO R12 ;(R12) <-- number of point 7516 ;;;; GETB 7517 ;;;; INC R14 7518 ;;;;; 7519 ;;;; CACHE 7520 ;;;;; 7521 ;;;; MOVE R13,R15 7522 ;;;;RTPOL010 7523 ;;;; GETB ;(R0) <-- Z pos. 7524 ;;;; INC R14 7525 ;;;;; 7526 ;;;; TO R1 ;(R1) <-- SZ * (X cos) 7527 ;;;; MULT R7 7528 ;;;; TO R2 ;(R2) <-- SZ * (X sin) 7529 ;;;; MULT R8 7530 ;;;;; 7531 ;;;; GETB ;(R0) <-- Y pos. 7532 ;;;; INC R14 7533 ;;;; MOVE R6,R0 7534 ;;;;; 7535 ;;;; MULT R7 ;(R0) <-- SY * (X cos) - SZ * (X sin) 7536 ;;;; SUB R2 7537 ;;;; ADD R0 7538 ;;;; ADD R0 7539 ;;;; TO R3 ;(R3) <-- rotation Y pos 7540 ;;;; HIB 7541 ;;;;; 7542 ;;;; FROM R6 7543 ;;;; MULT R8 ;(R0) <-- SY * (X sin) 7544 ;;;; ADD R1 ;(R0) <-- SZ * (X cos) + SY * (X sin) 7545 ;;;; ADD R0 7546 ;;;; ADD R0 7547 ;;;; HIB ;(R0) <-- X rotation Z pos 7548 ;;;;; 7549 ;;;; TO R1 ;(R1) <-- SZ * (Y cos) 7550 ;;;; MULT R9 7551 ;;;; TO R2 ;(R2) <-- SZ * (Y sin) 7552 ;;;; MULT R10 7553 ;;;;; 7554 ;;;; GETB ;(R0) <-- X pos. 7555 ;;;; INC R14 7556 ;;;; MOVE R6,R0 7557 ;;;;; 7558 ;;;; MULT R9 ;(R0) <-- SX * (Y cos) 7559 ;;;; ADD R2 ;(R0) <-- SX * (Y cos) + SZ * (Y sin) 7560 ;;;; ADD R0 7561 ;;;; ADD R0 7562 ;;;; TO R2 ;(R2) <-- rotation X pos 7563 ;;;; HIB 7564 ;;;;; 7565 ;;;; FROM R6 7566 ;;;; MULT R10 ;(R0) <-- SX * (Y sin) 7567 ;;;; FROM R1 ;(R0) <-- SZ * (Y cos) - SX * (Y sin) 7568 ;;;; SUB R0 7569 ;;;; ADD R0 7570 ;;;; ADD R0 7571 ;;;; HIB ;(R0) <-- rotation Z pos 7572 ;;;;; 7573 ;;;; MULT R11 7574 ;;;; HIB 7575 ;;;; TO R1 7576 ;;;; SEX 7577 ;;;; IWT R0,#DIVBUF+(100H*2) 7578 ;;;; ADD R1 7579 ;;;; ADD R1 7580 ;;;; TO R6 7581 ;;;; LDW (R0) 7582 ;;;; FROM R2 7583 ;;;; SWAP 7584 ;;;; FMULT 7585 ;;;; MULT R11 7586 ;;;; SWAP 7587 ;;;; ADD R4 ;center X pos. add. 7588 ;;;; TO R1 ;(R1) <-- 2D X pos 7589 ;;;; LOB 7590 ;;;;; 7591 ;;;; FROM R3 7592 ;;;; SWAP 7593 ;;;; FMULT 7594 ;;;; MULT R11 7595 ;;;; SWAP 7596 ;;;; ADD R5 ;center Y pos. add. 7597 ;;;; TO R2 7598 ;;;; LOB 7599 ;;;;; 7600 ;;;; PLOT 7601 ;;;; PLOT 7602 ;;;; DEC R1 7603 ;;;; DEC R1 7604 ;;;; INC R2 7605 ;;;; PLOT 7606 ;;;;; 7607 ;;;; LOOP 7608 ;;;; PLOT 7609 ;;;;; 7610 ;;;; STOP 7611 ;;;; NOP 7612 ;;;;; 7613 ;;;;;------------------------------------------------------------------------ 7614 ;;;;;- rotation point data - 7615 ;;;;;------------------------------------------------------------------------ 7616 ;;;;ROTPOLIN EQU $ 7617 ;;;; WORD ROTPOLD0 ;[0] 7618 ;;;;; 7619 ;;;;; 7620 ;;;;ROTPOLD0 EQU $ 7621 ;;;;; number of point 7622 ;;;; HEX 20 7623 ;;;;; Z Y X 7624 ;;;; HEX 00,00,40 ;[0] 7625 ;;;; HEX 2D,00,2D ;[45] 7626 ;;;; HEX 3F,00,00 ;[90] 7627 ;;;; HEX 2D,00,D3 ;[135] 7628 ;;;; HEX 00,00,C1 ;[180] 7629 ;;;; HEX D3,00,D3 ;[225] 7630 ;;;; HEX C1,00,00 ;[270] 7631 ;;;; HEX D3,00,2D ;[315] 7632 ;;;;; 7633 ;;;; HEX 00,2D,2D ;[0] 7634 ;;;; HEX 2D,1F,1F ;[45] 7635 ;;;; HEX 3F,00,00 ;[90] 7636 ;;;; HEX 2D,E0,E0 ;[135] 7637 ;;;; HEX 00,D3,D3 ;[180] 7638 ;;;; HEX D3,E1,E1 ;[225] 7639 ;;;; HEX C1,00,00 ;[270] 7640 ;;;; HEX D3,20,20 ;[315] 7641 ;;;;; 7642 ;;;; HEX 00,3F,00 ;[0] 7643 ;;;; HEX 2D,2D,00 ;[45] 7644 ;;;; HEX 3F,00,00 ;[90] 7645 ;;;; HEX 2D,D3,00 ;[135] 7646 ;;;; HEX 00,C1,00 ;[180] 7647 ;;;; HEX D3,D3,00 ;[225] 7648 ;;;; HEX C1,00,00 ;[270] 7649 ;;;; HEX D3,2D,00 ;[315] 7650 ;;;;; 7651 ;;;; HEX 00,2D,D3 ;[0] 7652 ;;;; HEX 2D,1F,E0 ;[45] 7653 ;;;; HEX 3F,00,00 ;[90] 7654 ;;;; HEX 2D,E1,20 ;[135] 7655 ;;;; HEX 00,D3,2D ;[180] 7656 ;;;; HEX D3,E1,1F ;[225] 7657 ;;;; HEX C1,00,00 ;[270] 7658 ;;;; HEX D3,20,E0 ;[315] 7659 ;;;;; 7660 ;;;;; 7661 ;;;;;************************************************************************ 7662 ;;;;;* rotation point polygon * 7663 ;;;;;* in : (R1) <-- * 7664 ;;;;;* (R2) <-- X angle * 7665 ;;;;;* (R3) <-- Y " * 7666 ;;;;;* CWORK0 <-- data no. (FROM) * 7667 ;;;;;* CWORK1 <-- data no. (TO) * 7668 ;;;;;* CWORK2 <-- zoom flag * 7669 ;;;;;* CWORK3 <-- center X pos. * 7670 ;;;;;* CWORK4 <-- " Y " * 7671 ;;;;;* CWORK5 <-- henkei ritu * 7672 ;;;;;************************************************************************ 7673 ;;;;DOTSET EQU $ 7674 ;;;;; 7675 ;;;;;-------------- bitmap buffer clear !! ---------------------------------- 7676 ;;;; CACHE 7677 ;;;;; 7678 ;;;; IWT R7,#(WOB7CHR+20H*4) 7679 ;;;; IWT R8,#(WOB7CHR+20H*4)+200H 7680 ;;;; IWT R9,#(WOB7CHR+20H*4)+400H 7681 ;;;; IWT R10,#(WOB7CHR+20H*4)+600H 7682 ;;;; SUB R0 ;[ IBT R0,#0 ] 7683 ;;;; IWT R12,#(20H*4)/2 7684 ;;;; MOVE R13,R15 7685 ;;;;DOTSET000 7686 ;;;; STW (R7) 7687 ;;;; STW (R8) 7688 ;;;; STW (R9) 7689 ;;;; STW (R10) 7690 ;;;; INC R7 7691 ;;;; INC R7 7692 ;;;; INC R8 7693 ;;;; INC R8 7694 ;;;; INC R9 7695 ;;;; INC R9 7696 ;;;; INC R10 7697 ;;;; LOOP 7698 ;;;; INC R10 7699 ;;;;; 7700 ;;;;;-------------- moji polygon set ---------------------------------------- 7701 ;;;;; 7702 ;;;;;-------------- plot mode set ----------------------------------- 7703 ;;;; SUB R0 ;[ IBT R0,#0 ] 7704 ;;;; CMODE 7705 ;;;; IBT R0,#01H 7706 ;;;; COLOUR ;color set 7707 ;;;;; 7708 ;;;;;-------------- cos & sin data read ----------------------------- 7709 ;;;; IBT R0,#BANK LCOS ;cos & sin data bank set 7710 ;;;; ROMB 7711 ;;;;; 7712 ;;;; IWT R13,#LCOS 7713 ;;;; FROM R13 7714 ;;;; TO R14 7715 ;;;; ADD R2 7716 ;;;; TO R7 ;(R7) <-- X cos data 7717 ;;;; GETB 7718 ;;;;; 7719 ;;;; FROM R13 7720 ;;;; TO R14 7721 ;;;; ADD R3 7722 ;;;; TO R9 ;(R9) <-- Y cos data 7723 ;;;; GETB 7724 ;;;;; 7725 ;;;; IWT R13,#LSIN 7726 ;;;; FROM R13 7727 ;;;; TO R14 7728 ;;;; ADD R2 7729 ;;;; TO R8 ;(R8) <-- X sin data 7730 ;;;; GETB 7731 ;;;;; 7732 ;;;; FROM R13 7733 ;;;; TO R14 7734 ;;;; ADD R3 7735 ;;;; TO R10 ;(R10) <-- Y sin data 7736 ;;;; GETB 7737 ;;;;; 7738 ;;;;;-------------- moji polygon data address read ------------------ 7739 ;;;; LMS R0,CWORK0 ;(R4) <-- TO data start addr. 7740 ;;;; ADD R0 ; 7741 ;;;; IWT R1,#DOTDATIN ; 7742 ;;;; TO R14 ; 7743 ;;;; ADD R1 ; 7744 ;;;; GETB ; 7745 ;;;; INC R14 ; 7746 ;;;; GETBH ; 7747 ;;;; MOVE R4,R0 ; 7748 ;;;; 7749 ;;;; LMS R0,CWORK1 ;(R5) <-- FROM data start addr. 7750 ;;;; ADD R0 ; 7751 ;;;; TO R14 ; 7752 ;;;; ADD R1 ; 7753 ;;;; GETB ; 7754 ;;;; INC R14 ; 7755 ;;;; GETBH ; 7756 ;;;; MOVE R5,R0 ; 7757 ;;;; 7758 ;;;;; 7759 ;;;;;-------------- point rotation & 2D convert --------------------- 7760 ;;;;; MOVE R11,R6 ;(R11) <-- zoom flag 7761 ;;;; LMS R11,CWORK2 ;(R11) <-- zoom flag 7762 ;;;; IBT R12,#020H ;(R12) <-- number of point 7763 ;;;;; 7764 ;;;; CACHE 7765 ;;;;; 7766 ;;;; MOVE R13,R15 7767 ;;;;DOTSET010 7768 ;;;; MOVE R14,R4 7769 ;;;; GETB 7770 ;;;; INC R14 7771 ;;;; TO R1 7772 ;;;; SEX ; 7773 ;;;; GETB 7774 ;;;; INC R14 7775 ;;;; TO R2 7776 ;;;; SEX ; 7777 ;;;; GETB 7778 ;;;; INC R14 7779 ;;;; TO R3 7780 ;;;; SEX ; 7781 ;;;; MOVE R4,R14 7782 ;;;; 7783 ;;;; LMS R6,CWORK5 ;(R6) <-- henkei ritu 7784 ;;;; 7785 ;;;; MOVE R14,R5 7786 ;;;; GETBS ;CWORK5 <-- Z pos. 7787 ;;;; INC R14 ; 7788 ;;;; SUB R1 ; 7789 ;;;; LOB ; 7790 ;;;; SWAP ; 7791 ;;;; FMULT ; 7792 ;;;; ADD R1 ; 7793 ;;;; LOB ; 7794 ;;;; SMS R0,CWORK6 ; 7795 ;;;; 7796 ;;;; GETBS ;CWORK6 <-- Y pos. 7797 ;;;; INC R14 ; 7798 ;;;; SUB R2 ; 7799 ;;;; LOB ; 7800 ;;;; SWAP ; 7801 ;;;; FMULT ; 7802 ;;;; ADD R2 ; 7803 ;;;; LOB ; 7804 ;;;; SMS R0,CWORK7 ; 7805 ;;;; 7806 ;;;; GETBS ;CWORK7 <-- X pos. 7807 ;;;; INC R14 ; 7808 ;;;; SUB R3 ; 7809 ;;;; LOB ; 7810 ;;;; SWAP ; 7811 ;;;; FMULT ; 7812 ;;;; ADD R3 ; 7813 ;;;; LOB ; 7814 ;;;; SMS R0,CWORK8 ; 7815 ;;;; 7816 ;;;; MOVE R5,R14 7817 ;;;; 7818 ;;;; LMS R0,CWORK6 ;(R0) <-- Z pos. 7819 ;;;;; 7820 ;;;; TO R1 ;(R1) <-- SZ * (X cos) 7821 ;;;; MULT R7 7822 ;;;; TO R2 ;(R2) <-- SZ * (X sin) 7823 ;;;; MULT R8 7824 ;;;;; 7825 ;;;; LMS R0,CWORK7 ;(R0) <-- Y pos. 7826 ;;;; MOVE R6,R0 7827 ;;;;; 7828 ;;;; MULT R7 ;(R0) <-- SY * (X cos) - SZ * (X sin) 7829 ;;;; SUB R2 7830 ;;;; ADD R0 7831 ;;;; ADD R0 7832 ;;;; TO R3 ;(R3) <-- rotation Y pos 7833 ;;;; HIB 7834 ;;;;; 7835 ;;;; FROM R6 7836 ;;;; MULT R8 ;(R0) <-- SY * (X sin) 7837 ;;;; ADD R1 ;(R0) <-- SZ * (X cos) + SY * (X sin) 7838 ;;;; ADD R0 7839 ;;;; ADD R0 7840 ;;;; HIB ;(R0) <-- X rotation Z pos 7841 ;;;;; 7842 ;;;; TO R1 ;(R1) <-- SZ * (Y cos) 7843 ;;;; MULT R9 7844 ;;;; TO R2 ;(R2) <-- SZ * (Y sin) 7845 ;;;; MULT R10 7846 ;;;;; 7847 ;;;; LMS R0,CWORK8 ;(R0) <-- X pos. 7848 ;;;; MOVE R6,R0 7849 ;;;;; 7850 ;;;; MULT R9 ;(R0) <-- SX * (Y cos) 7851 ;;;; ADD R2 ;(R0) <-- SX * (Y cos) + SZ * (Y sin) 7852 ;;;; ADD R0 7853 ;;;; ADD R0 7854 ;;;; TO R2 ;(R2) <-- rotation X pos 7855 ;;;; HIB 7856 ;;;;; 7857 ;;;; FROM R6 7858 ;;;; MULT R10 ;(R0) <-- SX * (Y sin) 7859 ;;;; FROM R1 ;(R0) <-- SZ * (Y cos) - SX * (Y sin) 7860 ;;;; SUB R0 7861 ;;;; ADD R0 7862 ;;;; ADD R0 7863 ;;;; HIB ;(R0) <-- rotation Z pos 7864 ;;;;; 7865 ;;;; MULT R11 7866 ;;;; HIB 7867 ;;;; TO R1 7868 ;;;; SEX 7869 ;;;; IWT R0,#DIVBUF+(100H*2) 7870 ;;;; ADD R1 7871 ;;;; ADD R1 7872 ;;;; TO R6 7873 ;;;; LDW (R0) 7874 ;;;; FROM R2 7875 ;;;; SWAP 7876 ;;;; FMULT 7877 ;;;; MULT R11 7878 ;;;; SWAP 7879 ;;;; LMS R1,CWORK3 ;center X pos. add. 7880 ;;;; ADD R1 ; 7881 ;;;; TO R1 ;(R1) <-- 2D X pos 7882 ;;;; LOB 7883 ;;;;; 7884 ;;;; FROM R3 7885 ;;;; SWAP 7886 ;;;; FMULT 7887 ;;;; MULT R11 7888 ;;;; SWAP 7889 ;;;; LMS R2,CWORK4 ;center Y pos. add. 7890 ;;;; ADD R2 ; 7891 ;;;; TO R2 7892 ;;;; LOB 7893 ;;;;; 7894 ;;;; PLOT 7895 ;;;; PLOT 7896 ;;;; DEC R1 7897 ;;;; DEC R1 7898 ;;;; INC R2 7899 ;;;; PLOT 7900 ;;;;; 7901 ;;;; LOOP 7902 ;;;; PLOT 7903 ;;;;; 7904 ;;;; STOP 7905 ;;;; NOP 7906 ;;;;; 7907 ;;;;;------------------------------------------------------------------------ 7908 ;;;;;- rotation point data - 7909 ;;;;;------------------------------------------------------------------------ 7910 ;;;;DOTDATIN EQU $ 7911 ;;;; WORD DOTDAT0 ;[0] 7912 ;;;; WORD DOTDAT1 ;[1] 7913 ;;;;; 7914 ;;;;; 7915 ;;;;DOTDAT0 EQU $ 7916 ;;;;; Z Y X 7917 ;;;; HEX 00,00,40 ;[0] 7918 ;;;; HEX 2D,00,2D ;[45] 7919 ;;;; HEX 3F,00,00 ;[90] 7920 ;;;; HEX 2D,00,D3 ;[135] 7921 ;;;; HEX 00,00,C1 ;[180] 7922 ;;;; HEX D3,00,D3 ;[225] 7923 ;;;; HEX C1,00,00 ;[270] 7924 ;;;; HEX D3,00,2D ;[315] 7925 ;;;;; 7926 ;;;; HEX 00,2D,2D ;[0] 7927 ;;;; HEX 2D,1F,1F ;[45] 7928 ;;;; HEX 3F,00,00 ;[90] 7929 ;;;; HEX 2D,E0,E0 ;[135] 7930 ;;;; HEX 00,D3,D3 ;[180] 7931 ;;;; HEX D3,E1,E1 ;[225] 7932 ;;;; HEX C1,00,00 ;[270] 7933 ;;;; HEX D3,20,20 ;[315] 7934 ;;;;; 7935 ;;;; HEX 00,3F,00 ;[0] 7936 ;;;; HEX 2D,2D,00 ;[45] 7937 ;;;; HEX 3F,00,00 ;[90] 7938 ;;;; HEX 2D,D3,00 ;[135] 7939 ;;;; HEX 00,C1,00 ;[180] 7940 ;;;; HEX D3,D3,00 ;[225] 7941 ;;;; HEX C1,00,00 ;[270] 7942 ;;;; HEX D3,2D,00 ;[315] 7943 ;;;;; 7944 ;;;; HEX 00,2D,D3 ;[0] 7945 ;;;; HEX 2D,1F,E0 ;[45] 7946 ;;;; HEX 3F,00,00 ;[90] 7947 ;;;; HEX 2D,E1,20 ;[135] 7948 ;;;; HEX 00,D3,2D ;[180] 7949 ;;;; HEX D3,E1,1F ;[225] 7950 ;;;; HEX C1,00,00 ;[270] 7951 ;;;; HEX D3,20,E0 ;[315] 7952 ;;;;; 7953 ;;;;DOTDAT1 EQU $ 7954 ;;;;; Z Y X 7955 ;;;; HEX 28,F3,28 7956 ;;;; HEX 28,0E,28 7957 ;;;; HEX 28,F3,D9 7958 ;;;; HEX 28,0E,D9 7959 ;;;; HEX D9,0E,D9 7960 ;;;; HEX D9,F3,D9 7961 ;;;; HEX D9,0E,28 7962 ;;;; HEX D9,F3,28 7963 ;;;;; 7964 ;;;; HEX 0E,28,28 7965 ;;;; HEX 28,28,28 7966 ;;;; HEX 0E,D9,D9 7967 ;;;; HEX 28,D9,D9 7968 ;;;; HEX F3,D9,D9 7969 ;;;; HEX D9,D9,D9 7970 ;;;; HEX F3,28,28 7971 ;;;; HEX D9,28,28 7972 ;;;;; 7973 ;;;; HEX 28,28,F3 7974 ;;;; HEX 28,28,0E 7975 ;;;; HEX 28,D9,F3 7976 ;;;; HEX 28,D9,0E 7977 ;;;; HEX D9,D9,0E 7978 ;;;; HEX D9,D9,F3 7979 ;;;; HEX D9,28,0E 7980 ;;;; HEX D9,28,F3 7981 ;;;;; 7982 ;;;; HEX 0E,28,D9 7983 ;;;; HEX 28,28,D9 7984 ;;;; HEX 0E,D9,28 7985 ;;;; HEX 28,D9,28 7986 ;;;; HEX F3,D9,28 7987 ;;;; HEX D9,D9,28 7988 ;;;; HEX F3,28,D9 7989 ;;;; HEX D9,28,D9 7990 ; 7991 ; 7992 ; 7993 ; HEX D9,D9,D9 ; 7994 ; HEX D9,D9,F3 ; 7995 ; HEX D9,D9,0E ; 7996 ; HEX D9,D9,28 ; 7997 ; HEX D9,F3,D9 ; 7998 ; HEX D9,F3,28 ; 7999 ; HEX D9,0E,D9 ; 8000 ; HEX D9,0E,28 ; 8001 ; HEX D9,28,D9 ; 8002 ; HEX D9,28,F3 ; 8003 ; HEX D9,28,0E ; 8004 ; HEX D9,28,28 ; 8005 ;; ; 8006 ; HEX F3,D9,D9 ; 8007 ; HEX F3,D9,28 ; 8008 ; HEX F3,28,D9 ; 8009 ; HEX F3,28,28 ; 8010 ;; ; 8011 ; HEX 0E,D9,D9 ; 8012 ; HEX 0E,D9,28 ; 8013 ; HEX 0E,28,D9 ; 8014 ; HEX 0E,28,28 ; 8015 ;; ; 8016 ; HEX 28,D9,D9 ; 8017 ; HEX 28,D9,F3 ; 8018 ; HEX 28,D9,0E ; 8019 ; HEX 28,D9,28 ; 8020 ; HEX 28,F3,D9 ; 8021 ; HEX 28,F3,28 ; 8022 ; HEX 28,0E,D9 ; 8023 ; HEX 28,0E,28 ; 8024 ; HEX 28,28,D9 ; 8025 ; HEX 28,28,F3 ; 8026 ; HEX 28,28,0E ; 8027 ; HEX 28,28,28 ; 8028 ; 8029 ;**************************************************************** 8030 ;* NII MACRO * 8031 ;**************************************************************** 8032 ; 8033 JSR MACRO SUBROUTINE 8034 LINK #4 8035 MOVE R15,#SUBROUTINE 8036 NOP 8037 ENDM 8038 ; 8039 RTS MACRO 8040 MOVE R15,R11 8041 NOP 8042 ENDM 8043 ; 8044 ;************************************************ 8045 ;* other conditions... * 8046 ;* r12 : lsin data table addr. * 8047 ;* r13 : lcos data table addr. * 8048 ;* * 8049 ;************************************************ 8050 GET_LSINCOS2 MACRO SINREG,SINRAM,COSREG,COSRAM,ANGLE 8051 8052 GET_LSINCOS SINREG,COSREG,ANGLE 8053 SMS SINREG,SINRAM 8054 SMS COSREG,COSRAM 8055 8056 ENDM 8057 ; 8058 ;************************************************ 8059 ;* other conditions... * 8060 ;* r12 : lsin data table addr. * 8061 ;* r13 : lcos data table addr. * 8062 ;* * 8063 ;************************************************ 8064 GET_LSINCOS MACRO SINREG,COSREG,ANGLE 8065 8066 FROM R12 8067 TO R14 8068 ADD ANGLE 8069 TO SINREG 8070 GETBS 8071 8072 FROM R13 8073 TO R14 8074 ADD ANGLE 8075 TO COSREG 8076 GETBS 8077 8078 ENDM 8079 ; 8080 MULT_2VALUE MACRO V1,V2,RESULT ;RESULT(reg) <-- high( V1 * V2 * 4 ) 8081 FROM V1 8082 MULT V2 8083 ADD R0 8084 ADD R0 8085 TO RESULT 8086 HIB 8087 8088 ENDM 8089 ; 8090 MULT_2VALUE2 MACRO V1,V2,RESULT ;RESULT(mem) <-- high( V1 * V2 * 4 ) 8091 8092 MULT_2VALUE V1,V2,R0 8093 SMS R0,RESULT 8094 8095 ENDM 8096 ; 8097 ; 8098 ; 8099 ; 8100 ; 8101 ;;;;N_POL EQU $ ;n_pol 8102 ;;;; CACHE 8103 ;;;;; 8104 ;;;; IWT R7,#(WOB7CHR+20H*4) 8105 ;;;; IWT R8,#(WOB7CHR+20H*4)+200H 8106 ;;;; IWT R9,#(WOB7CHR+20H*4)+400H 8107 ;;;; IWT R10,#(WOB7CHR+20H*4)+600H 8108 ;;;; SUB R0 ;[ IBT R0,#0 ] 8109 ;;;; IWT R12,#(20H*4)/2 8110 ;;;; MOVE R13,R15 8111 ;;;; 8112 ;;;; STW (R7) 8113 ;;;; STW (R8) 8114 ;;;; STW (R9) 8115 ;;;; STW (R10) 8116 ;;;; INC R7 8117 ;;;; INC R7 8118 ;;;; INC R8 8119 ;;;; INC R8 8120 ;;;; INC R9 8121 ;;;; INC R9 8122 ;;;; INC R10 8123 ;;;; LOOP 8124 ;;;; INC R10 8125 ;;;;;-----------------< plot mode set >------------------------------ 8126 ;;;;N_NP EQU $ 8127 ;;;; SUB R0 ;[ IBT R0,#0 ] 8128 ;;;; CMODE 8129 ;;;; 8130 ;;;; SMS R0,REG0 8131 ;;;; SMS R0,REG1 8132 ;;;; 8133 ;;;;;------------------< sin & cos data >----------------------------- 8134 ;;;; IBT R0,#BANK LCOS 8135 ;;;; ROMB 8136 ;;;; 8137 ;;;; IWT R12,#LSIN 8138 ;;;; IWT R13,#LCOS 8139 ;;;; 8140 ;;;; GET_LSINCOS R4,R5,R1 8141 ;;;; GET_LSINCOS R7,R8,R2 8142 ;;;; SMS R7,CWORK16 8143 ;;;; GET_LSINCOS R9,R10,R3 8144 ;;;;; 8145 ;;;; MULT_2VALUE2 R4,R7,CWORK19 ;CWORK19 <-- sin r1 * sin r2 8146 ;;;; 8147 ;;;; MULT_2VALUE R9,R4,R2 ;r2 <-- sin r3 * sin r1 8148 ;;;; 8149 ;;;; MULT_2VALUE2 R5,R8,CWORK18 ;CWORK18 <-- cos r1 * cos r2 8150 ;;;; 8151 ;;;; MULT_2VALUE2 R8,R10,CWORK10 ;CWORK10 <-- cos r2 * cos r3 8152 ;;;; 8153 ;;;; MULT_2VALUE R10,R5,R3 ;r3 <-- cos r3 * cos r1 8154 ;;;; 8155 ;;;; MULT_2VALUE2 R8,R9,CWORK13 ;CWORK13 <-- cos r2 * sin r3 8156 ;;;; 8157 ;;;; MULT_2VALUE R5,R7,R11 ;r11 <-- cos r1 * sin r2 8158 ;;;; 8159 ;;;; MULT_2VALUE2 R4,R8,CWORK17 ;CWORK17 <-- sin r1 * cos r2 8160 ;;;; 8161 ;;;; MULT_2VALUE R5,R9,R5 ;r5 <-- cos r1 * sin r3 8162 ;;;; 8163 ;;;; MULT_2VALUE R4,R10,R4 ;r4 <-- sin r1 * cos r3 8164 ;;;; 8165 ;;;; LMS R1,CWORK19 8166 ;;;; MULT_2VALUE R1,R9,R7 ;r7 <-- sin r1 * sin r2 * sin r3 8167 ;;;; FROM R3 ;CWORK14 <-- - ( sin r1 * sin r2 * sin r3 ) + ( cos r3 * cos r1 ) 8168 ;;;; SUB R7 ; 8169 ;;;; SMS R0,CWORK14 ; 8170 ;;;; 8171 ;;;; MULT_2VALUE R1,R10,R0 ;r0 <-- sin r1 * sin r2 * cos r3 8172 ;;;; ADD R5 ;CWORK11 <-- - ( sin r1 * sin r2 * cos r3 ) - ( cos r1 * sin r3 ) 8173 ;;;; SMS R0,CWORK11 ; 8174 ;;;; 8175 ;;;; MULT_2VALUE R11,R10,R0 8176 ;;;; ADD R2 8177 ;;;; SMS R0,CWORK12 8178 ;;;; 8179 ;;;; MULT_2VALUE R11,R9,R0 8180 ;;;; SUB R4 8181 ;;;; SMS R0,CWORK15 8182 ;;;; 8183 ;;;; 8184 ;;;; 8185 ;;;;; GET_LSINCOS2 R3,CWORK10,R5,CWORK11,R1 ;r3,CWORK10 <-- sin r1 8186 ;;;;; ;r1,CWORK11 <-- cos r1 8187 ;;;;; GET_LSINCOS2 R7,CWORK12,R8,CWORK13,R2 ;r7,CWORK12 <-- sin r2 8188 ;;;;; ;r8,CWORK13 <-- cos r2 8189 ;;;;; 8190 ;;;;; MULT_2VALUE2 R3,R7,CWORK14 ;CWORK14 <-- sin r1 * sin r2 MAX 1000H 8191 ;;;;; MULT_2VALUE2 R3,R8,CWORK16 ;CWORK16 <-- sin r1 * cos r2 MAX 1000H 8192 ;;;;; MULT_2VALUE2 R5,R7,CWORK17 ;CWORK17 <-- cos r1 * sin r2 MAX 1000H 8193 ;;;;; MULT_2VALUE2 R5,R8,CWORK15 ;CWORK15 <-- cos r1 * cos r2 MAX 1000H 8194 ;;;; 8195 ;;;;;==================< point trans. loop >========================= 8196 ;;;;;---------< point trans loop init >-------- 8197 ;;;; IBT R0,#BANK POINT_WK 8198 ;;;; RAMB 8199 ;;;; 8200 ;;;; IWT R4,#POINT_WK ;r10 <-- ram p. 8201 ;;;;; IWT R4,#CWORK0 ;r10 <-- ram p. 8202 ;;;; 8203 ;;;; IBT R0,#BANK POI 8204 ;;;; ROMB 8205 ;;;; 8206 ;;;; IWT R14,#POI ;r12 <-- point sum. 8207 ;;;; TO R12 ; 8208 ;;;; GETB ; 8209 ;;;; INC R14 ; 8210 ;;;; 8211 ;;;; CACHE 8212 ;;;; MOVE R13,R15 8213 ;;;; 8214 ;;;;;---------< point trans loop start >------- 8215 ;;;; TO R8 ;r8 <-- z 8216 ;;;; GETBS 8217 ;;;; INC R14 8218 ;;;; 8219 ;;;; TO R7 ;r7 <-- y 8220 ;;;; GETBS 8221 ;;;; INC R14 8222 ;;;; 8223 ;;;; TO R5 ;r5 <-- x 8224 ;;;; GETBS 8225 ;;;; INC R14 8226 ;;;; 8227 ;;;;;------------------< rotate >----------------------------------- 8228 ;;;; LMS R6,CWORK16 ;rot z1 calc. 8229 ;;;; FROM R5 ; x * -sin r2 8230 ;;;; TO R1 ; 8231 ;;;; MULT R6 ; 8232 ;;;; ; 8233 ;;;; LMS R6,CWORK17 ; y * sin r1 * cos r2 8234 ;;;; FROM R7 ; 8235 ;;;; TO R2 ; 8236 ;;;; MULT R6 ; 8237 ;;;; ; 8238 ;;;; LMS R6,CWORK18 ; z * cos r1 * cos r2 8239 ;;;; FROM R8 ; 8240 ;;;; MULT R6 ; 8241 ;;;; ADD R2 ; 8242 ;;;; SUB R1 ; 8243 ;;;; ADD R0 ; 8244 ;;;; ADD R0 ; 8245 ;;;; SWAP ; 8246 ;;;; SEX ; 8247 ;;;; STW (R4) ; 8248 ;;;; INC R4 ; 8249 ;;;; INC R4 ; 8250 ;;;; 8251 ;;;; SEX 8252 ;;;; IWT R3,#00100H 8253 ;;;; WITH R3 8254 ;;;; SUB R0 8255 ;;;; 8256 ;;;; LMS R6,CWORK13 ;rot y1 calc. 8257 ;;;; FROM R5 ; 8258 ;;;; TO R1 ; 8259 ;;;; MULT R6 ; 8260 ;;;; ; 8261 ;;;; LMS R6,CWORK14 ; 8262 ;;;; FROM R7 ; 8263 ;;;; TO R2 ; 8264 ;;;; MULT R6 ; 8265 ;;;; ; 8266 ;;;; LMS R6,CWORK15 ; 8267 ;;;; FROM R8 ; 8268 ;;;; MULT R6 ; 8269 ;;;; ADD R2 ; 8270 ;;;; ADD R1 ; 8271 ;;;; ADD R0 ; 8272 ;;;; ADD R0 ; 8273 ;;;; MOVE R6,R3 ; 8274 ;;;; FMULT ; 8275 ;;;; STW (R4) ; 8276 ;;;; INC R4 ; 8277 ;;;; INC R4 ; 8278 ;;;; 8279 ;;;; LMS R6,CWORK10 ;rot x1 calc. 8280 ;;;; FROM R5 ; 8281 ;;;; TO R1 ; 8282 ;;;; MULT R6 ; 8283 ;;;; ; 8284 ;;;; LMS R6,CWORK11 ; 8285 ;;;; FROM R7 ; 8286 ;;;; TO R2 ; 8287 ;;;; MULT R6 ; 8288 ;;;; ; 8289 ;;;; LMS R6,CWORK12 ; 8290 ;;;; FROM R8 ; 8291 ;;;; MULT R6 ; 8292 ;;;; SUB R2 ; 8293 ;;;; ADD R1 ; 8294 ;;;; ADD R0 ; 8295 ;;;; ADD R0 ; 8296 ;;;; MOVE R6,R3 ; 8297 ;;;; FMULT ; 8298 ;;;; STW (R4) ; 8299 ;;;; INC R4 ; 8300 ;;;; 8301 ;;;;; LMS R6,CWORK12 ;rot z1 calc. 8302 ;;;;; FROM R5 ; x * -sin r2 8303 ;;;;; TO R1 ; 8304 ;;;;; MULT R6 ; 8305 ;;;;; ; 8306 ;;;;; LMS R6,CWORK16 ; y * sin r1 * cos r2 8307 ;;;;; FROM R7 ; 8308 ;;;;; TO R2 ; 8309 ;;;;; MULT R6 ; 8310 ;;;;; ; 8311 ;;;;; LMS R6,CWORK15 ; z * cos r1 * cos r2 8312 ;;;;; FROM R8 ; 8313 ;;;;; MULT R6 ; 8314 ;;;;; ADD R2 ; 8315 ;;;;; SUB R1 ; 8316 ;;;;; ADD R0 ; 8317 ;;;;; ADD R0 ; 8318 ;;;;; SWAP ; 8319 ;;;;; SEX ; 8320 ;;;;; STW (R4) ; 8321 ;;;;; INC R4 ; 8322 ;;;;; INC R4 ; 8323 ;;;;; 8324 ;;;;; SEX 8325 ;;;;; IWT R3,#00100H 8326 ;;;;; WITH R3 8327 ;;;;; SUB R0 8328 ;;;;; 8329 ;;;;; LMS R6,CWORK10 ;rot y1 calc. 8330 ;;;;; FROM R8 ; z * -sin r1 8331 ;;;;; TO R1 ; 8332 ;;;;; MULT R6 ; 8333 ;;;;; ; 8334 ;;;;; LMS R6,CWORK11 ; y * cos r1 8335 ;;;;; FROM R7 ; 8336 ;;;;; MULT R6 ; 8337 ;;;;; SUB R1 ; 8338 ;;;;; ADD R0 ; 8339 ;;;;; ADD R0 ; 8340 ;;;;; MOVE R6,R3 ; 8341 ;;;;; FMULT ; 8342 ;;;;; STW (R4) ; 8343 ;;;;; INC R4 ; 8344 ;;;;; INC R4 ; 8345 ;;;;; 8346 ;;;;; LMS R6,CWORK13 ;rot x1 calc. 8347 ;;;;; FROM R5 ; x * cos r2 8348 ;;;;; TO R1 ; 8349 ;;;;; MULT R6 ; 8350 ;;;;; ; 8351 ;;;;; LMS R6,CWORK14 ; y * sin r1 * sin r2 8352 ;;;;; FROM R7 ; 8353 ;;;;; TO R2 ; 8354 ;;;;; MULT R6 ; 8355 ;;;;; ; 8356 ;;;;; LMS R6,CWORK17 ; z * sin r1 * cos r2 8357 ;;;;; FROM R8 ; 8358 ;;;;; MULT R6 ; 8359 ;;;;; ADD R2 ; 8360 ;;;;; ADD R1 ; 8361 ;;;;; ADD R0 ; 8362 ;;;;; ADD R0 ; 8363 ;;;;; MOVE R6,R3 ; 8364 ;;;;; FMULT ; 8365 ;;;;; STW (R4) ; 8366 ;;;;; INC R4 ; 8367 ;;;; 8368 ;;;;;---------< point trans loop end >--------- 8369 ;;;; LOOP 8370 ;;;; INC R4 8371 ;;;; 8372 ;;;;;==================< large loop >================================= 8373 ;;;;;---------< large loop init >-------------- 8374 ;;;; IWT R14,#FACE 8375 ;;;; 8376 ;;;; TO R12 ;r12 <-- face sum. 8377 ;;;; GETB ; 8378 ;;;; INC R14 ; 8379 ;;;; 8380 ;;;; SMS R15,REG13 ;loop pointer ( REG13 ) 8381 ;;;; 8382 ;;;;;---------< large loop start >------------- 8383 ;;;; SMS R12,REG12 ;loop ounter save 8384 ;;;; 8385 ;;;;; 8386 ;;;;;==================< sort loop >================================== 8387 ;;;;;---------< sort loop init >--------------- 8388 ;;;; TO R12 ;r12 <-- point sum. 8389 ;;;; GETB ; 8390 ;;;; INC R14 ; 8391 ;;;; SMS R12,CWORKE 8392 ;;;; 8393 ;;;;; GETB ;face colour set 8394 ;;;;; INC R14 ; 8395 ;;;;; COLOR 8396 ;;;; 8397 ;;;; IWT R3,#POIYPS1 ;r3 <-- select point save work base addr. 8398 ;;;; 8399 ;;;; WITH R9 ;r9,r10 <-- start number 8400 ;;;; SUB R9 ; 8401 ;;;; MOVE R11,R9 ; 8402 ;;;; 8403 ;;;; GETB ;r0 <-- point no. 8404 ;;;; INC R14 ; 8405 ;;;; 8406 ;;;; IWT R4,#POINT_WK ;r4 <-- point data ram p. + point no. * 003H 8407 ;;;; MULT #006H ; 8408 ;;;; TO R4 ; 8409 ;;;; ADD R4 ; 8410 ;;;; INC R4 ; 8411 ;;;; INC R4 ; 8412 ;;;; 8413 ;;;; TO R7 ;r7,r8 <-- start y pos. 8414 ;;;; LDW (R4) ; 8415 ;;;; INC R4 ; 8416 ;;;; INC R4 ; 8417 ;;;; MOVE R8,R7 ; 8418 ;;;; FROM R7 ; 8419 ;;;; STW (R3) ; 8420 ;;;; INC R3 ; 8421 ;;;; INC R3 ; 8422 ;;;; 8423 ;;;; LDW (R4) ; 8424 ;;;; STW (R3) ; 8425 ;;;; INC R3 ; 8426 ;;;; INC R3 ; 8427 ;;;; 8428 ;;;; DEC R12 ;r12 <-- r12 - 1 8429 ;;;; CACHE 8430 ;;;; MOVE R13,R15 8431 ;;;; 8432 ;;;;;---------< sort loop start >------------- 8433 ;;;; INC R11 8434 ;;;; 8435 ;;;; GETB ;r0 <-- point no. 8436 ;;;; INC R14 ; 8437 ;;;; 8438 ;;;; IWT R4,#POINT_WK ;r4 <-- point data ram p. + point no. * 003H 8439 ;;;; MULT #006H ; 8440 ;;;; TO R4 ; 8441 ;;;; ADD R4 ; 8442 ;;;; INC R4 ; 8443 ;;;; INC R4 ; 8444 ;;;; 8445 ;;;; LDW (R4) ;y pos = minor ? 8446 ;;;; INC R4 ; 8447 ;;;; INC R4 ; 8448 ;;;; STW (R3) ; 8449 ;;;; INC R3 ; 8450 ;;;; CMP R7 ; 8451 ;;;; BPL S_0100 ; 8452 ;;;; INC R3 ; no: S_0100 8453 ;;;; 8454 ;;;; MOVE R7,R0 ;r5 <-- minor data 8455 ;;;; WITH R11 ;MOVE R9,R11 ;r9 <-- minor number 8456 ;;;; BRA S_0200 8457 ;;;; TO R9 8458 ;;;; 8459 ;;;;S_0100 8460 ;;;; CMP R8 ;y pos. = major ? 8461 ;;;; BMI S_0200 ; no: S_0200 8462 ;;;; 8463 ;;;; WITH R0 ;r8 <-- major data 8464 ;;;; TO R8 8465 ;;;; 8466 ;;;;S_0200 8467 ;;;; LDW (R4) ; 8468 ;;;; STW (R3) ; 8469 ;;;; INC R3 ; 8470 ;;;; 8471 ;;;;;---------< sort loop end >--------------- 8472 ;;;; LOOP 8473 ;;;; INC R3 ; 8474 ;;;; 8475 ;;;; SMS R9,CWORK2 ;left to point no. 8476 ;;;; SMS R9,CWORK4 ;right to point no. 8477 ;;;; 8478 ;;;;; 8479 ;;;;;==================< gaiseki calc. >=============================== 8480 ;;;; 8481 ;;;; LM R1,POIYPS1 ;r1 <-- y1 8482 ;;;; 8483 ;;;; LM R2,POIXPS1 ;r2 <-- x1 8484 ;;;; 8485 ;;;; LM R3,POIYPS2 ;r3 <-- y2 8486 ;;;; 8487 ;;;; LM R4,POIXPS2 ;r4 <-- x2 8488 ;;;; 8489 ;;;; LM R5,POIYPS3 ;r5 <-- y3 8490 ;;;; 8491 ;;;; LM R6,POIXPS3 ;r6 <-- x3 8492 ;;;; 8493 ;;;; WITH R6 ;r0 <-- (y3 - y2) * (x2 - x1) - (x3 - x2) * (y2 - y1) 8494 ;;;; SUB R4 ; r6 <-- (x3 - x2) * (y2 - y1) 8495 ;;;; FROM R3 ; 8496 ;;;; SUB R1 ; 8497 ;;;; TO R6 ; 8498 ;;;; MULT R6 ; 8499 ;;;; WITH R5 ; r0 <--(y3 - y2) * (x2 - x1) 8500 ;;;; SUB R3 ; 8501 ;;;; FROM R4 ; 8502 ;;;; SUB R2 ; 8503 ;;;; MULT R5 ; 8504 ;;;; SUB R6 ; 8505 ;;;; 8506 ;;;; BMI COLST_0100 8507 ;;;; 8508 ;;;; WITH R14 ;CWORK8 <-- face data rom p. 8509 ;;;; ADD #003H 8510 ;;;; SMS R14,REG14 8511 ;;;; 8512 ;;;; LMS R0,REG1 8513 ;;;; DEC R0 8514 ;;;; SBK 8515 ;;;; 8516 ;;;; IWT R15,#D_END 8517 ;;;; NOP 8518 ;;;; 8519 ;;;;; 8520 ;;;;;==================< colour set >================================= 8521 ;;;;COLST_0100 8522 ;;;;; INC R8 8523 ;;;; SMS R8,CWORK0 ;CWORK0 <-- Y end pos. 8524 ;;;; 8525 ;;;; GETBS ;r0 <-- z pos. 8526 ;;;; INC R14 8527 ;;;; 8528 ;;;; TO R1 ;r1 <-- y pos. 8529 ;;;; GETBS 8530 ;;;; INC R14 8531 ;;;; 8532 ;;;; TO R2 ;r2 <-- x pos. 8533 ;;;; GETBS 8534 ;;;; INC R14 8535 ;;;; 8536 ;;;; SMS R14,REG14 ;REG14 <-- face data rom p. 8537 ;;;; 8538 ;;;;;------------------< rotate >----------------------------------- 8539 ;;;; LMS R6,CWORK16 ;rot z calc. 8540 ;;;;; LMS R6,CWORK12 ;rot z calc. 8541 ;;;; WITH R2 ; x * -sin r2 8542 ;;;; MULT R6 ; 8543 ;;;; ; 8544 ;;;; LMS R6,CWORK17 ; y * sin r1 * cos r2 8545 ;;;;; LMS R6,CWORK16 ; y * sin r1 * cos r2 8546 ;;;; WITH R1 ; 8547 ;;;; MULT R6 ; 8548 ;;;; ; 8549 ;;;; LMS R6,CWORK18 ; z * cos r1 * cos r2 8550 ;;;;; LMS R6,CWORK15 ; z * cos r1 * cos r2 8551 ;;;; MULT R6 ; 8552 ;;;; ADD R1 ; 8553 ;;;; SUB R2 ; 8554 ;;;; ADD R0 ; 8555 ;;;; ADD R0 ; 8556 ;;;; HIB ; 8557 ;;;; 8558 ;;;; IWT R1,#00100H 8559 ;;;;; IBT R2,#004H 8560 ;;;; IBT R3,#008H 8561 ;;;; 8562 ;;;; FROM R1 8563 ;;;; SUB R0 8564 ;;;; LOB 8565 ;;;;; 8566 ;;;;; CMP R2 8567 ;;;;; BCS COLST_0200 8568 ;;;;; NOP 8569 ;;;;; 8570 ;;;;; IBT R0,#004H 8571 ;;;;;; 8572 ;;;;;COLST_0200 8573 ;;;; CMP R3 8574 ;;;; BCC COLST_0300 8575 ;;;; NOP 8576 ;;;; 8577 ;;;; IBT R0,#007H 8578 ;;;; 8579 ;;;;COLST_0300 8580 ;;;; COLOR 8581 ;;;;; 8582 ;;;;;==================< drow >======================================= 8583 ;;;; 8584 ;;;; MOVE R0,R7 8585 ;;;; DEC R0 8586 ;;;; SMS R0,CWORK5 ;line adjust 8587 ;;;; SMS R0,CWORK6 ; " 8588 ;;;; SUB R0 8589 ;;;; SMS R0,CWORKA ;drow loop counter set 8590 ;;;; SMS R0,CWORKB ;drow loop counter set 8591 ;;;; 8592 ;;;; LMS R0,REG0 8593 ;;;; INC R0 8594 ;;;; SBK 8595 ;;;; 8596 ;;;; CACHE 8597 ;;;;DR_START 8598 ;;;; LMS R0,CWORKA 8599 ;;;; DEC R0 8600 ;;;; BPL DR_0100 8601 ;;;; SBK 8602 ;;;; 8603 ;;;; LINK #004H 8604 ;;;; IWT R15,#NEXT_L_LINE 8605 ;;;; NOP 8606 ;;;; 8607 ;;;;DR_0100 8608 ;;;; LMS R0,CWORKB 8609 ;;;; DEC R0 8610 ;;;; BPL DR_0200 8611 ;;;; SBK 8612 ;;;; 8613 ;;;; LINK #004H 8614 ;;;; IWT R15,#NEXT_R_LINE 8615 ;;;; NOP 8616 ;;;; 8617 ;;;;DR_0200 8618 ;;;; LM R3,POIXPSL ;r3 <-- x pos. 8619 ;;;; LM R5,POIRL ;r5 <-- R 8620 ;;;; LM R9,POIXADL ;r9 <-- x add data 8621 ;;;; 8622 ;;;; LM R0,POICNDL ;|DX| < |DY| ? 8623 ;;;; MOVES R0,R0 8624 ;;;; BNE DR_1500 ; 8625 ;;;; NOP ; yes: DR_1500 8626 ;;;; 8627 ;;;; LMS R4,CWORKC ;r4 <-- x end pos. 8628 ;;;; LM R6,POI2DYL ;r6 <-- 2DY 8629 ;;;; 8630 ;;;;DR_1000 8631 ;;;; FROM R3 ;x end ? 8632 ;;;; CMP R4 ; 8633 ;;;; BEQ DR_1800 ; 8634 ;;;; WITH R3 ; yes: DR_1800 8635 ;;;; 8636 ;;;; ADD R9 ;x <-- x + 1 or -1 8637 ;;;; 8638 ;;;; WITH R5 ;R <-- R + 2DY 8639 ;;;; ADD R6 ;R < 0 ? 8640 ;;;; BMI DR_1000 ; 8641 ;;;; NOP ; yes: DR_1000 8642 ;;;; 8643 ;;;; LM R6,POI2DXL ;R <-- R - 2DX 8644 ;;;; WITH R5 ; 8645 ;;;; 8646 ;;;; BRA DR_1800 8647 ;;;; SUB R6 ; 8648 ;;;; 8649 ;;;;DR_1500 8650 ;;;; LM R6,POI2DXL ;r6 <-- 2DX 8651 ;;;; 8652 ;;;;DR_1600 8653 ;;;; WITH R5 ;R <-- R + 2DX 8654 ;;;; ADD R6 ;R < 0 ? 8655 ;;;; BMI DR_1800 ; 8656 ;;;; WITH R3 ; yes: DR_1800 8657 ;;;; 8658 ;;;; ADD R9 ;X <-- X + 1 or -1 8659 ;;;; 8660 ;;;; LM R6,POI2DYL ;R <-- R - 2DY 8661 ;;;; WITH R5 ; 8662 ;;;; SUB R6 ; 8663 ;;;; 8664 ;;;;DR_1800 8665 ;;;; SM R3,POIXPSL ;POIXPSL <-- r3 8666 ;;;; SM R5,POIRL ;POIRL <-- r5 8667 ;;;; 8668 ;;;; 8669 ;;;; LM R3,POIXPSR ;r3 <-- x pos. 8670 ;;;; LM R5,POIRR ;r5 <-- R 8671 ;;;; LM R9,POIXADR ;r9 <-- x add data 8672 ;;;; 8673 ;;;; LM R0,POICNDR ;|DX| < |DY| ? 8674 ;;;; MOVES R0,R0 8675 ;;;; BNE DR_2500 ; 8676 ;;;; NOP ; yes: DR_2500 8677 ;;;; 8678 ;;;; LMS R4,CWORKD ;r4 <-- x end pos. 8679 ;;;; LM R6,POI2DYR ;r6 <-- 2DY 8680 ;;;; 8681 ;;;;DR_2000 8682 ;;;; FROM R3 ;x end ? 8683 ;;;; CMP R4 ; 8684 ;;;; BEQ DR_2800 ; 8685 ;;;; WITH R3 ; yes: DR_2800 8686 ;;;; 8687 ;;;; ADD R9 ;x <-- x + 1 or -1 8688 ;;;; 8689 ;;;; WITH R5 ;R <-- R + 2DY 8690 ;;;; ADD R6 ;R < 0 ? 8691 ;;;; BMI DR_2000 ; 8692 ;;;; NOP ; yes: DR_2000 8693 ;;;; 8694 ;;;; LM R6,POI2DXR ;R <-- R - 2DX 8695 ;;;; WITH R5 ; 8696 ;;;; 8697 ;;;; BRA DR_2800 8698 ;;;; SUB R6 ; 8699 ;;;; 8700 ;;;;DR_2500 8701 ;;;; LM R6,POI2DXR ;r6 <-- 2DX 8702 ;;;; 8703 ;;;;DR_2600 8704 ;;;; WITH R5 ;R <-- R + 2DX 8705 ;;;; ADD R6 ;R < 0 ? 8706 ;;;; BMI DR_2800 ; 8707 ;;;; WITH R3 ; yes: DR_2800 8708 ;;;; 8709 ;;;; ADD R9 ;X <-- X + 1 or -1 8710 ;;;; 8711 ;;;; LM R6,POI2DYR ;R <-- R - 2DY 8712 ;;;; WITH R5 ; 8713 ;;;; SUB R6 ; 8714 ;;;; 8715 ;;;;DR_2800 8716 ;;;; SM R3,POIXPSR ;POIXPSL <-- r3 8717 ;;;; SM R5,POIRR ;POIRL <-- r5 8718 ;;;; 8719 ;;;; LM R1,POIXPSL 8720 ;;;; IBT R0,#050H 8721 ;;;; FROM R7 8722 ;;;; TO R2 8723 ;;;; ADD R0 8724 ;;;; 8725 ;;;; LM R3,POIXPSR ;r12 <-- Xr pos. - Xl pos. + 1 8726 ;;;; 8727 ;;;; FROM R3 ;left pos. >= right pos. ? 8728 ;;;; CMP R1 ; 8729 ;;;; BPL DR_2900 ; 8730 ;;;; NOP ; yes: DR_2900 8731 ;;;; 8732 ;;;; MOVE R0,R1 8733 ;;;; MOVE R1,R3 8734 ;;;; MOVE R3,R0 8735 ;;;; 8736 ;;;;DR_2900 8737 ;;;; FROM R3 ; 8738 ;;;; TO R12 ; 8739 ;;;; SUB R1 ; 8740 ;;;; INC R12 ; 8741 ;;;; 8742 ;;;;; IBT R0,#020H ;r0 <-- center revise ( obj bit map ) 8743 ;;;; IBT R0,#060H ;r0 <-- center revise ( 256col bit map ) 8744 ;;;; 8745 ;;;; WITH R1 8746 ;;;; ADD R0 8747 ;;;; 8748 ;;;; MOVE R13,R15 8749 ;;;; 8750 ;;;; LOOP 8751 ;;;; PLOT 8752 ;;;; 8753 ;;;;DR_3000 8754 ;;;; INC R7 ;all line ok ? 8755 ;;;; LMS R0,CWORK0 ; 8756 ;;;; CMP R7 ; 8757 ;;;; BEQ D_END ; 8758 ;;;; NOP ; yes: D_END 8759 ;;;; 8760 ;;;; IWT R15,#DR_START 8761 ;;;; NOP 8762 ;;;; 8763 ;;;;D_END 8764 ;;;;;---------< large loop end >-------------- 8765 ;;;; LMS R12,REG12 ;r12 <-- large loop counter 8766 ;;;; LMS R13,REG13 ;r13 <-- large loop pointer 8767 ;;;; INC R13 ; 8768 ;;;; LMS R14,REG14 ;r14 <-- face data rom p. 8769 ;;;; 8770 ;;;; LOOP 8771 ;;;; NOP 8772 ;;;; 8773 ;;;; RPIX ; 8774 ;;;; 8775 ;;;; STOP 8776 ;;;; NOP 8777 ;;;;; 8778 ;;;;; 8779 ;;;;; 8780 ;;;;NEXT_L_LINE EQU $ 8781 ;;;; SMS R11,RTS0 8782 ;;;; 8783 ;;;; LMS R0,CWORK2 ;new from point <-- to point 8784 ;;;; SMS R0,CWORK1 ; 8785 ;;;; 8786 ;;;; MOVE R1,R0 ;new to point calc. 8787 ;;;; LMS R2,CWORKE ; 8788 ;;;; INC R1 ; 8789 ;;;; FROM R1 ; 8790 ;;;; CMP R2 ; 8791 ;;;; BMI N_L_L0100 ; 8792 ;;;; WITH R1 ; 8793 ;;;; ; 8794 ;;;; SUB R1 ; 8795 ;;;; ; 8796 ;;;;N_L_L0100 ; 8797 ;;;; SMS R1,CWORK2 ; 8798 ;;;; 8799 ;;;; IWT R10,#POIYPS1 8800 ;;;; 8801 ;;;; ADD R0 ;MULT #004H 8802 ;;;; ADD R0 ; 8803 ;;;; TO R9 8804 ;;;; ADD R10 8805 ;;;; 8806 ;;;; TO R4 ;r4 <-- y1 8807 ;;;; LDW (R9) 8808 ;;;; INC R9 8809 ;;;; INC R9 8810 ;;;; 8811 ;;;; TO R3 ;r3 <-- x1 8812 ;;;; LDW (R9) 8813 ;;;; SM R3,POIXPSL ;POIXPSL <-- x1 8814 ;;;; 8815 ;;;; FROM R1 ;FROM R1 8816 ;;;; ADD R1 ;MULT #004H 8817 ;;;; ADD R0 ; 8818 ;;;; TO R9 8819 ;;;; ADD R10 8820 ;;;; 8821 ;;;; TO R6 ;r6 <-- y2 8822 ;;;; LDW (R9) 8823 ;;;; INC R9 8824 ;;;; INC R9 8825 ;;;; SMS R6,CWORK5 ;CWORK5 <-- y2 8826 ;;;; 8827 ;;;; LDW (R9) ;r0 <-- x2 8828 ;;;; SMS R0,CWORKC ;CWORKC <-- x2 8829 ;;;; 8830 ;;;; IBT R10,#001H ;r11 <-- X add data 8831 ;;;; 8832 ;;;; TO R3 ;r3 <-- |x2 - x1| 8833 ;;;; SUB R3 ; 8834 ;;;; BPL N_L_L0200 8835 ;;;; WITH R3 8836 ;;;; NOT 8837 ;;;; INC R3 8838 ;;;; 8839 ;;;; IBT R10,#0FFH ;r11 <-- x add data 8840 ;;;; 8841 ;;;;N_L_L0200 8842 ;;;; WITH R6 ;r6 <-- y2 - y1 8843 ;;;; SUB R4 ; 8844 ;;;; SMS R6,CWORKA ;drow loop counter set 8845 ;;;; 8846 ;;;; SM R10,POIXADL ;POIXADL <-- r11 8847 ;;;; 8848 ;;;; FROM R3 ;POI2DXL <-- r3 * 2 8849 ;;;; ADD R3 ; 8850 ;;;; SM R0,POI2DXL ; 8851 ;;;; 8852 ;;;; FROM R6 ;POI2DYL <-- r6 * 2 8853 ;;;; ADD R6 ; 8854 ;;;; SM R0,POI2DYL ; 8855 ;;;; 8856 ;;;; WITH R10 ;r10 <-- 0 8857 ;;;; SUB R10 ; 8858 ;;;; 8859 ;;;; FROM R3 ;DX >= DY ? 8860 ;;;; CMP R6 ; 8861 ;;;; BPL N_L_L0300 ; yes: N_L_L0300 8862 ;;;; 8863 ;;;; FROM R6 8864 ;;;; NOT 8865 ;;;; BRA N_L_L0400 8866 ;;;; INC R10 8867 ;;;; 8868 ;;;;N_L_L0300 8869 ;;;; FROM R3 8870 ;;;; NOT 8871 ;;;; 8872 ;;;;N_L_L0400 8873 ;;;; INC R0 ;POIRL <-- -(x2 - x1) or -(y2 - y1) 8874 ;;;; SM R0,POIRL ; 8875 ;;;; 8876 ;;;; SM R10,POICNDL ;POICNDL <-- r10 8877 ;;;; 8878 ;;;; LMS R15,RTS0 8879 ;;;; NOP 8880 ;;;; 8881 ;;;; 8882 ;;;; 8883 ;;;;NEXT_R_LINE EQU $ 8884 ;;;; SMS R11,RTS0 8885 ;;;; 8886 ;;;; LMS R0,CWORK4 ;new from point <-- to point 8887 ;;;; SMS R0,CWORK3 ; 8888 ;;;; 8889 ;;;; MOVE R1,R0 ;new to point calc. 8890 ;;;; DEC R1 ; 8891 ;;;; BPL N_R_L0100 ; 8892 ;;;; NOP ; 8893 ;;;; ; 8894 ;;;; LMS R1,CWORKE ; 8895 ;;;; DEC R1 ; 8896 ;;;; ; 8897 ;;;;N_R_L0100 ; 8898 ;;;; SMS R1,CWORK4 ; 8899 ;;;; 8900 ;;;; IWT R10,#POIYPS1 8901 ;;;; 8902 ;;;; ADD R0 8903 ;;;; ADD R0 8904 ;;;; TO R9 8905 ;;;; ADD R10 8906 ;;;; 8907 ;;;; TO R4 ;r4 <-- y1 8908 ;;;; LDW (R9) 8909 ;;;; INC R9 8910 ;;;; INC R9 8911 ;;;; 8912 ;;;; TO R3 ;r3 <-- x1 8913 ;;;; LDW (R9) 8914 ;;;; 8915 ;;;; SM R3,POIXPSR ;POIXPSR <-- x1 8916 ;;;; 8917 ;;;; FROM R1 ;FROM R1 8918 ;;;; ADD R1 ;MULT #004H 8919 ;;;; ADD R0 ; 8920 ;;;; TO R9 8921 ;;;; ADD R10 8922 ;;;; 8923 ;;;; TO R6 ;r6 <-- y2 8924 ;;;; LDW (R9) 8925 ;;;; INC R9 8926 ;;;; INC R9 8927 ;;;; SMS R6,CWORK6 ;CWORK6 <-- y2 8928 ;;;; 8929 ;;;; LDW (R9) ;r0 <-- x2 8930 ;;;; SMS R0,CWORKD ;CWORKD <-- x2 8931 ;;;; 8932 ;;;; IBT R10,#001H ;r10 <-- X add data 8933 ;;;; 8934 ;;;; TO R3 ;r3 <-- |x2 - x1| 8935 ;;;; SUB R3 ; 8936 ;;;; BPL N_R_L0200 8937 ;;;; WITH R3 8938 ;;;; NOT 8939 ;;;; INC R3 8940 ;;;; 8941 ;;;; IBT R10,#0FFH ;r10 <-- X add data 8942 ;;;; 8943 ;;;;N_R_L0200 8944 ;;;; WITH R6 ;r6 <-- y2 - y1 8945 ;;;; SUB R4 ; 8946 ;;;; SMS R6,CWORKB ;drow loop counter set 8947 ;;;; 8948 ;;;; SM R10,POIXADR ;POIXADR <-- r10 8949 ;;;; 8950 ;;;; FROM R3 ;POI2DXR <-- r3 * 2 8951 ;;;; ADD R3 ; 8952 ;;;; SM R0,POI2DXR ; 8953 ;;;; 8954 ;;;; FROM R6 ;POI2DYR <-- r6 * 2 8955 ;;;; ADD R6 ; 8956 ;;;; SM R0,POI2DYR ; 8957 ;;;; 8958 ;;;; WITH R10 ;r10 <-- 0 8959 ;;;; SUB R10 ; 8960 ;;;; 8961 ;;;; FROM R3 ;DX >= DY ? 8962 ;;;; CMP R6 ; 8963 ;;;; BPL N_R_L0300 ; yes: N_R_L0300 8964 ;;;; 8965 ;;;; FROM R6 8966 ;;;; NOT 8967 ;;;; BRA N_R_L0400 8968 ;;;; INC R10 ;r10 <-- COND 8969 ;;;; 8970 ;;;;N_R_L0300 8971 ;;;; FROM R3 8972 ;;;; NOT 8973 ;;;; 8974 ;;;;N_R_L0400 8975 ;;;; INC R0 ;POIRR <-- -(x2 - x1) or -(y2 - y1) 8976 ;;;; SM R0,POIRR ; 8977 ;;;; 8978 ;;;; SM R10,POICNDR ;POICNDR <-- r10 8979 ;;;; 8980 ;;;; LMS R15,RTS0 8981 ;;;; NOP 8982 ;;;; 8983 ;;;;; 8984 ;;;;; 8985 ;;;;; 8986 ;;;;; 8987 ;;;;POI EQU $ 8988 ;;;; HEX 4 8989 ;;;; HEX 000,0E0,000 8990 ;;;; HEX 018,020,000 8991 ;;;; HEX 0E8,020,020 8992 ;;;; HEX 0E8,020,0E0 8993 ;;;;; 8994 ;;;;; HEX 4 8995 ;;;;; HEX 000,0F8,000 8996 ;;;;; HEX 006,008,000 8997 ;;;;; HEX 0FA,008,008 8998 ;;;;; HEX 0FA,008,0F8 8999 ;;;;; 9000 ;;;; HEX 8 ;[ point sum. ] 9001 ;;;; HEX 0D8,0D8,0D8 ;[0][ (z),(y),(x) ] 9002 ;;;; HEX 0D8,0D8,028 ;[1][ (z),(y),(x) ] 9003 ;;;; HEX 0D8,028,028 ;[2][ (z),(y),(x) ] 9004 ;;;; HEX 0D8,028,0D8 ;[3][ (z),(y),(x) ] 9005 ;;;; HEX 028,0D8,0D8 ;[4][ (z),(y),(x) ] 9006 ;;;; HEX 028,0D8,028 ;[5][ (z),(y),(x) ] 9007 ;;;; HEX 028,028,028 ;[6][ (z),(y),(x) ] 9008 ;;;; HEX 028,028,0D8 ;[7][ (z),(y),(x) ] 9009 ;;;;; 9010 ;;;; HEX 8 ;[ point sum. ] 9011 ;;;; HEX 0F8,0F8,0F8 ;[0][ (z),(y),(x) ] 9012 ;;;; HEX 0F8,0F8,008 ;[1][ (z),(y),(x) ] 9013 ;;;; HEX 0F8,008,008 ;[2][ (z),(y),(x) ] 9014 ;;;; HEX 0F8,008,0F8 ;[3][ (z),(y),(x) ] 9015 ;;;; HEX 008,0F8,0F8 ;[4][ (z),(y),(x) ] 9016 ;;;; HEX 008,0F8,008 ;[5][ (z),(y),(x) ] 9017 ;;;; HEX 008,008,008 ;[6][ (z),(y),(x) ] 9018 ;;;; HEX 008,008,0F8 ;[7][ (z),(y),(x) ] 9019 ;;;;; 9020 ;;;;FACE EQU $ 9021 ;;;; HEX 4 9022 ;;;; HEX 3,0,2,1 9023 ;;;; HEX 009,0FD,00C 9024 ;;;; HEX 3,0,3,2 9025 ;;;; HEX 0F1,0FB,000 9026 ;;;; HEX 3,0,1,3 9027 ;;;; HEX 009,0FD,0F4 9028 ;;;; HEX 3,1,2,3 9029 ;;;; HEX 000,00F,000 9030 ;;;;; 9031 ;;;; 9032 ;;;; HEX 6 ;[ face sum. ] 9033 ;;;; HEX 4,0,3,2,1 ;[0][ (point sum),(col),(point no),.... ] 9034 ;;;; HEX 0F1,000,000 9035 ;;;; HEX 4,0,1,5,4 ;[1][ (point sum),(col),(point no),.... ] 9036 ;;;; HEX 000,0F1,000 9037 ;;;; HEX 4,0,4,7,3 ;[2][ (point sum),(col),(point no),.... ] 9038 ;;;; HEX 000,000,0F1 9039 ;;;; HEX 4,1,2,6,5 ;[3][ (point sum),(col),(point no),.... ] 9040 ;;;; HEX 000,000,00F 9041 ;;;; HEX 4,2,3,7,6 ;[4][ (point sum),(col),(point no),.... ] 9042 ;;;; HEX 000,00F,000 9043 ;;;; HEX 4,4,5,6,7 ;[5][ (point sum),(col),(point no),.... ] 9044 ;;;; HEX 00F,000,000 9045 ;;;;; 9046 ;;;;; HEX 6 ;[ face sum. ] 9047 ;;;;; HEX 4,1,0,3,2,1 ;[0][ (point sum),(col),(point no),.... ] 9048 ;;;;; HEX 4,2,0,1,5,4 ;[1][ (point sum),(col),(point no),.... ] 9049 ;;;;; HEX 4,3,0,4,7,3 ;[2][ (point sum),(col),(point no),.... ] 9050 ;;;;; HEX 4,4,1,2,6,5 ;[3][ (point sum),(col),(point no),.... ] 9051 ;;;;; HEX 4,5,2,3,7,6 ;[4][ (point sum),(col),(point no),.... ] 9052 ;;;;; HEX 4,6,4,5,6,7 ;[5][ (point sum),(col),(point no),.... ] 9053 ;;;;; 9054 ;;;;; 9055 ; 9056 ; 9057 ;************************************************************************ 9058 ;* * 9059 ;* HDMABF SPACE CLEAR * 9060 ;* * 9061 ;************************************************************************ 9062 002AEF HDMABF_CLR EQU $ 9063 S002AEF A0 70 IBT R0,#BANK HDMABF ;HDMABF ram bank set 9064 S002AF1 3E DF RAMB 9065 vvv******* warn :value out of range 9066 S002AF3 F1 3372 IWT R1,#HDMABF vvv******* warn :value out of range 9067 S002AF6 F2 3516 IWT R2,#HDMABF1 9068 9069 S002AF9 A0 F7 IBT R0,#0FFH-8 ;clear data 9070 9071 ;;;; IWT R12,#000B2H 9072 S002AFB FC 00D2 IWT R12,#000D2H 9073 S002AFE 02 CACHE 9074 S002AFF 2F 1D MOVE R13,R15 9075 9076 S002B01 31 STW (R1) 9077 S002B02 32 STW (R2) 9078 S002B03 D1 INC R1 9079 S002B04 D1 INC R1 9080 S002B05 D2 INC R2 9081 S002B06 D2 INC R2 9082 9083 S002B07 3C LOOP 9084 S002B08 E0 DEC R0 9085 9086 S002B09 00 STOP 9087 S002B0A 01 NOP 9088 ;;;;; 9089 ;;;;; 9090 ;;;;; 9091 ;;;;; 9092 ;;;;; 9093 ;;;;; 9094 ;;;;; 9095 ;;;;; r1... x display pos. 9096 ;;;;; r2... y display pos. 9097 ;;;;; r3... y base pos. 9098 ;;;;; 9099 ;;;;TOFU_BLOCK EQU $ 9100 ;;;; IBT R0,#078H 9101 ;;;; TO R1 9102 ;;;; SUB R1 9103 ;;;; 9104 ;;;; IBT R0,#BANK TOFU_DATA ;rom bank set 9105 ;;;; ROMB 9106 ;;;; 9107 ;;;; IWT R0,#TOFU_DATA ;rom pointer set 9108 ;;;; TO R14 9109 ;;;; ADD R4 9110 ;;;; GETB 9111 ;;;; INC R14 9112 ;;;; TO R6 9113 ;;;; GETBH 9114 ;;;; 9115 ;;;; IBT R0,#BANK HDMABF ;ram bank set 9116 ;;;; RAMB 9117 ;;;; 9118 ;;;; IWT R4,#HDMABF ;ram addr. set 9119 ;;;; IWT R5,#HDMABF1 ;ram addr. set 9120 ;;;; 9121 ;;;; FROM R3 9122 ;;;; MULT R10 9123 ;;;; TO R14 9124 ;;;; ADD R6 9125 ;;;; MOVE R6,R14 9126 ;;;; 9127 ;;;; TO R7 ;h wide get 9128 ;;;; GETB ; 9129 ;;;; WITH R14 ; 9130 ;;;; ADD R11 ; 9131 ;;;; SMS R7,CWORK0 9132 ;;;; 9133 ;;;; TO R8 ;v wide get 9134 ;;;; GETB ; 9135 ;;;; FROM R6 9136 ;;;; TO R14 9137 ;;;; ADD R10 9138 ;;;; DEC R14 9139 ;;;; SMS R8,CWORK1 9140 ;;;; 9141 ;;;; TO R9 ;square wide get 9142 ;;;; GETB ; 9143 ;;;; INC R14 ; 9144 ;;;; 9145 ;;;; SUB R0 9146 ;;;; SMS R0,CWORK2 9147 ;;;; 9148 ;;;; 9149 ;;;; 9150 ;;;; IWT R13,#000B2H 9151 ;;;; 9152 ;;;; FROM R2 9153 ;;;; CMP R13 9154 ;;;; BCC TOFU0200 9155 ;;;; NOP 9156 ;;;; 9157 ;;;; BPL TOFU0100 9158 ;;;; NOP 9159 ;;;; 9160 ;;;; WITH R9 9161 ;;;; ADD R2 9162 ;;;; FROM R9 9163 ;;;; HIB 9164 ;;;; BMI TOFU0800 9165 ;;;; NOP 9166 ;;;; 9167 ;;;; IBT R0,#0FFH ;5 9168 ;;;; TO R7 9169 ;;;; ADD R7 9170 ;;;; BRA TOFU0700 9171 ;;;; NOP 9172 ;;;; 9173 ;;;;TOFU0100 9174 ;;;; FROM R2 9175 ;;;; SUB R8 9176 ;;;; CMP R13 9177 ;;;; BCS TOFU0800 9178 ;;;; NOP 9179 ;;;; 9180 ;;;; IBT R6,#001H ;3 9181 ;;;; SMS R6,CWORK2 9182 ;;;; 9183 ;;;; FROM R13 9184 ;;;; SUB R0 9185 ;;;; SMS R0,CWORK1 9186 ;;;; 9187 ;;;; BRA TOFU0500 9188 ;;;; NOP 9189 ;;;; 9190 ;;;;TOFU0200 9191 ;;;; FROM R2 9192 ;;;; TO R6 9193 ;;;; SUB R8 9194 ;;;; FROM R6 9195 ;;;; HIB 9196 ;;;; BPL TOFU0300 9197 ;;;; NOP 9198 ;;;; 9199 ;;;; WITH R8 ;2 9200 ;;;; ADD R6 9201 ;;;; 9202 ;;;; SMS R8,CWORK1 9203 ;;;; BRA TOFU0500 9204 ;;;; NOP 9205 ;;;; 9206 ;;;;TOFU0300 9207 ;;;; FROM R2 9208 ;;;; ADD R9 9209 ;;;; CMP R13 9210 ;;;; BCC TOFU0500 9211 ;;;; NOP 9212 ;;;; 9213 ;;;; FROM R13 ;1 9214 ;;;; TO R9 9215 ;;;; SUB R2 9216 ;;;; 9217 ;;;;TOFU0500 9218 ;;;; 9219 ;;;; INC R8 ;v wide inc. 9220 ;;;; 9221 ;;;; FROM R8 9222 ;;;; MULT R10 9223 ;;;; WITH R14 9224 ;;;; SUB R0 9225 ;;;; 9226 ;;;; DEC R8 ;v wide dae. 9227 ;;;; 9228 ;;;; 9229 ;;;; WITH R2 9230 ;;;; SUB R8 9231 ;;;; 9232 ;;;; FROM R2 9233 ;;;; ADD R2 9234 ;;;; 9235 ;;;; WITH R4 ;set ram addr. calc. 9236 ;;;; ADD R0 ; 9237 ;;;; 9238 ;;;; WITH R5 ;set ram addr. calc. 9239 ;;;; ADD R0 ; 9240 ;;;; 9241 ;;;; IBT R0,#0FFH ;v base wide set 9242 ;;;; TO R7 ; 9243 ;;;; SUB R2 ; 9244 ;;;; 9245 ;;;; LMS R12,CWORK1 9246 ;;;; MOVES R12,R12 9247 ;;;; BNE TOFU0600 9248 ;;;; NOP 9249 ;;;; 9250 ;;;; LMS R0,CWORK0 9251 ;;;; ADD R7 9252 ;;;; BRA TOFU0700 9253 ;;;; NOP 9254 ;;;; 9255 ;;;;TOFU0600 9256 ;;;; JSR TOFU_UPPER 9257 ;;;; 9258 ;;;;TOFU0700 9259 ;;;; LMS R6,CWORK2 ;square drow ? 9260 ;;;; MOVES R6,R6 ; 9261 ;;;; BNE TOFU0800 ; no: TOFU0800 9262 ;;;; NOP 9263 ;;;; 9264 ;;;; IWT R7,#00100H ;h wide set (lock) 9265 ;;;; TO R7 9266 ;;;; SUB R7 9267 ;;;; 9268 ;;;; MOVES R12,R9 9269 ;;;; BEQ TOFU0800 9270 ;;;; NOP 9271 ;;;; 9272 ;;;; JSR TOFU_UNDER 9273 ;;;; 9274 ;;;;TOFU0800 9275 ;;;; 9276 ;;;; STOP 9277 ;;;; NOP 9278 ;;;;; 9279 ;;;;; 9280 ;;;;TOFU_UPPER EQU $ 9281 ;;;; CACHE 9282 ;;;; MOVE R13,R15 9283 ;;;; 9284 ;;;; GETB ;wide calc. & set 9285 ;;;; WITH R14 ; 9286 ;;;; ADD R10 ; 9287 ;;;; ; 9288 ;;;; ADD R7 ; 9289 ;;;; STW (R4) ; 9290 ;;;; INC R4 ; 9291 ;;;; INC R4 ; 9292 ;;;; 9293 ;;;; FROM R1 ;center set 9294 ;;;; STW (R5) ; 9295 ;;;; INC R5 ; 9296 ;;;; INC R5 ; 9297 ;;;; 9298 ;;;; LOOP 9299 ;;;; DEC R7 9300 ;;;; 9301 ;;;; RTS 9302 ;;;;; 9303 ;;;;TOFU_UNDER EQU $ 9304 ;;;; CACHE 9305 ;;;; MOVE R13,R15 9306 ;;;; 9307 ;;;; FROM R7 ;wide set 9308 ;;;; STW (R4) ; 9309 ;;;; INC R4 ; 9310 ;;;; INC R4 ; 9311 ;;;; 9312 ;;;; FROM R1 ;center set 9313 ;;;; STW (R5) ; 9314 ;;;; INC R5 ; 9315 ;;;; INC R5 ; 9316 ;;;; 9317 ;;;; LOOP 9318 ;;;; DEC R7 9319 ;;;; 9320 ;;;; RTS 9321 ;;;;; 9322 ;;;;; 9323 ;;;;; 9324 ;;;;TOFU_DATA EQU $ 9325 ;;;; WORD TOFU_SHOT ;tofu block shot 9326 ;;;; WORD TOFU_STEP ;tofu expand step 9327 ;;;;; 9328 ;;;;TOFU_SHOT EQU $ 9329 ;;;;; X START WIDE =008,Y START WIDE =002 9330 ;;;;; X END WIDE =040,Y END WIDE =016 9331 ;;;;; Z WIDE =050 9332 ;;;; HEX 008,000,000,000,000,002 9333 ;;;; HEX 008,000,000,000,000,002 9334 ;;;; HEX 009,000,000,000,000,002 9335 ;;;; HEX 00A,000,000,000,001,002 9336 ;;;; HEX 00A,000,000,001,001,003 9337 ;;;; HEX 00B,000,001,001,001,003 9338 ;;;; HEX 00C,000,001,001,002,003 9339 ;;;; HEX 00C,000,001,001,002,003 9340 ;;;; HEX 00D,000,001,002,002,004 9341 ;;;; HEX 00E,000,001,002,003,004 9342 ;;;; HEX 00F,001,002,002,003,004 9343 ;;;; HEX 00F,001,002,003,003,004 9344 ;;;; HEX 010,001,002,003,004,005 9345 ;;;; HEX 011,001,002,003,004,005 9346 ;;;; HEX 011,001,002,003,004,005 9347 ;;;; HEX 012,001,003,004,005,005 9348 ;;;; HEX 013,001,003,004,005,006 9349 ;;;; HEX 014,001,003,004,005,006 9350 ;;;; HEX 014,001,003,005,006,006 9351 ;;;; HEX 015,001,003,005,006,006 9352 ;;;; HEX 016,002,004,005,006,007 9353 ;;;; HEX 016,002,004,005,007,007 9354 ;;;; HEX 017,002,004,006,007,007 9355 ;;;; HEX 018,002,004,006,007,007 9356 ;;;; HEX 018,002,004,006,008,008 9357 ;;;; HEX 019,002,005,007,008,008 9358 ;;;; HEX 01A,002,005,007,008,008 9359 ;;;; HEX 01B,002,005,007,009,008 9360 ;;;; HEX 01B,002,005,007,009,009 9361 ;;;; HEX 01C,002,005,008,009,009 9362 ;;;; HEX 01D,003,006,008,00A,009 9363 ;;;; HEX 01D,003,006,008,00A,009 9364 ;;;; HEX 01E,003,006,008,00A,00A 9365 ;;;; HEX 01F,003,006,009,00B,00A 9366 ;;;; HEX 020,003,006,009,00B,00A 9367 ;;;; HEX 020,003,007,009,00B,00A 9368 ;;;; HEX 021,003,007,00A,00C,00B 9369 ;;;; HEX 022,003,007,00A,00C,00B 9370 ;;;; HEX 022,003,007,00A,00C,00B 9371 ;;;; HEX 023,003,007,00A,00D,00B 9372 ;;;; HEX 024,004,008,00B,00D,00C 9373 ;;;; HEX 024,004,008,00B,00D,00C 9374 ;;;; HEX 025,004,008,00B,00E,00C 9375 ;;;; HEX 026,004,008,00C,00E,00C 9376 ;;;; HEX 027,004,008,00C,00E,00D 9377 ;;;; HEX 027,004,009,00C,00F,00D 9378 ;;;; HEX 028,004,009,00C,00F,00D 9379 ;;;; HEX 029,004,009,00D,00F,00D 9380 ;;;; HEX 029,004,009,00D,010,00E 9381 ;;;; HEX 02A,004,009,00D,010,00E 9382 ;;;; HEX 02B,005,00A,00E,011,00E 9383 ;;;; HEX 02C,005,00A,00E,011,00E 9384 ;;;; HEX 02C,005,00A,00E,011,00F 9385 ;;;; HEX 02D,005,00A,00E,012,00F 9386 ;;;; HEX 02E,005,00A,00F,012,00F 9387 ;;;; HEX 02E,005,00B,00F,012,00F 9388 ;;;; HEX 02F,005,00B,00F,013,010 9389 ;;;; HEX 030,005,00B,00F,013,010 9390 ;;;; HEX 031,005,00B,010,013,010 9391 ;;;; HEX 031,005,00B,010,014,010 9392 ;;;; HEX 032,006,00C,010,014,011 9393 ;;;; HEX 033,006,00C,011,014,011 9394 ;;;; HEX 033,006,00C,011,015,011 9395 ;;;; HEX 034,006,00C,011,015,011 9396 ;;;; HEX 035,006,00C,011,015,012 9397 ;;;; HEX 035,006,00D,012,016,012 9398 ;;;; HEX 036,006,00D,012,016,012 9399 ;;;; HEX 037,006,00D,012,016,012 9400 ;;;; HEX 038,006,00D,013,017,013 9401 ;;;; HEX 038,006,00D,013,017,013 9402 ;;;; HEX 039,007,00E,013,017,013 9403 ;;;; HEX 03A,007,00E,013,018,013 9404 ;;;; HEX 03A,007,00E,014,018,014 9405 ;;;; HEX 03B,007,00E,014,018,014 9406 ;;;; HEX 03C,007,00E,014,019,014 9407 ;;;; HEX 03D,007,00F,015,019,014 9408 ;;;; HEX 03D,007,00F,015,019,015 9409 ;;;; HEX 03E,007,00F,015,01A,015 9410 ;;;; HEX 03F,007,00F,015,01A,015 9411 ;;;; HEX 03F,007,00F,016,01A,015 9412 ;;;;; 9413 ;;;;TOFU_STEP EQU $ 9414 ;;;;; X START WIDE =020,Y START WIDE =00A 9415 ;;;;; X END WIDE =040,Y END WIDE =010 9416 ;;;;; Z WIDE =020 9417 ;;;; HEX 020,000,00A 9418 ;;;; HEX 021,001,00A 9419 ;;;; HEX 022,002,00A 9420 ;;;; HEX 023,003,00A 9421 ;;;; HEX 024,004,00A 9422 ;;;; HEX 025,005,00A 9423 ;;;; HEX 026,006,00B 9424 ;;;; HEX 027,007,00B 9425 ;;;; HEX 028,008,00B 9426 ;;;; HEX 029,009,00B 9427 ;;;; HEX 02A,00A,00B 9428 ;;;; HEX 02B,00B,00C 9429 ;;;; HEX 02C,00C,00C 9430 ;;;; HEX 02D,00D,00C 9431 ;;;; HEX 02E,00E,00C 9432 ;;;; HEX 02F,00F,00C 9433 ;;;; HEX 030,010,00D 9434 ;;;; HEX 031,011,00D 9435 ;;;; HEX 032,012,00D 9436 ;;;; HEX 033,013,00D 9437 ;;;; HEX 034,014,00D 9438 ;;;; HEX 035,015,00E 9439 ;;;; HEX 036,016,00E 9440 ;;;; HEX 037,017,00E 9441 ;;;; HEX 038,018,00E 9442 ;;;; HEX 039,019,00E 9443 ;;;; HEX 03A,01A,00E 9444 ;;;; HEX 03B,01B,00F 9445 ;;;; HEX 03C,01C,00F 9446 ;;;; HEX 03D,01D,00F 9447 ;;;; HEX 03E,01E,00F 9448 ;;;; HEX 03F,01F,00F 9449 ;;;;; 9450 ;;;;; 9451 ;;;;; 9452 ;;;;; 9453 ;;;;; 9454 ;;;;; 9455 ;;;;CORNER_CHK MACRO XPOS,YPOS,DMODE,CMPDT,XWIDE,YWIDE 9456 ;;;; LOCAL C_CHK0100,C_CHK0200,C_CHK0300 9457 ;;;; LOCAL C_CHK1000,C_CHK1100,C_CHK1200,C_CHK1300,C_CHK1400 9458 ;;;; LOCAL C_CHK2000 9459 ;;;; 9460 ;;;; DEC CMPDT 9461 ;;;; BEQ C_CHK1000 9462 ;;;; NOP 9463 ;;;; 9464 ;;;; MOVES DMODE,DMODE ;DMODE... 9465 ;;;; BEQ C_CHK0100 ; 0: C_CHK0100 9466 ;;;; NOP ; 9467 ;;;; FROM DMODE ; 9468 ;;;; SUB #002 ; 9469 ;;;; BEQ C_CHK0300 ; 2: C_CHK0300 9470 ;;;; NOP ; 9471 ;;;; BMI C_CHK0200 ; 1: C_CHK0200 9472 ;;;; NOP ; 9473 ;;;; 9474 ;;;; BRA C_CHK2000 9475 ;;;; DEC YPOS 9476 ;;;; 9477 ;;;;C_CHK0100 9478 ;;;; BRA C_CHK2000 9479 ;;;; INC XPOS 9480 ;;;; 9481 ;;;;C_CHK0200 9482 ;;;; BRA C_CHK2000 9483 ;;;; INC YPOS 9484 ;;;; 9485 ;;;;C_CHK0300 9486 ;;;; BRA C_CHK2000 9487 ;;;; DEC XPOS 9488 ;;;; 9489 ;;;;C_CHK1000 9490 ;;;; MOVES DMODE,DMODE ;DMODE... 9491 ;;;; BEQ C_CHK1100 ; 0: C_CHK1100 9492 ;;;; NOP ; 9493 ;;;; FROM DMODE ; 9494 ;;;; SUB #002 ; 9495 ;;;; BEQ C_CHK1300 ; 2: C_CHK1300 9496 ;;;; NOP ; 9497 ;;;; BMI C_CHK1200 ; 1: C_CHK1200 9498 ;;;; NOP ; 9499 ;;;; 9500 ;;;; LMS CMPDT,YWIDE 9501 ;;;; DEC CMPDT 9502 ;;;; FROM CMPDT 9503 ;;;; SBK 9504 ;;;; 9505 ;;;; LMS CMPDT,XWIDE 9506 ;;;; BRA C_CHK1400 9507 ;;;; INC XPOS 9508 ;;;; 9509 ;;;;C_CHK1100 9510 ;;;; LMS CMPDT,XWIDE 9511 ;;;; DEC CMPDT 9512 ;;;; FROM CMPDT 9513 ;;;; SBK 9514 ;;;; 9515 ;;;; LMS CMPDT,YWIDE 9516 ;;;; 9517 ;;;; BRA C_CHK1400 9518 ;;;; INC YPOS 9519 ;;;; 9520 ;;;;C_CHK1200 9521 ;;;; LMS CMPDT,YWIDE 9522 ;;;; DEC CMPDT 9523 ;;;; FROM CMPDT 9524 ;;;; SBK 9525 ;;;; 9526 ;;;; LMS CMPDT,XWIDE 9527 ;;;; 9528 ;;;; BRA C_CHK1400 9529 ;;;; DEC XPOS 9530 ;;;; 9531 ;;;;C_CHK1300 9532 ;;;; LMS CMPDT,XWIDE 9533 ;;;; DEC CMPDT 9534 ;;;; FROM CMPDT 9535 ;;;; SBK 9536 ;;;; 9537 ;;;; LMS CMPDT,YWIDE 9538 ;;;; DEC YPOS 9539 ;;;; 9540 ;;;;C_CHK1400 9541 ;;;; INC DMODE 9542 ;;;; WITH DMODE 9543 ;;;; AND #003H 9544 ;;;; 9545 ;;;;C_CHK2000 9546 ;;;; ENDM 9547 ;;;;; 9548 ;;;;; 9549 ;;;;FREEAREA_CLR EQU $ 9550 ;;;;;---------------< mapping area clear >---------------- 9551 ;;;; 9552 ;;;; CACHE 9553 ;;;; 9554 ;;;; IWT R7,#(WOB7CHR+20H*4) 9555 ;;;; IWT R8,#(WOB7CHR+20H*4)+200H 9556 ;;;; IWT R9,#(WOB7CHR+20H*4)+400H 9557 ;;;; IWT R10,#(WOB7CHR+20H*4)+600H 9558 ;;;; SUB R0 ;[ IBT R0,#0 ] 9559 ;;;; IWT R12,#(20H*4)/2 9560 ;;;; MOVE R13,R15 9561 ;;;; 9562 ;;;; STW (R7) 9563 ;;;; INC R7 9564 ;;;; INC R7 9565 ;;;; STW (R8) 9566 ;;;; INC R8 9567 ;;;; INC R8 9568 ;;;; STW (R9) 9569 ;;;; INC R9 9570 ;;;; INC R9 9571 ;;;; STW (R10) 9572 ;;;; INC R10 9573 ;;;; LOOP 9574 ;;;; INC R10 9575 ;;;;; 9576 ;;;; IBT R0,#BANK DATACMP 9577 ;;;; RAMB 9578 ;;;; 9579 ;;;; IWT R1,#DATACMP 9580 ;;;; 9581 ;;;; SUB R0 9582 ;;;; 9583 ;;;; IBT R12,#010H 9584 ;;;; MOVE R13,R15 9585 ;;;; 9586 ;;;; STW (R1) 9587 ;;;; 9588 ;;;; INC R1 9589 ;;;; 9590 ;;;; LOOP 9591 ;;;; INC R1 9592 ;;;; 9593 ;;;; STOP 9594 ;;;; NOP 9595 ; 9596 ; 9597 ;;;;;******************************************************** 9598 ;;;;;* bit map block * 9599 ;;;;;******************************************************** 9600 ;;;;; 9601 ;;;;;r1 player x pos. 9602 ;;;;;r2 " y " 9603 ;;;;;r3 " char. muki 9604 ;;;;;r4 " sit down flag 9605 ;;;;;r5 enemy x pos. 9606 ;;;;;r6 " y " 9607 ;;;;; 9608 ;;;;; 9609 ;;;;; 9610 ;;;;ERASER_XPOS EQU $ 9611 ;;;;; PLCMKI = 0 2 9612 ;;;; HEX 008,0F8 9613 ;;;;; HEX 008,000 9614 ;;;;; 9615 ;;;;ERASER_YPOS EQU $ 9616 ;;;;; PLSITD = 0 1 2 3 4 5 9617 ;;;; HEX 008,00B,00D,00F,011,014 9618 ;;;;; 9619 ;;;;ERASER_DATA EQU $ 9620 ;;;;; HEX 08 9621 ;;;;; HEX 10 9622 ;;;;; HEX 5A 9623 ;;;;; HEX BF 9624 ;;;;; HEX 7D 9625 ;;;;; HEX 5C 9626 ;;;;; HEX 08 9627 ;;;;; HEX 10 9628 ;;;; HEX 00,00 9629 ;;;; HEX 00,01 9630 ;;;; HEX 80,01 9631 ;;;; HEX C0,03 9632 ;;;; HEX E0,07 9633 ;;;; HEX F0,0F 9634 ;;;; HEX F8,1F 9635 ;;;; HEX FE,3F 9636 ;;;; HEX FC,7F 9637 ;;;; HEX F8,1F 9638 ;;;; HEX F0,0F 9639 ;;;; HEX E0,07 9640 ;;;; HEX C0,03 9641 ;;;; HEX 80,01 9642 ;;;; HEX 80,00 9643 ;;;; HEX 00,00 9644 ;;;;; 9645 ;;;;BTBLK_SET EQU $ 9646 ;;;; WITH R3 9647 ;;;; DIV2 9648 ;;;; 9649 ;;;; IBT R0,#BANK ERASER_XPOS 9650 ;;;; ROMB 9651 ;;;; 9652 ;;;; IWT R0,#ERASER_XPOS 9653 ;;;; 9654 ;;;; TO R14 9655 ;;;; ADD R3 9656 ;;;; GETBS 9657 ;;;; ADD R1 9658 ;;;; TO R3 9659 ;;;; SUB R5 9660 ;;;; 9661 ;;;; IWT R0,#ERASER_YPOS 9662 ;;;; 9663 ;;;; TO R14 9664 ;;;; ADD R4 9665 ;;;; GETB 9666 ;;;; ADD R2 9667 ;;;; TO R2 9668 ;;;; SUB R6 9669 ;;;; 9670 ;;;;; IBT R5,#008H ;c( range ) + 4( player center ) - 8( enemy center ) 9671 ;;;;; IBT R6,#018H ;range * 2 9672 ;;;; 9673 ;;;; IBT R5,#010H ;10( range ) + 8( player center ) - 8( enemy center ) 9674 ;;;; IBT R6,#020H ;range * 2 9675 ;;;; 9676 ;;;; FROM R3 ;x pos. over ? 9677 ;;;; ADD R5 9678 ;;;; CMP R6 9679 ;;;; BCS BTBLK_END2 ; yes: BTBLK_END2 9680 ;;;; NOP 9681 ;;;; 9682 ;;;; FROM R2 ;y pos. over ? 9683 ;;;; ADD R5 9684 ;;;; CMP R6 9685 ;;;;; BCS BTBLK_END2 ; yes: BTBLK_END2 9686 ;;;; BCC BTBLK_SET0010 ; no: BTBLK_SET0010 9687 ;;;; NOP 9688 ;;;; 9689 ;;;;BTBLK_END2 9690 ;;;; SUB R0 ;IBT R0,#000 9691 ;;;; 9692 ;;;; STOP 9693 ;;;; NOP 9694 ;;;; 9695 ;;;;BTBLK_SET0010 9696 ;;;; DEC R2 9697 ;;;;;;; 9698 ;;;; IWT R14,#ERASER_DATA 9699 ;;;; 9700 ;;;;; IBT R0,#BANK CWORK0 9701 ;;;;; RAMB 9702 ;;;; 9703 ;;;; IWT R5,#CWORK0 9704 ;;;; 9705 ;;;;; IBT R12,#004H 9706 ;;;; IBT R12,#010H 9707 ;;;; CACHE 9708 ;;;; MOVE R13,R15 9709 ;;;; 9710 ;;;; GETB 9711 ;;;; INC R14 9712 ;;;; GETBH 9713 ;;;; INC R14 9714 ;;;; STW (R5) 9715 ;;;; 9716 ;;;; INC R5 9717 ;;;; 9718 ;;;; LOOP 9719 ;;;; INC R5 9720 ;;;;;;; 9721 ;;;; 9722 ;;;; SUB R0 ;IBT R0,#000 9723 ;;;; CMODE ;mode set 9724 ;;;; 9725 ;;;; IBT R0,#BANK CIPCHD+6000H 9726 ;;;; ROMB 9727 ;;;; 9728 ;;;; IWT R6,#CIPCHD+6000H 9729 ;;;; 9730 ;;;; IWT R5,#CWORK0 9731 ;;;; 9732 ;;;; IBT R0,#BANK DATACMP 9733 ;;;; RAMB 9734 ;;;; 9735 ;;;; IWT R11,#DATACMP 9736 ;;;; 9737 ;;;; IBT R10,#020H 9738 ;;;; 9739 ;;;; SMS R3,REG3 ;REG3 <-- eraser start x pos. 9740 ;;;; 9741 ;;;;; IBT R0,#008H ;L loop counter 9742 ;;;; IBT R0,#010H ;L loop counter 9743 ;;;; SMS R0,REG0 9744 ;;;; 9745 ;;;; CACHE 9746 ;;;;BTBLK_LLOOP 9747 ;;;; TO R9 ;R5 <-- eraser data 9748 ;;;;; LDB (R5) 9749 ;;;; LDW (R5) 9750 ;;;; INC R5 9751 ;;;; INC R5 9752 ;;;; 9753 ;;;; INC R2 9754 ;;;; LMS R3,REG3 ;R3 <-- eraser start x pos. 9755 ;;;; 9756 ;;;;; IBT R12,#008H ;S loop counter 9757 ;;;; IBT R12,#010H ;S loop counter 9758 ;;;; 9759 ;;;; MOVE R13,R15 9760 ;;;; 9761 ;;;;BTBLK_SLOOP 9762 ;;;; FROM R2 9763 ;;;; TO R7 9764 ;;;; SWAP 9765 ;;;; 9766 ;;;; FROM R3 9767 ;;;; TO R8 9768 ;;;; SWAP 9769 ;;;; 9770 ;;;; MERGE ;draw area ? 9771 ;;;; BEQ BTBLK_SLP0100 ; no: BTBLK_SLP0100 9772 ;;;; 9773 ;;;; TO R14 9774 ;;;; ADD R6 9775 ;;;; 9776 ;;;; WITH R9 ;draw ?? 9777 ;;;; ROR 9778 ;;;; BCC BTBLK_SLP0100 ; no: BTBLK_SLP0100 9779 ;;;; 9780 ;;;; FROM R3 9781 ;;;; TO R1 9782 ;;;; ADD R10 9783 ;;;; 9784 ;;;; GETC 9785 ;;;; PLOT 9786 ;;;; 9787 ;;;; 9788 ;;;; IBT R0,#001H 9789 ;;;; MOVES R4,R2 9790 ;;;; BEQ BTBLK_SSLP0050 9791 ;;;; NOP 9792 ;;;;BTBLK_SSLOOP 9793 ;;;; ADD R0 9794 ;;;; DEC R4 9795 ;;;; BNE BTBLK_SSLOOP 9796 ;;;; NOP 9797 ;;;; 9798 ;;;;BTBLK_SSLP0050 9799 ;;;; MOVE R4,R0 9800 ;;;; 9801 ;;;;BTBLK_SSLP0100 9802 ;;;; FROM R3 9803 ;;;; ADD R3 9804 ;;;; TO R1 9805 ;;;; ADD R11 9806 ;;;; LDW (R1) 9807 ;;;; OR R4 9808 ;;;; STW (R1) 9809 ;;;; 9810 ;;;;BTBLK_SLP0100 9811 ;;;; LOOP 9812 ;;;; INC R3 9813 ;;;; 9814 ;;;; LMS R0,REG0 9815 ;;;; DEC R0 9816 ;;;; BNE BTBLK_LLOOP 9817 ;;;; SBK 9818 ;;;; 9819 ;;;; RPIX 9820 ;;;; 9821 ;;;;; IBT R1,#0FFH 9822 ;;;;; 9823 ;;;;; IBT R12,#010H 9824 ;;;;; MOVE R13,R15 9825 ;;;;; 9826 ;;;;; LDW (R11) 9827 ;;;;; CMP R1 9828 ;;;;; BNE BTBLK_END 9829 ;;;;; INC R11 9830 ;;;;; 9831 ;;;;; LOOP 9832 ;;;;; INC R11 9833 ;;;;; 9834 ;;;; WITH R2 ;IBT R2,#000 9835 ;;;; SUB R2 9836 ;;;; 9837 ;;;; IBT R4,#010H 9838 ;;;; 9839 ;;;;BTBLK_CHKLP 9840 ;;;; LDW (R11) 9841 ;;;; 9842 ;;;; IBT R12,#010H 9843 ;;;; MOVE R13,R15 9844 ;;;; 9845 ;;;; LSR 9846 ;;;; BCC BTBLK_CHKLP0100 9847 ;;;; NOP 9848 ;;;; 9849 ;;;; INC R2 9850 ;;;; 9851 ;;;;BTBLK_CHKLP0100 9852 ;;;; LOOP 9853 ;;;; NOP 9854 ;;;; 9855 ;;;; INC R11 9856 ;;;; 9857 ;;;; DEC R4 9858 ;;;; BNE BTBLK_CHKLP 9859 ;;;; INC R11 9860 ;;;; 9861 ;;;; IWT R3,#000E0H 9862 ;;;; 9863 ;;;; FROM R2 9864 ;;;; CMP R3 9865 ;;;; BMI BTBLK_END 9866 ;;;; NOP 9867 ;;;; 9868 ;;;; IBT R0,#001H 9869 ;;;; 9870 ;;;; STOP 9871 ;;;; NOP 9872 ;;;; 9873 ;;;;BTBLK_END 9874 ;;;; SUB R0 ;IBT R0,#000 9875 ;;;; 9876 ;;;; STOP 9877 ;;;; NOP 9878 ;;;;; 9879 ;;;;; 9880 ;;;;;******************************************************** 9881 ;;;;;* bit map block all set * 9882 ;;;;;******************************************************** 9883 ;;;;; 9884 ;;;;BTBLK_ASET EQU $ 9885 ;;;; IBT R0,#BANK CIPCHD+6000H 9886 ;;;; ROMB 9887 ;;;; 9888 ;;;; IWT R14,#CIPCHD+6000H 9889 ;;;; 9890 ;;;; WITH R2 ;IBT R2,#000 9891 ;;;; SUB R2 ; 9892 ;;;; 9893 ;;;; IWT R3,#000F0H 9894 ;;;; 9895 ;;;; IBT R5,#010H ;L loop counter set 9896 ;;;; 9897 ;;;;BTBLK_ALLOOP 9898 ;;;; IBT R1,#020H ;plot x pos. set 9899 ;;;; 9900 ;;;; IBT R12,#010H ;S loop counter set 9901 ;;;; MOVE R13,R15 9902 ;;;; 9903 ;;;; GETC 9904 ;;;; INC R14 9905 ;;;; 9906 ;;;; PLOT 9907 ;;;; 9908 ;;;; LOOP 9909 ;;;; NOP 9910 ;;;; 9911 ;;;; WITH R14 ;next line addr. calc. 9912 ;;;; ADD R3 ; 9913 ;;;; 9914 ;;;; INC R2 ;plot y pos. inc. 9915 ;;;; 9916 ;;;; DEC R5 ;draw end ? 9917 ;;;; BNE BTBLK_ALLOOP ; no: BTBLK_ALLOOP 9918 ;;;; NOP 9919 ;;;; 9920 ;;;; STOP 9921 ;;;; NOP 9922 ; 9923 ;************************************************************************ 9924 ;* BG3 polygon * 9925 ;* in : (R1) <-- scroll counter_H * 9926 ;* (R2) <-- display center Y pos * 9927 ;* (R3) <-- " Z " * 9928 ;* (R4) <-- (X)_rotation angle * 9929 ;* (R12) <-- polygon data address(B) * 9930 ;* (R13) <-- " (L,H) * 9931 ;* * 9932 ;************************************************************************ 9933 ; 9934 ;------------------------------------------------------------------------ 9935 ;- polygon data format - 9936 ;- (point no),(Z1,Y1,XW1),(Z2,Y2,XW2),...(Zn,Yn,XWn) - 9937 ;- (face no),(color1),(P11),(P12),...(color2)(Pn1)(Pn2) - 9938 ;------------------------------------------------------------------------ 9939 ; 9940 002B0B BG3POLY2 EQU $ 9941 S002B0B 3E A1 20 SMS R1,REG0 9942 ; 9943 ;-------------- display check ----------------------------------- 9944 S002B0E F0 00F0 IWT R0,#0F0H 9945 S002B11 15 TO R5 ;[ IWT R5,#0F0H*2 ] 9946 S002B12 50 ADD R0 9947 S002B13 51 ADD R1 9948 S002B14 65 SUB R5 9949 S002B15 0C 03' BCC B3POL2000 ;display ? ( yes:B3POL2000 ) 9950 S002B17 01 NOP 9951 ; 9952 ;-------------- not display clear set !! ---------------- 9953 S002B18 00 STOP 9954 S002B19 01 NOP 9955 ; 9956 ;-------------- (X)_rotation cos & sin data set ----------------- 9957 B3POL2000 9958 S002B1A A0 00' IBT R0,#BANK COS 9959 S002B1C 3F DF ROMB 9960 S002B1E F0 021D' IWT R0,#COS 9961 S002B21 54 ADD R4 9962 S002B22 1E TO R14 9963 S002B23 54 ADD R4 9964 S002B24 EF GETB 9965 S002B25 DE INC R14 9966 S002B26 3D EF GETBH 9967 S002B28 20 17 MOVE R7,R0 ;(R7) <-- cos data 9968 ; 9969 S002B2A F0 029D' IWT R0,#SIN 9970 S002B2D 54 ADD R4 9971 S002B2E 1E TO R14 9972 S002B2F 54 ADD R4 9973 S002B30 EF GETB 9974 S002B31 DE INC R14 9975 S002B32 3D EF GETBH 9976 S002B34 20 18 MOVE R8,R0 ;(R8) <-- sin data 9977 ; 9978 S002B36 3E A4 24 SMS R4,REG4 ;(REG4) <-- rotation angle save 9979 ; 9980 ;-------------- point data rotation ----------------------------- 9981 S002B39 BC FROM R12 9982 S002B3A 3F DF ROMB ;polygon data address(B) set 9983 S002B3C 2D 1E MOVE R14,R13 ; " (L,H) set 9984 ; 9985 S002B3E 1C TO R12 ;(R12) <-- point no 9986 S002B3F EF GETB 9987 S002B40 DE INC R14 9988 S002B41 3E AC 2C SMS R12,REG12 ;(REG12) <-- point no. 9989 ; vvv******* warn :value out of range 9990 S002B44 F1 2200 IWT R1,#DIVBUF ;(R1) <-- div data pointer 9991 S002B47 A5 00 IBT R5,#CWORK0 ;(R5) <-- object point data buffer pointer 9992 ; 9993 S002B49 02 CACHE 9994 ; 9995 S002B4A 2F 1D MOVE R13,R15 9996 B3POL2010 9997 S002B4C 3F EF GETBS ;(R0) <-- Z pos 9998 S002B4E DE INC R14 9999 S002B4F 20 19 MOVE R9,R0 ;(R9) <-- Z pos 10000 S002B51 27 16 MOVE R6,R7 ;(R6) <-- cos data 10001 S002B53 3D 9F LMULT 10002 S002B55 24 1A MOVE R10,R4 ;(R10) <-- SZ*cos 10003 ; 10004 S002B57 3F EF GETBS ;(R0) <-- Y pos 10005 S002B59 DE INC R14 10006 S002B5A 20 1B MOVE R11,R0 ;(R11) <-- Y pos 10007 S002B5C 28 16 MOVE R6,R8 ;(R6) <-- sin data 10008 S002B5E 3D 9F LMULT ;(R4) <-- SY*sin 10009 S002B60 BA FROM R10 10010 S002B61 54 ADD R4 10011 S002B62 C0 HIB 10012 S002B63 95 SEX 10013 S002B64 53 ADD R3 ;(R0) <-- object Z pos = SZ*cos+SY*sin+CZ 10014 S002B65 50 ADD R0 ;x2 10015 S002B66 51 ADD R1 10016 S002B67 1A TO R10 ;(R10) <-- object Z pos mult data 10017 S002B68 40 LDW (R0) 10018 ; 10019 S002B69 B9 FROM R9 10020 S002B6A 3D 9F LMULT 10021 S002B6C 24 19 MOVE R9,R4 ;(R9) <-- SZ*sin 10022 S002B6E 27 16 MOVE R6,R7 ;(R6) <-- cos data 10023 S002B70 BB FROM R11 10024 S002B71 3D 9F LMULT 10025 S002B73 B4 FROM R4 10026 S002B74 69 SUB R9 10027 S002B75 C0 HIB ;(R0) <-- SY*cos-SZ*sin 10028 S002B76 95 SEX 10029 ; 10030 S002B77 2A 16 MOVE R6,R10 10031 S002B79 4D SWAP 10032 S002B7A 9F FMULT 10033 S002B7B 52 ADD R2 10034 S002B7C 35 STW (R5) ;object Y pos set 10035 S002B7D D5 INC R5 10036 S002B7E D5 INC R5 10037 ; 10038 S002B7F EF GETB ;(R0) <-- X wide 10039 S002B80 DE INC R14 10040 S002B81 4D SWAP 10041 S002B82 9F FMULT 10042 S002B83 3F 50 ADC #0 10043 S002B85 35 STW (R5) ;object X wide set 10044 S002B86 D5 INC R5 10045 ; 10046 S002B87 3C LOOP 10047 S002B88 D5 INC R5 10048 ; 10049 ;-------------- polygon set ------------------------------------- 10050 S002B89 11 TO R1 ;(R1) <-- face no 10051 S002B8A EF GETB 10052 S002B8B DE INC R14 10053 ; vvv******* warn :value out of range 10054 S002B8C FB 2200 IWT R11,#DIVBUF ;(R11) <-- div data pointer 10055 B3POL2020 10056 S002B8F 12 TO R2 ;(R2) <-- face color & angle 10057 S002B90 EF GETB 10058 S002B91 DE INC R14 10059 ; 10060 S002B92 EF GETB 10061 S002B93 DE INC R14 10062 S002B94 50 ADD R0 10063 S002B95 18 TO R8 ;(R8) <-- point.1 pointer 10064 S002B96 50 ADD R0 10065 ; 10066 S002B97 EF GETB 10067 S002B98 DE INC R14 10068 S002B99 50 ADD R0 10069 S002B9A 19 TO R9 ;(R9) <-- point.2 pointer 10070 S002B9B 50 ADD R0 10071 ; 10072 ;-------------- face display check ---------------------- 10073 S002B9C 13 TO R3 ;(R3) <-- point.1 Y pos 10074 S002B9D 48 LDW (R8) 10075 S002B9E 49 LDW (R9) 10076 S002B9F 63 SUB R3 10077 S002BA0 0A 05' BPL B3POL2022 ;face display ? ( yes:B3POL2022 ) 10078 S002BA2 D0 INC R0 10079 ; 10080 S002BA3 FF 2BFD' IWT R15,#B3POL2060+1 ;[ JMP B3POL2060+1 ] 10081 S002BA6 E1 DEC R1 ;[ dummy ] 10082 ; 10083 ;-------------- face set -------------------------------- 10084 B3POL2022 10085 S002BA7 3E A0 2A SMS R0,REG10 ;(REG10) <-- Y move loop no 10086 ; 10087 S002BAA D8 INC R8 10088 S002BAB D8 INC R8 10089 S002BAC 17 TO R7 ;(R7) <-- XW1 10090 S002BAD 48 LDW (R8) 10091 S002BAE D9 INC R9 10092 S002BAF D9 INC R9 10093 S002BB0 18 TO R8 ;(R8) <-- XW2 10094 S002BB1 49 LDW (R9) 10095 ; 10096 ;-------------- line step set ------------------- 10097 S002BB2 3E AB 2B SMS R11,REG11 10098 S002BB5 3D AC 2A LMS R12,REG10 10099 S002BB8 BC FROM R12 10100 S002BB9 5C ADD R12 10101 S002BBA 5B ADD R11 10102 S002BBB 40 LDW (R0) 10103 S002BBC 16 TO R6 ;(R6) <-- div data 10104 S002BBD 03 LSR ;1/2 10105 S002BBE B8 FROM R8 10106 S002BBF 67 SUB R7 10107 S002BC0 9E LOB 10108 S002BC1 4D SWAP 10109 S002BC2 9F FMULT 10110 S002BC3 18 TO R8 ;(R8) <-- XW1-XW2 step 10111 S002BC4 04 ROL ;x2 10112 ; 10113 S002BC5 F4 0080 IWT R4,#0080H ;(R4) <-- XW1-XW2 step calculate buffer 10114 ; vvv******* warn :value out of range 10115 S002BC8 F0 3372 IWT R0,#HDMABF 10116 S002BCB 53 ADD R3 10117 S002BCC 1A TO R10 ;(R10) <-- H-DMA buffer pointer 10118 S002BCD 53 ADD R3 10119 ;;;; IWT R9,#0B2H ;(R9) <-- max Y pos 10120 S002BCE F9 00D2 IWT R9,#0D2H ;(R9) <-- max Y pos 10121 vvv******* warn :value out of range 10122 S002BD1 F0 3516 IWT R0,#HDMABF1 10123 S002BD4 53 ADD R3 10124 S002BD5 1B TO R11 ;(R11) <-- H-DMA buffer 1 pointer 10125 S002BD6 53 ADD R3 10126 ; 10127 S002BD7 B2 FROM R2 10128 S002BD8 4D SWAP 10129 S002BD9 12 TO R2 ;(R2) <-- face color set data 10130 S002BDA 03 LSR ;[ 80H step ] 10131 S002BDB 2F 1D MOVE R13,R15 10132 B3POL2040 10133 S002BDD 20 B3 MOVES R0,R3 10134 S002BDF 0B 0D' BMI B3POL2050 ;H-DMA data set ? ( no:B3POL2050 ) 10135 S002BE1 69 SUB R9 10136 ; 10137 S002BE2 0A 18' BPL B3POL2060 ;H-DMA set end ? ( yes:B3POL2060 ) 10138 S002BE4 B2 FROM R2 10139 ; 10140 S002BE5 63 SUB R3 10141 S002BE6 57 ADD R7 10142 S002BE7 3E 68 SUB #8 10143 S002BE9 3A STW (R10) ;H-DMA buffer set 10144 ; 10145 S002BEA 3D A0 20 LMS R0,REG0 10146 S002BED 3B STW (R11) ;H-DMA beffer 1 set 10147 10148 B3POL2050 10149 S002BEE B4 FROM R4 10150 S002BEF 58 ADD R8 10151 S002BF0 14 TO R4 10152 S002BF1 9E LOB 10153 S002BF2 C0 HIB 10154 S002BF3 95 SEX 10155 S002BF4 17 TO R7 10156 S002BF5 57 ADD R7 10157 S002BF6 DA INC R10 10158 S002BF7 DA INC R10 10159 S002BF8 DB INC R11 10160 S002BF9 DB INC R11 10161 S002BFA 3C LOOP 10162 S002BFB D3 INC R3 10163 ; 10164 B3POL2060 10165 S002BFC E1 DEC R1 10166 S002BFD 09 08' BEQ B3POL2112 10167 S002BFF 01 NOP 10168 ; 10169 S002C00 3D AB 2B LMS R11,REG11 10170 10171 S002C03 FF 2B90' IWT R15,#B3POL2020+1 ;[ JMP B3POL2020+1 ] 10172 S002C06 12 TO R2 ;[ dummy ] 10173 ; 10174 B3POL2112 10175 10176 S002C07 00 STOP 10177 S002C08 01 NOP 10178 ; 10179 ;************************************************************************ 10180 ;* chara zoom ( 32x32 ) * 10181 ;* (R4) <-- power * 10182 ;************************************************************************ 10183 002C09 M_FUSEN_SET EQU $ 10184 ;====================< mapping >========================== 10185 S002C09 A0 05 IBT R0,#005 10186 S002C0B 3D 4E CMODE ;plot mode set 10187 10188 S002C0D A0 55 IBT R0,#BANK CIPCHD3+0040H ;rom bank set 10189 S002C0F 3F DF ROMB ; 10190 vvv******* warn :value out of range 10191 S002C11 F3 0040 IWT R3,#CIPCHD3+0040H ;rom data start addr. set 10192 10193 S002C14 02 CACHE 10194 ; 10195 ;-------------- plot intial set --------------------------------- 10196 S002C15 A5 09 IBT R5,#009 ;(R5) <-- power reverse checker set 10197 10198 ; IBT R2,#0 ;(R2) <-- plot start Y pos set 10199 S002C17 22 19 MOVE R9,R2 ;(R9) <-- PY 10200 10201 S002C19 FD 2C29' IWT R13,#P_P120 ;(R13) <-- Y loop addr. set 10202 ; 10203 S002C1C AA 20 IBT R10,#32 ;(R10) <-- Y loop set 10204 P_P110 10205 ; IBT R1,#020H ;(R1) <-- plot start X pos set 10206 S002C1E 3D A1 00 LMS R1,CWORK0 10207 S002C21 28 WITH R8 ;(R8) <-- PX ( = 0 ) 10208 S002C22 68 SUB R8 10209 S002C23 28 16 MOVE R6,R8 ;(R6) <-- speed 10210 S002C25 28 1B MOVE R11,R8 ;(R11) <-- revise data 10211 10212 S002C27 AC 20 IBT R12,#32 ;X loop set 10213 10214 P_P120 10215 S002C29 B9 FROM R9 ;(R7) <-- PY 10216 S002C2A 17 TO R7 ; 10217 S002C2B 6B SUB R11 ; 10218 10219 S002C2C 70 MERGE 10220 S002C2D 0C 16' BCC P_P130 ;area over ? ( no:P_P030 ) 10221 S002C2F 1E TO R14 10222 ; 10223 S002C30 E5 DEC R5 10224 S002C31 08 05' BNE P_P125 10225 S002C33 24 WITH R4 ;power reverse 10226 S002C34 4F NOT 10227 S002C35 D4 INC R4 10228 10229 S002C36 A5 10 IBT R5,#010H ;(R5) <-- power reverse checker set 10230 10231 P_P125 10232 S002C38 26 WITH R6 ;speed calc. 10233 S002C39 54 ADD R4 10234 10235 S002C3A 2B WITH R11 ;PY add calc. 10236 S002C3B 56 ADD R6 10237 10238 S002C3C F0 0100 IWT R0,#00100H ;PX calc. 10239 S002C3F 28 WITH R8 10240 S002C40 50 ADD R0 10241 10242 S002C41 60 SUB R0 ;[ IBT R0,#00 ] 10243 S002C42 05 14' BRA P_P140 10244 S002C44 4E COLOUR ;color set 10245 ; 10246 P_P130 10247 S002C45 53 ADD R3 10248 ; 10249 S002C46 E5 DEC R5 10250 S002C47 08 05' BNE P_P135 10251 S002C49 24 WITH R4 ;power reverse 10252 S002C4A 4F NOT 10253 S002C4B D4 INC R4 10254 10255 S002C4C A5 10 IBT R5,#010H ;(R5) <-- power reverse checker set 10256 10257 P_P135 10258 S002C4E 26 WITH R6 ;speed calc. 10259 S002C4F 54 ADD R4 10260 10261 S002C50 2B WITH R11 ;PY add calc. 10262 S002C51 56 ADD R6 10263 10264 S002C52 F0 0100 IWT R0,#00100H ;PX calc. 10265 S002C55 28 WITH R8 10266 S002C56 50 ADD R0 10267 10268 S002C57 DF GETC ;color set 10269 10270 P_P140 10271 S002C58 3C LOOP 10272 S002C59 4C PLOT ;pset 10273 ; 10274 S002C5A 29 WITH R9 ;PY base calc. 10275 S002C5B 50 ADD R0 10276 10277 S002C5C F6 00F0 IWT R6,#000F0H ;(R4) <-- power * 90% 10278 S002C5F B4 FROM R4 10279 S002C60 3D 9F LMULT 10280 10281 S002C62 24 WITH R4 10282 S002C63 C0 HIB 10283 10284 S002C64 A0 0F IBT R0,#00FH 10285 S002C66 B4 FROM R4 10286 S002C67 3F 60 CMP R0 10287 S002C69 0A 03' BPL P_P160 10288 S002C6B 01 NOP 10289 10290 S002C6C A4 00 IBT R4,#0 10291 10292 P_P160 10293 S002C6E EA DEC R10 10294 S002C6F 08 AD' BNE P_P110 ;end ? ( no:P_P110 ) 10295 S002C71 D2 INC R2 ;Y pos +1 10296 ; 10297 S002C72 3D 4C RPIX 10298 10299 S002C74 00 STOP 10300 S002C75 01 NOP 10301 ; 10302 ;************************************************************************ 10303 ;* mapping area clear * 10304 ;************************************************************************ 10305 ; 10306 ;MAPAREA_CLR EQU $ 10307 ;;---------------< mapping area clear >---------------- 10308 ; 10309 ; CACHE 10310 ; 10311 ; IWT R7,#(WOB7CHR+20H*4) 10312 ; IWT R8,#(WOB7CHR+20H*4)+200H 10313 ; IWT R9,#(WOB7CHR+20H*4)+400H 10314 ; IWT R10,#(WOB7CHR+20H*4)+600H 10315 ; SUB R0 ;[ IBT R0,#0 ] 10316 ; IWT R12,#(20H*4)/2 10317 ; MOVE R13,R15 10318 ; 10319 ; STW (R7) 10320 ; INC R7 10321 ; INC R7 10322 ; STW (R8) 10323 ; INC R8 10324 ; INC R8 10325 ; STW (R9) 10326 ; INC R9 10327 ; INC R9 10328 ; STW (R10) 10329 ; INC R10 10330 ; LOOP 10331 ; INC R10 10332 ; 10333 ; RTS 10334 ; 10335 ; 10336 ; 10337 ;************************************************************************ 10338 ;* ƒY[ƒ€ƒpƒbƒNƒ“ * 10339 ;* * 10340 ;* [In] * 10341 ;* R0 ”{—¦ * 10342 ;* R1 ƒ|ƒWƒVƒ‡ƒ“‰ñ“]Špi‚l‚`‚w@‚O‚e‚e‚gj * 10343 ;* R2 ƒrƒbƒgƒ}ƒbƒvÀ•WQ‚xƒZƒbƒg * 10344 ;* R3 ƒrƒbƒgƒ}ƒbƒvÀ•WQ‚wƒZƒbƒg * 10345 ;* R4 ”{—¦ * 10346 ;* R5 ŠG‚̉ñ“]Špi‚l‚`‚w@‚O‚e‚e‚gj * 10347 ;* R6 ”¼Œa * 10348 ;* R7 ƒLƒƒƒ‰Œü‚« * 10349 ;* R12 “]‘—Œ³ƒAƒhƒŒƒX * 10350 ;* R13 “]‘—Œ³ƒoƒ“ƒN * 10351 ;* * 10352 ;* [Out] * 10353 ;* CWORK10 ŒûƒIƒtƒZƒbƒg‚x@‚o‚n‚rD * 10354 ;* CWORK11 ŒûƒIƒtƒZƒbƒg‚w@‚o‚n‚rD * 10355 ;* * 10356 ;**************************************************************** 10357 002C76 M_ZPACK_SET EQU $ 10358 S002C76 1B TO R11 ;R11 <- ”¼Œa 10359 S002C77 9F FMULT ; 10360 10361 S002C78 A0 00' IBT R0,#BANK LSIN 10362 S002C7A 3F DF ROMB 10363 10364 S002C7C F8 04DD' IWT R8,#LSIN ;CWORK10 <-- ‚x@‚o‚n‚rD 10365 S002C7F B1 FROM R1 ; 10366 S002C80 1E TO R14 ; 10367 S002C81 58 ADD R8 ; 10368 10369 S002C82 F8 049D' IWT R8,#LCOS ;CWORK11 <-- ‚w@‚o‚n‚rD 10370 S002C85 B1 FROM R1 ; 10371 S002C86 1A TO R10 ; 10372 S002C87 58 ADD R8 ; 10373 10374 S002C88 3F EF GETBS ; 10375 10376 S002C8A 2A 1E MOVE R14,R10 ; 10377 10378 S002C8C 8B MULT R11 ; 10379 S002C8D 50 ADD R0 ; 10380 S002C8E 50 ADD R0 ; 10381 S002C8F C0 HIB ; 10382 S002C90 95 SEX ; 10383 S002C91 4F NOT ; 10384 S002C92 D0 INC R0 ; 10385 S002C93 3E A0 10 SMS R0,CWORK10 ; 10386 10387 S002C96 3F EF GETBS ; 10388 S002C98 8B MULT R11 ; 10389 S002C99 50 ADD R0 ; 10390 S002C9A 50 ADD R0 ; 10391 S002C9B C0 HIB ; 10392 S002C9C 95 SEX 10393 S002C9D 3E 54 ADD #004 10394 10395 S002C9F 27 B7 MOVES R7,R7 ;‰EŒü‚« ? 10396 S002CA1 08 03' BNE ZPACK_SET0100 ; yes: ZPACK_SET0100 10397 S002CA3 01 NOP ; 10398 10399 S002CA4 4F NOT ; 10400 S002CA5 D0 INC R0 ; 10401 10402 ZPACK_SET0100 10403 S002CA6 3E 58 ADD #008 10404 S002CA8 3E A0 11 SMS R0,CWORK11 ; 10405 10406 S002CAB 24 16 MOVE R6,R4 10407 10408 S002CAD FF 0000" IWT R15,#C_32_ROTZOM 10409 S002CB0 01 NOP 10410 ; 10411 ;************************************************************************ 10412 ;* jump block * 10413 ;************************************************************************ 10414 002CB1 M_JBLK0_SET EQU $ 10415 S002CB1 BB FROM R11 ; 10416 S002CB2 9F FMULT ; 10417 S002CB3 3E A0 10 SMS R0,CWORK10 10418 10419 S002CB6 27 B7 MOVES R7,R7 ;ƒrƒbƒgƒ}ƒbƒvƒGƒŠƒA‘‚«Š·‚¦‚é ? 10420 S002CB8 08 03' BNE M_JBLK0_SET0 ; yes: M_JBLK0_SET0 10421 S002CBA 24 WITH R4 10422 10423 S002CBB 00 STOP 10424 S002CBC 01 NOP 10425 10426 M_JBLK0_SET0 10427 S002CBD 16 TO R6 10428 10429 S002CBE 2A BA MOVES R10,R10 10430 S002CC0 08 05' BNE M_JBLK0_SET2+1 10431 S002CC2 FF 0000" IWT R15,#C_32_ZOOM_XY_16 10432 S002CC5 01 NOP 10433 10434 M_JBLK0_SET2 10435 S002CC6 FF 0000" IWT R15,#C_32_ZOOM_XY 10436 S002CC9 01 NOP 10437 ; 10438 ;**************************************************************** 10439 ;* ‚©‚É * 10440 ;* * 10441 ;* [In] * 10442 ;* R2 ƒrƒbƒgƒ}ƒbƒvÀ•WQ‚xƒZƒbƒg * 10443 ;* R3 ƒrƒbƒgƒ}ƒbƒvÀ•WQ‚wƒZƒbƒg * 10444 ;* R4 ”{—¦ * 10445 ;* R5 ‰ñ“]Špi‚l‚`‚w@‚O‚e‚e‚gj * 10446 ;* R6 ‚‚߂̒†S‚ƃLƒƒƒ‰‚Ì’†S‚Ì‹——£ * 10447 ;* R9 ƒLƒƒƒ‰Œü‚« * 10448 ;* R11 ‰ñ“]Špi‚l‚`‚w@‚O‚P‚e‚d‚gj * 10449 ;* R12 “]‘—Œ³ƒAƒhƒŒƒX * 10450 ;* R13 “]‘—Œ³ƒoƒ“ƒN * 10451 ;* * 10452 ;* [Out] * 10453 ;* CWORK10 ƒnƒTƒ~ƒIƒtƒZƒbƒg‚w@‚o‚n‚rD * 10454 ;* CWORK11 ƒnƒTƒ~ƒIƒtƒZƒbƒg‚x@‚o‚n‚rD * 10455 ;* * 10456 ;**************************************************************** 10457 002CCA M_KANI0_SET EQU $ 10458 S002CCA B4 FROM R4 10459 S002CCB 9F FMULT 10460 S002CCC 9E LOB 10461 S002CCD 16 TO R6 10462 S002CCE 4D SWAP 10463 10464 S002CCF A0 00' IBT R0,#BANK SIN 10465 S002CD1 3F DF ROMB 10466 10467 S002CD3 F1 029D' IWT R1,#SIN 10468 S002CD6 BB FROM R11 10469 S002CD7 1E TO R14 10470 S002CD8 51 ADD R1 10471 10472 S002CD9 F1 021D' IWT R1,#COS 10473 S002CDC BB FROM R11 10474 S002CDD 1A TO R10 10475 S002CDE 51 ADD R1 10476 10477 S002CDF EF GETB ;(R8) <- Y POS. 10478 S002CE0 DE INC R14 10479 S002CE1 3D EF GETBH 10480 S002CE3 18 TO R8 10481 S002CE4 9F FMULT 10482 10483 S002CE5 2A 1E MOVE R14,R10 10484 10485 S002CE7 EF GETB ;(R7) <- X POS. 10486 S002CE8 DE INC R14 10487 S002CE9 3D EF GETBH 10488 S002CEB 9F FMULT 10489 10490 S002CEC 29 B9 MOVES R9,R9 ;¶Œü‚« ? 10491 S002CEE 09 03' BEQ KANI0_SET0100 ; yes: KANI0_SUB0100 10492 S002CF0 01 NOP 10493 10494 S002CF1 4F NOT 10495 S002CF2 D0 INC R0 10496 10497 KANI0_SET0100 10498 S002CF3 3E A0 10 SMS R0,CWORK10 10499 S002CF6 3E A8 11 SMS R8,CWORK11 10500 10501 S002CF9 24 16 MOVE R6,R4 10502 10503 S002CFB FF 0000" IWT R15,#C_32_ROTZOM 10504 S002CFE 01 NOP 10505 ; 10506 ;**************************************************************** 10507 ;* telesa L size set * 10508 ;**************************************************************** 10509 002CFF M_TELEL_SET EQU $ 10510 S002CFF B4 FROM R4 10511 S002D00 9F FMULT 10512 S002D01 20 1A MOVE R10,R0 10513 S002D03 1B TO R11 10514 S002D04 50 ADD R0 10515 10516 S002D05 21 WITH R1 10517 S002D06 61 SUB R1 10518 10519 S002D07 B7 FROM R7 ;㉺‚ ‚½‚èƒ`ƒFƒbƒN‚n‚j ? 10520 S002D08 5A ADD R10 ; 10521 S002D09 3F 6B CMP R11 ; 10522 S002D0B 0D 0E' BCS M_TELEL_SET0800 ; yes: M_TELEL_SET0800 10523 10524 S002D0D B8 FROM R8 ;¶‰E‚ ‚½‚èƒ`ƒFƒbƒN‚n‚j ? 10525 S002D0E 5A ADD R10 ; 10526 S002D0F 3F 6B CMP R11 ; 10527 S002D11 0D 08' BCS M_TELEL_SET0800 ; yes: M_TELEL_SET0800 10528 S002D13 01 NOP 10529 10530 S002D14 D1 INC R1 10531 10532 S002D15 29 B9 MOVES R9,R9 ;ƒvƒŒƒCƒ„[‚̓tƒ‰ƒbƒVƒ“ƒO‚µ‚Ä‚¢‚é ? 10533 S002D17 08 02' BNE M_TELEL_SET0800 ; yes: M_TELEL_SET0800 10534 S002D19 01 NOP 10535 10536 S002D1A D1 INC R1 10537 10538 M_TELEL_SET0800 10539 S002D1B 3E A1 10 SMS R1,CWORK10 10540 10541 S002D1E 24 16 MOVE R6,R4 10542 10543 S002D20 FF 0000" IWT R15,#C_32_ROTZOM 10544 S002D23 01 NOP 10545 ; 10546 ; 10547 ;**************************************************************** 10548 ;* gabon * 10549 ;**************************************************************** 10550 ;* spark * 10551 ;**************************************************************** 10552 002D24 M_GABNB_SET EQU $ 10553 S002D24 B4 FROM R4 ;(R11) <-- ‹O“¹”¼Œa 10554 S002D25 1B TO R11 ; 10555 S002D26 9F FMULT ; 10556 ; 10557 S002D27 2A 16 MOVE R6,R10 10558 S002D29 B4 FROM R4 10559 S002D2A 9F FMULT 10560 S002D2B 51 ADD R1 10561 S002D2C 3E A0 12 SMS R0,CWORK12 ;‚–‚“ƒvƒŒƒCƒ„[‚wƒŒƒ“ƒW 10562 S002D2F 50 ADD R0 10563 S002D30 3E A0 13 SMS R0,CWORK13 10564 10565 S002D33 B4 FROM R4 10566 S002D34 9F FMULT 10567 S002D35 58 ADD R8 10568 S002D36 3E A0 14 SMS R0,CWORK14 ;‚–‚“ƒvƒŒƒCƒ„[‚xƒŒƒ“ƒW 10569 S002D39 50 ADD R0 10570 S002D3A 3E A0 15 SMS R0,CWORK15 10571 ; 10572 S002D3D A0 00' IBT R0,#BANK LSIN 10573 S002D3F 3F DF ROMB 10574 10575 S002D41 F1 04DD' IWT R1,#LSIN ;CWORK10 <-- ‚x@‚o‚n‚rD 10576 S002D44 B5 FROM R5 ; 10577 S002D45 1E TO R14 ; 10578 S002D46 51 ADD R1 ; 10579 10580 S002D47 F1 049D' IWT R1,#LCOS ;CWORK11 <-- ‚w@‚o‚n‚rD 10581 S002D4A B5 FROM R5 ; 10582 S002D4B 1A TO R10 ; 10583 S002D4C 51 ADD R1 ; 10584 10585 S002D4D 3F EF GETBS ; 10586 10587 S002D4F 2A 1E MOVE R14,R10 ; 10588 10589 S002D51 8B MULT R11 ; 10590 S002D52 50 ADD R0 ; 10591 S002D53 50 ADD R0 ; 10592 S002D54 C0 HIB ; 10593 S002D55 95 SEX ; 10594 S002D56 3E A0 10 SMS R0,CWORK10 ; 10595 10596 S002D59 3F EF GETBS ; 10597 S002D5B 8B MULT R11 ; 10598 S002D5C 50 ADD R0 ; 10599 S002D5D 50 ADD R0 ; 10600 S002D5E C0 HIB ; 10601 S002D5F 95 SEX 10602 10603 S002D60 27 B7 MOVES R7,R7 10604 S002D62 09 03' BEQ GABNB_SET0100 10605 S002D64 01 NOP 10606 10607 S002D65 4F NOT ; 10608 S002D66 D0 INC R0 ; 10609 10610 GABNB_SET0100 10611 S002D67 3E A0 11 SMS R0,CWORK11 ; 10612 10613 S002D6A 24 16 MOVE R6,R4 10614 10615 S002D6C FF 0000" IWT R15,#C_32_ROTZOM_16 10616 S002D6F 01 NOP 10617 ; 10618 ;**************************************************************** 10619 ;* hodai * 10620 ;**************************************************************** 10621 002D70 M_HODAI_SET EQU $ 10622 S002D70 A0 00' IBT R0,#BANK LSIN 10623 S002D72 3F DF ROMB 10624 10625 S002D74 F1 04DD' IWT R1,#LSIN 10626 S002D77 B5 FROM R5 10627 S002D78 1E TO R14 10628 S002D79 51 ADD R1 10629 10630 S002D7A F1 049D' IWT R1,#LCOS 10631 S002D7D B5 FROM R5 10632 S002D7E 1B TO R11 10633 S002D7F 51 ADD R1 10634 10635 S002D80 17 TO R7 ;(R7) <-- SIN 10636 S002D81 3F EF GETBS 10637 10638 S002D83 B9 FROM R9 ;(R1) <-- X SIN 10639 S002D84 87 MULT R7 10640 S002D85 50 ADD R0 10641 S002D86 50 ADD R0 10642 S002D87 C0 HIB 10643 S002D88 11 TO R1 10644 S002D89 95 SEX 10645 10646 S002D8A A0 80 IBT R0,#080H ;CWORK12 <-- Y speed 10647 S002D8C 87 MULT R7 ;40H = 100H 10648 S002D8D 50 ADD R0 10649 S002D8E 50 ADD R0 10650 S002D8F C0 HIB 10651 S002D90 95 SEX 10652 S002D91 50 ADD R0 10653 S002D92 50 ADD R0 10654 S002D93 3E A0 12 SMS R0,CWORK12 10655 10656 S002D96 BA FROM R10 ;(R7) <-- Y SIN 10657 S002D97 87 MULT R7 10658 S002D98 50 ADD R0 10659 S002D99 50 ADD R0 10660 S002D9A C0 HIB 10661 S002D9B 17 TO R7 10662 S002D9C 95 SEX 10663 10664 S002D9D 2B 1E MOVE R14,R11 10665 10666 S002D9F 18 TO R8 ;(R8) <-- COS 10667 S002DA0 3F EF GETBS 10668 10669 S002DA2 B9 FROM R9 ;(R9) <-- X COS 10670 S002DA3 88 MULT R8 10671 S002DA4 50 ADD R0 10672 S002DA5 50 ADD R0 10673 S002DA6 C0 HIB 10674 S002DA7 19 TO R9 10675 S002DA8 95 SEX 10676 10677 S002DA9 A0 80 IBT R0,#080H ;CWORK13 <-- X speed 10678 S002DAB 88 MULT R8 ;40H = 100H 10679 S002DAC 50 ADD R0 10680 S002DAD 50 ADD R0 10681 S002DAE C0 HIB 10682 S002DAF 95 SEX 10683 S002DB0 50 ADD R0 10684 S002DB1 50 ADD R0 10685 S002DB2 24 B4 MOVES R4,R4 10686 S002DB4 09 03' BEQ HODAI_SET0080 10687 S002DB6 01 NOP 10688 10689 S002DB7 4F NOT 10690 S002DB8 D0 INC R0 10691 10692 HODAI_SET0080 10693 S002DB9 3E A0 13 SMS R0,CWORK13 10694 10695 S002DBC BA FROM R10 ;(R8) <-- Y COS 10696 S002DBD 88 MULT R8 10697 S002DBE 50 ADD R0 10698 S002DBF 50 ADD R0 10699 S002DC0 C0 HIB 10700 S002DC1 18 TO R8 10701 S002DC2 95 SEX 10702 10703 S002DC3 B9 FROM R9 ;CWORK11 <- X POS. 10704 S002DC4 67 SUB R7 ; 10705 S002DC5 24 B4 MOVES R4,R4 ; 10706 S002DC7 09 03' BEQ HODAI_SET0100 ; 10707 S002DC9 01 NOP ; 10708 ; 10709 S002DCA 4F NOT ; 10710 S002DCB D0 INC R0 ; 10711 ; 10712 HODAI_SET0100 ; 10713 S002DCC 3E A0 11 SMS R0,CWORK11 ; 10714 10715 S002DCF B1 FROM R1 ;CWORK10 <- Y POS. 10716 S002DD0 58 ADD R8 ; 10717 S002DD1 3E A0 10 SMS R0,CWORK10 ; 10718 10719 S002DD4 26 1B MOVE R11,R6 10720 10721 S002DD6 F6 1000 IWT R6,#01000H 10722 S002DD9 BB FROM R11 10723 S002DDA 9F FMULT 10724 S002DDB 3E A0 14 SMS R0,CWORK14 10725 S002DDE 50 ADD R0 10726 S002DDF 3E A0 15 SMS R0,CWORK15 10727 10728 S002DE2 F6 0800 IWT R6,#00800H 10729 S002DE5 BB FROM R11 10730 S002DE6 9F FMULT 10731 S002DE7 3E A0 16 SMS R0,CWORK16 10732 10733 S002DEA 2B 16 MOVE R6,R11 10734 10735 S002DEC FF 0000" IWT R15,#C_32_ROTZOM_16 10736 S002DEF 01 NOP 10737 ; 10738 ;**************************************************************** 10739 ;* ta_kun2 * 10740 ;**************************************************************** 10741 002DF0 M_ARIH0_SET EQU $ 10742 S002DF0 BB FROM R11 10743 S002DF1 9F FMULT 10744 S002DF2 3E A0 10 SMS R0,CWORK10 10745 10746 S002DF5 24 16 MOVE R6,R4 10747 10748 S002DF7 FF 0000" IWT R15,#C_32_ZOOM_XY_16 10749 S002DFA 01 NOP 10750 ; 10751 ;**************************************************************** 10752 ;* wang wang * 10753 ;**************************************************************** 10754 002DFB M_WANG0_SET EQU $ 10755 S002DFB A0 00 IBT R0,#BANK CWORK0 10756 S002DFD 3E DF RAMB 10757 10758 S002DFF 26 WITH R6 10759 S002E00 66 SUB R6 10760 10761 S002E01 23 WITH R3 ;ƒƒ“ƒƒ“‚Ìs“®”¼Œaƒ`ƒFƒbƒN@‚‚‹ ? 10762 S002E02 83 MULT R3 ; 10763 S002E03 B4 FROM R4 ; 10764 S002E04 84 MULT R4 ; 10765 S002E05 53 ADD R3 ; 10766 S002E06 3F 65 CMP R5 ; 10767 S002E08 0B 02' BMI WANG0_SET0010 ; yes: WANG0_SET0010 10768 S002E0A 01 NOP ; 10769 ; 10770 S002E0B D6 INC R6 ; 10771 ; 10772 WANG0_SET0010 ; 10773 S002E0C 3E A6 1E SMS R6,CWORK1E ; 10774 10775 S002E0F AC 04 IBT R12,#004 10776 10777 S002E11 F4 0020 IWT R4,#CWORK10 10778 S002E14 F5 0028 IWT R5,#CWORK14 10779 10780 S002E17 02 CACHE 10781 S002E18 2F 1D MOVE R13,R15 10782 10783 S002E1A 16 TO R6 10784 S002E1B 44 LDW (R4) 10785 ; 10786 S002E1C B6 FROM R6 10787 S002E1D 61 SUB R1 ;‘O‚Ì‚­‚³‚è‚̶ ? 10788 S002E1E 0B 0B' BMI WANG0_SET0100 ; yes: WANG0_SET0100 10789 S002E20 D4 INC R4 ; 10790 10791 S002E21 3F 6A CMP R10 ;‚­‚³‚è‚͔͈͓à ? 10792 S002E23 0B 12' BMI WANG0_SET0300 ; yes: WANG0_SET0300 10793 S002E25 D4 INC R4 ; 10794 10795 S002E26 B1 FROM R1 10796 S002E27 5A ADD R10 10797 S002E28 05 0A' BRA WANG0_SET0200 10798 S002E2A 01 NOP 10799 10800 WANG0_SET0100 10801 S002E2B 4F NOT ;‚­‚³‚è‚͔͈͓à ? 10802 S002E2C D0 INC R0 ; 10803 S002E2D 3F 6A CMP R10 ; 10804 S002E2F 0B 06' BMI WANG0_SET0300 ; yes: WANG0_SET0300 10805 S002E31 D4 INC R4 10806 10807 S002E32 B1 FROM R1 10808 S002E33 6A SUB R10 10809 10810 WANG0_SET0200 10811 S002E34 90 SBK 10812 S002E35 20 16 MOVE R6,R0 10813 10814 WANG0_SET0300 10815 S002E37 26 11 MOVE R1,R6 10816 ; 10817 S002E39 16 TO R6 10818 S002E3A 45 LDW (R5) 10819 10820 S002E3B B6 FROM R6 10821 S002E3C 62 SUB R2 ;‘O‚Ì‚­‚³‚è‚Ìã ? 10822 S002E3D 0B 0C' BMI WANG0_SET3400 ; yes: WANG0_SET3400 10823 S002E3F D5 INC R5 ; 10824 10825 S002E40 B2 FROM R2 ;‚­‚³‚è‚l‚`‚w 10826 S002E41 5A ADD R10 ; 10827 S002E42 3F 69 CMP R9 ; 10828 S002E44 0B 15' BMI WANG0_SET3500 ; no: WANG0_SET3500 10829 S002E46 01 NOP 10830 10831 S002E47 29 WITH R9 ;MOVE R0,R9 10832 S002E48 05 11' BRA WANG0_SET3500 10833 S002E4A 10 TO R0 10834 10835 WANG0_SET3400 10836 S002E4B 4F NOT ;‚­‚³‚èŠÔ‚l‚`‚w 10837 S002E4C D0 INC R0 ; 10838 S002E4D 3F 6A CMP R10 ; 10839 S002E4F 0A 07' BPL WANG0_SET3480 ; yes: WANG0_SET3480 10840 S002E51 B2 FROM R2 10841 10842 S002E52 D6 INC R6 ;d—Í•ª 10843 10844 S002E53 B6 FROM R6 10845 S002E54 90 SBK 10846 S002E55 05 07' BRA WANG0_SET3600 10847 S002E57 01 NOP 10848 10849 WANG0_SET3480 10850 ; FROM R2 10851 S002E58 6A SUB R10 ;‚x@‚o‚n‚rD•â³ 10852 S002E59 D0 INC R0 ; 10853 S002E5A D0 INC R0 ; 10854 10855 WANG0_SET3500 10856 S002E5B 90 SBK 10857 S002E5C 20 16 MOVE R6,R0 10858 10859 WANG0_SET3600 10860 S002E5E 26 12 MOVE R2,R6 10861 S002E60 3C LOOP 10862 S002E61 D5 INC R5 10863 10864 S002E62 3D A6 26 LMS R6,REG6 ;(R11) <- ‚x”{—¦ƒZƒbƒg 10865 S002E65 3D AB 26 LMS R11,REG6 ;(R6) <- ‚w”{—¦ƒZƒbƒg 10866 10867 S002E68 3D A5 25 LMS R5,REG5 ;(R5) <- ‰ñ“]ŠpƒZƒbƒg 10868 S002E6B 3D AD 2D LMS R13,REG13 ;(R13) <- chara data bank set 10869 S002E6E 3D AC 2C LMS R12,REG12 ;(R12) <- chara data address set 10870 10871 S002E71 A8 08 IBT R8,#008 ;(R8) <- ’†S‚w@‚o‚n‚rD 10872 S002E73 28 19 MOVE R9,R8 ;(R9) <- ’†S‚x@‚o‚n‚rD 10873 10874 S002E75 3D A2 22 LMS R2,REG2 ;(R2) <- ‰ñ“]ƒGƒŠƒA‚x@‚o‚n‚rDƒZƒbƒg 10875 S002E78 3D A3 23 LMS R3,REG3 ;(R3) <- ‰ñ“]ƒGƒŠƒA‚w@‚o‚n‚rDƒZƒbƒg 10876 ; 10877 10878 S002E7B FF 0000" IWT R15,#C_32_RTZ_16_XY 10879 S002E7E 01 NOP 10880 ; 10881 002E7F M_WANG0_SET2 EQU $ 10882 S002E7F A0 00 IBT R0,#BANK CWORK10 10883 S002E81 3E DF RAMB 10884 10885 S002E83 26 WITH R6 10886 S002E84 66 SUB R6 10887 10888 S002E85 23 WITH R3 ;ƒƒ“ƒƒ“‚Ìs“®”¼Œaƒ`ƒFƒbƒN@‚‚‹ ? 10889 S002E86 83 MULT R3 ; 10890 S002E87 B4 FROM R4 ; 10891 S002E88 84 MULT R4 ; 10892 S002E89 53 ADD R3 ; 10893 S002E8A 3F 65 CMP R5 ; 10894 S002E8C 0B 02' BMI WANG0_SET2010 ; yes: WANG0_SET2010 10895 S002E8E 01 NOP ; 10896 ; 10897 S002E8F D6 INC R6 ; 10898 ; 10899 WANG0_SET2010 ; 10900 S002E90 3E A6 1E SMS R6,CWORK1E ; 10901 10902 S002E93 F4 0020 IWT R4,#CWORK10 10903 S002E96 F5 0028 IWT R5,#CWORK14 10904 10905 S002E99 21 WITH R1 ;{‚S‚Í‚­‚³‚è‚ð‚Ü‚ñ’†‚É‚à‚Á‚Ä‚­‚邽‚ß 10906 S002E9A 3E 54 ADD #004 ; 10907 S002E9C 22 WITH R2 ; 10908 S002E9D 3E 54 ADD #004 ; 10909 10910 S002E9F B8 FROM R8 10911 S002EA0 61 SUB R1 10912 S002EA1 3D 96 DIV2 10913 S002EA3 17 TO R7 10914 S002EA4 3D 96 DIV2 10915 10916 S002EA6 21 WITH R1 10917 S002EA7 57 ADD R7 10918 10919 S002EA8 B9 FROM R9 10920 S002EA9 62 SUB R2 10921 S002EAA 3D 96 DIV2 10922 S002EAC 18 TO R8 10923 S002EAD 3D 96 DIV2 10924 10925 S002EAF 22 WITH R2 10926 S002EB0 58 ADD R8 10927 10928 S002EB1 AC 04 IBT R12,#004 10929 10930 S002EB3 02 CACHE 10931 S002EB4 2F 1D MOVE R13,R15 10932 10933 S002EB6 16 TO R6 10934 S002EB7 44 LDW (R4) 10935 S002EB8 B1 FROM R1 10936 S002EB9 66 SUB R6 10937 S002EBA 3D 96 DIV2 10938 S002EBC 56 ADD R6 10939 S002EBD 90 SBK 10940 10941 S002EBE D4 INC R4 10942 S002EBF D4 INC R4 10943 10944 S002EC0 16 TO R6 10945 S002EC1 45 LDW (R5) 10946 S002EC2 B2 FROM R2 10947 S002EC3 66 SUB R6 10948 S002EC4 3D 96 DIV2 10949 S002EC6 56 ADD R6 10950 S002EC7 90 SBK 10951 10952 S002EC8 21 WITH R1 10953 S002EC9 57 ADD R7 10954 10955 S002ECA 22 WITH R2 10956 S002ECB 58 ADD R8 10957 10958 S002ECC D5 INC R5 10959 S002ECD 3C LOOP 10960 S002ECE D5 INC R5 10961 10962 S002ECF 3D A6 26 LMS R6,REG6 ;(R11) <- ‚x”{—¦ƒZƒbƒg 10963 S002ED2 3D AB 26 LMS R11,REG6 ;(R6) <- ‚w”{—¦ƒZƒbƒg 10964 10965 S002ED5 3D A5 25 LMS R5,REG5 ;(R5) <- ‰ñ“]ŠpƒZƒbƒg 10966 S002ED8 3D AD 2D LMS R13,REG13 ;(R13) <- chara data bank set 10967 S002EDB 3D AC 2C LMS R12,REG12 ;(R12) <- chara data address set 10968 10969 S002EDE 3D A2 22 LMS R2,REG2 ;(R2) <- ‰ñ“]ƒGƒŠƒA‚x@‚o‚n‚rDƒZƒbƒg 10970 S002EE1 3D A3 23 LMS R3,REG3 ;(R3) <- ‰ñ“]ƒGƒŠƒA‚w@‚o‚n‚rDƒZƒbƒg 10971 ; 10972 S002EE4 3D A1 21 LMS R1,REG1 10973 S002EE7 21 B1 MOVES R1,R1 10974 S002EE9 08 09' BNE WANG0_SET2020 10975 S002EEB 01 NOP 10976 10977 S002EEC A8 08 IBT R8,#008 ;(R8) <- ’†S‚w@‚o‚n‚rD 10978 S002EEE 28 19 MOVE R9,R8 ;(R9) <- ’†S‚x@‚o‚n‚rD 10979 10980 S002EF0 FF 0000" IWT R15,#C_32_RTZ_16_XY 10981 S002EF3 01 NOP 10982 10983 WANG0_SET2020 10984 S002EF4 A8 10 IBT R8,#010H ;(R8) <- ’†S‚w@‚o‚n‚rD 10985 S002EF6 28 19 MOVE R9,R8 ;(R9) <- ’†S‚x@‚o‚n‚rD 10986 10987 S002EF8 3D A0 20 LMS R0,REG0 10988 S002EFB 20 B0 MOVES R0,R0 10989 S002EFD 08 05' BNE WANG0_SET2030 10990 S002EFF 01 NOP 10991 10992 S002F00 FF 0000" IWT R15,#C_32_ZOOM 10993 S002F03 01 NOP 10994 10995 WANG0_SET2030 10996 S002F04 FF 0000" IWT R15,#C_64HZOOM_32 10997 S002F07 01 NOP 10998 ; 10999 002F08 M_WANG0_SET3 EQU $ 11000 S002F08 A0 00 IBT R0,#BANK CWORK10 11001 S002F0A 3E DF RAMB 11002 11003 S002F0C 26 WITH R6 11004 S002F0D 66 SUB R6 11005 11006 S002F0E 23 WITH R3 ;ƒƒ“ƒƒ“‚Ìs“®”¼Œaƒ`ƒFƒbƒN@‚‚‹ ? 11007 S002F0F 83 MULT R3 ; 11008 S002F10 B4 FROM R4 ; 11009 S002F11 84 MULT R4 ; 11010 S002F12 53 ADD R3 ; 11011 S002F13 3F 65 CMP R5 ; 11012 S002F15 0B 02' BMI WANG0_SET3010 ; yes: WANG0_SET3010 11013 S002F17 01 NOP ; 11014 ; 11015 S002F18 D6 INC R6 ; 11016 ; 11017 WANG0_SET3010 ; 11018 S002F19 3E A6 1E SMS R6,CWORK1E ; 11019 11020 S002F1C F4 0020 IWT R4,#CWORK10 11021 S002F1F F5 0028 IWT R5,#CWORK14 11022 11023 S002F22 21 WITH R1 ;{‚S‚Í‚­‚³‚è‚ð‚Ü‚ñ’†‚É‚à‚Á‚Ä‚­‚邽‚ß 11024 S002F23 3E 54 ADD #004 ; 11025 S002F25 22 WITH R2 ; 11026 S002F26 3E 54 ADD #004 ; 11027 11028 S002F28 B8 FROM R8 11029 S002F29 61 SUB R1 11030 S002F2A 3D 96 DIV2 11031 S002F2C 17 TO R7 11032 S002F2D 3D 96 DIV2 11033 11034 S002F2F 21 WITH R1 11035 S002F30 57 ADD R7 11036 11037 S002F31 B9 FROM R9 11038 S002F32 62 SUB R2 11039 S002F33 3D 96 DIV2 11040 S002F35 18 TO R8 11041 S002F36 3D 96 DIV2 11042 11043 S002F38 22 WITH R2 11044 S002F39 58 ADD R8 11045 11046 S002F3A AC 04 IBT R12,#004 11047 11048 S002F3C 02 CACHE 11049 S002F3D 2F 1D MOVE R13,R15 11050 11051 S002F3F 16 TO R6 11052 S002F40 44 LDW (R4) 11053 S002F41 B1 FROM R1 11054 S002F42 66 SUB R6 11055 S002F43 3D 96 DIV2 11056 S002F45 56 ADD R6 11057 S002F46 90 SBK 11058 11059 S002F47 D4 INC R4 11060 S002F48 D4 INC R4 11061 11062 S002F49 16 TO R6 11063 S002F4A 45 LDW (R5) 11064 S002F4B B2 FROM R2 11065 S002F4C 66 SUB R6 11066 S002F4D 3D 96 DIV2 11067 S002F4F 56 ADD R6 11068 S002F50 90 SBK 11069 11070 S002F51 21 WITH R1 11071 S002F52 57 ADD R7 11072 11073 S002F53 22 WITH R2 11074 S002F54 58 ADD R8 11075 11076 S002F55 D5 INC R5 11077 S002F56 3C LOOP 11078 S002F57 D5 INC R5 11079 11080 S002F58 3D A6 26 LMS R6,REG6 ;(R11) <- ‚x”{—¦ƒZƒbƒg 11081 S002F5B 3D AB 26 LMS R11,REG6 ;(R6) <- ‚w”{—¦ƒZƒbƒg 11082 11083 S002F5E 3D A5 25 LMS R5,REG5 ;(R5) <- ‰ñ“]ŠpƒZƒbƒg 11084 S002F61 3D AD 2D LMS R13,REG13 ;(R13) <- chara data bank set 11085 S002F64 3D AC 2C LMS R12,REG12 ;(R12) <- chara data address set 11086 11087 S002F67 A8 08 IBT R8,#008 ;(R8) <- ’†S‚w@‚o‚n‚rD 11088 S002F69 28 19 MOVE R9,R8 ;(R9) <- ’†S‚x@‚o‚n‚rD 11089 11090 S002F6B 3D A2 22 LMS R2,REG2 ;(R2) <- ‰ñ“]ƒGƒŠƒA‚x@‚o‚n‚rDƒZƒbƒg 11091 S002F6E 3D A3 23 LMS R3,REG3 ;(R3) <- ‰ñ“]ƒGƒŠƒA‚w@‚o‚n‚rDƒZƒbƒg 11092 ; 11093 11094 S002F71 FF 0000" IWT R15,#C_32_RTZ_16_XY 11095 S002F74 01 NOP 11096 ; 11097 002F75 M_WANG0_SET4 EQU $ 11098 S002F75 A0 00 IBT R0,#BANK CWORK0 11099 S002F77 3E DF RAMB 11100 11101 S002F79 26 WITH R6 11102 S002F7A 66 SUB R6 11103 11104 S002F7B 23 WITH R3 ;ƒƒ“ƒƒ“‚Ìs“®”¼Œaƒ`ƒFƒbƒN@‚‚‹ ? 11105 S002F7C 83 MULT R3 ; 11106 S002F7D B4 FROM R4 ; 11107 S002F7E 84 MULT R4 ; 11108 S002F7F 53 ADD R3 ; 11109 S002F80 3F 65 CMP R5 ; 11110 S002F82 0B 02' BMI WANG0_SET4010 ; yes: WANG0_SET4010 11111 S002F84 01 NOP ; 11112 ; 11113 S002F85 D6 INC R6 ; 11114 ; 11115 WANG0_SET4010 ; 11116 S002F86 3E A6 1E SMS R6,CWORK1E ; 11117 11118 S002F89 22 WITH R2 ; 11119 S002F8A 3E 54 ADD #004 ; 11120 11121 S002F8C B9 FROM R9 11122 S002F8D 62 SUB R2 11123 S002F8E 3D 96 DIV2 11124 S002F90 18 TO R8 11125 S002F91 3D 96 DIV2 11126 11127 S002F93 22 WITH R2 11128 S002F94 58 ADD R8 11129 11130 S002F95 AC 04 IBT R12,#004 11131 11132 S002F97 F4 0020 IWT R4,#CWORK10 11133 S002F9A F5 0028 IWT R5,#CWORK14 11134 11135 S002F9D 02 CACHE 11136 S002F9E 2F 1D MOVE R13,R15 11137 11138 S002FA0 16 TO R6 11139 S002FA1 44 LDW (R4) 11140 ; 11141 S002FA2 B6 FROM R6 11142 S002FA3 61 SUB R1 ;‘O‚Ì‚­‚³‚è‚̶ ? 11143 S002FA4 0B 0B' BMI WANG0_SET4100 ; yes: WANG0_SET4100 11144 S002FA6 D4 INC R4 ; 11145 11146 S002FA7 3F 6A CMP R10 ;‚­‚³‚è‚͔͈͓à ? 11147 S002FA9 0B 12' BMI WANG0_SET4300 ; yes: WANG0_SET4300 11148 S002FAB D4 INC R4 ; 11149 11150 S002FAC B1 FROM R1 11151 S002FAD 5A ADD R10 11152 S002FAE 05 0A' BRA WANG0_SET4200 11153 S002FB0 01 NOP 11154 11155 WANG0_SET4100 11156 S002FB1 4F NOT ;‚­‚³‚è‚͔͈͓à ? 11157 S002FB2 D0 INC R0 ; 11158 S002FB3 3F 6A CMP R10 ; 11159 S002FB5 0B 06' BMI WANG0_SET4300 ; yes: WANG0_SET4300 11160 S002FB7 D4 INC R4 11161 11162 S002FB8 B1 FROM R1 11163 S002FB9 6A SUB R10 11164 11165 WANG0_SET4200 11166 S002FBA 90 SBK 11167 S002FBB 20 16 MOVE R6,R0 11168 11169 WANG0_SET4300 11170 S002FBD 26 11 MOVE R1,R6 11171 ; 11172 S002FBF 16 TO R6 11173 S002FC0 45 LDW (R5) 11174 S002FC1 B2 FROM R2 11175 S002FC2 66 SUB R6 11176 S002FC3 3D 96 DIV2 11177 S002FC5 56 ADD R6 11178 S002FC6 90 SBK 11179 11180 S002FC7 22 WITH R2 11181 S002FC8 58 ADD R8 11182 11183 S002FC9 D5 INC R5 11184 S002FCA 3C LOOP 11185 S002FCB D5 INC R5 11186 11187 S002FCC 3D A6 26 LMS R6,REG6 ;(R11) <- ‚x”{—¦ƒZƒbƒg 11188 S002FCF 3D AB 26 LMS R11,REG6 ;(R6) <- ‚w”{—¦ƒZƒbƒg 11189 11190 S002FD2 3D A5 25 LMS R5,REG5 ;(R5) <- ‰ñ“]ŠpƒZƒbƒg 11191 S002FD5 3D AD 2D LMS R13,REG13 ;(R13) <- chara data bank set 11192 S002FD8 3D AC 2C LMS R12,REG12 ;(R12) <- chara data address set 11193 11194 S002FDB A8 08 IBT R8,#008 ;(R8) <- ’†S‚w@‚o‚n‚rD 11195 S002FDD 28 19 MOVE R9,R8 ;(R9) <- ’†S‚x@‚o‚n‚rD 11196 11197 S002FDF 3D A2 22 LMS R2,REG2 ;(R2) <- ‰ñ“]ƒGƒŠƒA‚x@‚o‚n‚rDƒZƒbƒg 11198 S002FE2 3D A3 23 LMS R3,REG3 ;(R3) <- ‰ñ“]ƒGƒŠƒA‚w@‚o‚n‚rDƒZƒbƒg 11199 ; 11200 11201 S002FE5 FF 0000" IWT R15,#C_32_RTZ_16_XY 11202 S002FE8 01 NOP 11203 ; 11204 ;**************************************************************** 11205 ;* ‚Í‚è‚Ü‚ñ‚Ë‚ñ * 11206 ;**************************************************************** 11207 002FE9 M_HARIO_SET EQU $ 11208 S002FE9 17 TO R7 11209 S002FEA 9F FMULT 11210 mSTW R7,CEWIDEX,R10 11210+ S002FEB F0 1BB6 IWT R0,#CEWIDEX 11210+ S002FEE 5A ADD R10 11210+ S002FEF B7 FROM R7 11210+ S002FF0 30 STW (R0) 11211 mSTW R7,CEWIDEY,R10 11211+ S002FF1 F0 1BB8 IWT R0,#CEWIDEY 11211+ S002FF4 5A ADD R10 11211+ S002FF5 B7 FROM R7 11211+ S002FF6 30 STW (R0) 11212 11213 S002FF7 F0 F000 IWT R0,#-01000H 11214 S002FFA 9F FMULT 11215 S002FFB A7 10 IBT R7,#010H 11216 S002FFD 17 TO R7 11217 S002FFE 57 ADD R7 11218 mSTW R7,CECNTYW,R10 11218+ S002FFF F0 1B58 IWT R0,#CECNTYW 11218+ S003002 5A ADD R10 11218+ S003003 B7 FROM R7 11218+ S003004 30 STW (R0) 11219 11220 S003005 FF 0000" IWT R15,#C_32_ZOOM 11221 S003008 01 NOP 11222 ; 11223 ;**************************************************************** 11224 ;* ƒXƒCƒbƒ` * 11225 ;**************************************************************** 11226 003009 M_SW000_SET EQU $ 11227 S003009 9F FMULT 11228 S00300A 3E A0 10 SMS R0,CWORK10 11229 11230 S00300D 2B 16 MOVE R6,R11 11231 S00300F B1 FROM R1 11232 S003010 9F FMULT 11233 S003011 3E A0 11 SMS R0,CWORK11 11234 11235 S003014 24 16 MOVE R6,R4 11236 11237 S003016 FF 0000" IWT R15,#C_32_ZOOM_XY 11238 S003019 01 NOP 11239 ; 11240 ;**************************************************************** 11241 ;* * 11242 ;* ƒ}ƒbƒv ƒLƒƒƒ‰ƒNƒ^[ ‚u‚q‚`‚lƒZƒbƒg * 11243 ;* in * 11244 ;* cwork0 <- BANK CMODE_DATA * 11245 ;* " 1 <- CMODE_DATA (L.H) * 11246 ;* R9 <- world NO. * 11247 ;**************************************************************** 11248 00301A MPCHRVRMST EQU $ 11249 S00301A A0 00' IBT R0,#BANK MPCHRST_ADR 11250 S00301C 3F DF ROMB 11251 S00301E F0 309B' IWT R0,#MPCHRST_ADR 11252 S003021 1E TO R14 11253 S003022 59 ADD R9 ; R14 = R0 + R9 11254 S003023 EF GETB 11255 S003024 DE INC R14 11256 S003025 18 TO R8 11257 S003026 3D EF GETBH ; R8 <- bit map address data 11258 S003028 A3 00 IBT R3,#00 ; R3 <- #00 11259 S00302A 23 14 MOVE R4,R3 ; R4 <- #00 11260 S00302C 23 15 MOVE R5,R3 ; R5 <- #00 11261 S00302E FD 3060' IWT R13,#MPCHRST_LOP0 11262 S003031 A7 0C IBT R7,#12 11263 ; 11264 S003033 02 CACHE ; ƒLƒƒƒbƒVƒ… ƒXƒ^[ƒg !! 11265 ; 11266 MPCHRST_LOP3 11267 S003034 3D A0 00 LMS R0,CWORK0 ; CMODE NO. set 11268 S003037 3F DF ROMB 11269 S003039 3D AE 01 LMS R14,CWORK1 11270 S00303C EF GETB 11271 S00303D 3D 4E CMODE 11272 S00303F DE INC R14 11273 S003040 3E AE 01 SMS R14,CWORK1 11274 ; 11275 S003043 A0 00' IBT R0,#BANK MPCHRST_ADR 11276 S003045 3F DF ROMB 11277 S003047 28 1E MOVE R14,R8 ; R14 <- bit map address data 11278 S003049 EF GETB 11279 S00304A DE INC R14 11280 S00304B 1A TO R10 11281 S00304C 3D EF GETBH 11282 S00304E DE INC R14 11283 S00304F 1B TO R11 ; ƒLƒƒƒ‰ƒNƒ^[ ƒoƒ“ƒNƒAƒhƒŒƒX 11284 S003050 EF GETB 11285 S003051 A6 03 IBT R6,#03 11286 ; 11287 MPCHRST_LOP2 11288 S003053 25 19 MOVE R9,R5 ;‚xŽ² ƒXƒ^[ƒgƒ|ƒCƒ“ƒg 11289 ; 11290 MPCHRST_LOP1 11291 S003055 BB FROM R11 ; ƒLƒƒƒ‰ƒNƒ^[ ƒoƒ“ƒNƒAƒhƒŒƒX ƒZƒbƒg 11292 S003056 3F DF ROMB 11293 S003058 29 12 MOVE R2,R9 ;‚xŽ² ƒXƒ^[ƒgƒ|ƒCƒ“ƒg 11294 S00305A 23 11 MOVE R1,R3 ;‚wŽ² ƒXƒ^[ƒgƒ|ƒCƒ“ƒg 11295 S00305C AC 18 IBT R12,#24 11296 S00305E 2A 1E MOVE R14,R10 11297 ; 11298 MPCHRST_LOP0 ; ƒLƒƒƒ‰ƒNƒ^[ ƒZƒbƒg !! 11299 S003060 DF GETC 11300 S003061 4C PLOT 11301 S003062 A0 7F IBT R0,#127 11302 S003064 11 TO R1 11303 S003065 71 AND R1 ; R1 <- R1 and R0 11304 S003066 08 03' BNE MPCHRST_LOP05 11305 S003068 22 WITH R2 11306 S003069 3E 58 ADD #08 ; R2 = R2 + #08 11307 MPCHRST_LOP05 11308 S00306B 3C LOOP 11309 S00306C DE INC R14 11310 ; 11311 S00306D F0 0100 IWT R0,#256 ; 11312 S003070 1A TO R10 ; 11313 S003071 5A ADD R10 ; R10 = R10 + #256 11314 S003072 D9 INC R9 ; next V-line set 11315 S003073 D4 INC R4 11316 S003074 24 WITH R4 11317 S003075 3E 77 AND #007 ; R4 and #007 -> R4 = 0 ? 11318 S003077 08 DC' BNE MPCHRST_LOP1 ; NO -> MPCHRST_LOP1 11319 S003079 01 NOP 11320 ; 11321 S00307A A0 18 IBT R0,#24 ; ‚wŽ² ƒ|ƒCƒ“ƒgƒZƒbƒg 11322 S00307C 13 TO R3 11323 S00307D 53 ADD R3 ; R3 = R3 + #024 11324 S00307E B3 FROM R3 11325 S00307F 53 ADD R3 ; R0 = R3 + R3 11326 S003080 4D SWAP 11327 S003081 3E 71 AND #001 ; next character line ? 11328 S003083 09 03' BEQ MPCHRST_200 ; NO -> MPCHRST_200 11329 S003085 25 WITH R5 11330 S003086 3E 58 ADD #08 ; R5 = R5 + #08 11331 MPCHRST_200 11332 S003088 A0 7F IBT R0,#127 11333 S00308A 13 TO R3 11334 S00308B 73 AND R3 ; R3 <- R3 and R0 11335 S00308C E6 DEC R6 11336 S00308D 08 C4' BNE MPCHRST_LOP2 11337 S00308F 01 NOP 11338 ; 11339 S003090 D8 INC R8 ; bit map address data + #003 11340 S003091 D8 INC R8 11341 S003092 D8 INC R8 11342 S003093 E7 DEC R7 11343 S003094 08 9E' BNE MPCHRST_LOP3 11344 S003096 01 NOP 11345 ; 11346 S003097 3D 4C RPIX 11347 ; 11348 S003099 00 STOP 11349 S00309A 01 NOP 11350 ; 11351 ;-------------------------------------------------------- 11352 ;- ƒrƒbƒg ƒ}ƒbƒv ƒAƒhƒŒƒXƒf[ƒ^ - 11353 ;-------------------------------------------------------- 11354 00309B MPCHRST_ADR EQU $ 11355 S00309B 30B3'30D7'30FB' WORD MPCHRST_ADR0,MPCHRST_ADR1,MPCHRST_ADR2 11356 S0030A1 311F'3143'3167' WORD MPCHRST_ADR3,MPCHRST_ADR4,MPCHRST_ADR5 11357 S0030A7 318B'31AF'31D3' WORD MPCHRST_ADR6,MPCHRST_ADR7,MPCHRST_ADR8 11358 S0030AD 31F7'321B'323F' WORD MPCHRST_ADR9,MPCHRST_ADRA,MPCHRST_ADRB 11359 ; 11360 0030B3 MPCHRST_ADR0 EQU $ ;‚P‚v‚n‚q‚k‚c 11361 S0030B3 530404 530420 LWORD 0530404H,0530420H,053043CH,0530458H,0530474H,0530490H S0030B9 53043C 530458 S0030BF 530474 530490 11362 S0030C5 5304AC 5304C8 LWORD 05304ACH,05304C8H,05304E4H,05344C8H,0536420H,0536490H S0030CB 5304E4 5344C8 S0030D1 536420 536490 11363 ; 11364 0030D7 MPCHRST_ADR1 EQU $ ;‚Q‚v‚n‚q‚k‚c 11365 S0030D7 532404 532420 LWORD 0532404H,0532420H,053243CH,0532458H,0532474H,0532490H S0030DD 53243C 532458 S0030E3 532474 532490 11366 S0030E9 5324AC 5324C8 LWORD 05324ACH,05324C8H,05324E4H,05344E4H,0536420H,0536490H S0030EF 5324E4 5344E4 S0030F5 536420 536490 11367 ; 11368 0030FB MPCHRST_ADR2 EQU $ ;‚R‚v‚n‚q‚k‚c 11369 S0030FB 534404 534420 LWORD 0534404H,0534420H,053443CH,0534458H,0534474H,0534490H S003101 53443C 534458 S003107 534474 534490 11370 S00310D 5344AC 5344C8 LWORD 05344ACH,05344C8H,05344E4H,0536404H,0536420H,0536490H S003113 5344E4 536404 S003119 536420 536490 11371 ; 11372 00311F MPCHRST_ADR3 EQU $ ;‚S‚v‚n‚q‚k‚c 11373 S00311F 536404 536420 LWORD 0536404H,0536420H,053643CH,0536458H,0536474H,0536490H S003125 53643C 536458 S00312B 536474 536490 11374 S003131 5364AC 5364C8 LWORD 05364ACH,05364C8H,05364E4H,05364ACH,0536420H,0536490H S003137 5364E4 5364AC S00313D 536420 536490 11375 ; 11376 003143 MPCHRST_ADR4 EQU $ ;‚T‚v‚n‚q‚k‚c 11377 S003143 530404 530420 LWORD 0530404H,0530420H,053043CH,0530458H,0530474H,0530490H S003149 53043C 530458 S00314F 530474 530490 11378 S003155 5304AC 5304C8 LWORD 05304ACH,05304C8H,05304E4H,05364C8H,0536420H,0536490H S00315B 5304E4 5364C8 S003161 536420 536490 11379 ; 11380 003167 MPCHRST_ADR5 EQU $ ;‚U‚v‚n‚q‚k‚c 11381 S003167 532404 532420 LWORD 0532404H,0532420H,053243CH,0532458H,0532474H,0532490H S00316D 53243C 532458 S003173 532474 532490 11382 S003179 5324AC 5324C8 LWORD 05324ACH,05324C8H,05324E4H,05364E4H,0536420H,0536490H S00317F 5324E4 5364E4 S003185 536420 536490 11383 ; 11384 00318B MPCHRST_ADR6 EQU $ ;ƒRƒ“ƒtƒBƒO ƒAƒCƒRƒ“ 11385 S00318B 53643C 536458 LWORD 053643CH,0536458H,0536474H,05324ACH,05324C8H,05324E4H S003191 536474 5324AC S003197 5324C8 5324E4 11386 S00319D 536404 536420 LWORD 0536404H,0536420H,05364C8H,0536458H,053C43CH,0534404H S0031A3 5364C8 536458 S0031A9 53C43C 534404 11387 ; 11388 0031AF MPCHRST_ADR7 EQU $ ;ƒR[ƒXƒZƒŒƒNƒg ƒAƒCƒRƒ“ 11389 S0031AF 538404 538420 LWORD 0538404H,0538420H,053843CH,0538458H,0538474H,0538490H S0031B5 53843C 538458 S0031BB 538474 538490 11390 S0031C1 5384AC 5384C8 LWORD 05384ACH,05384C8H,053A490H,053A4ACH,053A4C8H,053A4E4H S0031C7 53A490 53A4AC S0031CD 53A4C8 53A4E4 11391 ; 11392 0031D3 MPCHRST_ADR8 EQU $ ;ƒ~ƒjƒQ[ƒ€ ƒAƒCƒRƒ“ 11393 S0031D3 534404 534420 LWORD 0534404H,0534420H,053443CH,0534458H,0534474H,0534490H S0031D9 53443C 534458 S0031DF 534474 534490 11394 S0031E5 5344AC 53A4E4 LWORD 05344ACH,053A4E4H,053A4E4H,0536420H,0536420H,0536490H S0031EB 53A4E4 536420 S0031F1 536420 536490 11395 ;;;;K;;;;; 11396 ;;;;K;;;;MPCHRST_ADR8 EQU $ ;ƒ{[ƒiƒX ƒAƒCƒRƒ“ 11397 ;;;;K;;;; LWORD 0534404H,0534420H,053443CH,0534458H,0534474H,0534490H 11398 ;;;;K;;;; LWORD 05344ACH,05344C8H,0536404H,0536420H,0536420H,0536490H 11399 ; 11400 ;--------------- ƒ{[ƒiƒX@ƒQ[ƒ€------------------------------ 11401 0031F7 MPCHRST_ADR9 EQU $ 11402 S0031F7 538404 538420 LWORD 0538404H,0538420H,053843CH,0538458H,0538474H,0538490H S0031FD 53843C 538458 S003203 538474 538490 11403 S003209 5384AC 5384C8 LWORD 05384ACH,05384C8H,05384E4H,053A404H,053A420H,053A43CH S00320F 5384E4 53A404 S003215 53A420 53A43C 11404 ; 11405 00321B MPCHRST_ADRA EQU $ 11406 S00321B 53A458 53A474 LWORD 053A458H,053A474H,053A490H,053A4ACH,053A4C8H,053A4E4H S003221 53A490 53A4AC S003227 53A4C8 53A4E4 11407 S00322D 53A404 53A420 LWORD 053A404H,053A420H,053A43CH,053A458H,053A474H,053A490H S003233 53A43C 53A458 S003239 53A474 53A490 11408 ; 11409 00323F MPCHRST_ADRB EQU $ 11410 ;[1995/05/03] LWORD 053A43CH,053A490H,053A4ACH,053A4C8H,053A4E4H,053A404H 11411 ;[1995/05/03] LWORD 053A474H,05384C8H,05384E4H,0538404H,0538404H,0538404H 11412 S00323F 53A43C 538420 LWORD 053A43CH,0538420H,053843CH,0538458H,0538474H,0538490H S003245 53843C 538458 S00324B 538474 538490 11413 S003251 5384AC 5384C8 LWORD 05384ACH,05384C8H,05384E4H,053A404H,053A420H,053A43CH S003257 5384E4 53A404 S00325D 53A420 53A43C 11414 ; 11415 ; 11416 ; 11417 ;**************************************************************** 11418 ;* * 11419 ;* ƒ}ƒbƒv ƒAƒCƒRƒ“ ƒY[ƒ€ƒZƒbƒg * 11420 ;* in * 11421 ;* R1 <- CMODE NO. * 11422 ;* R3 <- ƒR[ƒX ‚m‚n. * 11423 ;* R6 <- ”{—¦ * 11424 ;* out * 11425 ;* R2 <- ƒrƒbƒgƒ}ƒbƒvÀ•W ‚w * 11426 ;* R3 <- " " ‚x * 11427 ;* R6 <- ”{—¦ * 11428 ;* R8 <- ’†S ‚w * 11429 ;* R9 <- " ‚x * 11430 ;* R12 <- ƒLƒƒƒ‰ƒNƒ^[ ƒAƒhƒŒƒX L,H* 11431 ;* R13 <- " " " B * 11432 ;**************************************************************** 11433 003263 MPAICNZM EQU $ 11434 S003263 A0 00' IBT R0,#BANK MPCHRST_ADR0 11435 S003265 3F DF ROMB 11436 S003267 F0 30B3' IWT R0,#MPCHRST_ADR0 11437 S00326A 53 ADD R3 11438 S00326B 53 ADD R3 11439 S00326C 1E TO R14 11440 S00326D 53 ADD R3 11441 S00326E 1C TO R12 11442 S00326F EF GETB 11443 S003270 DE INC R14 11444 S003271 2C WITH R12 11445 S003272 3D EF GETBH ; R12 <- bit map address data 11446 S003274 DE INC R14 11447 S003275 1D TO R13 11448 S003276 EF GETB ; R13 <- #053H (ƒLƒƒƒ‰ƒNƒ^[ ƒoƒ“ƒN) 11449 ; 11450 S003277 F0 0404 IWT R0,#00404H 11451 S00327A 2C WITH R12 ; R12 <- ƒLƒƒƒ‰ƒNƒ^[ ƒAƒhƒŒƒX 11452 S00327B 60 SUB R0 ; R12 = R12 - R0 11453 ; 11454 S00327C A2 00 IBT R2,#00 ; R2 <- #00 (ƒrƒbƒgƒ}ƒbƒvÀ•W ‚w) 11455 S00327E 22 13 MOVE R3,R2 ; R3 <- #00 ( " " ‚x) 11456 S003280 A8 10 IBT R8,#010H ; R8 <- #010H (’†S ‚w) 11457 S003282 28 19 MOVE R9,R8 ; R9 <- #010H (’†S ‚x) 11458 S003284 26 1B MOVE R11,R6 11459 ; 11460 S003286 FF 0000" IWT R15,#C_32_ZOOM_XY_C ; goto C_32_ZOOM_XY_C 11461 S003289 01 NOP 11462 ; 11463 ;**************************************************************** 11464 ;* * 11465 ;* ƒR[ƒXƒCƒ“ ƒAƒCƒRƒ“‰ñ“]k¬ * 11466 ;* in * 11467 ;* R1 <- CMODE NO. * 11468 ;* R3 <- ƒR[ƒX ‚m‚n. * 11469 ;* R5 <- Šp“x (0`0`FFH) * 11470 ;* R6 <- ”{—¦ (100H = 1.0) * 11471 ;* out * 11472 ;* R1 <- CMODE NO. * 11473 ;* R2 <- ƒrƒbƒgƒ}ƒbƒvÀ•W ‚w * 11474 ;* R3 <- " " ‚x * 11475 ;* R5 <- Šp“x (0`0`FFH) * 11476 ;* R6 <- ”{—¦ (100H = 1.0) * 11477 ;* R12 <- ƒLƒƒƒ‰ƒNƒ^[ ƒAƒhƒŒƒX L,H* 11478 ;* R13 <- " " " B * 11479 ;**************************************************************** 11480 00328A CSINROLSM EQU $ 11481 S00328A A0 00' IBT R0,#BANK MPCHRST_ADR0 11482 S00328C 3F DF ROMB 11483 S00328E F0 30B3' IWT R0,#MPCHRST_ADR0 11484 S003291 53 ADD R3 11485 S003292 53 ADD R3 11486 S003293 1E TO R14 11487 S003294 53 ADD R3 ; R14 = R0 + R3 11488 S003295 1C TO R12 11489 S003296 EF GETB 11490 S003297 DE INC R14 11491 S003298 2C WITH R12 11492 S003299 3D EF GETBH ; R12 <- bit map address data 11493 S00329B DE INC R14 11494 S00329C 1D TO R13 11495 S00329D EF GETB ; R13 <- #053H (ƒLƒƒƒ‰ƒNƒ^[ ƒoƒ“ƒN) 11496 ; 11497 S00329E F0 0404 IWT R0,#00404H 11498 S0032A1 2C WITH R12 ; R12 <- ƒLƒƒƒ‰ƒNƒ^[ ƒAƒhƒŒƒX 11499 S0032A2 60 SUB R0 ; R12 = R12 - R0 11500 S0032A3 A2 00 IBT R2,#00 ; R2 <- #00 (ƒrƒbƒgƒ}ƒbƒvÀ•W ‚w) 11501 S0032A5 22 13 MOVE R3,R2 ; R3 <- #00 ( " " ‚x) 11502 ; 11503 S0032A7 FF 0000" IWT R15,#C_32_ROTZOM_C ; goto C_32_ROTZOM_C 11504 S0032AA 01 NOP 11505 ; 11506 ; 11507 ;**************************************************************** 11508 ;* * 11509 ;* ‰æ–ÊŽw’è‚̧Œä * 11510 ;* in * 11511 ;* R0 <-- ƒf[ƒ^ ƒoƒ“ƒN * 11512 ;* R2 <-- ƒXƒNƒ[ƒ‹’l * 11513 ;* R9 <-- ƒf[ƒ^ ƒAƒhƒŒƒX * 11514 ;* R10 <- ƒoƒbƒtƒ@ƒAƒhƒŒƒX * 11515 ;**************************************************************** 11516 0032AB DISP_CNTRL EQU $ 11517 S0032AB 3F DF ROMB ; ƒf[ƒ^ ƒoƒ“ƒN ƒZƒbƒg 11518 ; 11519 ;;;; IWT R12,#000B2H ; •\Ž¦‰æ–ʂ̃‰ƒCƒ“”(ƒ‹[ƒv‰ñ”) 11520 S0032AD FC 00D2 IWT R12,#000D2H ; •\Ž¦‰æ–ʂ̃‰ƒCƒ“”(ƒ‹[ƒv‰ñ”) 11521 S0032B0 FD 32C4' IWT R13,#DISP_CTL_200 ; •ªŠòæƒAƒhƒŒƒX ƒZƒbƒg 11522 ; 11523 S0032B3 02 CACHE ; ƒLƒƒƒbƒVƒ… ƒXƒ^[ƒg !! 11524 ; 11525 DISP_CTL_100 11526 S0032B4 29 1E MOVE R14,R9 11527 S0032B6 EF GETB 11528 S0032B7 DE INC R14 11529 S0032B8 13 TO R3 11530 S0032B9 3D EF GETBH ; R3 <- ƒZƒbƒg‚·‚é ƒf[ƒ^ 11531 S0032BB DE INC R14 11532 S0032BC EF GETB 11533 S0032BD DE INC R14 11534 S0032BE 17 TO R7 11535 S0032BF 3D EF GETBH ; R7 <- ƒGƒ“ƒhƒ‰ƒCƒ“ 11536 S0032C1 DE INC R14 11537 S0032C2 2E 19 MOVE R9,R14 11538 ; 11539 DISP_CTL_200 11540 S0032C4 B2 FROM R2 11541 S0032C5 3F 67 CMP R7 ; ˆ³k ƒGƒ“ƒh ? 11542 S0032C7 0D EB' BCS DISP_CTL_100 ; YES -> DISP_CTL_100 11543 S0032C9 01 NOP 11544 ; 11545 S0032CA B3 FROM R3 11546 S0032CB 3A STW (R10) ; ƒf[ƒ^ ƒZƒbƒg !! 11547 S0032CC DA INC R10 11548 S0032CD DA INC R10 11549 S0032CE 3C LOOP 11550 S0032CF D2 INC R2 11551 ; 11552 S0032D0 00 STOP 11553 S0032D1 01 NOP 11554 ; 11555 ; 11556 ;**************************************************************** 11557 ;* * 11558 ;* ‚a‚f‚Q “ÁŽêƒXƒNƒ[ƒ‹ * 11559 ;* in * 11560 ;* R1 <- ƒ‚[ƒh‚m‚n. * 11561 ;* 2:•”•ªƒXƒNƒ[ƒ‹ * 11562 ;* 4:ƒ‰ƒXƒ^[ƒXƒNƒ[ƒ‹ * 11563 ;* R2 <- ‚a‚f‚Q‚ÌcƒXƒNƒ[ƒ‹’l * 11564 ;* R3 <- ƒf[ƒ^ ƒAƒhƒŒƒX * 11565 ;* R4 <- ƒf[ƒ^ ƒoƒ“ƒNƒAƒhƒŒƒX * 11566 ;* R10 <- ‚g|‚c‚l‚`ƒoƒbƒtƒ@ ƒAƒhƒŒƒX * 11567 ;* R11 <- ƒAƒjƒ[ƒVƒ‡ƒ“ƒXƒgƒbƒv ƒtƒ‰ƒO * 11568 ;* cwrk0 <- U• * 11569 ;**************************************************************** 11570 0032D2 BG2SCSP EQU $ 11571 ; 11572 S0032D2 02 CACHE ; ƒLƒƒƒbƒVƒ… ƒXƒ^[ƒg!! 11573 ; 11574 ;;;; IWT R12,#000B2H ; •\Ž¦‰æ–ʂ̃‰ƒCƒ“”(ƒ‹[ƒv‰ñ”) 11575 S0032D3 FC 00D2 IWT R12,#000D2H ; •\Ž¦‰æ–ʂ̃‰ƒCƒ“”(ƒ‹[ƒv‰ñ”) 11576 S0032D6 24 15 MOVE R5,R4 11577 S0032D8 3D F7 1FE4 LM R7,CBG2SCR_CNT 11578 S0032DC 20 BB MOVES R0,R11 11579 S0032DE 08 0A' BNE BG2SCSP_000 11580 S0032E0 D7 INC R7 11581 S0032E1 D7 INC R7 11582 S0032E2 F0 01FE IWT R0,#001FEH 11583 S0032E5 77 AND R7 11584 S0032E6 3E F0 1FE4 SM R0,CBG2SCR_CNT ; ƒJƒEƒ“ƒg” 11585 BG2SCSP_000 11586 S0032EA A0 00' IBT R0,#BANK BG2SCSP_MD_ADR 11587 S0032EC 3F DF ROMB 11588 S0032EE F0 32F9' IWT R0,#BG2SCSP_MD_ADR 11589 S0032F1 1E TO R14 11590 S0032F2 51 ADD R1 11591 S0032F3 EF GETB 11592 S0032F4 DE INC R14 11593 S0032F5 1F TO R15 11594 S0032F6 3D EF GETBH 11595 S0032F8 01 NOP 11596 ; 11597 ; 11598 BG2SCSP_MD_ADR 11599 S0032F9 32FD' WORD BG2SCSP_100 ; •”•ªƒXƒNƒ[ƒ‹ 11600 S0032FB 333B' WORD BG2SCSP_200 ; ƒ‰ƒXƒ^[ƒXƒNƒ[ƒ‹ 11601 ; 11602 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 11603 ;+ •”•ªƒXƒNƒ[ƒ‹ + 11604 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 11605 0032FD BG2SCSP_100 EQU $ 11606 S0032FD B5 FROM R5 11607 S0032FE 3F DF ROMB ; ƒf[ƒ^ ƒoƒ“ƒN ƒZƒbƒg 11608 S003300 FD 332E' IWT R13,#BG2SCSP_140 ; •ªŠòæƒAƒhƒŒƒX ƒZƒbƒg 11609 BG2SCSP_110 11610 S003303 23 1E MOVE R14,R3 11611 S003305 3F EF GETBS 11612 S003307 2B B0 MOVES R11,R0 ; ƒ‚[ƒh؂芷‚¦ ? 11613 S003309 0A 08' BPL BG2SCSP_120 ; NO -> BG2SCSP_120 11614 S00330B D3 INC R3 11615 S00330C 11 TO R1 11616 S00330D 3E 7F AND #00FH 11617 S00330F FF 32EA' IWT R15,#BG2SCSP_000 11618 S003312 01 NOP 11619 BG2SCSP_120 11620 S003313 23 1E MOVE R14,R3 11621 S003315 EF GETB 11622 S003316 DE INC R14 11623 S003317 16 TO R6 11624 S003318 3D EF GETBH 11625 S00331A 3D A0 4A LMS R0,CESCCH1 11626 S00331D 3D 9F LMULT 11627 S00331F 17 TO R7 11628 S003320 4D SWAP 11629 S003321 24 18 MOVE R8,R4 11630 S003323 1B TO R11 11631 S003324 70 MERGE 11632 ; 11633 S003325 DE INC R14 11634 S003326 EF GETB 11635 S003327 DE INC R14 11636 S003328 19 TO R9 11637 S003329 3D EF GETBH ; ƒ‰ƒCƒ“” ‚b‚l‚oƒf[ƒ^ ƒZƒbƒg 11638 S00332B 23 WITH R3 11639 S00332C 3E 54 ADD #004 11640 ; 11641 BG2SCSP_140 11642 S00332E B2 FROM R2 11643 S00332F 3F 69 CMP R9 11644 S003331 0D D0' BCS BG2SCSP_110 11645 ; 11646 S003333 BB FROM R11 11647 S003334 3A STW (R10) 11648 S003335 DA INC R10 11649 S003336 DA INC R10 11650 S003337 3C LOOP 11651 S003338 D2 INC R2 11652 ; 11653 S003339 00 STOP 11654 S00333A 01 NOP 11655 ; 11656 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 11657 ;+ ƒ‰ƒXƒ^[ƒXƒNƒ[ƒ‹ + 11658 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 11659 00333B BG2SCSP_200 EQU $ 11660 S00333B 3D F7 1FE4 LM R7,CBG2SCR_CNT ; ƒJƒEƒ“ƒg” 11661 S00333F FD 3381' IWT R13,#BG2SCSP_240 ; •ªŠòæƒAƒhƒŒƒX ƒZƒbƒg 11662 S003342 B2 FROM R2 ; ƒ‰ƒXƒ^[ƒXƒNƒ[ƒ‹ 11663 S003343 52 ADD R2 ; ƒXƒ^[ƒg ƒ‰ƒCƒ“ ƒZƒbƒg 11664 S003344 17 TO R7 ; 11665 S003345 57 ADD R7 ; 11666 ; 11667 BG2SCSP_210 11668 S003346 B5 FROM R5 11669 S003347 3F DF ROMB ; ƒf[ƒ^ ƒoƒ“ƒN ƒZƒbƒg 11670 S003349 23 1E MOVE R14,R3 11671 S00334B 3F EF GETBS 11672 S00334D 2B B0 MOVES R11,R0 ; ƒ‚[ƒh؂芷‚¦ ? 11673 S00334F 0A 08' BPL BG2SCSP_220 11674 S003351 D3 INC R3 11675 S003352 11 TO R1 11676 S003353 3E 7F AND #00FH 11677 S003355 FF 32EA' IWT R15,#BG2SCSP_000 11678 S003358 01 NOP 11679 ; 11680 BG2SCSP_220 11681 S003359 27 19 MOVE R9,R7 11682 S00335B DE INC R14 11683 S00335C EF GETB 11684 S00335D DE INC R14 11685 S00335E 16 TO R6 11686 S00335F 3D EF GETBH 11687 S003361 3D A0 4A LMS R0,CESCCH1 11688 S003364 3D 9F LMULT 11689 S003366 17 TO R7 11690 S003367 4D SWAP 11691 S003368 24 18 MOVE R8,R4 11692 S00336A 1B TO R11 11693 S00336B 70 MERGE ; R11 <- ƒXƒNƒ[ƒ‹’l 11694 S00336C 29 17 MOVE R7,R9 11695 ; 11696 ;;;;K;;;; IWT R0,#CESCCH1 ; CESCCH1‚Ì‚q‚`‚lƒAƒhƒŒƒX 11697 ;;;;K;;;; TO R11 11698 ;;;;K;;;; ADD R11 11699 ; 11700 S00336E DE INC R14 11701 S00336F EF GETB 11702 S003370 DE INC R14 11703 S003371 19 TO R9 11704 S003372 3D EF GETBH ; ƒ‰ƒCƒ“” ‚b‚l‚oƒf[ƒ^ ƒZƒbƒg 11705 S003374 DE INC R14 11706 S003375 18 TO R8 11707 S003376 EF GETB ; ƒJƒEƒ“ƒg” ƒZƒbƒg 11708 S003377 23 WITH R3 11709 S003378 3E 55 ADD #005 11710 ; 11711 S00337A 3D A1 00 LMS R1,CWORK0 ; • ƒZƒbƒg 11712 ; 11713 S00337D A0 00' IBT R0,#BANK SIN 11714 S00337F 3F DF ROMB ; ƒTƒCƒ“ƒf[ƒ^ ƒoƒ“ƒN ƒZƒbƒg 11715 ; 11716 BG2SCSP_240 11717 S003381 F0 01FE IWT R0,#001FEH 11718 S003384 17 TO R7 11719 S003385 77 AND R7 11720 ; 11721 S003386 B2 FROM R2 11722 S003387 3F 69 CMP R9 11723 S003389 0D BB' BCS BG2SCSP_210 11724 S00338B 01 NOP 11725 ; 11726 S00338C F0 029D' IWT R0,#SIN 11727 S00338F 1E TO R14 11728 S003390 57 ADD R7 11729 S003391 EF GETB 11730 S003392 DE INC R14 11731 S003393 16 TO R6 11732 S003394 3D EF GETBH ; R0 <- ƒTƒCƒ“ƒf[ƒ^ 11733 S003396 B1 FROM R1 11734 S003397 3D 9F LMULT 11735 S003399 B4 FROM R4 11736 S00339A C0 HIB 11737 S00339B 14 TO R4 11738 S00339C 95 SEX 11739 ; 11740 S00339D BB FROM R11 11741 S00339E 54 ADD R4 11742 S00339F 3A STW (R10) 11743 S0033A0 DA INC R10 11744 S0033A1 DA INC R10 11745 S0033A2 27 WITH R7 11746 S0033A3 58 ADD R8 ; ƒJƒEƒ“ƒg”{‚Q 11747 S0033A4 3C LOOP 11748 S0033A5 D2 INC R2 11749 ; 11750 S0033A6 00 STOP 11751 S0033A7 01 NOP 11752 ; 11753 ; 11754 ;**************************************************************** 11755 ;* * 11756 ;* ‚a‚f‚Q “ÁŽê‚uƒXƒNƒ[ƒ‹ * 11757 ;* in * 11758 ;* R1 <- “ÁŽê‚uƒXƒNƒ[ƒ‹ or ˆ³k ƒtƒ‰ƒO * 11759 ;* R2 <- ‚a‚f‚Q‚ÌcƒXƒNƒ[ƒ‹’l * 11760 ;* R3 <- U• * 11761 ;* R7 <- ƒf[ƒ^ ƒAƒhƒŒƒX * 11762 ;* R8 <- ƒf[ƒ^ ƒoƒ“ƒNƒAƒhƒŒƒX * 11763 ;* R10 <- ‚g|‚c‚l‚`ƒoƒbƒtƒ@ ƒAƒhƒŒƒX * 11764 ;* R11 <- ƒAƒjƒ[ƒVƒ‡ƒ“ƒXƒgƒbƒv ƒtƒ‰ƒO * 11765 ;**************************************************************** 11766 0033A8 BG2VSCSP EQU $ 11767 ; 11768 S0033A8 02 CACHE ; ƒLƒƒƒbƒVƒ… ƒXƒ^[ƒg!! 11769 ; 11770 S0033A9 20 BB MOVES R0,R11 11771 S0033AB 08 10' BNE BG2VSCSP_000 11772 S0033AD 01 NOP 11773 S0033AE 3D FB 1FE6 LM R11,CBG2V_CNT 11774 S0033B2 EB DEC R11 11775 S0033B3 EB DEC R11 11776 S0033B4 F0 01FE IWT R0,#001FEH 11777 S0033B7 1B TO R11 11778 S0033B8 7B AND R11 11779 S0033B9 3E FB 1FE6 SM R11,CBG2V_CNT 11780 ; 11781 BG2VSCSP_000 11782 S0033BD 22 10 MOVE R0,R2 ; ‰Šú’l‚ðƒoƒbƒtƒ@‚ɃZƒbƒg 11783 S0033BF 2A 1B MOVE R11,R10 11784 ;;;; IWT R12,#000B2H 11785 S0033C1 FC 00D2 IWT R12,#000D2H 11786 S0033C4 2F 1D MOVE R13,R15 11787 ; 11788 S0033C6 3B STW (R11) 11789 S0033C7 DB INC R11 11790 S0033C8 3C LOOP 11791 S0033C9 DB INC R11 11792 ; 11793 S0033CA A0 00' IBT R0,#BANK BG2VSCSP_MD_ADR 11794 S0033CC 3F DF ROMB 11795 S0033CE F0 33D9' IWT R0,#BG2VSCSP_MD_ADR 11796 S0033D1 1E TO R14 11797 S0033D2 51 ADD R1 11798 S0033D3 EF GETB 11799 S0033D4 DE INC R14 11800 S0033D5 1F TO R15 11801 S0033D6 3D EF GETBH 11802 S0033D8 01 NOP 11803 ; 11804 0033D9 BG2VSCSP_MD_ADR EQU $ 11805 S0033D9 33DD' WORD BG2VSCSP_200 ; “ÁŽê‚uƒXƒNƒ[ƒ‹ 11806 S0033DB 343A' WORD BG2VSCSP_400 ; ˆ³k 11807 ; 11808 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 11809 ;+ + 11810 ;+ ‚a‚f‚Q “ÁŽê‚uƒXƒNƒ[ƒ‹ + 11811 ;+ + 11812 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 11813 0033DD BG2VSCSP_200 EQU $ 11814 S0033DD 22 11 MOVE R1,R2 11815 ;;;; IWT R12,#000B2H ; •\Ž¦‰æ–ʂ̃‰ƒCƒ“”(ƒ‹[ƒv‰ñ”) 11816 S0033DF FC 00D2 IWT R12,#000D2H ; •\Ž¦‰æ–ʂ̃‰ƒCƒ“”(ƒ‹[ƒv‰ñ”) 11817 S0033E2 FD 340A' IWT R13,#BG2VSCSP_240 ; •ªŠòæƒAƒhƒŒƒX ƒZƒbƒg 11818 S0033E5 3D FB 1FE6 LM R11,CBG2V_CNT 11819 S0033E9 B2 FROM R2 11820 S0033EA 52 ADD R2 11821 S0033EB 50 ADD R0 11822 S0033EC 1B TO R11 11823 S0033ED 6B SUB R11 11824 ; 11825 BG2VSCSP_210 11826 S0033EE F4 00FF IWT R4,#0FFH 11827 S0033F1 B8 FROM R8 11828 S0033F2 3F DF ROMB ; ƒf[ƒ^ ƒoƒ“ƒN ƒZƒbƒg 11829 S0033F4 27 1E MOVE R14,R7 11830 S0033F6 EF GETB 11831 S0033F7 3F 64 CMP R4 ; ƒf[ƒ^ ƒGƒ“ƒh ? 11832 S0033F9 09 3D' BEQ BG2VSCSP_290 ; YES -> BG2VSCSP_290 11833 S0033FB DE INC R14 11834 S0033FC 20 15 MOVE R5,R0 ; R5 <- ƒ‰ƒXƒ^[ ƒXƒCƒbƒ` 11835 S0033FE EF GETB 11836 S0033FF DE INC R14 11837 S003400 19 TO R9 11838 S003401 3D EF GETBH ; ƒ‰ƒCƒ“” ”äŠrƒf[ƒ^ ƒZƒbƒg 11839 S003403 DE INC R14 11840 S003404 2E 17 MOVE R7,R14 11841 ; 11842 S003406 A0 00' IBT R0,#BANK SIN 11843 S003408 3F DF ROMB ; ƒTƒCƒ“ƒf[ƒ^ ƒoƒ“ƒN ƒZƒbƒg 11844 ; 11845 BG2VSCSP_240 11846 S00340A F0 01FE IWT R0,#001FEH 11847 S00340D 1B TO R11 11848 S00340E 7B AND R11 11849 ; 11850 S00340F B2 FROM R2 11851 S003410 3F 69 CMP R9 11852 S003412 0D DA' BCS BG2VSCSP_210 11853 S003414 01 NOP 11854 S003415 20 B3 MOVES R0,R3 11855 S003417 09 19' BEQ BG2VSCSP_250 11856 S003419 01 NOP 11857 S00341A 20 B5 MOVES R0,R5 11858 S00341C 09 14' BEQ BG2VSCSP_250 11859 S00341E 01 NOP 11860 ; 11861 S00341F F0 029D' IWT R0,#SIN 11862 S003422 1E TO R14 11863 S003423 5B ADD R11 11864 S003424 EF GETB 11865 S003425 DE INC R14 11866 S003426 16 TO R6 11867 S003427 3D EF GETBH ; R0 <- ƒTƒCƒ“ƒf[ƒ^ 11868 S003429 B3 FROM R3 11869 S00342A 3D 9F LMULT 11870 S00342C B4 FROM R4 11871 S00342D C0 HIB 11872 S00342E 95 SEX 11873 S00342F 2B WITH R11 11874 S003430 3E 54 ADD #004 ; ƒJƒEƒ“ƒg”{‚S 11875 ; 11876 BG2VSCSP_250 11877 S003432 51 ADD R1 11878 S003433 3A STW (R10) 11879 S003434 DA INC R10 11880 S003435 DA INC R10 11881 S003436 3C LOOP 11882 S003437 D2 INC R2 11883 ; 11884 BG2VSCSP_290 11885 S003438 00 STOP 11886 S003439 01 NOP 11887 ; 11888 ; 11889 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 11890 ;+ + 11891 ;+ ‚a‚f cˆ³k + 11892 ;+ + 11893 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 11894 BG2VSCSP_400 11895 S00343A B8 FROM R8 11896 S00343B 3F DF ROMB ; ƒf[ƒ^ ƒoƒ“ƒN ƒZƒbƒg 11897 ; 11898 S00343D 27 1E MOVE R14,R7 11899 S00343F EF GETB 11900 S003440 3E A0 0F SMS R0,CWORKF ; cworkF <- ƒXƒs[ƒh 11901 S003443 DE INC R14 11902 S003444 EF GETB 11903 S003445 DE INC R14 11904 S003446 3E A0 0E SMS R0,CWORKE ; cworke <- Ŭ’l 11905 S003449 3E AE 00 SMS R14,CWORK0 11906 ; 11907 ;;;; IWT R12,#000B2H ; •\Ž¦‰æ–ʂ̃‰ƒCƒ“”(ƒ‹[ƒv‰ñ”) 11908 S00344C FC 00D2 IWT R12,#000D2H ; •\Ž¦‰æ–ʂ̃‰ƒCƒ“”(ƒ‹[ƒv‰ñ”) 11909 S00344F FD 3496' IWT R13,#BG2VSCSP_430 ; •ªŠòæƒAƒhƒŒƒX ƒZƒbƒg 11910 S003452 22 19 MOVE R9,R2 11911 S003454 B2 FROM R2 11912 S003455 13 TO R3 11913 S003456 5C ADD R12 11914 S003457 E3 DEC R3 ; R3 <- ”͈̓`ƒFƒbƒN ƒJƒEƒ“ƒ^[ 11915 S003458 BC FROM R12 11916 S003459 5C ADD R12 11917 S00345A 1A TO R10 11918 S00345B 5A ADD R10 ; R10 <- ƒoƒbƒtƒ@ ƒAƒhƒŒƒX 11919 ; 11920 BG2VSCSP_410 11921 S00345C 29 12 MOVE R2,R9 11922 S00345E 3D AE 00 LMS R14,CWORK0 11923 S003461 EF GETB 11924 S003462 DE INC R14 11925 S003463 17 TO R7 11926 S003464 3D EF GETBH ; R7 <- ƒXƒ^[ƒgƒ‰ƒCƒ“ 11927 S003466 B7 FROM R7 11928 S003467 3E 51 ADD #001 ; ƒf[ƒ^ ƒGƒ“ƒh ? 11929 S003469 09 44' BEQ BG2VSCSP_490 ; YES -> BG2VSCSP_490 11930 S00346B DE INC R14 11931 S00346C EF GETB 11932 S00346D DE INC R14 11933 S00346E 18 TO R8 11934 S00346F 3D EF GETBH ; R8 <- ƒGƒ“ƒhƒ‰ƒCƒ“ 11935 S003471 DE INC R14 11936 S003472 3E AE 00 SMS R14,CWORK0 11937 ; 11938 S003475 F1 7FFF IWT R1,#07FFFH 11939 S003478 3D F0 1FE6 LM R0,CBG2V_CNT ; R11 <- ˆ³kƒJƒEƒ“ƒ^[ 11940 S00347C 1B TO R11 11941 S00347D 71 AND R1 11942 S00347E A4 00 IBT R4,#000H 11943 ; 11944 ;;;; IWT R0,#000B2H 11945 S003480 F0 00D2 IWT R0,#000D2H 11946 S003483 52 ADD R2 11947 S003484 B8 FROM R8 11948 S003485 60 SUB R0 11949 S003486 0B 0E' BMI BG2VSCSP_430 11950 S003488 2B WITH R11 11951 S003489 16 TO R6 11952 S00348A 20 11 MOVE R1,R0 11953 S00348C 3D 9F LMULT 11954 S00348E B4 FROM R4 11955 S00348F C0 HIB 11956 S003490 B1 FROM R1 11957 S003491 60 SUB R0 11958 S003492 22 WITH R2 11959 S003493 60 SUB R0 11960 S003494 24 WITH R4 11961 S003495 9E LOB 11962 ; 11963 BG2VSCSP_430 11964 S003496 EA DEC R10 11965 S003497 EA DEC R10 11966 S003498 B3 FROM R3 11967 S003499 3F 68 CMP R8 ; ˆ³k ƒGƒ“ƒh ? 11968 S00349B 0D 10' BCS BG2VSCSP_485 ; YES -> BG2VSCSP_485 11969 S00349D B3 FROM R3 11970 S00349E 3F 67 CMP R7 ; ˆ³kƒXƒ^[ƒg ? 11971 S0034A0 0C BA' BCC BG2VSCSP_410 ; NO -> BG2VSCSP_410 11972 ; 11973 S0034A2 B4 FROM R4 11974 S0034A3 5B ADD R11 11975 S0034A4 14 TO R4 11976 S0034A5 9E LOB 11977 S0034A6 C0 HIB 11978 S0034A7 08 03' BNE BG2VSCSP_480 11979 S0034A9 22 WITH R2 11980 S0034AA 10 TO R0 11981 S0034AB E2 DEC R2 ; ˆ³k !! 11982 BG2VSCSP_480 11983 S0034AC 3A STW (R10) ; ƒXƒNƒ[ƒ‹’l ƒZƒbƒg !! 11984 BG2VSCSP_485 11985 S0034AD 3C LOOP 11986 S0034AE E3 DEC R3 11987 ; 11988 BG2VSCSP_490 11989 S0034AF 3D AA 0E LMS R10,CWORKE ; R10 <- Ŭ’l 11990 S0034B2 3D A1 0F LMS R1,CWORKF ; R1 <-- ƒXƒs[ƒh 11991 S0034B5 3D F0 1FE6 LM R0,CBG2V_CNT 11992 S0034B9 22 B0 MOVES R2,R0 11993 S0034BB 0B 0E' BMI BG2VSCSP_490_50 11994 S0034BD 01 NOP 11995 S0034BE 61 SUB R1 11996 S0034BF 0B 06' BMI BG2VSCSP_490_05 11997 S0034C1 01 NOP 11998 S0034C2 3F 6A CMP R10 11999 S0034C4 0D 12' BCS BG2VSCSP_490_90 12000 S0034C6 01 NOP 12001 BG2VSCSP_490_05 12002 S0034C7 F0 8000 IWT R0,#08000H 12003 S0034CA CA OR R10 12004 BG2VSCSP_490_50 12005 S0034CB 51 ADD R1 12006 S0034CC F3 8100 IWT R3,#08100H 12007 S0034CF 3F 63 CMP R3 12008 S0034D1 0C 05' BCC BG2VSCSP_490_90 12009 S0034D3 01 NOP 12010 S0034D4 F2 7FFF IWT R2,#07FFFH 12011 S0034D7 72 AND R2 12012 ; 12013 BG2VSCSP_490_90 12014 S0034D8 3E F0 1FE6 SM R0,CBG2V_CNT 12015 ; 12016 S0034DC 00 STOP 12017 S0034DD 01 NOP 12018 ; 12019 ; 12020 ;**************************************************************** 12021 ;* * 12022 ;* ƒoƒbƒNƒAƒbƒv ‚q‚`‚l ƒCƒjƒVƒƒƒ‹ ƒf[ƒ^ ƒZƒbƒg * 12023 ;* in * 12024 ;* R1 <- ƒCƒjƒVƒƒƒ‹ƒf[ƒ^ƒAƒhƒŒƒX * 12025 ;* R2 <- " " ƒoƒ“ƒN * 12026 ;* R10 <- “]‘—æƒAƒhƒŒƒX * 12027 ;**************************************************************** 12028 0034DE BAKINTST EQU $ 12029 S0034DE 02 CACHE ;ƒLƒƒƒbƒVƒ… ƒXƒ^[ƒg !! 12030 S0034DF FC 0034 IWT R12,#(SAVERAM1-SAVERAM0)/2 12031 S0034E2 FD 34EC' IWT R13,#BAKINTST_LOP 12032 ; 12033 S0034E5 B2 FROM R2 12034 S0034E6 3F DF ROMB 12035 S0034E8 2A 12 MOVE R2,R10 12036 S0034EA 21 1E MOVE R14,R1 12037 ; 12038 BAKINTST_LOP 12039 S0034EC EF GETB 12040 S0034ED DE INC R14 12041 S0034EE 3D EF GETBH 12042 S0034F0 DE INC R14 12043 S0034F1 32 STW (R2) 12044 S0034F2 D2 INC R2 12045 S0034F3 3C LOOP 12046 S0034F4 D2 INC R2 12047 ; 12048 S0034F5 05 11' BRA SAVEPRS 12049 S0034F7 01 NOP 12050 ; 12051 ; 12052 ;**************************************************************** 12053 ;* * 12054 ;* ƒoƒbƒNƒAƒbƒv ‚q‚`‚l‚ð ƒZ[ƒu ‚q‚`‚l‚É ƒ[ƒh * 12055 ;* in * 12056 ;* R1 <- “]‘—Œ³ƒAƒhƒŒƒX * 12057 ;* R10 <- “]‘—æƒAƒhƒŒƒX * 12058 ;**************************************************************** 12059 0034F8 LDBAKSET EQU $ 12060 S0034F8 2A 12 MOVE R2,R10 12061 ; 12062 S0034FA 02 CACHE ;ƒLƒƒƒbƒVƒ… ƒXƒ^[ƒg !! 12063 S0034FB FC 0034 IWT R12,#(SAVERAM1-SAVERAM0)/2 12064 S0034FE FD 3501' IWT R13,#LDBAKSET_LOP 12065 ; 12066 LDBAKSET_LOP 12067 S003501 41 LDW (R1) 12068 S003502 32 STW (R2) 12069 S003503 D1 INC R1 12070 S003504 D1 INC R1 12071 S003505 D2 INC R2 12072 S003506 3C LOOP 12073 S003507 D2 INC R2 12074 ; 12075 ; 12076 ;**************************************************************** 12077 ;* * 12078 ;* ƒoƒbƒNƒAƒbƒv ‚q‚`‚l * 12079 ;* ‚‚’ * 12080 ;* ƒZ[ƒu ‚q‚`‚l * 12081 ;* ‚Ì ƒf[ƒ^‚ð ‚·‚ׂăvƒ‰ƒX‚·‚é * 12082 ;* in * 12083 ;* R10 <- ‚q‚`‚lƒAƒhƒŒƒX * 12084 ;* out * 12085 ;* R0 <- ƒvƒ‰ƒX‚µ‚½“š * 12086 ;**************************************************************** 12087 003508 SAVEPRS EQU $ 12088 S003508 02 CACHE ;ƒLƒƒƒbƒVƒ… ƒXƒ^[ƒg !! 12089 S003509 FC 0034 IWT R12,#(SAVERAM1-SAVERAM0)/2 12090 S00350C FD 3511' IWT R13,#SAVEPRS_LOP 12091 ; 12092 S00350F A1 00 IBT R1,#000 12093 SAVEPRS_LOP 12094 S003511 4A LDW (R10) 12095 S003512 11 TO R1 12096 S003513 51 ADD R1 12097 S003514 DA INC R10 12098 S003515 3C LOOP 12099 S003516 DA INC R10 12100 ; 12101 S003517 F0 7777 IWT R0,#07777H 12102 S00351A 61 SUB R1 12103 ; 12104 S00351B 00 STOP 12105 S00351C 01 NOP 12106 ; 12107 ; 12108 ;**************************************************************** 12109 ;* * 12110 ;* ƒAƒCƒRƒ“ ‰¡‰ñ“] * 12111 ;* in * 12112 ;* R1 <-- ‚b‚l‚n‚c‚d ‚m‚n. * 12113 ;* R2 <-- ƒTƒCƒ“ƒf[ƒ^ƒCƒ“ƒfƒbƒNƒX * 12114 ;* R3 <- ƒR[ƒX ‚m‚n. * 12115 ;* R11 <- ‚x”{—¦( 100H=1.0 ) * 12116 ;**************************************************************** 12117 00351D AICONHKAITEN EQU $ 12118 S00351D B1 FROM R1 12119 S00351E 3D 4E CMODE ; ƒJƒ‰[ ƒ‚[ƒh ƒZƒbƒg 12120 ; 12121 S003520 A0 00' IBT R0,#BANK MPCHRST_ADR0 12122 S003522 3F DF ROMB 12123 S003524 F0 30B3' IWT R0,#MPCHRST_ADR0 12124 S003527 53 ADD R3 12125 S003528 53 ADD R3 12126 S003529 1E TO R14 12127 S00352A 53 ADD R3 12128 S00352B EF GETB 12129 S00352C DE INC R14 12130 S00352D 19 TO R9 12131 S00352E 3D EF GETBH ; R6 <- bit map address data 12132 S003530 DE INC R14 12133 S003531 1A TO R10 12134 S003532 EF GETB 12135 ; 12136 S003533 3D A6 00 LMS R6,CWORK0 12137 S003536 20 B6 MOVES R0,R6 12138 S003538 09 02' BEQ AICONHKAITEN_20 12139 S00353A 26 WITH R6 12140 S00353B 19 TO R9 12141 ; 12142 AICONHKAITEN_20 12143 S00353C F0 0404 IWT R0,#00404H 12144 S00353F 29 WITH R9 12145 S003540 60 SUB R0 ; R9 <- ƒLƒƒƒ‰ƒNƒ^[ ƒAƒhƒŒƒX 12146 ; vvv******* warn :value out of range 12147 S003541 3E AA 00 SMS R10,CCWORK0 ; ƒLƒƒƒ‰ƒNƒ^[ ƒoƒ“ƒNƒAƒhƒŒƒX 12148 ; 12149 ; 12150 ;**************************************************************** 12151 ;* * 12152 ;* ‚ß‚­‚ê‚é ƒvƒƒOƒ‰ƒ€ * 12153 ;* in * 12154 ;* R2 <-- ƒTƒCƒ“ƒf[ƒ^ƒCƒ“ƒfƒbƒNƒX * 12155 ;* R3 <-- ƒR[ƒX ‚m‚n. * 12156 ;* R9 <-- ƒf[ƒ^ ƒAƒhƒŒƒX (‚k,‚g) * 12157 ;* cwork0 <- ƒf[ƒ^ ƒAƒhƒŒƒX (‚a) * 12158 ;* R11 <- ‚x”{—¦( 100H=1.0 ) * 12159 ;**************************************************************** 12160 003544 MEKURE EQU $ 12161 ; 12162 ;-------------- ƒRƒTƒCƒ“ƒf[ƒ^ “Ç‚Ýž‚Ý ------------------------- 12163 S003544 A0 00' IBT R0,#BANK COS 12164 S003546 3F DF ROMB 12165 ; 12166 S003548 F0 021D' IWT R0,#COS 12167 S00354B 1E TO R14 12168 S00354C 52 ADD R2 12169 S00354D EF GETB 12170 S00354E DE INC R14 12171 S00354F 16 TO R6 12172 S003550 3D EF GETBH 12173 ; 12174 ;-------------- ”{—¦•ÏŠ· ---------------------------------------- vvv******* warn :value out of range 12175 S003552 F4 2200 IWT R4,#DIVBUF 12176 S003555 B4 FROM R4 12177 S003556 56 ADD R6 12178 S003557 56 ADD R6 12179 S003558 16 TO R6 12180 S003559 40 LDW (R0) ; R6 <- ƒLƒƒƒ‰ƒNƒ^[”{—¦ 12181 ; 12182 S00355A B4 FROM R4 12183 S00355B 5B ADD R11 12184 S00355C 5B ADD R11 12185 S00355D 1B TO R11 12186 S00355E 40 LDW (R0) ; R11 <- ƒLƒƒƒ‰ƒNƒ^[”{—¦ 12187 ; 12188 ;-------------- ƒXƒ^[ƒgƒ|ƒCƒ“ƒgŒvŽZ ---------------------------- 12189 S00355F A0 10 IBT R0,#010H ; #010H (’†S ‚w) 12190 S003561 18 TO R8 12191 S003562 4D SWAP 12192 S003563 4F NOT 12193 S003564 D0 INC R0 12194 S003565 3D 9F LMULT 12195 S003567 28 WITH R8 12196 S003568 54 ADD R4 ; R8 <- SX * x_zoom 12197 S003569 26 15 MOVE R5,R6 ; R5 <- ‚w”{—¦ 12198 ; 12199 S00356B 2B 16 MOVE R6,R11 12200 S00356D A0 10 IBT R0,#010H ; #010H (’†S ‚x) 12201 S00356F 1A TO R10 12202 S003570 4D SWAP 12203 S003571 4F NOT 12204 S003572 D0 INC R0 12205 S003573 3D 9F LMULT 12206 S003575 2A WITH R10 12207 S003576 54 ADD R4 ; R10 <- SY * y_zoom 12208 ; 12209 ;-------------- ‘‚«ž‚݃‚[ƒh ---------------------------------- 12210 S003577 29 16 MOVE R6,R9 ; R6 <- ƒLƒƒƒ‰ƒNƒ^[ ƒAƒhƒŒƒX 12211 ; 12212 S003579 A3 00 IBT R3,#000 12213 ; 12214 ;-------------- ‘‚«ž‚Ý ---------------------------------------- vvv******* warn :value out of range 12215 S00357B 3D A0 00 LMS R0,CCWORK0 12216 S00357E 3F DF ROMB ; ƒoƒ“ƒN (#053H) ƒZƒbƒg 12217 ; 12218 S003580 FD 358E' IWT R13,#MEKURE_50 12219 S003583 A4 20 IBT R4,#032 12220 ; 12221 S003585 02 CACHE ; ƒLƒƒƒbƒVƒ… ƒXƒ^[ƒg !! 12222 ; 12223 MEKURE_40 12224 S003586 AC 20 IBT R12,#032 ; R12 <- ‚xƒ‹[ƒv ƒJƒEƒ“ƒg 12225 S003588 23 11 MOVE R1,R3 12226 S00358A A2 00 IBT R2,#000 12227 S00358C 2A 17 MOVE R7,R10 12228 ; 12229 MEKURE_50 12230 S00358E 70 MERGE 12231 S00358F 0D 0C' BCS MEKURE_60 12232 S003591 1E TO R14 12233 S003592 56 ADD R6 12234 ; 12235 S003593 27 WITH R7 12236 S003594 5B ADD R11 12237 S003595 DF GETC 12238 S003596 4C PLOT 12239 S003597 E1 DEC R1 12240 S003598 3C LOOP 12241 S003599 D2 INC R2 ; Y pos +1 12242 ; 12243 S00359A 05 09' BRA MEKURE_70 12244 S00359C 01 NOP 12245 ; 12246 MEKURE_60 12247 S00359D 27 WITH R7 12248 S00359E 5B ADD R11 12249 S00359F 60 SUB R0 ;IBT R0,#00 12250 S0035A0 4E COLOUR 12251 S0035A1 4C PLOT 12252 S0035A2 D2 INC R2 ; Y pos +1 12253 S0035A3 3C LOOP 12254 S0035A4 E1 DEC R1 12255 ; 12256 MEKURE_70 12257 S0035A5 28 WITH R8 12258 S0035A6 55 ADD R5 12259 S0035A7 E4 DEC R4 ; ƒGƒ“ƒh ? 12260 S0035A8 08 DC' BNE MEKURE_40 ; NO -> MEKURE_40 12261 S0035AA D3 INC R3 12262 ; 12263 S0035AB 3D 4C RPIX 12264 ; 12265 S0035AD 00 STOP 12266 S0035AE 01 NOP 12267 ; 12268 ; 12269 ;**************************************************************** 12270 ;* * 12271 ;* ‰¡ƒXƒNƒ[ƒ‹ƒ}ƒbƒv‚Ì ƒ‰ƒXƒ^[ ƒXƒNƒ[ƒ‹ ƒZƒbƒg * 12272 ;* in * 12273 ;* R3 <-- Å‘åU• * 12274 ;* R5 <-- –¶ƒf[ƒ^ ƒAƒhƒŒƒX(‚a) * 12275 ;* R7 <-- ƒTƒCƒ“ƒf[ƒ^ ƒXƒ^[ƒg * 12276 ;* R8 <-- ƒXƒeƒbƒv” * 12277 ;* R9 <-- ‚l‚o‚r‚b‚g‚Q * 12278 ;* R11 <- –¶ƒf[ƒ^ ƒAƒhƒŒƒX(‚k,‚g) * 12279 ;* R12 <- ƒ‹[ƒv‚̉ñ” * 12280 ;**************************************************************** 12281 0035AF HMPRSTER EQU $ 12282 S0035AF 27 WITH R7 12283 S0035B0 57 ADD R7 12284 S0035B1 28 WITH R8 12285 S0035B2 58 ADD R8 vvv******* warn :value out of range 12286 S0035B3 FA 3388 IWT R10,#MPWIND0+6+10H 12287 ; 12288 S0035B6 02 CACHE ; ƒLƒƒƒbƒVƒ… ƒXƒ^[ƒg !! 12289 ; 12290 S0035B7 2C 11 MOVE R1,R12 12291 S0035B9 FC 0014 IWT R12,#(8*2)+04 12292 S0035BC FD 35C2' IWT R13,#HMPRSTER_100 12293 S0035BF F0 00FF IWT R0,#000FFH 12294 HMPRSTER_100 12295 S0035C2 3A STW (R10) ; –¶ ƒf[ƒ^ 12296 S0035C3 DA INC R10 ; ƒZƒbƒg ƒ|ƒCƒ“ƒg 12297 S0035C4 DA INC R10 ; ‚ð‚¸‚ç‚· 12298 S0035C5 DA INC R10 12299 S0035C6 3C LOOP 12300 S0035C7 DA INC R10 12301 ; 12302 S0035C8 F0 0100 IWT R0,#00100H 12303 S0035CB 19 TO R9 12304 S0035CC 69 SUB R9 12305 S0035CD 21 1C MOVE R12,R1 12306 S0035CF FD 35D2' IWT R13,#HMPRSTER_200 12307 ; 12308 HMPRSTER_200 12309 S0035D2 B5 FROM R5 12310 S0035D3 3F DF ROMB 12311 ; 12312 S0035D5 2B 1E MOVE R14,R11 12313 S0035D7 EF GETB 12314 S0035D8 DE INC R14 12315 S0035D9 11 TO R1 12316 S0035DA 3D EF GETBH ; R1 <- –¶ ƒf[ƒ^ 12317 ; 12318 S0035DC A0 00' IBT R0,#BANK SIN 12319 S0035DE 3F DF ROMB 12320 S0035E0 F0 029D' IWT R0,#SIN 12321 S0035E3 1E TO R14 12322 S0035E4 57 ADD R7 12323 S0035E5 EF GETB 12324 S0035E6 DE INC R14 12325 S0035E7 16 TO R6 12326 S0035E8 3D EF GETBH ; R6 <- ƒTƒCƒ“ƒf[ƒ^ 12327 ; 12328 S0035EA B3 FROM R3 12329 S0035EB 3D 9F LMULT 12330 S0035ED B4 FROM R4 12331 S0035EE C0 HIB 12332 S0035EF 95 SEX ; R0 <- U•‚Ì• 12333 ; 12334 S0035F0 59 ADD R9 12335 S0035F1 51 ADD R1 12336 ; 12337 S0035F2 3A STW (R10) 12338 S0035F3 27 WITH R7 12339 S0035F4 58 ADD R8 12340 S0035F5 F0 01FF IWT R0,#001FFH 12341 S0035F8 17 TO R7 12342 S0035F9 77 AND R7 12343 S0035FA DA INC R10 12344 S0035FB DA INC R10 12345 S0035FC DA INC R10 12346 S0035FD DA INC R10 12347 S0035FE DB INC R11 12348 S0035FF 3C LOOP 12349 S003600 DB INC R11 12350 ; 12351 S003601 00 STOP 12352 S003602 01 NOP 12353 ; 12354 ; 12355 ; 12356 ;---------------------------------------------------------------- 12357 ;- R0 : character bank - 12358 ;- R3 : character address - 12359 ;---------------------------------------------------------------- 12360 003603 GININIT EQU $ 12361 S003603 3F DF ROMB 12362 S003605 A0 01 IBT R0,#01 12363 S003607 3D 4E CMODE 12364 ; 12365 S003609 02 CACHE ; ƒLƒƒƒbƒVƒ… ƒXƒ^[ƒg !! 12366 ; 12367 S00360A A2 00 IBT R2,#00 12368 S00360C A4 18 IBT R4,#018H 12369 GINIT0020 12370 S00360E A1 00 IBT R1,#00 12371 S003610 AC 18 IBT R12,#018H 12372 ;;; IWT R13,#(GINIT0040&0FFFFH) 12373 S003612 2F 1D MOVE R13,R15 12374 GINIT0040 12375 S003614 B3 FROM R3 12376 S003615 1E TO R14 12377 S003616 51 ADD R1 12378 S003617 DF GETC 12379 S003618 3C LOOP 12380 S003619 4C PLOT 12381 ; 12382 S00361A F0 0100 IWT R0,#0100H 12383 S00361D 23 WITH R3 12384 S00361E 50 ADD R0 12385 S00361F E4 DEC R4 12386 S003620 08 EC' BNE GINIT0020 ; 12387 S003622 D2 INC R2 12388 ; 12389 S003623 3D 4C RPIX 12390 S003625 00 STOP 12391 S003626 01 NOP 12392 ; 12393 ; 12394 ;---------------------------------------------------------------- 12395 ;- GINGAMI - 12396 ;- R3 : x position - 12397 ;- R4 : y " - 12398 ;---------------------------------------------------------------- 12399 003627 GINGAMI EQU $ 12400 S003627 A0 01 IBT R0,#01 12401 S003629 3D 4E CMODE 12402 S00362B A0 00 IBT R0,#00 12403 S00362D 4E COLOR 12404 ; 12405 S00362E B3 FROM R3 12406 S00362F 11 TO R1 12407 S003630 3E 61 SUB #01 12408 S003632 24 12 MOVE R2,R4 12409 ; 12410 S003634 02 CACHE 12411 ; 12412 S003635 AC 03 IBT R12,#3 12413 ;;;; IWT R13,#(GING0010&0FFFFH) 12414 S003637 2F 1D MOVE R13,R15 12415 GING0010 12416 S003639 20 B1 MOVES R0,R1 12417 S00363B 0B 09' BMI GING0080 ; 12418 S00363D 01 NOP 12419 ; 12420 S00363E A0 18 IBT R0,#018H 12421 S003640 B1 FROM R1 12422 S003641 60 SUB R0 12423 S003642 0D 02' BCS GING0080 ; 12424 S003644 01 NOP 12425 ; 12426 S003645 4C PLOT 12427 GING0080 12428 S003646 3C LOOP 12429 S003647 01 NOP 12430 ; 12431 S003648 23 11 MOVE R1,R3 12432 S00364A B4 FROM R4 12433 S00364B 12 TO R2 12434 S00364C 3E 61 SUB #01 12435 ; 12436 S00364E AC 03 IBT R12,#3 12437 S003650 FD 3653' IWT R13,#(GING0090&0FFFFH) 12438 ; 12439 GING0090 12440 S003653 20 B2 MOVES R0,R2 12441 S003655 0B 0A' BMI GING0100 ; 12442 S003657 01 NOP 12443 ; 12444 S003658 A0 18 IBT R0,#018H 12445 S00365A B2 FROM R2 12446 S00365B 60 SUB R0 12447 S00365C 0D 03' BCS GING0100 ; 12448 S00365E 01 NOP 12449 ; 12450 S00365F 4C PLOT 12451 S003660 E1 DEC R1 12452 GING0100 12453 S003661 3C LOOP 12454 S003662 D2 INC R2 12455 ; 12456 S003663 3D 4C RPIX 12457 S003665 00 STOP 12458 S003666 01 NOP 12459 ; 12460 ; 12461 ;---------------------------------------------------------------- 12462 ;- dot erase - 12463 ;- CWORK0 <- x position 1 - 12464 ;- CWORK1 <- x position 2 - 12465 ;- CWORK2 <- y position 1 - 12466 ;- CWORK3 <- y position 2 - 12467 ;---------------------------------------------------------------- 12468 003667 DOTERASE EQU $ 12469 S003667 02 CACHE ; ƒLƒƒƒbƒVƒ… ƒXƒ^[ƒg!! 12470 ; 12471 S003668 A0 01 IBT R0,#01 12472 S00366A 3D 4E CMODE 12473 S00366C A0 00 IBT R0,#00 12474 S00366E 4E COLOR 12475 ; 12476 S00366F 3D A6 02 LMS R6,CWORK2 12477 S003672 3D A7 03 LMS R7,CWORK3 12478 S003675 3D A8 00 LMS R8,CWORK0 12479 S003678 3D A9 01 LMS R9,CWORK1 12480 S00367B A3 03 IBT R3,#3 12481 DE0040 12482 S00367D 28 14 MOVE R4,R8 12483 S00367F 29 15 MOVE R5,R9 12484 S003681 AC 03 IBT R12,#3 12485 S003683 2F 1D MOVE R13,R15 12486 DE0060 12487 S003685 24 11 MOVE R1,R4 12488 S003687 26 12 MOVE R2,R6 12489 S003689 4C PLOT 12490 S00368A 25 11 MOVE R1,R5 12491 S00368C 27 12 MOVE R2,R7 12492 S00368E 24 WITH R4 12493 S00368F 3E 58 ADD #8 12494 S003691 25 WITH R5 12495 S003692 3E 58 ADD #8 12496 S003694 3C LOOP 12497 S003695 4C PLOT 12498 ; 12499 S003696 26 WITH R6 12500 S003697 3E 58 ADD #8 12501 S003699 27 WITH R7 12502 S00369A 3E 58 ADD #8 12503 S00369C E3 DEC R3 12504 S00369D 08 DE' BNE DE0040 ; 12505 S00369F 01 NOP 12506 ; 12507 S0036A0 3D 4C RPIX 12508 S0036A2 00 STOP 12509 S0036A3 01 NOP 12510 ; 12511 ; 12512 ;-------------------------------------------------------- 12513 ;- SHUTTER - 12514 ;- R0 <- char bank - 12515 ;- R3 <- char address - 12516 ;- R4 <- v counter (0-B) - 12517 ;- R5 <- h counter (0-B) - 12518 ;-------------------------------------------------------- 12519 0036A4 SHUTTER EQU $ 12520 S0036A4 3F DF ROMB 12521 S0036A6 A0 15 IBT R0,#15H 12522 S0036A8 3D 4E CMODE 12523 ; 12524 S0036AA 02 CACHE ; ƒLƒƒƒbƒVƒ… ƒXƒ^[ƒg !! 12525 ; 12526 S0036AB 24 17 MOVE R7,R4 12527 ; 12528 S0036AD A2 00 IBT R2, #00 12529 S0036AF A9 0C IBT R9, #12 12530 SHUT0030 12531 S0036B1 B7 FROM R7 12532 S0036B2 16 TO R6 12533 S0036B3 4D SWAP 12534 S0036B4 A1 00 IBT R1, #00 12535 S0036B6 25 18 MOVE R8,R5 12536 S0036B8 AC 0C IBT R12,#12 12537 S0036BA 2F 1D MOVE R13,R15 12538 SHUT0040 12539 S0036BC B6 FROM R6 12540 S0036BD 58 ADD R8 12541 S0036BE 1E TO R14 12542 S0036BF 53 ADD R3 12543 ; 12544 S0036C0 B7 FROM R7 12545 S0036C1 3E 6C SUB #12 12546 S0036C3 0D 0A' BCS SHUT0080 ; 12547 S0036C5 01 NOP 12548 ; 12549 S0036C6 B8 FROM R8 12550 S0036C7 3E 6C SUB #12 12551 S0036C9 0D 04' BCS SHUT0080 ; 12552 S0036CB 01 NOP 12553 ; 12554 S0036CC 05 04' BRA SHUT0090 12555 S0036CE DF GETC 12556 ; 12557 SHUT0080 12558 S0036CF A0 00 IBT R0,#00 12559 S0036D1 4E COLOR 12560 SHUT0090 12561 S0036D2 D8 INC R8 12562 S0036D3 3C LOOP 12563 S0036D4 4C PLOT 12564 ; 12565 S0036D5 E8 DEC R8 12566 ; 12567 S0036D6 AC 0C IBT R12,#12 12568 S0036D8 2F 1D MOVE R13,R15 12569 SHUT0140 12570 S0036DA B6 FROM R6 12571 S0036DB 58 ADD R8 12572 S0036DC 1E TO R14 12573 S0036DD 53 ADD R3 12574 ; 12575 S0036DE B7 FROM R7 12576 S0036DF 3E 6C SUB #12 12577 S0036E1 0D 0A' BCS SHUT0180 ; 12578 S0036E3 01 NOP 12579 ; 12580 S0036E4 B8 FROM R8 12581 S0036E5 3E 6C SUB #12 12582 S0036E7 0D 04' BCS SHUT0180 ; 12583 S0036E9 01 NOP 12584 ; 12585 S0036EA 05 04' BRA SHUT0190 12586 S0036EC DF GETC 12587 ; 12588 SHUT0180 12589 S0036ED A0 00 IBT R0,#00 12590 S0036EF 4E COLOR 12591 SHUT0190 12592 S0036F0 E8 DEC R8 12593 S0036F1 3C LOOP 12594 S0036F2 4C PLOT 12595 ; 12596 S0036F3 D7 INC R7 12597 S0036F4 E9 DEC R9 12598 S0036F5 08 BA' BNE SHUT0030 ; 12599 S0036F7 D2 INC R2 12600 ; 12601 S0036F8 E7 DEC R7 12602 ; 12603 S0036F9 A9 0C IBT R9, #12 12604 SHUT0230 12605 S0036FB B7 FROM R7 12606 S0036FC 16 TO R6 12607 S0036FD 4D SWAP 12608 S0036FE A1 00 IBT R1, #00 12609 S003700 25 18 MOVE R8,R5 12610 S003702 AC 0C IBT R12,#12 12611 S003704 2F 1D MOVE R13,R15 12612 SHUT0240 12613 S003706 B6 FROM R6 12614 S003707 58 ADD R8 12615 S003708 1E TO R14 12616 S003709 53 ADD R3 12617 ; 12618 S00370A B7 FROM R7 12619 S00370B 3E 6C SUB #12 12620 S00370D 0D 0A' BCS SHUT0280 ; 12621 S00370F 01 NOP 12622 ; 12623 S003710 B8 FROM R8 12624 S003711 3E 6C SUB #12 12625 S003713 0D 04' BCS SHUT0280 ; 12626 S003715 01 NOP 12627 ; 12628 S003716 05 04' BRA SHUT0290 12629 S003718 DF GETC 12630 ; 12631 SHUT0280 12632 S003719 A0 00 IBT R0,#00 12633 S00371B 4E COLOR 12634 SHUT0290 12635 S00371C D8 INC R8 12636 S00371D 3C LOOP 12637 S00371E 4C PLOT 12638 ; 12639 S00371F E8 DEC R8 12640 ; 12641 S003720 AC 0C IBT R12,#12 12642 S003722 2F 1D MOVE R13,R15 12643 SHUT0340 12644 S003724 B6 FROM R6 12645 S003725 58 ADD R8 12646 S003726 1E TO R14 12647 S003727 53 ADD R3 12648 ; 12649 S003728 B7 FROM R7 12650 S003729 3E 6C SUB #12 12651 S00372B 0D 0A' BCS SHUT0380 ; 12652 S00372D 01 NOP 12653 ; 12654 S00372E B8 FROM R8 12655 S00372F 3E 6C SUB #12 12656 S003731 0D 04' BCS SHUT0380 ; 12657 S003733 01 NOP 12658 ; 12659 S003734 05 04' BRA SHUT0390 12660 S003736 DF GETC 12661 ; 12662 SHUT0380 12663 S003737 A0 00 IBT R0,#00 12664 S003739 4E COLOR 12665 SHUT0390 12666 S00373A E8 DEC R8 12667 S00373B 3C LOOP 12668 S00373C 4C PLOT 12669 ; 12670 S00373D E7 DEC R7 12671 S00373E E9 DEC R9 12672 S00373F 08 BA' BNE SHUT0230 ; 12673 S003741 D2 INC R2 12674 ; 12675 S003742 3D 4C RPIX 12676 ; 12677 S003744 00 STOP 12678 S003745 01 NOP 12679 ; 12680 ; 12681 ;**************************************************************** 12682 ;* ƒAƒCƒRƒ“ ƒXƒNƒ‰ƒbƒ` ƒNƒŠƒA[ * 12683 ;* in * 12684 ;* R0 : ‚b‚l‚n‚c‚d ‚m‚. * 12685 ;* R3 : ‚wÀ•W * 12686 ;* R4 : ‚xÀ•W * 12687 ;**************************************************************** 12688 003746 AICNCLS EQU $ 12689 S003746 3D 4E CMODE 12690 S003748 A0 00 IBT R0,#00 12691 S00374A 4E COLOR 12692 ; 12693 S00374B A5 20 IBT R5,#008*4 12694 ; 12695 S00374D B3 FROM R3 12696 S00374E 11 TO R1 12697 S00374F 3E 61 SUB #01 12698 S003751 24 12 MOVE R2,R4 12699 ; 12700 S003753 02 CACHE ;ƒLƒƒƒbƒVƒ… ƒXƒ^[ƒg!! 12701 ; 12702 S003754 AC 03 IBT R12,#3 12703 S003756 2F 1D MOVE R13,R15 12704 AICNCLS_010 12705 S003758 20 B1 MOVES R0,R1 ;‚wÀ•Wƒrƒbƒgƒ}ƒbƒv ƒGƒŠƒA“à ? 12706 S00375A 0B 06' BMI AICNCLS_020 ; NO -> AICNCLS_020 12707 ; 12708 S00375C B1 FROM R1 12709 S00375D 65 SUB R5 12710 S00375E 0D 02' BCS AICNCLS_020 12711 S003760 01 NOP 12712 ; 12713 S003761 4C PLOT 12714 AICNCLS_020 12715 S003762 3C LOOP 12716 S003763 01 NOP 12717 ; 12718 S003764 23 11 MOVE R1,R3 12719 S003766 B4 FROM R4 12720 S003767 12 TO R2 12721 S003768 3E 61 SUB #01 12722 ; 12723 S00376A AC 03 IBT R12,#3 12724 S00376C 2F 1D MOVE R13,R15 12725 ; 12726 AICNCLS_050 12727 S00376E 20 B2 MOVES R0,R2 ;‚xÀ•Wƒrƒbƒgƒ}ƒbƒv ƒGƒŠƒA“à ? 12728 S003770 0B 07' BMI AICNCLS_070 ; NO -> AICNCLS_070 12729 ; 12730 S003772 B2 FROM R2 12731 S003773 65 SUB R5 12732 S003774 0D 03' BCS AICNCLS_070 12733 S003776 01 NOP 12734 ; 12735 S003777 4C PLOT 12736 S003778 E1 DEC R1 12737 AICNCLS_070 12738 S003779 3C LOOP 12739 S00377A D2 INC R2 12740 ; 12741 S00377B 3D 4C RPIX 12742 S00377D 00 STOP 12743 S00377E 01 NOP 12744 ; 12745 ; 12746 ;**************************************************************** 12747 ;* * 12748 ;* ƒRƒ“ƒtƒBƒO ƒAƒCƒRƒ“ ƒLƒƒƒ‰ƒNƒ^[ ‚u‚q‚`‚lƒZƒbƒg * 12749 ;* in * 12750 ;* R0 : ‚b‚l‚n‚c‚d ‚m‚. * 12751 ;* R10 : ƒLƒƒƒ‰ƒNƒ^[ ƒAƒhƒŒƒX * 12752 ;**************************************************************** 12753 00377F CNFGAICN EQU $ 12754 S00377F 3D 4E CMODE ; ‚b‚l‚n‚c‚d ‚m‚. ƒZƒbƒg 12755 ; 12756 S003781 A0 53 IBT R0,#053H 12757 S003783 3F DF ROMB ; ƒLƒƒƒ‰ƒNƒ^[ ƒoƒ“ƒN ƒZƒbƒg 12758 ; 12759 S003785 A3 00 IBT R3,#000H ; R3 : ‚wŽ² ‰Šú’l 12760 S003787 A4 38 IBT R4,#038H ; R4 : ‚xŽ² ‰Šú’l 12761 S003789 FD 3797' IWT R13,#CNFGAICN_LOP0 12762 S00378C A6 03 IBT R6,#03 12763 ; 12764 S00378E 02 CACHE ; ƒLƒƒƒbƒVƒ… ƒXƒ^[ƒg !! 12765 ; 12766 CNFGAICN_LOP2 12767 S00378F 24 12 MOVE R2,R4 ;‚xŽ² ƒXƒ^[ƒgƒ|ƒCƒ“ƒg 12768 ; 12769 CNFGAICN_LOP1 12770 S003791 23 11 MOVE R1,R3 ;‚wŽ² ƒXƒ^[ƒgƒ|ƒCƒ“ƒg 12771 S003793 AC 18 IBT R12,#24 12772 S003795 2A 1E MOVE R14,R10 12773 ; 12774 CNFGAICN_LOP0 ; ƒLƒƒƒ‰ƒNƒ^[ ƒZƒbƒg !! 12775 S003797 DF GETC 12776 S003798 4C PLOT 12777 S003799 3C LOOP 12778 S00379A DE INC R14 12779 ; 12780 S00379B F0 0100 IWT R0,#256 ; 12781 S00379E 1A TO R10 ; 12782 S00379F 5A ADD R10 ; R10 = R10 + #256 12783 S0037A0 D2 INC R2 12784 S0037A1 B2 FROM R2 12785 S0037A2 3E 77 AND #007 ; R4 and #007 -> R4 = 0 ? 12786 S0037A4 08 EB' BNE CNFGAICN_LOP1 ; NO -> MPCHRST_LOP1 12787 S0037A6 01 NOP 12788 ; 12789 S0037A7 A0 18 IBT R0,#24 ; ‚wŽ² ƒ|ƒCƒ“ƒgƒZƒbƒg 12790 S0037A9 13 TO R3 12791 S0037AA 53 ADD R3 ; R3 = R3 + #024 12792 S0037AB A0 7F IBT R0,#127 12793 S0037AD 13 TO R3 12794 S0037AE 73 AND R3 ; R3 <- R3 and R0 12795 S0037AF E6 DEC R6 12796 S0037B0 08 DD' BNE CNFGAICN_LOP2 12797 S0037B2 01 NOP 12798 ; 12799 S0037B3 3D 4C RPIX 12800 ; 12801 S0037B5 00 STOP 12802 S0037B6 01 NOP 12803 ; 12804 ;************************************************************************ 12805 ;* ƒJƒ‰[ƒ‚[ƒtƒBƒ“ƒO * 12806 ;* in : (R1) <-- Œ³ƒJƒ‰[ * 12807 ;* (R2) <-- æƒJƒ‰[ * 12808 ;* (R6) <-- ”{—¦ * 12809 ;* out : * 12810 ;* (R3) <-- ƒ‚[ƒtƒBƒ“ƒOƒJƒ‰[ * 12811 ;************************************************************************ 12812 0037B7 COL_MORF EQU $ 12813 S0037B7 A0 1F IBT R0,#01FH ;(R0) <-- i‚qj“Ç‚Ýž‚Ý‚`‚m‚cƒf[ƒ^ 12814 S0037B9 13 TO R3 ;(R3) <-- Œ³ƒJƒ‰[i‚qj 12815 S0037BA 71 AND R1 12816 S0037BB 72 AND R2 ;(R0) <-- æƒJƒ‰[i‚qj 12817 S0037BC 63 SUB R3 12818 S0037BD 9E LOB 12819 S0037BE 4D SWAP 12820 S0037BF 9F FMULT 12821 S0037C0 13 TO R3 ;(R3) <-- ƒ‚[ƒtƒBƒ“ƒOƒJƒ‰[i‚qj 12822 S0037C1 53 ADD R3 12823 ; 12824 S0037C2 F0 03E0 IWT R0,#01FH<<5 ;(R0) <-- i‚fj“Ç‚Ýž‚Ý‚`‚m‚cƒf[ƒ^ 12825 S0037C5 20 17 MOVE R7,R0 12826 S0037C7 15 TO R5 ;(R5) <-- Œ³ƒJƒ‰[i‚fj 12827 S0037C8 71 AND R1 12828 S0037C9 72 AND R2 ;(R0) <-- æƒJƒ‰[i‚fj 12829 S0037CA 65 SUB R5 12830 S0037CB 3D 9F LMULT 12831 S0037CD 24 WITH R4 12832 S0037CE C0 HIB 12833 S0037CF 9E LOB 12834 S0037D0 4D SWAP 12835 S0037D1 C4 OR R4 12836 S0037D2 55 ADD R5 12837 S0037D3 77 AND R7 12838 S0037D4 13 TO R3 ;(R3) <-- ƒ‚[ƒtƒBƒ“ƒOƒJƒ‰[i‚qj•i‚fj 12839 S0037D5 C3 OR R3 12840 ; 12841 S0037D6 F0 7C00 IWT R0,#01FH<<10 ;(R0) <-- i‚aj“Ç‚Ýž‚Ý‚`‚m‚cƒf[ƒ^ 12842 S0037D9 20 17 MOVE R7,R0 12843 S0037DB 15 TO R5 ;(R5) <-- Œ³ƒJƒ‰[i‚aj 12844 S0037DC 71 AND R1 12845 S0037DD 72 AND R2 ;(R0) <-- æƒJƒ‰[i‚aj 12846 S0037DE 65 SUB R5 12847 S0037DF 3D 9F LMULT 12848 S0037E1 24 WITH R4 12849 S0037E2 C0 HIB 12850 S0037E3 9E LOB 12851 S0037E4 4D SWAP 12852 S0037E5 C4 OR R4 12853 S0037E6 55 ADD R5 12854 S0037E7 77 AND R7 12855 S0037E8 13 TO R3 ;(R3) <-- ƒ‚[ƒtƒBƒ“ƒOƒJƒ‰[ 12856 S0037E9 C3 OR R3 12857 ; 12858 S0037EA 00 STOP 12859 S0037EB 01 NOP 12860 ; 12861 ;************************************************************************ 12862 ;* ƒJƒ‰[ƒ‚[ƒtƒBƒ“ƒOiƒuƒƒbƒNj * 12863 ;* in : (R8) <-- ƒJƒ‰[ƒ|ƒCƒ“ƒ^[i‚O`‚e‚ej * 12864 ;* (R14) <-- æƒJƒ‰[ƒf[ƒ^ƒAƒhƒŒƒXi‚kC‚gj * 12865 ;* (R0) <-- h i‚aj * 12866 ;* (R12) <-- ƒJƒ‰[” * 12867 ;* (R6) <-- ”{—¦ * 12868 ;************************************************************************ 12869 0037EC COL_MORF_B EQU $ 12870 S0037EC 3F DF ROMB 12871 S0037EE 2E 1E MOVE R14,R14 12872 ; vvv******* warn :value out of range 12873 S0037F0 F0 2D6C IWT R0,#MOTOCOL 12874 S0037F3 58 ADD R8 12875 S0037F4 19 TO R9 ;(R9) <-- Œ³ƒJƒ‰[ƒ|ƒCƒ“ƒ^[ 12876 S0037F5 58 ADD R8 vvv******* warn :value out of range 12877 S0037F6 F0 2000 IWT R0,#DATACOL 12878 S0037F9 58 ADD R8 12879 S0037FA 18 TO R8 ;(R8) <-- Ši”[ƒJƒ‰[ƒ|ƒCƒ“ƒ^[ 12880 S0037FB 58 ADD R8 12881 ; 12882 S0037FC AB 1F IBT R11,#01FH ;(R11) <-- i‚qj“Ç‚Ýž‚Ý‚`‚m‚cƒf[ƒ^ 12883 S0037FE F7 03E0 IWT R7,#01FH<<5 ;(R7) <-- i‚fj“Ç‚Ýž‚Ý‚`‚m‚cƒf[ƒ^ 12884 S003801 FA 7C00 IWT R10,#01FH<<10 ;(R10) <-- i‚aj“Ç‚Ýž‚Ý‚`‚m‚cƒf[ƒ^ 12885 ; 12886 S003804 02 CACHE 12887 ; 12888 S003805 2F 1D MOVE R13,R15 12889 COL_MORF_B_010 12890 S003807 EF GETB 12891 S003808 DE INC R14 12892 ; 12893 S003809 11 TO R1 ;(R1) <-- Œ³ƒJƒ‰[ 12894 S00380A 49 LDW (R9) 12895 S00380B D9 INC R9 12896 S00380C D9 INC R9 12897 ; 12898 S00380D 12 TO R2 ;(R2) <-- æƒJƒ‰[ 12899 S00380E 3D EF GETBH 12900 S003810 DE INC R14 12901 ; 12902 S003811 2B 10 MOVE R0,R11 ;(R0) <-- i‚qj“Ç‚Ýž‚Ý‚`‚m‚cƒf[ƒ^ 12903 S003813 13 TO R3 ;(R3) <-- Œ³ƒJƒ‰[i‚qj 12904 S003814 71 AND R1 12905 S003815 72 AND R2 ;(R0) <-- æƒJƒ‰[i‚qj 12906 S003816 63 SUB R3 12907 S003817 9E LOB 12908 S003818 4D SWAP 12909 S003819 9F FMULT 12910 S00381A 13 TO R3 ;(R3) <-- ƒ‚[ƒtƒBƒ“ƒOƒJƒ‰[i‚qj 12911 S00381B 53 ADD R3 12912 ; 12913 S00381C 27 10 MOVE R0,R7 ;(R0) <-- i‚fj“Ç‚Ýž‚Ý‚`‚m‚cƒf[ƒ^ 12914 S00381E 15 TO R5 ;(R5) <-- Œ³ƒJƒ‰[i‚fj 12915 S00381F 71 AND R1 12916 S003820 72 AND R2 ;(R0) <-- æƒJƒ‰[i‚fj 12917 S003821 65 SUB R5 12918 S003822 3D 9F LMULT 12919 S003824 24 WITH R4 12920 S003825 C0 HIB 12921 S003826 9E LOB 12922 S003827 4D SWAP 12923 S003828 C4 OR R4 12924 S003829 55 ADD R5 12925 S00382A 77 AND R7 12926 S00382B 13 TO R3 ;(R3) <-- ƒ‚[ƒtƒBƒ“ƒOƒJƒ‰[i‚qj•i‚fj 12927 S00382C C3 OR R3 12928 ; 12929 S00382D 2A 10 MOVE R0,R10 ;(R0) <-- i‚aj“Ç‚Ýž‚Ý‚`‚m‚cƒf[ƒ^ 12930 S00382F 15 TO R5 ;(R5) <-- Œ³ƒJƒ‰[i‚aj 12931 S003830 71 AND R1 12932 S003831 72 AND R2 ;(R0) <-- æƒJƒ‰[i‚aj 12933 S003832 65 SUB R5 12934 S003833 3D 9F LMULT 12935 S003835 24 WITH R4 12936 S003836 C0 HIB 12937 S003837 9E LOB 12938 S003838 4D SWAP 12939 S003839 C4 OR R4 12940 S00383A 55 ADD R5 12941 S00383B 7A AND R10 12942 S00383C C3 OR R3 ;(R0) <-- ƒ‚[ƒtƒBƒ“ƒOƒJƒ‰[ 12943 S00383D 38 STW (R8) 12944 ; 12945 S00383E D8 INC R8 12946 S00383F 3C LOOP 12947 S003840 D8 INC R8 12948 ; 12949 S003841 00 STOP 12950 S003842 01 NOP 12951 ; 12952 ;************************************************************************ 12953 ;* ƒS[ƒ‹ƒŠƒ“ƒO‚n‚`‚lƒZƒbƒg * 12954 ;* in : * 12955 ;* (R1) <-- ‚n‚`‚lƒCƒ“ƒfƒbƒNƒX * 12956 ;* (R2) <-- ’†S‚w•\Ž¦À•W * 12957 ;* (R3) <-- ’†S‚x•\Ž¦À•W * 12958 ;* (R4) <-- ƒLƒƒƒ‰‚m‚D * 12959 ;* (R6) <-- ”¼Œa~‚P‚O‚O‚g * 12960 ;* (R7) <-- ƒAƒ^ƒŠ‚m‚D * 12961 ;* (R8) <-- ƒS[ƒ‹ƒŠƒ“ƒO•\Ž¦ƒtƒ‰ƒO * 12962 ;* (R9) <-- ƒAƒ^ƒŠˆÊ’uƒf[ƒ^ * 12963 ;* (CWRK6) <-- ƒAƒ^ƒŠˆêŒÂ‘O•\Ž¦ƒ^ƒCƒ}[ * 12964 ;* out : * 12965 ;* (CWRK0) <-- Ž~‚Ü‚Á‚½‚Æ‚±‚낪ƒAƒ^ƒŠ‚©H * 12966 ;* (CWRK1) <-- ‚S~‚SƒAƒ^ƒŠŠG”{—¦ * 12967 ;* (CWRK2) <-- ƒAƒ^ƒŠŠGƒLƒƒƒ‰ƒNƒ^[ƒAƒhƒŒƒX* 12968 ;* (CWRK3) <-- ‚Q~‚QƒAƒ^ƒŠŠG”{—¦ * 12969 ;* (CWRK4) <-- ƒAƒ^ƒŠŠGƒLƒƒƒ‰ƒNƒ^[ƒAƒhƒŒƒX* 12970 ;* (CWRK5) <-- ƒAƒ^ƒŠŠG‚S~‚S‚‚’‚Q~‚QH * 12971 ;* (CWRK7-) <- Œø‰ÊƒZƒbƒg—pÀ•W * 12972 ;************************************************************************ 12973 003843 GOAL_RING EQU $ 12974 S003843 3E A1 1F SMS R1,CWORK1F ;(CWK1F) <-- ‚n‚`‚lƒCƒ“ƒfƒbƒNƒX 12975 ; 12976 S003846 60 SUB R0 ;[ IBT R0,#0 ] 12977 S003847 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- Ž~‚Ü‚Á‚½‚Æ‚±‚낪ƒAƒ^ƒŠ‚©Hƒtƒ‰ƒOƒŠƒZƒbƒg 12978 S00384A D0 INC R0 ;[ IBT R0,#1 ] 12979 S00384B 3E A0 05 SMS R0,CWORK5 ;(CWK5) <-- ƒAƒ^ƒŠŠG‚S~‚S‚‚’‚Q~‚QHƒŠƒZƒbƒg 12980 S00384E A0 0E IBT R0,#CWORK7 12981 S003850 3E A0 1E SMS R0,CWORK1E 12982 ; 12983 S003853 A0 00' IBT R0,#BANK LCOS 12984 S003855 3F DF ROMB 12985 ; 12986 S003857 FA 2667 IWT R10,#4000H-10000H/10 ;(R10) <-- ‰~ƒf[ƒ^ƒ|ƒCƒ“ƒ^[ 12987 ; 12988 S00385A AC 0A IBT R12,#10 12989 S00385C 2F 1D MOVE R13,R15 12990 GOAL_RING_0050 12991 S00385E 3D AB 1E LMS R11,CWORK1E 12992 ; 12993 S003861 BA FROM R10 12994 S003862 C0 HIB 12995 S003863 FE 049D' IWT R14,#LCOS 12996 S003866 1E TO R14 ;(R14) <-- ‚b‚n‚rƒf[ƒ^ƒAƒhƒŒƒX 12997 S003867 5E ADD R14 12998 ; 12999 S003868 F0 1999 IWT R0,#10000H/10 ;(R0) <-- ‰~•ªŠ„ƒXƒeƒbƒv 13000 S00386B 2A WITH R10 13001 S00386C 60 SUB R0 13002 ; 13003 S00386D 28 WITH R8 13004 S00386E 03 LSR 13005 S00386F 0C 0C' BCC GOAL_RING_0060 ;•\Ž¦‚n‚jH ( yes:GOAL_RING_0060 ) 13006 S003871 01 NOP 13007 ; 13008 S003872 BB FROM R11 13009 S003873 3E 54 ADD #4 13010 S003875 90 SBK ;[ SMS R0,CWORK1E ] 13011 S003876 29 WITH R9 13012 S003877 03 LSR 13013 S003878 E1 DEC R1 ;[-1] 13014 mDJMP_X GOAL_RING_0110+1 13014+ S003879 FF 391B' IWT R15, #GOAL_RING_0110+1 13015 S00387C 3C LOOP 13016 ; 13017 GOAL_RING_0060 13018 S00387D 3F EF GETBS 13019 S00387F 3E 83 MULT #3 13020 S003881 3D 96 DIV2 13021 ; 13022 S003883 A5 40 IBT R5,#040H ;(R5) <-- ‚r‚h‚mƒf[ƒ^‚ւ̉ÁŽZ’l 13023 S003885 2E WITH R14 13024 S003886 55 ADD R5 13025 ; 13026 S003887 9F FMULT 13027 S003888 52 ADD R2 13028 S003889 31 STW (R1) ;‚n‚`‚l‚wÀ•WƒZƒbƒg 13029 S00388A D1 INC R1 13030 S00388B D1 INC R1 13031 S00388C 3B STW (R11) 13032 ; 13033 S00388D 3F EF GETBS 13034 S00388F 50 ADD R0 ;x4 13035 S003890 50 ADD R0 ; 13036 ; 13037 S003891 9F FMULT 13038 S003892 53 ADD R3 13039 S003893 31 STW (R1) ;‚n‚`‚l‚xÀ•WƒZƒbƒg 13040 S003894 DB INC R11 13041 S003895 DB INC R11 13042 S003896 3B STW (R11) 13043 S003897 DB INC R11 13044 S003898 DB INC R11 13045 S003899 3E AB 1E SMS R11,CWORK1E 13046 ; 13047 S00389C 24 1E MOVE R14,R4 13048 S00389E 29 WITH R9 13049 S00389F 03 LSR 13050 S0038A0 0C 08' BCC GOAL_RING_0070 ;ƒAƒ^ƒŠH ( no:GOAL_RING_0070 ) 13051 S0038A2 D1 INC R1 13052 ; 13053 S0038A3 BC FROM R12 13054 S0038A4 03 LSR 13055 S0038A5 0C 03' BCC GOAL_RING_0070 ;ƒAƒ^ƒŠH ( no:GOAL_RING_0070 ) 13056 S0038A7 01 NOP 13057 ; 13058 S0038A8 DE INC R14 13059 S0038A9 DE INC R14 13060 GOAL_RING_0070 13061 S0038AA BC FROM R12 13062 S0038AB 67 SUB R7 13063 S0038AC 0A 03' BPL GOAL_RING_0072 13064 S0038AE D1 INC R1 13065 ; 13066 S0038AF 3E 5A ADD #10 13067 GOAL_RING_0072 13068 S0038B1 03 LSR 13069 S0038B2 08 49' BNE GOAL_RING_0090 ;ƒAƒ^ƒŠ ‚© ƒAƒ^ƒŠˆêŒÂ‘OH ( no:GOAL_RING_0090 ) 13070 S0038B4 01 NOP 13071 ; 13072 S0038B5 0C 13' BCC GOAL_RING_0080 ;ƒAƒ^ƒŠˆêŒÂ‘OH ( no:GOAL_RING_0080 ) 13073 S0038B7 01 NOP 13074 ; 13075 ;-------------- ƒAƒ^ƒŠˆêŒÂ‘OII ---------------------------------------- 13076 S0038B8 3D A0 06 LMS R0,CWORK6 13077 S0038BB E0 DEC R0 13078 S0038BC 0B 3F' BMI GOAL_RING_0090 ;ƒAƒ^ƒŠˆêŒÂ‘O•\Ž¦H ( no:GOAL_RING_0090 ) 13079 S0038BE 01 NOP 13080 ; 13081 S0038BF F5 00CC IWT R5,#0CCH ;(R5) <-- ƒAƒ^ƒŠŠG”{—¦ƒZƒbƒg 13082 ; 13083 S0038C2 BE FROM R14 ;Ž~‚Ü‚Á‚½‚Æ‚±‚낪ƒAƒ^ƒŠ‚©‚Ç‚¤‚©Hƒtƒ‰ƒOƒZƒbƒg 13084 S0038C3 64 SUB R4 13085 S0038C4 09 0F' BEQ GOAL_RING_0082 ;“–‚½‚èH ( no:GOAL_RING_082 ) 13086 S0038C6 01 NOP 13087 ; 13088 S0038C7 05 72' BRA GOAL_RING_0120 13089 S0038C9 01 NOP 13090 ; 13091 ;-------------- ƒAƒ^ƒŠII ---------------------------------------------- 13092 GOAL_RING_0080 13093 S0038CA F5 0100 IWT R5,#0100H ;(R5) <-- ƒAƒ^ƒŠŠG”{—¦ƒZƒbƒg 13094 ; 13095 S0038CD BE FROM R14 ;Ž~‚Ü‚Á‚½‚Æ‚±‚낪ƒAƒ^ƒŠ‚©‚Ç‚¤‚©Hƒtƒ‰ƒOƒZƒbƒg 13096 S0038CE 64 SUB R4 13097 S0038CF 3E A0 00 SMS R0,CWORK0 13098 S0038D2 08 67' BNE GOAL_RING_0120 ;“–‚½‚èH ( yes:GOAL_RING_0120 ) 13099 S0038D4 01 NOP 13100 ; 13101 ;-------------- ‚Í‚¸‚êII -------------------------------------- 13102 GOAL_RING_0082 13103 S0038D5 3D A0 05 LMS R0,CWORK5 13104 S0038D8 E0 DEC R0 13105 S0038D9 90 SBK ;[ SMS R0,CWORK5 ] ƒAƒ^ƒŠŠG‚S~‚S‚‚’‚Q~‚QHƒZƒbƒg 13106 S0038DA 0B 03' BMI GOAL_RING_0083 13107 S0038DC 60 SUB R0 ;[ IBT R0,#0 ] 13108 ; 13109 S0038DD A0 04 IBT R0,#CWORK3-CWORK1 13110 GOAL_RING_0083 13111 S0038DF 1B TO R11 13112 S0038E0 3E 52 ADD #CWORK1 13113 S0038E2 A0 4A IBT R0,#(024H*2)+CWORK1 13114 S0038E4 6B SUB R11 13115 S0038E5 1E TO R14 13116 S0038E6 03 LSR 13117 S0038E7 BC FROM R12 13118 S0038E8 03 LSR vvv******* warn :value out of range 13119 S0038E9 F0 4010 IWT R0,#CIPCHD+4010H 13120 S0038EC 0D 04' BCS GOAL_RING_0084 ;‚‚ڂÝH ( yes:GOAL_RING_0084 ) 13121 S0038EE 01 NOP 13122 ; vvv******* warn :value out of range 13123 S0038EF F0 3040 IWT R0,#CIPCHD+3040H 13124 GOAL_RING_0084 13125 S0038F2 B5 FROM R5 13126 S0038F3 3B STW (R11) ;[ SMS R5,(CWORK1 or CWORK3) ] ƒAƒ^ƒŠŠG”{—¦ƒZƒbƒg 13127 S0038F4 DB INC R11 13128 S0038F5 DB INC R11 13129 S0038F6 3B STW (R11) ;[ SMS R0,(CWORK2 or CWORK4) ]ƒAƒ^ƒŠŠGƒLƒƒƒ‰ƒNƒ^[ƒAƒhƒŒƒXƒZƒbƒg 13130 ; 13131 S0038F7 41 LDW (R1) 13132 S0038F8 54 ADD R4 13133 S0038F9 5E ADD R14 13134 S0038FA 05 12' BRA GOAL_RING_0098 13135 S0038FC 90 SBK ;[ STW (R1) ] 13136 ; 13137 ;-------------- ƒnƒYƒŒII ---------------------------------------------- 13138 GOAL_RING_0090 13139 S0038FD BE FROM R14 13140 S0038FE 64 SUB R4 13141 S0038FF 08 0A' BNE GOAL_RING_0092 ;“–‚½‚èH ( yes:GOAL_RING_0092 ) 13142 S003901 BC FROM R12 13143 ; 13144 S003902 03 LSR 13145 S003903 0D 06' BCS GOAL_RING_0092 ;‚‚ڂÝH ( yes:GOAL_RING_0092 ) 13146 S003905 01 NOP 13147 ; 13148 S003906 F0 0220 IWT R0,#020H+(00000010B*100H) ;ƒJƒ‰[‚ð‚Q‚É 13149 S003909 1E TO R14 13150 S00390A 5E ADD R14 13151 GOAL_RING_0092 13152 S00390B 41 LDW (R1) 13153 S00390C 5E ADD R14 13154 S00390D 90 SBK ;[ STW (R1) ] 13155 ; 13156 GOAL_RING_0098 13157 S00390E D1 INC R1 13158 S00390F D1 INC R1 13159 GOAL_RING_0100 13160 S003910 BC FROM R12 13161 S003911 3E 65 SUB #10/2 13162 S003913 0D 05' BCS GOAL_RING_0110 ;—D懈ʌã‚ë‚ÖH ( no:GOAL_RING_0110 ) 13163 S003915 D1 INC R1 13164 ; 13165 S003916 A0 40 IBT R0,#40H 13166 S003918 3D 31 STB (R1) 13167 GOAL_RING_0110 13168 S00391A 3C LOOP 13169 S00391B D1 INC R1 13170 ; 13171 S00391C 3D A0 1F LMS R0,CWORK1F 13172 S00391F A5 60 IBT R5,#(13-1)*8 13173 S003921 55 ADD R5 13174 S003922 61 SUB R1 13175 S003923 0B 14' BMI GOAL_RING_0150 ;‚n‚`‚l—]‚èH ( no:GOAL_RING_0150 ) 13176 S003925 03 LSR ;1/8 13177 ; 13178 S003926 03 LSR ; 13179 S003927 1C TO R12 ; 13180 S003928 03 LSR ; 13181 S003929 DC INC R12 ;(R12) <-- ‚n‚`‚l—]‚è” 13182 S00392A 21 10 MOVE R0,R1 ;(R0) <-- ‚n‚`‚lƒCƒ“ƒfƒbƒNƒX 13183 S00392C A5 08 IBT R5,#8 ;(R5) <-- ‚n‚`‚lƒCƒ“ƒfƒbƒNƒX‰ÁŽZ’l 13184 S00392E F1 8000 IWT R1,#8000H ;(R1) <-- –¢•\Ž¦‚wÀ•W 13185 S003931 FD 3935' IWT R13,#GOAL_RING_0112+1 13186 GOAL_RING_0112 13187 S003934 B1 FROM R1 13188 S003935 30 STW (R0) 13189 S003936 55 ADD R5 13190 S003937 3C LOOP 13191 S003938 B1 FROM R1 13192 ; 13193 GOAL_RING_0150 13194 S003939 00 STOP 13195 S00393A 01 NOP 13196 ; 13197 ;-------------- “–‚½‚èII -------------------------------------- 13198 GOAL_RING_0120 13199 S00393B 3E A5 01 SMS R5,CWORK1 ;ƒAƒ^ƒŠŠG”{—¦ƒZƒbƒg 13200 ; vvv******* warn :value out of range 13201 S00393E F0 4020 IWT R0,#CIPCHD+4020H 13202 S003941 3E A0 02 SMS R0,CWORK2 13203 ; 13204 S003944 41 LDW (R1) 13205 S003945 54 ADD R4 13206 S003946 3E 54 ADD #4 13207 S003948 90 SBK ;[ STW (R1) ] ¶ãƒLƒƒƒ‰‚m‚DƒZƒbƒg 13208 ; 13209 S003949 E1 DEC R1 13210 S00394A E1 DEC R1 13211 S00394B 41 LDW (R1) 13212 S00394C 3E 68 SUB #8 13213 S00394E 90 SBK ;[ STW (R1) ] ¶ã‚xÀ•WƒZƒbƒg 13214 S00394F 20 1B MOVE R11,R0 ;(R11) <-- ¶ã‚xÀ•W 13215 ; 13216 S003951 E1 DEC R1 13217 S003952 E1 DEC R1 13218 S003953 41 LDW (R1) 13219 S003954 3E 68 SUB #8 13220 S003956 90 SBK ;[ STW (R1) ] ¶ã‚wÀ•WƒZƒbƒg 13221 S003957 20 1E MOVE R14,R0 ;(R14) <-- ¶ã‚wÀ•W 13222 ; 13223 S003959 21 WITH R1 13224 S00395A 3E 5C ADD #8+4 13225 ; 13226 S00395C 41 LDW (R1) 13227 S00395D 54 ADD R4 13228 S00395E 3E 56 ADD #6 13229 S003960 90 SBK ;[ STW (R1) ] ‰EãƒLƒƒƒ‰‚m‚DƒZƒbƒg 13230 ; 13231 S003961 E1 DEC R1 13232 S003962 E1 DEC R1 13233 S003963 BB FROM R11 13234 S003964 31 STW (R1) ;‰Eã‚xÀ•WƒZƒbƒg 13235 ; 13236 S003965 E1 DEC R1 13237 S003966 E1 DEC R1 13238 S003967 A0 10 IBT R0,#010H 13239 S003969 5E ADD R14 13240 S00396A 31 STW (R1) ;‰Eã‚wÀ•WƒZƒbƒg 13241 ; 13242 S00396B 21 WITH R1 13243 S00396C 3E 5C ADD #8+4 13244 ; 13245 S00396E 41 LDW (R1) 13246 S00396F 54 ADD R4 13247 S003970 A5 24 IBT R5,#020H+4 13248 S003972 55 ADD R5 13249 S003973 90 SBK ;[ STW (R1) ] ¶‰ºƒLƒƒƒ‰‚m‚DƒZƒbƒg 13250 ; 13251 S003974 E1 DEC R1 13252 S003975 E1 DEC R1 13253 S003976 A0 10 IBT R0,#010H 13254 S003978 5B ADD R11 13255 S003979 20 1B MOVE R11,R0 13256 S00397B 31 STW (R1) ;¶‰º‚xÀ•WƒZƒbƒg 13257 ; 13258 S00397C E1 DEC R1 13259 S00397D E1 DEC R1 13260 S00397E BE FROM R14 13261 S00397F 31 STW (R1) ;¶‰º‚wÀ•WƒZƒbƒg 13262 ; 13263 S003980 21 WITH R1 13264 S003981 3E 5C ADD #8+4 13265 ; 13266 S003983 41 LDW (R1) 13267 S003984 54 ADD R4 13268 S003985 A5 26 IBT R5,#020H+6 13269 S003987 55 ADD R5 13270 S003988 90 SBK ;[ STW (R1) ] ‰E‰ºƒLƒƒƒ‰‚m‚DƒZƒbƒg 13271 ; 13272 S003989 E1 DEC R1 13273 S00398A E1 DEC R1 13274 S00398B BB FROM R11 13275 S00398C 31 STW (R1) ;‰E‰º‚xÀ•WƒZƒbƒg 13276 ; 13277 S00398D E1 DEC R1 13278 S00398E E1 DEC R1 13279 S00398F A0 10 IBT R0,#010H 13280 S003991 5E ADD R14 13281 S003992 31 STW (R1) ;‰E‰º‚wÀ•WƒZƒbƒg 13282 ; 13283 S003993 21 WITH R1 13284 S003994 3E 56 ADD #4+2 13285 mDJMP_X GOAL_RING_0100+1 13285+ S003996 FF 3911' IWT R15, #GOAL_RING_0100+1 13286 S003999 BC FROM R12 13287 ; 13288 ; 13289 ; 13290 ; 13291 ;************************************************************************ 13292 ;>>>>>>>>>> 13293 ;SIN CURBE WRITE 13294 ;entry 13295 ;R0 = DATA_BANK 13296 ;R1 = DATA_ADDRESS 13297 ;R2 = X BAIRITU 13298 ;R3 = Y BAIRITU 13299 ;---- 13300 ;CWORK0 = X POSITION 13301 ;CWORK1 = Y POSITION 13302 ;CWORK2 = SHINPUKU 13303 ;CWORK3 = SYUUKI 13304 ;CWORK5 = H-DMA BUFFER (H scroll) 13305 ;CWORK6 = H-DMA BUFFER (V scroll) 13306 ;CWORK7 = SYUUKI ZURASHI DOT SUU 13307 ;return 13308 ;<<<<<<<<<< 13309 ;************************************************************************ 13310 ; 13311 00399A BG3_SHADOW_SET EQU $ 13312 ; 13313 S00399A 3F DF ROMB ;R0 = DATA_BANK 13314 ; 13315 ;---- initial set 13316 ; 13317 ;;; IWT R12, #0B2H ;loop conter<> 13318 S00399C FC 00D2 IWT R12, #0D2H ;loop conter<> 13319 S00399F A0 F7 IBT R0, #-9 ;set initial 13320 ;;; IWT R10, #HDMABF ;BUFFER 13321 S0039A1 3D AA 06 LMS R10, CWORK6 ; 13322 ;;; IWT R11, #HDMABF1 ;BUFFER 13323 S0039A4 3D AB 05 LMS R11, CWORK5 ;BUFFER 13324 ; 13325 S0039A7 02 CACHE 13326 ; 13327 S0039A8 2F 1D MOVE R13, R15 ; 13328 BG3SS_100 ; 13329 ;;; STW (R11) ; 13330 ;;; INC R11 ; 13331 ;;; INC R11 ; 13332 S0039AA 3A STW (R10) ; 13333 S0039AB DA INC R10 ; 13334 S0039AC DA INC R10 ; 13335 S0039AD 3C LOOP ; 13336 S0039AE E0 DEC R0 ; 13337 ; 13338 S0039AF F4 0200 IWT R4, #0200H ;R0 = 0200H 13339 S0039B2 F5 0500 IWT R5, #0500H ;R1 = 280H + 0200H 13340 ; 13341 S0039B5 3D A0 00 LMS R0, CWORK0 13342 S0039B8 54 ADD R4 13343 S0039B9 3F 65 CMP R5 13344 S0039BB 0D 0A' BCS BG3SS_108 ;> STOP 13345 S0039BD 01 NOP 13346 BG3SS_105 13347 S0039BE 3D A0 01 LMS R0, CWORK1 13348 S0039C1 54 ADD R4 13349 S0039C2 3F 65 CMP R5 13350 S0039C4 0C 03' BCC BG3SS_109 13351 S0039C6 01 NOP 13352 BG3SS_108 13353 S0039C7 00 STOP 13354 S0039C8 01 NOP 13355 BG3SS_109 13356 ; 13357 ;---- shadow set (not sin curve set) 13358 ; 13359 S0039C9 21 1E MOVE R14, R1 ;R1 = DATA_ADDRESS 13360 S0039CB EF GETB ;R0 = DATA LENGTH 13361 S0039CC DE INC R14 13362 ; 13363 S0039CD 16 TO R6 ; 13364 S0039CE 4D SWAP ; 13365 S0039CF B3 FROM R3 ; 13366 S0039D0 9F FMULT ; 13367 S0039D1 20 11 MOVE R1, R0 ;R1 = Dyw * Yz (loop counter set) 13368 S0039D3 3D 96 DIV2 ; 13369 S0039D5 08 05' BNE BG3SS_110 ;DISPLAY NON 13370 S0039D7 01 NOP 13371 mDJMP_X BG3SS_900 13371+ S0039D8 FF 3ACA' IWT R15, #BG3SS_900 13372 S0039DB 01 NOP 13373 ; 13374 BG3SS_110 13375 S0039DC 3D A5 01 LMS R5, CWORK1 13376 ;;; IWT R9, #070H-0B2H/2-8 ; 13377 S0039DF F9 FFFF IWT R9, #070H-0D2H/2-8 ; 13378 S0039E2 B5 FROM R5 ; 13379 S0039E3 60 SUB R0 ; 13380 S0039E4 69 SUB R9 ; 13381 S0039E5 19 TO R9 ; 13382 S0039E6 50 ADD R0 ;R9 = (Yp - (080H - 0D2H/2) - Dyw / 2 * Yz) *2 13383 S0039E7 3E A9 04 SMS R9, CWORK4 13384 ; 13385 ;; IWT R7, #HDMABF ;wide set buffer 13386 ;; IWT R8, #HDMABF1 ;H scroll counter 13387 S0039EA 3D A7 06 LMS R7, CWORK6 13388 S0039ED 3D A8 05 LMS R8, CWORK5 13389 S0039F0 AB 00 IBT R11, #000H ;KASANTI 13390 ; vvv******* warn :value out of range 13391 S0039F2 F5 2200 IWT R5, #DIVBUF ;gyakusuu get 13392 S0039F5 B3 FROM R3 ; 13393 S0039F6 53 ADD R3 ; 13394 S0039F7 55 ADD R5 ; 13395 S0039F8 15 TO R5 ; 13396 S0039F9 40 LDW (R0) ;gyakusuu 13397 ; 13398 S0039FA F6 0080 IWT R6, #080H 13399 S0039FD 3D A0 00 LMS R0, CWORK0 13400 S003A00 66 SUB R6 13401 S003A01 4F NOT 13402 S003A02 D0 INC R0 13403 S003A03 3E A0 00 SMS R0, CWORK0 13404 ; 13405 S003A06 EF GETB 13406 ; 13407 S003A07 02 CACHE 13408 ; 13409 S003A08 21 1C MOVE R12, R1 ;loop count = Dyw * Yz 13410 S003A0A 2F 1D MOVE R13, R15 13411 BG3SS_200 13412 ;;; IWT R6, #0B2H*2 13413 S003A0C F6 01A4 IWT R6, #0D2H*2 13414 ; 13415 S003A0F B9 FROM R9 ;MIN & MAX CHECK 13416 S003A10 3F 66 CMP R6 ; 13417 S003A12 0D 24' BCS BG3SS_210 ; 13418 S003A14 01 NOP 13419 ; 13420 S003A15 DE INC R14 13421 ; 13422 S003A16 B8 FROM R8 ;R10 = H_HDMA_POINTER + W_POINTER 13423 S003A17 1A TO R10 ; 13424 S003A18 59 ADD R9 ; 13425 ; 13426 S003A19 16 TO R6 13427 S003A1A 4D SWAP 13428 S003A1B B2 FROM R2 13429 S003A1C 9F FMULT 13430 ;; WITH R4 13431 ;; HIB 13432 ;; LOB 13433 ;; SWAP 13434 ;; OR R4 13435 13436 S003A1D 3D A6 00 LMS R6, CWORK0 ;XPOS GET 13437 S003A20 B6 FROM R6 13438 S003A21 50 ADD R0 13439 S003A22 3A STW (R10) ;H scroll set (cetnter set) 13440 ; 13441 S003A23 16 TO R6 13442 S003A24 EF GETB 13443 S003A25 EE DEC R14 13444 ; 13445 S003A26 B2 FROM R2 13446 S003A27 3D 9F LMULT ;Xw * Xz 13447 S003A29 24 WITH R4 13448 S003A2A C0 HIB 13449 S003A2B 9E LOB 13450 S003A2C 4D SWAP 13451 S003A2D C4 OR R4 13452 S003A2E 50 ADD R0 ;*2 13453 ; 13454 S003A2F B7 FROM R7 ;R10 = HDMA_POINTER + W_POINTER 13455 S003A30 1A TO R10 ; 13456 S003A31 59 ADD R9 ; 13457 ; 13458 S003A32 69 SUB R9 13459 S003A33 3D 96 DIV2 13460 S003A35 3E 69 SUB #009H 13461 S003A37 3A STW (R10) ;wide set (wide set) 13462 BG3SS_210 13463 S003A38 2B WITH R11 ;minimum counter add 13464 S003A39 55 ADD R5 ; 13465 S003A3A BB FROM R11 ;seisuu bu get 13466 S003A3B C0 HIB ; 13467 S003A3C 50 ADD R0 ;seisuubu *2 13468 S003A3D 2E WITH R14 ;rom buffer plus 13469 S003A3E 50 ADD R0 ; 13470 S003A3F 2B WITH R11 ;R1 &= 0FFH (syou suu bu get) 13471 S003A40 9E LOB ; 13472 ; 13473 S003A41 D9 INC R9 13474 ; 13475 S003A42 EF GETB 13476 ; 13477 S003A43 3C LOOP 13478 S003A44 D9 INC R9 13479 ; 13480 ;;; STOP 13481 ;;; NOP 13482 ; 13483 ; 13484 ;---- sin wave set 13485 ; 13486 BG3SS_300 13487 ; 13488 S003A45 A0 00' IBT R0, #BANK LSIN 13489 S003A47 3F DF ROMB 13490 ; 13491 S003A49 3D AB 03 LMS R11, CWORK3 ;syuuki get vvv******* warn :value out of range 13492 S003A4C F5 2200 IWT R5, #DIVBUF ;gyakusuu get 13493 S003A4F BB FROM R11 ; 13494 S003A50 5B ADD R11 ; 13495 S003A51 55 ADD R5 ; 13496 S003A52 1B TO R11 ; 13497 S003A53 40 LDW (R0) ;gyakusuu 13498 ; 13499 S003A54 F0 00FF IWT R0, #00FFH 13500 S003A57 3D A2 07 LMS R2, CWORK7 13501 S003A5A 12 TO R2 13502 S003A5B 72 AND R2 13503 ; 13504 S003A5C B1 FROM R1 ;R1 = Dyw * Yz / 2 13505 S003A5D 16 TO R6 ; 13506 S003A5E 3D 96 DIV2 ; 13507 S003A60 26 WITH R6 13508 S003A61 52 ADD R2 13509 S003A62 BB FROM R11 ;R0 = (Dyw * Yz /2 ) * syuuki 13510 S003A63 3D 9F LMULT ; 13511 S003A65 24 WITH R4 ; 13512 S003A66 C0 HIB ; 13513 S003A67 9E LOB ; 13514 S003A68 4D SWAP ; 13515 S003A69 C4 OR R4 ; 13516 S003A6A 4F NOT ; 13517 S003A6B D0 INC R0 ; 13518 S003A6C 1A TO R10 ; 13519 S003A6D 9E LOB ; 13520 ; 13521 ;;; IWT R5, #HDMABF1 13522 S003A6E 3D A5 05 LMS R5, CWORK5 13523 S003A71 3D A3 04 LMS R3, CWORK4 13524 ; 13525 S003A74 F2 04DD' IWT R2, #LSIN ;rom address set 13526 S003A77 B2 FROM R2 ; 13527 S003A78 1E TO R14 ; 13528 S003A79 5A ADD R10 ; 13529 ; 13530 S003A7A A9 00 IBT R9, #000H ; 13531 S003A7C 3D A0 02 LMS R0, CWORK2 ;R6 = shinpuku * 4 /2 13532 ;;; ADD R0 ; 13533 S003A7F 16 TO R6 ; 13534 S003A80 50 ADD R0 ; 13535 ; 13536 S003A81 EF GETB 13537 ; 13538 S003A82 02 CACHE 13539 ; 13540 S003A83 F8 0200 IWT R8, #0100H+0100H 13541 ;;; IWT R10, #080H 13542 ; 13543 S003A86 21 1C MOVE R12, R1 13544 S003A88 2F 1D MOVE R13, R15 13545 BG3SS_310 13546 S003A8A 95 SEX 13547 S003A8B 3D 9F LMULT 13548 ; 13549 ;;; IWT R1, #0B2H*2 13550 S003A8D F1 01A4 IWT R1, #0D2H*2 13551 S003A90 B3 FROM R3 13552 S003A91 3F 61 CMP R1 13553 S003A93 0D 25' BCS BG3SS_340 13554 S003A95 01 NOP 13555 ; 13556 S003A96 24 WITH R4 13557 S003A97 C0 HIB 13558 S003A98 9E LOB 13559 S003A99 4D SWAP 13560 S003A9A 17 TO R7 13561 S003A9B C4 OR R4 13562 ; 13563 S003A9C B5 FROM R5 ;address calc 13564 S003A9D 11 TO R1 ; 13565 S003A9E 53 ADD R3 ; 13566 ; 13567 S003A9F FE 0100 IWT R14, #0100H 13568 ; 13569 S003AA2 41 LDW (R1) 13570 S003AA3 57 ADD R7 13571 S003AA4 14 TO R4 13572 S003AA5 5E ADD R14 13573 S003AA6 B4 FROM R4 13574 S003AA7 3F 68 CMP R8 13575 S003AA9 0C 0E' BCC BG3SS_330 13576 S003AAB 01 NOP 13577 ; 13578 ;; IWT R0, #HDMABF 13579 S003AAC 3D A0 06 LMS R0, CWORK6 13580 S003AAF 17 TO R7 13581 S003AB0 53 ADD R3 13582 ; 13583 S003AB1 B3 FROM R3 13584 S003AB2 3D 96 DIV2 13585 S003AB4 4F NOT 13586 S003AB5 D0 INC R0 13587 S003AB6 3E 69 SUB #009H 13588 S003AB8 37 STW (R7) 13589 13590 BG3SS_330 13591 S003AB9 90 SBK ;STW (R1) 13592 BG3SS_340 13593 S003ABA 29 WITH R9 ;minmum pnt += syuuki 13594 S003ABB 5B ADD R11 ; 13595 S003ABC B9 FROM R9 ; 13596 S003ABD C0 HIB ; 13597 S003ABE 5A ADD R10 13598 S003ABF 1A TO R10 13599 S003AC0 9E LOB 13600 S003AC1 B2 FROM R2 13601 S003AC2 1E TO R14 13602 S003AC3 5A ADD R10 13603 S003AC4 29 WITH R9 13604 S003AC5 9E LOB 13605 ; 13606 S003AC6 D3 INC R3 13607 S003AC7 D3 INC R3 13608 ; 13609 S003AC8 3C LOOP 13610 S003AC9 EF GETB 13611 ; 13612 BG3SS_900 13613 S003ACA 00 STOP 13614 S003ACB 01 NOP 13615 ; 13616 ; 13617 ;>>>>>>>>>> 13618 ;BG3_SEESAW_SET 13619 ;entry 13620 ;R1 = DATA ROM BANK 13621 ;R2 = DATA ADDRESS 13622 ;R3 = ANGLE (000H-0FFH) 13623 ;<<<<<<<<<< 13624 ; 13625 003ACC BG3_SEESAW_SET EQU $ 13626 ; 13627 ;---angle sin cos paramter get 13628 ; 13629 S003ACC B3 FROM R3 ;R5 = angle * 2 13630 S003ACD 15 TO R5 ; 13631 S003ACE 53 ADD R3 ; 13632 ; 13633 S003ACF A0 00' IBT R0, #BANK SIN 13634 S003AD1 3F DF ROMB 13635 S003AD3 F0 029D' IWT R0, #SIN 13636 S003AD6 1E TO R14 13637 S003AD7 55 ADD R5 13638 ; 13639 S003AD8 EF GETB ;sin paramter get 13640 S003AD9 DE INC R14 13641 S003ADA 3D EF GETBH 13642 S003ADC 20 17 MOVE R7, R0 13643 ; 13644 S003ADE F0 021D' IWT R0, #COS 13645 S003AE1 1E TO R14 13646 S003AE2 55 ADD R5 13647 ; 13648 S003AE3 EF GETB ;cos paramter get 13649 S003AE4 DE INC R14 13650 S003AE5 3D EF GETBH 13651 S003AE7 20 18 MOVE R8 , R0 13652 ; 13653 ;--- paramter turn 13654 ; 13655 S003AE9 B1 FROM R1 13656 S003AEA 3F DF ROMB 13657 ; 13658 S003AEC 22 1E MOVE R14, R2 13659 ; 13660 S003AEE 11 TO R1 ;R1 = point kazu 13661 S003AEF EF GETB 13662 S003AF0 DE INC R14 13663 ; vvv******* warn :value out of range 13664 S003AF1 F5 449E IWT R5, #BG3_POLYGON_DT ;R5 = 000H (top data address) 13665 S003AF4 3E A5 24 SMS R5, REG4 13666 ; 13667 S003AF7 B1 FROM R1 ;number 13668 S003AF8 51 ADD R1 ;*2 13669 S003AF9 50 ADD R0 ;*4 13670 S003AFA 55 ADD R5 ; 13671 S003AFB 3E 64 SUB #004H ;-data length 13672 S003AFD 3E A0 25 SMS R0, REG5 13673 ; 13674 S003B00 02 CACHE 13675 ; 13676 S003B01 21 1C MOVE R12, R1 ;loop counter set 13677 S003B03 2F 1D MOVE R13, R15 13678 BG3SES2_010 13679 S003B05 16 TO R6 ;R6 = X paramter get 13680 S003B06 3F EF GETBS ; 13681 S003B08 DE INC R14 ; 13682 S003B09 B7 FROM R7 ;R9 = X * sin (angle) 13683 S003B0A 3D 9F LMULT ; 13684 S003B0C 24 WITH R4 ; 13685 S003B0D C0 HIB ; 13686 S003B0E 9E LOB ; 13687 S003B0F 4D SWAP ; 13688 S003B10 19 TO R9 ; 13689 S003B11 C4 OR R4 ; 13690 ; 13691 S003B12 B8 FROM R8 ;R10 = X * cos (angle) 13692 S003B13 3D 9F LMULT ; 13693 S003B15 24 WITH R4 ; 13694 S003B16 C0 HIB ; 13695 S003B17 9E LOB ; 13696 S003B18 4D SWAP ; 13697 S003B19 1A TO R10 ; 13698 S003B1A C4 OR R4 ; 13699 ; 13700 S003B1B 16 TO R6 ;R6 = Y paramter get 13701 S003B1C 3F EF GETBS ; 13702 S003B1E DE INC R14 ; 13703 S003B1F B7 FROM R7 ;R0 = Y * sin(angle) 13704 S003B20 3D 9F LMULT ; 13705 S003B22 24 WITH R4 ; 13706 S003B23 C0 HIB ; 13707 S003B24 9E LOB ; 13708 S003B25 4D SWAP ; 13709 S003B26 C4 OR R4 ; 13710 ; 13711 S003B27 BA FROM R10 ;R9 = X * cos(angle) - Y * sin(angle) 13712 S003B28 60 SUB R0 ; 13713 ; 13714 S003B29 35 STW (R5) 13715 S003B2A D5 INC R5 13716 S003B2B D5 INC R5 13717 ; 13718 S003B2C B8 FROM R8 ;R0 = Y * cos(angle) 13719 S003B2D 3D 9F LMULT ; 13720 S003B2F 24 WITH R4 ; 13721 S003B30 C0 HIB ; 13722 S003B31 9E LOB ; 13723 S003B32 4D SWAP ; 13724 S003B33 C4 OR R4 ; 13725 ; 13726 S003B34 59 ADD R9 ;R0 = Y * cos(angle) + X * sin(angle) 13727 ; 13728 S003B35 35 STW (R5) 13729 S003B36 D5 INC R5 13730 ; 13731 S003B37 3C LOOP 13732 S003B38 D5 INC R5 13733 ; 13734 S003B39 A0 01 IBT R0, #0001H 13735 S003B3B 3E A0 2F SMS R0, REG15 13736 ; 13737 mDJMP BG_POLYGON_SET 13737+ S003B3E FF 4067' IWT R15, #BG_POLYGON_SET 13737+ S003B41 01 NOP 13738 ; 13739 ; 13740 ;>>> 13741 ;function 13742 ; ƒ|ƒCƒ“ƒgƒf[ƒ^‚É‚aƒXƒvƒ‰ƒCƒ“ˆ—‚ðs‚¤ 13743 ;name 13744 ;entry 13745 ; REG0 : Xp(000H-0FFH) 13746 ; REG1 : Yp(000H-0FFH) 13747 ; BSPL_B_POINT : B-SPLINE POINT BUFFER 13748 ; DATA FORMAT 13749 ; POINT OF NUMBER 1BYTE 13750 ; X POINT NUMBER 1BYTE 13751 ; Y POINT NUMBER 1BYTE 13752 ;return 13753 ; BG3_POLYGON_DT : POLYGON_DT POINT BUFFER 13754 ; X POINT NUMBER 2BYTE 13755 ; Y POINT NUMBER 2BYTE 13756 ;<<< 13757 003B42 BG3_BSPLINE_SET EQU $ 13758 ; 13759 ;---- initial set 13760 ; 13761 ;;; IWT R12, #0B2H ;loop conter<> 13762 ;; IWT R12, #0D2H ;loop conter<> 13763 ;; IBT R0, #-9 ;set initial 13764 ;; IWT R10, #HDMABF ;BUFFER 13765 ; 13766 ;; CACHE 13767 ; 13768 ;; MOVE R13, R15 ; 13769 BSPS_001 ; 13770 ;; STW (R10) ; 13771 ;; INC R10 ; 13772 ;; INC R10 ; 13773 ;; LOOP ; 13774 ;; DEC R0 ; 13775 ; 13776 ;--- dispaly range check 13777 ; 13778 ;; LMS R8, REG0 13779 ;; IWT R0, #00080H 13780 ;; IWT R9, #00200H 13781 ;; ADD R8 13782 ;; SUB R9 13783 ;; BCS BSP_005 13784 ;; NOP 13785 ; 13786 ;; LMS R8, REG1 13787 ;; IWT R0, #0B2H/2 ;B2/2 13788 ;; IWT R9, #0B2H*2 13789 ;; IWT R0, #0D2H/2 ;D2/2 13790 ;; IWT R9, #0D2H*2 13791 ;; ADD R8 13792 ;; SUB R9 13793 ;; BCC BSP_009 13794 ;; NOP 13795 BSP_005 13796 ;; STOP 13797 ;; NOP 13798 BSP_009 vvv******* warn :value out of range 13799 S003B42 F1 49C6 IWT R1, #BSPL_B_POINT 13800 ;;; IWT R0, #BG3_POLYGON_DT vvv******* warn :value out of range 13801 S003B45 FB 449E IWT R11, #BG3_POLYGON_DT 13802 ; 13803 ;;; mJSR BSPLINE_SUB 13804 ; 13805 ; 13806 003B48 BSPLINE_SUB EQU $ 13807 ; 13808 ;;; SMS R11, REG11 ;R11 BACKUP 13809 ; 13810 ;;; MOVE R11, R0 13811 ; 13812 S003B48 1C TO R12 ;ŒÂ”Žæ‚èo‚µƒ‹[ƒv‰ñ”Œˆ’è 13813 S003B49 3D 41 LDB (R1) ; 13814 S003B4B 3E AC 26 SMS R12, REG6 ; 13815 S003B4E 3E AB 24 SMS R11, REG4 ; 13816 S003B51 D1 INC R1 13817 S003B52 21 13 MOVE R3, R1 13818 S003B54 BC FROM R12 13819 S003B55 5C ADD R12 13820 S003B56 1E TO R14 13821 S003B57 51 ADD R1 13822 ; 13823 S003B58 EE DEC R14 13824 ; 13825 S003B59 14 TO R4 ; 13826 S003B5A 3D 41 LDB (R1) ;P1X get 13827 S003B5C D1 INC R1 ; 13828 ; 13829 S003B5D 15 TO R5 ; 13830 S003B5E 3D 41 LDB (R1) ;P1Y get 13831 S003B60 D1 INC R1 ; 13832 ; 13833 S003B61 17 TO R7 ; 13834 S003B62 3D 41 LDB (R1) ;P2X get 13835 S003B64 D1 INC R1 ; 13836 ; 13837 S003B65 18 TO R8 ; 13838 S003B66 3D 41 LDB (R1) ;P2Y get 13839 S003B68 D1 INC R1 ; 13840 ; 13841 S003B69 19 TO R9 ; 13842 S003B6A 3D 41 LDB (R1) ;P3X get 13843 S003B6C D1 INC R1 ; 13844 ; 13845 S003B6D 1A TO R10 ; 13846 S003B6E 3D 41 LDB (R1) ;P3Y get 13847 S003B70 D1 INC R1 ; 13848 ; 13849 S003B71 B1 FROM R1 13850 S003B72 6E SUB R14 13851 S003B73 0C 03' BCC BSPRST_005 13852 S003B75 02 CACHE 13853 ; 13854 S003B76 23 11 MOVE R1, R3 13855 BSPRST_005 13856 S003B78 2F 1D MOVE R13, R15 13857 BSPRST_010 13858 ;; IBT R0, #01EH ;X[0.0] = X1 * 0.50 + X2 * 0.50 + X3 * 0.00 13859 S003B7A A0 20 IBT R0, #020H ;X[0.0] = X1 * 0.50 + X2 * 0.50 + X3 * 0.00 13860 S003B7C 12 TO R2 ; 13861 S003B7D 84 MULT R4 ; 13862 S003B7E A6 20 IBT R6, #020H ; 13863 S003B80 B7 FROM R7 ; 13864 S003B81 86 MULT R6 ; 13865 S003B82 52 ADD R2 ; 13866 S003B83 3D 96 DIV2 ; 13867 S003B85 3D 96 DIV2 ; 13868 S003B87 3D 96 DIV2 ; 13869 S003B89 3D 96 DIV2 ; 13870 S003B8B 3D 96 DIV2 ; 13871 S003B8D 3D 96 DIV2 ; 13872 S003B8F 3F 50 ADC #0 ; 13873 S003B91 3B STW (R11) ;X[0.0] set 13874 S003B92 DB INC R11 13875 S003B93 DB INC R11 13876 ; 13877 ;;; IBT R6, #020H ;Y[0.0] = Y1 * 0.50 + Y2 * 0.50 + Y3 * 0.00 13878 S003B94 B8 FROM R8 ; 13879 S003B95 12 TO R2 ; 13880 S003B96 86 MULT R6 ; 13881 S003B97 A0 20 IBT R0, #020H ; 13882 ;;; IBT R0, #01EH ; 13883 S003B99 85 MULT R5 ; 13884 S003B9A 52 ADD R2 ; 13885 S003B9B 3D 96 DIV2 ; 13886 S003B9D 3D 96 DIV2 ; 13887 S003B9F 3D 96 DIV2 ; 13888 S003BA1 3D 96 DIV2 ; 13889 S003BA3 3D 96 DIV2 ; 13890 S003BA5 3D 96 DIV2 ; 13891 S003BA7 3F 50 ADC #0 ; 13892 S003BA9 3B STW (R11) ;Y[0.0] set 13893 S003BAA DB INC R11 ; 13894 S003BAB DB INC R11 13895 ; 13896 ;;; IBT R0, #013H ;X[0.2] = X1 * 0.32 + X2 * 0.66 + X3 * 0.02 13897 S003BAC A0 15 IBT R0, #015H ;X[0.2] = X1 * 0.32 + X2 * 0.66 + X3 * 0.02 13898 S003BAE 12 TO R2 ; 13899 S003BAF 84 MULT R4 ; 13900 S003BB0 A0 2A IBT R0, #02AH ; 13901 S003BB2 87 MULT R7 ; 13902 S003BB3 22 WITH R2 ; 13903 S003BB4 50 ADD R0 ; 13904 S003BB5 A6 01 IBT R6, #001H ; 13905 S003BB7 B9 FROM R9 ; 13906 S003BB8 86 MULT R6 ; 13907 S003BB9 52 ADD R2 ; 13908 S003BBA 3D 96 DIV2 ; 13909 S003BBC 3D 96 DIV2 ; 13910 S003BBE 3D 96 DIV2 ; 13911 S003BC0 3D 96 DIV2 ; 13912 S003BC2 3D 96 DIV2 ; 13913 S003BC4 3D 96 DIV2 ; 13914 S003BC6 3F 50 ADC #0 ; 13915 S003BC8 3B STW (R11) ;X[0.2] set 13916 S003BC9 DB INC R11 13917 S003BCA DB INC R11 13918 ; 13919 ;;; IWT R6, #001H ;Y[0.2] = Y1 * 0.32 + Y2 * 0.66 + Y3 * 0.02 13920 S003BCB BA FROM R10 ; 13921 S003BCC 12 TO R2 ; 13922 S003BCD 86 MULT R6 ; 13923 S003BCE A0 2A IBT R0, #02AH ; 13924 S003BD0 88 MULT R8 ; 13925 S003BD1 22 WITH R2 ; 13926 S003BD2 50 ADD R0 ; 13927 ;;; IBT R0, #013H ; 13928 S003BD3 A0 15 IBT R0, #015H ; 13929 S003BD5 85 MULT R5 ; 13930 S003BD6 52 ADD R2 ; 13931 S003BD7 3D 96 DIV2 ; 13932 S003BD9 3D 96 DIV2 ; 13933 S003BDB 3D 96 DIV2 ; 13934 S003BDD 3D 96 DIV2 ; 13935 S003BDF 3D 96 DIV2 ; 13936 S003BE1 3D 96 DIV2 ; 13937 S003BE3 3F 50 ADC #0 ; 13938 S003BE5 3B STW (R11) ;Y[0.2] set 13939 S003BE6 DB INC R11 ; 13940 S003BE7 DB INC R11 13941 ; 13942 ;;; IBT R0, #00BH ;X[0.4] = X1 * 0.18 + X2 * 0.74 + X3 * 0.08 13943 S003BE8 A0 0C IBT R0, #00CH ;X[0.4] = X1 * 0.18 + X2 * 0.74 + X3 * 0.08 13944 S003BEA 12 TO R2 ; 13945 S003BEB 84 MULT R4 ; 13946 S003BEC A0 2F IBT R0, #02FH ; 13947 S003BEE 87 MULT R7 ; 13948 S003BEF 22 WITH R2 ; 13949 S003BF0 50 ADD R0 ; 13950 ;;; IBT R6, #004H ; 13951 S003BF1 A6 05 IBT R6, #005H ; 13952 S003BF3 B9 FROM R9 ; 13953 S003BF4 86 MULT R6 ; 13954 S003BF5 52 ADD R2 ; 13955 S003BF6 3D 96 DIV2 ; 13956 S003BF8 3D 96 DIV2 ; 13957 S003BFA 3D 96 DIV2 ; 13958 S003BFC 3D 96 DIV2 ; 13959 S003BFE 3D 96 DIV2 ; 13960 S003C00 3D 96 DIV2 ; 13961 S003C02 3F 50 ADC #0 ; 13962 S003C04 3B STW (R11) ;X[0.4] set 13963 S003C05 DB INC R11 13964 S003C06 DB INC R11 13965 ; 13966 ;;;;;; IWT R6, #004H ;Y[0.4] = Y1 * 0.18 + Y2 * 0.74 + Y3 * 0.08 13967 ;;; IWT R6, #005H ;Y[0.4] = Y1 * 0.18 + Y2 * 0.74 + Y3 * 0.08 13968 S003C07 BA FROM R10 ; 13969 S003C08 12 TO R2 ; 13970 S003C09 86 MULT R6 ; 13971 S003C0A A0 2F IBT R0, #02FH ; 13972 S003C0C 88 MULT R8 ; 13973 S003C0D 22 WITH R2 ; 13974 S003C0E 50 ADD R0 ; 13975 ;;; IBT R6, #00BH ; 13976 S003C0F A6 0C IBT R6, #00CH ; 13977 S003C11 B5 FROM R5 ; 13978 S003C12 86 MULT R6 ; 13979 S003C13 52 ADD R2 ; 13980 S003C14 3D 96 DIV2 ; 13981 S003C16 3D 96 DIV2 ; 13982 S003C18 3D 96 DIV2 ; 13983 S003C1A 3D 96 DIV2 ; 13984 S003C1C 3D 96 DIV2 ; 13985 S003C1E 3D 96 DIV2 ; 13986 S003C20 3F 50 ADC #0 ; 13987 S003C22 3B STW (R11) ;Y[0.4] set 13988 S003C23 DB INC R11 ; 13989 S003C24 DB INC R11 13990 ; 13991 ;;;;;; IBT R6, #00BH ;X[0.6] = X1 * 0.08 + X2 * 0.74 + X3 * 0.18 13992 ;;; IBT R6, #00CH ;X[0.6] = X1 * 0.08 + X2 * 0.74 + X3 * 0.18 13993 S003C25 B9 FROM R9 ; 13994 S003C26 12 TO R2 ; 13995 S003C27 86 MULT R6 ; 13996 S003C28 A0 2F IBT R0, #02FH ; 13997 S003C2A 87 MULT R7 ; 13998 S003C2B 22 WITH R2 ; 13999 S003C2C 50 ADD R0 ; 14000 ;;; IBT R6, #004H ; 14001 S003C2D A6 05 IBT R6, #005H ; 14002 S003C2F B4 FROM R4 ; 14003 S003C30 86 MULT R6 ; 14004 S003C31 52 ADD R2 ; 14005 S003C32 3D 96 DIV2 ; 14006 S003C34 3D 96 DIV2 ; 14007 S003C36 3D 96 DIV2 ; 14008 S003C38 3D 96 DIV2 ; 14009 S003C3A 3D 96 DIV2 ; 14010 S003C3C 3D 96 DIV2 ; 14011 S003C3E 3F 50 ADC #0 ; 14012 S003C40 3B STW (R11) ;X[0.6] set 14013 S003C41 DB INC R11 14014 S003C42 DB INC R11 14015 ; 14016 ;;;;;; IWT R6, #004H ;Y[0.6] = Y1 * 0.08 + Y2 * 0.74 + Y3 * 0.18 14017 ;;; IWT R6, #005H ;Y[0.6] = Y1 * 0.08 + Y2 * 0.74 + Y3 * 0.18 14018 S003C43 B5 FROM R5 ; 14019 S003C44 12 TO R2 ; 14020 S003C45 86 MULT R6 ; 14021 S003C46 A0 2F IBT R0, #02FH ; 14022 S003C48 88 MULT R8 ; 14023 S003C49 22 WITH R2 ; 14024 S003C4A 50 ADD R0 ; 14025 ;;; IBT R0, #00BH ; 14026 S003C4B A0 0C IBT R0, #00CH ; 14027 S003C4D 8A MULT R10 ; 14028 S003C4E 52 ADD R2 ; 14029 S003C4F 3D 96 DIV2 ; 14030 S003C51 3D 96 DIV2 ; 14031 S003C53 3D 96 DIV2 ; 14032 S003C55 3D 96 DIV2 ; 14033 S003C57 3D 96 DIV2 ; 14034 S003C59 3D 96 DIV2 ; 14035 S003C5B 3F 50 ADC #0 ; 14036 S003C5D 3B STW (R11) ;Y[0.6] set 14037 S003C5E DB INC R11 ; 14038 S003C5F DB INC R11 14039 ; 14040 S003C60 A0 01 IBT R0, #001H ;X[0.8] = X1 * 0.02 + X2 * 0.66 + X3 * 0.32 14041 S003C62 12 TO R2 ; 14042 S003C63 84 MULT R4 ; 14043 S003C64 A0 2A IBT R0, #02AH ; 14044 S003C66 87 MULT R7 ; 14045 S003C67 22 WITH R2 ; 14046 S003C68 50 ADD R0 ; 14047 ;;; IBT R6, #013H ; 14048 S003C69 A6 15 IBT R6, #015H ; 14049 S003C6B B9 FROM R9 ; 14050 S003C6C 86 MULT R6 ; 14051 S003C6D 52 ADD R2 ; 14052 S003C6E 3D 96 DIV2 ; 14053 S003C70 3D 96 DIV2 ; 14054 S003C72 3D 96 DIV2 ; 14055 S003C74 3D 96 DIV2 ; 14056 S003C76 3D 96 DIV2 ; 14057 S003C78 3D 96 DIV2 ; 14058 S003C7A 3F 50 ADC #0 ; 14059 S003C7C 3B STW (R11) ;X[0.8] set 14060 S003C7D DB INC R11 14061 S003C7E DB INC R11 14062 ; 14063 ;;;;;; IWT R6, #013H ;Y[0.8] = Y1 * 0.02 + Y2 * 0.66 + Y3 * 0.32 14064 ;;; IWT R6, #015H ;Y[0.8] = Y1 * 0.02 + Y2 * 0.66 + Y3 * 0.32 14065 S003C7F BA FROM R10 ; 14066 S003C80 12 TO R2 ; 14067 S003C81 86 MULT R6 ; 14068 S003C82 A0 2A IBT R0, #02AH ; 14069 S003C84 88 MULT R8 ; 14070 S003C85 22 WITH R2 ; 14071 S003C86 50 ADD R0 ; 14072 S003C87 A0 01 IBT R0, #001H ; 14073 S003C89 85 MULT R5 ; 14074 S003C8A 52 ADD R2 ; 14075 S003C8B 3D 96 DIV2 ; 14076 S003C8D 3D 96 DIV2 ; 14077 S003C8F 3D 96 DIV2 ; 14078 S003C91 3D 96 DIV2 ; 14079 S003C93 3D 96 DIV2 ; 14080 S003C95 3D 96 DIV2 ; 14081 S003C97 3F 50 ADC #0 ; 14082 S003C99 3B STW (R11) ;Y[0.0] set 14083 ; 14084 S003C9A 27 14 MOVE R4, R7 ;X2 -> X1 14085 S003C9C 28 15 MOVE R5, R8 ;Y2 -> Y1 14086 S003C9E 29 17 MOVE R7, R9 ;X3 -> X2 14087 S003CA0 2A 18 MOVE R8, R10 ;Y3 -> Y2 14088 ; 14089 S003CA2 19 TO R9 14090 S003CA3 3D 41 LDB (R1) ;X3 load 14091 S003CA5 D1 INC R1 14092 S003CA6 1A TO R10 14093 S003CA7 3D 41 LDB (R1) 14094 S003CA9 D1 INC R1 14095 ; 14096 S003CAA B1 FROM R1 14097 S003CAB 6E SUB R14 14098 S003CAC 0C 03' BCC BSPRST_040 14099 S003CAE DB INC R11 14100 ; 14101 S003CAF 23 11 MOVE R1, R3 14102 BSPRST_040 14103 S003CB1 3C LOOP 14104 S003CB2 DB INC R11 14105 ; 14106 S003CB3 3D A2 24 LMS R2, REG4 ;store data end address-4 14107 S003CB6 3D A1 26 LMS R1, REG6 14108 S003CB9 B1 FROM R1 14109 S003CBA 51 ADD R1 ;*2 14110 S003CBB 50 ADD R0 ;*4 14111 S003CBC 51 ADD R1 ;*5 14112 S003CBD 20 11 MOVE R1, R0 14113 S003CBF 50 ADD R0 ;*10<*2> 14114 S003CC0 50 ADD R0 ;*20<*4> 14115 S003CC1 52 ADD R2 ;+base address 14116 S003CC2 3E 64 SUB #004H 14117 S003CC4 3E A0 25 SMS R0, REG5 14118 ; 14119 ;;; LMS R11, REG11 14120 ; 14121 ;;; mRTS 14122 ; 14123 S003CC7 A0 01 IBT R0, #001H 14124 S003CC9 3E A0 2F SMS R0, REG15 14125 ; 14126 mDJMP BG_POLYGON_SET 14126+ S003CCC FF 4067' IWT R15, #BG_POLYGON_SET 14126+ S003CCF 01 NOP 14127 ; 14128 ; 14129 ;>>> 14130 ;function 14131 ; ƒ|ƒCƒ“ƒgƒf[ƒ^‚É‚aƒXƒvƒ‰ƒCƒ“ˆ—‚ðs‚¤i‚QƒoƒCƒg”Åj 14132 ;name 14133 ; PT_BSPLINE_RW 14134 ;entry 14135 ; R2 : ƒ|ƒCƒ“ƒgŒÂ”iƒXƒvƒ‰ƒCƒ“—p‚̌”j 14136 ; REG0 : Xp(000H-0FFH) 14137 ; REG1 : Yp(000H-0FFH) 14138 ; BSPL_B_POINT : B-SPLINE POINT BUFFER 14139 ; X POINT NUMBER 2BYTE 14140 ; Y POINT NUMBER 2BYTE 14141 ;return 14142 ; BG3_POLYGON_DT : POLYGON_DT POINT BUFFER 14143 ; X POINT NUMBER 2BYTE 14144 ; Y POINT NUMBER 2BYTE 14145 ;<<< 14146 003CD0 BG_BSPLINE_AW EQU $ vvv******* warn :value out of range 14147 S003CD0 F1 49C6 IWT R1, #BSPL_B_POINT vvv******* warn :value out of range 14148 S003CD3 F0 449E IWT R0, #BG3_POLYGON_DT 14149 ; 14150 mJSR BSPLINE_RW_SUB 14150+ S003CD6 94 LINK #4 14150+ S003CD7 FF 3CF2' IWT R15, #BSPLINE_RW_SUB 14150+ S003CDA 01 NOP 14151 ; 14152 S003CDB A0 01 IBT R0, #001H 14153 S003CDD 3E A0 2F SMS R0, REG15 14154 ; 14155 mDJMP BG_POLYGON_SET 14155+ S003CE0 FF 4067' IWT R15, #BG_POLYGON_SET 14155+ S003CE3 01 NOP 14156 S003CE4 01 NOP 14157 ; 14158 003CE5 PT_BSPLINE_AW EQU $ vvv******* warn :value out of range 14159 S003CE5 F1 49C6 IWT R1, #BSPL_B_POINT vvv******* warn :value out of range 14160 S003CE8 F0 449E IWT R0, #BG3_POLYGON_DT 14161 ; 14162 003CEB PT_BSPLINE_AW2 EQU $ 14163 mJSR BSPLINE_RW_SUB 14163+ S003CEB 94 LINK #4 14163+ S003CEC FF 3CF2' IWT R15, #BSPLINE_RW_SUB 14163+ S003CEF 01 NOP 14164 ; 14165 S003CF0 00 STOP 14166 S003CF1 01 NOP 14167 ; 14168 BSPLINE_RW_SUB 14169 S003CF2 3E AB 2B SMS R11, REG11 ;R11 BACKUP 14170 ; 14171 S003CF5 20 1B MOVE R11, R0 14172 ; 14173 ;; TO R12 ;ŒÂ”Žæ‚èo‚µƒ‹[ƒv‰ñ”Œˆ’è 14174 ;; LDB (R1) ; 14175 S003CF7 22 1C MOVE R12, R2 14176 S003CF9 3E AC 26 SMS R12, REG6 ; 14177 S003CFC 3E AB 24 SMS R11, REG4 ; 14178 ;; INC R1 14179 S003CFF 21 13 MOVE R3, R1 14180 ; 14181 S003D01 BC FROM R12 ;ƒ|ƒCƒ“ƒg” 14182 S003D02 5C ADD R12 14183 S003D03 50 ADD R0 14184 S003D04 1E TO R14 14185 S003D05 51 ADD R1 14186 S003D06 EE DEC R14 14187 S003D07 EE DEC R14 ;R14 = ƒXƒvƒ‰ƒCƒ“ƒ|ƒCƒ“ƒgƒf[ƒ^ƒ‰ƒXƒgƒAƒhƒŒƒX 14188 ; 14189 S003D08 14 TO R4 ; 14190 S003D09 41 LDW (R1) ;P1X get 14191 S003D0A D1 INC R1 ; 14192 S003D0B D1 INC R1 14193 ; 14194 S003D0C 15 TO R5 ; 14195 S003D0D 41 LDW (R1) ;P1Y get 14196 S003D0E D1 INC R1 ; 14197 S003D0F D1 INC R1 14198 ; 14199 S003D10 17 TO R7 ; 14200 S003D11 41 LDW (R1) ;P2X get 14201 S003D12 D1 INC R1 ; 14202 S003D13 D1 INC R1 ; 14203 ; 14204 S003D14 18 TO R8 ; 14205 S003D15 41 LDW (R1) ;P2Y get 14206 S003D16 D1 INC R1 ; 14207 S003D17 D1 INC R1 ; 14208 ; 14209 S003D18 19 TO R9 ; 14210 S003D19 41 LDW (R1) ;P3X get 14211 S003D1A D1 INC R1 ; 14212 S003D1B D1 INC R1 ; 14213 ; 14214 S003D1C 1A TO R10 ; 14215 S003D1D 41 LDW (R1) ;P3Y get 14216 S003D1E D1 INC R1 ; 14217 S003D1F D1 INC R1 ; 14218 ; 14219 S003D20 B1 FROM R1 14220 S003D21 6E SUB R14 14221 S003D22 0C 03' BCC BSP_AW_005 ;ƒ‰ƒXƒgƒf[ƒ^ƒAƒhƒŒƒXƒI[ƒo[?[no->BSPRST_005] 14222 S003D24 02 CACHE 14223 ; 14224 S003D25 23 11 MOVE R1, R3 ;擪ƒf[ƒ^ƒAƒhƒŒƒXƒZƒbƒg 14225 BSP_AW_005 14226 S003D27 2F 1D MOVE R13, R15 14227 BSP_AW_010 14228 ;; IBT R0, #01EH ;X[0.0] = X1 * 0.50 + X2 * 0.50 + X3 * 0.00 14229 S003D29 A0 20 IBT R0, #020H ;X[0.0] = X1 * 0.50 + X2 * 0.50 + X3 * 0.00 14230 S003D2B 12 TO R2 ; 14231 S003D2C 84 MULT R4 ; 14232 S003D2D A6 20 IBT R6, #020H ; 14233 S003D2F B7 FROM R7 ; 14234 S003D30 86 MULT R6 ; 14235 S003D31 52 ADD R2 ; 14236 S003D32 3D 96 DIV2 ; 14237 S003D34 3D 96 DIV2 ; 14238 S003D36 3D 96 DIV2 ; 14239 S003D38 3D 96 DIV2 ; 14240 S003D3A 3D 96 DIV2 ; 14241 S003D3C 3D 96 DIV2 ; 14242 S003D3E 3F 50 ADC #0 ; 14243 S003D40 3B STW (R11) ;X[0.0] set 14244 S003D41 DB INC R11 14245 S003D42 DB INC R11 14246 ; 14247 ;;; IBT R6, #020H ;Y[0.0] = Y1 * 0.50 + Y2 * 0.50 + Y3 * 0.00 14248 S003D43 B8 FROM R8 ; 14249 S003D44 12 TO R2 ; 14250 S003D45 86 MULT R6 ; 14251 ;; IBT R0, #01EH ; 14252 S003D46 A0 20 IBT R0, #020H ; 14253 S003D48 85 MULT R5 ; 14254 S003D49 52 ADD R2 ; 14255 S003D4A 3D 96 DIV2 ; 14256 S003D4C 3D 96 DIV2 ; 14257 S003D4E 3D 96 DIV2 ; 14258 S003D50 3D 96 DIV2 ; 14259 S003D52 3D 96 DIV2 ; 14260 S003D54 3D 96 DIV2 ; 14261 S003D56 3F 50 ADC #0 ; 14262 S003D58 3B STW (R11) ;Y[0.0] set 14263 S003D59 DB INC R11 ; 14264 S003D5A DB INC R11 14265 ; 14266 ;;; IBT R0, #013H ;X[0.2] = X1 * 0.32 + X2 * 0.66 + X3 * 0.02 14267 S003D5B A0 15 IBT R0, #015H ;X[0.2] = X1 * 0.32 + X2 * 0.66 + X3 * 0.02 14268 S003D5D 12 TO R2 ; 14269 S003D5E 84 MULT R4 ; 14270 S003D5F A0 2A IBT R0, #02AH ; 14271 S003D61 87 MULT R7 ; 14272 S003D62 22 WITH R2 ; 14273 S003D63 50 ADD R0 ; 14274 S003D64 A6 01 IBT R6, #001H ; 14275 S003D66 B9 FROM R9 ; 14276 S003D67 86 MULT R6 ; 14277 S003D68 52 ADD R2 ; 14278 S003D69 3D 96 DIV2 ; 14279 S003D6B 3D 96 DIV2 ; 14280 S003D6D 3D 96 DIV2 ; 14281 S003D6F 3D 96 DIV2 ; 14282 S003D71 3D 96 DIV2 ; 14283 S003D73 3D 96 DIV2 ; 14284 S003D75 3F 50 ADC #0 ; 14285 S003D77 3B STW (R11) ;X[0.2] set 14286 S003D78 DB INC R11 14287 S003D79 DB INC R11 14288 ; 14289 ;;; IWT R6, #001H ;Y[0.2] = Y1 * 0.32 + Y2 * 0.66 + Y3 * 0.02 14290 S003D7A BA FROM R10 ; 14291 S003D7B 12 TO R2 ; 14292 S003D7C 86 MULT R6 ; 14293 S003D7D A0 2A IBT R0, #02AH ; 14294 S003D7F 88 MULT R8 ; 14295 S003D80 22 WITH R2 ; 14296 S003D81 50 ADD R0 ; 14297 ;;; IBT R0, #013H ; 14298 S003D82 A0 15 IBT R0, #015H ; 14299 S003D84 85 MULT R5 ; 14300 S003D85 52 ADD R2 ; 14301 S003D86 3D 96 DIV2 ; 14302 S003D88 3D 96 DIV2 ; 14303 S003D8A 3D 96 DIV2 ; 14304 S003D8C 3D 96 DIV2 ; 14305 S003D8E 3D 96 DIV2 ; 14306 S003D90 3D 96 DIV2 ; 14307 S003D92 3F 50 ADC #0 ; 14308 S003D94 3B STW (R11) ;Y[0.2] set 14309 S003D95 DB INC R11 ; 14310 S003D96 DB INC R11 14311 ; 14312 ;;; IBT R0, #00BH ;X[0.4] = X1 * 0.18 + X2 * 0.74 + X3 * 0.08 14313 S003D97 A0 0C IBT R0, #00CH ;X[0.4] = X1 * 0.18 + X2 * 0.74 + X3 * 0.08 14314 S003D99 12 TO R2 ; 14315 S003D9A 84 MULT R4 ; 14316 S003D9B A0 2F IBT R0, #02FH ; 14317 S003D9D 87 MULT R7 ; 14318 S003D9E 22 WITH R2 ; 14319 S003D9F 50 ADD R0 ; 14320 ;;; IBT R6, #004H ; 14321 S003DA0 A6 05 IBT R6, #005H ; 14322 S003DA2 B9 FROM R9 ; 14323 S003DA3 86 MULT R6 ; 14324 S003DA4 52 ADD R2 ; 14325 S003DA5 3D 96 DIV2 ; 14326 S003DA7 3D 96 DIV2 ; 14327 S003DA9 3D 96 DIV2 ; 14328 S003DAB 3D 96 DIV2 ; 14329 S003DAD 3D 96 DIV2 ; 14330 S003DAF 3D 96 DIV2 ; 14331 S003DB1 3F 50 ADC #0 ; 14332 S003DB3 3B STW (R11) ;X[0.4] set 14333 S003DB4 DB INC R11 14334 S003DB5 DB INC R11 14335 ; 14336 ;;;;;; IWT R6, #004H ;Y[0.4] = Y1 * 0.18 + Y2 * 0.74 + Y3 * 0.08 14337 ;;; IWT R6, #005H ;Y[0.4] = Y1 * 0.18 + Y2 * 0.74 + Y3 * 0.08 14338 S003DB6 BA FROM R10 ; 14339 S003DB7 12 TO R2 ; 14340 S003DB8 86 MULT R6 ; 14341 S003DB9 A0 2F IBT R0, #02FH ; 14342 S003DBB 88 MULT R8 ; 14343 S003DBC 22 WITH R2 ; 14344 S003DBD 50 ADD R0 ; 14345 ;;; IBT R6, #00BH ; 14346 S003DBE A6 0C IBT R6, #00CH ; 14347 S003DC0 B5 FROM R5 ; 14348 S003DC1 86 MULT R6 ; 14349 S003DC2 52 ADD R2 ; 14350 S003DC3 3D 96 DIV2 ; 14351 S003DC5 3D 96 DIV2 ; 14352 S003DC7 3D 96 DIV2 ; 14353 S003DC9 3D 96 DIV2 ; 14354 S003DCB 3D 96 DIV2 ; 14355 S003DCD 3D 96 DIV2 ; 14356 S003DCF 3F 50 ADC #0 ; 14357 S003DD1 3B STW (R11) ;Y[0.4] set 14358 S003DD2 DB INC R11 ; 14359 S003DD3 DB INC R11 14360 ; 14361 ;;; IBT R6, #00BH ;X[0.6] = X1 * 0.08 + X2 * 0.74 + X3 * 0.18 14362 S003DD4 B9 FROM R9 ; 14363 S003DD5 12 TO R2 ; 14364 S003DD6 86 MULT R6 ; 14365 S003DD7 A0 2F IBT R0, #02FH ; 14366 S003DD9 87 MULT R7 ; 14367 S003DDA 22 WITH R2 ; 14368 S003DDB 50 ADD R0 ; 14369 ;;; IBT R6, #004H ; 14370 S003DDC A6 05 IBT R6, #005H ; 14371 S003DDE B4 FROM R4 ; 14372 S003DDF 86 MULT R6 ; 14373 S003DE0 52 ADD R2 ; 14374 S003DE1 3D 96 DIV2 ; 14375 S003DE3 3D 96 DIV2 ; 14376 S003DE5 3D 96 DIV2 ; 14377 S003DE7 3D 96 DIV2 ; 14378 S003DE9 3D 96 DIV2 ; 14379 S003DEB 3D 96 DIV2 ; 14380 S003DED 3F 50 ADC #0 ; 14381 S003DEF 3B STW (R11) ;X[0.6] set 14382 S003DF0 DB INC R11 14383 S003DF1 DB INC R11 14384 ; 14385 ;;;;;; IWT R6, #004H ;Y[0.6] = Y1 * 0.08 + Y2 * 0.74 + Y3 * 0.18 14386 ;;; IWT R6, #005H ;Y[0.6] = Y1 * 0.08 + Y2 * 0.74 + Y3 * 0.18 14387 S003DF2 B5 FROM R5 ; 14388 S003DF3 12 TO R2 ; 14389 S003DF4 86 MULT R6 ; 14390 S003DF5 A0 2F IBT R0, #02FH ; 14391 S003DF7 88 MULT R8 ; 14392 S003DF8 22 WITH R2 ; 14393 S003DF9 50 ADD R0 ; 14394 ;;; IBT R0, #00BH ; 14395 S003DFA A0 0C IBT R0, #00CH ; 14396 S003DFC 8A MULT R10 ; 14397 S003DFD 52 ADD R2 ; 14398 S003DFE 3D 96 DIV2 ; 14399 S003E00 3D 96 DIV2 ; 14400 S003E02 3D 96 DIV2 ; 14401 S003E04 3D 96 DIV2 ; 14402 S003E06 3D 96 DIV2 ; 14403 S003E08 3D 96 DIV2 ; 14404 S003E0A 3F 50 ADC #0 ; 14405 S003E0C 3B STW (R11) ;Y[0.6] set 14406 S003E0D DB INC R11 ; 14407 S003E0E DB INC R11 14408 ; 14409 S003E0F A0 01 IBT R0, #001H ;X[0.8] = X1 * 0.02 + X2 * 0.66 + X3 * 0.32 14410 S003E11 12 TO R2 ; 14411 S003E12 84 MULT R4 ; 14412 S003E13 A0 2A IBT R0, #02AH ; 14413 S003E15 87 MULT R7 ; 14414 S003E16 22 WITH R2 ; 14415 S003E17 50 ADD R0 ; 14416 ;;; IBT R6, #013H ; 14417 S003E18 A6 15 IBT R6, #015H ; 14418 S003E1A B9 FROM R9 ; 14419 S003E1B 86 MULT R6 ; 14420 S003E1C 52 ADD R2 ; 14421 S003E1D 3D 96 DIV2 ; 14422 S003E1F 3D 96 DIV2 ; 14423 S003E21 3D 96 DIV2 ; 14424 S003E23 3D 96 DIV2 ; 14425 S003E25 3D 96 DIV2 ; 14426 S003E27 3D 96 DIV2 ; 14427 S003E29 3F 50 ADC #0 ; 14428 S003E2B 3B STW (R11) ;X[0.8] set 14429 S003E2C DB INC R11 14430 S003E2D DB INC R11 14431 ; 14432 ;;;;;; IWT R6, #013H ;Y[0.8] = Y1 * 0.02 + Y2 * 0.66 + Y3 * 0.32 14433 ;;; IWT R6, #015H ;Y[0.8] = Y1 * 0.02 + Y2 * 0.66 + Y3 * 0.32 14434 S003E2E BA FROM R10 ; 14435 S003E2F 12 TO R2 ; 14436 S003E30 86 MULT R6 ; 14437 S003E31 A0 2A IBT R0, #02AH ; 14438 S003E33 88 MULT R8 ; 14439 S003E34 22 WITH R2 ; 14440 S003E35 50 ADD R0 ; 14441 S003E36 A0 01 IBT R0, #001H ; 14442 S003E38 85 MULT R5 ; 14443 S003E39 52 ADD R2 ; 14444 S003E3A 3D 96 DIV2 ; 14445 S003E3C 3D 96 DIV2 ; 14446 S003E3E 3D 96 DIV2 ; 14447 S003E40 3D 96 DIV2 ; 14448 S003E42 3D 96 DIV2 ; 14449 S003E44 3D 96 DIV2 ; 14450 S003E46 3F 50 ADC #0 ; 14451 S003E48 3B STW (R11) ;Y[0.0] set 14452 ; 14453 S003E49 27 14 MOVE R4, R7 ;X2 -> X1 14454 S003E4B 28 15 MOVE R5, R8 ;Y2 -> Y1 14455 S003E4D 29 17 MOVE R7, R9 ;X3 -> X2 14456 S003E4F 2A 18 MOVE R8, R10 ;Y3 -> Y2 14457 ; 14458 S003E51 19 TO R9 14459 S003E52 41 LDW (R1) ;X3 load 14460 S003E53 D1 INC R1 14461 S003E54 D1 INC R1 14462 S003E55 1A TO R10 14463 S003E56 41 LDW (R1) 14464 S003E57 D1 INC R1 14465 S003E58 D1 INC R1 14466 ; 14467 S003E59 B1 FROM R1 14468 S003E5A 6E SUB R14 14469 S003E5B 0C 03' BCC BSP_AW_040 14470 S003E5D DB INC R11 14471 ; 14472 S003E5E 23 11 MOVE R1, R3 14473 BSP_AW_040 14474 S003E60 3C LOOP 14475 S003E61 DB INC R11 14476 ; 14477 S003E62 3D A2 24 LMS R2, REG4 ;store data end address-4 14478 S003E65 3D A1 26 LMS R1, REG6 14479 S003E68 B1 FROM R1 14480 S003E69 51 ADD R1 ;*2 14481 S003E6A 50 ADD R0 ;*4 14482 S003E6B 51 ADD R1 ;*5 14483 S003E6C 20 11 MOVE R1, R0 14484 S003E6E 50 ADD R0 ;*10<*2> 14485 S003E6F 50 ADD R0 ;*20<*4> 14486 S003E70 52 ADD R2 ;+base address 14487 S003E71 3E 64 SUB #004H 14488 S003E73 3E A0 25 SMS R0, REG5 ;REG5 = ÅIƒf[ƒ^ƒAƒhƒŒƒX 14489 ; 14490 S003E76 3D AB 2B LMS R11, REG11 14491 ; 14492 mRTS 14492+ S003E79 9B JMP R11 14492+ S003E7A 01 NOP 14493 ; 14494 ;>>>>>>>>>> 14495 ;function 14496 ; “_ƒf[ƒ^‚̃‚[ƒtƒBƒ“ƒO‚ðs‚¤ (•\Ž¦”͈̓`ƒFƒbƒN–³‚µ) 14497 ;entry 14498 ;R1 = BEFOR POINT ADDRES (RAM<70H> ADDRESS) 14499 ;R2 = AFTER POINT ADDRES (RAM<70H> ADDRESS) 14500 ;R3 = POINT ŒÂ” 14501 ;R4 = ’†Sƒ|ƒCƒ“ƒg”Ô† (0-xx) 14502 ;R5 = MORPH DATA SET ADDRESS (RAM<70H>ADDRESS) 14503 ;R6 = ”{—¦1.00=100H 14504 ;R14 = BEFOR POINT DATA ROM ADDRESS 14505 ;R0 = BEFOR POINT DATA ROM BANK 14506 ;R7 = AFTER POINT DATA ROM ADDRESS 14507 ;R8 = AFTER POINT DATA ROM BANK 14508 ;REG0 : Xp 14509 ;REG1 : Yp 14510 ;<<<<<<<<<< 14511 003E7B BG_MORPHING_OB EQU $ 14512 S003E7B AA 00 IBT R10,#000H 14513 S003E7D 3E AA 22 SMS R10, REG2 ;‚wÀ•WƒIƒtƒZƒbƒg 14514 S003E80 AB 00 IBT R11,#000H 14515 S003E82 3E AB 23 SMS R11, REG3 ;‚xÀ•WƒIƒtƒZƒbƒg 14516 ; 14517 003E85 BG_MORPHING_OB2 EQU $ 14518 mJSR MORPHING_OB_SUB ;ROM 1BYTE DATA -> RAM 2BYTE DATA CONVERT 14518+ S003E85 94 LINK #4 14518+ S003E86 FF 3EA9' IWT R15, #MORPHING_OB_SUB 14518+ S003E89 01 NOP 14519 mJSR MORPHING_AW_SUB ;RAM 2BYTE DATA MORPHING 14519+ S003E8A 94 LINK #4 14519+ S003E8B FF 3F5F' IWT R15, #MORPHING_AW_SUB 14519+ S003E8E 01 NOP 14520 ; 14521 mDJMP BG_POLYGON_SET 14521+ S003E8F FF 4067' IWT R15, #BG_POLYGON_SET 14521+ S003E92 01 NOP 14522 ; 14523 003E93 PT_MORPHING_OB EQU $ 14524 S003E93 AA 00 IBT R10,#000H 14525 S003E95 3E AA 22 SMS R10, REG2 ;‚wÀ•WƒIƒtƒZƒbƒg 14526 S003E98 AB 00 IBT R11,#000H 14527 S003E9A 3E AB 23 SMS R11, REG3 ;‚xÀ•WƒIƒtƒZƒbƒg 14528 ; 14529 003E9D PT_MORPHING_OB2 EQU $ 14530 mJSR MORPHING_OB_SUB ;ROM 1BYTE DATA -> RAM 2BYTE DATA CONVERT 14530+ S003E9D 94 LINK #4 14530+ S003E9E FF 3EA9' IWT R15, #MORPHING_OB_SUB 14530+ S003EA1 01 NOP 14531 mJSR MORPHING_AW_SUB ;RAM 2BYTE DATA MORPHING 14531+ S003EA2 94 LINK #4 14531+ S003EA3 FF 3F5F' IWT R15, #MORPHING_AW_SUB 14531+ S003EA6 01 NOP 14532 ; 14533 S003EA7 00 STOP 14534 S003EA8 01 NOP 14535 ; 14536 ; 14537 003EA9 MORPHING_OB_SUB EQU $ 14538 S003EA9 3E AB 2B SMS R11, REG11 14539 ; 14540 S003EAC 3D AA 22 LMS R10, REG2 14541 S003EAF 3D AB 23 LMS R11, REG3 14542 ; 14543 ;--- BEFOR DATA TRNS 14544 ; 14545 S003EB2 3F DF ROMB 14546 ; 14547 S003EB4 21 19 MOVE R9, R1 14548 S003EB6 2E 1E MOVE R14, R14 14549 ; 14550 ;; FROM R3 ;kosuu 14551 ;; TO R12 ; 14552 ;; ADD R3 ;R12 = *2 14553 S003EB8 23 1C MOVE R12, R3 14554 ; 14555 S003EBA EF GETB 14556 ; 14557 S003EBB 02 CACHE 14558 ; 14559 S003EBC 2F 1D MOVE R13, R15 14560 BG3MP_B_010 14561 S003EBE DE INC R14 14562 S003EBF 5A ADD R10 14563 S003EC0 39 STW (R9) 14564 S003EC1 D9 INC R9 14565 S003EC2 D9 INC R9 14566 S003EC3 EF GETB 14567 S003EC4 DE INC R14 14568 S003EC5 5B ADD R11 14569 S003EC6 39 STW (R9) 14570 S003EC7 D9 INC R9 14571 S003EC8 D9 INC R9 14572 S003EC9 3C LOOP 14573 S003ECA EF GETB 14574 ; 14575 ;--- AFTER DATA TRNS 14576 ; 14577 S003ECB B8 FROM R8 14578 S003ECC 3F DF ROMB 14579 ; 14580 S003ECE 22 19 MOVE R9, R2 14581 S003ED0 27 1E MOVE R14, R7 14582 ; 14583 ;; FROM R3 14584 ;; TO R12 14585 ;; ADD R3 14586 S003ED2 23 1C MOVE R12, R3 14587 ; 14588 S003ED4 EF GETB 14589 ; 14590 S003ED5 02 CACHE 14591 ; 14592 S003ED6 2F 1D MOVE R13, R15 14593 BG3MP_B_020 14594 S003ED8 DE INC R14 14595 S003ED9 5A ADD R10 14596 S003EDA 39 STW (R9) 14597 S003EDB D9 INC R9 14598 S003EDC D9 INC R9 14599 S003EDD EF GETB 14600 S003EDE DE INC R14 14601 S003EDF 5B ADD R11 14602 S003EE0 39 STW (R9) 14603 S003EE1 D9 INC R9 14604 S003EE2 D9 INC R9 14605 S003EE3 3C LOOP 14606 S003EE4 EF GETB 14607 ; 14608 S003EE5 3D AB 2B LMS R11, REG11 14609 ; 14610 mRTS 14610+ S003EE8 9B JMP R11 14610+ S003EE9 01 NOP 14611 ; 14612 003EEA BG3_MORPHING_O EQU $ 14613 S003EEA AA 00 IBT R10,#000H 14614 S003EEC 3E AA 22 SMS R10, REG2 ;‚wÀ•WƒIƒtƒZƒbƒg 14615 S003EEF AB 00 IBT R11,#000H 14616 S003EF1 3E AB 23 SMS R11, REG3 ;‚xÀ•WƒIƒtƒZƒbƒg 14617 ; 14618 003EF4 BG_MORPHING_OW2 EQU $ 14619 mJSR MORPHING_OW_SUB ;ROM 2BYTE DATA -> RAM 2BYTE DATA 14619+ S003EF4 94 LINK #4 14619+ S003EF5 FF 3F02' IWT R15, #MORPHING_OW_SUB 14619+ S003EF8 01 NOP 14620 mJSR MORPHING_AW_SUB ;RAM 2BYTE DATA MORPHING 14620+ S003EF9 94 LINK #4 14620+ S003EFA FF 3F5F' IWT R15, #MORPHING_AW_SUB 14620+ S003EFD 01 NOP 14621 ; 14622 mDJMP BG_POLYGON_SET 14622+ S003EFE FF 4067' IWT R15, #BG_POLYGON_SET 14622+ S003F01 01 NOP 14623 ; 14624 MORPHING_OW_SUB 14625 S003F02 3E AB 2B SMS R11, REG11 14626 ; 14627 ;--- BEFOR DATA TRNS 14628 ; 14629 ;;; SMS R12, R12 14630 S003F05 3D AA 22 LMS R10,REG2 14631 S003F08 3D AB 23 LMS R11,REG3 14632 ; 14633 S003F0B 3F DF ROMB 14634 ; 14635 S003F0D 21 19 MOVE R9, R1 14636 S003F0F 2E 1E MOVE R14, R14 14637 ; 14638 ;; FROM R3 ;kosuu 14639 ;; TO R12 ; 14640 ;; ADD R3 ;R12 = *2 14641 S003F11 23 1C MOVE R12, R3 14642 ; 14643 S003F13 EF GETB 14644 ; 14645 S003F14 02 CACHE 14646 ; 14647 S003F15 2F 1D MOVE R13, R15 14648 BG3MP_010 14649 S003F17 DE INC R14 14650 S003F18 3D EF GETBH 14651 S003F1A DE INC R14 14652 S003F1B 5A ADD R10 14653 S003F1C 39 STW (R9) 14654 S003F1D D9 INC R9 14655 S003F1E D9 INC R9 14656 S003F1F EF GETB 14657 S003F20 DE INC R14 14658 S003F21 3D EF GETBH 14659 S003F23 DE INC R14 14660 S003F24 5B ADD R11 14661 S003F25 39 STW (R9) 14662 S003F26 D9 INC R9 14663 S003F27 D9 INC R9 14664 S003F28 3C LOOP 14665 S003F29 EF GETB 14666 ; 14667 ;--- AFTER DATA TRNS 14668 ; 14669 S003F2A B8 FROM R8 14670 S003F2B 3F DF ROMB 14671 ; 14672 S003F2D 22 19 MOVE R9, R2 14673 S003F2F 27 1E MOVE R14, R7 14674 ; 14675 ;; FROM R3 14676 ;; TO R12 14677 ;; ADD R3 14678 S003F31 23 1C MOVE R12, R3 14679 ; 14680 S003F33 EF GETB 14681 ; 14682 S003F34 02 CACHE 14683 ; 14684 S003F35 2F 1D MOVE R13, R15 14685 BG3MP_020 14686 S003F37 DE INC R14 14687 S003F38 3D EF GETBH 14688 S003F3A DE INC R14 14689 S003F3B 5A ADD R10 14690 S003F3C 39 STW (R9) 14691 S003F3D D9 INC R9 14692 S003F3E D9 INC R9 14693 S003F3F EF GETB 14694 S003F40 DE INC R14 14695 S003F41 3D EF GETBH 14696 S003F43 DE INC R14 14697 S003F44 5B ADD R11 14698 S003F45 39 STW (R9) 14699 S003F46 D9 INC R9 14700 S003F47 D9 INC R9 14701 S003F48 3C LOOP 14702 S003F49 EF GETB 14703 ; 14704 S003F4A 3D AB 2B LMS R11, REG11 14705 ; 14706 mRTS 14706+ S003F4D 9B JMP R11 14706+ S003F4E 01 NOP 14707 ; 14708 ;>>>>>>>>>> 14709 ;function : “_ƒf[ƒ^‚̃‚[ƒtƒBƒ“ƒO‚ðs‚¤(•\Ž¦”͈̓`ƒFƒbƒN–³‚µ) 14710 ;name 14711 ; PT_MORPHING_AW 14712 ;entry 14713 ;R1 = BEFOR POINT ADDRES (RAM<70H> ADDRESS) 14714 ;R2 = AFTER POINT ADDRES (RAM<70H> ADDRESS) 14715 ;R3 = POINT ŒÂ” 14716 ;R4 = ’†Sƒ|ƒCƒ“ƒg”Ô† (0-xx) 14717 ;R5 = MORPH DATA SET ADDRESS (RAM<70H>ADDRESS) 14718 ;R6 = ”{—¦1.00=100H 14719 ;REG0 : Xp 14720 ;REG1 : Yp 14721 ;<<<<<<<<<< 14722 003F4F BG_MORPHING_AW EQU $ 14723 mJSR MORPHING_AW_SUB 14723+ S003F4F 94 LINK #4 14723+ S003F50 FF 3F5F' IWT R15, #MORPHING_AW_SUB 14723+ S003F53 01 NOP 14724 ; 14725 mDJMP BG_POLYGON_SET 14725+ S003F54 FF 4067' IWT R15, #BG_POLYGON_SET 14725+ S003F57 01 NOP 14726 ; 14727 003F58 PT_MORPHING_AW EQU $ 14728 ; 14729 mJSR MORPHING_AW_SUB 14729+ S003F58 94 LINK #4 14729+ S003F59 FF 3F5F' IWT R15, #MORPHING_AW_SUB 14729+ S003F5C 01 NOP 14730 ; 14731 S003F5D 00 STOP 14732 S003F5E 01 NOP 14733 ; 14734 MORPHING_AW_SUB 14735 S003F5F 3E AB 2B SMS R11, REG11 ;•œ‹AƒAƒhƒŒƒX•Û‘¶ 14736 ; 14737 S003F62 3E A3 22 SMS R3, REG2 14738 S003F65 3E A5 24 SMS R5, REG4 14739 S003F68 B3 FROM R3 14740 S003F69 53 ADD R3 14741 S003F6A 50 ADD R0 14742 S003F6B 55 ADD R5 14743 S003F6C 3E 64 SUB #004H 14744 S003F6E 3E A0 25 SMS R0, REG5 14745 ; 14746 S003F71 B4 FROM R4 ;’†Sƒ|ƒCƒ“ƒg 14747 S003F72 54 ADD R4 ;*2 14748 S003F73 50 ADD R0 ;*4 14749 S003F74 18 TO R8 14750 S003F75 51 ADD R1 ;’†Sƒ|ƒCƒ“ƒgi•ÏŒ`‘OƒAƒhƒŒƒXj 14751 S003F76 19 TO R9 14752 S003F77 52 ADD R2 ;’†Sƒ|ƒCƒ“ƒgi•ÏŒ`ŒãƒAƒhƒŒƒXj 14753 ; 14754 S003F78 17 TO R7 14755 S003F79 48 LDW (R8) ; 14756 S003F7A D8 INC R8 14757 S003F7B D8 INC R8 14758 S003F7C 49 LDW (R9) 14759 S003F7D D9 INC R9 14760 S003F7E D9 INC R9 14761 S003F7F 1A TO R10 14762 S003F80 67 SUB R7 ;’†Sƒ|ƒCƒ“ƒg‚w·•ª 14763 ; 14764 S003F81 17 TO R7 14765 S003F82 48 LDW (R8) 14766 S003F83 49 LDW (R9) 14767 S003F84 1B TO R11 14768 S003F85 67 SUB R7 ;’†Sƒ|ƒCƒ“ƒg‚x·•ª 14769 ; 14770 S003F86 23 1C MOVE R12, R3 14771 S003F88 2F 1D MOVE R13, R15 14772 MORP_010 14773 S003F8A 17 TO R7 14774 S003F8B 41 LDW (R1) ;•ÏŒ`‘O‚wƒ|ƒCƒ“ƒgŽæ‚èo‚µ 14775 S003F8C D1 INC R1 14776 S003F8D D1 INC R1 14777 S003F8E 42 LDW (R2) ;•ÏŒ`Œã‚wƒ|ƒCƒ“ƒgŽæ‚èo‚µ 14778 S003F8F D2 INC R2 14779 S003F90 D2 INC R2 14780 S003F91 67 SUB R7 14781 S003F92 6A SUB R10 14782 S003F93 3D 9F LMULT 14783 S003F95 24 WITH R4 14784 S003F96 C0 HIB 14785 S003F97 9E LOB 14786 S003F98 4D SWAP 14787 S003F99 C4 OR R4 14788 S003F9A 57 ADD R7 14789 S003F9B 35 STW (R5) 14790 S003F9C D5 INC R5 14791 S003F9D D5 INC R5 14792 ; 14793 S003F9E 17 TO R7 14794 S003F9F 41 LDW (R1) ;•ÏŒ`‘O‚xƒ|ƒCƒ“ƒgŽæ‚èo‚µ 14795 S003FA0 D1 INC R1 14796 S003FA1 D1 INC R1 14797 S003FA2 42 LDW (R2) ;•ÏŒ`Œã‚xƒ|ƒCƒ“ƒgŽæ‚èo‚µ 14798 S003FA3 D2 INC R2 14799 S003FA4 D2 INC R2 14800 S003FA5 67 SUB R7 14801 S003FA6 6B SUB R11 14802 S003FA7 3D 9F LMULT 14803 S003FA9 24 WITH R4 14804 S003FAA C0 HIB 14805 S003FAB 9E LOB 14806 S003FAC 4D SWAP 14807 S003FAD C4 OR R4 14808 S003FAE 57 ADD R7 14809 S003FAF 35 STW (R5) 14810 S003FB0 D5 INC R5 14811 ; 14812 S003FB1 3C LOOP 14813 S003FB2 D5 INC R5 14814 ; 14815 S003FB3 3D A1 22 LMS R1, REG2 14816 ; 14817 S003FB6 A0 00 IBT R0, #000H 14818 S003FB8 3E A0 2F SMS R0, REG15 14819 ; 14820 S003FBB 3D AB 2B LMS R11, REG11 ;•œ‹AƒAƒhƒŒƒXŽæ‚èo‚µ 14821 ; 14822 mRTS 14822+ S003FBE 9B JMP R11 14822+ S003FBF 01 NOP 14823 ; 14824 ;>>>>>>>>>> 14825 ;function 14826 ; “_ƒf[ƒ^‚̃‚[ƒtƒBƒ“ƒO‚ðs‚¤i‚xŽ²‚̃f[ƒ^‚ð‚·‚×‚Äƒ}ƒCƒiƒX‚Æ‚µ‚Ĉµ‚¤j 14827 ;name 14828 ; BG3_MORPHING_N 14829 ;entry 14830 ;R0 = ROM BANK ADDRESS 14831 ;R1 = BEFOR POINT ADDRES (ROM ADDRESS) 14832 ;R2 = AFTER POINT ADDRES (ROM ADDRESS) 14833 ;R3 = POINT ŒÂ” 14834 ;R4 = ’†Sƒ|ƒCƒ“ƒg”Ô† (0-xx) 14835 ;R5 = MORPH DATA SET ADDRESS (RAM<70H>ADDRESS) 14836 ;R6 = ”{—¦1.00=100H 14837 ;REG0 : Xp 14838 ;REG1 : Yp 14839 ;<<<<<<<<<< 14840 003FC0 BG3_MORPHING_N EQU $ 14841 ; 14842 ; 14843 mJSR BG3_MORPHING_S 14843+ S003FC0 94 LINK #4 14843+ S003FC1 FF 3FC9' IWT R15, #BG3_MORPHING_S 14843+ S003FC4 01 NOP 14844 ; 14845 mDJMP BG_POLYGON_SET 14845+ S003FC5 FF 4067' IWT R15, #BG_POLYGON_SET 14845+ S003FC8 01 NOP 14846 ; 14847 003FC9 BG3_MORPHING_S EQU $ 14848 ; 14849 S003FC9 3E AB 26 SMS R11, REG6 14850 14851 S003FCC 3F DF ROMB 14852 ; 14853 S003FCE 3E A3 22 SMS R3, REG2 14854 S003FD1 3E A5 24 SMS R5, REG4 14855 S003FD4 B3 FROM R3 14856 S003FD5 53 ADD R3 14857 S003FD6 50 ADD R0 14858 S003FD7 55 ADD R5 14859 ;;; SUB #002H 14860 S003FD8 3E 64 SUB #004H 14861 S003FDA 3E A0 25 SMS R0, REG5 14862 ; 14863 ;; FROM R4 ;’†Sƒ|ƒCƒ“ƒg 14864 ;; ADD R4 ;*2 14865 ;; ADD R0 ;*4 14866 ;; TO R8 14867 S003FDD B4 FROM R4 ;’†Sƒ|ƒCƒ“ƒg 14868 S003FDE 54 ADD R4 ;*2 14869 S003FDF 18 TO R8 14870 S003FE0 51 ADD R1 ;’†Sƒ|ƒCƒ“ƒgi•ÏŒ`‘OƒAƒhƒŒƒXj 14871 S003FE1 28 1E MOVE R14, R8 14872 S003FE3 19 TO R9 14873 S003FE4 52 ADD R2 ;’†Sƒ|ƒCƒ“ƒgi•ÏŒ`ŒãƒAƒhƒŒƒXj 14874 ; 14875 S003FE5 17 TO R7 14876 ;; LDW (R8) ; 14877 ;; INC R8 14878 ;; INC R8 14879 S003FE6 3F EF GETBS 14880 S003FE8 29 1E MOVE R14, R9 14881 S003FEA D8 INC R8 14882 ; 14883 ; 14884 ;; LDW (R9) 14885 ;; INC R9 14886 ;; INC R9 14887 S003FEB 3F EF GETBS 14888 S003FED D9 INC R9 14889 S003FEE 1A TO R10 14890 S003FEF 67 SUB R7 ;’†Sƒ|ƒCƒ“ƒg‚w·•ª 14891 ; 14892 S003FF0 28 1E MOVE R14, R8 14893 S003FF2 17 TO R7 14894 ;; LDW (R8) 14895 S003FF3 EF GETB 14896 S003FF4 E7 DEC R7 14897 S003FF5 0B 06' BMI MORP_N_000 14898 S003FF7 D7 INC R7 14899 ; 14900 S003FF8 F0 FF00 IWT R0,#0FF00H 14901 S003FFB 17 TO R7 14902 S003FFC C7 OR R7 14903 MORP_N_000 14904 S003FFD 29 1E MOVE R14, R9 14905 ;; LDW (R9) 14906 S003FFF EF GETB 14907 S004000 E0 DEC R0 14908 S004001 0B 05' BMI MORP_N_005 14909 S004003 D0 INC R0 14910 ; 14911 S004004 FB FF00 IWT R11,#0FF00H 14912 S004007 CB OR R11 14913 MORP_N_005 14914 S004008 1B TO R11 14915 S004009 67 SUB R7 ;’†Sƒ|ƒCƒ“ƒg‚x·•ª 14916 ; 14917 S00400A 23 1C MOVE R12, R3 14918 S00400C 2F 1D MOVE R13, R15 14919 MORP_N_010 14920 S00400E 21 1E MOVE R14, R1 14921 S004010 17 TO R7 14922 ;; LDW (R1) ;•ÏŒ`‘O‚wƒ|ƒCƒ“ƒgŽæ‚èo‚µ 14923 S004011 3F EF GETBS 14924 S004013 22 1E MOVE R14, R2 14925 S004015 D1 INC R1 14926 ;; INC R1 14927 ;; LDW (R2) ;•ÏŒ`Œã‚wƒ|ƒCƒ“ƒgŽæ‚èo‚µ 14928 S004016 3F EF GETBS 14929 S004018 21 1E MOVE R14, R1 14930 S00401A D2 INC R2 14931 ;; INC R2 14932 S00401B 67 SUB R7 14933 S00401C 6A SUB R10 14934 S00401D 3D 9F LMULT 14935 S00401F 24 WITH R4 14936 S004020 4D SWAP 14937 S004021 B4 FROM R4 14938 S004022 13 TO R3 14939 S004023 54 ADD R4 14940 S004024 24 WITH R4 14941 S004025 9E LOB 14942 S004026 9E LOB 14943 S004027 4D SWAP 14944 S004028 C4 OR R4 14945 S004029 3D 57 ADC R7 14946 S00402B 35 STW (R5) 14947 S00402C D5 INC R5 14948 S00402D D5 INC R5 14949 ; 14950 S00402E 17 TO R7 14951 ;; LDW (R1) ;•ÏŒ`‘O‚xƒ|ƒCƒ“ƒgŽæ‚èo‚µ 14952 S00402F EF GETB 14953 S004030 E7 DEC R7 14954 S004031 0B 06' BMI MORP_N_020 14955 S004033 D7 INC R7 14956 ; 14957 S004034 F0 FF00 IWT R0,#0FF00H 14958 S004037 17 TO R7 14959 S004038 C7 OR R7 14960 MORP_N_020 14961 S004039 22 1E MOVE R14, R2 14962 S00403B D1 INC R1 14963 ;; INC R1 14964 ;; LDW (R2) ;•ÏŒ`Œã‚xƒ|ƒCƒ“ƒgŽæ‚èo‚µ 14965 S00403C EF GETB 14966 S00403D E0 DEC R0 14967 S00403E 0B 05' BMI MORP_N_030 14968 S004040 D0 INC R0 14969 ; 14970 S004041 F4 FF00 IWT R4,#0FF00H 14971 S004044 C4 OR R4 14972 MORP_N_030 14973 S004045 D2 INC R2 14974 ;; INC R2 14975 S004046 67 SUB R7 14976 S004047 6B SUB R11 14977 S004048 3D 9F LMULT 14978 S00404A 24 WITH R4 14979 S00404B 4D SWAP 14980 S00404C B4 FROM R4 14981 S00404D 13 TO R3 14982 S00404E 54 ADD R4 14983 S00404F 24 WITH R4 14984 S004050 9E LOB 14985 S004051 9E LOB 14986 S004052 4D SWAP 14987 S004053 C4 OR R4 14988 S004054 3D 57 ADC R7 14989 S004056 35 STW (R5) 14990 S004057 D5 INC R5 14991 ; 14992 S004058 3C LOOP 14993 S004059 D5 INC R5 14994 ; 14995 S00405A 3D A1 22 LMS R1, REG2 14996 ; 14997 S00405D A0 01 IBT R0, #001H 14998 S00405F 3E A0 2F SMS R0, REG15 14999 ; 15000 S004062 3D AB 26 LMS R11, REG6 15001 ; 15002 mRTS 15002+ S004065 9B JMP R11 15002+ S004066 01 NOP 15003 ; 15004 ; 15005 ;>>>>>>>>>> 15006 ;BG_POLYGON_SET 15007 ;entry 15008 ;R1 : ƒ|ƒCƒ“ƒgŒÂ” 15009 ;REG0 : Xp 15010 ;REG1 : Yp 15011 ;REG4 : point data top address 15012 ;REG5 : point data end address -4 (LAST DATA POSITION) 15013 ;<<<<<<<<<< 15014 004067 BG_POLYGON_SET EQU $ 15015 ; 15016 ;---- initial set 15017 ; 15018 ;;; IWT R12, #0B2H ;loop conter<> 15019 S004067 FC 00D2 IWT R12, #0D2H ;loop conter<> 15020 S00406A A0 F7 IBT R0, #-9 ;set initial vvv******* warn :value out of range 15021 S00406C FA 3372 IWT R10, #HDMABF ;BUFFER 15022 ; 15023 S00406F 02 CACHE 15024 ; 15025 S004070 2F 1D MOVE R13, R15 ; 15026 BG3POLD3_001 ; 15027 S004072 3A STW (R10) ; 15028 S004073 DA INC R10 ; 15029 S004074 DA INC R10 ; 15030 S004075 3C LOOP ; 15031 S004076 E0 DEC R0 ; 15032 ; 15033 ;--- dispaly range check 15034 ; 15035 S004077 3D A0 2F LMS R0, REG15 15036 S00407A 20 B0 MOVES R0,R0 15037 S00407C 09 1F' BEQ BG3POLD3_009 15038 S00407E 01 NOP ;LMS OK! 15039 ; 15040 S00407F 3D A8 20 LMS R8, REG0 15041 S004082 F0 0080 IWT R0, #00080H 15042 S004085 F9 0200 IWT R9, #00200H 15043 S004088 58 ADD R8 15044 S004089 69 SUB R9 15045 S00408A 0D 0F' BCS BG3POLD3_008 15046 S00408C 01 NOP 15047 ; 15048 S00408D 3D A8 21 LMS R8, REG1 15049 S004090 F0 0100 IWT R0, #080H*2 15050 ;; IWT R9, #0B2H+080H*4 ;B2/2 15051 S004093 F9 02D2 IWT R9, #0D2H+080H*4 ;D2/2 15052 S004096 58 ADD R8 15053 S004097 69 SUB R9 15054 S004098 0C 03' BCC BG3POLD3_009 15055 S00409A 01 NOP 15056 ; 15057 BG3POLD3_008 15058 S00409B 00 STOP 15059 S00409C 01 NOP 15060 ; 15061 ;--- initial prm check 15062 ; 15063 BG3POLD3_009 15064 S00409D 3D A0 21 LMS R0, REG1 15065 S0040A0 3E 69 SUB #009H 15066 S0040A2 90 SBK 15067 ; 15068 ;--- upper & lower point get 15069 ; 15070 S0040A3 02 CACHE 15071 ; 15072 S0040A4 3D A0 24 LMS R0, REG4 ;R5 = top address ypoint 15073 S0040A7 15 TO R5 ; 15074 S0040A8 3E 52 ADD #002H ; 15075 ; 15076 S0040AA FB 07FF IWT R11, #007FFH ;upper level initial 15077 S0040AD F8 F800 IWT R8, #0F800H ;lowler level initial 15078 ; 15079 S0040B0 45 LDW (R5) 15080 ; 15081 S0040B1 21 1C MOVE R12, R1 15082 S0040B3 2F 1D MOVE R13, R15 15083 BG3POLD3_110 15084 S0040B5 3F 6B CMP R11 15085 S0040B7 09 04' BEQ BG3POLD3_115 15086 S0040B9 01 NOP 15087 S0040BA 0A 05' BPL BG3POLD3_120 15088 S0040BC 01 NOP 15089 BG3POLD3_115 15090 S0040BD 20 1B MOVE R11, R0 15091 S0040BF 25 11 MOVE R1, R5 15092 BG3POLD3_120 15093 S0040C1 3F 68 CMP R8 15094 S0040C3 0B 03' BMI BG3POLD3_130 15095 S0040C5 01 NOP 15096 BG3POLD3_125 15097 S0040C6 20 18 MOVE R8,R0 15098 BG3POLD3_130 15099 S0040C8 25 WITH R5 15100 S0040C9 3E 54 ADD #004H 15101 S0040CB 3C LOOP 15102 S0040CC 45 LDW (R5) 15103 ; 15104 ;;; SMS R1, REG2 15105 S0040CD 3E A8 23 SMS R8, REG3 ;low_point Y position 15106 ; 15107 ;>>> '94/12/11 add for debug 15108 S0040D0 BB FROM R11 15109 S0040D1 68 SUB R8 15110 S0040D2 08 03' BNE BG3POLD3_200 15111 S0040D4 01 NOP 15112 S0040D5 00 STOP 15113 S0040D6 01 NOP 15114 ;<<< '94/12/11 add for debug 15115 ; 15116 ;--- bg3 make start 15117 ; 15118 BG3POLD3_200 15119 S0040D7 21 WITH R1 ;R1 = left point address 15120 S0040D8 3E 52 ADD #004H-2 15121 S0040DA 3E A1 28 SMS R1, REG8 15122 ; 15123 S0040DD B1 FROM R1 ;R2 = right apoint address 15124 S0040DE 3E 68 SUB #008H 15125 S0040E0 3E A0 29 SMS R0, REG9 15126 ; 15127 S0040E3 AE 03 IBT R14, #003H ;point read flg set 15128 ; 15129 S0040E5 02 CACHE 15130 ; 15131 ;=== Main Loop 15132 ; 15133 ;--- left 15134 ; 15135 BG3POLD3_210 15136 S0040E6 BE FROM R14 15137 S0040E7 3E 72 AND #002H 15138 S0040E9 09 66' BEQ BG3POLD3_310 15139 S0040EB 01 NOP 15140 ;;; BNE BG3POLD3_215 15141 ;;; NOP 15142 ;;; mDJMP_X BG3POLD3_310 15143 ;;; NOP 15144 BG3POLD3_215 15145 S0040EC 3D A5 24 LMS R5, REG4 ;data address increment 15146 S0040EF 3D A1 28 LMS R1, REG8 ; 15147 S0040F2 21 WITH R1 ; 15148 S0040F3 3E 64 SUB #004H ; 15149 S0040F5 B1 FROM R1 ;last data ? 15150 S0040F6 65 SUB R5 ; 15151 S0040F7 0D 04' BCS BG3POLD3_220 ; 15152 S0040F9 01 NOP 15153 S0040FA 3D A1 25 LMS R1, REG5 ;LAST DATA ADDRESS 15154 BG3POLD3_220 15155 S0040FD B1 FROM R1 ;R3 = R1 - 4 (next left position get) 15156 S0040FE 12 TO R2 ; 15157 S0040FF 3E 64 SUB #004H ; 15158 S004101 B2 FROM R2 15159 S004102 65 SUB R5 15160 S004103 0D 04' BCS BG3POLD3_230 ; 15161 S004105 01 NOP ; 15162 S004106 3D A2 25 LMS R2, REG5 ;LAST DATA ADDRESS 15163 BG3POLD3_230 15164 S004109 3E A1 28 SMS R1, REG8 ; 15165 ; 15166 S00410C 17 TO R7 ;R7 = left x prm get 15167 S00410D 41 LDW (R1) ; 15168 ;; FROM R1 ; 15169 ;; ADD #002H ; 15170 ;; TO R1 ;R1 = left y prm get 15171 ;; LDW (R0) ; 15172 S00410E 2B 11 MOVE R1, R11 15173 ; 15174 S004110 19 TO R9 ;R9 = left_next x prm get 15175 S004111 42 LDW (R2) ; 15176 S004112 B2 FROM R2 ; 15177 S004113 3E 52 ADD #002H ; 15178 S004115 12 TO R2 ;R2 = left_next y prm get 15179 S004116 40 LDW (R0) ; 15180 S004117 22 1C MOVE R12, R2 15181 ; 15182 S004119 BE FROM R14 15183 S00411A 3E 74 AND #004H 15184 S00411C 09 0A' BEQ BG3POLD3_235 15185 S00411E 01 NOP 15186 ; 15187 S00411F 27 19 MOVE R9, R7 ;x prm = next x prm 15188 S004121 21 12 MOVE R2, R1 ;y prm = next y prm 15189 S004123 A0 00 IBT R0, #000H 15190 ; 15191 S004125 05 09' BRA BG3POLD3_237 15192 S004127 01 NOP 15193 ; 15194 BG3POLD3_235 15195 S004128 B2 FROM R2 ;y point equal check & R0 = Yw calc 15196 S004129 61 SUB R1 ; 15197 S00412A 09 C0' BEQ BG3POLD3_215 15198 S00412C 01 NOP 15199 S00412D 0B BD' BMI BG3POLD3_215 ;minus 15200 S00412F 01 NOP ; 15201 ; 15202 BG3POLD3_237 15203 ;; FROM R9 ; 15204 ;; TO R6 ;R6 = Xw calc 15205 ;; SUB R7 ; 15206 S004130 B7 FROM R7 ; 15207 S004131 16 TO R6 ;R6 = -Xw calc 15208 S004132 69 SUB R9 ; 15209 ; 15210 S004133 50 ADD R0 ;1 / Yw get vvv******* warn :value out of range 15211 S004134 F5 2200 IWT R5, #DIVBUF ; 15212 S004137 55 ADD R5 ; 15213 S004138 40 LDW (R0) ; 15214 S004139 03 LSR 15215 ; 15216 S00413A 24 15 MOVE R5, R4 15217 ; 15218 S00413C 3D 9F LMULT ; 15219 S00413E B4 FROM R4 15220 S00413F 12 TO R2 15221 S004140 54 ADD R4 15222 S004141 11 TO R1 ; 15223 S004142 3D 50 ADC R0 ; 15224 ;;; MOVE R2, R4 ; 15225 ; 15226 S004144 25 14 MOVE R4, R5 15227 ; 15228 BG3POLD3_280 15229 S004146 3D A0 20 LMS R0, REG0 ; 15230 S004149 27 WITH R7 ; 15231 S00414A 50 ADD R0 ; 15232 S00414B F9 8000 IWT R9, #08000H 15233 ; 15234 S00414E 2E WITH R14 ;flg clear 15235 S00414F 3F 72 BIC #002H ; 15236 ; 15237 ;--- right 15238 ; 15239 BG3POLD3_310 15240 S004151 BE FROM R14 15241 S004152 3E 71 AND #001H 15242 S004154 09 65' BEQ BG3POLD3_400 15243 S004156 01 NOP 15244 ;;; BNE BG3POLD3_315 15245 ;;; NOP 15246 ;;; mDJMP BG3POLD3_400 15247 ;;; NOP 15248 BG3POLD3_315 15249 S004157 3D A0 25 LMS R0, REG5 ;over address check 15250 S00415A D0 INC R0 ; 15251 S00415B D0 INC R0 ; 15252 S00415C 3D A3 29 LMS R3, REG9 ;R3 += 4 right address set 15253 S00415F 23 WITH R3 ; 15254 S004160 3E 54 ADD #004H ; 15255 S004162 B3 FROM R3 15256 S004163 3F 60 CMP R0 15257 S004165 0C 04' BCC BG3POLD3_320 15258 S004167 01 NOP 15259 S004168 3D A3 24 LMS R3, REG4 ;LAST DATA ADDRESS 15260 BG3POLD3_320 15261 S00416B B3 FROM R3 ;R3 += 4 next right position set 15262 S00416C 14 TO R4 ; 15263 S00416D 3E 54 ADD #004H ; 15264 S00416F B4 FROM R4 ; 15265 S004170 3F 60 CMP R0 ; 15266 S004172 0C 04' BCC BG3POLD3_330 ; 15267 S004174 01 NOP ; 15268 S004175 3D A4 24 LMS R4, REG4 ;LAST DATA ADDRESS 15269 BG3POLD3_330 15270 S004178 3E A3 29 SMS R3, REG9 ; 15271 ; 15272 S00417B 18 TO R8 ;R8 = right x prm get 15273 S00417C 43 LDW (R3) ; 15274 ;; FROM R3 ; 15275 ;; ADD #002H ; 15276 ;; TO R3 ;R3 = right y prm get 15277 ;; LDW (R0) ; 15278 S00417D 2B 13 MOVE R3, R11 15279 ; 15280 S00417F 1A TO R10 ;R10 = right_next x prm get 15281 S004180 44 LDW (R4) ; 15282 S004181 B4 FROM R4 ; 15283 S004182 3E 52 ADD #002H ; 15284 S004184 14 TO R4 ;R4 = right_next y prm get 15285 S004185 40 LDW (R0) ; 15286 S004186 24 1D MOVE R13, R4 15287 ; 15288 S004188 BE FROM R14 15289 S004189 3E 74 AND #004H 15290 S00418B 09 0A' BEQ BG3POLD3_335 15291 S00418D 01 NOP 15292 ; 15293 S00418E 28 1A MOVE R10, R8 15294 S004190 23 14 MOVE R4, R3 15295 S004192 A0 00 IBT R0, #000H 15296 ; 15297 S004194 05 09' BRA BG3POLD3_337 15298 S004196 01 NOP 15299 ; 15300 BG3POLD3_335 15301 S004197 B4 FROM R4 ;y point equal check & R0 = Yw 15302 S004198 63 SUB R3 ; 15303 S004199 09 BC' BEQ BG3POLD3_315 ; 15304 S00419B 01 NOP ; 15305 S00419C 0B B9' BMI BG3POLD3_315 15306 S00419E 01 NOP 15307 ; 15308 BG3POLD3_337 15309 S00419F BA FROM R10 ;R6 = Xw calc 15310 S0041A0 16 TO R6 ; 15311 S0041A1 68 SUB R8 ; 15312 ; 15313 BG3POLD3_370 15314 S0041A2 50 ADD R0 ;(1 / Yw) / 2 get vvv******* warn :value out of range 15315 S0041A3 F5 2200 IWT R5, #DIVBUF ; 15316 S0041A6 55 ADD R5 ; 15317 S0041A7 40 LDW (R0) ; 15318 S0041A8 03 LSR 15319 ; 15320 S0041A9 3D 9F LMULT ; 15321 S0041AB 24 WITH R4 15322 S0041AC 54 ADD R4 15323 S0041AD 13 TO R3 ; 15324 S0041AE 3D 50 ADC R0 15325 BG3POLD3_380 15326 S0041B0 3D A0 20 LMS R0, REG0 ; 15327 S0041B3 28 WITH R8 ; 15328 S0041B4 50 ADD R0 ; 15329 S0041B5 FA 8000 IWT R10, #08000H 15330 ; 15331 S0041B8 2E WITH R14 ;flg clear 15332 S0041B9 3F 71 BIC #001H ; 15333 ; 15334 ; 15335 ;--- buffer set 15336 ; 15337 BG3POLD3_400 15338 S0041BB B8 FROM R8 ;R6 = Xwide 15339 S0041BC 16 TO R6 ; 15340 S0041BD 67 SUB R7 ; 15341 S0041BE 0B 33' BMI BG3POLD3_410 15342 S0041C0 01 NOP 15343 S0041C1 F0 00FF IWT R0, #000FFH 15344 S0041C4 66 SUB R6 ;xw>100H>? 15345 S0041C5 0D 03' BCS BG3POLD3_405 ; 15346 S0041C7 D6 INC R6 15347 S0041C8 20 16 MOVE R6, R0 ;yes 15348 BG3POLD3_405 15349 ;; IWT R5, #000B2H ;buffer address calc & Y set position check 15350 S0041CA F5 00D2 IWT R5, #000D2H ;buffer address calc & Y set position check 15351 S0041CD 3D A0 21 LMS R0, REG1 ; 15352 S0041D0 5B ADD R11 ; 15353 S0041D1 0B 20' BMI BG3POLD3_410 ; 15354 S0041D3 65 SUB R5 ; 15355 S0041D4 0D 1D' BCS BG3POLD3_410 ; 15356 S0041D6 55 ADD R5 ;R5 = R5 * 2 15357 S0041D7 15 TO R5 ; 15358 S0041D8 50 ADD R0 ; 15359 ; 15360 S0041D9 B6 FROM R6 ;WIDE 15361 S0041DA 60 SUB R0 ;- (Yp + Y0) 15362 S0041DB 16 TO R6 ; 15363 S0041DC 3E 69 SUB #009H ; 15364 ; vvv******* warn :value out of range 15365 S0041DE F0 3372 IWT R0, #HDMABF ; 15366 S0041E1 55 ADD R5 ; 15367 S0041E2 B6 FROM R6 ; 15368 S0041E3 30 STW (R0) ; 15369 ; 15370 S0041E4 B8 FROM R8 ;R6 = <080H - (x1 + x2) /2) 15371 S0041E5 57 ADD R7 ; 15372 S0041E6 3D 96 DIV2 ; 15373 S0041E8 F6 0080 IWT R6, #080H ; 15374 S0041EB 26 WITH R6 ; 15375 S0041EC 60 SUB R0 ; 15376 ; vvv******* warn :value out of range 15377 S0041ED F0 3516 IWT R0, #HDMABF1 ;H scroll set 15378 S0041F0 55 ADD R5 ; 15379 S0041F1 B6 FROM R6 ; 15380 S0041F2 30 STW (R0) ; 15381 ; 15382 BG3POLD3_410 15383 ;; WITH R9 ;left mini calc 15384 ;; ADD R2 ; 15385 ;; WITH R7 ; 15386 ;; ADC R1 ; 15387 S0041F3 29 WITH R9 ;left mini calc 15388 S0041F4 62 SUB R2 ; 15389 S0041F5 27 WITH R7 ; 15390 S0041F6 3D 61 SBC R1 ; 15391 ; 15392 S0041F8 2A WITH R10 ;right mini calc 15393 S0041F9 54 ADD R4 ; 15394 S0041FA 28 WITH R8 ; 15395 S0041FB 3D 53 ADC R3 ; 15396 ; 15397 S0041FD 3D A0 23 LMS R0, REG3 ;end check 15398 S004200 6B SUB R11 ; 15399 S004201 09 1D' BEQ BG3POLD3_900 15400 S004203 5B ADD R11 15401 ; 15402 S004204 DB INC R11 ;write line incriment 15403 ; 15404 ;;; LMS R0, REG3 ;end check 15405 S004205 6B SUB R11 ; 15406 S004206 08 04' BNE BG3POLD3_415 ; 15407 S004208 01 NOP 15408 ; 15409 S004209 2E WITH R14 15410 S00420A 3E C4 OR #004H 15411 ; 15412 BG3POLD3_415 15413 S00420C BC FROM R12 15414 S00420D 6B SUB R11 15415 S00420E 08 04' BNE BG3POLD3_420 15416 S004210 01 NOP 15417 S004211 2E WITH R14 15418 ; 15419 S004212 3E C2 OR #002H 15420 BG3POLD3_420 15421 S004214 BD FROM R13 15422 S004215 6B SUB R11 15423 S004216 08 04' BNE BG3POLD3_430 15424 S004218 01 NOP 15425 S004219 2E WITH R14 15426 ; 15427 S00421A 3E C1 OR #001H 15428 BG3POLD3_430 15429 mDJMP_X BG3POLD3_210 15429+ S00421C FF 40E6' IWT R15, #BG3POLD3_210 15430 S00421F 01 NOP 15431 BG3POLD3_900 15432 S004220 00 STOP 15433 S004221 01 NOP 15434 ; 15435 ;>>>>>>>>>> 15436 ;function 15437 ; ‚Q“_À•W‚̃‚[ƒtƒBƒ“ƒO 15438 ;name 15439 ; ONEPOINT_MORP 15440 ;entry 15441 ;R1 : ƒ‚[ƒtƒBƒ“ƒOŒ³‚wÀ•W’l 15442 ;R2 : ƒ‚[ƒtƒBƒ“ƒOŒ³‚xÀ•W’l 15443 ;R3 : ƒ‚[ƒtƒBƒ“ƒOæ‚wÀ•W’l 15444 ;R5 : ƒ‚[ƒtƒBƒ“ƒOæ‚xÀ•W’l 15445 ;R6 : ”{—¦ 15446 ;R7 : ƒ‚[ƒtƒBƒ“ƒOŒ‹‰Ê‚wÀ•W 15447 ;R8 : ƒ‚[ƒtƒBƒ“ƒOŒ‹‰Ê‚xÀ•W 15448 ;return 15449 ;<<<<<<<<<< 15450 004222 ONEPOINT_MORP EQU $ 15451 ; 15452 S004222 B3 FROM R3 15453 S004223 61 SUB R1 15454 S004224 3D 9F LMULT 15455 S004226 24 WITH R4 15456 S004227 C0 HIB 15457 S004228 9E LOB 15458 S004229 4D SWAP 15459 S00422A C4 OR R4 15460 S00422B 17 TO R7 15461 S00422C 51 ADD R1 15462 ; 15463 S00422D B5 FROM R5 15464 S00422E 62 SUB R2 15465 S00422F 3D 9F LMULT 15466 S004231 24 WITH R4 15467 S004232 C0 HIB 15468 S004233 9E LOB 15469 S004234 4D SWAP 15470 S004235 C4 OR R4 15471 S004236 18 TO R8 15472 S004237 52 ADD R2 15473 ; 15474 S004238 00 STOP 15475 S004239 01 NOP 15476 ; 15477 ;;;;>>>>>>>>>> 15478 ;;;;<<<<<<<<<< 15479 ;;;GET_LEN EQU $ 15480 ;;; LMULT 15481 ;;; WITH R4 15482 ;;; HIB 15483 ;;; LOB 15484 ;;; SWAP 15485 ;;; OR R4 15486 ;;;; 15487 ;;; STOP 15488 ;;; NOP 15489 ;;;; 15490 ; 15491 ; 15492 ;**************************************************************** 15493 ;* * 15494 ;* “ÁŽêƒOƒ‰ƒf[ƒVƒ‡ƒ“ ƒZƒbƒg * 15495 ;* in * 15496 ;* R0 : ƒf[ƒ^ƒoƒ“ƒNƒAƒhƒŒƒX * 15497 ;* R9 : ƒf[ƒ^ƒAƒhƒŒƒX * 15498 ;**************************************************************** 15499 0001B6 NUKCOL_BF_NO EQU (724H/8)+0D2H 15500 ; 15501 ; 15502 00423A SPL_GRDTN EQU $ 15503 S00423A 3F DF ROMB 15504 ; vvv******* warn :value out of range 15505 S00423C FA 59B6 IWT R10,#WOB7CHR+NUKCOL_BF_NO ; ‚q‚f vvv******* warn :value out of range 15506 S00423F FB 5800 IWT R11,#WOB7CHR ; ‚a 15507 ; 15508 S004242 02 CACHE ; ƒLƒƒƒbƒVƒ…ƒXƒ^[ƒg !! 15509 ; 15510 SPL_GRDTN_200 15511 ; 15512 ;--------------------------------------- Œ³‚̃Jƒ‰[ ƒZƒbƒg 15513 S004243 29 1E MOVE R14,R9 15514 S004245 EF GETB 15515 S004246 DE INC R14 15516 S004247 3D EF GETBH ; R0 <- ƒJƒ‰[ƒf[ƒ^ 15517 S004249 DE INC R14 15518 ; 15519 S00424A A1 FF IBT R1,#0FFH 15520 S00424C 3F 61 CMP R1 ; ƒf[ƒ^ ƒGƒ“ƒh ? 15521 S00424E 08 05' BNE SPL_GRDTN_220 ; NO -> SPL_GRDTN_220 15522 S004250 01 NOP 15523 S004251 FF 4372' IWT R15,#SPL_GRDTN_900 15524 S004254 01 NOP 15525 ; 15526 SPL_GRDTN_220 15527 S004255 AC 1F IBT R12,#00011111B 15528 S004257 11 TO R1 15529 S004258 7C AND R12 15530 S004259 3E A1 00 SMS R1,CWORK0 ; cwrk0 <- Œ³‚Ì‚qƒJƒ‰[ 15531 ; 15532 S00425C 03 LSR 15533 S00425D 03 LSR 15534 S00425E 03 LSR 15535 S00425F 03 LSR 15536 S004260 03 LSR 15537 S004261 12 TO R2 15538 S004262 7C AND R12 15539 S004263 3E A2 01 SMS R2,CWORK1 ; cwrk1 <- Œ³‚Ì‚fƒJƒ‰[ 15540 ; 15541 S004266 03 LSR 15542 S004267 03 LSR 15543 S004268 03 LSR 15544 S004269 03 LSR 15545 S00426A 03 LSR 15546 S00426B 13 TO R3 15547 S00426C 7C AND R12 15548 S00426D 3E A3 02 SMS R3,CWORK2 ; cwrk2 <- Œ³‚Ì‚aƒJƒ‰[ 15549 ; 15550 ;--------------------------------------- æ‚̃Jƒ‰[ ƒZƒbƒg 15551 S004270 EF GETB 15552 S004271 DE INC R14 15553 S004272 3D EF GETBH ; R0 <- ƒJƒ‰[ƒf[ƒ^ 15554 S004274 DE INC R14 15555 ; 15556 S004275 11 TO R1 15557 S004276 7C AND R12 ; R1 <- æ‚Ì‚qƒJƒ‰[ 15558 ; 15559 S004277 03 LSR 15560 S004278 03 LSR 15561 S004279 03 LSR 15562 S00427A 03 LSR 15563 S00427B 03 LSR 15564 S00427C 12 TO R2 15565 S00427D 7C AND R12 ; R2 <- æ‚Ì‚fƒJƒ‰[ 15566 ; 15567 S00427E 03 LSR 15568 S00427F 03 LSR 15569 S004280 03 LSR 15570 S004281 03 LSR 15571 S004282 03 LSR 15572 S004283 13 TO R3 15573 S004284 7C AND R12 ; R3 <- æ‚Ì‚aƒJƒ‰[ 15574 ; 15575 ;--------------------------------------- ƒZƒbƒgƒ‰ƒCƒ“‚Ì” 15576 S004285 EF GETB 15577 S004286 DE INC R14 15578 S004287 1C TO R12 15579 S004288 3D EF GETBH 15580 S00428A DE INC R14 ; R12 <- ƒZƒbƒgƒ‰ƒCƒ“‚Ì” 15581 ; 15582 S00428B 2E 19 MOVE R9,R14 ; R9 <- ƒf[ƒ^ƒAƒhƒŒƒX 15583 ; 15584 ;--------------------------------------- ‚q‚f‚a‚É ‚½‚·” 15585 S00428D FE FFFF IWT R14,#0FFFFH 15586 S004290 3D A0 00 LMS R0,CWORK0 15587 S004293 61 SUB R1 15588 S004294 16 TO R6 15589 S004295 3D CE XOR R14 15590 S004297 D6 INC R6 15591 S004298 BC FROM R12 15592 S004299 03 LSR 15593 S00429A 3D 9F LMULT 15594 S00429C 3E A4 04 SMS R4,CWORK4 15595 S00429F 3E A0 05 SMS R0,CWORK5 15596 S0042A2 3E A4 0A SMS R4,CWORKA 15597 S0042A5 3E A0 0B SMS R0,CWORKB ; ‚q‚Ì‚½‚·” 15598 S0042A8 9E LOB 15599 S0042A9 4D SWAP 15600 S0042AA 24 WITH R4 15601 S0042AB C0 HIB 15602 S0042AC 11 TO R1 15603 S0042AD C4 OR R4 ; R1 <- ‚q‚Ì‚½‚·” 15604 ; 15605 S0042AE 3D A0 01 LMS R0,CWORK1 15606 S0042B1 62 SUB R2 15607 S0042B2 16 TO R6 15608 S0042B3 3D CE XOR R14 15609 S0042B5 D6 INC R6 15610 S0042B6 BC FROM R12 15611 S0042B7 03 LSR 15612 S0042B8 3D 9F LMULT 15613 S0042BA 3E A4 06 SMS R4,CWORK6 15614 S0042BD 3E A0 07 SMS R0,CWORK7 15615 S0042C0 3E A4 0C SMS R4,CWORKC 15616 S0042C3 3E A0 0D SMS R0,CWORKD ; ‚f‚Ì‚½‚·” 15617 S0042C6 9E LOB 15618 S0042C7 4D SWAP 15619 S0042C8 24 WITH R4 15620 S0042C9 C0 HIB 15621 S0042CA 12 TO R2 15622 S0042CB C4 OR R4 ; R2 <- ‚f‚Ì‚½‚·” 15623 ; 15624 S0042CC 3D A0 02 LMS R0,CWORK2 15625 S0042CF 63 SUB R3 15626 S0042D0 16 TO R6 15627 S0042D1 3D CE XOR R14 15628 S0042D3 D6 INC R6 15629 S0042D4 BC FROM R12 15630 S0042D5 03 LSR 15631 S0042D6 3D 9F LMULT 15632 S0042D8 3E A4 08 SMS R4,CWORK8 15633 S0042DB 3E A0 09 SMS R0,CWORK9 15634 S0042DE 3E A4 0E SMS R4,CWORKE 15635 S0042E1 3E A0 0F SMS R0,CWORKF ; ‚a‚Ì‚½‚·” 15636 S0042E4 9E LOB 15637 S0042E5 4D SWAP 15638 S0042E6 24 WITH R4 15639 S0042E7 C0 HIB 15640 S0042E8 13 TO R3 15641 S0042E9 C4 OR R4 ; R3 <- ‚a‚Ì‚½‚·” 15642 ; 15643 ;--------------------------------------- ƒf[ƒ^ ƒZƒbƒg !! 15644 SPL_GRDTN_400 15645 S0042EA A5 08 IBT R5,#008H 15646 SPL_GRDTN_420 15647 S0042EC EC DEC R12 ; ƒZƒbƒgI—¹ ? 15648 S0042ED 08 05' BNE SPL_GRDTN_440 ; NO -> SPL_GRDTN_440 15649 S0042EF 01 NOP 15650 S0042F0 FF 4243' IWT R15,#SPL_GRDTN_200 15651 S0042F3 01 NOP 15652 0042F4 SPL_GRDTN_440 EQU $ 15653 S0042F4 A4 20 IBT R4,#00100000B 15654 S0042F6 A6 1F IBT R6,#00011111B 15655 ; 15656 S0042F8 3D A0 00 LMS R0,CWORK0 15657 S0042FB 51 ADD R1 15658 S0042FC 76 AND R6 15659 S0042FD C4 OR R4 15660 S0042FE 3D 3A STB (R10) ; ‚qƒJƒ‰[ ƒZƒbƒg 15661 S004300 DA INC R10 15662 S004301 24 WITH R4 15663 S004302 54 ADD R4 15664 ; 15665 S004303 3D A0 01 LMS R0,CWORK1 15666 S004306 52 ADD R2 15667 S004307 76 AND R6 15668 S004308 C4 OR R4 15669 S004309 3D 3A STB (R10) ; ‚fƒJƒ‰[ ƒZƒbƒg 15670 S00430B DA INC R10 15671 S00430C 24 WITH R4 15672 S00430D 54 ADD R4 15673 ; 15674 S00430E 3D A0 02 LMS R0,CWORK2 15675 S004311 53 ADD R3 15676 S004312 76 AND R6 15677 S004313 C4 OR R4 15678 S004314 3D 3B STB (R11) ; ‚aƒJƒ‰[ ƒZƒbƒg 15679 ; 15680 S004316 E5 DEC R5 15681 S004317 08 D3' BNE SPL_GRDTN_420 15682 S004319 DB INC R11 15683 ; 15684 S00431A 3D A4 04 LMS R4,CWORK4 15685 S00431D 3D A0 0A LMS R0,CWORKA 15686 S004320 14 TO R4 15687 S004321 54 ADD R4 15688 S004322 3E A4 0A SMS R4,CWORKA 15689 S004325 3D A1 05 LMS R1,CWORK5 15690 S004328 3D A0 0B LMS R0,CWORKB ; ‚q‚Ì‚½‚·” 15691 S00432B 3D 51 ADC R1 15692 S00432D 3E A0 0B SMS R0,CWORKB 15693 S004330 9E LOB 15694 S004331 4D SWAP 15695 S004332 24 WITH R4 15696 S004333 C0 HIB 15697 S004334 11 TO R1 15698 S004335 C4 OR R4 ; R1 <- ‚q‚Ì‚½‚·” 15699 ; 15700 S004336 3D A4 06 LMS R4,CWORK6 15701 S004339 3D A0 0C LMS R0,CWORKC 15702 S00433C 14 TO R4 15703 S00433D 54 ADD R4 15704 S00433E 3E A4 0C SMS R4,CWORKC 15705 S004341 3D A2 07 LMS R2,CWORK7 15706 S004344 3D A0 0D LMS R0,CWORKD ; ‚f‚Ì‚½‚·” 15707 S004347 3D 52 ADC R2 15708 S004349 3E A0 0D SMS R0,CWORKD 15709 S00434C 9E LOB 15710 S00434D 4D SWAP 15711 S00434E 24 WITH R4 15712 S00434F C0 HIB 15713 S004350 12 TO R2 15714 S004351 C4 OR R4 ; R2 <- ‚f‚Ì‚½‚·” 15715 ; 15716 S004352 3D A4 08 LMS R4,CWORK8 15717 S004355 3D A0 0E LMS R0,CWORKE 15718 S004358 14 TO R4 15719 S004359 54 ADD R4 15720 S00435A 3E A4 0E SMS R4,CWORKE 15721 S00435D 3D A3 09 LMS R3,CWORK9 15722 S004360 3D A0 0F LMS R0,CWORKF ; ‚a‚Ì‚½‚·” 15723 S004363 3D 53 ADC R3 15724 S004365 3E A0 0F SMS R0,CWORKF 15725 S004368 9E LOB 15726 S004369 4D SWAP 15727 S00436A 24 WITH R4 15728 S00436B C0 HIB 15729 S00436C 13 TO R3 15730 S00436D C4 OR R4 ; R3 <- ‚a‚Ì‚½‚·” 15731 ; 15732 S00436E FF 42EA' IWT R15,#SPL_GRDTN_400 15733 S004371 01 NOP 15734 ; 15735 SPL_GRDTN_900 15736 S004372 00 STOP 15737 S004373 01 NOP 15738 ; 15739 ;>>>>>>>>>> 15740 ;function : ƒJƒƒbƒN‚Ù‚¤‚«ƒLƒ‰ƒLƒ‰–‚–@—pƒ}ƒXƒNƒEƒBƒ“ƒhƒEƒZƒbƒg 15741 ;KIRAKIRA_WINSET 15742 ;entry 15743 ;R1 KAMEC NOW X POSITION 15744 ;R2 KAMEC NOW Y POSITION 15745 ;R7 KAMEC OLD X POSITION 15746 ;R8 KAMEC OLD Y POSITION 15747 ;return 15748 ;HDMA_WINDOW_BUFFER 15749 ;HDMA_VSCROLL_BUFFER 15750 ;<<<<<<<<<< 15751 ; 15752 000009 Y_PLUS EQU 009H ;ã‚Ì—]”’•”•ª‚̃hƒbƒg” 15753 ;;BUFFER_LINE EQU 0B2H ;HDMA BUFFER LINE (SCROLL) 15754 0000D2 BUFFER_LINE EQU 0D2H ;HDMA BUFFER LINE (SCROLL) 15755 0000D2 BUFFER_LINE2 EQU 0D2H ;HDMA BUFFER LINE (WINDOW) 15756 ; 15757 004374 KIRAKIRA_WINSET EQU $ 15758 ; 15759 ;--- paramter check & pararmeter reset 15760 ; 15761 S004374 A4 00 IBT R4, #000H ;initial flg reset 15762 S004376 F3 0100 IWT R3, #0100H ;NOW X paramter check 15763 S004379 21 B1 MOVES R1,R1 ; 15764 S00437B 0B 0C' BMI KIRAWS_005 ; 15765 S00437D 01 NOP ; 15766 S00437E B1 FROM R1 ; 15767 S00437F 63 SUB R3 ; 15768 S004380 0B 09' BMI KIRAWS_010 ; 15769 S004382 01 NOP ; 15770 S004383 F1 00FF IWT R1, #000FFH ; 15771 S004386 05 03' BRA KIRAWS_010 ; 15772 S004388 01 NOP ; 15773 KIRAWS_005 ; 15774 S004389 A1 00 IBT R1, #000H ; 15775 KIRAWS_010 ;OLD X paramter check 15776 S00438B 27 B7 MOVES R7,R7 ; 15777 S00438D 0B 0E' BMI KIRAWS_015 ; 15778 S00438F 01 NOP ; 15779 S004390 B7 FROM R7 ; 15780 S004391 63 SUB R3 ; 15781 S004392 0B 0B' BMI KIRAWS_020 ; 15782 S004394 01 NOP ; 15783 S004395 F7 00FF IWT R7, #000FFH ; 15784 S004398 A4 01 IBT R4, #001H ; 15785 S00439A 05 03' BRA KIRAWS_020 ; 15786 S00439C 01 NOP ; 15787 KIRAWS_015 ; 15788 S00439D A7 00 IBT R7, #000H ; 15789 KIRAWS_020 15790 S00439F F3 00D2 IWT R3, #BUFFER_LINE2 ;NOW Y paramter check 15791 S0043A2 22 B2 MOVES R2,R2 ; 15792 S0043A4 0B 0C' BMI KIRAWS_025 ; 15793 S0043A6 01 NOP ; 15794 S0043A7 B2 FROM R2 ; 15795 S0043A8 63 SUB R3 ; 15796 S0043A9 0B 09' BMI KIRAWS_030 ; 15797 S0043AB 01 NOP ; 15798 S0043AC F2 00D1 IWT R2, #BUFFER_LINE2-1 ; 15799 S0043AF 05 03' BRA KIRAWS_030 ; 15800 S0043B1 01 NOP ; 15801 KIRAWS_025 ; 15802 S0043B2 A1 00 IBT R1, #000H ; 15803 KIRAWS_030 ;OLD Y paramter check 15804 S0043B4 28 B8 MOVES R8,R8 ; 15805 S0043B6 0B 0C' BMI KIRAWS_035 ; 15806 S0043B8 01 NOP ; 15807 S0043B9 B8 FROM R8 ; 15808 S0043BA 63 SUB R3 ; 15809 S0043BB 0B 09' BMI KIRAWS_040 ; 15810 S0043BD 01 NOP ; 15811 S0043BE F8 00D1 IWT R8, #BUFFER_LINE2-1 ; 15812 S0043C1 05 03' BRA KIRAWS_040 ; 15813 S0043C3 01 NOP ; 15814 KIRAWS_035 ; 15815 S0043C4 A7 00 IBT R7, #000H 15816 KIRAWS_040 15817 ; 15818 ;--- initial 15819 ; 15820 S0043C6 24 B4 MOVES R4,R4 15821 S0043C8 09 23' BEQ KIRAWS_200 15822 S0043CA 01 NOP 15823 ; 15824 S0043CB B2 FROM R2 15825 S0043CC 13 TO R3 15826 S0043CD 3E 68 SUB #Y_PLUS-1 15827 ; 15828 S0043CF F9 00FF IWT R9, #000FFH ;window open paramter vvv******* warn :value out of range 15829 S0043D2 F4 3D46 IWT R4, #WINDBF+BUFFER_LINE2*4-4 15830 S0043D5 A5 04 IBT R5, #004H ;address decrement paramter 15831 S0043D7 F6 FF00 IWT R6, #0FF00H ;window close paramter 15832 ; 15833 S0043DA 02 CACHE 15834 ; 15835 S0043DB FC 00D2 IWT R12, #BUFFER_LINE2 ;ƒZƒbƒg” 15836 S0043DE 2F 1D MOVE R13, R15 15837 KIRAWS_110 15838 S0043E0 BC FROM R12 15839 S0043E1 63 SUB R3 15840 S0043E2 08 04' BNE KIRAWS_120 15841 S0043E4 B9 FROM R9 15842 ; 15843 S0043E5 26 19 MOVE R9, R6 15844 S0043E7 B9 FROM R9 15845 KIRAWS_120 15846 S0043E8 34 STW (R4) 15847 S0043E9 24 WITH R4 15848 S0043EA 65 SUB R5 15849 ; 15850 S0043EB 3C LOOP 15851 S0043EC 01 NOP 15852 ; 15853 ; 15854 ;--- pramter calc 15855 ; 15856 KIRAWS_200 15857 S0043ED B7 FROM R7 ;R9 = Xv = R7 - R1 +1 15858 S0043EE 19 TO R9 ; 15859 S0043EF 61 SUB R1 ; 15860 S0043F0 01 NOP 15861 S0043F1 B8 FROM R8 ;R10 = Yw = R8 - R2 15862 S0043F2 1A TO R10 ; 15863 S0043F3 62 SUB R2 ; 15864 S0043F4 DA INC R10 vvv******* warn :value out of range 15865 S0043F5 F0 2200 IWT R0, #DIVBUF ;R6 = (1/ Yw) / 2 15866 S0043F8 5A ADD R10 ; 15867 S0043F9 5A ADD R10 ; 15868 S0043FA 40 LDW (R0) ; 15869 S0043FB 16 TO R6 ; 15870 S0043FC 03 LSR ; 15871 S0043FD B9 FROM R9 ;R11 = Xv / (Yw-1) * 0100H 15872 S0043FE 3E 60 SUB #000H ; 15873 S004400 4D SWAP ; 15874 S004401 9F FMULT ; 15875 S004402 1B TO R11 ; 15876 S004403 04 ROL ; 15877 S004404 21 WITH R1 ;R1 = XNewPos * 0100H 15878 S004405 4D SWAP ; 15879 S004406 B2 FROM R2 ;R5 = HDMA BUFFER SET START ADDRESS = (R2 - Y_PLUS) * 4 + WINDBF 15880 S004407 3E 69 SUB #Y_PLUS ; 15881 S004409 50 ADD R0 ;*2 15882 S00440A 50 ADD R0 ;*4 vvv******* warn :value out of range 15883 S00440B F5 3A02 IWT R5, #WINDBF ; 15884 S00440E 15 TO R5 ; 15885 S00440F 55 ADD R5 ; 15886 ; 15887 S004410 F4 FF00 IWT R4, #0FF00H 15888 S004413 A6 04 IBT R6, #004H 15889 ; 15890 S004415 02 CACHE 15891 ; 15892 S004416 F9 0080 IWT R9, #080H 15893 ; 15894 S004419 2A 1C MOVE R12, R10 15895 S00441B 2F 1D MOVE R13, R15 15896 KIRAWS_210 15897 S00441D B1 FROM R1 15898 S00441E 59 ADD R9 15899 S00441F 4D SWAP 15900 S004420 C4 OR R4 ;AND #0FFH 15901 S004421 35 STW (R5) 15902 S004422 25 WITH R5 15903 S004423 56 ADD R6 15904 S004424 21 WITH R1 15905 S004425 5B ADD R11 15906 ; 15907 S004426 0C 05' BCC KIRAWS_220 15908 S004428 01 NOP 15909 S004429 F0 00FF IWT R0, #0FFH 15910 S00442C 35 STW (R5) 15911 KIRAWS_220 15912 S00442D 3C LOOP 15913 S00442E 01 NOP 15914 ; 15915 S00442F 00 STOP 15916 S004430 01 NOP 15917 ; 15918 ;>>>>>>>>> 15919 ;KIRAKIRA_TSET 15920 ;entry 15921 ;R1 = START COLOR 15922 ;R2 = END COLOR 15923 ;R3 = TABLE ADDRESS 15924 ;R5 = number of SET 15925 ;return 15926 ;<<<<<<<<<< 15927 004431 KIRAKIRA_TSET EQU $ 15928 ; vvv******* warn :value out of range 15929 S004431 F0 2200 IWT R0, #DIVBUF ;R6 = (1 / R5) / 2 = (1 / ƒ‰ƒCƒ“”) / 2 15930 S004434 55 ADD R5 ; 15931 S004435 55 ADD R5 ; 15932 S004436 40 LDW (R0) ; 15933 S004437 16 TO R6 15934 S004438 03 LSR 15935 ;---blue 15936 S004439 B1 FROM R1 ;minimum blue = R7 : R8 = REG0 : REG1 15937 S00443A C0 HIB ; 15938 S00443B 03 LSR ; 15939 S00443C 17 TO R7 ; 15940 S00443D 03 LSR ; 15941 ; ; 15942 S00443E B2 FROM R2 ; 15943 S00443F C0 HIB ; 15944 S004440 03 LSR ; 15945 S004441 03 LSR ; 15946 S004442 67 SUB R7 ; 15947 S004443 D0 INC R0 15948 S004444 3D 9F LMULT ; 15949 S004446 B4 FROM R4 ; 15950 S004447 1C TO R12 ; 15951 S004448 54 ADD R4 ; 15952 S004449 1D TO R13 ; 15953 S00444A 3D 50 ADC R0 ; 15954 S00444C 3E AC 20 SMS R12, REG0 ; 15955 S00444F 3E AD 21 SMS R13, REG1 ; 15956 ;---green 15957 S004452 AE 1F IBT R14, #01FH ;minimum green = R7 : R8 = REG2 : REG3 15958 S004454 B1 FROM R1 ; 15959 S004455 03 LSR ; 15960 S004456 03 LSR ; 15961 S004457 03 LSR ; 15962 S004458 03 LSR ; 15963 S004459 03 LSR ; 15964 S00445A 19 TO R9 ; 15965 S00445B 7E AND R14 ; 15966 ; ; 15967 S00445C B2 FROM R2 ; 15968 S00445D 03 LSR ; 15969 S00445E 03 LSR ; 15970 S00445F 03 LSR ; 15971 S004460 03 LSR ; 15972 S004461 03 LSR ; 15973 S004462 7E AND R14 ; 15974 S004463 69 SUB R9 ; 15975 S004464 D0 INC R0 15976 S004465 3D 9F LMULT ; 15977 S004467 B4 FROM R4 ; 15978 S004468 1C TO R12 ; 15979 S004469 54 ADD R4 ; 15980 S00446A 1D TO R13 ; 15981 S00446B 3D 50 ADC R0 ; 15982 S00446D 3E AC 22 SMS R12, REG2 ; 15983 S004470 3E AD 23 SMS R13, REG3 ; 15984 ;---red 15985 S004473 B1 FROM R1 ;minimum red = R7 : R8 = REG4 : REG5 15986 S004474 1B TO R11 ; 15987 S004475 7E AND R14 ; 15988 ; ; 15989 S004476 B2 FROM R2 ; 15990 S004477 7E AND R14 ; 15991 S004478 6B SUB R11 ; 15992 S004479 D0 INC R0 ; 15993 S00447A 3D 9F LMULT ; 15994 S00447C B4 FROM R4 ; 15995 S00447D 1C TO R12 ; 15996 S00447E 54 ADD R4 ; 15997 S00447F 1D TO R13 ; 15998 S004480 3D 50 ADC R0 ; 15999 S004482 3E AC 24 SMS R12, REG4 ; 16000 S004485 3E AD 25 SMS R13, REG5 ; 16001 ; 16002 S004488 A6 00 IBT R6, #000H ; 16003 S00448A A8 00 IBT R8, #000H ; 16004 S00448C AA 00 IBT R10, #000H ; 16005 ; 16006 S00448E A4 1F IBT R4, #01FH 16007 ; 16008 S004490 02 CACHE 16009 ; 16010 S004491 25 1C MOVE R12, R5 16011 S004493 2F 1D MOVE R13, R15 16012 KIRAKIRATS_110 16013 S004495 B7 FROM R7 ;blue 16014 S004496 74 AND R4 ; 16015 S004497 4D SWAP ; 16016 S004498 04 ROL ; 16017 S004499 15 TO R5 ; 16018 S00449A 04 ROL ; 16019 ; 16020 S00449B B9 FROM R9 ;green 16021 S00449C 74 AND R4 ; 16022 S00449D 04 ROL ; 16023 S00449E 04 ROL ; 16024 S00449F 04 ROL ; 16025 S0044A0 04 ROL ; 16026 S0044A1 04 ROL ; 16027 S0044A2 C5 OR R5 ; 16028 ; 16029 S0044A3 2B WITH R11 ;red 16030 S0044A4 74 AND R4 ; 16031 S0044A5 CB OR R11 ; 16032 ; 16033 S0044A6 33 STW (R3) 16034 S0044A7 D3 INC R3 16035 S0044A8 D3 INC R3 16036 ; 16037 S0044A9 3D A1 20 LMS R1, REG0 ;blue 16038 S0044AC 3D A2 21 LMS R2, REG1 ; 16039 ; ; 16040 S0044AF 26 WITH R6 ; 16041 S0044B0 51 ADD R1 ; 16042 S0044B1 27 WITH R7 ; 16043 S0044B2 3D 52 ADC R2 ; 16044 ; 16045 S0044B4 3D A1 22 LMS R1, REG2 ;green 16046 S0044B7 3D A2 23 LMS R2, REG3 ; 16047 ; ; 16048 S0044BA 28 WITH R8 ; 16049 S0044BB 51 ADD R1 ; 16050 S0044BC 29 WITH R9 ; 16051 S0044BD 3D 52 ADC R2 ; 16052 ; 16053 S0044BF 3D A1 24 LMS R1, REG4 ;red 16054 S0044C2 3D A2 25 LMS R2, REG5 ; 16055 ; ; 16056 S0044C5 2A WITH R10 ; 16057 S0044C6 51 ADD R1 ; 16058 S0044C7 2B WITH R11 ; 16059 S0044C8 3D 52 ADC R2 ; 16060 ; 16061 S0044CA 3C LOOP 16062 S0044CB 01 NOP 16063 ; 16064 S0044CC 00 STOP 16065 S0044CD 01 NOP 16066 ; 16067 ;>>>>>>>>>> 16068 ;function : ƒJƒƒbƒN‚Ù‚¤‚«ƒLƒ‰ƒLƒ‰–‚–@—pƒ}ƒXƒNƒEƒBƒ“ƒhƒEƒZƒbƒg 16069 ;KIRAKIRA_WINST2 16070 ;entry 16071 ;R1 KAMEC NOW X POSITION 16072 ;R2 KAMEC NOW Y POSITION 16073 ;R7 KAMEC OLD X POSITION 16074 ;R8 KAMEC OLD Y POSITION 16075 ;return 16076 ;HDMA_WINDOW_BUFFER 16077 ;HDMA_VSCROLL_BUFFER 16078 ;<<<<<<<<<< 16079 ; 16080 ;;Y_PLUS EQU 009H ;ã‚Ì—]”’•”•ª‚̃hƒbƒg” 16081 ;;BUFFER_LINE EQU 0B2H ;HDMA BUFFER LINE (SCROLL) 16082 ;;BUFFER_LINE2 EQU 0D2H ;HDMA BUFFER LINE (WINDOW) 16083 ; 16084 0044CE KIRAKIRA_WINST2 EQU $ 16085 ; 16086 ;--- paramter check & pararmeter reset 16087 ; 16088 S0044CE A4 00 IBT R4, #000H ;initial flg reset 16089 S0044D0 F3 0100 IWT R3, #0100H ;NOW X paramter check 16090 S0044D3 21 B1 MOVES R1,R1 ; 16091 S0044D5 0B 0C' BMI KIRAWS2_005 ; 16092 S0044D7 01 NOP ; 16093 S0044D8 B1 FROM R1 ; 16094 S0044D9 63 SUB R3 ; 16095 S0044DA 0B 09' BMI KIRAWS2_010 ; 16096 S0044DC 01 NOP ; 16097 S0044DD F1 00FF IWT R1, #000FFH ; 16098 S0044E0 05 03' BRA KIRAWS2_010 ; 16099 S0044E2 01 NOP ; 16100 KIRAWS2_005 ; 16101 S0044E3 A1 00 IBT R1, #000H ; 16102 KIRAWS2_010 ;OLD X paramter check 16103 S0044E5 27 B7 MOVES R7,R7 ; 16104 S0044E7 0B 0C' BMI KIRAWS2_015 ; 16105 S0044E9 01 NOP ; 16106 S0044EA B7 FROM R7 ; 16107 S0044EB 63 SUB R3 ; 16108 S0044EC 0B 0B' BMI KIRAWS2_020 ; 16109 S0044EE 01 NOP ; 16110 S0044EF F7 00FF IWT R7, #000FFH ; 16111 S0044F2 05 05' BRA KIRAWS2_020 ; 16112 S0044F4 01 NOP ; 16113 KIRAWS2_015 ; 16114 S0044F5 A4 01 IBT R4, #001H ; 16115 S0044F7 A7 00 IBT R7, #000H ; 16116 KIRAWS2_020 16117 S0044F9 F3 00D2 IWT R3, #BUFFER_LINE2 ;NOW Y paramter check 16118 S0044FC 22 B2 MOVES R2,R2 ; 16119 S0044FE 0B 0C' BMI KIRAWS2_025 ; 16120 S004500 01 NOP ; 16121 S004501 B2 FROM R2 ; 16122 S004502 63 SUB R3 ; 16123 S004503 0B 09' BMI KIRAWS2_030 ; 16124 S004505 01 NOP ; 16125 S004506 F2 00D1 IWT R2, #BUFFER_LINE2-1 ; 16126 S004509 05 03' BRA KIRAWS2_030 ; 16127 S00450B 01 NOP ; 16128 KIRAWS2_025 ; 16129 S00450C A1 00 IBT R1, #000H ; 16130 KIRAWS2_030 ;OLD Y paramter check 16131 S00450E 28 B8 MOVES R8,R8 ; 16132 S004510 0B 0C' BMI KIRAWS2_035 ; 16133 S004512 01 NOP ; 16134 S004513 B8 FROM R8 ; 16135 S004514 63 SUB R3 ; 16136 S004515 0B 09' BMI KIRAWS2_040 ; 16137 S004517 01 NOP ; 16138 S004518 F8 00D1 IWT R8, #BUFFER_LINE2-1 ; 16139 S00451B 05 03' BRA KIRAWS2_040 ; 16140 S00451D 01 NOP ; 16141 KIRAWS2_035 ; 16142 S00451E A7 00 IBT R7, #000H 16143 KIRAWS2_040 16144 ; 16145 ;--- initial 16146 ; 16147 S004520 24 B4 MOVES R4,R4 16148 S004522 09 23' BEQ KIRAWS2_200 16149 S004524 01 NOP 16150 ; 16151 S004525 B2 FROM R2 16152 S004526 13 TO R3 16153 S004527 3E 68 SUB #Y_PLUS-1 16154 ; 16155 S004529 F9 00FF IWT R9, #000FFH ;window open paramter vvv******* warn :value out of range 16156 S00452C F4 3D46 IWT R4, #WINDBF+BUFFER_LINE2*4-4 16157 S00452F A5 04 IBT R5, #004H ;address decrement paramter 16158 S004531 F6 FF00 IWT R6, #0FF00H ;window close paramter 16159 ; 16160 S004534 02 CACHE 16161 ; 16162 S004535 FC 00D2 IWT R12, #BUFFER_LINE2 ;ƒZƒbƒg” 16163 S004538 2F 1D MOVE R13, R15 16164 KIRAWS2_110 16165 S00453A BC FROM R12 16166 S00453B 63 SUB R3 16167 S00453C 08 04' BNE KIRAWS2_120 16168 S00453E B9 FROM R9 16169 ; 16170 S00453F 26 19 MOVE R9, R6 16171 S004541 B9 FROM R9 16172 KIRAWS2_120 16173 S004542 34 STW (R4) 16174 S004543 24 WITH R4 16175 S004544 65 SUB R5 16176 ; 16177 S004545 3C LOOP 16178 S004546 01 NOP 16179 ; 16180 ; 16181 ;--- pramter calc 16182 ; 16183 KIRAWS2_200 16184 S004547 B1 FROM R1 ;R9 = Xw = R1 - R7 +1 16185 S004548 19 TO R9 ; 16186 S004549 67 SUB R7 ; 16187 S00454A 01 NOP 16188 S00454B B8 FROM R8 ;R10 = Yw = R8 - R2 16189 S00454C 1A TO R10 ; 16190 S00454D 62 SUB R2 ; 16191 S00454E DA INC R10 vvv******* warn :value out of range 16192 S00454F F0 2200 IWT R0, #DIVBUF ;R6 = (1/ Yw) / 2 16193 S004552 5A ADD R10 ; 16194 S004553 5A ADD R10 ; 16195 S004554 40 LDW (R0) ; 16196 S004555 16 TO R6 ; 16197 S004556 03 LSR ; 16198 S004557 B9 FROM R9 ;R11 = Xw / (Yw-1) * 0100H 16199 S004558 3E 60 SUB #000H ; 16200 S00455A 4D SWAP ; 16201 S00455B 9F FMULT ; 16202 S00455C 1B TO R11 ; 16203 S00455D 04 ROL ; 16204 S00455E 21 WITH R1 ;R1 = XNewPos * 0100H 16205 S00455F 4D SWAP ; 16206 S004560 B2 FROM R2 ;R5 = HDMA BUFFER SET START ADDRESS = (R2 - Y_PLUS) * 4 + WINDBF 16207 S004561 3E 69 SUB #Y_PLUS ; 16208 S004563 50 ADD R0 ;*2 16209 S004564 50 ADD R0 ;*4 vvv******* warn :value out of range 16210 S004565 F5 3A02 IWT R5, #WINDBF ; 16211 S004568 15 TO R5 ; 16212 S004569 55 ADD R5 ; 16213 ; 16214 S00456A F4 FF00 IWT R4, #0FF00H 16215 S00456D A6 04 IBT R6, #004H 16216 ; 16217 S00456F 02 CACHE 16218 ; 16219 S004570 F9 0080 IWT R9, #080H 16220 ; 16221 S004573 2A 1C MOVE R12, R10 16222 S004575 2F 1D MOVE R13, R15 16223 KIRAWS2_210 16224 S004577 B1 FROM R1 16225 S004578 59 ADD R9 16226 S004579 0C 04' BCC KIRAWS2_212 16227 S00457B 01 NOP 16228 S00457C F0 FF00 IWT R0, #0FF00H 16229 KIRAWS2_212 16230 ;;; SWAP 16231 S00457F 74 AND R4 ;AND #0FF00H 16232 S004580 35 STW (R5) 16233 S004581 25 WITH R5 16234 S004582 56 ADD R6 16235 S004583 21 WITH R1 16236 S004584 6B SUB R11 16237 ; 16238 S004585 0D 05' BCS KIRAWS2_220 16239 S004587 01 NOP 16240 S004588 F0 00FF IWT R0, #0FFH 16241 S00458B 35 STW (R5) 16242 KIRAWS2_220 16243 S00458C 3C LOOP 16244 S00458D 01 NOP 16245 ; 16246 S00458E 00 STOP 16247 S00458F 01 NOP 16248 ; 16249 ;>>>>>>>>>> 16250 ;function : ƒJƒƒbƒN‚Ù‚¤‚«ƒLƒ‰ƒLƒ‰–‚–@—pƒJ[ƒeƒ“ƒZƒbƒg 16251 ;KIRAKIRA_VSCRSET 16252 ;entry 16253 ; EXTRA RAM 16254 ;return 16255 ;HDMA_WINDOW_BUFFER 16256 ;HDMA_VSCROLL_BUFFER 16257 ;<<<<<<<<<< 16258 ; 16259 ;;KIRAKIRA_V_VSP EQU 00000H ;cƒXƒNƒ[ƒ‹ŠJŽnˆÊ’u ;NON RESET 16260 ;;KIRAKIRA_V_VS EQU 00000H ;cƒXƒNƒ[ƒ‹—Ê ; RESET 16261 ;;KIRAKIRA_V_VSL EQU 00000H ;cƒXƒNƒ[ƒ‹—ʬ”•” ; RESET 16262 ;;KIRAKIRA_V_VSS EQU 00000H ;cƒXƒNƒ[ƒ‹‘¬“x ;NON RESET 16263 ;;KIRAKIRA_V_VSA EQU 00000H ;cƒXƒNƒ[ƒ‹‰Á‘¬“x ;NON RESET 16264 ;;KIRAKIRA_V_ST EQU 00000H ;cƒXƒNƒ[ƒ‹L‚΂µƒ‰ƒCƒ“” ; RESET X 16265 ;;KIRAKIRA_V_STS EQU 00000H ;cƒXƒNƒ[ƒ‹L‚΂µƒ‰ƒCƒ“”‘‰Á‘¬“x ; RESET 16266 ;;KIRAKIRA_V_STA EQU 00000H ;cƒXƒNƒ[ƒ‹L‚΂µƒ‰ƒCƒ“”‘‰Á‰Á‘¬“x ;NON RESET 16267 ;;KIRAKIRA_V_STSS EQU 00000H ;cƒXƒNƒ[ƒ‹L‚΂µƒ‰ƒCƒ“”‘¬“xƒtƒŒ[ƒ€–ˆ‘‰Á‘¬“x ; RESET 16268 ;;KIRAKIRA_V_STSA EQU 00000H ;cƒXƒNƒ[ƒ‹L‚΂µƒ‰ƒCƒ“”‘¬“xƒtƒŒ[ƒ€–ˆ‘‰Á‰Á‘¬“x ;NON RESET 16269 ; 16270 ;‘¬“x‚Ì’PˆÊ‚Í‚·‚ׂÄ100H = 1.0iƒXƒNƒ[ƒ‹‚à“¯‚¶j 16271 ; 16272 004590 KIRAKIRA_SCRSET EQU $ 16273 ; vvv******* warn :value out of range 16274 S004590 FA 44A0 IWT R10, #KIRAKIRA_V_VS ;R1 = VS 16275 S004593 11 TO R1 ; 16276 S004594 4A LDW (R10) ; vvv******* warn :value out of range 16277 S004595 F0 44A2 IWT R0, #KIRAKIRA_V_VSL ;R11 = VSL 16278 S004598 1B TO R11 ; 16279 S004599 40 LDW (R0) ; vvv******* warn :value out of range 16280 S00459A F0 449E IWT R0, #KIRAKIRA_V_VSP ;R2 = VSP * 2 + HDMABF = VSCROLL ADDRESS 16281 S00459D 40 LDW (R0) ; 16282 S00459E 3E 69 SUB #Y_PLUS ; 16283 S0045A0 20 18 MOVE R8, R0 ; 16284 S0045A2 50 ADD R0 ; vvv******* warn :value out of range 16285 S0045A3 F2 3372 IWT R2, #HDMABF ; 16286 S0045A6 12 TO R2 ; 16287 S0045A7 52 ADD R2 ; 16288 ; 16289 S0045A8 F5 0100 IWT R5, #0100H ; vvv******* warn :value out of range 16290 S0045AB F9 44A8 IWT R9, #KIRAKIRA_V_ST ; 16291 S0045AE 13 TO R3 ; 16292 S0045AF 49 LDW (R9) ; 16293 S0045B0 B3 FROM R3 16294 S0045B1 65 SUB R5 ; 16295 S0045B2 0B 03' BMI KIRAKIRASS_005 ; 16296 S0045B4 01 NOP 16297 S0045B5 25 13 MOVE R3, R5 16298 KIRAKIRASS_005 vvv******* warn :value out of range 16299 S0045B7 F0 44AA IWT R0, #KIRAKIRA_V_STS ; 16300 S0045BA 15 TO R5 ; 16301 S0045BB 40 LDW (R0) ; 16302 ; vvv******* warn :value out of range 16303 S0045BC F0 44AC IWT R0, #KIRAKIRA_V_STA ; 16304 S0045BF 16 TO R6 ; 16305 S0045C0 40 LDW (R0) ; 16306 ; 16307 S0045C1 F0 00D2 MOVE R0, #BUFFER_LINE ; 16308 S0045C4 1C TO R12 ; 16309 S0045C5 68 SUB R8 ; 16310 ; 16311 S0045C6 F8 0100 IWT R8, #0100H 16312 ; 16313 S0045C9 02 CACHE 16314 ; 16315 S0045CA 2F 1D MOVE R13, R15 ; 16316 KIRAKIRASS_010 16317 S0045CC B1 FROM R1 ; 16318 S0045CD 32 STW (R2) ; 16319 S0045CE D2 INC R2 ; 16320 S0045CF D2 INC R2 ; 16321 S0045D0 B3 FROM R3 16322 S0045D1 9E LOB 16323 S0045D2 4D SWAP 16324 S0045D3 2B WITH R11 16325 S0045D4 60 SUB R0 16326 S0045D5 B3 FROM R3 16327 S0045D6 C0 HIB 16328 S0045D7 95 SEX 16329 S0045D8 21 WITH R1 16330 S0045D9 3D 60 SBC R0 16331 S0045DB F4 00E0 IWT R4, #000E0H 16332 S0045DE 23 WITH R3 ;ST(XX.XX)+=STS(XX.XX) 16333 S0045DF 55 ADD R5 ; 16334 S0045E0 B3 FROM R3 16335 S0045E1 64 SUB R4 16336 S0045E2 0C 03' BCC KIRAKIRASS_015 ; 16337 S0045E4 54 ADD R4 16338 S0045E5 24 13 MOVE R3, R4 16339 KIRAKIRASS_015 16340 S0045E7 B3 FROM R3 ; 16341 S0045E8 68 SUB R8 ; 16342 S0045E9 0B 03' BMI KIRAKIRASS_020 16343 S0045EB 58 ADD R8 16344 S0045EC 28 13 MOVE R3, R8 16345 KIRAKIRASS_020 16346 S0045EE 25 WITH R5 ;STS(XX.XX)+=STA(XX.XX) 16347 S0045EF 56 ADD R6 16348 KIRAKIRASS_030 16349 S0045F0 3C LOOP 16350 S0045F1 01 NOP 16351 ; vvv******* warn :value out of range 16352 S0045F2 F8 44A2 IWT R8, #KIRAKIRA_V_VSL 16353 S0045F5 16 TO R6 16354 S0045F6 48 LDW (R8) vvv******* warn :value out of range 16355 S0045F7 F7 44A4 IWT R7, #KIRAKIRA_V_VSS 16356 S0045FA 11 TO R1 16357 S0045FB 47 LDW (R7) 16358 S0045FC B1 FROM R1 16359 S0045FD 9E LOB 16360 S0045FE 12 TO R2 16361 S0045FF 4D SWAP 16362 S004600 B1 FROM R1 16363 S004601 C0 HIB 16364 S004602 13 TO R3 16365 S004603 95 SEX 16366 S004604 B6 FROM R6 16367 S004605 52 ADD R2 16368 S004606 38 STW (R8) 16369 S004607 4A LDW (R10) 16370 S004608 3D 53 ADC R3 16371 S00460A 3A STW (R10) 16372 ; vvv******* warn :value out of range 16373 S00460B F0 44A6 IWT R0, #KIRAKIRA_V_VSA 16374 S00460E 40 LDW (R0) 16375 S00460F 51 ADD R1 16376 S004610 37 STW (R7) 16377 ; vvv******* warn :value out of range 16378 S004611 F2 44AE IWT R2, #KIRAKIRA_V_STSS 16379 S004614 11 TO R1 16380 S004615 42 LDW (R2) 16381 S004616 B1 FROM R1 16382 S004617 13 TO R3 16383 S004618 C0 HIB 16384 S004619 23 WITH R3 16385 S00461A 03 LSR 16386 S00461B 23 WITH R3 16387 S00461C 03 LSR 16388 S00461D 23 WITH R3 16389 S00461E 03 LSR 16390 S00461F 23 WITH R3 16391 S004620 03 LSR 16392 S004621 49 LDW (R9) ;STS LOAD 16393 S004622 53 ADD R3 ; ST = ST + STSS 16394 S004623 39 STW (R9) ; 16395 ; vvv******* warn :value out of range 16396 S004624 F0 44B0 IWT R0, #KIRAKIRA_V_STSA 16397 S004627 40 LDW (R0) 16398 S004628 B1 FROM R1 16399 S004629 50 ADD R0 16400 S00462A 32 STW (R2) 16401 ; 16402 ;; STOP 16403 ;; NOP 16404 ; 16405 KIRAKIRA2 16406 ; vvv******* warn :value out of range 16407 S00462B F1 36BA IWT R1, #HDMABF2 ;initalize 16408 S00462E A0 00 IBT R0, #000H ; 16409 ; ; 16410 S004630 02 CACHE ; 16411 ; ; 16412 S004631 FC 00D2 IWT R12, #BUFFER_LINE ; 16413 S004634 2F 1D MOVE R13, R15 ; 16414 KIRAKIRA2_01 ; 16415 S004636 31 STW (R1) ; 16416 ; ; 16417 S004637 D1 INC R1 ; 16418 S004638 D1 INC R1 ; 16419 ; ; 16420 S004639 3C LOOP ; 16421 S00463A 01 NOP ; 16422 KIRAKIRA2_02 16423 S00463B F0 00D2 IWT R0, #BUFFER_LINE ;R12 = LOOP COUNTER = SET LINE NO. vvv******* warn :value out of range 16424 S00463E F2 44F2 IWT R2, #KIRAKIRA_C_SP ;R2 = START LINE NO. 16425 S004641 12 TO R2 ; 16426 S004642 42 LDW (R2) ; 16427 ;;; WITH R2 ; 16428 ;;; SUB #009H ; 16429 S004643 22 WITH R2 ; 16430 S004644 C0 HIB ; 16431 S004645 1C TO R12 ; 16432 S004646 62 SUB R2 ; 16433 ; vvv******* warn :value out of range 16434 S004647 F0 36BA IWT R0, #HDMABF2 ;R1 = HDMA TBL ADDRESS 16435 S00464A 52 ADD R2 ; 16436 S00464B 11 TO R1 ; 16437 S00464C 52 ADD R2 ; 16438 ; vvv******* warn :value out of range 16439 S00464D F0 44F8 IWT R0, #KIRAKIRA_C_TW ;R3,R10 LINE VOL. (R10 = MASTER) 16440 S004650 13 TO R3 ; 16441 S004651 40 LDW (R0) ; 16442 S004652 23 1A MOVE R10, R3 16443 ; vvv******* warn :value out of range 16444 S004654 F0 44FE IWT R0, #KIRAKIRA_C_TWBS ;R4 = LINE VOL ADD PER BLOCK 16445 S004657 14 TO R4 ; 16446 S004658 40 LDW (R0) ; 16447 ; vvv******* warn :value out of range 16448 S004659 F0 4500 IWT R0, #KIRAKIRA_C_TWBA ;R5 = (LINE VOL ADD) VOL ADD PER BLOCK 16449 S00465C 15 TO R5 ; 16450 S00465D 40 LDW (R0) ; 16451 ; vvv******* warn :value out of range 16452 S00465E F0 4502 IWT R0, #KIRAKIRA_C_TC ;R11 = Top Color_table address = TC * 2 + KIRAKIRA_CTBL 16453 S004661 40 LDW (R0) ; 16454 S004662 20 B0 MOVES R0,R0 ; 16455 S004664 0A 03' BPL KIRAKIRA2_005 ; 16456 S004666 01 NOP ; 16457 S004667 A0 00 IBT R0, #000H ; 16458 KIRAKIRA2_005 16459 S004669 C0 HIB ; 16460 S00466A 50 ADD R0 ; vvv******* warn :value out of range 16461 S00466B FE 44B2 IWT R14, #KIRAKIRA_CTBL ; 16462 S00466E 1B TO R11 ; 16463 S00466F 5E ADD R14 ; 16464 ; vvv******* warn :value out of range 16465 S004670 F6 44F0 IWT R6, #KIRAKIRA_CTBL_E ; 16466 S004673 F7 0000 IWT R7, #00000H ; 16467 ; 16468 S004676 19 TO R9 16469 S004677 4B LDW (R11) 16470 ; 16471 S004678 02 CACHE 16472 ; 16473 S004679 2F 1D MOVE R13, R15 16474 KIRAKIRA2_110 16475 S00467B B9 FROM R9 16476 S00467C 31 STW (R1) 16477 S00467D D1 INC R1 16478 S00467E D1 INC R1 16479 ; 16480 S00467F 27 WITH R7 16481 S004680 53 ADD R3 16482 S004681 0C 12' BCC KIRAKIRA2_150 16483 S004683 01 NOP 16484 KIRAKIRA2_115 16485 S004684 DB INC R11 ;R11 = R11 + 2 16486 S004685 DB INC R11 ; 16487 ; 16488 S004686 BB FROM R11 16489 S004687 66 SUB R6 16490 S004688 0C 03' BCC KIRAKIRA2_120 16491 S00468A 56 ADD R6 16492 ; 16493 S00468B 26 1B MOVE R11, R6 16494 KIRAKIRA2_120 16495 S00468D 19 TO R9 16496 S00468E 4B LDW (R11) 16497 ; 16498 S00468F 2A WITH R10 16499 S004690 54 ADD R4 16500 S004691 2A 13 MOVE R3, R10 16501 S004693 24 WITH R4 16502 S004694 55 ADD R5 16503 KIRAKIRA2_150 16504 S004695 3C LOOP 16505 S004696 01 NOP 16506 ; vvv******* warn :value out of range 16507 S004697 F2 44FA IWT R2, #KIRAKIRA_C_TWS 16508 S00469A 13 TO R3 16509 S00469B 42 LDW (R2) vvv******* warn :value out of range 16510 S00469C F1 44F8 IWT R1, #KIRAKIRA_C_TW 16511 S00469F 41 LDW (R1) 16512 S0046A0 63 SUB R3 16513 S0046A1 0C 0A' BCC KIRAKIRA2_170 16514 S0046A3 01 NOP 16515 S0046A4 31 STW (R1) 16516 ; vvv******* warn :value out of range 16517 S0046A5 F0 44FC IWT R0, #KIRAKIRA_C_TWA 16518 S0046A8 14 TO R4 16519 S0046A9 40 LDW (R0) 16520 S0046AA B3 FROM R3 16521 S0046AB 54 ADD R4 16522 S0046AC 32 STW (R2) 16523 ;-- 16524 KIRAKIRA2_170 16525 S0046AD F4 0000 IWT R4, #00000H vvv******* warn :value out of range 16526 S0046B0 F2 4504 IWT R2, #KIRAKIRA_C_TCS 16527 S0046B3 13 TO R3 16528 S0046B4 42 LDW (R2) vvv******* warn :value out of range 16529 S0046B5 F1 4502 IWT R1, #KIRAKIRA_C_TC 16530 S0046B8 41 LDW (R1) 16531 S0046B9 63 SUB R3 16532 S0046BA 0D 03' BCS KIRAKIRA2_210 16533 S0046BC 01 NOP 16534 ; 16535 S0046BD 24 10 MOVE R0, R4 16536 KIRAKIRA2_210 16537 S0046BF 31 STW (R1) 16538 ; vvv******* warn :value out of range 16539 S0046C0 F0 4506 IWT R0, #KIRAKIRA_C_TCA 16540 S0046C3 14 TO R4 16541 S0046C4 40 LDW (R0) 16542 S0046C5 B3 FROM R3 16543 S0046C6 54 ADD R4 16544 S0046C7 32 STW (R2) 16545 ; 16546 S0046C8 F4 D100 IWT R4, #(BUFFER_LINE-1)*0100H vvv******* warn :value out of range 16547 S0046CB F1 44F4 IWT R1, #KIRAKIRA_C_SPS 16548 S0046CE 12 TO R2 16549 S0046CF 41 LDW (R1) vvv******* warn :value out of range 16550 S0046D0 F5 44F2 IWT R5, #KIRAKIRA_C_SP 16551 S0046D3 45 LDW (R5) 16552 S0046D4 52 ADD R2 16553 S0046D5 64 SUB R4 16554 S0046D6 0D 02' BCS KIRAKIRA2_310 16555 S0046D8 54 ADD R4 16556 ; 16557 S0046D9 35 STW (R5) 16558 ; 16559 KIRAKIRA2_310 vvv******* warn :value out of range 16560 S0046DA F0 44F6 IWT R0, #KIRAKIRA_C_SPA 16561 S0046DD 12 TO R2 16562 S0046DE 40 LDW (R0) 16563 S0046DF 41 LDW (R1) 16564 S0046E0 52 ADD R2 16565 S0046E1 31 STW (R1) 16566 ; 16567 S0046E2 00 STOP 16568 S0046E3 01 NOP 16569 ; 16570 ;>>>>>>>>>> 16571 ;function 16572 ; ‚v‚h‚m‚c‚n‚v‰æ–Ê 16573 ;name 16574 ; WINDOW_HALL 16575 ;entry 16576 ; R0 : Œ`óƒf[ƒ^ƒoƒ“ƒN 16577 ; R1 : •\Ž¦’†S‰æ–Ê•\Ž¦ˆÊ’u‚wÀ•W 16578 ; R2 : •\Ž¦’†S‰æ–Ê•\Ž¦ˆÊ’u‚xÀ•W 16579 ; R6 : ”{—¦ XX.XX = 100H = 1.0 16580 ; R7 : •\Ž¦’†SˆÊ’u‚wÀ•W 16581 ; R8 : •\Ž¦’†SˆÊ’u‚xÀ•W 16582 ; R14 : Œ`óƒf[ƒ^ƒAƒhƒŒƒX 16583 ;return 16584 ;work 16585 ; R11 : k¬—¦ XX.XX 16586 ;<<<<<<<<<< 16587 ; 16588 0046E4 WINDOW_HALL EQU $ 16589 ; 16590 ;--- initial clear 16591 ; 16592 S0046E4 3F DF ROMB 16593 ; 16594 S0046E6 2E 1E MOVE R14, R14 16595 ; 16596 S0046E8 F9 00FF IWT R9, #000FFH ;ƒEƒCƒ“ƒhƒEƒmƒ“ƒ}ƒXƒNÝ’è’l 16597 S0046EB FA FF00 IWT R10, #0FF00H ;ƒEƒCƒ“ƒhƒEƒtƒ‹ƒ}ƒXƒNÝ’è’l vvv******* warn :value out of range 16598 S0046EE F0 2200 IWT R0, #DIVBUF 16599 S0046F1 56 ADD R6 16600 S0046F2 56 ADD R6 16601 S0046F3 1B TO R11 16602 S0046F4 40 LDW (R0) ;R11 = k¬—¦ XX.XX 16603 S0046F5 B7 FROM R7 16604 S0046F6 9E LOB 16605 S0046F7 4D SWAP 16606 S0046F8 9F FMULT ;R0 = •\Ž¦’†S‚wÀ•W * ”{—¦ 16607 S0046F9 4F NOT 16608 S0046FA D0 INC R0 16609 S0046FB 51 ADD R1 16610 S0046FC 3E A0 00 SMS R0, CWORK0 ; 16611 S0046FF 0A 08' BPL WINH_040 ;•\Ž¦ˆÊ’u‰æ–ʶŠOH[no->WINH_040] 16612 S004701 01 NOP 16613 S004702 29 13 MOVE R3, R9 ;ƒEƒCƒ“ƒhƒE‚Pƒmƒ“ƒ}ƒXƒNÝ’è 16614 S004704 2A 14 MOVE R4, R10 ;ƒEƒCƒ“ƒhƒE‚Qƒtƒ‹ƒ}ƒXƒNÝ’è 16615 S004706 05 13' BRA WINH_060 16616 S004708 01 NOP 16617 WINH_040 16618 S004709 F5 0100 IWT R5, #0100H 16619 S00470C 65 SUB R5 16620 S00470D 0C 08' BCC WINH_050 ;•\Ž¦ˆÊ’u‰æ–ʉEŠOH[no->WINH_050] 16621 S00470F 55 ADD R5 16622 S004710 2A 13 MOVE R3, R10 ;ƒEƒCƒ“ƒhƒE‚Pƒtƒ‹ƒ}ƒXƒNÝ’è 16623 S004712 29 14 MOVE R4, R9 ;ƒEƒCƒ“ƒhƒE‚Qƒmƒ“ƒ}ƒXƒNÝ’è 16624 S004714 05 05' BRA WINH_060 16625 S004716 01 NOP 16626 WINH_050 16627 S004717 13 TO R3 16628 S004718 4D SWAP 16629 S004719 14 TO R4 16630 S00471A CA OR R10 16631 WINH_060 vvv******* warn :value out of range 16632 S00471B F5 3A02 IWT R5, #WINDBF 16633 S00471E FC 00D2 IWT R12, #0D2H 16634 S004721 02 CACHE 16635 S004722 2F 1D MOVE R13, R15 16636 WINH_070 16637 S004724 B3 FROM R3 16638 S004725 35 STW (R5) 16639 S004726 D5 INC R5 16640 S004727 D5 INC R5 16641 S004728 B4 FROM R4 16642 S004729 35 STW (R5) 16643 S00472A D5 INC R5 16644 S00472B 3C LOOP 16645 S00472C D5 INC R5 16646 ; 16647 ;--- hall display out 16648 ; 16649 S00472D B8 FROM R8 16650 S00472E 3D 9F LMULT 16651 S004730 24 WITH R4 16652 S004731 C0 HIB 16653 S004732 9E LOB 16654 S004733 4D SWAP 16655 S004734 C4 OR R4 16656 S004735 4F NOT ; 16657 S004736 D0 INC R0 16658 S004737 52 ADD R2 ;•\Ž¦ˆÊ’u‚ð‰ÁŽZ 16659 S004738 50 ADD R0 ;*2 16660 S004739 50 ADD R0 ;*4 vvv******* warn :value out of range 16661 S00473A F4 3A02 IWT R4, #WINDBF 16662 S00473D 17 TO R7 ;R7 = ƒEƒCƒ“ƒhƒEƒoƒbƒtƒ@Ý’èƒAƒhƒŒƒX 16663 S00473E 54 ADD R4 16664 S00473F F5 0000 IWT R5, #000H 16665 ; 16666 S004742 F1 0100 IWT R1, #00100H ;‰E’[‰æ–ÊŠOƒ`ƒFƒbƒN—p 16667 S004745 AC 00 IBT R12, #000H ;ƒ~ƒjƒ}ƒ€ƒJƒEƒ“ƒg 16668 ; 16669 S004747 12 TO R2 16670 S004748 EF GETB 16671 S004749 DE INC R14 16672 ; 16673 S00474A 02 CACHE 16674 ; 16675 WINH_210 16676 S00474B 15 TO R5 16677 S00474C 3F EF GETBS 16678 ; 16679 S00474E 2C WITH R12 16680 S00474F 5B ADD R11 ;ƒ~ƒjƒ}ƒ€ƒJƒEƒ“ƒg‚Ök¬—¦‰ÁŽZ 16681 S004750 BC FROM R12 16682 S004751 C0 HIB 16683 S004752 22 WITH R2 16684 S004753 60 SUB R0 16685 S004754 0B 35' BMI WINH_310 16686 S004756 01 NOP 16687 S004757 1E TO R14 16688 S004758 5E ADD R14 ;ƒ~ƒjƒ}ƒ€ƒJƒEƒ“ƒg‚Ì®”•”‚ðƒf[ƒ^ƒAƒhƒŒƒX‚Ö‰ÁŽZ 16689 S004759 2C WITH R12 16690 S00475A 9E LOB ;ƒ~ƒjƒ}ƒ€ƒJƒEƒ“ƒg‚𬔕”‚Ì‚Ý‚É‚·‚éB 16691 ; 16692 S00475B B5 FROM R5 16693 S00475C 9E LOB 16694 S00475D 4D SWAP 16695 S00475E 15 TO R5 16696 S00475F 9F FMULT ;R0 = ”{—¦ * •Ð—ƒ‚Ì’·‚³ 16697 ; 16698 S004760 29 14 MOVE R4, R9 ;ƒEƒCƒ“ƒhƒEƒmƒ“ƒ}ƒXƒN’lƒZƒbƒg 16699 S004762 3D A0 00 LMS R0, CWORK0 16700 S004765 65 SUB R5 16701 S004766 0B 09' BMI WINH_230 ;ƒ|ƒCƒ“ƒg¶‰æ–ÊŠOH[yes->WINH_230] 16702 S004768 01 NOP 16703 ; 16704 S004769 2A 14 MOVE R4, R10 ;ƒEƒCƒ“ƒhƒEƒtƒ‹ƒ}ƒXƒN’lƒZƒbƒg 16705 S00476B 61 SUB R1 16706 S00476C 0D 03' BCS WINH_230 ;ƒ|ƒCƒ“ƒg‰E‰æ–ÊŠOH[yes->WINH_230] 16707 S00476E 51 ADD R1 16708 ; 16709 S00476F 14 TO R4 16710 S004770 4D SWAP 16711 WINH_230 16712 S004771 B4 FROM R4 16713 S004772 37 STW (R7) ;‚v‚h‚m‚c‚n‚v‚PƒZƒbƒg 16714 S004773 D7 INC R7 16715 ;;; INC R7 16716 ; 16717 S004774 2A 14 MOVE R4, R10 ;ƒEƒCƒ“ƒhƒEƒtƒ‹ƒ}ƒXƒN’lƒZƒbƒg 16718 S004776 3D A0 00 LMS R0, CWORK0 16719 S004779 55 ADD R5 16720 S00477A 0B 09' BMI WINH_260 ;ƒ|ƒCƒ“ƒg¶‰æ–ÊŠOH[yes->WINH_260] 16721 S00477C D7 INC R7 ;ƒEƒCƒ“ƒhƒEƒoƒbƒtƒ@ƒAƒhƒŒƒX‰ÁŽZ 16722 ; 16723 S00477D 29 14 MOVE R4, R9 ;ƒEƒCƒ“ƒhƒEƒmƒ“ƒ}ƒXƒN’lƒZƒbƒg 16724 S00477F 61 SUB R1 16725 S004780 0D 03' BCS WINH_260 ;ƒ|ƒCƒ“ƒg‰E‰æ–ÊŠOH[yes->WINH_260] 16726 S004782 51 ADD R1 16727 ; 16728 S004783 14 TO R4 16729 S004784 CA OR R10 16730 WINH_260 16731 S004785 B4 FROM R4 16732 S004786 37 STW (R7) ;‚v‚h‚m‚c‚n‚v‚QƒZƒbƒg 16733 S004787 D7 INC R7 16734 ; 16735 S004788 05 C1' BRA WINH_210 16736 S00478A D7 INC R7 16737 ; 16738 WINH_310 16739 S00478B 00 STOP 16740 S00478C 01 NOP 16741 ; 16742 ; 16743 ;************************************************************************ 16744 ;* moji polygon * 16745 ;* in : (R1) <-- moji no. * 16746 ;* (R2) <-- X angle * 16747 ;* (R3) <-- Y " * 16748 ;* (R4) <-- center X pos * 16749 ;* (R5) <-- " Y " * 16750 ;* (R6) <-- zoom flag * 16751 ;************************************************************************ 16752 00478D MOJIPOLY4 EQU $ 16753 ; 16754 ;-------------- bitmap buffer clear !! ---------------------------------- 16755 S00478D 02 CACHE 16756 ; 16757 S00478E B5 FROM R5 16758 S00478F 55 ADD R5 16759 S004790 3E 88 MULT #8 16760 S004792 54 ADD R4 16761 S004793 50 ADD R0 ;x4 16762 S004794 50 ADD R0 ; vvv******* warn :value out of range 16763 S004795 F7 5800 IWT R7,#WOB7CHR 16764 S004798 17 TO R7 16765 S004799 57 ADD R7 16766 mCHAR_CLR_4X R7,4,R8,R9,R10,R11 16766+ S00479A F0 0200 IWT R0, #00200H 16766+ S00479D 27 18 MOVE R8, R7 16766+ S00479F 19 TO R9 16766+ S0047A0 58 ADD R8 16766+ S0047A1 1A TO R10 16766+ S0047A2 59 ADD R9 16766+ S0047A3 1B TO R11 16766+ S0047A4 5A ADD R10 16766+ 16766+ S0047A5 60 SUB R0 16766+ S0047A6 FC 0040 IWT R12, #(20H * 4) / 2 16766+ S0047A9 2F 1D MOVE R13, R15 16766+ __0001 16766+ S0047AB 38 STW (R8) 16766+ S0047AC D8 INC R8 16766+ S0047AD D8 INC R8 16766+ S0047AE 39 STW (R9) 16766+ S0047AF D9 INC R9 16766+ S0047B0 D9 INC R9 16766+ S0047B1 3A STW (R10) 16766+ S0047B2 DA INC R10 16766+ S0047B3 DA INC R10 16766+ S0047B4 3B STW (R11) 16766+ S0047B5 DB INC R11 16766+ S0047B6 3C LOOP 16766+ S0047B7 DB INC R11 16767 ; 16768 S0047B8 A0 10 IBT R0,#010H 16769 S0047BA 24 WITH R4 16770 S0047BB 50 ADD R0 16771 S0047BC 25 WITH R5 16772 S0047BD 50 ADD R0 16773 S0047BE 05 2B' BRA MOJIPOLY2+1 16774 S0047C0 3E A4 1E SMS R4,CWORK1E ;[ dummy ] 16775 ; 16776 0047C3 MOJIPOLY EQU $ 16777 ; 16778 ;-------------- bitmap buffer clear !! ---------------------------------- 16779 S0047C3 02 CACHE 16780 ; 16781 S0047C4 B5 FROM R5 16782 S0047C5 55 ADD R5 16783 S0047C6 3E 88 MULT #8 16784 S0047C8 54 ADD R4 16785 S0047C9 50 ADD R0 ;x4 16786 S0047CA 50 ADD R0 ; vvv******* warn :value out of range 16787 S0047CB F7 5800 IWT R7,#WOB7CHR 16788 S0047CE 17 TO R7 16789 S0047CF 57 ADD R7 16790 mCHAR_CLR_2X R7,2,R8,R9 16790+ S0047D0 F0 0200 IWT R0, #00200H 16790+ S0047D3 27 18 MOVE R8, R7 16790+ S0047D5 19 TO R9 16790+ S0047D6 58 ADD R8 16790+ 16790+ S0047D7 60 SUB R0 16790+ S0047D8 FC 0020 IWT R12, #(20H * 2) / 2 16790+ S0047DB 2F 1D MOVE R13, R15 16790+ __0002 16790+ S0047DD 38 STW (R8) 16790+ S0047DE D8 INC R8 16790+ S0047DF D8 INC R8 16790+ S0047E0 39 STW (R9) 16790+ S0047E1 D9 INC R9 16790+ S0047E2 3C LOOP 16790+ S0047E3 D9 INC R9 16791 ; 16792 S0047E4 24 WITH R4 16793 S0047E5 3E 58 ADD #8 16794 S0047E7 25 WITH R5 16795 S0047E8 3E 58 ADD #8 16796 ; 16797 ;-------------- moji polygon set ---------------------------------------- 16798 0047EA MOJIPOLY2 EQU $ 16799 S0047EA 3E A4 1E SMS R4,CWORK1E ;(CWK1E) <-- center X pos 16800 S0047ED 3E A5 1F SMS R5,CWORK1F ;(CWK1F) <-- " Y " 16801 S0047F0 3E A6 1D SMS R6,CWORK1D ;(CWK1D) <-- zoom flag 16802 ; 16803 ;-------------- plot mode set ----------------------------------- 16804 S0047F3 60 SUB R0 ;[ IBT R0,#0 ] 16805 S0047F4 3D 4E CMODE 16806 ; 16807 ;-------------- cos & sin data read ----------------------------- 16808 S0047F6 A0 00' IBT R0,#BANK LCOS ;cos & sin data bank set 16809 S0047F8 3F DF ROMB 16810 ; 16811 S0047FA A6 10 IBT R6,#10H ;(R6) <-- Z pos 16812 S0047FC FD 049D' IWT R13,#LCOS 16813 S0047FF BD FROM R13 16814 S004800 1E TO R14 16815 S004801 52 ADD R2 16816 S004802 EF GETB 16817 S004803 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- X cos data 16818 S004806 20 19 MOVE R9,R0 ;(R9) <-- " 16819 ; 16820 S004808 BD FROM R13 16821 S004809 1E TO R14 16822 S00480A 53 ADD R3 16823 S00480B EF GETB 16824 S00480C 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- Y cos data 16825 S00480F 20 17 MOVE R7,R0 ;(R7) <-- " 16826 S004811 86 MULT R6 16827 S004812 3E A0 02 SMS R0,CWORK2 ;(CWK2) <-- SZ * (Y cos) 16828 ; 16829 S004815 FD 04DD' IWT R13,#LSIN 16830 S004818 BD FROM R13 16831 S004819 1E TO R14 16832 S00481A 52 ADD R2 16833 S00481B EF GETB 16834 S00481C 3E A0 03 SMS R0,CWORK3 ;(CWK3) <-- X sin data 16835 S00481F 20 1A MOVE R10,R0 ;(R10) <-- " 16836 ; 16837 S004821 BD FROM R13 16838 S004822 1E TO R14 16839 S004823 53 ADD R3 16840 S004824 EF GETB 16841 S004825 3E A0 04 SMS R0,CWORK4 ;(CWK4) <-- Y sin data 16842 S004828 20 18 MOVE R8,R0 ;(R8) <-- " 16843 S00482A 86 MULT R6 16844 S00482B 3E A0 05 SMS R0,CWORK5 ;(CWK5) <-- SZ * (Y sin) 16845 ; 16846 ;-------------- face color calculate ---------------------------- 16847 S00482E FE 4B1F' IWT R14,#FACVCT ;(R14) <-- face vector data address 16848 S004831 A4 20 IBT R4,#CL0 ;(R4) <-- color data set pointer 16849 S004833 AC 05 IBT R12,#5 16850 ; 16851 S004835 02 CACHE 16852 ; 16853 S004836 2F 1D MOVE R13,R15 16854 MJPOL002 16855 S004838 3F EF GETBS ;(R0) <-- SX 16856 S00483A DE INC R14 16857 S00483B 1B TO R11 ;(R11) <-- SX * (Y sin) 16858 S00483C 88 MULT R8 16859 S00483D 3F EF GETBS ;(R0) <-- SZ 16860 S00483F DE INC R14 16861 S004840 87 MULT R7 ;(R0) <-- SZ * (Y cos) 16862 S004841 6B SUB R11 ;(R0) <-- SZ * (Y cos) - SX * (Y sin) 16863 S004842 50 ADD R0 16864 S004843 50 ADD R0 16865 S004844 C0 HIB 16866 S004845 95 SEX 16867 S004846 1B TO R11 ;(R11) <-- SZ * (X cos) 16868 S004847 89 MULT R9 16869 S004848 3F EF GETBS ;(R0) <-- SY 16870 S00484A 8A MULT R10 ;(R0) <-- SY * (X sin) 16871 S00484B 5B ADD R11 ;(R0) <-- SZ * (X cos) + SY * (X sin) 16872 S00484C 0A 03' BPL MJPOL004 16873 S00484E DE INC R14 16874 ; 16875 S00484F 4F NOT 16876 S004850 D0 INC R0 16877 MJPOL004 16878 S004851 C0 HIB 16879 S004852 03 LSR 16880 S004853 1B TO R11 16881 S004854 03 LSR 16882 S004855 EF GETB 16883 S004856 DE INC R14 16884 S004857 5B ADD R11 16885 S004858 3D 34 STB (R4) 16886 S00485A 3C LOOP 16887 S00485B D4 INC R4 16888 ; 16889 ;-------------- moji polygon data address read ------------------ 16890 S00485C F0 4B33' IWT R0,#MOJPOLIN 16891 S00485F 51 ADD R1 16892 S004860 1E TO R14 16893 S004861 51 ADD R1 16894 S004862 EF GETB 16895 S004863 DE INC R14 16896 S004864 3D EF GETBH 16897 S004866 20 1E MOVE R14,R0 ;(R14) <-- moji polygon data pointer 16898 ; 16899 ;-------------- point rotation & 2D convert --------------------- vvv******* warn :value out of range 16900 S004868 F1 2AF6 IWT R1,#MJP2DPS ;(R1) <-- rotation & 2D convert data set pointer 16901 ; 16902 S00486B 1C TO R12 ;(R12) <-- number of point 16903 S00486C EF GETB 16904 S00486D DE INC R14 16905 ; 16906 S00486E 2F 1D MOVE R13,R15 16907 MJPOL010 16908 S004870 EF GETB ;(R0) <-- X pos 16909 S004871 DE INC R14 16910 S004872 20 14 MOVE R4,R0 ;(R4) <-- " 16911 S004874 3D A0 01 LMS R0,CWORK1 16912 S004877 84 MULT R4 16913 S004878 20 12 MOVE R2,R0 ;(R2) <-- SX * (Y cos) 16914 S00487A 3D A5 05 LMS R5,CWORK5 16915 S00487D 65 SUB R5 ;(R0) <-- SX * (Y cos) + SZ * (Y sin) 16916 S00487E 50 ADD R0 ;[ ASL ] 16917 S00487F 17 TO R7 ;(R7) <-- rotation X pos set ( front ) 16918 S004880 50 ADD R0 ;[ ASL ] 16919 S004881 B2 FROM R2 16920 S004882 55 ADD R5 ;(R0) <-- SX * (Y cos) + (-SZ) * (Y sin) 16921 S004883 50 ADD R0 ;[ ASL ] 16922 S004884 18 TO R8 ;(R8) <-- rotation X pos set ( back ) 16923 S004885 50 ADD R0 ;[ ASL ] 16924 ; 16925 S004886 3D A0 04 LMS R0,CWORK4 16926 S004889 84 MULT R4 16927 S00488A 4F NOT 16928 S00488B D0 INC R0 16929 S00488C 20 13 MOVE R3,R0 ;(R3) <-- -( SX * (Y sin) ) 16930 S00488E 3D A5 02 LMS R5,CWORK2 16931 S004891 65 SUB R5 ;(R0) <-- -( SZ * (Y cos) ) - SX * (Y sin) 16932 S004892 50 ADD R0 ;[ ASL ] 16933 S004893 50 ADD R0 ;[ ASL ] 16934 S004894 C0 HIB 16935 S004895 12 TO R2 ;(R2) <-- Y rotation Z pos ( front ) 16936 S004896 95 SEX 16937 S004897 B5 FROM R5 16938 S004898 53 ADD R3 ;(R0) <-- SZ * (Y cos) - SX * (Y sin) 16939 S004899 50 ADD R0 ;[ ASL ] 16940 S00489A 50 ADD R0 ;[ ASL ] 16941 S00489B C0 HIB 16942 S00489C 13 TO R3 ;(R3) <-- Y rotation Z pos ( back ) 16943 S00489D 95 SEX 16944 ; 16945 S00489E EF GETB ;(R0) <-- Y pos 16946 S00489F DE INC R14 16947 S0048A0 20 16 MOVE R6,R0 ;(R6) <-- " 16948 S0048A2 3D A5 03 LMS R5,CWORK3 16949 S0048A5 85 MULT R5 ;(R0) <-- SY * (X sin) 16950 S0048A6 20 14 MOVE R4,R0 ;(R4) <-- " 16951 S0048A8 3D AB 00 LMS R11,CWORK0 16952 S0048AB B2 FROM R2 16953 S0048AC 8B MULT R11 ;(R0) <-- SZ * (X cos) ( front ) 16954 S0048AD 54 ADD R4 ;(R0) <-- SZ * (X cos) + SY * (X sin) 16955 S0048AE 50 ADD R0 ;[ ASL ] 16956 S0048AF 50 ADD R0 ;[ ASL ] 16957 S0048B0 C0 HIB 16958 S0048B1 19 TO R9 ;(R9) <-- rotation Z pos set ( front ) 16959 S0048B2 95 SEX 16960 S0048B3 B3 FROM R3 16961 S0048B4 8B MULT R11 ;(R0) <-- SZ * (X cos) ( back ) 16962 S0048B5 54 ADD R4 ;(R0) <-- SZ * (X cos) + SY * (X sin) 16963 S0048B6 50 ADD R0 ;[ ASL ] 16964 S0048B7 50 ADD R0 ;[ ASL ] 16965 S0048B8 C0 HIB 16966 S0048B9 1A TO R10 ;(R10) <-- rotation Z pos set ( back ) 16967 S0048BA 95 SEX 16968 ; 16969 S0048BB B6 FROM R6 16970 S0048BC 8B MULT R11 ;(R0) <-- SY * (X cos) 16971 S0048BD 20 14 MOVE R4,R0 ;(R4) <-- " 16972 S0048BF B2 FROM R2 16973 S0048C0 85 MULT R5 ;(R0) <-- SZ * (X sin) ( front ) 16974 S0048C1 B4 FROM R4 16975 S0048C2 60 SUB R0 ;(R0) <-- SY * (X cos) - SZ * (X sin) 16976 S0048C3 50 ADD R0 ;[ ASL ] 16977 S0048C4 1B TO R11 ;(R11) <-- rotation Y pos set ( front ) 16978 S0048C5 50 ADD R0 ;[ ASL ] 16979 S0048C6 B3 FROM R3 16980 S0048C7 85 MULT R5 ;(R0) <-- SZ * (X sin) ( back ) 16981 S0048C8 B4 FROM R4 16982 S0048C9 60 SUB R0 ;(R0) <-- SY * (X cos) - SZ * (X sin ) 16983 S0048CA 50 ADD R0 ;[ ASL ] 16984 S0048CB 15 TO R5 ;(R5) <-- rotation Y pos set ( back ) 16985 S0048CC 50 ADD R0 ;[ ASL ] 16986 ; 16987 S0048CD 3D A2 1D LMS R2,CWORK1D ;(R2) <-- zoom size 16988 S0048D0 B2 FROM R2 16989 S0048D1 89 MULT R9 16990 S0048D2 C0 HIB 16991 S0048D3 16 TO R6 16992 S0048D4 95 SEX vvv******* warn :value out of range 16993 S0048D5 F9 2400 IWT R9,#DIVBUF+(100H*2) 16994 S0048D8 B9 FROM R9 16995 S0048D9 56 ADD R6 ;Z pos x2 16996 S0048DA 56 ADD R6 16997 S0048DB 16 TO R6 16998 S0048DC 40 LDW (R0) 16999 S0048DD BB FROM R11 17000 S0048DE 9F FMULT 17001 S0048DF 82 MULT R2 17002 S0048E0 4D SWAP 17003 S0048E1 3D FB 003E LM R11,CWORK1F ;(R11) <-- center Y pos 17004 S0048E5 5B ADD R11 17005 S0048E6 3D 31 STB (R1) ;2D Y pos set ( front ) 17006 S0048E8 D1 INC R1 17007 S0048E9 B7 FROM R7 17008 S0048EA 9F FMULT 17009 S0048EB 82 MULT R2 17010 S0048EC 4D SWAP 17011 S0048ED 3D F7 003C LM R7,CWORK1E ;(R7) <-- center X pos 17012 S0048F1 57 ADD R7 17013 S0048F2 3D 31 STB (R1) ;2D X pos set ( front ) 17014 S0048F4 D1 INC R1 17015 ; 17016 S0048F5 B2 FROM R2 17017 S0048F6 8A MULT R10 17018 S0048F7 C0 HIB 17019 S0048F8 16 TO R6 17020 S0048F9 95 SEX 17021 S0048FA B9 FROM R9 17022 S0048FB 56 ADD R6 ;Z pos x2 17023 S0048FC 56 ADD R6 17024 S0048FD 16 TO R6 17025 S0048FE 40 LDW (R0) 17026 S0048FF B5 FROM R5 17027 S004900 9F FMULT 17028 S004901 82 MULT R2 17029 S004902 4D SWAP 17030 S004903 5B ADD R11 17031 S004904 3D 31 STB (R1) ;2D Y pos set ( back ) 17032 S004906 D1 INC R1 17033 S004907 B8 FROM R8 17034 S004908 9F FMULT 17035 S004909 82 MULT R2 17036 S00490A 4D SWAP 17037 S00490B 57 ADD R7 17038 S00490C 3D 31 STB (R1) ;2D X pos set ( back ) 17039 ; 17040 S00490E 3C LOOP 17041 S00490F D1 INC R1 17042 ; 17043 ;-------------- face data set ----------------------------------- vvv******* warn :value out of range 17044 S004910 F1 2BBE IWT R1,#MJPBTBL ;(R1) <-- block data pointer vvv******* warn :value out of range 17045 S004913 F2 2C0E IWT R2,#MJPFACE ;(R2) <-- face data pointer 17046 S004916 A3 00 IBT R3,#0 ;(R3) <-- " no. 17047 S004918 A4 04 IBT R4,#4 ;(R4) <-- constant point no. 17048 S00491A A5 02 IBT R5,#2 ;(R5) <-- add data 17049 S00491C A9 20 IBT R9,#CL0 ;(R9) <-- front face color data 17050 ; 17051 S00491E 1B TO R11 ;(R11) <-- number of block 17052 S00491F EF GETB 17053 S004920 DE INC R14 17054 S004921 3E AB 1F SMS R11,CWORK1F ;(CWK1F) <-- " 17055 MJPOL020 17056 S004924 B2 FROM R2 17057 S004925 31 STW (R1) ;block data face data pointer set 17058 S004926 D1 INC R1 17059 S004927 D1 INC R1 17060 S004928 B3 FROM R3 17061 S004929 3D 31 STB (R1) ; " start face no. set 17062 S00492B D1 INC R1 17063 ; 17064 S00492C EF GETB 17065 S00492D DE INC R14 17066 ; 17067 S00492E 16 TO R6 ;(R6) <-- back face data pointer 17068 S00492F 52 ADD R2 17069 S004930 D6 INC R6 17070 S004931 D6 INC R6 17071 S004932 3D 32 STB (R2) 17072 S004934 D2 INC R2 17073 S004935 3D 36 STB (R6) 17074 S004937 D6 INC R6 17075 ; 17076 S004938 20 18 MOVE R8,R0 ;(R8) <-- number of point 17077 S00493A 20 1C MOVE R12,R0 ;(R12) <-- " 17078 ; 17079 S00493C 55 ADD R5 17080 S00493D 3D 31 STB (R1) ;block data number of face set 17081 S00493F D1 INC R1 17082 ; 17083 S004940 13 TO R3 ;(R3) <-- next set face data no. 17084 S004941 53 ADD R3 17085 ; 17086 S004942 29 10 MOVE R0,R9 ;(R0) <-- front face color data 17087 S004944 3D 32 STB (R2) 17088 S004946 D2 INC R2 17089 S004947 22 17 MOVE R7,R2 ;(R7) <-- 1st face point data pointer 17090 S004949 3D 36 STB (R6) 17091 S00494B 26 WITH R6 17092 S00494C 58 ADD R8 17093 ; 17094 S00494D 2F 1D MOVE R13,R15 17095 MJPOL030 17096 S00494F EF GETB 17097 S004950 DE INC R14 17098 S004951 3D 32 STB (R2) 17099 S004953 D0 INC R0 17100 S004954 3D 36 STB (R6) 17101 S004956 D2 INC R2 17102 S004957 3C LOOP 17103 S004958 E6 DEC R6 17104 ; 17105 S004959 22 WITH R2 ;(R2) <-- 3st face data pointer 17106 S00495A 58 ADD R8 17107 S00495B D2 INC R2 17108 S00495C D2 INC R2 17109 ; 17110 S00495D 3D 47 LDB (R7) ;(R0) <-- 1st point no. 17111 S00495F 20 16 MOVE R6,R0 ;(R6) <-- " 17112 S004961 28 1C MOVE R12,R8 17113 S004963 EC DEC R12 17114 S004964 2F 1D MOVE R13,R15 17115 MJPOL040 17116 S004966 B4 FROM R4 17117 S004967 3D 32 STB (R2) 17118 S004969 D2 INC R2 17119 S00496A 18 TO R8 17120 S00496B EF GETB ;(R0) <-- face color data 17121 S00496C DE INC R14 17122 S00496D B8 FROM R8 17123 S00496E 3D 32 STB (R2) 17124 S004970 D2 INC R2 17125 S004971 D7 INC R7 17126 S004972 3D 32 STB (R2) 17127 S004974 D2 INC R2 17128 S004975 D0 INC R0 17129 S004976 3D 32 STB (R2) 17130 S004978 D2 INC R2 17131 S004979 3D 47 LDB (R7) 17132 S00497B D0 INC R0 17133 S00497C 3D 32 STB (R2) 17134 S00497E D2 INC R2 17135 S00497F E0 DEC R0 17136 S004980 3D 32 STB (R2) 17137 S004982 3C LOOP 17138 S004983 D2 INC R2 17139 ; 17140 S004984 B4 FROM R4 17141 S004985 3D 32 STB (R2) 17142 S004987 D2 INC R2 17143 S004988 18 TO R8 17144 S004989 EF GETB ;(R0) <-- face color data 17145 S00498A DE INC R14 17146 S00498B B8 FROM R8 17147 S00498C 3D 32 STB (R2) 17148 S00498E D2 INC R2 17149 S00498F 3D 32 STB (R2) 17150 S004991 D2 INC R2 17151 S004992 D0 INC R0 17152 S004993 3D 32 STB (R2) 17153 S004995 D2 INC R2 17154 S004996 26 10 MOVE R0,R6 17155 S004998 D0 INC R0 17156 S004999 3D 32 STB (R2) 17157 S00499B D2 INC R2 17158 S00499C B6 FROM R6 17159 S00499D 3D 32 STB (R2) 17160 ; 17161 S00499F EB DEC R11 17162 S0049A0 08 82' BNE MJPOL020 17163 S0049A2 D2 INC R2 17164 ; 17165 ;-------------- face status data set ---------------------------- 17166 S0049A3 23 1C MOVE R12,R3 ;(R12) <-- number of face 17167 ; vvv******* warn :value out of range 17168 S0049A5 F1 2C0E IWT R1,#MJPFACE ;(R1) <-- face data pointer vvv******* warn :value out of range 17169 S0049A8 F2 2D3A IWT R2,#MJPFACF ;(R2) <-- face status data pointer vvv******* warn :value out of range 17170 S0049AB F3 2AF6 IWT R3,#MJP2DPS ;(R3) <-- 2D pos data pointer 17171 ; 17172 S0049AE 2F 1D MOVE R13,R15 17173 MJPOL050 17174 S0049B0 3D 41 LDB (R1) 17175 S0049B2 D1 INC R1 17176 S0049B3 D1 INC R1 17177 S0049B4 14 TO R4 ;(R4) <-- next pointer 17178 S0049B5 51 ADD R1 17179 ; 17180 S0049B6 3D 41 LDB (R1) 17181 S0049B8 D1 INC R1 17182 S0049B9 50 ADD R0 ;x2 17183 S0049BA 15 TO R5 ;(R5) <-- 1st pos pointer 17184 S0049BB 53 ADD R3 17185 S0049BC 3D 41 LDB (R1) 17186 S0049BE D1 INC R1 17187 S0049BF 50 ADD R0 ;x2 17188 S0049C0 16 TO R6 ;(R6) <-- 2st pos pointer 17189 S0049C1 53 ADD R3 17190 S0049C2 3D 41 LDB (R1) 17191 S0049C4 50 ADD R0 17192 S0049C5 17 TO R7 ;(R7) <-- 3st pos pointer 17193 S0049C6 53 ADD R3 17194 ; 17195 S0049C7 18 TO R8 17196 S0049C8 3D 45 LDB (R5) 17197 S0049CA D5 INC R5 17198 S0049CB 3D 46 LDB (R6) 17199 S0049CD D6 INC R6 17200 S0049CE 20 19 MOVE R9,R0 17201 S0049D0 18 TO R8 ;(R8) <-- SY1 17202 S0049D1 68 SUB R8 17203 ; 17204 S0049D2 3D 47 LDB (R7) 17205 S0049D4 D7 INC R7 17206 S0049D5 19 TO R9 ;(R9) <-- SY2 17207 S0049D6 69 SUB R9 17208 ; 17209 S0049D7 3D 46 LDB (R6) 17210 S0049D9 20 1B MOVE R11,R0 17211 S0049DB 1A TO R10 17212 S0049DC 3D 45 LDB (R5) 17213 S0049DE 6A SUB R10 ;(R0) <-- SX1 17214 S0049DF 19 TO R9 ;(R9) <-- SX1 * SY2 17215 S0049E0 89 MULT R9 17216 ; 17217 S0049E1 3D 47 LDB (R7) 17218 S0049E3 6B SUB R11 ;(R0) <-- SX2 17219 S0049E4 88 MULT R8 ;(R0) <-- SY1 * SX2 17220 S0049E5 69 SUB R9 17221 S0049E6 4D SWAP 17222 MJPOL052 17223 S0049E7 3D 32 STB (R2) 17224 ; 17225 S0049E9 24 11 MOVE R1,R4 17226 ; 17227 S0049EB 3C LOOP 17228 S0049EC D2 INC R2 17229 ; 17230 ;-------------- display priority check -------------------------- vvv******* warn :value out of range 17231 S0049ED F1 2D3A IWT R1,#MJPFACF ;(R1) <-- face status data pointer 17232 S0049F0 EF GETB 17233 S0049F1 DE INC R14 17234 S0049F2 51 ADD R1 17235 S0049F3 3D 40 LDB (R0) 17236 S0049F5 95 SEX 17237 S0049F6 50 ADD R0 ;(C) <-- check face.1 display flag 17238 S0049F7 12 TO R2 17239 S0049F8 04 ROL 17240 S0049F9 EF GETB 17241 S0049FA DE INC R14 17242 S0049FB 51 ADD R1 17243 S0049FC 3D 40 LDB (R0) 17244 S0049FE 95 SEX 17245 S0049FF 50 ADD R0 ;(C) <-- check face.2 display flag 17246 S004A00 22 WITH R2 17247 S004A01 04 ROL 17248 S004A02 EF GETB 17249 S004A03 DE INC R14 17250 S004A04 51 ADD R1 17251 S004A05 3D 40 LDB (R0) 17252 S004A07 95 SEX 17253 S004A08 50 ADD R0 ;(C) <-- check face.3 display flag 17254 S004A09 B2 FROM R2 17255 S004A0A 04 ROL 17256 S004A0B 3E 77 AND #07H 17257 S004A0D 1E TO R14 17258 S004A0E 5E ADD R14 17259 ; 17260 S004A0F 02 CACHE 17261 ; 17262 MJPOL060 17263 S004A10 EF GETB 17264 S004A11 2E WITH R14 17265 S004A12 3E 58 ADD #8 17266 ; 17267 S004A14 50 ADD R0 ;x4 17268 S004A15 50 ADD R0 ; vvv******* warn :value out of range 17269 S004A16 F3 2BBE IWT R3,#MJPBTBL 17270 S004A19 13 TO R3 ;(R3) <-- block data pointer 17271 S004A1A 53 ADD R3 17272 S004A1B 14 TO R4 ;(R4) <-- face data pointer 17273 S004A1C 43 LDW (R3) 17274 S004A1D D3 INC R3 17275 S004A1E D3 INC R3 17276 S004A1F 3D 43 LDB (R3) 17277 S004A21 D3 INC R3 vvv******* warn :value out of range 17278 S004A22 F5 2D3A IWT R5,#MJPFACF 17279 S004A25 15 TO R5 ;(R5) <-- face status data pointer 17280 S004A26 55 ADD R5 17281 S004A27 3D 43 LDB (R3) 17282 S004A29 3E A0 1E SMS R0,CWORK1E ;(CWK1E) <-- number of face 17283 MJPOL070 17284 S004A2C 1C TO R12 ;(R12) <-- number of point 17285 S004A2D 3D 44 LDB (R4) 17286 S004A2F D4 INC R4 17287 S004A30 16 TO R6 ;(R6) <-- color data pointer 17288 S004A31 3D 44 LDB (R4) 17289 ; 17290 S004A33 3D 45 LDB (R5) 17291 S004A35 95 SEX 17292 S004A36 0A 05' BPL MJPOL0702 ;face dispaly ? ( no:MJPOL0702 ) 17293 S004A38 D5 INC R5 17294 ; 17295 S004A39 E6 DEC R6 17296 S004A3A 0A 07' BPL MJPOL071 ;face dispaly ? ( yes:MJPOL071 ) 17297 S004A3C D6 INC R6 17298 ; 17299 MJPOL0702 17300 S004A3D 24 WITH R4 17301 S004A3E 5C ADD R12 17302 S004A3F FF 4B04' IWT R15,#MJPOL202 ;[ JMP MJPOL202 ] 17303 S004A42 D4 INC R4 17304 ; 17305 ;-------------- polygon display --------------------------------- 17306 MJPOL071 17307 ; 17308 ;-------------- plot color set -------------------------- 17309 S004A43 D4 INC R4 17310 S004A44 3D 46 LDB (R6) ;(R0) <-- color data 17311 S004A46 4E COLOR 17312 ; 17313 ;-------------- pos set & min,max Y pos check ----------- vvv******* warn :value out of range 17314 S004A47 F6 2AF6 IWT R6,#MJP2DPS ;(R6) <-- 2D pos data pointer 17315 S004A4A A7 00 IBT R7,#CWORK0 ;(R7) <-- face pos data set pointer 17316 S004A4C 2C 10 MOVE R0,R12 17317 S004A4E E0 DEC R0 17318 S004A4F 1A TO R10 ;(R10) <-- max pos pointer 17319 S004A50 50 ADD R0 17320 ; 17321 S004A51 A2 FF IBT R2,#0FFH ;(R2) <-- initial min Y pos 17322 S004A53 A9 00 IBT R9,#0 ;(R9) <-- " max " 17323 ; 17324 S004A55 2F 1D MOVE R13,R15 17325 MJPOL080 17326 S004A57 3D 44 LDB (R4) 17327 S004A59 50 ADD R0 ;x2 17328 S004A5A 56 ADD R6 17329 S004A5B 40 LDW (R0) 17330 S004A5C 37 STW (R7) 17331 S004A5D 9E LOB 17332 S004A5E 62 SUB R2 17333 S004A5F 0D 05' BCS MJPOL090 ;new min Y pos ? ( no:MJPOL090 ) 17334 S004A61 52 ADD R2 17335 ; 17336 S004A62 20 12 MOVE R2,R0 ;(R2) <-- new min Y pos 17337 S004A64 27 1B MOVE R11,R7 ;(R11) <-- " pointer 17338 MJPOL090 17339 S004A66 69 SUB R9 17340 S004A67 0C 03' BCC MJPOL100 ;new max Y pos ? ( no:MJPOL100 ) 17341 S004A69 59 ADD R9 17342 ; 17343 S004A6A 20 19 MOVE R9,R0 ;(R9) <-- new max Y pos 17344 MJPOL100 17345 S004A6C D7 INC R7 17346 S004A6D D7 INC R7 17347 S004A6E 3C LOOP 17348 S004A6F D4 INC R4 17349 ; 17350 ;-------------- polygon plot ---------------------------- 17351 S004A70 3E A4 24 SMS R4,REG4 ;(R4) save 17352 S004A73 3E A5 25 SMS R5,REG5 ;(R5) " 17353 ; 17354 S004A76 3E AB 1C SMS R11,CWORK1C ;(CWK1C) <-- left pos data pointer 17355 S004A79 3E AB 1D SMS R11,CWORK1D ;(CWK1D) <-- right " 17356 ; 17357 S004A7C 22 17 MOVE R7,R2 ;(R7) <-- to left Y pos 17358 S004A7E 22 18 MOVE R8,R2 ;(R8) <-- to right " 17359 ; 17360 S004A80 B9 FROM R9 17361 S004A81 1B TO R11 ;(R11) <-- Y loop no 17362 S004A82 62 SUB R2 17363 MJPOL110 17364 ; 17365 ;-------------- left check ---------------------- 17366 S004A83 B2 FROM R2 17367 S004A84 67 SUB R7 17368 S004A85 0C 2D' BCC MJPOL150 ;left next change ? ( no:MJPOL150 ) 17369 S004A87 01 NOP 17370 ; 17371 S004A88 3D A1 1C LMS R1,CWORK1C 17372 S004A8B D1 INC R1 17373 MJPOL112 17374 S004A8C 3D 41 LDB (R1) 17375 S004A8E 13 TO R3 17376 S004A8F 4D SWAP 17377 S004A90 E1 DEC R1 17378 ; 17379 S004A91 E1 DEC R1 17380 S004A92 0A 03' BPL MJPOL130 ;pos data pointer over ? ( no:MJPOL130 ) 17381 S004A94 E1 DEC R1 17382 ; 17383 S004A95 2A 11 MOVE R1,R10 17384 MJPOL130 17385 S004A97 3E A1 1C SMS R1,CWORK1C 17386 S004A9A 3D 41 LDB (R1) ;(R0) <-- next Y pos 17387 S004A9C 16 TO R6 ;(R6) <-- SY 17388 S004A9D 67 SUB R7 17389 S004A9E 09 EC' BEQ MJPOL112 ;next pos error ? ( yes:MJPOL112 ) 17390 S004AA0 D1 INC R1 17391 ; 17392 S004AA1 20 17 MOVE R7,R0 ;(R7) <-- new to left Y pos vvv******* warn :value out of range 17393 S004AA3 F0 2200 IWT R0,#DIVBUF ;(R0) <-- div data pointer 17394 S004AA6 56 ADD R6 17395 S004AA7 56 ADD R6 17396 S004AA8 40 LDW (R0) 17397 S004AA9 16 TO R6 ;(R6) <-- div data 17398 S004AAA 03 LSR 17399 S004AAB 3D 41 LDB (R1) ;(R0) <-- next X pos 17400 S004AAD 4D SWAP 17401 S004AAE 63 SUB R3 17402 S004AAF 9F FMULT 17403 S004AB0 13 TO R3 17404 S004AB1 53 ADD R3 17405 S004AB2 15 TO R5 ;(R5) <-- new X step 17406 S004AB3 50 ADD R0 17407 ; 17408 ;-------------- right check --------------------- 17409 MJPOL150 17410 S004AB4 B2 FROM R2 17411 S004AB5 68 SUB R8 17412 S004AB6 0C 2D' BCC MJPOL190 ;left next change ? ( no:MJPOL190 ) 17413 S004AB8 01 NOP 17414 ; 17415 S004AB9 3D A1 1D LMS R1,CWORK1D 17416 S004ABC D1 INC R1 17417 MJPOL152 17418 S004ABD 3D 41 LDB (R1) 17419 S004ABF 14 TO R4 ;(R4) <-- new X pos set 17420 S004AC0 4D SWAP 17421 ; 17422 S004AC1 B1 FROM R1 17423 S004AC2 6A SUB R10 17424 S004AC3 0C 03' BCC MJPOL170 ;pos data pointer over ? ( no:MJPOL170 ) 17425 S004AC5 D1 INC R1 17426 ; 17427 S004AC6 A1 00 IBT R1,#0 17428 MJPOL170 17429 S004AC8 3E A1 1D SMS R1,CWORK1D 17430 S004ACB 3D 41 LDB (R1) ;(R0) <-- next Y pos 17431 S004ACD 16 TO R6 ;(R6) <-- SY 17432 S004ACE 68 SUB R8 17433 S004ACF 09 EC' BEQ MJPOL152 ;next pos error ? ( yes:MJPOL152 ) 17434 S004AD1 D1 INC R1 17435 ; 17436 S004AD2 20 18 MOVE R8,R0 ;(R8) <-- new to left Y pos vvv******* warn :value out of range 17437 S004AD4 F0 2200 IWT R0,#DIVBUF ;(R0) <-- div data pointer 17438 S004AD7 56 ADD R6 17439 S004AD8 56 ADD R6 17440 S004AD9 40 LDW (R0) 17441 S004ADA 16 TO R6 ;(R6) <-- div data 17442 S004ADB 03 LSR 17443 S004ADC 3D 41 LDB (R1) ;(R0) <-- next X pos 17444 S004ADE 4D SWAP 17445 S004ADF 64 SUB R4 17446 S004AE0 9F FMULT 17447 S004AE1 14 TO R4 17448 S004AE2 54 ADD R4 17449 S004AE3 19 TO R9 ;(R9) <-- new X step 17450 S004AE4 04 ROL 17451 ; 17452 ;-------------- plot ---------------------------- 17453 MJPOL190 17454 S004AE5 B3 FROM R3 17455 S004AE6 11 TO R1 ;(R1) <-- left X pos ( plot start X pos ) 17456 S004AE7 C0 HIB 17457 S004AE8 B4 FROM R4 17458 S004AE9 C0 HIB 17459 S004AEA 1C TO R12 ;(R12) <-- number of plot 17460 S004AEB 61 SUB R1 17461 S004AEC 0B 08' BMI MJPOL201 17462 S004AEE 01 NOP 17463 S004AEF 09 05' BEQ MJPOL201 17464 S004AF1 01 NOP 17465 ; 17466 S004AF2 2F 1D MOVE R13,R15 17467 MJPOL200 17468 S004AF4 3C LOOP 17469 S004AF5 4C PLOT 17470 ; 17471 MJPOL201 17472 S004AF6 23 WITH R3 ;left X pos up !! 17473 S004AF7 55 ADD R5 17474 S004AF8 24 WITH R4 ;right " 17475 S004AF9 59 ADD R9 17476 ; 17477 S004AFA EB DEC R11 17478 S004AFB 0A 86' BPL MJPOL110 17479 S004AFD D2 INC R2 ;plot Y pos up !! 17480 ; 17481 S004AFE 3D A4 24 LMS R4,REG4 ;(R4) load 17482 S004B01 3D A5 25 LMS R5,REG5 ;(R5) " 17483 ; 17484 MJPOL202 17485 S004B04 3D A0 1E LMS R0,CWORK1E 17486 S004B07 E0 DEC R0 17487 S004B08 09 05' BEQ MJPOL210 17488 S004B0A 01 NOP 17489 ; 17490 S004B0B FF 4A2C' IWT R15,#MJPOL070 ;[ JMP MJPOL070 ] 17491 S004B0E 90 SBK 17492 ; 17493 MJPOL210 17494 S004B0F 3D A0 1F LMS R0,CWORK1F 17495 S004B12 E0 DEC R0 17496 S004B13 09 05' BEQ MJPOL220 17497 S004B15 01 NOP 17498 ; 17499 S004B16 FF 4A10' IWT R15,#MJPOL060 ;[ JMP MJPOL060 ] 17500 S004B19 90 SBK 17501 ; 17502 MJPOL220 17503 S004B1A D2 INC R2 17504 S004B1B 3D 4C RPIX 17505 ; 17506 S004B1D 00 STOP 17507 S004B1E 01 NOP 17508 ; 17509 ;************************************************************************ 17510 ;* face vector data * 17511 ;************************************************************************ 17512 000020 CL0 EQU CWORK10 17513 000021 CL1 EQU CL0+1 17514 000022 CL2 EQU CL1+1 17515 000023 CL3 EQU CL2+1 17516 000024 CL4 EQU CL3+1 17517 ; 17518 004B1F FACVCT EQU $ 17519 ; SX SZ SY color 17520 S004B1F 2D 20 E0 0C HEX 2D,20,E0,0C ;[CL0] front 17521 S004B23 00 2D 2D 08 HEX 00,2D,2D,08 ;[CL1] up & down 17522 S004B27 2D E0 20 08 HEX 2D,E0,20,08 ;[CL2] side 17523 S004B2B 20 CA F7 08 HEX 20,CA,F7,08 ;[CL3] 45 angle 17524 S004B2F E0 F7 CA 08 HEX E0,F7,CA,08 ;[CL4] " (/) 17525 ; 17526 ;;;; HEX 00,3F,00,0C ;[CL0] front 17527 ;;;; HEX 00,00,3F,08 ;[CL1] up & down 17528 ;;;; HEX 3F,00,00,08 ;[CL2] side 17529 ;;;; HEX 2D,00,D3,08 ;[CL3] 45 angle 17530 ;;;; HEX D3,00,D3,08 ;[CL4] " (/) 17531 ; 17532 ;************************************************************************ 17533 ;* moji polygon data * 17534 ;************************************************************************ 17535 004B33 MOJPOLIN EQU $ 17536 S004B33 4B67' WORD MOJPOL_P ;[0] 17537 S004B35 4BBD' WORD MOJPOL_A ;[1] 17538 S004B37 4C11' WORD MOJPOL_U ;[2] 17539 S004B39 4C61' WORD MOJPOL_S ;[3] 17540 S004B3B 4CA9' WORD MOJPOL_E ;[4] 17541 S004B3D 4D0E' WORD MOJPOL_qest ;[5] "?" 17542 S004B3F 4D9C' WORD MOJPOL_star ;[6] Star 17543 S004B41 4E13' WORD KAZ_0 ;[7] "0" 17544 S004B43 4E76' WORD KAZ_1 ;[8] "1" 17545 S004B45 4E94' WORD KAZ_2 ;[9] "2" 17546 S004B47 4EE0' WORD KAZ_3 ;[A] "3" 17547 S004B49 4F3D' WORD KAZ_4 ;[B] "4" 17548 S004B4B 4FA2' WORD KAZ_5 ;[C] "5" 17549 S004B4D 5018' WORD KAZ_6 ;[D] "6" 17550 S004B4F 507D' WORD KAZ_7 ;[E] "7" 17551 S004B51 50C5' WORD KAZ_8 ;[F] "8" 17552 S004B53 5167' WORD KAZ_9 ;[10] "9" 17553 S004B55 51C8' WORD MOJPOL_L ;[11] 17554 S004B57 51FB' WORD MOJPOL_C ;[12] 17555 S004B59 526F' WORD MOJPOL_T ;[13] 17556 S004B5B 52A6' WORD PURAS_POL ;[14] "{" 17557 S004B5D 52F6' WORD MOJPOL_G ;[15] 17558 S004B5F 5366' WORD MOJPOL_M ;[16] 17559 S004B61 5469' WORD MOJPOL_O ;[17] 17560 S004B63 53C7' WORD MOJPOL_V ;[18] 17561 S004B65 5400' WORD MOJPOL_R ;[19] 17562 ; 17563 ;---------------------------------------------------------------- 17564 ; "P" - 17565 ;---------------------------------------------------------------- 17566 004B67 MOJPOL_P EQU $ 17567 ;-------------- point data -------------------------------------- 17568 S004B67 0C BYTE 12 ;number of point 17569 S004B68 10 C0 BYTE 10H,-40H ;{00}-(00),(01) X pos , Y pos 17570 S004B6A E7 CC BYTE -19H,-34H ;{01}-(02),(03) 17571 S004B6C D0 D0 BYTE -30H,-30H ;{02}-(04),(05) 17572 S004B6E 30 D0 BYTE 30H,-30H ;{03}-(06),(07) 17573 S004B70 ED E0 BYTE -13H,-20H ;{04}-(08),(09) 17574 S004B72 10 E0 BYTE 10H,-20H ;{05}-(10),(11) 17575 S004B74 30 F0 BYTE 30H,-10H ;{06}-(12),(13) 17576 S004B76 F4 F8 BYTE -0CH,-08H ;{07}-(14),(15) 17577 S004B78 20 00 BYTE 20H, 00H ;{08}-(16),(17) 17578 S004B7A FE 10 BYTE -02H, 10H ;{09}-(18),(19) 17579 S004B7C E0 40 BYTE -20H, 40H ;{10}-(20),(21) 17580 S004B7E 10 40 BYTE 10H, 40H ;{11}-(22),(23) 17581 ;-------------- face data --------------------------------------- 17582 S004B80 03 BYTE 03 ;number of face 17583 S004B81 04 BYTE 04 ;number of point 17584 S004B82 02 16 14 04 BYTE 02,22,20,04 ;{00}-(00),(01),(02),(03),(04),(05) 17585 S004B86 22 21 22 21 BYTE CL2,CL1,CL2,CL1 ;color data 17586 S004B8A 05 BYTE 05 ;number of point 17587 S004B8B 00 06 0A 08 02 BYTE 00,06,10,08,02 ;{01}-(06),(07),(08),(09),(10),(11),(12) 17588 S004B90 23 00 21 00 21 BYTE CL3,0,CL1,0,CL1 ;color data 17589 S004B95 06 BYTE 06 ;number of point 17590 S004B96 06 0C 10 12 0E BYTE 06,12,16,18,14,10 ;{02}-(13),(14),(15),(16),(17),(18),(19),(20) S004B9B 0A 17591 S004B9C 22 24 21 00 24 BYTE CL2,CL4,CL1,0,CL4,0 ;color data S004BA1 00 17592 ;-------------- priority data ----------------------------------- 17593 ; bit pos --> 4 2 1 17594 S004BA2 00 02 09 BYTE 00,02,09 ;check face no. 17595 ; pattern no. --> 0 1 2 3 4 5 6 7 17596 S004BA5 02 01 00 00 02 BYTE 02,01,00,00,02,01,00,00 ;(1) write priority S004BAA 01 00 00 17597 S004BAD 01 02 02 01 01 BYTE 01,02,02,01,01,02,02,01 ;(2) S004BB2 02 02 01 17598 S004BB5 00 00 01 02 00 BYTE 00,00,01,02,00,00,01,02 ;(3) S004BBA 00 01 02 17599 ; 17600 ;---------------------------------------------------------------- 17601 ; "A" - 17602 ;---------------------------------------------------------------- 17603 004BBD MOJPOL_A EQU $ 17604 ;-------------- point data -------------------------------------- 17605 S004BBD 0C BYTE 12 ;number of point 17606 S004BBE F0 C0 BYTE -10H,-40H ;{00}-(00),(01) X pos , Y pos 17607 S004BC0 00 C4 BYTE 00H,-3CH ;{01}-(02),(03) 17608 S004BC2 10 C8 BYTE 10H,-38H ;{02}-(04),(05) 17609 S004BC4 00 F0 BYTE 00H,-10H ;{03}-(06),(07) 17610 S004BC6 FA 10 BYTE -06H, 10H ;{04}-(08),(09) 17611 S004BC8 09 10 BYTE 09H, 10H ;{05}-(10),(11) 17612 S004BCA F3 30 BYTE -0DH, 30H ;{06}-(12),(13) 17613 S004BCC 12 30 BYTE 12H, 30H ;{07}-(14),(15) 17614 S004BCE D0 40 BYTE -30H, 40H ;{08}-(16),(17) 17615 S004BD0 F4 40 BYTE -0CH, 40H ;{09}-(18),(19) 17616 S004BD2 0F 40 BYTE 0FH, 40H ;{10}-(20),(21) 17617 S004BD4 30 40 BYTE 30H, 40H ;{11}-(22),(23) 17618 ;-------------- face data --------------------------------------- 17619 S004BD6 03 BYTE 03 ;number of face 17620 S004BD7 05 BYTE 05 ;number of point 17621 S004BD8 00 02 06 12 10 BYTE 00,02,06,18,16 ;{00}-(00),(01),(02),(03),(04),(05),(06) 17622 S004BDD 21 00 22 21 22 BYTE CL1,0,CL2,CL1,CL2 ;color data 17623 S004BE2 04 BYTE 04 ;number of point 17624 S004BE3 08 0A 0E 0C BYTE 08,10,14,12 ;{01}-(07),(08),(09),(10),(11),(12) 17625 S004BE7 21 00 21 00 BYTE CL1,0,CL1,0 ;color data 17626 S004BEB 05 BYTE 05 ;number of point 17627 S004BEC 02 04 16 14 06 BYTE 02,04,22,20,06 ;{02}-(13),(14),(15),(16),(17),(18),(19) 17628 S004BF1 21 22 21 22 00 BYTE CL1,CL2,CL1,CL2,0 ;color data 17629 ;-------------- priority data ----------------------------------- 17630 ; bit pos --> 4 2 1 17631 S004BF6 03 04 12 BYTE 03,04,18 ;check face no. 17632 ; pattern no. --> 0 1 2 3 4 5 6 7 17633 S004BF9 01 02 00 02 01 BYTE 01,02,00,02,01,02,00,00 ;(1) write priority S004BFE 02 00 00 17634 S004C01 02 01 01 00 00 BYTE 02,01,01,00,00,01,01,02 ;(2) S004C06 01 01 02 17635 S004C09 00 00 02 01 02 BYTE 00,00,02,01,02,00,02,01 ;(3) S004C0E 00 02 01 17636 ; 17637 ;---------------------------------------------------------------- 17638 ; "U" - 17639 ;---------------------------------------------------------------- 17640 004C11 MOJPOL_U EQU $ 17641 ;-------------- point data -------------------------------------- 17642 S004C11 0A BYTE 10 ;number of point 17643 S004C12 D0 D0 BYTE -30H,-30H ;{00}-(00),(01) X pos , Y pos 17644 S004C14 F8 D0 BYTE -08H,-30H ;{01}-(02),(03) 17645 S004C16 10 E0 BYTE 10H,-20H ;{02}-(04),(05) 17646 S004C18 30 E0 BYTE 30H,-20H ;{03}-(06),(07) 17647 S004C1A D7 20 BYTE -29H, 20H ;{04}-(08),(09) 17648 S004C1C F0 20 BYTE -10H, 20H ;{05}-(10),(11) 17649 S004C1E 00 28 BYTE 00H, 28H ;{06}-(12),(13) 17650 S004C20 20 30 BYTE 20H, 30H ;{07}-(14),(15) 17651 S004C22 F0 40 BYTE -10H, 40H ;{08}-(16),(17) 17652 S004C24 00 40 BYTE 00H, 40H ;{09}-(18),(19) 17653 ;-------------- face data --------------------------------------- 17654 S004C26 03 BYTE 03 ;number of face 17655 S004C27 04 BYTE 04 ;number of point 17656 S004C28 00 02 0A 08 BYTE 00,02,10,08 ;{00}-(00),(01),(02),(03),(04),(05) 17657 S004C2C 21 22 00 22 BYTE CL1,CL2,0,CL2 ;color data 17658 S004C30 05 BYTE 05 ;number of point 17659 S004C31 08 0A 0C 12 10 BYTE 08,10,12,18,16 ;{01}-(06),(07),(08),(09),(10),(11),(12) 17660 S004C36 00 23 00 21 23 BYTE 0,CL3,0,CL1,CL3 ;color data 17661 S004C3B 05 BYTE 05 ;number of point 17662 S004C3C 04 06 0E 12 0C BYTE 04,06,14,18,12 ;{02}-(13),(14),(15),(16),(17),(18),(19) 17663 S004C41 21 22 24 00 22 BYTE CL1,CL2,CL4,0,CL2 ;color data 17664 ;-------------- priority data ----------------------------------- 17665 ; bit pos --> 4 2 1 17666 S004C46 00 0A 04 BYTE 00,10,04 ;check face no. 17667 ; pattern no. --> 0 1 2 3 4 5 6 7 17668 S004C49 02 02 01 00 02 BYTE 02,02,01,00,02,02,01,00 ;(1) write priority S004C4E 02 01 00 17669 S004C51 01 00 00 01 01 BYTE 01,00,00,01,01,00,00,01 ;(2) S004C56 00 00 01 17670 S004C59 00 01 02 02 00 BYTE 00,01,02,02,00,01,02,02 ;(3) S004C5E 01 02 02 17671 ; 17672 ;---------------------------------------------------------------- 17673 ; "S" - 17674 ;---------------------------------------------------------------- 17675 004C61 MOJPOL_S EQU $ 17676 ;-------------- point data -------------------------------------- 17677 S004C61 08 BYTE 08 ;number of point 17678 S004C62 00 C0 BYTE 00H,-40H ;{00}-(00),(01) X pos , Y pos 17679 S004C64 20 E0 BYTE 20H,-20H ;{01}-(02),(03) 17680 S004C66 E0 F0 BYTE -20H,-10H ;{02}-(04),(05) 17681 S004C68 10 F0 BYTE 10H,-10H ;{03}-(06),(07) 17682 S004C6A 00 10 BYTE 00H, 10H ;{04}-(08),(09) 17683 S004C6C 20 10 BYTE 20H, 10H ;{05}-(10),(11) 17684 S004C6E E0 20 BYTE -20H, 20H ;{06}-(12),(13) 17685 S004C70 00 40 BYTE 00H, 40H ;{07}-(14),(15) 17686 ;-------------- face data --------------------------------------- 17687 S004C72 03 BYTE 03 ;number of face 17688 S004C73 04 BYTE 04 ;number of point 17689 S004C74 00 02 06 04 BYTE 00,02,06,04 ;{00}-(00),(01),(02),(03),(04),(05) 17690 S004C78 23 24 00 24 BYTE CL3,CL4,0,CL4 ;color data 17691 S004C7C 04 BYTE 04 ;number of point 17692 S004C7D 04 06 0A 08 BYTE 04,06,10,08 ;{01}-(06),(07),(08),(09),(10),(11) 17693 S004C81 00 23 00 23 BYTE 0,CL3,0,CL3 ;color data 17694 S004C85 04 BYTE 04 ;number of point 17695 S004C86 08 0A 0E 0C BYTE 08,10,14,12 ;{02}-(12),(13),(14),(15),(16),(17) 17696 S004C8A 00 24 23 24 BYTE 0,CL4,CL3,CL4 ;color data 17697 ;-------------- priority data ----------------------------------- 17698 ; bit pos --> 4 2 1 17699 S004C8E 00 0A 04 BYTE 00,10,04 ;check face no. 17700 ; pattern no. --> 0 1 2 3 4 5 6 7 17701 S004C91 02 02 01 00 02 BYTE 02,02,01,00,02,02,01,00 ;(1) write priority S004C96 02 01 00 17702 S004C99 01 00 02 01 01 BYTE 01,00,02,01,01,00,02,01 ;(2) S004C9E 00 02 01 17703 S004CA1 00 01 00 02 00 BYTE 00,01,00,02,00,01,00,02 ;(3) S004CA6 01 00 02 17704 ; 17705 ;---------------------------------------------------------------- 17706 ; "E" - 17707 ;---------------------------------------------------------------- 17708 004CA9 MOJPOL_E EQU $ 17709 ;-------------- point data -------------------------------------- 17710 S004CA9 0E BYTE 14 ;number of point 17711 S004CAA E0 D0 BYTE -20H,-30H ;{00}-(00),(01) X pos , Y pos 17712 S004CAC 00 C8 BYTE 00H,-38H ;{01}-(02),(03) 17713 S004CAE 20 C0 BYTE 20H,-40H ;{02}-(04),(05) 17714 S004CB0 FC E8 BYTE -04H,-18H ;{03}-(06),(07) 17715 S004CB2 20 E0 BYTE 20H,-20H ;{04}-(08),(09) 17716 S004CB4 FC F8 BYTE -04H,-08H ;{05}-(10),(11) 17717 S004CB6 20 F0 BYTE 20H,-10H ;{06}-(12),(13) 17718 S004CB8 00 10 BYTE 00H, 10H ;{07}-(14),(15) 17719 S004CBA 18 10 BYTE 18H, 10H ;{08}-(16),(17) 17720 S004CBC FC 28 BYTE -04H, 28H ;{09}-(18),(19) 17721 S004CBE 20 20 BYTE 20H, 20H ;{10}-(20),(21) 17722 S004CC0 E0 40 BYTE -20H, 40H ;{11}-(22),(23) 17723 S004CC2 00 40 BYTE 00H, 40H ;{12}-(24),(25) 17724 S004CC4 20 40 BYTE 20H, 40H ;{13}-(26),(27) 17725 ;-------------- face data --------------------------------------- 17726 S004CC6 04 BYTE 04 ;number of face 17727 S004CC7 04 BYTE 04 ;number of point 17728 S004CC8 00 02 18 16 BYTE 00,02,24,22 ;{00}-(00),(01),(02),(03),(04),(05) 17729 S004CCC 21 22 21 22 BYTE CL1,CL2,CL1,CL2 ;color data 17730 S004CD0 04 BYTE 04 ;number of point 17731 S004CD1 02 04 08 06 BYTE 02,04,08,06 ;{01}-(06),(07),(08),(09),(10),(11) 17732 S004CD5 21 22 21 00 BYTE CL1,CL2,CL1,0 ;color data 17733 S004CD9 04 BYTE 04 ;number of point 17734 S004CDA 0A 0C 10 0E BYTE 10,12,16,14 ;{02}-(12),(13),(14),(15),(16),(17) 17735 S004CDE 21 22 21 00 BYTE CL1,CL2,CL1,0 ;color data 17736 S004CE2 04 BYTE 04 ;number of point 17737 S004CE3 12 14 1A 18 BYTE 18,20,26,24 ;{03}-(18),(19),(20),(21),(22),(23) 17738 S004CE7 21 22 21 00 BYTE CL1,CL2,CL1,0 ;color data 17739 ;-------------- priority data ----------------------------------- 17740 ; bit pos --> 4 2 1 17741 S004CEB 00 03 04 BYTE 00,03,04 ;check face no. 17742 ; pattern no. --> 0 1 2 3 4 5 6 7 17743 S004CEE 03 01 00 00 03 BYTE 03,01,00,00,03,01,00,00 ;(1) write priority S004CF3 01 00 00 17744 S004CF6 02 02 03 01 02 BYTE 02,02,03,01,02,02,03,01 ;(2) S004CFB 02 03 01 17745 S004CFE 01 03 02 02 01 BYTE 01,03,02,02,01,03,02,02 ;(3) S004D03 03 02 02 17746 S004D06 00 00 01 03 00 BYTE 00,00,01,03,00,00,01,03 ;(4) S004D0B 00 01 03 17747 ;;---------------------------------------------------------------- 17748 ; "?" - 17749 ;---------------------------------------------------------------- 17750 004D0E MOJPOL_qest EQU $ 17751 ;-------------- point data -------------------------------------- 17752 S004D0E 16 BYTE 22 ;number of point 17753 S004D0F D5 C0 BYTE -2BH,-40H ;{00}-(00),(01) X pos , Y pos 17754 S004D11 EB C0 BYTE -15H,-40H ;{01}-(02),(03) 17755 S004D13 15 C0 BYTE 15H,-40H ;{02}-(04),(05) 17756 S004D15 2B C0 BYTE 2BH,-40H ;{03}-(06),(07) 17757 S004D17 C0 D5 BYTE -40H,-2BH ;{04}-(08),(09) 17758 S004D19 EB D5 BYTE -15H,-2BH ;{05}-(10),(11) 17759 S004D1B 15 D5 BYTE 15H,-2BH ;{06}-(12),(13) 17760 S004D1D 40 D5 BYTE 40H,-2BH ;{07}-(14),(15) 17761 S004D1F C0 EB BYTE -40H,-15H ;{08}-(16),(17) 17762 S004D21 EB EB BYTE -15H,-15H ;{09}-(18),(19) 17763 S004D23 00 EB BYTE 00H,-15H ;{10}-(20),(21) 17764 S004D25 15 EB BYTE 15H,-15H ;{11}-(22),(23) 17765 S004D27 40 EB BYTE 40H,-15H ;{12}-(24),(25) 17766 S004D29 EB 00 BYTE -15H, 00H ;{13}-(26),(27) 17767 S004D2B 15 00 BYTE 15H, 00H ;{14}-(28),(29) 17768 S004D2D 2B 00 BYTE 2BH, 00H ;{15}-(30),(31) 17769 S004D2F EB 15 BYTE -15H, 15H ;{16}-(32),(33) 17770 S004D31 15 15 BYTE 15H, 15H ;{17}-(34),(35) 17771 S004D33 EB 2B BYTE -15H, 2BH ;{18}-(36),(37) 17772 S004D35 15 2B BYTE 15H, 2BH ;{19}-(38),(39) 17773 S004D37 EB 40 BYTE -15H, 40H ;{20}-(40),(41) 17774 S004D39 15 40 BYTE 15H, 40H ;{21}-(42),(43) 17775 ;-------------- face data --------------------------------------- 17776 S004D3B 05 BYTE 05 ;number of face 17777 S004D3C 05 BYTE 05 ;number of point 17778 S004D3D 00 02 12 10 08 BYTE 00,02,18,16,08 ;{00}-(00),(01),(02),(03),(04),(05),(06) 17779 S004D42 21 22 21 22 24 BYTE CL1,CL2,CL1,CL2,CL4 ;color data 17780 S004D47 04 BYTE 04 ;number of point 17781 S004D48 02 04 0C 0A BYTE 02,04,12,10 ;{01}-(07),(08),(09),(10),(11),(12) 17782 S004D4C 21 00 21 00 BYTE CL1,0,CL1,0 ;color data 17783 S004D50 06 BYTE 06 ;number of point 17784 S004D51 04 06 0E 18 1E BYTE 04,06,14,24,30,28 ;{02}-(13),(14),(15),(16),(17),(18),(19),(20) S004D56 1C 17785 S004D57 21 23 22 24 21 BYTE CL1,CL3,CL2,CL4,CL1,CL2 ;color data S004D5C 22 17786 S004D5D 05 BYTE 05 ;number of point 17787 S004D5E 14 16 22 20 1A BYTE 20,22,34,32,26 ;{03}-(21),(22),(23),(24),(25),(26),(27) 17788 S004D63 21 22 21 22 24 BYTE CL1,CL2,CL1,CL2,CL4 ;color data 17789 S004D68 04 BYTE 04 ;number of point 17790 S004D69 24 26 2A 28 BYTE 36,38,42,40 ;{01}-(28),(29),(30),(31),(32),(33) 17791 S004D6D 21 22 21 22 BYTE CL1,CL2,CL1,CL2 ;color data 17792 ;-------------- priority data ----------------------------------- 17793 ; bit pos --> 4 2 1 17794 S004D71 0C 0A 20 BYTE 12,10,32 ;check face no. 17795 ; pattern no. --> 0 1 2 3 4 5 6 7 17796 S004D74 00 00 00 00 02 BYTE 00,00,00,00,02,02,00,00 ;(1) write priority S004D79 02 00 00 17797 S004D7C 02 02 04 01 04 BYTE 02,02,04,01,04,01,02,02 ;(2) S004D81 01 02 02 17798 S004D84 01 01 03 03 03 BYTE 01,01,03,03,03,03,04,01 ;(3) S004D89 03 04 01 17799 S004D8C 03 03 01 04 01 BYTE 03,03,01,04,01,04,03,03 ;(4) S004D91 04 03 03 17800 S004D94 04 04 02 02 00 BYTE 04,04,02,02,00,00,01,04 ;(5) S004D99 00 01 04 17801 ; 17802 ;---------------------------------------------------------------- 17803 ; "Star" - 17804 ;---------------------------------------------------------------- 17805 004D9C MOJPOL_star EQU $ 17806 ;-------------- point data -------------------------------------- 17807 S004D9C 0A BYTE 10 ;number of point 17808 S004D9D 00 C0 BYTE 00H,-40H ;{00}-(00),(01) X pos , Y pos 17809 S004D9F C2 EB BYTE -3EH,-15H ;{01}-(02),(03) 17810 S004DA1 F2 EB BYTE -0EH,-15H ;{02}-(04),(05) 17811 S004DA3 0E EB BYTE 0EH,-15H ;{03}-(06),(07) 17812 S004DA5 3E EB BYTE 3EH,-15H ;{04}-(08),(09) 17813 S004DA7 E7 09 BYTE -19H, 09H ;{05}-(10),(11) 17814 S004DA9 19 09 BYTE 19H, 09H ;{06}-(12),(13) 17815 S004DAB 00 19 BYTE 00H, 19H ;{07}-(14),(15) 17816 S004DAD DB 34 BYTE -25H, 34H ;{08}-(16),(17) 17817 S004DAF 25 34 BYTE 25H, 34H ;{09}-(18),(19) 17818 ;-------------- face data --------------------------------------- 17819 S004DB1 06 BYTE 06 ;number of face 17820 S004DB2 03 BYTE 03 ;number of point 17821 S004DB3 00 06 04 BYTE 00,06,04 ;{00}-(00),(01),(02),(03),(04) 17822 S004DB6 22 00 22 BYTE CL2,0,CL2 ;color data 17823 S004DB9 03 BYTE 03 ;number of point 17824 S004DBA 02 04 0A BYTE 02,04,10 ;{01}-(05),(06),(07),(08),(09) 17825 S004DBD 21 00 23 BYTE CL1,0,CL3 ;color data 17826 S004DC0 05 BYTE 05 ;number of point 17827 S004DC1 04 06 0C 0E 0A BYTE 04,06,12,14,10 ;{02}-(10),(11),(12),(13),(14),(15),(16) 17828 S004DC6 00 00 00 00 00 BYTE 0,0,0,0,0 ;color data 17829 S004DCB 03 BYTE 03 ;number of point 17830 S004DCC 06 08 0C BYTE 06,08,12 ;{03}-(17),(18),(19),(20),(21) 17831 S004DCF 21 24 00 BYTE CL1,CL4,0 ;color data 17832 S004DD2 03 BYTE 03 ;number of point 17833 S004DD3 0A 0E 10 BYTE 10,14,16 ;{04}-(22),(23),(24),(25),(26) 17834 S004DD6 00 24 22 BYTE 0,CL4,CL2 ;color data 17835 S004DD9 03 BYTE 03 ;number of point 17836 S004DDA 0C 12 0E BYTE 12,18,14 ;{05}-(27),(28),(29),(30),(31) 17837 S004DDD 22 23 00 BYTE CL2,CL3,0 ;color data 17838 ;-------------- priority data ----------------------------------- 17839 ; bit pos --> 4 2 1 17840 S004DE0 15 08 03 BYTE 21,08,03 ;check face no. 17841 ; pattern no. --> 0 1 2 3 4 5 6 7 17842 S004DE3 04 00 04 00 05 BYTE 04,00,04,00,05,00,00,00 ;(1) write priority S004DE8 00 00 00 17843 S004DEB 05 01 05 01 04 BYTE 05,01,05,01,04,03,01,01 ;(2) S004DF0 03 01 01 17844 S004DF3 02 03 01 02 03 BYTE 02,03,01,02,03,02,02,02 ;(3) S004DF8 02 02 02 17845 S004DFB 01 02 02 03 02 BYTE 01,02,02,03,02,01,03,03 ;(4) S004E00 01 03 03 17846 S004E03 03 04 03 04 01 BYTE 03,04,03,04,01,05,04,04 ;(5) S004E08 05 04 04 17847 S004E0B 00 05 00 05 00 BYTE 00,05,00,05,00,04,05,05 ;(6) S004E10 04 05 05 17848 ; 17849 ;---------------------------------------------------------------- 17850 ;- "0" - 17851 ;---------------------------------------------------------------- 17852 004E13 KAZ_0 EQU $ 17853 ;--------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ -------------------------------- 17854 S004E13 0B BYTE 11 17855 S004E14 10 C0 BYTE 10H,-40H ;00 17856 S004E16 30 E0 BYTE 30H,-20H ;01 17857 S004E18 30 10 BYTE 30H, 10H ;02 17858 S004E1A 00 40 BYTE 00H, 40H ;03 17859 S004E1C E0 30 BYTE -20H, 30H ;04 17860 S004E1E D0 00 BYTE -30H, 00H ;05 17861 S004E20 F0 D0 BYTE -10H,-30H ;06 17862 S004E22 FC E0 BYTE -04H,-20H ;07 17863 S004E24 20 F0 BYTE 20H,-10H ;08 17864 S004E26 00 20 BYTE 00H, 20H ;09 17865 S004E28 F0 00 BYTE -10H, 00H ;10 17866 ;--------------- –Ê ƒf[ƒ^ -------------------------------------- 17867 S004E2A 04 BYTE 04 ; ƒ|ƒŠƒSƒ“” 17868 S004E2B 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 17869 S004E2C 00 02 10 0E BYTE 00,02,16,14 17870 S004E30 23 00 23 00 BYTE CL3,0,CL3,0 17871 S004E34 05 BYTE 05 ; ƒ|ƒCƒ“ƒg” 17872 S004E35 10 02 04 06 12 BYTE 16,02,04,06,18 17873 S004E3A 00 22 24 00 24 BYTE 0,CL2,CL4,0,CL4 17874 S004E3F 05 BYTE 05 ; ƒ|ƒCƒ“ƒg” 17875 S004E40 12 06 08 0A 14 BYTE 18,06,08,10,20 17876 S004E45 00 23 23 00 23 BYTE 0,CL3,CL3,0,CL3 17877 S004E4A 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 17878 S004E4B 0C 00 14 0A BYTE 12,00,20,10 17879 S004E4F 24 24 00 24 BYTE CL4,CL4,0,CL4 17880 ;--------------- —Dæ‡ˆÊ ƒf[ƒ^ -------------------------------- 17881 ; bit pos ----> 4 2 1 17882 S004E53 00 17 18 BYTE 00,23,24 ; check –Ê NO. 17883 ; pattern NO.-> 0 1 2 3 4 5 6 7 17884 S004E56 01 00 02 03 01 BYTE 01,00,02,03,01,00,02,03 S004E5B 00 02 03 17885 S004E5E 00 03 03 00 00 BYTE 00,03,03,00,00,03,03,00 S004E63 03 03 00 17886 S004E66 02 01 01 02 02 BYTE 02,01,01,02,02,01,01,02 S004E6B 01 01 02 17887 S004E6E 03 02 00 01 03 BYTE 03,02,00,01,03,02,00,01 S004E73 02 00 01 17888 ; 17889 ;---------------------------------------------------------------- 17890 ;- "1" - 17891 ;---------------------------------------------------------------- 17892 004E76 KAZ_1 EQU $ 17893 ;--------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ -------------------------------- 17894 S004E76 04 BYTE 04 17895 S004E77 00 C0 BYTE 00H,-40H ;00 17896 S004E79 20 D0 BYTE 20H,-30H ;01 17897 S004E7B 10 40 BYTE 10H, 40H ;02 17898 S004E7D E0 30 BYTE -20H, 30H ;03 17899 ;--------------- –Ê ƒf[ƒ^ -------------------------------------- 17900 S004E7F 01 BYTE 01 ; ƒ|ƒŠƒSƒ“” 17901 S004E80 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 17902 S004E81 00 02 04 06 BYTE 00,02,04,06 17903 S004E85 23 24 23 24 BYTE CL3,CL4,CL3,CL4 17904 ;--------------- —Dæ‡ˆÊ ƒf[ƒ^ -------------------------------- 17905 ; bit pos ----> 4 2 1 17906 S004E89 00 02 03 BYTE 00,02,03 ; check –Ê NO. 17907 ; pattern NO.-> 0 1 2 3 4 5 6 7 17908 S004E8C 00 00 00 00 00 BYTE 00,00,00,00,00,00,00,00 S004E91 00 00 00 17909 ; 17910 ;---------------------------------------------------------------- 17911 ;- "2" - 17912 ;---------------------------------------------------------------- 17913 004E94 KAZ_2 EQU $ 17914 ;--------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ -------------------------------- 17915 S004E94 0A BYTE 10 17916 S004E95 F0 C0 BYTE -10H,-40H ;00 17917 S004E97 20 E0 BYTE 20H,-20H ;01 17918 S004E99 30 00 BYTE 30H, 00H ;02 17919 S004E9B F6 20 BYTE -0AH, 20H ;03 17920 S004E9D 20 20 BYTE 20H, 20H ;04 17921 S004E9F 30 40 BYTE 30H, 40H ;05 17922 S004EA1 D0 40 BYTE -30H, 40H ;06 17923 S004EA3 D0 30 BYTE -30H, 30H ;07 17924 S004EA5 14 F0 BYTE 14H,-10H ;08 17925 S004EA7 D0 E0 BYTE -30H,-20H ;09 17926 ;--------------- –Ê ƒf[ƒ^ -------------------------------------- 17927 S004EA9 03 BYTE 03 ; ƒ|ƒŠƒSƒ“” 17928 S004EAA 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 17929 S004EAB 00 02 10 12 BYTE 00,02,16,18 17930 S004EAF 23 00 23 24 BYTE CL3,0,CL3,CL4 17931 S004EB3 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 17932 S004EB4 0E 02 04 0C BYTE 14,02,04,12 17933 S004EB8 24 23 24 22 BYTE CL4,CL3,CL4,CL2 17934 S004EBC 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 17935 S004EBD 06 08 0A 0C BYTE 06,08,10,12 17936 S004EC1 21 23 21 00 BYTE CL1,CL3,CL1,0 17937 ;--------------- —Dæ‡ˆÊ ƒf[ƒ^ -------------------------------- 17938 ; bit pos ----> 4 2 1 17939 S004EC5 00 08 10 BYTE 00,08,16 ; check –Ê NO. 17940 ; pattern NO.-> 0 1 2 3 4 5 6 7 17941 S004EC8 00 00 02 01 01 BYTE 00,00,02,01,01,00,02,00 S004ECD 00 02 00 17942 S004ED0 01 01 01 00 02 BYTE 01,01,01,00,02,01,01,01 S004ED5 01 01 01 17943 S004ED8 02 02 00 02 00 BYTE 02,02,00,02,00,02,00,02 S004EDD 02 00 02 17944 ; 17945 ;---------------------------------------------------------------- 17946 ;- "3" - 17947 ;---------------------------------------------------------------- 17948 004EE0 KAZ_3 EQU $ 17949 ;--------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ -------------------------------- 17950 S004EE0 0A BYTE 10 17951 S004EE1 F0 C0 BYTE -10H,-40H ;00 17952 S004EE3 40 E0 BYTE 40H,-20H ;01 17953 S004EE5 20 00 BYTE 20H, 00H ;02 17954 S004EE7 30 10 BYTE 30H, 10H ;03 17955 S004EE9 00 40 BYTE 00H, 40H ;04 17956 S004EEB D0 30 BYTE -30H, 30H ;05 17957 S004EED 10 10 BYTE 10H, 10H ;06 17958 S004EEF 00 00 BYTE 00H, 00H ;07 17959 S004EF1 10 F0 BYTE 10H,-10H ;08 17960 S004EF3 E0 E0 BYTE -20H,-20H ;09 17961 ;--------------- –Ê ƒf[ƒ^ -------------------------------------- 17962 S004EF5 04 BYTE 04 ; ƒ|ƒŠƒSƒ“” 17963 S004EF6 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 17964 S004EF7 00 02 10 12 BYTE 00,02,16,18 17965 S004EFB 23 00 23 24 BYTE CL3,0,CL3,CL4 17966 S004EFF 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 17967 S004F00 02 04 0E 10 BYTE 02,04,14,16 17968 S004F04 24 00 24 00 BYTE CL4,0,CL4,0 17969 S004F08 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 17970 S004F09 04 06 0C 0E BYTE 04,06,12,14 17971 S004F0D 23 00 23 00 BYTE CL3,0,CL3,0 17972 S004F11 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 17973 S004F12 0C 06 08 0A BYTE 12,06,08,10 17974 S004F16 00 24 23 24 BYTE 0,CL4,CL3,CL4 17975 ;--------------- —Dæ‡ˆÊ ƒf[ƒ^ -------------------------------- 17976 ; bit pos ----> 4 2 1 17977 S004F1A 00 15 16 BYTE 00,21,22 ; check –Ê NO. 17978 ; pattern NO.-> 0 1 2 3 4 5 6 7 17979 S004F1D 03 00 00 00 03 BYTE 03,00,00,00,03,00,00,00 S004F22 00 00 00 17980 S004F25 02 01 01 01 02 BYTE 02,01,01,01,02,01,01,01 S004F2A 01 01 01 17981 S004F2D 01 02 03 02 01 BYTE 01,02,03,02,01,02,02,02 S004F32 02 02 02 17982 S004F35 00 03 02 03 00 BYTE 00,03,02,03,00,03,03,03 S004F3A 03 03 03 17983 ; 17984 ;---------------------------------------------------------------- 17985 ;- "4" - 17986 ;---------------------------------------------------------------- 17987 004F3D KAZ_4 EQU $ 17988 ;--------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ -------------------------------- 17989 S004F3D 0E BYTE 14 17990 S004F3E E0 C0 BYTE -20H,-40H ;00 17991 S004F40 10 C0 BYTE 10H,-40H ;01 17992 S004F42 F0 10 BYTE -10H, 10H ;02 17993 S004F44 05 16 BYTE 05H, 16H ;03 17994 S004F46 15 D0 BYTE 15H,-30H ;04 17995 S004F48 30 D0 BYTE 30H,-30H ;05 17996 S004F4A 26 16 BYTE 26H, 16H ;06 17997 S004F4C 30 10 BYTE 30H, 10H ;07 17998 S004F4E 30 30 BYTE 30H, 30H ;08 17999 S004F50 22 2A BYTE 22H, 2AH ;09 18000 S004F52 20 40 BYTE 20H, 40H ;10 18001 S004F54 FB 40 BYTE -05H, 40H ;11 18002 S004F56 00 2C BYTE 00H, 2CH ;12 18003 S004F58 D0 2D BYTE -30H, 2DH ;13 18004 ;--------------- –Ê ƒf[ƒ^ -------------------------------------- 18005 S004F5A 04 BYTE 04 ; ƒ|ƒŠƒSƒ“” 18006 S004F5B 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18007 S004F5C 00 02 04 1A BYTE 00,02,04,26 18008 S004F60 21 24 00 24 BYTE CL1,CL4,0,CL4 18009 S004F64 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18010 S004F65 08 0A 0C 06 BYTE 08,10,12,06 18011 S004F69 21 24 00 24 BYTE CL1,CL4,0,CL4 18012 S004F6D 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18013 S004F6E 04 0E 10 1A BYTE 04,14,16,26 18014 S004F72 21 22 23 00 BYTE CL1,CL2,CL3,0 18015 S004F76 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18016 S004F77 18 12 14 16 BYTE 24,18,20,22 18017 S004F7B 00 24 21 24 BYTE 0,CL4,CL1,CL4 18018 ;--------------- —Dæ‡ˆÊ ƒf[ƒ^ -------------------------------- 18019 ; bit pos ----> 4 2 1 18020 S004F7F 00 0F 10 BYTE 00,15,16 ; check –Ê NO. 18021 ; pattern NO.-> 0 1 2 3 4 5 6 7 18022 S004F82 03 01 00 00 03 BYTE 03,01,00,00,03,01,03,00 S004F87 01 03 00 18023 S004F8A 02 00 03 01 02 BYTE 02,00,03,01,02,00,02,01 S004F8F 00 02 01 18024 S004F92 01 02 02 02 01 BYTE 01,02,02,02,01,02,01,02 S004F97 02 01 02 18025 S004F9A 00 03 01 03 00 BYTE 00,03,01,03,00,03,00,03 S004F9F 03 00 03 18026 ; 18027 ;---------------------------------------------------------------- 18028 ;- "5" - 18029 ;---------------------------------------------------------------- 18030 004FA2 KAZ_5 EQU $ 18031 ;--------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ -------------------------------- 18032 S004FA2 0E BYTE 14 18033 S004FA3 00 C0 BYTE 00H,-40H ;00 18034 S004FA5 24 C0 BYTE 24H,-40H ;01 18035 S004FA7 18 CC BYTE 18H,-34H ;02 18036 S004FA9 40 C0 BYTE 40H,-40H ;03 18037 S004FAB 40 E0 BYTE 40H,-20H ;04 18038 S004FAD 08 E0 BYTE 08H,-20H ;05 18039 S004FAF 04 F0 BYTE 04H,-10H ;06 18040 S004FB1 20 00 BYTE 20H, 00H ;07 18041 S004FB3 20 30 BYTE 20H, 30H ;08 18042 S004FB5 E0 40 BYTE -20H, 40H ;09 18043 S004FB7 D0 20 BYTE -30H, 20H ;10 18044 S004FB9 00 20 BYTE 00H, 20H ;11 18045 S004FBB 00 10 BYTE 00H, 10H ;12 18046 S004FBD E0 00 BYTE -20H, 00H ;13 18047 ;--------------- –Ê ƒf[ƒ^ -------------------------------------- 18048 S004FBF 05 BYTE 05 ; ƒ|ƒŠƒSƒ“” 18049 S004FC0 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18050 S004FC1 00 02 0C 1A BYTE 00,02,12,26 18051 S004FC5 21 24 00 24 BYTE CL1,CL4,0,CL4 18052 S004FC9 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18053 S004FCA 04 06 08 0A BYTE 04,06,08,10 18054 S004FCE 24 22 21 00 BYTE CL4,CL2,CL1,0 18055 S004FD2 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18056 S004FD3 0C 0E 18 1A BYTE 12,14,24,26 18057 S004FD7 23 00 23 00 BYTE CL3,0,CL3,0 18058 S004FDB 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18059 S004FDC 0E 10 16 18 BYTE 14,16,22,24 18060 S004FE0 22 00 22 00 BYTE CL2,0,CL2,0 18061 S004FE4 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18062 S004FE5 16 10 12 14 BYTE 22,16,18,20 18063 S004FE9 00 24 23 21 BYTE 0,CL4,CL3,CL1 18064 ;--------------- —Dæ‡ˆÊ ƒf[ƒ^ -------------------------------- 18065 ; bit pos ----> 4 2 1 18066 S004FED 00 03 0A BYTE 00,03,10 ; check –Ê NO. 18067 ; pattern NO.-> 0 1 2 3 4 5 6 7 18068 S004FF0 04 01 04 00 04 BYTE 04,01,04,00,04,01,04,00 S004FF5 01 04 00 18069 S004FF8 03 00 03 01 03 BYTE 03,00,03,01,03,00,03,01 S004FFD 00 03 01 18070 S005000 02 03 02 02 02 BYTE 02,03,02,02,02,02,02,02 S005005 02 02 02 18071 S005008 01 02 00 03 01 BYTE 01,02,00,03,01,03,00,03 S00500D 03 00 03 18072 S005010 00 04 01 04 00 BYTE 00,04,01,04,00,04,01,04 S005015 04 01 04 18073 ; 18074 ;---------------------------------------------------------------- 18075 ;- "6" - 18076 ;---------------------------------------------------------------- 18077 005018 KAZ_6 EQU $ 18078 ;--------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ -------------------------------- 18079 S005018 0C BYTE 12 18080 S005019 00 C0 BYTE 00H,-40H ;00 18081 S00501B 30 D0 BYTE 30H,-30H ;01 18082 S00501D 08 F6 BYTE 08H,-0AH ;02 18083 S00501F 30 00 BYTE 30H, 00H ;03 18084 S005021 30 20 BYTE 30H, 20H ;04 18085 S005023 06 40 BYTE 06H, 40H ;05 18086 S005025 E0 30 BYTE -20H, 30H ;06 18087 S005027 D0 00 BYTE -30H, 00H ;07 18088 S005029 FC FF BYTE -04H,-01H ;08 18089 S00502B 10 10 BYTE 10H, 10H ;09 18090 S00502D 00 20 BYTE 00H, 20H ;10 18091 S00502F F8 10 BYTE -08H, 10H ;11 18092 ;--------------- –Ê ƒf[ƒ^ -------------------------------------- 18093 S005031 04 BYTE 04 ; ƒ|ƒŠƒSƒ“” 18094 S005032 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18095 S005033 00 02 16 0E BYTE 00,02,22,14 18096 S005037 23 24 00 24 BYTE CL3,CL4,0,CL4 18097 S00503B 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18098 S00503C 04 06 12 10 BYTE 04,06,18,16 18099 S005040 23 00 23 00 BYTE CL3,0,CL3,0 18100 S005044 05 BYTE 05 ; ƒ|ƒCƒ“ƒg” 18101 S005045 06 08 0A 14 12 BYTE 06,08,10,20,18 18102 S00504A 22 24 00 24 00 BYTE CL2,CL4,0,CL4,0 18103 S00504F 05 BYTE 05 ; ƒ|ƒCƒ“ƒg” 18104 S005050 14 0A 0C 0E 16 BYTE 20,10,12,14,22 18105 S005055 00 23 23 00 23 BYTE 0,CL3,CL3,0,CL3 18106 ;--------------- —Dæ‡ˆÊ ƒf[ƒ^ -------------------------------- 18107 ; bit pos ----> 4 2 1 18108 S00505A 00 03 0A BYTE 00,03,10 ; check –Ê NO. 18109 ; pattern NO.-> 0 1 2 3 4 5 6 7 18110 S00505D 03 01 03 00 02 BYTE 03,01,03,00,02,02,00,00 S005062 02 00 00 18111 S005065 02 02 00 01 01 BYTE 02,02,00,01,01,01,03,01 S00506A 01 03 01 18112 S00506D 01 00 01 02 03 BYTE 01,00,01,02,03,00,01,02 S005072 00 01 02 18113 S005075 00 03 02 03 00 BYTE 00,03,02,03,00,03,02,03 S00507A 03 02 03 18114 ; 18115 ;---------------------------------------------------------------- 18116 ;- "7" - 18117 ;---------------------------------------------------------------- 18118 00507D KAZ_7 EQU $ 18119 ;--------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ -------------------------------- 18120 S00507D 08 BYTE 08 18121 S00507E E0 C0 BYTE -20H,-40H ;00 18122 S005080 40 E0 BYTE 40H,-20H ;01 18123 S005082 20 00 BYTE 20H, 00H ;02 18124 S005084 00 40 BYTE 00H, 40H ;03 18125 S005086 D0 40 BYTE -30H, 40H ;04 18126 S005088 F0 10 BYTE -10H, 10H ;05 18127 S00508A 10 F0 BYTE 10H,-10H ;06 18128 S00508C D0 E0 BYTE -30H,-20H ;07 18129 ;--------------- –Ê ƒf[ƒ^ -------------------------------------- 18130 S00508E 03 BYTE 03 ; ƒ|ƒŠƒSƒ“” 18131 S00508F 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18132 S005090 00 02 0C 0E BYTE 00,02,12,14 18133 S005094 23 00 23 24 BYTE CL3,0,CL3,CL4 18134 S005098 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18135 S005099 02 04 0A 0C BYTE 02,04,10,12 18136 S00509D 24 00 24 00 BYTE CL4,0,CL4,0 18137 S0050A1 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18138 S0050A2 04 06 08 0A BYTE 04,06,08,10 18139 S0050A6 24 21 24 00 BYTE CL4,CL1,CL4,0 18140 ;--------------- —Dæ‡ˆÊ ƒf[ƒ^ -------------------------------- 18141 ; bit pos ----> 4 2 1 18142 S0050AA 00 03 04 BYTE 00,03,04 ; check –Ê NO. 18143 ; pattern NO.-> 0 1 2 3 4 5 6 7 18144 S0050AD 02 00 00 00 02 BYTE 02,00,00,00,02,00,00,00 S0050B2 00 00 00 18145 S0050B5 01 01 02 02 01 BYTE 01,01,02,02,01,01,02,01 S0050BA 01 02 01 18146 S0050BD 00 02 01 01 00 BYTE 00,02,01,01,00,02,01,02 S0050C2 02 01 02 18147 ; 18148 ;---------------------------------------------------------------- 18149 ;- "8" - 18150 ;---------------------------------------------------------------- 18151 0050C5 KAZ_8 EQU $ 18152 ;--------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ -------------------------------- 18153 S0050C5 12 BYTE 18 18154 S0050C6 20 C0 BYTE 20H,-40H ;00 18155 S0050C8 40 E0 BYTE 40H,-20H ;01 18156 S0050CA 20 00 BYTE 20H, 00H ;02 18157 S0050CC 30 30 BYTE 30H, 30H ;03 18158 S0050CE 00 40 BYTE 00H, 40H ;04 18159 S0050D0 C0 20 BYTE -40H, 20H ;05 18160 S0050D2 D0 00 BYTE -30H, 00H ;06 18161 S0050D4 F0 F0 BYTE -10H,-10H ;07 18162 S0050D6 E0 E0 BYTE -20H,-20H ;08 18163 S0050D8 E0 D0 BYTE -20H,-30H ;09 18164 S0050DA 0C CE BYTE 0CH,-32H ;10 18165 S0050DC 20 DE BYTE 20H,-22H ;11 18166 S0050DE 10 F8 BYTE 10H,-08H ;12 18167 S0050E0 FC E0 BYTE -04H,-20H ;13 18168 S0050E2 02 FC BYTE 02H,-04H ;14 18169 S0050E4 12 0E BYTE 12H, 0EH ;15 18170 S0050E6 00 20 BYTE 00H, 20H ;16 18171 S0050E8 F0 10 BYTE -10H, 10H ;17 18172 ;--------------- –Ê ƒf[ƒ^ -------------------------------------- 18173 S0050EA 07 BYTE 07 ; ƒ|ƒŠƒSƒ“” 18174 S0050EB 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18175 S0050EC 00 02 16 14 BYTE 00,02,22,20 18176 S0050F0 23 00 23 00 BYTE CL3,0,CL3,0 18177 S0050F4 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18178 S0050F5 02 04 18 16 BYTE 02,04,24,22 18179 S0050F9 24 00 24 00 BYTE CL4,0,CL4,0 18180 S0050FD 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18181 S0050FE 04 06 0E 1A BYTE 04,06,14,26 18182 S005102 23 23 00 23 BYTE CL3,CL3,0,CL3 18183 S005106 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18184 S005107 1E 06 08 20 BYTE 30,06,08,32 18185 S00510B 00 24 00 24 BYTE 0,CL4,0,CL4 18186 S00510F 05 BYTE 05 ; ƒ|ƒCƒ“ƒg” 18187 S005110 22 20 08 0A 0C BYTE 34,32,08,10,12 18188 S005115 23 00 23 24 00 BYTE CL3,0,CL3,CL4,0 18189 S00511A 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18190 S00511B 0E 1C 22 0C BYTE 14,28,34,12 18191 S00511F 00 24 00 24 BYTE 0,CL4,0,CL4 18192 S005123 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18193 S005124 00 0E 10 12 BYTE 00,14,16,18 18194 S005128 24 23 22 24 BYTE CL4,CL3,CL2,CL4 18195 ;--------------- —Dæ‡ˆÊ ƒf[ƒ^ -------------------------------- 18196 ; bit pos ----> 4 2 1 18197 S00512C 00 27 0F BYTE 00,39,15 ; check –Ê NO. 18198 ; pattern NO.-> 0 1 2 3 4 5 6 7 18199 S00512F 04 00 04 06 04 BYTE 04,00,04,06,04,00,04,06 S005134 00 04 06 18200 S005137 03 01 03 00 03 BYTE 03,01,03,00,03,01,05,00 S00513C 01 05 00 18201 S00513F 05 02 05 02 05 BYTE 05,02,05,02,05,02,03,02 S005144 02 03 02 18202 S005147 02 06 06 05 02 BYTE 02,06,06,05,02,03,06,05 S00514C 03 06 05 18203 S00514F 01 03 02 01 01 BYTE 01,03,02,01,01,06,02,04 S005154 06 02 04 18204 S005157 00 05 00 04 00 BYTE 00,05,00,04,00,05,01,01 S00515C 05 01 01 18205 S00515F 06 04 01 03 06 BYTE 06,04,01,03,06,04,00,03 S005164 04 00 03 18206 ; 18207 ;---------------------------------------------------------------- 18208 ;- "9" - 18209 ;---------------------------------------------------------------- 18210 005167 KAZ_9 EQU $ 18211 ;--------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ -------------------------------- 18212 S005167 0B BYTE 11 18213 S005168 20 C0 BYTE 20H,-40H ;00 18214 S00516A 40 00 BYTE 40H, 00H ;01 18215 S00516C 10 40 BYTE 10H, 40H ;02 18216 S00516E E0 30 BYTE -20H, 30H ;03 18217 S005170 02 10 BYTE 02H, 10H ;04 18218 S005172 F0 10 BYTE -10H, 10H ;05 18219 S005174 D0 E0 BYTE -30H,-20H ;06 18220 S005176 10 E0 BYTE 10H,-20H ;07 18221 S005178 20 F0 BYTE 20H,-10H ;08 18222 S00517A 12 00 BYTE 12H, 00H ;09 18223 S00517C 00 F0 BYTE 00H,-10H ;10 18224 ;--------------- –Ê ƒf[ƒ^ -------------------------------------- 18225 S00517E 04 BYTE 04 ; ƒ|ƒŠƒSƒ“” 18226 S00517F 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18227 S005180 10 0E 00 02 BYTE 16,14,00,02 18228 S005184 23 00 23 00 BYTE CL3,0,CL3,0 18229 S005188 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18230 S005189 10 02 04 06 BYTE 16,02,04,06 18231 S00518D 00 24 23 24 BYTE 0,CL4,CL3,CL4 18232 S005191 05 BYTE 05 ; ƒ|ƒCƒ“ƒg” 18233 S005192 14 12 08 0A 0C BYTE 20,18,08,10,12 18234 S005197 23 00 21 23 00 BYTE CL3,0,CL1,CL3,0 18235 S00519C 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18236 S00519D 0E 14 0C 00 BYTE 14,20,12,00 18237 S0051A1 24 00 24 00 BYTE CL4,0,CL4,0 18238 ;--------------- —Dæ‡ˆÊ ƒf[ƒ^ -------------------------------- 18239 ; bit pos ----> 4 2 1 18240 S0051A5 00 18 02 BYTE 00,24,02 ; check –Ê NO. 18241 ; pattern NO.-> 0 1 2 3 4 5 6 7 18242 S0051A8 01 01 02 00 01 BYTE 01,01,02,00,01,00,02,03 S0051AD 00 02 03 18243 S0051B0 02 00 03 02 00 BYTE 02,00,03,02,00,01,03,00 S0051B5 01 03 00 18244 S0051B8 00 03 01 03 02 BYTE 00,03,01,03,02,03,00,02 S0051BD 03 00 02 18245 S0051C0 03 02 00 01 03 BYTE 03,02,00,01,03,02,01,01 S0051C5 02 01 01 18246 ; 18247 ;---------------------------------------------------------------- 18248 ; "L" - 18249 ;---------------------------------------------------------------- 18250 0051C8 MOJPOL_L EQU $ 18251 ;-------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ --------------------------------- 18252 S0051C8 06 BYTE 6 ;number of point 18253 S0051C9 E0 CB BYTE -20H,-35H ;00 18254 S0051CB 10 C0 BYTE 10H,-40H ;01 18255 S0051CD FB 18 BYTE -05H, 18H ;02 18256 S0051CF 28 15 BYTE 28H, 15H ;03 18257 S0051D1 30 40 BYTE 30H, 40H ;04 18258 S0051D3 D0 40 BYTE -30H, 40H ;05 18259 ;-------------- –Ê ƒf[ƒ^ --------------------------------------- 18260 S0051D5 02 BYTE 02 ; ƒ|ƒŠƒSƒ“” 18261 S0051D6 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18262 S0051D7 04 0A 00 02 BYTE 04,10,00,02 18263 S0051DB 00 22 21 22 BYTE 0,CL2,CL1,CL2 18264 S0051DF 04 BYTE 04 ;ƒ|ƒCƒ“ƒg” 18265 S0051E0 04 06 08 0A BYTE 04,06,08,10 18266 S0051E4 21 22 21 00 BYTE CL1,CL2,CL1,0 18267 ;-------------- —Dæ‡ˆÊ ƒf[ƒ^ --------------------------------- 18268 ; bit pos --> 4 2 1 18269 S0051E8 00 03 04 BYTE 00,03,04 ;check –Ê NO. 18270 ; pattern no. --> 0 1 2 3 4 5 6 7 18271 S0051EB 00 01 00 01 00 BYTE 00,01,00,01,00,01,00,01 ;(1) write priority S0051F0 01 00 01 18272 S0051F3 01 00 01 00 01 BYTE 01,00,01,00,01,00,01,00 ;(2) S0051F8 00 01 00 18273 ; 18274 ;---------------------------------------------------------------- 18275 ; "C" - 18276 ;---------------------------------------------------------------- 18277 0051FB MOJPOL_C EQU $ 18278 ;-------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ --------------------------------- 18279 S0051FB 0D BYTE 13 ;number of point 18280 S0051FC 00 C0 BYTE 00H,-40H ;00 18281 S0051FE 27 C9 BYTE 27H,-37H ;01 18282 S005200 34 DC BYTE 34H,-24H ;02 18283 S005202 15 F0 BYTE 15H,-10H ;03 18284 S005204 12 DC BYTE 12H,-24H ;04 18285 S005206 F0 FC BYTE -10H,-04H ;05 18286 S005208 F0 10 BYTE -10H, 10H ;06 18287 S00520A 08 20 BYTE 08H, 20H ;07 18288 S00520C 29 11 BYTE 29H, 11H ;08 18289 S00520E 2E 35 BYTE 2EH, 35H ;09 18290 S005210 00 40 BYTE 00H, 40H ;10 18291 S005212 D0 20 BYTE -30H, 20H ;11 18292 S005214 D0 F0 BYTE -30H,-10H ;12 18293 ;-------------- –Ê ƒf[ƒ^ --------------------------------------- 18294 S005216 05 BYTE 05 ; ƒ|ƒŠƒSƒ“” 18295 S005217 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18296 S005218 02 04 06 00 BYTE 02,04,06,00 18297 S00521C 23 24 23 21 BYTE CL3,CL4,CL3,CL1 18298 S005220 04 BYTE 04 ;ƒ|ƒCƒ“ƒg” 18299 S005221 00 08 0A 18 BYTE 00,08,10,24 18300 S005225 00 24 00 24 BYTE 0,CL4,0,CL4 18301 S005229 04 BYTE 04 ;ƒ|ƒCƒ“ƒg” 18302 S00522A 0A 0C 16 18 BYTE 10,12,22,24 18303 S00522E 22 00 22 00 BYTE CL2,0,CL2,0 18304 S005232 04 BYTE 04 ;ƒ|ƒCƒ“ƒg” 18305 S005233 0C 0E 14 16 BYTE 12,14,20,22 18306 S005237 23 00 23 00 BYTE CL3,0,CL3,0 18307 S00523B 04 BYTE 04 ;ƒ|ƒCƒ“ƒg” 18308 S00523C 0E 10 12 14 BYTE 14,16,18,20 18309 S005240 21 22 21 00 BYTE CL1,CL2,CL1,0 18310 ;-------------- —Dæ‡ˆÊ ƒf[ƒ^ --------------------------------- 18311 ; bit pos --> 4 2 1 18312 S005244 00 10 1C BYTE 00,16,28 ;check –Ê NO. 18313 ; pattern no. --> 0 1 2 3 4 5 6 7 18314 S005247 03 00 00 00 03 BYTE 03,00,00,00,03,00,04,00 ;(1) write priority S00524C 00 04 00 18315 S00524F 04 01 04 01 04 BYTE 04,01,04,01,04,01,03,01 ;(2) S005254 01 03 01 18316 S005257 02 02 03 02 02 BYTE 02,02,03,02,02,02,00,02 ;(3) S00525C 02 00 02 18317 S00525F 01 03 01 04 01 BYTE 01,03,01,04,01,03,02,04 ;(4) S005264 03 02 04 18318 S005267 00 04 02 03 00 BYTE 00,04,02,03,00,04,01,03 ;(5) S00526C 04 01 03 18319 ; 18320 ;---------------------------------------------------------------- 18321 ; "T" - 18322 ;---------------------------------------------------------------- 18323 00526F MOJPOL_T EQU $ 18324 ;-------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ --------------------------------- 18325 S00526F 08 BYTE 8 ;number of point 18326 S005270 D0 C0 BYTE -30H,-40H ;00 18327 S005272 30 C0 BYTE 30H,-40H ;01 18328 S005274 30 E0 BYTE 30H,-20H ;02 18329 S005276 D9 EB BYTE -27H,-15H ;03 18330 S005278 F0 E5 BYTE -10H,-1BH ;04 18331 S00527A 11 E0 BYTE 11H,-20H ;05 18332 S00527C 15 40 BYTE 15H, 40H ;06 18333 S00527E F0 40 BYTE -10H, 40H ;07 18334 ;-------------- –Ê ƒf[ƒ^ --------------------------------------- 18335 S005280 02 BYTE 02 ; ƒ|ƒŠƒSƒ“” 18336 S005281 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18337 S005282 00 02 04 06 BYTE 00,02,04,06 18338 S005286 21 22 21 22 BYTE CL1,CL2,CL1,CL2 18339 S00528A 04 BYTE 04 ;ƒ|ƒCƒ“ƒg” 18340 S00528B 08 0A 0C 0E BYTE 08,10,12,14 18341 S00528F 00 22 21 22 BYTE 0,CL2,CL1,CL2 18342 ;-------------- —Dæ‡ˆÊ ƒf[ƒ^ --------------------------------- 18343 ; bit pos --> 4 2 1 18344 S005293 00 0B 02 BYTE 00,11,02 ;check –Ê NO. 18345 ; pattern no. --> 0 1 2 3 4 5 6 7 18346 S005296 00 01 00 01 00 BYTE 00,01,00,01,00,01,00,01 ;(1) write priority S00529B 01 00 01 18347 S00529E 01 00 01 00 01 BYTE 01,00,01,00,01,00,01,00 ;(2) S0052A3 00 01 00 18348 ; 18349 ;---------------------------------------------------------------- 18350 ; "{" - 18351 ;---------------------------------------------------------------- 18352 0052A6 PURAS_POL EQU $ 18353 S0052A6 0C BYTE 12 ;number of point 18354 S0052A7 F0 D0 BYTE -10H,-30H ;00 18355 S0052A9 10 D0 BYTE 10H,-30H ;01 18356 S0052AB 10 EC BYTE 10H,-14H ;02 18357 S0052AD F0 EC BYTE -10H,-14H ;03 18358 S0052AF 30 F0 BYTE 30H,-10H ;04 18359 S0052B1 30 10 BYTE 30H, 10H ;05 18360 S0052B3 10 0C BYTE 10H, 0CH ;06 18361 S0052B5 10 30 BYTE 10H, 30H ;07 18362 S0052B7 F0 30 BYTE -10H, 30H ;08 18363 S0052B9 F0 0C BYTE -10H, 0CH ;09 18364 S0052BB D0 10 BYTE -30H, 10H ;10 18365 S0052BD D0 F0 BYTE -30H,-10H ;11 18366 ;-------------- –Ê ƒf[ƒ^ --------------------------------------- 18367 S0052BF 03 BYTE 3 ; ƒ|ƒŠƒSƒ“” 18368 S0052C0 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18369 S0052C1 00 02 04 06 BYTE 00,02,04,06 18370 S0052C5 21 22 00 22 BYTE CL1,CL2,0,CL2 18371 S0052C9 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18372 S0052CA 16 08 0A 14 BYTE 22,08,10,20 18373 S0052CE 21 22 21 22 BYTE CL1,CL2,CL1,CL2 18374 S0052D2 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18375 S0052D3 0C 0E 10 12 BYTE 12,14,16,18 18376 S0052D7 22 21 22 00 BYTE CL2,CL1,CL2,0 18377 ;-------------- —Dæ‡ˆÊ ƒf[ƒ^ --------------------------------- 18378 ; bit pos --> 4 2 1 18379 S0052DB 06 08 09 BYTE 06,08,09 ;check –Ê NO. 18380 ; pattern no. --> 0 1 2 3 4 5 6 7 18381 S0052DE 00 00 02 02 00 BYTE 00,00,02,02,00,00,02,02 ;(1) write priority S0052E3 00 02 02 18382 S0052E6 01 01 01 01 01 BYTE 01,01,01,01,01,01,01,01 ;(2) S0052EB 01 01 01 18383 S0052EE 02 02 00 00 02 BYTE 02,02,00,00,02,02,00,00 ;(3) S0052F3 02 00 00 18384 ; 18385 ;---------------------------------------------------------------- 18386 ; "G" - 18387 ;---------------------------------------------------------------- 18388 0052F6 MOJPOL_G EQU $ 18389 ;-------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ --------------------------------- 18390 S0052F6 0D BYTE 13 ;number of point 18391 S0052F7 00 C0 BYTE 00H,-40H ;00 18392 S0052F9 20 E0 BYTE 20H,-20H ;01 18393 S0052FB E0 00 BYTE -20H, 00H ;02 18394 S0052FD 04 24 BYTE 04H, 24H ;03 18395 S0052FF 10 10 BYTE 10H, 10H ;04 18396 S005301 00 00 BYTE 00H, 00H ;05 18397 S005303 20 00 BYTE 20H, 00H ;06 18398 S005305 30 00 BYTE 30H, 00H ;07 18399 S005307 40 40 BYTE 40H, 40H ;08 18400 S005309 20 40 BYTE 20H, 40H ;09 18401 S00530B 20 30 BYTE 20H, 30H ;10 18402 S00530D E0 40 BYTE -20H, 40H ;11 18403 S00530F C0 00 BYTE -40H, 00H ;12 18404 ;-------------- –Ê ƒf[ƒ^ --------------------------------------- 18405 S005311 05 BYTE 05 ; ƒ|ƒŠƒSƒ“” 18406 S005312 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18407 S005313 00 02 04 18 BYTE 00,02,04,24 18408 S005317 23 24 00 24 BYTE CL3,CL4,0,CL4 18409 S00531B 04 BYTE 04 ;ƒ|ƒCƒ“ƒg” 18410 S00531C 04 06 16 18 BYTE 04,06,22,24 18411 S005320 23 00 23 00 BYTE CL3,0,CL3,0 18412 S005324 03 BYTE 03 ;ƒ|ƒCƒ“ƒg” 18413 S005325 0C 14 16 BYTE 12,20,22 18414 S005328 00 21 24 BYTE 0,CL1,CL4 18415 S00532B 03 BYTE 03 ;ƒ|ƒCƒ“ƒg” 18416 S00532C 0A 0C 08 BYTE 10,12,08 18417 S00532F 21 00 23 BYTE CL1,0,CL3 18418 S005332 04 BYTE 04 ;ƒ|ƒCƒ“ƒg” 18419 S005333 0C 0E 10 12 BYTE 12,14,16,18 18420 S005337 21 22 21 22 BYTE CL1,CL2,CL1,CL2 18421 ;-------------- —Dæ‡ˆÊ ƒf[ƒ^ --------------------------------- 18422 ; bit pos --> 4 2 1 18423 S00533B 00 18 19 BYTE 00,24,25 ;check –Ê NO. 18424 ; pattern no. --> 0 1 2 3 4 5 6 7 18425 S00533E 00 00 04 02 00 BYTE 00,00,04,02,00,00,04,02 ;(1) write priority S005343 00 04 02 18426 S005346 04 03 02 01 04 BYTE 04,03,02,01,04,04,02,01 ;(2) S00534B 04 02 01 18427 S00534E 02 01 03 04 03 BYTE 02,01,03,04,03,03,03,03 ;(3) S005353 03 03 03 18428 S005356 03 02 01 03 02 BYTE 03,02,01,03,02,02,01,00 ;(4) S00535B 02 01 00 18429 S00535E 01 04 00 00 01 BYTE 01,04,00,00,01,01,00,04 ;(5) S005363 01 00 04 18430 ; 18431 ;---------------------------------------------------------------- 18432 ; "M" - 18433 ;---------------------------------------------------------------- 18434 005366 MOJPOL_M EQU $ 18435 ;-------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ --------------------------------- 18436 S005366 0C BYTE 12 ;number of point 18437 S005367 E0 D0 BYTE -20H,-30H ;00 18438 S005369 F0 E0 BYTE -10H,-20H ;01 18439 S00536B 00 F0 BYTE 00H,-10H ;02 18440 S00536D 18 E0 BYTE 18H,-20H ;03 18441 S00536F 30 C0 BYTE 30H,-40H ;04 18442 S005371 40 40 BYTE 40H, 40H ;05 18443 S005373 10 40 BYTE 10H, 40H ;06 18444 S005375 10 00 BYTE 10H, 00H ;07 18445 S005377 00 40 BYTE 00H, 40H ;08 18446 S005379 F0 10 BYTE -10H, 10H ;09 18447 S00537B F0 40 BYTE -10H, 40H ;10 18448 S00537D C0 40 BYTE -40H, 40H ;11 18449 ;-------------- –Ê ƒf[ƒ^ --------------------------------------- 18450 S00537F 04 BYTE 04 ; ƒ|ƒŠƒSƒ“” 18451 S005380 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18452 S005381 00 02 14 16 BYTE 00,02,20,22 18453 S005385 23 22 21 22 BYTE CL3,CL2,CL1,CL2 18454 S005389 04 BYTE 04 ;ƒ|ƒCƒ“ƒg” 18455 S00538A 02 04 10 12 BYTE 02,04,16,18 18456 S00538E 23 00 23 00 BYTE CL3,0,CL3,0 18457 S005392 04 BYTE 04 ;ƒ|ƒCƒ“ƒg” 18458 S005393 04 06 0E 10 BYTE 04,06,14,16 18459 S005397 24 00 24 00 BYTE CL4,0,CL4,0 18460 S00539B 04 BYTE 04 ;ƒ|ƒCƒ“ƒg” 18461 S00539C 06 08 0A 0C BYTE 06,08,10,12 18462 S0053A0 24 22 21 22 BYTE CL4,CL2,CL1,CL2 18463 ;-------------- —Dæ‡ˆÊ ƒf[ƒ^ --------------------------------- 18464 ; bit pos --> 4 2 1 18465 S0053A4 00 03 04 BYTE 00,03,04 ;check –Ê NO. 18466 ; pattern no. --> 0 1 2 3 4 5 6 7 18467 S0053A7 03 03 00 00 03 BYTE 03,03,00,00,03,03,00,00 ;(1) write priority S0053AC 03 00 00 18468 S0053AF 02 02 01 01 02 BYTE 02,02,01,01,02,02,01,01 ;(2) S0053B4 02 01 01 18469 S0053B7 01 01 02 02 01 BYTE 01,01,02,02,01,01,02,02 ;(3) S0053BC 01 02 02 18470 S0053BF 00 00 03 03 00 BYTE 00,00,03,03,00,00,03,03 ;(4) S0053C4 00 03 03 18471 ; 18472 ;---------------------------------------------------------------- 18473 ; "V" - 18474 ;---------------------------------------------------------------- 18475 0053C7 MOJPOL_V EQU $ 18476 ;-------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ --------------------------------- 18477 S0053C7 08 BYTE 08 ;number of point 18478 S0053C8 F0 C0 BYTE -10H,-40H ;00 18479 S0053CA EE 20 BYTE -12H, 20H ;01 18480 S0053CC 20 C0 BYTE 20H,-40H ;02 18481 S0053CE 40 E0 BYTE 40H,-20H ;03 18482 S0053D0 00 40 BYTE 00H, 40H ;04 18483 S0053D2 F0 40 BYTE -10H, 40H ;05 18484 S0053D4 E0 40 BYTE -20H, 40H ;06 18485 S0053D6 C0 D0 BYTE -40H,-30H ;07 18486 ;-------------- –Ê ƒf[ƒ^ --------------------------------------- 18487 S0053D8 02 BYTE 02 ; ƒ|ƒŠƒSƒ“” 18488 S0053D9 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18489 S0053DA 00 0A 0C 0E BYTE 00,10,12,14 18490 S0053DE 22 21 23 24 BYTE CL2,CL1,CL3,CL4 18491 S0053E2 05 BYTE 05 ;ƒ|ƒCƒ“ƒg” 18492 S0053E3 02 04 06 08 0A BYTE 02,04,06,08,10 18493 S0053E8 24 23 24 21 22 BYTE CL4,CL3,CL4,CL1,CL2 18494 ;-------------- —Dæ‡ˆÊ ƒf[ƒ^ --------------------------------- 18495 ; bit pos --> 4 2 1 18496 S0053ED 00 02 03 BYTE 00,02,03 ;check –Ê NO. 18497 ; pattern no. --> 0 1 2 3 4 5 6 7 18498 S0053F0 01 01 00 00 01 BYTE 01,01,00,00,01,01,00,00 ;(1) write priority S0053F5 01 00 00 18499 S0053F8 00 00 01 01 00 BYTE 00,00,01,01,00,00,01,01 ;(2) S0053FD 00 01 01 18500 ; 18501 ;---------------------------------------------------------------- 18502 ; "R" - 18503 ;---------------------------------------------------------------- 18504 005400 MOJPOL_R EQU $ 18505 ;-------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ --------------------------------- 18506 S005400 0E BYTE 14 ;number of point 18507 S005401 00 C0 BYTE 00H,-40H ;00 18508 S005403 20 D0 BYTE 20H,-30H ;01 18509 S005405 30 F0 BYTE 30H,-10H ;02 18510 S005407 1A FC BYTE 1AH,-04H ;03 18511 S005409 40 20 BYTE 40H, 20H ;04 18512 S00540B 20 40 BYTE 20H, 40H ;05 18513 S00540D 00 10 BYTE 00H, 10H ;06 18514 S00540F F0 10 BYTE -10H, 10H ;07 18515 S005411 00 40 BYTE 00H, 40H ;08 18516 S005413 D0 40 BYTE -30H, 40H ;09 18517 S005415 C0 D0 BYTE -40H,-30H ;10 18518 S005417 E0 E0 BYTE -20H,-20H ;11 18519 S005419 10 E0 BYTE 10H,-20H ;12 18520 S00541B ED 00 BYTE -13H, 00H ;13 18521 ;-------------- –Ê ƒf[ƒ^ --------------------------------------- 18522 S00541D 04 BYTE 04 ; ƒ|ƒŠƒSƒ“” 18523 S00541E 05 BYTE 05 ; ƒ|ƒCƒ“ƒg” 18524 S00541F 00 02 18 16 14 BYTE 00,02,24,22,20 18525 S005424 23 00 21 00 21 BYTE CL3,0,CL1,0,CL1 18526 S005429 04 BYTE 04 ;ƒ|ƒCƒ“ƒg” 18527 S00542A 16 10 12 14 BYTE 22,16,18,20 18528 S00542E 23 21 22 00 BYTE CL3,CL1,CL2,0 18529 S005432 05 BYTE 05 ;ƒ|ƒCƒ“ƒg” 18530 S005433 02 04 0C 0E 1A BYTE 02,04,12,14,26 18531 S005438 23 24 21 00 24 BYTE CL3,CL4,CL1,0,CL4 18532 S00543D 04 BYTE 04 ;ƒ|ƒCƒ“ƒg” 18533 S00543E 06 08 0A 0C BYTE 06,08,10,12 18534 S005442 23 24 23 00 BYTE CL3,CL4,CL3,0 18535 ;-------------- —Dæ‡ˆÊ ƒf[ƒ^ --------------------------------- 18536 ; bit pos --> 4 2 1 18537 S005446 00 0A 0B BYTE 00,10,11 ;check –Ê NO. 18538 ; pattern no. --> 0 1 2 3 4 5 6 7 18539 S005449 01 03 00 02 01 BYTE 01,03,00,02,01,03,00,02 ;(1) write priority S00544E 03 00 02 18540 S005451 03 02 01 03 02 BYTE 03,02,01,03,02,02,01,00 ;(2) S005456 02 01 00 18541 S005459 02 01 02 00 00 BYTE 02,01,02,00,00,01,02,03 ;(3) S00545E 01 02 03 18542 S005461 00 00 03 01 03 BYTE 00,00,03,01,03,00,03,01 ;(4) S005466 00 03 01 18543 ; 18544 ;;;;;---------------------------------------------------------------- 18545 ;;;;; "O" - 18546 ;;;;;---------------------------------------------------------------- 18547 ;;;;MOJPOL_O EQU $ 18548 ;;;;;-------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ --------------------------------- 18549 ;;;; BYTE 10 ;number of point 18550 ;;;; BYTE 00H,-40H ;00 18551 ;;;; BYTE 40H,-20H ;01 18552 ;;;; BYTE 30H, 30H ;02 18553 ;;;; BYTE 10H, 40H ;03 18554 ;;;; BYTE -20H, 40H ;04 18555 ;;;; BYTE -40H, 00H ;05 18556 ;;;; BYTE -10H,-10H ;06 18557 ;;;; BYTE 10H,-16H ;07 18558 ;;;; BYTE 20H, 10H ;08 18559 ;;;; BYTE -10H, 20H ;09 18560 ;;;;;-------------- –Ê ƒf[ƒ^ --------------------------------------- 18561 ;;;; BYTE 04 ; ƒ|ƒŠƒSƒ“” 18562 ;;;; BYTE 03 ; ƒ|ƒCƒ“ƒg” 18563 ;;;; BYTE 00,02,10 18564 ;;;; BYTE CL3,CL1,CL4 18565 ;;;; BYTE 03 ;ƒ|ƒCƒ“ƒg” 18566 ;;;; BYTE 02,04,14 18567 ;;;; BYTE CL2,CL3,0 18568 ;;;; BYTE 05 ;ƒ|ƒCƒ“ƒg” 18569 ;;;; BYTE 16,04,06,08,18 18570 ;;;; BYTE 0,CL1,CL1,0,CL1 18571 ;;;; BYTE 04 ;ƒ|ƒCƒ“ƒg” 18572 ;;;; BYTE 18,08,10,12 18573 ;;;; BYTE CL4,CL3,0,CL2 18574 ;;;;;-------------- —Dæ‡ˆÊ ƒf[ƒ^ --------------------------------- 18575 ;;;;; bit pos --> 4 2 1 18576 ;;;; BYTE 00,14,22 ;check –Ê NO. 18577 ;;;;; pattern no. --> 0 1 2 3 4 5 6 7 18578 ;;;; BYTE 01,00,00,00,01,00,00,00 ;(1) write priority 18579 ;;;; BYTE 00,03,01,03,02,02,01,03 ;(2) 18580 ;;;; BYTE 02,02,02,02,03,03,02,01 ;(3) 18581 ;;;; BYTE 03,01,03,01,00,01,03,02 ;(4) 18582 ; 18583 ;---------------------------------------------------------------- 18584 ; "O" - 18585 ;---------------------------------------------------------------- 18586 005469 MOJPOL_O EQU $ 18587 ;-------------- ƒ|ƒCƒ“ƒg ƒf[ƒ^ --------------------------------- 18588 S005469 0A BYTE 10 ;number of point 18589 S00546A 00 C0 BYTE 00H,-40H ;00 18590 S00546C 40 E0 BYTE 40H,-20H ;01 18591 S00546E 30 30 BYTE 30H, 30H ;02 18592 S005470 10 40 BYTE 10H, 40H ;03 18593 S005472 E0 40 BYTE -20H, 40H ;04 18594 S005474 C0 00 BYTE -40H, 00H ;05 18595 S005476 F0 F0 BYTE -10H,-10H ;06 18596 S005478 10 EA BYTE 10H,-16H ;07 18597 S00547A 20 10 BYTE 20H, 10H ;08 18598 S00547C F0 20 BYTE -10H, 20H ;09 18599 ;-------------- –Ê ƒf[ƒ^ --------------------------------------- 18600 S00547E 05 BYTE 05 ; ƒ|ƒŠƒSƒ“” 18601 S00547F 04 BYTE 04 ; ƒ|ƒCƒ“ƒg” 18602 S005480 0C 00 02 0E BYTE 12,00,02,14 18603 S005484 00 23 00 21 BYTE 0,CL3,0,CL1 18604 S005488 04 BYTE 04 ;ƒ|ƒCƒ“ƒg” 18605 S005489 10 0E 02 04 BYTE 16,14,02,04 18606 S00548D 23 00 22 00 BYTE CL3,0,CL2,0 18607 S005491 05 BYTE 05 ;ƒ|ƒCƒ“ƒg” 18608 S005492 10 04 06 08 12 BYTE 16,04,06,08,18 18609 S005497 00 24 21 00 21 BYTE 0,CL4,CL1,0,CL1 18610 S00549C 04 BYTE 04 ;ƒ|ƒCƒ“ƒg” 18611 S00549D 08 0A 0C 12 BYTE 08,10,12,18 18612 S0054A1 23 00 22 00 BYTE CL3,0,CL2,0 18613 S0054A5 03 BYTE 03 ;ƒ|ƒCƒ“ƒg” 18614 S0054A6 00 0C 0A BYTE 00,12,10 18615 S0054A9 00 00 24 BYTE 0,0,CL4 18616 ;-------------- —Dæ‡ˆÊ ƒf[ƒ^ --------------------------------- 18617 ; bit pos --> 4 2 1 18618 S0054AC 00 0A 10 BYTE 00,10,16 ;check –Ê NO. 18619 ; pattern no. --> 0 1 2 3 4 5 6 7 18620 S0054AF 02 00 04 04 01 BYTE 02,00,04,04,01,01,04,04 ;(1) write priority S0054B4 01 04 04 18621 S0054B7 03 04 03 00 02 BYTE 03,04,03,00,02,00,03,03 ;(2) S0054BC 00 03 03 18622 S0054BF 01 01 00 03 03 BYTE 01,01,00,03,03,02,02,00 ;(3) S0054C4 02 02 00 18623 S0054C7 00 03 02 01 00 BYTE 00,03,02,01,00,04,00,01 ;(4) S0054CC 04 00 01 18624 S0054CF 04 02 01 02 04 BYTE 04,02,01,02,04,03,01,02 ;(5) S0054D4 03 01 02 18625 ; 18626 ; 18627 ; 18628 ; 18629 ; 18630 END