Need help - ASM program not working - Page 2

By the way, since we ingaged in disassembly reverse engineering, is there a MIPS3 assembly languange specialists here? I need them to make a RE of Xenosaga Episode II disassembly, and after that to create a Shaman King role\combat system on the base of Xenosaga Episode II role\combat system RE results.

Here is the IDA Pro file with a SLUS_208.92 disassembly code - I supposed, the PS2 files with a names of such format is a functional analogue of EXE files on PC.

Also I think, It's worth to borrow some future SK role/combat system elements from Pokemon Gold/Silver/Crystal (Unfortunately, I didn't learn yet, how to disassemble the whole GBC rom file - not only the ROM bank which is accessible at this moment. Does anybody here know how to do it?) and from Doom RPG mobile game (the decompiled Java source files are taken using DJ Java Decompiler).

After I'm tired to wait an answer to my question for a few months, I decided to continue the KoF '94 disassembly research by myself:

04BA6E: 4DF9 0010 FD96 lea $10fd96.l, A6 ; P1_CURRENT value moving to A6 04BA74: 4EBA 019E jsr ($19e,PC) ; ($4bc14) 04BA78: 4E71 nop 04BA7A: 082C 0000 00C9 btst #$0, ($c9,A4) 04BA80: 6700 0014 beq $4ba96 ; if 1st bit of ((initial A4 value+$c9)^1)+$c9 value is equal to 0 then end the subroutine ahead of time 04BA84: 4EBA 004C jsr ($4c,PC) ; ($4bad2) ; else goto $4bad2 subroutine 04BA88: 4E71 nop 04BA8A: 4EBA 01BA jsr ($1ba,PC) ; ($4bc46) 04BA8E: 4E71 nop 04BA90: 4EBA 0218 jsr ($218,PC) ; ($4bcaa) 04BA94: 4E71 nop 04BA96: 4E75 rts04BC14: 082D 0003 39F5 btst #$3, ($39f5,A5) 04BC1A: 6700 0028 beq $4bc44 ; if 4th bit of $39f5 + A5 value is equal to 0 then end subroutine ahead of time 04BC1E: 082D 0002 39F6 btst #$2, ($39f6,A5) 04BC24: 6700 001E beq $4bc44 ; else if 3rd bit of $39f6 + A5 value is equal to 0 then end subroutine ahead of time 04BC28: 0A2C 0001 00C9 eori.b #$1, ($c9,A4) ; else (A4+$c9)^1 04BC2E: 302C 00CC move.w ($cc,A4), D0 ; D0=((initial A4 value+$c9)^1)+$cc 04BC32: 322C 00CE move.w ($ce,A4), D1 ; D1=((initial A4 value+$c9)^1)+$ce 04BC36: 343C 0007 move.w #$7, D2 ; D2=7 04BC3A: 363C 0006 move.w #$6, D3 ; D3=6 04BC3E: 4EB9 0000 5FEA jsr $5fea.l 04BC44: 4E75 rts04BAD2: 102D 39CD move.b ($39cd,A5), D0 ; D0=A5+$39cd 04BAD6: 0240 000F andi.w #$f, D0 04BADA: 41FA 0354 lea ($354,PC) ; ($4be30), A0 ; A0=$ff02 04BADE: 4E71 nop 04BAE0: 7200 moveq #$0, D1 ; D1=0 04BAE2: 1230 0000 move.b (A0,D0.w), D1 ; D1=$ff02+(A5+$39cd) 04BAE6: 6B00 0022 bmi $4bb0a ; if $ff02+(A5+$39cd) is negative then end the subroutine ahead of time 04BAEA: D241 add.w D1, D1 04BAEC: D241 add.w D1, D1 ; else D1=($ff02+(A5+$39cd))*4 04BAEE: 41FA 001C lea ($1c,PC) ; ($4bb0c), A0 ; A0=(swapped value of (((((A4+$c9)^1)+$cc)<<5)+D1+#$7002) + #$f20)|#$2c 04BAF2: 4E71 nop 04BAF4: 082D 0002 39F5 btst #$2, ($39f5,A5) 04BAFA: 6700 0008 beq $4bb04 ; if 3rd bit of (A5+$39f5) value is equal to 0 then skip the next 2 operations 04BAFE: 41FA 001C lea ($1c,PC) ; ($4bb1c), A0 ; else A0=(swapped value of (((((initial A4 value+$c9)^1)+$cc)<<5)+D1+#$7002) + #$f20)|#$7c 04BB02: 4E71 nop 04BB04: 2070 1000 movea.l (A0,D1.w), A0 ; A0=((swapped value of (((((initial A4 value+$c9)^1)+$cc)<<5)+D1+#$7002) + #$f20)|#$7c)+(($ff02+(A5+$39cd))*4) 04BB08: 4E90 jsr (A0) ; goto $((swapped value of (((((initial A4 value+$c9)^1)+$cc)<<5)+D1+#$7002) + #$f20)|#$7c)+(($ff02+(A5+$39cd))*4) 04BB0A: 4E75 rts04BC46: 082D 0004 39CD btst #$4, ($39cd,A5) 04BC4C: 6700 0038 beq $4bc86 ; if 5th bit of A5+$39cd value is equal to 0 then goto $4bc86 subroutine 04BC50: 0C2C 0005 00D0 cmpi.b #$5, ($d0,A4) 04BC56: 6200 002C bhi $4bc84 ; if A4+$d0>5 then end the subroutine ahead of time 04BC5A: 422C 00C9 clr.b ($c9,A4) ; else [A4+$c9] value=0 04BC5E: 7000 moveq #$0, D0 ; D0=0 04BC60: 102C 00D0 move.b ($d0,A4), D0 ; D0=A4+$d0 04BC64: 5200 addq.b #1, D0 ; D0=A4+$d0+#1 04BC66: 01EC 00C9 bset D0, ($c9,A4) ; (A4+$d0+#1)th bit of A4+$c9 value is equal to 1 04BC6A: 302C 00CC move.w ($cc,A4), D0 ; D0=A4+$cc 04BC6E: 322C 00CE move.w ($ce,A4), D1 ; D1=A4+$ce 04BC72: 343C 0007 move.w #$7, D2 ; D2=7 04BC76: 363C 0006 move.w #$6, D3 ; D3=6 04BC7A: 4EB9 0000 5FEA jsr $5fea.l 04BC80: 422D 39CD clr.b ($39cd,A5) ; [A5+$39cd] value=0 04BC84: 4E75 rts04BCAA: 082C 0000 00C9 btst #$0, ($c9,A4) 04BCB0: 6700 0088 beq $4bd3a ; if 1st bit of A4+$c9 value is equal to 0 then end the subroutine ahead of time 04BCB4: 396C 00CC 00D4 move.w ($cc,A4), ($d4,A4) ; A4+$d4 value = A4+$cc value 04BCBA: 396C 00CE 00D6 move.w ($ce,A4), ($d6,A4) ; A4+$d6 value = A4+$ce value 04BCC0: 302C 00D4 move.w ($d4,A4), D0 ; D0=A4+$cc value 04BCC4: 322C 00D6 move.w ($d6,A4), D1 ; D1=A4+$ce value 04BCC8: 4EB9 0000 5FDE jsr $5fde.l 04BCCE: 207C 0006 E87A movea.l #$6e87a, A0 ; A0=#$6e87a 04BCD4: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped (([A4+$cc] value<<5)+[A4+$ce] value+#$7002) value=#$f00 04BCD8: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04BCDE: 4EB9 0000 5F0C jsr $5f0c.l 04BCE4: 546C 00D6 addq.w #2, ($d6,A4) ; [A4+$d6] value+2 04BCE8: 7E03 moveq #$3, D7 ; D7=3 04BCEA: 7C00 moveq #$0, D6 ; D6=0 04BCEC: 7A00 moveq #$0, D5 ; D5=0 04BCEE: 1A2C 00C8 move.b ($c8,A4), D5 ; D5=[A4+$c8] value 04BCF2: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$d4] value 04BCF6: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$d6] value 04BCFA: 4EB9 0000 5FDE jsr $5fde.l 04BD00: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped (([A4+$d4] value<<5)+[A4+$d6] value+#$7002) value=#$f00 04BD04: BC2C 00D1 cmp.b ($d1,A4), D6 04BD08: 6600 0006 bne $4bd10 ; if [A4+$d1] value !=0 then skip next operation 04BD0C: 0040 8000 ori.w #$8000, D0 ; else (swapped (([A4+$d4] value<<5)+[A4+$d6] value+#$7002) value)|#$8000 04BD10: 7800 moveq #$0, D4 ; D4=0 04BD12: 1805 move.b D5, D4 ; D4=[A4+$c8] value 04BD14: D844 add.w D4, D4 04BD16: D844 add.w D4, D4 ; D4=([A4+$c8] value)*4 04BD18: 41FA 0022 lea ($22,PC) ; ($4bd3c), A0 04BD1C: 4E71 nop 04BD1E: 2070 4000 movea.l (A0,D4.w), A0 ; A0=$4bd3c value+(([A4+$c8] value)*4) 04BD22: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04BD28: 4EB9 0000 5F0C jsr $5f0c.l 04BD2E: 526C 00D6 addq.w #1, ($d6,A4) ; [A4+$d6] value+1 04BD32: 5205 addq.b #1, D5 ; [A4+$c8] value+1 04BD34: 5206 addq.b #1, D6 ; D6=0+1=1 04BD36: 51CF FFBA dbra D7, $4bcf2 ; D7-1=3-1 ; if D7 <> 0 jump back to $4bcf2 04BD3A: 4E75 rts005FEA: 4EBA FFF2 jsr (-$e,PC) ; ($5fde) 005FEE: 303C 0F20 move.w #$f20, D0 ; lowest D0 word=#$f20 005FF2: 2800 move.l D0, D4 ; D4=swapped value of (((((initial A4 value+$c9)^1)+$cc)<<5)+D1+#$7002) + #$f20 005FF4: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 005FFA: 7C00 moveq #$0, D6 ; D6=0 005FFC: 3A02 move.w D2, D5 ; D5=7 005FFE: 23C0 003C 0000 move.l D0, $3c0000.l ; sending swapped value of (((((initial A4 value+$c9)^1)+$cc)<<5)+D1+#$7002) + #$f20 to REG_VRAMADDR 006004: D081 add.l D1, D0 ; D0=swapped value of (((((initial A4 value+$c9)^1)+$cc)<<5)+D1+#$7002) + #$f20+#$200000 006006: 51CD FFF6 dbra D5, $5ffe ; D5-1=4, jump back to $5ffe because D5 <> 0 00600A: 2004 move.l D4, D0 ; D0=swapped value of (((((initial A4 value+$c9)^1)+$cc)<<5)+D1+#$7002) + #$f20 00600C: 0686 0001 0000 addi.l #$10000, D6 ; D6=#$10000 006012: D086 add.l D6, D0 ; D0=(swapped value of (((((initial A4 value+$c9)^1)+$cc)<<5)+D1+#$7002) + #$f20)+#$10000 006014: 51CB FFE6 dbra D3, $5ffc ; D3-1=5, jump back to $5ffc because D3 <> 0 006018: 4E75 rts005FDE: EB48 lsl.w #5, D0 ; D0=(((A4+$c9)^1)+$cc)<<5 005FE0: D041 add.w D1, D0 ; D0=((((A4+$c9)^1)+$cc)<<5)+D1 005FE2: 0640 7002 addi.w #$7002, D0 ; D0=((((A4+$c9)^1)+$cc)<<5)+D1+#$7002 005FE6: 4840 swap D0 005FE8: 4E75 rts04BE30: FF02 dc.w $ff02; opcode 111104BB0C: 0004 BB2C ori.b #$2c, D404BB1C: 0004 BB7C ori.b #$7c, D404BC86: 082D 0005 39CD btst #$5, ($39cd,A5) 04BC8C: 6700 0004 beq $4bc92 04BC90: 4E75 rts 04BC92: 082D 0006 39CD btst #$6, ($39cd,A5) 04BC98: 6700 0004 beq $4bc9e 04BC9C: 4E75 rts 04BC9E: 082D 0007 39CD btst #$7, ($39cd,A5) 04BCA4: 6700 0002 beq $4bca8 04BCA8: 4E75 rts005FDE: EB48 lsl.w #5, D0 005FE0: D041 add.w D1, D0 005FE2: 0640 7002 addi.w #$7002, D0 005FE6: 4840 swap D0 005FE8: 4E75 rts005F0C: 1018 move.b (A0)+, D0 ; read byte, inc A0 005F0E: 0C00 00FF cmpi.b #-$1, D0 ; -1 = 0xff 005F12: 6700 000C beq $5f20 ; if D0=#$ff then end the subroutine 005F16: 23C0 003C 0000 move.l D0, $3c0000.l ; else REG_VRAMADDR=D0 005F1C: D081 add.l D1, D0 ; D0=[(A0)+]+#$200000 005F1E: 60EC bra $5f0c ; return to start of subroutine 005F20: 4E75 rts

