! xcbstruct.map - map of structures used in func/proc/sbx param passing ! (should match, or be included by, xcall.bsi) map1 xcbstructx ! up to 20 params max map2 xcbstruc(20) map3 xcb'ptype,b,2 map3 xcb'psize,b,2 map1 xcbcnt,b,2 ! ptypes.... define XTYPE_UNFORMATTED = 0 define XTYPE_STRING = 2 define XTYPE_FLOAT = 4 define XTYPE_BINARY = 6 define XTYPE_MASK = &h0f ! mask out primary types from array define XTYPE_ARRAY = &h10 ! array indicator bit