Команды STOS

Тема в разделе "WASM.BEGINNERS", создана пользователем yokohama, 11 дек 2011.

  1. yokohama

    yokohama New Member

    Публикаций:
    0
    Регистрация:
    3 ноя 2011
    Сообщения:
    13
    Помогите исправить, Нужно чтобы при нажатии в меню выполнялась команда STOS и результат выводился на экран.

    Код (Text):
    1. .model small
    2. .data
    3. ms1 db 'Menu:',"$"
    4. ms2 db 'STOS            -1',"$"
    5. ms3 db 'STOSB           -2',"$"
    6. ms4 db 'STOSW           -3',"$"
    7. ms5 db 'STOSD           -4',"$"
    8. ms6 db 'Exit           - Enter',"$"
    9. stack 256
    10. cr equ 0dh
    11. string1 db 'asdfdsdfsfaaaa',"$"
    12. string2 db '',"$"
    13. .code
    14. assume ds:@data,es:@data
    15. begin:
    16. mov ax,@data
    17. mov ds,ax
    18. mov es,ax
    19. ;--------------------------------
    20. ;-----
    21. mov ax,0600h
    22. mov bh,07
    23. mov cx,0000
    24. mov dx,184Fh
    25. int 10h
    26. ;--------------------------------
    27. mov ax,0600h
    28. mov bh,67
    29. mov cx,050Fh
    30. mov dx,1340h
    31. int 10h
    32. ;----------------Meny----------------
    33. mov ah,02
    34. mov bh,00
    35. mov dh,06
    36. mov dl,25h
    37. int 10h
    38. mov ah,09
    39. lea dx,ms1
    40. int 21h
    41. ;------------------MS2--------------
    42. mov ah,02
    43. mov bh,00
    44. mov dh,08
    45. mov dl,15h
    46. int 10h
    47. mov ah,09
    48. lea dx,ms2
    49. int 21h
    50. ;-------------------MS3-------------
    51. mov ah,02
    52. mov bh,00
    53. mov dh,0Ah
    54. mov dl,15h
    55. int 10h
    56. mov ah,09
    57. lea dx,ms3
    58. int 21h
    59. ;-------------------MS4-------------
    60. mov ah,02
    61. mov bh,00
    62. mov dh,12
    63. mov dl,15h
    64. int 10h
    65. mov ah,09
    66. lea dx,ms4
    67. int 21h
    68. ;-------------------MS5-------------
    69. mov ah,02
    70. mov bh,00
    71. mov dh,14
    72. mov dl,15h
    73. int 10h
    74. mov ah,09
    75. lea dx,ms5
    76. int 21h
    77. ;-----------------MS6---------------
    78. mov ah,02
    79. mov bh,00
    80. mov dh,12h
    81. mov dl,15h
    82. int 10h
    83. mov ah,09
    84. lea dx,ms6
    85. int 21h
    86.  
    87. mov ah,10h
    88. int 16h
    89. cmp ah,02
    90. je A10
    91. cmp ah,03
    92. je A20
    93. cmp ah,04
    94. je A30
    95. cmp ah,05
    96. je A40
    97. cmp ah,0dh
    98. je A90
    99. ;---------
    100. a10:
    101. mov ah,string1
    102. int 21h
    103. stos string2
    104. mov ah,09h
    105. lea dx,string2
    106. int 21h
    107. jmp exit
    108. a20:
    109. cld
    110. mov ah,string1
    111. int 21h
    112. stosb string2
    113. mov ah,09h
    114. lea dx,string2
    115. int 21h
    116. jmp exit
    117. ;---------
    118. a30:
    119. mov ah,string1
    120. int 21h
    121. stosw string2
    122. mov ah,09h
    123. lea dx,string2
    124. int 21h
    125. jmp exit
    126. ;---------
    127. a40:
    128. mov ah,string1
    129. int 21h
    130. stosd string2
    131. mov ah,09h
    132. lea dx,string2
    133. int 21h
    134. jmp exit
    135. a90: mov ah,09h
    136. lea dx,ms6
    137. int 21h
    138. exit: mov ax,4c00h
    139. int 21h
    140. end begin
     
  2. yokohama

    yokohama New Member

    Публикаций:
    0
    Регистрация:
    3 ноя 2011
    Сообщения:
    13
    Или посмотреть ответ в дебагере.
    Кто сделает за вознаграждение?
     
  3. valterg

    valterg Active Member

    Публикаций:
    0
    Регистрация:
    19 авг 2004
    Сообщения:
    2.105
    Это в WASM.COMMERCE
     
  4. wsd

    wsd New Member

    Публикаций:
    0
    Регистрация:
    8 авг 2007
    Сообщения:
    2.824
    valterg
    нет, надо открыть ветку "зделай за 1 бакс"