;
;   MOVC5 zero test.
;
;   The MOVC5 instruction is used by VMS (and others) to zero out blocks
;   of memory.  Let's see if it works here as well.
;


            .base       300


toast:      .ascic      "This string of text will be depleted, "
            .ascii      "leaving nothing."


            .base       200

main:       movab       @#toast, r6
            movc5       #0, (r0), #0, (r6), b^2(r6)
            halt

