.386
.model	tiny,c
.stack	0

wmake	segment	use16
assume	cs:wmake,ds:wmake,es:wmake
org	100h

prog:		jmp	near ptr progr

targyrag	equ	1

aptuf		equ	0

jelzo		db	0
ifile		dw	0
ofile		dw	0
bseg		dw	0

;boffs		dw	0
;tseg		dw	0
;toffs		dw	0
;kseg		dw	0
;useg		dw	0

uzenet		dw	0
;mennyit	dw	0

szoseg		dw	0
szavmut		dd	0
szbyt		db	0
attr		db	0
szavacska	db	114 dup(0)
ksbyt		db	0
nagybet		db	0
szohossz	dw	0
aktszo		dw	0
szocska		db	128 dup(0)
blokker		dw	0
szocskho	dw	0
olvnev		dw	0
kiterj		dw	0
ziptab		db	184 dup(0)
sorszam		dw	0
dseg		dw	36 dup(0)
desa		dw	36 dup(0)
blokk		dw	1296 dup(0)
asctab		db	" a oąuŁiĄebcdfghjklmnpqrstvwxyz"
		db	"AOUIEBCDFGHJKLMNPQRSTVWXYZ"
		db	"0123456789-/\'>$%*`(<[+=&@#]",34
		db	" .,;:?!){}Ä~",0,13,10,9
htx1		db	"Nincs elg szabad t r.",13,10,36
htx2		db	"Hi nyzą forr s.",13,10,36
htx3		db	"Hib s vagy nem ltez <$"
htx4		db	"> file.",13,10,36
htx5		db	"Rendben.",13,10,36
htx6		db	"Sz ml l s... $"
htx7		db	"T rol s... $"
htx8		db	"Hiba a$"
htx9		db	"> sząban: $"
htx10		db	"szinonima!",13,10,36
suttog		dw	0,0
vegszo		db	128 dup(0)
siptab		db	184 dup(0)
uan		db	0
aktum		dw	0,0
own		db	0
xown		db	0
elotet		db	0
synoj		db	0

egyhossz	dw	0
egykezd		dw	0
egymut		dw	vesa
maxmut		dw	vesa+512+aptuf
mondmut		dw	vesa+512+aptuf
mmaxmut		dw	stabl+1024
pamut		dw	0

libnum		dw	1
lpmret1		dw	2
lpmret2		dw	0
vonzat		dw	2
vonmret		dw	2
ldxpuf		dw	0
libpuf1		dw	0
libpuf2		dw	0
vnzpuf		dw	0
vonpuf		dw	0

conan		db	0
utsbet		db	0
utscim		dw	0
kthang		db	0
ktmgh		db	1,3,9,11	;	"aoe"
blagga		db	38,48,69,39,49,65,66,67

szavunk		db	260 dup(0)
vesa		db	512 dup(0)
		db	aptuf dup(0)
stabl		db	1024 dup(0)

progr:		push	512
		mov	bx,70000/16+1
		popf
		mov	ah,4ah
		int	21h
		mov	ax,65535
		call	fogl
		jc	mhiba
		mov	bseg,ax
		mov	ax,65535
		call	fogl
		jc	mhiba
		mov	ldxpuf,ax
		mov	br es:[0],1
		mov	ax,65535
		call	fogl
		jc	mhiba
		mov	libpuf1,ax
		mov	ax,65535
		call	fogl
		jc	mhiba
		mov	libpuf2,ax
		mov	ax,65535
		call	fogl
		jc	mhiba
		mov	vnzpuf,ax
		mov	ax,65535
		call	fogl
		jc	mhiba
		mov	vonpuf,ax

		mov	suttog+2,cs

		mov	si,80h
		mov	dx,offset htx2
		movzx	cx,byte ptr [si]
		jcxz	hiba
		push	ds
		mov	di,offset progr
		inc	si
		dec	cx
		inc	si
		pop	es
		mov	dx,si
		rep	movsb
		mov	byte ptr [si],"."
		movsb
		mov	kiterj,si
		mov	olvnev,dx
		mov	dword ptr [si],"cfd"
		mov	dword ptr [di],"swt"
		mov	ax,3d00h
		int	21h
		jnc	hibok
dfhiba:		push	cs
		pop	ds
fhiba:		mov	si,82h
		jmp	hhiba
chiba:		mov	si,offset progr
hhiba:		mov	dx,offset htx3
		mov	ah,9
		int	21h
		mov	cx,64
		mov	ah,2
hikir:		mov	dl,[si]
		or	dl,dl
		jz	hixir
		int	21h
		inc	si
		loop	hikir
hixir:		mov	dx,offset htx4
hiba:		mov	ah,9
		int	21h
		int	20h
hibok:		mov	ofile,ax

		mov	dx,offset ziptab
		mov	cx,184+2+2*36+2*36+2*1296
		mov	bx,ofile
		mov	ah,3fh
		int	21h
		jc	fhiba
		push	ds
		pop	es
		mov	cx,92
		mov	si,offset ziptab
		mov	di,offset siptab
		rep	movsw
		mov	ax,sorszam
		add	ax,ax
		add	ax,ax
		call	fogl
		jnc	hihib
mhiba:		mov	dx,offset htx1
		jmp	hiba
hihib:		mov	szoseg,ax
		xor	si,si
secikl:		mov	ax,dseg[si]
		or	ax,ax
		jz	sgures
		inc	ax
		push	si
		call	fogl
		pop	si
		jc	mhiba
		mov	cx,desa[si]
		mov	dseg[si],ax
		jcxz	sgures
		push	cx
		mov	ds,bseg
		push	si
		xor	dx,dx
		mov	bx,cs:ofile
		mov	ah,3fh
		int	21h
		pop	si
		pop	cx
		jc	dfhiba
		push	si
		xor	di,di
		xor	si,si
		call	unpack
		;call	unzip
		;push	es
		;pop	ds
		pop	bx
		push	bx
		shr	bx,1
		mov	al,72
		push	cs
		mul	bl
		pop	es
		add	ax,offset blokk
		xchg	ax,di
xlolp:		mov	ax,-1
		scasw
		je	bltov
		push	di
		push	es
		mov	es,es:szoseg
blszo:		cmp	si,cx
		jae	blujb
		mov	bp,si
		lodsw
		or	al,al
		js	dlujb
		lodsb
		and	ax,31
		add	si,ax
		lodsw
		add	al,al
		add	ax,ax
		xchg	ax,di
		xchg	ax,bp
		stosw
		mov	ax,bx
		stosw
		jmp	blszo
