1 0000

2 0000

3 0000 4J0OOO

5 0000

6 0000

7 0000

8 0000,

9 0000

10 оооо

11 0000 12 0000

13 0003

14 0004

15 0005

16 0007

17 0009

18 ОООВ

19 ОООЕ

20 0011

21 00U

22 0017

гг 0018

24 OOIB

25 OOIB

26 001В

27 001В

28 001В

29 001В

30 001В

31 001В

3 2 001В

33 001В

34 001В

35 001В

36 001В

37 001В

38 OOIB

39 OOIB

40 OOIB

41 OOIE

42 ОЭ21

43 0024 .44 002 6

45 0029

46 002C

47 002C

48 0J3C

49 002C

50 002C

51 002C

52 002С

53 002C

54 оогс

55 002C

56 002F

57 002F

58 002F

59 002F

60 002F

♦ ПРОГРАММА ВВОДА ДАШН1 С ПУЛЬТА И ВЫВОДА НА ДИСПЛЕЙ

* ПРОГРАММИСТ ДЯИМ КОФФРОН 8-28-79 * .. *♦

AI FB

D3 Fo D3 Fl D3 F2 32 00 32 01 32 02 32 03 ЭС

32 04

ORG 00 УСТАНОВИТЬ НАЧ.АДРЕС ПРОГРАМШ

ВО-ПЕРВЫХ,НЕОБХОДИМО ИНИЦИАЛИЗИРОВАТЬ ВСЕ ПЕРЕМЕНШЕ

* УСТАНОВИТЬ АДРЕСА ПЕРЕМЕННЫХ

КТ1Мй EQU ЮООН

CFLAG EQU KTIME+1,

KWGHT EQU CFLAG+1

KCOMP EQU KWGHT+1

KROW EQU KCOMP+1

NROW EQU KbOW+1

