32016 Modula-2

[Boydie]

These discs were rescued from Acorn following Black Thursday.
Despite having a couple of 32016-based machines, I've never got round to checking them out, and all I know about them is what was written on the disk labels. This is in the "Disc labels" file.
I'd be intrigued to find out what the contents actually are...

[gtoal]

Big surprise - this is not the Panos M2 install disk - it's the *source* of the Modula2 library for Panos. It doesn't appear to include the compiler source itself.

[danielj]

Big surprise - this is not the Panos M2 install disk - it's the *source* of the Modula2 library for Panos. It doesn't appear to include the compiler source itself.

You have the install disks, yes?

[gtoal]

Yes, I have the full m2 installer. btw I'm putting everything Panos-related that I can find at https://gtoal.com/acorn/panos/

There's 3 floppy images I haven't been able to extract from, and a few of the directories include some corrupted text files from bad floppy reads, but there's enough redundancy in the multiple copies that most files have at least one good copy somewhere. So don't mirror the whole directory tree and propagate the bad files, but by all means pull individual files that you might not have already.

If anyone can help extract from them, the image files that I couldn't get any files off are:

https://gtoal.com/acorn/panos/adfs1004/adfs1004.img
https://gtoal.com/acorn/panos/A1004/A1004.dsd
https://gtoal.com/acorn/panos/notblank/BLANK.ADF
(One of those may include an ML compiler)

As well as the contemporary m2 files, I was able to find (online) a source for "m2pretty.mod" in an ancient archive format that I was able to decompress after a bit of effort (from http://www.vectorbd.com/bfd/pascal/ ). We used the original quite heavily at Acorn, in fact it was embedded in our copies of Emacs. (m2pretty is the modula2 source code reformatter). Also found this: https://opensource.apple.com/source/ema ... .auto.html - this is what we copied from Emacs for the Panos EDIT command (which also later influenced Twin).

G

[james]

If anyone can help extract from them, the image files that I couldn't get any files off are:

https://gtoal.com/acorn/panos/adfs1004/adfs1004.img

MAME happily reads the img file but, for some reason, is prone to freezing/crashing unnecessarily often on my Mac.

In order to get a copy of the files onto an ADL-format disc:
I tried TreeCopy63 from MDFS, but it got bored part way through and stopped reading the source disc.
Advanced File Manager, I found complicated and it didn't seem to want to copy starting from a directory, rather than a file.
However, $.LIBRARY.Backup on the Master Welcome Disc seems to have lived up to its name.

After the unneccessary grumbling, here is the resulting ADFS-L disc image:

adfs1004.adl.zip

(323.77 KiB) Downloaded 14 times

Edit: I'm going to suggest that a cursory examination of A1004.dsd leads me to think it's an ADFS disc rather than DFS, which *.dsd implies:

Code: Select all

> strings A1004.dsd | head -5 
Hugo
sLib
Hugo
Hugo
Xy!E

According to https://www.geraldholdsworth.co.uk/docu ... cImage.pdf, all those "Hugo"s mean it's ADFS S, M or L format. The size implies it's almost "L" format, but it's a bit larger (687Kb v 655Kb) than a fresh ADL disc out of Disc Image Manager. That's the limit of my investigatory abilities.

BLANK.ADF is missing.

[james]

https://gtoal.com/acorn/panos/A1004/A1004.dsd

By reading some documents, I've suddenly become an expert in ADFS (err, not really).

A1004.dsd appears to have at least 5 candidates for the root ($) directory and no free space map at the start of the image. So if you can get another image - do!

That said, with some searching of A1001.dsd for data that looks like a directory block (thanks "Hugo") and prepending it with a Free Space Map sawn off another image, I can present some directory listings made with *EX in MAME. But no files.

Code: Select all

$                   (01)
Drive:0             Option 00 (Off )
Dir. "Unset"        Lib. "Unset"   

PanosLib   DLR(01)  000007  

Code: Select all

PanosLib            (05)
Drive:0             Option 00 (Off )
Dir. "Unset"        Lib. "Unset"   

_cmd       DLR(04)  0004A6  
_dat       DLR(03)  000268  
_imp       DLR(05)  0009D0  
_lib       DLR(02)  0001C1  
_rif       DLR(01)  00000C  

Code: Select all

_lib                (05)
Drive:0             Option 00 (Off )
Dir. "Unset"        Lib. "Unset"   

c          WR (02)  FFFFFF3E  FFFC6BAE  000081E2  000281  
ifp        WR (03)  FFFFFF3E  FFFCAF21  000043DD  00053D  
panos      WR (04)  FFFFFF3E  FFFCC9D0  00001496  0008C9  
pas        WR (05)  FFFFFF3E  FFFCCD9F  00009E4A  0008DE  
pas!       WR (01)  FFFFFF3E  FFFC408B  0000A156  0001C6  

Code: Select all

_dat                (02)
Drive:0             Option 00 (Off )
Dir. "Unset"        Lib. "Unset"   

prim       WR (02)  FFFFFF3E  FFFCE177  00001394  0009E6  
prim!      WR (01)  FFFFFF3E  FFFC4662  00001394  00026D  

Code: Select all

_cmd                (02)
Drive:0             Option 00 (Off )
Dir. "Unset"        Lib. "Unset"   

csetup     WR (01)  FFFFFF3E  FFFC7A8A  00000147  0004AB  
ml         WR (02)  FFFFFF3E  FFFCC64B  000000A2  0008C8