For Programmers Only

Roadkill Tee Shirts ^ | Oct., 2015 | unknown

[econjack]

Heavy!

[tacticalogic]

I’d tell you a UDP joke, but I don’t know if you’d get it.

[Qilin]

Your post doesn’t compile. Type mismatch: found Boolean expected Int.

[econjack]

As I recall, Dennis Ritchie invented C on a PDP-11.

[econjack]

Much ado about nothing and defeats the joke, as in:

...those that who know binary..... those that who do not know binary...

[Allen In Texas Hill Country]

I have my original slide rule from high school approximately 1 foot to the left of my left arm. Yup, its still there. Don’t know why tho?????

[redcatcherb412]

That picture just makes you want to

JMP 00DD

[Slings and Arrows]

Did you hear about the electrical engineer who went to work for Apple?

They gave him a free jPhone.

[redcatcherb412]

err jmp 0xDD

[cynwoody]

But octal hung around as a legacy thing for some systems. I cut my programming teeth on a DEC PDP-11 system, which was a 16-bit CPU, but octal was used in most of their system docs and in the MACRO-11 assembler.

On the PDP-11, the instruction sub-fields tended to be three bits, so octal notation would have been convenient for reading dumps of compiled code. E.g., there were eight registers and eight addressing modes. In some instructions, the extra bit at the left end of an instruction word was used to designate whether the instruction applied to words or bytes.

Compare the IBM mainframe instruction set. It had 32-bit words, sixteen registers, and eight-bit op-codes (for the most part), all of which neatly aligned on hex digit boundaries. E.g., the instruction 41FAB02A (41 = Load Address) takes the value in register 11 plus the value in register 10 plus 42 and puts it in register 15. In octal, the same instruction is 10176530052, not nearly so readable.

Of course, modern Intel instruction sets have highly irregular field boundaries, so you need a handy disassembler.

[tophat9000]

“That” not “Who” is valid..the “that” is refering to “binary” an object...binary is not a person..it is not a “who”.

[econjack]

Nope, you’re wrong. It refers to the people who understand binary.

[CJ Wolf]

Yeah, I used to program COBOL along time ago. I think that’s where I heard it first. :-)

[Allen In Texas Hill Country]

Lets get SOAP and Autocoder out there. And GMAP is lesser known only because its for a kinda specialized GE computer.

[DJ Frisat]

For years, I’ve been delighted to be able to sign my initials in ASCII, hexadecimal or binary...

Regards,
110011111001

