ПРИЛОЖЕНИЕ 2

Листинг программы

Ассемблер K580. Файл: kurs.as

T0 EQU 0

T1 EQU 1

T2 EQU 2

CWT EQU 3

PPA EQU 4

PPB EQU 5

PPC EQU 6

CWPPA EQU 7

STEAK EQU 40960

ORG 0

JMP START

ORG 40

JMP PRER

START: LXI SP,STEAK

MVI A,10010010B;Установка ППА в режим ввода по

OUT CWPPA; PA и PB и вывода по PC

call vvodXK

call y3

ei

begin:

call y1

call led

call vvodXK

jmp begin

hlt

y3:

mvi a,01010000b;установка T1 ПИТ - реж. 0

out CWT

mov a,c ;вычисление y3=2*max(x,k)

cmp b

jm m1

jmp endy3

m1: mov a,b

endy3:add a

out T1 ;запись в регистр T1 зачения интервала

времени Y3=0

mvi a,00111110b ; установка Т0 в - реж. 3

out CWT

mvi a,11101000b ; запись в регистр Т0 числa

out T0 ; коэффициент деление

mvi a,00000011b ;равного

out T0 ; 1000

ret

vvodXK: in PPA ;ввод Х

mov b,a ; В рег. В сохраняем значение Х

in PPB ;ввод К

mov c,a ; В рег. С сохраняем значение А

ret

y1:mov a,c

add a

cmp b

jp m2

jmp endy1

m2: mov a,b

endy1:add b

ani 0fh ;выделение младшей тетрады

out PPC ;вывод в порт С

ret

led:mov a,c

add c

add c

add c

mov d,a

mov a,c

ana b

cpi 10h

jmp endl

m3: mvi a,10h

endl:sub d

ani 11110000b ;выделение старшей тетрады

out PPC ;вывод в порт С

ret

PRER:

push psw

push b

push d

push h

di

mov a,b

xra c

mov d,a

mov a,c

cma

cmp b

jp m4

jmp endr

m4: mov a,b

endr:add d

mov d,a

mvi A,10111110b ; ПИТ - реж. 3

out CWT

mov a,d

out T2

ei

pop h

pop d

pop b

pop psw

ret

ПРИЛОЖЕНИЕ 3

Схема электрическая принципиальная