The 04C4FE subroutine turned out to be too large piece of code, so I had to shatter it by three parts.

04C4FE: 396C 00CC 00D4 move.w ($cc,A4), ($d4,A4) 04C504: 396C 00CE 00D6 move.w ($ce,A4), ($d6,A4) 04C50A: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value 04C50E: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value 04C512: 4EB9 0000 5FDE jsr $5fde.l 04C518: 207C 0006 E7D8 movea.l #$6e7d8, A0 ; A0=#$6e7d8 04C51E: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C522: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04C528: 4EB9 0000 5F0C jsr $5f0c.l 04C52E: 566C 00D4 addq.w #3, ($d4,A4) 04C532: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value+3 04C536: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value 04C53A: 4EB9 0000 5FDE jsr $5fde.l 04C540: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C544: 122C 0070 move.b ($70,A4), D1 ; D1=[A4+$70] value 04C548: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04C54E: 4EB9 0000 5F60 jsr $5f60.l 04C554: 566C 00D4 addq.w #3, ($d4,A4) ; [A4+$cc] value+6 04C558: 7000 moveq #$0, D0 ; D0=0 04C55A: 102C 0070 move.b ($70,A4), D0 ; D0=[A4+$70] value 04C55E: E948 lsl.w #4, D0 ; D0=[A4+$70] value<<4 04C560: 43F9 0007 BD00 lea $7bd00.l, A1 04C566: D2C0 adda.w D0, A1 ; A1=$7bd00+[[A4+$70] value<<4] 04C568: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value+6 04C56C: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value 04C570: 4EB9 0000 5FDE jsr $5fde.l 04C576: 2049 movea.l A1, A0 ; A0=$7bd00+[[A4+$70] value<<4] 04C578: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C57C: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04C582: 4EB9 0000 5F0C jsr $5f0c.l 04C588: 5D6C 00D4 subq.w #6, ($d4,A4) 04C58C: 526C 00D6 addq.w #1, ($d6,A4) 04C590: 302C 00D4 move.w ($d4,A4), D0 ; lowest word of D0=[A4+$cc] value 04C594: 322C 00D6 move.w ($d6,A4), D1 ; lowest word of D1=[A4+$ce] value+1 04C598: 4EB9 0000 5FDE jsr $5fde.l 04C59E: 207C 0006 E7DC movea.l #$6e7dc, A0 ; A0=[$6e7dc] 04C5A4: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C5A8: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04C5AE: 4EB9 0000 5F0C jsr $5f0c.l 04C5B4: 5A6C 00D4 addq.w #5, ($d4,A4) 04C5B8: 302C 00D4 move.w ($d4,A4), D0 ; lowest word of D0=[A4+$cc] value+5 04C5BC: 322C 00D6 move.w ($d6,A4), D1 ; lowest word of D1=[A4+$ce] value+1 04C5C0: 4EB9 0000 5FDE jsr $5fde.l 04C5C6: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C5CA: 122C 00BC move.b ($bc,A4), D1 ; lowest byte of D1=[A4+$bc] value 04C5CE: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04C5D4: 4EB9 0000 5F60 jsr $5f60.l 04C5DA: 566C 00D4 addq.w #3, ($d4,A4) 04C5DE: 302C 00D4 move.w ($d4,A4), D0 ; lowest word of D0=[A4+$cc] value+8 04C5E2: 322C 00D6 move.w ($d6,A4), D1 ; lowest word of D1=[A4+$ce] value+1 04C5E6: 4EB9 0000 5FDE jsr $5fde.l 04C5EC: 207C 0006 E7E2 movea.l #$6e7e2, A0 ; A0=[$6e7e2] 04C5F2: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C5F6: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04C5FC: 4EB9 0000 5F0C jsr $5f0c.l 04C602: 586C 00D4 addq.w #4, ($d4,A4) 04C606: 302C 00D4 move.w ($d4,A4), D0 ; lowest word of D0=[A4+$cc] value+12 04C60A: 322C 00D6 move.w ($d6,A4), D1 ; lowest word of D1=[A4+$ce] value+1 04C60E: 4EB9 0000 5FDE jsr $5fde.l 04C614: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C618: 122C 00D1 move.b ($d1,A4), D1 ; lowest byte of D1=[A4+$d1] value 04C61C: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04C622: 4EB9 0000 5F60 jsr $5f60.l 04C628: 046C 000C 00D4 subi.w #$c, ($d4,A4) 04C62E: 546C 00D6 addq.w #2, ($d6,A4) 04C632: 302C 00D4 move.w ($d4,A4), D0 ; lowest word of D0=[A4+$cc] value 04C636: 322C 00D6 move.w ($d6,A4), D1 ; lowest word of D1=[A4+$ce] value+3 04C63A: 4EB9 0000 5FDE jsr $5fde.l 04C640: 207C 0006 E930 movea.l #$6e930, A0 ; A0=[$6e930] 04C646: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C64A: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04C650: 4EB9 0000 5F0C jsr $5f0c.l 04C656: 526C 00D6 addq.w #1, ($d6,A4) 04C65A: 302C 00D4 move.w ($d4,A4), D0 ; lowest word of D0=[A4+$cc] value 04C65E: 322C 00D6 move.w ($d6,A4), D1 ; lowest word of D1=[A4+$ce] value+4 04C662: 4EB9 0000 5FDE jsr $5fde.l 04C668: 207C 0006 E93A movea.l #$6e93a, A0 ; A0=[$6e93a] 04C66E: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C672: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04C678: 4EB9 0000 5F0C jsr $5f0c.l 04C67E: 526C 00D6 addq.w #1, ($d6,A4) 04C682: 302C 00D4 move.w ($d4,A4), D0 ; lowest word of D0=[A4+$cc] value 04C686: 322C 00D6 move.w ($d6,A4), D1 ; lowest word of D1=[A4+$ce] value+5 04C68A: 4EB9 0000 5FDE jsr $5fde.l 04C690: 207C 0006 E944 movea.l #$6e944, A0 ; A0=[$6e944] 04C696: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C69A: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04C6A0: 4EB9 0000 5F0C jsr $5f0c.l 04C6A6: 526C 00D6 addq.w #1, ($d6,A4) 04C6AA: 302C 00D4 move.w ($d4,A4), D0 ; lowest word of D0=[A4+$cc] value 04C6AE: 322C 00D6 move.w ($d6,A4), D1 ; lowest word of D1=[A4+$ce] value+6 04C6B2: 4EB9 0000 5FDE jsr $5fde.l 04C6B8: 207C 0006 E7F2 movea.l #$6e7f2, A0 ; A0=[$6e7f2] 04C6BE: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C6C2: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04C6C8: 4EB9 0000 5F0C jsr $5f0c.l 04C6CE: 066C 0009 00D4 addi.w #$9, ($d4,A4) 04C6D4: 576C 00D6 subq.w #3, ($d6,A4) 04C6D8: 2C6C 00C0 movea.l ($c0,A4), A6 ; A6=A4+$c0 04C6DC: 7E0F moveq #$f, D7 ; D7=#$f 04C6DE: 7C03 moveq #$3, D6 ; D6=#$3 04C6E0: 7A00 moveq #$0, D5 ; D5=#$0 04C6E2: 302C 00D4 move.w ($d4,A4), D0 ; lowest word of D0=[A4+$cc] value+9 04C6E6: 322C 00D6 move.w ($d6,A4), D1 ; lowest word of D1=[A4+$ce] value+3 04C6EA: 4EB9 0000 5FDE jsr $5fde.l 04C6F0: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C6F4: BA2C 00D0 cmp.b ($d0,A4), D5 04C6F8: 6600 0006 bne $4c700 ; if [A4+$d0] value=0 then skip next operation 04C6FC: 0040 8000 ori.w #$8000, D0 ; else D0=#$8000|#$f00=#$8f00 04C700: 121E move.b (A6)+, D1 ; D1=(A6) value+1 04C702: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04C708: 4EB9 0000 5F60 jsr $5f60.l 04C70E: 566C 00D4 addq.w #3, ($d4,A4) ; [A4+$d4] value=[A4+$cc] value+12 04C712: 5346 subq.w #1, D6 ; D6-1 04C714: 6A00 000E bpl $4c724 ; if D6>0 then skip to $4c724 04C718: 046C 000C 00D4 subi.w #$c, ($d4,A4) ; else [A4+$d4] value=[A4+$cc] value 04C71E: 526C 00D6 addq.w #1, ($d6,A4) ; [A4+$d6]=[A4+$ce] value+4 04C722: 7C03 moveq #$3, D6 ; D6=3 04C724: 5205 addq.b #1, D5 ; D5+1 04C726: 51CF FFBA dbra D7, $4c6e2 ; D7-1, if D7 <> 0 jump back to $4c6e2 04C72A: 046C 0009 00D4 subi.w #$9, ($d4,A4) 04C730: 526C 00D6 addq.w #1, ($d6,A4) 04C734: 7000 moveq #$0, D0 ; D0=0 04C736: 102D 3A5E move.b ($3a5e,A5), D0 04C73A: D040 add.w D0, D0 04C73C: D040 add.w D0, D0 ; D0=[A5+$3a5e] value*4 04C73E: 41FA 05C0 lea ($5c0,PC) ; ($4cd00), A0 04C742: 4E71 nop 04C744: 2E30 0000 move.l (A0,D0.w), D7 ; D7=([A5+$3a5e] value*4)+[$4cd00] value 04C748: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-9 04C74C: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+1 04C750: 4EB9 0000 5FDE jsr $5fde.l 04C756: 2047 movea.l D7, A0 ; A0=[([A5+$3a5e] value*4)+[$4cd00]] 04C758: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C75C: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04C762: 4EB9 0000 5F0C jsr $5f0c.l 04C768: 526C 00D6 addq.w #1, ($d6,A4) 04C76C: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-9 04C770: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+2 04C774: 4EB9 0000 5FDE jsr $5fde.l 04C77A: 207C 0006 E7DC movea.l #$6e7dc, A0 ; A0=[$6e7dc] 04C780: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C784: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04C78A: 4EB9 0000 5F0C jsr $5f0c.l 04C790: 5A6C 00D4 addq.w #5, ($d4,A4) 04C794: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-4 04C798: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+2 04C79C: 4EB9 0000 5FDE jsr $5fde.l 04C7A2: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C7A6: 122D 3A5F move.b ($3a5f,A5), D1 ; D1=[A5+$3a5f] 04C7AA: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04C7B0: 4EB9 0000 5F60 jsr $5f60.l 04C7B6: 5B6C 00D4 subq.w #5, ($d4,A4) 04C7BA: 526C 00D6 addq.w #1, ($d6,A4) 04C7BE: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-9 04C7C2: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+3 04C7C6: 4EB9 0000 5FDE jsr $5fde.l 04C7CC: 207C 0006 E7E2 movea.l #$6e7e2, A0 ; A0=[$6e7e2] 04C7D2: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C7D6: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04C7DC: 4EB9 0000 5F0C jsr $5f0c.l 04C7E2: 586C 00D4 addq.w #4, ($d4,A4) 04C7E6: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-5 04C7EA: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+3 04C7EE: 4EB9 0000 5FDE jsr $5fde.l 04C7F4: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C7F8: 122D 3A61 move.b ($3a61,A5), D1 ; D1=[A5+$3a61] 04C7FC: 243C 0020 0000 move.l #$200000, D204C802: 4EB9 0000 5F60 jsr $5f60.l 04C808: 596C 00D4 subq.w #4, ($d4,A4) 04C80C: 526C 00D6 addq.w #1, ($d6,A4) 04C810: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-9 04C814: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+4 04C818: 4EB9 0000 5FDE jsr $5fde.l 04C81E: 207C 0006 E806 movea.l #$6e806, A0 ; A0=[$6e806] 04C824: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C828: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04C82E: 4EB9 0000 5F0C jsr $5f0c.l 04C834: 506C 00D4 addq.w #8, ($d4,A4) 04C838: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-1 04C83C: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+4 04C840: 4EB9 0000 5FDE jsr $5fde.l 04C846: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C84A: 122D 3A62 move.b ($3a62,A5), D1 ; D1=[A5+$3a62] value 04C84E: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04C854: 4EB9 0000 5F60 jsr $5f60.l 04C85A: 516C 00D4 subq.w #8, ($d4,A4) 04C85E: 526C 00D6 addq.w #1, ($d6,A4) 04C862: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-9 04C866: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+4 04C86A: 4EB9 0000 5FDE jsr $5fde.l 04C870: 207C 0006 E810 movea.l #$6e810, A0 ; A0=[$6e810] 04C876: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C87A: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04C880: 4EB9 0000 5F0C jsr $5f0c.l 04C886: 506C 00D4 addq.w #8, ($d4,A4) 04C88A: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-1 04C88E: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+4 04C892: 4EB9 0000 5FDE jsr $5fde.l 04C898: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C89C: 122D 3A63 move.b ($3a63,A5), D1 ; D1=[A5+$3a63] value 04C8A0: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04C8A6: 4EB9 0000 5F60 jsr $5f60.l 04C8AC: 516C 00D4 subq.w #8, ($d4,A4) 04C8B0: 526C 00D6 addq.w #1, ($d6,A4) 04C8B4: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-9 04C8B8: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+5 04C8BC: 4EB9 0000 5FDE jsr $5fde.l 04C8C2: 207C 0006 E842 movea.l #$6e842, A0 ; A0=[#$6e842] 04C8C8: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C8CC: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04C8D2: 4EB9 0000 5F0C jsr $5f0c.l 04C8D8: 066C 000A 00D4 addi.w #$a, ($d4,A4) 04C8DE: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value+1 04C8E2: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+5 04C8E6: 4EB9 0000 5FDE jsr $5fde.l 04C8EC: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C8F0: 122D 3A5A move.b ($3a5a,A5), D1 ; D1=[A5+$3a5a] value 04C8F4: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04C8FA: 4EB9 0000 5F60 jsr $5f60.l 04C900: 046C 000A 00D4 subi.w #$a, ($d4,A4) 04C906: 526C 00D6 addq.w #1, ($d6,A4) 04C90A: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-9 04C90E: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+6 04C912: 4EB9 0000 5FDE jsr $5fde.l 04C918: 207C 0006 E84E movea.l #$6e84e, A0 ; A0=[$6e84e] 04C91E: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C922: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04C928: 4EB9 0000 5F0C jsr $5f0c.l 04C92E: 066C 000A 00D4 addi.w #$a, ($d4,A4) 04C934: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value+1 04C938: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+6 04C93C: 4EB9 0000 5FDE jsr $5fde.l 04C942: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C946: 122D 3A64 move.b ($3a64,A5), D1 ; D1=[A5+$3a64] value 04C94A: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04C950: 4EB9 0000 5F60 jsr $5f60.l 04C956: 046C 000A 00D4 subi.w #$a, ($d4,A4) 04C95C: 526C 00D6 addq.w #1, ($d6,A4) 04C960: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-9 04C964: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+7 04C968: 4EB9 0000 5FDE jsr $5fde.l 04C96E: 207C 0006 E85A movea.l #$6e85a, A0 ; A0=[$6e85a] 04C974: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C978: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04C97E: 4EB9 0000 5F0C jsr $5f0c.l 04C984: 5A6C 00D4 addq.w #5, ($d4,A4) 04C988: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-4 04C98C: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+7 04C990: 4EB9 0000 5FDE jsr $5fde.l 04C996: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C99A: 322D 0118 move.w ($118,A5), D1 ; D1=[A5+$118] value 04C99E: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04C9A4: 4EB9 0000 5F94 jsr $5f94.l 04C9AA: 586C 00D4 addq.w #4, ($d4,A4) 04C9AE: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value 04C9B2: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+7 04C9B6: 4EB9 0000 5FDE jsr $5fde.l 04C9BC: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C9C0: 322D 011A move.w ($11a,A5), D1 ; D1=[A5+$11a] value 04C9C4: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04C9CA: 4EB9 0000 5F94 jsr $5f94.l 04C9D0: 046C 0009 00D4 subi.w #$9, ($d4,A4) 04C9D6: 526C 00D6 addq.w #1, ($d6,A4) 04C9DA: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-9 04C9DE: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+8 04C9E2: 4EB9 0000 5FDE jsr $5fde.l 04C9E8: 207C 0006 E860 movea.l #$6e860, A0 ; A0=[$6e860] 04C9EE: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04C9F2: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04C9F8: 4EB9 0000 5F0C jsr $5f0c.l 04C9FE: 5A6C 00D4 addq.w #5, ($d4,A4) 04CA02: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-4 04CA06: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+8 04CA0A: 4EB9 0000 5FDE jsr $5fde.l 04CA10: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04CA14: 322D 0318 move.w ($318,A5), D1 ; D1=[A5+$318] value 04CA18: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04CA1E: 4EB9 0000 5F94 jsr $5f94.l 04CA24: 586C 00D4 addq.w #4, ($d4,A4) 04CA28: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value 04CA2C: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+8 04CA30: 4EB9 0000 5FDE jsr $5fde.l 04CA36: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04CA3A: 322D 031A move.w ($31a,A5), D1 ; D1=[A5+$31a] value 04CA3E: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04CA44: 4EB9 0000 5F94 jsr $5f94.l 04CA4A: 046C 0009 00D4 subi.w #$9, ($d4,A4) 04CA50: 526C 00D6 addq.w #1, ($d6,A4) 04CA54: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-9 04CA58: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+9 04CA5C: 4EB9 0000 5FDE jsr $5fde.l 04CA62: 207C 0006 E866 movea.l #$6e866, A0 ; A0=[$6e866] 04CA68: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04CA6C: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04CA72: 4EB9 0000 5F0C jsr $5f0c.l 04CA78: 5A6C 00D4 addq.w #5, ($d4,A4) 04CA7C: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-4 04CA80: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+9 04CA84: 4EB9 0000 5FDE jsr $5fde.l 04CA8A: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04CA8E: 322D 0120 move.w ($120,A5), D1 ; D1=[A5+$120] 04CA92: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04CA98: 4EB9 0000 5F94 jsr $5f94.l 04CA9E: 586C 00D4 addq.w #4, ($d4,A4) 04CAA2: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value 04CAA6: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+9 04CAAA: 4EB9 0000 5FDE jsr $5fde.l 04CAB0: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04CAB4: 322D 0122 move.w ($122,A5), D1 ; D1=[A5+$122] value 04CAB8: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04CABE: 4EB9 0000 5F94 jsr $5f94.l 04CAC4: 046C 0009 00D4 subi.w #$9, ($d4,A4) 04CACA: 526C 00D6 addq.w #1, ($d6,A4) 04CACE: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-9 04CAD2: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+10 04CAD6: 4EB9 0000 5FDE jsr $5fde.l 04CADC: 207C 0006 E86C movea.l #$6e86c, A0 ; A0=[$6e86c] 04CAE2: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04CAE6: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04CAEC: 4EB9 0000 5F0C jsr $5f0c.l 04CAF2: 5A6C 00D4 addq.w #5, ($d4,A4) 04CAF6: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value-4 04CAFA: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+10 04CAFE: 4EB9 0000 5FDE jsr $5fde.l 04CB04: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04CB08: 322D 0320 move.w ($320,A5), D1 ; D1=[A5+$320] value 04CB0C: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04CB12: 4EB9 0000 5F94 jsr $5f94.l 04CB18: 586C 00D4 addq.w #4, ($d4,A4) 04CB1C: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value 04CB20: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+10 04CB24: 4EB9 0000 5FDE jsr $5fde.l 04CB2A: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04CB2E: 322D 0322 move.w ($322,A5), D1 ; D1=[A5+$322] value 04CB32: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04CB38: 4EB9 0000 5F94 jsr $5f94.l 04CB3E: 586C 00D4 addq.w #4, ($d4,A4) 04CB42: 046C 000A 00D6 subi.w #$a, ($d6,A4) 04CB48: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value+4 04CB4C: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value 04CB50: 4EB9 0000 5FDE jsr $5fde.l 04CB56: 207C 0006 E7D8 movea.l #$6e7d8, A0 ; A0=[$6e7d8] 04CB5C: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04CB60: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04CB66: 4EB9 0000 5F0C jsr $5f0c.l 04CB6C: 566C 00D4 addq.w #3, ($d4,A4) 04CB70: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value+7 04CB74: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value 04CB78: 4EB9 0000 5FDE jsr $5fde.l 04CB7E: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04CB82: 122C 00C4 move.b ($c4,A4), D1 ; D1=[A4+$c4] value 04CB86: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04CB8C: 4EB9 0000 5F60 jsr $5f60.l 04CB92: 576C 00D4 subq.w #3, ($d4,A4) 04CB96: 526C 00D6 addq.w #1, ($d6,A4) 04CB9A: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value+4 04CB9E: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+1 04CBA2: 4EB9 0000 5FDE jsr $5fde.l 04CBA8: 207C 0006 E7DC movea.l #$6e7dc, A0 ; A0=[$6e7dc] 04CBAE: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04CBB2: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04CBB8: 4EB9 0000 5F0C jsr $5f0c.l 04CBBE: 5A6C 00D4 addq.w #5, ($d4,A4) 04CBC2: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value+9 04CBC6: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+1 04CBCA: 4EB9 0000 5FDE jsr $5fde.l 04CBD0: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04CBD4: 122C 00C5 move.b ($c5,A4), D1 ; D1=[A4+$c5] value 04CBD8: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04CBDE: 4EB9 0000 5F60 jsr $5f60.l 04CBE4: 5B6C 00D4 subq.w #5, ($d4,A4) 04CBE8: 526C 00D6 addq.w #1, ($d6,A4) 04CBEC: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value+4 04CBF0: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+2 04CBF4: 4EB9 0000 5FDE jsr $5fde.l 04CBFA: 207C 0006 E7E2 movea.l #$6e7e2, A0 ; A0=[$6e7e2]04CC00: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04CC04: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04CC0A: 4EB9 0000 5F0C jsr $5f0c.l 04CC10: 586C 00D4 addq.w #4, ($d4,A4) 04CC14: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value+8 04CC18: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+2 04CC1C: 4EB9 0000 5FDE jsr $5fde.l 04CC22: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04CC26: 122C 00C6 move.b ($c6,A4), D1 ; D1=[A4+$c6] value 04CC2A: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04CC30: 4EB9 0000 5F60 jsr $5f60.l 04CC36: 576C 00D4 subq.w #3, ($d4,A4) 04CC3A: 5A6C 00D6 addq.w #5, ($d6,A4) 04CC3E: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value+5 04CC42: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+7 04CC46: 4EB9 0000 5FDE jsr $5fde.l 04CC4C: 207C 0006 E872 movea.l #$6e872, A0 ; A0=[$6e872] 04CC52: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04CC56: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04CC5C: 4EB9 0000 5F0C jsr $5f0c.l 04CC62: 302D 0118 move.w ($118,A5), D0 ; D0=[A5+$118] value 04CC66: 906D 0318 sub.w ($318,A5), D0 ; D0=[A5+$118] value-[A5+$318] value 04CC6A: 4EB9 0000 2F94 jsr $2f94.l 04CC70: 1940 00C8 move.b D0, ($c8,A4) ; [A4+$c8] value=([A5+$118] value-[A5+$318] value) or -([A5+$118] value-[A5+$318] value) 04CC74: 566C 00D4 addq.w #3, ($d4,A4) 04CC78: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value+8 04CC7C: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+7 04CC80: 4EB9 0000 5FDE jsr $5fde.l 04CC86: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04CC8A: 122C 00C8 move.b ($c8,A4), D1 ; D1=[A4+$c8] value 04CC8E: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04CC94: 4EB9 0000 5F60 jsr $5f60.l 04CC9A: 576C 00D4 subq.w #3, ($d4,A4) 04CC9E: 546C 00D6 addq.w #2, ($d6,A4) 04CCA2: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value+5 04CCA6: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+9 04CCAA: 4EB9 0000 5FDE jsr $5fde.l 04CCB0: 207C 0006 E876 movea.l #$6e876, A0 ; A0=[$6e876] 04CCB6: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04CCBA: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04CCC0: 4EB9 0000 5F0C jsr $5f0c.l 04CCC6: 302D 0120 move.w ($120,A5), D0 ; D0=[A5+$120] value 04CCCA: 906D 0320 sub.w ($320,A5), D0 ; D0=[A5+$120] value-[A5+$320] value 04CCCE: 4EB9 0000 2F94 jsr $2f94.l 04CCD4: 1940 00C8 move.b D0, ($c8,A4) ; [A4+$c8] value=([A5+$120] value-[A5+$320] value) or -([A5+$120] value-[A5+$320] value) 04CCD8: 566C 00D4 addq.w #3, ($d4,A4) 04CCDC: 302C 00D4 move.w ($d4,A4), D0 ; D0=old [A4+$d4] value+8 04CCE0: 322C 00D6 move.w ($d6,A4), D1 ; D1=old [A4+$d6] value+9 04CCE4: 4EB9 0000 5FDE jsr $5fde.l 04CCEA: 303C 0F00 move.w #$f00, D0 ; lowest word of D0=#$f00 04CCEE: 122C 00C8 move.b ($c8,A4), D1 ; D1=[A4+$c8] value 04CCF2: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04CCF8: 4EB9 0000 5F60 jsr $5f60.l 04CCFE: 4E75 rts

Hello, It's me again after return from vacation. For now only 2 P1_CURRENT interactions is left in the whole KoF '94 disassembly.

04DB40: 4DF9 0010 FD96 lea $10fd96.l, A6 04DB46: 4EBA 002E jsr ($2e,PC) ; ($4db76) 04DB4A: 4E71 nop 04DB4C: 4EBA 016C jsr ($16c,PC) ; ($4dcba) 04DB50: 4E71 nop 04DB52: 4EBA 012C jsr ($12c,PC) ; ($4dc80) 04DB56: 4E71 nop 04DB58: 4E75 rts04DB76: 102D 39CD move.b ($39cd,A5), D0 ; D0=[A5+$39cd] value 04DB7A: 0240 000F andi.w #$f, D0 ; D0=[A5+$39cd] value&#$f 04DB7E: 41FA 0030 lea ($30,PC) ; ($4dbb0), A0 ; A0=[$4dbb0] 04DB82: 4E71 nop 04DB84: 7200 moveq #$0, D1 ; D1=0 04DB86: 1230 0000 move.b (A0,D0.w), D1 ; D1=[$4dbb0] value+0=[$4dbb0] value 04DB8A: 6B00 0022 bmi $4dbae ; if [$4dbb0] value is negative then end the subroutine ahead of time 04DB8E: D241 add.w D1, D1 04DB90: D241 add.w D1, D1 ; else D1=[$4dbb0] value*4 04DB92: 41FA 002C lea ($2c,PC) ; ($4dbc0), A0 ; A0=[$4dbc0] 04DB96: 4E71 nop 04DB98: 082D 0002 39F5 btst #$2, ($39f5,A5) 04DB9E: 6700 0008 beq $4dba8; if 3rd bit of [A5+$39f5] value is equal to 0 then skip next 2 steps 04DBA2: 41FA 002C lea ($2c,PC) ; ($4dbd0), A0 ; else A0=[$4dbd0] 04DBA6: 4E71 nop 04DBA8: 2070 1000 movea.l (A0,D1.w), A0 ; A0=[$4dbd0+([$4dbb0] value*4)] 04DBAC: 4E90 jsr (A0) ; goto [$4dbd0+([$4dbb0] value*4)] subroutine 04DBAE: 4E75 rts04DCBA: 396C 00CC 00D4 move.w ($cc,A4), ($d4,A4) ; [A4+$d4] value=[A4+$cc] value 04DCC0: 396C 00CE 00D6 move.w ($ce,A4), ($d6,A4) ; [A4+$d6] value=[A4+$ce] value 04DCC6: 7000 moveq #$0, D0 ; D0=0 04DCC8: 102D 3A5E move.b ($3a5e,A5), D0 ; D0=[A5+$3a5e] value 04DCCC: D040 add.w D0, D0 04DCCE: D040 add.w D0, D0 ; D0=[A5+$3a5e] value*4 04DCD0: 41FA F02E lea (-$fd2,PC) ; ($4cd00), A0 ; A0=[$4cd00] 04DCD4: 2E30 0000 move.l (A0,D0.w), D7 ; D7=[$4cd00] value+([A5+$3a5e] value*4) 04DCD8: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value 04DCDC: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value 04DCE0: 4EB9 0000 5FDE jsr $5fde.l 04DCE6: 2047 movea.l D7, A0 ; A0=D7 value 04DCE8: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped (([A4+$cc] value<<5)+[A4+$ce] value+#$7002) value=#$f00 04DCEC: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04DCF2: 4EB9 0000 5F0C jsr $5f0c.l 04DCF8: 526C 00D6 addq.w #1, ($d6,A4) 04DCFC: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value 04DD00: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value+1 04DD04: 4EB9 0000 5FDE jsr $5fde.l 04DD0A: 207C 0006 E7DC movea.l #$6e7dc, A0 ; A0=[#$6e7dc] 04DD10: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped (([A4+$cc] value<<5)+([A4+$ce] value+1)+#$7002) value=#$f00 04DD14: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04DD1A: 4EB9 0000 5F0C jsr $5f0c.l 04DD20: 5A6C 00D4 addq.w #5, ($d4,A4) 04DD24: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value+5 04DD28: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value+1 04DD2C: 4EB9 0000 5FDE jsr $5fde.l 04DD32: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped ((([A4+$cc] value+5)<<5)+([A4+$ce] value+1)+#$7002) value=#$f00 04DD36: 122D 3A5F move.b ($3a5f,A5), D1 ; D1=[A5+$3a5f] value 04DD3A: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04DD40: 4EB9 0000 5F60 jsr $5f60.l 04DD46: 5B6C 00D4 subq.w #5, ($d4,A4) 04DD4A: 526C 00D6 addq.w #1, ($d6,A4) 04DD4E: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value 04DD52: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value+2 04DD56: 4EB9 0000 5FDE jsr $5fde.l 04DD5C: 207C 0006 E7E2 movea.l #$6e7e2, A0 ; A0=[#$6e7e2] 04DD62: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped (([A4+$cc] value<<5)+([A4+$ce] value+2)+#$7002) value=#$f00 04DD66: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04DD6C: 4EB9 0000 5F0C jsr $5f0c.l 04DD72: 586C 00D4 addq.w #4, ($d4,A4) 04DD76: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value+4 04DD7A: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value+2 04DD7E: 4EB9 0000 5FDE jsr $5fde.l 04DD84: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped ((([A4+$cc] value+4)<<5)+([A4+$ce] value+2)+#$7002) value=#$f00 04DD88: 122D 3A61 move.b ($3a61,A5), D1 ; D1=[A5+$3a61] value 04DD8C: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04DD92: 4EB9 0000 5F60 jsr $5f60.l 04DD98: 596C 00D4 subq.w #4, ($d4,A4) 04DD9C: 526C 00D6 addq.w #1, ($d6,A4) 04DDA0: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value 04DDA4: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value+3 04DDA8: 4EB9 0000 5FDE jsr $5fde.l 04DDAE: 207C 0006 E806 movea.l #$6e806, A0 ; A0=[#$6e806] 04DDB4: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped (([A4+$cc] value<<5)+([A4+$ce] value+3)+#$7002) value=#$f00 04DDB8: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04DDBE: 4EB9 0000 5F0C jsr $5f0c.l 04DDC4: 506C 00D4 addq.w #8, ($d4,A4) 04DDC8: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value+8 04DDCC: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value+3 04DDD0: 4EB9 0000 5FDE jsr $5fde.l 04DDD6: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped ((([A4+$cc] value+8)<<5)+([A4+$ce] value+3)+#$7002) value=#$f00 04DDDA: 122D 3A62 move.b ($3a62,A5), D1 ; D1=[A5+$3a62] value 04DDDE: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04DDE4: 4EB9 0000 5F60 jsr $5f60.l 04DDEA: 516C 00D4 subq.w #8, ($d4,A4) 04DDEE: 526C 00D6 addq.w #1, ($d6,A4) 04DDF2: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value 04DDF6: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value+4 04DDFA: 4EB9 0000 5FDE jsr $5fde.l 04DE00: 207C 0006 E810 movea.l #$6e810, A0 ; A0=[#$6e810] 04DE06: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped (([A4+$cc] value<<5)+([A4+$ce] value+4)+#$7002) value=#$f00 04DE0A: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04DE10: 4EB9 0000 5F0C jsr $5f0c.l 04DE16: 506C 00D4 addq.w #8, ($d4,A4) 04DE1A: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value+8 04DE1E: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value+4 04DE22: 4EB9 0000 5FDE jsr $5fde.l 04DE28: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped ((([A4+$cc] value+8)<<5)+([A4+$ce] value+4)+#$7002) value=#$f00 04DE2C: 122D 3A63 move.b ($3a63,A5), D1 ; D1=[A5+$3a63] value 04DE30: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04DE36: 4EB9 0000 5F60 jsr $5f60.l 04DE3C: 516C 00D4 subq.w #8, ($d4,A4) 04DE40: 526C 00D6 addq.w #1, ($d6,A4) 04DE44: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value 04DE48: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value+5 04DE4C: 4EB9 0000 5FDE jsr $5fde.l 04DE52: 207C 0006 E842 movea.l #$6e842, A0 ; A0=[#$6e842] 04DE58: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped (([A4+$cc] value<<5)+([A4+$ce] value+5)+#$7002) value=#$f00 04DE5C: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04DE62: 4EB9 0000 5F0C jsr $5f0c.l 04DE68: 066C 000A 00D4 addi.w #$a, ($d4,A4) 04DE6E: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value+#$a 04DE72: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value+5 04DE76: 4EB9 0000 5FDE jsr $5fde.l 04DE7C: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped ((([A4+$cc] value+#$a)<<5)+([A4+$ce] value+5)+#$7002) value=#$f00 04DE80: 122D 3A5A move.b ($3a5a,A5), D1 ; D1=[A5+$3a5a] value 04DE84: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04DE8A: 4EB9 0000 5F60 jsr $5f60.l 04DE90: 046C 000A 00D4 subi.w #$a, ($d4,A4) 04DE96: 526C 00D6 addq.w #1, ($d6,A4) 04DE9A: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value 04DE9E: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value+6 04DEA2: 4EB9 0000 5FDE jsr $5fde.l 04DEA8: 207C 0006 E84E movea.l #$6e84e, A0 ; A0=[#$6e84e] 04DEAE: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped (([A4+$cc] value<<5)+([A4+$ce] value+6)+#$7002) value=#$f00 04DEB2: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04DEB8: 4EB9 0000 5F0C jsr $5f0c.l 04DEBE: 066C 000A 00D4 addi.w #$a, ($d4,A4) 04DEC4: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value+#$a 04DEC8: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value+6 04DECC: 4EB9 0000 5FDE jsr $5fde.l 04DED2: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped ((([A4+$cc] value+#$a)<<5)+([A4+$ce] value+6)+#$7002) value=#$f00 04DED6: 122D 3A64 move.b ($3a64,A5), D1 ; D1=[A5+$3a64] value 04DEDA: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04DEE0: 4EB9 0000 5F60 jsr $5f60.l 04DEE6: 046C 000A 00D4 subi.w #$a, ($d4,A4) 04DEEC: 526C 00D6 addq.w #1, ($d6,A4) 04DEF0: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value 04DEF4: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value+7 04DEF8: 4EB9 0000 5FDE jsr $5fde.l 04DEFE: 207C 0006 E85A movea.l #$6e85a, A0 ; A0=[#$6e85a] 04DF04: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped (([A4+$cc] value<<5)+([A4+$ce] value+7)+#$7002) value=#$f00 04DF08: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04DF0E: 4EB9 0000 5F0C jsr $5f0c.l 04DF14: 5A6C 00D4 addq.w #5, ($d4,A4) 04DF18: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value+5 04DF1C: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value+7 04DF20: 4EB9 0000 5FDE jsr $5fde.l 04DF26: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped ((([A4+$cc] value+5)<<5)+([A4+$ce] value+7)+#$7002) value=#$f00 04DF2A: 322D 0118 move.w ($118,A5), D1 ; D1=[A5+$118] value 04DF2E: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04DF34: 4EB9 0000 5F94 jsr $5f94.l 04DF3A: 586C 00D4 addq.w #4, ($d4,A4) 04DF3E: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value+9 04DF42: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value+7 04DF46: 4EB9 0000 5FDE jsr $5fde.l 04DF4C: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped ((([A4+$cc] value+9)<<5)+([A4+$ce] value+7)+#$7002) value=#$f00 04DF50: 322D 011A move.w ($11a,A5), D1 ; D1=[A5+$11a] value 04DF54: 243C 0020 0000 move.l #$200000, D2 ; D2=#$200000 04DF5A: 4EB9 0000 5F94 jsr $5f94.l 04DF60: 046C 0009 00D4 subi.w #$9, ($d4,A4) 04DF66: 526C 00D6 addq.w #1, ($d6,A4) 04DF6A: 302C 00D4 move.w ($d4,A4), D0 ; D0=[A4+$cc] value 04DF6E: 322C 00D6 move.w ($d6,A4), D1 ; D1=[A4+$ce] value+8 04DF72: 4EB9 0000 5FDE jsr $5fde.l 04DF78: 207C 0006 E860 movea.l #$6e860, A0 ; A0=[#$6e860] 04DF7E: 303C 0F00 move.w #$f00, D0 ; lowest word of swapped (([A4+$cc] value<<5)+([A4+$ce] value+8)+#$7002) value=#$f00 04DF82: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000

