Разработка и описание принципиальной схемы алгоритма.

адрес

команда

комментарий

BEG+0

OUT 9A₁₆

записываем слово состояния МП (режим ВВ) 10011010

BEG+2

CALL PRC+0

вызываем подпрограмму PREADC2

BEG+6

CPI 2₁₆

сравниваем А с командой СТОП (0010)

BEG+8

JZ BEG+43

если равно 0 то переходим по адресу BEG+43

BEG+13

CPI 1₁₆

если не = 0 сравниваем А с командой начала обработки 0001

BEG+15

JZ BEG+52

если = 0 то переходим к адресу BEG+52

BEG+20

CPI 4₁₆

если не = 0 сравниваем А с ком. перехода на след. Ноту 0100

BEG+22

JZ BEG+61

если = 0 то переходим по адресу BEG+61

BEG+27

CPI 8₁₆

если не = 0 то сравниваем А с ком. перехода на пред.ноту 10000

BEG+29

JZ BEG+70

если = 0 то переходим по адресу BEG+70

BEG+34

CALL PEN+0

вызов подпрограмы получения эталонных значений

BEG+38

JMP BEG+2

если не = 0 то переходим по адресу BEG+2

BEG+43

CALL PS+0

вызываем подпрограмму PSTOP

BEG+47

JMP BEG+2

переходим по адресу BEG+2

BEG+52

CALL PPL+0

вызываем подпрограмму PPLAY

BEG+56

JMP BEG+2

переходим по адресу BEG+2

BEG+61

CALL PN+0

вызываем подпрограмму PNEXT

BEG+65

JMP BEG+2

переходим по адресу BEG+2

BEG+70

CALL PPR+0

вызываем подпрограмму PPREV

BEG+74

JMP BEG+2

переходим по адресу BEG+2

адрес

команда

комментарии

PRC2+0

MVI A,0₁₆

в А передаётся содержимое 0

PRC2+3

IN port C2

из С2 в А

PRC2+5

CPI 0₁₆

сравниваем содержимое А с 0 (А)-0

PRC2+7

JZ PRC2+3

если равно 0 значит возвращается к адресу PRC2+3

PRC2+10

RET

возвращение в основную программу

адрес

команда

комментарий

РS+0

MVI Р+0, 9₁₆

передаём в память значение начальной ноты ЛЯ (9)

РS+3

MVI Р+1, FFFFFFFFFFFFFFF₁₆

передаём в память значение начальной октавы СКО (-1)

РS+6

RET

возвращаемся в основную программу

адрес

команда

комментарии

РN+0

MVI H,0₁₆

в Н перемещаем 0

РN+3

М0V L,Р+0

в L передаём содержимое NNOTE

РN+6

MVI B,0₁₆

в В передаём 0

РN+9

M0V C,Р+1

в С передаём содержимое NOCTAV

РN+12

MVI A,C

содержимое С передаём в А

РN+15

CPI FFFFFFFFFFFFFFFF₁₆

сравниваем А со значением октавы СКО (А) – (-1)

РN+17

JNZ РN+42

если не = 0, то переходим к адресу РN+42

РN+21

INR L

увеличиваем содержимое регистра L на 1

РN+23

MOV A,L

в А записываем значение L

PN+26

CPI 12₁₆

сравниваем содержимое A со значением ноты СИ+1

PN+28

JNZ РN+84

если не = 0 то переходим к адресу РN+84

РN+32

MOV L,0₁₆

в L записываем значение ноты ДО (0)

РN+35

MOV C,0₁₆

в С записываем значение октавы OKO (0)

РN+38

JMP РN+84

переходим к адресу РN+84

РN+42

CPI 6₁₆

сравниваем А и значения 4-й октавы(6) (А)-(6)

РN+44

JNZ РN+68

переходим к адресу РN+68

РN+47

INR L

увеличиваем соджержимое L на 1

PN+49

MOV A,L

в A записываем значение L

РN+52

CPI 10₁₆

сравниваем содержимое А с ЛЯ+1

РN+54

JNZ РN+84

если не = 0 то переходим к РN+84

РN+58

MOV L,9₁₆

в L записываем значение ЛЯ

РN+61

MOV C, FFFFFFFFFFFFFFFF₁₆

в С записываем значение СКО

РN+64

JMP РN+84

переходим к адресу РN+84

РN+68

INR L

увеличиваем содержимое L на 1

PN+70

MOV A,L

в A записываем значение L

РN+73

CPI 12₁₆

сравниваем A с СИ+1

РN+75

JNZ РN+84

если не = 0, то переходим к РN+84

РN+79

INR C

увеличиваем С на 1

РN+81

MVI L,0₁₆

в L записываем ДО

РN+84

MОV Р+0,L

в NNOTE записываем значение L

РN+87

MОV Р+1,C

в NOCTAV записываем значение С

РN+90

RET

возвращение в основную программу

адрес

команда

комментарий

РPR+0

MVI H,0 ₁₆

в Н перемещаем 0

РPR+3

MОV L,Р+0

в L перемещаем NNOTE

РPR+6

MVI B,0₁₆

в В перемещаем 0

РPR+9

MОV C,Р+1

в С перемещаем NOCTAV

РPR+12

MОV A,C

в А перемещаем значение С

РPR+15

CPI FFFFFFFFFFFFFFFF

сравниваем содержимое А с СКО (-1)

РPR+17

JNZ РPR+41

если не = 0 то переходим по адресу РPR+41

PPR+20

DCR L

уменьшаем L на 1

РPR+22

MOV A,L

записываем в А значение L

РPR+25

CPI 8₁₆

сравниваем A с ЛЯ-1

РPR+27

JNZ РPR+83

если не = 0 то переходим по адресу РPR+83

РPR+31

MOV L,9₁₆

в L перемещаем ЛЯ (9)

РPR+34

MOV C,6₁₆

в С перемещаем 4-я октава (6)

РPR+37

JMP РPR+83

переходим по адресу РPR+83

РPR+41

CPI 6₁₆

сравниваем содержимое А с 4-й октавой (6)

РPR+43

JNZ РPR+67

если не = 0 то переходим по адресу РPR+67

РPR+46

DCR L

уменьшаем L на 1

РPR+48

MOV A,L

записываем в А значение L

РPR+51

CPI FFFFFFFFFFFFFFFF₁₆

сравниваем A с ДО-1

РPR+53

JNZ РPR+83

если не = 0 то переходим по адресу РPR+83

РPR+57

MOV L,11₁₆

в L перемещаем СИ (11)

РPR+60

MOV C,5₁₆

в С перемещаем 3-я октава (5)

РPR+63

JMP РPR+83

переходим по адресу РPR+83

РPR+67

DCR L

уменьшаем L на 1

РPR+69

MOV A,L

