Fill sta atachr
 txa
 CLC
 adc _x
 sta crscol
 tya
 clc
 adc _y
 sta crsrow
 ldx <bufor
 ldy >bufor
 stx buff
 sty buff+1

 lda #0
 sta crscol+1
 STA 205
 jsr 63178
 jsr 61839
 BEQ fi0
 rts

fi0 jsr 63178
 jsr 61839
 bne fi2
 dec crscol
 LDA crscol
 cmp #255
 bne fi1
 dec crscol+1
fi1 clc
 bcc fi0

fi2 inc crscol
 bne fi3
 inc crscol+1
fi3 lda #0
 sta 206
 sta 207
fia dec crsrow
 JSR 61839
 sta 208
 inc crsrow
 INC crsrow
 jsr 61839
 sta 209
 dec crsrow
 lda 208
 beq fi4
 LDA #0
 sta 206
 beq fi5
fi4 lda 206
 bne fi5
 lda #1
 sta 206
 ldy 205
 lda crscol
 sta (buff),y
 iny
 lda crscol+1
 sta (buff),y
 INY
 dec crsrow
 lda crsrow
 STA (buff),Y
 iny
 inc crsrow
 sty 205
fi5 lda 209
 beq fi6
 LDA #0
 sta 207
 BEQ fi7
fi6 lda 207
 bne fi7
 lda #1
 sta 207
 ldy 205
 lda crscol
 sta (buff),y
 iny
 lda crscol+1
 sta (buff),y
 INY
 inc crsrow
 lda crsrow
 STA (buff),Y
 iny
 dec crsrow
 sty 205
fi7 jsr 61898
 inc crscol
 BNE fi8
 inc crscol+1
fi8 JSR 63178
 JSR 61839
 bne fi9
 jmp fia
fi9 ldy 205
 dey
 lda (buff),y
 sta crsrow
 dey
 lda (buff),y
 sta crscol+1
 DEY
 lda (buff),y
 sta crscol
 STY 205
 cpy #253
 beq fin
 jmp fi0
fin rts