 org $6940



acme ldx #0	          ;collect fonts on 0 page
 stx counter3_


 lda $106
 beq acme2
 cmp #2
 beq acme3

 lda <xtabl
 sta xrpg3+1
 lda >xtabl
 sta xrpg3+2
 lda #0
 sta xeropage+3
 jmp xeropage


acme2 lda <tabl
 sta xrpg3+1
 lda >tabl
 sta xrpg3+2
 lda #$60  ;60
 sta xeropage+3
 bne qoq 

acme3 

 jmp xeropage2

qoq jmp xeropage



putfnt ldy #0       ;put font on the real screen ($fa)!!!
 ldx #0
 lda #96
 sta ($fa),y
 clc
 adc #1
 inc $fb
 inx
 cpx #4
 bne putfnt+6
 inc $fa
 ldx $fc
 stx $fb
 ldx #0
kkb sta ($fa),y
 clc
 adc #1
 inc $fb
 inx
 cpx #4
 bne kkb
 inc $fa
 ldx $fc
 stx $fb
 ldx #0
jjf sta ($fa),y
 inc $fb
 clc
 adc #1
 inx
 cpx #4
 bne jjf
 lda $fc
 sta $fb
 dec $fa
 dec $fa
 rts
getfnt lda $fa	;get font from screen to 'tabl'
 pha
 ldx #0
 ldy #0
fdg lda $fc
 sta $fb
 lda ($fa),y
 sta vtabl,x
 inx
 inc $fb
 lda ($fa),y
 sta vtabl,x
 inx
 inc $fb
 lda ($fa),y
 sta vtabl,x
 inx
 inc $fb
 lda ($fa),y
 sta vtabl,x
 inx
 iny
 cpy #3
 bne fdg
 lda #128
 sta vtabl,x
 pla
 sta $fa
 lda $fc
 sta $fb
 rts
putbck lda $fa	;get font 'tabl' to screen
 pha
 ldx #0
 ldy #0
fdgg lda $fc
 sta $fb
 lda vtabl,x
 sta ($fa),y
 inx
 inc $fb
 lda vtabl,x
 sta ($fa),y
 inx
 inc $fb
 lda vtabl,x
 sta ($fa),y
 inx
 inc $fb
 lda vtabl,x
 sta ($fa),y
 inx
 iny
 cpy #3
 bne fdgg
 lda #128
 sta vtabl,x
 pla
 sta $fa
 lda $fc
 sta $fb
 rts
putfnt2 ldy #0       ;put font on the screen beneath $c0
 ldx #0
 lda #84
 sta ($ea),y
 clc
 adc #1
 inc $eb
 inx
 cpx #4
 bne putfnt2+6
 inc $ea
 ldx $ec
 stx $eb
 ldx #0
kkb2 sta ($ea),y
 clc
 adc #1
 inc $eb
 inx
 cpx #4
 bne kkb2
 inc $ea
 ldx $ec
 stx $eb
 ldx #0
jjf2 sta ($ea),y
 inc $eb
 clc
 adc #1
 inx
 cpx #4
 bne jjf2
 lda $ec
 sta $eb
 dec $ea
 dec $ea
 rts
getfnt2 lda $ea	;get font from screen to 'tabl'
 pha
 ldx #0
 ldy #0
fdg2 lda $ec
 sta $eb
 lda ($ea),y
 sta tabl,x
 inx
 inc $eb
 lda ($ea),y
 sta tabl,x
 inx
 inc $eb
 lda ($ea),y
 sta tabl,x
 inx
 inc $eb
 lda ($ea),y
 sta tabl,x
 inx
 iny
 cpy #3
 bne fdg2
 lda #128
 sta tabl,x
 pla
 sta $ea
 lda $ec
 sta $eb
 rts
putbck2 lda $ea	;get font 'tabl' to screen
 pha
 ldx #0
 ldy #0
