[comp.binaries.apple2] Problock Part 2 of 2

greyelf@wpi.WPI.EDU (Michael J Pender) (01/06/91)

This is a new program I just wrote that I call ProBlock.

This is a disk recovery program.  It runs under Prodos 8, so any
machine that can handle prodos should be able to run it.  It is 
written in Hyper C prodos, and gives an idea for the power of the 
language (If only the stupid bugs in printf and putstr could be 
fixed... ARRGH!).

GS users should select GS.SYSTEM.  That is the pre-boot patch for 
the GS which then loads C.SYSTEM.  Other users should just select
C.SYSTEM.  The program is actually written in HyperC prodos, and is 
interpreted on the fly.  That is why the opsys file has been included.

All the disk level calls are made through the mli, so it should
be compatible with any ProDOS compatible device, as well as DOS 
3.3 and pascal disks.

It allows copying selected blocks, writing uncompressed disk 
images to files, it can interpret Prodos disk organization information
automatically, and can do pretty much everything that helps in repairing 
a disk gone bad.

I don't expect any major problems with it, but it could really use some 
features that aren't in there yet.  But I have to save something extra
for the people that send in registration fees...

If the response is good (if anyone actually buys it :^) I will complete
a version with a block editor, single drive copy capability, and multiple
read mode, as well as being faster.  

I hope you'll be impressed with it.  Let me know of any results.

                      Michael Pender
                    1480 Mapleton Ave
                   Suffield, CT, 06078
 
FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
LPROBLOCK.SHK   AYUMAADACA(4lIAgAAAAAAAAAAAAAYRMAwEv
)Ai7WJGPF3LY3DkCBGMMr0x(xCPwxfwowT0dEA3ywtg(BiN(0wvQSQjfEAIPhDiA
4rwSQEQsucY7yYDAacA(2dI(rUI8ORDiuAIU7)LqGQzi9HJ6Ih4M6DwIC8zsIAMe
T9D5uMI2BQL2aUIILAMYrDEz(DMkGc48HAEsIcA9NEMNVCE7Oo4kfCMJaUwEWcA)
SFImWEEwnaDsLdA8GAM6WAMxJAM1rFEziE8WUFEdTFEOuYAqgYDGALIwthxiT9DE
r4CS51BjtIMy1HAZsAwWtgB4uIA7TMBDuPEIHPMMrfzWsz7oq0xiHNMW54TkIybM
6MYIWgB7svDG(MAkRXAdT)wsA84myAICXdA073DcD1Lma8IrSdI0vMI6iUIQOBAQ
vMAQkMEcJPLwy77wAZwWEOE4w8Le(QQyKkDJNEIYuQAuTJA8ORMqrTM)WR0kf8Io
94Jo6XEugCAM9VU4AUMwhWM0AUc6fWE(dOTOkqRMkNQ4TFIyhiIdfaQYaZYWJMMI
goRWW4B8LFAOvUA6O5B8WeMCQoRk037QhNYEsA4IIWMM(UQ(GzLXYf8e(YQW6UAN
6JI(rNJDVME48NAK8FAqBUEwPQI0W5Ik6vIqxEAUBCIAACIbTAAJTdAQCcEQlZMk
8dASEGLBrb0YcYcemNE(rZEosAIxDmBEu5Bw9pBlYfMTUGQEpNDtxsBBJJA49hEj
TBAIvAAgNLA4SoEAAww2wMA66MK68MIAtMoKwcRSawKMEPIAwAgqlzKawMA(Z4IY
oC8EG6Be8NwIIoE6yIAAefAyFp882oBH9t8G5QDAOBcIwMIqo7IeB4AmoEZmocI2
ocI0ocIylcIwQAAAQJZAwEUXNGQQu5mfihNBCWwgWo1LDKvoKIIgo5vMksO(qwwJ
IjgHBPK8i2xrdfwLXAMzAYAII9gFzCQyKPmAdtQliAtNpCoBuF2NJTnsNpQCxhwm
JFnbPdKgZdAolACDGjm5I3gfZsP9n8BtPYVOKDtE)YatK)vMJHicoYoAYD2XFgi5
Ag2VYDwJgChPcJRx3a3sbXO6Ao(MO4mPLAiBL(Rl0LKMsVXxkRppT4yuwtx8kJZx
ZlEwcZuaU9JuZoIxcU3BNSJRMyS1NqHloDcGeZ5GpY1gASumPV6G36(JjvGeIKqt
x4MwsxgCgJFyOk2mxV)uNBV2KUwTWtuOMB2ACufSqAAxpVBMMuE5EiwTIgOAxGK8
(E7LPA)9CA(qLmsIoA0J54wQDCp3EDRBNOOYAYdMYQQojDMZBhQwOMGSIgMEw04o
DiizAAADJGMAsAzN044wDgixeHDhNOMcgasMQM0wCDSQtYgwOEOBQKdO4QQExQJC
DlhxNKOhMpXOKU8ojy3LApjDMMMeypDEaM0oDD3kYDjjMOISklbFwc84jqmOlnBD
NEJAAYaMxwAYgAgmWFzCJAOAAAVMxcAwRAgT6pDgAEg6gDwVw14oMmDmWmfGjScm
wYSgARBwFH9lqQzoMSlm5CaZANFNEAzlpwUFJQH09bETuwAVjAEqKPzROOICQRuO
3wcMQir7URjDOMGrgGUAWQ0gDgc4ZUQQMANvAstAMwQIWywbAADxAJIgE4oM0wYw
DjC2ABRBWJCE0pSO2Q4AjDn0l11yXZZD9xKElt1AxUVuKMTXOAJ3A0dJywAIwCPy
qFD3XNeDt)dXdps12RTEVp11BDHTtQZNQkF0BAqYgWihNMWnYCwFy4ggYSZoA8Rw
dJCMd(oLoUGGYVjuyrTRmPGgeOwd381YXVOZPp32FDJuoDuN4ds1z1x5N75VEmBB
VwMIyBEkDyxF)ql1XNIvQm(c094I2B5z9JYxFXF3NsbbzgY8b7wdnYA5CBBlEKEP
BAsO67aL1GoaHdlrWstHfy(2BUwuU4BxBIGQI5JJCkoAkEGUQkAiBaEQqayA7kBa
oCBxRssICyJypbWZKACfA9ELeXG9i0bMgxCJGEH38(pIcIgcF2HWnyTMJkAAdiMk
q8ClLQC4whrMRCT5PFJXQR2Ki2JygHX0kQX)egAbLGel5Nw7gkf5m)5QH89wiIQG
I0LW9lk3PzL)ABZCASCdGYMWxDlPKEIAfvnyYLjo2bwoQEAYNEKNhirMrdfFasUy
plAcAGEkgyVCQT1G2EwEEAIA2EMM)cI7ETlEgCKDQmxBKAQ4Q4ErItK7ALg84e)B
CURwBMA4IAAhjxB(ZQyDAAjjAAIEGAJAMjk(4rnPIczQXSBsKMIKoEF0CLbAA9zh
2LzhfUEAdAgGDi9yIq6K4OsjxvoYyMQ4BAjBKWS0iv4DoJzwC2TYJcImUACQxizH
gIjhnRw4q4BnGACbCgzUQAwjCJDwUVAVOKAKASRUpJgJORhQMnxbpGGWBholirZD
4UWAYdCJC0CWZFQCBoWDV6KvOBVrDRADcMAesAg0BplUahEQcxgUAMAAJAEJDBXY
khcHcoBr5YAKLFIy3ArhpA0NKdCYA5QkFUAMEkaQAgEZkhXEJVxBwAwEb8I6HUC8
slffrQgD6nxQnNQFElqnDwyyAQGAEniAvtk6MA8AFAHQMVEwpmHlKWYkjZgFOsUb
TvhOArWl4nzz)i106GpYOpMCTA3GKBUTvxz5WpEottuGlrNVgBXl2x3TbcEDYDp6
ObM0gAIHoXnCaBQEgMSlMEevSKWZAF9McLjpgYa4FL4MDABSBb(goDSSGQJEZZwx
nFUlmiLA1lPQVEKo2zU7OPocHCF5rFPGq5vDmDO65QC4FhGpWIv8ZZFAd6BLQ1QA
OYmEGmitgCAPyiSCEnRavRIpcGaQTtUAwCnxEaSzCraIQclMLlsrh6kdYbmDJ3lV
hAKcEEAUBALMA6GDVD5gJbUFKGBNiakZhHpgqvTBJuTEUkNwNgaXZqivV7niJHSr
z56EzaKgGokGWr3aQxWWc2B0UbQNYVlaQING2Swh5(yytUUoRcBiFCjnB4MkKZNZ
4Vo6Z9MANEcybDhP7azrADgTt8182C5YiWLm3q3Y11ysIUY10RK9MgWqSR6uLsGP
11y1i6ZS5KBjsoiFhEscIlGDuQ5knzt1FAszYQb9b05cYBgUdmJTt6WldDl5KJ96
DI2uXjX77BIADbrkaPrYZqMgtSh3uf0N8lV3avz5L3kslffDEdpk)HDbAziWS64A
VxfGncwIkHMezBvatCRyAFgAimiwBVHMz0NY7iXZx1nwGciPhsBAAgK9ABfHSz0A
z)sAy9SCl1EKIOAUGVlvQhzcAa83kDgBHkF6QGkBjBYQLHpqozmpfGYcOQeRCn9M
wZsTMVqdgmjo)cVAUiyEazFvZrmfqBjzccZ0OMezMn22R6slcGdmzWzBuVV2FOvh
kxA56sUB6UgR0XMkpcOzAlZ(b53cM8CozJU59G9NliSXAqQH0mEL6DlV9E5sXmmh
OsqKqDsbWorkgozKa0JjtGXJGkMkrX6YoVGXMG4QKAbZHhb9QKhOdroidKAopdZY
PPE0nTgWraub47W3sigF2YA8MFM1VqK0UmnqAYBVA6AY)KjMKv()avUNy21QnDsE
FiNEAF(nW0wxXiAxVfGV8DgCbkqjh2u16)gWWoh1Cqrb9FVTYVtmyrfVdzMli0aY
mz0GCZpIbvwMpoVjuBRqeTbezzipcjqtnW2p5fHcJPrBx4dguW1vkXIt5nBdoTGR
qhZpU8c5ZmQmy4EP0vTcm9fJPLd9IfjMWBigNnhoVNiXyYY0W9lGDJvuDp3yeI4s
pqJruAMqyp3Ly7Qk3N2JCPM5)sM6fKFDeR7l27UK1evsfZKJgVM6xq62vqLGBT9M
6fRSymR1wUiD4Kzi4K70rmt0W69Wyek(wdLdN5XHUldHlykRMfbapkP8A3WmrbEE
USsyVHZo(uk9BunYQlM2eqzwSI2Z11r1ykd9W1NXAagM6bgg8Dz(CCdnIu1)x52i
UhKAlIM3pei83ZzCwjQqBbQUaGeHe7N3itVgckpssmNvh9LWoGlzoKhQwYK4c0bK
d)biA)qogG4ApNgqEAQACADBNkSkXTbks)q(DlzE4E4AimKWyHhIcAwAEMImbBIA
EMAkbAAADMIkaBIADMAi44LoAAAK4EIGAAAI4YAY)AIGBMQg4kAeAAAC3UIyAMB8
5QIe5cIeAAAa5YI6AAA25UI8mAAqFMAnQBIAFMIm5IMmQEEI5cY4aJIChCUOvgjE
dAERNUS2SABxLUR2QEQ(8EIQ3EAeDHASJAQAQMAq6cAvuFEIUMAo6YAJSFMYXMIo
6QAR2EEmbMIo6IAhbEM0eMIo8EBBAMAqDEA6)hIu9NII0)B66HCQEYQQ5DIE)DQ2
PZQWUNIKl1ZG2XMKZDQIaLYSkwRolIAcU1BggMAsaQBiOdI(6QICLIIQZVEgUBAv
bRAMMwJrpbMCZYYYXYgYuZgWIVEKYDQM33RkKbUGDYQQI1JCUdo6DwB)I1JUzAgk
rVMMVDIVxBQ(rVJJVDIX0FQYabE7dQSiUfEcGAYMn0JWrdMmN7Bl8NYKHAIN70JW
IcE8F1BW0fM8SRaikcEmT8J4IzBcXxZkn8J5UIAQI(JcLCIRNiIy6EAkOIAQ6zBe
tAIiFUAQoxJmm8J5UIIQq9J66DARwdAakNAasFIcWxB1XcEyIdMK8ZoO1FIZxRCj
YcMyNfEgeAQCnFADBVKUZGAQoeAjcBB)gHiZyIIwcRCIhIMiwQWQkykIHyEsxIYx
cxGJjSu9zdUqAVLkMLFMsQ2R0zIFFL58aGpgYIjamuamcUISElZtlMZC3XG08osa
NGga2sIwwJ8RmDh(LNqztJEqMKPMsIo1U6ifkV)8jUpyV13HhRXutU7qd5hbqfvB
wRnwt4RupZOkiZRwobTOsC9(LMqSGCxVjbp2gVckk4S5qn9AVCESc64wwkNBcQ8C
uV2aaxEvcksZ2W23BG5yI)rGeRgV1Fu9fKaYxqwRGERf8(Sa8(4Iyz9EFvU0dheW
5uCGTH5g8Mik56i2JMKxWDs1CSLfntt97(SQx3Z8ljCy99Rh479ktfkQc9Yl5)fF
xLW0M8yp6))FYDgQw2AgIQUkiyLECLgRI5NwBJ2q6Zc9O2D0QFpJoNqv(Cdsxyah
O(DUQHr4m44P7OGawwT2cDc8CJgjHZQRFJueKlDCJY8YkH0lXsgxHXmOZyX2VwS0
HiOy64nhOEYeAhHV9xAgnCNacbQHfEGoZanTOkwAAjCk2igyBWEQwYCICoEwnhNy
NJShOEYYIl1KtRBgSTOtA33yMNJFpd)M10MITm2(wQiDMUAQ0orgUBClCAAkQURF
TKJsAYOf)xAlS2IBEhRBTPVcxrEHW8BVgChHs0nyLPXcM8rLyw8c13SNlYzTUOcm
w6tSp0hsiCE3aSiAFICQAxAJgARxJAmJIGiiCQZVoC)Ugd1w23WhRRG2KCWMl(gZ
UVBAWBIhD(l2YbbHym1aupAgXVwFsQCXJKOQFJBJUlwNCmAr9anAadTdlWOejBwt
AUUkCAQGfdFwN8rf49993265ETFYfLYUWEydsBGmCicgl(XYijVzWnBZGy4Z45QM
pMIZRzCaBdpb)2QwHSOi64nBOMaeE2pJ3QlciGKLd2kDorHC4eTU6oI55Rr1swD1
oNeK4KrF60IpkVu7AKTUYGOMt8)iTtltDGndAI0iAQCIgQwQcBYRAHAiAJmlOOME
xQuU66ZZFBT7oLFgeSUKpgoSC5Zpkmq5AwBGAewLxguQAwJvHkqCSzQDAwBo4JNN
GDAPHlU6hhMAYCcEZDke6JBPmBE0AYTdUCAAhKGAElwBCfkawDAEUyrhXoSeQ4RR
DArlIS1gAMQKpCaV12mAbad8FA8bxxxN33B0J7Zv887K5Q7c0xx93kU0VXXHdeXW
lhtH219pv3G3gLXP(Ex6rod9ZAQAAPA)0APAe4IjACBkBoeOMSlBlC4Lm0xO6crU
PgaRDnKDknBQ3hQUMIKYHuHwAGABQoTgYK44xMEqBHsCQYVCcmRCQryh7SAwECRT
hRiK491CUc3Nl2hghcEeGGg2O7zDkOCH(lD3CJMCEGJCiiShQAAK6yxCcAxwqIKf
Dfo9CjxdoBWHtNh4cXESGOcuHBXpBgNJwilhkTwo6AIKGigyRYZM0tTGVrxI4YMy
cEr1HiVBol7GOhSw7)Y8HAysFhe)CgaeQI)dlnxI5ZUcNGL2jSoj4TOP4gkjQahM
kMKXCk1BRLfPDkaksDTg8QIwUEE3GCo7HQIAYvlghmYoFcMMBhdpyppUclqEHuSZ
7v8BdId0lP6(AGQCAbySsepYsUCdOkWZy64GAxEl7Jjh7oU(W4Czkik5pFqNSmGT
sX5IvYKW7kcsjrpMkLtlJjzhU3cecEdwExolpNqOgzgyjTRQvYOtOiWnTJNSsaan
37TQzxUygOhaowk8qNAKa6lDUM4gAIOhDr)IxAkMkzzgZhB43xYaLOEGcyAFolAA
kyBQlDgAKJGgRH7yjo7N4(fCl5A4fIsaMErjpDK7Qr8Oyspjl3hz7kK2OildUL3n
gUSHL5g6YSFgpCoFAjy7Yd8UWkKBsraoPVMIIGU1xyYdYjOESHSYLIdkUAhmACDE
wz0OoOhDrTwwDQEgOeO)DCqMIV2pRkwh01YAUEtjHV2OodnF2(pigo4QeEEwOAsY
DwrQAFgH0GiB8gNudAIRsyrbr3BTiSpxDQhQ7IEMOAMzDgSFQhvGYnSRcEdgdIql
hBeZhp3OAyThQAQIQAAICAABiCABtwVtXfFh8adctOkpAS1YA20WkOhDoH3g6cIK
OuJWVysc1UGAdPHxxdV4EEAgDgcvQyMCQOyBDIxAeIAYeBB8hS(LtkHF58lKy7FK
EcpmABI5BCzOML3glPxFY8CqOqkzgLUHIkKAIHCR2LYACYhxHADEqCVOq2p0)U6o
YcQXWFgCBOIDAyOFYHwx)al6EPi5Ab1IgVhDYenhQvbwKeIsEwWS4sMGdEUxfzmK
wTdcPAkOGWYUxDuEWEDhQ3B48IAECCgjVcEIAmjHQ(ghcQGrFMOwDY9TAIGDsTRA
rYAEIAIgDwgtZQkE4CNB1gJQ3BAUCMMwAiG0AERmEaQgJAQWVsuP4y)CCS6dNYpc
WzgMzVeEHOEQBB47M4NOA52jbxxQ3QkhNGEYjsVSAKty2KjRltIDYIEQF5(kBMHl
w(VDB1Rw5QMJcnEgYoXYEyWGCewxz9gGFPIQGD07xEaroaDAlO4wacEMOuGtD6pi
QvbCfZzg1xe3AsBAxZsNROvas7xCQRQoPUEzS3vsbBmXFQ82s5x9e5oSEsLdHwFP
9ssugJ30O4hA5UEKOsEmDT5EdFHAd81hAsbGAAGAAgDAA4BAA8AgAcA4AMA(wHt)
jxPA48PAe8DwP8I8HMO)Dj))aZ2POCL3JfYlmJadMEU0jDUdYVKACQzBjZAAZMAr
HCH0hpdOwQnj71QgB0BiAEEAAQBAAUAEAEAgBCYYAI(AAACKAigKVEogFXAAKAgM
KCoDBC0AgANAKQBAC0IAAEMQAAD0Q6AFv5pcgh(gafEAwByBOb8Yw9UCUCgA6SAE
IE6GABgQgI4EEAQB)pQAWs37F4l6huiuAwkCOWBfpAIAKEAFCjHAAgKEblLAEBQA
QIMKAemY9TKAfE6HQDQPAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
Ao58