Rys1:
;-------------------------------------------------------------------------------------------
        stx $7F1
        ldx $7F2

        sta $601,X  ;Zapisz ID

        lda $7F1     ;Zapisz X
        sta $603,X

        TYA         ;Zapisz Y
        sta $600,X

        lda $7F0     ;Zapisz Atrybut
        sta $602,X

        TXA
        clc
        adc #$04
        sta $7F2

Rys1Exit
        rts
;--------------------------------------------------------------
Rys2:
;-------------------------------------------------------------------------------------------
        stx $7F1
        ldx $7F2

        sta $601,X  ;Zapisz ID
        clc
        adc #$01
        sta $605,X

        lda $7F1     ;Zapisz X
        sta $603,X
        clc
        adc #$08
        sta $607,X

        TYA         ;Zapisz Y
        sta $600,X
        sta $604,X

        lda $7F0     ;Zapisz Atrybut
        sta $602,X
        sta $606,X

        TXA
        clc
        adc #$08
        sta $7F2
	rts
;--------------------------------------------------------------
Rys3:
        stx $7F1
        ldx $7F2

        sta $7F3
        sta $601,X  ;Zapisz ID
        clc
        adc #$01
        sta $605,X
        sta $7f3

        lda $7F1     ;Zapisz X
        sta $603,X
        clc
        adc #$08
        sta $607,X

        TYA         ;Zapisz Y
        sta $600,X
        sta $604,X

        lda $7F0     ;Zapisz Atrybut
        sta $602,X
        sta $606,X

        TXA
        clc
        adc #$08
        sta $7F2
;******************************************
        ldx $7F2    ;Ustaw X na ilo spritw

        lda $7F3
        clc
        adc #$01
        sta $601,X  ;Zapisz ID
        clc
        adc #$01
        sta $605,X

        lda $7F1     ;Zapisz X
        sta $603,X
        clc
        adc #$08
        sta $607,X

        TYA         ;Zapisz Y
        clc
        adc #$08
        sta $600,X
        sta $604,X

        lda $7F0     ;Zapisz Atrybut
        sta $602,X
        sta $606,X

        TXA
        clc
        adc #$08
        sta $7F2

	rts
;--------------------------------------------------------------
Rys4:
        stx $7F1
        ldx $7F2

        sta $7F3
        sta $601,X  ;Zapisz ID
        sta $605,X


        lda $7F1     ;Zapisz X
        sta $603,X
        clc
        adc #$08
        sta $607,X

        TYA         ;Zapisz Y
        sta $600,X
        sta $604,X

        lda $7F0     ;Zapisz Atrybut
        sta $602,X
        clc
        adc #$40
        sta $606,X

        TXA
        clc
        adc #$08
        sta $7F2
;******************************************
        ldx $7F2    ;Ustaw X na ilo spritw

        lda $7F3
        clc
        adc #$01
        sta $601,X  ;Zapisz ID
        sta $605,X

        lda $7F1     ;Zapisz X
        sta $603,X
        clc
        adc #$08
        sta $607,X

        TYA         ;Zapisz Y
        clc
        adc #$08
        sta $600,X
        sta $604,X

        lda $7F0     ;Zapisz Atrybut
        sta $602,X
        clc
        adc #$40
        sta $606,X

        TXA
        clc
        adc #$08
        sta $7F2

	rts
;--------------------------------------------------------------

Rys5:
;-------------------------------------------------------------------------------------------
        stx $7F1
        ldx $7F2

        sta $601,X  ;Zapisz ID
        sta $605,X

        lda $7F1     ;Zapisz X
        sta $603,X
        clc
        adc #$08
        sta $607,X

        TYA         ;Zapisz Y
        sta $600,X
        sta $604,X

        lda $7F0     ;Zapisz Atrybut
        sta $602,X
        clc
        adc #$40
        sta $606,X

        TXA
        clc
        adc #$08
        sta $7F2
	rts
;--------------------------------------------------------------------------
Rys10:
        stx $7F1
        ldx $7F2

        sta $601,X  ;Zapisz ID
	clc
	adc #$01
        sta $605,X

        lda $7F1     ;Zapisz X
        sta $603,X
        sta $607,X

        TYA         ;Zapisz Y
        sta $600,X
	clc
	adc #$08
        sta $604,X

        lda $7F0     ;Zapisz Atrybut
        sta $602,X
        sta $606,X

        TXA
        clc
        adc #$08
        sta $7F2
	rts
;--------------------------------------------------------------------------
Rys.Sprity:
        lda #$06; load Y value
	sta $4014 ; store Y value
        
        ldx $7F1
        rts
;------------------------------------------------------------------
nop
nop
nop