From 7de0c0e61ccf282ab49c0021f22f62339aa0b738 Mon Sep 17 00:00:00 2001 From: maxcodehack Date: Wed, 14 Oct 2020 06:04:55 +0000 Subject: [PATCH] fix autobuild git-svn-id: svn://kolibrios.org@8099 a494cfbc-eb01-0410-851d-a64ba20cac60 --- .../develop/oberon07/{doc => Docs}/KOSLib.txt | 0 .../Oberon07.Report_2016_05_03.pdf | Bin .../develop/oberon07/{doc => Docs}/WinLib.txt | 0 .../develop/oberon07/{doc => Docs}/x86.txt | 67 +-- .../develop/oberon07/{doc => Docs}/x86_64.txt | 71 +-- programs/develop/oberon07/doc/CC.txt | 36 -- programs/develop/oberon07/doc/MSP430.txt | 520 ------------------ programs/develop/oberon07/doc/STM32.txt | 404 -------------- 8 files changed, 30 insertions(+), 1068 deletions(-) rename programs/develop/oberon07/{doc => Docs}/KOSLib.txt (100%) rename programs/develop/oberon07/{doc => Docs}/Oberon07.Report_2016_05_03.pdf (100%) rename programs/develop/oberon07/{doc => Docs}/WinLib.txt (100%) rename programs/develop/oberon07/{doc => Docs}/x86.txt (86%) rename programs/develop/oberon07/{doc => Docs}/x86_64.txt (86%) delete mode 100644 programs/develop/oberon07/doc/CC.txt delete mode 100644 programs/develop/oberon07/doc/MSP430.txt delete mode 100644 programs/develop/oberon07/doc/STM32.txt diff --git a/programs/develop/oberon07/doc/KOSLib.txt b/programs/develop/oberon07/Docs/KOSLib.txt similarity index 100% rename from programs/develop/oberon07/doc/KOSLib.txt rename to programs/develop/oberon07/Docs/KOSLib.txt diff --git a/programs/develop/oberon07/doc/Oberon07.Report_2016_05_03.pdf b/programs/develop/oberon07/Docs/Oberon07.Report_2016_05_03.pdf similarity index 100% rename from programs/develop/oberon07/doc/Oberon07.Report_2016_05_03.pdf rename to programs/develop/oberon07/Docs/Oberon07.Report_2016_05_03.pdf diff --git a/programs/develop/oberon07/doc/WinLib.txt b/programs/develop/oberon07/Docs/WinLib.txt similarity index 100% rename from programs/develop/oberon07/doc/WinLib.txt rename to programs/develop/oberon07/Docs/WinLib.txt diff --git a/programs/develop/oberon07/doc/x86.txt b/programs/develop/oberon07/Docs/x86.txt similarity index 86% rename from programs/develop/oberon07/doc/x86.txt rename to programs/develop/oberon07/Docs/x86.txt index fe68fdf106..e26976fda6 100644 --- a/programs/develop/oberon07/doc/x86.txt +++ b/programs/develop/oberon07/Docs/x86.txt @@ -25,9 +25,6 @@ UTF-8 с BOM-сигнатурой. -stk размер стэка в мегабайтах (по умолчанию 2 Мб, допустимо от 1 до 32 Мб) -nochk <"ptibcwra"> отключить проверки при выполнении (см. ниже) - -lower разрешить ключевые слова и встроенные идентификаторы в - нижнем регистре - -def <имя> задать символ условной компиляции -ver версия программы (только для kosdll) параметр -nochk задается в виде строки из символов: @@ -74,7 +71,6 @@ UTF-8 с BOM-сигнатурой. 9. Добавлен синтаксис для импорта процедур из внешних библиотек 10. "Строки" можно заключать также в одиночные кавычки: 'строка' 11. Добавлен тип WCHAR -12. Добавлена операция конкатенации строковых и символьных констант ------------------------------------------------------------------------------ Особенности реализации @@ -141,45 +137,25 @@ UTF-8 с BOM-сигнатурой. PROCEDURE INF(): REAL возвращает специальное вещественное значение "бесконечность" - PROCEDURE MOVE(Source, Dest, n: INTEGER) - Копирует n байт памяти из Source в Dest, - области Source и Dest не могут перекрываться - PROCEDURE GET(a: INTEGER; VAR v: любой основной тип, PROCEDURE, POINTER) v := Память[a] - PROCEDURE GET8(a: INTEGER; - VAR x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32) - Эквивалентно - SYSTEM.MOVE(a, SYSTEM.ADR(x), 1) - - PROCEDURE GET16(a: INTEGER; - VAR x: INTEGER, SET, WCHAR, SYSTEM.CARD32) - Эквивалентно - SYSTEM.MOVE(a, SYSTEM.ADR(x), 2) - - PROCEDURE GET32(a: INTEGER; VAR x: INTEGER, SET, SYSTEM.CARD32) - Эквивалентно - SYSTEM.MOVE(a, SYSTEM.ADR(x), 4) - PROCEDURE PUT(a: INTEGER; x: любой основной тип, PROCEDURE, POINTER) Память[a] := x; Если x: BYTE или x: WCHAR, то значение x будет расширено до 32 бит, для записи байтов использовать SYSTEM.PUT8, для WCHAR -- SYSTEM.PUT16 - PROCEDURE PUT8(a: INTEGER; - x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32) + PROCEDURE PUT8(a: INTEGER; x: INTEGER, SET, BYTE, CHAR, WCHAR) Память[a] := младшие 8 бит (x) - PROCEDURE PUT16(a: INTEGER; - x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32) + PROCEDURE PUT16(a: INTEGER; x: INTEGER, SET, BYTE, CHAR, WCHAR) Память[a] := младшие 16 бит (x) - PROCEDURE PUT32(a: INTEGER; - x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32) - Память[a] := младшие 32 бит (x) + PROCEDURE MOVE(Source, Dest, n: INTEGER) + Копирует n байт памяти из Source в Dest, + области Source и Dest не могут перекрываться PROCEDURE COPY(VAR Source: любой тип; VAR Dest: любой тип; n: INTEGER) Копирует n байт памяти из Source в Dest. @@ -192,8 +168,6 @@ UTF-8 с BOM-сигнатурой. например: SYSTEM.CODE(08BH, 045H, 008H) (* mov eax, dword [ebp + 08h] *) - Также, в модуле SYSTEM определен тип CARD32 (4 байта). Для типа CARD32 не -допускаются никакие явные операции, за исключением присваивания. Функции псевдомодуля SYSTEM нельзя использовать в константных выражениях. @@ -202,7 +176,7 @@ UTF-8 с BOM-сигнатурой. При объявлении процедурных типов и глобальных процедур, после ключевого слова PROCEDURE может быть указан флаг соглашения о вызове: [stdcall], -[ccall], [ccall16], [windows], [linux], [oberon]. Например: +[ccall], [ccall16], [windows], [linux]. Например: PROCEDURE [ccall] MyProc (x, y, z: INTEGER): INTEGER; @@ -211,8 +185,6 @@ UTF-8 с BOM-сигнатурой. Флаг [windows] - синоним для [stdcall], [linux] - синоним для [ccall16]. Знак "-" после имени флага ([stdcall-], [linux-], ...) означает, что результат процедуры можно игнорировать (не допускается для типа REAL). - Если флаг не указан или указан флаг [oberon], то принимается внутреннее -соглашение о вызове. При объявлении типов-записей, после ключевого слова RECORD может быть указан флаг [noalign]. Флаг [noalign] означает отсутствие выравнивания полей @@ -256,15 +228,6 @@ ARRAY OF CHAR, за исключением встроенной процедур процедуру WCHR вместо CHR. Для правильной работы с типом, необходимо сохранять исходный код в кодировке UTF-8 c BOM. ------------------------------------------------------------------------------- - Конкатенация строковых и символьных констант - - Допускается конкатенация ("+") константных строк и символов типа CHAR: - - str = CHR(39) + "string" + CHR(39); (* str = "'string'" *) - - newline = 0DX + 0AX; - ------------------------------------------------------------------------------ Проверка и охрана типа нулевого указателя @@ -314,16 +277,15 @@ Oberon-реализациях выполнение такой операции Синтаксис импорта: - PROCEDURE [callconv, library, function] proc_name (FormalParam): Type; + PROCEDURE [callconv, "library", "function"] proc_name (FormalParam): Type; - callconv -- соглашение о вызове - - library -- имя файла динамической библиотеки (строковая константа) - - function -- имя импортируемой процедуры (строковая константа), если - указана пустая строка, то имя процедуры = proc_name + - "library" -- имя файла динамической библиотеки + - "function" -- имя импортируемой процедуры например: - PROCEDURE [windows, "kernel32.dll", ""] ExitProcess (code: INTEGER); + PROCEDURE [windows, "kernel32.dll", "ExitProcess"] exit (code: INTEGER); PROCEDURE [stdcall, "Console.obj", "con_exit"] exit (bCloseWindow: BOOLEAN); @@ -365,8 +327,6 @@ Oberon-реализациях выполнение такой операции Вызов транслируется так: Proc(SYSTEM.TYPEID(Rec), SYSTEM.ADR(x)) - Скрытые параметры необходимо учитывать при связи с внешними приложениями. - ------------------------------------------------------------------------------ Модуль RTL @@ -389,11 +349,8 @@ Oberon-реализациях выполнение такой операции Разрешается экспортировать только процедуры. Для этого, процедура должна находиться в главном модуле программы, и ее имя должно быть отмечено символом -экспорта ("*"). Нельзя экспортировать процедуры, которые импортированы из -других dll-библиотек. - - KolibriOS DLL всегда экспортируют идентификаторы "version" (версия -программы) и "lib_init" - адрес процедуры инициализации DLL: +экспорта ("*"). KolibriOS DLL всегда экспортируют идентификаторы "version" +(версия программы) и "lib_init" - адрес процедуры инициализации DLL: PROCEDURE [stdcall] lib_init (): INTEGER diff --git a/programs/develop/oberon07/doc/x86_64.txt b/programs/develop/oberon07/Docs/x86_64.txt similarity index 86% rename from programs/develop/oberon07/doc/x86_64.txt rename to programs/develop/oberon07/Docs/x86_64.txt index 4e3a4e7d8d..9655412ac4 100644 --- a/programs/develop/oberon07/doc/x86_64.txt +++ b/programs/develop/oberon07/Docs/x86_64.txt @@ -23,9 +23,6 @@ UTF-8 с BOM-сигнатурой. -stk размер стэка в мегабайтах (по умолчанию 2 Мб, допустимо от 1 до 32 Мб) -nochk <"ptibcwra"> отключить проверки при выполнении - -lower разрешить ключевые слова и встроенные идентификаторы в - нижнем регистре - -def <имя> задать символ условной компиляции параметр -nochk задается в виде строки из символов: "p" - указатели @@ -66,7 +63,6 @@ UTF-8 с BOM-сигнатурой. 9. Добавлен синтаксис для импорта процедур из внешних библиотек 10. "Строки" можно заключать также в одиночные кавычки: 'строка' 11. Добавлен тип WCHAR -12. Добавлена операция конкатенации строковых и символьных констант ------------------------------------------------------------------------------ Особенности реализации @@ -133,46 +129,29 @@ UTF-8 с BOM-сигнатурой. PROCEDURE INF(): REAL возвращает специальное вещественное значение "бесконечность" - PROCEDURE MOVE(Source, Dest, n: INTEGER) - Копирует n байт памяти из Source в Dest, - области Source и Dest не могут перекрываться - PROCEDURE GET(a: INTEGER; VAR v: любой основной тип, PROCEDURE, POINTER) v := Память[a] - PROCEDURE GET8(a: INTEGER; - VAR x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32) - Эквивалентно - SYSTEM.MOVE(a, SYSTEM.ADR(x), 1) - - PROCEDURE GET16(a: INTEGER; - VAR x: INTEGER, SET, WCHAR, SYSTEM.CARD32) - Эквивалентно - SYSTEM.MOVE(a, SYSTEM.ADR(x), 2) - - PROCEDURE GET32(a: INTEGER; VAR x: INTEGER, SET, SYSTEM.CARD32) - Эквивалентно - SYSTEM.MOVE(a, SYSTEM.ADR(x), 4) - PROCEDURE PUT(a: INTEGER; x: любой основной тип, PROCEDURE, POINTER) Память[a] := x; Если x: BYTE или x: WCHAR, то значение x будет расширено до 64 бит, для записи байтов использовать SYSTEM.PUT8, для WCHAR -- SYSTEM.PUT16 - PROCEDURE PUT8(a: INTEGER; - x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32) + PROCEDURE PUT8(a: INTEGER; x: INTEGER, SET, BYTE, CHAR, WCHAR) Память[a] := младшие 8 бит (x) - PROCEDURE PUT16(a: INTEGER; - x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32) + PROCEDURE PUT16(a: INTEGER; x: INTEGER, SET, BYTE, CHAR, WCHAR) Память[a] := младшие 16 бит (x) - PROCEDURE PUT32(a: INTEGER; - x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32) + PROCEDURE PUT32(a: INTEGER; x: INTEGER, SET, BYTE, CHAR, WCHAR) Память[a] := младшие 32 бит (x) + PROCEDURE MOVE(Source, Dest, n: INTEGER) + Копирует n байт памяти из Source в Dest, + области Source и Dest не могут перекрываться + PROCEDURE COPY(VAR Source: любой тип; VAR Dest: любой тип; n: INTEGER) Копирует n байт памяти из Source в Dest. Эквивалентно @@ -194,8 +173,8 @@ UTF-8 с BOM-сигнатурой. Системные флаги При объявлении процедурных типов и глобальных процедур, после ключевого -слова PROCEDURE может быть указан флаг соглашения о вызове: -[win64], [systemv], [windows], [linux], [oberon]. +слова PROCEDURE может быть указан флаг соглашения о вызове: [win64], [systemv], +[windows], [linux]. Например: PROCEDURE [win64] MyProc (x, y, z: INTEGER): INTEGER; @@ -203,9 +182,9 @@ UTF-8 с BOM-сигнатурой. Флаг [windows] - синоним для [win64], [linux] - синоним для [systemv]. Знак "-" после имени флага ([win64-], [linux-], ...) означает, что результат процедуры можно игнорировать (не допускается для типа REAL). - Если флаг не указан или указан флаг [oberon], то принимается внутреннее -соглашение о вызове. [win64] и [systemv] используются для связи с -операционной системой и внешними приложениями. + Если флаг не указан, то принимается внутреннее соглашение о вызове. +[win64] и [systemv] используются для связи с операционной системой и внешними +приложениями. При объявлении типов-записей, после ключевого слова RECORD может быть указан флаг [noalign]. Флаг [noalign] означает отсутствие выравнивания полей @@ -249,15 +228,6 @@ ARRAY OF CHAR, за исключением встроенной процедур процедуру WCHR вместо CHR. Для правильной работы с типом, необходимо сохранять исходный код в кодировке UTF-8 c BOM. ------------------------------------------------------------------------------- - Конкатенация строковых и символьных констант - - Допускается конкатенация ("+") константных строк и символов типа CHAR: - - str = CHR(39) + "string" + CHR(39); (* str = "'string'" *) - - newline = 0DX + 0AX; - ------------------------------------------------------------------------------ Проверка и охрана типа нулевого указателя @@ -307,18 +277,16 @@ Oberon-реализациях выполнение такой операции Синтаксис импорта: - PROCEDURE [callconv, library, function] proc_name (FormalParam): Type; + PROCEDURE [callconv, "library", "function"] proc_name (FormalParam): Type; - callconv -- соглашение о вызове - - library -- имя файла динамической библиотеки (строковая константа) - - function -- имя импортируемой процедуры (строковая константа), если - указана пустая строка, то имя процедуры = proc_name + - "library" -- имя файла динамической библиотеки + - "function" -- имя импортируемой процедуры например: - PROCEDURE [windows, "kernel32.dll", "ExitProcess"] exit (code: INTEGER); + PROCEDURE [win64, "kernel32.dll", "ExitProcess"] exit (code: INTEGER); - PROCEDURE [windows, "kernel32.dll", ""] GetTickCount (): INTEGER; В конце объявления может быть добавлено (необязательно) "END proc_name;" @@ -333,7 +301,7 @@ Oberon-реализациях выполнение такой операции соглашения о вызове: VAR - ExitProcess: PROCEDURE [windows] (code: INTEGER); + ExitProcess: PROCEDURE [win64] (code: INTEGER); Для Linux, импортированные процедуры не реализованы. @@ -353,8 +321,6 @@ Oberon-реализациях выполнение такой операции Вызов транслируется так: Proc(SYSTEM.TYPEID(Rec), SYSTEM.ADR(x)) - Скрытые параметры необходимо учитывать при связи с внешними приложениями. - ------------------------------------------------------------------------------ Модуль RTL @@ -377,5 +343,4 @@ Oberon-реализациях выполнение такой операции Разрешается экспортировать только процедуры. Для этого, процедура должна находиться в главном модуле программы, ее имя должно быть отмечено символом -экспорта ("*") и должно быть указано соглашение о вызове. Нельзя -экспортировать процедуры, которые импортированы из других dll-библиотек. \ No newline at end of file +экспорта ("*") и должно быть указано соглашение о вызове. \ No newline at end of file diff --git a/programs/develop/oberon07/doc/CC.txt b/programs/develop/oberon07/doc/CC.txt deleted file mode 100644 index e54f67a65b..0000000000 --- a/programs/develop/oberon07/doc/CC.txt +++ /dev/null @@ -1,36 +0,0 @@ -Условная компиляция - -синтаксис: - - $IF "(" ident {"|" ident} ")" - <...> - {$ELSIF "(" ident {"|" ident} ")"} - <...> - [$ELSE] - <...> - $END - - где ident: - - одно из возможных значений параметра в командной строке - - пользовательский идентификатор, переданный с ключом -def при компиляции - -примеры: - - $IF (win64con | win64gui | win64dll) - OS := "WIN64"; - $ELSIF (win32con | win32gui | win32dll) - OS := "WIN32"; - $ELSIF (linux64exe | linux64so) - OS := "LINUX64"; - $ELSIF (linux32exe | linux32so) - OS := "LINUX32"; - $ELSE - OS := "UNKNOWN"; - $END - - - $IF (CPUX86_64) (* -def CPUX86_64 *) - bit_depth := 64; - $ELSE - bit_depth := 32; - $END diff --git a/programs/develop/oberon07/doc/MSP430.txt b/programs/develop/oberon07/doc/MSP430.txt deleted file mode 100644 index 7bc92584c2..0000000000 --- a/programs/develop/oberon07/doc/MSP430.txt +++ /dev/null @@ -1,520 +0,0 @@ - Компилятор языка программирования Oberon-07/16 для - микроконтроллеров MSP430x{1,2}xx. ------------------------------------------------------------------------------- - - Параметры командной строки - - Вход - текстовые файлы модулей с расширением ".ob07", кодировка ANSI или -UTF-8 с BOM-сигнатурой. - Выход - hex-файл прошивки. - Параметры: - 1) имя главного модуля - 2) "msp430" - 3) необязательные параметры-ключи - -out имя результирующего файла; по умолчанию, - совпадает с именем главного модуля, но с расширением ".hex" - -ram размер ОЗУ в байтах (128 - 2048) по умолчанию 128 - -rom размер ПЗУ в байтах (2048 - 24576) по умолчанию 2048 - -nochk <"ptibcwra"> отключить проверки при выполнении - -lower разрешить ключевые слова и встроенные идентификаторы в - нижнем регистре - -def <имя> задать символ условной компиляции - - параметр -nochk задается в виде строки из символов: - "p" - указатели - "t" - типы - "i" - индексы - "b" - неявное приведение INTEGER к BYTE - "c" - диапазон аргумента функции CHR - "a" - все проверки - - Порядок символов может быть любым. Наличие в строке того или иного - символа отключает соответствующую проверку. - - Например: -nochk it - отключить проверку индексов и охрану типа. - -nochk a - отключить все отключаемые проверки. - - Например: - - Compiler.exe "C:\example.ob07" msp430 -ram 128 -rom 4096 -nochk pti - Compiler.exe "C:\example.ob07" msp430 -out "C:\Ex1.hex" -ram 512 -rom 16384 - - В случае успешной компиляции, компилятор передает код завершения 0, иначе 1. -При работе компилятора в KolibriOS, код завершения не передается. - ------------------------------------------------------------------------------- - Отличия от оригинала - - 1. Расширен псевдомодуль SYSTEM - 2. В идентификаторах допускается символ "_" - 3. Усовершенствован оператор CASE (добавлены константные выражения в - метках вариантов и необязательная ветка ELSE) - 4. Расширен набор стандартных процедур - 5. Семантика охраны/проверки типа уточнена для нулевого указателя - 6. Добавлены однострочные комментарии (начинаются с пары символов "//") - 7. Разрешено наследование от типа-указателя - 8. "Строки" можно заключать также в одиночные кавычки: 'строка' - 9. Добавлена операция конкатенации строковых и символьных констант -10. Добавлены кодовые процедуры -11. Не реализована вещественная арифметика - ------------------------------------------------------------------------------- - Особенности реализации - -1. Основные типы - - Тип Диапазон значений Размер, байт - - INTEGER -32768 .. 32767 2 - CHAR символ ASCII (0X .. 0FFX) 1 - BOOLEAN FALSE, TRUE 1 - SET множество из целых чисел {0 .. 15} 2 - BYTE 0 .. 255 1 - -2. Максимальная длина идентификаторов - 1024 символов -3. Максимальная длина строковых констант - 1024 символов (UTF-8) -4. Максимальная размерность открытых массивов - 5 -5. Процедура NEW заполняет нулями выделенный блок памяти -6. Локальные переменные инициализируются нулями -7. В отличие от многих Oberon-реализаций, сборщик мусора и динамическая - модульность отсутствуют -8. Тип BYTE в выражениях всегда приводится к INTEGER -9. Контроль переполнения значений выражений не производится -10. Ошибки времени выполнения: - -номер ошибка - - 1 ASSERT(x), при x = FALSE - 2 разыменование нулевого указателя - 3 целочисленное деление на неположительное число - 4 вызов процедуры через процедурную переменную с нулевым значением - 5 ошибка охраны типа - 6 нарушение границ массива - 7 непредусмотренное значение выражения в операторе CASE - 8 ошибка копирования массивов v := x, если LEN(v) < LEN(x) - 9 CHR(x), если (x < 0) OR (x > 255) -11 неявное приведение x:INTEGER к v:BYTE, если (x < 0) OR (x > 255) - ------------------------------------------------------------------------------- - Псевдомодуль SYSTEM - - Псевдомодуль SYSTEM содержит низкоуровневые и небезопасные процедуры, -ошибки при использовании процедур псевдомодуля SYSTEM могут привести к -повреждению данных времени выполнения и аварийному завершению программы. - - PROCEDURE ADR(v: любой тип): INTEGER - v - переменная или процедура; - возвращает адрес v - - PROCEDURE SADR(x: строковая константа): INTEGER - возвращает адрес x - - PROCEDURE SIZE(T): INTEGER - возвращает размер типа T - - PROCEDURE TYPEID(T): INTEGER - T - тип-запись или тип-указатель, - возвращает номер типа в таблице типов-записей - - PROCEDURE MOVE(Source, Dest, n: INTEGER) - Копирует n байт памяти из Source в Dest, - области Source и Dest не могут перекрываться - - PROCEDURE GET(a: INTEGER; - VAR v: любой основной тип, PROCEDURE, POINTER) - v := Память[a] - - PROCEDURE GET8(a: INTEGER; VAR x: INTEGER, SET, BYTE, CHAR) - Эквивалентно - SYSTEM.MOVE(a, SYSTEM.ADR(x), 1) - - PROCEDURE PUT(a: INTEGER; x: любой основной тип, PROCEDURE, POINTER) - Память[a] := x; - Если x: BYTE, то значение x будет расширено до 16 бит, - для записи байтов использовать SYSTEM.PUT8 - - PROCEDURE PUT8(a: INTEGER; x: INTEGER, SET, BYTE, CHAR) - Память[a] := младшие 8 бит (x) - - PROCEDURE CODE(word1, word2,... : INTEGER) - Вставка машинного кода, - word1, word2 ... - целочисленные константы (константные - выражения) - машинные слова, например: - SYSTEM.CODE(0D032H, 0010H) (* BIS #16, SR; CPUOFF *) - - - Функции псевдомодуля SYSTEM нельзя использовать в константных выражениях. - ------------------------------------------------------------------------------- - Оператор CASE - - Синтаксис оператора CASE: - - CaseStatement = - CASE Expression OF Сase {"|" Сase} - [ELSE StatementSequence] END. - Case = [CaseLabelList ":" StatementSequence]. - CaseLabelList = CaseLabels {"," CaseLabels}. - CaseLabels = ConstExpression [".." ConstExpression]. - - Например: - - CASE x OF - |-1: DoSomething1 - | 1: DoSomething2 - | 0: DoSomething3 - ELSE - DoSomething4 - END - - В метках вариантов можно использовать константные выражения, ветка ELSE -необязательна. Если значение x не соответствует ни одному варианту и ELSE -отсутствует, то программа прерывается с ошибкой времени выполнения. - ------------------------------------------------------------------------------- - Конкатенация строковых и символьных констант - - Допускается конкатенация ("+") константных строк и символов типа CHAR: - - str = CHR(39) + "string" + CHR(39); (* str = "'string'" *) - - newline = 0DX + 0AX; - ------------------------------------------------------------------------------- - Проверка и охрана типа нулевого указателя - - Оригинальное сообщение о языке не определяет поведение программы при -выполнении охраны p(T) и проверки типа p IS T при p = NIL. Во многих -Oberon-реализациях выполнение такой операции приводит к ошибке времени -выполнения. В данной реализации охрана типа нулевого указателя не приводит к -ошибке, а проверка типа дает результат FALSE. В ряде случаев это позволяет -значительно сократить частоту применения охраны типа. - ------------------------------------------------------------------------------- - Дополнительные стандартные процедуры - - - COPY (x: ARRAY OF CHAR; VAR v: ARRAY OF CHAR); - v := x; - Если LEN(v) < LEN(x), то строка x будет скопирована - не полностью. - - LSR (x, n: INTEGER): INTEGER - Логический сдвиг x на n бит вправо. - - MIN (a, b: INTEGER): INTEGER - Минимум из двух значений. - - MAX (a, b: INTEGER): INTEGER - Максимум из двух значений. - - BITS (x: INTEGER): SET - Интерпретирует x как значение типа SET. - Выполняется на этапе компиляции. - - LENGTH (s: ARRAY OF CHAR): INTEGER - Длина 0X-завершенной строки s, без учета символа 0X. - Если символ 0X отсутствует, функция возвращает длину - массива s. s не может быть константой. - ------------------------------------------------------------------------------- - Использование регистров общего назначения R4 - R15 - - R4 - R7: регистровый стэк (промежуточные значения выражений) - R8 - R13: не используются - R14: указатель кучи - R15: используется при обработке прерываний - ------------------------------------------------------------------------------- - Вызов процедур и кадр стэка - - Правила вызова похожи на соглашение cdecl (x86): - - параметры передаются через стэк справа налево - - результат, если есть, передается через регистр R4 - - вызывающая процедура очищает стэк - - Состояние стэка при выполнении процедуры: - - меньшие адреса <- |var3|var2|var1|PC|arg1|arg2|arg3| -> бОльшие адреса - - PC - значение регистра PC перед вызовом (адрес возврата) - argX - параметры в порядке объявления (слева направо) - varX - локальные переменные в порядке использования в процедуре - - Размер каждого элемента в стэке (кроме локальных переменных структурных - типов) - 1 машинное слово (2 байта). Структурные переменные (массивы и - записи) занимают место в стэке в соответствии с их размером (с учетом - выравнивания). - - Размещение локальных переменных зависит от их размеров и порядка - использования, и в общем случае неопределенно. Если переменная не - используется явно, то компилятор не выделяет для нее место в стэке. - ------------------------------------------------------------------------------- - Скрытые параметры процедур - - Некоторые процедуры могут иметь скрытые параметры, они отсутствуют в списке -формальных параметров, но учитываются компилятором при трансляции вызовов. -Это возможно в следующих случаях: - -1. Процедура имеет формальный параметр открытый массив: - PROCEDURE Proc (x: ARRAY OF ARRAY OF REAL); - Вызов транслируется так: - Proc(LEN(x), LEN(x[0]), SYSTEM.ADR(x)) -2. Процедура имеет формальный параметр-переменную типа RECORD: - PROCEDURE Proc (VAR x: Rec); - Вызов транслируется так: - Proc(SYSTEM.TYPEID(Rec), SYSTEM.ADR(x)) - ------------------------------------------------------------------------------- - Кодовые процедуры - - Компилятор поддерживает процедуры, написаные в машинных кодах. - Синтаксис: - - PROCEDURE "[code]" имя [ (параметры): ТипРезультата ] - МашСлово, МашСлово,... МашСлово; - - ";" после заголовка и END "имя" в конце процедуры не ставятся. - МашСлово - целочисленная константа (в том числе и константное выражение). - Например: - - PROCEDURE [code] asr (n, x: INTEGER): INTEGER (* ASR(x, n) -> R4 *) - 4115H, 2, (* MOV 2(SP), R5; R5 <- n *) - 4114H, 4, (* MOV 4(SP), R4; R4 <- x *) - 0F035H, 15, (* AND #15, R5 *) - 2400H + 3, (* JZ L1 *) - (* L2: *) - 1104H, (* RRA R4 *) - 8315H, (* SUB #1, R5 *) - 2000H + 400H - 3; (* JNZ L2 *) - (* L1: *) - - Компилятор автоматически добавляет к такой процедуре команду RET. - Способ передачи параметров и результата не изменяется. - - Кодовые процедуры можно использовать также и для добавления в программу -константных данных: - - PROCEDURE [code] sqr - 0, 1, 4, 9, 16, 25, 36, 49, 64, 81; - - Получить адрес такой "процедуры": SYSTEM.ADR(sqr). - Получить адрес n-го машинного слова: SYSTEM.ADR(sqr) + n * 2. - - Чтобы использовать кодовые процедуры, необходимо импортировать псевдомодуль -SYSTEM. - ------------------------------------------------------------------------------- - Обработка прерываний - - При появлении запроса на прерывание, процессор: - - помещает в стэк значение регистра PC - - помещает в стэк значение регистра SR - - очищает регистр SR - - выполняет переход по адресу IV[priority], где - IV - таблица векторов прерываний, - priority - приоритет прерывания (номер элемента в таблице IV) (0..30) - - Компилятор генерирует код обработки прерываний: - - ; IV[0] = адрес следующей команды - PUSH #0 ; поместить в стэк приоритет прерывания - JMP Label ; перейти к обработчику - - ; IV[1] = адрес следующей команды - PUSH #1 ; поместить в стэк приоритет прерывания - JMP Label ; перейти к обработчику - - ... - ; IV[priority] = адрес следующей команды - PUSH #priority ; поместить в стэк приоритет прерывания - JMP Label ; перейти к обработчику - - ... - ; IV[30] = адрес следующей команды - PUSH #30 ; поместить в стэк приоритет прерывания - - Label: - MOV SP, R15 ; настроить R15 на структуру данных прерывания (см. далее) - PUSH R4 ; сохранить рабочие регистры (R4 - R7) - ... - PUSH R7 - PUSH R15 ; передать параметр interrupt в обработчик (см. далее) - PUSH @R15 ; передать параметр priority в обработчик (см. далее) - CALL int ; вызвать обработчик (см. далее) - ADD #4, SP ; удалить из стэка параметры обработчика - POP R7 ; восстановить рабочие регистры (R7 - R4) - ... - POP R4 - ADD #2, SP ; удалить из стэка значение priority - RETI ; возврат из прерывания (восстановить SR и PC) - ------------------------------------------------------------------------------- - Обработка ошибок - - В случае возникновения ошибки при выполнении программы, будет вызван общий -обработчик ошибок, который: - - - запрещает прерывания - - сбрасывает стэк (во избежание переполнения в процессе обработки ошибки) - - передает параметры в пользовательский обработчик (см. далее) - - вызывает пользовательский обработчик (если он назначен) - - повторно запрещает прерывания - - выключает CPU и все тактовые сигналы - - Если выключать CPU не требуется, то пользовательский обработчик может, -например, перезапустить программу. - ------------------------------------------------------------------------------- - Инициализация и финализация программы - - В начало программы компилятор вставляет код, который: - - инициализирует регистры SP и R14 - - выключает сторожевой таймер - - назначает пустой обработчик прерываний - - сбрасывает обработчик ошибок - - В конец программы добавляет команду - BIS #16, SR; выключить CPU - ------------------------------------------------------------------------------- - Структура ОЗУ (RAM) - - начало -> | спец. переменные | глобальные переменные | куча/стэк | <- конец - - Компилятор поддерживает размер ОЗУ 128..2048 байт. В нижних адресах -располагаются специальные переменные, и далее пользовательские глобальные -переменные. Оставшаяся часть памяти отводится для кучи и стэка (не менее 64 -байта). При старте программы, в регистр R14 записывается адрес начала области -кучи/стэка, а регистр SP настраивается на конец ОЗУ (начало_ОЗУ + размер_ОЗУ). -При выделении памяти процедурой NEW, значение регистра R14 увеличивается (если -есть свободная память). Таким образом, стэк и куча растут навстречу друг -другу. Проверка переполнения стэка не производится. - ------------------------------------------------------------------------------- - Структура ПЗУ (RОM) - - начало -> |код|свободная область|спец. данные|векторы прерываний| <- конец - - Компилятор поддерживает размер ПЗУ 2048..24576 байт. В верхних адресах -располагается таблица векторов прерываний (64 байта), адреса 0FFC0H..0FFFFH. -Непосредственно перед ней размещаются специальные данные. Программный -код начинается с адреса (10000H - размер_ПЗУ), этот адрес является также и -точкой входа в программу. Между кодом и спец. данными может оставаться -свободное пространство. Если размер ПЗУ больше, чем указан при компиляции, -то перед кодом будет свободная область. Таким способом можно зарезервировать -нижние сегменты флэш-памяти для записи во время выполнения программы. - -============================================================================== -MODULE MSP430 - -CONST - - биты регистра SR: - - GIE = {3} - CPUOFF = {4} - OSCOFF = {5} - SCG0 = {6} - SCG1 = {7} - - -TYPE - - TInterrupt = RECORD priority: INTEGER; sr: SET; pc: INTEGER END - структура данных прерывания - - priority - приоритет прерывания: - - адрес приоритет - 0FFFEH 31 - 0FFFCH 30 - 0FFFAH 29 - ... - 0FFC0H 0 - - sr - сохраненное значение регистра SR - pc - сохраненное значение регистра PC - - - TTrapProc = PROCEDURE (modNum, modName, err, line: INTEGER); - Процедура-обработчик ошибок. - - modNum - номер модуля (в отчете о компиляции: - compiling (modNum) "modName" ) - modName - адрес имени модуля - err - номер ошибки - line - номер строки - - - TIntProc = PROCEDURE (priority: INTEGER; interrupt: TInterrupt) - Процедура-обработчик прерываний. - - priority - приоритет прерывания - interrupt - структура данных прерывания - - - PROCEDURE SetTrapProc (TrapProc: TTrapProc) - Назначить обработчик ошибок. - - - PROCEDURE SetIntProc (IntProc: TIntProc) - Назначить обработчик прерываний. - - Нельзя вызывать эту процедуру с параметром NIL, т. к. для экономии - тактов, значение адреса обработчика прерываний не проверяется на NIL. - - - PROCEDURE Restart - Перезапустить программу. - При этом: очищается регистр SR, повторно выполняется код инициализации - программы (см. выше). Всё прочее состояние ОЗУ и регистров устройств - сохраняется. - - - PROCEDURE SetIntPC (interrupt: TInterrupt; NewPC: INTEGER) - interrupt.pc := NewPC - После возврата из прерывания, регистр PC получит значение NewPC. - - - PROCEDURE SetIntSR (interrupt: TInterrupt; NewSR: SET) - interrupt.sr := NewSR - После возврата из прерывания, регистр SR получит значение NewSR. - - - PROCEDURE DInt - Запретить прерывания. - - - PROCEDURE EInt - Разрешить прерывания. - - - PROCEDURE CpuOff - Выключить CPU (установить бит CPUOFF регистра SR). - - - PROCEDURE Halt - Запретить прерывания, выключить CPU и все тактовые сигналы. - - - PROCEDURE SetSR (bits: SET) - Установить биты bits регистра SR. - - - PROCEDURE ClrSR (bits: SET) - Сбросить биты bits регистра SR. - - - PROCEDURE GetFreeFlash (VAR address, size: INTEGER) - Получить адрес и размер свободной области Flash/ROM - (между кодом и данными). - - - PROCEDURE Delay (n: INTEGER) - Задержка выполнения программы на 1000*n тактов, - но не менее чем на 2000 тактов. - - -============================================================================== \ No newline at end of file diff --git a/programs/develop/oberon07/doc/STM32.txt b/programs/develop/oberon07/doc/STM32.txt deleted file mode 100644 index 8b3e9a3aa3..0000000000 --- a/programs/develop/oberon07/doc/STM32.txt +++ /dev/null @@ -1,404 +0,0 @@ - Компилятор языка программирования Oberon-07/16 для - микроконтроллеров STM32 Cortex-M3. - ------------------------------------------------------------------------------- - Параметры командной строки - - Вход - текстовые файлы модулей с расширением ".ob07", кодировка ANSI или -UTF-8 с BOM-сигнатурой. - Выход - hex-файл прошивки. - Параметры: - 1) имя главного модуля - 2) "stm32cm3" - 3) необязательные параметры-ключи - -out имя результирующего файла; по умолчанию, - совпадает с именем главного модуля, но с расширением ".hex" - -ram размер ОЗУ в килобайтах (4 - 65536) по умолчанию 4 - -rom размер ПЗУ в килобайтах (16 - 65536) по умолчанию 16 - -nochk <"ptibcwra"> отключить проверки при выполнении - -lower разрешить ключевые слова и встроенные идентификаторы в - нижнем регистре - -def <имя> задать символ условной компиляции - - параметр -nochk задается в виде строки из символов: - "p" - указатели - "t" - типы - "i" - индексы - "b" - неявное приведение INTEGER к BYTE - "c" - диапазон аргумента функции CHR - "w" - диапазон аргумента функции WCHR - "r" - эквивалентно "bcw" - "a" - все проверки - - Порядок символов может быть любым. Наличие в строке того или иного - символа отключает соответствующую проверку. - - Например: -nochk it - отключить проверку индексов и охрану типа. - -nochk a - отключить все отключаемые проверки. - - Например: - - Compiler.exe "C:\example.ob07" stm32cm3 -ram 32 -rom 256 -nochk pti - Compiler.exe "C:\example.ob07" stm32cm3 -out "C:\Ex1.hex" -ram 8 -rom 32 - - В случае успешной компиляции, компилятор передает код завершения 0, иначе 1. -При работе компилятора в KolibriOS, код завершения не передается. - ------------------------------------------------------------------------------- - Отличия от оригинала - - 1. Расширен псевдомодуль SYSTEM - 2. В идентификаторах допускается символ "_" - 3. Усовершенствован оператор CASE (добавлены константные выражения в - метках вариантов и необязательная ветка ELSE) - 4. Расширен набор стандартных процедур - 5. Семантика охраны/проверки типа уточнена для нулевого указателя - 6. Добавлены однострочные комментарии (начинаются с пары символов "//") - 7. Разрешено наследование от типа-указателя - 8. "Строки" можно заключать также в одиночные кавычки: 'строка' - 9. Добавлен тип WCHAR -10. Добавлена операция конкатенации строковых и символьных констант -11. Добавлены кодовые процедуры - ------------------------------------------------------------------------------- - Особенности реализации - -1. Основные типы - - Тип Диапазон значений Размер, байт - - INTEGER -2147483648 .. 2147483647 4 - REAL 1.17E-38 .. 3.40E+38 4 - CHAR символ ASCII (0X .. 0FFX) 1 - BOOLEAN FALSE, TRUE 1 - SET множество из целых чисел {0 .. 31} 4 - BYTE 0 .. 255 1 - WCHAR символ юникода (0X .. 0FFFFX) 2 - -2. Максимальная длина идентификаторов - 1024 символов -3. Максимальная длина строковых констант - 1024 символов (UTF-8) -4. Максимальная размерность открытых массивов - 5 -5. Процедура NEW заполняет нулями выделенный блок памяти -6. Локальные переменные инициализируются нулями -7. В отличие от многих Oberon-реализаций, сборщик мусора и динамическая - модульность отсутствуют -8. Тип BYTE в выражениях всегда приводится к INTEGER -9. Контроль переполнения значений выражений не производится - ------------------------------------------------------------------------------- - Псевдомодуль SYSTEM - - Псевдомодуль SYSTEM содержит низкоуровневые и небезопасные процедуры, -ошибки при использовании процедур псевдомодуля SYSTEM могут привести к -повреждению данных времени выполнения и аварийному завершению программы. - - PROCEDURE ADR(v: любой тип): INTEGER - v - переменная или процедура; - возвращает адрес v - - PROCEDURE SADR(x: строковая константа (CHAR UTF-8)): INTEGER - возвращает адрес x - - PROCEDURE WSADR(x: строковая константа (WCHAR)): INTEGER - возвращает адрес x - - PROCEDURE SIZE(T): INTEGER - возвращает размер типа T - - PROCEDURE TYPEID(T): INTEGER - T - тип-запись или тип-указатель, - возвращает номер типа в таблице типов-записей - - PROCEDURE INF(): REAL - возвращает специальное вещественное значение "бесконечность" - - PROCEDURE MOVE(Source, Dest, n: INTEGER) - Копирует n байт памяти из Source в Dest, - области Source и Dest не могут перекрываться - - PROCEDURE GET(a: INTEGER; - VAR v: любой основной тип, PROCEDURE, POINTER) - v := Память[a] - - PROCEDURE GET8(a: INTEGER; - VAR x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32) - Эквивалентно - SYSTEM.MOVE(a, SYSTEM.ADR(x), 1) - - PROCEDURE GET16(a: INTEGER; - VAR x: INTEGER, SET, WCHAR, SYSTEM.CARD32) - Эквивалентно - SYSTEM.MOVE(a, SYSTEM.ADR(x), 2) - - PROCEDURE GET32(a: INTEGER; VAR x: INTEGER, SET, SYSTEM.CARD32) - Эквивалентно - SYSTEM.MOVE(a, SYSTEM.ADR(x), 4) - - PROCEDURE PUT(a: INTEGER; x: любой основной тип, PROCEDURE, POINTER) - Память[a] := x; - Если x: BYTE или x: WCHAR, то значение x будет расширено - до 32 бит, для записи байтов использовать SYSTEM.PUT8, - для WCHAR -- SYSTEM.PUT16 - - PROCEDURE PUT8(a: INTEGER; - x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32) - Память[a] := младшие 8 бит (x) - - PROCEDURE PUT16(a: INTEGER; - x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32) - Память[a] := младшие 16 бит (x) - - PROCEDURE PUT32(a: INTEGER; - x: INTEGER, SET, BYTE, CHAR, WCHAR, SYSTEM.CARD32) - Память[a] := младшие 32 бит (x) - - PROCEDURE CODE(hword1, hword2,... : INTEGER) - Вставка машинного кода, - hword1, hword2 ... - константы в диапазоне 0..65535, - например: - SYSTEM.CODE(0BF30H) (* wfi *) - - Также, в модуле SYSTEM определен тип CARD32 (4 байта). Для типа CARD32 не -допускаются никакие явные операции, за исключением присваивания. - - Функции псевдомодуля SYSTEM нельзя использовать в константных выражениях. - ------------------------------------------------------------------------------- - Оператор CASE - - Синтаксис оператора CASE: - - CaseStatement = - CASE Expression OF Сase {"|" Сase} - [ELSE StatementSequence] END. - Case = [CaseLabelList ":" StatementSequence]. - CaseLabelList = CaseLabels {"," CaseLabels}. - CaseLabels = ConstExpression [".." ConstExpression]. - - Например: - - CASE x OF - |-1: DoSomething1 - | 1: DoSomething2 - | 0: DoSomething3 - ELSE - DoSomething4 - END - - В метках вариантов можно использовать константные выражения, ветка ELSE -необязательна. Если значение x не соответствует ни одному варианту и ELSE -отсутствует, то программа прерывается с ошибкой времени выполнения. - ------------------------------------------------------------------------------- - Тип WCHAR - - Тип WCHAR добавлен в язык для удобной поддежки юникода. Для типов WCHAR и -ARRAY OF WCHAR допускаются все те же операции, как для типов CHAR и -ARRAY OF CHAR, за исключением встроенной процедуры CHR, которая возвращает -только тип CHAR. Для получения значения типа WCHAR, следует использовать -процедуру WCHR вместо CHR. Для правильной работы с типом, необходимо сохранять -исходный код в кодировке UTF-8 c BOM. - ------------------------------------------------------------------------------- - Конкатенация строковых и символьных констант - - Допускается конкатенация ("+") константных строк и символов типа CHAR: - - str = CHR(39) + "string" + CHR(39); (* str = "'string'" *) - - newline = 0DX + 0AX; - ------------------------------------------------------------------------------- - Проверка и охрана типа нулевого указателя - - Оригинальное сообщение о языке не определяет поведение программы при -выполнении охраны p(T) и проверки типа p IS T при p = NIL. Во многих -Oberon-реализациях выполнение такой операции приводит к ошибке времени -выполнения. В данной реализации охрана типа нулевого указателя не приводит к -ошибке, а проверка типа дает результат FALSE. В ряде случаев это позволяет -значительно сократить частоту применения охраны типа. - ------------------------------------------------------------------------------- - Дополнительные стандартные процедуры - - - COPY (x: ARRAY OF CHAR/WCHAR; VAR v: ARRAY OF CHAR/WCHAR); - v := x; - Если LEN(v) < LEN(x), то строка x будет скопирована - не полностью - - LSR (x, n: INTEGER): INTEGER - Логический сдвиг x на n бит вправо. - - MIN (a, b: INTEGER): INTEGER - Минимум из двух значений. - - MAX (a, b: INTEGER): INTEGER - Максимум из двух значений. - - BITS (x: INTEGER): SET - Интерпретирует x как значение типа SET. - Выполняется на этапе компиляции. - - LENGTH (s: ARRAY OF CHAR/WCHAR): INTEGER - Длина 0X-завершенной строки s, без учета символа 0X. - Если символ 0X отсутствует, функция возвращает длину - массива s. s не может быть константой. - - WCHR (n: INTEGER): WCHAR - Преобразование типа, аналогично CHR(n: INTEGER): CHAR - ------------------------------------------------------------------------------- - Использование регистров общего назначения R0 - R12 - - R0 - R3: регистровый стэк (промежуточные значения выражений) - R4 - R12: не используются - ------------------------------------------------------------------------------- - Вызов процедур и кадр стэка - - Правила вызова похожи на соглашение cdecl (x86): - - параметры передаются через стэк справа налево - - результат, если есть, передается через регистр R0 - - вызывающая процедура очищает стэк - - Состояние стэка при выполнении процедуры: - - меньшие адреса <- |var3|var2|var1|LR|arg1|arg2|arg3| -> бОльшие адреса - - LR - сохраненный регистр LR (адрес возврата) - argX - параметры в порядке объявления (слева направо) - varX - локальные переменные в порядке использования в процедуре - - Размер каждого элемента в стэке (кроме локальных переменных структурных - типов) - 1 машинное слово (4 байта). Структурные переменные (массивы и - записи) занимают место в стэке в соответствии с их размером (с учетом - выравнивания). - - Размещение локальных переменных зависит от их размеров и порядка - использования, и в общем случае неопределенно. Если переменная не - используется явно, то компилятор не выделяет для нее место в стэке. - ------------------------------------------------------------------------------- - Скрытые параметры процедур - - Некоторые процедуры могут иметь скрытые параметры, они отсутствуют в списке -формальных параметров, но учитываются компилятором при трансляции вызовов. -Это возможно в следующих случаях: - -1. Процедура имеет формальный параметр открытый массив: - PROCEDURE Proc (x: ARRAY OF ARRAY OF REAL); - Вызов транслируется так: - Proc(LEN(x), LEN(x[0]), SYSTEM.ADR(x)) -2. Процедура имеет формальный параметр-переменную типа RECORD: - PROCEDURE Proc (VAR x: Rec); - Вызов транслируется так: - Proc(SYSTEM.TYPEID(Rec), SYSTEM.ADR(x)) - ------------------------------------------------------------------------------- - Кодовые процедуры - - Компилятор поддерживает процедуры, написаные в машинных кодах. - Синтаксис: - - PROCEDURE "[code]" имя [ (параметры): ТипРезультата ] - МашКом, МашКом,... МашКом; - - ";" после заголовка и END "имя" в конце процедуры не ставятся. - МашКом - целочисленная константа [0..65535] (в том числе и константное - выражение). - - Например: - - PROCEDURE [code] WFI - 0BF30H; (* wfi *) - - Компилятор автоматически добавляет к такой процедуре команду возврата -(bx LR). Способ передачи параметров и результата не изменяется. Регистр LR, -при входе в процедуру не сохраняется. - - Чтобы использовать кодовые процедуры, необходимо импортировать псевдомодуль -SYSTEM. - ------------------------------------------------------------------------------- - Обработка прерываний - - При возникновении прерывания, будет вызван обработчик (если он объявлен). -Объявление обработчика: - - PROCEDURE handler_name [iv]; (* процедура без параметров *) - -iv - целочисленная константа (константное выражение), номер вектора прерывания -в таблице векторов, iv >= 2: - - 0 начальное значение SP - 1 сброс - ... - 15 SysTick - ... - 59 TIM6 - 60 TIM7 - ... - -например: - - (* обработчик прерываний от TIM6 *) - PROCEDURE tim6 [59]; - BEGIN - (* код обработки *) - END tim6; - - Также, можно объявить общий обработчик (iv = 0), который будет вызван, если -не назначен индивидуальный. Общий обработчик получает параметр - номер вектора -прерывания. По значению этого параметра, обработчик должен определить источник -прерывания и выполнить соответствующие действия: - - PROCEDURE handler (iv: INTEGER) [0]; - BEGIN - IF iv = 59 THEN - (* TIM6 *) - ELSIF iv = 60 THEN - (* TIM7 *) - ELSIF .... - .... - END - END handler; - -В конец программы компилятор добавляет команду ожидания прерывания. - ------------------------------------------------------------------------------- - Обработка ошибок - - В случае возникновения ошибки при выполнении программы, будет вызван -пользовательский обработчик (если он объявлен). - -Объявление обработчика ошибок: - - PROCEDURE trap (modNum, modName, err, line: INTEGER) [1]; - BEGIN - END trap; - - где, - modNum - номер модуля (в отчете о компиляции: - compiling (modNum) "modName" ) - modName - адрес имени модуля - err - код ошибки - line - номер строки - -Коды ошибок: - - 1 ASSERT(x), при x = FALSE - 2 разыменование нулевого указателя - 3 целочисленное деление на неположительное число - 4 вызов процедуры через процедурную переменную с нулевым значением - 5 ошибка охраны типа - 6 нарушение границ массива - 7 непредусмотренное значение выражения в операторе CASE - 8 ошибка копирования массивов v := x, если LEN(v) < LEN(x) - 9 CHR(x), если (x < 0) OR (x > 255) -10 WCHR(x), если (x < 0) OR (x > 65535) -11 неявное приведение x:INTEGER к v:BYTE, если (x < 0) OR (x > 255) - -После возврата из обработчика программа будет перезапущена. - ------------------------------------------------------------------------------- \ No newline at end of file