Mercurial > libdvdnav.hg
annotate decoder.c @ 153:175d5fef21e4 src
Minor changes.
| author | jcdutton |
|---|---|
| date | Sat, 05 Apr 2003 13:11:13 +0000 |
| parents | 3a1659f4a6c3 |
| children | 3492d41dc247 |
| rev | line source |
|---|---|
| 0 | 1 /* |
| 2 * Copyright (C) 2000, 2001 Martin Norbäck, Håkan Hjort | |
| 3 * | |
| 4 * This file is part of libdvdnav, a DVD navigation library. It is modified | |
| 5 * from a file originally part of the Ogle DVD player. | |
| 6 * | |
| 7 * libdvdnav is free software; you can redistribute it and/or modify | |
| 8 * it under the terms of the GNU General Public License as published by | |
| 9 * the Free Software Foundation; either version 2 of the License, or | |
| 10 * (at your option) any later version. | |
| 11 * | |
| 12 * libdvdnav is distributed in the hope that it will be useful, | |
| 13 * but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 15 * GNU General Public License for more details. | |
| 16 * | |
| 17 * You should have received a copy of the GNU General Public License | |
| 18 * along with this program; if not, write to the Free Software | |
| 19 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA | |
| 20 * | |
| 21 * $Id$ | |
| 22 * | |
| 23 */ | |
| 24 | |
| 25 #ifdef HAVE_CONFIG_H | |
| 26 #include "config.h" | |
| 27 #endif | |
| 28 | |
| 29 #include <stdio.h> | |
| 12 | 30 #include <stdlib.h> |
| 0 | 31 #include <inttypes.h> |
| 32 #include <string.h> /* For memset */ | |
| 33 #include <dvdread/ifo_types.h> /* vm_cmd_t */ | |
| 6 | 34 #include <assert.h> |
| 76 | 35 #include "dvdnav_internal.h" |
| 0 | 36 |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
37 static uint16_t get_GPRM(registers_t* registers, uint8_t reg) { |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
38 if (registers->GPRM_mode[reg] & 0x01) { |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
39 struct timeval current_time, time_offset; |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
40 uint16_t result; |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
41 /* Counter mode */ |
| 76 | 42 /* fprintf(MSG_OUT, "libdvdnav: Getting counter %d\n",reg);*/ |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
43 gettimeofday(¤t_time, NULL); |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
44 time_offset.tv_sec = current_time.tv_sec - registers->GPRM_time[reg].tv_sec; |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
45 time_offset.tv_usec = current_time.tv_usec - registers->GPRM_time[reg].tv_usec; |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
46 if (time_offset.tv_usec < 0) { |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
47 time_offset.tv_sec--; |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
48 time_offset.tv_usec += 1000000; |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
49 } |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
50 result = (uint16_t) (time_offset.tv_sec & 0xffff); |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
51 registers->GPRM[reg]=result; |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
52 return result; |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
53 |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
54 } else { |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
55 /* Register mode */ |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
56 return registers->GPRM[reg]; |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
57 } |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
58 |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
59 } |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
60 |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
61 static void set_GPRM(registers_t* registers, uint8_t reg, uint16_t value) { |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
62 if (registers->GPRM_mode[reg] & 0x01) { |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
63 struct timeval current_time; |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
64 /* Counter mode */ |
| 76 | 65 /* fprintf(MSG_OUT, "libdvdnav: Setting counter %d\n",reg); */ |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
66 gettimeofday(¤t_time, NULL); |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
67 registers->GPRM_time[reg] = current_time; |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
68 registers->GPRM_time[reg].tv_sec -= value; |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
69 } |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
70 registers->GPRM[reg] = value; |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
71 } |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
72 |
| 0 | 73 /* Eval register code, can either be system or general register. |
| 74 SXXX_XXXX, where S is 1 if it is system register. */ | |
| 13 | 75 static uint16_t eval_reg(command_t* command, uint8_t reg) { |
| 0 | 76 if(reg & 0x80) { |
| 18 | 77 if ((reg & 0x1f) == 20) { |
| 76 | 78 fprintf(MSG_OUT, "libdvdnav: Suspected RCE Region Protection!!!"); |
| 114 | 79 } |
| 13 | 80 return command->registers->SPRM[reg & 0x1f]; /* FIXME max 24 not 32 */ |
| 0 | 81 } else { |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
82 return get_GPRM(command->registers, reg & 0x0f) ; |
| 0 | 83 } |
| 84 } | |
| 85 | |
| 86 /* Eval register or immediate data. | |
| 87 AAAA_AAAA BBBB_BBBB, if immediate use all 16 bits for data else use | |
| 88 lower eight bits for the system or general purpose register. */ | |
|
152
3a1659f4a6c3
Remove byte references. Convert them to bit references.
jcdutton
parents:
149
diff
changeset
|
89 static uint16_t eval_reg_or_data(command_t* command, int32_t imm, int32_t start) { |
| 0 | 90 if(imm) { /* immediate */ |
|
152
3a1659f4a6c3
Remove byte references. Convert them to bit references.
jcdutton
parents:
149
diff
changeset
|
91 return vm_getbits(command, start, 16); |
| 0 | 92 } else { |
|
152
3a1659f4a6c3
Remove byte references. Convert them to bit references.
jcdutton
parents:
149
diff
changeset
|
93 return eval_reg(command, vm_getbits(command, (start - 8), 8)); |
| 0 | 94 } |
| 95 } | |
| 96 | |
| 97 /* Eval register or immediate data. | |
| 98 xBBB_BBBB, if immediate use all 7 bits for data else use | |
| 99 lower four bits for the general purpose register number. */ | |
| 100 /* Evaluates gprm or data depending on bit, data is in byte n */ | |
|
152
3a1659f4a6c3
Remove byte references. Convert them to bit references.
jcdutton
parents:
149
diff
changeset
|
101 uint16_t eval_reg_or_data_2(command_t* command, int32_t imm, int32_t start) { |
| 0 | 102 if(imm) /* immediate */ |
|
152
3a1659f4a6c3
Remove byte references. Convert them to bit references.
jcdutton
parents:
149
diff
changeset
|
103 return vm_getbits(command, (start - 1), 7); |
| 0 | 104 else |
|
152
3a1659f4a6c3
Remove byte references. Convert them to bit references.
jcdutton
parents:
149
diff
changeset
|
105 return get_GPRM(command->registers, (vm_getbits(command, (start - 4), 4)) ); |
| 0 | 106 } |
| 107 | |
| 108 | |
| 109 /* Compare data using operation, return result from comparison. | |
| 110 Helper function for the different if functions. */ | |
| 12 | 111 static int32_t eval_compare(uint8_t operation, uint16_t data1, uint16_t data2) { |
| 0 | 112 switch(operation) { |
| 113 case 1: | |
| 114 return data1 & data2; | |
| 115 case 2: | |
| 116 return data1 == data2; | |
| 117 case 3: | |
| 118 return data1 != data2; | |
| 119 case 4: | |
| 120 return data1 >= data2; | |
| 121 case 5: | |
| 122 return data1 > data2; | |
| 123 case 6: | |
| 124 return data1 <= data2; | |
| 125 case 7: | |
| 126 return data1 < data2; | |
| 127 } | |
| 76 | 128 fprintf(MSG_OUT, "libdvdnav: eval_compare: Invalid comparison code\n"); |
| 0 | 129 return 0; |
| 130 } | |
| 131 | |
| 132 | |
| 133 /* Evaluate if version 1. | |
| 134 Has comparison data in byte 3 and 4-5 (immediate or register) */ | |
| 12 | 135 static int32_t eval_if_version_1(command_t* command) { |
| 148 | 136 uint8_t op = vm_getbits(command, 54, 3); |
| 0 | 137 if(op) { |
| 148 | 138 return eval_compare(op, eval_reg(command, vm_getbits(command, 39, 8)), |
|
152
3a1659f4a6c3
Remove byte references. Convert them to bit references.
jcdutton
parents:
149
diff
changeset
|
139 eval_reg_or_data(command, vm_getbits(command, 55, 1), 31)); |
| 0 | 140 } |
| 141 return 1; | |
| 142 } | |
| 143 | |
| 144 /* Evaluate if version 2. | |
| 145 This version only compares register which are in byte 6 and 7 */ | |
| 12 | 146 static int32_t eval_if_version_2(command_t* command) { |
| 148 | 147 uint8_t op = vm_getbits(command, 54, 3); |
| 0 | 148 if(op) { |
| 148 | 149 return eval_compare(op, eval_reg(command, vm_getbits(command, 15, 8)), |
| 150 eval_reg(command, vm_getbits(command, 7, 8))); | |
| 0 | 151 } |
| 152 return 1; | |
| 153 } | |
| 154 | |
| 155 /* Evaluate if version 3. | |
| 156 Has comparison data in byte 2 and 6-7 (immediate or register) */ | |
| 12 | 157 static int32_t eval_if_version_3(command_t* command) { |
| 148 | 158 uint8_t op = vm_getbits(command, 54, 3); |
| 0 | 159 if(op) { |
| 148 | 160 return eval_compare(op, eval_reg(command, vm_getbits(command, 47, 8)), |
|
152
3a1659f4a6c3
Remove byte references. Convert them to bit references.
jcdutton
parents:
149
diff
changeset
|
161 eval_reg_or_data(command, vm_getbits(command, 55, 1), 15)); |
| 0 | 162 } |
| 163 return 1; | |
| 164 } | |
| 165 | |
| 166 /* Evaluate if version 4. | |
| 167 Has comparison data in byte 1 and 4-5 (immediate or register) | |
| 12 | 168 The register in byte 1 is only the lowe nibble (4 bits) */ |
| 169 static int32_t eval_if_version_4(command_t* command) { | |
| 148 | 170 uint8_t op = vm_getbits(command, 54, 3); |
| 0 | 171 if(op) { |
| 148 | 172 return eval_compare(op, eval_reg(command, vm_getbits(command, 51, 4)), |
|
152
3a1659f4a6c3
Remove byte references. Convert them to bit references.
jcdutton
parents:
149
diff
changeset
|
173 eval_reg_or_data(command, vm_getbits(command, 55, 1), 31)); |
| 0 | 174 } |
| 175 return 1; | |
| 176 } | |
| 177 | |
| 178 /* Evaluate special instruction.... returns the new row/line number, | |
| 179 0 if no new row and 256 if Break. */ | |
| 12 | 180 static int32_t eval_special_instruction(command_t* command, int32_t cond) { |
| 181 int32_t line, level; | |
| 0 | 182 |
| 148 | 183 switch(vm_getbits(command, 51, 4)) { |
| 0 | 184 case 0: /* NOP */ |
| 185 line = 0; | |
| 186 return cond ? line : 0; | |
| 187 case 1: /* Goto line */ | |
| 148 | 188 line = vm_getbits(command, 7, 8); |
| 0 | 189 return cond ? line : 0; |
| 190 case 2: /* Break */ | |
| 191 /* max number of rows < 256, so we will end this set */ | |
| 192 line = 256; | |
| 193 return cond ? 256 : 0; | |
| 194 case 3: /* Set temporary parental level and goto */ | |
| 148 | 195 line = vm_getbits(command, 7, 8); |
| 196 level = vm_getbits(command, 11, 4); | |
| 0 | 197 if(cond) { |
| 198 /* This always succeeds now, if we want real parental protection */ | |
| 199 /* we need to ask the user and have passwords and stuff. */ | |
| 13 | 200 command->registers->SPRM[13] = level; |
| 0 | 201 } |
| 202 return cond ? line : 0; | |
| 203 } | |
| 204 return 0; | |
| 205 } | |
| 206 | |
| 207 /* Evaluate link by subinstruction. | |
| 208 Return 1 if link, or 0 if no link | |
| 209 Actual link instruction is in return_values parameter */ | |
| 12 | 210 static int32_t eval_link_subins(command_t* command, int32_t cond, link_t *return_values) { |
| 148 | 211 uint16_t button = vm_getbits(command, 15, 6); |
| 212 uint8_t linkop = vm_getbits(command, 4, 5); | |
| 0 | 213 |
| 214 if(linkop > 0x10) | |
| 215 return 0; /* Unknown Link by Sub-Instruction command */ | |
| 216 | |
| 217 /* Assumes that the link_cmd_t enum has the same values as the LinkSIns codes */ | |
| 218 return_values->command = linkop; | |
| 219 return_values->data1 = button; | |
| 220 return cond; | |
| 221 } | |
| 222 | |
| 223 | |
| 224 /* Evaluate link instruction. | |
| 225 Return 1 if link, or 0 if no link | |
| 226 Actual link instruction is in return_values parameter */ | |
| 12 | 227 static int32_t eval_link_instruction(command_t* command, int32_t cond, link_t *return_values) { |
| 148 | 228 uint8_t op = vm_getbits(command, 51, 4); |
| 0 | 229 |
| 230 switch(op) { | |
| 231 case 1: | |
| 12 | 232 return eval_link_subins(command, cond, return_values); |
| 0 | 233 case 4: |
| 234 return_values->command = LinkPGCN; | |
| 148 | 235 return_values->data1 = vm_getbits(command, 14, 15); |
| 0 | 236 return cond; |
| 237 case 5: | |
| 238 return_values->command = LinkPTTN; | |
| 148 | 239 return_values->data1 = vm_getbits(command, 9, 10); |
| 240 return_values->data2 = vm_getbits(command, 15, 6); | |
| 0 | 241 return cond; |
| 242 case 6: | |
| 243 return_values->command = LinkPGN; | |
| 148 | 244 return_values->data1 = vm_getbits(command, 6, 7); |
| 245 return_values->data2 = vm_getbits(command, 15, 6); | |
| 0 | 246 return cond; |
| 247 case 7: | |
| 248 return_values->command = LinkCN; | |
| 148 | 249 return_values->data1 = vm_getbits(command, 7, 8); |
| 250 return_values->data2 = vm_getbits(command, 15, 6); | |
| 0 | 251 return cond; |
| 252 } | |
| 253 return 0; | |
| 254 } | |
| 255 | |
| 256 | |
| 257 /* Evaluate a jump instruction. | |
| 258 returns 1 if jump or 0 if no jump | |
| 259 actual jump instruction is in return_values parameter */ | |
| 12 | 260 static int32_t eval_jump_instruction(command_t* command, int32_t cond, link_t *return_values) { |
| 0 | 261 |
| 148 | 262 switch(vm_getbits(command, 51, 4)) { |
| 0 | 263 case 1: |
| 264 return_values->command = Exit; | |
| 265 return cond; | |
| 266 case 2: | |
| 267 return_values->command = JumpTT; | |
| 148 | 268 return_values->data1 = vm_getbits(command, 22, 7); |
| 0 | 269 return cond; |
| 270 case 3: | |
| 271 return_values->command = JumpVTS_TT; | |
| 148 | 272 return_values->data1 = vm_getbits(command, 22, 7); |
| 0 | 273 return cond; |
| 274 case 5: | |
| 275 return_values->command = JumpVTS_PTT; | |
| 148 | 276 return_values->data1 = vm_getbits(command, 22, 7); |
| 277 return_values->data2 = vm_getbits(command, 41, 10); | |
| 0 | 278 return cond; |
| 279 case 6: | |
| 148 | 280 switch(vm_getbits(command, 23, 2)) { |
| 0 | 281 case 0: |
| 282 return_values->command = JumpSS_FP; | |
| 283 return cond; | |
| 284 case 1: | |
| 285 return_values->command = JumpSS_VMGM_MENU; | |
| 148 | 286 return_values->data1 = vm_getbits(command, 19, 4); |
| 0 | 287 return cond; |
| 288 case 2: | |
| 289 return_values->command = JumpSS_VTSM; | |
| 148 | 290 return_values->data1 = vm_getbits(command, 31, 8); |
| 291 return_values->data2 = vm_getbits(command, 39, 8); | |
| 292 return_values->data3 = vm_getbits(command, 19, 4); | |
| 0 | 293 return cond; |
| 294 case 3: | |
| 295 return_values->command = JumpSS_VMGM_PGC; | |
| 148 | 296 return_values->data1 = vm_getbits(command, 46, 15); |
| 0 | 297 return cond; |
| 298 } | |
| 299 break; | |
| 300 case 8: | |
| 148 | 301 switch(vm_getbits(command, 23, 2)) { |
| 0 | 302 case 0: |
| 303 return_values->command = CallSS_FP; | |
| 148 | 304 return_values->data1 = vm_getbits(command, 31, 8); |
| 0 | 305 return cond; |
| 306 case 1: | |
| 307 return_values->command = CallSS_VMGM_MENU; | |
| 148 | 308 return_values->data1 = vm_getbits(command, 19, 4); |
| 309 return_values->data2 = vm_getbits(command, 31, 8); | |
| 0 | 310 return cond; |
| 311 case 2: | |
| 312 return_values->command = CallSS_VTSM; | |
| 148 | 313 return_values->data1 = vm_getbits(command, 19, 4); |
| 314 return_values->data2 = vm_getbits(command, 31, 8); | |
| 0 | 315 return cond; |
| 316 case 3: | |
| 317 return_values->command = CallSS_VMGM_PGC; | |
| 148 | 318 return_values->data1 = vm_getbits(command, 46, 15); |
| 319 return_values->data2 = vm_getbits(command, 31, 8); | |
| 0 | 320 return cond; |
| 321 } | |
| 322 break; | |
| 323 } | |
| 324 return 0; | |
| 325 } | |
| 326 | |
| 327 /* Evaluate a set sytem register instruction | |
| 328 May contain a link so return the same as eval_link */ | |
| 12 | 329 static int32_t eval_system_set(command_t* command, int32_t cond, link_t *return_values) { |
| 330 int32_t i; | |
| 0 | 331 uint16_t data, data2; |
| 332 | |
| 148 | 333 switch(vm_getbits(command, 59, 4)) { |
| 0 | 334 case 1: /* Set system reg 1 &| 2 &| 3 (Audio, Subp. Angle) */ |
| 335 for(i = 1; i <= 3; i++) { | |
| 148 | 336 if(vm_getbits(command, 63 - ((2 + i)*8), 1)) { |
|
152
3a1659f4a6c3
Remove byte references. Convert them to bit references.
jcdutton
parents:
149
diff
changeset
|
337 data = eval_reg_or_data_2(command, vm_getbits(command, 60, 1), (47 - (i*8))); |
| 0 | 338 if(cond) { |
| 13 | 339 command->registers->SPRM[i] = data; |
| 0 | 340 } |
| 341 } | |
| 342 } | |
| 343 break; | |
| 344 case 2: /* Set system reg 9 & 10 (Navigation timer, Title PGC number) */ | |
|
152
3a1659f4a6c3
Remove byte references. Convert them to bit references.
jcdutton
parents:
149
diff
changeset
|
345 data = eval_reg_or_data(command, vm_getbits(command, 60, 1), 47); |
| 148 | 346 data2 = vm_getbits(command, 23, 8); /* ?? size */ |
| 0 | 347 if(cond) { |
| 13 | 348 command->registers->SPRM[9] = data; /* time */ |
| 349 command->registers->SPRM[10] = data2; /* pgcN */ | |
| 0 | 350 } |
| 351 break; | |
| 352 case 3: /* Mode: Counter / Register + Set */ | |
|
152
3a1659f4a6c3
Remove byte references. Convert them to bit references.
jcdutton
parents:
149
diff
changeset
|
353 data = eval_reg_or_data(command, vm_getbits(command, 60, 1), 47); |
| 148 | 354 data2 = vm_getbits(command, 19, 4); |
| 355 if(vm_getbits(command, 23, 1)) { | |
| 18 | 356 command->registers->GPRM_mode[data2] |= 1; /* Set bit 0 */ |
| 0 | 357 } else { |
| 18 | 358 command->registers->GPRM_mode[data2] &= ~ 0x01; /* Reset bit 0 */ |
| 0 | 359 } |
| 360 if(cond) { | |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
361 set_GPRM(command->registers, data2, data); |
| 0 | 362 } |
| 363 break; | |
| 364 case 6: /* Set system reg 8 (Highlighted button) */ | |
|
152
3a1659f4a6c3
Remove byte references. Convert them to bit references.
jcdutton
parents:
149
diff
changeset
|
365 data = eval_reg_or_data(command, vm_getbits(command, 60, 1), 31); /* Not system reg!! */ |
| 0 | 366 if(cond) { |
| 13 | 367 command->registers->SPRM[8] = data; |
| 0 | 368 } |
| 369 break; | |
| 370 } | |
| 148 | 371 if(vm_getbits(command, 51, 4)) { |
| 12 | 372 return eval_link_instruction(command, cond, return_values); |
| 0 | 373 } |
| 374 return 0; | |
| 375 } | |
| 376 | |
| 377 | |
| 378 /* Evaluate set operation | |
| 379 Sets the register given to the value indicated by op and data. | |
| 380 For the swap case the contents of reg is stored in reg2. | |
| 381 */ | |
| 13 | 382 static void eval_set_op(command_t* command, int32_t op, int32_t reg, int32_t reg2, int32_t data) { |
| 12 | 383 const int32_t shortmax = 0xffff; |
| 384 int32_t tmp; | |
| 0 | 385 switch(op) { |
| 386 case 1: | |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
387 set_GPRM(command->registers, reg, data); |
| 0 | 388 break; |
| 389 case 2: /* SPECIAL CASE - SWAP! */ | |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
390 set_GPRM(command->registers, reg2, get_GPRM(command->registers, reg)); |
|
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
391 set_GPRM(command->registers, reg, data); |
| 0 | 392 break; |
| 393 case 3: | |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
394 tmp = get_GPRM(command->registers, reg) + data; |
| 12 | 395 if(tmp > shortmax) tmp = shortmax; |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
396 set_GPRM(command->registers, reg, (uint16_t)tmp); |
| 0 | 397 break; |
| 398 case 4: | |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
399 tmp = get_GPRM(command->registers, reg) - data; |
| 12 | 400 if(tmp < 0) tmp = 0; |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
401 set_GPRM(command->registers, reg, (uint16_t)tmp); |
| 0 | 402 break; |
| 403 case 5: | |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
404 tmp = get_GPRM(command->registers, reg) * data; |
| 12 | 405 if(tmp >= shortmax) tmp = shortmax; |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
406 set_GPRM(command->registers, reg, (uint16_t)tmp); |
| 0 | 407 break; |
| 408 case 6: | |
| 12 | 409 if (data != 0) { |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
410 set_GPRM(command->registers, reg, (get_GPRM(command->registers, reg) / data) ); |
| 12 | 411 } else { |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
412 set_GPRM(command->registers, reg, 0); /* Avoid that divide by zero! */ |
| 12 | 413 } |
| 0 | 414 break; |
| 415 case 7: | |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
416 set_GPRM(command->registers, reg, (get_GPRM(command->registers, reg) % data) ); |
| 0 | 417 break; |
| 418 case 8: /* SPECIAL CASE - RND! */ | |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
419 set_GPRM(command->registers, reg, ((uint16_t) ((float) data * rand()/(RAND_MAX+1.0))) ); |
| 0 | 420 break; |
| 421 case 9: | |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
422 set_GPRM(command->registers, reg, (get_GPRM(command->registers, reg) & data) ); |
| 0 | 423 break; |
| 424 case 10: | |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
425 set_GPRM(command->registers, reg, (get_GPRM(command->registers, reg) | data) ); |
| 0 | 426 break; |
| 427 case 11: | |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
428 set_GPRM(command->registers, reg, (get_GPRM(command->registers, reg) ^ data) ); |
| 0 | 429 break; |
| 430 } | |
| 431 } | |
| 432 | |
| 433 /* Evaluate set instruction, combined with either Link or Compare. */ | |
| 12 | 434 static void eval_set_version_1(command_t* command, int32_t cond) { |
| 148 | 435 uint8_t op = vm_getbits(command, 59, 4); |
| 436 uint8_t reg = vm_getbits(command, 35, 4); /* FIXME: This is different from vmcmd.c!!! */ | |
| 437 uint8_t reg2 = vm_getbits(command, 19, 4); | |
|
152
3a1659f4a6c3
Remove byte references. Convert them to bit references.
jcdutton
parents:
149
diff
changeset
|
438 uint16_t data = eval_reg_or_data(command, vm_getbits(command, 60, 1), 31); |
| 0 | 439 |
| 440 if(cond) { | |
| 13 | 441 eval_set_op(command, op, reg, reg2, data); |
| 0 | 442 } |
| 443 } | |
| 444 | |
| 445 | |
| 446 /* Evaluate set instruction, combined with both Link and Compare. */ | |
| 12 | 447 static void eval_set_version_2(command_t* command, int32_t cond) { |
| 148 | 448 uint8_t op = vm_getbits(command, 59, 4); |
| 449 uint8_t reg = vm_getbits(command, 51, 4); | |
| 450 uint8_t reg2 = vm_getbits(command, 35, 4); /* FIXME: This is different from vmcmd.c!!! */ | |
|
152
3a1659f4a6c3
Remove byte references. Convert them to bit references.
jcdutton
parents:
149
diff
changeset
|
451 uint16_t data = eval_reg_or_data(command, vm_getbits(command, 60, 1), 47); |
| 0 | 452 |
| 453 if(cond) { | |
| 13 | 454 eval_set_op(command, op, reg, reg2, data); |
| 0 | 455 } |
| 456 } | |
| 457 | |
| 458 | |
| 459 /* Evaluate a command | |
| 460 returns row number of goto, 0 if no goto, -1 if link. | |
| 461 Link command in return_values */ | |
| 13 | 462 static int32_t eval_command(uint8_t *bytes, registers_t* registers, link_t *return_values) { |
| 12 | 463 int32_t cond, res = 0; |
| 464 command_t command; | |
| 465 command.instruction =( (uint64_t) bytes[0] << 56 ) | | |
| 466 ( (uint64_t) bytes[1] << 48 ) | | |
| 467 ( (uint64_t) bytes[2] << 40 ) | | |
| 468 ( (uint64_t) bytes[3] << 32 ) | | |
| 469 ( (uint64_t) bytes[4] << 24 ) | | |
| 470 ( (uint64_t) bytes[5] << 16 ) | | |
| 471 ( (uint64_t) bytes[6] << 8 ) | | |
| 472 (uint64_t) bytes[7] ; | |
| 473 command.examined = 0; | |
| 13 | 474 command.registers = registers; |
| 0 | 475 memset(return_values, 0, sizeof(link_t)); |
| 476 | |
| 148 | 477 switch(vm_getbits(&command, 63, 3)) { /* three first old_bits */ |
| 0 | 478 case 0: /* Special instructions */ |
| 12 | 479 cond = eval_if_version_1(&command); |
| 480 res = eval_special_instruction(&command, cond); | |
| 0 | 481 if(res == -1) { |
| 76 | 482 fprintf(MSG_OUT, "libdvdnav: Unknown Instruction!\n"); |
| 6 | 483 assert(0); |
| 0 | 484 } |
| 485 break; | |
| 486 case 1: /* Link/jump instructions */ | |
| 148 | 487 if(vm_getbits(&command, 60, 1)) { |
| 12 | 488 cond = eval_if_version_2(&command); |
| 489 res = eval_jump_instruction(&command, cond, return_values); | |
| 0 | 490 } else { |
| 12 | 491 cond = eval_if_version_1(&command); |
| 492 res = eval_link_instruction(&command, cond, return_values); | |
| 0 | 493 } |
| 494 if(res) | |
| 495 res = -1; | |
| 496 break; | |
| 497 case 2: /* System set instructions */ | |
| 12 | 498 cond = eval_if_version_2(&command); |
| 499 res = eval_system_set(&command, cond, return_values); | |
| 0 | 500 if(res) |
| 501 res = -1; | |
| 502 break; | |
| 503 case 3: /* Set instructions, either Compare or Link may be used */ | |
| 12 | 504 cond = eval_if_version_3(&command); |
| 505 eval_set_version_1(&command, cond); | |
| 148 | 506 if(vm_getbits(&command, 51, 4)) { |
| 12 | 507 res = eval_link_instruction(&command, cond, return_values); |
| 0 | 508 } |
| 509 if(res) | |
| 510 res = -1; | |
| 511 break; | |
| 512 case 4: /* Set, Compare -> Link Sub-Instruction */ | |
| 12 | 513 eval_set_version_2(&command, /*True*/ 1); |
| 514 cond = eval_if_version_4(&command); | |
| 515 res = eval_link_subins(&command, cond, return_values); | |
| 0 | 516 if(res) |
| 517 res = -1; | |
| 518 break; | |
| 519 case 5: /* Compare -> (Set and Link Sub-Instruction) */ | |
| 149 | 520 /* FIXME: These are wrong. Need to be updated from vmcmd.c */ |
| 12 | 521 cond = eval_if_version_4(&command); |
| 522 eval_set_version_2(&command, cond); | |
| 523 res = eval_link_subins(&command, cond, return_values); | |
| 0 | 524 if(res) |
| 525 res = -1; | |
| 526 break; | |
| 527 case 6: /* Compare -> Set, allways Link Sub-Instruction */ | |
| 149 | 528 /* FIXME: These are wrong. Need to be updated from vmcmd.c */ |
| 12 | 529 cond = eval_if_version_4(&command); |
| 530 eval_set_version_2(&command, cond); | |
| 531 res = eval_link_subins(&command, /*True*/ 1, return_values); | |
| 0 | 532 if(res) |
| 533 res = -1; | |
| 534 break; | |
| 12 | 535 default: /* Unknown command */ |
| 148 | 536 fprintf(MSG_OUT, "libdvdnav: WARNING: Unknown Command=%x\n", vm_getbits(&command, 63, 3)); |
| 31 | 537 assert(0); |
| 0 | 538 } |
| 539 /* Check if there are bits not yet examined */ | |
| 540 | |
| 12 | 541 if(command.instruction & ~ command.examined) { |
| 76 | 542 fprintf(MSG_OUT, "libdvdnav: decoder.c: [WARNING, unknown bits:"); |
| 543 fprintf(MSG_OUT, " %08llx", (command.instruction & ~ command.examined) ); | |
| 544 fprintf(MSG_OUT, "]\n"); | |
| 0 | 545 } |
| 546 | |
| 547 return res; | |
| 548 } | |
| 549 | |
| 114 | 550 /* Evaluate a set of commands in the given register set (which is modified) */ |
| 12 | 551 int32_t vmEval_CMD(vm_cmd_t commands[], int32_t num_commands, |
| 0 | 552 registers_t *registers, link_t *return_values) { |
| 12 | 553 int32_t i = 0; |
| 554 int32_t total = 0; | |
| 0 | 555 |
| 556 #ifdef TRACE | |
| 557 /* DEBUG */ | |
| 76 | 558 fprintf(MSG_OUT, "libdvdnav: Registers before transaction\n"); |
| 153 | 559 vm_print_registers( registers ); |
| 76 | 560 fprintf(MSG_OUT, "libdvdnav: Full list of commands to execute\n"); |
| 561 for(i = 0; i < num_commands; i++) | |
| 153 | 562 vm_print_cmd(i, &commands[i]); |
| 76 | 563 fprintf(MSG_OUT, "libdvdnav: --------------------------------------------\n"); |
| 564 fprintf(MSG_OUT, "libdvdnav: Single stepping commands\n"); | |
| 0 | 565 #endif |
| 114 | 566 |
|
79
96707bfb63d7
Fix bug whereby libdvdnav would totally fail if run with #define TRACE enabled.
jcdutton
parents:
78
diff
changeset
|
567 i = 0; |
| 0 | 568 while(i < num_commands && total < 100000) { |
| 12 | 569 int32_t line; |
| 0 | 570 |
|
10
6f0fb88d1463
Added some debug info, to hopefully help in tracking bugs in libdvdnav.
jcdutton
parents:
6
diff
changeset
|
571 #ifdef TRACE |
| 153 | 572 vm_print_cmd(i, &commands[i]); |
|
10
6f0fb88d1463
Added some debug info, to hopefully help in tracking bugs in libdvdnav.
jcdutton
parents:
6
diff
changeset
|
573 #endif |
| 114 | 574 |
| 13 | 575 line = eval_command(&commands[i].bytes[0], registers, return_values); |
| 0 | 576 |
| 577 if (line < 0) { /* Link command */ | |
|
10
6f0fb88d1463
Added some debug info, to hopefully help in tracking bugs in libdvdnav.
jcdutton
parents:
6
diff
changeset
|
578 #ifdef TRACE |
| 76 | 579 fprintf(MSG_OUT, "libdvdnav: Registers after transaction\n"); |
| 153 | 580 vm_print_registers( registers ); |
| 76 | 581 fprintf(MSG_OUT, "libdvdnav: eval: Doing Link/Jump/Call\n"); |
|
10
6f0fb88d1463
Added some debug info, to hopefully help in tracking bugs in libdvdnav.
jcdutton
parents:
6
diff
changeset
|
582 #endif |
| 0 | 583 return 1; |
| 584 } | |
| 585 | |
| 586 if (line > 0) /* Goto command */ | |
| 587 i = line - 1; | |
| 588 else /* Just continue on the next line */ | |
| 589 i++; | |
| 590 | |
| 591 total++; | |
| 592 } | |
| 593 | |
| 594 memset(return_values, 0, sizeof(link_t)); | |
|
10
6f0fb88d1463
Added some debug info, to hopefully help in tracking bugs in libdvdnav.
jcdutton
parents:
6
diff
changeset
|
595 #ifdef TRACE |
| 76 | 596 fprintf(MSG_OUT, "libdvdnav: Registers after transaction\n"); |
| 153 | 597 vm_print_registers( registers ); |
|
10
6f0fb88d1463
Added some debug info, to hopefully help in tracking bugs in libdvdnav.
jcdutton
parents:
6
diff
changeset
|
598 #endif |
| 0 | 599 return 0; |
| 600 } | |
| 601 | |
| 114 | 602 #ifdef TRACE |
| 603 | |
| 0 | 604 static char *linkcmd2str(link_cmd_t cmd) { |
| 605 switch(cmd) { | |
| 606 case LinkNoLink: | |
| 607 return "LinkNoLink"; | |
| 608 case LinkTopC: | |
| 609 return "LinkTopC"; | |
| 610 case LinkNextC: | |
| 611 return "LinkNextC"; | |
| 612 case LinkPrevC: | |
| 613 return "LinkPrevC"; | |
| 614 case LinkTopPG: | |
| 615 return "LinkTopPG"; | |
| 616 case LinkNextPG: | |
| 617 return "LinkNextPG"; | |
| 618 case LinkPrevPG: | |
| 619 return "LinkPrevPG"; | |
| 620 case LinkTopPGC: | |
| 621 return "LinkTopPGC"; | |
| 622 case LinkNextPGC: | |
| 623 return "LinkNextPGC"; | |
| 624 case LinkPrevPGC: | |
| 625 return "LinkPrevPGC"; | |
| 626 case LinkGoUpPGC: | |
| 627 return "LinkGoUpPGC"; | |
| 628 case LinkTailPGC: | |
| 629 return "LinkTailPGC"; | |
| 630 case LinkRSM: | |
| 631 return "LinkRSM"; | |
| 632 case LinkPGCN: | |
| 633 return "LinkPGCN"; | |
| 634 case LinkPTTN: | |
| 635 return "LinkPTTN"; | |
| 636 case LinkPGN: | |
| 637 return "LinkPGN"; | |
| 638 case LinkCN: | |
| 639 return "LinkCN"; | |
| 640 case Exit: | |
| 641 return "Exit"; | |
| 642 case JumpTT: | |
| 643 return "JumpTT"; | |
| 644 case JumpVTS_TT: | |
| 645 return "JumpVTS_TT"; | |
| 646 case JumpVTS_PTT: | |
| 647 return "JumpVTS_PTT"; | |
| 648 case JumpSS_FP: | |
| 649 return "JumpSS_FP"; | |
| 650 case JumpSS_VMGM_MENU: | |
| 651 return "JumpSS_VMGM_MENU"; | |
| 652 case JumpSS_VTSM: | |
| 653 return "JumpSS_VTSM"; | |
| 654 case JumpSS_VMGM_PGC: | |
| 655 return "JumpSS_VMGM_PGC"; | |
| 656 case CallSS_FP: | |
| 657 return "CallSS_FP"; | |
| 658 case CallSS_VMGM_MENU: | |
| 659 return "CallSS_VMGM_MENU"; | |
| 660 case CallSS_VTSM: | |
| 661 return "CallSS_VTSM"; | |
| 662 case CallSS_VMGM_PGC: | |
| 663 return "CallSS_VMGM_PGC"; | |
| 664 case PlayThis: | |
| 665 return "PlayThis"; | |
| 666 } | |
| 667 return "*** (bug)"; | |
| 668 } | |
| 669 | |
| 153 | 670 void vm_print_link(link_t value) { |
| 0 | 671 char *cmd = linkcmd2str(value.command); |
| 672 | |
| 673 switch(value.command) { | |
| 674 case LinkNoLink: | |
| 675 case LinkTopC: | |
| 676 case LinkNextC: | |
| 677 case LinkPrevC: | |
| 678 case LinkTopPG: | |
| 679 case LinkNextPG: | |
| 680 case LinkPrevPG: | |
| 681 case LinkTopPGC: | |
| 682 case LinkNextPGC: | |
| 683 case LinkPrevPGC: | |
| 684 case LinkGoUpPGC: | |
| 685 case LinkTailPGC: | |
| 686 case LinkRSM: | |
| 76 | 687 fprintf(MSG_OUT, "libdvdnav: %s (button %d)\n", cmd, value.data1); |
| 0 | 688 break; |
| 689 case LinkPGCN: | |
| 690 case JumpTT: | |
| 691 case JumpVTS_TT: | |
| 692 case JumpSS_VMGM_MENU: /* == 2 -> Title Menu */ | |
| 693 case JumpSS_VMGM_PGC: | |
| 76 | 694 fprintf(MSG_OUT, "libdvdnav: %s %d\n", cmd, value.data1); |
| 0 | 695 break; |
| 696 case LinkPTTN: | |
| 697 case LinkPGN: | |
| 698 case LinkCN: | |
| 76 | 699 fprintf(MSG_OUT, "libdvdnav: %s %d (button %d)\n", cmd, value.data1, value.data2); |
| 0 | 700 break; |
| 701 case Exit: | |
| 702 case JumpSS_FP: | |
| 703 case PlayThis: /* Humm.. should we have this at all.. */ | |
| 76 | 704 fprintf(MSG_OUT, "libdvdnav: %s\n", cmd); |
| 0 | 705 break; |
| 706 case JumpVTS_PTT: | |
| 76 | 707 fprintf(MSG_OUT, "libdvdnav: %s %d:%d\n", cmd, value.data1, value.data2); |
| 0 | 708 break; |
| 709 case JumpSS_VTSM: | |
| 76 | 710 fprintf(MSG_OUT, "libdvdnav: %s vts %d title %d menu %d\n", |
| 0 | 711 cmd, value.data1, value.data2, value.data3); |
| 712 break; | |
| 713 case CallSS_FP: | |
| 76 | 714 fprintf(MSG_OUT, "libdvdnav: %s resume cell %d\n", cmd, value.data1); |
| 0 | 715 break; |
| 716 case CallSS_VMGM_MENU: /* == 2 -> Title Menu */ | |
| 717 case CallSS_VTSM: | |
| 76 | 718 fprintf(MSG_OUT, "libdvdnav: %s %d resume cell %d\n", cmd, value.data1, value.data2); |
| 0 | 719 break; |
| 720 case CallSS_VMGM_PGC: | |
| 76 | 721 fprintf(MSG_OUT, "libdvdnav: %s %d resume cell %d\n", cmd, value.data1, value.data2); |
| 0 | 722 break; |
| 723 } | |
| 724 } | |
|
10
6f0fb88d1463
Added some debug info, to hopefully help in tracking bugs in libdvdnav.
jcdutton
parents:
6
diff
changeset
|
725 |
| 153 | 726 void vm_print_registers( registers_t *registers ) { |
| 12 | 727 int32_t i; |
| 76 | 728 fprintf(MSG_OUT, "libdvdnav: # "); |
|
10
6f0fb88d1463
Added some debug info, to hopefully help in tracking bugs in libdvdnav.
jcdutton
parents:
6
diff
changeset
|
729 for(i = 0; i < 24; i++) |
| 76 | 730 fprintf(MSG_OUT, " %2d |", i); |
| 731 fprintf(MSG_OUT, "\nlibdvdnav: SRPMS: "); | |
|
10
6f0fb88d1463
Added some debug info, to hopefully help in tracking bugs in libdvdnav.
jcdutton
parents:
6
diff
changeset
|
732 for(i = 0; i < 24; i++) |
| 76 | 733 fprintf(MSG_OUT, "%04x|", registers->SPRM[i]); |
| 734 fprintf(MSG_OUT, "\nlibdvdnav: GRPMS: "); | |
|
10
6f0fb88d1463
Added some debug info, to hopefully help in tracking bugs in libdvdnav.
jcdutton
parents:
6
diff
changeset
|
735 for(i = 0; i < 16; i++) |
| 76 | 736 fprintf(MSG_OUT, "%04x|", get_GPRM(registers, i) ); |
| 737 fprintf(MSG_OUT, "\nlibdvdnav: Gmode: "); | |
|
10
6f0fb88d1463
Added some debug info, to hopefully help in tracking bugs in libdvdnav.
jcdutton
parents:
6
diff
changeset
|
738 for(i = 0; i < 16; i++) |
| 76 | 739 fprintf(MSG_OUT, "%04x|", registers->GPRM_mode[i]); |
| 740 fprintf(MSG_OUT, "\nlibdvdnav: Gtime: "); | |
|
19
7e8628911b4f
Implement General Register Counters or GPRM counters.
jcdutton
parents:
18
diff
changeset
|
741 for(i = 0; i < 16; i++) |
| 76 | 742 fprintf(MSG_OUT, "%04lx|", registers->GPRM_time[i].tv_sec & 0xffff); |
| 743 fprintf(MSG_OUT, "\n"); | |
|
10
6f0fb88d1463
Added some debug info, to hopefully help in tracking bugs in libdvdnav.
jcdutton
parents:
6
diff
changeset
|
744 } |
| 114 | 745 |
| 746 #endif | |
| 747 |
