1 files changed, 229 insertions, 0 deletions

diff --git a/v4.0/src/CMD/FORMAT/FORMAT.SKL b/v4.0/src/CMD/FORMAT/FORMAT.SKL
new file mode 100644
index 0000000..11f18fd
--- /dev/null
+++ b/v4.0/src/CMD/FORMAT/FORMAT.SKL
@@ -0,0 +1,229 @@
+
+:util FORMAT
+
+:class 1
+:use EXTEND2                            ;File not found
+:use EXTEND4                            ;Too many open files
+:use EXTEND5                            ;Access denied
+:use EXTEND8                            ;Insufficient memory
+:use EXTEND15                           ;Invalid drive was specified
+:use EXTEND26                           ;Unknown media type
+
+:class A
+;msgBadDosVersion
+;"Incorrect DOS version",CR,LF,"$"
+:use COMMON1
+
+;msgCurrentTrack
+;"Head: %3d Cylinder: %4d", CR, 0
+;:def 2 "Head: %1 Cylinder: %2",CR
+:def 2 CR,"%1 percent of disk formatted                                        ",CR
+
+;msgDataSpace
+;"%l10d bytes available on disk",CR,LF,0
+:use COMMON3
+
+;msgFormatComplete
+;"Format complete              ",CR,LF,0
+:def 4 CR,"Format complete                                                     ",CR,LF
+
+;msgBadSpace
+;"%l10d bytes in bad sectors", CR, LF, 0
+:use COMMON5
+
+;msgTotalDiskSpace
+;"%l10d bytes total disk space", CR, LF, 0
+:use COMMON6
+
+;msgInsertDisk
+;"Insert new diskette for drive %c:",CR,LF
+:def 7 "Insert new diskette for drive %1:",CR,LF
+
+;msgSystemSpace
+;"%l10d bytes used by system", CR, LF, 0
+:use COMMON8
+
+;msgReInsertDisk
+;"Re-insert diskette for drive %c:",0
+:def 9  "Re-insert diskette for drive %1:",CR,LF
+
+;msgLabelPrompt
+;"Volume label (11 characters, ENTER for none)? ",0
+:use 10 COMMON35
+
+;msgFormatNotSupported
+;"Format not supported on drive %c:", CR,LF,0
+:def 11 CR,"Format not supported on drive %1:", CR,LF
+
+;msgInvalidDeviceParameters
+;"Invalid device parameters from device driver",CR,LF,0
+:def 12 CR,"Invalid device parameters from device driver",CR,LF
+
+;msgErrorInIOCTL
+;"Error in IOCTL call", CR, LF, 0
+:def 13 CR,"Error in IOCTL call         ",CR,LF
+
+;msgNotBlockDevice
+;"Not a block device", CR, LF
+:def 14 CR,"Not a block device          ",CR,LF
+
+;msgFATwriteError
+;"Error writing FAT", CR, LF, 0
+:def 15 CR,"Error writing FAT           ",CR,LF
+
+;msgDirectoryWriteError
+;"Error writing directory            ", CR, LF, 0
+:def 16 CR,"Error writing directory",CR,LF
+
+;msgAssignedDrive
+;"Cannot format an ASSIGNed, SUBSTed, or JOINed drive. ", CR, LF, 0
+:def 17 CR,"Cannot format an ASSIGNed, SUBSTed, or JOINed drive. ",CR,LF
+
+
+;msgNoSystemFiles
+;"Cannot find System Files",CR,LF,0
+:def 18 CR,"Cannot find System Files",CR,LF
+
+
+;msgNetDrive
+;"Cannot FORMAT a Network drive", CR, LF, 0
+:def 19 CR,"Cannot FORMAT a Network drive",CR,LF
+
+;msgBadCharacters
+;"Invalid characters in volume label          ", CR, LF, 0
+:use 20 COMMON21
+
+
+:CLASS B
+
+;msgParametersNotSupported
+;"Parameters not supported",CR,LF,0
+:def 21 CR,"Parameters not supported",CR,LF
+
+;msgFormatFailure
+; Note: This message must be long enough to wipe out message msgCurrentTrack
+;"Format terminated            ",CR,LF,0
+:def 22 CR,"Format terminated                                                  ",CR,LF
+
+;msgNotSystemDisk
+;"Disk unsuitable for system disk", CR, LF, 0
+:def 23 CR,"Disk unsuitable for system disk",CR,LF
+
+;msgDiskUnusable
+;"Invalid media or Track 0 bad - disk unusable", CR, LF, 0
+:def 24 CR,"Invalid media or Track 0 bad - disk unusable",CR,LF
+
+;msgBootWriteError
+;"Unable to write BOOT", CR, LF, 0
+:def 25 CR,"Unable to write BOOT                      ",CR,LF
+
+;msgDirectoryReadError
+;"Error reading directory", CR, LF, 0
+:def 26 CR,"Error reading directory",CR,LF
+
+;msgNeedDrive
+;"No target drive specified",CR,LF,0
+:use COMMON27
+
+;ContinueMsg
+;Press any key to continue
+:def 28 CR,"and press ENTER when ready..."
+
+;msgBadVolumeId
+;"Invalid Volume ID", CR, LF, 0
+:def 29 CR,"Invalid Volume ID                        ",CR,LF
+
+;msgSystemTransfered
+;"System transferred",CR,LF,0
+:use COMMON30
+
+;msgWhatIsVolumeId?
+;"Enter current Volume Label for drive %c: ", 0
+:def 31 CR,"Enter current Volume Label for drive %1: "
+
+
+;msgIncompatibleParametersForHardDisk
+;" with fixed disk", CR,LF,0
+:def 32 CR,"Parameters not compatible",CR,LF,"with fixed disk",CR,LF
+
+;msgPartitionTableReadError
+;"Error reading partition table", CR, LF, 0
+:def 35 CR,"Error reading partition table",CR,LF
+
+;msgSerialNumber
+:use COMMON36
+
+;msgFormatBroken
+;"Format Broken", CR, LF, 0
+:def 37 CR,"Format Broken",CR,LF
+
+;msgEXECFailure
+:def 38 CR,"Format not available on drive %1",CR,LF
+
+;NO_SYS_MESS:
+; THIS IS A SPECIAL MESSAGE WHICH IS INCLUDED IN THE "FAKE" IBMBIO.COM
+;  FILE PLACED ON DISKS FORMATTED /B or /R. NOTE THAT IT IS NUL TERMINATED.
+;"Non-System disk or disk error",13,10,0
+:def 39 CR,"Non-System disk or disk error",CR,LF
+
+;msgbadpartitiontable
+;"Bad Partition Table", CR, LF, 0
+:def 40 CR,"Bad Partition Table        ",CR,LF
+
+:CLASS C
+
+;msgParametersNotSupportedByDrive
+;"Parameters not Supported by Drive",CR, LF, 0
+:def 41 CR,"Parameters not Supported by Drive",CR,LF
+
+;msgCRLF
+:def 42 CR,LF
+
+;msgInterrupt
+:def 43 CR,LF,LF
+
+;msgInsertDosDisk db "Insert DOS disk in drive %c:", CR, LF
+:def 44 CR,"Insert DOS disk in drive %1:",CR,LF
+
+
+;msgHardDiskWarning db  CR,LF
+;                   db "WARNING, ALL DATA ON NON-REMOVABLE DISK",CR,LF
+;                   db "DRIVE %c: WILL BE LOST!",CR,LF
+;                   db "Proceed with Format (Y/N)?",0
+:def 45 CR,LF,"WARNING, ALL DATA ON NON-REMOVABLE DISK",CR,LF
+"DRIVE %1: WILL BE LOST!",CR,LF
+"Proceed with Format (Y/N)?"
+
+;msgFormatAnother? db "Format another (Y/N)?",0
+:def 46 CR,"Format another (Y/N)?"
+
+;msgPartitionTableReadError db "Error reading partition table", CR, LF, 0
+:def 47 CR,"Error reading partition table",CR,LF
+
+;msgPartitionTableWriteError db "Error writing partition table", CR, LF, 0
+:def 48 CR,"Error writing partition table",CR,LF
+
+;msgIncompatibleParametere forproc.sal not compatible", CR,LF
+;"Parameters not compatible", CR,LF,0
+:def 49 CR,"Parameters not compatible", CR,LF
+
+;msgNumAlloc
+:def 50 "%1 allocation units available on disk",CR,LF
+
+;msgAllocSize
+:def 51 "%1 bytes in each allocation unit",CR,LF
+
+;msgPartitionTableWriteError
+; "Error writing partition table", CR, LF, 0
+:def 52 CR, "Error writing partition table",CR,LF
+
+;msgSameSwitch
+:def 53  CR,"Same parameter entered twice",CR,LF
+
+;msgBad_T_N
+:def 54  CR,"Must enter both /T and /N parameters",CR,LF                        ;AN009;
+
+;MsgVerify
+:def 55  CR,"Attempting to recover allocation unit %1                          ",CR
+:end
+