Epebufl!D

886

W tym dodatku przedstawione s

ą standardowe kody ASCII. Wartość podana w

systemie ósemkowym jest przydatna w stałych znakowych lub ła

ńcuchowych,

podawana jako \nnn. Wykorzystywany system komputerowy mo

że definiować

dodatkowe kody w poszerzonym, 256 znakowym zestawie (kody dodatkowe s

ą większe

od 127). Niektóre systemy przedefiniowuj

ą także niektóre z niższych kodów, na

przykład

z

przedziałów

1 – 6 i 14 – 26. Aby obejrze

ć znaki we własnym systemie, wraz z kodami w systemie

dziesi

ętnym i ósemkowym, wystarczy uruchomić poniższy program, który wynik

swego działania ukazuje na ekranie oraz zapisuje w pliku ASCII.TXT.

Pliki

ASCII.LSP oraz ASCII.TXT znajduj

ą

si

ę

na doł

ą

czonej dyskietce.

;*************************************************
;ASCII.LSP
;Wykonanie ponizszego programu spowoduje wydruk na
;ekranie tekstowym kodow ASCII jak rowniez ich
;zapis w pliku ASCII.TXT
;
;-------------------------------------------------
;
(defun C:ASCII ( / chk code ct vvv o1 o2 o3 oct xxx)

(progn

;----------
(setq

chk 2
code -1
ct 0

);setq
(textpage)
(getstring

(strcat

"\nZapisywanie w pliku ASCII.TXT."
"\nW celu kontynuacji nacisnij ENTER."

);strcat

887

BvupMJTQ!—!qsbluzd{oz!lvst

);getstring
(textpage)
(setq vvv (open "ascii.txt" "w"))
(princ "DZIESIETNIE ZNAK OSEMKOWO\n" vvv)
(princ "ZNAK DZIESIETNIE OSEMKOWO\n")
(while (= chk 2)

(progn

(setq

code (1+ code)
ct (1+ ct)
o1 (rtos (/ (/ code 8) 8) 2 0)
o2 (rtos (rem (/ code 8) 8) 2 0)
o3 (rtos (rem code 8) 2 0)
oct (strcat o1 o2 o3)

);setq
(princ

(strcat

"\n

"

(rtos code 2 0)
"

"

(chr code)
"

"

oct

);strcat
vvv

);princ
(princ

(strcat

"\n " (chr code) "\t" (rtos code 2 0) "\t" oct

);strcat

);princ
(if (= code 255)

(progn

(setq chk 0)

);progn
(progn

;else

(if (= ct 20)

(progn

(setq

xxx (getstring

(strcat

"\n\nAby zakonczyc program, "
"nacisnij 'X' lub dowolny "
"inny klawisz, by kontynuowac "
"prace: "

);strcat

);getstring

);setq
(if (= (strcase xxx) "X")

(progn

(setq chk 0)

);progn
(progn

;else

(setq ct 0)

Epebufl!D

888

(princ "\n\nZNAK DZIESIETNIE

OSEMKOWO\n")

);progn

);if

);progn

);if

);progn

);if

);progn

);while
(close vvv)
;----------
(princ)
;----------

);progn

);C:ASCII
;
;-------------------------------------------------
(princ

(strcat

"\nProgram zaladowany."
"\nWywolaj komende ASCII."

);strcat

);princ
(princ)
;-------------------------------------------------
;*************************************************KONIEC

Poni

żej przedstawiono tabelę standardowych kodów ASCII.

Tabela C.1. Kody ASCII

Dec

Oct.

Hex.

Char.

Dec

Oct.

Hex.

Char.

0

000

00

NUL

14

016

0E

SO

1

001

01

SOH

15

017

0F

SI

2

002

02

STX

16

020

10

DLE

3

003

03

ETX

17

021

11

DC1

4

004

04

EOT

18

022

12

DC2

5

005

05

ENQ

19

023

13

DC3

6

006

06

ACK

20

024

14

DC4

7

007

07

BEL

21

025

15

NAK

8

010

08

BS

22

026

16

SYN

9

011

09

HT

23

027

17

ETB

10

012

0A

LF

24

030

18

CAN

11

013

0B

VT

25

031

19

EM

12

014

0C

FF

26

032

1A

SUB

13

015

0D

CR

27

033

1B

ESC

889

BvupMJTQ!—!qsbluzd{oz!lvst

Tabela C.1. Kody ASCII (c.d)

Dec

Oct.

Hex.

Char.

Dec

Oct.

Hex.

Char.

28

034

1C

FS

62

076

3E

>

29

035

1D

GS

63

077

3F

?

30

036

1E

RS

64

100

40

@

31

037

1F

US

65

101

41

A

32

040

20

space

66

102

42

B

33

041

21

!

67

103

43

C

34

042

22

"

68

104

44

D

35

043

23

#

69

105

45

E

36

044

24

$

70

106

46

F

37

045

25

%

71

107

47

G

38

046

26

&

72

110

48

H

39

047

27

'

73

111

49

I

40

050

28

(

74

112

4A

J

41

051

29

)

75

113

4B

K

42

052

2A

*

76

114

4C

L

43

053

2B

+

77

115

4D

M

44

054

2C

,

78

116

4E

N

45

055

2D

-

79

117

4F

O

46

056

2E

.

80

120

50

P

47

057

2F

/

81

121

51

Q

48

060

30

0

82

122

52

R

49

061

31

1

83

123

53

S

50

062

32

2

84

124

54

T

51

063

33

3

85

125

55

U

52

064

34

4

86

126

56

V

53

065

35

5

87

127

57

W

54

066

36

6

88

130

58

X

55

067

37

7

89

131

59

Y

56

070

38

8

90

132

5A

Z

57

071

39

9

91

133

5B

[

58

072

3A

:

92

134

5C

\

59

073

3B

;

93

135

5D

]

60

074

3C

<

94

136

5E

^

61

075

3D

=

95

137

5F

_

Epebufl!D

88:

Tabela C.1. Kody ASCII (c.d)

Dec

Oct.

Hex.

Char.

Dec

Oct.

Hex.

Char.

96

140

60

`

112

160

70

p

97

141

61

a

113

161

71

q

98

142

62

b

114

162

72

r

99

143

63

c

115

163

73

s

100

144

64

d

116

164

74

t

101

145

65

e

117

165

75

u

102

146

66

f

118

166

76

v

103

147

67

g

119

167

77

w

104

150

68

h

120

170

78

x

105

151

69

i

121

171

79

y

106

152

6A

j

122

172

7A

z

107

153

6B

k

123

173

7B

{

108

154

6C

l

124

174

7C

|

109

155

6D

m

125

175

7D

}

110

156

6E

n

126

176

7E

~

111

157

6F

o

127

177

7F

DEL

891

BvupMJTQ!—!qsbluzd{oz!lvst