fdgg2 lda $ec
 sta $eb
 lda tabl,x
 sta ($ea),y
 inx
 inc $eb
 lda tabl,x
 sta ($ea),y
 inx
 inc $eb
 lda tabl,x
 sta ($ea),y
 inx
 inc $eb
 lda tabl,x
 sta ($ea),y
 inx
 iny
 cpy #3
 bne fdgg2
 lda #128
 sta tabl,x
 pla
 sta $ea
 lda $ec
 sta $eb
 rts


miksuj ldy #$5f    	;procka nakladajaca bitplany
 lda $60,y		;tlo
co and $a400,y          ;maska
skadd ora $9800,y	;sprite
      and $1470,y
      ora $1410,y
naznak sta $c700,y		;znak
 sta $c6a0,y   ;62a0
 dey
 bpl miksuj+2
 rts

pozspr1 dta b(5),b(11),b(0),b(5),b(3)				;POZYCJE POCZATKOWE NA KOLEJNYCH PLANSZACH
;pozspr2 dta b(95),b(71),b(99),b(90),b(35)

interface ldy nrplanszy
	lda pozspr1,y
	sta sprite ; z sprite- dodane
	jsr setposit

	ldy nrplanszy
	lda pozspr2,y
	sta sprite3
	jsr setposit2

	lda #0
	sta ax
	sta ay
	sta ax2
	sta ay2

	lda #$78
	sta pozycja2
    sta pozxy 


	jsr getfnt2
	jsr getfnt
	jsr acme
	lda #1
	sta $106
	jsr xgetfnt
	jsr xgetfntlo
	jsr interface22
	jsr acme
	jsr miksuj2
	jsr xputfnt
;	jsr makesprite2
	lda #0
	sta $106
	jsr dlapocz
;	jsr makesprite
	jsr putfnt

interface2	lda pozhi
	sta pozhi2
	lda #0
	sta $106
	jsr pozit 
	lda ay
	cmp #255
	bne *+5
	jsr gobck
	cmp #4
	bne *+5
	jsr gofwrd
	lda ax
	cmp #255
	bne *+5
	jsr goup
	cmp #8
	bne *+5
	jsr godwn

dlapocz lda $13c
        and #1
        bne ekranzero
        lda #$cb      ;9f
        sta naznak+2
        bne done
ekranzero 
        lda #$c7       ;63
        sta naznak+2
done
        inc $163
        lda $163
        lsr @
        and #3
        asl @
        asl @
        clc
        adc ay
        asl @
        sta $164
        lda $15f
        cmp gora
        bne xsearchnxt1
        ldy $164
        lda xlewogora,y
        clc
        adc #7
        sec
        sbc ax
        sta skadd+1
        lda xlewogoramsk,y
        clc
        adc #7
        sec
        sbc ax
        sta co+1
        iny
        lda xlewogora,y
        sta skadd+2
        lda xlewogoramsk,y
        sta co+2
;	jsr miksuj
;	jsr putfnt2
	rts
xsearchnxt1
        cmp dol
        bne xsearchnxt2
        ldy $164
        lda xprawodol,y
        clc
        adc #7
        sec
        sbc ax
        sta skadd+1
        lda xprawodolmsk,y
        clc
        adc #7
        sec
        sbc ax
        sta co+1
        iny
        lda xprawodol,y
        sta skadd+2
        lda xprawodolmsk,y
        sta co+2
;	jsr miksuj
;	jsr putfnt2
	rts
xsearchnxt2
        cmp lewo
        bne xsearchnxt3
        ldy $164
        lda xlewodol,y
        clc
        adc #7
        sec
        sbc ax
        sta skadd+1
        lda xlewodolmsk,y
        clc
        adc #7
        sec
        sbc ax
        sta co+1
        iny
        lda xlewodol,y
        sta skadd+2
        lda xlewodolmsk,y
        sta co+2
;	jsr miksuj
;	jsr putfnt2
	rts
