Демонстрация работы сo структурами

;pril_8.asm 
;1-добавление новой записи; 
;2-поиск записи; 
;3-удаление записи. 
.386 
MASM 
MODEL	use16 small	;модель памяти 
STACK	256	;размер стека 
include	mac.inc	;подключение файла с макросами 
 
worker	struc	;информацияао сотруднике 
nam	db	30 dup (' ')	;фамилия, имя, отчество 
sex	db	' '	;пол 
position	db	30 dup (' ')	;должность 
age	db	2 dup (' ')	;возраст 
standing	db	2 dup (' ')	;стаж 
salary	db	4 dup (' ')	;оклад в рублях 
birthdate	db	8 dup (' ')	;дата рождения 
worker	ends 
 
.data 
N=5			;размерность базы данных 
;массив структур 
StrWork	worker	<>	;рабочая структура для различных промежуточных манипуляций	 
sotr	worker N DUP (<>)	;массив структур 
 
mes1	db	10,13,10,13,'*************************************' 
	db	10,13,'*Демонстрация работы со структурами:*' 
	db	10,13,'*Режимы работы:                     *' 
	db	10,13,'*1-добавление;                      *' 
 	db	10,13,'*2-поиск;                           *' 
 	db	10,13,'*3-удаление;                        *' 
	db	10,13,'*0-выход.                           *' 
	db	10,13,'*************************************' 
	db	10,13,'Введите выбор : ','$' 
 
 
mname	db	10,13,10,13,'Введите имя (не более 30 символов) - $' 
msex	db	10,13,'Введите пол (''м'' или ''ж'') - $' 
mposition	db	10,13,'Введите должность (не более 30 символов) - $' 
mage	db	10,13,'Введите возраст (не более 2 символов) - $' 
mstanding	db	10,13,'Введите стаж работы (не более 2 символов) - $' 
msalary	db	10,13,'Введите оклад (не более 4 символов) - $' 
mbirthdate	db	10,13,'Введите дату рожденияа (дд.мм.гг) - $' 
 
findname	db	10,13,10,13,'Введите имя для поиска - $' 
mes2	db	10,13,10,13,'Имя - ' 
mname1	db	30 dup (' ') 
	db	10,13,'Пол - ' 
msex1	db	' ' 
	db	10,13,'Должность - ' 
mposition1	db	30 dup (' ') 
	db	10,13,'Возраст - ' 
mage1	db	2 dup (' ') 
	db	10,13,'Стаж - ' 
mstanding1	db	2 dup (' ') 
	db	10,13,'Оклад - ' 
msalary1	db	4 dup (' ') 
	db	10,13,'Дата рождения - ' 
mbirthdate1	db	8 dup (' '),'$' 
 
mes3	db	10,13,10,13,'Запись успешно удалена!','$' 
Err1	db	10,13,10,13,'Нет места в базе данных.','$' 
Err2	db	10,13,10,13,'Такой записи нет в базе данных! Повторите запрос.','$' 
Thanks	db	10,13,10,13,'Спасибо за внимание! Успехов в освоении ассемблера!','$' 
Flag	db	0	;флаг для использования в процедуре delete 
 
.code 
	assume	ds:@data,es:@data 
main:		;начало программы 
	mov	ax,@data 
	mov	ds,ax	 
	xor	ax,ax 
	push	ds 
	pop	es 
;выбор режима работы: 
go: 
	OutStr	mes1	;вывод строки mes1 на экран 
	GetChar		;ввод и определение режима работы 
	cmp	al,31h 
	je	insert 
	cmp	al,32h 
	je	search 
	cmp	al,33h 
	je	delete 
	cmp	al,30h 
	je	exit 
	jmp	go 
 
Insert	proc 
;добавление новой записи 
;заполняем рабочую структуру 
	OutStr	mname	 
	GetStr	StrWork.nam,30 
	OutStr	msex	 
	GetStr	StrWork.sex,1 
	OutStr	mposition	 
	GetStr	StrWork.position,30 
	OutStr	mage	 
	GetStr	StrWork.age,2 
	OutStr	mstanding	 
	GetStr	StrWork.standing,2 
	OutStr	msalary	 
	GetStr	StrWork.salary,4 
	OutStr	mbirthdate	 
	GetStr	StrWork.birthdate,8 
