atari-sources-request@daisy.UUCP (11/29/87)
Submitted by: imagen!decwrl!hplabs!ames!rochester!cornell!batcomputer!braner (braner)
comp.sources.atari.st: Volume 0, Issue 47
Archive-name: ibmfmt.c
~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-
[Editor's Note]
The following note from Moshe is pretty self explainatory, I can
only test this on my DSDD 3.5" disk as I don't have a IBM system that
uses 3.5" disks nor do I have a 5 1/4" B: disk. The program does compile
under MegaMax C and runs as far as I can test it.
the checksum is:
bytes = 5891( 6071) cksm = 1030 ibmfmtr.c
~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-
Hi, James!
Here is a submission for comp.*.atari.st (some for each):
This is a corrected version of the 200% MS-DOS-compatible formatter.
It will format 3.5" (720K, MS-DOS 3.3) disks in drive A and 5.25" (360K,
MS-DOS 2.0) disks in drive B (assuming you have a 5.25" drive attached
as drive B!). (Sorry, no frills!) The disks are NOT bootable (on MS-DOS)
but both the Atari ST and MS-DOS machines can read and write files on
them, even in subdirectories. The correction (of the early version that
I posted to comp.sys.atari.st) is that now a random disk ID is created.
In the early version, the same ID was always used (stupid me!).
Thanks for doing the moderation job (must be a pain)!
- Moshe Braner
Here is the source code (Megamax C), followed by the uuencoded binary.
------------------ cut here ------------------
/**
** Program to format MS-DOS-compatible disks on the Atari ST
** Code for Megamax C compiler 871023
**/
#include <osbind.h>
#define WORD int /* 16 bits!!! */
/*
* IBM style boot sector for nonsystem 5.25" disk:
*
* (This is simply:
* WORD boot5[256] = { 0xEB3C, ... };
* done in a sick way to bypass the sick element-by-element
* array-initialization scheme used by Megamax...)
*/
extern boot5();
asm{
boot5:
DC.W 0xEB3C,0x9049,0x424D,0x2020,0x322E,0x3000,0x0202,0x0100
DC.W 0x0270,0x00D0,0x02FD,0x0200,0x0900,0x0200,0x0000,0x2020
DC.W 0x2020,0x2020,0x2020,0x2020,0x2020,0x2020,0x2020,0x2020
DC.W 0x2020,0x2020,0x2020,0x2020,0x2020,0x2020,0x2020,0x0E1F
DC.W 0x33C0,0xFA8E,0xD0BC,0x007C,0x36C7,0x0678,0x00F4,0x7C36
DC.W 0xA37A,0x00FB,0xCD13,0x7264,0xB850,0x008E,0xC033,0xDBB8
DC.W 0x0102,0xB906,0x0033,0xD2CD,0x1372,0x51B1,0x0B26,0x8A07
DC.W 0x3A87,0xDE7C,0x754E,0x268A,0x4720,0x3A87,0xE97C,0x7544
DC.W 0x43E2,0xEAB8,0x7000,0x8EC0,0x33DB,0xB806,0x02B1,0x04B6
DC.W 0x01CD,0x1372,0x27B7,0x0CB8,0x0902,0xB901,0x01B6,0x00CD
DC.W 0x1372,0x19CD,0x11D0,0xC0D0,0xC025,0x0300,0x7501,0x4040
DC.W 0x8BC8,0x33C0,0xBB0C,0x00EA,0x0000,0x7000,0xBEFF,0x7CE8
DC.W 0x0E00,0xEBFE,0xBE15,0x7DE8,0x0600,0xB400,0xCD16,0xCD19
DC.W 0xAC84,0xC074,0x08B4,0x0EB3,0x07CD,0x10EB,0xF3C3,0x4942
DC.W 0x4D42,0x494F,0x2020,0x434F,0x4D49,0x424D,0x444F,0x5320
DC.W 0x2043,0x4F4D,0xDF02,0x2502,0x092A,0xFF50,0x000F,0x020D
DC.W 0x0A44,0x6973,0x6B20,0x426F,0x6F74,0x2066,0x6169,0x6C75
DC.W 0x7265,0x0D0A,0x000D,0x0A4E,0x6F6E,0x2D53,0x7973,0x7465
DC.W 0x6D20,0x6469,0x736B,0x206F,0x7220,0x6469,0x736B,0x2065
DC.W 0x7272,0x6F72,0x0D0A,0x0D0A,0x5265,0x706C,0x6163,0x6520
DC.W 0x616E,0x6420,0x7374,0x7269,0x6B65,0x2061,0x6E79,0x206B
DC.W 0x6579,0x2077,0x6865,0x6E20,0x7265,0x6164,0x790D,0x0A00
DC.W 0,0,0,0,0,0,0,0
DC.W 0,0,0,0,0,0,0,0
DC.W 0,0,0,0,0,0,0,0
DC.W 0,0,0,0,0,0,0,0
DC.W 0,0,0,0,0,0,0,0
DC.W 0,0,0,0,0,0,0,0
DC.W 0,0,0,0,0,0,0,0
DC.W 0,0,0,0,0,0,0,0
DC.W 0,0,0,0,0,0,0,0
DC.W 0,0,0,0,0,0,0,0x55AA
}
/*
* IBM style boot sector for nonsystem 3.5" disk:
*/
extern boot3();
asm{
boot3:
DC.W 0xEB34,0x9049,0x424D,0x2020,0x332E,0x3300,0x0202,0x0100
DC.W 0x0270,0x00A0,0x05F9,0x0300,0x0900,0x0200,0x0000,0x0000
DC.W 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0012
DC.W 0x0000,0x0000,0x0100,0xFA33,0xC08E,0xD0BC,0x007C,0x1607
DC.W 0xBB78,0x0036,0xC537,0x1E56,0x1653,0xBF2B,0x7CB9,0x0B00
DC.W 0xFCAC,0x2680,0x3D00,0x7403,0x268A,0x05AA,0x8AC4,0xE2F1
DC.W 0x061F,0x8947,0x02C7,0x072B,0x7CFB,0xCD13,0x7267,0xA010
DC.W 0x7C98,0xF726,0x167C,0x0306,0x1C7C,0x0306,0x0E7C,0xA33F
DC.W 0x7CA3,0x377C,0xB820,0x00F7,0x2611,0x7C8B,0x1E0B,0x7C03
DC.W 0xC348,0xF7F3,0x0106,0x377C,0xBB00,0x05A1,0x3F7C,0xE89F
DC.W 0x00B8,0x0102,0xE8B3,0x0072,0x198B,0xFBB9,0x0B00,0xBED6
DC.W 0x7DF3,0xA675,0x0D8D,0x7F20,0xBEE1,0x7DB9,0x0B00,0xF3A6
DC.W 0x7418,0xBE77,0x7DE8,0x6A00,0x32E4,0xCD16,0x5E1F,0x8F04
DC.W 0x8F44,0x02CD,0x19BE,0xC07D,0xEBEB,0xA11C,0x0533,0xD2F7
DC.W 0x360B,0x7CFE,0xC0A2,0x3C7C,0xA137,0x7CA3,0x3D7C,0xBB00
DC.W 0x07A1,0x377C,0xE849,0x00A1,0x187C,0x2A06,0x3B7C,0x4038
DC.W 0x063C,0x7C73,0x03A0,0x3C7C,0x50E8,0x4E00,0x5872,0xC628
DC.W 0x063C,0x7C74,0x0C01,0x0637,0x7CF7,0x260B,0x7C03,0xD8EB
DC.W 0xD08A,0x2E15,0x7C8A,0x16FD,0x7D8B,0x1E3D,0x7CEA,0x0000
DC.W 0x7000,0xAC0A,0xC074,0x22B4,0x0EBB,0x0700,0xCD10,0xEBF2
DC.W 0x33D2,0xF736,0x187C,0xFEC2,0x8816,0x3B7C,0x33D2,0xF736
DC.W 0x1A7C,0x8816,0x2A7C,0xA339,0x7CC3,0xB402,0x8B16,0x397C
DC.W 0xB106,0xD2E6,0x0A36,0x3B7C,0x8BCA,0x86E9,0x8A16,0xFD7D
DC.W 0x8A36,0x2A7C,0xCD13,0xC30D,0x0A4E,0x6F6E,0x2D53,0x7973
DC.W 0x7465,0x6D20,0x6469,0x736B,0x206F,0x7220,0x6469,0x736B
DC.W 0x2065,0x7272,0x6F72,0x0D0A,0x5265,0x706C,0x6163,0x6520
DC.W 0x616E,0x6420,0x7374,0x7269,0x6B65,0x2061,0x6E79,0x206B
DC.W 0x6579,0x2077,0x6865,0x6E20,0x7265,0x6164,0x790D,0x0A00
DC.W 0x0D0A,0x4469,0x736B,0x2042,0x6F6F,0x7420,0x6661,0x696C
DC.W 0x7572,0x650D,0x0A00,0x4942,0x4D42,0x494F,0x2020,0x434F
DC.W 0x4D49,0x424D,0x444F,0x5320,0x2043,0x4F4D,0x0000,0x0000
DC.W 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x55AA
}
WORD buf[5000];
main()
{
register WORD *p;
int i, j, virgin, five, tracks, drive;
long a, b, magic;
Cconws("\033E\r\n\n\tMS-DOS compatible disk formatter, v1.1");
Cconws("\r\n\n\tEnter size of disk (3/5): ");
i = Cnecin();
if (i == '5') {
five = 1;
tracks = 40;
drive = 1;
} else {
five = 0;
tracks = 80;
drive = 0;
}
/* format all tracks */
if (five)
Cconws("\r\n\n\tAbout to >> FORMAT << 5.25\" disk in drive B.");
else
Cconws("\r\n\n\tAbout to >> FORMAT << 3.5\" disk in drive A.");
Cconws("\r\n\n\t\tProceed (y/n)? ");
i = Cnecin();
if (i!='y' && i!='Y') exit(0);
Cconws("\r\n\n\tFormatting");
magic = 0x87654321;
virgin = 0xE5E5;
for (i=0; i<tracks; i++) { /* tracks */
if (five || (i&1))
Cconout('.');
for (j=0; j<2; j++) { /* sides */
if (Flopfmt(buf,0L,drive,9,i,j,1,magic,virgin)) {
Cconws("\r\n\nError formatting track ");
Cconout((i/10) + '0');
Cconout((i%10) + '0');
Cconws(" (decimal) on side ");
Cconout(j+'0');
Cconws("!\r\n");
goto bye;
}
}
}
/* Boot sector, FAT and root directory */
for (i=0; i<2304; i++) /* one track */
buf[i] = 0;
if (five)
j = 2;
else
j = 9;
a = Flopwr(buf, 0L, drive, 1, 0, 1, j);
if (five) {
buf[256] = 0xFDFF; /* start of first FAT */
buf[257] = 0xFF00;
buf[768] = 0xFDFF; /* start of second FAT */
buf[769] = 0xFF00;
p = (WORD *) &boot5;
} else {
buf[256] = 0xF9FF;
buf[257] = 0xFF00;
buf[1536] = 0xF9FF;
buf[1537] = 0xFF00;
p = (WORD *) &boot3;
}
for (i=0; i<256; i++) /* boot sector */
buf[i] = *p++;
magic = Random()<<8; /* get a random ID number */
p = (WORD *) &magic;
buf[4] = *p++;
buf[5] = *p;
b = Flopwr(buf, 0L, drive, 1, 0, 0, 9);
if (a || b)
Cconws("\r\n\n\tError writing root sectors! ");
else
Cconws("\r\n\n\tDone. Hit any key.");
bye:
Cnecin();
}