*file to maintain detailed information about persons
*equates
bdos	equ	05h
acr	equ	0dh
alf	equ	0ah
printf	equ	09h
readf	equ	0ah
charin	equ	01h

	org	100h
	lhld	bdos+1
	sphl

	lxi	d,onmsg
	call	pbuff
	call	getch
	cpi	'e'
	jz	enter
	cpi	'd'
	jz	delete
	cpi	'r'
	jz	revise
	cpi	0dh
	jz	boot
	cpi	'l'
	jz	lookup
	cpi	'0'
	jm	boot
	cpi	40
	jp	boot
	jmp	phone
	jmp	0

enter	jmp	boot
delete	jmp	boot
revise	jmp	boot
lookup	jmp	boot
phone	jmp	boot

pbuff	mvi	c,printf
	jmp	bdos

rbuff	mvi	c,readf
	call	bdos

getch	mvi	c,charin
	call	bdos

boot	lxi	d,usrmsg
	call	pbuff
	jmp	0

onmsg	db	acr,alf
	db	'whadda ya want? $'
usrmsg	db	' need to know? $'