

player_and_mask
 jsr makesuw
 lda #$87
 sta bierzstad+1
 lda #0
 sta bierzstad
 sta narom1
 sta narom2
 lda #$2
 sta narom1+1
 lda #$3
 sta narom2+1
 jsr makesuw
 lda <wypeln
 sta powtorzto+1
 lda >wypeln
 sta powtorzto+2
 lda rorsample
 sta aer2+1
 sta aer3+1
 sta aer4+1
 lda #$84
 sta bierzstad+1
 lda #0
 sta bierzstad
 sta narom1
 sta narom2
 lda #$eb
 sta narom1+1
 lda #$ec
 sta narom2+1
 jsr makesuw
 lda #$8a
 sta bierzstad+1
 lda #0
 sta bierzstad
 sta narom1
 sta narom2
 lda #$15
 sta narom1+1
 lda #$16
 sta narom2+1
 jsr makesuw
 rts
makelata
 ldy #0
lata2
 lda $6740,y
 sta $1500,y
 iny
 cpy #$70
 bne lata2
 rts
wyczysc

 ldy #0
 lda #0
 sta $c100,y
 sta $c200,y
 iny
 bne wyczysc+4
 rts
wypeln
 ldy #0
 lda #$ff
 sta $c100,y
 sta $c200,y
 iny
 bne wypeln+4
 rts

makesuw
 ldx #0
 stx $101
powtorzto
 jsr wyczysc
 ldy #0
bierzstad equ *+1
 lda $8100,y
 sta $c100,y
 sta $c160,y
 sta $c1c0,y
 sta $c220,y
 iny
 cpy #$40
 bne bierzstad-1
 jsr makerorr
 jsr przepisznarom
 inc $101
 lda $101
 cmp #12
 beq makesuw-1
 lda bierzstad
 clc
 adc #64
 sta bierzstad
 bne powtorzto
 inc bierzstad+1
 jmp powtorzto
makerorr
 ldy #0
 ldx #0
aer2 sec
 lsr $c160,x
 ror $c180,x
 ror $c1a0,x
 iny
 cpy #2
 bne aer2
 ldy #0
 inx
 cpx #$20
 bne aer2
 ldy #0
 ldx #0
aer3 sec
 lsr $c1c0,x
 ror $c1e0,x
 ror $c200,x
 iny
 cpy #4
 bne aer3
 ldy #0
 inx
 cpx #$20
 bne aer3
 ldy #0
 ldx #0
aer4 sec
 lsr $c220,x
rorsample 
 ror $c240,x
 ror $c260,x
 iny
 cpy #6
 bne aer4
 ldy #0
 inx
 cpx #$20
 bne aer4
 rts

przepisznarom
 ldy #0
 lda $c100,y
narom1 equ *+1
 sta $d800,y
 iny
 bne przepisznarom+2
 ldy #0
dopeln
 lda $c200,y
narom2 equ *+1
 sta $d900,y
 iny
 cpy #$80
 bne dopeln
 inc narom1+1
 inc narom2+1
 lda narom1
 clc
 adc #$80
 sta narom1
 sta narom2
 bne bezplus
 inc narom1+1
 inc narom2+1
bezplus rts

player1 
lewodol
 dta a($d800),a($d860),a($d8c0),a($d920)
 dta a($d980),a($d9e0),a($da40),a($daa0)
 dta a($db00),a($db60),a($dbc0),a($dc20)
 dta a($d980),a($d9e0),a($da40),a($daa0)
prawodol
 dta a($dc80),a($dce0),a($dd40),a($dda0)
 dta a($de00),a($de60),a($dec0),a($df20)
 dta a($df80),a($dfe0),a($e040),a($e0a0)
 dta a($de00),a($de60),a($dec0),a($df20)
lewogora
 dta a($e100),a($e160),a($e1c0),a($e220)
 dta a($e280),a($e2e0),a($e340),a($e3a0)
 dta a($e400),a($e460),a($e4c0),a($e520)
 dta a($e280),a($e2e0),a($e340),a($e3a0)