innt )t )t -)t НАЧАЛО ПРОГРАММЫ ** * )t* nnnnt> )H(-* * * НАЧАЛО РИС.4.20

CD ЕВ 00 CD DB 00 ЗА 01 Ю FE 00 CA IB 00 CD B1 00

SROW CALL OroW

CALL С01И

LDA CiLAG

CPI ООН

. JZ sraw

CALL KEYW

вывести активный набор

вызвать подпрограшу COLM

необходимо проверить флаяок столбца

проверить активность цикла

не активный столбец,повторить цикл

активный столбец,какой именно???

ЗА 00 10

FE 00

КОНЕЦ РИС.4.20 НАЧАЛО РИС.4.21

** БЫЛИ.НАЖАШ КЛАВИШИ * .* (111АГ 1 )

LDA KTIME ПЕРЕЗАГРУЗИТЬ KTIME ИЗ ПАМЯТИ

(ШАГ 2)

CPI ООН КТ1МЕ=0??

61 0031 СА

62 0034

63 0034

64 0034

65 0034

66 0034

67 0034 ЗА

68 0037 4F

69 0038 ЗА

70 0038 В9

71 ООЗС СА

72 003F

73 003F

74 003F

75 003F AF

76 0040 32

77 0043 СЗ

78 0046

79 0046

80 0046

81 0046 ЗА

82 0049 ЗС

83 004А 32

84 004D

85 004D 8 6 004D

87 004D FE

88 004F С2

89 0052 CD

90 0055 CD

91 0058 СЗ

92 005В

93 005В

94 005В

95 005В ЗА

96 005Е 32

97 0061

98 0061

99 0061

100 0061 .

101 0063 32

102 0066 ЮЗ 0066

104 0066

105 0066 ЗЕ

106 0068 32

107 00©

108 006В

109 ООбВ ПО 00© СЗ

111 006Е

112 ООбБ

113 ООбЕ

114 ООбЕ

115 ООбВ

116 ООбЕ

117 ООбЕ

118 006В

119 ООбЕ

120 ООбЕ

5В 00 JZ KCL01

******** НЕ ПЕРВЫЙ

(ШАГ 7)

02 10 LDA KWGHT

MOV С,А

03 10 LDA КСОМР

СМР С

46 00 JZ KCL02

00 10 66 00

XRA А STA KTIME JMP KCL03

00 10 00 10

* (ШАГ 9) KCL02

LDA KTIMB INR A STA KTIME

** *(ШАГ 10)

32 CPI 50

66 00 JNZ KCL03

6Б 00 CALL KOPN

A7 00 CALL KOUT

IB 00 jmi srow

* (ШАГ 3) *

02 10 KCLOl LDA XWGHT

03 10 STA KCOMP

* *(ШАГ 4)

01 MVI A.OI

00 10 STA KTIME

** (ШАГ 5)

01 KCL03 MVI A,01

04 10 STA KROW

* * (ШАГ 6) IB 00 JMP SROW

ДА,ЭТО ПЕРаНЙ РАЗ РАЗ *********

КАКАЯ ЦИФРА БЫЛА НАВРАНА??? РЕГИСТР C=KWGHT РЕГИСТР КСОМР KC0MP=KWGHT7?? ДА;0НИ РАВНЫ!! !

ОНИ НЕ РАВНЫ ПЕРЕЗАПИСАТЬ KTIME

ИДТИ НА ПЕРЕЗАГРУЗКУ АКТИВНОГО НАБОРЖ

ВЫЗВАТЬ KTIME ИЗ ПАМЯТИ

КТ1ИЕ=КТ1МЕ+1

КТ1ШЗ=КГ1МЕ+1

КТ1МЕ=5077? ЕЩЕ НЕ 50

ПРОВЕРИТЬ ГОТОВНОСТЬ ПУЛЬТА ШДАТЬ НА ПУЛЬТ НАЗАД к НАЧАЛУ

KcoMp=KwaHT

УСТАНОВИТЬ KTlMi2=1

УСТАНЗВИТЬ АКТИВНЫЙ НАБ0Р=00000001

ИДТИ к НАЧАЛУ ПРОГРАММЫ

♦ * **

НАЧАЛО ПОДПРОГРАММЫ * * ♦♦ I*************.....**************************************

* РИС.4.22

Рис. 9.4. Программа ввода ключа и вывода информации на табло для микропроцессора 8080.

121 006В

122 ООбБ

123 006е

124 ООбЕ

125 006В

126 006В

127 006В

128 0070

129 007

130 0074

131 0077

132 0077

133 0077

134 0077

135 007А

136 007А 13т 007А

138 007А

139 007D

140 00711

141 007D

142 00711

143 0080

144 0080

145 0080

146 0080

147 0083

148 0085

149 0088

150 0088

151 0088

152 0088

153 008В

154 008С

155 008F

156 008F

157 008F

158 008F

159 0091

160 0094

161 0094

162 0094 1 63 0094

164 0097

165 0098

166 009B

167 009С

168 009С

169 009С

170 009С

171 009D

172 ООАО

173 ООАО

174 ООАО

175 ООАО

176 00А2

177 ооаз

178 00А 6

179 ООАб

180 ООАб

ЗЕ 01 KOPN 32 04 10 3d

32 05 10

mvi sta dsr sta

a,01 a

neow

.. .. (шаг 2)

32 00 10 sta ktime

(imr 3)

cd eb oq kopni call orow

cd db 00 call colm

(шаг 5) *

за 01 10 lda cflag

Fe 00 cpi 00

c2 6e 00 jnz kopn

(шаг 9)

за 05 10 lda nhow

3c inr a

32 05 10 sta nbow

(шаг 10)

fe 05 cpi 05

c2 7a 00 jnz k0pn1

♦

за 00 10 lda ktime

3c 1ш a

32 00 10 sta ktime

47 mov b,a

* (шаг 6a)

32 05 10

xra sta

(ШАГ 7)

зе 32 в8

C2 7A 00

MVI a, 50

CMP в

JNZ KOPNI

KB0W=0000000l NE0W300OO00OO

KTIME=0

ШВЕСТИ НАБОР

ВНЕСТИ ДАННЫЕ СТОЛБЦА

ввести cflaq cflag=0777

пульт еще не своводен

ввести актившй набор записать активный набор

сканирование не эакончею

регистр в=>кт1ма

ЭНАЧЕНИЕ НАБОРА=0

КТ1МЕ=50777

НЕТ,СКАНИРОВАНИЕ ПОВТОРИТЬ

181 ООАб

182 0ОА7

183 00А7

184 00А7

185 00А7

186 00А7

187 00А7

188 00А7 18 9 0СА7

190 00А7

191 00А7

192 00А7

193 ООАА

194 ООАС

195 ООАЕ

196 ООВО

197 GOBI

1 98 00В1

199 00В1

200 OOBI

201 0ОВ1

202 OOBl

203 OOBl

204 OOBl

205 OOBl 20 6 OOBl

207 OOBl

208 OOBl

209 OOBl

210 OOBl

211 00B2

212 00B5

213 dOB5

214 0OB5

215 00B5

216 0037

217 00B7

218 0OB7

219 00B7

2 20 00B8

221 OOBA-

222 OOBA 2 23 OOBA

224 OOBA

225 OOBD 2 26 OOBD

22 7 OOBD

228 OOBD

229 OOBE

230 00C1

231 OOCl

232 OOCl

233 OOCl

23 4 00C2 235 00C5 23 6 00C5

237 0OC5

238 00C5

239 0OC7 2 40 00C7

за 02 d3 FO d3 Fl d3 iZ c9

* ПОДПРОГРАММА KOUT

эта ПодаРОГРАША ВЫВЕДЕТ ДАНШЕ с ПУЛЬТА НА ДИСПЛЕЙ * * , ♦ , , ,

Ю КоиТ lda KWGHT данше с ПУЛЬТА в АККУМУЛЯТОРЕ OUT OFOH OUT OFlH OUT 0f2h RET

♦

* ШДПРОГРЛША KETtf

* ЭТА ПОДПРОГРАММА УСТАНОВИТ ЭНАЧЕНЛЕ НАЖАТОЙ КЛАВИШ

♦ блок-схема этой програмш Нк рис.4.18 * (шаг 1)

ЗА 01

06 00

fe 00

KBIW XRA А ОБНУЛИТЬ ФЛАНКИ И АККУМУЛЯТОР

LDA CFLAG ПРИНЯТЬ ФЛАЖОК СТОЛБЦА ИЭ ПАМЯТИ

MVI в,00 ОБНУЛИТЬ СЧЕТЧИК

(]]ДГ 3)

