M M I K K RRRR OOOO MM MM I K K R R O O M M M M I K K R R O O M M M I K K RRRR O O M M I K K R R O O M M I K K R R O O M M I K K R R OOOO MIKRO~PASCAL ZAKLADNI INFORMACE by SVOSOFT 1988 FET file by RadSoft 1/ Editor --------- prikazy nastaveni ukazatele o znak vlevo CTRL-S [sipka vlevo] o znak vpravo CTRL-D [sipka vpravo] o slovo vlevo CTRL-A [ F3 ] o slovo vpravo CTRL-F [ F4 ] o radek nahoru CTRL-E [sipka nahoru] o radek dolu CTRL-X [sipka dolu ] o stranu nahoru CTRL-R [shift + sipka nahoru] o stranu dolu CTRL-C [shift + sipka dolu] na zacatek radku CTRL-Q-S [shift + sipka vlevo] na konec radku CTRL-Q-D [shift + sipka vpravo] na zacatek obrazovky CTRL-Q-E na konec obrazovky CTRL-Q-X na zacatek souboru CTRL-Q-R na konec souboru CTRL-Q-C na predchozi pozici CTRL-Q-P prikazy vkladani a mazani vkladani/prepisovani CTRL-V [ INS ] vlozeni radku CTRL-N [ shift + INS] vymazani znaku DELETE vymazani slova CTRL-T vymazani radku CTRL-Y [ shift + DEL] vymazaní do kon rad CTRL-Q-Y [ F2 ] prikazy pro praci s bloky vyznac zacatek bloku CTRL-K-B vyznac konec bloku CTRL-K-K kopirovani bloku CTRL-K-C presunuti bloku CTRL-K-V vymaz bloku CTRL-K-Y cti blok ze souboru CTRL-K-R pis blok do souboru CTRL-K-W ukazatel na zac blk CTRL-Q-B ukazatel na kon blk CTRL-Q-K zobrazeni bloku Z/V CTRL-K-H prikazy vyhledavani a nahrazovani vyhledani retezce CTRL-Q-F nahrazeni retezce CTRL-Q-A opakovani prikazu CTRL-L zruseni prikazu CTRL-U ostatni prikazy ukonceni editovani CTRL-K-D [ F1 ] obnoveni radku CTRL-Q-L zmena odsazovani CTRL-Q-I tabulator CTRL-I [ TAB ] volby pro vyhledani a nahrazeni volba vyhledani nahrazeni B zpetne hledani zpetne hledani G globalni hledani N nahrazeni bez dotazu U ignorovani rozdilu mezi malymi a a velkymi pismeny W vyhledavani celych slov n vyhledani n-teho vyskytu retezce 2/Monitor --------- prikazy monitoru Dadr1[,adr2] vypis useku operacni pameti od adr1 do adr2 neni-li adr2 uvedeno vypise se 160 byte zastaveni vypisu CTRL-S zruseni zastaveneho vypisu CTRL-C Madr1 modifikace obsahu od adresy adr1 ukonceni modifikace zadanim 'k' Fadr1,adr2,xx zaplneni useku pameti od adresy adr1 do adr2 bytem xx (hexadecimalne); Tadr1,adr2,adr3 presun useku pameti pocinaje adresou adr1 konce adr2 na adresu adr3 Gadr1 vyvolani podprogramu na adrese adr1 pro radny navrat musi byt zasobnik na stejne urovni L[adr] zavedeni programu (dat) od adresy adr pokud neni adresa uvedena zavede se od adresy v zahlavi Sadr1,adr2,adr3,filename ulozeni useku pameti od adresy adr1 do adr2 na pasku pod jmenem filename adr3 je ulozena jako start adr do zahlavi ( je nutno ji uvest) R navrat zpet do zakladniho menu 3/ Volby kompilace ------------------ Kompilace do pameti - volba M nevytvari se soubor na magn pasce Kompilace na mp - volba C na magnetickou pasku se zapise knihovna PASCALU + BIOS , pak se provede preklad a zapise se vysledny program Kompilace na mp - volba H na magnetickou pasku se zapise pouze vysledny program. (takto vytvoreny pro gram je mozno provozovat pod systemem vytvorenym volbou C (po ukonceni programu zustane system funkcni a je mozno zavest a spustit dalsi program (uvedenim jmena) 4/ Omezeni a rozsireni proti prirucce -------------------------------------- Videorutiny ----------- nejsou funkcni procedury INSLINE, DELLINE je doplnena procedura PAL (x,y); pricemz x je cislo palety 0 - 3 y je cislo barvy 0 - 15 paleta 0 odpovida barve pozadi 1 odpovida barve lowvideo 2 odpovida barve pozadí 3 odpovida barve normvideo Zpracovani souboru ------------------ nejsou funkcni procedury SEEK , FLUSH , ERASE , RENAME a funkce FILESIZE je mozno soucasne pracovat jen s jednim souborem tzn mezi prikazy RESET (REWRITE) a CLOSE pro jeden soubor neni mozno pouzit prikazy pro jiny soubor (neni kontrolovano - pouziti vede k nedefinovatelnym vysledkum) Soubory ve formatu MZ800 ------------------------ Pro zpracovani souboru ve formatu MZ800 se pouziva prikaz BDOS (12,adrLAB) pricemz adrLAB je adresa pole o strukture op.byte (byte) file name (array [1..17] of char) file size (integer) load addr (integer) start addr (integer) comment (array [1..104] of char) pricemz op.byte je kod operace 1 .. cteni navesti (cte do adrLAB) 2 .. cteni bloku (dle adres v adrLAB) 3 .. zapis navesti (zapise se adrLAB) 4 .. zapis bloku (dle adres v adrLAB) dalsi udaje odpovidaji udajum v navesti souboru MZ800 Udaje realneho casu ------------------- Jsou definovany procedury pro nastaveni a zjisteni realneho casu: SETIM (pole) nastaveni casu GETIM (pole) zjisteni casu pole je promenna popsana jako array [1..3] of byte v prvku pole [1] se predavaji hodiny pole [2] minuty pole [3] sekundy priklad nastabeni casu na 21:12:00 ....... pole [1] := 21; pole [2] := 12; pole [3] := 0; SETIM (pole); ------------------------------------------------------------ FET version by RadSoft Radek Kafka Software Chotiměř 101 411 31 VELEMÍN tel:Lovosice 95 340 21-22 h. ------------------------------------------------------------ program pro listing souboru na tiskarne/plotteru Soubor,který chcete listovat nahrajte na kazetu Potom do editoru nahrajte (popř. napište) nasledující program. program tisk(input,output,fl,lst); var sektor:array[1..22500] of char; a:string [20]; i,j:integer; fl:file; ch:char; {$u+} begin clrscr; ch:=chr(9); {prpnuti plotteru na 80 znaku) writeln(lst,ch,ch,ch); writeln; write (' zadej jmeno souboru na kazete '); readln (a); assign (fl,a); reset (fl); for i:=1 to 5 do writeln(lst); writeln (lst,a); writeln (lst); blockread (fl,sektor,90,j ); j:=j*128; writeln; writeln ('vypni cmt a cekej az vse vytisknu ! '); for i:=1 to j do write(lst,sektor[i]); end. prelozte program a zadejte jmeno souboru na kazete např: invest.pas program investice nahraje z kazety a vytiskne na výpisovém zařízení. ------------------------------------------------------------ překlad z kazety: pokud se nám stane,že napišeme program,který pascal z paměťových důvodů nemůže přeložit,nahrajeme ho na kazetu,potom pomoci direktivy překladačce I (Include )přeložíme program z kazety. v editoru napišeme ($I presny nazev souboru} např: B:invest.pas potom volime volbu Compile nebo Run Jakmile pťekladč najde direktivu $I zacne Loadovat program a zároveň překladat. Ostatní direktivy: (parametry v závorkách jsou implicitní) R (-) + kontrola operací s indexy - bez kontroly indexu U (-) + přerušení CTRL-C kdykoliv - neobsluhuje se kdykoliv A (+) + absolutní kód - rekurzivní kód Wn n= počet vniření WIDTH C (+) přerušení CTRL-C při čtení CTRL-S při tisku - nelze přerušit V (+) + kontrola délky stringu - délky stringů se nekontrolují Překladač pozná direktivu podle znaku $ který musí být v poznámce před direktivou nepř: {*$A-,$W2,$V+*} Vše výše uvedené není plně odskoušeno a proto bez jakekoliv záruky ! S dotazy na loadovaní souboru do FETa a naopak ,i s dotazy na tuto příručku se obraťte na firmu RadSoft Dotazy na program u fy SVOSOFT -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=