While you're analyzing the pieces of P1_CURRENT interaction code, I'll comment the all P1_CHANGE interaction code.

03311E: 0839 0004 0010 FD97 btst #$4, $10fd97.l 033126: 6700 0008 beq $33130 ; if (p1e&JOY_A)=0 then skip next 2 steps 03312A: 522C 0073 addq.b #1, ($73,A4) ; else [A4+$73] value+1 03312E: 4E75 rts 033130: 0839 0005 0010 FD97 btst #$5, $10fd97.l 033138: 6700 0008 beq $33142 ; if (p1e&JOY_B)=0 then skip next 2 steps 03313C: 532C 0073 subq.b #1, ($73,A4) ; else [A4+$73] value-1 033140: 4E75 rts 033142: 0839 0006 0010 FD97 btst #$6, $10fd97.l 03314A: 6700 0008 beq $33154 ; if (p1e&JOY_C)=0 then skip next 2 steps 03314E: 522C 0071 addq.b #1, ($71,A4) ; else [A4+$71] value+1 033152: 4E75 rts 033154: 0839 0007 0010 FD97 btst #$7, $10fd97.l 03315C: 6700 0006 beq $33164 ; if (p1e&JOY_D)=0 then end the subroutine 033160: 532C 0071 subq.b #1, ($71,A4) ; else [A4+$71] value-1 033164: 4E75 rts033408: 0839 0004 0010 FD97 btst #$4, $10fd97.l 033410: 6700 000C beq $3341e ; if (p1e&JOY_A)=0 then skip next 2 steps 033414: 06AC 0000 1000 0058 addi.l #$1000, ($58,A4) ; else [A4+$58] value+#$1000 03341C: 4E75 rts 03341E: 0839 0005 0010 FD97 btst #$5, $10fd97.l 033426: 6700 000C beq $33434 ; if (p1e&JOY_B)=0 then skip next 2 steps 03342A: 06AC 0000 0400 005C addi.l #$400, ($5c,A4) ; else [A5+$5c] value+#$400 033432: 4E75 rts 033434: 0839 0006 0010 FD97 btst #$6, $10fd97.l 03343C: 6700 000C beq $3344a ; if (p1e&JOY_C)=0 then skip next 2 steps 033440: 06AC 0000 1000 0064 addi.l #$1000, ($64,A4) ; else [A4+$64] value+#$1000 033448: 4E75 rts 03344A: 0839 0007 0010 FD97 btst #$7, $10fd97.l 033452: 6700 0014 beq $33468 ; if (p1e&JOY_D)=0 then end the subroutine 033456: 526C 0070 addq.w #1, ($70,A4) ; else [A4+$70] value+#1 03345A: 0C6C 0018 0070 cmpi.w #$18, ($70,A4) 033460: 6300 0006 bls $33468 ; if old [A4+$70] value+#1<=#$18 then end the subroutine 033464: 426C 0070 clr.w ($70,A4) ; else [A4+$70] value=0 033468: 4E75 rts 03346A: 0839 0004 0010 FD97 btst #$4, $10fd97.l 033472: 6700 0020 beq $33494 ; if (p1e&JOY_A)=0 then skip next 5 steps 033476: 04AC 0000 1000 0058 subi.l #$1000, ($58,A4) ; [A4+$58] value-#$1000 03347E: 0CAC 0000 1000 0058 cmpi.l #$1000, ($58,A4) 033486: 6400 006E bcc $334f6 ; if old [A4+$58] value-#$1000>=#$1000 then end the subroutine 03348A: 297C 0000 1000 0058 move.l #$1000, ($58,A4) ; else [A4+$58] value=#$1000 033492: 4E75 rts 033494: 0839 0005 0010 FD97 btst #$5, $10fd97.l 03349C: 6700 0020 beq $334be ; if (p1e&JOY_B)=0 then skip next 5 steps 0334A0: 04AC 0000 0400 005C subi.l #$400, ($5c,A4) ; [A4+$5c] value-#$400 0334A8: 0CAC 0000 0400 005C cmpi.l #$400, ($5c,A4) 0334B0: 6400 0044 bcc $334f6 ; if old [A4+$5c] value-#$400>=#$400 then end the subroutine 0334B4: 297C 0000 0400 005C move.l #$400, ($5c,A4) ; else [A4+$5c] value=#$400 0334BC: 4E75 rts 0334BE: 0839 0006 0010 FD97 btst #$6, $10fd97.l 0334C6: 6700 0014 beq $334dc ; if (p1e&JOY_C)=0 then skip next 4 steps 0334CA: 04AC 0000 1000 0064 subi.l #$1000, ($64,A4) 0334D2: 6400 0022 bcc $334f6 ; if [A4+$64] value>=#$1000 then end the subroutine 0334D6: 42AC 0064 clr.l ($64,A4) ; else [A4+$64] value=0 0334DA: 4E75 rts 0334DC: 0839 0007 0010 FD97 btst #$7, $10fd97.l 0334E4: 6700 0010 beq $334f6 ; if (p1e&JOY_D)=0 then end the subroutine 0334E8: 536C 0070 subq.w #1, ($70,A4) 0334EC: 6400 0008 bcc $334f6 ; if [A4+$70] value>=1 then end the subroutine 0334F0: 397C 0018 0070 move.w #$18, ($70,A4) ; else [A4+$70] value=#$18 0334F6: 4E75 rts04AC56: 0839 0004 0010 FD97 btst #$4, $10fd97.l 04AC5E: 6700 0024 beq $4ac84 ; if (p1e&JOY_A)=0 then skip to $4ac84 04AC62: 4EBA 04B4 jsr ($4b4,PC) ; ($4b118) ; else goto $4b118 subroutine 04AC66: 4E71 nop 04AC68: 1E04 move.b D4, D7 04AC6A: 4EBA 0186 jsr ($186,PC) ; ($4adf2) 04AC6E: 4E71 nop 04AC70: 1807 move.b D7, D4 04AC72: 4EBA 04CC jsr ($4cc,PC) ; ($4b140) 04AC76: 4E71 nop 04AC78: 4EBA 0504 jsr ($504,PC) ; ($4b17e) 04AC7C: 4E71 nop 04AC7E: 3081 move.w D1, (A0) 04AC80: 6000 0162 bra $4ade4 04AC84: 0839 0005 0010 FD97 btst #$5, $10fd97.l 04AC8C: 6700 0024 beq $4acb2 ; if (p1e&JOY_B)=0 then skip to $4acb2 04AC90: 4EBA 0486 jsr ($486,PC) ; ($4b118) ; else goto $4b118 subroutine 04AC94: 4E71 nop 04AC96: 1E03 move.b D3, D7 04AC98: 4EBA 0158 jsr ($158,PC) ; ($4adf2) 04AC9C: 4E71 nop 04AC9E: 1607 move.b D7, D3 04ACA0: 4EBA 049E jsr ($49e,PC) ; ($4b140) 04ACA4: 4E71 nop 04ACA6: 4EBA 04D6 jsr ($4d6,PC) ; ($4b17e) 04ACAA: 4E71 nop 04ACAC: 3081 move.w D1, (A0) 04ACAE: 6000 0134 bra $4ade4 04ACB2: 0839 0006 0010 FD97 btst #$6, $10fd97.l 04ACBA: 6700 0024 beq $4ace0 ; if (p1e&JOY_C)=0 then skip to $4ace0 04ACBE: 4EBA 0458 jsr ($458,PC) ; ($4b118) ; else goto $4b118 subroutine 04ACC2: 4E71 nop 04ACC4: 1E02 move.b D2, D7 04ACC6: 4EBA 012A jsr ($12a,PC) ; ($4adf2) 04ACCA: 4E71 nop 04ACCC: 1407 move.b D7, D2 04ACCE: 4EBA 0470 jsr ($470,PC) ; ($4b140) 04ACD2: 4E71 nop 04ACD4: 4EBA 04A8 jsr ($4a8,PC) ; ($4b17e) 04ACD8: 4E71 nop 04ACDA: 3081 move.w D1, (A0) 04ACDC: 6000 0106 bra $4ade4 04ACE0: 0839 0007 0010 FD97 btst #$7, $10fd97.l 04ACE8: 6700 00FA beq $4ade4 ; if (p1e&JOY_D)=0 then end the subroutine 04ACEC: 41F9 0040 0000 lea $400000.l, A0 ; else A0=[$400000] 04ACF2: 7000 moveq #$0, D0 ; D0=0 04ACF4: 102D 5678 move.b ($5678,A5), D0 ; D0=[A5+$5678] value 04ACF8: EB48 lsl.w #5, D0 ; D0=[A5+$5678] value<<5 04ACFA: D1C0 adda.l D0, A0 ; A0=[[A5+$5678] value<<5] 04ACFC: 43ED 567A lea ($567a,A5), A1 ; A1=[A5+$567a] 04AD00: 303C 000F move.w #$f, D0 ; D0=#$f 04AD04: 32D8 move.w (A0)+, (A1)+ ; [A5+$567b] value=[[A5+$5678] value<<5] value 04AD06: 51C8 FFFC dbra D0, $4ad04 ; D0-1, if D0<>0 then jump back to previous step 04AD0A: 6000 00D8 bra $4ade4 ; else if D0=0 then end the subroutine 04AD0E: 0839 0004 0010 FD97 btst #$4, $10fd97.l 04AD16: 6700 0024 beq $4ad3c ; if (p1e&JOY_A)=0 then skip to $4ad3c 04AD1A: 4EBA 03FC jsr ($3fc,PC) ; ($4b118) 04AD1E: 4E71 nop 04AD20: 1E04 move.b D4, D7 04AD22: 4EBA 00DC jsr ($dc,PC) ; ($4ae00) 04AD26: 4E71 nop 04AD28: 1807 move.b D7, D4 04AD2A: 4EBA 0414 jsr ($414,PC) ; ($4b140) 04AD2E: 4E71 nop 04AD30: 4EBA 044C jsr ($44c,PC) ; ($4b17e) 04AD34: 4E71 nop 04AD36: 3081 move.w D1, (A0) 04AD38: 6000 00AA bra $4ade4 04AD3C: 0839 0005 0010 FD97 btst #$5, $10fd97.l 04AD44: 6700 0024 beq $4ad6a ; if (p1e&JOY_B)=0 then skip to $4ad6a 04AD48: 4EBA 03CE jsr ($3ce,PC) ; ($4b118) 04AD4C: 4E71 nop 04AD4E: 1E03 move.b D3, D7 04AD50: 4EBA 00AE jsr ($ae,PC) ; ($4ae00) 04AD54: 4E71 nop 04AD56: 1607 move.b D7, D3 04AD58: 4EBA 03E6 jsr ($3e6,PC) ; ($4b140) 04AD5C: 4E71 nop 04AD5E: 4EBA 041E jsr ($41e,PC) ; ($4b17e) 04AD62: 4E71 nop 04AD64: 3081 move.w D1, (A0) 04AD66: 6000 007C bra $4ade4 04AD6A: 0839 0006 0010 FD97 btst #$6, $10fd97.l 04AD72: 6700 0024 beq $4ad98 ; if (p1e&JOY_C)=0 then skip to $4ad98 04AD76: 4EBA 03A0 jsr ($3a0,PC) ; ($4b118) ; else goto $4b118 subroutine 04AD7A: 4E71 nop 04AD7C: 1E02 move.b D2, D7 ; D7=(([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f)*2)|((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)&1) 04AD7E: 4EBA 0080 jsr ($80,PC) ; ($4ae00) 04AD82: 4E71 nop 04AD84: 1407 move.b D7, D2 ; D2=((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f)*2)|((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)&1))-1 or #$1f 04AD86: 4EBA 03B8 jsr ($3b8,PC) ; ($4b140) 04AD8A: 4E71 nop 04AD8C: 4EBA 03F0 jsr ($3f0,PC) ; ($4b17e) 04AD90: 4E71 nop 04AD92: 3081 move.w D1, (A0) 04AD94: 6000 004E bra $4ade4 04AD98: 0839 0007 0010 FD97 btst #$7, $10fd97.l 04ADA0: 6700 0042 beq $4ade4 ; if (p1e&JOY_D)=0 then end the subroutine 04ADA4: 0A2D 0004 569A eori.b #$4, ($569a,A5) ; else [A5+$569a] value^4 04ADAA: 3B6D 566E 566A move.w ($566e,A5), ($566a,A5) ; [A5+$566a] value=[A5+$566e] value 04ADB0: 3B6D 5670 566C move.w ($5670,A5), ($566c,A5) ; [A5+$566c] value=[A5+$5670] value 04ADB6: 4EBA 04A2 jsr ($4a2,PC) ; ($4b25a) 04ADBA: 4E71 nop 04ADBC: 41FA 05B0 lea ($5b0,PC) ; ($4b36e), A0 04ADC0: 4E71 nop 04ADC2: 303C 8F00 move.w #$8f00, D0 ; lowest word of swapped (([A5+$566e] value<<5)+[A5+$5670] value+#$7002) value=#$8f00 04ADC6: 082D 0002 569A btst #$2, ($569a,A5) 04ADCC: 6600 0006 bne $4add4 ; if 3rd bit of old [A5+$569a] value^4 is not equal to 0 then skip next step 04ADD0: 303C 0F00 move.w #$f00, D0 ; else lowest word of swapped (([A5+$566e] value<<5)+[A5+$5670] value+#$7002) value=#$f00 04ADD4: 223C 0020 0000 move.l #$200000, D1 ; D1=#$200000 04ADDA: 4EBA 04E4 jsr ($4e4,PC) ; ($4b2c0) 04ADDE: 4E71 nop 04ADE0: 6000 0002 bra $4ade4 ; end the subroutine 04ADE4: 4E75 rts04B25A: 302D 566A move.w ($566a,A5), D0 ; D0=[A5+$566e] value 04B25E: EB48 lsl.w #5, D0 ; D0=[A5+$566e] value<<5 04B260: D06D 566C add.w ($566c,A5), D0 ; D0=([A5+$566e] value<<5)+[A5+$5670] value 04B264: 0640 7002 addi.w #$7002, D0 ; D0=([A5+$566e] value<<5)+[A5+$5670] value+#$7002 04B268: 4840 swap D0 04B26A: 4E75 rts04B36E: 5041 addq.w #8, D104B2C0: 1018 move.b (A0)+, D0 ; D0=[$4b36f] value=#$41 at the beginning of cycle 04B2C2: 6B00 000C bmi $4b2d0 04B2C6: 23C0 003C 0000 move.l D0, $3c0000.l ; send D0 to REG_VRAMADDR 04B2CC: D081 add.l D1, D0 ; D0+#$200000 04B2CE: 60F0 bra $4b2c0 ; return to the beginning of cycle 04B2D0: 4E75 rts04B118: 41F9 0040 0000 lea $400000.l, A0 ; A0=[$400000] 04B11E: 7000 moveq #$0, D0 ; D0=0 04B120: 102D 5678 move.b ($5678,A5), D0 ; D0=[A5+$5678] value 04B124: EB48 lsl.w #5, D0 ; D0=[A5+$5678] value<<5 04B126: D1C0 adda.l D0, A0 ; A0=[$400000+([A5+$5678] value<<5)] 04B128: 302D 5672 move.w ($5672,A5), D0 ; D0=[A5+$5672] value 04B12C: D040 add.w D0, D0 ; D0=[A5+$5672] value*2 04B12E: D1C0 adda.l D0, A0 ; A0=[$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] 04B130: 3210 move.w (A0), D1 ; D1=[$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value 04B132: 4EBA FF9C jsr (-$64,PC) ; ($4b0d0) 04B136: 4EBA FFB2 jsr (-$4e,PC) ; ($4b0ea) 04B13A: 4EBA FFC2 jsr (-$3e,PC) ; ($4b0fe) 04B13E: 4E75 rts04B0D0: 3401 move.w D1, D2 ; D2=[$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value 04B0D2: 3E01 move.w D1, D7 ; D7=[$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value 04B0D4: 0247 F000 andi.w #$f000, D7 ; D7=[$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000 04B0D8: E95F rol.w #4, D7 ; D7=([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4 04B0DA: 3A07 move.w D7, D5 ; D5=([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4 04B0DC: 0245 0001 andi.w #$1, D5 ; D5=(([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)&1 04B0E0: 0242 000F andi.w #$f, D2 ; D2=[$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f 04B0E4: D442 add.w D2, D2 ; D2=([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f)*2 04B0E6: 8445 or.w D5, D2 ; D2=(([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f)*2)|((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)&1) 04B0E8: 4E75 rts 04B0EA: 3601 move.w D1, D3 ; D3=[$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value 04B0EC: 0243 00F0 andi.w #$f0, D3 ; D3=[$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f0 04B0F0: E64B lsr.w #3, D3 ; D3=([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f0)>>3 04B0F2: E24F lsr.w #1, D7 ; D7=(([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)>>1 04B0F4: 3A07 move.w D7, D5 ; D5=(([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)>>1 04B0F6: 0245 0001 andi.w #$1, D5 ; D5=((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)>>1)&1 04B0FA: 8645 or.w D5, D3 ; D3=(((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)>>1)&1)|(([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f0)>>3) 04B0FC: 4E75 rts 04B0FE: 3801 move.w D1, D4 ; D4=[$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value 04B100: 0244 0F00 andi.w #$f00, D4 ; D4=[$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f00 04B104: 3F04 move.w D4, -(A7) ; [A7-1] value=[$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f00 04B106: 7800 moveq #$0, D4 ; D4=0 04B108: 181F move.b (A7)+, D4 ; D4=[A7+1] value 04B10A: D844 add.w D4, D4 ; D4=[A7+1] value*2 04B10C: E24F lsr.w #1, D7 ; D7=(([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)>>2 04B10E: 3A07 move.w D7, D5 ; D5=(([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)>>2 04B110: 0245 0001 andi.w #$1, D5 ; D5=((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)>>2)&1 04B114: 8845 or.w D5, D4 ; D4=(((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)>>2)&1)|([A7+1] value*2) 04B116: 4E75 rts04AE00: 5307 subq.b #1, D7 ; D7=((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f)*2)|((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)&1))-1 04AE02: 6A00 0006 bpl $4ae0a ; if ((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f)*2)|((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)&1))-1 is positive then end the subroutine 04AE06: 1E3C 001F move.b #$1f, D7 ; else D7=#$1f 04AE0A: 4E75 rts04B140: 3B6D 566E 566A move.w ($566e,A5), ($566a,A5) 04B146: 3B6D 5670 566C move.w ($5670,A5), ($566c,A5) 04B14C: 546D 566A addq.w #2, ($566a,A5) ; [A5+$566e] value+2 04B150: 546D 566C addq.w #2, ($566c,A5) ; [A5+$5670] value+2 04B154: 302D 5672 move.w ($5672,A5), D0 ; D0=[A5+$5672] value 04B158: D16D 566C add.w D0, ($566c,A5) ; [A5+$566c] value=[A5+$5670] value+2+[A5+$5672] value 04B15C: 3E04 move.w D4, D7 ; D7=(((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)>>2)&1)|([A7+1] value*2) 04B15E: 4EBA 005C jsr ($5c,PC) ; ($4b1bc) 04B162: 4E71 nop 04B164: 566D 566A addq.w #3, ($566a,A5) ; [A5+$566a] value=[A5+$566e] value+5 04B168: 3E03 move.w D3, D7 ; D7=(((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)>>1)&1)|(([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f0)>>3) 04B16A: 4EBA 0050 jsr ($50,PC) ; ($4b1bc) 04B16E: 4E71 nop 04B170: 566D 566A addq.w #3, ($566a,A5) ; [A5+$566a] value=[A5+$566e] value+8 04B174: 3E02 move.w D2, D7 ; D7=((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f)*2)|((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)&1))-1 or #$1f 04B176: 4EBA 0044 jsr ($44,PC) ; ($4b1bc) 04B17A: 4E71 nop 04B17C: 4E75 rts04B1BC: 3A2D 566A move.w ($566a,A5), D5 ; D5=[A5+$566e] value+2 04B1C0: EB4D lsl.w #5, D5 ; D5=([A5+$566e] value+2)<<5 04B1C2: DA6D 566C add.w ($566c,A5), D5 ; D5=(([A5+$566e] value+2)<<5)+([A5+$5670] value+2+[A5+$5672] value) 04B1C6: 0645 7002 addi.w #$7002, D5 ; D5=(([A5+$566e] value+2)<<5)+([A5+$5670] value+2+[A5+$5672] value)+#$7002 04B1CA: 4845 swap D5 04B1CC: 4245 clr.w D5 ; lowest word of swapped ((([A5+$566e] value+2)<<5)+([A5+$5670] value+2+[A5+$5672] value)+#$7002) value=0 04B1CE: 3C07 move.w D7, D6 ; D6=(((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)>>2)&1)|([A7+1] value*2) 04B1D0: 0246 00F0 andi.w #$f0, D6 ; D6=((((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)>>2)&1)|([A7+1] value*2))&#$f0 04B1D4: E80E lsr.b #4, D6 ; D6=(((((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)>>2)&1)|([A7+1] value*2))&#$f0)>>4 04B1D6: 1A3B 6022 move.b ($22,PC,D6.w), D5 ; lowest byte of D5=[$04B1FA+((((((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)>>2)&1)|([A7+1] value*2))&#$f0)>>4) value] value 04B1DA: 0045 0F00 ori.w #$f00, D5 ; lowest word of D5=[$04B1FA+((((((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)>>2)&1)|([A7+1] value*2))&#$f0)>>4) value] value|#$f00 04B1DE: 23C5 003C 0000 move.l D5, $3c0000.l ; send D5 value to REG_VRAMADDR 04B1E4: 0247 000F andi.w #$f, D7 ; D7=((((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)>>2)&1)|([A7+1] value*2))&#$f 04B1E8: 1A3B 7010 move.b ($10,PC,D7.w), D5 ; lowest byte of D5=[$04B1FA+(((((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)>>2)&1)|([A7+1] value*2))&#$f) value] value 04B1EC: 0685 0020 0000 addi.l #$200000, D5 ; D5=(high word of swapped ((([A5+$566e] value+2)<<5)+([A5+$5670] value+2+[A5+$5672] value)+#$7002) value+([$04B1FA+((((((([$400000+([A5+$5678] value<<5)+([A5+$5672] value*2)] value&#$f000)ROL4)>>2)&1)|([A7+1] value*2))&#$f0)>>4) value] value|#$f00))+#$200000 04B1F2: 23C5 003C 0000 move.l D5, $3c0000.l ; send D5 value to REG_VRAMADDR 04B1F8: 4E75 rts

