User Tools

Site Tools


base:rasterbars_small_source

Rasterbars 3 source

A minimalistic rasterbar routine. No timing tables used.

;coded by Graham/Oxyron

	*= $c000

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

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

irq:
	lda #$ff
	sta $d019

	ldx #$05
d	dex
	bne d

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

	txa
	ldx #$07
b	dex
	bne b
	tax

	cpx #$8c
	bcc a

	jmp $ea34

	*= $c100
colors:
	.byte $09,$02,$08,$0a,$0f,$07,$01,$07,$0f,$0a,$08,$02,$09,$00
	.byte $06,$04,$0e,$05,$03,$0d,$01,$0d,$03,$05,$0e,$04,$06,$00
	.byte $09,$02,$08,$0a,$0f,$07,$01,$07,$0f,$0a,$08,$02,$09,$00
	.byte $06,$04,$0e,$05,$03,$0d,$01,$0d,$03,$05,$0e,$04,$06,$00
	.byte $09,$02,$08,$0a,$0f,$07,$01,$07,$0f,$0a,$08,$02,$09,$00
	.byte $06,$04,$0e,$05,$03,$0d,$01,$0d,$03,$05,$0e,$04,$06,$00
	.byte $09,$02,$08,$0a,$0f,$07,$01,$07,$0f,$0a,$08,$02,$09,$00
	.byte $06,$04,$0e,$05,$03,$0d,$01,$0d,$03,$05,$0e,$04,$06,$00
	.byte $09,$02,$08,$0a,$0f,$07,$01,$07,$0f,$0a,$08,$02,$09,$00
	.byte $06,$04,$0e,$05,$03,$0d,$01,$0d,$03,$05,$0e,$04,$06,$00
base/rasterbars_small_source.txt · Last modified: 2015-04-17 04:33 (external edit)