1               /
   2               /   Clear Memory
   3               /
   4               / Starting with 011, ending with 07764, gives 07754 locations to
   5               / clear.  That's divisible only by 2, 4, and 1019.  We thus clear
   6               / memory 4 locations at a time until LOOP is cleared.
   7               *7764
   8 007764  5375  LOOP,   JMP DCA4        / 7764 Skip this until autoindex gets here
   9 007765  3001          DCA JLOOP       / 7765 Kill the loop
  10 007766  3002          DCA JLOOP+1     / 7766 Kill the loop
  11 007767  5375          JMP DCA4        / 7767 Kill just 4 more to get 7770.
  12 007770  3410          DCA I AUTO      / 7770 Spacer (not executed)
  13 007771  3410          DCA I AUTO      / 7771 Zero a location
  14 007772  3410          DCA I AUTO      / 7772 Zero a location
  15 007773  3410          DCA I AUTO      / 7773 Zero a location
  16 007774  3410          DCA I AUTO      / 7774 Zero a location
  17 007775  3410  DCA4,   DCA I AUTO      / 7775 Zero a location
  18 007776  3410          DCA I AUTO      / 7776 Zero a location
  19 007777  3410          DCA I AUTO      / 7777 Zero a location
  20               *0
  21 000000  3410          DCA I AUTO      / 0 Zero a location
  22 000001  5402  JLOOP,  JMP I .+1       / 1 Jump back
  23 000002  7764          LOOP            / 2 ...to LOOP
  24 000003  0000          0               / 3
  25 000004  0000          0               / 4
  26 000005  0000          0               / 5
  27 000006  0000          0               / 6
  28 000007  0000          0               / 7
  29 000010  0010  AUTO,   .               / Clear AUTO+1 to LOOP.
  30               /
  31               / Load Cruft before and after, to test boundary cases.
  32 000011  7402          HLT
  33               *LOOP-1
  34 007763  7402          HLT
  35               
  36               $

AUTO    0010
DCA4    7775
JLOOP   0001
LOOP    7764