Организация и функционирование ЭВМ. Камалягин А.А - 19 стр.

UptoLike

19
5.2. Загрузите отладчик и программу. Произведите ее пошаговое выполнение.
Наблюдайте результаты выполнения команд.
5.3. Установите ловушку на одной из команд подпрограммы. В точке останова
отройте в окне CPU локальное меню и выберите пункт CALLER.Пронаблюдайте
исполнение этой инструкции.
5.4. Пронаблюдайте результат выполнения программы в окне WINDOW (режим
USER SCREEN).
5.5. Введите вариант программы из домашнего задания,
обеспечивающий замену
заглавных букв строчными.
5.6. Убедитесь в работоспособности второго варианта программы.
6.ПРИМЕР ПРОГРАММЫ
TITLE CHANGE - ЗАМЕНА СТРОЧНЫХ БУКВ ЗАГЛАВНЫМИ
;---------------------------------------------------------------------------------------
DATASG SEGMENT PARA
MYTEXT DB 'Our Native Town' ,13,10, '$'
DATASG ENDS
STACKSG SEGMENT 'Stack'
DB 12 DUP(?)
STACKSG ENDS
CODESG SEGMENT PARA 'Code'
BEGIN PROC FAR
ASSUME SS:STACKSG, CS:CODESG, DS:DATASG
PUSH DS
SUB AX,AX
PUSH AX
MOV AX, DATASG
MOV DS, AX
LEA BX, MYTEXT
MOV CX, 10H
MT1: MOV AH, [BX]
CMP AH, 61H
JB MT2
CMP AH, 7AH
JA MT2
CALL COR
MT2: INC BX
LOOP MT1
LEA DX, MYTEXT
                                      19
5.2. Загрузите отладчик и программу. Произведите ее пошаговое выполнение.
Наблюдайте результаты выполнения команд.
5.3. Установите ловушку на одной из команд подпрограммы. В точке останова
отройте в окне CPU локальное меню и выберите пункт CALLER.Пронаблюдайте
исполнение этой инструкции.
5.4. Пронаблюдайте результат выполнения программы в окне WINDOW (режим
USER SCREEN).
5.5. Введите вариант программы из домашнего задания, обеспечивающий замену
заглавных букв строчными.
5.6. Убедитесь в работоспособности второго варианта программы.

      6.ПРИМЕР ПРОГРАММЫ

      TITLE CHANGE - ЗАМЕНА СТРОЧНЫХ БУКВ ЗАГЛАВНЫМИ
      ;---------------------------------------------------------------------------------------

      DATASG SEGMENT PARA
      MYTEXT DB    'Our Native Town' ,13,10, '$'
      DATASG  ENDS

      STACKSG SEGMENT                    'Stack'
          DB 12 DUP(?)
      STACKSG ENDS

      CODESG    SEGMENT PARA 'Code'
      BEGIN     PROC FAR
      ASSUME SS:STACKSG, CS:CODESG, DS:DATASG
           PUSH DS
           SUB AX,AX
           PUSH AX
           MOV AX, DATASG
           MOV DS, AX
           LEA BX, MYTEXT
           MOV CX, 10H
      MT1: MOV AH, [BX]
           CMP AH, 61H
           JB   MT2
           CMP AH, 7AH
           JA   MT2
           CALL COR
      MT2: INC BX
           LOOP MT1
           LEA DX, MYTEXT