v4.0/src/CMD/FORMAT/FORMAT.SKL

   1
   2 :util FORMAT
   3
   4 :class 1
   5 :use EXTEND2                            ;File not found
   6 :use EXTEND4                            ;Too many open files
   7 :use EXTEND5                            ;Access denied
   8 :use EXTEND8                            ;Insufficient memory
   9 :use EXTEND15                           ;Invalid drive was specified
  10 :use EXTEND26                           ;Unknown media type
  11
  12 :class A
  13 ;msgBadDosVersion
  14 ;"Incorrect DOS version",CR,LF,"$"
  15 :use COMMON1
  16
  17 ;msgCurrentTrack
  18 ;"Head: %3d Cylinder: %4d", CR, 0
  19 ;:def 2 "Head: %1 Cylinder: %2",CR
  20 :def 2 CR,"%1 percent of disk formatted                                        ",CR
  21
  22 ;msgDataSpace
  23 ;"%l10d bytes available on disk",CR,LF,0
  24 :use COMMON3
  25
  26 ;msgFormatComplete
  27 ;"Format complete              ",CR,LF,0
  28 :def 4 CR,"Format complete                                                     ",CR,LF
  29
  30 ;msgBadSpace
  31 ;"%l10d bytes in bad sectors", CR, LF, 0
  32 :use COMMON5
  33
  34 ;msgTotalDiskSpace
  35 ;"%l10d bytes total disk space", CR, LF, 0
  36 :use COMMON6
  37
  38 ;msgInsertDisk
  39 ;"Insert new diskette for drive %c:",CR,LF
  40 :def 7 "Insert new diskette for drive %1:",CR,LF
  41
  42 ;msgSystemSpace
  43 ;"%l10d bytes used by system", CR, LF, 0
  44 :use COMMON8
  45
  46 ;msgReInsertDisk
  47 ;"Re-insert diskette for drive %c:",0
  48 :def 9  "Re-insert diskette for drive %1:",CR,LF
  49
  50 ;msgLabelPrompt
  51 ;"Volume label (11 characters, ENTER for none)? ",0
  52 :use 10 COMMON35
  53
  54 ;msgFormatNotSupported
  55 ;"Format not supported on drive %c:", CR,LF,0
  56 :def 11 CR,"Format not supported on drive %1:", CR,LF
  57
  58 ;msgInvalidDeviceParameters
  59 ;"Invalid device parameters from device driver",CR,LF,0
  60 :def 12 CR,"Invalid device parameters from device driver",CR,LF
  61
  62 ;msgErrorInIOCTL
  63 ;"Error in IOCTL call", CR, LF, 0
  64 :def 13 CR,"Error in IOCTL call         ",CR,LF
  65
  66 ;msgNotBlockDevice
  67 ;"Not a block device", CR, LF
  68 :def 14 CR,"Not a block device          ",CR,LF
  69
  70 ;msgFATwriteError
  71 ;"Error writing FAT", CR, LF, 0
  72 :def 15 CR,"Error writing FAT           ",CR,LF
  73
  74 ;msgDirectoryWriteError
  75 ;"Error writing directory            ", CR, LF, 0
  76 :def 16 CR,"Error writing directory",CR,LF
  77
  78 ;msgAssignedDrive
  79 ;"Cannot format an ASSIGNed, SUBSTed, or JOINed drive. ", CR, LF, 0
  80 :def 17 CR,"Cannot format an ASSIGNed, SUBSTed, or JOINed drive. ",CR,LF
  81
  82
  83 ;msgNoSystemFiles
  84 ;"Cannot find System Files",CR,LF,0
  85 :def 18 CR,"Cannot find System Files",CR,LF
  86
  87
  88 ;msgNetDrive
  89 ;"Cannot FORMAT a Network drive", CR, LF, 0
  90 :def 19 CR,"Cannot FORMAT a Network drive",CR,LF
  91
  92 ;msgBadCharacters
  93 ;"Invalid characters in volume label          ", CR, LF, 0
  94 :use 20 COMMON21
  95
  96
  97 :CLASS B
  98
  99 ;msgParametersNotSupported
 100 ;"Parameters not supported",CR,LF,0
 101 :def 21 CR,"Parameters not supported",CR,LF
 102
 103 ;msgFormatFailure
 104 ; Note: This message must be long enough to wipe out message msgCurrentTrack
 105 ;"Format terminated            ",CR,LF,0
 106 :def 22 CR,"Format terminated                                                  ",CR,LF
 107
 108 ;msgNotSystemDisk
 109 ;"Disk unsuitable for system disk", CR, LF, 0
 110 :def 23 CR,"Disk unsuitable for system disk",CR,LF
 111
 112 ;msgDiskUnusable
 113 ;"Invalid media or Track 0 bad - disk unusable", CR, LF, 0
 114 :def 24 CR,"Invalid media or Track 0 bad - disk unusable",CR,LF
 115
 116 ;msgBootWriteError
 117 ;"Unable to write BOOT", CR, LF, 0
 118 :def 25 CR,"Unable to write BOOT                      ",CR,LF
 119
 120 ;msgDirectoryReadError
 121 ;"Error reading directory", CR, LF, 0
 122 :def 26 CR,"Error reading directory",CR,LF
 123
 124 ;msgNeedDrive
 125 ;"No target drive specified",CR,LF,0
 126 :use COMMON27
 127
 128 ;ContinueMsg
 129 ;Press any key to continue
 130 :def 28 CR,"and press ENTER when ready..."
 131
 132 ;msgBadVolumeId
 133 ;"Invalid Volume ID", CR, LF, 0
 134 :def 29 CR,"Invalid Volume ID                        ",CR,LF
 135
 136 ;msgSystemTransfered
 137 ;"System transferred",CR,LF,0
 138 :use COMMON30
 139
 140 ;msgWhatIsVolumeId?
 141 ;"Enter current Volume Label for drive %c: ", 0
 142 :def 31 CR,"Enter current Volume Label for drive %1: "
 143
 144
 145 ;msgIncompatibleParametersForHardDisk
 146 ;" with fixed disk", CR,LF,0
 147 :def 32 CR,"Parameters not compatible",CR,LF,"with fixed disk",CR,LF
 148
 149 ;msgPartitionTableReadError
 150 ;"Error reading partition table", CR, LF, 0
 151 :def 35 CR,"Error reading partition table",CR,LF
 152
 153 ;msgSerialNumber
 154 :use COMMON36
 155
 156 ;msgFormatBroken
 157 ;"Format Broken", CR, LF, 0
 158 :def 37 CR,"Format Broken",CR,LF
 159
 160 ;msgEXECFailure
 161 :def 38 CR,"Format not available on drive %1",CR,LF
 162
 163 ;NO_SYS_MESS:
 164 ; THIS IS A SPECIAL MESSAGE WHICH IS INCLUDED IN THE "FAKE" IBMBIO.COM
 165 ;  FILE PLACED ON DISKS FORMATTED /B or /R. NOTE THAT IT IS NUL TERMINATED.
 166 ;"Non-System disk or disk error",13,10,0
 167 :def 39 CR,"Non-System disk or disk error",CR,LF
 168
 169 ;msgbadpartitiontable
 170 ;"Bad Partition Table", CR, LF, 0
 171 :def 40 CR,"Bad Partition Table        ",CR,LF
 172
 173 :CLASS C
 174
 175 ;msgParametersNotSupportedByDrive
 176 ;"Parameters not Supported by Drive",CR, LF, 0
 177 :def 41 CR,"Parameters not Supported by Drive",CR,LF
 178
 179 ;msgCRLF
 180 :def 42 CR,LF
 181
 182 ;msgInterrupt
 183 :def 43 CR,LF,LF
 184
 185 ;msgInsertDosDisk db "Insert DOS disk in drive %c:", CR, LF
 186 :def 44 CR,"Insert DOS disk in drive %1:",CR,LF
 187
 188
 189 ;msgHardDiskWarning db  CR,LF
 190 ;                   db "WARNING, ALL DATA ON NON-REMOVABLE DISK",CR,LF
 191 ;                   db "DRIVE %c: WILL BE LOST!",CR,LF
 192 ;                   db "Proceed with Format (Y/N)?",0
 193 :def 45 CR,LF,"WARNING, ALL DATA ON NON-REMOVABLE DISK",CR,LF
 194 "DRIVE %1: WILL BE LOST!",CR,LF
 195 "Proceed with Format (Y/N)?"
 196
 197 ;msgFormatAnother? db "Format another (Y/N)?",0
 198 :def 46 CR,"Format another (Y/N)?"
 199
 200 ;msgPartitionTableReadError db "Error reading partition table", CR, LF, 0
 201 :def 47 CR,"Error reading partition table",CR,LF
 202
 203 ;msgPartitionTableWriteError db "Error writing partition table", CR, LF, 0
 204 :def 48 CR,"Error writing partition table",CR,LF
 205
 206 ;msgIncompatibleParametere forproc.sal not compatible", CR,LF
 207 ;"Parameters not compatible", CR,LF,0
 208 :def 49 CR,"Parameters not compatible", CR,LF
 209
 210 ;msgNumAlloc
 211 :def 50 "%1 allocation units available on disk",CR,LF
 212
 213 ;msgAllocSize
 214 :def 51 "%1 bytes in each allocation unit",CR,LF
 215
 216 ;msgPartitionTableWriteError
 217 ; "Error writing partition table", CR, LF, 0
 218 :def 52 CR, "Error writing partition table",CR,LF
 219
 220 ;msgSameSwitch
 221 :def 53  CR,"Same parameter entered twice",CR,LF
 222
 223 ;msgBad_T_N
 224 :def 54  CR,"Must enter both /T and /N parameters",CR,LF                        ;AN009;
 225
 226 ;MsgVerify
 227 :def 55  CR,"Attempting to recover allocation unit %1                          ",CR
 228 :end
 229