KiS-iWi RAR

CPI 00

СДВИНУТЬ ВПРАВО НА 1 БИТ,О В В?

СА С1 00 jz kexw2 РЕГИСТР 8=0,1,2,3,4 (ШАГ бУ

сз в7

ЗА 04

* (шаг 5)

1nh в

00 jmp keywi увеличить энач.счетчика и идти на пов,

♦

♦ (ШАГ 7)

KfflfW2 xra а обнулить фланки

10 lda krow вызвать актившй набор

* (ШАГ 8>

6е 00 MVI с,00 обнулить СЧЕТЧИК т2

* (шаг 9)

2*1 О0С7

242 ООСТ IF

243 00G8 FE 00 2 44 ООСА

245 ООСА

246 ООСА

2 47 ООСА СА D1

248 OOCD

249 OOCD

250 OOCD

251 OOCD ОС

252 ООСЕ СЗ С7 2 53 00D1

254 O0D1

255 0OD1

256 O0D1 АР

257 00D2 78 2 58 00D3 17 2 59 00D4 17 260 00D5 80 2 61 00D6 8-1 2 62 O0D7

2 63 O0D7

2 64 00D7

265 O0D7 32 02

2 66 OODA

2 67 OODA

2 68 OODA

269 OODA C9

270 OODB

271 OODB

272 OODB 2 73 OODB 274 OODB 2 75 OODB 2 76 OODB 2 77 OODB

278 OODB

279 OODB

280 OODB

281 OODB

282 OODB

283 OODB

284 OODB 28 5 OODB

28 6 OODB AF

287 OODC 32 01

288 OODF

289 OODF

290 OODF

291 OODF DB FE

292 OOEl

293 OOEl

294 OOEl

295 OOEl F6 EO

296 ООЕЗ

297 ООЕЗ

298 ООЕЗ

299 ООЕЗ FE FF

300 00E5 C8

KEW3 - RAR

CPI 00

СДВИГ ВПРАВО НА 1 БИТ,О BD7

♦ * (ШАГ 10)

00 JZ KS1W4 ЕСЛИ о,то ВЫПОЛНЕНО

* **(П1АГ U)

INR С УВЕЛИЧИТЬ ЗНАЧЕНИЕСЧЕТЧИКА

00 JMP КЗИЗ ИДТИ НА ПОВТОР

> (ШАГ 11)

КЬ Ш4 XRA А ОБНУЛИТЬ ФЛАЖКИ

тЧ А,в АККУШУЛЯТОР=СЧЕТЧИК СТОЛБЦОВ (ТО

RAL В 2

BAL В*4

ADD В В 5

ADD С (В 5)+С=0-24

* * *(ШАР 12)

10 СТА KvVGHT

(ШАГ 13) RET

ВЫЙТИ ИЗ ЭТОЙ ПОДПРОГРАММЫ .

* П0ДПРОГРАШ4А СОШ *

* ЭТА ПОДПРОГРАММА ОПРЕДЕЛИТ АКТИВНЫЙ СООЛБЕЦ,

* ЕСЛИ ОН СУЩЕСТВУЕТ

*

* ЭТА ПОДПРОГРАЫМА-РЙС.4.15

** )( * * * * *♦ к-

*** (ШАГ 1) *

COLM XRA А 10 STA CFLAG УСТАНОВИТЬ ФЛАЖОК СТОЛБЦА=0

(ШАГ 2)

IN OFEH ВХОдаЫЕ flAHHiE ИЗ ПОРТА FE * (ШАГ З)

ORI ОЕОН УСТАНОВИТЬ БИШ D5,D6,D7=t

* (шй1 ) *

CPI OFEH

RZ ШАГ (4А)

301 ООЕб

302 00Е6

303 ООЕб

304 ООЕб 2F

305 00Е7

306 00Е7

307 ООЕ7 .

308 00Е7 32 01 10 )09 ООЕА С9

310 ООЕВ

311 ООЕВ ;12 ООЕВ ИЗ ООЕВ )М ООЕВ )15 OOiiB

