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

⟦36959d8d6⟧ TextFile

    Length: 470 (0x1d6)
    Types: TextFile
    Names: »P450BOOL.PAS«

Derivation

└─⟦037c0ce35⟧ Bits:30010524 DVBS1.SW2114.src.2.6-2 RTP compiler source SW2104+SW2114 Disk#2 30/1-92 HHA
    └─⟦this⟧ »RTP\P450BOOL.PAS« 
└─⟦828f0d3dd⟧ Bits:30010527 DVBS1.SW2114.src.2.6-5 RTP Compiler Source SW2104+SW2114 Disk 2 92.02.03 HEJ HHA
    └─⟦this⟧ »RTP\P450BOOL.PAS« 
└─⟦891417be1⟧ Bits:30010519 DVBS1.SW2114.src.2-1 SW2114 1/4 Real Time Pascal 2.7 92.06.16
    └─⟦this⟧ »RTP\P450BOOL.PAS« 
└─⟦a2bcc95d7⟧ Bits:30010511 DVBS1.SW2114.src.2.14-2 SW2114 REAL #2/4 TIME PASCAL SOURCE REL 2.14 92.09.01
    └─⟦this⟧ »RTP\P450BOOL.PAS«

TextFile

{$O+,F+}\r
unit p450bool;\r
interface\r
\r
  (********************** PROCEDURE BOOLEAN *******************)\r
  (* This module impl. operationes on operands of type boolean *)\r
\r
    PROCEDURE Decode;\r
\r
    PROCEDURE Encode;\r
\r
    PROCEDURE FallThruFalse;\r
\r
    PROCEDURE FallThruTrue;\r
\r
\r
IMPLEMENTATION\r
\r
uses pscplm,mpaunit,sthunit,sthcom,p4unit,p4evalst,p450eopr,p450code;\r
{$DEFINE RC5000}\r
{$DEFINE RC35_50}\r
{$I p4bool}\r
{$UNDEF RC35_50}\r
{$UNDEF RC5000}\r
\r
END.«eof»