Liren Large Software Subsidy 16/16.iso/t/t110/1.ddi/IADM

Text File | 1987-08-08 | 4.5 KB | 142 lines

;=======================================================;
; This is a macro command file for installing ADM on    ;
; user's hard disk drive(s). It assumes user have no    ;
; prior knowledge on how to set up an ADM system and    ;
; takes user step-by-step through the installation.    ;
;                            ;
; There are 2 possible ways to invoke this program    ;
; which is listed as 'IADM' in the directory:           ;
; (1) use B option in main menu of ADM and enter IADM    ;
; (2) type ADM IADM <ret> under DOS shell        ;
;                            ;
; Users may change some variable in lines marked ';**'  ;
; for particular needs(e.g. preset defect list, define    ;
; volume name for logical drive).            ;
;=======================================================;
$if ! adm_vers                ;Executing ADM ?
    $return                ;No, close this file
$end
;
$F1 = 03b00h                ;define <F1> key value
$F2 = 03c00h                ;define <F2> key value
$F4 = 03e00h                ;define <F4> key value
$RET= 00dh                ;define <ret> key value
$ESC= 01bh                ;define <Esc> key value
;
$keyv = 0
$if (ndrives/256) = 1
    $keyv = 030h            ;only 1 hard drive connected
$end
$dowhile keyv = 0
    $keyv=0ffh & msgkey("Enter drive #(0/1) to be installed...[0]: ")
    $if keyv = 0dh
    $keyv = 030h            ;default drive 0
    $end
    $if keyv <> 030h & keyv <> 031h
    $keyv = 0            ;ignore invalid key
    $end
$end
$if (ndrives & 0ffh) - 050h <> keyv
    D                    ;drive option
    $key chr(F1)            ;switch to next drive
    $key chr(01c00h)            ;turn off Drive option sub-menu
$end
;
$if initflag = 0aa55h            ;is it preformated?
    $fmt_key = msgkey("Would you like to preformat the drive...(Y/N)? ")
$else                    ;if it is not preformated
    $fmt_key = msgkey("The drive must preformat, proceed...(Y/N)? ")
    $if (fmt_key & 05fh) <> 059h
    $return             ;colse this file
    $end
$end
$if (fmt_key & 05fh) = 059h        ;preformat Yes or No
    $keyv = msgkey("Warning: data will be erased, proceed...(Y/N)? ")
    $if (keyv & 05fh) <> 059h        ;'Y'?
    $return             ;close this file
    $end
    R                    ;select pReformat option
    $if initflag = 0aa55h
    $keyv = msgkey("Would you like to scan bad tracks in drive...(Y/N)? ")
    $if (keyv & 05fh) = 059h    ;Y or N
        $key chr(F4)        ;<F4> verify drive function
    $end
    $end
    $key chr(F1)            ;<F1> preformat drive
    $keyv = msgkey("Do you like to update the above defects list...(Y/N)? ")
    $if (keyv & 05fh) = 059h
    Y                ;Yes, edit defect list
    $else
    N                ;No
    $end
;   $key chr(RET)            ;use default interleaving factor
    Y                    ;start to format drive
$else
    $keyv = msgkey("Warning: data will be erased, proceed...(Y/N)? ")
    $if (keyv & 05fh) <> 059h        ;'Y'?
    $return             ;close this file
    $end
    $del_all                ;delete all partition in drive
$end
;
$sizes = 0
$dowhile sizes = 0            ;ask for partition size
    $keyv = msgkey("Partition size in MB <1> 5, <2> 10, <3> 20, <4> 32 : ")
    $keyv = keyv & 0ffh
    $if keyv = 031h
    $sizes = 10240            ;5MB per partition
    $end
    $if keyv = 032h
    $sizes = 20480            ;10MB per partition
    $end
    $if keyv = 033h
    $sizes = 40960            ;20MB per partition
    $end
    $if keyv = 034h
    $sizes = 65534            ;32MB per partitioon
    $end
$end
P                    ;Partition option
$key chr(F1)                ;<F1> create partition
$cylin = ncyln + 1            ;get total cylinders
$sizes = sizes / (nheads * nsectors)    ;get partition size
$minsizes = 128 / (nheads * nsectors) +1;get minimum size
$npn = 0
$dowhile cylin >= minsizes & npn < 16
    $alloc = cylin
    $if alloc > sizes
    $alloc = sizes
    $end
    $key ",,", dec(alloc)
    $cylin = cylin - alloc
    $npn = npn + 1            ;count the # of partitions
$end
$if npn = 0
    $return                ;no partition created
$end
;
I                    ;Initialized option
$key chr(F1)                ;<F1> initialize with DOS
1                    ;partition # 1
Y                    ;'Y' to start initialization
$key "PART_1"                           ;volume label 'PART_1'
;** user may substitute volume name in "PART_1" of 1 line above.
;   (e.g. $key "SYSTEM" )
;
;   now, user must insert diskette(s) with
;   DOS and ADM.SYS into drive A:
;
$pn = 2
$dowhile pn <= npn            ;initialize all other partition(s)
    $key chr(F2)            ;<F2> initialize without DOS
    $key dec(pn)            ;partition #
    Y                    ;'Y' to start initialization
;** user can modify the volume name in next line
    $key "PART_", dec(pn)               ;volume label 'PART_#'
    $pn = pn + 1            ;count partition #
$end
$key chr(01c00h)            ;turn off sub-menu
$dowhile 1
    $msgkey("Remove the diskette and press <Ctrl><Alt><Del> to reboot...")
$end