@@PROJECT	C:\Users\John\Desktop\pcode_db\probes\_discovery\implements\probe.exe	pcode=True	loaded=True	err=0 
@@FUNC	modProbe	Module	modProbe.Sub Main	401C6C
401C6C modProbe.Sub Main:
401C6C    FDF4 0000             New CImpl
401C70    5B 6CFF               FStAdFuncNoPop var_94
401C73    3D 0100               CastAd IThing
401C76    19 78FF               FStAdFunc var_88
401C79    1A 6CFF               FFree1Ad var_94
401C7C    F5 01000000           LitI4 0x1
401C81    08 78FF               FLdPr var_88
401C84    0D 1C000100           VCallHresult IThing.M
401C89    04 68FF               FLdRfVar var_98
401C8C    08 78FF               FLdPr var_88
401C8F    0D 20000100           VCallHresult IThing.F
401C94    3E 68FF               FLdZeroAd var_98
401C97    31 74FF               FStStr var_8C
401C9A    04 64FF               FLdRfVar var_9C
401C9D    08 78FF               FLdPr var_88
401CA0    0D 24000100           VCallHresult IThing.P
401CA5    6C 64FF               ILdRf [var_9C]
401CA8    71 70FF               FStR4 [var_90]
401CAB    14                    ExitProcI4 



Const Pool: 401110
Size: 40
Last Offset: 401CAC
RawAddr: 401CAC
ByteCRC: 2073FC6A

ProcDscInfo Dump: (RTMI)
	401CAC   000   &ObjInfo       = 4010D8
	401CB0   004   argSz          = 4
	401CB2   006   FrameSize      = 18
	401CB4   008   ProcSize       = 40
	401CB6   00A   field_A        = 2C
	401CB7   00B   DstrctSpecial  = 0
	401CB8   00C   field_C        = 0
	401CBA   00E   erlRelOff      = 0
	401CBC   010   field_10       = 0
	401CBE   012   field_12       = 19
	401CC0   014   field_14       = 0
	401CC2   016   field_16       = 0
Destruct Special
	401CC4   018   frameOwner     = 14
	401CC6   01A   field_1A       = 0
	401CC8   01C   flag           = 0
	401CCA   01E   flag2          = 2
	401CCC   020   unk0           = 0
	401CD0   024   unk1           = FF78
	401CD2   026   unk2           = 3
@@FUNC	IThing	Class	IThing.M	401A88
401A88 IThing.M: ; Public Sub M(ByVal n As Long) 
401A88    13                    ExitProcHresult 
401A89    db 0 0 0 B4 


Const Pool: 40122C
Size: 4
Last Offset: 401A8C
RawAddr: 401A8C
ByteCRC: 3854745B

ProcDscInfo Dump: (RTMI)
	401A8C   000   &ObjInfo       = 4011B4
	401A90   004   argSz          = 8
	401A92   006   FrameSize      = 0
	401A94   008   ProcSize       = 4
	401A96   00A   field_A        = 24
	401A97   00B   DstrctSpecial  = 0
	401A98   00C   field_C        = 0
	401A9A   00E   erlRelOff      = 0
	401A9C   010   field_10       = 0
	401A9E   012   field_12       = 19
	401AA0   014   field_14       = 0
	401AA2   016   field_16       = 0
Destruct Special
	401AA4   018   frameOwner     = C
	401AA6   01A   field_1A       = 0
	401AA8   01C   flag           = 0
	401AAA   01E   flag2          = 0
	401AAC   020   unk0           = 0
	401AB0   024   unk1           = C
	401AB2   026   unk2           = 0
@@FUNC	IThing	Class	IThing.F	401B2C
401B2C IThing.F: ; Public Function F()  As String
401B2C    FF2D                  ZeroRetVal
401B2E    FF2F 0C000400         ExitProcCbHresult copyTo:arg_C sz:0x4 



Const Pool: 40122C
Size: 8
Last Offset: 401B34
RawAddr: 401B34
ByteCRC: 1157D9D4

ProcDscInfo Dump: (RTMI)
	401B34   000   &ObjInfo       = 4011B4
	401B38   004   argSz          = 8
	401B3A   006   FrameSize      = 4
	401B3C   008   ProcSize       = 8
	401B3E   00A   field_A        = 28
	401B3F   00B   DstrctSpecial  = 0
	401B40   00C   field_C        = 0
	401B42   00E   erlRelOff      = 0
	401B44   010   field_10       = 0
	401B46   012   field_12       = 19
	401B48   014   field_14       = 0
	401B4A   016   field_16       = 0
Destruct Special
	401B4C   018   frameOwner     = 10
	401B4E   01A   field_1A       = 0
	401B50   01C   flag           = 0
	401B52   01E   flag2          = 1
	401B54   020   unk0           = 1000000
	401B58   024   unk1           = FF78
	401B5A   026   unk2           = 1
@@FUNC	IThing	Class	IThing.P	401ABC
401ABC IThing.P: ; Public Property Get P()  As Long
401ABC    FF2F 0C000400         ExitProcCbHresult copyTo:arg_C sz:0x4 
401AC2    db 0 0 B4 


