Радио-86РК/Радио 04-88/Программа-мультиметр/Таблица 2

Материал из Emuverse
Версия от 16:48, 12 сентября 2008; Panther (обсуждение | вклад) (http://retro.h1.ru/RK86/Multim/MultmTbl2.txt)
(разн.) ← Предыдущая версия | Текущая версия (разн.) | Следующая версия → (разн.)
Данный материал защищён авторскими правами!

Использование материала заявлено как добросовестное, исключительно для образовательных некоммерческих целей.

Автор: А. ДОЛГИЙ

Источник: http://retro.h1.ru/RK86/Multim/Multimet.php

	; *** ПОДПРОГРАММА ИЗМЕРЕНИЯ ***
 	; ****** ПЕРИОДА СИГНАЛА *******
 	; "ASD* 06.06.87
3200 	ORG 	3200Н
A82B 		ЗАППДП: EQU 	0А82ВH
8002		ПОРТ: 	EQU 	8002Н
E000 		BT57: 	EQU 	0Е000Н
3200 E5 	ПЕР128: PUSH 	Н
3201 D5 		PUSH 	D
3202 C5 		PUSH 	B
3203 F5 		PUSH 	PSW
 	;ЗАПОМИНАНИЕ УКАЗАТЕЛЯ СТЕКА
3204 210000 		LXI 	H,0
3207 39 		DAD 	SP
3208 225432 		SHLD 	УКСТК
 	;ФОРМ. МАССИВА АДРЕСОВ ВОЗВРАТА
320B 31D632 		LXI 	SP,ABO3BP+128
320E 213032 		LXI 	Н,Ц1
3211 E5 		PUSH 	H
3212 0E3F 		MVI 	C,63
3214 213432 		LXI 	Н,Ц2
3217 E5 	M1: 	PUSH 	H
3218 0D 		DCR 	С
3219 C21732 		JNZ 	M1
 	;ЗАПИСЬ НАЧ. ЗНАЧЕНИЙ
321C 110000 		LXI 	D,0
321F 210280 		LXI 	H,ПОРТ
3222 7Е 		MOV 	А,М
 	;ЖДЕМ ИЗМЕНЕНИЯ СИГНАЛА
3223 46 	M2: 	MOV 	B,M
S224 B8 		СМР 	B
3220 СА2332 		JZ 	М2
 	;СТОП ПДП И В ОСН. ЦИКЛ
3228 ЗЕ80 		MVI 	А,80Н
322А 3208Е0 		SТА 	BT57+8
322D С33432 		JМР 	Ц2
 	;УКАЗАТЕЛЬ НА НАЧАЛО МАССИВА
 	;И СЧЕТ ЦИКЛОВ РЕГЕНЕРАЦИИ
3230 315632 	Ц1:	LXI 	SP,ABO3BP
3233 13 		INX 	D
 	;ПРОВЕРКА СОСТОЯНИЯ ПОРТА
3234 7E 	Ц2: 	MOV 	А,М
323S B8 		СМР 	B
3236 C8 		RZ
 	;ЗАПОМИН .НОВОГО СОСТОЯНИЯ
 	;И СЧЕТ ИЗМЕНЕНИИ
3237 47 		MOV 	B,A
3238 0D 		DCR 	С
3239 C0 		RNZ
 	;ИЗМЕРЕНИЕ ОКОНЧЕНО. ЗАПИСАТЬ
 	;В N1 ЧИСЛО ЦИКЛОВ РЕГЕНЕРАЦИИ
323А Е0 		ХСНG
3230 225032 		SHLD 	N1
 	;B N2 ЧИСЛО ПРОВЕРОК В ПОСЛ .ЦИКЛЕ
323Е 21AAD7 		LXI 	Н,0-АВОЗВР
3241 39 		DAD 	SP
3242 225232 		SHLD 	N2
 	;ВОССТ. СОСТОЯНИЕ ПРОЦЕССОРА
3245 2А5432 		LHLD 	УКСТК
3248 F9 		SPHL
3249 F1 		POP 	PSW
324A С1 		POP 	B
3240 D1 		POP 	D
324C E1 		POP 	H
324D C32DF8 		JMP 	ЗАППДП
 	;АДРЕСА ЯЧЕЕК ОЗУ
3250 		N1: 	DS 	2
3252 		N2: 	DS 	2
3254 		УКСТК : DS 	2
3256 		ABO3BP: DS 	128
32D6 		END