Sprite po sinusie

:BasicUpstart2(main)

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

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

main:

    lda CYAN
    sta $d027
    jsr opoznienie


ruszaj:

    lda #$01            // bit 0 zapalony
    sta $d015           // sprite 0 wyświetlony
    ldx #$00            // ustawienie licznika pętli dla sinusa oraz liniowego przemieszczania sprite

ruszaj2:
    lda #$01            // bit 0 zapalony
    sta $d015           // sprite 0 wyświetlony

    lda sinus,x     // załaduj kolejną wartość z sinusa
    sta $d001           // kooordynaty z sinusa
    stx $d000           // kooordynaty x+1
    txa                 // zapamiętanie x
    pha                 // na stos przed wykonaniem pętli opóźniającej
    jsr opoznienie
    pla                 // przywrócenie x ze stosu
    tax                 //
    inx                 // zwiększenie x
    cpx #$00
    beq dodatkowy_bit_dla_sprite
    jmp ruszaj2

dodatkowy_bit_dla_sprite:
    lda #$01
    sta $d010
    cpx #$ff
    beq od_poczatku
    nop
    nop
    jmp ruszaj2


od_poczatku:
    nop

    lda #$00
    sta $d010
    jmp ruszaj

opoznienie:
            ldx #$00

petla1:
            ldy #$00

petla2:
            iny
            cpy #$80
            bne petla2
            inx
            cpx #$20
            bne petla1
            rts


.pc = 64*255 "Default Sprite Bitmap"

.byte %01111111, %11111111, %11111110
.byte %11111111, %11111111 , %11111111
.byte %11111111, %11111111, %11111111
.byte %11111111, %00000000, %11111111
.byte %11111111, %00000000, %11111111
.byte %11111111, %00000000, %11111111
.byte %11111111, %00000000, %11111111
.byte %11111111, %00000000, %11111111
.byte %11111111, %00000000, %11111111
.byte %11111111, %00000000, %11111111
.byte %11111111, %00000000, %11111111
.byte %11111111, %00000000, %11111111
.byte %11111111, %00000000, %11111111
.byte %11111111, %00000000, %11111111
.byte %11111111, %00000000, %11111111
.byte %11111111, %00000000, %11111111
.byte %11111111, %00000000, %11111111
.byte %11111111, %00000000, %11111111
.byte %11111111, %11111111, %11111111
.byte %11111111, %11111111, %11111111
.byte %01111111, %11111111, %11111110



.pc = $c000
sinus:

.byte $5A,$58,$56,$55,$53,$52,$50,$4F,$4D,$4C,$4A,$49,$48,$46,$45,$44
.byte $43,$42,$41,$40,$3F,$3F,$3E,$3D,$3D,$3C,$3C,$3C,$3C,$3C,$3C,$3C
.byte $3C,$3C,$3C,$3D,$3D,$3E,$3E,$3F,$40,$41,$42,$43,$44,$45,$46,$47
.byte $48,$4A,$4B,$4C,$4E,$4F,$51,$52,$54,$56,$57,$59,$5A,$5C,$5D,$5F
.byte $61,$62,$64,$65,$67,$68,$69,$6B,$6C,$6D,$6E,$6F,$70,$71,$72,$73
.byte $74,$75,$75,$76,$76,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77,$76
.byte $76,$75,$74,$74,$73,$72,$71,$70,$6F,$6E,$6D,$6B,$6A,$69,$67,$66
.byte $64,$63,$61,$60,$5E,$5D,$5B,$5A