Page 37 - 4352

' Головний розділ містить опис дій постпроцесора з
' формування керуючої програми для кожної аналізованої
' команди вихідної програми.
' Якщо режим обертання шпинделя змінився, тобто значення
' параметрів s або sm# відрізняється від значення
' аналогічних параметрів попередньої команди s_ або sm_#
if (s<>s_) 0R (sm#<>sm_#) then
write id1# using "N%d", n# ' Вивід номера поточного кадру
n#=n#+NSTEP# ' Збільшуємо лічильник кадрів
' Вивід функції напрямку обертання шпинделя залежно від
' значення параметра sm# :
if sm#=SPIN_CLW# then

' Вивід обертів шпинделя за адресою S і функції M3 :
write idl# using "S%.15g3", s
elseif sm#=SPIN_CCLW# then

' Вивід обертів шпинделя за адресою S і функції M4 :
write id1# using "S%.15g4", s
elseif sm#=SPIN_OFF# then

' Вивід функції M5 :
write id1# using "M5"
endif
write id1# using "%s", NL$ ' Завершення кадру - символ LF
endif

' Якщо режим охолодження змінився, тобто значення параметра
' cool# відрізняється від значення аналогічного параметра
' попередньої команди cool :
if cool#<>cool_# then
write id1# using "N%d",n# ' Вивід номера поточного кадру
n#=n#+NSTEP# ' Збільшуємо лічильник кадрів

' Вивід функції охолодження залежно від значення параметра
' cool# :
if cool#=ON# then
write id1# using "M8"
elseif cool#=OFF# then
write id1# using "M9"
endif
write id1# using "%s", NL$ ' Завершення кадру - символ LF
endif

' Залежно від виду аналізованої команди - тобто значення
' параметра command#
' описуємо дії постпроцесора з формування керуючої програми:
' Вивід інформації на початку програми:
if command#=HEADER# then

36