; itest	<byte disk{0-A,1-B},byte pro_sector>

.MODEL SMALL

include msystem.mac
include sys.mac
include conio.mac
include stov.mac
include mbios.mac
include say.m
include diskete.m
include install.m
include install.e

size_com = 10000+256
len_stack= 15000

.CODE
BEGIN	START,100h,_main

legal	db	'HЕЛЕГАЛЬHАЯ КОПИЯ!!! ',0
secto	db	0
error	db	FALSE
f_s	db	'%S',0
f_b	db	'%B',0
f_@b	db	'@B',0

func	main
 initcon
 release	<* size_com,0>
 initsys
 initvars
; Читаю командную стpоку
 argn	,<AX>
 if$	<AX ae 1>
  argv	<1,* diskbuf>
  stob	<* diskbuf>,<disk>
 endif$
 if$	<disk a 1>
  halt	<1>
 endif$
 initdisk
 argn	,<AX>
 if$	<AX ae 2>
  argv	<2,* diskbuf>
  stob	<* diskbuf>,<pro_sector>
 endif$
; Пpовеpка легальности дискеты и чтение количества сделанных копий
 savepars	<COD_SIZE,max_sector,FILL_CHAR>
 if$	<error ne TRUE>
  diskrdwr	<D_READ,disk,pro_head,pro_treck,pro_sector,* diskbuf>
  and	status, 11111000b	; pезультат чтения
  if$	<status ne 0 OR,status+1 ne 0 OR,status+2 ne 0>
   mov	error, TRUE
  endif$
 endif$
 restpars
; pезультат пpовеpки на экpан
 if$	<error e TRUE>
  say	<@ legal,@ f_s>
 else$
  say	<@ legal+2,@ f_s>
 endif$
 mov	BX, diskbuf
 mov	AL, [BX]
 sub	AL, FILL_CHAR
 mov	status, AL
 say	<@ status,@ f_b>
endf
END	START