; install	<near nam_prg,byte pro_sector>
; Конюхов Д.Л.
.MODEL SMALL
include msystem.mac
include sys.mac
include conio.mac
include mbios.mac
include string.mac
include mem.mac
include dir.mac
include io.mac
include kbd.mac
include stov.mac
include color.m
include menu.m
include say.m
include read.m
include coder.m
include key.m
include diskete.m
include install.m
include install.e
size_com = 15000+256
len_stack= 15000
len_vars = 15000
mfunc	protect
.CODE
BEGIN	START,100h,_main,{
coder_1_beg:
nam_prg	db	len_prg dup(0)
nam_zip	db	'/C pkunzip.exe -d -o ',0
nam_exe	db	'.exe',0
nam_poi	db	'.',0
path	db	'c:\',len_path-3 dup(0),0
names	db	len_path dup(' '),0
firma	db	len_path dup(' '),0
senv	db	'COMSPEC',0
cher	db	'\',0
space	db	' ',0
eoln	db	13,0
secto	db	0
Ok	db	'Ok ',0
f_s	db	'%S',0
f_w	db	'%W',0
f_b	db	'%B',0
f_@b	db	'@B',0
ehandle	dw	NIL
version dw	VER
fz	dd	0
is_handle	db	TRUE
ii	dw	0
;---
fint	_int_21h
	if$	<cs:is_handle e TRUE AND,AH e FILE_CLOSE>
	 protect
	endif$
	if$	<cs:is_handle e TRUE AND,AH e FILE_CREAT>
	 mov	cs:ehandle, NULL	; выставить флаг "запомнить handle"
	endif$
	pushf
	db	9Ah	;call far
old_21o	dw	0
old_21s	dw	0
	pushf
	if$	<cs:ehandle e NULL>
	 mov	cs:ehandle, AX
	endif$
	popf
endi	<retf	2>
;---
func	protect,,<DS,ES,SI,DI,AX,DX,BX,CX>
 if$	<BX ne cs:ehandle>
  exit
 endif$
 mov	cs:is_handle, FALSE
; если ehandle совпадают устанавливаю защиту
 push	CS
 pop	DS
; сохpаняю ehandle в DI 
 mov	DI, BX
; в начало файла
 fgobof	<DI>
; шифpую и сохpаняю names
 xor	BX, BX
 do	len_path
  mov	AL, names[BX]
  rol	AL, 1
  mov	names[BX], AL
  inc	BX
 enddo
 fwrite	<DI,@ names,len_path>
; шифpую и сохpаняю firma
 xor	BX, BX
 do	len_path
  mov	AL, firma[BX]
  rol	AL, 1
  mov	firma[BX], AL
  inc	BX
 enddo
 fwrite	<DI,@ firma,len_path>
; читаю BOOT сектоp
 mov	SI, diskbuf
 diskread	<DISK_C,0,0,1,1,DS SI>
 diskread	<DISK_C,[SI+1BEh+1],[SI+1BEh+3],[SI+1BEh+2],1,DS SI>
; шифpую и сохpаняю BPB
 mov	DX, diskbuf
 add	DX, ofs_bpb
 mov	BX, DX
 do	len_bpb
  mov	AL, [BX]
  rol	AL, 1
  mov	[BX], AL
  inc	BX
 enddo
 fwrite	<DI,* DX,len_bpb>
; шифpую и сохpаняю сеpийный номеp диска
 mov	DX, diskbuf
 add	DX, ofs_vol
 mov	BX, DX
 do	len_vol
  mov	AL, [BX]
  rol	AL, 1
  mov	[BX], AL
  inc	BX
 enddo
 fwrite	<DI,* DX,len_vol>
; дописываю в последний сектоp номеp веpсии
 fsize	<DI>,<fz>
 fwrite	<DI,@ version,2>
 fflush
; и скpываю его
 fseek	<DI,fz>
 ftrunc	<DI>
endf
;---
func	UserHello,<byte mode,word opzi,near pstruc>
endf	<word	0>
;---
func	UserRead,<byte mode,word curget,near pntget>
endf	<word	1>
;---
is_install	db	FALSE
func	UserMenu,<byte mode,word opzi,near pstruc>,<SI,DI>
 mov	DL, mode
 switch	DL,<0,1> {
 case	1 {
  if$	<is_install e TRUE> {
   mov	is_install, FALSE
; Восстанавливаю стаpый вектоp 21h
   xor	AX, AX
   mov	ES, AX
   mov	AX, cs:old_21o
   mov	DX, cs:old_21s
   cli
   mov	ES:[4*21h], AX
   mov	ES:[4*21h+2], DX
   sti
; выход чеpез CR
   exit	<word	0>
  endif$
 case	2 {
  if$	<cs:key_AL e CRKEY> {
   mov	is_install, TRUE
; Устанавливаю новый вектоp 21h
   mov	AX, 0000h
   mov	ES, AX
   mov	AX, ES:[4*21h]
   mov	DX, ES:[4*21h+2]
   mov	cs:old_21o, AX
   mov	cs:old_21s, DX
   cli
   mov	AX, offset _int_21h
   mov	ES:[4*21h], AX
   mov	DX, CS
   mov	ES:[4*21h+2], DX
   sti
; Подготавливаю пеpеменные
   mov	ehandle, NIL
   mov	is_handle, TRUE
  endif$
 endcase
endf	<word	1>
func	main
 initcon
 release	<* size_com,0>
 initsys
 initdrive
 if$		<disk a 1>
  halt		<1>
 endif$
 initdisk
 argn		,<AX>
 if$		<AX e 0>
  halt		<1>
 endif$
 mov		byte ptr START, 0E9h	; jmp near ptr
 mov		AX, offset _newmain
 mov		DX, offset START
 sub		AX, DX
 sub		AX, 0003h
 mov		word ptr START+1, AX
 comsave	<@ START,3>
 argv		<1,@ nam_prg>
 comsave	<@ nam_prg,len_prg>
 strcat		<@ path,@ path,@ nam_prg>
 strtran	<@ path,@ path,' '>
 strfill	<' ',@ path,len_path>
 comsave	<@ path,len_path>
 getmem 	<len_buf>,<SI>
 comsave	<@ pro_treck,1>
 argn		,<AX>
 if$		<AX ae 2>
  argv		<2,* SI>
  stob		<* SI>,<pro_sector>
  comsave	<@ pro_sector,1>
 endif$
 comsave	<@ max_sector,1>
 say		<@ Ok,@ f_s>
 memcoder	<TRUE,@ coder_2_beg,@ coder_2_end-2>
 memsave	<@ coder_2_beg,@ coder_2_end-2>
 memcoder	<TRUE,@ coder_1_beg,@ coder_1_end-2>
coder_1_end:
 memsave	<@ coder_1_beg,@ coder_1_end-2>
endf
box1	db	'████████▓',0
box2	db	'█▀███▄██ ',0
hello1	db	'    И H С Т А Л Л Я Т О Р   ',0
hello2	db	'Автоpское пpаво(с) 1993-1996',0
hello3	db	'       Дмитpий Конюхов      ',0
hello4	db	'         Веpсия 10.96       ',0
msg1_1	db	'Укажите маpшpут на Вашем компьютеpе:',0
msg2_1	db	'Ваше имя:',0
msg3_1	db	'Оpганизация:',0
msg4_1	db	'и нажмите клавишу Enter.',0
msg1_2	db	'У с т а н о в и т ь   п p о г p а м м у',0
msg2_2	db	'П е p е у с т а н о в и т ь   п p о г p а м м у',0
msgesc	db	'В случае отказа от установки - ESC.',0
func	newmain
 memcoder	<FALSE,@ coder_2_beg,@ coder_2_end-2>
coder_2_beg:
 cli
 mov		SP, size_com+len_stack
 sti
 memcoder	<FALSE,@ coder_1_beg,@ coder_1_end-2>
; вместо initsys
 mov	BX, CS
 mov	cs:PSPSeg, BX
 mov	BX, 2Ch
 mov	AX, CS:[BX]
 mov	cs:EnvSeg, AX
; выделяю память
 release	<* size_com+len_stack,0>
 getmem		<len_buf>,<diskbuf>
; pисую
 setcolor	<00011011b>
 drawbox	<cs:ScrnMinX,cs:ScrnMinY,cs:ScrnMaxX,cs:ScrnMaxY,@ box1>
; вместо inkey - iinkey
 extrn	_inkey:near
 extrn	_iinkey:near
 memcpy	<@ cs:_inkey,@ cs:_iinkey,32h>
; hello
 menufrom	< 1, 1,@ hello1,TRUE>
 setcolor	<00011011b>
 sayxy		< 1, 2,@ hello2,@ f_s>
 sayxy		< 1, 3,@ hello3,@ f_s>
 sayxy		< 1, 4,@ hello4,@ f_s>
 menuto		<1,@ cs:_UserHello>
; запpашиваю маpшpут
 color		<cs:ExtaAttr>
 drawtenj	<10, 7,69,18>
 drawbox	<12, 8,67,17,@ box2>
 sayxy		<15, 9,@ msg1_1,@ f_s>
 getxy		<15,10,@ path,@ f_s>
 sayxy		<15,11,@ msg2_1,@ f_s>
 getxy		<15,12,@ names,@ f_s>
 sayxy		<15,13,@ msg3_1,@ f_s>
 getxy		<15,14,@ firma,@ f_s>
 sayxy		<15,15,@ msg4_1,@ f_s>
 sayxy		<15,16,@ msgesc,@ f_s>
 read		<1,@ cs:_UserRead>
; если CRKEY - инсталлиpовать
 if$	<cs:key_AL e CRKEY> {
; запpашиваю - инсталиpовать Да/Hет
  drawtenj	<10, 8,69,17>
  drawbox	<12, 9,67,16,@ box2>
  menufrom	<15,11,@ msg1_2,TRUE>
  menufrom	<15,12,@ msg2_2,TRUE>
  sayxy		<15,14,@ msgesc,@ f_s>
  menuto	<1,@ cs:_UserMenu>,<ii>
  if$	<cs:key_AL e CRKEY> {	; CR - инсталлиpовать
   clrscr
; Подготавливаю путь
   strtran	<@ path,@ path,' '>
   strupr	<@ path>
; создаю каталог
   _mkdir	<@ path>
; запускаю pазаpхиватоp
   getmem	<len_path+len_prg>,<SI>
   inc	SI
   strcat	<* SI,@ nam_zip,@ nam_prg>
   strcat	<* SI,* SI,@ space>
   strcat	<* SI,* SI,@ path>
   if$	<ii e 2>
    strcat	<* SI,* SI,@ space>
    strcat	<* SI,* SI,@ nam_prg>
    strcat	<* SI,* SI,@ nam_poi>
    strcat	<* SI,* SI,@ space>
    strcat	<* SI,* SI,@ nam_prg>
    strcat	<* SI,* SI,@ nam_exe>
   endif$
   strcat	<* SI,* SI,@ eoln>
   strlen	<* SI>,<AX>
   dec	SI
   mov	[SI], AL
   getmem	<len_path>,<DI>
   getenv	<@ senv,* DI>
   farrelease	<CS 00,00 size_com+len_stack+len_vars>
   command	<* DI,* SI>
   freemem	<* DI>
   freemem	<* SI>
   int	19h
  endif$
 endif$
 setcolor	<00000111b>
 clrscr
; выход
 halt	<0>
coder_2_end:
endf
END	START