Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- The code of BasDroid (In Czech) for Kyusam Gear - For Picaxe 20m2
- -----------------------------------------------------------------------------------------------------------------------------------
- '--------------------------------------Zapnutí Paměti-----------------------------------------'
- startstart:'Počátek systému
- ' Zapne BasDroid a zapne varovné signály pro přepnutí paměti do polohy "Write"
- ' Pokud tak neučiní uživatel hrozi zničení paměti !
- ' High 1 = Světelný signál High 2 = Zvukový signál startstart:'Počátek systému
- high 1
- high 2
- pause 200
- low 1
- pause 200
- high 1
- pause 200
- low 1
- low 2
- pause 200
- high 1
- pause 200
- low 1
- pause 200
- high 1
- high 2
- pause 200
- low 1
- pause 200
- high 1
- pause 200
- low 1
- low 2
- pause 200
- high 1
- pause 200
- low 1
- pause 200
- high 1
- high 2
- pause 200
- low 1
- pause 200
- high 1
- pause 200
- low 1
- low 2
- pause 200
- high 1
- pause 200
- low 1
- pause 200
- high 1
- high 2
- pause 200
- low 1
- pause 200
- high 1
- pause 200
- low 2
- low 1
- pause 5000
- high 3 'Ledka oznamují zapis do paměti. Pro bezpečnost systém počká jeětě 5 sekund
- ' High 3 = Zápis paměti High 4 = čtení paměti
- '--------------------------------------------BIOS---------------------------------------------'
- startbios:'
- high 6 'Zapíná Power s testováním pro adaptér **Synx
- pause 150 '
- low 6 'Kontroluje ....
- pause 200 '
- high 6 '
- pause 300 'Kontroluje ....
- low 6 '
- pause 500 '
- high 6 'Zapníná Power bez testování
- '-----------------------------------------WRITEPROGRAM-----------------------------------------'
- 'startwriting:
- 'Příklad ...
- HIGH 8
- HIGH 10
- HIGH 15
- ' Stiskněte tlačítko
- HIGH 15
- pause 100
- LOW 15
- ' Tlačítko Stisknuto a pokračuje
- ' Lze takto naprogramovat až osm řádku po 8 Příkazech (8x8=64 - 64 příkazu)
- LOW 8
- HIGH 11
- HIGH 12
- LOW 15
- ' A Takto mužem pokračovat ještě 59x viz. řádek 82
- '-----------------------------------------WRITEOFF---------------------------------------------'
- 'startwriteoff:
- pause 2000
- low 3
- '-----------------------------------------READPROGRAM------------------------------------------'
- startread:
- pause 100
- high 4
- ' Program se činí tak jak byl programován a zde je položena i nekonečná smyčka pro opakování
- ' Protože jinak by se musel program znovu a zbytečně opakovat a mohl by zblbnout pamět
- '-----------------------------------------END OF PROGRAM---------------------------------------'
- ' BASDROID version 1.0 - Lanturas
- ' the possibility of errors - Možnost chyb v programě
- ' Tyto chyby (pokud nějaké jsou budou opraveny v dalších verzích autor nebere na sebe zodpovědnost
- ' za používání ! (c)
- ' Bug report - Kyusamplayer@gmail.com
- (c) // Kyusam Studio \\
- (c) // Kyusam Gear \\
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement