|
VAR_BACK_UP.MPF
(609 Bytes, 下载次数: 0)
;BACK UP PART DATA
;
DEF INT ERROR
DEF STRING[80] _PATH
DEF STRING[80] _CNC_NUM
_PATH="/_N_SPF_DIR/_N_VARBACK_DIR/_N_VARBACK_"<<$A_YEAR<<"_"<<$A_MONTH<<"_"<<$A_DAY<<"_MPF"
_CNC_NUM="MEB - 38"
DELETE(ERROR,_PATH)
G4F0.5
STOPRE
WRITE(ERROR,_PATH,";"<<_CNC_NUM)
FOR R1=10 TO 13
FOR R2=0 TO 49
FOR R3=0 TO 2
WRITE(ERROR,_PATH,"ADDR["<<R1<<","<<R2<<","<<R3<<"]="<<ADDR[R1,R2,R3])
ENDFOR
ENDFOR
ENDFOR
WRITE(ERROR,_PATH,"M17")
M30
|
|