Code

loadsub:
	LDY #$00
	LDX #$00
	-
	LDA #$00
	STA !Sets,X
	STA !Sets+1,X
	INX
	INX
	INY
	CPY.B !NumSets
	BNE -

	LDY #$00
	LDX #$00
	-
	LDA #$00
	STA !Counts,X
	INX
	PHX
	TYX
	LDA.L Count,X
	PLX
	STA !Counts,X
	INX
	INY
	CPY.B !NumFind
	BNE -

	REP #$10

	JSR GetCounts

	SEP #$10
	LDY #$00
	LDX #$00
	-
	LDA Type,Y
	CMP #$02
	BEQ +

	INX
	INX
	INY
	CPY.B !NumFind
	BNE -
	BRA ++
	+
	LDA !Counts,X
	SEC
	SBC !Counts+1,X
	STA !Counts+1,X
	INX
	INX
	INY
	CPY.B !NumFind
	BNE -
	++
	REP #$10

	LDX #$37FF
	-
	LDA $7EC800,x
	STA $00
	LDA $7FC800,x
	STA $01

	REP #$20
	LDA $00
	CMP #$0025
	BEQ +
	SEP #$20

	JSR FindTile
	BCC +

	JSR GetData

	LDY $02
	LDA Type,Y

	PHX

	BNE ++
	JMP Random
	++
	DEC
	BNE ++
	JMP Choose
	++
	DEC
	BNE ++
	JMP Choose
	++
	PLX
	BRA +

ReplaceDone:

	PLX

	STA $7EC800,x
	XBA
	STA $7FC800,x

	+
	SEP #$20
	DEX
	BPL -

	SEP #$10

	LDA $148B|!addr
	STA !FreeRAM+4
	LDA $148C|!addr
	STA !FreeRAM+5



	RTS

FindTile:

	PHX
	REP #$20
	LDX #$0000
	-
	LDA Find,x
	CMP #$FFFF
	BEQ NotFound

	CMP $00
	BEQ Found
	INX
	INX
	BRA -
Found:
	TXA
	LSR
	STA $02
	SEP #$20
	PLX
	SEC
	RTS
NotFound:
	SEP #$20
	PLX
	CLC
	RTS

GetData:
	REP #$20
	STZ $06
	STZ $08

	PHX

	LDY $02

	LDX #$0000
	-
	LDA Data,X
	INX
	INX
	CPY #$0000
	BEQ DataFound
	ASL
	STA $08
	TXA
	CLC
	ADC $08
	TAX
	DEY
	BRA -

DataFound:
	STA $08
	STX $06
	PLX
	SEP #$20
	RTS

GetCounts:

	LDX #$37FF
	-
	LDA $7EC800,x
	STA $00
	LDA $7FC800,x
	STA $01

	REP #$20
	LDA $00
	CMP #$0025
	BEQ +
	SEP #$20

	JSR FindTile
	BCC +

	LDY $02
	LDA Type,Y
	BEQ +++

	PHX
	TYA
	ASL
	TAX
	LDA !Counts,X
	INC
	STA !Counts,X
	PLX
	+++