xsearchnxt3 cmp prawo
        bne xtylkomix
        ldy $164
        lda xprawogora,y
        clc
        adc #7
        sec
        sbc ax
        sta skadd+1
        lda xprawogoramsk,y
        clc
        adc #7
        sec
        sbc ax
        sta co+1
        iny
        lda xprawogora,y
        sta skadd+2
        lda xprawogoramsk,y
        sta co+2
;	jsr miksuj
;	jsr putfnt2
        rts
xtylkomix
;	jsr miksuj
;	jsr putfnt2
	rts



	
gofwrd  jsr putbck2

	lda #1
 	sta $103
	inc $ea
	jsr getfnt2

	jsr acme
	lda #0
	sta ay
	rts
gobck 	jsr putbck2

	lda #2
	sta $103
	dec $ea
	jsr getfnt2

	jsr acme
	lda #3
	sta ay
	rts
goup	jsr putbck2

	lda #1
	sta $104
	dec $eb
	dec $ec
	jsr getfnt2

	jsr acme
	lda #7
	sta ax
	rts
godwn	jsr putbck2

	lda #2
	sta $104
	inc $eb
	inc $ec
	jsr getfnt2

	jsr acme
	lda #0
	sta ax
	rts

pozit   jsr putbck2
	lda #1
	sta $105
	ldy sprite
	lda $a200,y
	sta temp
	sec
	sbc pozhi
	bmi odejmij
	beq pozit-1
	sta $140
flap	dec $eb
	dec $ec
	sec
	sbc #1
	bne flap
	jsr getfnt2
	jsr acme
	lda temp
	sta pozhi
	rts

odejmij	inc $eb
	inc $ec	
	clc
	adc #1
	bne odejmij
	jsr getfnt2
	jsr acme
	lda temp
	sta pozhi
	rts


clarifyea
        ldy #$60
        lda #$0
        sta $ea10,y
        lda #$ff
        sta $ea70,y
        dey
        bpl clarifyea+2
        rts
clarify14
        ldy #$60
        lda #$0
        sta $1410,y
        lda #$ff
        sta $1470,y
        dey
        bpl clarify14+2
        rts        
        



;                      MASKA NAKLADANA NA ROZNE FONTY W ZALEZNOSCI OD STANU $106		
putmask	tay
	lda fonty,y
	sta mask1+1
	sta mask2+1
 sta ymask1+1
 sta ymask2+1
	lda fonty2,y
	sta mask2+2
 sta ymask2+2
	sec
        sbc #$5c
	sta mask1+2
 sta ymask1+2	
	lda $106
	beq common
	cmp #2
	beq common3
	jmp common2

common	lda #$14
	sta kham+2
	sta ockm+2
 sta kham0+2
 sta yockm+2
 sta yockm0+2
 sta ykham+2
 sta ykham0+2
wspolny 



commshare	ldy #0		;w rej. x numer fontu sprite`a / w rej. a numer maski 
	lda fonty,x
	tax
	clc
	adc #8
	sta petla+1
        sta petla2+1
      
kham0        lda $1470,x      
       cmp #$ff
       bne dodajdomaski                         
mask1   lda $6800,y

kham    sta $1470,x

mask2	 lda $6000,y		
                                
ockm     sta $1410,x
	inx
	iny
petla	cpx #8
	bne mask1	
	rts

dodajdomaski   
ykham    lda $1470,x                        
ymask1   and $6800,y
ykham0    sta $1470,x
ymask2	lda $6000,y	
yockm0  ora $1410,x	
yockm     sta $1410,x
	inx
	iny
petla2	cpx #8
	bne ykham	
	rts
common3 
  rts

putmask2 tay
	lda fonty,y
	sta mask2+1
 sta ymask2+1
	lda #0
	sta mask1+1
 sta ymask1+1
	lda fonty2,y
	sta mask2+2
 sta ymask2+2
	lda #$68
	sta mask1+2
 sta ymask1+2
	lda $106
	bne niesiegam
        jmp common
niesiegam
	cmp #2
	beq common3
	bne common2

   