prawogora
 dta a($e580),a($e5e0),a($e640),a($e6a0)
 dta a($e700),a($e760),a($e7c0),a($e820)
 dta a($e880),a($e8e0),a($e940),a($e9a0)
 dta a($e700),a($e760),a($e7c0),a($e820)

 org $4e00

player1mask
lewodolmsk
 dta a($eb00),a($eb60),a($ebc0),a($ec20)
 dta a($ec80),a($ece0),a($ed40),a($eda0)
 dta a($ee00),a($ee60),a($eec0),a($ef20)
 dta a($ec80),a($ece0),a($ed40),a($eda0)
prawodolmsk
 dta a($ef80),a($efe0),a($f040),a($f0a0)
 dta a($f100),a($f160),a($f1c0),a($f220)
 dta a($f280),a($f2e0),a($f340),a($f3a0)
 dta a($f100),a($f160),a($f1c0),a($f220)
lewogoramsk
 dta a($f400),a($f460),a($f4c0),a($f520)
 dta a($f580),a($f5e0),a($f640),a($f6a0)
 dta a($f700),a($f760),a($f7c0),a($f820)
 dta a($f580),a($f5e0),a($f640),a($f6a0)
prawogoramsk
 dta a($f880),a($f8e0),a($f940),a($f9a0)
 dta a($fa00),a($fa60),a($fac0),a($fb20)
 dta a($fb80),a($fbe0),a($fc40),a($fca0)
 dta a($fa00),a($fa60),a($fac0),a($fb20)
player2 
xlewodol
 dta a($200),a($260),a($2c0),a($320)
 dta a($380),a($3e0),a($440),a($4a0)
 dta a($500),a($560),a($5c0),a($620)
 dta a($380),a($3e0),a($440),a($4a0)
xprawodol
 dta a($680),a($6e0),a($740),a($7a0)
 dta a($800),a($860),a($8c0),a($920)
 dta a($980),a($9e0),a($a40),a($aa0)
 dta a($800),a($860),a($8c0),a($920)
xlewogora
 dta a($b00),a($b60),a($bc0),a($c20)
 dta a($c80),a($ce0),a($d40),a($da0)
 dta a($e00),a($e60),a($ec0),a($f20)
 dta a($c80),a($ce0),a($d40),a($da0)

 org $2b00
xprawogora
 dta a($f80),a($fe0),a($1040),a($10a0)
 dta a($1100),a($1160),a($11c0),a($1220)
 dta a($1280),a($12e0),a($1340),a($13a0)
 dta a($1100),a($1160),a($11c0),a($1220)
player2mask
xlewodolmsk
 dta a($1500),a($1560),a($15c0),a($1620)
 dta a($1680),a($16e0),a($1740),a($17a0)
 dta a($1800),a($1860),a($18c0),a($1920)
 dta a($1680),a($16e0),a($1740),a($17a0)
xprawodolmsk
 dta a($1980),a($19e0),a($1a40),a($1aa0)
 dta a($1b00),a($1b60),a($1bc0),a($1c20)
 dta a($1c80),a($1ce0),a($1d40),a($1da0)
 dta a($1b00),a($1b60),a($1bc0),a($1c20)
xlewogoramsk
 dta a($1e00),a($1e60),a($1ec0),a($1f20)
 dta a($1f80),a($1fe0),a($2040),a($20a0)
 dta a($2100),a($2160),a($21c0),a($2220)
 dta a($1f80),a($1fe0),a($2040),a($20a0)
xprawogoramsk
 dta a($2280),a($22e0),a($2340),a($23a0)
 dta a($2400),a($2460),a($24c0),a($2520)
 dta a($2580),a($25e0),a($2640),a($26a0)
 dta a($2400),a($2460),a($24c0),a($2520)