DataMuseum.dk

top - download

    Length: 1244 (0x4dc)
    Types: TextFile
    Names: »RTP3524.PAS«

└─⟦b6837b237⟧ Bits:30010500 SW2103 REL 1.11 Sourcer DVBS1.SW2103.rel.1.11-1 MASTER 31-1-192
    └─⟦this⟧ »RTP3524.PAS« 

TextFile

program rtppass4(output, pass3file, pass4file);\r
\r
uses rtpunit, dos;\r
\r
(*$M 25000,0,655360*)\r
(*$R+*)\r
\r
var exitsave: pointer;\r
\r
(*$I p4init *)\r
(*$I p4proc *)\r
\r
\r
(*$F+*)procedure myexit; (*$F-*)\r
begin\r
\r
exitproc := exitsave;\r
\r
if exitcode = 0 then\r
begin\r
\r
if test then writeln;\r
if program_ok then\r
begin\r
if (* **z80** *) versionz80 then replace('rtp35z56.exe')\r
else\r
if (* **lambda** *) lambdaversion then\r
replace('rtp3515.exe')\r
else\r
(* **rc3502c** *)\r
replace('rtp3525.exe')\r
end;\r
end;\r
\r
writeln( 'Sourceline = ', source_line);\r
runtime_error( '*** compilation terminated after pass4 ');\r
\r
end;\r
\r
begin\r
\r
exitsave := exitproc;\r
exitproc := @ myexit;\r
\r
\r
test:= false;\r
program_ok:= false;\r
\r
assign(pass3file, concat(path2_name,o_pass3_nixname));\r
(*$I-*)\r
reset(pass3file);\r
if ioresult <> 0 then\r
begin\r
nofile(concat(path2_name, o_pass3_nixname));\r
end;\r
(*$I+*)\r
new(incode_filptr);\r
read(pass3file,incode_filptr^);\r
max_name_index := incode_filptr^[1];\r
close(pass3file);\r
incode_fileix := filrec_max;\r
new(outcode_filptr);\r
outcode_fileix := 0;\r
assign(pass3file, concat(path2_name, o_pass3_codename));\r
assign(pass4file, concat(path1_name, o_pass4_codename));\r
\r
alloc_nametab_and_call_pass4;\r
myexit;\r
\r
end.\r
«eof»