Чего не сделаешь для ближнего! Пожалуйста, читайте.

  а) Пример :
   procedure RTCDelay(Wait:LongInt); assembler;
   asm
   mov ah,86h
   mov dx,word ptr Wait
   mov cx,word ptr Wait+2
   int 15h
   end;

  б) Пример :
   Procedure Delay(x:longint);
   var
   l:longint;
   begin
   l := MemL[Seg0040:$6c];
   while MemL[Seg0040:$6c] < l+x do;
   end;

  Пример :
   procedure CursorOff; assembler;
   asm
   mov ah,1
   mov cx,2020h
   int 10h
   end;

  Пример :
   procedure CursorOn; assembler;
   asm
   mov ah,1
   mov cx,0607h
   int 10h
   end;

  Пример :
   Procedure SetMaxFiles(Count:Word);assembler;
   asm
   Mov AH,67H
   MOV BX,Count
   Int 21H
   end;

  а)Пример :
   Function Upcase(C:Char):Char;assembler;
   asm
   mov AX,6520H
   mov DL,C
   int 21H
   mov AL,DL
   end;

  б)Пример :
   Procedure UpString(var S:String);assembler;
   asm
   Push DS
   LDS BX,S
   XOR CX,CX
   MOV CL,[BX]
   INC BX
   MOV DX,BX
   MOV AX,6521H
   INT 21H
   POP DS
   end;

{$N-} {$E-} {$P-} {$Q-} {$T-} {$A-} {$B-} {$D+} {$F-} {$G-} {$I-} {$L+} {$O-} {$R-} {$S-}

{ Использовать+ числовой сопроцессор (плавающая точка) } { Включить+ (отключить-) режим эмуляции сопроцессора } { Open String Parameters Swich } { Включить+ (отключить-) контроль переполнения арифм. опер. } { Контроль @оператора, нетипизированный-, типизированный+ } { Выравнивать данные на границу слова+ (байта-) } { Вычислять логические выражения полностью+ } { Разрешить+, (запретить-) работу со встроенным отладчиком } { Использовать дальнюю+ (ближнюю-) модель вызова } { Использовать полный набор+ команд I80286, или I8088 - } { Включить+ (отключить-) контроль операций ввода-вывода } { Включить+ (отключить-) локальные символы для отладчика } { Разрешить+ (запpетить-)создание оверлейной структуры } { Включить+ (отключить-) контроль диапазона } { Включить+ (отключить-) контроль переполнения стека }