Руководство для программиста

Рассмотрим основные процедуры, используемые при работе макропроцессора в модуле Kurs62.

1. function SearMKOP(Name: String): Boolean;-поиск МКОП.

2. function HexNumber(s:string):boolean;-проверяет является ли число 16-м.

3.function Psevdocom(c:string):boolean; -проверяет является ли строка псевдокомандой.

4.function SRegister(r:string):integer;-проверяет является ли строка регистром.

5.function StringConst(s:string):integer;-проверяет является ли строка строковой константой в кавычках.

6. function NumberConst(s:string):boolean;-проверяет является ли строковая константа числом.

7. function Parameter(s:string):boolean;-является ли параметром.

8. function SearchMacro(macro: string):integer;-поиск макроса в ТИМ

9. procedure CheckTKO;-проверка ТКО.

10. procedure GetInfList(name: String);-проходит по доп. списку ТСИ и на каждый встртившийся адрес вставляет адрес СИ.

11. procedure ProverkaParamExt(i: Integer);-проверка параметров.

12. procedure Check(i: integer);-проверка параметров поля метки и операндной части.

13. function CheckMac(i:integer;q:integer):boolean;-проверка имени макроса при его вызове и при определении.

14. function NoOpenFile: Boolean;-если фаил не загружен.

15. procedure TForm1.FormCreate(Sender: TObject);-создание формы.

16. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);-закрыть форму.

17.function CountStr(table:integer): integer;-поиск количества строк в исходном тексте.

18.function CheckMacroOpr(i:integer):boolean;-проверка правильности строки макроопределения.

19. procedure Checkpp(p:string);-проверка параметров макроса.

20. procedure ObrabMacro(i: integer; level: integer);-процедура обработки макроопределения.

21. procedure Perenos(i:integer);-при макрогенерации перенос части текста в спец таблицу для вставки тела макроса.

22. function PosPar(par2:string;k:integer):string;-анализирует параметры заданные позиционным способом.

23. procedure CheckPos(par:string; k:integer;par2:string);-проверка правильности написания параметров.

24. procedure AnalizPar(i:integer;macro:string;j:integer);-анализ параметров при вызове макроса.

25. procedure ObrabAGO(j:integer);-обрабтка директивы AGO (используется внутри макроса).

26. procedure ObrabAIF(j:integer);- обрабтка директивы AIF (используется внутри макроса).

27. procedure ObrabESLI(j:integer);- oбработка изменения внутренних переменных(используется внутри макроса).

28. procedure MacroGen1(macro: string;level: integer);-Макрогенерация.

29. procedure ObrPerenos(i:integer);- При макрогенерации перенос части текста из спец таблицы после вставки тела макроса.

30. procedure StepProsm;- Пошаговый просмотр.

31. procedure TForm1.ButFreeClick(Sender: TObject);-обработка кнопки «Заново».

32. procedure TForm1.N2Click(Sender: TObject);-открыть фаил.

33. procedure TForm1.ButAllStepClick(Sender: TObject);-обработка кнопки «Полный проход».

34. procedure TForm1.ButStepClick(Sender: TObject););-обработка кнопки «Пошаговый проход».

35. procedure TForm1.N3Click(Sender: TObject);-сохранить бин код.

36. procedure ObrIF2(j:integer;e:integer;sym:string;znach2: string; bb:boolean);-обработка директивы IF.

37. procedure ObrWhile(j: integer;e:integer;znach:string;

BBol:boolean;zz:string; sym:string);- Обработка директивы WHILE (используется внутри макроса).

38. procedure ObrIF(j:integer;e:integer;sym:string;znach2:string;

bb:boolean);- Обработка директивы IF (используется внутри макроса).

Модуль Kurs50 реализует функционал графического интерфейса программы. Выбор, в каком режиме будет работать программа, происходит в самом проекте SPO. Если режим графический, то управление передается модулю Kurs50. Если же режим консольный, то работа консольного режима описана непосредственно в проекте.