Page 38 - 4352

' Вивід заголовка програми :
write id1# using "PROGRAMME %.2d %-18s RWED 4%s",
partno#,"CC100M", NL$
' Вивід інформації наприкінці програми.
elseif command#=END# then

' Вивід кадру, що містить номер кадру n# за адресою N,
' функцію M30,
' обмежник кадру LF:
write id1# using "N%d30%s", n# , NL$
n#=n#+NSTEP#
elseif command#=PROGRAM# then
' Вивід інформації, пов'язаної з початком головної програми
' Установка початкового значення лічильника кадрів :
n#=NSTART#
' Вивід кадру, що містить номер кадру n# no адресі N,
' функції G90 й G17, обмежник кадру LF :

write id1# using "N%d90G17%s", n# , NL$
n#=n#+NSTEP#
' Вивід інформації, пов'язаної з початком підпрограми.
elseif command#=PROCEDURE# then
' Вивід кадру, що містить номер кадру n# за адресою N, номер
' підпрограми за адресою _ , обмежник кадру LF :
write id1# using "N%d$%d%s", n#, proc_no# , NL$
n#=n#+NSTEP#
' Вивід інформації, зв'язаної з поверненням з підпрограми.
elseif command#=RETURN# then

' Вивід кадру, що містить номер кадру n# за адресою N,
' функцію G99, обмежник кадру LF :
write id1# using "N%d99%s", n#, NL$
n#=n#+NSTEP#
' Вивід інформації, пов'язаної з викликом підпрограми
elseif command#=CALL# then

' Вивід кадру, що містить номер кадру n# за адресою N,
' функцію G22, номер підпрограми, що викликається за
' адресою P, обмежник кадру LF :
write id1# using "N%d22P%d%s", n#, unit_call# , NL$
n#=n#+NSTEP#
' Вивід інформації, зв'язаної зі зміною інструмента,
elseif command#=LOAD_TOOL# then

' Вивід кадру, що містить номер кадру n# за адресою N,
' двозначний номер інструмента за адресою T, функцію із М6,
' обмежник кадру LF :
write id1# using "N%d%.2d%.2d6%s” n#, pass_cutter_no#,
pass_cutter_no# , NL$

37