записываем в А значение L

РPR+72

CPI FFFFFFFFFFFFFFFF₁₆

сравниваем A с ДО-1

РPR+74

JNZ РPR+83

если не = 0 переходим по адресу РPR+83

РPR+78

DCR C

уменьшаем С на 1

РPR+80

MOV L,11₁₆

в L записываем СИ

РPR+83

MOV P+0,L

в NNOTE записываем L

РPR+86

MOV P+1,C

в NOCTAV записываем С

РPR+89

RET

возвращение в основную программу

адрес

команда

комментарий

PRE+0

MVI A,0₁₆

записываем в А 0

PRE+3

IN port A

передаём значение из порта А в А

PRE+5

MOV H,A

записываем в Н значение А

PRE+8

MVI A,0₁₆

в А записываем 0

PRE+11

IN port B

передаём значение из порта В в А

PRE+13

MOV L,A

записываем значение А в L

PRE+16

CPI 0₁₆

сравниваем содержимое А с 0

PRE+18

JNZ PRE+29

если не = 0 то переходим к адресу PRE+29

PRE+20

MOV A,H

если = 0 то в А записываем содержимое Н

PRE+23

CPI 0₁₆

сравниваем А с 0

PRE+25

JZ PRE+0

если равно 0, то переходим по адресу PRE+0

PRE+29

RET

возврат в основную программу

адрес

команда

комментарий

PCA+0

MVI D,0₁₆

передаём в D 0

PCA+3

LXI HL, P+2

передаём в HL адрес начала массива эталонных значений нот

PCA+8

MOV A,L

записываем в А значение L

PCA+12

ADD B

прибавляем значение номера ноты

PCA+14

ADD B

прибавляем значение номера ноты

PCA+16

MOV L,A

записываем получившееся из А в L

PCA+19

MOV A,H

записываем в А значсение Н

PCA+22

ADC 0₁₆

прибавляем перенос (если он есть)

PCA+24

MOV H,A

записываем значение в Н из А

PCA+27

LDAX HL

обращаемся к первому байту по адресу Н L и пишем его в А

PCA+30

MOV D,A

записываем значение из А в D(старшая часть начального значенияя)

PCA+33

INX HL

увеличиваем значение адреса на 1

PCA+36

LDAX HL

обращаемся ко второму байту по адресу Н L и пишем его в А

PCA+39

MOV E,A

записываем значение из А в Е(младшая часть начального значения)

PCA+42

MOV A,C

записываем значение С в А (начало обработки остальных октав)

PCA+45

CPI FFFFFFFFFFFFFFFF₁₆

сравниваем значение А с -1

PCA+47

JZ PCA+86

если = 0, то переходим по адресу PCA+86 (на обработку СКО)

PCA+51

MOV A,C

записываем в А содержимое С

PCA+54

CPI 0₁₆

сравниваем содержимое А с 0

PCA+56

JZ PCA+126

если = 0 то переходим по адресу РCA+126

PCA+58

MOV A,D

записываем в А значение D

PCA+61

RAL

арифметически сдвигаем А влево

PCA+62

MOV D,A

записываем в D значение А

PCA+65

MOV A,E

записываем в А значение E

PCA+68

RAL

арифметически сдвигаем А влево

PCA+69

MOV E,A

записываем значение А в E

PCA+72

MOV A,D

записываем в А значение D

PCA+75

ADC 0₁₆

складываем значение А с переносом

PCA+77

MOV H,A

записываем в Н значение А

PCA+80

DCR C

уменьшаем С на 1

PCA+82

JMP PCA+51

переходим по адресу PCA+51

PCA+86

MVI H,1

записываем в H 00000001

PCA+89

MOV A,D

записываем в А значение D

PCA+92

ANA H

логическое «И» А с D

PCA+94

MOV H,A

записываем в D значение А

PCA+97

MOV A,D

записываем в А значение D

PCA+100

RAR

сдвигаем А вправо

PCA+101

MOV D,A

записываем значение А в D

PCA+104

MOV A,E

записываем в А значение E

PCA+107

RAR

сдвигаем А вправо

PCA+108

MOV A,H

записываем в А значение Н

PCA+112

CPI 0

сравниваем его с 0 (была ли 1 в младшем разряде D до сдвига)

PCA+114

JZ PCA+123

если 0 (не было) то переходим по адресу РСА+123

PCA+118

MOV A,E

если не 0 (была) записываем в А значение из Е

PCA+121

ADD 80₁₆

и прибавляем 1 к старшему разряду 10000000

PCA+123

MOV E,A

записываем значение А в E

PCA+126

RET

возврат в основную программу

адрес

команда

коментарий

PPL+0

MVI A,0₁₆

записываем в А значение 0

PPL+3

OUT port C1

выдаём это значение в порт С1

PPL+5

MOV A, 0₁₆

записываем в А значение 0

PPL+8

OUT port A

выдаём из А в порт А

PPL+10

OUT port B

выдаём из А в порт В

PPL+12

CALL PRE+0

вызываем подпрограмму PREADD

PPL+16

MOV B,P+0

записываем в В NNOTE

PPL+19

MOV C,P+1

записываем в С NOCTAV

PPL+22

CALL PCA+0

вызываем подпрограмму PCALCULATE

PРL+26

MOV B,H

записываем значение из Н в В-старшая часть считанного значения

PРL+29

MOV C,L

записываем значение из L в С-младшая часть считанного значения

PPL+32

MOV A,B

записываем в А старшую часть считанного значения

PPL+35

CMP D

сравниваем со старшей частью эталонного значения

PPL+37

JP PPL+70

если результат > 0, то переходим по адресу PPL+70

PPL+41

JM PPL+64

если результат < 0, то переходим по адресу PPL+64

PPL+45

MOV A,C

если старшие части равны пишем в А младшую часть

PPL+48

CMP E

и сравниваем с эталонной младшей частью

PPL+50

JP PPL+70

если результат > 0, то переходим по адресу PPL+70

PPL+54

JM PPL+64

если результат < 0, то переходим по адресу PPL+64

PPL+58

MOV A,3₁₆

если обе части слов равны – в А пишем 0011(команда равенства)

PPL+61

JMP PPL+73

переходим по адресу PPL+73

PPL+64

MOV A,1₁₆

если значение меньше эталона – в А значение 0001

PPL+67

JMP PPL+73

переходим по адресу PPL+73

PPL+70

MOV A,2₁₆

если значение больше эталона то записываем в А значение 0010

PPL+73

OUT port C1

выдаём в порт С1 результат сравнения из А (на 2-ой ВВ)

PPL+75

RET

возвращаемся в основную программу

адрес

команда

комментарий

PEN +0

MOV A, 0₁₆

записываем в А значение 0

PEN+3

MVI C,0₁₆

