|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1280 (0x500)
Types: TextFile
Names: »VC-003.INC«
└─⟦ec7c10e12⟧ Bits:30009789/_.ft.Ibm2.50007351.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »VC-003.INC«
(******************************************************************************)
(* *)
(* UTILITY PROCEDURES *)
(* *)
(******************************************************************************)
FUNCTION equal_psn(x: psn_type
;y: psn_type
): boolean;
BEGIN (* equal_psn *)
equal_psn := ( x(.rx0.) = y(.rx0.) ) and
( x(.rx1.) = y(.rx1.) ) and
( x(.rx2.) = y(.rx2.) ) and
( x(.rx3.) = y(.rx3.) )
END; (* equal_psn *)
PROCEDURE inc_psn(psn: psn_type
);
VAR
i: long_base;
temp: integer;
carry: byte;
BEGIN (* inc_psn *)
IF psn(.rx0.) < 255 THEN
psn(.rx0.) := psn(.rx0.) + 1
ELSE
FOR i := rx0 TO rx3 DO
BEGIN
temp := psn(.i.) + carry;
psn(.i.) := temp mod 256;
carry := temp div 256;
END
END; (* inc_psn *)
«eof»