LINUX.ORG.RU
решено ФорумTalks

[СПВ] На синтаксис какого языка это похоже?

 


0

1
IF (MC_BASE[56] == 0) OR (MC_BASE[56] > (MC_BASE[0] + 1)) OR (MC_BASE[56] < (MC_BASE[0] - 1))

MC_BASE[56] = MC_BASE[0]

ENDIF

IF (B_SOLL > 90) OR (B_SOLL < -115)

SETAL(66116)

STOPRE

ENDIF

IF (S_Drei_WINKEL <> 0) AND (S_Drei_WINKEL <> 180)

SETAL(66116)

STOPRE

ENDIF

IF (Schneide < 0) OR (Schneide > 4)

SETAL(66116)

STOPRE

ENDIF
DIAMOF

M2=150 M4=150 M32 M1=98

M439 M450 M7=161

$TC_CARR1[0] = 0

$P_PFRAME = CROT()

$P_UBFR[X1,TR] = 0

$P_BFRAME=$P_UBFR

REPEAT

FROM_PLC("DB12.DBX45.3", Sonderbetrieb)

IF Sonderbetrieb <> 0

SETAL(67004)

M00

STOPRE

ENDIF

Сабж, не могу понять что за язык

★★

Последнее исправление: coldy (всего исправлений: 1)

Нет, это не Алгол. Это Модула! Или Модула-2.

LongLiveUbuntu ★★★★★
()

В голову сначала пришел ассемблер. Потом подумал, и понял, что скорее бейсик. Потом подумал про фортран.

Zhbert ★★★★★
()
Ответ на: комментарий от Bad_ptr

Не уверен. У Фортрана в сравнениях вместо '<' и '>' используется .LT. и .GT. соответственно. (FORTRAN 77)

LongLiveUbuntu ★★★★★
()
Ответ на: комментарий от LongLiveUbuntu

Фиг знает. Они там все на одно лицо, ибо видно что старьё, потому как Всё заглавными буквами :))))

Bad_ptr ★★★★★
()
Ответ на: комментарий от Bad_ptr

Макросы есть, есть G-коды, но как это работает не пойму

coldy ★★
() автор топика

Вне всяких сомнений, это DSL на базе Common Lisp.

CARS ★★★★
()

Не Бейсик (ни какой из диалектов) и не Фортран (из популярных диалектов).

KRoN73 ★★★★★
()
Ответ на: комментарий от jtootf

Спасибо, мануал вроде неплох, теперь осталось только разгрести 1000 с небольшим строк

coldy ★★
() автор топика
Ответ на: комментарий от jtootf

почему-то я подозреваю, что на ответ не обратят внимания.

qnikst ★★★★★
()
Ответ на: комментарий от anonymous_sapiens

как это могло произойти?

Слышу, стучится кто-то. Ну я открыл, а там ассемблер. Чудеса.

Zhbert ★★★★★
()
Ответ на: комментарий от Zhbert

В голову сначала пришел ассемблер.

IF, ENDIF, выражения под «ифом»

Любопытные у тебя представления об ассемблере...

segfault ★★★★★
()
Ответ на: комментарий от Zhbert

В голову сначала пришел ассемблер.

Асм? Омг

Deleted
()

Это живой пример зоопарка языков для ЧПУ.

shahid ★★★★★
()

Ну в общем-то сильнее всего похоже именно на басик.

PolarFox ★★★★★
()
Ответ на: комментарий от segfault

Это тот ассемблер, который тип бейсика, но ассемблер?

хэх!.. Лет ХХ тому назад на хз каком TASM-е мы лепили то-же самое: if-ы, call-ы, for-ы и прочие циклы (с поддержкой вложенности!). Код сокращался кардинально. Почему было не взять си? Ну курсач был по ассемблеру :)

yyk ★★★★★
()
Ответ на: комментарий от yyk

Ну курсач был по ассемблеру :)

Вот тут собака-то и зарыта. Там, где _действительно_ нужен ассемблер, if-ы и for-ы не нужны.

segfault ★★★★★
()
Ответ на: комментарий от segfault

Там, где _действительно_ нужен ассемблер, if-ы и for-ы не нужны.

ну кто-то чуть ли не целые ОС-ы пишет на ассемблере, кто-то демосцены...
«Есть многое на свете, друг Горацио
Что и не снилось нашим мудрецам.»

yyk ★★★★★
()
Ответ на: комментарий от yyk

ну кто-то чуть ли не целые ОС-ы пишет на ассемблере

А кто-то ядро линукс переписывает на дотнете, но зачем?

segfault ★★★★★
()
Ответ на: комментарий от segfault

Нужно-не нужно — совсем другой вопрос. Я про то, что языки ассемблера, которые имеют подобные конструкции, существуют

theNamelessOne ★★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.