[Mannaggia l'America]

As I recall, Dennis Ritchie invented C on a PDP-11

I always enjoyed working on the PDP-11. In school, we used RSTS/E for the OS, so there was no C, but BASIC-PLUS-11, MACRO-11, DCL, and even COBOL-81 were great for their time.

[ShadowAce]

   

{NOTE: For the non programmers, some exegesis may
be necessary:  when a programmer starts to learn a new language,
a typical first exercise is to program the computer to display the 
message "Hello World".}

---------------


	     A compilation of *Hello World programs* designed by
		    various categories of  *developer* follows.


    High School/Jr.High
    ===================

    10 PRINT "HELLO WORLD"
    20 END

    First year in College
    =====================
    program Hello(input, output)
      begin
	writeln('Hello World')
      end.

    Senior year in College
    ======================
    (defun hello
      (print
	(cons 'Hello (list 'World))))

    New professional
    ================
    #include 
    void main(void)
    {
      char *message[] = {"Hello ", "World"};
      int i;

      for(i = 0; i < 2; ++i)
	printf("%s", message[i]);
      printf("\n");
    }

    Seasoned professional
    =====================
    #include 
    #include 

    class string
    {
    private:
      int size;
      char *ptr;

    public:
      string() : size(0), ptr(new char('\0')) {}

      string(const string &s) : size(s.size)
      {
	ptr = new char[size + 1];
	strcpy(ptr, s.ptr);
      }

      ~string()
      {
	delete [] ptr;
      }

      friend ostream &operator <<(ostream &, const string &);
      string &operator=(const char *);
    };

    ostream &operator<<(ostream &stream, const string &s)
    {
      return(stream << s.ptr);
    }

    string &string::operator=(const char *chrs)
    {
      if (this != &chrs)
      {
	delete [] ptr;
       size = strlen(chrs);
	ptr = new char[size + 1];
	strcpy(ptr, chrs);
      }
      return(*this);
    }

    int main()
    {
      string str;

      str = "Hello World";
      cout << str << endl;

      return(0);
    }

    Master Programmer
    =================
    [
    uuid(2573F8F4-CFEE-101A-9A9F-00AA00342820)
    ]
    library LHello
    {
	// bring in the master library
	importlib("actimp.tlb");
	importlib("actexp.tlb");

	// bring in my interfaces
	#include "pshlo.idl"

	[
	uuid(2573F8F5-CFEE-101A-9A9F-00AA00342820)
	]
	cotype THello
     {
     interface IHello;
     interface IPersistFile;
     };
    };

    [
    exe,
    uuid(2573F890-CFEE-101A-9A9F-00AA00342820)
    ]
    module CHelloLib
    {

	// some code related header files
	importheader();
	importheader();
	importheader();
	importheader("pshlo.h");
	importheader("shlo.hxx");
	importheader("mycls.hxx");

	// needed typelibs
	importlib("actimp.tlb");
	importlib("actexp.tlb");
	importlib("thlo.tlb");

	[
	uuid(2573F891-CFEE-101A-9A9F-00AA00342820),
	aggregatable
	]
	coclass CHello
     {
     cotype THello;
     };
    };

    #include "ipfix.hxx"

    extern HANDLE hEvent;

    class CHello : public CHelloBase
    {
    public:
	IPFIX(CLSID_CHello);

	CHello(IUnknown *pUnk);
	~CHello();

	HRESULT  __stdcall PrintSz(LPWSTR pwszString);

    private:
	static int cObjRef;
    };

    #include 
    #include 
    #include 
    #include 
    #include "thlo.h"
    #include "pshlo.h"
    #include "shlo.hxx"
    #include "mycls.hxx"

    int CHello::cObjRef = 0;

    CHello::CHello(IUnknown *pUnk) : CHelloBase(pUnk)
    {
	cObjRef++;
	return;
    }

    HRESULT  __stdcall  CHello::PrintSz(LPWSTR pwszString)
    {
	printf("%ws\n", pwszString);
	return(ResultFromScode(S_OK));
    }

    CHello::~CHello(void)
    {

    // when the object count goes to zero, stop the server
    cObjRef--;
    if( cObjRef == 0 )
	PulseEvent(hEvent);

    return;
    }

    #include 
    #include 
    #include "pshlo.h"
    #include "shlo.hxx"
    #include "mycls.hxx"

    HANDLE hEvent;

     int _cdecl main(
    int argc,
    char * argv[]
    ) {
    ULONG ulRef;
    DWORD dwRegistration;
    CHelloCF *pCF = new CHelloCF();

    hEvent = CreateEvent(NULL, FALSE, FALSE, NULL);

    // Initialize the OLE libraries
    CoInitializeEx(NULL, COINIT_MULTITHREADED);

    CoRegisterClassObject(CLSID_CHello, pCF, CLSCTX_LOCAL_SERVER,
	REGCLS_MULTIPLEUSE, &dwRegistration);

    // wait on an event to stop
    WaitForSingleObject(hEvent, INFINITE);

    // revoke and release the class object
    CoRevokeClassObject(dwRegistration);
    ulRef = pCF->Release();

    // Tell OLE we are going away.
    CoUninitialize();

    return(0); }

    extern CLSID CLSID_CHello;
    extern UUID LIBID_CHelloLib;

    CLSID CLSID_CHello = { /* 2573F891-CFEE-101A-9A9F-00AA00342820 */
	0x2573F891,
	0xCFEE,
	0x101A,
	{ 0x9A, 0x9F, 0x00, 0xAA, 0x00, 0x34, 0x28, 0x20 }
    };

    UUID LIBID_CHelloLib = { /* 2573F890-CFEE-101A-9A9F-00AA00342820 */
	0x2573F890,
	0xCFEE,
	0x101A,
	{ 0x9A, 0x9F, 0x00, 0xAA, 0x00, 0x34, 0x28, 0x20 }
    };

    #include 
    #include 
    #include 
    #include 
    #include 
    #include "pshlo.h"
    #include "shlo.hxx"
    #include "clsid.h"

    int _cdecl main(
    int argc,
    char * argv[]
    ) {
    HRESULT  hRslt;
    IHello        *pHello;
    ULONG  ulCnt;
    IMoniker * pmk;
    WCHAR  wcsT[_MAX_PATH];
    WCHAR  wcsPath[2 * _MAX_PATH];

    // get object path
    wcsPath[0] = '\0';
    wcsT[0] = '\0';
    if( argc  1) {
	mbstowcs(wcsPath, argv[1], strlen(argv[1]) + 1);
	wcsupr(wcsPath);
	}
    else {
	fprintf(stderr, "Object path must be specified\n");
	return(1);
	}

    // get print string
    if(argc  2)
	mbstowcs(wcsT, argv[2], strlen(argv[2]) + 1);
    else
	wcscpy(wcsT, L"Hello World");

    printf("Linking to object %ws\n", wcsPath);
    printf("Text String %ws\n", wcsT);

    // Initialize the OLE libraries
    hRslt = CoInitializeEx(NULL, COINIT_MULTITHREADED);

    if(SUCCEEDED(hRslt)) {

	hRslt = CreateFileMoniker(wcsPath, &pmk);
	if(SUCCEEDED(hRslt))
     hRslt = BindMoniker(pmk, 0, IID_IHello, (void **)&pHello);

	if(SUCCEEDED(hRslt)) {

     // print a string out
     pHello->PrintSz(wcsT);

     Sleep(2000);
     ulCnt = pHello->Release();
     }
	else
     printf("Failure to connect, status: %lx", hRslt);

	// Tell OLE we are going away.
	CoUninitialize();
	}

    return(0);
    }

    Apprentice Hacker
    ===================

    #!/usr/local/bin/perl
    $msg="Hello, world.\n";
    if ($#ARGV >= 0) {
      while(defined($arg=shift(@ARGV))) {
	$outfilename = $arg;
	open(FILE, ">" . $outfilename) || die "Can't write $arg: $!\n";
	print (FILE $msg);
	close(FILE) || die "Can't close $arg: $!\n";
      }
    } else {
      print ($msg);
    }
    1;

    Experienced Hacker
    ===================

    #include 
    #define S "Hello, World\n"
    main(){exit(printf(S) == strlen(S) ? 0 : 1);}

    Seasoned Hacker
    ===================

    % cc -o a.out ~/src/misc/hw/hw.c
    % a.out

    Guru Hacker
    ===================

    % cat
    Hello, world.
    ^D

    New Manager
    ===================

    10 PRINT "HELLO WORLD"
    20 END

    Middle Manager
    ===================

    mail -s "Hello, world." bob@b12
    Bob, could you please write me a program that prints "Hello, world."?
    I need it by tomorrow.
    ^D

    Senior Manager
    ===================

    % zmail jim
    I need a "Hello, world." program by this afternoon.

    Chief Executive
    ===================

    % letter
    letter: Command not found.
    % mail
    To: ^X ^F ^C
    % help mail
    help: Command not found.

    % damn!
    !: Event unrecognized
    % logout

[Bobalu]

[GingisK]

What would a hexadecimal version of the joke be?

There used to be a great mini-epic titled "The Gospel According to Saint Hexadecimal". I sure wish I could find it.

[GingisK]

Of course, they didn't forsee that in only a couple of years, octal would be largely replaced by hexadecimal for displaying raw bits.

Octal and hex coexisted from the dark ages of computing. There were two schools of thought. Digital Equipment Corporation was fond of octal. IBM was fond of hex.

There were also two character sets. IBM used EBCDIC while most everyone else used ASCII.