Procedury interpretera Basica
From Atariki
(Różnice między wersjami)
| Wersja z dnia 20:15, 25 kwi 2005 KMK (Dyskusja | wkład) (→Errata) ← Previous diff |
Wersja z dnia 20:50, 25 kwi 2005 KMK (Dyskusja | wkład) (→Errata - more poprawkas) Next diff → |
||
| Linia 8: | Linia 8: | ||
| <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><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> | ||
| + | </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> | ||
| + | </pre></td></tr> | ||
| <tr><td>41</td><td>-</td><td>16</td> | <tr><td>41</td><td>-</td><td>16</td> | ||
| Linia 23: | Linia 39: | ||
| 0490 ADC RADFLG | 0490 ADC RADFLG | ||
| 0500 TAX | 0500 TAX | ||
| - | 0510 LDY #$BE | + | 0510 LDY #$BE</pre></td><td> |
| - | </pre></td><td> | + | |
| <pre> | <pre> | ||
| 0470 LDA #<TSCC+$1F | 0470 LDA #<TSCC+$1F | ||
| Linia 30: | Linia 45: | ||
| 0490 ADC RADFLG | 0490 ADC RADFLG | ||
| 0500 TAX | 0500 TAX | ||
| - | 0510 LDY #>TSCC+$1F | + | 0510 LDY #>TSCC+$1F</pre></td></tr> |
| - | </pre></td></tr> | + | |
| <tr><td>89</td><td>-</td><td>2</td> | <tr><td>89</td><td>-</td><td>2</td> | ||
Wersja z dnia 20:50, 25 kwi 2005
Książka Wojciecha Zientary "Mapa pamięci Atari XL/XE: Procedury interpretera BASIC-a"
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).
Errata
| Strona | Wiersz od góry | Wiersz od dołu | Jest | Powinno być |
| 41 | 15 | - | 1770 Q37 .BYTE $C3,$C8,$03 ;Q38 or end |
1770 Q37 .BYTE $C3,$C8,$03 ;Q38 Q44 end</pre> |
| 41 | 19 | - | 1810 .BYTE $C4,B3,$02,$03 |
1810 Q44 .BYTE $C4,$B3,$02,$03</pre> |
| 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 |
| 90 | 8 | - | 0180 .BYTE $BC,$46,$81 | 0180 .BYTE $BE,$46,$81 |
| 117 | - | 6 | 0130 JTSTROM = $E480 | 0130 JTSTROM = $E471 |
| 144 | 32 | - | 0410 CPX #$07 | 0410 CPY #$07 |
| 144 | 37 | - | 0460 EXIT CPX #$07 | 0460 EXIT CPY #$07 |
| 182 | - | 14 | $A8F1 - RSTBRG - skasowanie rejestrów Basica | usunąć |
| 185 | 5 | - | $B586 - PTMSG2 - wyświetlenie raportu na ekranie | $B581 - PTMSG1 - wyświetlenie raportu na ekranie $B586 - PTMSG2 - wyświetlenie raportu na ekranie |
