clra      headr
     *      clra  clrbot,clrtop[,ss,here,gwmad]
     *         xfr  clr          Prohibited in the macro             )0/
     *                                                               )0/
     * Parameters:                                                   )0/
     * 1: Address of bottom of core to clear                         )0/
     * 2: Address of top of core to clear                            )0/
     *    zero for top of physical core                              )0/
     * 3: BSS SNAPSH,SS if present                                   )0/
     * 4: No ORG if present, else ORG 201                            )0/
     * 5: Give a label to the GMWM if present, usually useful        )0/
     *    only if HERE is present.                                   )0/
     *                                                               )0/
     * Assume                                                        )0/
     *                                                               )0/
     * SNAPSH  equ  333                                              )0/                                                               )0/
     * LOADNX  equ  700                                              )0/
     *
     * Clear core after a phase using the CLRTOP address
     *
               org  201                                              )0U
     *
     * Clear down to CLRBOT & X00 the easy way
     *
     )00       equ  *&1
               bss  snapsh,)0C
     )0J       cs   )02         Clear from CLRTOP
               sbr  )0J&3
               sbr  )0L&6
               c    )0J&3,)0M   Down to CLRBOT & X00?
               bu   )0J
     *
     * Now clear down to CLRBOT the hard way
     *
     )0K       c    )0L&6,)0N
               bu   )0L
               cs   loadnx,)0Q  Load the next block at 1           
     )0L       lca  )0P,0-0     Clear with blank and word mark
               sbr  )0L&6
               b    )0K
     )0M       dsa  )0R         CLRBOT & X00 - 1
     )0N       dsa  )01         CLRBOT
     )0P       dcw  #1
               dc   @CLRA @     Identify in a deck, tape, or dump
     )0Q       dcw  @}@
     )0E       equ  )0Q
               org  )01&x00
     )0R       equ  *           CLRBOT & X00 - 1