From 2d04cacc5322951f187bb17e017c12920ac8ebe2 Mon Sep 17 00:00:00 2001 From: Mark Zbikowski Date: Thu, 25 Apr 2024 21:24:10 +0100 Subject: MZ is back! --- v4.0/src/CMD/FORMAT/FORMAT.SKL | 229 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 229 insertions(+) create mode 100644 v4.0/src/CMD/FORMAT/FORMAT.SKL (limited to 'v4.0/src/CMD/FORMAT/FORMAT.SKL') 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 + -- cgit v1.2.3