Из COM в EXE - Assembler

Узнай цену своей работы

Формулировка задачи:

Пытался переделать, но при компиляции выводит предупреждение No Stack, EXЕ то запускается, но программа не работает, подскажите что исправить.Компилирую в TASM Вот код COM:
Листинг программы 
  1. .model tiny
  2. .code
  3. ORG 100h
  4. .386
  5. start:
  6.    MOV   DX,offset mess0
  7.    CALL  MESSAGE
  8. ;------------------- юзер вводит имя файла,
  9. ;------------------- а мы его сохраняем --------------------------//
  10.    MOV   DI,offset fName          ; DI для STOSB...
  11. fileName:                  ;
  12.    MOV   AH,1              ;
  13.    INT   21h               ; читаем символ
  14.    CMP   AL,13             ; выход по ENTER
  15.    JE    next              ;
  16.    STOSB                   ; пишем символы в "ФайлНэйм"
  17.    JMP   fileName          ;
  18. next:                      ;
  19.  
  20.    MOV   AX,3D02h          ; открыть файл! -----------------------//
  21.    MOV   DX,offset fName          ;
  22.    INT   21h               ;
  23.    JC    error             ; ошибка?
  24.    XCHG  AX,BX             ; дескриптор файла в ВХ
  25.    MOV   AH,3Fh            ; читать файл! ------------------------//
  26.    MOV   DX,offset buff           ;    куда,
  27.    MOV   CX,0FFFFh         ;       и сколько
  28.    INT   21h               ;
  29.    JC    error             ;
  30.    MOV   [fSize],AX        ; размер файла в переменной
  31.    MOV   AH,3Eh            ; fucking file! -----------------------//
  32.    INT   21h               ;
  33.    JC    error             ;
  34.  
  35.    MOV   DX,offset mess1          ; покажем ОК! -------------------------//
  36.    CALL  MESSAGE           ;
  37.    MOV   AX,[fSize]        ; ..с размером файла
  38.    MOV   BX,10             ;     в 10-тичной системе
  39.    CALL  HEX2ASC           ;
  40.  
  41.    MOV   DX,offset mess2          ; запрос на ввод ключа шифрования -----//
  42.    CALL  MESSAGE           ;
  43.    CALL  ASC2HEX           ;
  44.    MOV   [key],CL          ; ключ в переменной
  45.  
  46.    MOV   CX,[fSize]        ; ..байтов для шифрования
  47.    MOV   SI,offset buff           ; источник
  48.    MOV   BL,[key]          ; ключ шифрования
  49. crypt:                     ;
  50.    MOV   AL,BYTE[SI]       ; берём байт
  51.    XOR   AL,BL             ; "ксорим" его ключом<------------------------------------------------XOR\SUB
  52.    MOV   BYTE[SI],AL       ; и записываем обратно на место
  53.    INC   SI                ; следующий байт..
  54.    LOOP  crypt             ;
  55.  
  56.    MOV   DX,offset mess3          ; мессага ОК!
  57.    CALL  MESSAGE           ;
  58.    CALL  @@01                ; создаём новый файл ------------------//
  59.    DB    'DATFILE.TXT',0   ;
  60. @@01:                        ;
  61.    MOV   AH,3Ch            ;
  62.    POP   DX                ; имя файла в DX
  63.    MOV   CX,20h            ; атрибут - архивный
  64.    INT   21h               ;
  65.    JC    error
  66.    XCHG  BX,AX             ; дескриптор файла в BX
  67.  
  68.    MOV   AH,40h            ; запись в файл -----------------------//
  69.    MOV   DX,offset buff           ;
  70.    MOV   CX,[fSize]        ; кол-во выводимым символов
  71.    INT   21h               ;
  72.    JC    error             ;
  73.    MOV   AH,3Eh            ; fucking file! -----------------------//
  74.    INT   21h
  75.    MOV   DX,offset mess4          ; мессага "Создали Файл!"
  76.    CALL  MESSAGE           ;
  77.    JMP   exit              ;
  78.  
  79. error:                     ; обработка ошибки --------------------//
  80.    CALL  @@@
  81.    DB    13,10,7,'<--ERROR FILE OPERATION!$'
  82. @@@:                        ;
  83.    POP   DX                ;
  84.    CALL  MESSAGE           ;
  85.  
  86. exit:
  87.    XOR   AX,AX             ; выход!
  88.    INT   16h               ;
  89.    INT   20h               ;
  90.  
  91. ;ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн
  92. MESSAGE:
  93.    MOV   AH,9
  94.    INT   21h
  95. RET
  96.  
  97. ;//======= ФУНКЦИЯ ВЫВОДИТ НА ЭКРАН В РАЗЛИЧНЫХ СС ================|
  98. HEX2ASC:
  99.    PUSHA                   ; перевод из HEX в ASCII и вывод на экран
  100.    XOR   CX,CX             ;  вход: BX = система счисления, AX = число
  101. isDiv:                     ; выход: на экране
  102.    XOR   DX,DX             ;
  103.    DIV   BX                ;
  104.    PUSH  DX                ;
  105.    INC   CX                ;
  106.    OR    AX,AX             ;
  107.    JNZ   isDiv             ;
  108. isOut:                     ;
  109.    POP   AX                ;
  110.    CMP   AL,9              ;
  111.    JLE   noHex             ;
  112.    ADD   AL,7              ; коррекция для HEX..
  113. noHex:                     ;
  114.    ADD   AL,30h            ;
  115.    INT   29h               ; выводим символ на экран
  116.    LOOP  isOut             ;
  117.    POPA                    ;
  118. RET
  119.  
  120. ;//========= ПРОЦЕДУРА СОХРАНЕНИЯ ВВОДА В HEX-ФОРМАТЕ =============|
  121. ASC2HEX:
  122.    XOR    CX,CX            ; выход: CX = число
  123. @0:                        ;
  124.    MOV    AH,1             ; ввод с эхом
  125.    INT    21h              ;
  126.    CMP    AL,13            ; выход по ENTER
  127.    JE     stop             ;
  128.    SUB    AL,30h           ;
  129.    CMP    AL,9             ;
  130.    JBE    @2               ;
  131.    SUB    AL,11h           ; значит HEX-буква. Отнимаем от неё фактор
  132.    CMP    AL,5             ; если заглавная буква, то остаток будет
  133.    JBE    @1               ; в пределах(5). Ниже/равно - коррекция!
  134.    SUB    AL,20h           ; значит прописная буква. Коррекция..
  135. @1:                        ;
  136.    ADD    AL,10            ; коррекция букв "A..F", в "11..15"
  137. @2:                        ;
  138.    SHL    CX,4             ; сдвигаем мл.тетраду(CL), в старшую
  139.    OR     CL,AL            ; в мл.тетраду(CL) запишем наше числ
  140.    JMP    @0               ;
  141. stop:                      ; результат в CX.
  142. RET
  143. mess0  DB  13,10,'   READ FILE NAME......: $'
  144. mess1  DB  13,10,'<--OK!  file size......: $'
  145. mess2  DB  13,10,10,'   CRYPT MASK (byte)...: $'
  146. mess3  DB  13,10,'<--OPERATION COMPLETED!$'
  147. mess4  DB  13,10,'-----------------------------'
  148.        DB  13,10,'   CREATE "DATFILE.TXT" - OK!$'
  149.  
  150. buff   DB  1024 DUP(0)     ; буфер для файла
  151. fName  DB  16   DUP(0)     ; имя файла (в формате 8.3)
  152. fSize  DW  0
  153. key    DB  0
  154. end start
