X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=device%2Flib%2Fmcs51%2Fcrtxclear.asm;h=d2c8ea3a840d718f2fe80a9303c4d30af838dc31;hb=90d3640cdd575040ccb9bcf1e73f031027dc7f60;hp=5b7357ffa581de7dce809886794ccee13c5f3d76;hpb=d375c75e9c3918dff0a907ce248ed7ac7e67283d;p=fw%2Fsdcc diff --git a/device/lib/mcs51/crtxclear.asm b/device/lib/mcs51/crtxclear.asm index 5b7357ff..d2c8ea3a 100644 --- a/device/lib/mcs51/crtxclear.asm +++ b/device/lib/mcs51/crtxclear.asm @@ -1,24 +1,24 @@ ; /*------------------------------------------------------------------------- -; +; ; crtxclear.asm :- C run-time: clear XSEG -; +; ; This library is free software; you can redistribute it and/or modify it ; under the terms of the GNU Library General Public License as published by the ; Free Software Foundation; either version 2, or (at your option) any ; later version. -; +; ; This library is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU Library General Public License for more details. -; +; ; You should have received a copy of the GNU Library General Public License ; along with this program; if not, write to the Free Software ; Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. -; +; ; In other words, you are welcome to use, share and improve this program. ; You are forbidden to forbid anyone else to use, share and improve -; what you give them. Help stamp out software-hoarding! +; what you give them. Help stamp out software-hoarding! ; -------------------------------------------------------------------------*/ .area CSEG (CODE) @@ -30,30 +30,30 @@ .area GSINIT5 (CODE) .area GSINIT (CODE) .area GSFINAL (CODE) - + .area GSINIT4 (CODE) __mcs51_genXRAMCLEAR:: mov r0,#l_PSEG mov a,r0 - jz 00005$ + jz 00006$ mov r1,#s_PSEG mov __XPAGE,#(s_PSEG >> 8) clr a -00004$: movx @r1,a +00005$: movx @r1,a inc r1 - djnz r0,00004$ -00005$: + djnz r0,00005$ +00006$: mov r0,#l_XSEG mov a,r0 orl a,#(l_XSEG >> 8) - jz 00007$ + jz 00008$ mov r1,#((l_XSEG + 255) >> 8) mov dptr,#s_XSEG clr a -00006$: movx @dptr,a +00007$: movx @dptr,a inc dptr - djnz r0,00006$ - djnz r1,00006$ -00007$: + djnz r0,00007$ + djnz r1,00007$ +00008$: