--- a/SIO.mod.m2cc
+++ b/SIO.mod.m2cc
@@ -21,9 +21,11 @@
(* 17.02.95, MRi: Korrekturen *)
(* 04.05.15, MRi: Prozedureb WrLngInts und WrReal eingefuegt *)
(* 10.07.15, MRi: Einfuegen der Prozedure ReadLine aus SCF Eingabe *)
+ (* 24.11.16, MRi: Prozeduren WrBits eingef"uhrt. *)
(* 04.11.17, MRi: Anpassen an ISO M2 chanId mit Praeprozessordirektiven *)
(* 05.11.17, MRi: Korrektur in SIO.RdStr fuer ISO-IO *)
(* 21.03.18, MRi: Prozedure SetExpAnz eingefuegt *)
+ (* 08.06.18, MRi: Ausgabe in WrBits "invertiert" *)
(*------------------------------------------------------------------------*)
(* Offene Punkte *)
(* *)
@@ -372,9 +374,12 @@
nbits : CARDINAL); (* Feldbreite *)
VAR Str : ARRAY [0..127] OF CHAR;
+ i : CARDINAL;
BEGIN
CardToBitStr(c,Str,nbits);
- WrStr(Datei,Str);
+ FOR i:=LENGTH(Str)-1 TO 0 BY -1 DO
+ WrChar(Datei,Str[i]);
+ END;
END WrBits;
PROCEDURE RdLngCard(VAR Datei : Stream;