OldComp.cz

Už v hodně dávných dobách jsem si všímal, jak jsou udělané různé programy v Basicu. Vždycky mě zajímalo, jak je vlastně udlěaný "stroják v Basicu" na prvním řádku většinou za příkazem REM. Od jaké adresy vlastně je a jak může být dlouhý? A jak se provede, aby za REM byl? Vím, že dnes se tato metoda už nepoužívá a je považovaná za prasáckou, ale i tak mě to zajímá, nikdy jsem to pořádně nepochopil.

_________________
Have you played ATARI today?

Preco by sa nemala pouzivat a preco je povazovana za prasacku?

Problemy so strojakom v Basicu su snad len dva:
1. zvacsa tam bol custom loader a to prasarna je, lebo program potom nejde upravit na iny system
2. maloktory kod si zistoval zaciatok Basicu a upravil podla toho volania, takze nefungoval s pripojenym betadiskom, alebo IF1 (alebo cimkolvek,co posuvalo zaciatok Basicu).

Najnovsi program, co som takto videl je Flasher na divIDE a ten je docela pekny

To je velmi jednoduche. Napis 1 REM aaaaaaaaaaaaaaaaa odosli a pozri sa do pameti od adresy 23755 (tu normalne zacina basic). Najdes tam najprv dvojbajtove cislo riadku (v nasom pripade 1), potom dvojbajtovu dlzku riadku, potom kod prikazu REM - bajt #EA a za nim uz budu v pameti tie pismenka "a". Tie si mozes (napr. pomocou POKE, alebo z nejakeho monitora, asembleru, alebo uplne mimo Spektra) prepisat hocicim, napr. tvojim strojakom. A normalne ho zavolat pomocou USR. Prve acko bude na adrese 23760, takze ak chces svoj strojak zavolat od zaciatku, tak urob USR 23760.

A aky dlhy moze byt ? Vid vyssie spominana dlzka riadku - je dvojbajtova, takze ten strojak moze mat potencialne az temer 64 kB Teoreticky je to obmedzene len volnym miestom v basicu, to zistis pomocou PRINT 65535 - USR 7962. A prakticky tym na kolko tukania acok mas trpezlivost

Este poznamka k tej adrese 23755: Tu zacina basic vzdy, ked nemas ku Spektru pripojenu nejaku periferiu, ktora si ten zaciatok basicu posuva. Napriklad Inteface1 alebo cokolvek s TRDOSom. Bezne u nas rozsirene systemy (bsdos, mdos, demfir, fatware, dosy pre +D a Disciple) basic neposuvaju. Ak chces mat uplnu istotu v kde ten basic presne lezi aj v pripade systemov posuvajucich basic, presnu adresu zaciatku basicu zistis takto: PEEK 23635 + 256 * PEEK 23636

Pre zaujimavost, takto vyzera zdrojak mojej utilitky "USR 0" ktora prepne basic do USR 0 rezimu a nahra nasledujuci program (vyzadujuci beh v USR 0 rezime), takze clovek to nemusi robit rucne ked sa nachadza v 128 alebo +3 basicu.

Ale teraz nie je podstatne co to robi, ale zaujimave je prave to ulozenie strojaku priamo v basicovom bloku. Krasne na nom vidno, ze strojak v basicu sa nemusi schovavat len do REM-u (kde robi psie kusy pri listingu), ale da sa schovat uplne, tak ze prikaz LIST ho vobec neukaze a clovek ma pocit, ze je to cisty regulerny basic

Funguje to takto: Na zaciatku je dva bajty cislo riadku 0, potom dva bajty dlzka riadku (tu nam vyrata kompiler), potom nasleduje #F7 co je prikaz RUN. Vo vseobecnoti je jedno aky prikaz tu bude, podstatne je ze potrebuje jeden parameter vdaka ktoremu bude vykonana nasledujuca funkcia USR (kod #C0). Za funkciu USR nasleduje nejake cislo, zase je uplne jedno ake, pretoze basic pri behu cislice preskoci a nacita az 5 bajtovu definiciu cisla za kodom #0E. Realna hodnota cisla bude navestie "runusr", ktoreho hodnotu nam znovu vypocita kompiler. Takze vysledkom tohto kusu basicu bude to ze sa nam spusti strojak od adresy "runusr". A teraz pozor, basic riadok konci bajtom #0D. Ak za tymto bajtom nasleduje bajt vecsi ako 127, prikaz LIST si mysli ze je to uplny koniec basicu (ze dalej nasleduju premenne) a dalej uz nic nevypisuje - a to je to tajomstvo vdaka ktoremu LIST neukaze strojak schovany v basicu

A cele je to vlastne aj priklad toho ako sa da napisat basicovy program v asemblerovom kompileri

Iba upresním, že MDOS posúva začiatok BASICu pri otváraní kanálov pre čítanie/zápis sekvenčných súborov. Ak si to dobre pamätám, tak je to 544 bytov na kanál.
Nič to ale samozrejme nemení na tom, že za normálnych okolností skutočne BASIC začína na adrese 23755 a systémová premenná na adrese 23635 "rieši všetko".

_________________
https://pmd85.borik.net - PMD 85 Emulátor, PMD 85, PMD 32-SD
https://pp01.borik.net - PP 01 Emulátor, PP 01, SD-ROM Modul

A pokial nemas trpezlivost, pripadne potrebujes riadok dlhsi nez obrazovka tak mozes pouzit aj nasledujuci program, ktory okrem inych uzitocnych funkcii pre programatorov v BASICu obsahuje aj nastroj na vytvaranie (takmer) lubolne dlhych riadkov s REM.

_________________
Didaktik Gama | ZX Spectrum 128 | ZX Diskface Quick A | BetaDisk 128C Interface | D40 & D80 | divIDE | Interface M/P | Multiface 128 (GOTDJ) | Gama Breaker | D80mini

"Kvalita a stabilita Windows XP se Microsoftu nevyplatila, stal se takovou temnou připomínkou toho, co se stane, když odvedete svou práci moc dobře."