ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/PROG/PASCAL/TPU2TPS.ZIP/TEST.PAS

Pascal/Delphi Source File | 1991-07-23 | 464 b | 24 lines

{$r-,s-}      { Range and stack checking don't work!!! }
{$n-,e-}      { There's no floating point support at all! }

program test;

const
  msg : array[1..45] of char = 'This program has almost no run-time library!$';

procedure printstring;
begin
  { We can't use any of the system routines; we have to do our
    printing using DOS services }

  asm
    mov dx,offset msg
    mov ah,09
    int $21
  end;
end;

begin
  printstring;
end.