dlujb:		dec	si
blujb:		pop	es
		pop	di
bltov:		inc	bh
		cmp	bh,36
		jb	xlolp
		push	es
		pop	ds
		pop	si
sgures:		inc	si
		inc	si
		cmp	si,2*36
		jb	secikl
		mov	bx,ofile
		mov	ah,3eh
		int	21h

		mov	si,kiterj
		mov	dword ptr [si],"bil"

;		mov	dx,olvnev
;		mov	ax,3d00h
;		int	21h
;		jc	fhiba
;		mov	ofile,ax
;		mov	dx,offset htx6
;		mov	ah,9
;		int	21h
;		mov	si,80h
;		mov	cx,32
;npush:		push	dword ptr ds:[si]
;		add	si,4
;		loop	npush
;		mov	fs,bseg
;		mov	gs,kseg

;ujszov:	call	beszov
;		jc	igazi
;		jcxz	ujszov
;		mov	bp,cx
;ujuj:		lodsb	fs:[si]
;		or	al,al
;		jz	szamol
;		cmp	al,89
;		jae	szamol
;		call	szip
;		jnc	szoval
;szamol:	and	eax,255
;		inc	dword ptr gs:[4*eax]
;nemszam:	dec	bp
;		jnz	ujuj
;		jmp	ujszov
;szoval:	and	eax,3fffh
;		mov	es,useg
;		inc	dword ptr es:[4*eax]
;		jmp	nemszam

;igazi:		mov	bx,ofile
;		mov	ah,3eh
;		int	21h
;		mov	si,80h+(32-1)*4
;		mov	cx,32
;npop:		pop	dword ptr ds:[si]
;		sub	si,4
;		loop	npop

;		push	ds
;		mov	di,offset ziptab
;		mov	cx,120
;		pop	es
;kisker:	xor	ebx,ebx
;		lea	esi,ds:[255]
;nagyker:	cmp	ebx,gs:[4*esi]
;		jg	nagytov
;		mov	ebx,gs:[4*esi]
;		mov	eax,esi
;nagytov:	dec	esi
;		jns	nagyker
;		mov	gs:[4*eax],esi
;		stosb
;		loop	kisker
;		mov	gs,useg
;		mov	cx,32
;sisker:	xor	ebx,ebx
;		lea	esi,ds:[3fffh]
;sagyker:	cmp	ebx,gs:[4*esi]
;		jg	sagytov
;		mov	ebx,gs:[4*esi]
;		mov	eax,esi
;sagytov:	dec	esi
;		jns	sagyker
;		mov	gs:[4*eax],esi
;		stosw
;		loop	sisker

		xor	cx,cx
		mov	dx,olvnev
		mov	ax,3d00h
		int	21h
		jc	fhiba
		mov	ofile,ax
		mov	dx,offset progr
		mov	ah,3ch
		int	21h
		jc	chiba
		mov	ifile,ax
		;mov	dx,offset htx7
		;mov	ah,9
		;int	21h

ujszov:		mov	synoj,0
		call	beszov
		jc	siker
		jcxz	ujszov
		push	ds
		or	ch,ch
		push	es
		jz	joho
		mov	cx,256
joho:		pop	ds
		mov	di,offset szavunk
		pop	es
harap:		push	cx
		push	di
		rep	movsb
		pop	si
		pop	cx
		push	es
		pop	ds
		mov	word ptr [di],128
		call	ananame
		shr	cx,1
		cmp	libnum,16112
		jcxz	ujszov
		jae	ujszov
		cmp	cx,31
		jbe	hammu
		mov	cx,31
hammu:		cmp	synoj,0
		je	sima

		xor	bx,bx
		xor	bp,bp
bambi:		mov	es,ldxpuf
		mov	al,es:[bx]
		mov	dl,al
		and	ax,31
		mov	di,bp
		jz	nehha
		add	bp,ax
		test	dl,64
		jz	ha0
		or	dl,128
		dec	ax
		jz	nehha
ha0:		or	dl,dl
		jns	ha1
		dec	ax
		jz	nehha
ha1:		cmp	ax,cx
		mov	dx,lpmret1
		jne	nehha
		shr	dx,1
		cmp	di,dx
		mov	es,libpuf1
		jb	hahha
		sub	di,dx
		mov	dx,lpmret2
		shr	dx,1
		cmp	di,dx
		mov	es,libpuf2
		jae	nehha
hahha:		add	di,di
		push	cx
		push	si
		repe	cmpsw
		pop	si
		pop	cx
		je	vahha
nehha:		inc	bx
		cmp	bx,libnum
		jb	bambi
ehha:		call	error
		mov	dx,offset htx10
		mov	ah,9
		int	21h
		jmp	ujszov

vahha:		mov	di,lpmret2
		or	di,di
		mov	si,2
		jnz	hehha
		xor	si,si
		mov	di,lpmret1
		or	di,di
		jz	ehha
hehha:		mov	ax,libnum
		dec	ax
		mov	es,ldxpuf
		xchg	ax,bx
		mov	dl,es:[bx]
		jz	ehha
		mov	dh,dl
		and	dl,31
		jz	ehha
		or	dh,dh
		jns	riha
		test	dh,64
		jnz	dirhat
riha:		cmp	dl,31
		jb	rihha
		or	dh,dh
		jns	dirhat
		mov	cx,es:[di-2]
		mov	es:[di-4],cx
dirhat:		dec	di
		dec	di
		jmp	irhat
rihha:		inc	dl
		and	dh,224
		or	dh,dl
irhat:		or	dh,dh
		jns	irha
		or	dh,64
irha:		or	dh,128
		mov	es:[bx],dh
		test	dh,64
		mov	es,libpuf1[si]
		jz	firha
		cmp	ax,es:[di-2]
		jae	firha
		xchg	ax,es:[di-2]
firha:		stosw
		mov	lpmret1[si],di
		jmp	ujszov

sima:

;		push	cx
;		push	si

		mov	ax,lpmret1
		xor	bx,bx
		mov	di,ax
		shr	ax,1
		add	ax,cx
		cmp	ax,32636
		jae	rimmu
		cmp	bx,lpmret2
		je	remmu
rimmu:		mov	ax,lpmret2
		inc	bx
		mov	di,ax
		shr	ax,1
		add	ax,cx
		inc	bx
		cmp	ax,32636
		jae	ujszov
