<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=utf-8"><meta name=Generator content="Microsoft Word 14 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
        {font-family:Calibri;
        panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
        {font-family:Tahoma;
        panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
        {margin:0in;
        margin-bottom:.0001pt;
        font-size:12.0pt;
        font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
        {mso-style-priority:99;
        color:blue;
        text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
        {mso-style-priority:99;
        color:purple;
        text-decoration:underline;}
span.EmailStyle17
        {mso-style-type:personal-reply;
        font-family:"Calibri","sans-serif";
        color:#1F497D;}
.MsoChpDefault
        {mso-style-type:export-only;
        font-family:"Calibri","sans-serif";}
@page WordSection1
        {size:8.5in 11.0in;
        margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
        {page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body lang=EN-US link=blue vlink=purple><div class=WordSection1><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'>Channel programming wasn’t really at the time.   Maybe the guys at PASC didn’t know, but it was available.<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'>Never saw anything written in PL/I there.    Now the other 370 mainframe stuff that wasn’t in assembler was written in PL/S which was sort of PL/I but not really.   They used it for TSO (suitable for kicking dead whales down the beach) and MVT (multiprocessing with a variable number of turds, part of the virtual toilet access protocol).<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'>Of course, the RS/6000 AIX was completely different and somewhat weird.    I might buy it being written in PL/S.   I spent a lot of time over the years either pursuing security vulnerabilities or patching up ones that I had found.     IBM loaned us an RS/6000 and didn’t give me the root password.    This took me a while to figure out.    I found however that if you turned the key on the front to the service (wrench) position, it would boot up in a canned “diagostic” program.    I poked at this a while until I realized that the help program just spawned more and I could shell escape out to a root shell.<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><a name="_MailEndCompose"><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'><o:p> </o:p></span></a></p><p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>From:</span></b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'> TUHS [mailto:tuhs-bounces@minnie.tuhs.org] <b>On Behalf Of </b>Dan Cross<br><b>Sent:</b> Monday, March 6, 2017 11:21 AM<br><b>To:</b> ron minnich<br><b>Cc:</b> TUHS main list<br><b>Subject:</b> Re: [TUHS] Source code abundance?<o:p></o:p></span></p><p class=MsoNormal><o:p> </o:p></p><div><div><div><p class=MsoNormal>On Mon, Mar 6, 2017 at 10:57 AM, ron minnich <<a href="mailto:rminnich@gmail.com" target="_blank">rminnich@gmail.com</a>> wrote:<o:p></o:p></p><div><p class=MsoNormal>Yes, the AIX code looks nothing like SYS V. It's been 20+ years since I did a lot of work in AIX, and most of my work was in networking, external pagers, and NFS, and even there you could see it was different (although much of the NFS was clearly the Sun reference code, one giveaway being the Sun copyrights in it :-) I always thought it was an interesting code base -- they seemed to get preemptability right from the start, for example. As it was explained to me, IBM did a full implementation from manuals of both the kernel and the commands. <o:p></o:p></p><div><p class=MsoNormal><o:p> </o:p></p></div><div><p class=MsoNormal>There were lots of little weirdnesses in the commands. mkdir -p, for example, would give you an error if the directory existed -- they got the creation of the tree right, but the error wrong. There were tons of these little gotchas in the commands and it's one thing that made NTP and Condor, for just two examples, a real chore on AIX.<o:p></o:p></p></div><div><p class=MsoNormal><o:p> </o:p></p></div><div><p class=MsoNormal>I visited the now-closed IBM Palo Alto center in 1991, and they told me an interesting AIX story. Seems to that point, on the mainframes, AIX had run under VM. The native port was either starting or soon to start, and there was some question about channel programming -- mainly, if the people who really knew how it worked were still at IBM, or even still alive. I guess they worked it out, however ;-)<o:p></o:p></p></div></div><div><p class=MsoNormal><o:p> </o:p></p></div><div><p class=MsoNormal>I once heard that some version of AIX was actually implemented in PL/I. I strongly doubted that, and no one's mentioned it so I assume that's apocryphal? It would be so distinctive that I can't imagine someone NOT mentioning it if it were the case.<o:p></o:p></p></div><div><p class=MsoNormal><o:p> </o:p></p></div><div><p class=MsoNormal>        - Dan C.<o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div></div></div></div></div></body></html>