116 ООЕВ

117 ООЕВ

М8 ооЬв

319 ООЕВ

(;о ООЕВ

321 ООЕВ 1.2 ООЕВ <П ООЕВ 14 ООЕВ 15 ООЕВ ООЕВ

127 ООЕВ ЗА 04 10 1.8 ООЕЕ 19 ООЕЕ

130 ООЕЕ

131 ООЕЕ FE 10

132 00F0 С2 F8 00

133 00F3

134 OOF3

135 00F3

13 6 00F3 ЗЕ 01

137 00F5 СЗ F9 00

138 00F8 >39 00FB

140 00F8

141 00F8 07 U2 00F9

143 OOF9

144 OOF9

145 0OF9 32 04 Ю

146 OOFC

147 OOFC

148 OOFC

149 OOFC 2F

150 OOFD ))1 OOFD

152 OOFD

153 OOFD D3 FE

154 OOFF (55 OOFF )56 OOFF )57 OOFF C9 158 0100 I6O 0100

* (ШАГ 5) СМА

* * (ШАГ 6)

ИННЕРТИР(]аАТЬ ЛАНШЕ

STA CFLAG УСТАНОВИТЬ ФЛАНОК СТОЛВЦА RET ВЫЙТИ ИЗ ЭЮЙ ПОДПРОГРАМШ

* * , * ,hhhh h, j

* ПОДПРОГРАММА ШВОДА АКТИВНОГО НАБОРА НА ПУЛЬТ

ИМЯ этой ПОДПРОГРАММЫ-OROW

♦ ** ♦ * ♦♦ * ♦♦ * * * * ♦ * * ** *

ПОДПРОГРАММА К РИС.4.10 В МНЕМОНИКЕ 8080

** ♦ * ♦ ♦ ♦

OHOW LDA KroW *** **(ШАГ 2)

ПОВТОРНЫЙ ВЫЗОВ АКТИВНОГО НАБОРА

СИ ЮН СКАНИРОВАНИЕ НАБОРА ЗАКОНЧЕНО???

JNZ 0R0W1 ЕСЛИ НЕТ,ТО ШАГ 2В

**♦ (ШАГ -2А)-

MVI А,01Н ПЕРЕМЕСТИТЬ АКТИВНЫЙ НАБОР JjiJP ST3 ИДТИ НА ШАГ 3

.* . (В1АГ 2В)

0RQW1 тс

* *(ШАГ 3)

ST3 STA KROW *

**** *(ШАГ 4) СМА

* (ШАГ 5)

OUT OFEH

СДВИНУТЬ ДАННЫЕ ВЛЕВО.О В DO СОХРАНИТЬ АКТИВШЙ НАБОР ИНВЕРТИРОВАТЬ СЛОВО НАБОРА ВЫВЕСТИ АКТИВНЫЙ НАБОР В ПОРТ FE

♦ (Шдр 6)

* * * * * * *** *** **********~