DataMuseum.dk

top - download

    Length: 1020 (0x3fc)
    Types: TextFile
    Names: »RTP3525.PAS«

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

TextFile

program rtp35022p5 (in_pass5, out_pass5, ext_pass5, output);\r
uses rtpunit, dos;\r
\r
(*$M 25000,0,655360 *)\r
(*$R+*)\r
\r
type\r
text_buf_type = array[1..1024] of char;\r
var\r
out_buf_ptr: ^text_buf_type;\r
exitsave : pointer;\r
\r
\r
(*$I p5init *)\r
(*$I p5proc *)\r
(*$I p5exit *)\r
\r
(*$F+*) procedure myexit; (*$F-*)\r
begin\r
\r
exitproc := exitsave;\r
if exitcode = 0 then\r
begin\r
\r
if pass5_ok then replace('rtp3526.exe');\r
\r
end;\r
\r
runtime_error('*** compilation terminated after pass 5');\r
\r
end;\r
\r
(*    body of the program:     *)\r
\r
begin\r
\r
exitsave := exitproc;\r
exitproc := @ myexit;\r
\r
pass5_ok := true;\r
lambda_version := default_lambda_version;\r
\r
new(out_buf_ptr);\r
new(incode_filptr);\r
new(extcode_filptr);\r
\r
assign(in_pass5, concat(path1_name, o_pass4_nixname));\r
(*$I-*)\r
reset(in_pass5);\r
if ioresult <> 0 then\r
begin\r
nofile(concat(path1_name, o_pass4_nixname));\r
end;\r
(*$I+*)\r
read(in_pass5, incode_filptr^);\r
ext_tab_max:= incode_filptr^[1];\r
close(in_pass5);\r
\r
alloc_ext_tab_and_call_pass5;\r
\r
\r
end.\r
«eof»