chris@pipe.cs.wisc.edu (Chris Schumann) (04/16/88)
Hmm... Another attempt to publish a program rejected a while back, so here goes. Exec this, then unBNY it, and you will have a BASIC program that modifies ProDOS so it can read disks with more than 280 blocks, and the FILER to make disks with more than 35 tracks. What good is it? Well, on my //c, I format many disks to be 39 tracks, and the built-in drive handles it just fine. I don't have an external disk, so I don't know if those work, but hey, 10% extra storage per disk with this FREE program: you can't lose. This one is in BASIC, so it's easy to read. You can even guess which magazine I tried to publish it in. It only works for ProDOS up to 1.2, since I don't have any newer ones. Should be simple to modify for you ProDOS hackers. Keep in mind that this program will not add extra tracks to disks that already have stuff on them. You must use the FILER and reformat to add the tracks. Also, the disks you make will not work on old Disk ][ drives, any may or may not work in UniDisk drives. If anybody does update this for ProDOS 1.4, I would like a patch. Chris Schumann chris@pipe.cs.wisc.edu REM 8< Cut here >8 They're supposed to be scissors CALL-151 E00:38 A5 FF D0 32 D8 20 8E FD AD 30 BF 8D 6A 0E 20 00 BF C7 6D 0E 0D 80 02 E18:D0 1D 20 00 BF C5 69 0E B0 15 AD 81 02 29 0F AA E8 8E 80 02 A9 2F 8D 81 E30:02 20 00 BF C6 6D 0E A2 08 B0 0E 20 00 BF C3 70 0E B0 06 A2 26 20 53 0E E48:AA 20 53 0E 4C D0 03 20 ED FD E8 BD 59 0E D0 F7 60 A0 F3 E1 F6 E5 E4 8D E60:00 C5 F2 F2 EF F2 87 8D 00 02 00 81 02 01 80 02 07 7E 0E E3 06 00 00 00 E78:00 00 8F B0 00 00 05 D8 AE C2 CE D9 00 F00:D8 A0 00 84 FF 88 84 E0 A9 0F 85 E1 20 67 FD A0 00 A2 FF 20 2F 0F E6 E0 F18:D0 02 E6 E1 0A 0A 0A 0A 91 E0 20 2F 0F 11 E0 91 E0 45 FF 85 FF 90 E4 E8 F30:BD 00 02 09 80 C9 A0 F0 F6 49 B0 C9 0A 90 17 69 88 09 20 C9 FA B0 0C 68 F48:68 E0 04 B0 BF 98 91 E0 4C 69 FF 18 29 0F 60 F00G 0A474C01FC01080205003BAE00004BAF00000200E6060008582E50414E444552 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000005A0000000000000000 0000000000000000000000000000000000000000000500000000000000000000 15084600B8C248284129D0D32841CB32353629002C085000B8C24C284129D041 C9323536CAC248284129003D085A00BAE7283231293A9D3A893A970049086400 4424D0E72834290069086E00A231323A9631323ABA223E3E3E20582D50414E44 4552203C3C3C22008F087800A232303A96393ABA22505245535320414E59204B 455920544F20424547494E2E2200C2088200A232323ABA222A2A2A2020202057 52495454454E20425920434852495320534348554D414E4E202020202A2A2A22 00D6088C00B5C931363338342C3132383ABE412400DF089600973AA235000C09 A000BA22544849532050524F4752414D2057494C4C20414C5445522054484520 46494C455220414E4422003909AA00BA2250524F444F5320544F20414C4C4F57 204D4F524520545241434B5320504552204449534B2E22005B09B400BA3ABA22 444F20594F55205749534820544F20444F20544849533F223B007609BE00BE41 243AAD4124D0224E22CE4124D0226E22C4973A80008F09C800AD4124D1CF2259 22CD4124D1CF227922C4313930009509D20097009F09DC00A5AB32373000B609 E600BA4424225645524946592050524F444F532200CC09F000BA442422564552 4946592046494C45522200DE09FA00B93231362C303A973AAB333530000A0A0E 01BA22544F20574F524B2050524F5045524C592C205448452050524546495820 4D5553542042452200380A1801BA2253455420544F2041204449524543544F52 5920574954482050524F444F5320414E442054484522004C0A2201BA2246494C 455220494E2049542E22007C0A2C01BA3ABA22494E534552542041204E455720 4449534B204F522050524553532045534320544F205155495422008C0A3601B5 C931363338342C31323800940A4001BE412400A80A4A01AD4124D0E728323729 C4973A893A8000B10A5401AB32313000C80A5E01BA442422554E4C4F434B2050 524F444F532200DE0A6801BA442422554E4C4F434B2046494C45522200E60A72 01893A97000D0B7C01BA3ABA22484F57204D414E5920545241434B5320444F20 594F5520574953483F223B00200B86018422223B543AAD54D131C4333830002D 0B9001AD54CF36C433383000570B9A01BA3ABA2253455454494E472055502046 4F52202254C833352220545241434B532C204F522200710BA401BA2854C83335 29CA382220424C4F434B532E223ABA00840BAE0156D0C24C28283335C85429CA 382900A60BB801BA442422424C4F41442050524F444F532C4124323030302C54 5359532200BD0BC2014944D0E2283231303035293A494424D0222200D80BCC01 AD4944D0313431C44944D0313A494424D022312E302200F40BD601AD4944D032 34C44944D0323A494424D022312E302E312200110CE001AD4944D0323334C449 44D0333A494424D022312E302E3222002C0CEA01AD4944D030C44944D0343A49 4424D022312E312E312200460CEC01AD4944D03338C44944D0353A494424D022 312E322200640CF401B24D4F5245204944454E54494649434154494F4E204845 524500AB0CFE01AD494424D02222C4BA22534F5252592C2043414E204E4F5420 4944454E544946592050524F444F532056455253494F4E223ABA224E554D4245 522E223AA232303A8000BD0C0802BA2250524F444F53202249442400D90C1202 B44944AB3534302C3535302C3536302C3537302C35373200EB0C1C02B9323037 34392C563AAB35393000FD0C2602B932313030352C563AAB353930000F0D3002 B932323733312C563AAB35393000210D3A02B932323234332C563AAB35393000 330D3C02B932323735352C563AAB35393000460D4402B2505554204D4F524520 4845524500680D4E02BA44242242534156452050524F444F532C412432303030 2C545359532200810D5802BA3ABA2250524F444F53204348414E4745442E2200 A20D6202BA442422424C4F41442046494C45522C4124323030302C5453595322 00AF0D6C02B931363937312C5600BF0D7602B933313232302C3335C85400E00D 8002BA44242242534156452046494C45522C4124323030302C545359532200F8 0D8A02BA3ABA2246494C4552204348414E4745442E22002C0E9402BA3ABA3ABA 22594F55204D4159204E4F57205553452054484953204449534B20544F204352 4541544520414E44223A005B0E9E02BA22555345204449534B53205749544820 4D4F524520424C4F434B532E20204245205355524520544F2200850EA802BA22 434F505920544845204348414E4745442050524F444F53204F5220544845204E 45572200A50EB202BA22424C4F434B532057494C4C20424520554E555341424C 452E2200DC0EBC02BA3ABA2252454D454D4245522C2054484953204449534B20 484153204E4F54204245454E223ABA22455850414E4445442E2200E40EC602BA 3A800000000A000000000000000000000000000000000000000000000000000017 BSAVE X.BNY,A$1000,L$0780 E00G