@@PROJECT	C:\Users\John\Desktop\pcode_db\probes\_discovery\clswith_Date\probe.exe	pcode=True	loaded=True	err=0 
@@FUNC	modProbe	Module	modProbe.Sub Main	401A88
401A88 modProbe.Sub Main:
401A88    FDF4 0000             New CThing
401A8C    19 78FF               FStAdFunc var_88
401A8F    6C 78FF               ILdRf [var_88]
401A92    FCF8 6CFF             FStAd var_94
401A96    08 6CFF               FLdPr var_94
401A99    0D 24000100           VCallHresult CThing.Work
401A9E    6D 70FF               FLdR8 var_90
401AA1    08 6CFF               FLdPr var_94
401AA4    0D 20000100           VCallHresult CThing.var_34_put
401AA9    04 64FF               FLdRfVar var_9C
401AAC    08 6CFF               FLdPr var_94
401AAF    0D 1C000100           VCallHresult CThing.var_34_get
401AB4    6F 64FF               FLdFPR8 var_9C
401AB7    74 70FF               FStFPR8 var_90
401ABA    6F 70FF               FLdFPR8 var_90
401ABD    FDC9 64FF             PopTmpLdAdFPR8 var_9C
401AC1    08 6CFF               FLdPr var_94
401AC4    0D 2C000100           VCallHresult CThing.Prop
401AC9    04 64FF               FLdRfVar var_9C
401ACC    08 6CFF               FLdPr var_94
401ACF    0D 30000100           VCallHresult CThing.Fn
401AD4    6F 64FF               FLdFPR8 var_9C
401AD7    74 70FF               FStFPR8 var_90
401ADA    FC63                  LitNothing
401ADC    FCF8 6CFF             FStAd var_94
401AE0    14                    ExitProcI4 
401AE1    db 0 0 0 B0 


Const Pool: 4010E8
Size: 5C
Last Offset: 401AE4
RawAddr: 401AE4
ByteCRC: 1BD3A300

ProcDscInfo Dump: (RTMI)
	401AE4   000   &ObjInfo       = 4010B0
	401AE8   004   argSz          = 4
	401AEA   006   FrameSize      = 18
	401AEC   008   ProcSize       = 5C
	401AEE   00A   field_A        = 2C
	401AEF   00B   DstrctSpecial  = 0
	401AF0   00C   field_C        = 0
	401AF2   00E   erlRelOff      = 0
	401AF4   010   field_10       = 0
	401AF6   012   field_12       = 19
	401AF8   014   field_14       = 0
	401AFA   016   field_16       = 0
Destruct Special
	401AFC   018   frameOwner     = 14
	401AFE   01A   field_1A       = 0
	401B00   01C   flag           = 0
	401B02   01E   flag2          = 2
	401B04   020   unk0           = 0
	401B08   024   unk1           = FF6C
	401B0A   026   unk2           = 3
@@FUNC	CThing	Class	CThing.Work	401B1C
401B1C CThing.Work: ; Public Sub Work() 
401B1C    6F 74FF               FLdFPR8 var_8C
401B1F    08 0800               FLdPr this
401B22    92 3C00               MemStFPR8 [pr + 0x3C]
401B25    08 0800               FLdPr this
401B28    8D 3C00               MemLdFPR8 [pr + 0x3C]
401B2B    74 74FF               FStFPR8 var_8C
401B2E    6F 74FF               FLdFPR8 var_8C
401B31    08 0800               FLdPr this
401B34    92 3400               MemStFPR8 [pr + 0x34]
401B37    08 0800               FLdPr this
401B3A    8D 3400               MemLdFPR8 [pr + 0x34]
401B3D    74 74FF               FStFPR8 var_8C
401B40    F5 01000000           LitI4 0x1
401B45    71 70FF               FStR4 [var_90]
401B48    6F 74FF               FLdFPR8 var_8C
401B4B    6C 70FF               ILdRf [var_90]
401B4E    08 0800               FLdPr this
401B51    06 4800               MemLdRfVar [pr + 0x48]
401B54    A6                    Ary1StFPR8
401B55    6C 70FF               ILdRf [var_90]
401B58    08 0800               FLdPr this
401B5B    06 4800               MemLdRfVar [pr + 0x48]
401B5E    A1                    Ary1LdFPR8
401B5F    74 74FF               FStFPR8 var_8C
401B62    04 68FF               FLdRfVar var_98
401B65    08 0800               FLdPr this
401B68    0D 28000000           VCallHresult CThing.Prop
401B6D    6F 68FF               FLdFPR8 var_98
401B70    74 74FF               FStFPR8 var_8C
401B73    6D 74FF               FLdR8 var_8C
401B76    08 0800               FLdPr this
401B79    0D 20000000           VCallHresult CThing.var_34_put
401B7E    04 68FF               FLdRfVar var_98
401B81    10 30000000           ThisVCallHresult CThing.Fn
401B86    6F 68FF               FLdFPR8 var_98
401B89    74 74FF               FStFPR8 var_8C
401B8C    10 34000000           ThisVCallHresult CThing.Sb
401B91    08 0800               FLdPr this
401B94    0D 34000000           VCallHresult CThing.Sb
401B99    13                    ExitProcHresult 
401B9A    db 0 0 8C 


