+ jb _B_7,codeptr$ ; >0x80 code ; 3
+ jnb _B_6,xdataptr$ ; <0x40 far ; 3
+
+ mov dph,r0 ; save r0 independant of regbank ; 2
+ mov r0,dpl ; use only low order address ; 2
+
+ jb _B_5,pdataptr$ ; >0x60 pdata ; 3
+ ;
+ ; Pointer to data space
+ ;
+ mov a,@r0 ; 1
+ mov r0,dph ; restore r0 ; 2
+ mov dph,#0 ; restore dph ; 2
+ ret ; 1
+ ;
+ ; pointer to external stack or pdata
+ ;
+ pdataptr$:
+ movx a,@r0 ; 1
+ mov r0,dph ; restore r0 ; 2
+ mov dph,#0 ; restore dph ; 2
+ ret ; 1
+ ;
+ ; pointer to code area
+ ;
+ codeptr$:
+ ; implementation for SiLabs C8051F12x
+ mov a,b ; 2
+ anl a,0x03 ; 2
+ swap a ; 1
+ anl _PSBANK,#0x0F ; 3
+ orl _PSBANK,a ; 2
+
+ clr a ; 1
+ movc a,@a+dptr ; 1
+ ret ; 1
+ ;
+ ; pointer to xternal data
+ ;
+ xdataptr$:
+ ; implementation for xram a16-a21 tied to P3
+ mov _P3,b ; 3
+
+ movx a,@dptr ; 1
+ ret ; 1
+ ;===
+ ;43 bytes
+ _endasm ;
+}
+
+#elif defined DSDCC_MODEL_MEDIUM
+
+void
+_gptrget (char *gptr) _naked
+{
+/* This is the non-banked version with pointers up to 15 bits.
+ Assumes B is free to be used */
+
+ gptr; /* hush the compiler */
+
+ _asm
+ ;
+ ; depending on the pointer type acc. to SDCCsymt.h
+ ;
+ mov b,dph ; 3
+ jb _B_7,codeptr$ ; >0x80 code ; 3
+ jnb _B_6,xdataptr$ ; <0x40 far ; 3
+
+ mov b,r0 ; save r0 independant of regbank ; 2
+ mov r0,dpl ; use only low order address ; 2
+
+ jb _B_5,pdataptr$ ; >0x60 pdata ; 3
+ ;
+ ; Pointer to data space
+ ;
+ mov a,@r0 ; 1
+ mov r0,b ; restore r0 ; 2
+ ret ; 1
+ ;
+ ; pointer to xternal stack or pdata
+ ;
+ pdataptr$:
+ movx a,@r0 ; 1
+ mov r0,b ; restore r0 ; 2
+ ret ; 1
+ ;
+ ; pointer to code area, max 15 bits
+ ;
+ codeptr$:
+ ; 0x8000 <= dptr <= 0xFFFF
+ ; no need to AND dph and restore from B if hardware wraps code memory
+ anl dph,#0x7F ; 3
+ clr a ; 1
+ movc a,@a+dptr ; 1
+ mov dph,b ; 3
+ ret ; 1
+ ;
+ ; pointer to xternal data, max 14 bits
+ ;
+ xdataptr$:
+ ; 0 <= dptr <= 0x3FFF
+ movx a,@dptr ; 1
+ ret ; 1
+ ;===
+ ;35 bytes
+ _endasm ;
+}
+
+#elif 1
+
+void
+_gptrget (char *gptr) _naked
+{
+/* This is the new version with pointers up to 16 bits.
+ B cannot be trashed */
+
+ gptr; /* hush the compiler */
+
+ _asm
+ ;
+ ; depending on the pointer type acc. to SDCCsymt.h
+ ;
+ jb _B_7,codeptr$ ; >0x80 code ; 3
+ jnb _B_6,xdataptr$ ; <0x40 far ; 3
+
+ mov dph,r0 ; save r0 independant of regbank ; 2
+ mov r0,dpl ; use only low order address ; 2
+
+ jb _B_5,pdataptr$ ; >0x60 pdata ; 3
+ ;
+ ; Pointer to data space
+ ;
+ mov a,@r0 ; 1
+ mov r0,dph ; restore r0 ; 2
+ mov dph,#0 ; restore dph ; 2
+ ret ; 1
+ ;
+ ; pointer to xternal stack or pdata
+ ;
+ pdataptr$:
+ movx a,@r0 ; 1
+ mov r0,dph ; restore r0 ; 2
+ mov dph,#0 ; restore dph ; 2
+ ret ; 1
+ ;
+ ; pointer to code area, max 16 bits
+ ;
+ codeptr$:
+ clr a ; 1
+ movc a,@a+dptr ; 1
+ ret ; 1
+ ;
+ ; pointer to xternal data, max 16 bits
+ ;
+ xdataptr$:
+ movx a,@dptr ; 1
+ ret ; 1
+ ;===
+ ;30 bytes
+ _endasm ;
+}
+
+#else
+
+void
+_gptrget (char *gptr) _naked
+{
+/* This is the old version with pointers up to 16 bits. */
+
+ gptr; /* hush the compiler */
+
+ _asm
+ ;
+ ; depending on the pointer type acc. to SDCCsymt.h
+ ;
+ mov a,b ; 2
+ jz 00001$ ; 0 near ; 2
+ dec a ; 1
+ jz 00002$ ; 1 far ; 2
+ dec a ; 1
+ jz 00003$ ; 2 code ; 2
+ dec a ; 1
+ jz 00004$ ; 3 pdata ; 2
+ dec a ; 4 skip generic pointer ; 1
+ dec a ; 1
+ jz 00001$ ; 5 idata ; 2