remmu:		mov	es,libpuf1[bx]
		mov	ax,cx
		rep	movsw
		mov	lpmret1[bx],di
		or	al,jelzo
		mov	di,libnum
		mov	es,ldxpuf
		stosb

		mov	di,libnum
		mov	es,vnzpuf
		add	di,di
		push	ds
		cmp	di,vonzat
		mov	si,es:[di]
		jae	emmu
		or	si,si
		jz	emmu
		cmp	si,vonmret
		mov	ds,vonpuf
		jae	immu
		mov	ax,[si]
		or	ax,ax
		js	emmu
		cmp	ax,targyrag
		jne	emmu
		mov	word ptr ds:[si],0
		sub	cs:vonmret,2
immu:		mov	ax,-1
		stosw
emmu:		pop	ds

		inc	libnum

;		pop	si
;		pop	cx

;hiuz:		lodsw
;		push	cx
;		push	si
;		xchg	ax,bx
;		mov	ax,-9
;		call	nyers
;hakni:		lodsb
;		mov	bx,offset asctab
;		xlat
;		xchg	ax,dx
;		mov	ah,2
;		int	21h
;		loop	hakni
;		xor	dl,dl
;		mov	ah,2
;		int	21h
;		pop	si
;		pop	cx
;		loop	hiuz

		jmp	ujszov

;		mov	dx,offset ziptab
;		mov	cx,184
;		mov	bx,ifile
;		mov	ah,40h
;		int	21h

;		inc	uzenet
;		mov	dx,offset uzenet
;		mov	cx,4
;		mov	ah,40h
;		int	21h
;		dec	uzenet
;		jz	siker
;		mov	uzenet,0

;		mov	fs,bseg
;bebek:		call	beszov
;		jc	siker
;		mov	es,tseg
;		stosw
;		jcxz	semmi
;		;call	szvip
;		call	zip
;semmi:		mov	es:[0],cx
;		mov	bx,ifile
;		push	es
;		inc	cx
;		xor	dx,dx
;		inc	cx
;		pop	ds
;		mov	ah,40h
;		int	21h
;		push	cs
;		pop	ds
;		jc	chiba
;		add	mennyit,cx
;		jmp	bebek

siker:		mov	bx,ofile
		mov	ah,3eh
		int	21h

		shr	lpmret1,1
		shr	lpmret2,1
		shr	vonzat,1
		and	byte ptr vonmret,254

		mov	dx,offset libnum
		mov	cx,10
		mov	bx,ifile
		mov	ah,40h
		int	21h
		jc	chiba
		xor	dx,dx
		mov	cx,libnum
		mov	bx,ifile
		mov	ah,40h
		jcxz	ch0
		push	ds
		mov	ds,ldxpuf
		int	21h
		pop	ds
		jc	chiba
ch0:		xor	dx,dx
		mov	cx,lpmret1
		mov	bx,ifile
		add	cx,cx
		mov	ah,40h
		jcxz	ch1
		push	ds
		mov	ds,libpuf1
		int	21h
		pop	ds
		jc	chiba
ch1:		xor	dx,dx
		mov	cx,lpmret2
		mov	bx,ifile
		add	cx,cx
		mov	ah,40h
		jcxz	ch2
		push	ds
		mov	ds,libpuf2
		int	21h
		pop	ds
		jc	chiba
ch2:		xor	dx,dx
		mov	cx,vonzat
		mov	bx,ifile
		add	cx,cx
		mov	ah,40h
		jcxz	ch3
		push	ds
		mov	ds,vnzpuf
		int	21h
		pop	ds
		jc	chiba
ch3:		xor	dx,dx
		mov	cx,vonmret
		mov	bx,ifile
		mov	ah,40h
		jcxz	ch4
		push	ds
		mov	ds,vonpuf
		int	21h
		pop	ds
		jc	chiba
ch4:		mov	bx,ifile
		mov	ah,3eh
		int	21h
		mov	dx,offset htx5
		mov	ah,9
		int	21h
		int	20h
;------------------------------------------------------------------------------

;------------------------------------------------------------------------------
olvalt:		mov	bx,ofile
		mov	cx,1
		mov	dx,81h
		mov	ah,3fh
		int	21h
		jc	olveg
		cmp	al,1
		jb	olveg
		mov	al,ds:[81h]
		cmp	al,"["
		je	megje
		cmp	al,"{"
		je	megje
		cmp	al,"\"
		je	ujfile
		push	ds
		mov	cx,htx1-asctab
		mov	di,offset asctab
		pop	es
		repne	scasb
		mov	ax,di
		sub	ax,offset asctab+1
olveg:		ret
megje:		add	al,2
		xchg	ax,bx
megev:		push	bx
		mov	cx,1
		mov	dx,81h
		mov	ah,3fh
		mov	bx,ofile
		int	21h
		pop	bx
		jc	olveg
		cmp	al,1
		jb	olveg
		mov	al,ds:[81h]
		cmp	al,bl
		jne	megev
		jmp	olvalt
ujfile:		mov	cx,64
		inc	dx
		mov	ah,3fh
		int	21h
		jc	fhiba
		mov	cx,ax
		mov	di,dx
		jcxz	megvan
megcikl:	cmp	byte ptr [di],33
		jb	megvan
		inc	di
		loop	megcikl
megvan:		mov	[di],ch
		mov	ah,3eh
		int	21h
		mov	ax,3d00h
		int	21h
		jc	fhiba
		mov	ofile,ax
		jmp	olvalt

olvtov:		call	olvalt
		jc	tolveg
		or	al,al
		jz	olvtov
		cmp	al,112
		jae	olvtov
		clc
tolveg:		ret
;------------------------------------------------------------------------------

;------------------------------------------------------------------------------
beszov:		mov	es,bseg		;	Betlt egy szveget BSEG-be.
		xor	di,di
		xor	cx,cx
beszop:		push	di
		push	es
		call	olvalt
		pop	es
		pop	di
		jc	tolveg
		cmp	al,31
		je	verbs
		cmp	al,66
		jne	nonverbs
verbs:		mov	jelzo,0
nonverbs:	cmp	al,25
		je	nouns
		cmp	al,60
		jne	nonnouns
nouns:		mov	jelzo,32
nonnouns:	cmp	al,81
		je	szino
		cmp	al,85
		je	szino
		cmp	al,94
		je	szino
		cmp	al,101
		je	szino
		cmp	al,104
		jne	nonszino