putmask3 tay
	lda fonty,y
	sta mask1+1
	sta mask2+1
 sta ymask1+1
 sta ymask2+1
	lda fonty2,y
        sec
        sbc #$5e	;!
	sta mask2+2
 sta ymask2+2
	clc
	adc #2
	sta mask1+2
 sta ymask1+2
	lda $106
	bne niecommon
        jmp common
niecommon
	cmp #2
	beq common3
	bne common2

putmask4 tay
	lda fonty,y
	sta mask2+1
 sta ymask2+1
ktoryz	lda #24
	sta mask1+1
 sta ymask1+1
	lda fonty2,y
	sec
        sbc #$5e
	sta mask2+2
 sta ymask2+2
	lda #$68
	sta mask1+2
 sta ymask1+2
	lda $106
	cmp #1
	beq common2
	cmp #2
	beq common3_1 ;common3
	jmp common


common2 lda #$ea

	jmp common+2


common3_1 rts


doit31  ldy temp2
	lda $a200,y
	ldy sprite
	sec
	sbc $a200,y
	bne r5 
	jmp doit22
r5	lda #3
	sta $101
	lda #16
	sta ktoryz+1
	ldy temp
	jmp tlo	

doit32	lda #3
	sta $101
	lda #32
	sta ktoryz+1	;ktora maska
	ldy temp
	jmp tlo
doit4   pha
	tya
	pha
	lda #3
	sta $101
	lda #32
	sta ktoryz+1
	jmp tlo
doit3   pha
	tya
	pha
	lda pozycja
	sec
	sbc #10
	sta temp2
	sty temp
	tay
	lda $a200,y

	sec 
	sbc current	
	cmp #255
	bne doit222
	lda temp2
	sec
	sbc sprite
	bne *+5
	jmp doit22
	cmp #1
	beq doit31
	cmp #255
	beq doit32
	lda #3
	sta $101
	lda #16
	sta ktoryz+1	;ktora maska
	ldy temp
	jmp tlo
doit222 lda #2
	sta $101
	ldy temp
	jsr sprawdz
	lda #1
	sta $101
	pla
	tay
	pla


	rts
switch2 cmp #20
	beq doit
	cmp #18	
	beq doit
	cmp #35
	beq doit
	cmp #0
	beq doit4
	cmp #26
	beq doit4
	jmp doit3
	

switch  
  	 cmp #9	;nr.fontow
	beq doit 
	cmp #36
	beq doit3
	cmp #23
	beq doit
	cmp #10
	beq doit
	cmp #12
	beq doit
	cmp #20
	beq doit
	cmp #18
	beq doit
	cmp #31
	beq doit2	;ten trudny >

	cmp #33
	beq doit
	cmp #35
	beq doit
	jsr sprawdz
	rts
doit	pha
	tya
	pha
	lda #2
	sta $101
	jsr sprawdz
	lda #1
	sta $101
	pla
	tay
	pla
	rts

doit22	lda #2 
	sta $101
	ldy temp
tlo	jsr sprawdz
	lda #1
	sta $101
	pla
	tay
	pla
	rts

doit2   pha
	tya
	pha
	lda pozycja
	sec
	sbc #1
	sty temp
	tay
	lda $a200,y
	sec 
	sbc current	
	cmp #255
	bne doit22
	lda pozycja
	sec
	sbc sprite
	cmp #1
	beq doit22
	cmp #11	
	beq doit221
	lda #3
	sta $101
	lda #24
	sta ktoryz+1	;ktora maska
	ldy temp
	jmp tlo	

doit221	lda pozycja
	sec
	sbc #1
	tay
	lda $a200,y
	ldy sprite
	sec
	sbc $a200,y
	beq doit22

	lda #3
	sta $101
	lda #24
	sta ktoryz+1
	ldy temp
	jmp tlo	





gora dta 1
dol dta 2
lewo dta 4
prawo dta 8
dol_lewo dta 6




