;THIS PROGRAM IS TAKEN FROM
;SCIENTIFIC AMERICAN JAN, 1987
;COMMENTS AND LABELS ADDED BY FRED WADE
;
SRCPTR   DAT   #0             ;SOURCE POINTER
START    MOV   #12,SRCPTR     ;INITIALIZE SOURCE POINTER
LOOP     MOV   @SRCPTR,<DESPTR;MOVE ONE INSTRUCTION
         DJN   LOOP,SRCPTR    ;LOOP TILL DONE
         SPL   @DESPTR        ;START MY PROGENY
         ADD   #653,DESPTR    ;BUMP DESTINATION POINTER
         JMZ   START,SRCPTR   ;BETTER BE 0 OR I DIE
DESPTR   DAT   833            ;DESTINATION POINTER
         END