Wczytaj_Palety_CHR_ADV:
 lda Numer_Lev
 asl A
 tax

 lda pokoje2+0,x
 sta addrLO
 Lda pokoje2+1,x
 sta addrHI

 ldy #$4
 LDA [addrLO], y
 sta SLOT_TLO1
 iny
 LDA [addrLO], y
 sta SLOT_TLO2
 iny
 LDA [addrLO], y
 sta SLOT_TLO3
 iny
 LDA [addrLO], y
 sta SLOT_TLO4
 iny
 LDA [addrLO], y
 sta SLOT_SPR2
 iny
 LDA [addrLO], y
 sta SLOT_SPR3

Ustaw_Pal_Adv:

 ldy #$A
 LDA [addrLO], y

 asl A
 tax

 lda palety_Adv+0,x
 sta addrLO
 Lda palety_Adv+1,x
 sta addrHI

 ldy #$0
Ustaw_Pal_Adv2:
 LDA [addrLO], y
 sta $701,y
 iny
 cpy #$10
 bne Ustaw_Pal_Adv2

;---------------------------------------------------------
 lda Numer_Lev
 asl A
 tax

 lda palety_Zdarzenia_Adv+0,x
 sta addrLO
 Lda palety_Zdarzenia_Adv+1,x              ; start out at 0
 sta addrHI

 ldy #$0
Wczytaj_Paleta_Zdarzen:
 LDA [addrLO], y
 sta $719,y
 iny
 cpy #$07
 bne Wczytaj_Paleta_Zdarzen

 jsr Laduj_Paleta

 lda #$00
 sta SLOT_SPR1
 lda #$55
 sta SLOT_SPR4

 rts