181 00А6 С9

182 00А7

183 00А7

184 00А7

185 00AT

186 00А7

187 00А7

188 00А7

189 О0А7

190 00А7

191 00А7

192 00А7 ЗА 02 Ю КООТ

193 ООАА D3 F0

194 ООАС D3 il

195 ООАЕ D3 Н

196 ООВО С9

197 00В1

ааод из подпрограммы подготовки

* ♦ ♦ ♦♦)(.

*

* эта подпрограмма выведет данные с пульта на дисплей

ПОДПРОГРАММА КоиТ

198 00B1

199 00В1

200 ода!

201 O0B1

202 00В1

203 00В1

204 OOBJ

205 00В1

206 00В1 ,

207 00B1

208 0(Ж1

209 00В1

210 00В1 АУ

211 00B2 ЗА 01 10

212 00В5

213 00В5

214 0СЮ5

215 00В5 Об 00

216 00В7

217 00В7

218 00В7

219 00В7 IF

220 00В8 ГЕ 00

221 ООВА

222 ООВА

223 ООВА

224 ООВА СА С1 00 JZ KEYW2

225 OOBD *

226 00BD ** * (ШАГ 5)

227 OOBD * 22Я OOBD 04 INR В ill Ж СЗ ВТ 00 JMP KEXW)

230 00С1

231 00С1

оло q0c1

233 00С1 АР mW2 XRA А

234 00С2 ЗА 04 Ю

235 00С5

236 00С5

IU ШС5 ОЕ 00 С.00

239 ООСТ , .

240 ООСТ *****НШГ 9)

♦ ч ч* * * ♦

LDA KWGHT ДАНдаВ С ПУЛЬТА В АККУМУЛЯТОРЕ ООТ OFOH OUT 0F1Н ООТ 0F2H RET

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

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

* * *

елок-сжвма этой програмш на рис.4.18

(ШАГ 1)

KEIW ХЕА А

LDA CFLAG

** *<ШАГ 2)

MVI В,00

* * ♦(ШАГ 3)

KECWI PAR

CPI 00

* (ШАГ 4)

* (ШАГ Т)

:yw2

LDA KBOW

♦* * (ШАГ в) МУ1

ОБНУЛИТЬ ФЛАЖКИ И АККУМУЛЯТОР ПРИНЯТЬ ФЛАЖОК СТОЛБЦА ИЗ ПАМЯТИ

ОБНУЛИТЬ СЧЕТЧИК

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

РЕГИСТР В=0,1,2,3,4 (ШАГ 6)

УВЕ1:ИЧИГЬ ЗНАЧ.СЧЕТ. И ИДТИ НА ПОВТОР

обнулить флажки вызвать активный НАБОР

ОБНУЛИТЬ СЧЕТЧИК г2

241 00С7

242 ООСТ

243 00С8

244 ООСА

245 ООСА

246 ООСА

247 ООСА

248 OOCD

249 OOCD

250 OOCD

251 OOCD

252 ООСЕ

253 00D1

254 00D1

255 00D1 25 6 00D1

257 00D2

258 00D3

259 00D4 2 60 00D5 2 61 00D6 2 62 00D7 2 63 0OD7 2 64 0 0D7 265 00D7 2 66 OODA 2 67 OODA 268 OODA 2 69 OODA

270 OODB

271 OODB

272 OODB

273 OODB

274 OODB

275 OODB

276 OODB

277 OODB

278 OODB

279 OODB

280 OODB

281 OODB

282 OODB

283 OODB

284 OODB

285 OODB 28 6 OODB

287 OODC

288 OODF

289 OODF

290 OODF

291 OODF Z92 OOEl

293 OQBI

294 OOEl

295 OOEl

296 OOS3

297 ООЕЗ 2 98 ООЕЗ

299 ООЕЗ

300 0OS5

FE 00

катез HAR

CPI 00

(ШАГ 1o)

CA Dt 00 JZ KEyW4

сз СТ

АР 78 17 17 80 81

32 02 10

INR С

JMP KKYWS *

KEYW4 XRA A

MOV A,В

ЕАЬ EAL

ADD B-

ADD С

* *х**(ШАГ 12) *

STA KWGHT

1И( к (шАГ 13) НЕТ

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

если о,то шполнено

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

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

АККУМУЛЯТОР=СЧЕИЧИК СТОЛБЦОВ (Г1) В 2 В* 4 В 5

(в 5)+С=0-24

выйти из этой ПОДПРОГРАММа

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

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

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

ЭТА ПоДПРОГРАША-РИС.4 .1 5

32 01

DB FB

F6 ЕО

** *(ШАГ 1) *

COLM ХНА А 10 STA CFLACJ

. )!Х (ШАГ 2)

