LCD Wrote:Is this a bug or "feature"? If it is a feature, how to find out the adress of a string stored in Variable?

LCD Wrote:I was expecting, it was a pointer, but I ran into the problem in a sub:

Code:

SUB test(a$ as string)
PRINT PEEK(Uinteger, @a$)
END SUB

If the String is defined in the header of the SUB, it points to a completly wrong adress (I got one on the Attribute area of screen), but thank to your tip boriel, I found a workaround:

Code:

SUB test(a$ as string)
DIM dummy$
dummy$=a$
PRINT PEEK(Uinteger, @dummy$)
END SUB

Now I got the correct adress...

LCD Wrote:BUMP!
Are POKE and PEEK STRING supposed to work? This would be great for direct string manipulation. I ask because they do not work. POKE [type] address,value suggest that it should accept any type (Okay, I have not tried floats and doubles yet, and POKE ULONG address,PEEK (ULONG,address) was not working in previous versions, crashing the emulator), so this is something that needs further testing.

boriel Wrote:

LCD Wrote:BUMP!
Are POKE and PEEK STRING supposed to work? This would be great for direct string manipulation. I ask because they do not work. POKE [type] address,value suggest that it should accept any type (Okay, I have not tried floats and doubles yet, and POKE ULONG address,PEEK (ULONG,address) was not working in previous versions, crashing the emulator), so this is something that needs further testing.

Nope, the don't. In fact, the problem here is most of you are thinking in C/Asm and not in "High level" language (such as BASIC). You can use memcpy (it's in the library) already for that. Memcpy(Destiny, @varname + 2, len(varname)) will copy an entire string starting at Destiny memory address.

nitrofurano Wrote:btw, it's missing a description about memcopy (or memcpy) at <!-- m --><a class="postlink" href="http://www.boriel.com/wiki/en/index.php/ZX_BASIC:Library">http://www.boriel.com/wiki/en/index.php ... IC:Library</a><!-- m -->

based on that, i'm trying to create a new subroutine, which attempts to do a memcopy from paged memory (128k) (far still incomplete and accurate, because, besides it doesn't work fine yet, it doesn't copy a group of bytes splitted into different neighbour pages)

Code:

sub memcpypagedtodisplay(tdest as ulong, tpadr as ulong, tleng as ulong):
  dim tpvl as ulong
  dim tqadr as ulong
  tpvl=int (tpadr/16384)
  tqadr=tpadr mod 16384
  out 32765,16+(int(tpvl*1.5))
  memcopy(tdest,49152+tqadr,tleng)
  end sub

LCD Wrote:

nitrofurano Wrote:btw, it's missing a description about memcopy (or memcpy) at <!-- m --><a class="postlink" href="http://www.boriel.com/wiki/en/index.php/ZX_BASIC:Library">http://www.boriel.com/wiki/en/index.php ... IC:Library</a><!-- m -->

based on that, i'm trying to create a new subroutine, which attempts to do a memcopy from paged memory (128k) (far still incomplete and accurate, because, besides it doesn't work fine yet, it doesn't copy a group of bytes splitted into different neighbour pages)

Code:

sub memcpypagedtodisplay(tdest as ulong, tpadr as ulong, tleng as ulong):
  dim tpvl as ulong
  dim tqadr as ulong
  tpvl=int (tpadr/16384)
  tqadr=tpadr mod 16384
  out 32765,16+(int(tpvl*1.5))
  memcopy(tdest,49152+tqadr,tleng)
  end sub

Is this not a little bit offtopic?
Anyway, Memcopy is not optimal, it can be replaced with much faster and shorter ASM routine. I made one and it is on my HDD, but I do not remember which one was working and which not.

Code:

sub CopyMem(src as Uinteger,des as Uinteger,length as Uinteger,bank as ubyte)
    asm
        
        ld a,(ix+11)
        ld bc,32765
        out (c),a
        ld hl,(ix+5)
        ld de,(ix+7)
        ld bc,(ix+9)
        ldir
        ld a,(23388)
        ld bc,32765
        out (c),a
    end asm
end sub

Code:

sub CopyMem(src as Uinteger,des as Uinteger,length as Uinteger)
    asm
        ld d,(ix+7)
        ld e,(ix+6)
        ld h,(ix+5)
        ld l,(ix+4)
        ld b,(ix+9)
        ld c,(ix+8)
        ldir
    end asm
end sub

boriel Wrote:At the moment I'm "tera-busy" (not mega, neither giga ) with the compiler refactoring and other projects, so I have almost no time to examine this.
This idea is *very* interesting, and this routine may go in the library/ package, bundled with the compiler. :roll:

nitrofurano Wrote:thanks, but when testing

Code:

sub cpymempaged(src as Uinteger,des as Uinteger,length as Uinteger,bank as ubyte):
  asm
    ld a,(ix+11)
    ld bc,32765
    out (c),a
    ld hl,(ix+5)
    ld de,(ix+7)
    ld bc,(ix+9)
    ldir
    ld a,(23388)
    ld bc,32765
    out (c),a
  end asm
end sub
sub cpymem(src as Uinteger,des as Uinteger,length as Uinteger):
  asm
    ld d,(ix+7)
    ld e,(ix+6)
    ld h,(ix+5)
    ld l,(ix+4)
    ld b,(ix+9)
    ld c,(ix+8)
    ldir
  end asm
end sub
cls
cpymem(17000,12000,400)
pause 0

i got from terminal:

Code:

memcopytest.bas:5: Error: Syntax error. Unexpected token 'IX' [IX]

(btw, sorry about the offtopic... :S )