https://mirror.atariki.pl/w/index.php?action=history&feed=atom&title=Programowanie%3A_Konwersje_znak%C3%B3w_ATASCII_i_ANTIC
Programowanie: Konwersje znaków ATASCII i ANTIC - Historia wersji
2026-10-03T13:44:23Z
Historia wersji tej strony wiki
MediaWiki 1.46.0
https://mirror.atariki.pl/w/index.php?title=Programowanie:_Konwersje_znak%C3%B3w_ATASCII_i_ANTIC&diff=3291&oldid=prev
imported>Atariki recovery: Reconstructed from archived HTML; see provenance manifest
2026-10-01T08:51:48Z
<p>Reconstructed from archived HTML; see provenance manifest</p>
<p><b>Nowa strona</b></p><div>== ATASCII → ANTIC ==<br />
<br />
Program przekształca wpisany do akumulatora znak w kodzie [[ATASCII]] na [[Kody ekranowe|kod ekranowy]] ANTIC-a. Wynik w akumulatorze.<br />
<br />
Najkrótszy kod:<br />
<br />
<pre><br />
atascii2antic:<br />
asl<br />
php<br />
adc #$c0<br />
spl:eor #$40<br />
plp<br />
ror<br />
rts<br />
</pre><br />
<br />
Dwa bajty dłuższe, ale szybsze:<br />
<br />
<pre><br />
atascii2antic:<br />
asl<br />
adc #$c0<br />
spl:eor #$40<br />
lsr<br />
scc:eor #$80<br />
rts<br />
</pre><br />
<br />
Najdłuższa metoda, nie używa stosu, znacznika C ani D:<br />
<br />
<pre><br />
atascii2antic:<br />
bit const20<br />
sne:eor #$40<br />
const40 equ *-1<br />
bit const40<br />
sne:eor #$20<br />
const20 equ *-1<br />
rts<br />
</pre><br />
<br />
Można oczywiście użyć tablicy:<br />
<br />
<pre><br />
atascii2antic:<br />
tax<br />
lda antic,x<br />
rts<br />
<br />
antic:<br />
:32 .byte $40+#<br />
:64 .byte $00+#<br />
:32 .byte $60+#<br />
:32 .byte $c0+#<br />
:64 .byte $80+#<br />
:32 .byte $e0+#<br />
</pre><br />
<br />
== ANTIC → ATASCII ==<br />
<br />
Zasadniczo konwersję przeprowadza się analogicznie:<br />
<br />
<pre><br />
antic2atascii:<br />
asl<br />
php<br />
spl:eor #$40<br />
adc #$40<br />
plp<br />
ror<br />
rts<br />
</pre><br />
<br />
Dwa bajty dłuższe, ale szybsze:<br />
<br />
<pre><br />
antic2atascii:<br />
asl<br />
spl:eor #$40<br />
adc #$40<br />
lsr<br />
scc:eor #$80<br />
rts<br />
</pre><br />
<br />
Najdłuższa metoda, nie używa stosu, znacznika C ani D:<br />
<br />
<pre><br />
antic2atascii:<br />
bit const40<br />
sne:eor #$20<br />
const20 equ *-1<br />
bit const20<br />
sne:eor #$40<br />
const40 equ *-1<br />
rts<br />
</pre><br />
<br />
Wersja tablicowa:<br />
<br />
<pre><br />
antic2atascii:<br />
tax<br />
lda atascii,x<br />
rts<br />
<br />
atascii:<br />
:64 .byte $20+#<br />
:32 .byte $00+#<br />
:32 .byte $60+#<br />
:64 .byte $a0+#<br />
:32 .byte $80+#<br />
:32 .byte $e0+#<br />
</pre><br />
<br />
== Warianty ==<br />
<br />
Jeśli w programie mamy już procedurę konwersji ATASCII → ANTIC, można użyć innej metody:<br />
<br />
<pre><br />
antic2atascii:<br />
jsr atascii2antic<br />
jmp atascii2antic<br />
</pre><br />
<br />
lub też (dysponując wersją stablicowaną):<br />
<br />
<pre><br />
antic2atascii:<br />
tax<br />
ldy antic,x<br />
lda antic,y<br />
rts<br />
</pre><br />
<br />
Analogiczną konwersję ATASCII → ANTIC można oczywiście przeprowadzić mając procedurę konwersji ANTIC → ATASCII<br />
<br />
<pre><br />
atascii2antic:<br />
jsr antic2atascii<br />
jmp antic2atascii<br />
</pre><br />
<br />
lub dysponując tablicą:<br />
<br />
<pre><br />
atascii2antic:<br />
tax<br />
ldy atascii,x<br />
lda atascii,y<br />
rts<br />
</pre><br />
<br />
[[Kategoria:Niezbędnik kodera]]<br />
</div>
imported>Atariki recovery