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 |