Difference between revisions of "HiSoft Pascal"
From Enterprise Wiki
(Created page with " == HiSoft Pascal == A HiSoft Pascal elterjedt Pascal fordító volt a 8 bites számítógépeken. Kiadták Spectrum-ra, CPC-re és ENTERPRISE-ra is. '''Dokumentációk:'''...") |
(→HiSoft Pascal) |
||
| Line 20: | Line 20: | ||
| − | ''' | + | == Módosítások az 1.1-es verzióhoz képest == |
| + | |||
| + | '''PAGE''' | ||
| + | |||
| + | A PAGE parancs feladata a képernyőtörlés és a lapdobás (nyomtatón). | ||
| + | Ez a parancs egy CHR(12) karaktert ír ki, ez a kódja a lapdobásnak és Spectrum-on a képernyőtörlésnek is. | ||
| + | Lefordított állapotban így néz ki a kód: | ||
| + | LD A,12 | ||
| + | CALL 0112H ;WriteChar | ||
| + | |||
| + | A módosított verzióban viszont így fordul le: | ||
| + | LD A,(14F7H) | ||
| + | OR A ;mi az output? (0=képernyő, 1=printer) | ||
| + | LD A,12 ;a lapdobás kódja a nyomtatón | ||
| + | JR NZ,kiir ;ha A<>0, akkor chr(12)-t fog írni | ||
| + | LD A,26 ;ha A=0, akkor CHR(26)-ot fog írni | ||
| + | kiir CALL 0112H ;karakter írása | ||
| + | |||
| + | Így már ENTERPRISE-on is jól működik a PAGE parancs. | ||
| + | |||
| + | A nyomtató- és képernyőkimenet között a CHR(16) (CTRL+P) kóddal tudunk váltani: | ||
| + | WRITELN('Most a kepernyore ir.'); | ||
| + | WRITELN(CHR(16),'Most viszont a nyomtatora!'); | ||
| + | WRITELN(CHR(16),'Ezt meg mar megint a kepernyore.'); | ||
Revision as of 16:14, 24 November 2013
HiSoft Pascal
A HiSoft Pascal elterjedt Pascal fordító volt a 8 bites számítógépeken. Kiadták Spectrum-ra, CPC-re és ENTERPRISE-ra is.
Dokumentációk:
Spectrum verzió [1]
CPC verzió [2]
MTX512 verzió [3]
ENTERPRISE verzió [4]
Módosítások az 1.1-es verzióhoz képest
PAGE
A PAGE parancs feladata a képernyőtörlés és a lapdobás (nyomtatón). Ez a parancs egy CHR(12) karaktert ír ki, ez a kódja a lapdobásnak és Spectrum-on a képernyőtörlésnek is. Lefordított állapotban így néz ki a kód:
LD A,12 CALL 0112H ;WriteChar
A módosított verzióban viszont így fordul le:
LD A,(14F7H)
OR A ;mi az output? (0=képernyő, 1=printer)
LD A,12 ;a lapdobás kódja a nyomtatón
JR NZ,kiir ;ha A<>0, akkor chr(12)-t fog írni
LD A,26 ;ha A=0, akkor CHR(26)-ot fog írni
kiir CALL 0112H ;karakter írása
Így már ENTERPRISE-on is jól működik a PAGE parancs.
A nyomtató- és képernyőkimenet között a CHR(16) (CTRL+P) kóddal tudunk váltani:
WRITELN('Most a kepernyore ir.');
WRITELN(CHR(16),'Most viszont a nyomtatora!');
WRITELN(CHR(16),'Ezt meg mar megint a kepernyore.');
