cleaned up the mess I left behind

[fw/sdcc] / device / lib / _gptrget.c

diff --git a/device/lib/_gptrget.c b/device/lib/_gptrget.c
index b0bd72a5025f06024e7be3d2da5c3d036cb37369..ca8bc1bdb81758b1ce042c71de8ad56a1e412ed7 100644 (file)
--- a/device/lib/_gptrget.c
+++ b/device/lib/_gptrget.c
@@ -1,26 +1,26 @@
 /*-------------------------------------------------------------------------
 
-  _gptrget.c :- get value for a generic pointer               
+  _gptrget.c :- get value for a generic pointer
 
              Written By -  Sandeep Dutta . sandeep.dutta@usa.net (1999)
 
-   This program is free software; you can redistribute it and/or modify it
-   under the terms of the GNU General Public License as published by the
+   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 program is distributed in the hope that it will be useful,
+
+   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 General Public License for more details.
-   
-   You should have received a copy of the GNU General Public License
+   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!
 -------------------------------------------------------------------------*/
 
 unsigned char _gptrget ()
@@ -30,24 +30,27 @@ unsigned char _gptrget ()
        xch    a,r0
        push   acc
     ;
-    ;   depending on the pointer type
+    ;   depending on the pointer type acc. to SDCCsymt.h
     ;
         mov     a,b
-        jz      00001$
+        jz      00001$ ; 0 near
        dec     a
-       jz      00002$
+       jz      00002$  ; 1 far
         dec     a
-        jz      00003$
+        jz      00003$ ; 2 code
        dec     a
        jz      00004$
+       dec     a       ; 4 skip generic pointer
+       dec     a
+       jz      00001$  ; 5 idata
     ;
-    ;   any other value for type 
+    ;   any other value for type
     ;   return xFF
        mov     a,#0xff
        sjmp    00005$
     ;
     ;   Pointer to data space
-    ;   
+    ;
  00001$:
        mov     r0,dpl     ; use only low order address
        mov     a,@r0
@@ -60,9 +63,9 @@ unsigned char _gptrget ()
         sjmp    00005$
 ;
 ;   pointer to code area
-;   
+;
  00003$:
-       clr     a
+       ; clr     a  is already 0
         movc    a,@a+dptr
         sjmp    00005$
 ;
@@ -74,10 +77,86 @@ unsigned char _gptrget ()
 ;
 ;   restore and return
 ;
- 00005$:              
-        mov     r0,a   
+ 00005$:
+        mov     r0,a
         pop     acc
        xch     a,r0
      _endasm ;
-       
+
+}
+
+#ifdef SDCC_ds390
+unsigned int _gptrgetWord ()
+{
+    _asm
+    ;
+    ;   depending on the pointer type acc. to SDCCsymt.h
+    ;
+        mov     a,b
+        jz      00001$ ; 0 near
+       dec     a
+       jz      00002$  ; 1 far
+        dec     a
+        jz      00003$ ; 2 code
+       dec     a
+       jz      00004$
+       dec     a       ; 4 skip generic pointer
+       dec     a
+       jz      00001$  ; 5 idata
+    ;
+    ;   any other value for type
+    ;   return xFF
+       mov     a,#0xff
+       sjmp    00006$
+    ;
+    ;   Pointer to data space
+    ;
+ 00001$:
+        push   ar0
+       mov     r0,dpl     ; use only low order address
+       mov     _ap,@r0
+       inc     r0
+       mov     a,@r0
+       inc     dpl
+        sjmp    00005$
+    ;
+    ;   pointer to xternal data
+    ;
+ 00002$:
+        movx    a,@dptr
+       mov     _ap,a
+       inc     dptr
+       movx    a,@dptr
+        sjmp    00006$
+;
+;   pointer to code area
+;
+ 00003$:
+       ; clr     a  is already 0
+        movc    a,@a+dptr
+       mov     _ap,a
+       clr     a
+       inc     dptr
+       movc    a,@a+dptr
+        sjmp    00006$
+;
+;   pointer to xternal stack
+;
+ 00004$:
+       push    ar0
+       mov     r0,dpl
+        movx    a,@r0
+       mov     _ap,a
+       inc     r0
+       movx    a,@r0
+       inc     dpl
+;
+;   restore and return
+;
+00005$:
+    pop ar0
+00006$:        
+     _endasm ;
+
 }
+#endif