savechar:	push	cs		;	***	SAVESEC...
		push	cs
		pop	ds
		pop	es
		xor	cx,cx
		lea	dx,filenev
		mov	ah,3ch
		int	21h
		jc	send
		mov	file,ax
		xchg	ax,bx
		mov	cx,32
		lea	dx,color
		mov	ah,40h
		int	21h
		jc	sclose
		mov	ax,hany
		or	ax,ax
		jz	cikl8
		xor	bp,bp
scikl1:		xor	ax,ax
scikl2:		push	ax
		push	bp
		cmp	ax,112
		jae	orb
		mov	di,ax
		mov	cl,5
		shl	di,cl
		add	bp,bp
		lea	dx,code[di][bp]
		jmp	spax
orb:		sub	ax,112
		mov	di,ax
		shr	di,1
		mov	cl,5+1
		shl	di,cl
		xor	ax,1
		and	ax,1
		add	bp,bp
		or	bp,ax
		add	bp,bp
		lea	dx,orbet[di][bp]
		shr	bp,1
spax:		shr	bp,1
		mov	cl,2
		mov	bx,file
		mov	ah,40h
		int	21h
		pop	bp
		pop	ax
		jc	sclose
		inc	ax
		cmp	ax,hany
		jb	scikl2
		inc	bp
		cmp	bp,16
		jb	scikl1
cikl8:		mov	ax,hany8
		or	ax,ax
		jz	sclose
		xor	bp,bp
ncikl1:		xor	ax,ax
ncikl2:		push	ax
		push	bp
		cmp	ax,112
		jae	orb8
		mov	di,ax
		mov	cl,4
		shl	di,cl
		add	bp,bp
		lea	dx,code8[di][bp]
		jmp	spax8
orb8:		sub	ax,112
		mov	di,ax
		shr	di,1
		mov	cl,4+1
		shl	di,cl
		xor	ax,1
		and	ax,1
		add	bp,bp
		or	bp,ax
		add	bp,bp
		lea	dx,orbet8[di][bp]
		shr	bp,1
spax8:		shr	bp,1
		mov	cl,2
		mov	bx,file
		mov	ah,40h
		int	21h
		pop	bp
		pop	ax
		jc	sclose
		inc	ax
		cmp	ax,hany8
		jb	ncikl2
		inc	bp
		cmp	bp,8
		jb	ncikl1
sclose:		mov	bx,file
		mov	ah,3eh
		int	21h
send:		ret