xgofwrd 
xs	jsr xputbcktlo
	lda #1
 	sta $103
	inc $e7
	jsr xgetfntlo

	jsr acme
	lda #0
	sta ay
	rts





	
 org $5330

	



miksuj2 ldy #$5f    	;procka nakladajaca bitplany
 lda $00,y		;tlo
xco and $a400,y         ;maska
xskadd ora $9800,y	;sprite
       and $ea70,y
       ora $ea10,y
naznak2 sta $c760,y		;znak
 sta $c640,y            ;6240
 dey
 bpl miksuj2+2
 rts






interface22	lda pozhi
	sta pozhi2
	lda #1
	sta $106	;DLA ACME
	jsr xpozit 
	lda ay
	cmp #255
	bne *+5
	jsr xgobck
	cmp #4
	bne *+5
	jsr xgofwrd
	lda ax
	cmp #255
	bne *+5
	jsr xgoup
	cmp #8
	bne *+5
	jsr xgodwn
dlapocz2         
        lda $13c
        and #1
        bne ekranzero3
        lda #$cb    ;9f
        sta naznak2+2
        bne forward
ekranzero3
        lda #$c7   ;63
        sta naznak2+2
forward 
        inc $161
        lda $161
        lsr @
        and #3
prcdd   asl @
        asl @
        clc
        adc ay
        asl @
        sta $162
        lda $160
        cmp gora
 beq coco
        jmp searchnxt1
coco
        ldy $162
        lda lewogora,y
        clc
        adc #7
        sec
        sbc ax
        sta xskadd+1
        lda lewogoramsk,y
        clc
        adc #7
        sec
        sbc ax
        sta xco+1
        iny
        lda lewogora,y
        sta xskadd+2
        lda lewogoramsk,y
        sta xco+2
;	jsr miksuj2
;	jsr xputfntlo
	rts

makemove lda $103
	beq makemove-1
	cmp #1
	bne f1
	jsr xtrnfnts
	jsr putbck
	inc $fa
	jsr getfnt
	rts
f1	jsr xtrnfnts
	jsr putbck
	dec $fa
	jsr getfnt
	rts


 org $5800
searchnxt1
        cmp dol
        bne searchnxt2
        ldy $162
        lda prawodol,y
        clc
        adc #7
        sec
        sbc ax
        sta xskadd+1
        lda prawodolmsk,y
        clc
        adc #7
        sec
        sbc ax
        sta xco+1
        iny
        lda prawodol,y
        sta xskadd+2
        lda prawodolmsk,y
        sta xco+2
;	jsr miksuj2
;	jsr xputfntlo
	rts

searchnxt2
        cmp lewo
        beq zozo
        jmp  searchnxt3
zozo
        ldy $162
        lda lewodol,y
        clc
        adc #7
        sec
        sbc ax
        sta xskadd+1
        lda lewodolmsk,y
        clc
        adc #7
        sec
        sbc ax
        sta xco+1
        iny
        lda lewodol,y
        sta xskadd+2
        lda lewodolmsk,y
        sta xco+2
	rts

searchnxt3 cmp prawo
        bne tylkomix
        ldy $162
        lda prawogora,y
        clc
        adc #7
        sec
        sbc ax
        sta xskadd+1
        lda prawogoramsk,y
        clc
        adc #7
        sec
        sbc ax
        sta xco+1
        iny
        lda prawogora,y
        sta xskadd+2
        lda prawogoramsk,y
        sta xco+2
;	jsr miksuj2
;	jsr xputfntlo
	rts
tylkomix
;	jsr miksuj2
;	jsr xputfntlo
	rts

xgobck 	
xa	jsr xputbcktlo
	lda #2
	sta $103
	dec $e7
	jsr xgetfntlo

	jsr acme
	lda #3
	sta ay
	rts
xgoup
xax	jsr xputbcktlo

	lda #1
	sta $104
	dec $e8
	dec $e9
	jsr xgetfntlo

	jsr acme
	lda #7
	sta ax
	rts
