+/* Generate code to clear XSEG and idata memory.
+ This clears XSEG, DSEG, BSEG, OSEG, SSEG */
+static void _mcs51_genRAMCLEAR (FILE * of) {
+ fprintf (of, "; _mcs51_genRAMCLEAR() start\n");
+ fprintf (of, " mov r0,#l_XSEG\n");
+ fprintf (of, " mov a,r0\n");
+ fprintf (of, " orl a,#(l_XSEG >> 8)\n");
+ fprintf (of, " jz 00005$\n");
+ fprintf (of, " mov r1,#((l_XSEG + 255) >> 8)\n");
+ fprintf (of, " mov dptr,#s_XSEG\n");
+ fprintf (of, " clr a\n");
+ fprintf (of, "00004$: movx @dptr,a\n");
+ fprintf (of, " inc dptr\n");
+ fprintf (of, " djnz r0,00004$\n");
+ fprintf (of, " djnz r1,00004$\n");
+ /* r0 is zero now. Clearing 256 byte assuming 128 byte devices don't mind */
+ fprintf (of, "00005$: mov @r0,a\n");
+ fprintf (of, " djnz r0,00005$\n");
+ fprintf (of, "; _mcs51_genRAMCLEAR() end\n");
+}
+
+/* Generate code to copy XINIT to XISEG */
+static void _mcs51_genXINIT (FILE * of) {
+ fprintf (of, "; _mcs51_genXINIT() start\n");
+ fprintf (of, " mov r1,#l_XINIT\n");
+ fprintf (of, " mov a,r1\n");
+ fprintf (of, " orl a,#(l_XINIT >> 8)\n");
+ fprintf (of, " jz 00003$\n");
+ fprintf (of, " mov r2,#((l_XINIT+255) >> 8)\n");
+ fprintf (of, " mov dptr,#s_XINIT\n");
+ fprintf (of, " mov r0,#s_XISEG\n");
+ fprintf (of, " mov p2,#(s_XISEG >> 8)\n");
+ fprintf (of, "00001$: clr a\n");
+ fprintf (of, " movc a,@a+dptr\n");
+ fprintf (of, " movx @r0,a\n");
+ fprintf (of, " inc dptr\n");
+ fprintf (of, " inc r0\n");
+ fprintf (of, " cjne r0,#0,00002$\n");
+ fprintf (of, " inc p2\n");
+ fprintf (of, "00002$: djnz r1,00001$\n");
+ fprintf (of, " djnz r2,00001$\n");
+ fprintf (of, " mov p2,#0xFF\n");
+ fprintf (of, "00003$:\n");
+ fprintf (of, "; _mcs51_genXINIT() end\n");
+
+ if (!getenv("SDCC_NOGENRAMCLEAR")) _mcs51_genRAMCLEAR (of);
+}
+
+