Const Pool: 401204
Size: 80
Last Offset: 401B9C
RawAddr: 401B9C
ByteCRC: 64E41777

ProcDscInfo Dump: (RTMI)
	401B9C   000   &ObjInfo       = 40118C
	401BA0   004   argSz          = 4
	401BA2   006   FrameSize      = 14
	401BA4   008   ProcSize       = 80
	401BA6   00A   field_A        = 24
	401BA7   00B   DstrctSpecial  = 0
	401BA8   00C   field_C        = 0
	401BAA   00E   erlRelOff      = 0
	401BAC   010   field_10       = 0
	401BAE   012   field_12       = 19
	401BB0   014   field_14       = 0
	401BB2   016   field_16       = 0
Destruct Special
	401BB4   018   frameOwner     = C
	401BB6   01A   field_1A       = 0
	401BB8   01C   flag           = 0
	401BBA   01E   flag2          = 0
	401BBC   020   unk0           = 0
	401BC0   024   unk1           = C
	401BC2   026   unk2           = 0
@@FUNC	CThing	Class	CThing.Prop	4019C8
4019C8 CThing.Prop: ; Public Property Get Prop()  As Date
4019C8    08 0800               FLdPr this
4019CB    8D 3C00               MemLdFPR8 [pr + 0x3C]
4019CE    74 74FF               FStFPR8 var_8C
4019D1    FF2F 0C000800         ExitProcCbHresult copyTo:arg_C sz:0x8 
4019D7    db 0 8C 


Const Pool: 401204
Size: 10
Last Offset: 4019D8
RawAddr: 4019D8
ByteCRC: C13C35DA

ProcDscInfo Dump: (RTMI)
	4019D8   000   &ObjInfo       = 40118C
	4019DC   004   argSz          = 8
	4019DE   006   FrameSize      = 8
	4019E0   008   ProcSize       = 10
	4019E2   00A   field_A        = 24
	4019E3   00B   DstrctSpecial  = 0
	4019E4   00C   field_C        = 0
	4019E6   00E   erlRelOff      = 0
	4019E8   010   field_10       = 0
	4019EA   012   field_12       = 19
	4019EC   014   field_14       = 0
	4019EE   016   field_16       = 0
Destruct Special
	4019F0   018   frameOwner     = C
	4019F2   01A   field_1A       = 0
	4019F4   01C   flag           = 0
	4019F6   01E   flag2          = 0
	4019F8   020   unk0           = 0
	4019FC   024   unk1           = C
	4019FE   026   unk2           = 0
@@FUNC	CThing	Class	CThing.Prop	4018CC
4018CC CThing.Prop: ; Public Property Let Prop(v As Date) 
4018CC    83 0C00               ILdFPR8 arg_C
4018CF    08 0800               FLdPr this
4018D2    92 3C00               MemStFPR8 [pr + 0x3C]
4018D5    13                    ExitProcHresult 
4018D6    db 0 0 8C 


Const Pool: 401204
Size: C
Last Offset: 4018D8
RawAddr: 4018D8
ByteCRC: 1DC237AF

ProcDscInfo Dump: (RTMI)
	4018D8   000   &ObjInfo       = 40118C
	4018DC   004   argSz          = 8
	4018DE   006   FrameSize      = 0
	4018E0   008   ProcSize       = C
	4018E2   00A   field_A        = 24
	4018E3   00B   DstrctSpecial  = 0
	4018E4   00C   field_C        = 0
	4018E6   00E   erlRelOff      = 0
	4018E8   010   field_10       = 0
	4018EA   012   field_12       = 19
	4018EC   014   field_14       = 0
	4018EE   016   field_16       = 0
Destruct Special
	4018F0   018   frameOwner     = C
	4018F2   01A   field_1A       = 0
	4018F4   01C   flag           = 0
	4018F6   01E   flag2          = 0
	4018F8   020   unk0           = 0
	4018FC   024   unk1           = C
	4018FE   026   unk2           = 0
@@FUNC	CThing	Class	CThing.Fn	401908
401908 CThing.Fn: ; Public Function Fn()  As Date
401908    08 0800               FLdPr this
40190B    8D 3C00               MemLdFPR8 [pr + 0x3C]
40190E    74 74FF               FStFPR8 var_8C
401911    FF2F 0C000800         ExitProcCbHresult copyTo:arg_C sz:0x8 
401917    db 0 8C 


Const Pool: 401204
Size: 10
Last Offset: 401918
RawAddr: 401918
ByteCRC: C13C35DA

