X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=device%2Flib%2F_gptrput.c;h=3b9affc56ac32cf2bca16c34fadae4ea031e59e8;hb=30357bade4ba51536bdf52d60db2a3c96251a1ff;hp=3ae66a2d76bc1fd483831cf024d1a45111ce78ad;hpb=5b28bf382c38c57d9614df68f6fb3f3b15e29bc1;p=fw%2Fsdcc

diff --git a/device/lib/_gptrput.c b/device/lib/_gptrput.c
index 3ae66a2d..3b9affc5 100644
--- a/device/lib/_gptrput.c
+++ b/device/lib/_gptrput.c
@@ -42,13 +42,15 @@ _gptrput (char *gptr, char c)
         dec     a
         jz      00003$	; 2 code
         dec     a
-        jz      00004$
+        jz      00004$  ; 3 pdata
 	dec	a	; 4 skip generic pointer
 	dec	a
 	jz	00001$	; 5 idata
-	pop     acc
-	sjmp    00006$
-;
+
+ 00003$:
+	pop     acc    ; do nothing
+	sjmp    00005$
+;  
 ;       store into near space
 ;
  00001$:
@@ -56,25 +58,19 @@ _gptrput (char *gptr, char c)
 	push	ar0
 	mov     r0,dpl
 	mov     @r0,a
+	pop     ar0
 	sjmp    00005$
 
  00002$:
 	pop     acc
 	movx    @dptr,a
-	sjmp    00006$
-
- 00003$:
-	pop     acc    ; do nothing
-	sjmp    00006$
+	sjmp    00005$
 
  00004$:
 	pop     acc
-	push	ar0
-	mov     r0,dpl
-	movx    @r0,a
+	mov     dph,p2
+	movx    @dptr,a
  00005$:
-	pop     ar0
- 00006$:
 _endasm;
 }