$1026DE-$1028BB { FREEZE: LDX $0E54 LDA $0F9E, X BNE BRANCH_KAPPA LDA #$000A JSL $809139 ; $1139 IN ROM BRANCH_KAPPA: LDA #$0190 LDY $079F CPY #$0002 BNE BRANCH_LAMBDA LDA #$012C BRANCH_LAMBDA: STA $0F9E, X LDA $0F8A, X ORA #$0004 STA $0F8A, X LDA #$000A STA $0FA0, X PLB RTS PHB LDA $18A6 ASL A TAX LDA $0C2C, X STA $187A LDA $0C18, X STA $12 LDX $0E54 LDA $0F78, X TAX LDA $A0003C, X BNE BRANCH_ALPHA LDA #$EC1C BRANCH_ALPHA: STA $14 LDA $12 BIT #$0F00 BNE BRANCH_BETA AND #$000F CLC ADC $14 TAX LDA $B40000, X AND #$00FF STA $0E40 AND #$007F STA $0E32 LDA $0E40 CMP #$00FF BEQ FREEZE ; Set Freeze enemy, no damage, end routine. BRANCH_GAMMA: LDA $187A STA $26 LDA $0E32 STA $28 JSL $A0B6FF ; $1036FF IN ROM LDA $12 BIT #$0010 BEQ BRANCH_DELTA LDX $14 LDA $B40013, X AND #$007F BEQ BRANCH_EPSILON STA $28 LDA $2A LSR LSR STA $26 JSL $A0B6FF ; $1036FF IN ROM BRANCH_DELTA: LDA $2A BEQ BRANCH_EPSILON LSR STA $187A JMP $A7FF ; BRANCH_BETA: AND #$0F00 CMP #$0100 BEQ BRANCH_ZETA CMP #$0200 BNE BRANCH_THETA BRANCH_ZETA: XBA CLC ADC $14 TAX LDA $B4000B, X AND #$007F STA $0E32 BRA BRANCH_GAMMA BRANCH_THETA: CMP #$0500 BNE BRANCH_IOTA LDX $14 LDA $B4000E, X AND #$007F STA $0E32 BRA BRANCH_GAMMA BRANCH_IOTA: CMP #$0300 BNE BRANCH_EPSILON LDX $14 LDA $B4000F, X AND #$007F STA $0E32 BRA BRANCH_GAMMA BRANCH_EPSILON: LDA $18A6 ASL A TAX LDA $0C04, X ORA #$0010 STA $0C04, X LDA $0B64, X STA $12 LDA $0B78, X STA $14 LDA #$0006 STA $16 STZ $18 JSL $B4BC26 ; $1A3C26 IN ROM LDA #$003D JSL $809035 ; $1035 IN ROM PLB RTS ;$1027FF ALTERNATE ENTRY POINT LDX $0E54 PHX LDA $0F78, X TAX LDA $A0000D, X AND #$00FF BNE BRANCH_MU LDA #$0004 BRANCH_MU: CLC ADC #$0008 PLX PHX STA $0F9C, X LDA $0F8A, X ORA #$0002 STA $0F8A, X LDA $0F9E, X BNE BRANCH_NU LDA $0F78, X TAX LDA $A0000E, X BEQ BRANCH_XI JSL $8090B7 ; $10B7 IN ROM BRANCH_XI: INC $0E2E ;Display hit flash BRANCH_NU: PLX LDA $18A6 ASL A TAY LDA $0C18, Y BIT #$0008 BEQ BRANCH_OMICRON LDA #$0010 STA $0FA0, X BRANCH_OMICRON: LDA $0F8C, X SEC SBC $187A PHP BCC BRANCH_PI BEQ BRANCH_PI STA $0F8C,X CMP $187A BEQ BRANCH_PI BCS BRANCH_RHO BRANCH_PI: LDA $18A6 ASL A TAY LDA $0C18, Y AND #$0002 BEQ BRANCH_SIGMA LDA $0E40 AND #$00F0 CMP #$0080 BEQ BRANCH_SIGMA LDA $0F9E, X BNE BRANCH_SIGMA PLP LDY #$0190 LDA $079F CMP #$0002 BNE BRANCH_TAU LDY #$012C BRANCH_TAU: TYA STA $0F9E, X LDA $0F8A, X ORA #$0004 STA $0F8A, X LDA #$000A STA $0FA0, X LDA #$000A JSL $809139 ; $1139 IN ROM PLB RTS BRANCH_SIGMA: PLP PHP BEQ Die BCS BRANCH_RHO Die: LDA #$0000 STA $0F8C, X BRANCH_RHO: PLP PLB RTS AE540EBD9E0FD007A90A0022399180A99001AC9F07C00200D003A92C019D9E0FBD8A0F0904009D8A0FA90A009DA00FAB608BADA6180AAABD2C0C8D7A18BD180C8512AE540EBD780FAABF3C00A0D003A91CEC8514A51289000FD056290F00186514AABF0000B429FF008D400E297F008D320EAD400EC9FF00F086AD7A188526AD320E852822FFB6A0A512891000F017A614BF1300B4297F00F05B8528A52A4A4A852622FFB6A0A52AF04B4A8D7A184CFFA729000FC90001F005C90002D011EB186514AABF0B00B4297F008D320E80ABC90005D00EA614BF0E00B4297F008D320E8098C90003D00EA614BF0F00B4297F008D320E8085ADA6180AAABD040C0910009D040CBD640B8512BD780B8514A90600851664182226BCB4A93D0022359080AB60AE540EDABD780FAABF0D00A029FF00D003A9040018690800FADA9D9C0FBD8A0F0902009D8A0FBD9E0FD011BD780FAABF0E00A0F00422B79080EE2E0EFAADA6180AA8B9180C890800F006A910009DA00FBD8C0F38ED7A1808900CF00A9D8C0FCD7A18F002B054ADA6180AA8B9180C290200F03BAD400E29F000C98000F030BD9E0FD02B28A09001AD9F07C90200D003A02C01989D9E0FBD8A0F0904009D8A0FA90A009DA00FA90A0022399180AB602808F002B006A900009D8C0F28AB60 Also, change pointers to A6DE to A70F: A0:A644 A6AE and A6BB 0FA7