|
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: 1044 (0x414)
Types: TextFile
Names: »P435BOOL.PAS«
└─⟦037c0ce35⟧ Bits:30010524 DVBS1.SW2114.src.2.6-2 RTP compiler source SW2104+SW2114 Disk#2 30/1-92 HHA
└─⟦this⟧ »RTP\P435BOOL.PAS«
└─⟦828f0d3dd⟧ Bits:30010527 DVBS1.SW2114.src.2.6-5 RTP Compiler Source SW2104+SW2114 Disk 2 92.02.03 HEJ HHA
└─⟦this⟧ »RTP\P435BOOL.PAS«
└─⟦891417be1⟧ Bits:30010519 DVBS1.SW2114.src.2-1 SW2114 1/4 Real Time Pascal 2.7 92.06.16
└─⟦this⟧ »RTP\P435BOOL.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\P435BOOL.PAS«
{$O+,F+}\r
unit p435bool;\r
interface\r
uses p4unit;\r
VAR NegInstruction : Array[rEQ..rGE] OF Instruction;\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
PROCEDURE InitBoolean;\r
\r
\r
IMPLEMENTATION\r
\r
uses pscplm,mpaunit,sthunit,sthcom,p4evalst,p435eopr,p435code;\r
VAR JumpInstruction : Array[rEQ..rGE] OF Instruction;\r
\r
{$DEFINE RC3502}\r
{$DEFINE RC35_50}\r
PROCEDURE InitBoolean;\r
BEGIN\r
JumpInstruction[rEQ] := rJMZNE;\r
JumpInstruction[rNE] := rJMZEQ;\r
JumpInstruction[rLT] := rJMZGE;\r
JumpInstruction[rGT] := rJMZLE;\r
JumpInstruction[rLE] := rJMZGT;\r
JumpInstruction[rGE] := rJMZLT;\r
\r
NegInstruction[rEQ] := rNE;\r
NegInstruction[rNE] := rEQ;\r
NegInstruction[rLT] := rGE;\r
NegInstruction[rGT] := rLE;\r
NegInstruction[rLE] := rGT;\r
NegInstruction[rGE] := rLT;\r
END;\r
{$I p4bool}\r
{$UNDEF RC3502}\r
{$UNDEF RC35_50}\r
END.\r
«eof»