Вот EXE, который я пытался сделать:
Листинг программы 
  1. .model tiny
  2. ORG 100h
  3. .386
  4. .data
  5. mess0  DB  13,10,'   READ FILE NAME......: $'
  6. mess1  DB  13,10,'<--OK!  file size......: $'
  7. mess2  DB  13,10,10,'   CRYPT MASK (byte)...: $'
  8. mess3  DB  13,10,'<--OPERATION COMPLETED!$'
  9. mess4  DB  13,10,'-----------------------------'
  10.        DB  13,10,'   CREATE "DATFILE.TXT" - OK!$'
  11.  
  12. buff   DB  1024 DUP(0)     ; буфер для файла
  13. fName  DB  16   DUP(0)     ; имя файла (в формате 8.3)
  14. fSize  DW  0
  15. key    DB  0
  16. .code
  17. start:
  18.     MOV    AX,@DATA    
  19.     MOV    DS,AX 
  20.    MOV   DX,offset mess0
  21.    CALL  MESSAGE
  22. ;------------------- юзер вводит имя файла,
  23. ;------------------- а мы его сохраняем --------------------------//
  24.    MOV   DI,offset fName          ; DI для STOSB...
  25. fileName:                  ;
  26.    MOV   AH,1              ;
  27.    INT   21h               ; читаем символ
  28.    CMP   AL,13             ; выход по ENTER
  29.    JE    next              ;
  30.    STOSB                   ; пишем символы в "ФайлНэйм"
  31.    JMP   fileName          ;
  32. next:                      ;
  33.  
  34.    MOV   AX,3D02h          ; открыть файл! -----------------------//
  35.    MOV   DX,offset fName          ;
  36.    INT   21h               ;
  37.    JC    error             ; ошибка?
  38.    XCHG  AX,BX             ; дескриптор файла в ВХ
  39.    MOV   AH,3Fh            ; читать файл! ------------------------//
  40.    MOV   DX,offset buff           ;    куда,
  41.    MOV   CX,0FFFFh         ;       и сколько
  42.    INT   21h               ;
  43.    JC    error             ;
  44.    MOV   [fSize],AX        ; размер файла в переменной
  45.    MOV   AH,3Eh            ; fucking file! -----------------------//
  46.    INT   21h               ;
  47.    JC    error             ;
  48.  
  49.    MOV   DX,offset mess1          ; покажем ОК! -------------------------//
  50.    CALL  MESSAGE           ;
  51.    MOV   AX,[fSize]        ; ..с размером файла
  52.    MOV   BX,10             ;     в 10-тичной системе
  53.    CALL  HEX2ASC           ;
  54.  
  55.    MOV   DX,offset mess2          ; запрос на ввод ключа шифрования -----//
  56.    CALL  MESSAGE           ;
  57.    CALL  ASC2HEX           ;
  58.    MOV   [key],CL          ; ключ в переменной
  59.  
  60.    MOV   CX,[fSize]        ; ..байтов для шифрования
  61.    MOV   SI,offset buff           ; источник
  62.    MOV   BL,[key]          ; ключ шифрования
  63. crypt:                     ;
  64.    MOV   AL,BYTE[SI]       ; берём байт
  65.    XOR   AL,BL             ; "ксорим" его ключом<------------------------------------------------XOR\SUB
  66.    MOV   BYTE[SI],AL       ; и записываем обратно на место
  67.    INC   SI                ; следующий байт..
  68.    LOOP  crypt             ;
  69.  
  70.    MOV   DX,offset mess3          ; мессага ОК!
  71.    CALL  MESSAGE           ;
  72.    CALL  @@01                ; создаём новый файл ------------------//
  73.    DB    'DATFILE.TXT',0   ;
  74. @@01:                        ;
  75.    MOV   AH,3Ch            ;
  76.    POP   DX                ; имя файла в DX
  77.    MOV   CX,20h            ; атрибут - архивный
  78.    INT   21h               ;
  79.    JC    error
  80.    XCHG  BX,AX             ; дескриптор файла в BX
  81.  
  82.    MOV   AH,40h            ; запись в файл -----------------------//
  83.    MOV   DX,offset buff           ;
  84.    MOV   CX,[fSize]        ; кол-во выводимым символов
  85.    INT   21h               ;
  86.    JC    error             ;
  87.    MOV   AH,3Eh            ; fucking file! -----------------------//
  88.    INT   21h
  89.    MOV   DX,offset mess4          ; мессага "Создали Файл!"
  90.    CALL  MESSAGE           ;
  91.    JMP   exit              ;
  92.  
  93. error:                     ; обработка ошибки --------------------//
  94.    CALL  @@@
  95.    DB    13,10,7,'<--ERROR FILE OPERATION!$'
  96. @@@:                        ;
  97.    POP   DX                ;
  98.    CALL  MESSAGE           ;
  99.  
  100. exit:
  101.    XOR   AX,AX             ; выход!
  102.    INT   16h               ;
  103.    INT   20h               ;
  104.  
  105. ;ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн
  106. MESSAGE:
  107.    MOV   AH,9
  108.    INT   21h
  109. RET
  110.  
  111. ;//======= ФУНКЦИЯ ВЫВОДИТ НА ЭКРАН В РАЗЛИЧНЫХ СС ================|
  112. HEX2ASC:
  113.    PUSHA                   ; перевод из HEX в ASCII и вывод на экран
  114.    XOR   CX,CX             ;  вход: BX = система счисления, AX = число
  115. isDiv:                     ; выход: на экране
  116.    XOR   DX,DX             ;
  117.    DIV   BX                ;
  118.    PUSH  DX                ;
  119.    INC   CX                ;
  120.    OR    AX,AX             ;
  121.    JNZ   isDiv             ;
  122. isOut:                     ;
  123.    POP   AX                ;
  124.    CMP   AL,9              ;
  125.    JLE   noHex             ;
  126.    ADD   AL,7              ; коррекция для HEX..
  127. noHex:                     ;
  128.    ADD   AL,30h            ;
  129.    INT   29h               ; выводим символ на экран
  130.    LOOP  isOut             ;
  131.    POPA                    ;
  132. RET
  133.  
  134. ;//========= ПРОЦЕДУРА СОХРАНЕНИЯ ВВОДА В HEX-ФОРМАТЕ =============|
  135. ASC2HEX:
  136.    XOR    CX,CX            ; выход: CX = число
  137. @0:                        ;
  138.    MOV    AH,1             ; ввод с эхом
  139.    INT    21h              ;
  140.    CMP    AL,13            ; выход по ENTER
  141.    JE     stop             ;
  142.    SUB    AL,30h           ;
  143.    CMP    AL,9             ;
  144.    JBE    @2               ;
  145.    SUB    AL,11h           ; значит HEX-буква. Отнимаем от неё фактор
  146.    CMP    AL,5             ; если заглавная буква, то остаток будет
  147.    JBE    @1               ; в пределах(5). Ниже/равно - коррекция!
  148.    SUB    AL,20h           ; значит прописная буква. Коррекция..
  149. @1:                        ;
  150.    ADD    AL,10            ; коррекция букв "A..F", в "11..15"
  151. @2:                        ;
  152.    SHL    CX,4             ; сдвигаем мл.тетраду(CL), в старшую
  153.    OR     CL,AL            ; в мл.тетраду(CL) запишем наше числ
  154.    JMP    @0               ;
  155. stop:                      ; результат в CX.
  156. RET
  157. end start

