XProfan

DECLARE XPIA#,XPIA$,XPIA&,BEREICH#,DIMBYTES&,Z&
DIM XPIA#,3076
CLEAR XPIA#
LONG XPIA#,0=9460301,3,4,65535,184,0,64,0,0,0,0,0,0,0,0,176,247078670,-855002112,1275181089,1750344141,1881174889,1919381362,1663069537,1869508193,1700929652,1853190688,544106784,542330692,1701080941,168627502,36,0,-642185571
LONG XPIA#,132=-1965594663,-1965594663,-1965594663,-1966782683,-1965594664,-1966835625,-1965594660,1751345490,-1965594663,0,0,17744,262476,1125863750,0,0,554565856,201654539,512,1536,0,4096,4096,8192,268435456,4096,512,4,0,4
LONG XPIA#,252=0,20480,1024,0,2,1048576,4096,1048576,4096,0,16,8224,98,8192,20,0,0,0,0,0,0,16384,48,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,2019914798,116,202,4096,512,1024,0,0,0,-536870880,1633972782,24948,130,8192,512,1536
LONG XPIA#,488=0,0,0,1073741888,1952539694,97,60,12288,512,2048,0,0,0,-1073741760,1818587694,25455,70,16384,512,2560,0,0,0,1107296320,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
LONG XPIA#,768=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1192457387,1,836297,-1559738997,268447744,-1559476853,268447748,-1559214709,268447752
LONG XPIA#,1060=-1558952565,268447756,-1558690421,268447760,-1558428277,268447764,-1558166133,268447768,-1557903989,268447772,-1557641845,268447776,-1557379701,268447780,-1557117557,268447784,-1556855413,268447788,-1556593269
LONG XPIA#,1136=268447792,-1556331125,268447796,-1556068981,268447800,-326412861,-32792,1936383,-1961885648,69010387,-1206910928,0,805584259,1979715584,59394845,108331068,225761851,489419755,268447744,-339506365,47109,-1034092544
LONG XPIA#,1224=8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1919251317,1680749107,27756,0,1125863750,0
LONG XPIA#,1580=8274,1,1,1,8264,8268,8272,4229,8306,1113522176,1768256101,1735616611,1936027506,1952408947,1702130533,1852137326,1818504808,1766195308,1699898478,1699572833,2053722989,101,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
LONG XPIA#,1744=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
LONG XPIA#,2164=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,48,806891536
LONG XPIA#,2572=807940128,808988720,810037312,811085904,812134496,813183088,814690432,815935639,12472,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
LONG XPIA#,2856=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
XPIA$=$TEMPDIR+"/_Bereichsgroesse_testen_enh.dll"
FILEMODE 1
ASSIGN #1,XPIA$
OPENRW #1
BLOCKWRITE #1,XPIA#,0,3072
CLOSERW #1
DISPOSE XPIA#
CLS
DIM BEREICH#,100000
CLEAR BEREICH#
DIMBYTES&=SIZEOF(BEREICH#)
PRINT "Tatsächliche Dimensione des Bereichs: "+STR$(DIMBYTES&)
STRING BEREICH#,0="Guten Tag"
STRING BEREICH#,400="Ich teste mal was"
Z&=EXTERNAL(XPIA$,"FindRealMemSize",BEREICH#,DIMBYTES&)
PRINT "Jegliche Daten im Bereich enden bei Offset: "+STR$(Z&)
WAITINPUT
END

declare m#
dim m#,1024
clear m#
string m#,0="Hallo Wält"
print realsizeof(addr(m#),sizeof(m#))
dispose m#
waitkey
end

proc realsizeof

    parameters m&,s&
    declare eax&

    asmstart _realsizeof

        parameters m&,s&
        return eax&
        mov eax,para1
        mov ebx,para2
        dec ebx
        mov dl,[eax+ebx]
        cmp dl,0
        jne eop
        lop:
        dec ebx
        cmp ebx,-1
        je eop
        mov dl,[eax+ebx]
        cmp dl,0
        je lop
        eop:
        inc ebx
        mov eax,ebx

    asmend

    return eax&

endproc

AsmStart FindRealMemSize

    Parameters bereich#,dimbytes&
    Return z&
    mov ebx,para1
    mov edx,ebx
    add ebx,para2
    xor eax,eax

    .if para2>0

        schleife:
        dec ebx
        mov al,[ebx]
        cmp al,0
        jne gefunden
        cmp ebx,edx
        je  abbruch
        jmp schleife
        gefunden:
        sub ebx,para1
        inc ebx
        mov eax,ebx
        jmp finish
        abbruch:
        xor eax,eax
        finish:

    .endif

AsmEnd