;поиск свободного элемента в массиве структур (в ней все поля пустые): 
	lea	di,sotr 
	mov	cx,N 
cyc1: 
	cmp	[di].sex,' '	;будем искать свободную запись по пустому полю sex 
	je	m1 
	add	di,type	worker 
	loop	cyc1 
	OutStr	Err1 
	jmp	go 
;копируем StrWork в свободную запись базы данных 
m1:			 
	lea	si,StrWork	;откуда - ds:si 
;				;куда - es:di (уже загружены) 
	mov	cx,type worker 
rep	movsb 
;заканчиваем и уходим на основное меню программы: 
	jmp	go 
Insert	endp 
 
search	proc	near 
;процедурa поиска записи в массиве и вывода на экран ее содержимого 
	OutStr	findname 
	GetStr	StrWork.nam,30 
	push	ds 
	pop	es	 
	lea	bx,sotr 
	mov	cx,N 
cyc2:	 
	push	cx 
	mov	cx,30 
	mov	di,bx	 
	lea	si,StrWork 
repe	cmpsb		;будем искать путем сравнения цепочек 
	jcxz	m2	;если цепочки совпадают, то переход на m2 
	add	bx,type	worker 
	pop	cx 
	loop	cyc2 
	OutStr	Err2 
	jmp	go 
m2: 
	pop	cx	;удалим из стека cx 
	cmp	Flag,0 
	je	m22 
	ret 
m22: 
;выведем на экран содержимое найденной записи, ее адрес в bx	 
	mov_string	mname1,[bx].nam,30 
	mov_string	msex1,[bx].sex,1 
	mov_string	mposition1,[bx].position,30 
	mov_string	mage1,[bx].age,2 
	mov_string	mstanding1,[bx].standing,2 
	mov_string	msalary1,[bx].salary,4 
	mov_string	mbirthdate1,[bx].birthdate,8 
	OutStr	mes2 
	jmp	go 
search	endp	 
 
delete	proc 
;удаление - очистка полей структуры пробелами  
;сначала найдем нужную для удаления запись, для этого 
;частично используем код процедуры search. 
	mov	Flag,1	;указать на частичное использование кода search 
	call	search 
	mov	Flag,0	;сбросим Flag 
;адрес удаляемой строки в bx 
;очищаем поля записи, для чего используем макрокоманду null_string 
	null_string	[bx].nam,30 
	null_string	[bx].sex,1 
	null_string	[bx].position,30 
	null_string	[bx].age,2 
	null_string	[bx].standing,2 
	null_string	[bx].salary,4 
	null_string	[bx].birthdate,8 
	OutStr	mes3 
	jmp	go 
delete	endp 
 
exit: 
	OutStr	Thanks 
	_Exit	;стандартный выход; 
end	main		;конец программы;

1.

100.0M

10 декабря 2022 года

Петр В.

0 / / 10.12.2022

10 декабря 2022, 11:37:38

А где файл с макросами mac.inc ?

2.

100.0M

28 апреля 2021 года

ANJE

0 / / 28.04.2021

28 апреля 2021, 08:28:41

извините, что не по теме, но если вам нужны услуги по продвижению сайтов, то вам сюда https://incatalog.kz/
[Ссылка]
О нас
http://www.incatalog.kz

3.

100.0M

29 октября 2020 года

Эд17021978

0 / / 29.10.2020

29 октября 2020, 20:21:15

ok!

4.

100K

24 марта 2019 года

0 / / 24.03.2019

+2 / -0

24 марта 2019, 05:05:38

ебануться можно)

5.

97K

23 апреля 2016 года

Alexander Shmonov

0 / / 23.04.2016

+1 / -0

23 апреля 2016, 00:55:14

Для архитектуры 80386 можно уже не

Код:

mov ax,@data

    mov ds,ax

, а

Код:

mov ds,@data