;fucks X
update_level_name:
	REP #$30
	LDX $6DD6
	LDA $7F1F,x
	STA $00
	LDA $7F21,x
	STA $02
	TXA
	LSR
	LSR
	TAX
	PHK
	PEA.w .jslrtsreturn-1
	PEA.w $048575-1
	JML $049885
	.jslrtsreturn
	STZ $00
	LDX $04
	LDA $40D000,x
	AND #$00FF
	JSL $03BB20
	SEP #$10
RTS