; 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
;---
func	protect,,<DS,ES,SI,DI,AX,DX,BX,CX>
; устанавливаю защиту
 push	CS
 pop	DS
; откpываю файл
 fopen	<* SI,2>,<DI>
; в начало файла
 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>
; закpываю файл
 fclose	<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ез CR
   exit	<word	0>
  endif$
 case	2 {
  if$	<cs:key_AL e CRKEY> {
   mov	is_install, 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>
   strcat	<* SI,@ path,@ cher>
   strcat	<* SI,* SI,@ nam_prg>
   strcat	<* SI,* SI,@ nam_poi>
   protect
   freemem	<* SI>
   int	19h
  endif$
 endif$
 setcolor	<00000111b>
 clrscr
; выход
 halt	<0>
coder_2_end:
endf
END	START