<> <> <> <<>> <IEN-137.txt>> <> <<>> <> <<(Of course, you are crazy if you send pointers. RELATIVE pointers might be interesting. ?)>> <> DIRECTORY PrincOps USING [zEXCH]; Endian: CEDAR DEFINITIONS = { BYTE: TYPE = [0..100H); HWORD: TYPE = WORD; <> FWORD: TYPE = RECORD [high, low: WORD]; <> bytesPerHWord: NAT = 2; bytesPerFWord: NAT = 4; FFromCard: PROC [LONG CARDINAL] RETURNS [FWORD] = TRUSTED MACHINE CODE { PrincOps.zEXCH; }; FFromInt: PROC [INT] RETURNS [FWORD] = TRUSTED MACHINE CODE { PrincOps.zEXCH; }; CardFromF: PROC [FWORD] RETURNS [LONG CARDINAL] = TRUSTED MACHINE CODE { PrincOps.zEXCH; }; IntFromF: PROC [FWORD] RETURNS [INT] = TRUSTED MACHINE CODE { PrincOps.zEXCH; }; HFromCard: PROC [CARDINAL] RETURNS [HWORD] = TRUSTED MACHINE CODE { }; HFromInt: PROC [INTEGER] RETURNS [HWORD] = TRUSTED MACHINE CODE { }; CardFromH: PROC [HWORD] RETURNS [CARDINAL] = TRUSTED MACHINE CODE { }; IntFromH: PROC [HWORD] RETURNS [INTEGER] = TRUSTED MACHINE CODE { }; }.