записываем в С 0 (обозначает значение какой ноты мы запоминаем)

PEN+6

MVI B,12₁₆

записываем в В 12 (счётчик для выхода из цикла)

PEN+9

OUT port A

выдаём из А в порт А

PEN+11

OUT port B

выдаём из А в порт В

PEN+13

CALL PRE+0

вызываем подпрограмму PREADD

PEN+17

XCHF

записываем содержимое пары HL в DE

PEN+18

LXI HL,P+2

записываем в HL адрес первой ячейки памяти

PEN+23

MOV A,L

записываем в А значение L

PEN+26

ADD C

прибавляем значение

PEN+28

ADD C

прибавляем значение

PEN+30

MOV L,A

записываем получившееся из А в L

PEN+33

MOV A,H

записываем в А значсение Н

PEN+36

ADC 0₁₆

прибавляем перенос (если он есть)

PEN+38

MOV H,A

записываем значение в Н из А

PEN+41

LDAX HL

обращаемся к первому байту по адресу Н L и пишем его в А

PEN+44

ORA D

логически складываем с D

PEN+46

STAX HL

записать значение из A по адресу который находится в HL

PEN+49

INX HL

увеличиваем значение HL на 1

PEN+52

LDAX HL

обращаемся ко второму байту по адресу Н L и пишем его в А

PEN+55

ORA E

логически складываем с Е

PEN+57

STAX HL

записать значение из А по адресу который находится в HL

PEN+60

DCR B

увеличиваем В на 1

PEN+62

MOV A,B

записываем значение В в А

PEN+65

CPI 0₁₆

сравниваем с 0

PEN+67

JZ PEN+75

если = 0 то переходим по адресу PEN+75

PEN+69

INR C

если не = 0 прибавляем к С 1

PEN+71

JMP PEN +0

переходим по адресу PEN +0

PEN+75

RET

адрес

команда

комментарий

US+0

OUT 98₁₆

режим ВВ (записываем слово состояния ВВ) 10011000

US+2

IN port А

из порта А в А

US+4

MOV B,A

записываем значение из А в В

US+7

MVI A,0₁₆

записываем в А 0

US+10

OUT port A

обнуляем порт А

US+12

MOV A,B

записываем в А значение считанное из порта (из В)

US+15

CPI 0₁₆

сравнивает значение А с 0

US+17

JZ US+2

если = 0 то перейти к адресу US+2

US+20

CPI 1₁₆

сравнивает А с командой перехода на след. ноту 0001

US+22

JNZ US+59

если не = 0, то переходит к адресу US+59

US+25

MVI A,4₁₆

если =0,то в А передаём команду для I ВВ для перехода на след ноту 0100

US+28

OUT portC1

значение А передаётся на порт С1

US+30

CALL PN+0

вызывает подпрограмму PNEXT

US+34

MVI B,80₁₆

зарисывает в В 1000000

US+37

MOV A,B

передаёт это значение в А

US+40

ORA L

логически прибавляет (логическое «или») содержимое регистра L

US+42

MOV B,A

записывает из А в В (1000хххх)

US+45

MOV A,C

в А записываети значение из С

US+48

RAL

сдвиг влево

US+49

RAL

сдвиг влево

US+50

RAL

сдвиг влево

US+51

RAL

сдвиг влево

US+52

ORA B

логическое «или» с содержимым В (1ууухххх)

US+54

OUT port B

передаёт это значение в порт В

US+56

JMP US+2

переходим по адресу US+2

US+59

CPI 2₁₆

сравнение А с командой перехода на предыдущ. Ноту 0010

US+61

JNZ US+98

если не = 0 то переход по адресу US+98

US+64

MVI A,8₁₆

если =0,то в А передаём команду для IBB для перехода на пред. ноту 1000

US+67

OUT portC1

передаём значение А в порт С

US+69

CALL PPR+0

вызывает подпрограмму PPREV

US+73

MVI B,80₁₆

зарисывает в В 1000000

US+76

MOV A,B

передаёт это значение в А

US+79

ORA L

логически прибавляет (логическое «или») содержимое регистра L

US+81

MOV B,A

записывает из А в В (1000хххх)

US+84

MOV A,C

в А записываети значение из С

US+87

RAL

сдвиг влево

US+88

RAL

сдвиг влево

US+89

RAL

сдвиг влево

US+90

RAL

сдвиг влево

US+91

ORA B

логическое «или» с содержимым В (1ууухххх)

US+93

OUT port B

выдаёт значение из А в порт В

US+95

JMP US+2

переход к адресу US+2

US+98

CPI 8₁₆

сравниваем значение А с командой для остановки/сброса 1000

US+100

JNZ US+116

если не = 0 то переходим по адресу US+116

US+104

MVI А,2₁₆

если = 0 то в А записываем команду для I BB для остановки/сброса 0010

US+106

OUT portC1

передаём значение А в порт C

US+108

MVI А,F9₁₆

записываем в А 11111001 (111-СКО; 1001-ЛЯ)

US+111

OUT portB

передаём значение А в порт В

US+113

JMP US+2

переходим по адресу US+2

US+116

CPI 1₁₆

сравниваем значение А с 0001 (команда запуска обработки) 0001

US+118

JNZ US+147

если не = 0 то переходим по адресу US+147

US+122

MVI A,0₁₆

в А записываем 0

US+125

OUT portB

передаём значение А в порт В

US+127

OUT portC2

передаём значение А в порт С2

US+129

MVI A,1₁₆

записываем в А команду обработки для I BB 0001

US+132

OUT portC1

выдаём содержимое А в порт С1

US+134

IN portC2

считываем из порта С2 в А

US+136

OUT portB

передаём значение А в порт В

US+138

CALL T+0

вызываем таймер

US+142

MVI A,0₁₆

записываем в А 0

US+145

OUT portB

передаём значение А в порт В

US+147

MVI А, 3₁₆

записываем в А 0011 (команда получения эталонных значений) 0011

US+150

OUT port C1

выдаём значение из А в порт С1

US+152

JMP US+2

переходим по адресу US+2

адрес

команда

комментарий

T+0

MVI L,40₁₆

записываем в L 100 (в 8-ричной системе) или 01000000

T+3

MVI H,97₁₆

записываем в Н 10010111

T+6

MVI C,87₁₆

записываем в С 10000111

T+9

MVI B,FB₁₆

записываем в В 11111011

T+12

INX HL

увеличиваем пару Н L на 1

T+15

JNC T+12

если переноса нет то переходим по адресу Т+12

T+19

INX BC

если перенос был то увеличивам пару ВС на 1

T+22

JNC T+12

если переноса нет то переходим по адресу Т+12

T+26

RET

если перенос был то выходим в основную программу

адрес

команда

комментарии

РNE+0

