Subroutine d973

d973 96 59       ldaa (0x0059)
d975 84 80       anda 0x80
d977 27 0b       beq [0xD984]
d979 bd dd d7    jsr (0xDDD7)
d97c 96 5e       ldaa (0x005E)
d97e 84 ba       anda 0xBA
d980 88 ba       eora 0xBA
d982 26 1b       bne [0xD99F]
d984 15 59 c2    bclr (0x0059), 0xC2		Branch Target from d977
d987 cc 00 b2    ldd 0x00B2
d98a 97 5d       staa (0x005D)
d98c d7 5e       stab (0x005E)
d98e de 55       ldx (0x0055)
d990 df 53       stx (0x0053)
d992 a6 29       ldaa (X+0x29)
d994 97 5f       staa (0x005F)
d996 97 60       staa (0x0060) ; Sol_States
d998 bd d9 c6    jsr (0xD9C6)-Calc-Current-Gear
d99b d7 4e       stab (0x004E) ; Current_Gear
d99d 20 3a       bra [0xD9D9]

d99f de 55       ldx (0x0055)		Branch Target from d982
d9a1 96 5e       ldaa (0x005E)
d9a3 a4 29       anda (X+0x29)
d9a5 97 60       staa (0x0060) ; Sol_States
d9a7 96 5e       ldaa (0x005E)
d9a9 43          coma
d9aa d6 5f       ldab (0x005F)
d9ac 53          comb
d9ad d7 c9       stab (0x00C9)
d9af 94 c9       anda (0x00C9)
d9b1 9a 60       oraa (0x0060) ; Sol_States
d9b3 94 5d       anda (0x005D)
d9b5 97 60       staa (0x0060) ; Sol_States
d9b7 96 5d       ldaa (0x005D)
d9b9 9a 5e       oraa (0x005E)
d9bb 43          coma
d9bc 94 5f       anda (0x005F)
d9be 9a 60       oraa (0x0060) ; Sol_States
d9c0 84 b2       anda 0xB2
d9c2 97 60       staa (0x0060) ; Sol_States
d9c4 20 13       bra [0xD9D9]

d9d9 d6 60       ldab (0x0060)		Branch Target from d99d, d9c4 ; Sol_States
d9db c8 80       eorb 0x80
d9dd 17          tba
d9de 84 30       anda 0x30
d9e0 81 10       cmpa 0x10
d9e2 27 0a       beq [0xD9EE]
d9e4 12 59 80 06 brset (0x0059), 0x80, [0xD9EE]
d9e8 12 58 10 02 brset (0x0058), 0x10, [0xD9EE]
d9ec c4 7f       andb 0x7F
d9ee d7 60       stab (0x0060)		Branch Target from d9e2, d9e4, d9e8 ; Sol_States
d9f0 96 57       ldaa (0x0057)
d9f2 84 fd       anda 0xFD
d9f4 c4 02       andb 0x02
d9f6 1b          aba
d9f7 97 57       staa (0x0057)
d9f9 39          rts