szino:		mov	synoj,1
nonszino:	cmp	al,91
		jne	beszop
besziv:		push	di
		push	es
		call	olvalt
		pop	es
		pop	di
		jc	bescxz
		cmp	al,85
		je	bescxz
		cmp	al,112
		jae	beszel
bebesz:		stosb
bebev:		jmp	besziv
beszel:		xor	al,al
		or	di,di
		mov	ah,es:[di-1]
		jz	bebesz
		cmp	al,ah
		je	bebev
		cmp	ah,96
		jb	bebesz
		cmp	ah,112
		jb	bebev
		jmp	bebesz
bescxz:		mov	cx,di
		xor 	si,si
		xor	di,di

		jcxz	beszop

		inc	uzenet

		ret
;------------------------------------------------------------------------------

;------------------------------------------------------------------------------
fogl:		or	ax,ax
		jz	nemfogl
		mov	bx,ax
		shr	bx,4
		and	al,15
		jz	lefogl
		inc	bx
lefogl:		push	bx
		mov	ah,48h
		int	21h
		pop	cx
		jc	nemfogl
		push	ax
		add	cx,cx
		mov	es,ax
		add	cx,cx
		xor	di,di
		xor	eax,eax
		rep	stosd
		pop	ax
nemfogl:	ret
;------------------------------------------------------------------------------

;------------------------------------------------------------------------------
unzip:		push	si		;	Szveg kitmrĄtse DS:[SI]-bl
		xor	bp,bp
		push	di		;	ES:[DI]-be, CX db. byte-ot.
		mov	bx,bp
		mov	cx,bp
		jmp	unkezd
unzilp:		cmp	bl,8
		jae	tartab
		mov	cl,5
		cmp	bl,4
		jae	csomag
		shl	bl,cl
		mov	bh,bl
		call	kiforg5
		or	bl,bh
		xor	bh,bh
tartab:		mov	al,cs:siptab[bx-8]
teltar:		stosb
unkezd:		call	kiforg
		jnz	unzilp
xilw:		mov	cx,di
		pop	si
		pop	di
		sub	cx,si
		ret
csomag:		je	szavak
		cmp	bl,6
		je	szo10
		ja	szo15
		call	kiforg5
		mov	cl,5
		shl	bl,cl
		mov	bh,bl
		call	kiforg5
		or	bl,bh
		xor	bh,bh
		mov	al,bl
		jmp	teltar
szo15:		call	kiforg5
		mov	bp,bx
		mov	cl,5
		shl	bp,cl
		call	kiforg5
		or	bp,bx
		mov	cl,5
		shl	bp,cl
		call	kiforg5
		or	bp,bx
		mov	ax,bp
		xor	bp,bp
		jmp	szavam
szo10:		call	kiforg5
		or	bp,bx
		mov	cl,5
		shl	bp,cl
		call	kiforg5
		or	bp,bx
		mov	ax,bp
		xor	bp,bp
		jmp	szvamax
szavak:		call	kiforg5
		add	bx,bx
		mov	ax,word ptr cs:siptab[bx+120]
szvamax:	add	ax,ax
szavam:		push	cx
		push	si
		push	ds
		push	cs
		pop	ds
		call	sunzip
		pop	ds
		xor	bx,bx
		pop	si
		mov	bp,bx
		pop	cx
		jmp	unkezd

dkforg:		lodsw
		mov	ch,16
		xchg	al,ah
		mov	dx,ax
kiforg:		mov	cl,5
kiforg5:	sub	ch,cl
		jb	felforg
kifli:		rol	dx,cl
		mov	bl,dl
		and	bl,31
		ret
felforg:	add	cl,ch
		jz	dkforg
kurcl:		rol	dx,1
		adc	bl,bl
		dec	cl
		jnz	kurcl
		lodsw
		mov	cl,ch
		xchg	al,ah
		mov	dx,ax
kurbl:		rol	dx,1
		adc	bl,bl
		inc	cl
		jnz	kurbl
		add	ch,16
		and	bl,31
		ret
;------------------------------------------------------------------------------

;------------------------------------------------------------------------------
nyers:		cmp	ah,127
		je	xprosszo
		cmp	ah,253
xprosszo:	jae	sprosszo
		and	ah,63
		or	ax,ax		;	Az AX. sząt betlti a sząt rbąl
		jz	rosszo		;	egy pufferba. Kimenet:
		cmp	ax,sorszam	;	DS:[SI] = kezdcĄm (szavacska),
		jae	rosszo		;	CX = a szą hossza,
		cmp	ax,aktszo	;	AX = sorsz m,
		mov	aktszo,ax	;	CF = 1, ha rossz volt az input,
		je	marad		;	ZF = 0, ha nagybets a szą.
		add	ax,ax		;	(+bemenet sz mnv esetn:
		add	ax,ax		;	BX/DX = a sz mrtk!!!)
		push	ds
		mov	di,ax
		mov	ds,szoseg
		mov	si,[di]
		mov	ax,[di+2]
		pop	es
		mov	di,offset szbyt
		mov	bx,ax
		and	bx,63
		add	bx,bx
		mov	ds,es:dseg[bx]
		movsw
		jz	vegyes
		stosw
		mov	bl,2
vegyes:		lodsb
		test	al,64
		mov	es:ksbyt,al
		pushf
		and	ax,31
		popf
		mov	cx,ax
		jz	timpike
		jcxz	timpike
		call	kicsom
timpike:	add	al,bl
timea:		cmp	cx,112
		ja	nattim
timike:		shr	cx,1
		jnc	vevex
		movsb
vevex:		push	es
		rep	movsw
		pop	ds
		mov	szohossz,ax
		mov	word ptr [di],128
		call	utsmegh
		mov	ax,aktszo
marad:		mov	si,offset szavacska
		mov	cx,szohossz
		and	ksbyt,32
		ret
sprosszo:	mov	ah,255
rosszo:		cmp	ax,-16
		jae	russzo
		call	marad
		stc
osszo:		ret

nattim:		mov	cx,112
		jmp	timike

russzo:		push	ax
		cmp	al,-8
		push	bx
		xchg	ax,bx
		jae	rousseau
		xor	dx,dx
rousseau:	push	dx
		call	sztram
		pop	dx
		pop	bx
		pop	ax
		jc	osszo
		cmp	ax,aktszo
		mov	aktszo,ax
		jne	nemmar
		cmp	bx,aktum
		jne	nemmar
		cmp	dx,aktum+2
		jne	nemmar
		xor	bx,bx
		jmp	marad
