 org $5000
makecharset
 ldy #0
floow
 lda $8d00,y
 sta $c400,y
 sta $c800,y
 lda $8e00,y
 sta $c500,y
 sta $c900,y
 iny
 bne floow
 rts

clearplayerfield
 ldx #0
 ldy #0
 lda #0
conadac
 sta $8000,y
 iny
 bne conadac
 inc conadac+2
 inx
 cpx #$11
 bne clearplayerfield+2
 lda #$80
 sta conadac+2
 rts

przepisz lda $d40b
	cmp #120
	bne przepisz
 ldx #0
	ldy #0
bigone	lda $8000,y
bigone2 sta $8040,y
bigone3 sta $8080,y
bigone4 sta $80c0,y
	iny	
	cpy #$30
	bne bigone
 inc bigone+2
 inc bigone2+2
 inc bigone3+2
 inc bigone4+2
        inx
        cpx #$17
        bne bigone-2
	lda #$80
 sta bigone+2
 sta bigone2+2
 sta bigone3+2
 sta bigone4+2
bigonew	rts

xmakemove lda $103	;skoki fontow sprite 2
	beq xmakemove-1
	cmp #1
	bne xf1
	jsr xtrnfnts2
	jsr xputbck
	inc $ed
	jsr xgetfnt
	rts
xf1	jsr xtrnfnts2
	jsr xputbck
	dec $ed
	jsr xgetfnt
	rts
xmakemove2	lda $104
	beq xmakemove2-1
	cmp #1
	bne xf3
	jsr xtrnfnts2
	jsr xputbck
	dec $ee
	dec $ef
	jsr xgetfnt
	rts
xf3	jsr xtrnfnts2
	jsr xputbck
	inc $ee
	inc $ef
	jsr xgetfnt
	rts

xmakemove3	lda $105
	beq xmakemove3-1
	jsr xtrnfnts2
	jsr xputbck
	ldy sprite
	lda $a200,y
	sta temp
	sec
	sbc pozhi2
	bmi xodejm2
	beq xmakemove3-1
xflap2	dec $ee
	dec $ef
	sec
	sbc #1
	bne xflap2
	jsr xgetfnt
	rts
xodejm2	inc $ee
	inc $ef	
	clc
	adc #1
	bne xodejm2
	jsr xgetfnt
	rts



keepsprite1 lda pozhi
	sta pozhi3
	lda pozhi2
	sta pozhi33
	lda pozxy
	sta pozyc
	lda ax
	sta ax1
	lda ay
	sta ay1
	lda sprite
	sta sprite2
	lda pozx
	sta _pozx1
	lda pozy
	sta _pozy1

	lda $103
	sta _103
	lda $104
	sta _104
	lda $105
	sta _105
	lda var1
	sta _var1
	lda var2
	sta _var2
	
	rts
bringsprite1 lda pozhi3
	sta pozhi
	lda pozhi33
	sta pozhi2
	lda pozyc
	sta pozxy
	lda ax1
	sta ax
	lda ay1
	sta ay
	lda sprite2
	sta sprite
	lda _pozx1
	sta pozx
	lda _pozy1
	sta pozy
	lda _103
	sta $103
	lda _104
	sta $104
	lda _105
	sta $105
	lda _var1
	sta var1
	lda _var2
	sta var2
	rts

keepsprite2 lda pozhi
	sta pozhi4
	lda pozhi2
	sta pozhi44
	lda pozxy
	sta pozycja2
	lda ax
	sta ax2
	lda ay
	sta ay2
	lda sprite
	sta sprite3
	lda pozx
	sta _pozx2
	lda pozy
	sta _pozy2
	lda $103
	sta __103
	lda $104
	sta __104
	lda $105
	sta __105
	lda var1
	sta __var1
	lda var2
	sta __var2
	rts

bringsprite2 lda pozhi4
	sta pozhi
	lda pozhi44
	sta pozhi2
	lda pozycja2
	sta pozxy
	lda ax2
	sta ax
	lda ay2
	sta ay
	lda sprite3
	sta sprite
	lda _pozx2
	sta pozx
	lda _pozy2
	sta pozy	
	lda __103
	sta $103
	lda __104
	sta $104
	lda __105
	sta $105
	lda __var1
	sta var1
	lda __var2
	sta var2
	rts


xeropage 
 txa
 tay
 ldx #0
 stx counter2_
xrpg3
 ldx tabl,y
 bmi endd
 lda $ff00,x
 sta forjmp3
 lda $fd20,x
 tay
 ldx counter2_
 jsr firstone3
forjmp3 equ *-2
 stx counter2_
 inc counter3_
 ldy counter3_
 bne xrpg3
 beq xrpg3
endd 
 rts
firstone3
 lda $c400,y
 sta $00,x
 inx
 iny
 lda $c400,y
 sta $0,x
 inx
 iny
 lda $c400,y
 sta $0,x
 inx
 iny
 lda $c400,y
 sta $0,x
 inx
 iny
 lda $c400,y
 sta $0,x
 inx
 iny
 lda $c400,y
 sta $0,x
 inx
 iny
 lda $c400,y
 sta $0,x
 inx
 iny
 lda $c400,y
 sta $0,x
 inx
 rts

secondone3
 lda $c500,y
 sta $0,x
 inx
 iny
 lda $c500,y
 sta $0,x
 inx
 iny
 lda $c500,y
 sta $0,x
 inx
 iny
 lda $c500,y
 sta $0,x
 inx
 iny
 lda $c500,y
 sta $0,x
 inx
 iny
 lda $c500,y
 sta $0,x
 inx
 iny
 lda $c500,y
 sta $0,x
 inx
 iny
 lda $c500,y
 sta $0,x
 inx
 rts

thirdone3
 lda $c600,y
 sta $0,x
 inx
 iny
 lda $c600,y
 sta $0,x
 inx
 iny
 lda $c600,y
 sta $0,x
 inx
 iny
 lda $c600,y
 sta $0,x
 inx
 iny
 lda $c600,y
 sta $0,x
 inx
 iny
 lda $c600,y
 sta $0,x
 inx
 iny
 lda $c600,y
 sta $0,x
 inx
 iny
 lda $c600,y
 sta $0,x
 inx
 rts

fourthone3
 lda $c700,y
 sta $0,x
 inx
 iny
 lda $c700,y
 sta $0,x
 inx
 iny
 lda $c700,y
 sta $0,x
 inx
 iny
 lda $c700,y
 sta $0,x
 inx
 iny
 lda $c700,y
 sta $0,x
 inx
 iny
 lda $c700,y
 sta $0,x
 inx
 iny
 lda $c700,y
 sta $0,x
 inx
 iny
 lda $c700,y
 sta $0,x
 inx
 rts

xeropage2 rts


