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 by 127.0.0.1