nemmar:		or	al,8
		mov	aktum,bx
		add	di,cx
		cmp	al,-2
		mov	aktum+2,dx
		je	kettt
		push	ax
		ja	minegy
		cmp	al,-8
		mov	al,-7
		jbe	kattt
minegy:		push	cx
		dec	ax
		push	si
		push	di
		push	aktszo
		call	nyers
		pop	aktszo
		pop	di
		pop	si
		pop	cx
kattt:		pop	ax
kettt:		cmp	al,-2
		mov	ah,al
		jae	usszo
		cmp	al,-7
		jbe	szaszo
		test	al,2
		mov	al,81		;	"-"
		jnz	ssz1
		inc	cx
		stosb
ssz1:		test	ah,1
		jnz	ssz2
resszo:		mov	al,17		;	"d"
		inc	cx
		stosb
ssz2:		inc	cx
		call	ikikk
		inc	cx
usszo:		jne	wesszo
szaszo:		cmp	al,-7
		mov	ah,conan
		mov	bx,di
		je	qsszo
		xor	dx,dx
		mov	word ptr vegszo,ax
		mov	si,offset vegszo+4
		xor	bp,bp
		mov	word ptr vegszo+2,dx
		mov	al,33
		call	kszazas
		inc	bp
		mov	al,32
		call	kszazas
		inc	bp
		mov	al,31
		call	kszazas
		cmp	aktum+2,0
		jb	ninc
		ja	binc
		cmp	aktum,10000
		jb	ninc
binc:		inc	bp
ninc:		xor	al,al
		call	kszazas
		cmp	bx,di
		mov	al,30
		jne	nenula
		call	kozvetl
nenula:		cmp	vegszo,-2
		xchg	ax,dx
		mov	si,offset vegszo+16
		jae	noztv
		cmp	al,34
		jae	noztv
		cmp	si,bx
		mov	di,bx
		jne	neegy
		cmp	al,1
		jne	ehegy
		mov	al,84		;	"els"
		call	kozvetl
		jmp	noztv
wesszo:		jmp	vesszo
qsszo:		jmp	esszo
ehegy:		cmp	al,2
		jne	neegy
		mov	al,36		;	"m sodik"
neegy:		xor	bp,bp
		add	al,33
		call	kozvetl
		call	ikikk
noztv:		mov	ax,71*(1+256)
		mov	cx,di
		mov	word ptr vegszo,ax
		mov	word ptr vegszo+2,ax
		sub	cx,si
vesszo:		mov	word ptr [di],128
		xor	bx,bx
		mov	ax,cx
		and	szbyt,252
		mov	di,offset szavacska
		mov	ksbyt,bl
		jmp	timea

esszo:		mov	al,81
		inc	cx
		stosb
		push	si
		mov	al,dl
		mov	si,7
		xor	dx,dx
hattlp:		cmp	al,blagga[si]
		jne	blatto
		cmp	si,2
		mov	al,11
		pop	si
		jb	tatto
		mov	al,3
		jmp	tatto
blatto:		dec	si
		jns	hattlp
		mov	al,kthang
		pop	si
		cmp	al,3
		je	sbatto
		cmp	al,11
		jne	hatto
sbatto:		dec	ax
		dec	ax
hatto:		and	al,63
tatto:		inc	cx
		stosb
		jmp	resszo

kszazas:	push	ax
		xor	ax,ax
		and	conan,191
		xchg	al,vegszo+2
		or	vegszo+3,al
		lodsb
		sub	al,71
		jbe	zsz1
		cmp	al,1
		ja	tbbsz
		cmp	ah,vegszo+3
		jz	egysz
tbbsz:		call	kozvetl
egysz:		mov	al,29
		call	kozvetl
zsz1:		lodsw
		xchg	al,ah
		sub	ax,71*(1+256)
		cmp	ax,200h
		jb	kissz
		je	hussz
		push	ax
		mov	al,ah
		add	al,19
		call	kozvetl
		pop	ax
		jmp	viss
hussz:		mov	al,10
kissz:		or	ah,ah
		jz	viss
		add	al,10
viss:		pop	cx
		mov	ah,vegszo+2
		or	cl,cl
		mov	ch,vegszo+1
		jnz	sraml
		and	ch,64
		or	conan,ch
sraml:		cmp	al,1
		push	cx
		jb	zsz2
		ja	zbbsz
		or	ah,vegszo+3
		jnz	zbbsz
		cmp	cl,31
		je	azvetl
zbbsz:		call	kozvetl
zsz2:		cmp	vegszo+2,0
		pop	ax		
		je	nuztv
		push	ax
azvetl:		pop	ax

kozvetl:	or	al,al
		cbw
		mov	byte ptr [di],81
		jz	nuztv
		test	conan,64
		push	ax
		jz	kztl
		cmp	al,2
		je	ketto
		cmp	al,12
		jne	kztl
ketto:		add	al,66
kztl:		cmp	ah,vegszo+3
		push	si
		je	kozvtl
		or	bp,bp
		mov	vegszo+3,ah
		jz	kozvtl
		inc	di
kozvtl:		push	di
		inc	vegszo+2
		call	nyers
		pop	di
		xor	bp,bp
		shr	cx,1
		mov	bx,di
		jnc	nyulb
		movsb
nyulb:		rep	movsw
		pop	si
		pop	dx
nuztv:		ret

ikikk:		and	attr,223
		mov	ax,7+256*22	;	"ik"
		and	szbyt,223
		or	attr,64
		stosw
		ret

utsmegh:	mov	utsbet,0
		mov	utscim,offset szavacska

		mov	cl,5
		mov	al,szbyt
		shr	ax,cl
		and	ax,3
		xchg	ax,si
		test	attr,64
		mov	al,ktmgh[si]
		jnz	kellh
		or	al,128
kellh:		mov	kthang,al
		ret

sunzip:		push	ds
		shr	ax,1		;	KitmrĄtskor tal lt sząt
		pushf			;	teszi be, ahov  kell.
		push	di
		mov	di,cs
		push	es
		mov	ds,di
		call	nyers
		pop	es
		pop	di
		jc	srro
		popf
		jnc	kisbet
		lodsb
		cmp	al,36
		jae	kiskis
		add	al,35
kiskis:		stosb
		dec	cx
kisbet:		shr	cx,1
		jnc	skisbet
		movsb
skisbet:	rep	movsw
		pop	ds
		ret
