Главная · Поиск книг · Поступления книг · Top 40 · Форумы · Ссылки · Читатели

Настройка текста
Перенос строк


    Прохождения игр    
StarCraft II Wings of Liberty |#10| Страшная Правда
StarCraft II: Wings of Liberty |#9| Шепот Судьбы
StarCraft II: Wings of Liberty |#8| Большие раскопки
Minecraft |#3| Сборная солянка и новый мир

Другие игры...


liveinternet.ru: показано число просмотров за 24 часа, посетителей за 24 часа и за сегодня
Rambler's Top100
Образование - Различные авторы Весь текст 2311.07 Kb

Программирование и кодирование

Предыдущая страница Следующая страница
1 ... 6 7 8 9 10 11 12  13 14 15 16 17 18 19 ... 198
            ;; ** @MakeJmp *********************** SUPPORT MACRO *****
            ;; Переформатировать символы для команды JMP
            @MakeJmp         MACRO    p1,p2,p3
            ??tmp  =                  &p3&p2
                   @MakeJmp2          p1,p2,%??tmp
                   ENDM
            ;;
            ;; ** @MakeJmpLabel2 *****************SUPPORT MMACRO *****
            ;; Вставить метку команды JMP в программный код
            @MakeJmpLabel2   MACRO    p1,p2,p3
            &p1&p2&p3:
                   ENDM
            ;;
            ;; ** @MakeJmpLabel ****************** SUPPORT MACRO *****
            ;; Переформатировать символы для определения метки опера-
            ;; тора JMP
            @MakeJmpLabel    MACRO    p1,p2,p3
            ??tmp  =                  &p3&p2
                  @MakeJmpLabel2      p1,p2,%??tmp
                  ENDM
            ;;
            ;; ** @IfTrue ************ STRUCTURED CONTROL MACRO *****
            ;; Структурированное макро "IF" - IF TRUE
            @IfTrue          MACRO    p1
                  LOCAL         iftrue
                   j&p1          iftrue    ;;перейти к секции "IF"
                   IFNDEF        ?if_level ;;установить новый уровень
                                           ;;вложенности
            ?if_level            =      10
                   ELSE
            ?if_level            =      ?if_level + 1
                   ENDIF
                   @TestSym      ?if_nest,%?if_level  ;;установить новый
                                        ;;номер последовательности
                   If            (?symdef)
                   @IncSym       ?if_nest,%?if_level
                   ELSE
                   @ZeroSym      ?if_nest,%?if_level
                   ENDIF
            ;; Вставить переход  в секцию "ELSE" или "IF NOT"
                   @MakeJmp      ?if_,%?if_level,?if_nest
            iftrue:
                   ENDM
            ;;
            ;; **  @IfElse *********** STRUCTURED CONTROL MACRO *****
            ;; Структурированное макро "ELSE"
            @IfElse          MACRO
                   IFNDEF         ?if_level
            ; ОШИБКА - "@IfElse" без открытого оператора "@IfTrue"
                   EXITM
                   ENDIF
                   IF(?if_level LT 10)
            ; ОШИБКА - "@IfElse" без открытого оператора "@IfTrue"
                   EXITM
                   ENDIF
            ;; Сгенерировать код "@IfElse"
                   @IncSym       ?if_nest,%?if_level

                                      - 1-35 -
                   @MakeJmp       ?if_,%?if_level,?if_nest
                   @DecSym        ?if_nest,%?if_level
                   @MakeJmpLabel  ?if_,%?if_level,?if_nest
                   @IncSym        ?if_nest,%?if_level
                   ENDM
            ;;
            ;; ** @IfEnd *********** STRUCTURED CONTROL MACRO *****
            ;; Структурированное макро "END" для совместного
            ;; использования с "@IfTrue"
            @IfEnd  MACRO
                    IFNDEF    ?if_level
            ; ОШИБКА - "@IfEnd" без открытого оператора "@IfTrue"
                   EXITM
                   ENDIF
                   IF  (?if_level LT 10)
            ; ОШИБКА - "@IfEnd" без открытого оператора "@IfTrue"
                   EXITM
                   ENDIF
            ;; Сгенерировать метку "@IfEnd"
                   @MakeJmpLabel  ?if_,%?if_level,?if_nest
            ?if_level     =       ?if_level - 1
                   ENDM
            ;;
            ;; ** @DoWhile ******** STRUCTURED CONTROL MACRO *****
            ;; Структурированное макро "DO_WHILE"
            @DoWhile       MACRO  p1,p2,p3
                   LOCAL   iftrue
                   IFNDEF  ?do_level      ;;установить новый уровень
                                          ;;вложенности
            ?do_level      =      10
                   ELSE
            ?do_level      =      ?do_level + 1
                   ENDIF
            ;; Установить номер новой последовательности для уровня
            ;; вложенности
                   @TestSym       ?do_nest,%?do_level
                   IF             (?symdef)
                   @IncSym        ?do_nest,%?do_level
                   ELSE
                   @ZeroSym       ?do_nest,%?do_level
                   ENDIF
            ;; Вставить метку начала цикла
                   @MаkeJmpLabel  ?do_,%?do_level,?do_nest
            ;; Вставить в программный код проверку условия
                   cmp      &p1,&p3
            ;; Перейти к секции "DO_WHILE_TRUE"
                   j&p2     iftrue
            ;; Перейти к следующей метке последовательности
                   @IncSym        ?do_nest,%?do_level
            ;; Вставить в программный код переход на конец цикла
                   @MakeJmp       ?do_,%?do_level,?do_nest
            ;; Начать секцию "DO_WHILE_TRUE"
            iftrue:
                   ENDM
            ;;
            ;; ** @DoExit *********** STRUCTURED CONTROL MACRO *****
            ;; Структурированное макро "DO_EXIT" для совместного

                                      - 1-36 -
            ;; использования с "@DoWhile"
            @DoExit      MACRO
            ;; Вставить в программный код переход на конец цикла
                         @MakeJmp        ?do_,%?do_level,?do_nest
                         ENDM
            ;;
            ;; ** @DoEnd ************ STRUCTURED CONTROL MACRO *****
            ;; Структурированное макро "DO_END" для совместного
            ;; использования с "@DoWhile"
            ;; Макро @DoEnd генерирует программный код для структури-
            ;; рованного ENDDO
            @DoEnd       MACRO
                         IFNDEF          ?do_level
            ; ОШИБКА - "@DoEnd" без открытого оператора "@DoWhile"
                         EXITM
                         ENDIF
                         IF  (?do_level LT 10)
            ; ОШИБКА - "@DoEnd" без открытого оператора "@DoWhile"
                         EXITM
                         ENDIF
            ;; Переход на предыдущую метку последовательности
                         @DecSym         ?do_nest,%?do_level
            ;; Сгенерировать переход на начало цикла
                         @MakeJmp        ?do_,%?do_level,?do_nest
            ;; Перейти к следующей метке последовательности
                         @IncSym         ?do_nest,%?do_level
            ;; Сгенерировать метку для "@DoEnd"
                         @MakeJmpLabel   ?do_,%?do_level,?do_nest
            ?do_level      =       ?do_level - 1
                         ENDM
            ;;
            ;; ** @Repeat *********** STRUCTURED CONTROL MACRO *****
            ;; Структурированное макро "@Repeat"
            ;; "@Repeat" генерирует программный код для структури-
            ;; рованного REPEAT-UNTIL
            @Repeat      MACRO
                   IFNDEF   ?rep_level   ;;установить новый уровень
                                          ;;вложенности
            ?rep_level     =        10
                   ELSE
            ?rep_level     =        ?rep_level + 1
                   ENDIF
            ;; Установить новый номер последовательности для уровня
            ;; вложенности
                   @TestSym         ?rep_nest,%?rep_level
                   IF               (?symdef)
                   @IncSym          ?rep_nest,%?rep_level
                   ELSE
                   @ZeroSym         ?rep_nest,%?rep_level
                   ENDIF
            ;; Вставить метку перехода на начало цикла
                   @MakeJmpLabel    ?rep_,%?rep_level,?rep_nest
                   ENDM
            ;;
            ;; ** @Until ***********STRUCTURED CONTROL MACRO *****
            ;; Структурированное макро "@Until" для совместного
            ;; использования с "@Repeat"

                                      - 1-37 -
            @Until       MACRO      p1,p2,p3
                         LOCAL      iftrue
                         IFNDEF     ?rep_level
            ; ОШИБКА - "@Until" без открытого оператора "@Repeat"
                         EXITM
                         ENDIF
                         IF (?rep_level LT 10)
            ; ОШИБКА - "@Until" без открытого оператора "@Repeat"
                         EXITM
                         ENDIF
            ;; Вставить в программный код проверку условия
                         cmp             &p1,&p3
            ;; Перейти к секции "@Until" .TRUE.
                         j&p2            iftrue
            ;; Вставить переход на начало цикла
                         @MakeJmp    ?rep_,%?rep_level,?rep_nest
            iftrue:
            ?rep_level     =        ?rep_level- 1
                         ENDM
            ;;
            ;; ** @For *********** STRUCTURED CONTROL MACRO *****
            ;; Структурированное макро "@For". Используйте это
            ;; макро так:
            ;;     @For     counter,begin,end,dir,step
            ;;
            @For    MACRO           p1,p2,p3,p4,p5
                    LOCAL           first
                    LOCAL           iftrue
                    IFNDEF          ?for_level  ;;установить новый
                                    ;;уровень вложенности
            ?for_level     =        10
                    ELSE
            ?for_level     =        ?for_level + 1
                    ENDIF
            ;; Установить новый номер последовательности для
            ;; уровня вложенности
                    @TestSym        ?for_nest,%?for_level
                    IF              (?symdef)
                    @IncSym         ?for_nest,%?for_level
                    ELSE
                    @ZeroSym        ?for_nest,%?for_level
                    ENDIF
            ;; Вставить в программный код инициализацию счетчика -
            ;; (обойти 1-ый шаг)
                    mov             &p1,&p2 ;инициализировать счетчик
                    jmp             first   ;начать цикл FOR
            ;; Вставить метку перехода на начало цикла
                    @MakeJmpLabel   ?for_,%?for_level,?for_nest
            ;; Вставить в программный код шаг вычислений и выполнить
            ;; его проверку
                    IFIDN           ,<+>
                    inc             &p1     ;увеличить счетчик
                    ELSE
                    IFIDN           ,<->
                    dec             &p1     ;уменьшить счетчик
                    ELSE
            ; ОШИБКА - неверная спецификация шага в операторе "@For"

                                      - 1-38 -
                    EXITM
                    ENDIF
                    ENDIF
            first:           ;проверить на необходимость продолжения
            ;; Вставить в программный код проверку условия
                    cmp             &p1,&p3  ;достигнут ли конец?
            ;; Перейти к секции "FOR_TRUE"
                    IFIDN           ,<+>
                    jl              iftrue   ;нет - продолжить цикл FOR
                    ELSE            ;;по умолчанию - к шагу "-"
                    jg              iftrue   ;нет - продолжить цикл FOR
                    ENDIF
            ;; Перейти к следующей метке последовательности
                    @IncSym         ?for_nest,%?for_level
            ;; Вставить в программный код переход на конец цикла
                    @MakeJmp        ?for,%?for_level,?for_nest
            iftrue:
                    ENDM
            ;;
            ;; ** @ForEnd ******** STRUCTURED CONTROL MACRO *****
            ;; Структурированное макро "FOR_END" для совместного
            ;; использования с "FOR"
            ;; @ForEnd генерирует программный код для структури-
            ;; рованного цикла FOR
Предыдущая страница Следующая страница
1 ... 6 7 8 9 10 11 12  13 14 15 16 17 18 19 ... 198
Ваша оценка:
Комментарий:
  Подпись:
(Чтобы комментарии всегда подписывались Вашим именем, можете зарегистрироваться в Клубе читателей)
  Сайт:
 

Реклама