.DISABLE PREFIX, SUFFIX
;  ***************************************************************
;  ***************************************************************
;  **    fORMATIROWANIE WIN^ESTERA S ZAPISX@ SISTEMY NA DW:     ** 
;  **                 (WHODNOJ KONTROLX)                        **
;  ***************************************************************
;  ***************************************************************
;
;
;	 *************************************************
;	 *               tIPY NAKOPITELEJ                *
;	 *************************************************
;	 *		 MC 5401 =--> 1  		 *
;	 *		 MC 5402 =--> 2  		 *
;	 *		 MC 5404 =--> 3  		 *
;	 *		 MC 5405 =--> 4  		 *
;	 *		 MC 5406 =--> 5  		 *
;	 *		 EC 5300 =--> 6  		 *
;	 *		 CM 5508 =--> 7  		 *
;	 *		 ST-225  =--> 8  		 *
;	 *************************************************
;
;
;
.ASKN [1:8.:7.:40.S] TIPDW > uKAVITE CIFRU, SOOTWETSTWU@]U@ TIPU WA[EGO NAKOPITELQ : 
.IF TIPDW EQ 1 SET DW: CYLNDR=153.,SURFAC=4,PRECMP=128.
.IF TIPDW EQ 2 SET DW: CYLNDR=306.,SURFAC=4,PRECMP=128.
.IF TIPDW EQ 3 SET DW: CYLNDR=637.,SURFAC=8,PRECMP=2.
.IF TIPDW EQ 4 SET DW: CYLNDR=612.,SURFAC=4,PRECMP=360.
.IF TIPDW EQ 5 SET DW: CYLNDR=306.,SURFAC=4,PRECMP=256.
.IF TIPDW EQ 6 SET DW: CYLNDR=153.,SURFAC=4,PRECMP=128.
.IF TIPDW EQ 7 SET DW: CYLNDR=306.,SURFAC=4,PRECMP=128.
.IF TIPDW EQ 8. SET DW: CYLNDR=612.,SURFAC=4,PRECMP=128.
;----------------------------------------------------
.IF <EXSTAT> GE 2 .GOTO 100
REM DW
INS DW
;!    pARAMETRY DRAJWERA SY:DW.SYS USTANOWLENY.    !
.GOTO 200
.100:
;! wnimanie !!! wERSIQ WA[EGO DRAJWERA SY:DW.SYS    !
;! NE NASTRAIWAETSQ NA RAZLI^NYE TIPY NAKOPITELEJ.  !
;----------------------------------------------------
;
.GOTO 99
.200:
;----------------------------------------------------
.OPEN FORM.TMP
.DATA R FORMAT
.IF TIPDW EQ 1 .DATA DW0:/E:152./Y
.IF TIPDW EQ 2 .DATA DW0:/E:305./Y
.IF TIPDW EQ 3 .DATA DW0:/E:636./F:7./K:2/Y
.IF TIPDW EQ 4 .DATA DW0:/E:611./K:360./Y
.IF TIPDW EQ 5 .DATA DW0:/E:305./K:256./Y
.IF TIPDW EQ 6 .DATA DW0:/E:152./Y
.IF TIPDW EQ 7 .DATA DW0:/E:305./Y
.IF TIPDW EQ 8. .DATA DW0:/E:611./Y
.DATA 
.CLOSE
.SETN N1 0
;
;iDET FORMATIROWANIE wIN^ESTERA
.1:
$@FORM.TMP
.IF <EXSTAT> EQ 1 .GOTO 2
.IF N1 = 1 .GOTO 7
.SETN N1 1
;pRI FORMATIROWANII OBNARUVENY O[IBKI
;
;wEDETSQ POWTORNOE FORMATIROWANIE
.GOTO 1
.7:
;
;kOMANDY formatirowaniq NA DANNOM wIN^ESTERE NE WYPOLNQ@TSQ
.GOTO 99
.2:
;
;wYPOLNQETSQ PROWERKA WIN^ESTERA
INI/BAD/NOQ DW:
;*******************************************************
.IF <EXSTAT> EQ 1 .GOTO 3
; wnimanie !!! pRI PROWERKE BYLI OBNARUVENY PLOHIE BLOKI
.GOTO 4
.3:
;pROWERKA WIN^ESTERA PRO[LA USPE[NO
.4:
DIR/FU DW:
;
;
;fORMATIROWANIE/PROWERKA wIN^ESTERA ZAWER[ENY
;iNFORMACI@ O KOLI^ESTE PLOHIH BLOKOW SMOTRITE NAD ^ERTOJ 
;
;
;wYPOLNQETSQ OPERACIQ KOPIROWANIQ SISTEMY NA DW:
COP/SYS/EXC/NOQ SY:(D.COM,DD.TMP,FORM.TMP,PR.TMP) DW:
.IF <EXSTAT> EQ 1 .GOTO 5
;pRI KOPIROWANII PROIZO[LA O[IBKA
.GOTO 99
.5:
;oPERACIQ KOPIROWANIQ ZAWER[ENA USPE[NO
;
;pROIZWODITSQ KOPIROWANIE ZAGRUZ^IKA NA DW:
COP/BO SY:FMONFB DW:
.IF <EXSTAT> EQ 1 .GOTO 6
;pRI KOPIROWANII ZAGRUZ^IKA NA DW: PROIZO[LA O[IBKA
.GOTO 99
.6:
;zAPISX ZAGRUZ^IKA NA DW: ZAWER[ENA USPE[NO
;
.GOTO 101
.99:
;wYPOLNENIE KOSWENNOGO UPRAWLQ@]EGO FAJLA PREKRA]AETSQ
.101:
TSTDW3
$@PR.TMP
;
;
;
;			  k * o * n * e * c
;
SET KMON NOIND
                                                            