ProcDscInfo Dump: (RTMI)
	401918   000   &ObjInfo       = 40118C
	40191C   004   argSz          = 8
	40191E   006   FrameSize      = 8
	401920   008   ProcSize       = 10
	401922   00A   field_A        = 24
	401923   00B   DstrctSpecial  = 0
	401924   00C   field_C        = 0
	401926   00E   erlRelOff      = 0
	401928   010   field_10       = 0
	40192A   012   field_12       = 19
	40192C   014   field_14       = 0
	40192E   016   field_16       = 0
Destruct Special
	401930   018   frameOwner     = C
	401932   01A   field_1A       = 0
	401934   01C   flag           = 0
	401936   01E   flag2          = 0
	401938   020   unk0           = 0
	40193C   024   unk1           = C
	40193E   026   unk2           = 0
@@FUNC	CThing	Class	CThing.Proc_401A08	401A08
401A08 CThing.Proc_401A08:
401A08    08 0800               FLdPr this
401A0B    8D 3C00               MemLdFPR8 [pr + 0x3C]
401A0E    74 74FF               FStFPR8 var_8C
401A11    FF2F 0C000800         ExitProcCbHresult copyTo:arg_C sz:0x8 
401A17    db 0 8C 


Const Pool: 401204
Size: 10
Last Offset: 401A18
RawAddr: 401A18
ByteCRC: C13C35DA

ProcDscInfo Dump: (RTMI)
	401A18   000   &ObjInfo       = 40118C
	401A1C   004   argSz          = 8
	401A1E   006   FrameSize      = 8
	401A20   008   ProcSize       = 10
	401A22   00A   field_A        = 24
	401A23   00B   DstrctSpecial  = 0
	401A24   00C   field_C        = 0
	401A26   00E   erlRelOff      = 0
	401A28   010   field_10       = 0
	401A2A   012   field_12       = 19
	401A2C   014   field_14       = 0
	401A2E   016   field_16       = 0
Destruct Special
	401A30   018   frameOwner     = C
	401A32   01A   field_1A       = 0
	401A34   01C   flag           = 0
	401A36   01E   flag2          = 0
	401A38   020   unk0           = 0
	401A3C   024   unk1           = C
	401A3E   026   unk2           = 0
@@FUNC	CThing	Class	CThing.Sb	401988
401988 CThing.Sb: ; Public Sub Sb() 
401988    04 6CFF               FLdRfVar var_94
40198B    10 38000000           ThisVCallHresult CThing.Proc_401A08
401990    6F 6CFF               FLdFPR8 var_94
401993    74 74FF               FStFPR8 var_8C
401996    13                    ExitProcHresult 
401997    db 0 8C 


Const Pool: 401204
Size: 10
Last Offset: 401998
RawAddr: 401998
ByteCRC: 378BC4C5

ProcDscInfo Dump: (RTMI)
	401998   000   &ObjInfo       = 40118C
	40199C   004   argSz          = 4
	40199E   006   FrameSize      = 10
	4019A0   008   ProcSize       = 10
	4019A2   00A   field_A        = 24
	4019A3   00B   DstrctSpecial  = 0
	4019A4   00C   field_C        = 0
	4019A6   00E   erlRelOff      = 0
	4019A8   010   field_10       = 0
	4019AA   012   field_12       = 19
	4019AC   014   field_14       = 0
	4019AE   016   field_16       = 0
Destruct Special
	4019B0   018   frameOwner     = C
	4019B2   01A   field_1A       = 0
	4019B4   01C   flag           = 0
	4019B6   01E   flag2          = 0
	4019B8   020   unk0           = 0
	4019BC   024   unk1           = C
	4019BE   026   unk2           = 0
@@FUNC	CThing	Class	CThing.Proc_401948	401948
401948 CThing.Proc_401948:
401948    08 0800               FLdPr this
40194B    8D 3C00               MemLdFPR8 [pr + 0x3C]
40194E    74 74FF               FStFPR8 var_8C
401951    FF2F 0C000800         ExitProcCbHresult copyTo:arg_C sz:0x8 
401957    db 0 8C 


Const Pool: 401204
Size: 10
Last Offset: 401958
RawAddr: 401958
ByteCRC: C13C35DA

ProcDscInfo Dump: (RTMI)
	401958   000   &ObjInfo       = 40118C
	40195C   004   argSz          = 8
	40195E   006   FrameSize      = 8
	401960   008   ProcSize       = 10
	401962   00A   field_A        = 24
	401963   00B   DstrctSpecial  = 0
	401964   00C   field_C        = 10
	401966   00E   erlRelOff      = 0
	401968   010   field_10       = 0
	40196A   012   field_12       = 19
	40196C   014   field_14       = 0
	40196E   016   field_16       = 0
Destruct Special
	401970   018   frameOwner     = C
	401972   01A   field_1A       = 0
	401974   01C   flag           = 0
	401976   01E   flag2          = 0
	401978   020   unk0           = 0
	40197C   024   unk1           = C
	40197E   026   unk2           = 0