MVI H,0₁₆

в Н перемещаем 0

РNE+3

М0V L,Р+25

в L передаём содержимое NNOTE

РNE+6

MVI B,0₁₆

в В передаём 0

РNE+9

M0V C,Р+26

в С передаём содержимое NOCTAV

РNE+12

MVI A,C

содержимое С передаём в А

РNE+15

CPI FFFFFFFFFFFFFFFF₁₆

сравниваем А со значением октавы СКО (А) – (-1)

РNE+17

JNZ РNE+42

если не = 0, то переходим к адресу РNE+42

РNE+21

INR L

увеличиваем содержимое регистра L на 1

РNE+23

MOV A,L

в А записываем значение L

PNE+26

CPI 12₁₆

сравниваем содержимое A со значением ноты СИ+1

PNE+28

JNZ РNE+84

если не = 0 то переходим к адресу РNE+84

РNE+32

MOV L,0₁₆

в L записываем значение ноты ДО (0)

РNE+35

MOV C,0₁₆

в С записываем значение октавы OKO (0)

РNE+38

JMP РNE+84

переходим к адресу РNE+84

РNE+42

CPI 6₁₆

сравниваем А и значения 4-й октавы(6) (А)-(6)

РNE+44

JNZ РNE+68

переходим к адресу РNE+68

РNE+47

INR L

увеличиваем соджержимое L на 1

PNE+49

MOV A,L

в A записываем значение L

РNE+52

CPI 10₁₆

сравниваем содержимое А с ЛЯ+1

РNE+54

JNZ РNE+84

если не = 0 то переходим к РNE+84

РNE+58

MOV L,9₁₆

в L записываем значение ЛЯ

РNE+61

MOV C, FFFFFFFFFFFFFFFF₁₆

в С записываем значение СКО

РNE+64

JMP РNE+84

переходим к адресу РNE+84

РNE+68

INR L

увеличиваем содержимое L на 1

PNE+70

MOV A,L

в A записываем значение L

РNE+73

CPI 12₁₆

сравниваем A с СИ+1

РNE+75

JNZ РNE+84

если не = 0, то переходим к РNE+84

РNE+79

INR C

увеличиваем С на 1

РNE+81

MVI L,0₁₆

в L записываем ДО

РNE+84

MОV Р+25,L

в NNOTE записываем значение L

РNE+87

MОV Р+26,C

в NOCTAV записываем значение С

РNE+90

RET

возвращение в основную программу

адрес

команда

комментарий

РPRE+0

MVI H,0 ₁₆

в Н перемещаем 0

РPRE+3

MОV L,Р+25

в L перемещаем NNOTE

РPRE+6

MVI B,0₁₆

в В перемещаем 0

РPRE+9

MОV C,Р+26

в С перемещаем NOCTAV

РPRE+12

MОV A,C

в А перемещаем значение С

РPRE+15

CPI FFFFFFFFFFFFFFFF

сравниваем содержимое А с СКО (-1)

РPRE+17

JNZ РPRE+41

если не = 0 то переходим по адресу РPRE+41

PPRE+20

DCR L

уменьшаем L на 1

РPRE+22

MOV A,L

записываем в А значение L

РPRE+25

CPI 8₁₆

сравниваем A с ЛЯ-1

РPRE+27

JNZ РPRE+83

если не = 0 то переходим по адресу РPRE+83

РPRE+31

MOV L,9₁₆

в L перемещаем ЛЯ (9)

РPRE+34

MOV C,6₁₆

в С перемещаем 4-я октава (6)

РPRE+37

JMP РPRE+83

переходим по адресу РPRE+83

РPRE+41

CPI 6₁₆

сравниваем содержимое А с 4-й октавой (6)

РPRE+43

JNZ РPRE+67

если не = 0 то переходим по адресу РPRE+67

РPRE+46

DCR L

уменьшаем L на 1

РPRE+48

MOV A,L

записываем в А значение L

РPRE+51

CPI FFFFFFFFFFFFFFFF₁₆

сравниваем A с ДО-1

РPRE+53

JNZ РPRE+83

если не = 0 то переходим по адресу РPRE+83

РPRE+57

MOV L,11₁₆

в L перемещаем СИ (11)

РPRE+60

MOV C,5₁₆

в С перемещаем 3-я октава (5)

РPRE+63

JMP РPRE+83

переходим по адресу РPRE+83

РPRE+67

DCR L

уменьшаем L на 1

РPRE+69

MOV A,L

записываем в А значение L

РPRE+72

CPI FFFFFFFFFFFFFFFF₁₆

сравниваем A с ДО-1

РPRE+74

JNZ РPRE+83

если не = 0 переходим по адресу РPRE+83

РPRE+78

DCR C

уменьшаем С на 1

РPRE+80

MOV L,11₁₆

в L записываем СИ

РPRE+83

MOV P+25,L

в NNOTE записываем L

РPRE+86

MOV P+26,C

в NOCTAV записываем С

РPRE+89

RET

возвращение в основную программу

адрес

название

комментарий

Р+0

NNOTE

номер текущей ноты для первого ВВ55

Р+1

NOCTAV

номер текущей октавы для первого ВВ55

Р+2

массив начальных значений нот КО

Р+4

Р+6

Р+8

Р+10

Р+12

Р+14

Р+16

Р+18

Р+20

Р+22

Р+24

P+25

NNOTE

номер текущей ноты для второго ВВ55

Р+26

NOCTAV

номер текущей октавы для второго ВВ55

адрес

команда

комментарий

ST+0

ST+1

ST+2

ST+3

ST+4

S T+5

адрес

команда

комментарий

0000₁₀

OUT 9A₁₆

записываем слово состояния МП (режим ВВ) 10011010

0002₁₀

CALL 0079₁₀

вызываем подпрограмму PREADC2

0006₁₀

CPI 2₁₆

сравниваем А с командой СТОП (0010)

0008₁₀

JZ 0043₁₀

если равно 0 то переходим по адресу 0043₁₀

0013₁₀

CPI 1₁₆

если не = 0 сравниваем А с командой начала обработки 0001

0015₁₀

JZ 0052₁₀

если = 0 то переходим к адресу 0052₁₀

0020₁₀

CPI 4₁₆

если не = 0 сравниваем А с ком. перехода на след. Ноту 0100

0022₁₀

JZ 0061₁₀

если = 0 то переходим по адресу 0061₁₀

0027₁₀

CPI 8₁₆

если не = 0 то сравниваем А с ком. перехода на пред.ноту 10000

0029₁₀

JZ 0070₁₀

если = 0 то переходим по адресу 0070₁₀

0034₁₀

CALL 0510₁₀

вызов подпрограмы получения эталонных значений

0038₁₀

JMP 0002₁₀

если не = 0 то переходим по адресу 0002₁₀

