|
DataMuseum.dkPresents historical artifacts from the history of: DANOSI |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DANOSI Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 893 (0x37d)
Types: TextFile
Names: »OSITEST.RTP«
└─⟦289818552⟧ Bits:30010516 DVBS1.SW2114.src.2.7-3 SW2114 3/4 Real Time Pascal 2.7
└─⟦this⟧ »RTP\OSITEST.RTP«
└─⟦783187a02⟧ Bits:30010525 DVBS1.SW2114.src.2.6-3 RTP compiler source SW2104+SW2114 Disk#3 30/1-92 HHA
└─⟦this⟧ »RTP\OSITEST.RTP«
└─⟦ca921ce75⟧ Bits:30010528 DVBS1.SW2114.src.2.6-6 RTP Compiler Source SW2104+SW2114 Disk 3 92.02.03 HEJ HHA
└─⟦this⟧ »RTP\OSITEST.RTP«
└─⟦d5707feda⟧ Bits:30010512 DVBS1.SW2114.src.2.14-3 SW2114 REAL #3/4 TIME PASCAL SOURCE REL 2.14 92.09.01
└─⟦this⟧ »RTP\OSITEST.RTP«
program ositest;\r
program systest; external;\r
$if (target <> TA) AND (target <> RC3502) \r
type str=record length: byte; alfa:array(1..12) of char end;\r
\r
function load(var s:str): integer; external;\r
\r
procedure do_load(s: string);\r
var help: str;\r
begin\r
help.length:= s!length;\r
for i:=1 to s!length do help.alfa(i):=s(i);\r
if load(help)=0 then;\r
end;\r
$endif\r
var\r
proc: process;\r
\r
\r
\r
\r
begin\r
$if (target <> ta) AND (target <> RC3502) \r
(* do_load("RTPLIBPA");*)\r
do_load("TESTIO");\r
do_load("SYSTEST1");\r
do_load("SYSTEST2");\r
do_load("TESTVER9");\r
$endif\r
$IF (target = ta) OR (target = RC3502) \r
if link("systest", systest)=link_ok then trace(0) else trace(1);\r
$ELSE\r
trace(link("SYSTEST", systest));--=link_ok then trace(0) else trace(1);\r
$ENDIF\r
if create("SYSTEST", systest, proc, 0, stdpriority)=create_ok \r
then trace(0) else trace(1);\r
end.\r