00010

LEN

EQU

63

Полная длина сообщения.

00020

LEN1

EQU

32

Половина длины сообщения.

00030

ADR

EQU

22464

Адрес в дисплейном файле.

00040

ORG

40000

00050

ENT

00060

LD

HL,LEN

B HL - длина сообщения.

00070

LD

(BUFF),HL

Пересылка ее в буфер.

00080

LD

BC,ADR

Место вывода сообщения на экран.

00090

LD

IY,DATA

B IY - адрес сообщения.

00100

SCROLL

LD

L, (IY)

Код первого символа сообщения.

00110

LD

H, 0

Очистка Н.

00120

PUSH

IY

Сохранение регистров на стеке

00130

PUSH

BC

для последующих расчетов.

00140

LD

DE, (23606)

Расчет места

00150

ADD

HL, HL

шаблона символа

00160

ADD

HL, HL

в символьном

00170

ADD

HL, HL

наборе.

00180

ADD

HL, DE

00190

EX

DE, HL

00200

LD

H, B

00210

LD

L, C

B HL - адрес начала вывода символа.

00220

LD

A, 1

Нач. количество выводимых линий символа

00230

LOOP

LD

B, A

Счетчик выводимых на экран линий.

00240

PUSH

DE

Адрес первой линии символа.

00250

PUSH

HL

Адрес начала вывода сообщения.

00260

PUSH

AF

в А - количество выводов на экран, для вывода всего символа - 8 повтор.

00270

LOOP1

LD

A,(DE)

Переброска одной линии

00280

LD

(HL),A

символа на экран.

00290

PUSH

BC

Вызов

00300

CALL

WAIT

процедуры

00310

POP

BC

задержки.

00320

INC

DE

Переход к следующей линии символа.

00330

INC

H

Переход к месту печати следующей линии.

00340

DJNZ

LOOP1

Повторение для всех 8 линий символа.

00350

POP

AF

Восстановление

00360

POP

HL

значений

00370

POP

DE

регистров.

00380

DEC

H

Переход для вывода на 1 линию выше.

00390

Увеличение счетчика числа выводов.

00400

CP

9

Если выведены все 8 линий (А=9),

00410

JR

Z,LOOP2

то переход к выводу звука.

00420

JR

LOOP

Иначе - возврат и повторение.

00430

LOOP2

CALL

SOUND

Вызов звука.

00440

POP

BC

Восстановление адреса вывода сообщения,

00450

POP

IY

Восстановление адреса хранения сообщени

00460

INC

BC

Переход к следующему знакоместу.

00470

INC

IY

Переход к следующему символу.

00480

LD

A, (IY)

B A - код символа.

00490

CP

0

Проверка на маркер конца (А=0).

00500

JR

Z, END

Если конец достигнут, завершение.

00510

JR

SCROLL

Иначе - вывод следующего символа.

00520

WAIT

LD

BC,500

Время задержки.

00530

WAIT1

DEC

BC

Уменьшение счетчика задержки.

00540

LD

A, B

Проверка содержимого

ЧШСЯЖЕЛЪ

00550

OR

C

BC на ноль.

00560

OR

NZ,WAIT1 ;

Если нет, то повтор.

00570

RET

Иначе - возврат.

00580

END

LD

IY,23610

Восстанов. IY для корректного завершения

00590

RET

Выход из процедуры.

00600

DATA

DEFM

" WRITTEN BY

Текст сообщения.

00610

DEFM

" (C)CRYSTAL

00620

DEFM

"SOFT 1994 ;

00630

DEFM

" N.NOVGOROD

00640

DEFM

" TEL. (8312)

00650

DEFM

"54-95-320

00660

DEFB

0

Маркер конца сообщения.

00670

BUFF

DEFW

0

Буфер.

00680

SOUND

XOR

A

Обнуление А.

00690

LD

HL,(BUFF)

B HL - длина сообщения.

00700

DEC

L

Уменьшили на единицу.

00710

LD

(BUFF),HL

Зафиксировали новую длину.

00720

LD

A, L

Проверка достижения половины.

00730

CP

LEN1 ;

Половина сообщения достигнута?

00740

JR

CSOUND2

Если да, то смена звука.

00750

SOUNDI

LD

C,1 ;

Процедура

00760

N1

LD

B, 15

"звук 1",

00770

N2

LD

HL,100

используется

00780

PUSH

BC

при выводе

00790

LD

DE,1 ;

первой

00800

PUSH

HL

ПОЛОВИНЫ

00810

CALL

#03B5

сообщения.

00820

POP

HL

00830

LD

DE,100 ;

00840

ADC

HL, DE

00850

POP

BC

00860

DJNZ

N2

00870

LD

A,2 ;

00880

INC

C

00890

LD

B, C

00900

CP

B

00910

OR

NZ, N1

00920

RET

00930

SOUND2

LD

C,1 ;

Процедура

00940

N3

LD

B, 3

"звук 2",

00950

N4

LD

HL,300

используется

00960

PUSH

BC

при выводе

00970

LD

DE,8 ;

второй

00980

PUSH

HL

половины

00990

CALL

#03B5

сообщения.

01000

POP

HL

01010

LD

DE,300 ;

01020

ADC

HL, DE

01030

POP

BC

01040

DJNZ

N4

01050

LD

A,2 ;

01060

INC

C

01070

LD

B, C

01080

CP

B

01090

JR

NZ, N3

01100

RET

Start

of object: #9C40

(40000)

Length

: #00EB

(00235)

Executes

: # 9C4 0

(40000)

9C40

21

3F

00

22

DC

9C

01

C0

97

9C48

57

FD

21

9C

9C

FD

6E

00

FC

9C50

26

00

FD

E5

C5

ED

5B

36

37

9C58

5C

29

29

29

19

EB

60

69

98

9C60

3E

01

47

D5

E5

F5

1A

77

C2

9C68

C5

CD

8E

9C

C1

13

24

10

C8

9C70

F5

F1

E1

D1

25

3C

FE

09

0C

9C78

28

02

18

E6

CD

DE

9C

C1

44

9C80

FD

E1

03

FD

23

FD

7E

00

98

9C88

FE

00

28

0B

18

BF

01

F4

21

9C90

01

0B

78

B1

20

FB

C9

FD

42

9C98

21

3A

5C

C9

20

57

52

49

C6

9CA0

54

54

45

4E

20

42

59

20

52

9CA8

28

43

29

43

52

59

53

54

6D

9CB0

41

4C

53

4F

46

54

20

31

66

9CB8

39

39

34

20

20

4E

2E

4E

04

9CC0

4F

56

47

4F

52

4F

44

20

9C

9CC8

54

45

4C

2E

28

38

33

31

3B

9CD0

32

29

35

34

2D

39

35

2D

F8

9CD8

33

32

30

00

00

00

AF

2A

E2

9CE0

DC

9C

2D

22

DC

9C

7D

FE

36

9CE8

20

38

20

0E

01

06

0F

21

41

9CF0

64

00

C5

11

01

00

E5

CD

79

9CF8

B5

03

E1

11

64

00

ED

5A

E9

9D00

C1

10

EC

3E

02

0C

41

B8

9F

9D08

20

E3

C9

0E

01

06

03

21

AA

9D10

2C

01

C5

11

08

00

E5

CD

6A

9D18

B5

03

E1

11

2C

01

ED

5A

D3

9D20

C1

10

EC

3E

02

0C

41

B8

BF

9D28

20

E3

C9

00

00

00

00

00

91