0043₁₀

CALL 0090₁₀

вызываем подпрограмму PSTOP

0047₁₀

JMP 0002₁₀

переходим по адресу 0002₁₀

0052₁₀

CALL 0433₁₀

вызываем подпрограмму PPLAY

0056₁₀

JMP 0002₁₀

переходим по адресу 0002₁₀

0061₁₀

CALL 0097₁₀

вызываем подпрограмму PNEXT

0065₁₀

JMP 0002₁₀

переходим по адресу 0002₁₀

0070₁₀

CALL 0188₁₀

вызываем подпрограмму PPREV

0074₁₀

JMP 0002₁₀

переходим по адресу 0002₁₀

адрес

команда

комментарии

0079₁₀

MVI A,0₁₆

в А передаётся содержимое 0

0082₁₀

IN port C2

из С2 в А

0084₁₀

CPI 0₁₆

сравниваем содержимое А с 0 (А)-0

0086₁₀

JZ 0082₁₀

если равно 0 значит возвращается к адресу 0082₁₀

0089₁₀

RET

возвращение в основную программу

адрес

команда

комментарий

0090₁₀

MVI 0000₁₀, 9₁₆

передаём в память значение начальной ноты ЛЯ (9)

0093₁₀

MVI 0001₁₀, FFFFFFFFFFFFFFF₁₆

передаём в память значение начальной октавы СКО (-1)

0096₁₀

RET

возвращаемся в основную программу

адрес

команда

комментарии

0097₁₀

MVI H,0₁₆

в Н перемещаем 0

0100₁₀

М0V L,0000₁₀

в L передаём содержимое NNOTE

0103₁₀

MVI B,0₁₆

в В передаём 0

0106₁₀

M0V C,0001₁₀

в С передаём содержимое NOCTAV

0109₁₀

MVI A,C

содержимое С передаём в А

0112₁₀

CPI FFFFFFFFFFFFFFFF₁₆

сравниваем А со значением октавы СКО (А) – (-1)

0114₁₀

JNZ 0139₁₀

если не = 0, то переходим к адресу 0139₁₀

0118₁₀

INR L

увеличиваем содержимое регистра L на 1

0120₁₀

MOV A,L

в А записываем значение L

0123₁₀

CPI 12₁₆

сравниваем содержимое A со значением ноты СИ+1

0125₁₀

JNZ 0181₁₀

если не = 0 то переходим к адресу 0181₁₀

0129₁₀

MOV L,0₁₆

в L записываем значение ноты ДО (0)

0132₁₀

MOV C,0₁₆

в С записываем значение октавы OKO (0)

0135₁₀

JMP 0181₁₀

переходим к адресу 0181₁₀

0139₁₀

CPI 6₁₆

сравниваем А и значения 4-й октавы(6) (А)-(6)

0141₁₀

JNZ 0165₁₀

переходим к адресу 0165₁₀

0144₁₀

INR L

увеличиваем соджержимое L на 1

0146₁₀

MOV A,L

в A записываем значение L

0149₁₀

CPI 10₁₆

сравниваем содержимое А с ЛЯ+1

0151₁₀

JNZ 0181₁₀

если не = 0 то переходим к 0181₁₀

0155₁₀

MOV L,9₁₆

в L записываем значение ЛЯ

0158₁₀

MOV C, FFFFFFFFFFFFFFFF₁₆

в С записываем значение СКО

0161₁₀

JMP 0181₁₀

переходим к адресу 0181₁₀

0165₁₀

INR L

увеличиваем содержимое L на 1

0167₁₀

MOV A,L

в A записываем значение L

0170₁₀

CPI 12₁₆

сравниваем A с СИ+1

0172₁₀

JNZ 0181₁₀

если не = 0, то переходим к 0181₁₀

0176₁₀

INR C

увеличиваем С на 1

0178₁₀

MVI L,0₁₆

в L записываем ДО

0181₁₀

MОV 0000₁₀,L

в NNOTE записываем значение L

0184₁₀

MОV 0001₁₀,C

в NOCTAV записываем значение С

0187₁₀

RET

возвращение в основную программу

адрес

команда

комментарий

0188₁₀

MVI H,0₁₆

в Н перемещаем 0

0191₁₀

MОV L,0000₁₀

в L перемещаем NNOTE

0194₁₀

MVI B,0₁₆

в В перемещаем 0

0197₁₀

MОV C,0001₁₀

в С перемещаем NOCTAV

0200₁₀

MОV A,C₁₆

в А перемещаем значение С

0203₁₀

CPI FFFFFFFFFFFFFFFF

сравниваем содержимое А с СКО (-1)

0205₁₀

JNZ 0229₁₀

если не = 0 то переходим по адресу 0229₁₀

0208₁₀

DCR L

уменьшаем L на 1

0210₁₀

MOV A,L

записываем в А значение L

0213₁₀

CPI 8₁₆

сравниваем A с ЛЯ-1

0215₁₀

JNZ 0271₁₀

если не = 0 то переходим по адресу 0271₁₀

0219₁₀

MOV L,9₁₆

в L перемещаем ЛЯ (9)

0222₁₀

MOV C,6₁₆

в С перемещаем 4-я октава (6)

0225₁₀

JMP 0271₁₀

переходим по адресу 0271₁₀

0229₁₀

CPI 6₁₆

сравниваем содержимое А с 4-й октавой (6)

0231₁₀

JNZ 0255₁₀

если не = 0 то переходим по адресу 0255₁₀

0234₁₀

DCR L

уменьшаем L на 1

0236₁₀

MOV A,L

записываем в А значение L

0239₁₀

CPI FFFFFFFFFFFFFFFF₁₆

сравниваем A с ДО-1

0241₁₀

JNZ 0271₁₀

если не = 0 то переходим по адресу 0271₁₀

0245₁₀

MOV L,11₁₆

в L перемещаем СИ (11)

0248₁₀

MOV C,5₁₆

в С перемещаем 3-я октава (5)

0251₁₀

JMP 0271₁₀

переходим по адресу 0271₁₀

0255₁₀

DCR L

уменьшаем L на 1

0257₁₀

MOV A,L

записываем в А значение L

0260₁₀

CPI FFFFFFFFFFFFFFFF₁₆

сравниваем A с ДО-1

0262₁₀

JNZ 0271₁₀

если не = 0 переходим по адресу 0271₁₀

0266₁₀

DCR C

уменьшаем С на 1

0268₁₀

MOV L,11₁₆

в L записываем СИ

0271₁₀

MOV 0000₁₀,L

в NNOTE записываем L

0274₁₀

MOV 0001₁₀,C

в NOCTAV записываем С

0277₁₀

RET

возвращение в основную программу

адрес

команда

комментарий

0278₁₀