Awaiting an answers from you, I decided to analyse the Samurai Shodown (first game of series) disassembly for a while:

000FBA: 1039 0010 FD96 move.b $10fd96.l, D0 ; D0=P1_CURRENT value 000FC0: 122D 8A7B move.b (-$7585,A5), D1 ; D1=[A5-$7585] value 000FC4: 1B40 8A7B move.b D0, (-$7585,A5) ; [A5-$7585] value=P1_CURRENT value 000FC8: B101 eor.b D0, D1 ; D1=P1_CURRENT value^old [A5-$7585] value 000FCA: C200 and.b D0, D1 ; D1=(P1_CURRENT value^old [A5-$7585] value)&P1_CURRENT value 000FCC: 1B41 8A7C move.b D1, (-$7584,A5) ; [A5-$7584] value=(P1_CURRENT value^old [A5-$7585] value)&P1_CURRENT value 000FD0: 1039 0010 FD9C move.b $10fd9c.l, D0 ; D0=P2_CURRENT value 000FD6: 122D 8A7D move.b (-$7583,A5), D1 ; D1=[A5-$7583] value 000FDA: 1B40 8A7D move.b D0, (-$7583,A5) ; [A5-$7583] value=P2_CURRENT value 000FDE: B101 eor.b D0, D1 ; D1=P2_CURRENT value^old [A5-$7583] value 000FE0: C200 and.b D0, D1 ; D1=(P2_CURRENT value^old [A5-$7583] value)&P2_CURRENT value 000FE2: 1B41 8A7E move.b D1, (-$7582,A5) ; [A5-$7582] value=(P2_CURRENT value^old [A5-$7583] value)&P2_CURRENT value 000FE6: 4EB9 0002 0118 jsr $20118.l ; How is it possible? There is no such subroitine in samsho disassembly. This address is a middle of $20116 code string. 000FEC: 422D 8AB1 clr.b (-$754f,A5) ; [A5-$754f] value=0 000FF0: 2B7C 0010 1080 89FA move.l #$101080, (-$7606,A5) ; [A5-$7606] value=#$101080 000FF8: 41ED 9040 lea (-$6fc0,A5), A0 ; A0=[A5-$6fc0] 000FFC: 203C 0010 2000 move.l #$102000, D0 ; D0=#$102000 001002: 3140 0002 move.w D0, ($2,A0) ; [A5-$6fbe] value=#$102000 001006: 41ED A000 lea (-$6000,A5), A0 ; A0=[A5-$6000] 00100A: 203C 0010 1040 move.l #$101040, D0 ; D0=#$101040 001010: 3140 0000 move.w D0, ($0,A0) ; [A5-$6000] value=#$101040 001014: 317C FFFF 0004 move.w #$ffff, ($4,A0) ; [A5-$5ffc] value=#$ffff 00101A: 4DED E142 lea (-$1ebe,A5), A6 ; A6=[A5-$1ebe] 00101E: 4EBA 16C4 jsr ($16c4,PC) ; ($26e4) 001022: 4DED E182 lea (-$1e7e,A5), A6 ; A6=[A5-$1e7e] 001026: 4EBA 1728 jsr ($1728,PC) ; ($2750) 00102A: 422D 8AB7 clr.b (-$7549,A5) ; [A5-$7549] value=0 00102E: 4DED A142 lea (-$5ebe,A5), A6 ; A6=[A5-$5ebe] 001032: 4A6E 002E tst.w ($2e,A6) 001036: 6700 0006 beq $103e ; if [A5-$5e90] value=0 then skip next step 00103A: 536E 002E subq.w #1, ($2e,A6) ; else [A5-$5e90] value-1 00103E: 2F0E move.l A6, -(A7) ; [A7-1]=[A5-$5ebe] 001040: 206E 0000 movea.l ($0,A6), A0 ; A0=[A5-$5ebe] 001044: 4E90 jsr (A0) ; goto [A5-$5ebe] subroutine 001046: 2C5F movea.l (A7)+, A6 ; A6=[A7+1] 001048: 7000 moveq #$0, D0 ; D0=0 00104A: 102E 0051 move.b ($51,A6), D0 ; D0=[A7+$52] value 00104E: 6700 000C beq $105c ; if [A7+$52] value=0 then skip next 4 steps 001052: D040 add.w D0, D0 001054: D040 add.w D0, D0 ; else D0=[A7+$52] value*4 001056: 207B 002A movea.l ($2a,PC,D0.w), A0 ; A0=[$1082+([A7+$52] value*4)] 00105A: 4E90 jsr (A0) ; goto [$1082+([A7+$52] value*4)] subroutine 00105C: 4EB9 0000 4510 jsr $4510.l 001062: 522D 8AB7 addq.b #1, (-$7549,A5) ; [A5-$7549] value+1 001066: 0C6E FFFF 0008 cmpi.w #-$1, ($8,A6) 00106C: 6700 000E beq $107c ; if [A7+9] value=-1 then end the cycle 001070: 200E move.l A6, D0 ; D0=[A7+1] value 001072: 302E 0006 move.w ($6,A6), D0 ; lowest word of D0 value=[A7+7] value 001076: 2C40 movea.l D0, A6 ; A6=[high word of [A7+1] value+[A7+7] value] 001078: 4EFA FFB8 jmp (-$48,PC) ; ($1032) 00107C: 4EBA 0AA8 jsr ($aa8,PC) ; ($1b26) 001080: 4E75 rts020116: 0000 082D ori.b #$2d, D0 02011A: 0006 8000 ori.b #$0, D6 02011E: 6700 003A beq $2015a ; if D6|0=0 => D6=0 then end the subroutine 020122: 1B79 0010 FD96 8A7B move.b $10fd96.l, (-$7585,A5) ; else send P1_CURRENT to [A5-$7585] 02012A: 1039 0010 FD98 move.b $10fd98.l, D0 ; send P1_REPEAT to D0 020130: 0240 00F0 andi.w #$f0, D0 ; D0=P1_REPEAT&#$f0 020134: 8039 0010 FD97 or.b $10fd97.l, D0 ; D0=(P1_REPEAT&#$f0)|P1_CHANGE 02013A: 1B40 8A7C move.b D0, (-$7584,A5) ; [A5-$7584] value=(P1_REPEAT&#$f0)|P1_CHANGE 02013E: 1B79 0010 FD9C 8A7D move.b $10fd9c.l, (-$7583,A5) ; send P2_CURRENT to [A5-$7583] 020146: 1039 0010 FD9E move.b $10fd9e.l, D0 ; send P2_REPEAT to D0 02014C: 0240 00F0 andi.w #$f0, D0 ; D0=P2_REPEAT&#$f0 020150: 8039 0010 FD9D or.b $10fd9d.l, D0 ; D0=(P2_REPEAT&#$f0)|P2_CHANGE 020156: 1B40 8A7E move.b D0, (-$7582,A5) ; [A5-$7582] value=(P2_REPEAT&#$f0)|P2_CHANGE 02015A: 4E75 rts0026E4: 7000 moveq #$0, D0 ; D0=0 0026E6: 102E 001B move.b ($1b,A6), D0 ; D0=[A5-$1ea3] value 0026EA: 6700 0062 beq $274e ; if [A5-$1ea3] value=0 then end the subroutine 0026EE: E548 lsl.w #2, D0 ; else D0=[A5-$1ea3] value<<2 0026F0: 43F9 0004 C000 lea $4c000.l, A1 ; A1=[$4c000] 0026F6: 2271 0000 movea.l (A1,D0.w), A1 ; A1=[$4c000+([A5-$1ea3] value<<2)] 0026FA: 422E 001B clr.b ($1b,A6) ; [A5-$1ea3] value=0 0026FE: 302E 000C move.w ($c,A6), D0 ; D0=[A5-$1eb2] value 002702: 5240 addq.w #1, D0 ; D0=[A5-$1eb2] value+1 002704: C0FC 0040 mulu.w #$40, D0 ; D0=([A5-$1eb2] value+1)*#$40 002708: 7827 moveq #$27, D4 ; D4=#$27 00270A: 7C16 moveq #$16, D6 ; D6=#$16 00270C: 7A02 moveq #$2, D5 ; D5=#$2 00270E: 49F9 003C 0002 lea $3c0002.l, A4 ; send REG_VRAMRW to A4 002714: 522D 8A77 addq.b #1, (-$7589,A5) ; [A5-$7589] value+1 002718: 397C 0001 0002 move.w #$1, ($2,A4) ; REG_VRAMMOD value=1 00271E: 0640 0012 addi.w #$12, D0 ; D0=(([A5-$1eb2] value+1)*#$40)+#$12 002722: 3940 FFFE move.w D0, (-$2,A4) ; send D0 value to REG_VRAMADDR 002726: 3E06 move.w D6, D7 ; D7=#$16 002728: 3899 move.w (A1)+, (A4) ; REG_VRAMRW value=[$4c001+([A5-$1ea3] value<<2)] 00272A: 3899 move.w (A1)+, (A4) ; REG_VRAMRW value=[$4c002+([A5-$1ea3] value<<2)] 00272C: 51CF FFFA dbra D7, $2728 ; D7-1, if D7 <> 0 then skip 1 step back 002730: 0440 0012 subi.w #$12, D0 ; D0=([A5-$1eb2] value+1)*#$40 002734: 3940 FFFE move.w D0, (-$2,A4) ; send D0 value to REG_VRAMADDR 002738: 3E05 move.w D5, D7 ; D7=#$2 00273A: 3899 move.w (A1)+, (A4) ; REG_VRAMRW value=[$4c003+([A5-$1ea3] value<<2)] 00273C: 3899 move.w (A1)+, (A4) ; REG_VRAMRW value=[$4c004+([A5-$1ea3] value<<2)] 00273E: 51CF FFFA dbra D7, $273a ; D7-1, if D7 <> 0 then skip 1 step back 002742: 0640 0040 addi.w #$40, D0 ; D0=(([A5-$1eb2] value+1)*#$40)+#$40 002746: 51CC FFD6 dbra D4, $271e ; D4-1, if D4 <> 0 then jump back to $271e 00274A: 532D 8A77 subq.b #1, (-$7589,A5) ; [A5-$7589] value-1 00274E: 4E75 rts 002750: 7000 moveq #$0, D0 ; D0=0 002752: 102E 001B move.b ($1b,A6), D0 ; D0=[A5-$1e63] value 002756: 6700 004A beq $27a2 ; if [A5-$1e63] value=0 then end the subroutine 00275A: E548 lsl.w #2, D0 ; else D0=[A5-$1e63] value<<2 00275C: 43F9 0004 C000 lea $4c000.l, A1 ; A1=[$4c000] 002762: 2271 0000 movea.l (A1,D0.w), A1 ; A1=[$4c000+([A5-$1e63] value<<2)] 002766: 422E 001B clr.b ($1b,A6) ; [A5-$1e63] value=0 00276A: 302E 000C move.w ($c,A6), D0 ; D0=[A5-$1e72] value 00276E: 5240 addq.w #1, D0 ; D0=[A5-$1e72] value+1 002770: C0FC 0040 mulu.w #$40, D0 ; D0=([A5-$1e72] value+1)*#$40 002774: 7827 moveq #$27, D4 ; D4=#$27 002776: 7C19 moveq #$19, D6 ; D6=#$19 002778: 49F9 003C 0002 lea $3c0002.l, A4 ; send REG_VRAMRW to A4 00277E: 522D 8A77 addq.b #1, (-$7589,A5) ; [A5-$7589] value+1 002782: 397C 0001 0002 move.w #$1, ($2,A4) ; REG_VRAMMOD value=1 002788: 3940 FFFE move.w D0, (-$2,A4) ; send D0 value to REG_VRAMADDR 00278C: 3E06 move.w D6, D7 ; D7=#$19 00278E: 3899 move.w (A1)+, (A4) ; REG_VRAMRW value=[$4c001+([A5-$1e63] value<<2)] 002790: 3899 move.w (A1)+, (A4) ; REG_VRAMRW value=[$4c002+([A5-$1e63] value<<2)] 002792: 51CF FFFA dbra D7, $278e ; D7-1, if D7 <> 0 then skip 1 step back 002796: 0640 0040 addi.w #$40, D0 ; D0=(([A5-$1e72] value+1)*#$40)+#$40 00279A: 51CC FFEC dbra D4, $2788 ; D4-1, if D4 <> 0 then skip back to $2788 00279E: 532D 8A77 subq.b #1, (-$7589,A5) ; [A5-$7589] value-1 0027A2: 4E75 rts004510: 522D 8A83 addq.b #1, (-$757d,A5) ; [A5-$757d] value+1 004514: 7000 moveq #$0, D0 ; D0=0 004516: 102E 0055 move.b ($55,A6), D0 ; D0=[A7+$56] value 00451A: 6700 0082 beq $459e ; if [A7+$56] value=0 then goto $459e subroutine 00451E: 6B00 0020 bmi $4540 ; else if [A7+$56] value is negative then goto $4540 subroutine 004522: 0240 000F andi.w #$f, D0 ; else D0=[A7+$56] value&#$f 004526: D040 add.w D0, D0 ; D0=([A7+$56] value&#$f)*2 004528: 1D7B 007A 0058 move.b ($7a,PC,D0.w), ($58,A6) ; [A7+$59] value=[$45a4+(([A7+$56] value&#$f)*2)] value 00452E: 1D7B 0075 0059 move.b ($75,PC,D0.w), ($59,A6) ; [A7+$5a] value=[$45a5+(([A7+$56] value&#$f)*2)] value 004534: 002E 0080 0055 ori.b #$80, ($55,A6) ; [A7+$56] value|#$80 00453A: 1D7C 0004 0057 move.b #$4, ($57,A6) ; [A7+$58] value=4 004540: 1B7C 0001 8AB1 move.b #$1, (-$754f,A5) ; [A5-$754f] value=1 004546: 532E 0057 subq.b #1, ($57,A6) ; [A7+$58] value=3 00454A: 022E 0003 0057 andi.b #$3, ($57,A6) ; [A7+$58] value&3=3&3=3 004550: 7000 moveq #$0, D0 ; D0=0 004552: 102E 0056 move.b ($56,A6), D0 ; D0=[A7+$57] value 004556: D040 add.w D0, D0 004558: D040 add.w D0, D0 ; D0=[A7+$57] value*4 00455A: 802E 0057 or.b ($57,A6), D0 ; D0=([A7+$57] value*4)|[A7+$58] value 00455E: D040 add.w D0, D0 004560: D040 add.w D0, D0 ; D0=(([A7+$57] value*4)|[A7+$58] value)*4 004562: 287B 0050 movea.l ($50,PC,D0.w), A4 ; A4=[$45b4+((([A7+$57] value*4)|[A7+$58] value)*4)] 004566: 7000 moveq #$0, D0 ; D0=0 004568: 301C move.w (A4)+, D0 ; D0=[$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value 00456A: 0C40 FFFF cmpi.w #-$1, D0 00456E: 6700 000A beq $457a ; if [$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value=-1 then skip next 2 steps 004572: 4EBA 0838 jsr ($838,PC) ; ($4dac) 004576: 4EFA FFEE jmp (-$12,PC) ; ($4566) 00457A: 4A2E 0057 tst.b ($57,A6) 00457E: 6600 001E bne $459e ; if [A7+$58] value!=0 then skip to $459e 004582: 72FE moveq #-$2, D1 ; else D1=-2 004584: 102E 0059 move.b ($59,A6), D0 ; D0=[A7+$5a] value 004588: B02E 0058 cmp.b ($58,A6), D0 00458C: 6B00 000C bmi $459a ; if [A7+$5a] value - [A7+$59] value is negative => [A7+$59] value>[A7+$5a] value then skip to $459a 004590: 6600 0006 bne $4598 ; else if [A7+$5a] value - [A7+$59] value!=0 then skip next step 004594: 422E 0055 clr.b ($55,A6) ; else [A7+$56] value=0 004598: 7202 moveq #$2, D1 ; D1=2 00459A: D32E 0058 add.b D1, ($58,A6) ; [A7+$59] value+2 00459E: 532D 8A83 subq.b #1, (-$757d,A5) ; [A5-$757d] value-1 0045A2: 4E75 rts004DAC: 122E 0055 move.b ($55,A6), D1 ; D1=old [A7+$56] value|#$80 004DB0: E849 lsr.w #4, D1 ; D1=(old [A7+$56] value|#$80)>>4 004DB2: 0241 0007 andi.w #$7, D1 ; D1=((old [A7+$56] value|#$80)>>4)&7 004DB6: D241 add.w D1, D1 004DB8: D241 add.w D1, D1 ; D1=(((old [A7+$56] value|#$80)>>4)&7)*4 004DBA: 2ABB 10DC move.l (-$24,PC,D1.w), (A5) ; (A5) value=[$4d98+((((old [A7+$56] value|#$80)>>4)&7)*4)] value 004DBE: 323C 000F move.w #$f, D1 ; D1=#$f 004DC2: 41ED 6C00 lea ($6c00,A5), A0 ; A0=[A5+$6c00] 004DC6: 2070 0000 movea.l (A0,D0.w), A0 ; A0=[A5+$6c00+[$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value] 004DCA: 226D 8500 movea.l (-$7b00,A5), A1 ; A1=[A5-$7b00] 004DCE: B3FC 0010 06C8 cmpa.l #$1006c8, A1 004DD4: 6200 006E bhi $4e44 ; if [A5-$7b00]>#$1006c8 then goto $4e44 subroutine 004DD8: E748 lsl.w #3, D0 ; D0=([$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value)<<3 004DDA: 0680 0040 0000 addi.l #$400000, D0 ; D0=(([$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value)<<3)+#$400000 004DE0: 22C0 move.l D0, (A1)+ ; [A5-$7aff] value=(([$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value)<<3)+#$400000 004DE2: 32C1 move.w D1, (A1)+ ; [A5-$7afe] value=#$f 004DE4: 102E 0058 move.b ($58,A6), D0 ; D0=[A7+$59] value 004DE8: 2A15 move.l (A5), D5 ; D5=[$4d98+((((old [A7+$56] value|#$80)>>4)&7)*4)] value 004DEA: 45F9 0000 4E46 lea $4e46.l, A2 ; A2=[$4e46] 004DF0: 3418 move.w (A0)+, D2 ; D2=[A5+$6c01+[$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value] value 004DF2: 3C02 move.w D2, D6 ; D6=[A5+$6c01+[$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value] value 004DF4: E95E rol.w #4, D6 ; D6=[A5+$6c01+[$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value] valueROL4 004DF6: 7600 moveq #$0, D3 ; D3=0 004DF8: 7802 moveq #$2, D4 ; D4=2 004DFA: 3F02 move.w D2, -(A7) ; [A7-1] value=[A5+$6c01+[$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value] value 004DFC: 0242 000F andi.w #$f, D2 ; D2=([A5+$6c01+[$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value] value)&#$f 004E00: E24E lsr.w #1, D6 ; D6=([A5+$6c01+[$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value] valueROL4)>>1 004E02: E352 roxl.w #1, D2 ; D2=(([A5+$6c01+[$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value] value)&#$f)ROXL1 004E04: B405 cmp.b D5, D2 004E06: 6A00 0010 bpl $4e18 ; if ((([A5+$6c01+[$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value] value)&#$f)ROXL1) value-[$4d98+((((old [A7+$56] value|#$80)>>4)&7)*4)] value is positive then goto $4e18 004E0A: D400 add.b D0, D2 ; else D2=((([A5+$6c01+[$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value] value)&#$f)ROXL1)+[A7+$59] value 004E0C: B405 cmp.b D5, D2 004E0E: 6B00 0012 bmi $4e22 ; if (((([A5+$6c01+[$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value] value)&#$f)ROXL1)+[A7+$59] value)-[$4d98+((((old [A7+$56] value|#$80)>>4)&7)*4)] value is negative then goto $4e22 004E12: 1405 move.b D5, D2 ; else D2=[$4d98+((((old [A7+$56] value|#$80)>>4)&7)*4)] value 004E14: 4EFA 000C jmp ($c,PC) ; ($4e22) 004E18: 9400 sub.b D0, D2 ; D2=((([A5+$6c01+[$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value] value)&#$f)ROXL1)-[A7+$59] value 004E1A: B405 cmp.b D5, D2 004E1C: 6A00 0004 bpl $4e22 ; if (((([A5+$6c01+[$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value] value)&#$f)ROXL1)-[A7+$59] value)-[$4d98+((((old [A7+$56] value|#$80)>>4)&7)*4)] value is positive then skip next step 004E20: 1405 move.b D5, D2 ; else D2=[$4d98+((((old [A7+$56] value|#$80)>>4)&7)*4)] value 004E22: E34A lsl.w #1, D2 ; D2=([$4d98+((((old [A7+$56] value|#$80)>>4)&7)*4)] value)<<1 or (((([A5+$6c01+[$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value] value)&#$f)ROXL1)-[A7+$59] value)<<1 or (((([A5+$6c01+[$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value] value)&#$f)ROXL1)+[A7+$59] value)<<1 004E24: 8672 2000 or.w (A2,D2.w), D3 ; D3=([$4e46]value+(([$4d98+((((old [A7+$56] value|#$80)>>4)&7)*4)] value)<<1))|0 or ([$4e46]value+((((([A5+$6c01+[$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value] value)&#$f)ROXL1)-[A7+$59] value)<<1))|0 or ([$4e46]value+((((([A5+$6c01+[$45b5+((([A7+$57] value*4)|[A7+$58] value)*4)] value] value)&#$f)ROXL1)+[A7+$59] value)<<1))|0 004E28: D5FC 0000 0040 adda.l #$40, A2 ; [$4e46] value+#$40 004E2E: 341F move.w (A7)+, D2 ; D2=[A7+1] value 004E30: E84A lsr.w #4, D2 ; D2=[A7+1] value>>4 004E32: E08D lsr.l #8, D5 ; D5=[$4d98+((((old [A7+$56] value|#$80)>>4)&7)*4)] value>>8 004E34: 51CC FFC4 dbra D4, $4dfa ; D4-1, if D4 <> 0 jump back to $4dfa 004E38: 32C3 move.w D3, (A1)+ ; [A5-$7afd] value=0 004E3A: 51C9 FFAC dbra D1, $4de8 ; D1-1, if D1 <> 0 jump back to $4de8 004E3E: 4291 clr.l (A1) 004E40: 2B49 8500 move.l A1, (-$7b00,A5) ; [A5-$7b00] value=0 004E44: 4E75 rts

