06:89F2:20 7B 8A  JSR $8A7B
06:89F5:A5 24     LDA $0024 = #$39
06:89F7:85 18     STA $0018 = #$39
06:89F9:A5 25     LDA $0025 = #$00
06:89FB:85 19     STA $0019 = #$00
06:89FD:20 5F 8B  JSR $8B5F
06:8A00:A5 18     LDA $0018 = #$39
06:8A02:8D B8 65  STA $65B8 = #$39
06:8A05:A5 19     LDA $0019 = #$00
06:8A07:8D B9 65  STA $65B9 = #$00
06:8A0A:AD B9 65  LDA $65B9 = #$00
06:8A0D:C9 03     CMP #$03
06:8A0F:90 13     BCC $8A24
06:8A11:D0 07     BNE $8A1A
06:8A13:AD B8 65  LDA $65B8 = #$39
06:8A16:C9 E7     CMP #$E7
06:8A18:90 0A     BCC $8A24
06:8A1A:A9 03     LDA #$03
06:8A1C:8D B9 65  STA $65B9 = #$00
06:8A1F:A9 E7     LDA #$E7
06:8A21:8D B8 65  STA $65B8 = #$39
06:8A24:AD 57 65  LDA $6557 = #$00
06:8A27:CD B9 65  CMP $65B9 = #$00
06:8A2A:90 0A     BCC $8A36
06:8A2C:D0 13     BNE $8A41
06:8A2E:AD 56 65  LDA $6556 = #$C1
06:8A31:CD B8 65  CMP $65B8 = #$39
06:8A34:B0 0B     BCS $8A41
06:8A36:A9 00     LDA #$00
06:8A38:8D 56 65  STA $6556 = #$C1
06:8A3B:8D 57 65  STA $6557 = #$00
06:8A3E:4C 54 8A  JMP $8A54
06:8A41:AD 56 65  LDA $6556 = #$C1
06:8A44:38        SEC
06:8A45:ED B8 65  SBC $65B8 = #$39
06:8A48:8D 56 65  STA $6556 = #$C1
06:8A4B:AD 57 65  LDA $6557 = #$00
06:8A4E:ED B9 65  SBC $65B9 = #$00
06:8A51:8D 57 65  STA $6557 = #$00
06:8A54:AD 27 65  LDA $6527 = #$40	6527=ST
06:8A57:85 00     STA $0000 = #$60　	$0000=$6527
06:8A59:4A        LSR			Aを右シフト($6527/2)
06:8A5A:18        CLC			
06:8A5B:65 00     ADC $0000 = #$60	$0000=$0000+A(右シフトした$0000)
06:8A5D:85 00     STA $0000 = #$60	$0000=ST+ST/2  たとえばST=6400なら、6400+3200=9600
06:8A5F:A9 00     LDA #$00
06:8A61:69 00     ADC #$00
06:8A63:85 01     STA $0001 = #$00	$0001=0x00
06:8A65:AD B9 65  LDA $65B9 = #$00	ダメージ上位
06:8A68:C5 01     CMP $0001 = #$00
06:8A6A:90 0E     BCC $8A7A
06:8A6C:D0 07     BNE $8A75
06:8A6E:AD B8 65  LDA $65B8 = #$39	ダメージ下位　$65B8 > $0000なら会心の一撃
06:8A71:C5 00     CMP $0000 = #$60
06:8A73:90 05     BCC $8A7A
06:8A75:A9 CD     LDA #$CD
06:8A77:8D 0A 65  STA $650A = #$00
06:8A7A:60        RTS