Level Loading

LoadLevelPrepare:
	ldx #$0400
	ldy #$00
LoadName:
	lda LevelData, y
	sta $0000, y
	iny
	tya
	cmp #$0A
	beq LoadMusic
	jmp LoadName
LoadMusic:
	lda LevelData, y
	sta $0000, y
	ldy #$10
LoadAuthor:
	lda LevelData, y
	sta $0000, y
	iny
	tya
	cmp #$1A
	beq LoadTime
LoadTime:
	lda LevelData, y
	sta $0000, y
	iny
	tya
	cmp #$1D
	beq LoadBG
	jmp LoadTime
LoadBG:
	lda LevelData, y
	sta $0000, y
	jmp Done

Done:
	rtl

LevelData: .INCBIN "LevelOne.lev"