/
/   Clear Memory
/
/ Starting with 011, ending with 07764, gives 07754 locations to
/ clear.  That's divisible only by 2, 4, and 1019.  We thus clear
/ memory 4 locations at a time until LOOP is cleared.
*7764
LOOP,   JMP DCA4        / 7764 Skip this until autoindex gets here
        DCA JLOOP       / 7765 Kill the loop
        DCA JLOOP+1     / 7766 Kill the loop
        JMP DCA4        / 7767 Kill just 4 more to get 7770.
        DCA I AUTO      / 7770 Spacer (not executed)
        DCA I AUTO      / 7771 Zero a location
        DCA I AUTO      / 7772 Zero a location
        DCA I AUTO      / 7773 Zero a location
        DCA I AUTO      / 7774 Zero a location
DCA4,   DCA I AUTO      / 7775 Zero a location
        DCA I AUTO      / 7776 Zero a location
        DCA I AUTO      / 7777 Zero a location
*0
        DCA I AUTO      / 0 Zero a location
JLOOP,  JMP I .+1       / 1 Jump back
        LOOP            / 2 ...to LOOP
        0               / 3
        0               / 4
        0               / 5
        0               / 6
        0               / 7
AUTO,   .               / Clear AUTO+1 to LOOP.
/
/ Load Cruft before and after, to test boundary cases.
        HLT
*LOOP-1
        HLT

$