:00000888: ; M269 - Asse ROLL (CM) Abil./Disab. funzionalit
:00000888: ;*****************************************************************
:00000888:
:00000888: M269: CMP 1,OLD_LOCK ;=1 OLD LOCKING M12 LOGIC ENABLED =2 NEW LOGIC
:00000890: IFEQ JUMP P1.EX
:00000898: CMP 1L,CM11_AUCOL ;COMING FROM M11 AUCOL PROGRAMMED
:000008a2: IFEQ JUMP M269060
:000008aa: CMP 1L,CM10_AUCOL ;COMING FROM M11 AUCOL PROGRAMMED
:000008b4: IFEQ JUMP M269080
:000008bc: READP "AXSLCKM12 CM",M12CM_STAT
:000008c8: CMP 1B,M12CM_STAT ;SONO CON M12 ABILITATO
:000008d0: IFEQ JUMP M269050 ;METTO IN OF
:000008d8:
:000008d8: ;******BLOCCO IN M12
:000008d8: WRITEP 1B,"AXSLCKM12 CM" ;METTO IN ON
:000008e6: M269010: NCM 12
:000008ea: DMSG 1118 ;RTR: M269 - ROLL AXIS LOKING REQUEST
:000008ee: BSET M12PRG_R
:000008f2: MOVE 1L,C12PROG_R ;INVECE DI M12PROG
:000008fc: BSET M12PROG_R
:00000900: MOVE 0L,C11PROG_R ;INVECE DI M11PROG
:0000090a: BCLR M11PROG_R
:0000090e: PAUSE 10
:00000912: JUMP P1.EX
:00000918:
:00000918: ;*****SBLOCCO
:00000918: M269050: WRITEP 0B,"AXSLCKM12 CM" ;METTO IN OF
:00000926: NCM 12
:0000092a: DMSG 1119 ;RTR: M269 - ROLL AXIS UNLOCKING REQUEST
:0000092e: MOVE 0L,C12PROG_R ;INVECE DI M12PROG
:00000938: BCLR M12PROG_R
:0000093c: MOVE 1L,C11PROG_R ;INVECE DI M11PROG
:00000946: BSET M11PROG_R
:0000094a: PAUSE 10 ;JSC
:0000094e: JUMP P1.EX ;JSC