Subversion Repositories Kolibri OS

Rev

Rev 7667 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7667 Rev 7693
Line 90... Line 90...
90 
 
 90 
 
91 
    END
 91 
    END
Line -... Line 92...
- 
 
 92 
END IntToStr;
- 
 
 93 
 
- 
 
 94 
 
- 
 
 95 
PROCEDURE hexdgt (n: BYTE): BYTE;
- 
 
 96 
BEGIN
- 
 
 97 
    IF n < 10 THEN
- 
 
 98 
        n := n + ORD("0")
- 
 
 99 
    ELSE
- 
 
 100 
        n := n - 10 + ORD("A")
- 
 
 101 
    END
- 
 
 102 
 
- 
 
 103 
    RETURN n
- 
 
 104 
END hexdgt;
- 
 
 105 
 
- 
 
 106 
 
- 
 
 107 
PROCEDURE IntToHex* (x: INTEGER; VAR str: ARRAY OF CHAR; n: INTEGER);
- 
 
 108 
BEGIN
- 
 
 109 
    str[n] := 0X;
- 
 
 110 
    WHILE n > 0 DO
- 
 
 111 
        str[n - 1] := CHR(hexdgt(x MOD 16));
- 
 
 112 
        x := x DIV 16;
- 
 
 113 
        DEC(n)
- 
 
 114 
    END
92 
END IntToStr;
 115 
END IntToHex;
93 
 
 116 
 
94 
 
 117 
 
95 
PROCEDURE copy* (src: ARRAY OF CHAR; VAR dst: ARRAY OF CHAR; spos, dpos, count: INTEGER);
 118 
PROCEDURE copy* (src: ARRAY OF CHAR; VAR dst: ARRAY OF CHAR; spos, dpos, count: INTEGER);
96 
BEGIN
 119 
BEGIN