Programowanie: Rysowanie punktu - Historia wersji

Mono: ciut szybciej dla gr8

2020-07-31T16:36:55Z

ciut szybciej dla gr8

← poprzednia wersja		Wersja z 31 lip 2020, 17:36
Linia 49:		Linia 49:
	sta adr+1		sta adr+1

			bcs ?1xx

			?0xx:
	ldy byteoff,x		ldy byteoff,x
	~~scc~~		lda (adr),y
			and bytemask,x
			ora bytepxl,x
			sta (adr),y
			rts

			?1xx:
	ldy byteoff+$100,x		ldy byteoff+$100,x

	lda (adr),y		lda (adr),y
	and bytemask,x		and bytemask,x

Mono o 01:33, 11 gru 2016

2016-12-11T01:33:41Z

← poprzednia wersja		Wersja z 11 gru 2016, 02:33
Linia 3:		Linia 3:
	Plot dla trybu lowres (Graphics 15) 160x192:		Plot dla trybu lowres (Graphics 15) 160x192:
	<pre>		<pre>
	~~org $80~~
	COLOR = 1 ;kolor z zakresu 0,1,2,3		COLOR = 1 ;kolor z zakresu 0,1,2,3

			org $80
	adr .ds 2		adr .ds 2

Mono: sdp

2016-12-11T00:35:13Z

sdp

← poprzednia wersja		Wersja z 11 gru 2016, 01:35
Linia 1:		Linia 1:
			{{SDP}}

	Plot dla trybu lowres (Graphics 15) 160x192:		Plot dla trybu lowres (Graphics 15) 160x192:
	<pre>		<pre>

Mono: plot

2016-12-11T00:03:22Z

plot

Nowa strona

Plot dla trybu lowres (Graphics 15) 160x192:
<pre>
org $80
COLOR = 1 ;kolor z zakresu 0,1,2,3

adr .ds 2

;Y = y, X = x
plot:
lda lnadl,y
sta adr
lda lnadh,y
sta adr+1

ldy byteoff,x

lda (adr),y
and bytemask,x
ora bytepxl,x
sta (adr),y
rts

lnadl:
:192 .byte <(screen+40*#)
lnadh:
:192 .byte >(screen+40*#)
byteoff:
:160 .byte #/4
bytemask:
:160 .byte ~(%11 << (6 - ((# & %11) * 2)))
bytepxl:
:160 .byte COLOR << (6 - ((# & %11) * 2))
</pre>

Plot dla trybu hires (Graphics 8) 320x192:
<pre>
COLOR = 1 ;kolor z zakresu 0,1

org $80
adr .ds 2

;Y = y, X = <x, C = >x
plot:
lda lnadl,y
sta adr
lda lnadh,y
sta adr+1

ldy byteoff,x
scc
ldy byteoff+$100,x

lda (adr),y
and bytemask,x
ora bytepxl,x
sta (adr),y
rts

lnadl:
:192 .byte <(screen+40*#)
lnadh:
:192 .byte >(screen+40*#)
byteoff:
:320 .byte #/8
bytemask:
:256 .byte ~(1 << (7 - (# & %111)))
bytepxl:
:256 .byte COLOR << (7 - (# & %111))
</pre>

[[Kategoria:Niezbędnik kodera]]