1               /
   2               /   Clear Memory
   3               /
   4               *7764
   5 007764  7410  LOOP,   SKP             / 7764 Skip this until autoindex wraps
   6 007765  3367          DCA JLOOP       / 7765 Kill the loop
   7 007766  3410          DCA I AUTO      / 7766 Zero a location
   8 007767  5364  JLOOP,  JMP LOOP        / 7767 Until autoindex wraps
   9 007770  5375          JMP .+5         / 7770 Leave AUTO == 7771
  10 007771  3410          DCA I AUTO      / 7771 Zero a location
  11 007772  3410          DCA I AUTO      / 7772 Zero a location
  12 007773  3410          DCA I AUTO      / 7773 Zero a location
  13 007774  3410          DCA I AUTO      / 7774 Zero a location
  14 007775  3410          DCA I AUTO      / 7775 Zero a location
  15 007776  3410          DCA I AUTO      / 7776 Zero a location
  16 007777  3410          DCA I AUTO      / 7777 Zero a location
  17               *0
  18 000000  3410  DEP,    DCA I AUTO      / 0 Zero a location
  19 000001  0000          0               / 1
  20 000002  0000          0               / 2
  21 000003  0000          0               / 3
  22 000004  0000          0               / 4
  23 000005  0000          0               / 5
  24 000006  0000          0               / 6
  25 000007  0000          0               / 7
  26 000010  0010  AUTO,   .               / Clear AUTO+1 to LOOP.
  27               /
  28               / Load Cruft before and after, to test boundary cases.
  29 000011  7402          HLT
  30               *LOOP-1
  31 007763  7402          HLT
  32               
  33               $

AUTO    0010
DEP     0000 unreferenced
JLOOP   7767
LOOP    7764