Решение задачи: «Из COM в EXE»

textual
Листинг программы 
  1. exit:
  2.   XOR   AX,AX             ; выход!
  3.   INT   16h
  4.   MOV AH,4Ch               ;
  5.   INT   21h

Объяснение кода листинга программы

  1. XOR AX,AX — Код вычисляет логическое ИЛИ между регистрами AX и AX и сохраняет результат в обоих регистрах. Результат этого выражения всегда будет равен 0, потому что мы сравниваем одинаковые значения.
  2. INT 16h — Это команда прерывания, которая передает управление компьютеру для обработки функции, связанной с номером прерывания 16h. В IBM PC и совместимых системах номер прерывания 16h обычно используется для обращения к BIOS, чтобы выполнить действия, такие как загрузка операционной системы или выполнение операций ввода/вывода.
  3. MOV AH,4Ch — Эта команда перемещает значение 4Ch (что эквивалентно десятичному числу 72) в регистр AH. Регистр AH обычно используется в кодах прерываний для передачи информации в BIOS.
  4. INT 21h — Это еще одна команда прерывания, которая передает управление компьютеру для обработки функции, связанной с номером прерывания 21h. В IBM PC и совместимых системах номер прерывания 21h обычно используется для обращения к BIOS, чтобы выполнить действия, такие как загрузка операционной системы или выполнение операций ввода/вывода. Код, представленный здесь, является простым примером и не выполняет какую-либо конкретную задачу. Он состоит из четырех команд:
    • XOR AX,AX — выход из программы
    • INT 16h — передача управления BIOS
    • MOV AH,4Ch — передача значения 72 в регистр AH
    • INT 21h — передача управления BIOS

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.333 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут