Reset Level on Falling Down Offscreen

• Lunar Magic v3.33
• SA-1 Pack v1.40
• UberASM Tool v1.6
• BSNES v115

Added lorom and sa-1 tags.

It's functional and useful for a few types of levels, though I also would like to see midway point support for the next update. However, please, please, please improve the following code:
Collapsed text: Show/Hide

Code

	LDA $13BF|!addr				;\
	CMP #$24				;| Load current level's number (aka translevel number)
	BCS .addDC				;/ and check if > 24. If so, DC needs to be added for $1nn
	TAX					;\
	REP #$20				;| Set A to 16-bit mode, needed for %teleport() and use X as backup value for A
	TXA					;/
	BRA .actualTeleport
.addDC:
	CLC					;\ Add $DC to current level number to convert it to LM's "Level Number" > 24
	ADC #$DC				;/
	TAX					;\
	REP #$20				;| Set A to 16-bit mode, needed for %teleport() and use X as backup value for A
	TXA					;/
	XBA					; Change position from lower byte to higher (00NN -> NN00) to add 01 that will be used as 1NN for level number.
	CLC					;\ Add $01 to lower byte ($0001)
	ADC #$0001				;/
	XBA					; Exchange these two bytes again (NN01 -> 01NN) (e.g. for level 105 => 0501 -> $0105 after xba)

This is an incredibly overcomplicated way of performing sublevel_id = translevel_id + 0x00DC.
CLC : ADC #$0001 is almost always replaceable by INC (the only time it isn't is when carry comes up and even then) but you don't even need to do that because you're in 16-bit mode anyway so CLC : ADC #$0100 and no XBA in sight except you don't even have to do that as you already are doing an addition which with these numbers always yields a number greater than 0x101, you just need to be in 16-bit mode to get the result immediately (and for that matter, you don't have to use X for this either — you can even load the translevel ID in 16-bit if you're smart).

It is a particularly egregious example of unoptimisation, I don't really want to see this for the next update in any form whatsoever.