Renishaw probe help

[jayk]

Hello forum members, i am a long long long time reader, first time poster. i thank you all for all your knowledge and wisdom. I am running a TOSHIBA TSS-C VTL. The machine is loaded with custom macros for the RENISHAW MP3 PROBE, as well as a motorized tool setter, unfortunately no one knows how to work them.
Any insight on how to get started would be greatly appreciated.
Here is a sample straight off the machine, along with the sub it calls.
control is fanuc 31i, costom b macro.

O9012 (G212 INNER MEAS.)
#582=0
G04P0
G04P0
#[538+2*#17]=#0
#[539+2*#17]=#0
#12=#4114
G65P9004
#9=#4001
#10=#4005
#11=#4007
#8=ADP[#8]
IF[#8EQ#0]THEN#8=1
IF[[#8-1]*[#8-5]GT0]GOTO440
#17=ADP[#17]
IF[#17EQ#0]THEN#17=1
IF[[#17-1]*[#8-20]GT0]GOTO440
#20=ADP[#20]
#13=ADP[#13]
IF[#1EQ#0]GOTO10
IF[#1LE0]GOTO440
N10#25=1
IF[#4006NE21]THEN#25=25.4
#2=#5041
#3=#5042
IF[#3007NE0]GOTO450
IF[#4007NE40]GOTO460
G98
IF[#24EQ#0]GOTO20
#4=#24-20.0/#25+[#[516+4*#8]/#25]
#6=#4+30.0/#25
G31X#4F[2000.0/#25]
IF[ABS[#5061-#4]GE[0.01/#25]]GOTO410
GOTO30
N20#4=#2
#6=#4+200.0/#25
N30IF[#26EQ#0]GOTO40
#5=#26+[#[517+4*#8]/#25]-2.5/#25
G31Z#5F[2000.0/#25]
IF[ABS[#5062-#5]GE[0.01/#25]]GOTO410
N40#3004=0
G31X#6F[200.0/#25]
G00U[-15.0/#25]
#3004=0
G04P0
G04P0
IF[ABS[#5061-#4]LE[0.1/#25]]GOTO430
IF[ABS[#5061-#6]LE[0.1/#25]]GOTO420
G65P9808X#4U#6A#25F[100/#25]
G04P0
G04P0
#33=#5022*#511
G00Z#3
X#2
G#9
G#10
F#11
#7=#581-[#[519+4*#8]/#25]
#[538+2*#17]=#7
#[539+2*#17]=#0
IF[#582EQ1]GOTO420
IF[#583EQ1]GOTO430
#15=0
IF[#24EQ#0]GOTO70
IF[#1EQ#0]GOTO60
#14=#7-#24
#15=1
IF[ABS[#14]GT#1]THEN#15=2
N60IF[#20EQ#0]GOTO70
G10P#20U-#14
G11
N70IF[#13NE18]GOTO300
POPEN
DPRNT[*N*******DIAMETER****ERROR***OFFSET]
IF[#25EQ25.4]GOTO100
IF[#15EQ0]GOTO90
IF[#15EQ2]GOTO80
DPRNT[#12[40]**#7[53]***#14[23]***#20[20]***OK]
GOTO200
N80DPRNT[#12[40]**#7[53]***#14[23]***#20[20]***NG]
GOTO200
N90DPRNT[#12[40]**#7[53]]
GOTO200
N100IF[#15EQ0]GOTO120
IF[#15EQ2]GOTO110
DPRNT[#12[40]**#7[44]***#14[14]***#20[20]***OK]
GOTO200
N110DPRNT[#12[40]**#7[44]***#14[14]***#20[20]***NG]
GOTO200
N120DPRNT[#12[40]**#7[44]]
N200PCLOS
N300IF[#15NE2]GOTO490
#3000=163(@75768D46834DB5B0CADEB0@)
(LIMIT OVER ERROR)
N410G#9G#10F#11
#3000=160(@7C34704C834D77686461705B7E6F@)
(AXIS POSITIONING ERROR)
N420#3000=161(@BDB7AFCCDF7F2E7966B4D7B0@)
(NOT SKIP ON)
N430#3000=162(@C0AFC1BEDDBBB0B4D7B0@)
(TOUCH SENSOR ERROR)
N440#3000=150(@CCABB0CFAFC4B4D7B0@)
(FORMAT ERROR)
N450#3000=151(@D0D7B0B2D2B0BCDE8366@)
(NOT MIRROR IMAGE CANCELED)
N460#3000=152(@7F4F8068@R@8A6480358366@)
(NOT G40 ERROR)
N490M99



O9808(MEASRING SUB)
G04X0
G04X0
G04X0
#3004=0
G31X#21Z#23F#9
G00X#24Z#26
#3004=0
G04X0
G04X0
G04X0
IF[#23EQ#0]GOTO10
#30=#5062
#31=#23
#32=#26
GOTO20
N10#30=#5061
#31=#21
#32=#24
N20IF[ABS[#30-#32]LT[0.01/#1]]GOTO30
IF[ABS[#30-#31]LT[0.005/#1]]GOTO40
#581=#30
GOTO50
N30#581=10000*10000
#583=1
GOTO50
N40#581=-0.0001*0.0001
#582=1
N50M99