rem: uae_u32 REGPARAM2 blomcall_test(uae_u32 volatile* regs, double* fregs) { uae_u32 execbase = bswap_32(*(uae_u32*) 4); char intui[] = "intuition.library"; uae_u32 intuibase; uae_u32 r[16]; uae_u32 tags[] = { 0, 0 };  r[0+0] = 0; r[8+1] = intui; r[8+6] = execbase; intuibase = blomcall_calllib68k(r, NULL, _LVOOpenLibrary);  r[8+0] = 0; r[8+1] = tags; r[8+6] = intuibase; blomcall_calllib68k(r, NULL, _LVOOpenWindowTagList);  r[8+1] = intuibase; r[8+6] = execbase; blomcall_calllib68k(r, NULL, _LVOCloseLibrary);  return execbase;
add: void blomcall_test() { while(1) { ++bc_cnt; }
context: uae_u32 REGPARAM2 blomcall_test(uae_u32 volatile* regs, double* fregs) {  uae_u32 execbase = bswap_32(*(uae_u32*) 4);  char intui[] = "intuition.library";  uae_u32 intuibase;  uae_u32 r[16];  uae_u32 tags[] = { 0, 0 };  r[0+0] = 0;  r[8+1] = intui;  r[8+6] = execbase;  intuibase = blomcall_calllib68k(r, NULL, _LVOOpenLibrary);  r[8+0] = 0;  r[8+1] = tags;  r[8+6] = intuibase;  blomcall_calllib68k(r, NULL, _LVOOpenWindowTagList);    r[8+1] = intuibase;  r[8+6] = execbase;  blomcall_calllib68k(r, NULL, _LVOCloseLibrary);    return execbase;  /*   int i; *//*   char line[100]; *//*   printf("inside blomcall_test(d0: %08x; d1: %08x; a0: %08x; a1: %08x)\n", *//* 	 regs[0], regs[1], regs[8], regs[9]); *//*   line[0]=0; *//*   while(gets(line) == NULL || line[0] == 0) { *//*     if ((get_byte(0xbfe001) & (1<<6)) == 0) { *//*       break; *//*     } *//*   } *//*   printf("line is '%s'\n", line); *//*   return atoi(line); */}