MVI A,0₁₆

записываем в А 0

0281₁₀

IN port A

передаём значение из порта А в А

0283₁₀

MOV H,A

записываем в Н значение А

0286₁₀

MVI A,0₁₆

в А записываем 0

0289₁₀

IN port B

передаём значение из порта В в А

0291₁₀

MOV L,A

записываем значение А в L

0294₁₀

CPI 0₁₆

сравниваем содержимое А с 0

0296₁₀

JNZ 0307₁₀

если не = 0 то переходим к адресу 0307₁₀

0298₁₀

MOV A,H

если = 0 то в А записываем содержимое Н

0301₁₀

CPI 0₁₆

сравниваем А с 0

0303₁₀

JZ 0278₁₀

если равно 0, то переходим по адресу 0278₁₀

0307₁₀

RET

возврат в основную программу

адрес

команда

комментарий

0308₁₀

MVI D,0₁₆

передаём в D 0

0311₁₀

LXI HL, 0002₁₀

передаём в HL адрес начала массива эталонных значений нот

0316₁₀

MOV A,L

записываем в А значение L

0319₁₀

ADD B

прибавляем значение номера ноты

0321₁₀

ADD B

прибавляем значение номера ноты

0323₁₀

MOV L,A

записываем получившееся из А в L

0326₁₀

MOV A,H

записываем в А значсение Н

0329₁₀

ADC 0₁₆

прибавляем перенос (если он есть)

0331₁₀

MOV H,A

записываем значение в Н из А

0334₁₀

LDAX HL

обращаемся к первому байту по адресу Н L и пишем его в А

0337₁₀

MOV D,A

записываем значение из А в D(старшая часть начального значенияя)

0340₁₀

INX HL

увеличиваем значение адреса на 1

0343₁₀

LDAX HL

обращаемся ко второму байту по адресу Н L и пишем его в А

0346₁₀

MOV E,A

записываем значение из А в Е(младшая часть начального значения)

0349₁₀

MOV A,C

записываем значение С в А (начало обработки остальных октав)

0352₁₀

CPI FF₁₆

сравниваем значение А с -1

0354₁₀

JZ 0393₁₀ 0393₁₀

если = 0, то переходим по адресу 0393₁₀ (на обработку СКО)

0358₁₀

MOV A,C A,C

записываем в А содержимое С

0361₁₀

CPI 00₁₆ 0₁₆

сравниваем содержимое А с 0

0363₁₀

JZ 0432₁₀ 0432₁₀

если = 0 то переходим по адресу 0432₁₀

0365₁₀

MOV A,D A,D

записываем в А значение D

0368₁₀

RAL

арифметически сдвигаем А влево

0369₁₀

MOV D,A D,A

записываем в D значение А

0372₁₀

MOV A,E A,E

записываем в А значение E

0375₁₀

RAL

арифметически сдвигаем А влево

0376₁₀

MOV E,A E,A

записываем значение А в E

0379₁₀

MOV A,D A,D

записываем в А значение D

0382₁₀

ADC 0 0₁₆

складываем значение А с переносом

0384₁₀

MOV H,A H,A

записываем в Н значение А

0387₁₀

DCR C C

уменьшаем С на 1

0389₁₀

JMP 0358₁₀ 0358₁₀

переходим по адресу 0358₁₀

0393₁₀

MVI 01₁₆ H,1₁₆

записываем в H 00000001

0396₁₀

MOV A,D A,D

записываем в А значение D

0399₁₀

ANA H H

логическое «И» А с H

0401₁₀

MOV H,A H,A

записываем в H значение А

0404₁₀

MOV A,D A,D

записываем в А значение D

0407₁₀

RAR

сдвигаем А вправо

0408₁₀

MOV D,A D,A

записываем значение А в D

0411₁₀

MOV A,E A,E

записываем в А значение E

0414₁₀

RAR

сдвигаем А вправо

0415₁₀

MOV A,H

записываем в А значение Н

0418₁₀

CPI 0

сравниваем его с 0 (была ли 1 в младшем разряде D до сдвига)

0420₁₀

JZ 0429₁₀

если 0 (не было) то переходим по адресу 0429₁₀

0424₁₀

MOV A,E

если не 0 (была) записываем в А значение из Е

0427₁₀

ADD 80₁₆

и прибавляем 1 к старшему разряду 10000000

0429₁₀

MOV E,A

записываем значение А в E

0432₁₀

RET

возврат в основную программу

адрес

команда

коментарий

0433₁₀

MVI A,0₁₆

записываем в А значение 0

0436₁₀

OUT port C1

выдаём это значение в порт С1

0438₁₀

MOV A, 0₁₆

записываем в А значение 0

0441₁₀

OUT port A

выдаём из А в порт А

0443₁₀

OUT port B

выдаём из А в порт В

0445₁₀

CALL 0278₁₀

вызываем подпрограмму PREADACР

0449₁₀

MOV B,0000₁₀

записываем в В NNOTE

0452₁₀

MOV C,0001₁₀

записываем в С NOCTAV

0455₁₀

CALL 0308₁₀

вызываем подпрограмму PCALCULATE

0459₁₀

MOV B,H

записываем значение из Н в В-старшая часть считанного значения

0462₁₀

MOV C,L

записываем значение из L в С-младшая часть считанного значения

0465₁₀

MOV A,B

записываем в А старшую часть считанного значения

0468₁₀

CMP D

сравниваем со старшей частью эталонного значения

0470₁₀

JP 0498₁₀

если результат > 0, то переходим по адресу 0498₁₀

0474₁₀

JM 0504₁₀

если результат < 0, то переходим по адресу 0504₁₀

0478₁₀

MOV A,C

если старшие части равны пишем в А младшую часть

0481₁₀

CMP E

и сравниваем с эталонной младшей частью

0483₁₀

JP 0498₁₀

если результат > 0, то переходим по адресу 0498₁₀

0487₁₀

JM 0504₁₀

если результат < 0, то переходим по адресу 0504₁₀

0491₁₀

MVI A,3₁₆

если обе части слов равны – в А пишем 0011(команда равенства)

0494₁₀

JMP 0507₁₀

переходим по адресу 0507₁₀

0498₁₀

MVI A,1₁₆

если значение меньше эталона – в А значение 0001

0501₁₀

JMP 0507₁₀

переходим по адресу 0507₁₀

0504₁₀

MOV A,2₁₆

если значение больше эталона то записываем в А значение 0010

0507₁₀

OUT port C1

выдаём в порт С1 результат сравнения из А (на 2-ой ВВ)

0509₁₀

RET

возвращаемся в основную программу

адрес

команда

комментарий

0510₁₀

MOV A, 0₁₆

записываем в А значение 0

0513₁₀

MVI C,0

