hollowman
Registered: Dec 2001 Posts: 474 |
Quote: someone who has a rutine for plasma ?
I already posted that. But if you dont want to code yourself, and since I had one lying around anyway:
*= $1000
s1 = $fa
s2 = $fb
s3 = $fc
s4 = $fd
screen = $0400
sei
lda #$18
sta $d018
lp3
lda s3
sta s1
lda s4
sta s2
lda s7+1
clc
adc #3
sta s7+1
lda s8+1
clc
adc #5
sta s8+1
s7
lda #$00
sta s5+1
s8
lda #$00
sta s6+1
lda #<screen
sta scp+1
lda #>screen
sta scp+2
lp2
lda s1
sta lp1+1
lda s2
sta spp+1
s5
ldx #$00
lda sinus,x
s6
ldy #$00
adc sinus,y
sta lp1a+1
ldy #$00
lp1a
lda #$00
lp1
adc sinus
spp
adc sinus
scp
sta screen,y
lda spp+1
adc #1
sta spp+1
lda lp1+1
adc #3
sta lp1+1
iny
cpy #40
bne lp1a
lda s5+1
clc
adc #5
sta s5+1
lda s6+1
clc
adc #7
sta s6+1
lda s1
clc
adc #1
sta s1
lda s2
clc
adc #3
sta s2
lda scp+1
clc
adc #40
sta scp+1
lda scp+2
adc #$00
sta scp+2
dec lcnt+1
lcnt
lda #25
bne lp2
lda #25
sta lcnt+1
lda s3
clc
adc #1
sta s3
lda s4
sec
sbc #3
sta s4
jmp lp3
*= $1f00
sinus
.byte $20,$20,$21,$22,$23,$23
.byte $24,$25,$26,$27,$27,$28
.byte $29,$2a,$2a,$2b,$2c,$2c
.byte $2d,$2e,$2f,$2f,$30,$31
.byte $31,$32,$33,$33,$34,$34
.byte $35,$36,$36,$37,$37,$38
.byte $38,$39,$39,$3a,$3a,$3b
.byte $3b,$3b,$3c,$3c,$3c,$3d
.byte $3d,$3d,$3e,$3e,$3e,$3e
.byte $3f,$3f,$3f,$3f,$3f,$3f
.byte $3f,$3f,$3f,$3f,$3f,$3f
.byte $3f,$3f,$3f,$3f,$3f,$3f
.byte $3f,$3f,$3f,$3e,$3e,$3e
.byte $3e,$3d,$3d,$3d,$3c,$3c
.byte $3c,$3b,$3b,$3b,$3a,$3a
.byte $39,$39,$38,$38,$37,$37
.byte $36,$36,$35,$34,$34,$33
.byte $33,$32,$31,$31,$30,$2f
.byte $2f,$2e,$2d,$2c,$2c,$2b
.byte $2a,$2a,$29,$28,$27,$27
.byte $26,$25,$24,$23,$23,$22
.byte $21,$20,$20,$1f,$1e,$1d
.byte $1c,$1c,$1b,$1a,$19,$18
.byte $18,$17,$16,$15,$15,$14
.byte $13,$13,$12,$11,$10,$10
.byte $0f,$0e,$0e,$0d,$0c,$0c
.byte $0b,$0b,$0a,$09,$09,$08
.byte $08,$07,$07,$06,$06,$05
.byte $05,$04,$04,$04,$03,$03
.byte $03,$02,$02,$02,$01,$01
.byte $01,$01,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$01
.byte $01,$01,$01,$02,$02,$02
.byte $03,$03,$03,$04,$04,$04
.byte $05,$05,$06,$06,$07,$07
.byte $08,$08,$09,$09,$0a,$0b
.byte $0b,$0c,$0c,$0d,$0e,$0e
.byte $0f,$10,$10,$11,$12,$13
.byte $13,$14,$15,$15,$16,$17
.byte $18,$18,$19,$1a,$1b,$1c
.byte $1c,$1d,$1e,$1f
*= $2000
chars
.byte $00,$00,$00,$00,$00,$00
.byte $00,$00,$88,$00,$00,$00
.byte $88,$00,$00,$00,$88,$00
.byte $22,$00,$88,$00,$22,$00
.byte $aa,$00,$22,$00,$aa,$00
.byte $22,$00,$aa,$00,$aa,$00
.byte $aa,$00,$aa,$00,$aa,$44
.byte $aa,$00,$aa,$44,$aa,$00
.byte $aa,$44,$aa,$11,$aa,$44
.byte $aa,$11,$aa,$55,$aa,$11
.byte $aa,$55,$aa,$11,$aa,$55
.byte $aa,$55,$aa,$55,$aa,$55
.byte $ee,$55,$aa,$55,$ee,$55
.byte $aa,$55,$ee,$55,$bb,$55
.byte $ee,$55,$bb,$55,$ff,$55
.byte $bb,$55,$ff,$55,$bb,$55
.byte $ff,$55,$ff,$55,$ff,$55
.byte $ff,$55,$ff,$dd,$ff,$55
.byte $ff,$dd,$ff,$55,$ff,$dd
.byte $ff,$77,$ff,$dd,$ff,$77
.byte $ff,$dd,$ff,$ff,$ff,$dd
.byte $ff,$ff,$ff,$ff,$ff,$ff
.byte $ff,$ff,$ff,$ff,$ff,$dd
.byte $ff,$ff,$ff,$dd,$ff,$ff
.byte $ff,$dd,$ff,$77,$ff,$dd
.byte $ff,$77,$ff,$dd,$ff,$55
.byte $ff,$dd,$ff,$55,$ff,$55
.byte $ff,$55,$ff,$55,$ff,$55
.byte $ff,$55,$bb,$55,$ff,$55
.byte $bb,$55,$ee,$55,$bb,$55
.byte $ee,$55,$bb,$55,$ee,$55
.byte $aa,$55,$ee,$55,$aa,$55
.byte $aa,$55,$aa,$55,$aa,$55
.byte $aa,$55,$aa,$55,$aa,$11
.byte $aa,$55,$aa,$11,$aa,$44
.byte $aa,$11,$aa,$44,$aa,$11
.byte $aa,$44,$aa,$00,$aa,$44
.byte $aa,$00,$aa,$00,$aa,$00
.byte $aa,$00,$aa,$00,$aa,$00
.byte $22,$00,$aa,$00,$22,$00
.byte $88,$00,$22,$00,$88,$00
.byte $22,$00,$88,$00,$00,$00
.byte $88,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00
.byte $88,$00,$00,$00,$88,$00
.byte $00,$00,$88,$00,$22,$00
.byte $88,$00,$22,$00,$aa,$00
.byte $22,$00,$aa,$00,$22,$00
.byte $aa,$00,$aa,$00,$aa,$00
.byte $aa,$00,$aa,$44,$aa,$00
.byte $aa,$44,$aa,$00,$aa,$44
.byte $aa,$11,$aa,$44,$aa,$11
.byte $aa,$55,$aa,$11,$aa,$55
.byte $aa,$11,$aa,$55,$aa,$55
.byte $aa,$55,$aa,$55,$ee,$55
.byte $aa,$55,$ee,$55,$aa,$55
.byte $ee,$55,$bb,$55,$ee,$55
.byte $bb,$55,$ff,$55,$bb,$55
.byte $ff,$55,$bb,$55,$ff,$55
.byte $ff,$55,$ff,$55,$ff,$55
.byte $ff,$dd,$ff,$55,$ff,$dd
.byte $ff,$55,$ff,$dd,$ff,$77
.byte $ff,$dd,$ff,$77,$ff,$dd
.byte $ff,$ff,$ff,$dd,$ff,$ff
.byte $ff,$ff,$ff,$ff,$ff,$ff
.byte $ff,$ff,$ff,$dd,$ff,$ff
.byte $ff,$dd,$ff,$ff,$ff,$dd
.byte $ff,$77,$ff,$dd,$ff,$77
.byte $ff,$dd,$ff,$55,$ff,$dd
.byte $ff,$55,$ff,$55,$ff,$55
.byte $ff,$55,$ff,$55,$ff,$55
.byte $bb,$55,$ff,$55,$bb,$55
.byte $ee,$55,$bb,$55,$ee,$55
.byte $bb,$55,$ee,$55,$aa,$55
.byte $ee,$55,$aa,$55,$aa,$55
.byte $aa,$55,$aa,$55,$aa,$55
.byte $aa,$55,$aa,$11,$aa,$55
.byte $aa,$11,$aa,$44,$aa,$11
.byte $aa,$44,$aa,$11,$aa,$44
.byte $aa,$00,$aa,$44,$aa,$00
.byte $aa,$00,$aa,$00,$aa,$00
.byte $aa,$00,$aa,$00,$22,$00
.byte $aa,$00,$22,$00,$88,$00
.byte $22,$00,$88,$00,$22,$00
.byte $88,$00,$00,$00,$88,$00
.byte $00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$88,$00
.byte $00,$00,$88,$00,$00,$00
.byte $88,$00,$22,$00,$88,$00
.byte $22,$00,$aa,$00,$22,$00
.byte $aa,$00,$22,$00,$aa,$00
.byte $aa,$00,$aa,$00,$aa,$00
.byte $aa,$44,$aa,$00,$aa,$44
.byte $aa,$00,$aa,$44,$aa,$11
.byte $aa,$44,$aa,$11,$aa,$55
.byte $aa,$11,$aa,$55,$aa,$11
.byte $aa,$55,$aa,$55,$aa,$55
.byte $aa,$55,$ee,$55,$aa,$55
.byte $ee,$55,$aa,$55,$ee,$55
.byte $bb,$55,$ee,$55,$bb,$55
.byte $ff,$55,$bb,$55,$ff,$55
.byte $bb,$55,$ff,$55,$ff,$55
.byte $ff,$55,$ff,$55,$ff,$dd
.byte $ff,$55,$ff,$dd,$ff,$55
.byte $ff,$dd,$ff,$77,$ff,$dd
.byte $ff,$77,$ff,$dd,$ff,$ff
.byte $ff,$dd,$ff,$ff,$ff,$ff
.byte $ff,$ff,$ff,$ff,$ff,$ff
.byte $ff,$dd,$ff,$ff,$ff,$dd
.byte $ff,$ff,$ff,$dd,$ff,$77
.byte $ff,$dd,$ff,$77,$ff,$dd
.byte $ff,$55,$ff,$dd,$ff,$55
.byte $ff,$55,$ff,$55,$ff,$55
.byte $ff,$55,$ff,$55,$bb,$55
.byte $ff,$55,$bb,$55,$ee,$55
.byte $bb,$55,$ee,$55,$bb,$55
.byte $ee,$55,$aa,$55,$ee,$55
.byte $aa,$55,$aa,$55,$aa,$55
.byte $aa,$55,$aa,$55,$aa,$55
.byte $aa,$11,$aa,$55,$aa,$11
.byte $aa,$44,$aa,$11,$aa,$44
.byte $aa,$11,$aa,$44,$aa,$00
.byte $aa,$44,$aa,$00,$aa,$00
.byte $aa,$00,$aa,$00,$aa,$00
.byte $aa,$00,$22,$00,$aa,$00
.byte $22,$00,$88,$00,$22,$00
.byte $88,$00,$22,$00,$88,$00
.byte $00,$00,$88,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00
.byte $00,$00,$88,$00,$00,$00
.byte $88,$00,$00,$00,$88,$00
.byte $22,$00,$88,$00,$22,$00
.byte $aa,$00,$22,$00,$aa,$00
.byte $22,$00,$aa,$00,$aa,$00
.byte $aa,$00,$aa,$00,$aa,$44
.byte $aa,$00,$aa,$44,$aa,$00
.byte $aa,$44,$aa,$11,$aa,$44
.byte $aa,$11,$aa,$55,$aa,$11
.byte $aa,$55,$aa,$11,$aa,$55
.byte $aa,$55,$aa,$55,$aa,$55
.byte $ee,$55,$aa,$55,$ee,$55
.byte $aa,$55,$ee,$55,$bb,$55
.byte $ee,$55,$bb,$55,$ff,$55
.byte $bb,$55,$ff,$55,$bb,$55
.byte $ff,$55,$ff,$55,$ff,$55
.byte $ff,$55,$ff,$dd,$ff,$55
.byte $ff,$dd,$ff,$55,$ff,$dd
.byte $ff,$77,$ff,$dd,$ff,$77
.byte $ff,$dd,$ff,$ff,$ff,$dd
.byte $ff,$ff,$ff,$ff,$ff,$ff
.byte $ff,$ff,$ff,$ff,$ff,$dd
.byte $ff,$ff,$ff,$dd,$ff,$ff
.byte $ff,$dd,$ff,$77,$ff,$dd
.byte $ff,$77,$ff,$dd,$ff,$55
.byte $ff,$dd,$ff,$55,$ff,$55
.byte $ff,$55,$ff,$55,$ff,$55
.byte $ff,$55,$bb,$55,$ff,$55
.byte $bb,$55,$ee,$55,$bb,$55
.byte $ee,$55,$bb,$55,$ee,$55
.byte $aa,$55,$ee,$55,$aa,$55
.byte $aa,$55,$aa,$55,$aa,$55
.byte $aa,$55,$aa,$55,$aa,$11
.byte $aa,$55,$aa,$11,$aa,$44
.byte $aa,$11,$aa,$44,$aa,$11
.byte $aa,$44,$aa,$00,$aa,$44
.byte $aa,$00,$aa,$00,$aa,$00
.byte $aa,$00,$aa,$00,$aa,$00
.byte $22,$00,$aa,$00,$22,$00
.byte $88,$00,$22,$00,$88,$00
.byte $22,$00,$88,$00,$00,$00
.byte $88,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00
.byte $88,$00,$00,$00,$88,$00
.byte $00,$00,$88,$00,$22,$00
.byte $88,$00,$22,$00,$aa,$00
.byte $22,$00,$aa,$00,$22,$00
.byte $aa,$00,$aa,$00,$aa,$00
.byte $aa,$00,$aa,$44,$aa,$00
.byte $aa,$44,$aa,$00,$aa,$44
.byte $aa,$11,$aa,$44,$aa,$11
.byte $aa,$55,$aa,$11,$aa,$55
.byte $aa,$11,$aa,$55,$aa,$55
.byte $aa,$55,$aa,$55,$ee,$55
.byte $aa,$55,$ee,$55,$aa,$55
.byte $ee,$55,$bb,$55,$ee,$55
.byte $bb,$55,$ff,$55,$bb,$55
.byte $ff,$55,$bb,$55,$ff,$55
.byte $ff,$55,$ff,$55,$ff,$55
.byte $ff,$dd,$ff,$55,$ff,$dd
.byte $ff,$55,$ff,$dd,$ff,$77
.byte $ff,$dd,$ff,$77,$ff,$dd
.byte $ff,$ff,$ff,$dd,$ff,$ff
.byte $ff,$ff,$ff,$ff,$ff,$ff
.byte $ff,$ff,$ff,$dd,$ff,$ff
.byte $ff,$dd,$ff,$ff,$ff,$dd
.byte $ff,$77,$ff,$dd,$ff,$77
.byte $ff,$dd,$ff,$55,$ff,$dd
.byte $ff,$55,$ff,$55,$ff,$55
.byte $ff,$55,$ff,$55,$ff,$55
.byte $bb,$55,$ff,$55,$bb,$55
.byte $ee,$55,$bb,$55,$ee,$55
.byte $bb,$55,$ee,$55,$aa,$55
.byte $ee,$55,$aa,$55,$aa,$55
.byte $aa,$55,$aa,$55,$aa,$55
.byte $aa,$55,$aa,$11,$aa,$55
.byte $aa,$11,$aa,$44,$aa,$11
.byte $aa,$44,$aa,$11,$aa,$44
.byte $aa,$00,$aa,$44,$aa,$00
.byte $aa,$00,$aa,$00,$aa,$00
.byte $aa,$00,$aa,$00,$22,$00
.byte $aa,$00,$22,$00,$88,$00
.byte $22,$00,$88,$00,$22,$00
.byte $88,$00,$00,$00,$88,$00
.byte $00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$88,$00
.byte $00,$00,$88,$00,$00,$00
.byte $88,$00,$22,$00,$88,$00
.byte $22,$00,$aa,$00,$22,$00
.byte $aa,$00,$22,$00,$aa,$00
.byte $aa,$00,$aa,$00,$aa,$00
.byte $aa,$44,$aa,$00,$aa,$44
.byte $aa,$00,$aa,$44,$aa,$11
.byte $aa,$44,$aa,$11,$aa,$55
.byte $aa,$11,$aa,$55,$aa,$11
.byte $aa,$55,$aa,$55,$aa,$55
.byte $aa,$55,$ee,$55,$aa,$55
.byte $ee,$55,$aa,$55,$ee,$55
.byte $bb,$55,$ee,$55,$bb,$55
.byte $ff,$55,$bb,$55,$ff,$55
.byte $bb,$55,$ff,$55,$ff,$55
.byte $ff,$55,$ff,$55,$ff,$dd
.byte $ff,$55,$ff,$dd,$ff,$55
.byte $ff,$dd,$ff,$77,$ff,$dd
.byte $ff,$77,$ff,$dd,$ff,$ff
.byte $ff,$dd,$ff,$ff,$ff,$ff
.byte $ff,$ff,$ff,$ff,$ff,$ff
.byte $ff,$dd,$ff,$ff,$ff,$dd
.byte $ff,$ff,$ff,$dd,$ff,$77
.byte $ff,$dd,$ff,$77,$ff,$dd
.byte $ff,$55,$ff,$dd,$ff,$55
.byte $ff,$55,$ff,$55,$ff,$55
.byte $ff,$55,$ff,$55,$bb,$55
.byte $ff,$55,$bb,$55,$ee,$55
.byte $bb,$55,$ee,$55,$bb,$55
.byte $ee,$55,$aa,$55,$ee,$55
.byte $aa,$55,$aa,$55,$aa,$55
.byte $aa,$55,$aa,$55,$aa,$55
.byte $aa,$11,$aa,$55,$aa,$11
.byte $aa,$44,$aa,$11,$aa,$44
.byte $aa,$11,$aa,$44,$aa,$00
.byte $aa,$44,$aa,$00,$aa,$00
.byte $aa,$00,$aa,$00,$aa,$00
.byte $aa,$00,$22,$00,$aa,$00
.byte $22,$00,$88,$00,$22,$00
.byte $88,$00,$22,$00,$88,$00
.byte $00,$00,$88,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00
.byte $00,$00,$88,$00,$00,$00
.byte $88,$00,$00,$00,$88,$00
.byte $22,$00,$88,$00,$22,$00
.byte $aa,$00,$22,$00,$aa,$00
.byte $22,$00,$aa,$00,$aa,$00
.byte $aa,$00,$aa,$00,$aa,$44
.byte $aa,$00,$aa,$44,$aa,$00
.byte $aa,$44,$aa,$11,$aa,$44
.byte $aa,$11,$aa,$55,$aa,$11
.byte $aa,$55,$aa,$11,$aa,$55
.byte $aa,$55,$aa,$55,$aa,$55
.byte $ee,$55,$aa,$55,$ee,$55
.byte $aa,$55,$ee,$55,$bb,$55
.byte $ee,$55,$bb,$55,$ff,$55
.byte $bb,$55,$ff,$55,$bb,$55
.byte $ff,$55,$ff,$55,$ff,$55
.byte $ff,$55,$ff,$dd,$ff,$55
.byte $ff,$dd,$ff,$55,$ff,$dd
.byte $ff,$77,$ff,$dd,$ff,$77
.byte $ff,$dd,$ff,$ff,$ff,$dd
.byte $ff,$ff,$ff,$ff,$ff,$ff
.byte $ff,$ff,$ff,$ff,$ff,$dd
.byte $ff,$ff,$ff,$dd,$ff,$ff
.byte $ff,$dd,$ff,$77,$ff,$dd
.byte $ff,$77,$ff,$dd,$ff,$55
.byte $ff,$dd,$ff,$55,$ff,$55
.byte $ff,$55,$ff,$55,$ff,$55
.byte $ff,$55,$bb,$55,$ff,$55
.byte $bb,$55,$ee,$55,$bb,$55
.byte $ee,$55,$bb,$55,$ee,$55
.byte $aa,$55,$ee,$55,$aa,$55
.byte $aa,$55,$aa,$55,$aa,$55
.byte $aa,$55,$aa,$55,$aa,$11
.byte $aa,$55,$aa,$11,$aa,$44
.byte $aa,$11,$aa,$44,$aa,$11
.byte $aa,$44,$aa,$00,$aa,$44
.byte $aa,$00,$aa,$00,$aa,$00
.byte $aa,$00,$aa,$00,$aa,$00
.byte $22,$00,$aa,$00,$22,$00
.byte $88,$00,$22,$00,$88,$00
.byte $22,$00,$88,$00,$00,$00
.byte $88,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00
.byte $88,$00,$00,$00,$88,$00
.byte $00,$00,$88,$00,$22,$00
.byte $88,$00,$22,$00,$aa,$00
.byte $22,$00,$aa,$00,$22,$00
.byte $aa,$00,$aa,$00,$aa,$00
.byte $aa,$00,$aa,$44,$aa,$00
.byte $aa,$44,$aa,$00,$aa,$44
.byte $aa,$11,$aa,$44,$aa,$11
.byte $aa,$55,$aa,$11,$aa,$55
.byte $aa,$11,$aa,$55,$aa,$55
.byte $aa,$55,$aa,$55,$ee,$55
.byte $aa,$55,$ee,$55,$aa,$55
.byte $ee,$55,$bb,$55,$ee,$55
.byte $bb,$55,$ff,$55,$bb,$55
.byte $ff,$55,$bb,$55,$ff,$55
.byte $ff,$55,$ff,$55,$ff,$55
.byte $ff,$dd,$ff,$55,$ff,$dd
.byte $ff,$55,$ff,$dd,$ff,$77
.byte $ff,$dd,$ff,$77,$ff,$dd
.byte $ff,$ff,$ff,$dd,$ff,$ff
.byte $ff,$ff,$ff,$ff,$ff,$ff
.byte $ff,$ff,$ff,$dd,$ff,$ff
.byte $ff,$dd,$ff,$ff,$ff,$dd
.byte $ff,$77,$ff,$dd,$ff,$77
.byte $ff,$dd,$ff,$55,$ff,$dd
.byte $ff,$55,$ff,$55,$ff,$55
.byte $ff,$55,$ff,$55,$ff,$55
.byte $bb,$55,$ff,$55,$bb,$55
.byte $ee,$55,$bb,$55,$ee,$55
.byte $bb,$55,$ee,$55,$aa,$55
.byte $ee,$55,$aa,$55,$aa,$55
.byte $aa,$55,$aa,$55,$aa,$55
.byte $aa,$55,$aa,$11,$aa,$55
.byte $aa,$11,$aa,$44,$aa,$11
.byte $aa,$44,$aa,$11,$aa,$44
.byte $aa,$00,$aa,$44,$aa,$00
.byte $aa,$00,$aa,$00,$aa,$00
.byte $aa,$00,$aa,$00,$22,$00
.byte $aa,$00,$22,$00,$88,$00
.byte $22,$00,$88,$00,$22,$00
.byte $88,$00,$00,$00,$88,$00
.byte $00,$00
|