Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 623 → Rev 622

/programs/develop/fp/examples/readme-ru.txt
File deleted
/programs/develop/fp/examples/example.bat
File deleted
/programs/develop/fp/examples/_build.bat
File deleted
/programs/develop/fp/examples/example.pp
File deleted
/programs/develop/fp/readme-ru.txt
1,18 → 1,18
Codepage: cp866
Codepage: koi8-r
 
’¥ªã騩 ª®¤  ¤ ¯â¨à®¢ ­ ¨ ¯à®¢¥àï«áï ⮫쪮 ­  FreePascal 2.3.1 (SVN 8373) ¯à¨
ª®¬¯¨«ï樨 ¨§ Windows.
ôÅËÕÝÉÊ ËÏÄ ÁÄÁÐÔÉÒÏ×ÁÎ É ÐÒÏ×ÅÒÑÌÓÑ ÔÏÌØËÏ ÎÁ FreePascal 2.3.1 (SVN 8373) ÐÒÉ
ËÏÍÐÉÌÑÃÉÉ ÉÚ Windows.
 
„«ï ª®¬¯¨«¨à®¢ ­¨ï ¢¥àᨨ RTL ¤«ï KolibriOS ¢ ¬ ­¥®¡å®¤¨¬® ¨¬¥âì ãáâ ­®¢«¥­­ë©
ã ᥡï FreePascal á ¨á室­ë¬¨ ª®¤ ¬¨ RTL 㪠§ ­­®© ¢ëè¥ ¢¥àᨨ. Žâªà®©â¥ ä ©«
rtl/build.bat ¨ 㪠¦¨â¥ ¢ ¯¥à¥¬¥­­®© ®ªà㦥­¨ï FPRTL â®ç­ë© ¯ãâì ª ¨á室­®¬ã
ª®¤ã ®à¨£¨­ «ì­®© RTL.  ¯à¨¬¥à, ¥á«¨ FreePascal ãáâ ­®¢«¥­ ¢ c:\fp, â®
¢¥à®ïâ­¥¥ ¢á¥£® ¨á室­ë© ª®¤ ­ å®¤¨âáï ¢ c:\fp\src\rtl. â®â ¯ãâì ¨ ­ã¦­®
㪠§ âì. à¥¤¯®«®£ ¥âáï çâ® ¨¥à àå¨ï ¤¨à¥ªâ®à¨© ¨á室­¨ª®¢ FreePascal á®åà ­¥­ 
â®ç­® â ª®© ¦¥ ª ª ¢ ९®§¨â à¨¨ FreePascal'ï.
äÌÑ ËÏÍÐÉÌÉÒÏ×ÁÎÉÑ ×ÅÒÓÉÉ RTL ÄÌÑ KolibriOS ×ÁÍ ÎÅÏÂÈÏÄÉÍÏ ÉÍÅÔØ ÕÓÔÁÎÏ×ÌÅÎÎÙÊ
Õ ÓÅÂÑ FreePascal Ó ÉÓÈÏÄÎÙÍÉ ËÏÄÁÍÉ RTL ÕËÁÚÁÎÎÏÊ ×ÙÛÅ ×ÅÒÓÉÉ. ïÔËÒÏÊÔÅ ÆÁÊÌ
rtl/build.bat É ÕËÁÖÉÔÅ × ÐÅÒÅÍÅÎÎÏÊ ÏËÒÕÖÅÎÉÑ FPRTL ÔÏÞÎÙÊ ÐÕÔØ Ë ÉÓÈÏÄÎÏÍÕ
ËÏÄÕ ÏÒÉÇÉÎÁÌØÎÏÊ RTL. îÁÐÒÉÍÅÒ, ÅÓÌÉ FreePascal ÕÓÔÁÎÏ×ÌÅÎ × c:\fp, ÔÏ
×ÅÒÏÑÔÎÅÅ ×ÓÅÇÏ ÉÓÈÏÄÎÙÊ ËÏÄ ÎÁÈÏÄÉÔÓÑ × c:\fp\src\rtl. üÔÏÔ ÐÕÔØ É ÎÕÖÎÏ
ÕËÁÚÁÔØ. ðÒÅÄÐÏÌÏÇÁÅÔÓÑ ÞÔÏ ÉÅÒÁÒÈÉÑ ÄÉÒÅËÔÏÒÉÊ ÉÓÈÏÄÎÉËÏ× FreePascal ÓÏÈÒÁÎÅÎÁ
ÔÏÞÎÏ ÔÁËÏÊ ÖÅ ËÁË × ÒÅÐÏÚÉÔÁÒÉÉ FreePascal'Ñ.
 
®á«¥ ¨§¬¥­¥­¨ï rtl/build.bat § ¯ãáâ¨â¥ íâ®â ª®¬ ­¤­ë© ä ©« ­  ¢ë¯®«­¥­¨¥. ®á«¥
§ ¢¥à襭¨ï à ¡®âë í⮣® ä ©«  ¢ ¯ ¯ª¥ ./units ¤®«¦­ë ¯®ï¢¨âì ¬®¤ã«¨ ¨ ®¡ê¥ªâ­ë¥
ä ©«ë RTL.
ðÏÓÌÅ ÉÚÍÅÎÅÎÉÑ rtl/build.bat ÚÁÐÕÓÔÉÔÅ ÜÔÏÔ ËÏÍÁÎÄÎÙÊ ÆÁÊÌ ÎÁ ×ÙÐÏÌÎÅÎÉÅ. ðÏÓÌÅ
ÚÁ×ÅÒÛÅÎÉÑ ÒÁÂÏÔÙ ÜÔÏÇÏ ÆÁÊÌÁ × ÐÁÐËÅ ./units ÄÏÌÖÎÙ ÐÏÑ×ÉÔØ ÍÏÄÕÌÉ É ÏÂßÅËÔÎÙÅ
ÆÁÊÌÙ RTL.
 
Š ª ⥯¥àì ᮡ¨à âì ¯à®£à ¬¬ë ï ®¯¨èã ¯®§¦¥.
ëÁË ÔÅÐÅÒØ ÓÏÂÉÒÁÔØ ÐÒÏÇÒÁÍÍÙ Ñ ÏÐÉÛÕ ÐÏÚÖÅ.
/programs/develop/fp/rtl/kos.inc
20,7 → 20,6
movl style, %edx
decl %ebx {㬥­ìè¨âì è¨à¨­ã ­  1}
decl %ecx {㬥­ìè¨âì ¢ëá®âã ­  1}
andl $0xEFFFFFFF, %edx
int $0x40
popl %edi
popl %esi
592,24 → 591,6
end;
 
 
{ Sound }
 
function kos_speak(notes: Pointer): Boolean; assembler; register;
asm
pushl %esi
pushl %ebx
movl $55, %esi
movl %esi, %ebx
xchgl %eax, %esi
int $0x40
{eax = 55 - ®è¨¡ª }
andl $1, %eax
popl %ebx
popl %esi
xorb $1, %al
end;
 
 
{ Work with hardware }
 
function kos_readport(index: DWord): DWord; assembler; register;
/programs/develop/fp/rtl/kosh.inc
140,10 → 140,6
function kos_writefile(kosfile: PKosFile; var writed: Longint): DWord;
function kos_fileinfo(kosfile: PKosFile): DWord;
 
{ Sound }
 
function kos_speak(notes: Pointer): Boolean;
 
{ Work with hardware }
function kos_readport(index: DWord): DWord;
procedure kos_writeport(index, value: DWord);