!to "sprite.prg",cbm
            *=$0801
            !word bend
            !word 10
            !byte $9e
            !text "2061", 0
bend:       !word 0

	lda #$01
	sta $d015
	sta $d027
	lda #$40
	sta $d000
	sta $d001
	lda #$80
	sta $07f8
mainloop:
	lda $d012
	cmp #$ff
	bne mainloop

	lda dir
	beq down

	ldx coord
	dex
	stx coord
	stx $d000
	stx $d001
	cpx #$40
	bne mainloop

	lda #$00
	sta dir
	jmp mainloop

down:
	ldx coord
	inx
	stx coord
	stx $d000
	stx $d001
	cpx #$e0
	bne mainloop

	lda #$01
	sta dir
	jmp mainloop

coord
!byte $40
dir
!byte 0