_RUNDUDE.ASM

@_DedSec · Регистрация: 12.12.2016

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

Всем привет! Нужна помощь с программой!

Она запускается и сразу же вылетает. Естественно, я как ламер где-то наделал ошибок, НО ГДЕ?! Вот код программы:
P.S.: И да, это тестовая версия программы, "чувак" пока может бегать только вверх и вниз

Assembler

TITLE       RUNDUDE_by_DedSec
;------------------------------------------------------
.model      small
.stack      100h
.386
 
V_MOD = 0Dh
;------------------------------------------------------
.data
saveMode    db     ?
currX       dw     100
currY       dw     100
color       db     1
;------------------------------------------------------
.code
            mov    ax, @data
            mov    ds, ax
MAIN        proc   near
            mov    ah, 0
            mov    al, V_MOD
            int    10h
            call   VID_REST
            mov    ah, 0Ch
            mov    al, color
            mov    bh, 0
            mov    cx, currX
            mov    dx, currY
            int    10h
            call   KEY_LIST         
MAIN        endp            
VID_REST    proc   near
            mov    saveMode, al
            ret
VID_REST    endp
KEY_LIST    proc   near
            mov    ah, 10h
            int    16h
            cmp    ah, 50h
            je     K10
            cmp    ah, 48h
            je     K20
            cmp    al, 1Bh
            je     EXT
K10:
            dec    currY
            call   MAIN
K20:
            inc    currY
            call   MAIN
EXT:
            mov    ax, 4c00h
            int    21h
KEY_LIST    endp
end         MAIN

ФедосеевПавел · 15.07.2017, 23:28

Вы на каком-нибудь языке программирования уже программировали?
Вопрос потому - что в программе перемешан код основной процедуры и подпрограмм. Эта необычная структура никогда не будет работать.

@_DedSec · 15.07.2017, 23:31 **[ТС]**

Учу TASM. Сначала писал программы под DOS, а теперь решил попробовать написать под Win. Судя по всему не получилось

ФедосеевПавел · 15.07.2017, 23:33

Но перед этим учили BASIC/Pascal/C ?

Структура программы не вызывала трудностей? В данном случае речь о взаимном расположении в исходнике основной программы и подпрограмм.

@_DedSec · 15.07.2017, 23:41 **[ТС]**

Да, перед этим учил Basic (писал игры под ZX Spectrum), потом QBasic. Сама структура программы трудностей не вызвала. Это модификация (жаль, что нерабочая

) моей предыдущей программы. Она была "с этим же умыслом", но попроще. Вместо пикселя в консоли рисовался символ, вызывалась процедура "обработчика клавиш", в зависимости от нажатой клавиши менялись значения строки или столбца, "затирался экран" от cx, 0000 до ~184Fh, и снова рисовался символ, НО уже с новыми координатами.

ФедосеевПавел · 15.07.2017, 23:58

Ну какая разница в названии языка.
Вы смешиваете код основной программы и процедур.
К примеру, возьму код из Задача про преломление лучей на qbasic

PureBasic

DECLARE FUNCTION ARCSIN! (x!)
 
CLS
CONST pi = 3.141593
CONST k = pi / 180
 
INPUT "A = "; a
INPUT "N = "; n
 
sinG = SIN(k * a) / n
g = ARCSIN(sinG)
 
SCREEN 11
WINDOW (-40, 30)-(40, -30)
 
yA = 30
xA = -30 * TAN(k * a)
yB = -30
xB = 30 * TAN(g)
 
LINE (-40, 0)-(40, 0)
LINE (0, 0)-(xA, yA)
LINE (0, 0)-(xB, yB)
END
 
FUNCTION ARCSIN (x)
   IF ABS(x) = 1 THEN
      ARCSIN = SGN(x) * pi / 2
   ELSE
      ARCSIN = ATN(x / SQR(1 - x ^ 2))
   END IF
END FUNCTION

Вы его умудряетесь записать

PureBasic

DECLARE FUNCTION ARCSIN! (x!)
 
CLS
CONST pi = 3.141593
CONST k = pi / 180
 
INPUT "A = "; a
INPUT "N = "; n
 
sinG = SIN(k * a) / n
g = ARCSIN(sinG)
 
SCREEN 11
WINDOW (-40, 30)-(40, -30)
 
yA = 30
xA = -30 * TAN(k * a)
yB = -30
xB = 30 * TAN(g)
FUNCTION ARCSIN (x)
   IF ABS(x) = 1 THEN
      ARCSIN = SGN(x) * pi / 2
   ELSE
      ARCSIN = ATN(x / SQR(1 - x ^ 2))
   END IF
END FUNCTION 
LINE (-40, 0)-(40, 0)
LINE (0, 0)-(xA, yA)
LINE (0, 0)-(xB, yB)
END

Но ассемблер - это такой же язык программирования, с теми же принципами, что и BASIC.

Добавлено через 3 минуты
О структуре asm программ для DOS - https://www.cyberforum.ru/asm-... ost9602973

Надеюсь, понятно пояснил.

@_DedSec · 16.07.2017, 00:00 **[ТС]**

Вот блин. Теперь понятно) Спасибо

ФедосеевПавел Модератор 8477 / 4335 / 1643 Регистрация: 01.02.2015 Сообщений: 13,462 Записей в блоге: 8
	15.07.2017, 23:28	2
	Вы на каком-нибудь языке программирования уже программировали? Вопрос потому - что в программе перемешан код основной процедуры и подпрограмм. Эта необычная структура никогда не будет работать. 0

@_DedSec sudo rm -rf /* 0 / 0 / 1 Регистрация: 12.12.2016 Сообщений: 17
	15.07.2017, 23:31 [ТС]	3
	Учу TASM. Сначала писал программы под DOS, а теперь решил попробовать написать под Win. Судя по всему не получилось 0

ФедосеевПавел Модератор 8477 / 4335 / 1643 Регистрация: 01.02.2015 Сообщений: 13,462 Записей в блоге: 8
	15.07.2017, 23:33	4
	Но перед этим учили BASIC/Pascal/C ? Структура программы не вызывала трудностей? В данном случае речь о взаимном расположении в исходнике основной программы и подпрограмм. 0

@_DedSec sudo rm -rf /* 0 / 0 / 1 Регистрация: 12.12.2016 Сообщений: 17
	15.07.2017, 23:41 [ТС]	5
	Да, перед этим учил Basic (писал игры под ZX Spectrum), потом QBasic. Сама структура программы трудностей не вызвала. Это модификация (жаль, что нерабочая) моей предыдущей программы. Она была "с этим же умыслом", но попроще. Вместо пикселя в консоли рисовался символ, вызывалась процедура "обработчика клавиш", в зависимости от нажатой клавиши менялись значения строки или столбца, "затирался экран" от cx, 0000 до ~184Fh, и снова рисовался символ, НО уже с новыми координатами. 0

@_DedSec sudo rm -rf /* 0 / 0 / 1 Регистрация: 12.12.2016 Сообщений: 17
	16.07.2017, 00:00 [ТС]	7
	Вот блин. Теперь понятно) Спасибо 0