Const Pool: 40122C
Size: 8
Last Offset: 401AC4
RawAddr: 401AC4
ByteCRC: 245B1F5B

ProcDscInfo Dump: (RTMI)
	401AC4   000   &ObjInfo       = 4011B4
	401AC8   004   argSz          = 8
	401ACA   006   FrameSize      = 4
	401ACC   008   ProcSize       = 8
	401ACE   00A   field_A        = 24
	401ACF   00B   DstrctSpecial  = 0
	401AD0   00C   field_C        = 0
	401AD2   00E   erlRelOff      = 0
	401AD4   010   field_10       = 0
	401AD6   012   field_12       = 19
	401AD8   014   field_14       = 0
	401ADA   016   field_16       = 0
Destruct Special
	401ADC   018   frameOwner     = C
	401ADE   01A   field_1A       = 0
	401AE0   01C   flag           = 0
	401AE2   01E   flag2          = 0
	401AE4   020   unk0           = 0
	401AE8   024   unk1           = C
	401AEA   026   unk2           = 0
@@FUNC	CImpl	Class	CImpl.IThing_M	401A54
401A54 CImpl.IThing_M: ; Public Sub IThing_M(ByVal n As Long) 
401A54    13                    ExitProcHresult 
401A55    db 0 0 0 D0 


Const Pool: 401348
Size: 4
Last Offset: 401A58
RawAddr: 401A58
ByteCRC: 3854745B

ProcDscInfo Dump: (RTMI)
	401A58   000   &ObjInfo       = 4012D0
	401A5C   004   argSz          = 8
	401A5E   006   FrameSize      = 0
	401A60   008   ProcSize       = 4
	401A62   00A   field_A        = 24
	401A63   00B   DstrctSpecial  = 0
	401A64   00C   field_C        = 20
	401A66   00E   erlRelOff      = 0
	401A68   010   field_10       = 0
	401A6A   012   field_12       = 19
	401A6C   014   field_14       = 0
	401A6E   016   field_16       = 0
Destruct Special
	401A70   018   frameOwner     = C
	401A72   01A   field_1A       = 0
	401A74   01C   flag           = 0
	401A76   01E   flag2          = 0
	401A78   020   unk0           = 0
	401A7C   024   unk1           = C
	401A7E   026   unk2           = 0
@@FUNC	CImpl	Class	CImpl.IThing_F	401C28
401C28 CImpl.IThing_F: ; Public Function IThing_F()  As String
401C28    FF2D                  ZeroRetVal
401C2A    1B 0000               LitStr str_401918='a' 
401C2D    43 78FF               FStStrCopy var_88
401C30    FF2F 0C000400         ExitProcCbHresult copyTo:arg_C sz:0x4 
401C36    db 0 0 D0 


Const Pool: 401348
Size: 10
Last Offset: 401C38
RawAddr: 401C38
ByteCRC: BA1FF646

ProcDscInfo Dump: (RTMI)
	401C38   000   &ObjInfo       = 4012D0
	401C3C   004   argSz          = 8
	401C3E   006   FrameSize      = 4
	401C40   008   ProcSize       = 10
	401C42   00A   field_A        = 28
	401C43   00B   DstrctSpecial  = 0
	401C44   00C   field_C        = 20
	401C46   00E   erlRelOff      = 0
	401C48   010   field_10       = 0
	401C4A   012   field_12       = 19
	401C4C   014   field_14       = 0
	401C4E   016   field_16       = 0
Destruct Special
	401C50   018   frameOwner     = 10
	401C52   01A   field_1A       = 0
	401C54   01C   flag           = 0
	401C56   01E   flag2          = 1
	401C58   020   unk0           = 1000000
	401C5C   024   unk1           = FF78
	401C5E   026   unk2           = 1
@@FUNC	CImpl	Class	CImpl.IThing_P	401AF4
401AF4 CImpl.IThing_P: ; Public Property Get IThing_P()  As Long
401AF4    FF2F 0C000400         ExitProcCbHresult copyTo:arg_C sz:0x4 
401AFA    db 0 0 D0 


Const Pool: 401348
Size: 8
Last Offset: 401AFC
RawAddr: 401AFC
ByteCRC: 245B1F5B

ProcDscInfo Dump: (RTMI)
	401AFC   000   &ObjInfo       = 4012D0
	401B00   004   argSz          = 8
	401B02   006   FrameSize      = 4
	401B04   008   ProcSize       = 8
	401B06   00A   field_A        = 24
	401B07   00B   DstrctSpecial  = 0
	401B08   00C   field_C        = 20
	401B0A   00E   erlRelOff      = 0
	401B0C   010   field_10       = 0
	401B0E   012   field_12       = 19
	401B10   014   field_14       = 0
	401B12   016   field_16       = 0
Destruct Special
	401B14   018   frameOwner     = C
	401B16   01A   field_1A       = 0
	401B18   01C   flag           = 0
	401B1A   01E   flag2          = 0
	401B1C   020   unk0           = 0
	401B20   024   unk1           = C
	401B22   026   unk2           = 0
