|
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: 775 (0x307)
Types: TextFile
Names: »RTP3521.PAS«
└─⟦b6837b237⟧ Bits:30010500 SW2103 REL 1.11 Sourcer DVBS1.SW2103.rel.1.11-1 MASTER 31-1-192
└─⟦this⟧ »RTP3521.PAS«
program rtp3502(input,output,spixtable,codefile,symbfile);\r
uses rtpunit, dos;\r
\r
(* Version control comments are stated in p1init.pas *)\r
\r
(*$M 65000,0,655360*)\r
(*$R+*)\r
\r
(*$I p1init *)\r
(*$I p1code *)\r
(*$I p1pars *)\r
\r
(*$F+*)procedure myexit; (*$F-*)\r
begin\r
\r
exitproc := exitsave;\r
\r
if exitcode = 0 then\r
begin\r
\r
terminate(errorcount>0);\r
if warningcount>0 then (* no errors but warnings *) printerrors;\r
if call_pass_3 then\r
if program_name<>'rtp35022' then (* 3502 or z80 *)\r
replace('rtp3513.exe')\r
else (* 3502 model 2 *)\r
replace('rtp3523.exe');\r
\r
end;\r
\r
runtime_error( '*** compilation terminated after pass1 ');\r
\r
end;\r
\r
begin\r
\r
exitsave := exitproc;\r
exitproc := @ myexit;\r
\r
new(in_buf_ptr);\r
new(spix_buf_ptr);\r
\r
initialize;\r
\r
parser;\r
\r
end.\r
«eof»