srro:		popf
		pop	ds
		ret

kicsom:		push	dx
		push	bx
		call	unzip
		mov	di,si
		pop	bx
		add	di,cx
		xor	ax,ax
		pop	dx
		xchg	ax,cx
		ret
;------------------------------------------------------------------------------

;------------------------------------------------------------------------------
elso_szo:	mov	al,szocska	;	A "szącska" pufferban lv sząt
		cmp	al,36		;	keressk a sząt rban, ehhez
		jb	kisbesz		;	jelenĄti meg az els illeszked
		cmp	al,71		;	sząt a "szavacska" pufferban.
		jae	kisbesz		;	(Elszr a saj t blokkj ban,
		sub	szocska,35	;	azut n a vegyesblokkban keres.)
		mov	al,-1
kisbesz:	mov	nagybet,al
		mov	ax,szocskho
		cmp	ax,126
		jbe	szocske
		mov	ax,126
		mov	szocskho,ax
szocske:	mov	bx,ax
		dec	ax
		mov	word ptr szocska[bx],128
		jz	vegyszo2
		js	nincszo
		mov	cx,ax
		mov	bx,word ptr szocska
		or	bl,bl
		jz	vegyszo
		or	bh,bh
		jz	vegyszo
		mov	al,36
		cmp	bl,al
		jae	vegyszo
		cmp	bh,al
		jae	vegyszo
		mov	blokker,bx
		add	bx,bx
		mul	bl
		add	al,bh
		adc	ah,ch
		mov	si,ax
		xor	bh,bh
		mov	ax,blokk[si]
bloblok:	mov	cx,dseg[bx]
		cmp	ax,-1
		je	vegyszo
		jcxz	megyszo
		mov	word ptr szavmut,ax
		mov	word ptr szavmut+2,cx

uj_szo:		mov	di,blokker	;	A kvetkez illeszked szą.
		mov	bp,szocskho
		push	ds
		pop	es
		push	ds
		lds	si,szavmut
		jmp	uscikl

megyszo:	or	bx,bx
		jnz	vegyszo
nincszo:	stc
		ret
ujveg:		or	di,di
		pop	ds
		jz	nincszo
vegyszo:	xor	ax,ax
vegyszo2:	mov	bx,ax
		mov	blokker,ax
		jmp	bloblok

suttyo:		lds	si,dword ptr es:suttog
		mov	es:suttog,0
		jmp	sutox

sajblok:	lodsw
		dec	si
		cmp	cl,3
		jb	sajaj
		cmp	ah,es:szocska+2
		jne	austov
sajaj:		mov	bl,al
		and	ax,31
		mov	cx,ax
		add	al,2
		cmp	ax,bp
		ja	xustov
		mov	word ptr es:szavacska,di
		mov	es:szohossz,ax
		mov	di,offset szavacska+2
		jmp	dekezb

csajblok:	jmp	sajblok

ustov:		lodsb
austov:		and	ax,31
sustov:		add	al,2
xustov:		add	si,ax
uscikl:		cmp	es:suttog,0
		jne	suttyo
sutox:		lodsw
		or	al,al
		js	ujveg
		mov	cx,ax
		push	ax
		mov	al,[si]
		test	al,64
		jz	ninus

		lodsb
		pop	dx
		and	ax,31
		add	si,ax
		lodsw
		add	al,al
		pop	ds
		shr	ax,1
		mov	word ptr szavmut,si
		call	nyers
		add	si,cx
		mov	bl,ksbyt
		mov	suttog,0
		mov	dx,word ptr szbyt
		mov	word ptr [si],128
		jmp	tomor
ninus:		and	cx,3
		pop	dx
		jz	nemkezb
		cmp	cx,bp
		ja	ustov
		or	di,di
		mov	ax,si
		jnz	csajblok
		inc	si
		mov	di,offset szocska
		repe	cmpsb
		mov	di,0
		xchg	ax,si
		jne	ustov
nemkezb:	lodsb
		mov	bl,al
		and	ax,31
		cmp	ax,bp
		ja	sustov
		mov	cx,ax
		mov	di,offset szavacska
		mov	es:szohossz,ax
dekezb:		shr	cx,1
		jnc	nemcec
		movsb
nemcec:		rep	movsw
		lodsw
		pop	ds
		add	al,al
		mov	suttog,cx
		mov	word ptr [di],128
		shr	ax,1
		mov	word ptr szavmut,si
		mov	word ptr szbyt,dx
		mov	aktszo,ax
tomor:		and	bl,32
		mov	cx,szohossz
		mov	si,offset szavacska
		mov	di,offset szocska
		mov	ksbyt,bl
		ret
;------------------------------------------------------------------------------

;------------------------------------------------------------------------------
					;	A DX:AX-ben lv 32-bites
dxtram:		xor	dx,dx		;	sz mbąl stringet kpez, s annak
					;	cĄmt DS:SI-ben adja vissza.
					;	Ez a string "vegszo"-ban lesz,
					;	kezd null kkal eltolva, s a
sztram:					;	legalsą hat karakter mg
					;	DX/BX/AX-ben is benne van.
					;	A string hossza: CX.
					;	CF = 1: tŁlcsordul s!
sram:		push	ds
		mov	bp,71*(1+256)
		cmp	dx,1525
		mov	cx,4
		mov	di,offset vegszo
		pop	es
		xchg	ax,bp
		rep	stosw
		xchg	ax,bp
		jb	skes
		ja	tungy
		cmp	ax,57600
		jb	skes
tungy:		xchg	ax,dx
		mov	ebx,100000000
		shl	eax,16
		dec	di
		xchg	ax,dx
		dec	di
		xor	edx,edx
		div	ebx
		aam
		xchg	al,ah
		add	ax,bp
		stosw
		xchg	eax,edx
		xchg	ax,dx
		shr	eax,16
		xchg	ax,dx
skes:		mov	bx,10000
		sub	bp,"00"
		div	bx
		call	szkes
		xchg	ax,dx
		call	szkes
		push	ax
		mov	cl,16
		mov	byte ptr [di],128
		mov	al,71
		sub	di,cx
		repe	scasb
		inc	cx
		dec	di
		pop	ax
		mov	si,di
		clc
		ret
szkes:		call	stram4
		add	ax,bp
		add	bx,bp
		xchg	ax,bx
		stosw
		xchg	ax,bx
		stosw
		ret

sztram4:	cmp	ax,9999
		jbe	stram4
		xor	ax,ax
