#line 16782 "qb64pe.bas"
void SUB_GETASGREFSTATE(qbs*_SUB_GETASGREFSTATE_STRING_REF_TEXT,int32*_SUB_GETASGREFSTATE_LONG_REF_TYP,int32*_SUB_GETASGREFSTATE_LONG_REF_KIND,int32*_SUB_GETASGREFSTATE_LONG_HAS_MEMBER,int32*_SUB_GETASGREFSTATE_LONG_REF_STATE){
#line 16782 "qb64pe.bas"
qbs *tqbs;
#line 16782 "qb64pe.bas"
ptrszint tmp_long;
#line 16782 "qb64pe.bas"
int32 tmp_fileno;
#line 16782 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 16782 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 16782 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 16782 "qb64pe.bas"
#include "data41.txt"
#line 16782 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 16782 "qb64pe.bas"
new_mem_lock();
#line 16782 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 16782 "qb64pe.bas"
sf_mem_lock->type=3;
#line 16782 "qb64pe.bas"
libqb_check_stack();
#line 16782 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 16783 "qb64pe.bas"
do{
#line 16783 "qb64pe.bas"
if(!qbevent)break;evnt(16783);}while(r);
#line 16785 "qb64pe.bas"
do{
#line 16785 "qb64pe.bas"
*_SUB_GETASGREFSTATE_LONG_REF_STATE= 0 ;
#line 16785 "qb64pe.bas"
if(!qbevent)break;evnt(16785);}while(r);
#line 16786 "qb64pe.bas"
S_19293:;
#line 16786 "qb64pe.bas"
if (((-(*_SUB_GETASGREFSTATE_LONG_REF_KIND< 1 ))|(-(*_SUB_GETASGREFSTATE_LONG_REF_KIND> 3 )))||is_error_pending()){
#line 16786 "qb64pe.bas"
if(qbevent){evnt(16786);if(r)goto S_19293;}
#line 16786 "qb64pe.bas"
do{
#line 16786 "qb64pe.bas"
goto exit_subfunc;
#line 16786 "qb64pe.bas"
if(!qbevent)break;evnt(16786);}while(r);
#line 16786 "qb64pe.bas"
}
#line 16788 "qb64pe.bas"
S_19296:;
#line 16788 "qb64pe.bas"
if ((-(*_SUB_GETASGREFSTATE_LONG_HAS_MEMBER== 0 ))||is_error_pending()){
#line 16788 "qb64pe.bas"
if(qbevent){evnt(16788);if(r)goto S_19296;}
#line 16789 "qb64pe.bas"
S_19297:;
#line 16789 "qb64pe.bas"
if ((*_SUB_GETASGREFSTATE_LONG_REF_TYP&*__LONG_ISARRAY)||is_error_pending()){
#line 16789 "qb64pe.bas"
if(qbevent){evnt(16789);if(r)goto S_19297;}
#line 16789 "qb64pe.bas"
do{
#line 16789 "qb64pe.bas"
*_SUB_GETASGREFSTATE_LONG_REF_STATE=*_SUB_GETASGREFSTATE_LONG_REF_KIND;
#line 16789 "qb64pe.bas"
if(!qbevent)break;evnt(16789);}while(r);
#line 16789 "qb64pe.bas"
}
#line 16790 "qb64pe.bas"
do{
#line 16790 "qb64pe.bas"
goto exit_subfunc;
#line 16790 "qb64pe.bas"
if(!qbevent)break;evnt(16790);}while(r);
#line 16791 "qb64pe.bas"
}
#line 16793 "qb64pe.bas"
S_19302:;
#line 16793 "qb64pe.bas"
if ((-((*_SUB_GETASGREFSTATE_LONG_REF_TYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 16793 "qb64pe.bas"
if(qbevent){evnt(16793);if(r)goto S_19302;}
#line 16793 "qb64pe.bas"
do{
#line 16793 "qb64pe.bas"
goto exit_subfunc;
#line 16793 "qb64pe.bas"
if(!qbevent)break;evnt(16793);}while(r);
#line 16793 "qb64pe.bas"
}
#line 16794 "qb64pe.bas"
do{
#line 16794 "qb64pe.bas"
*_SUB_GETASGREFSTATE_LONG_SEP_ONE=func_instr(NULL,_SUB_GETASGREFSTATE_STRING_REF_TEXT,__STRING1_SP3,0);
#line 16794 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16794 "qb64pe.bas"
if(!qbevent)break;evnt(16794);}while(r);
#line 16795 "qb64pe.bas"
S_19306:;
#line 16795 "qb64pe.bas"
if ((-(*_SUB_GETASGREFSTATE_LONG_SEP_ONE== 0 ))||is_error_pending()){
#line 16795 "qb64pe.bas"
if(qbevent){evnt(16795);if(r)goto S_19306;}
#line 16795 "qb64pe.bas"
do{
#line 16795 "qb64pe.bas"
goto exit_subfunc;
#line 16795 "qb64pe.bas"
if(!qbevent)break;evnt(16795);}while(r);
#line 16795 "qb64pe.bas"
}
#line 16796 "qb64pe.bas"
do{
#line 16796 "qb64pe.bas"
*_SUB_GETASGREFSTATE_LONG_SEP_TWO=func_instr(*_SUB_GETASGREFSTATE_LONG_SEP_ONE+1,_SUB_GETASGREFSTATE_STRING_REF_TEXT,__STRING1_SP3,0|1);
#line 16796 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16796 "qb64pe.bas"
if(!qbevent)break;evnt(16796);}while(r);
#line 16797 "qb64pe.bas"
S_19310:;
#line 16797 "qb64pe.bas"
if ((-(*_SUB_GETASGREFSTATE_LONG_SEP_TWO== 0 ))||is_error_pending()){
#line 16797 "qb64pe.bas"
if(qbevent){evnt(16797);if(r)goto S_19310;}
#line 16797 "qb64pe.bas"
do{
#line 16797 "qb64pe.bas"
goto exit_subfunc;
#line 16797 "qb64pe.bas"
if(!qbevent)break;evnt(16797);}while(r);
#line 16797 "qb64pe.bas"
}
#line 16798 "qb64pe.bas"
do{
#line 16798 "qb64pe.bas"
*_SUB_GETASGREFSTATE_LONG_SEP_THREE=func_instr(*_SUB_GETASGREFSTATE_LONG_SEP_TWO+1,_SUB_GETASGREFSTATE_STRING_REF_TEXT,__STRING1_SP3,0|1);
#line 16798 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16798 "qb64pe.bas"
if(!qbevent)break;evnt(16798);}while(r);
#line 16799 "qb64pe.bas"
S_19314:;
#line 16799 "qb64pe.bas"
if ((-(*_SUB_GETASGREFSTATE_LONG_SEP_THREE== 0 ))||is_error_pending()){
#line 16799 "qb64pe.bas"
if(qbevent){evnt(16799);if(r)goto S_19314;}
#line 16799 "qb64pe.bas"
do{
#line 16799 "qb64pe.bas"
goto exit_subfunc;
#line 16799 "qb64pe.bas"
if(!qbevent)break;evnt(16799);}while(r);
#line 16799 "qb64pe.bas"
}
#line 16801 "qb64pe.bas"
do{
#line 16801 "qb64pe.bas"
*_SUB_GETASGREFSTATE_LONG_MEMBER_ID=qbr(qbs_val<long double>(func_mid(_SUB_GETASGREFSTATE_STRING_REF_TEXT,*_SUB_GETASGREFSTATE_LONG_SEP_TWO+1,*_SUB_GETASGREFSTATE_LONG_SEP_THREE-*_SUB_GETASGREFSTATE_LONG_SEP_TWO-1,0|1)));
#line 16801 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16801 "qb64pe.bas"
if(!qbevent)break;evnt(16801);}while(r);
#line 16802 "qb64pe.bas"
S_19318:;
#line 16802 "qb64pe.bas"
if ((-(*_SUB_GETASGREFSTATE_LONG_MEMBER_ID<= 0 ))||is_error_pending()){
#line 16802 "qb64pe.bas"
if(qbevent){evnt(16802);if(r)goto S_19318;}
#line 16802 "qb64pe.bas"
do{
#line 16802 "qb64pe.bas"
goto exit_subfunc;
#line 16802 "qb64pe.bas"
if(!qbevent)break;evnt(16802);}while(r);
#line 16802 "qb64pe.bas"
}
#line 16803 "qb64pe.bas"
S_19321:;
#line 16803 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_SUB_GETASGREFSTATE_LONG_MEMBER_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
#line 16803 "qb64pe.bas"
if(qbevent){evnt(16803);if(r)goto S_19321;}
#line 16803 "qb64pe.bas"
do{
#line 16803 "qb64pe.bas"
*_SUB_GETASGREFSTATE_LONG_REF_STATE=*_SUB_GETASGREFSTATE_LONG_REF_KIND;
#line 16803 "qb64pe.bas"
if(!qbevent)break;evnt(16803);}while(r);
#line 16803 "qb64pe.bas"
}
#line 16804 "qb64pe.bas"
exit_subfunc:;
#line 16804 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 16804 "qb64pe.bas"
#include "free41.txt"
#line 16804 "qb64pe.bas"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
#line 16804 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 16804 "qb64pe.bas"
}
