Insane Difficulty: CTB Beta - Insane Difficulty

C2/01C6:
A9 7F LDA #$7F for the code i'm about to run
20 95 65 JSR $6595 FUNCTION 2

C2/0147:
20 28 66 JSR $6628 FUNCTION 12

C2/067E:
C0

C2/0983:
20 D4 65 JSR $65D4 FUNCTION 6 // after death and wakeup go to half gauge, not empty

C2/0AB4:
EA EA EA // make morph use up a turn like normal

C2/1124:
4C 7D 65 JMP $657D FUNCTION 1

C2/1130:
EA EA just get rid of that whole 'only call once every two frames' thing

C2/1193:
C2 20 REP #$20
4C A7 65 JMP $65A7 FUNCTION 3

C2/1198:
// the old code at 1193, except we store 00 instead of FF
20 EA 65 JSR $65EA FUNCTION 7 + 8 bytes
18 CLC
7D B4 3A ADC $3AB4, X
9D B4 3A STA $3AB4, X
E2 20 SEP #$20
B0 06 BCS #$06
EB XBA
DD 2C 32 CMP $322C, X
90 0F BCC #$0F (branching to a RTS)
9E 2C 32 STZ $322C, X

C2/11BD:
20 E2 65 JSR $65E2 FUNCTION 7 // determine whether to add ATB increment or 0
7D 18 32 ADC $3218, X // add to existing ATB
9D 18 32 STA $3218, X // store it

C2/11D1:
20 B9 65 JSR $65B9 FUNCTION 4 // zero atb if 14C0 clear, FF that shit otherwise

C2/21D6:
20 06 66 JSR $6606 FUNCTION 8

C2/247D:
20 0D 66 JSR $660D FUNCTION 9

C2/4E6F:
20 C5 65 JSR $65C5 FUNCTION 5 //jump to FUNCTION 5 to also clear the 14C0, since the current person is no longer blocking turns

C2/657D FUNCTION 1: // from now on, these are moveable/can take more space if necessary. we jump to 118B if we're skipping the turn, 1129 if we aren't. 2F41 in accumulator to start
0D 8F 3A ORA $3A8F
D0 10 BNE #$10 branch to label Don't Continue - either menu open or animation playing
AD C0 14 LDA $14C0
0D C1 14 ORA $14C1
F0 05 BEQ #$05 branch to label Continue - no menu open, no animation playing, no turn up - yes let through if someone has entered wait queue
AD 45 2F LDA $2F45 Characters running
F0 03 BEQ #$03 branch to label Don't Continue - no one running, turn up, so no ATB progression
4C 29 11 JMP $1129 Continue
4C 8B 11 JMP $118B Don't Continue

C2/6595 FUNCTION 2:
18 CLC
7D 19 32 ADC $3219, X add 7F to lower byte
10 06 BPL #$06 // if it's positive, then they didn't have a full ATB and we skip the processing
FD 2C 32 SBC $322C, X subtract wait timer from atb top byte
9D 19 32 STA $3219, X
20 1C 66 JSR $661C FUNCTION 11
A9 FF LDA #$FF
60 RTS

C2/65A7 FUNCTION 3:
C2 20 REP #$20
BD 18 30 LDA $3018, X
2C 2C 3F BIT $3F2C
F0 03 BEQ #$03 // if they aren't jumping, don't bother waiting
4C 98 11 JMP $1198 (handle wait ticking normally if they're one of those mamsy pamsy jumpers)
E2 20 SEP #$20
4C AF 11 JMP $11AF (let the action go through if it's not jump)

C2/65B9 FUNCTION 4:
9E 19 32 STZ $3219, X // so only the first person gets to actually enter the Gauge Full state
08 PHP
20 16 66 JSR $6616 FUNCTION 10
0C C0 14 TSB $14C0
28 PLP
60 RTS

C2/65C5 FUNCTION 5:
08 PHP // when someone's adding to the wait queue, we just block ATB increasing and not combat ticks. if they jump then we take care of that later
20 16 66 JSR $6616 FUNCTION 10
1C C0 14 TRB $14C0
0C C2 14 TSB $14C2
28 PLP
EE 65 3A INC $3A65 // replaced code
60 RTS

C2/65D4 FUNCTION 6:
BD 19 32 LDA $3219, X
D0 03 BNE #$03 if the ATB is full, then clear 14C0&14C2 because they're no longer blocking turns
20 1C 66 JSR $661C FUNCTION 11
A9 80 LDA #$80
9D 19 32 STA $3219, X // make gauge half full
60

C2/65E2 FUNCTION 7: // this generates the increase in ATB and wait timers
BD 18 30 LDA #$3018, X
2C 2C 3F BIT $3F2C
D0 1A BNE #$1A // if they are jumping, no ATB for you
AD C0 14 LDA $14C0 // load if we should block ATB - WHEN EVALUATING WAIT TIMER, IT JUMPS HERE, 8 BYTES IN
0D C2 14 ORA $14C2
F0 0D BEQ #$0D // if they're both 0, we branch to ATB, turn progresses
E2 20 SEP #$20
AD 45 2F LDA $2F45 Characters running
C2 20 REP #$20
F0 09 BEQ #$09 // if they aren't running, you definitely don't get ATB
E0 08 CPX #$08
90 05 BCS #$05 // if you're a player and the team is running, you don't get ATB. monsters do, though
BD C8 3A LDA $3AC8, X // load the increment
4A LSR (we have ATB increase in accumulator, we're going at half speed because half bars)
60 RTS
7B TDC // blank accumulator, you get NOTHING
60

C2/6606 FUNCTION 8:
0C 2C 3F TSB $3F2C // replaced code
20 1C 66 JSR $661C FUNCTION 11
60 RTS

C2/660D FUNCTION 9
A2 03 LDX #$03
9E C0 14 STZ $14C0, X
CA DEX
10 FA BPL #$FA // loop until $14C0-$14C3 are all zeroed
60 RTS

C2/6616 FUNCTION 10 // generate the bit (EXPECTS CALLER TO SAVE THEIR PROCESS FLAGS)
C2 20 REP #$20
BD 18 30 LDA #$3018, X
60 RTS

C2/661C FUNCTION 11 // unset both 14C0 and 14C2's bitmaps
08 PHP
20 16 66 JSR $6616 FUNCTION 10
1C C2 14 TRB $14C0
1C C0 14 TRB $14C2
28 PLP
60 RTS

C2/6628 FUNCTION 12
1C 2C 3F TRB $3F2C
F0 03 BEQ #$03 // if it's 0, this is the start of a jump, not the end
9E 2C 32 STZ $322C, X //make the 'wait' 0 so that jumpers aren't double punished
60 RTS