Raster kolorowy anim

:BasicUpstart2(main)

.var brkFile = createFile("breakpoints.txt")

.macro break() {
 .eval brkFile.writeln("break " + toHexString(*))
}

.macro przeniesienie (pozycja) {

   lda #pozycja
tu:   cmp $d012
  bne tu

  lda #$ff
  sta $d019

  ldx #$77
d: dex
  bne d

  ldx #$00
c: ldy #$08
a: lda colors,x
  sta $d020
  sta $d021
  inx
  dey
  beq c

  txa
  ldx #$06
b: dex
  bne b
  tax

  cpx #$0e
  bcc a


}

main:


  lda #$7f
  sta $dc0d
  and $d011
  sta $d011

  sei
  lda #<irq
  sta $0314
  lda #>irq
  sta $0315
  lda #$01
  sta $d01a
  cli
  rts

irq:

.for(var i=0;i<$80;i++) :przeniesienie($40+i)
.for(var i=0;i<$80;i++) :przeniesienie($c0-i)

  jmp $ea34

  *= $c100
colors:
  .byte $09,$02,$08,$0a,$0f,$07,$01,$07,$0f,$0a,$08,$02,$09,$00