IN oFEH

ORI OFOH

FH IT CB

*)( !<ч (шАГ 4)

CPX EZ

OFSH

УСТАНОВИТЬ ФЛАЖоК СТОЛБЦА ВХОДНЫЕ ДАННЫЕ ИЗ ПОРТЛ Ш УСТАНОВИТЬ БИМ D5,D6,DT=1.

ШАГ (4А)

32 01 10 C9

(ШАГ 5) CMA

ИНВЕРТИРОВАТЬ ДАНШЕ

STA CiLAG УСТАНОВИТЬ ФЛАЖоК СТОЛБЦА

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

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

* ИМЯ ЭТОЙ П0ДПРОГРАМШ-0Ю№

* ЭТО РИС.4.12

** х х *** х* х* * * * х хх х х *х*х х *

* РИС.4.12-ПОЛПРОГРАММА К РИС.4.10 В МНЕМОНИКЕ 8080

х * *х хх ч )( *хххх *к **хх* ** **)(. ххх*х х х

ЗА 04 10

ГЕ 10 с2 Ре 00

ЗЕ 01 СЗ 9 00

32 04 10

d3 ре с9

LDA KP.OW ПОВТОРШа ВЫЗОВ АКТИВНОГОНАБОРА

к к(ШАГ 2)

срх 1он

JNZ 0K0W1

х х(шАГ 2А)

MVr A.OIH JMP ST3

**х х(шАГ 2В)

OlSOWl BLC *

* (шаг 3)

ST3 STA KHOW

х*хх(ШАГ 4) *

(ШАГ 5)

OUT OFEH

** х(шАГ 6)

СКАНИРОВАНИЕ НАБОРА ЗАКОНЧЕНО??? ЕСЛИ НЕТ,ТО ШАГ 2В

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

СДВИНУТЬ ДАНдав влево,о в do СОХРАНИТЬ АКТИВНЫЙ НАБОР ИНВЕРТИРОВАТЬ СЛОВО НАБОРА ШВЕСТИ АКТИВНЫЙ набор В п0р1

END 22 SYMBObf

ДРЕДЛОКЕНИЕ end АССЕМБЛЕРА

0001 000 2 000 3 0004 000 5 0006 000 7 000 8 000 9 0010 00 11 0012 ООП

0014 00 15 00 16 0017 0018

0019 00 20 00 21 00 22 00 23 00 24 00 25 00 26 00 2Т 00 28 00 29 00 30 0031 0032 00 33 00 34 0035 00 36 00 37 00 38 0039 00 40 0041 0042 00 4 3 00 44 0045 00 46

0047 0048

00 49 00 50 00 51 00 52 00 53 00 54 00 55 00 56 00 5? 00 58

1 PAQB 1 Р425 WBD ОСТ 03,1979 11:22:42.58

00001 0000 2 0000 3 00004 0ОСЮ5 00006 0000 7 0000 8 0000 9

ООО 10 000(11 000 1 2 00013 ОО014

00015 oooie

ООО 17 ООО 18 ООО 19 000 20 000 21 000 22 000 23 ООО 24 000 25 000 26 ООО 27 ООО 28 ООО 29 000 30

000 31

ООО 32 000 33 000 34 000 35

00036

000 37 ООО 38 000 39 000 40 000 41 000 42

000 43 000 44

000 45 000 46 000 47 00048 000 49 ООО 50 000 51 ООО 52 000 53 000 54

* * * > * *

* ПРОГРАММА ВВОДА С КЛАВИАТУРЫ И ЗАПИСИ НА дасШЕЙ

* ДЛЯ 6800

* . ПРОГРАММИСТ кт КОИРОН ** *

FC00

FC00 ав 13FF FC03 86 00

F425

SFCOO

УСТАНОВИТЬ НАЧАЛЬНЫЙ АДРЕЗ В ПАМЯТИ

ГО F1 F2

FC05 0 1 FC07 О 1 FC09 О 1 FCOB ВТ ЮОО FCOE В7 loot FC11 В7 100 2 FC14 В7 ЮОЗ FC17 40 JCie В7 1004

1000 1001 100 2

100 4 100 5

FC1B BD РСР2 FC1E BD FCDF FC21 В6 1001

FC24 81 00 FC26 2 7 F3

роге BD FCAD

* ВО-ПЕРВЫХ ИНИЦИАЛИЗИРУЕМ ВСЕ ШЗЖЫЕНННЕ *

BEGIN LES *S13FP ИНИЦИАЛИЗАЦИЯ УКАЗАТЕЛЯ СТЕКА LDA А *S00 НАЧ. ЗНАЧЕНИЯ ЬПАЖКОВ, ОБНУЛЕНИЕ АККУКУЛЯТОРА ВЫВЕСТИ НОЛЬ НА ДИСПЛЕЙ

STA А #SF0 STA А #SF1 STA А #SP2 STA A KTIMS STA A CFLAG STA A .KWGHT STA A KCOMP INC A

STA A KROW

УСТАНОВИТЬ дасплЕй в ноль

KTIME=0 CFLAG=0 KWGHT=0 KCOMP=0 АККУМУЛЯТОР=1

KROw=ooaooooi

♦ ТЕПЕРЬ УСТАНАВЛИВАЕМ АДЙЗСЛ ШРЕЫЕЯНЫХ

SIOOO KTIMB+1 CPLAO+I KWGHT+1 KCOMP+1 KROW+t

KTIME EQU

CFLAG EQU

KWGHT EQU

KCOMP EQU KHOW NROW

EQU EQU

***** ТЕШРЬ-СТАРТ ПРОГРАМШ * **** * * НАЧАЛО КЙС*4.20

SHOW JSR OBOW ВЫНЕСТИ АКТИШЫЙ НАБОР

JSR COLM ВЫЗВАТЬ ПОДПРОГРАММ/ СОШ LEA A CFLAG НЕОВХОДИШ ПЕОВВРИТЬ ФЛАЖОК СТОЛБЦА

СЙР А #S00 ПРОВЕРИТЬ АКТИВНОСТЬ СТОЛБЦА BEQ SHOW НЕ АКХИШНЙ СТОЛШЦ.ПОВЮРЙТЬ ЦИ-Ю1

АКТИВНЫЙ СЮЛШЦ,КАКОЙ ШВНО?

JSR KEW КОНЕЦ РИС.4.20 НАЧАЛО PHCV4.21

***** ПУЛЬТ АКТИВЕН *

х * (П1АГ 1)

х *х )Ш Н 1( 1

Рис. 4.25. Программа иа языке ассемблера микропроцессора 6800, предшжзка-чеииая для ввода информации с клавиатуры и вывода ее иа иядакатор.

303 0CiE6

304 O0E6

305 00B7

306 00E7

307 OOET

308 00B7

309 OOEA

310 OOBB

311 OOEB

312 OOEB

313 OOEB

314 OOEB

315 OOEB

316 OOEB

317 OOEB

318 OOEB

319 OOEB

320 OOEB

321 OOEB

322 OOEB

323 OOEB

324 OOEB

325 OOEE

326 OOEB

327 OOEB

328 OOEE

329 OOEB

330 OOEE

331 OOBB

332 OOFO

333 00F3

334 ООГЗ 33 5 ООГЗ

336 OOi3

337 00F5

338 OOF8

339 OOF8

340 00F8

341 OOF8

342 OOF9

343 OOF9

344 OOF9

345 OOF9

346 OOFC

347 OOFC

348 OOFC

349 OOFC 3 50 OOFD

351 OOFD

352 OOFD

353 OQFD

354 OOFF

355 OOFF

356 OOFF

357 OOFF

358 0100

359 0100

360 0100

361 0100

362 0100

0 jsbbobs

U059 1 0060 О061 0062

00 63 00055

0064 00056

0065 00057

0066 00058

0067 00059

0068 00060

0069 00061 070 000 62

0071 00063

0072 00064

0073 00065

0074 00066

0075 00067

0076 00068

0077 000 69

0078 00070

0079 00071

0080 00072 *0081 00073

0082 00074

0083 00075 008 4 00076 0085 00077 008 6 00078

0087 00079

0088 00080

0089 00081

0090 00082

0091 00083

0092 00084

0093 00085

0094 0008 6

0095 00087

0096 00088

0097 00089

0098 00090

0099 00091

0100 00092

0101 00093

0102 00094

0103 00095

0104 00096

0105 00097

0106 00098

0107 00099

0108 00100

0109 00101

0110 00102

0111 00103

0112 00104

0113 00105

0114 00106

0115 00107

0116 ooloe

ОПТ 00109 0118 1

PAGE 2 I425 WED OCT. 03,t9T9 1 1: 22:42.58

tczb B6 1000 LDA A KTIME

2)

FC2E 81 PC30 2T

00 25

CMP A #S00 BEQ KCL01

HE ШРШЙ РАЗ

******{ШГ 7) *

ГСЗг P5 1002 LEA в KWGHT

PC35 В6 1003 LDA A KCOMP

FC38 11 CBA

FC39 27 08 BEQ KCL02

****** (шаг 8) *

FC3B 8 6 00 LDA A #S00

FC3D B7 1000 STA A KTIME

FC40 ТЕ FC62 JMP KCLO3

** * *(ШАГ 9)

FC43 B6 lOOO KCL02 LDA A KTIME

FC46 4C INC A

FC47 B7 1000 STA A*KTIME

(ШАГ 10)

FC4A 81 32 CMP A #50

FC4C 26 14 BNE KCLO3

FX;4E BD FC6A JSR KOPN

FC51 BD FCA3 JSR KOUT

FC54 7E FC1B JMP SROW *

FC57 B6 1002 KCLOl LDA A KWGHT

FC5A B7 1003 STA A KCOMP

*** )(*(шАг 4) *

FC5D 86 FC5F B7

1000

FC62 86 FC64 B7

1004

LDA A #S01 STA A KTIME

** **(ШАГ 5)

КСЬЬЗ LDA A #S0l STA A KTOW

*** *(ШАГ 6)

FC67 7E FCIB JMP SroW

PAGE 3 F425 WED OCT 03,

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

ktime-ott

ДА.ЗТО ПКРЕЫЙ РАЗ

КАКАЯ ЦИФРА ШЛА НАВРАНА??? РЕГИСТР А=КСОМР СРАВНИТЬ ДНЕ НЕЛИЧИНЫ ДА,ОНИ РАВНЫ

ОНИ НЕ РАВШ

ПЕРЕЗАПИСАТЬ KTIME

ИДТИ НА ПЕРЕЗАГРУЗКУ AKT.HABQPl

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

KTIME=KTIME+1

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

KTIMS=50?? ЕЩЕ НЕ 50

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

KC0M1=KWGHT УСТАНОВИТЬ КГ1МЕ=1

УСТАНОВИТЬ АКТ.НАБ.=00000001

ИДТИ НА НАЧАЛО ПРОГРАММЫ 1979 11:22:42.58

0119 0120 0121 0122 0123 0124 0125 0126 OUT 0128 0129 0130 0131 0132 0133 0134 0135

0136 0137

0138 0139 0140 0141 0142 0143 0144 Э145 0146 0147 0148 0149 0150 0151 0152 0153 0154 01 55 0156 0157 0158 0159 0160 0161 01 62

0163

01 64 0165 01 66 01 67 01 68 0169 0170 0171 0172 0173 0174 0175 0176 0177 0178

00110 00111 00112 00113 OOII4 00115 00116 00117 001 18 0011 9 00120 00121 00122 00123 00124 00125 00126 00127 00128 00129 00130 00131 00132 00133 00134 00135

00136

00137 00138 00139 00140

00141

оомг

QQ143 00144

0014 5 001 4 6 0014 7 00148 00149 00150 00151 00152 00153 00154 00155 00156 00157 00158 00159 00160 00161 00162

00163

00164

**** НАЧАЛО ПРОГРАММЫ ****************************** И(Ч * ♦ !< * )( к )()( К *

- РИСУНОК 4.22

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

* *ч(шАГ 1)

FC6A FC6C FG6F FC70

FC73 ГСТб

FC79

FC7C

FC7F FCSl

FC8 3 FC8 6 FC8 7

FC8A FC8C

FC8E FC91 FC92 PAGii

8 6 01 KOPN

В7 1004

В? 1005

LDA А #S01 STA А KEOW DEC A STA A NROW

** ** (ШАГ 2) B7 1000 STA ft KTIME

******{шаг 3)

BD FCF2 К0РЫ1 JSR GROW

(ШЛГ 4) к

BD FCDF JSR COLM

(ШЛГ 5)

BS 1,001 81 00 2 6 E7

LDA A CFLAG CMP A *00

BNK KOPN

(1ддр 9)

В 6 1005 LDA A NROW

4C INC A

B7 1005 STA A NROW

* * (ШАГ 10)

8i 05 CMP A #05

2 6 E8 BNE KOPN]

х- (ШАГ 6)

KEOff=O0OOOOOl NEOW=00000000

кт11лз=а

вывести НАБОР

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

ВВЕСТИ ctlaj, CFLAa=0??

ПУЛЬТ ЕЩЕ НЕ СВОБОДЕН

ВВЕСТИ АКТИВНЫЙ НАБОР ЗАПИСАТЬ АКТИВНЫЙ НАБОР

СКАНИРОВАНИЕ НЕ ЗАКОНЧЕНО

86 1000 4С

87 1000

4 F425

LDA А KTIME INC А

STA А KTIME WED OCT 03,1979

11 : 22: 42.58