Skool Daze: Routine at $38EF

$38EF: Restore sprite information

Used by the routines at $1DB7 and $298B.
$38EF	LDY #$10	Restore sprite coordinates from $B900-$B910 to $D000-$D010.
$38F1	LDA #$00
$38F3	STA $4E
$38F5	LDA #$D0
$38F7	STA $4F
$38F9	LDA #$00
$38FB	STA $50
$38FD	LDA #$B9
$38FF	STA $51
$3901	LDA ($50),Y
$3903	STA ($4E),Y
$3905	DEY
$3906	BPL $3901
$3908	LDY #$15	Restore the sprite enable register from $B915 to $D015.
$390A	LDA ($50),Y
$390C	STA ($4E),Y
$390E	LDY #$1D	Restore the sprite double width register from $B91D to $D01D.
$3910	LDA ($50),Y
$3912	STA ($4E),Y
$3914	LDY #$27	Restore the sprite colours from $B927-$B92E to $D027-$D02E.
$3916	LDA ($50),Y
$3918	STA ($4E),Y
$391A	INY
$391B	CPY #$2F
$391D	BNE $3916
$391F	LDX #$00	Restore the sprite pointers from $B390-$B397 to $CFF8-$CFFF.
$3921	LDA $B930,X
$3924	STA $CFF8,X
$3927	INX
$3928	CPX #$08
$392A	BNE $3921
$392C	RTS