Procedury interpretera Basica

From Atariki

(Różnice między wersjami)
Jump to: navigation, search
Wersja z dnia 10:53, 1 mar 2005
KMK (Dyskusja | wkład)

← Previous diff
Aktualna wersja
KMK (Dyskusja | wkład)

Linia 1: Linia 1:
-Książka [[Wojciech Zientara|Wojciecha Zientary]] "Mapa pamięci Atari XL/XE: Procedury interpretera BASIC-a"+'''Mapa pamięci Atari XL/XE: Procedury interpretera BASIC-a''' to książka [[Wojciech Zientara|Wojciecha Zientary]] wydana w 1989 roku przez [[SOETO]].
-Jest to kompletny listing, wraz z komentarzem, interpretera Atari BASIC wer. C. Wydano w roku 1989. Nakład 5050 egzemplarzy. Format A-5, 199 stron. Pierwotna cena 2500 zł. (od trzech do sześciu złotych obecnych).+Jest to kompletny listing, wraz z komentarzem, interpretera [[Atari BASIC]] rev. C. Nakład 5050 egzemplarzy. Format A-5, 199 stron. Pierwotna cena 2500 zł (od trzech do sześciu złotych obecnych).
 + 
 +Wersja elektroniczna dostępna w [http://tajemnice.atari8.info/ Elektronicznym Archiwum Tajemnic Atari] (w dziale: Książki)
 + 
 +==Errata==
 + 
 +<table border = 1 cellpadding = 5>
 + 
 +<tr><td><b>Strona</b></td><td><b>Wiersz<br>od góry</b></td><td><b>Wiersz<br>od dołu</b></td><td><b>Jest</b></td><td><b>Powinno być</b></td></tr>
 + 
 +<tr><td>41</td><td>15</td><td>-</td>
 +<td><pre>
 +1770 Q37 .BYTE $C3,$C8,$03 ;Q38 or end</pre>
 +</td><td>
 +<pre>
 +1770 Q37 .BYTE $C3,$C8,$03 ;Q38 Q44 end</pre>
 +</td></tr>
 + 
 +<tr><td>41</td><td>19</td><td>-</td>
 +<td><pre>
 +1810 .BYTE $C4,B3,$02,$03</pre>
 +</td><td>
 +<pre>
 +1810 Q44 .BYTE $C4,$B3,$02,$03</pre>
 +</td></tr>
 + 
 +<tr><td>41</td><td>-</td><td>16</td>
 +<td>Po ustawieniu wszystkich bitów statusu
 +</td><td>
 +Po ustawieniu wskaźnika stosu na $FF
 +</td></tr>
 + 
 +<tr><td>88</td><td>-</td><td>18</td>
 +<td><pre>
 +0470 LDA #$BD
 +0480 CLC
 +0490 ADC RADFLG
 +0500 TAX
 +0510 LDY #$BE</pre></td><td>
 +<pre>
 +0470 LDA #<TSCC+$1F
 +0480 CLC
 +0490 ADC RADFLG
 +0500 TAX
 +0510 LDY #>TSCC+$1F</pre></td></tr>
 + 
 +<tr><td>89</td><td>-</td><td>2</td>
 +<td>-4.681754355*10<sup>-7</sup></td>
 +<td>-4.681754355*10<sup>-3</sup>
 +</td></tr>
 + 
 +<tr><td>90</td><td>8</td><td>-</td>
 +<td><pre>
 +0180 .BYTE $BC,$46,$81</pre>
 +</td><td><pre>
 +0180 .BYTE $BE,$46,$81</pre>
 +</td></tr>
 + 
 +<tr><td>117</td><td>-</td><td>6</td>
 +<td><pre>
 +0130 JTSTROM = $E480</pre>
 +</td><td><pre>
 +0130 JTSTROM = $E471</pre>
 +</td></tr>
 + 
 +<tr><td>144</td><td>32</td><td>-</td>
 +<td><pre>
 +0410 CPX #$07</pre>
 +</td><td><pre>
 +0410 CPY #$07</pre>
 +</td></tr>
 + 
 +<tr><td>144</td><td>37</td><td>-</td>
 +<td><pre>
 +0460 EXIT CPX #$07</pre>
 +</td><td><pre>
 +0460 EXIT CPY #$07</pre>
 +</td></tr>
 + 
 +<tr><td>158</td><td>18</td><td>-</td>
 +<td><pre>
 +0150 SAVDVC = $BCA8</pre>
 +</td><td><pre>
 +0150 SAVDVC = $BAC0
 +0155 SETDVC = $BCA8</pre>
 +</td></tr>
 + 
 +<tr><td>182</td><td>-</td><td>14</td>
 +<td><pre>
 +$A8F1 - RSTBRG - skasowanie rejestrów Basica</pre>
 +</td><td><i>usunąć</i>
 +</td></tr>
 + 
 +<tr><td>184</td><td>-</td><td>28</td>
 +<td><pre>
 +$B0D2 - BINT - procedura obliczenia części całkowitej</pre>
 +</td><td><pre>
 +$B0D1 - BINT - procedura obliczenia części całkowitej</pre>
 +</td></tr>
 + 
 +<tr><td>185</td><td>4</td><td>-</td>
 +<td><pre>
 +$B567 - PUTTXT - wyświetlenie tekstu na ekranie
 +$B586 - PTMSG2 - wyświetlenie raportu na ekranie</pre>
 +</td><td><pre>
 +$B567 - PUTTXT - wyświetlenie tekstu na ekranie
 +$B581 - PTMSG1 - wyświetlenie raportu na ekranie
 +$B586 - PTMSG2 - wyświetlenie raportu na ekranie</pre>
 +</td></tr>
 + 
 +</table>
 + 
 +[[Kategoria:Atari 8-bit]]
 +[[Kategoria:Dokumentacja Atari 8-bit]]

Aktualna wersja

Mapa pamięci Atari XL/XE: Procedury interpretera BASIC-a to książka Wojciecha Zientary wydana w 1989 roku przez SOETO.

Jest to kompletny listing, wraz z komentarzem, interpretera Atari BASIC rev. C. Nakład 5050 egzemplarzy. Format A-5, 199 stron. Pierwotna cena 2500 zł (od trzech do sześciu złotych obecnych).

Wersja elektroniczna dostępna w Elektronicznym Archiwum Tajemnic Atari (w dziale: Książki)

Errata

StronaWiersz
od góry
Wiersz
od dołu
JestPowinno być
4115-
1770 Q37 .BYTE $C3,$C8,$03     ;Q38 or end
1770 Q37 .BYTE $C3,$C8,$03     ;Q38 Q44 end
4119-
1810     .BYTE $C4,B3,$02,$03
1810 Q44 .BYTE $C4,$B3,$02,$03
41-16 Po ustawieniu wszystkich bitów statusu

Po ustawieniu wskaźnika stosu na $FF

88-18
0470     LDA #$BD
0480     CLC
0490     ADC RADFLG
0500     TAX
0510     LDY #$BE
0470     LDA #<TSCC+$1F
0480     CLC
0490     ADC RADFLG
0500     TAX
0510     LDY #>TSCC+$1F
89-2 -4.681754355*10-7 -4.681754355*10-3
908-
0180     .BYTE $BC,$46,$81
0180     .BYTE $BE,$46,$81
117-6
0130 JTSTROM = $E480
0130 JTSTROM = $E471
14432-
0410     CPX #$07
0410     CPY #$07
14437-
0460 EXIT CPX #$07
0460 EXIT CPY #$07
15818-
0150 SAVDVC = $BCA8
0150 SAVDVC = $BAC0
0155 SETDVC = $BCA8
182-14
$A8F1 - RSTBRG - skasowanie rejestrów Basica
usunąć
184-28
$B0D2 - BINT - procedura obliczenia części całkowitej
$B0D1 - BINT - procedura obliczenia części całkowitej
1854-
$B567 - PUTTXT - wyświetlenie tekstu na ekranie
$B586 - PTMSG2 - wyświetlenie raportu na ekranie
$B567 - PUTTXT - wyświetlenie tekstu na ekranie
$B581 - PTMSG1 - wyświetlenie raportu na ekranie
$B586 - PTMSG2 - wyświetlenie raportu na ekranie
Personal tools