Определить парность цифр двухзначного числа

@Yngvin · Регистрация: 20.01.2011

Студворк — интернет-сервис помощи студентам

Помогите, не знаю что уже делать, дебагер выдаёт деление на ноль, перепробовал всё что знал
(Где комменты - было дано учителем)

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
sseg     segment  stack 'stack'                            ; Завдання сегмента стека
           db 128 dup(?)                           ; Поле для стека розміром 128 байт
sseg     ends                                              ; Кінець сегмента стека
;-------------------- Поля даних ---------------------------------------
dseg     segment 'data'                                    ; Завдання сегмента даних
   text1e   db   'first - even, '
   text1o   db   'first - odd, '
   text2e   db   'second - even' 
   text2o   db   'second - odd ' 
   A       dw    58d
   T     dw    10d
   G     dw    2d
   TEMP  dw    ?
                              
   REZ   db    ?                               
dseg     ends                                              ; Кінець сегмента даних
 
;------------------------------------ Текст   програми -----------------------------------
cseg     segment 'code'                                  ; Завдання сегмента команд
            assume  cs:cseg, ds:dseg, ss:sseg    ;Встановлення відповідності між cегментними 
                            ; регістрами (cs,ds,ss) і програмними сегментами (cseg,dseg,sseg)
  start proc far                              ;Початок процедури start (Точка входу - start)
          mov   ax, dseg                      ;Ініціалізація сегментного регістра ds на
          mov   ds, ax                        ; програмний сегмент даних dseg
;----------------------------------------------------------------------------------------------------------------------------------------------------------------------
;     m1:  lea   dx, text1         ; Завантажування  у  регістр  dx із сегмента даних адреси 
;                                    ; першого  байта  текста  text1
;          call  WrStr          ; Завернення до процедури WrStr виведення на екран текста text1
;          mov   dx, offset text2 ; Завантажування  у  регістр  dx із сегмента даних адреси
;                                     ; першого  байта  текста  text2
;          call  WrStr          ; Завернення до процедури WrStr виведення на екран текста text2
;------------------------- ----------------------------------------------------------------------------------------------------------------------------------------------
;------------------------- ----------------------------------------------------------------------------------------------------------------------------------------------
     m2:            mov ax, A
            mov bx, T
            idiv bx
            ;idiv T
            cwd
            mov TEMP, dx
            mov bx, G
            div bx
            ;idiv G
            cmp dx, 0
            je firstEven
    elseone:    cmp dx, 1
            je firstOdd
            
    iftwo:      mov ax, TEMP
            div bx
            ;div G
            cmp dx, 0
            je secondEven
 
    elsetwo:    cmp dx, 1
            je secondOdd
    
    firstEven:  mov dx, offset text1e
            call WrStr
            jmp elseone
 
    firstOdd:   mov dx, offset text1o
            call WrStr
            jmp iftwo
 
    secondEven: 
                        mov dx, offset text2e
            call WrStr
            jmp m3
 
    secondOdd:
                    mov dx, offset text2o
            call WrStr
            jmp m3
            
;    textOut: mov   REZ, al                       ; rez:=al
;------------------------- -----------------------------------------------------------------------------------------------------------------------------------------------
;       mov   dl, al              ; dl:=al
;          add   dl, 30h             ;Перетворення результату в ASCII- код 
;          mov   ah, 02h             ; і  виведення його на екран  з використанням функції  02,  
  m3:        int   21h                 ;  ініційованною перериванням  int 21h
;---------------------------------------------------------------------------------------------------------- --------------------------------------------------------------
     m4:  mov   ah, 4Ch             ;Функція завершення програми
          int   21h                 ;Переривання MS-DOS
  start  endp                       ; Кінець   процедури   start
; ********************************************************************************************************************************************************************
  WrStr  proc near                             ; Початок процедури (підпрограми) WrStr
          mov   ah,09h                    ;виведення на екран рядка символів, обмежених
          int   21h                       ; символом $ або кодом 24h
          ret                                  ; Повернення з процедури
  WrStr  endp                                  ; Кінець  процедури (підпрограми)  WrStr
; *********************************************************************************************************************************************************************
cseg     ends                                  ; Kінець сегмента команд
         end   start

@Troll_Face · 11.11.2012, 17:03

dx перед делением обнулите

@Yngvin · 11.11.2012, 17:04 **[ТС]**

уже пофиксил, выпадает на

Assembler
1
2
3
firstEven:  mov dx, offset text1e
            call WrStr
            >>>jmp elseone

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Troll_Face 608 / 406 / 8 Регистрация: 26.04.2012 Сообщений: 2,065
	11.11.2012, 17:03
	dx перед делением обнулите 0