longa off
wait     lda   VERTCNT
         cmp   #$FF
         bne   wait
         longm
         lda   #$9FFF
         tcs
         lda   #$2000                   ;This puts palette set one in position
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)
         lda   #$2100
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)
         shortm
wait1    lda   VERTCNT
         inc   a
         and   #$0007
         cmp   #$0007
         bne   wait1
         longm
         lda   #$9FFF
         tcs
         lda   #$2200                   ;This puts palette set 2 in position
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)
         lda   #$2300
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)

         shortm
wait2    lda   VERTCNT
         inc   a
         and   #$0007
         cmp   #$0007
         bne   wait2
         longm
         lda   #$9FFF
         tcs
         lda   #$2400                   ;This puts palette set 3 in position
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)
         lda   #$2500
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)

         shortm
wait3    lda   VERTCNT
         inc   a
         and   #$0007
         cmp   #$0007
         bne   wait3
         longm
         lda   #$9FFF
         tcs
         lda   #$2600                   ;This puts palette set 4 in position
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)
         lda   #$2700
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)

         shortm
wait4    lda   VERTCNT
         inc   a
         and   #$0007
         cmp   #$0007
         bne   wait4
         longm
         lda   #$9FFF
         tcs
         lda   #$2800                   ;This puts palette set 5 in position
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)
         lda   #$2900
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)

         shortm
wait5    lda   VERTCNT
         inc   a
         and   #$0007
         cmp   #$0007
         bne   wait5
         longm
         lda   #$9FFF
         tcs
         lda   #$2A00                   ;This puts palette set 6 in position
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)
         lda   #$2B00
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)

         shortm
wait6    lda   VERTCNT
         inc   a
         and   #$0007
         cmp   #$0007
         bne   wait6
         longm
         lda   #$9FFF
         tcs
         lda   #$2C00                   ;This puts palette set 7 in position
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)
         lda   #$2D00
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)

         shortm
wait7    lda   VERTCNT
         inc   a
         and   #$0007
         cmp   #$0007
         bne   wait7
         longm
         lda   #$9FFF
         tcs
         lda   #$2E00                   ;This puts palette set 8 in position
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)
         lda   #$2F00
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)

         shortm
wait8    lda   VERTCNT
         inc   a
         and   #$0007
         cmp   #$0007
         bne   wait8
         longm
         lda   #$9FFF
         tcs
         lda   #$3000                   ;This puts palette set 9 in position
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)
         lda   #$3100
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)

         shortm
wait9    lda   VERTCNT
         inc   a
         and   #$0007
         cmp   #$0007
         bne   wait9
         longm
         lda   #$9FFF
         tcs
         lda   #$3200                   ;This puts palette set 10 in position
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)
         lda   #$3300
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)

         shortm
wait10   lda   VERTCNT
         inc   a
         and   #$0007
         cmp   #$0007
         bne   wait10
         longm
         lda   #$9FFF
         tcs
         lda   #$3400                   ;This puts palette set 11 in position
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)
         lda   #$3500
         tcd
         pei   ($1E)
         pei   ($1C)
         pei   ($1A)
         pei   ($18)
         pei   ($16)
         pei   ($14)
         pei   ($12)
         pei   ($10)
         pei   ($0E)
         pei   ($0C)
         pei   ($0A)
         pei   ($08)
         pei   ($06)
         pei   ($04)
         pei   ($02)
         pei   ($00)
         pei   ($3E)
         pei   ($3C)
         pei   ($3A)
         pei   ($38)
         pei   ($36)
         pei   ($34)
         pei   ($32)
         pei   ($30)
         pei   ($2E)
         pei   ($2C)
         pei   ($2A)
         pei   ($28)
         pei   ($26)
         pei   ($24)
         pei   ($22)
         pei   ($20)
         pei   ($5E)
         pei   ($5C)
         pei   ($5A)
         pei   ($58)
         pei   ($56)
         pei   ($54)
         pei   ($52)
         pei   ($50)
         pei   ($4E)
         pei   ($4C)
         pei   ($4A)
         pei   ($48)
         pei   ($46)
         pei   ($44)
         pei   ($42)
         pei   ($40)
         pei   ($7E)
         pei   ($7C)
         pei   ($7A)
         pei   ($78)
         pei   ($76)
         pei   ($74)
         pei   ($72)
         pei   ($70)
         pei   ($6E)
         pei   ($6C)
         pei   ($6A)
         pei   ($68)
         pei   ($66)
         pei   ($64)
         pei   ($62)
         pei   ($60)
         pei   ($9E)
         pei   ($9C)
         pei   ($9A)
         pei   ($98)
         pei   ($96)
         pei   ($94)
         pei   ($92)
         pei   ($90)
         pei   ($8E)
         pei   ($8C)
         pei   ($8A)
         pei   ($88)
         pei   ($86)
         pei   ($84)
         pei   ($82)
         pei   ($80)
         pei   ($BE)
         pei   ($BC)
         pei   ($BA)
         pei   ($B8)
         pei   ($B6)
         pei   ($B4)
         pei   ($B2)
         pei   ($B0)
         pei   ($AE)
         pei   ($AC)
         pei   ($AA)
         pei   ($A8)
         pei   ($A6)
         pei   ($A4)
         pei   ($A2)
         pei   ($A0)
         pei   ($DE)
         pei   ($DC)
         pei   ($DA)
         pei   ($D8)
         pei   ($D6)
         pei   ($D4)
         pei   ($D2)
         pei   ($D0)
         pei   ($CE)
         pei   ($CC)
         pei   ($CA)
         pei   ($C8)
         pei   ($C6)
         pei   ($C4)
         pei   ($C2)
         pei   ($C0)
         pei   ($FE)
         pei   ($FC)
         pei   ($FA)
         pei   ($F8)
         pei   ($F6)
         pei   ($F4)
         pei   ($F2)
         pei   ($F0)
         pei   ($EE)
         pei   ($EC)
         pei   ($EA)
         pei   ($E8)
         pei   ($E6)
         pei   ($E4)
         pei   ($E2)
         pei   ($E0)

         copy palette.asm2