stram4:		push	dx
		mov	dl,100
		div	dl
		mov	dh,ah
		call	stram2
		mov	bx,ax
		mov	al,dh
		pop	dx
stram2:		aam
		xchg	al,ah
		add	ax,"00"
		ret
;------------------------------------------------------------------------------

;------------------------------------------------------------------------------
montorl:	call	hulla

ontorl:		mov	mondmut,offset vesa+512+aptuf
		mov	mmaxmut,offset stabl+1024
		ret

hulla:		mov	egyhossz,0
		mov	egykezd,0
		mov	maxmut,offset vesa+512+aptuf
		mov	egymut,offset vesa
		and	own,254
		ret
;------------------------------------------------------------------------------

;------------------------------------------------------------------------------
ananame:	push	ds		;	DS:SI (CX byte) nevet szavakra
		cmp	cx,126		;	bontva bepakolja a sząt rba.
		mov	di,offset vesa	;	(+AL: neme!!! - ld. fent.)
		pop	es		;	(Azaz visszaadja SI+CX-ben...)
		xchg	ax,bp
		push	word ptr own
		jbe	azalea
		mov	cx,126
azalea:		and	word ptr own,242+31*256
		push	di
		jmp	ocho
osho:		or	own,1
ocho:		push	bp
		and	xown,63
		push	di

		mov	elotet,ch

		mov	di,offset vegszo
		push	es
		jcxz	anand
ancik:		lodsb
		or	al,al
		jz	ancix
		cmp	al,84
		je	anand
		cmp	al,81
		jb	anand
		ja	manc
		or	xown,64
manc:
		cmp	al,93
		je	egybe
		cmp	al,82
		jb	runge
		cmp	al,84
		ja	runge
egybe:		or	own,1
		jmp	canci
runge:

		cmp	al,86
		jb	ancix
		cmp	al,89
		jb	anand
		je	mancix
		cmp	al,99
		je	mancix
		cmp	al,90
		jne	manci
		or	xown,32
		jmp	ancix
manci:
		cmp	al,106
		je	elo4
		cmp	al,105
		je	elo2
		cmp	al,104
		jne	manysi
elo1:		or	elotet,1
		jmp	manysi
elo2:		or	elotet,2
		jmp	manysi
elo4:		or	elotet,4
manysi:

		cmp	al,107
		jne	ancix
		and	xown,223
		jmp	ancix
mancix:		or	xown,128
ancix:		and	own,254
canci:		loop	ancik
anand:		and	own,251
		cmp	al,36
		push	di
		jcxz	amanda
		jb	kisab
		cmp	al,71
		jae	kisab
sisab:		or	own,4
kisab:		cmp	al,36
		jae	isab
		;test	own,1
		;jnz	isab
		;add	al,35
		;jmp	sisab
isab:		test	own,4
		jz	visab
		and	own,254
visab:		test	xown,32
		jz	amcik
		and	word ptr own,250+63*256
amcik:		cmp	di,offset vegszo+30
		stosb
		mov	al,[si]
		jae	amand
		or	al,al
		jz	amand
		cmp	al,36
		jb	amcix
		cmp	al,71
		jb	amand
		cmp	al,81
		jb	amcix

		je	amcix

		cmp	al,84
		je	amcix
		cmp	al,86
		jb	amand
		cmp	al,89
		jae	amand
amcix:		inc	si
		loop	amcik
		inc	cx
amand:		dec	cx
amanda:		pop	ax
		mov	word ptr [di],128
		push	cx
		mov	cx,di
		push	si
		sub	cx,ax
		xchg	ax,si
		xchg	ax,bp
		jb	tappe
		call	vappend
tappe:		pop	si
		pop	cx
		pop	es
		pop	di
		jc	szojo

		cmp	ax,152
		jb	szopp
		cmp	ax,154
		ja	szopp
		or	elotet,8
szopp:		test	xown,32
		jz	szoppe
		or	elotet,16
szoppe:

		cmp	ax,-16
		jb	szokc
		mov	ah,63
		jmp	szox
szokc:		or	ax,ax
		js	szojo
		jz	szojo
		cmp	ax,sorszam
		jae	szojo
		cmp	ah,63
		jae	szojo
szox:
		shr	elotet,1
		jnc	szogg
		cmp	jelzo,0
		jne	szojo
		cmp	synoj,0
		jne	szojo
		cmp	libnum,16112
		jae	szojo
		push	cx
		xchg	ax,bp
		push	si
		mov	ah,elotet
		push	di
		mov	si,libnum
		mov	di,vonmret
		push	es
		add	si,si
		mov	es,vonpuf
		push	ds
		mov	vonzat,si
		mov	ds,vnzpuf
		cmp	word ptr ds:[si],0
		jne	nemls
		mov	word ptr ds:[si],di
		jmp	elels
nemls:		or	byte ptr es:[di-1],128
elels:		stosw
		pop	ds
		mov	vonmret,di
		pop	es
		add	vonzat,2
		pop	di
		pop	si
		jmp	szojox
szogg:

		stosw
		xchg	ax,bp
		push	cx
		and	ah,31
		test	own,1
		mov	cl,14
		jz	irra
		or	ah,32
irra:		test	xown,32
		jz	xirra
		or	ah,64
xirra:		or	ax,ax
		jz	nirra
		or	ah,128
		stosw
nirra:		mov	ax,word ptr own
		shr	ax,cl
		test	own,4
		jz	terra
		or	al,4
terra:		or	ax,ax
		jz	werra
		push	ax
		mov	ax,32768
		stosw
		pop	ax
		or	ah,64
		stosw
werra:		xchg	ax,bp
		cmp	ah,63
		jne	szojox
		cmp	al,-8
		mov	dx,aktum+2
		mov	bx,aktum
		jae	szasz
		xor	dx,dx
szasz:		call	szaegy
		call	szaegy
		call	szaegy
szojox:		pop	cx
szojo:		pop	bp
		jcxz	szoco
		jmp	osho
szoco:		pop	si
		mov	cx,di
		pop	word ptr own
		sub	cx,si
		ret

szaegy:		mov	ax,bx
		or	ax,dx
		mov	ax,bx
		jz	pocko
		and	ah,63
		or	ah,64
		shr	bx,cl
		stosw
		mov	ax,dx
		add	ax,ax
		add	ax,ax
		shr	dx,cl
		or	bx,ax
pocko:		ret

