opt 21››program  equ $480›bitmask  equ %11111111 maska bitowa››         org program››         ldx #$00         |›loop     lda startlo,x    |›         sta $f0          | p  d›         lda starthi,x    | r  e›         sta $f1          | o  k›         lda endlo,x      | c  o›         sta $f2          | e  d›         lda endhi,x      | d  u›         sta $f3          | u  j›         ldy #$00         | r  a›l1       lda ($f0),y      | a  c›         eor #bitmask     |    a›         sta $d018        |›         sta ($f0),y      | ›         inc $f0          |›         bne l2           |›         inc $f1          |›l2       lda $f0          |›         cmp $f2          |›         lda $f1          |›         sbc $f3          |›         bcc l1           |›         inx              |›         cpx #$01       ile blokow›         bcc loop         |›         rts              | koniec››startlo  dta b($00)   MB adr. poczat.›starthi  dta b($40)   SB  -  | | -›endlo    dta b($00)   MB adr. konca›endhi    dta b($b0)   SB  -  | | -››