Real CISC assembly

/* Declarations */
dcl dd ctrl char(32);
    dcl dd ctrl-function  char(2)  def(ctrl) pos(1) init(X'0007');
    dcl dd *              char(2)  def(ctrl) pos(3) init(X'00');
    dcl dd ctrl-salt      char(2)  def(ctrl) pos(5);
    dcl dd *              char(26) def(ctrl) pos(7) init(X'00');

dcl spcptr .cipher-result init(cipher-result);
dcl dd      cipher-result char(13);

dcl spcptr .cipher-source init(cipher-source);
dcl dd      cipher-source char(8);

/* The crypt() function, used in tripcodes */
cipher     .cipher-result, ctrl, .cipher-source;

>>8
I don't care about niggers or transsexual, my only dream is for all Jews to die and Israel receiving http://en.wikipedia.org/wiki/Tsar_bomb present. We must revenge Hiroshima and Nagasaki!