vappend:	push	ds
		cmp	cx,126
		mov	di,offset szocska
		pop	es
		jcxz	nappe
		push	cx
		jbe	vapp
		mov	cx,126
vapp:		cmp	si,di
		push	si
		mov	szocskho,cx
		push	ax
		je	nevapp
		rep	movsb
nevapp:		call	ertelm
		pop	di
		pop	si
		pop	cx
		jc	nappe
		ret

nappe:		call	error
		push	ds
		push	es
		pushad
		mov	dl,34
		mov	ah,2
		int	21h
		jcxz	nafta
narrat:		lodsb
		mov	bx,offset asctab
		or	al,al
		xlat
		js	nafta
		mov	dl,al
		mov	ah,2
		int	21h
		loop	narrat
nafta:		mov	dl,34
		mov	ah,2
		int	21h
		mov	dl,13
		mov	ah,2
		int	21h
		mov	dl,10
		mov	ah,2
		int	21h
		popad
		pop	es
		pop	ds
		xor	bp,bp
		xor	ax,ax
		stc
		ret

error:		pushf
		push	ds
		push	es
		pushad
		push	cs
		pop	ds
		mov	dx,offset htx8
		mov	ah,9
		int	21h
		mov	si,offset szavunk
		cmp	byte ptr [si],0
		mov	cx,256
		je	perec
		cmp	byte ptr [si],15
		jae	perec
		mov	dl,"z"
		mov	ah,2
		int	21h
perec:		mov	dl," "
		mov	ah,2
		int	21h
		mov	dl,"<"
		mov	ah,2
		int	21h
perel:		lodsb
		mov	bx,offset asctab
		mov	ah,2
		or	al,al
		xlat
		js	errve
		mov	dl,al
		int	21h
		loop	perel
errve:		mov	dx,offset htx9
		mov	ah,9
		int	21h
		popad
		pop	es
		pop	ds
		popf
		ret
;------------------------------------------------------------------------------

;------------------------------------------------------------------------------
					;	DS:[SI]-ben lv CX hosszŁs gŁ
numstring:	clc			;	stringet sz mm  alakĄtva adja
		mov	bp,10		;	vissza DX:AX-ben.
		mov	bx,256		;	CF = 1: tŁlcsordul s vagy hib s
		jcxz	mosst		;	bevitel!
kost:		lodsb	
		or	al,al
		jz	ckost
		sub	al,71
		ja	kjost
		jb	crosst
		or	bh,bh
		jz	ckost
sorst:		mov	bl,cl
ckost:		loop	kost
		or	bl,bl
		jnz	ghost
crosst:		xor	cx,cx
rosst:		stc
mosst:		mov	ax,cx
		cwd
		ret
kjost:		cmp	al,9
		ja	crosst
		or	bh,bh
		jz	ckost
		xor	bh,bh
		jmp	sorst
ghost:		xor	ax,ax
		or	bh,bh
		cwd
		jnz	vosst
		sub	si,bx
		xchg	bx,cx
koppen:		xchg	ax,bx
		lodsb
		sub	al,71
		xchg	ax,bx
		jb	haga
		push	ax
		xchg	ax,dx
		mul	bp
		xchg	ax,di
		or	dx,dx
		pop	ax
		jnz	crosst
		mul	bp
		add	dx,di
		jc	crosst
		add	ax,bx
		adc	dx,0
		jc	crosst
haga:		loop	koppen
		clc
vosst:		ret
;------------------------------------------------------------------------------

;------------------------------------------------------------------------------
					;	A "szocska"-ban lev szą
ertelm:		mov	di,szocskho	;	kirtelmezse.
		xor	bp,bp		;	AX = sząsorsz m,
		cmp	di,126		;	BP = ragoz s.
		push	bp
		jbe	derrick
		mov	di,126
		mov	szocskho,di
derrick:	and	conan,127
		mov	word ptr szocska[di],128
		call	elso_szo
nertlp:		jc	nertl
ertlp:		cmp	cx,szocskho
		jne	nertck
		shr	cx,1
		jnc	erex
		cmpsb
		jne	nertck
erex:		repe	cmpsw
		je	ertve
nertck:		; +a ragok vegigprobalasa jon ide!!!
		test	conan,128
		jnz	conno
		call	uj_szo
		jnc	ertlp
nertl:		test	conan,128
		jz	szamszo
conno:		pop	bp
		stc
		ret
ertve:		and	bl,32
		pop	bp
		jz	bertl
		add	szocska,35
bertl:		ret

szamszo:	mov	si,offset szocska
		mov	cx,szocskho
		mov	di,si
		jcxz	conno
szomlap:	lodsb
		or	al,al
		jz	szallap
		cmp	al,71
		mov	al,[si]
		jne	szallok
		or	al,al
		jz	szallap
		cmp	al,71
		jb	szallok
		cmp	al,81
		jae	szallok
szallap:	loop	szomlap
		inc	cx
szallok:	dec	si
		cmp	si,di
		mov	bx,cx
		je	szammx
		inc	cx
		push	di
		mov	szocskho,bx
		rep	movsb
		mov	cx,bx
		pop	si
szammx:		dec	bx
		mov	di,si
		mov	bp,-3
baxalp:		cmp	byte ptr [bx][si],71
		jb	baxo
		cmp	byte ptr [bx][si],81
		ja	baxo
		je	zarszo
arszo:		inc	bx
		dec	bp
		push	bx
		dec	bp
		jmp	buxx
xonno:		jmp	conno
zarszo:		push	bx
		inc	bx
buxx:		cmp	byte ptr [bx][si],11		;	"-adik"
		ja	baxx
		cmp	byte ptr [bx][si],7
		je	barax
		inc	bx
		mov	bp,-6
baxx:		cmp	byte ptr [bx][si],17		;	"-dik"
		jne	barax
		inc	bx
		dec	bp
barax:		cmp	word ptr [bx][si],7+256*22	;	"-ik"
		pop	bx
		je	barack
		mov	bp,-1
barack:		mov	cx,bx
		jmp	baxakk
baxo:		dec	bx
		jns	baxalp
baxakk:		jcxz	xonno
		push	bp
		call	numstring
		pop	bx
		jc	xonno
		or	conan,128
		or	dx,dx
		xchg	ax,bx
		jnz	dxers
		sub	al,8
dxers:		call	nyers
		mov	di,offset szocska
		jmp	nertlp
;------------------------------------------------------------------------------

include	<parancs.asm>
include	<pack.asm>

wmake	ends

end	prog
