PalCycle_VSScreen:
		subq.b	#1,($FFFFFFF0).w
		beq.s	First_Red
		rts

First_Red:
		move.b	#3,($FFFFFFF0).w
		lea		($FFFFFB06).w,a0
		cmpi.w	#$004E,0(a0)
		bne		First_Purple
		move.w	#$0E0C,0(a0)
		jmp		Second_Red
		
First_Purple:
		cmpi.w	#$0E0C,0(a0)
		bne		First_Blue
		move.w	#$0E60,0(a0)
		jmp		Second_Red
		
First_Blue:
		cmpi.w	#$0E60,0(a0)
		bne		First_LBlue
		move.w	#$0CE0,0(a0)
		jmp		Second_Red
		
First_LBlue:
		cmpi.w	#$0CE0,0(a0)
		bne		First_Yellow
		move.w	#$00EC,0(a0)
		jmp		Second_Red
		
First_Yellow:
		cmpi.w	#$00EC,0(a0)
		bne		First_Orange
		move.w	#$00AE,0(a0)
		jmp		Second_Red
		
First_Orange:
		cmpi.w	#$00AE,0(a0)
		bne		First_Red
		move.w	#$004E,0(a0)
		jmp		Second_Red
; ---------------------------------------------------------------------------
		
Second_Red:
		cmpi.w	#$004E,6(a0)
		bne		Second_Purple
		move.w	#$0E0C,6(a0)
		jmp		Third_Red
		
Second_Purple:
		cmpi.w	#$0E0C,6(a0)
		bne		Second_Blue
		move.w	#$0E60,6(a0)
		jmp		Third_Red
		
Second_Blue:
		cmpi.w	#$0E60,6(a0)
		bne		Second_LBlue
		move.w	#$0CE0,6(a0)
		jmp		Third_Red
		
Second_LBlue:
		cmpi.w	#$0CE0,6(a0)
		bne		Second_Yellow
		move.w	#$00EC,6(a0)
		jmp		Third_Red
		
Second_Yellow:
		cmpi.w	#$00EC,6(a0)
		bne		Second_Orange
		move.w	#$00AE,6(a0)
		jmp		Third_Red
		
Second_Orange:
		cmpi.w	#$00AE,6(a0)
		bne		Second_Red
		move.w	#$004E,6(a0)
		jmp		Third_Red
; ---------------------------------------------------------------------------

Third_Red:
		cmpi.w	#$004E,8(a0)
		bne		Third_Purple
		move.w	#$0E0C,8(a0)
		jmp		Fourth_Red
		
Third_Purple:
		cmpi.w	#$0E0C,8(a0)
		bne		Third_Blue
		move.w	#$0E60,8(a0)
		jmp		Fourth_Red
		
Third_Blue:
		cmpi.w	#$0E60,8(a0)
		bne		Third_LBlue
		move.w	#$0CE0,8(a0)
		jmp		Fourth_Red
		
Third_LBlue:
		cmpi.w	#$0CE0,8(a0)
		bne		Third_Yellow
		move.w	#$00EC,8(a0)
		jmp		Fourth_Red
		
Third_Yellow:
		cmpi.w	#$00EC,8(a0)
		bne		Third_Orange
		move.w	#$00AE,8(a0)
		jmp		Fourth_Red
		
Third_Orange:
		cmpi.w	#$00AE,8(a0)
		bne		Third_Red
		move.w	#$004E,8(a0)
		jmp		Fourth_Red
; ---------------------------------------------------------------------------

Fourth_Red:
		cmpi.w	#$004E,4(a0)
		bne		Fourth_Purple
		move.w	#$0E0C,4(a0)
		jmp		Fiveth_Red
		
Fourth_Purple:
		cmpi.w	#$0E0C,4(a0)
		bne		Fourth_Blue
		move.w	#$0E60,4(a0)
		jmp		Fiveth_Red
		
Fourth_Blue:
		cmpi.w	#$0E60,4(a0)
		bne		Fourth_LBlue
		move.w	#$0CE0,4(a0)
		jmp		Fiveth_Red
		
Fourth_LBlue:
		cmpi.w	#$0CE0,4(a0)
		bne		Fourth_Yellow
		move.w	#$00EC,4(a0)
		jmp		Fiveth_Red
		
Fourth_Yellow:
		cmpi.w	#$00EC,4(a0)
		bne		Fourth_Orange
		move.w	#$00AE,4(a0)
		jmp		Fiveth_Red
		
Fourth_Orange:
		cmpi.w	#$00AE,4(a0)
		bne		Fourth_Red
		move.w	#$004E,4(a0)
		jmp		Fiveth_Red
; ---------------------------------------------------------------------------

Fiveth_Red:
		cmpi.w	#$004E,$A(a0)
		bne		Fiveth_Purple
		move.w	#$0E0C,$A(a0)
		jmp		Sixth_Red
		
Fiveth_Purple:
		cmpi.w	#$0E0C,$A(a0)
		bne		Fiveth_Blue
		move.w	#$0E60,$A(a0)
		jmp		Sixth_Red
		
Fiveth_Blue:
		cmpi.w	#$0E60,$A(a0)
		bne		Fiveth_LBlue
		move.w	#$0CE0,$A(a0)
		jmp		Sixth_Red
		
Fiveth_LBlue:
		cmpi.w	#$0CE0,$A(a0)
		bne		Fiveth_Yellow
		move.w	#$00EC,$A(a0)
		jmp		Sixth_Red
		
Fiveth_Yellow:
		cmpi.w	#$00EC,$A(a0)
		bne		Fiveth_Orange
		move.w	#$00AE,$A(a0)
		jmp		Sixth_Red
		
Fiveth_Orange:
		cmpi.w	#$00AE,$A(a0)
		bne		Fiveth_Red
		move.w	#$004E,$A(a0)
		jmp		Sixth_Red
; ---------------------------------------------------------------------------
Sixth_Red:
		cmpi.w	#$004E,2(a0)
		bne		Sixth_Purple
		move.w	#$0E0C,2(a0)
		rts
		
Sixth_Purple:
		cmpi.w	#$0E0C,2(a0)
		bne		Sixth_Blue
		move.w	#$0E60,2(a0)
		rts
		
Sixth_Blue:
		cmpi.w	#$0E60,2(a0)
		bne		Sixth_LBlue
		move.w	#$0CE0,2(a0)
		rts
		
Sixth_LBlue:
		cmpi.w	#$0CE0,2(a0)
		bne		Sixth_Yellow
		move.w	#$00EC,2(a0)
		rts
		
Sixth_Yellow:
		cmpi.w	#$00EC,2(a0)
		bne		Sixth_Orange
		move.w	#$00AE,2(a0)
		rts
		
Sixth_Orange:
		cmpi.w	#$00AE,2(a0)
		bne		Sixth_Red
		move.w	#$004E,2(a0)
		rts