From: jgd@alpha3.csd.uwm.edu (John G Dobnick) Newsgroups: alt.folklore.computers,comp.sys.unisys Subject: Amusing Source Code Date: 4 Nov 1999 05:11:30 GMT Organization: University of Wisconsin - Milwaukee Lines: 27 Message-ID: <7vr4i2$52b$1@uwm.edu> Reply-To: jgd@uwm.edu NNTP-Posting-Host: 129.89.7.203 Originator: jgd@alpha3.csd.uwm.edu Path: chonsp.franklin.ch!pfaff.ethz.ch!news-zh.switch.ch!news.ifi.unizh.ch!newsfeed.rhein-neckar.de!news.rhein-neckar.de!rz.uni-karlsruhe.de!newsfeed.nacamar.de!news.maxwell.syr.edu!logbridge.uoregon.edu!uwm.edu!alpha3.csd.uwm.edu!jgd [New thread warning: This is about the _code_ itself!] Years ago I was told about an interesting (little?) routine in the B5500 MCP that did disk defragmenting. It was written, with copious and generous use of DEFINEs, as a little story. As I recall, there were DEFINEs for such things as incrementing a counter (AnotherLeagueOnward), and other "interesting" procedure names such as WeighAnchor, LowerDinghy, etc. Do any of you old B5500 folks recall this? Does anyone still have a copy of it? Can someone make a copy available? (I'd _really_ like to read this.) Or, if I'm all wet ;-), can someone correct my recollection please. -- John G Dobnick "Knowing how things work is the basis Information & Media Technologies for appreciation, and is thus a University of Wisconsin - Milwaukee source of civilized delight." jgd@uwm.edu ATTnet: (414) 229-5727 -- William Safire ###### From: Mark Harrison Subject: Amusing Source Code (not just comments) Newsgroups: alt.folklore.computers References: <19991012235225.05660.00000406@ng-fb1.aol.com> <7u1q7p$e5g$1@autumn.news.rcn.net> <381E7033.2FB9C12D@davesworld.net> <381F133B.CBBA567B@cisco.com> <7vnd24$c8m$1@nnrp1.deja.com> <740.975T2912T10736637@sky.bus.com> User-Agent: tin/pre-1.4-19990216 ("Styrofoam") (UNIX) (Linux/2.2.5-15 (i686)) Message-ID: <0sjsv7.3kq.ln@swbackup.sw.asiainfo.com> Lines: 14 X-Trace: /w5MH7c/qFLMNKrMtgZBsBuP2r9ur9dZislAdvQ+yiHPxcR2fzl9vJuJPq9tGPE+53A3NvcXTl4d!QAwYlkZfPqvq/0vqELi8J0M2QFjXI8xJUz5Px+lKKNqHenRqQKUJtyn14mK3S1SQXYmf X-Complaints-To: abuse@gte.net X-Abuse-Info: Please be sure to forward a copy of ALL headers X-Abuse-Info: Otherwise we will be unable to process your complaint properly NNTP-Posting-Date: Thu, 04 Nov 1999 02:41:13 GMT Distribution: world Date: Thu, 04 Nov 1999 02:41:13 GMT Path: chonsp.franklin.ch!pfaff.ethz.ch!news-zh.switch.ch!newsfeed-zh.ip-plus.net!news.ip-plus.net!News.Amsterdam.UnisourceCS!newshunter!cosy.sbg.ac.at!newsfeed.Austria.EU.net!newscore.univie.ac.at!newsfeed1.uni2.dk!newsfeed.tli.de!newsfeed.berkeley.edu!su-news-hub1.bbnplanet.com!washdc3-snh1.gtei.net!news.gtei.net!dfiatx1-snr1.gtei.net.POSTED!not-for-mail Don't forget that the code can be amusing as well... very useful for comedians who do not like to write comments. My old boss worked on a Unix port to the Nixdorf mainframe. The list of processes waiting to be forked was referenced by the variable "forkq". (say it out loud) Was this in the original Unix code? -- Mark Harrison markh@usai.asiainfo.com AsiaInfo Computer Networks http://www.markharrison.net Beijing / Santa Clara http://usai.asiainfo.com:8080