записываем в С 0 (обозначает значение какой ноты мы запоминаем)

0516₁₀

MVI B,12

записываем в В 12 (счётчик для выхода из цикла)

0519₁₀

OUT port A

выдаём из А в порт А

0521₁₀

OUT port B

выдаём из А в порт В

0523₁₀

CALL 0278₁₀

вызываем подпрограмму PREADACР

0527₁₀

XCHF

записываем содержимое пары HL в DE

0528₁₀

LXI HL,0002₁₀

записываем в HL адрес первой ячейки памяти

0533₁₀

MOV A,L

записываем в А значение L

0536₁₀

ADD C

прибавляем значение

0538₁₀

ADD C

прибавляем значение

0540₁₀

MOV L,A

записываем получившееся из А в L

0543₁₀

MOV A,H

записываем в А значсение Н

0546₁₀

ADC 0₁₆

прибавляем перенос (если он есть)

0548₁₀

MOV H,A

записываем значение в Н из А

0551₁₀

LDAX HL

обращаемся к первому байту по адресу Н L и пишем его в А

0554₁₀

ORA D

логически складываем с D

0556₁₀

STAX HL

записать значение из A по адресу который находится в HL

0559₁₀

INX HL

увеличиваем значение HL на 1

0562₁₀

LDAX HL

обращаемся ко второму байту по адресу Н L и пишем его в А

0565₁₀

ORA E

логически складываем с Е

0567₁₀

STAX HL

записать значение из А по адресу который находится в HL

0570₁₀

DCR B

увеличиваем В на 1

0572₁₀

MOV A,B

записываем значение В в А

0575₁₀

CPI 0₁₆

сравниваем с 0

0577₁₀

JZ 0585₁₀

если = 0 то переходим по адресу 0585₁₀

0579₁₀

INR C

если не = 0 прибавляем к С 1

0581₁₀

JMP 0510₁₀

переходим по адресу 0510₁₀

0585₁₀

RET

адрес

команда

комментарий

0586₁₀

OUT 98₁₆

режим ВВ (записываем слово состояния ВВ) 10011000

0588₁₀

IN port А

из порта А в А

0590₁₀

MOV B,A

записываем значение из А в В

0593₁₀

MVI A,0₁₆

записываем в А 0

0596₁₀

OUT port A

обнуляем порт А

0598₁₀

MOV A,B

записываем в А значение считанное из порта (из В)

0601₁₀

CPI 0₁₆

сравнивает значение А с 0

0603₁₀

JZ 0588₁₀

если = 0 то перейти к адресу 0588₁₀

0606₁₀

CPI 1₁₆

сравнивает А с командой перехода на след. ноту 0001

0608₁₀

JNZ 0645₁₀

если не = 0, то переходит к адресу 0645₁₀

0611₁₀

MVI A,4₁₆

если = 0, то в А заносим команду для I ВВ для перехода на след ноту 0100

0614₁₀

OUT portC1

значение А передаётся на порт С1

0616₁₀

CALL 0768₁₀

вызывает подпрограмму PNEXT

0620₁₀

MVI B,80₁₆

зарисывает в В 1000000

0623₁₀

MOV A,B

передаёт это значение в А

0626₁₀

ORA L

логически прибавляет (логическое «или») содержимое регистра L

0628₁₀

MOV B,A

записывает из А в В (1000хххх)

0631₁₀

MOV A,C

в А записываети значение из С

0634₁₀

RAL

сдвиг влево

0635₁₀

RAL

сдвиг влево

0636₁₀

RAL

сдвиг влево

0637₁₀

RAL

сдвиг влево

0638₁₀

ORA B

логическое «или» с содержимым В (1ууухххх)

0640₁₀

OUT port B

передаёт это значение в порт В

0642₁₀

JMP 0588₁₀

переходим по адресу 0588₁₀

0645₁₀

CPI 2₁₆

сравнение А с командой перехода на предыдущ. Ноту 0010

0647₁₀

JNZ 0684₁₀

если не = 0 то переход по адресу 0684₁₀

0650₁₀

MVI A,8₁₆

если = 0 то в А заносим команду для I BB для перехода на пред.ноту 1000

0653₁₀

OUT portC1

передаём значение А в порт С

0655₁₀

CALL 0858₁₀

вызывает подпрограмму PPREV

0659₁₀

MVI B,80₁₆

зарисывает в В 1000000

0662₁₀

MOV A,B

передаёт это значение в А

0665₁₀

ORA L

логически прибавляет (логическое «или») содержимое регистра L

0667₁₀

MOV B,A

записывает из А в В (1000хххх)

0670₁₀

MOV A,C

в А записываети значение из С

0673₁₀

RAL

сдвиг влево

0674₁₀

RAL

сдвиг влево

0675₁₀

RAL

сдвиг влево

0676₁₀

RAL

сдвиг влево

0677₁₀

ORA B

логическое «или» с содержимым В (1ууухххх)

0679₁₀

OUT port B

выдаёт значение из А в порт В

0681₁₀

JMP 0588₁₀

переход к адресу 0588₁₀

0684₁₀

CPI 8₁₆

сравниваем значение А с командой для остановки/сброса 1000

0686₁₀

JNZ 0702₁₀

если не = 0 то переходим по адресу 0702₁₀

0690₁₀

MVI А, 2₁₆

если = 0 то в А записываем команду для I BB для остановки/сброса 0010

0692₁₀

OUT portC1

передаём значение А в порт C

0694₁₀

MVI А,F9₁₆

записываем в А 11111001 (111-СКО; 1001-ЛЯ)

0697₁₀

OUT portB

передаём значение А в порт В

0699₁₀

JMP 0588₁₀

переходим по адресу 0588₁₀

0702₁₀

CPI 1₁₆

сравниваем значение А с 0001 (команда запуска обработки) 0001

0704₁₀

JNZ 0733₁₀

если не = 0 то переходим по адресу 0733₁₀

0708₁₀

MVI A,0₁₆

в А записываем 0

0711₁₀

OUT portB

передаём значение А в порт В

0713₁₀

OUT portC2

передаём значение А в порт С2

0715₁₀

MVI A,1₁₆

записываем в А команду обработки для I BB 0001

0718₁₀

OUT portC1

выдаём содержимое А в порт С1

0720₁₀

IN portC2

считываем из порта С2 в А

0722₁₀

OUT portB

передаём значение А в порт В

0724₁₀

CALL 0741₁₀

вызываем таймер

0728₁₀

MVI A,0₁₆

записываем в А 0

0731₁₀

OUT portB

передаём значение А в порт В

0733₁₀

MVI А, 3₁₆

записываем в А 0011 (команда получения эталонных значений) 0011

0736₁₀

OUT port C1

выдаём значение из А в порт С1

0738₁₀

JMP 0588₁₀