xgodwn		
xex	jsr xputbcktlo

	lda #2
	sta $104
	inc $e8
	inc $e9
	jsr xgetfntlo

	jsr acme
	lda #0
	sta ax
	rts

xpozit  
xas	jsr xputbcktlo
	lda #1
	sta $105
	ldy sprite
	lda $a200,y
	sta temp
	sec
	sbc pozhi
	bmi odejm22
	beq xpozit-1
xxflap2	dec $e8
	dec $e9
	sec
	sbc #1
	bne xxflap2
	jsr xgetfntlo
	jsr acme
	lda temp
	sta pozhi
	rts
odejm22	inc $e8
	inc $e9	
	clc
	adc #1
	bne odejm22
	jsr xgetfntlo
	jsr acme
	lda temp
	sta pozhi
	rts









xputfnt ldy #0       ;put font on the screen #$40
 ldx #0
 lda #108
 sta ($ed),y			;($ed)
 clc
 adc #1
 inc $ee
 inx
 cpx #4
 bne xputfnt+6
 inc $ed
 ldx $ef
 stx $ee
 ldx #0
xkkb sta ($ed),y
 clc
 adc #1
 inc $ee
 inx
 cpx #4
 bne xkkb
 inc $ed
 ldx $ef
 stx $ee
 ldx #0
xjjf sta ($ed),y
 inc $ee
 clc
 adc #1
 inx
 cpx #4
 bne xjjf
 lda $ef
 sta $ee
 dec $ed
 dec $ed
 rts
xgetfnt lda $ed	;get font from screen to 'tabl'
 pha
 ldx #0
 ldy #0
xfdg lda $ef
 sta $ee
 lda ($ed),y
 sta xtabl2,x
 inx
 inc $ee
 lda ($ed),y
 sta xtabl2,x
 inx
 inc $ee
 lda ($ed),y
 sta xtabl2,x
 inx
 inc $ee
 lda ($ed),y
 sta xtabl2,x
 inx
 iny
 cpy #3
 bne xfdg
 lda #128
 sta xtabl2,x
 pla
 sta $ed
 lda $ef
 sta $ee
 rts

xputbck lda $ed	;get font 'tabl' to screen
 pha
 ldx #0
 ldy #0
xfadgg lda $ef
 sta $ee
 lda xtabl2,x
 sta ($ed),y
 inx
 inc $ee
 lda xtabl2,x
 sta ($ed),y
 inx
 inc $ee
 lda xtabl2,x
 sta ($ed),y
 inx
 inc $ee
 lda xtabl2,x
 sta ($ed),y
 inx
 iny
 cpy #3
 bne xfadgg
 lda #128
 sta xtabl2,x
 pla
 sta $ed
 lda $ef
 sta $ee
 rts



xputfntlo ldy #0       ;put font on the screen #$c0
 ldx #0
 lda #72
 sta ($e7),y			;($e7)
 clc
 adc #1
 inc $e8
 inx
 cpx #4
 bne xputfntlo+6
 inc $e7
 ldx $e9
 stx $e8
 ldx #0
xkkb2 sta ($e7),y
 clc
 adc #1
 inc $e8
 inx
 cpx #4
 bne xkkb2
 inc $e7
 ldx $e9
 stx $e8
 ldx #0
xjjf2 sta ($e7),y
 inc $e8
 clc
 adc #1
 inx
 cpx #4
 bne xjjf2
 lda $e9
 sta $e8
 dec $e7
 dec $e7
 rts
xgetfntlo lda $e7	;get font from screen to 'tabl'
 pha
 ldx #0
 ldy #0
xfdg2 lda $e9
 sta $e8
 lda ($e7),y
 sta xtabl,x
 inx
 inc $e8
 lda ($e7),y
 sta xtabl,x
 inx
 inc $e8
 lda ($e7),y
 sta xtabl,x
 inx
 inc $e8
 lda ($e7),y
 sta xtabl,x
 inx
 iny
 cpy #3
 bne xfdg2
 lda #128
 sta xtabl,x
 pla
 sta $e7
 lda $e9
 sta $e8
 rts

