spacepaste

Paste details

reply | raw

  1.  
  2. <?php
  4. /**
  5. * DISASM6 - A NES-oriented 6502 disassembler which produces asm6 code
  6. * Created by Frantik 2011-2015
  7. *
  8. */
  10. define('VERSION', '1.5');
  11. define('LEFT_MARGIN', ' ');
  13. $time_start = microtime(true);
  15. $opcodes = array(
  16. // byte => legal, text, bytes, cycles, addressing mode
  17. 0x00 => array( 0, 'BRK', 1, 0, 0),
  18. 0x01 => array( 0, 'ORA', 2, 6, 7),
  19. 0x02 => array( 1, 'KIL', 1, 0, 0),
  20. 0x03 => array( 1, 'SLO', 2, 8, 7),
  21. 0x04 => array( 1, 'NOP', 2, 3, 4),
  22. 0x05 => array( 0, 'ORA', 2, 3, 4),
  23. 0x06 => array( 0, 'ASL', 2, 5, 4),
  24. 0x07 => array( 1, 'SLO', 2, 5, 4),
  25. 0x08 => array( 0, 'PHP', 1, 3, 0),
  26. 0x09 => array( 0, 'ORA', 2, 2, 0),
  27. 0x0A => array( 0, 'ASL', 1, 2, 0),
  28. 0x0B => array( 1, 'ANC', 2, 2, 0),
  29. 0x0C => array( 1, 'NOP', 3, 4, 1),
  30. 0x0D => array( 0, 'ORA', 3, 4, 1),
  31. 0x0E => array( 0, 'ASL', 3, 6, 1),
  32. 0x0F => array( 1, 'SLO', 3, 6, 1),
  33. 0x10 => array( 0, 'BPL', 2, 3, 0),
  34. 0x11 => array( 0, 'ORA', 2, 5, 8),
  35. 0x12 => array( 1, 'KIL', 1, 0, 0),
  36. 0x13 => array( 1, 'SLO', 2, 8, 8),
  37. 0x14 => array( 1, 'NOP', 2, 4, 5),
  38. 0x15 => array( 0, 'ORA', 2, 4, 5),
  39. 0x16 => array( 0, 'ASL', 2, 6, 5),
  40. 0x17 => array( 1, 'SLO', 2, 6, 5),
  41. 0x18 => array( 0, 'CLC', 1, 2, 0),
  42. 0x19 => array( 0, 'ORA', 3, 4, 3),
  43. 0x1A => array( 1, 'NOP', 1, 2, 0),
  44. 0x1B => array( 1, 'SLO', 3, 7, 3),
  45. 0x1C => array( 1, 'NOP', 3, 4, 2),
  46. 0x1D => array( 0, 'ORA', 3, 4, 2),
  47. 0x1E => array( 0, 'ASL', 3, 7, 2),
  48. 0x1F => array( 1, 'SLO', 3, 7, 2),
  49. 0x20 => array( 0, 'JSR', 3, 6, 10),
  50. 0x21 => array( 0, 'AND', 2, 6, 7),
  51. 0x22 => array( 1, 'KIL', 1, 0, 0),
  52. 0x23 => array( 1, 'RLA', 2, 8, 7),
  53. 0x24 => array( 0, 'BIT', 2, 3, 4),
  54. 0x25 => array( 0, 'AND', 2, 3, 4),
  55. 0x26 => array( 0, 'ROL', 2, 5, 4),
  56. 0x27 => array( 1, 'RLA', 2, 5, 4),
  57. 0x28 => array( 0, 'PLP', 1, 4, 0),
  58. 0x29 => array( 0, 'AND', 2, 2, 0),
  59. 0x2A => array( 0, 'ROL', 1, 2, 0),
  60. 0x2B => array( 1, 'ANC', 2, 2, 0),
  61. 0x2C => array( 0, 'BIT', 3, 4, 1),
  62. 0x2D => array( 0, 'AND', 3, 4, 1),
  63. 0x2E => array( 0, 'ROL', 3, 6, 1),
  64. 0x2F => array( 1, 'RLA', 3, 6, 1),
  65. 0x30 => array( 0, 'BMI', 2, 2, 0),
  66. 0x31 => array( 0, 'AND', 2, 5, 8),
  67. 0x32 => array( 1, 'KIL', 1, 0, 0),
  68. 0x33 => array( 1, 'RLA', 2, 8, 8),
  69. 0x34 => array( 1, 'NOP', 2, 4, 5),
  70. 0x35 => array( 0, 'AND', 2, 4, 5),
  71. 0x36 => array( 0, 'ROL', 2, 6, 5),
  72. 0x37 => array( 1, 'RLA', 2, 6, 5),
  73. 0x38 => array( 0, 'SEC', 1, 2, 0),
  74. 0x39 => array( 0, 'AND', 3, 4, 3),
  75. 0x3A => array( 1, 'NOP', 1, 2, 0),
  76. 0x3B => array( 1, 'RLA', 3, 7, 3),
  77. 0x3C => array( 1, 'NOP', 3, 4, 2),
  78. 0x3D => array( 0, 'AND', 3, 4, 2),
  79. 0x3E => array( 0, 'ROL', 3, 7, 2),
  80. 0x3F => array( 1, 'RLA', 3, 7, 2),
  81. 0x40 => array( 0, 'RTI', 1, 6, 0),
  82. 0x41 => array( 0, 'EOR', 2, 6, 7),
  83. 0x42 => array( 1, 'KIL', 1, 0, 0),
  84. 0x43 => array( 1, 'SRE', 2, 8, 7),
  85. 0x44 => array( 1, 'NOP', 2, 3, 4),
  86. 0x45 => array( 0, 'EOR', 2, 3, 4),
  87. 0x46 => array( 0, 'LSR', 2, 5, 4),
  88. 0x47 => array( 1, 'SRE', 2, 5, 4),
  89. 0x48 => array( 0, 'PHA', 1, 3, 0),
  90. 0x49 => array( 0, 'EOR', 2, 2, 0),
  91. 0x4A => array( 0, 'LSR', 1, 2, 0),
  92. 0x4B => array( 1, 'ALR', 2, 2, 0),
  93. 0x4C => array( 0, 'JMP', 3, 3, 10),
  94. 0x4D => array( 0, 'EOR', 3, 4, 1),
  95. 0x4E => array( 0, 'LSR', 3, 6, 1),
  96. 0x4F => array( 1, 'SRE', 3, 6, 1),
  97. 0x50 => array( 0, 'BVC', 2, 3, 0),
  98. 0x51 => array( 0, 'EOR', 2, 5, 8),
  99. 0x52 => array( 1, 'KIL', 1, 0, 0),
  100. 0x53 => array( 1, 'SRE', 2, 8, 8),
  101. 0x54 => array( 1, 'NOP', 2, 4, 5),
  102. 0x55 => array( 0, 'EOR', 2, 4, 5),
  103. 0x56 => array( 0, 'LSR', 2, 6, 5),
  104. 0x57 => array( 1, 'SRE', 2, 6, 5),
  105. 0x58 => array( 0, 'CLI', 1, 2, 0),
  106. 0x59 => array( 0, 'EOR', 3, 4, 3),
  107. 0x5A => array( 1, 'NOP', 1, 2, 0),
  108. 0x5B => array( 1, 'SRE', 3, 7, 3),
  109. 0x5C => array( 1, 'NOP', 3, 4, 2),
  110. 0x5D => array( 0, 'EOR', 3, 4, 2),
  111. 0x5E => array( 0, 'LSR', 3, 7, 2),
  112. 0x5F => array( 1, 'SRE', 3, 7, 2),
  113. 0x60 => array( 0, 'RTS', 1, 6, 0),
  114. 0x61 => array( 0, 'ADC', 2, 6, 7),
  115. 0x62 => array( 1, 'KIL', 1, 0, 0),
  116. 0x63 => array( 1, 'RRA', 2, 8, 7),
  117. 0x64 => array( 1, 'NOP', 2, 3, 4),
  118. 0x65 => array( 0, 'ADC', 2, 3, 4),
  119. 0x66 => array( 0, 'ROR', 2, 5, 4),
  120. 0x67 => array( 1, 'RRA', 2, 5, 4),
  121. 0x68 => array( 0, 'PLA', 1, 4, 0),
  122. 0x69 => array( 0, 'ADC', 2, 2, 0),
  123. 0x6A => array( 0, 'ROR', 1, 2, 0),
  124. 0x6B => array( 1, 'ARR', 2, 2, 0),
  125. 0x6C => array( 0, 'JMP', 3, 5, 9),
  126. 0x6D => array( 0, 'ADC', 3, 4, 1),
  127. 0x6E => array( 0, 'ROR', 3, 6, 1),
  128. 0x6F => array( 1, 'RRA', 3, 6, 1),
  129. 0x70 => array( 0, 'BVS', 2, 2, 0),
  130. 0x71 => array( 0, 'ADC', 2, 5, 8),
  131. 0x72 => array( 1, 'KIL', 1, 0, 0),
  132. 0x73 => array( 1, 'RRA', 2, 8, 8),
  133. 0x74 => array( 1, 'NOP', 2, 4, 5),
  134. 0x75 => array( 0, 'ADC', 2, 4, 5),
  135. 0x76 => array( 0, 'ROR', 2, 6, 5),
  136. 0x77 => array( 1, 'RRA', 2, 6, 5),
  137. 0x78 => array( 0, 'SEI', 1, 2, 0),
  138. 0x79 => array( 0, 'ADC', 3, 4, 3),
  139. 0x7A => array( 1, 'NOP', 1, 2, 0),
  140. 0x7B => array( 1, 'RRA', 3, 7, 3),
  141. 0x7C => array( 1, 'NOP', 3, 4, 2),
  142. 0x7D => array( 0, 'ADC', 3, 4, 2),
  143. 0x7E => array( 0, 'ROR', 3, 7, 2),
  144. 0x7F => array( 1, 'RRA', 3, 7, 2),
  145. 0x80 => array( 1, 'NOP', 2, 2, 0),
  146. 0x81 => array( 0, 'STA', 2, 6, 7),
  147. 0x82 => array( 1, 'NOP', 2, 2, 0),
  148. 0x83 => array( 1, 'SAX', 2, 6, 7),
  149. 0x84 => array( 0, 'STY', 2, 3, 4),
  150. 0x85 => array( 0, 'STA', 2, 3, 4),
  151. 0x86 => array( 0, 'STX', 2, 3, 4),
  152. 0x87 => array( 1, 'SAX', 2, 3, 4),
  153. 0x88 => array( 0, 'DEY', 1, 2, 0),
  154. 0x89 => array( 1, 'NOP', 2, 2, 0),
  155. 0x8A => array( 0, 'TXA', 1, 2, 0),
  156. 0x8B => array( 1, 'XAA', 2, 2, 0),
  157. 0x8C => array( 0, 'STY', 3, 4, 1),
  158. 0x8D => array( 0, 'STA', 3, 4, 1),
  159. 0x8E => array( 0, 'STX', 3, 4, 1),
  160. 0x8F => array( 1, 'SAX', 3, 4, 1),
  161. 0x90 => array( 0, 'BCC', 2, 3, 0),
  162. 0x91 => array( 0, 'STA', 2, 6, 8),
  163. 0x92 => array( 1, 'KIL', 1, 0, 0),
  164. 0x93 => array( 1, 'AHX', 2, 6, 8),
  165. 0x94 => array( 0, 'STY', 2, 4, 5),
  166. 0x95 => array( 0, 'STA', 2, 4, 5),
  167. 0x96 => array( 0, 'STX', 2, 4, 6),
  168. 0x97 => array( 1, 'SAX', 2, 4, 6),
  169. 0x98 => array( 0, 'TYA', 1, 2, 0),
  170. 0x99 => array( 0, 'STA', 3, 5, 3),
  171. 0x9A => array( 0, 'TXS', 1, 2, 0),
  172. 0x9B => array( 1, 'TAS', 1, 5, 0),
  173. 0x9C => array( 1, 'SHY', 3, 5, 2),
  174. 0x9D => array( 0, 'STA', 3, 5, 2),
  175. 0x9E => array( 1, 'SHX', 3, 5, 3),
  176. 0x9F => array( 1, 'AHX', 3, 5, 3),
  177. 0xA0 => array( 0, 'LDY', 2, 2, 0),
  178. 0xA1 => array( 0, 'LDA', 2, 6, 7),
  179. 0xA2 => array( 0, 'LDX', 2, 2, 0),
  180. 0xA3 => array( 1, 'LAX', 2, 6, 7),
  181. 0xA4 => array( 0, 'LDY', 2, 3, 4),
  182. 0xA5 => array( 0, 'LDA', 2, 3, 4),
  183. 0xA6 => array( 0, 'LDX', 2, 3, 4),
  184. 0xA7 => array( 1, 'LAX', 2, 3, 4),
  185. 0xA8 => array( 0, 'TAY', 1, 2, 0),
  186. 0xA9 => array( 0, 'LDA', 2, 2, 0),
  187. 0xAA => array( 0, 'TAX', 1, 2, 0),
  188. 0xAB => array( 1, 'LAX', 2, 2, 0),
  189. 0xAC => array( 0, 'LDY', 3, 4, 1),
  190. 0xAD => array( 0, 'LDA', 3, 4, 1),
  191. 0xAE => array( 0, 'LDX', 3, 4, 1),
  192. 0xAF => array( 1, 'LAX', 3, 4, 1),
  193. 0xB0 => array( 0, 'BCS', 2, 2, 0),
  194. 0xB1 => array( 0, 'LDA', 2, 5, 8),
  195. 0xB2 => array( 1, 'KIL', 1, 0, 0),
  196. 0xB3 => array( 1, 'LAX', 2, 5, 8),
  197. 0xB4 => array( 0, 'LDY', 2, 4, 5),
  198. 0xB5 => array( 0, 'LDA', 2, 4, 5),
  199. 0xB6 => array( 0, 'LDX', 2, 4, 6),
  200. 0xB7 => array( 1, 'LAX', 2, 4, 6),
  201. 0xB8 => array( 0, 'CLV', 1, 2, 0),
  202. 0xB9 => array( 0, 'LDA', 3, 4, 3),
  203. 0xBA => array( 0, 'TSX', 1, 2, 0),
  204. 0xBB => array( 1, 'LAS', 3, 4, 3),
  205. 0xBC => array( 0, 'LDY', 3, 4, 2),
  206. 0xBD => array( 0, 'LDA', 3, 4, 2),
  207. 0xBE => array( 0, 'LDX', 3, 4, 3),
  208. 0xBF => array( 1, 'LAX', 3, 4, 3),
  209. 0xC0 => array( 0, 'CPY', 2, 2, 0),
  210. 0xC1 => array( 0, 'CMP', 2, 6, 7),
  211. 0xC2 => array( 1, 'NOP', 2, 2, 0),
  212. 0xC3 => array( 1, 'DCP', 2, 8, 7),
  213. 0xC4 => array( 0, 'CPY', 2, 3, 4),
  214. 0xC5 => array( 0, 'CMP', 2, 3, 4),
  215. 0xC6 => array( 0, 'DEC', 2, 5, 4),
  216. 0xC7 => array( 1, 'DCP', 2, 5, 4),
  217. 0xC8 => array( 0, 'INY', 1, 2, 0),
  218. 0xC9 => array( 0, 'CMP', 2, 2, 0),
  219. 0xCA => array( 0, 'DEX', 1, 2, 0),
  220. 0xCB => array( 1, 'AXS', 2, 2, 0),
  221. 0xCC => array( 0, 'CPY', 3, 4, 1),
  222. 0xCD => array( 0, 'CMP', 3, 4, 1),
  223. 0xCE => array( 0, 'DEC', 3, 6, 1),
  224. 0xCF => array( 1, 'DCP', 3, 6, 1),
  225. 0xD0 => array( 0, 'BNE', 2, 3, 0),
  226. 0xD1 => array( 0, 'CMP', 2, 5, 8),
  227. 0xD2 => array( 1, 'KIL', 1, 0, 0),
  228. 0xD3 => array( 1, 'DCP', 2, 8, 8),
  229. 0xD4 => array( 1, 'NOP', 2, 4, 5),
  230. 0xD5 => array( 0, 'CMP', 2, 4, 5),
  231. 0xD6 => array( 0, 'DEC', 2, 6, 5),
  232. 0xD7 => array( 1, 'DCP', 2, 6, 5),
  233. 0xD8 => array( 0, 'CLD', 1, 2, 0),
  234. 0xD9 => array( 0, 'CMP', 3, 4, 3),
  235. 0xDA => array( 1, 'NOP', 1, 2, 0),
  236. 0xDB => array( 1, 'DCP', 3, 7, 3),
  237. 0xDC => array( 1, 'NOP', 3, 4, 2),
  238. 0xDD => array( 0, 'CMP', 3, 4, 2),
  239. 0xDE => array( 0, 'DEC', 3, 7, 2),
  240. 0xDF => array( 1, 'DCP', 3, 7, 2),
  241. 0xE0 => array( 0, 'CPX', 2, 2, 0),
  242. 0xE1 => array( 0, 'SBC', 2, 6, 7),
  243. 0xE2 => array( 1, 'NOP', 2, 2, 0),
  244. 0xE3 => array( 1, 'ISC', 2, 8, 7),
  245. 0xE4 => array( 0, 'CPX', 2, 3, 4),
  246. 0xE5 => array( 0, 'SBC', 2, 3, 4),
  247. 0xE6 => array( 0, 'INC', 2, 5, 4),
  248. 0xE7 => array( 1, 'ISC', 2, 5, 4),
  249. 0xE8 => array( 0, 'INX', 1, 2, 0),
  250. 0xE9 => array( 0, 'SBC', 2, 2, 0),
  251. 0xEA => array( 0, 'NOP', 1, 2, 0),
  252. 0xEB => array( 1, 'SBC', 2, 2, 0),
  253. 0xEC => array( 0, 'CPX', 3, 4, 1),
  254. 0xED => array( 0, 'SBC', 3, 4, 1),
  255. 0xEE => array( 0, 'INC', 3, 6, 1),
  256. 0xEF => array( 1, 'ISC', 3, 6, 1),
  257. 0xF0 => array( 0, 'BEQ', 2, 2, 0),
  258. 0xF1 => array( 0, 'SBC', 2, 5, 8),
  259. 0xF2 => array( 1, 'KIL', 1, 0, 0),
  260. 0xF3 => array( 1, 'ISC', 2, 8, 8),
  261. 0xF4 => array( 1, 'NOP', 2, 4, 5),
  262. 0xF5 => array( 0, 'SBC', 2, 4, 5),
  263. 0xF6 => array( 0, 'INC', 2, 6, 5),
  264. 0xF7 => array( 1, 'ISC', 2, 6, 5),
  265. 0xF8 => array( 0, 'SED', 1, 2, 0),
  266. 0xF9 => array( 0, 'SBC', 3, 4, 3),
  267. 0xFA => array( 1, 'NOP', 1, 2, 0),
  268. 0xFB => array( 1, 'ISC', 3, 7, 3),
  269. 0xFC => array( 1, 'NOP', 3, 4, 2),
  270. 0xFD => array( 0, 'SBC', 3, 4, 2),
  271. 0xFE => array( 0, 'INC', 3, 7, 2),
  272. 0xFF => array( 1, 'ISC', 3, 7, 2),
  273. );
  276. $registers = array(
  277. '2000' => 'PPUCTRL',
  278. '2001' => 'PPUMASK',
  279. '2002' => 'PPUSTATUS',
  280. '2003' => 'OAMADDR',
  281. '2004' => 'OAMDATA',
  282. '2005' => 'PPUSCROLL',
  283. '2006' => 'PPUADDR',
  284. '2007' => 'PPUDATA',
  286. '4000' => 'SQ1_VOL',
  287. '4001' => 'SQ1_SWEEP',
  288. '4002' => 'SQ1_LO',
  289. '4003' => 'SQ1_HI',
  290. '4004' => 'SQ2_VOL',
  291. '4005' => 'SQ2_SWEEP',
  292. '4006' => 'SQ2_LO',
  293. '4007' => 'SQ2_HI',
  294. '4008' => 'TRI_LINEAR',
  295. '400A' => 'TRI_LO',
  296. '400B' => 'TRI_HI',
  297. '400C' => 'NOISE_VOL',
  298. '400E' => 'NOISE_LO',
  299. '400F' => 'NOISE_HI',
  300. '4010' => 'DMC_FREQ',
  301. '4011' => 'DMC_RAW',
  302. '4012' => 'DMC_START',
  303. '4013' => 'DMC_LEN',
  304. '4014' => 'OAM_DMA',
  305. '4015' => 'SND_CHN',
  306. '4016' => 'JOY1',
  307. '4017' => 'JOY2',
  309. );
  311. // used for branch opcodes
  312. function addressOffset($value, $offset)
  313. {
  314. $offset = hexdec($offset);
  315. $offset += 2; // length of brance command
  316. if ($offset > 0x80)
  317. {
  318. $offset = $offset - 0x100;
  319. }
  320. else
  321. {
  322. //$offset += 2;
  323. }
  324. return str_pad(dechex($value + $offset), 4, '0', STR_PAD_LEFT);
  325. }
  327. function isValidLabel($addr)
  328. {
  329. global $origin;
  331. $newaddr = hexdec($addr);
  333. return ($newaddr >= $origin && $newaddr < 0xFFFA);
  334. }
  336. function addValidLabel($addr, &$labels)
  337. {
  338. if (isValidLabel($addr) && !isset($labels[$addr]))
  339. {
  340. $labels[$addr] = true;
  341. return true;
  342. }
  344. return false;
  345. }
  348. function addVector($vector, $str, &$labels)
  349. {
  350. if (isset($labels[$vector]))
  351. {
  352. if ($labels[$vector] === true)
  353. {
  354. $labels[$vector] = $str;
  355. }
  356. elseif (is_array($labels[$vector]))
  357. {
  358. if( !in_array($str, $labels[$vector]))
  359. {
  360. $labels[$vector][] = $str;
  361. }
  362. }
  363. elseif ($labels[$vector] !== $str)
  364. {
  365. $labels[$vector] = array($labels[$vector], $str);
  366. }
  367. }
  368. else
  369. {
  370. $labels[$vector] = $str;
  371. }
  372. }
  374. function wordStr($str)
  375. {
  376. return dechex_pad(ord($str[1])) . dechex_pad(ord($str[0]));
  377. }
  379. // make sure hex values have leading zeros
  380. function dechex_pad($dec , $len = 2)
  381. {
  383. if ($dec > 0xFF)
  384. {
  385. $len = 4;
  386. }
  387. elseif ($dec > 0xFFFF)
  388. {
  389. $len = 6;
  390. }
  392. return str_pad(dechex($dec), $len, '0', STR_PAD_LEFT);
  393. }
  395. // make sure binary values have leading zeros
  396. function decbin_pad($dec , $len = 8)
  397. {
  399. if ($dec > 0xFF)
  400. {
  401. $len = 16;
  402. }
  403. elseif ($dec > 0xFFFF)
  404. {
  405. $len = 32;
  406. }
  408. return str_pad(decbin($dec), $len, '0', STR_PAD_LEFT);
  409. }
  411. function commentLine($len = 80)
  412. {
  413. return ";" . str_repeat('-', $len - 1) . "\n";
  414. }
  416. function commentHeader($text, $initialNL = true, $initialLine = true)
  417. {
  418. $ret = ($initialNL ? "\n" : '') . ($initialLine ? commentLine() : '');
  419. $ret .= "; $text";
  420. $ret .= "\n" . commentLine();
  422. return $ret;
  423. }
  425. function strToHex($str, $fancy = false)
  426. {
  427. $len = strlen($str);
  429. $ret = '';
  431. for($i = 0; $i < $len; $i++)
  432. {
  433. $ret .= ($fancy ? '$' : '') . dechex_pad(ord($str[$i]));
  435. if ($i < $len - 1)
  436. { $ret .= ($fancy ? ',' : '') . " ";
  437. }
  438. }
  440. return $ret;
  441. }
  443. function getHeaderInfo($file)
  444. {
  445. $oldloc = ftell($file);
  447. $head = fread($file, 0x4);
  449. if ($head == "NES" . chr(0x1A))
  450. {
  451. $info = new stdClass;
  453. $info->head = $head;
  454. $info->prg = ord(fread($file, 1));
  455. $info->chr = ord(fread($file, 1));
  456. $info->ctrl_1 = ord(fread($file, 1));
  457. $info->ctrl_2 = ord(fread($file, 1));
  458. $info->tail = fread($file, 8);
  460. $info->mirroring = $info->ctrl_1 & bindec('00000001');
  461. $info->sram = ($info->ctrl_1 & bindec('0000010')) >> 1;
  462. $info->trainer = ($info->ctrl_1 & bindec('00000100')) >> 2;
  463. $info->fourscreen = ($info->ctrl_1 & bindec('00001000')) >> 3;
  465. $info->romtype = $info->ctrl_2 & bindec('00000011');
  467. $info->mapper = (($info->ctrl_1 & bindec('11110000')) >> 4)
  468. + $info->ctrl_2 & bindec('00001111');
  470. return $info;
  472. }
  473. else
  474. {
  475. fseek($file, $oldloc);
  476. return false;
  477. }
  478. }
  480. function processHeaderInfo($info)
  481. {
  482. global $labelLen;
  484. $pad = 30 + $labelLen;
  485. $ret = '';
  486. if (is_object($info))
  487. {
  488. //$ret .= commentLine();
  489. $ret .= commentHeader("iNES Header");
  490. $ret .= str_pad(LEFT_MARGIN . '.db "NES", $1A', $pad) . " ; Header\n";
  491. $ret .= str_pad(LEFT_MARGIN . ".db $info->prg", $pad) . " ; $info->prg x 16k PRG banks\n";
  492. $ret .= str_pad(LEFT_MARGIN . ".db $info->chr", $pad) . " ; $info->chr x 8k CHR banks\n";
  493. $ret .= str_pad(LEFT_MARGIN . ".db %" . decbin_pad($info->ctrl_1), $pad) . " ; Mirroring: " . ($info->mirroring ? 'Vertical' : 'Horizontal') . "\n";
  494. $ret .= str_repeat(" ", $pad) . " ; SRAM: " . ($info->sram ? 'Enabled' : 'Not used') . "\n";
  495. $ret .= str_repeat(" ", $pad) . " ; 512k Trainer: " . ($info->trainer ? 'Enabled' : 'Not used') . "\n";
  496. $ret .= str_repeat(" ", $pad) . " ; 4 Screen VRAM: " . ($info->fourscreen ? 'Enabled' : 'Not used') . "\n";
  497. $ret .= str_repeat(" ", $pad) . " ; Mapper: " . $info->mapper . "\n";
  499. switch($info->romtype)
  500. {
  501. case 0:
  502. $romtype = 'NES';
  503. break;
  504. case 1:
  505. $romtype = 'VS Unisystem';
  506. break;
  507. case 2:
  508. $romtype = 'Playchoice 10';
  509. break;
  510. }
  511. $ret .= str_pad(LEFT_MARGIN . ".db %" . decbin_pad($info->ctrl_2), $pad) . " ; RomType: " . $romtype . "\n";
  513. $ret .= str_pad(LEFT_MARGIN . ".hex " . strToHex(substr($info->tail,0,4)), $pad) . " ; iNES Tail \n";
  514. $ret .= str_pad(LEFT_MARGIN . ".hex " . strToHex(substr($info->tail,4)), $pad) . " \n";
  516. return $ret;
  517. }
  519. return false;
  520. }
  522. function toLittleEndianStr($str)
  523. {
  524. return $str[2] . $str[3] . " " . $str[0] . $str[1];
  525. }
  527. function processVectors($nmi, $reset, $break)
  528. {
  529. global $labelLen;
  531. $marginLen = strlen(LEFT_MARGIN);
  532. $pad = 30 + $marginLen;
  534. $ret = commentHeader('Vector Table');
  535. $line1 = str_pad("vectors:", $marginLen);
  536. $line1 .= ".dw nmi";
  537. $ret = $ret . str_pad($line1, $pad) . ' ; $fffa: ' . toLittleEndianStr($nmi) . " Vector table\n";
  538. $ret .= str_pad(LEFT_MARGIN . ".dw reset", $pad) . ' ; $fffc: ' . toLittleEndianStr($reset) . " Vector table\n";
  539. $ret .= str_pad(LEFT_MARGIN . ".dw irq", $pad) . ' ; $fffe: ' . toLittleEndianStr($break) . " Vector table\n";
  541. return $ret;
  542. }
  544. function baseToDec($str)
  545. {
  546. switch ($str{0})
  547. {
  548. case '0':
  549. if ($str[1] !== 'x')
  550. { break;
  551. }
  552. else
  553. {
  554. return hexdec(substr($str,2));
  555. }
  556. break;
  558. case '$':
  559. return hexdec(substr($str,1));
  560. break;
  562. case '$':
  563. return bindec(substr($str,1));
  564. break;
  565. }
  566. return $str;
  567. }
  569. function readLabels($filename)
  570. {
  572. $arr = readLabelText(file_get_contents($filename));
  574. return $arr;
  577. }
  578. function readLabelText($str)
  579. {
  580. $arr = array();
  581. $len = 0;
  582. $str = preg_replace('%;.*$%m', '', $str);
  584. if (preg_match_all('%^\s*([a-zA-Z0-9_\-\+\@]*)\s*\=\s*([\$\%]*)([a-fA-F0-9]*)%m', $str, $matches))
  585. {
  586. foreach($matches[0] as $n => $v)
  587. { $matches[1][$n] = trim($matches[1][$n]);
  589. $thislen = strlen($matches[1][$n]);
  591. if ($thislen > $len)
  592. {
  593. $len = $thislen;
  594. }
  596. if (strlen($matches[1][$n]) > 0)
  597. {
  598. if ($matches[2][$n] == '')
  599. { $matches[3][$n] = dechex_pad($matches[3][$n]);
  600. }
  602. if ($matches[2][$n] == '%')
  603. {
  604. $matches[3][$n] = dechex_pad(bindec($matches[3][$n]));
  605. }
  607. $arr[strtolower($matches[3][$n])] = $matches[1][$n];
  608. }
  609. }
  610. }
  612. $arr['maxLength'] = $len;
  614. return $arr;
  615. }
  617. function outputLabels($arr, $text)
  618. {
  619. global $origin;
  621. $ret = commentHeader($text);
  623. foreach ($arr as $n => $v)
  624. {
  625. if ($n == 'maxLength')
  626. {
  627. continue;
  628. }
  630. if (hexdec($n) < $origin)
  631. {
  632. $ret .= str_pad($v , 20) . ' = $' . $n . "\n";
  633. }
  634. }
  636. return $ret;
  638. }
  640. function outputHelp($text = false)
  641. {
  642. global $argv;
  643. $dasm = pathinfo($argv[0], PATHINFO_BASENAME);
  645. echo <<<ENDOFSTRING
  646. Usage:
  648. disasm6 <file> [-t <file>] [-o #] [-l <file>] [-cdl <file>] [-cdlo #] [-d] [-i]
  649. [-h] [-c] [-p #] [-r] [-lc] [-uc] [-fs #] [-cs #] [-fe #] [-ce <#>]
  650. [-len #] [-iw] [-m2]
  652. <file> The file to disassemble
  653. t target <file> Target output filename (default is input filename.asm)
  654. o origin # Set the program origin.
  655. (default: 0x8000 for 32k roms, 0xC000 for 16k roms)
  656. l labels <file> Load user defined labels from file
  657. cdl cdl <file> Use a code/data log generated by FCEUX
  658. cdlo cdloffset # Set the offset of the cdl file
  659. d nodetect Disable 16kb prg size detection
  660. i ignoreheader Do not look for iNES header
  661. h noheader Do not include iNES header (if found) in disassembly
  662. c chr Export CHR-ROM as file and include in disassembly
  663. p passes # Maximum number of passes (default: 9)
  664. r registers Use default NES registers
  665. lc lowercase Use lowercase mnemonics [default]
  666. uc uppercase Use uppercase mnemonics
  667. fs filestart Start reading at a specific file location
  668. cs codestart Start reading at a specific code location
  669. fe fileend Stop reading at a specific file location
  670. ce codeend Stop reading at a specific code location
  671. len length Number of bytes to read
  672. iw ignorewrites Ignore writes to \$8000 - \$FFFF
  673. m2 mapper2 Enable mapper 2 (UxROM) support
  674. ENDOFSTRING;
  676. echo "\n" . ($text ? "\nERROR: $text\n" : '');
  677. exit;
  678. }
  680. function isCounterLabel($addr, $labels)
  681. {
  682. $addr= dechex_pad($addr);
  684. if (isset($labels[$addr]))
  685. {
  686. if (preg_match('%^([^\+\-]+)[\+\-][0-9]+%', $labels[$addr]))
  687. {
  688. return false;
  689. }
  691. return true;
  692. }
  693. return false;
  695. }
  697. // Program start
  699. $head = "DISASM6 v" . VERSION ." - A NES-oriented 6502 disassembler - Created by Frantik 2015";
  700. echo "\n$head\n" . str_repeat('-', 79) . "\n";
  704. if (!isset($argv[1]))
  705. {
  706. outputHelp();
  707. }
  708. elseif (!file_exists($argv[1]))
  709. {
  710. outputHelp("File not found\n");
  711. }
  712. else
  713. {
  714. $filename = $argv[1];
  715. }
  717. $origin = 0x8000;
  718. $showHeader = true;
  719. $includeChr = false;
  720. $includeReg = false;
  721. $originOverride = false;
  722. $noDetect = false;
  723. $shortname = pathinfo($filename, PATHINFO_FILENAME);
  724. $labelFile = false;
  725. $cdlFilename = false;
  726. $ignoreHeader = false;
  727. $fileStart = 0;
  728. $fileStartOverride = false;
  729. $fileLength = 0x10000;
  730. $lengthOverride = false;
  731. $fileEnd = 0;
  732. $fileEndOverride = false;
  733. $codeStart = 0;
  734. $codeStartOverride = false;
  735. $codeEnd = 0;
  736. $codeEndOverride = false;
  737. $cdlOffset = 0;
  738. $ignoreWrites = false;
  739. $useLowerCase = true;
  740. $usingMapper2 = false;
  742. $lastPass = 9;
  744. $marginLen = strlen(LEFT_MARGIN);
  746. // check command line params
  747. for ($i = 2; $i < $argc; $i++)
  748. {
  749. $nextParam = false;
  751. if (isset($argv[$i + 1]) && substr($argv[$i + 1],0,1) != '-')
  752. { $nextParam = $argv[$i + 1];
  753. }
  755. switch (strtolower($argv[$i]))
  756. {
  757. case "-o":
  758. case "-origin":
  760. if (!$nextParam)
  761. { outputHelp("Must specify a valid origin");
  762. }
  764. $origin = baseToDec($argv[++$i]);
  765. $originOverride = true;
  766. break;
  768. case "-cs":
  769. case "-codestart":
  771. if (!$nextParam)
  772. { outputHelp("Must specify a valid code start location ");
  773. }
  775. $codeStart = baseToDec($argv[++$i]);
  776. $codeStartOverride = true;
  778. break;
  780. case "-fs":
  781. case "-filestart":
  783. if (!$nextParam)
  784. { outputHelp("Must specify a valid file start location ");
  785. }
  787. $fileStart = baseToDec($argv[++$i]);
  788. $fileStartOverride = true;
  789. break;
  791. case '-len':
  792. case '-length':
  793. if (!$nextParam)
  794. { outputHelp("Must specify a valid length to read");
  795. }
  797. $fileLength = baseToDec($argv[++$i]); // this will be tweaked later
  798. $lengthOverride = true;
  799. break;
  801. case "-fe":
  802. case "-fileend":
  804. if (!$nextParam)
  805. { outputHelp("Must specify a valid file end location ");
  806. }
  808. $fileEnd = baseToDec($argv[++$i]);
  809. $fileEndOverride = true;
  810. break;
  812. case "-ce":
  813. case "-codeend":
  815. if (!$nextParam)
  816. { outputHelp("Must specify a valid code end location ");
  817. }
  819. $fileLength = baseToDec($argv[++$i]); // will NOT be tweaked since lengthOverride isn't enable
  820. $codeEndOverride = true;
  821. break;
  824. case "-h":
  825. case '-noheader';
  826. $showHeader = false;
  827. break;
  829. case "-i":
  830. case '-ignoreheader';
  831. $ignoreHeader = true;
  832. break;
  834. case "-c":
  835. case "-chr":
  836. $includeChr = true;
  837. break;
  839. case '-r':
  840. case '-registers':
  841. $includeReg = true;
  842. break;
  844. case '-t':
  845. case '-target':
  846. if (!$nextParam)
  847. { outputHelp("You must specify a target file");
  848. }
  850. $shortname = pathinfo(preg_replace("%[^a-zA-Z0-9_\-\. ]%", '', $argv[++$i]), PATHINFO_FILENAME);
  852. break;
  854. case '-p':
  855. case '-passes':
  856. if (!$nextParam || !is_numeric($nextParam))
  857. { outputHelp("You must specify a number of passes");
  858. }
  860. $lastPass = (int)$argv[++$i];
  861. break;
  863. case '-nodetect':
  864. case '-d':
  865. $noDetect = true;
  866. break;
  868. case '-l':
  869. case '-labels':
  870. if (!$nextParam || !file_exists($nextParam))
  871. { outputHelp("You must specify a valid file");
  872. }
  874. $labelFile = $argv[++$i];
  875. break;
  878. case '-cdl':
  879. if (!$nextParam || !file_exists($nextParam))
  880. { outputHelp("You must specify a valid file");
  881. }
  883. $cdlFilename = $argv[++$i];
  884. break;
  886. case '-cdlo':
  887. case '-cdloffset':
  888. if (!$nextParam)
  889. { outputHelp("You must specify a valid offset for the CDL");
  890. }
  892. $cdlOffset = baseToDec($argv[++$i]);
  893. break;
  896. case '-lc':
  897. case '-lowercase':
  898. $useLowerCase = true;
  900. break;
  902. case '-cc':
  903. case '-uppercase':
  904. $useLowerCase = false;
  906. break;
  908. case '-iw':
  909. case '-ignorewrites':
  911. $ignoreWrites = true;
  912. break;
  914. case '-m2':
  915. case '-mapper2':
  917. $usingMapper2 = true;
  918. break;
  919. }
  921. }
  924. if ($fileEndOverride)
  925. {
  926. $fileLength = $fileStart + $fileEnd;
  927. $lengthOverride = true;
  928. }
  931. $file = fopen($filename, 'r');
  933. $pass = 1;
  935. $oldLabels = false;
  937. $initLabels = array(
  938. 'fffa' => "vectors",
  939. 'fffc' => true,
  940. 'fffe' => true,
  941. );
  943. if ($includeReg)
  944. {
  945. $initLabels += $registers;
  946. }
  948. $labelLen = 0;
  949. if ($labelFile !== false)
  950. {
  951. $fileLabels = readLabels($labelFile);
  953. //$mapperArr = $fileLabels['mapperArr'];
  954. //unset($fileLabels['mapperArr']);
  956. $labelLen = $fileLabels['maxLength'] - 10;
  957. $labelLen = $labelLen < 0 ? 0: $labelLen;
  958. unset ($fileLabels['maxLength']);
  960. $initLabels += $fileLabels;
  962. }
  964. $cdlFile = false;
  965. if ($cdlFilename !== false)
  966. {
  967. $cdlFile = fopen($cdlFilename, 'r');
  968. $cdlByte = 0;
  969. }
  972. $header = false;
  973. $theOldLabel = '';
  975. $theText = commentHeader(pathinfo($filename, PATHINFO_BASENAME) . " disasembled by DISASM6 v" . VERSION, false);
  976. //$invalidCounter = 0;
  978. $prgBank = 0;
  979. $theLabel = '';
  982. // This loop is done x times
  983. // The first pass we just collect addesses
  984. // The next passes we look for new addresses
  985. //
  986. // The last pass we build the actual output
  987. while ($pass <= $lastPass)
  988. {
  989. if ($pass < 3)
  990. { $labels = $initLabels;
  991. }
  992. $prgLabels = $initLabels;
  994. $counter = $origin;
  996. if ($fileStartOverride && !$codeStartOverride)
  997. {
  998. fseek($file, $fileStart);
  999. }
  1001. if (!$ignoreHeader)
  1002. {
  1003. $headerInfo = getHeaderInfo($file);
  1004. }
  1005. else
  1006. {
  1007. $headerInfo = false;
  1008. }
  1010. if ($codeStartOverride)
  1011. {
  1012. fseek($file, $fileStart);
  1013. }
  1015. if ($headerInfo)
  1016. { $oldPrg = $headerInfo->prg;
  1017. }
  1018. else
  1019. {
  1021. }
  1024. // do this stuff only on the first pass
  1025. if ($pass == 1)
  1026. {
  1027. $oldDidDrawLine = false;
  1028. $oldLabels = $labels;
  1030. // check for 16k roms
  1031. if (!$noDetect)
  1032. { $newPrg = false;
  1033. if ($headerInfo && $headerInfo->prg == 2)
  1034. {
  1035. $prg0 = fread($file, 0x4000);
  1036. $prg1 = fread($file, 0x4000);
  1037. fseek($file, $fileStart + 0x10);
  1039. if ($prg0 === $prg1 && $headerInfo->mapper == 0)
  1040. { echo "PRG Banks 0 and 1 are identical, 16k PRG suspected, use -d to disable check\n";
  1041. $newPrg = 1;
  1043. $origin = $originOverride ? $origin : 0xc000;
  1045. if ($cdlFilename !== false)
  1046. {
  1047. $cdlOffset += 0x4000;
  1048. }
  1049. }
  1050. }
  1051. elseif ($headerInfo && $headerInfo->prg == 1)
  1052. {
  1053. $origin = $originOverride ? $origin : 0xc000;
  1054. }
  1055. }
  1058. echo "Using Origin: 0x" . dechex_pad($origin) . "\n\n";
  1061. if ($headerInfo !== false)
  1062. {
  1063. echo 'NES Header Found - ' . ($showHeader ? 'included in disassembly' : 'not included') ."\n";
  1064. }
  1066. if ($labelFile !== false)
  1067. {
  1068. echo "Using user defined labels\n";
  1069. }
  1071. if ($includeReg)
  1072. {
  1073. echo "Using NES registers\n";
  1074. }
  1076. if ($cdlFilename !== false)
  1077. {
  1078. echo "Using code/data log\n";
  1079. }
  1081. if ($ignoreWrites !== false)
  1082. {
  1083. echo "Writes to PRG will not create labels\n";
  1084. }
  1086. if ($usingMapper2 !== false)
  1087. {
  1088. echo "Mapper 2 (UxROM) support enabled\n";
  1089. }
  1092. if ($fileStartOverride && !$codeStartOverride)
  1093. {
  1094. echo "Starting at file location 0x" . dechex_pad($fileStart) ."\n";
  1095. }
  1097. if ($codeStartOverride)
  1098. {
  1099. $fileStart = $codeStart - $origin + ($headerInfo ? 10 : 0);
  1100. $origin = $codeStart;
  1101. $originOverride = true;
  1103. $fileStartOverride = true;
  1104. fseek($file, $fileStart);
  1106. $cdlOffset += $fileStart - ($headerInfo ? 10 : 0);
  1109. echo "Starting at code location $" . dechex_pad($fileStart)."\n";
  1110. }
  1112. if ($lengthOverride)
  1113. {
  1114. echo "Reading 0x" . dechex_pad($fileLength) . " bytes\n";
  1116. $fileLength += $origin - ($headerInfo ? 0x10 : 0);
  1117. }
  1120. if ($includeChr && $headerInfo !== false)
  1121. {
  1122. //echo "Using CHR-ROM\n";
  1123. }
  1125. echo "\n";
  1126. }
  1128. if ($cdlFilename !== false)
  1129. {
  1130. fseek($cdlFile, $cdlOffset);
  1131. }
  1133. // if 16k rom, update prg info
  1134. if ($newPrg)
  1135. {
  1136. $headerInfo->prg = $newPrg;
  1137. }
  1139. // do this stuff only on the lass pass
  1140. if ($pass == $lastPass)
  1141. {
  1143. if ($labelFile !== false)
  1144. {
  1145. $theText .= outputLabels($fileLabels, "User Defined Labels");
  1146. }
  1148. if ($includeReg)
  1149. {
  1150. $theText .= outputLabels($registers, "Registers");
  1151. }
  1153. $header = processHeaderInfo($headerInfo);
  1155. if ($header !== false && $showHeader)
  1156. {
  1157. $theText .= $header;
  1158. }
  1160. $theText .= commentHeader("Program Origin");
  1161. $theText .= str_pad(LEFT_MARGIN . ".org $" . dechex_pad($counter), 30 + $labelLen) . " ; Set program counter\n";
  1162. $theText .= commentHeader('ROM Start');
  1164. }
  1166. // read the file
  1167. // each pass of this loop completes one line of output
  1169. $counter = $origin;
  1170. echo "Starting pass $pass " . ($pass == $lastPass ? "(final) " : '' ) . "... ";
  1172. while (!feof($file) && $counter < $fileLength)
  1173. {
  1174. $add = false;
  1175. $invalidText = "Invalid Opcode";
  1176. $didDrawLine = false;
  1178. // handle mapper 2
  1179. if ($usingMapper2
  1180. && $headerInfo
  1181. && $headerInfo->mapper == 2
  1182. && $counter == 0xC000
  1183. && $prgBank < ($headerInfo->prg - 1)
  1184. )
  1185. {
  1186. $counter = 0x8000;
  1187. $prgBank++;
  1189. if ($pass == $lastPass)
  1190. { $theText .= commentHeader("PRG Bank $prgBank");
  1191. $theText .= LEFT_MARGIN . ".base 0x8000\n";
  1192. $theText .= commentLine();
  1193. }
  1194. continue;
  1196. }
  1198. // handle vectors
  1200. if ($pass < $lastPass && $counter == 0xFFFA)
  1201. {
  1202. $nmi = wordStr(fread($file, 2));
  1203. $reset = wordStr(fread($file, 2));
  1204. $break = wordStr(fread($file, 2));
  1206. addVector($nmi, "nmi", $labels);
  1207. addVector($reset, "reset", $labels);
  1208. addVector($break, "irq", $labels);
  1210. $prgLabels[$nmi] = true;
  1211. $prgLabels[$reset] = true;
  1212. $prgLabels[$break] = true;
  1214. $counter += 6;
  1215. continue;
  1216. }
  1217. elseif($pass == $lastPass && $counter == 0xFFFA)
  1218. {
  1219. $theText .= processVectors($nmi, $reset, $break);
  1220. fread($file, 6);
  1222. $counter += 6;
  1224. continue;
  1225. }
  1227. //read opcode
  1228. $opcode = ord(fread($file, 1));
  1231. $isInvalid = $opcodes[$opcode][0];
  1232. $mnemonic = $opcodes[$opcode][1];
  1233. $byteLen = $opcodes[$opcode][2];
  1234. $addressingType = $opcodes[$opcode][4];
  1236. $isDataByte = false;
  1237. $dataStr = 'Suspected data';
  1239. // check code/data log - if data, don' process as an opcode
  1240. if ($cdlFilename !== false)
  1241. {
  1242. $newCdlByte = ord(fread($cdlFile, 1)) ;
  1245. // draw line between data and code
  1246. if ($pass == $lastPass
  1247. && !$oldDidDrawLine
  1248. && $counter !== $origin
  1249. && $newCdlByte !== 0
  1250. && (($newCdlByte & bindec('00000001')) != ($cdlByte & bindec('00000001')))
  1251. )
  1252. {
  1253. $theText .= "\n" . commentLine();
  1255. $didDrawLine = true;
  1256. }
  1258. // check if the CDL byte is known, if known, copy, otherwise do some checks
  1259. if ($newCdlByte !== 0)
  1260. {
  1261. $cdlByte = $newCdlByte;
  1262. }
  1263. // if byte is zero and we're at a program label, assume code
  1264. elseif (isset($oldPrgLabels[dechex_pad($counter)]))
  1265. {
  1266. $cdlByte = bindec('00000001');
  1267. }
  1268. // if byte is zero and we're at a label, but not program, assume data (only on 2nd pass)
  1269. elseif (isset($oldLabels[dechex_pad($counter)]) && $pass > 1)
  1270. {
  1271. $cdlByte = bindec('00000010');
  1272. }
  1273. // else assume program code
  1276. // data byte
  1277. if ((($cdlByte & bindec('00000010')) >> 1) && !($cdlByte & bindec('00000001')))
  1278. {
  1280. $counter_pad = dechex_pad($counter);
  1282. if (isCounterLabel($counter, $oldLabels))
  1283. {
  1284. $theOldLabel = $oldLabels[$counter_pad] === true
  1285. ? '__' . $counter_pad
  1286. : $oldLabels[$counter_pad];
  1288. //$theOldLabel = preg_replace('%^([^\+\-]+)[\+\-][0-9]+%', '$1', $theOldLabel);
  1289. }
  1291. if (substr($theOldLabel, -9) == 'JumpTable')
  1292. {
  1294. $byteLen = 2;
  1295. $mnemonic = '.word';
  1296. $addressingType = 11;
  1297. $isInvalid = 0;
  1298. //fseek($file, ftell($file) - 1);
  1302. }
  1303. elseif (substr($theOldLabel, -8) == 'RTSTable')
  1304. {
  1306. $byteLen = 2;
  1307. $mnemonic = '.word';
  1308. $addressingType = 12;
  1309. $isInvalid = 0;
  1311. }/*
  1312. elseif (substr($theOldLabel, -8) == 'TableLow')
  1313. {
  1314. $byteLen = 1;
  1315. $mnemonic = '.byte';
  1316. $addressingType = 13;
  1317. $isInvalid = 0;
  1318. }
  1319. elseif (substr($theOldLabel, -9) == 'TableHigh')
  1320. {
  1321. $byteLen = 1;
  1322. $mnemonic = '.byte';
  1323. $addressingType = 14;
  1324. $isInvalid = 0;
  1325. } */
  1326. else
  1327. {
  1328. $byteLen = 4;
  1329. //echo substr($theLabel, -11);
  1330. $mnemonic = '';
  1331. $addressingType = -1;
  1332. $isInvalid = 1;
  1333. }
  1334. $isDataByte = true;
  1335. $dataStr = 'Data';
  1336. }
  1337. }
  1338. else
  1339. {
  1340. $theOldLabel = ''; // Reset 'theOldLabel' when we are no longer in a known data byte
  1341. }
  1344. $readBytes = $byteLen - 1;
  1345. $bytes = '';
  1346. $byteStr = '';
  1347. $trailer = '';
  1348. $hextext = dechex_pad($opcode);
  1350. $byteArr = array($hextext);
  1353. // read 1 or 2 byte paramters for the opcode
  1354. if ($readBytes > 0)
  1355. {
  1356. if ($pass >= 1)
  1357. {
  1358. if ($cdlFilename !== false)
  1359. {
  1360. $cdlPos = ftell($cdlFile);
  1361. $didMoveCdlPtr = false;
  1362. }
  1363. // check to see if a label exists in this opcode.. if so then usually it's data
  1364. for ($i = 1; $i <= $readBytes; $i++)
  1365. {
  1366. if (isCounterLabel($counter + $i, $oldLabels)
  1367. //if (isset($oldLabels[dechex_pad($counter + $i)])
  1368. || $counter + $i >= 0xFFFA
  1369. || ($counter + $i >= $fileLength)
  1370. || ($usingMapper2 && $headerInfo && $headerInfo->mapper == 2 && $counter + $i > 0xBFFF && $prgBank < $headerInfo->prg - 1)
  1371. ) // if counter in the vectors
  1373. {
  1374. $invalidCounter = 0;
  1375. $readBytes = $i - 1;
  1376. $isInvalid = 1;
  1377. $byteLen = $i;
  1378. $addressingType = -1;
  1379. continue;
  1380. }
  1382. // if this byte marked as data in cdl; check if next bytes are code
  1383. if ($cdlFilename !== false && $isDataByte)
  1384. {
  1385. $newCdlByte = ord(fread($cdlFile, 1));
  1386. $didMoveCdlPtr = true;
  1387. if ($newCdlByte & bindec('00000001'))
  1388. {
  1389. $invalidCounter = 0;
  1390. $readBytes = $i - 1;
  1391. $isInvalid = 1;
  1392. $byteLen = $i;
  1393. $addressingType = -1;
  1394. continue;
  1395. }
  1396. }
  1397. }
  1399. if ($didMoveCdlPtr && $cdlFilename !== false)
  1400. {
  1401. fseek($cdlFile, $cdlPos);
  1402. }
  1404. }
  1406. if ($readBytes > 0) // if readbytes is still > 0 after above
  1407. {
  1408. $bytes = fread($file, $readBytes);
  1410. if ($cdlFilename !== false)
  1411. {
  1412. $cdlBytes = fread($cdlFile, $readBytes);
  1413. }
  1415. for($j = 0; $j < $readBytes; $j++)
  1416. {
  1417. $byteArr[] = dechex_pad(ord($bytes[$j]));
  1418. $hextext .= ' ' . $byteArr[$j+1];
  1419. }
  1421. if ($addressingType == 12)
  1422. {
  1423. $byteStr = (isset($byteArr[1]) ? $byteArr[1]:'') . $byteArr[0];
  1424. $byteStr = dechex_pad(hexdec($byteStr) + 1);
  1425. //echo " $counter $addressingType $byteStr ";
  1426. //print_r($byteArr);
  1427. }
  1428. elseif ($addressingType == 11)
  1429. {
  1430. $byteStr = (isset($byteArr[1]) ? $byteArr[1]:'') . $byteArr[0];
  1431. }
  1432. else
  1433. {
  1434. $byteStr = (isset($byteArr[2]) ? $byteArr[2]:'') . $byteArr[1];
  1435. }
  1436. }
  1437. }
  1439. // ASM6 seems to do some optimization and won't allow absolute addr mode
  1440. // when using $00xx.. it turns it into $xx
  1441. // so instead we'll use .hex
  1442. if ($readBytes == 2
  1443. && substr($byteStr,0,2) == "00"
  1444. && $addressingType > 0
  1445. && $addressingType < 9
  1446. // && $addressingType != 9
  1447. && $addressingType != 3)
  1448. {
  1449. $isInvalid = 1;
  1450. $invalidText = "Bad Addr Mode";
  1451. }
  1453. // add label to list
  1454. $oldByteStr = $byteStr;
  1455. $lbl = '$';
  1457. if ($addressingType > 0
  1458. && isValidLabel($byteStr)
  1459. && !($ignoreWrites && substr($mnemonic,0,2) == 'ST' && ($byteStr < 0x8000))) // do not add labels when writing to PRG
  1460. {
  1462. $lbl = '__';
  1464. if ($pass < $lastPass && $isInvalid !== 1)
  1465. {
  1467. addValidLabel($byteStr, $labels);
  1468. }
  1470. }
  1472. $oldByteStr = $byteStr;
  1474. // $byteStrDec = (dechex_pad($byteStr);
  1475. $newByteStr = $lbl . $byteStr;
  1477. if (isset($oldLabels[$byteStr]) && $lbl !== '')
  1478. {
  1479. $oldLabel = $oldLabels[$byteStr];
  1481. $newByteStr = $oldLabel === true
  1482. ? $newByteStr
  1483. : $oldLabel;
  1484. }
  1486. // lets check for various addressing types to figure out how to format the text
  1487. switch($addressingType)
  1488. {
  1490. case 0: // Implicit/Accumulator/Immediate
  1491. $byteStr = ($readBytes > 0 ? '#$' . $byteStr : '');
  1492. break;
  1494. case 12:
  1495. case 11:
  1496. case 10:
  1497. if (!$isInvalid)
  1498. { addValidLabel($byteStr, $prgLabels);
  1499. }
  1500. case 1: // Absolute
  1501. case 4: // Zero Page
  1503. $byteStr = $newByteStr;
  1505. if ($addressingType == 12)
  1506. {
  1507. $byteStr .= "-1";
  1508. }
  1510. break;
  1512. case 2: // Absolute X
  1513. case 5: // Zero Page X
  1514. $byteStr = $newByteStr . ',x';
  1515. break;
  1517. case 3: // Absolute Y
  1518. case 6: // Zero Page Y
  1519. $byteStr = $newByteStr . ',y';
  1520. break;
  1522. case 7: // Indrect X
  1523. $byteStr = '(' . $newByteStr . ',x)';
  1524. break;
  1526. case 8: // Indirect Y
  1527. $byteStr = '(' . $newByteStr . '),y';
  1528. break;
  1530. case 9: // Indirect Jump
  1531. $byteStr = '(' . $newByteStr . ')';
  1532. break;
  1534. }
  1536. // now lets cover specific mnemonics
  1538. switch($mnemonic)
  1539. {
  1540. // handle branches
  1541. case 'BCC':
  1542. case 'BCS':
  1543. case 'BEQ':
  1544. case 'BMI':
  1545. case 'BNE':
  1546. case 'BPL':
  1547. case 'BVC':
  1548. case 'BVS':
  1550. $addr = addressOffset($counter, $oldByteStr );
  1552. $isInvalidBranch = false;
  1554. if ($pass < $lastPass && !$isInvalid && !$isInvalidBranch)
  1555. {
  1556. addValidLabel($addr, $labels);
  1557. addValidLabel($addr, $prgLabels);
  1558. }
  1560. if (!$isInvalidBranch && isValidLabel($addr))
  1561. { if (isset($labels[$addr]) && $labels[$addr] !== true)
  1562. {
  1563. $byteStr = $labels[$addr];
  1564. }
  1565. else
  1566. {
  1568. $byteStr = '__' . $addr;
  1569. }
  1570. }
  1571. else
  1572. {
  1573. $isInvalid = true;
  1574. $invalidText = "Illegal Branch";
  1575. }
  1577. break;
  1579. // add some space after RTS/JMP
  1580. case 'RTS':
  1581. case 'RTI':
  1582. case 'JMP':
  1583. if (!$isInvalid)
  1584. { $trailer = "\n" . commentLine();
  1585. $didDrawLine = true;
  1586. }
  1587. break;
  1589. }
  1591. // only deal with output on last pass
  1592. if ($pass == $lastPass)
  1593. {
  1594. if ($isInvalid)
  1595. {
  1596. $oldMnemonicStr = $addressingType == -1 ? $dataStr : ($invalidText . " - " . $mnemonic .' '. $byteStr);
  1597. $mnemonic = ".hex";
  1598. $byteStr = $hextext;
  1600. }
  1601. $counter_pad = dechex_pad($counter);
  1602. if (array_key_exists($counter_pad, $oldLabels))
  1603. {
  1604. $leng = 1;
  1605. if (is_array($oldLabels[$counter_pad]))
  1606. { $leng = count($oldLabels[$counter_pad]);
  1608. }
  1611. for ($i = 0; $i < $leng; $i++)
  1612. {
  1613. if (is_array($oldLabels[$counter_pad]))
  1614. {
  1615. $theLabel = $oldLabels[$counter_pad][$i];
  1616. }
  1617. else
  1618. {
  1619. $theLabel = $oldLabels[$counter_pad] === true
  1620. ? '__' . $counter_pad
  1621. : $oldLabels[$counter_pad];
  1623. }
  1625. // if label has a + or - in it but doesn't start with one
  1626. // then don't show it
  1627. // if not 0 or false
  1628. if (strpos($theLabel, '+') || strpos($theLabel, '-'))
  1629. {
  1630. $theText .= LEFT_MARGIN;
  1631. continue;
  1632. }
  1634. switch($theLabel)
  1635. {
  1636. case "irq":
  1637. $theText .= commentHeader("irq/brk vector", !($oldDidDrawLine || $didDrawLine), !($oldDidDrawLine || $didDrawLine));
  1638. break;
  1640. case "nmi":
  1641. case "reset":
  1642. $theText .= commentHeader("$theLabel vector", !($oldDidDrawLine || $didDrawLine), !($oldDidDrawLine || $didDrawLine));
  1643. break;
  1645. }
  1647. if (strlen($theLabel) >= $marginLen - 1)
  1648. {
  1649. $theText .= ($oldDidDrawLine || $didDrawLine || ($counter == $origin) ? '' : "\n")
  1650. . "$theLabel:\n" . LEFT_MARGIN;
  1651. }
  1652. else
  1653. {
  1654. $theText .= str_pad($theLabel . ':', $marginLen);
  1655. }
  1657. }
  1659. }
  1660. else
  1661. {
  1662. $theText .= LEFT_MARGIN;
  1663. }
  1665. //$line = array_key_exists(dechex_pad($counter), $oldLabels) ? '__' . dechex_pad($counter) .':' : ' ';
  1666. $line = '';
  1667. $line .= ($useLowerCase ? strtolower($mnemonic) : $mnemonic) .' '. $byteStr;
  1669. //$labelLen
  1670. $line = str_pad($line, 30 - $marginLen + $labelLen);
  1672. $line .= ' ; $' . dechex_pad($counter) . ": " .$hextext;
  1673. $line = str_pad($line, ($isDataByte ? 54 : 50) - $marginLen + $labelLen);
  1674. $line .= ($isInvalid ? $oldMnemonicStr : '');
  1675. $line .= "\n" . $trailer;
  1677. $theText .= $line;
  1679. }
  1680. $counter += $byteLen;
  1681. $oldDidDrawLine = $didDrawLine;
  1682. } // end line by line loop
  1686. if ($pass < $lastPass && $oldLabels !== false && $labels == $oldLabels)
  1687. {
  1688. $lastPass = $pass + 1;
  1689. }
  1690. /*elseif($pass < $lastPass)
  1691. {
  1692. echo "$pass < $lastPass && $oldLabels !== false && $labels == $oldLabels (" . print_r($labels == $oldLabels,true);
  1693. file_put_contents('out', print_r($labels,true) . print_r($oldLabels, true));
  1694. file_put_contents('out2', print_r(array_diff_assoc($labels, $oldLabels),true));
  1695. }*/
  1697. if ($pass < $lastPass)
  1698. {
  1700. $oldLabels = $labels;
  1701. $oldPrgLabels = $prgLabels;
  1703. rewind($file);
  1704. }
  1706. echo "complete\n";
  1707. $pass++;
  1708. }
  1710. if ($includeChr && $headerInfo !== false)
  1711. {
  1713. fseek($file, $oldPrg * 0x4000 + 0x10);
  1715. $chr = '';
  1718. while (!feof($file))
  1719. {
  1720. $chr .= fread($file,1024);
  1722. }
  1724. $theText .= "\n" . commentLine();
  1725. $theText .= "; CHR-ROM";
  1726. $theText .= "\n" . commentLine();
  1728. $incLine = LEFT_MARGIN . ".incbin " . $shortname.'.chr';
  1729. $theText .= str_pad($incLine, 30 + $labelLen) . " ; Include CHR-ROM\n";
  1731. file_put_contents($shortname.'.chr', $chr);
  1732. echo "\nCHR-ROM exported as $shortname.chr";
  1735. }elseif ($includeChr)
  1736. {
  1737. echo "\nCHR-ROM cannot be exported without iNES header data";
  1738. if ($ignoreHeader)
  1739. {
  1740. "\nTry disabling -ignoreheader if you wish to export CHR-ROM data";
  1741. }
  1742. }
  1744. file_put_contents($shortname.'.asm', $theText);
  1747. $time_end = microtime(true);
  1748. $time = round($time_end - $time_start,3);
  1750. echo "\nDisassembly $shortname.asm generated in $time seconds\n\n";
  1751.  
Powered by spacepaste. Paste removal.