I want ask anybody here - if exist a special MAME builds with more advanced debugger? I need an a NeoGeo debugger with a various functions which may be very useful for reverse engineering - for example, RAM search like in FCEUX, or remembering of all earlier CPU steps and also back rewinding to one of the previous steps which you need; or something like that.

What's going on it this thread... ?

HPMAN (./55):
What's going on it this thread... ?

Nothing new - I still try to learn what processes are happening after successful attack on enemy in kof94 and samsho - how the point of hitmark appearance are being calculated, what tiles the hitmark sprites conist of, what palletes these sprites uses, and how the random selection of punch/kick/something other attack SFX ID works.

Hi everybody, I finally returned after long absence. As I already said earlier, for Shaman King project role\combat system development I going to make a full reverse engineering of many various RPGs disassembly code to "look under cowling" of this games and learn, how its combat events code are structured on the inside, how calculations of hit chance and/or damage value during attack and of many other things are work. I deceded to begin my research from Pokemon Gold game for GBC.
The ASM file by this link will use to get an updates periodically. If I'll find anything interesting in disassembly, I'll signal to you about it right.

I have some sudden problem - at the latest time I stopped my research at $68b string, where "jp $6545 ($A545 actually, given that switchable ROM bank №2 is selected)" command is located. But if you will look at the strings starting by $A545, you'll see that it's unclear is it a real code or just data section.