[kurmay]

OALM
SEC1=2
IF [SEC1 EQ 1] NOSP1 (OSP 5020L)
IF [SEC1 EQ 2] NOSP2 (OSP 7000L)
IF [SEC1 EQ 3] NOSP3 (OSP U100L)
IF [SEC1 EQ 4] NOSP4 (OSP P200L)
IF [SEC1 EQ 5] NOSP5 (OSP 5000L-G)
GOTO NEND
(---------------------- OSP 5020L ----------------------------)
NOSP1
V32=VPVLZ-VAPAZ
IF [V32 GT 1] NAL12
GOTO NEND
(---------------------- OSP 7000L ----------------------------)
NOSP2
IF [VORD[LIMT] EQ 0] NAL12
IF [VORD[OMON] EQ 0] NAL13
IF [VORD[DRYR] EQ 1] NAL14
GOTO NEND
(---------------------- OSP U100L ----------------------------)
NOSP3
IF [VORD[0001] EQ 0] NAL12
IF [VORD[002B] EQ 0] NAL13
IF [VORD[0025] EQ 1] NAL14
GOTO NEND
(---------------------- OSP P200L ----------------------------)
NOSP4
IF [VORD[0001] EQ 0] NAL12
IF [VORD[0015] EQ 0] NAL13
IF [VORD[001C] EQ 1] NAL14
GOTO NEND
(---------------------- OSP 5000L-G --------------------------)
NOSP5
IF [[VDIN[1090] AND 1] NE 1] NAL12
IF [[VDIN[1138] AND 16] NE 16] NAL13
IF [[VDIN[1128] AND 1] EQ 1] NAL14
GOTO NEND
(---------------------- ALARMS --------------------------------)
NAL12 VUACM[1]='TURRET LIMIT'
VDOUT[993]=1
GOTO NEND
NAL13 VUACM[1]='LOAD MONITOR'
VDOUT[991]=1
GOTO NEND
NAL14 VUACM[1]='DRY RUN'
VDOUT[993]=1
NEND RTS

Save this code O.SSB (change SEC1=?) and copy to BB1 or MD1. Restart machine and write CALL OALM in parts program first line.

I don't know VDIN codes for OSP5020L. is there anybody having this codes?

[OkumaWiz]

I have a little bit different method and maybe a few different checks, but the concept is the same.

I typically use a separate program for each control or machine since the Specifications are not the same on each machine.

Here's a sample of one for a 5020 Cadet-W:


$CHECK.SSB%
CALL OCHEK
OCHEK (CADET-W 2-21-96 )
IF[[VDIN[1128]AND 2]EQ 2]NRTS (MACHINE LOCK)
IF[[VDIN[1128]AND 1]EQ 0]NCK2 (DRY RUN)
VUACM[1]='DRY RUN ON'
VDOUT[993]=1
NCK2 IF[[VDIN[1126]AND 128]EQ 0]NCK3 (COOLANT)
VUACM[1]='COOLANT ON'
VDOUT[993]=2
NCK3 IF[[VDIN[1132]AND 240]EQ 80]NCK4 (SPINDLE OVERRIDE)
VUACM[1]='SPINDLE NOT 100'
VDOUT[993]=3
NCK4 IF[[VDIN[1132]AND 15]LE 10]NCK5 (FEEDRATE OVERRIDE)
VUACM[1]='FEEDRATE GT 100'
VDOUT[993]=4
NCK5 IF[[VDIN[1128]AND 16+32]EQ 0]NCK6 (INDIVIDUAL A OR B)
VUACM[1]='INDIVIDUAL IS ON'
VDOUT[993]=5
NCK6 IF[VRSTT EQ 0]NRTS (IF RESTART)
NCK7 IF[[VDIN[1132]AND 15]EQ 1]NCK8 (FEEDRATE OVERRIDE)
VUACM[1]='FEEDRATE GT 0'
VDOUT[993]=6
NCK8 IF[[VDIN[1128]AND 128]EQ 128]NRTS (SINGLE BLOCK)
VUACM[1]='SINGLE BLOCK OFF'
VDOUT[993]=7
NRTS RTS
%


Best regards,