DataMuseum.dk

Presents historical artifacts from the history of:

DANOSI

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DANOSI

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦8c8314dde⟧ TextFile

    Length: 566 (0x236)
    Types: TextFile
    Names: »RTP50P4.PAS«

Derivation

└─⟦02956c927⟧ Bits:30010510 DVBS1.SW2114.src.2.14-1 SW2114 REAL #1/4 TIME PASCAL SOURCE REL 2.14
    └─⟦this⟧ »RTP\RTP50P4.PAS« 
└─⟦4f587ad96⟧ Bits:30010518 DVBS1.SW2114.src.2.7-1 SW2114 1/4 Real Time Pascal 2.7 92.06.16
    └─⟦this⟧ »RTP\RTP50P4.PAS« 
└─⟦a2a9e188c⟧ Bits:30010526 DVBS1.SW2114.src.2.6-4 RTP Compiler Source SW2104+SW2114 Disk 1 92.02.03 HEJ HHA
    └─⟦this⟧ »RTP\RTP50P4.PAS« 
└─⟦b607d6035⟧ Bits:30010532 RTP compiler Source 1 2.14 26/9(?)-92 DVBS1.SW2114.src.2.14-8
    └─⟦this⟧ »RTP50P4.PAS« 
└─⟦fd2665794⟧ Bits:30010523 DVBS1.SW2114.src.2.6-1 RTP compiler source SW2104+SW2114 Disk#1 30/1-92 HHA
    └─⟦this⟧ »RTP\RTP50P4.PAS«

TextFile

{$O+,F+}\r
unit RTP50P4;\r
  (* Main module of pass4 code for RC5000 *)\r
interface\r
uses pscplm,mpaunit, files, sthunit, sthcom;\r
\r
  PROCEDURE RTP50Pass4;\r
    (* Procedure Called by MPA. Pass4 is made *)\r
\r
\r
\r
\r
\r
\r
\r
Implementation\r
  (* --------------- PRIVATE RTPPass4 ----------------------- *)\r
uses  rtp86mpa,sthp34,p4unit,\r
      p450stat,p450bool,p450code,p450eopr,p4evalst;\r
\r
  PROCEDURE RTP50Pass4;\r
\r
{$DEFINE RC5000}\r
{$DEFINE RC35_50}\r
{$I rtp86p4a}\r
{$I rtp86p4b}\r
{$I rtp86p4c}\r
{$I rtp86p4d}\r
{$I rtpp4}\r
{$UNDEF RC5000}\r
{$UNDEF RC35_50}\r
 END.\r
«eof»