переходим по адресу 0588₁₀

адрес

команда

комментарий

0741₁₀

MVI L,40₁₆

записываем в L 100 (в 8-ричной системе) или 01000000

0744₁₀

MVI H,97₁₆

записываем в Н 10010111

0747₁₀

MVI C,87₁₆

записываем в С 10000111

0750₁₀

MVI B,FB₁₆

записываем в В 11111011

0753₁₀

INX HL

увеличиваем пару Н L на 1

0756₁₀

JNC 0753₁₀

если переноса нет то переходим по адресу 0753₁₀

0760₁₀

INX BC

если перенос был то увеличивам пару ВС на 1

0763₁₀

JNC 0753₁₀

если переноса нет то переходим по адресу 0753₁₀

0767₁₀

RET

если перенос был то выходим в основную программу

адрес

команда

комментарии

0768₁₀

MVI H,0₁₆

в Н перемещаем 0

0771₁₀

М0V L,0025₁₀

в L передаём содержимое NNOTE

0774₁₀

MVI B,0₁₆

в В передаём 0

0777₁₀

M0V C,0026₁₀

в С передаём содержимое NOCTAV

0780₁₀

MVI A,C

содержимое С передаём в А

0783₁₀

CPI FFFFFFFFFFFFFFFF₁₆

сравниваем А со значением октавы СКО (А) – (-1)

0785₁₀

JNZ 0809₁₀

если не = 0, то переходим к адресу 0809₁₀

0788₁₀

INR L

увеличиваем содержимое регистра L на 1

0790₁₀

MOV A,L

в А записываем значение L

0793₁₀

CPI 12₁₆

сравниваем содержимое A со значением ноты СИ+1

0795₁₀

JNZ 0851₁₀

если не = 0 то переходим к адресу 0851₁₀

0799₁₀

MOV L,0₁₆

в L записываем значение ноты ДО (0)

0802₁₀

MOV C,0₁₆

в С записываем значение октавы OKO (0)

0805₁₀

JMP 0851₁₀

переходим к адресу 0851₁₀

0809₁₀

CPI 6₁₆

сравниваем А и значения 4-й октавы(6) (А)-(6)

0811₁₀

JNZ 0835₁₀

переходим к адресу 0835₁₀

0814₁₀

INR L

увеличиваем соджержимое L на 1

0816₁₀

MOV A,L

в A записываем значение L

0819₁₀

CPI 10₁₆

сравниваем содержимое А с ЛЯ+1

0821₁₀

JNZ 0851₁₀

если не = 0 то переходим к 0851₁₀

0825₁₀

MOV L,9₁₆

в L записываем значение ЛЯ

0828₁₀

MOV C, FFFFFFFFFFFFFFFF₁₆

в С записываем значение СКО

0831₁₀

JMP 0851₁₀

переходим к адресу 0851₁₀

0835₁₀

INR L

увеличиваем содержимое L на 1

0837₁₀

MOV A,L

в A записываем значение L

0840₁₀

CPI 12₁₆

сравниваем A с СИ+1

0842₁₀

JNZ 0851₁₀

если не = 0, то переходим к 0851₁₀

0846₁₀

INR C

увеличиваем С на 1

0848₁₀

MVI L,0₁₆

в L записываем ДО

0851₁₀

MОV 0025₁₀,L

в NNOTE записываем значение L

0854₁₀

MОV 0026₁₀,C

в NOCTAV записываем значение С

0857₁₀

RET

возвращение в основную программу

адрес

команда

комментарий

0858₁₀

MVI H,0₁₆

в Н перемещаем 0

0861₁₀

MОV L,0025₁₀

в L перемещаем NNOTE

0864₁₀

MVI B,0₁₆

в В перемещаем 0

0867₁₀

MОV C,0026₁₀

в С перемещаем NOCTAV

0870₁₀

MОV A,C₁₆

в А перемещаем значение С

0873₁₀

CPI FFFFFFFFFFFFFFFF

сравниваем содержимое А с СКО (-1)

0875₁₀

JNZ 0899₁₀

если не = 0 то переходим по адресу 0899₁₀

0878₁₀

DCR L

уменьшаем L на 1

0880₁₀

MOV A,L

записываем в А значение L

0883₁₀

CPI 8₁₆

сравниваем A с ЛЯ-1

0885₁₀

JNZ 0941₁₀

если не = 0 то переходим по адресу 0941₁₀

0889₁₀

MOV L,9₁₆

в L перемещаем ЛЯ (9)

0892₁₀

MOV C,6₁₆

в С перемещаем 4-я октава (6)

0895₁₀

JMP 0941₁₀

переходим по адресу 0941₁₀

0899₁₀

CPI 6₁₆

сравниваем содержимое А с 4-й октавой (6)

0901₁₀

JNZ 0925₁₀

если не = 0 то переходим по адресу 0925₁₀

0904₁₀

DCR L

уменьшаем L на 1

0906₁₀

MOV A,L

записываем в А значение L

0909₁₀

CPI FFFFFFFFFFFFFFFF₁₆

сравниваем A с ДО-1

0911₁₀

JNZ 0941₁₀

если не = 0 то переходим по адресу 0941₁₀

0915₁₀

MOV L,11₁₆

в L перемещаем СИ (11)

0918₁₀

MOV C,5₁₆

в С перемещаем 3-я октава (5)

0921₁₀

JMP 0941₁₀

переходим по адресу 0941₁₀

0925₁₀

DCR L

уменьшаем L на 1

0927₁₀

MOV A,L

записываем в А значение L

0930₁₀

CPI FFFFFFFFFFFFFFFF₁₆

сравниваем A с ДО-1

0932₁₀

JNZ 0941₁₀

если не = 0 переходим по адресу 0941₁₀

0936₁₀

DCR C

уменьшаем С на 1

0938₁₀

MOV L,11₁₆

в L записываем СИ

0941₁₀

MOV 0025₁₀,L

в NNOTE записываем L

0944₁₀

MOV 0026₁₀,C

в NOCTAV записываем С

0947₁₀

RET

возвращение в основную программу

адрес

название

комментарий

0000₁₀

NNOTE

номер текущей ноты для первого ВВ55

0001₁₀

NOCTAV

номер текущей октавы для первого ВВ55

0002₁₀

массив начальных значений нот КО

0004₁₀

0006₁₀

0008₁₀

0010₁₀

0012₁₀

0014₁₀

0016₁₀

0018₁₀

0020₁₀

0022₁₀

0024₁₀

0025₁₀

NNOTE

номер текущей ноты для второго ВВ55

0026₁₀

NOCTAV

номер текущей октавы для второго ВВ55

адрес

команда

комментарий

0027₁₀

0028₁₀

0029₁₀

0030₁₀

0031₁₀

0032₁₀