xputbcktlo lda $e7	;get font 'tabl' to screen
 pha
 ldx #0
 ldy #0
xfdgg2 lda $e9
 sta $e8
 lda xtabl,x

 sta ($e7),y
 inx
 inc $e8
 lda xtabl,x

 sta ($e7),y
 inx
 inc $e8
 lda xtabl,x

 sta ($e7),y
 inx
 inc $e8
 lda xtabl,x

 sta ($e7),y
 inx
 iny
 cpy #3
 bne xfdgg2
 lda #128
 sta xtabl,x
 pla
 sta $e7
 lda $e9
 sta $e8
 rts
		
makemove2	lda $104
	beq makemove2-1
	cmp #1
	bne f3
	jsr xtrnfnts
	jsr putbck
	dec $fb
	dec $fc
	jsr getfnt
	rts
f3	jsr xtrnfnts
	jsr putbck
	inc $fb
	inc $fc
	jsr getfnt
	rts


makemove3	lda $105
	beq makemove3-1
	jsr xtrnfnts
	jsr putbck
	ldy sprite
	lda $a200,y
	sta temp
	sec
	sbc pozhi2
	bmi odejm2
	beq makemove3-1
flap2	dec $fb
	dec $fc
	sec
	sbc #1
	bne flap2
	jsr getfnt
	rts
odejm2	inc $fb
	inc $fc	
	clc
	adc #1
	bne odejm2
	jsr getfnt
	rts	
	



 org $14e0
xtabl dta b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b($ff)
xtabl2 dta b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b($ff)
  org $5c00
pozhi	dta b(0)
sprite3 dta b(0)
tabl dta b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b($ff)
 dta b(0),b(0)
vtabl dta b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b($ff),b($ff)
tabl22 dta b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b(0),b($ff)

fonty dta b(0),b(8),b(16),b(24),b(32),b(40),b(48),b(56),b(64),b(72),b(80),b(88),b(96),b(104),b(112),b(120),b(128)
      dta b(136),b(144),b(152),b(160),b(168),b(176),b(184),b(192),b(200),b(208),b(216),b(224),b(232),b(240),b(248)
      dta b(0),b(8),b(16),b(24),b(32),b(40),b(48),b(56),b(64),b(72),b(80)
fonty2 dta b($c4),b($c4),b($c4),b($c4),b($c4),b($c4)
	dta b($c4),b($c4),b($c4),b($c4),b($c4),b($c4)
	dta b($c4),b($c4),b($c4),b($c4),b($c4),b($c4)
	dta b($c4),b($c4),b($c4),b($c4),b($c4),b($c4)
	dta b($c4),b($c4),b($c4),b($c4),b($c4),b($c4)
        dta b($c4),b($c4)
	dta b($c5),b($c5),b($c5),b($c5),b($c5),b($c5),b($c5)

temp2 	dta b(0)			
temp 	dta b(0)

pozhi2  dta b(0)
ax	dta b(0)
ay	dta b(0)

;DLA SPRITE`A 1:
ax1 dta b(0)
ay1 dta b(0)
pozhi3 dta b(0)
pozhi33 dta b(0)
pozyc dta b(0)
sprite2 dta b(0)
_pozx1 dta b(0)
_pozy1 dta b(0)
_103 dta b(0)
_104 dta b(0)
_105 dta b(0)
_var1 dta b(0)
_var2 dta b(0)

;DLA SPRITE`A 2
ax2 dta b(0)
ay2 dta b(0)
pozhi4 dta b(0)
pozhi44 dta b(0)
pozycja2 dta b(0)

_pozx2 dta b(0)
_pozy2 dta b(0)
__103 dta b(0)
__104 dta b(0)
__105 dta b(0)
__var1 dta b(0)
__var2 dta b(0)