$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