TSR: При нажатии горячей клавиши появляется прямоугольник, который бегает наискосок и отскакивает от краев экрана

@NOTBAD · Регистрация: 14.04.2012

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

Помогите пожалуйста сделать прогу!
TSR программма .При нажатии горячей клавиши появляется прямоугольник, который бегает наискосок и отскакивает от краев экрана. Это происходит до тех пор, пока не будет нажата горячая клавиша.

@programmisto · 04.05.2012, 06:26

Размер какой прямоугольника. И угол и формулы отскока какие?

@Mikl___ · 04.05.2012, 07:25

Сообщение от programmisto

Размер какой прямоугольника. И угол и формулы отскока какие?

Вероятно, что цвет и размер NOTBAD оставил на твой выбор, а формула "угол падения равен углу отражения" или в школе ее не проходят?

@programmisto · 04.05.2012, 08:01

А... забыл. То есть он будет двигаться все время под 45 градусов. Да?

@NOTBAD · 04.05.2012, 16:49 **[ТС]**

Размер прямоугольника не имеет значения(не на пол экрана канеш) как и цвет
И да, под углом 45 градусов

Charles Kludge · 04.05.2012, 22:42

Кхе... Решил вспомнить кое что... Вобщем, оптимизировать не стал, а то у ТС крыша съедет. Надеюсь, что обработчик int 15h/ah=4Fh ТС напишет сам.
И да, это FASM:

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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
include 'D:\FASM\INCLUDE\MACRO\struct.inc'
struct  b   
x   db  ?   ; X текущие координаты
y   db      ?       ; Y
c   db  ?       ; символ для отрисовки
a   db  ?       ; его аттрибут
_x  db      ?       ; приращение по X
_y      db  ?       ; приращение по Y
ox  db  ?       ; X предыдущие координаты
oy  db  ?       ; Y
oca dw  ?       ; сохранённый символ и аттр
ends
PSP_Cmd     =   80h     ; смещение до командной строки
PSP_Env     =   2Ch     ; смещение до сегмента окружения(environment)
mysign      =   0DEADC0DEh  ; сигнатура
        org 100h
start:      jmp main
sig:        dd  mysign
old_int1C:  dd  ?           ; старый вектор прерывания
heartbeat:  db  0           ; счетчик скважности вызова п/п вывода времени,
                        ; generated 18.2 times per second
_int1C:         pushf                       ; сохраняем флаги
        inc byte ptr cs:heartbeat
        cmp byte ptr cs:heartbeat, 1;18; 18 раз в секунду
        jz  @@1         ; да, выводим на экран
@@0:        popf                            ;
        jmp dword ptr cs:old_int1C  ; go back
@@1:        mov byte ptr cs:heartbeat, 0;
        pusha                           ;
        push    ds                      ;
        push    es                      ;
        push    fs
        call    sh_time                 ;
        pop fs
        pop es                      ;
        pop ds                      ;
        popa                            ;
        jmp     @@0                     ;
sh_time:    push    cs                      ;
        pop ds                      ;
        push    0B800h
        pop fs
draw:
        mov si, ballG
        call    ball
        mov si, ballR
        call    ball
        mov si, ballB
        call    ball
        mov si, ballY
        call    ball
        ret
; пришем напрямую в видеопамять
draw1:  
    movzx   eax, [si+b.ox]      ; ox
    movzx   edx, [si+b.oy]      ; oy
    lea edx, [edx*4+edx]    ; oy *5
    lea edx, [edx*2]        ; oy *10
    lea edx, [edx*8+eax]    ; oy*80+ox
    rol edx, 1          ; linear addr
    mov ax, [si+b.oca]
    mov [fs:edx],ax
    movzx   eax, [si+b.x]       ; x
    movzx   edx, [si+b.y]       ; y
    lea edx, [edx*4+edx]    ; y *5
    lea edx, [edx*2]        ; y *10
    lea edx, [edx*8+eax]    ; y*80+x  
    rol edx, 1          ; linear addr
    mov ax, [fs:edx]
    mov [si+b.oca],ax
    mov al,[si+b.c]
    mov ah,[si+b.a]
    mov [fs:edx],ax
 
        ret
 
; проверки на допустимость и изменениe координат символа
ball:   
    mov al,[si+b.x]     ; y
    mov [si+b.ox],al    ; oy
    add al, [si+b._x]   ; dy
    jz  @b0
    cmp al, 80  
    jb  @b1
@b0:    neg byte [si+b._x]  ; dy
@b1:    mov [si+b.x], al    ; y
;
    mov al,[si+b.y]     ; x
    mov [si+b.oy],al    ; ox
    add al, [si+b._y]   ; dx
    jz  @b2
    cmp al, 25  
    jb  @b3
@b2:    neg byte [si+b._y]  ; dx
@b3:    mov [si+b.y], al    ; x
    call    draw1
    ret
 
ballR:  b    0,  0, '*', 12, 2, 1, 0, 0
ballG:  b   10, 14, '*', 10, -1,2, 0, 0
ballB:  b   70, 10, '*', 11, -1,2, 0, 0
ballY:  b   40, 20, '*', 14, 1,-2,0, 0
 
main:           push    cs
        pop ds
; раскоментить для отладки рисовалки
;zz:    call    sh_time
;   xor ax,ax
;   int 16h
;   cmp ah,  1
;   jz  exit
;   jmp zz
 
                mov     ax, 351Ch               ; получить в ES:BX 
            int     21h                     ; адрес прерывания 1Сh
 
        cmp byte [cs:PSP_Cmd],0     ; есть командная строка?
        jnz remove                  ; да, выгружаемся
 
            mov     word ptr cs:old_int1C, bx   ; запомним старый адрес 
            mov     word ptr cs:old_int1C+2, es ; прерывания 1С
                mov     ax, 251Ch               ; установим вектор на 
            mov     dx, _int1C          ; прерывание 1C
            int     21h
; - закоментить для TSR
    xor ax,ax
    int 16h
    jmp gtfo    
; -
        push    word [cs:PSP_Env]   ; освобождаем Env segment
            pop es                      ;
            mov ah, 49h                 ;
            int 21h                     ;
            mov dx, main                ; смещение до последнего байта резидента
        shr dx, 4                   ; div 16. - в параграфах
        inc dx                      ; на всякий случай
        push    cs                      ; уменьшаем размер
        pop es                      ; сегмента кода, т.к.
        mov ah, 4ah                 ; int 21/ah=31
        mov bx,dx                   ; делает 
        int 21h                     ; это криво
        mov ax, 3100h               ; TERMINATE &
        int 21h         ; STAY RESIDENT
 
remove:         mov bx, sig                 ;
        mov eax, [es:bx]            ; получаем сигнатуру
        cmp eax, mysign             ; мы, и мы последние в цепочке прерываний?
        jnz exit                    ; нет, облом
gtfo:           mov     dx, word ptr es:old_int1C   ; возвращаем 
            mov     ds, word ptr es:old_int1C+2 ; вектор 
            mov     ax, 251Ch               ; прерывания
                int     21h                     ; на место
                mov ah, 49h                 ; освобождаем 
                int 21h                     ; сегмент резидента
exit:                                       ; выход
            int 20h

@NOTBAD · 04.05.2012, 23:03 **[ТС]**

А если я через tasm делую, то тут что поменять надо? Много?
Через fasm просто никогда ни что не делал

Charles Kludge · 04.05.2012, 23:41

NOTBAD, переделал, но у тасма свои понятия о коде.

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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
.model tiny
.386
.code
b   struc   
x   db  ?   ; X текущие координаты
y   db      ?       ; Y
c   db  ?       ; символ для отрисовки
a   db  ?       ; его аттрибут
_x  db      ?       ; приращение по X
_y      db  ?       ; приращение по Y
ox  db  ?       ; X предыдущие координаты
oy  db  ?       ; Y
oca dw  ?       ; сохранённый символ и аттр
b   ends
PSP_Cmd     =   80h     ; смещение до командной строки
PSP_Env     =   2Ch     ; смещение до сегмента окружения(environment)
mysign      =   0DEADC0DEh  ; сигнатура
        org 100h
start:      jmp main
sig:        dd  mysign
old_int1C:  dd  ?           ; старый вектор прерывания
heartbeat:  db  0           ; счетчик скважности вызова п/п вывода времени,
                        ; generated 18.2 times per second
_int1C:         pushf                       ; сохраняем флаги
        inc byte ptr cs:heartbeat
        cmp byte ptr cs:heartbeat, 1;18; 18 раз в секунду
        jz  @@1         ; да, выводим на экран
@@0:        popf                            ;
        jmp dword ptr cs:old_int1C  ; go back
@@1:        mov byte ptr cs:heartbeat, 0;
        pusha                           ;
        push    ds                      ;
        push    es                      ;
        push    fs
        call    sh_time                 ;
        pop fs
        pop es                      ;
        pop ds                      ;
        popa                            ;
        jmp     @@0                     ;
sh_time:    push    cs                      ;
        pop ds                      ;
        push    0B800h
        pop fs
draw:
        lea si, ballG
        call    ball
        lea si, ballR
        call    ball
        lea si, ballB
        call    ball
        lea si, ballY
        call    ball
        ret
; пришем напрямую в видеопамять
draw1:  
    movzx   eax, [si+b.ox]      ; ox
    movzx   edx, [si+b.oy]      ; oy
    lea edx, [edx*4+edx]    ; oy *5
    lea edx, [edx*2]        ; oy *10
    lea edx, [edx*8+eax]    ; oy*80+ox
    rol edx, 1          ; linear addr
    mov ax, [si+b.oca]
    mov fs:[edx],ax
    movzx   eax, [si+b.x]       ; x
    movzx   edx, [si+b.y]       ; y
    lea edx, [edx*4+edx]    ; y *5
    lea edx, [edx*2]        ; y *10
    lea edx, [edx*8+eax]    ; y*80+x  
    rol edx, 1          ; linear addr
    mov ax, fs:[edx]
    mov [si+b.oca],ax
    mov al,[si+b.c]
    mov ah,[si+b.a]
    mov fs:[edx],ax
 
        ret
 
; проверки на допустимость и изменениe координат символа
ball:   
    mov al,[si+b.x]     ; y
    mov [si+b.ox],al    ; oy
    add al, [si+b._x]   ; dy
    jz  @b0
    cmp al, 80  
    jb  @b1
@b0:    neg byte ptr [si+b._x]  ; dy
@b1:    mov [si+b.x], al    ; y
;
    mov al,[si+b.y]     ; x
    mov [si+b.oy],al    ; ox
    add al, [si+b._y]   ; dx
    jz  @b2
    cmp al, 25  
    jb  @b3
@b2:    neg byte ptr [si+b._y]  ; dx
@b3:    mov [si+b.y], al    ; x
    call    draw1
    ret
align   2
ballR:  b   < 0,  0, '*', 12, 2, 1, 0, 0 >
ballG:  b   <10, 14, '*', 10, -1,2, 0, 0  >
ballB:  b   <70, 10, '*', 11, -2,1, 0, 0  >
ballY:  b   <40, 20, '*', 14, 1,-2, 0, 0   >
 
main:           push    cs
        pop ds
; раскоментить для отладки рисовалки
;zz:    call    sh_time
;   xor ax,ax
;   int 16h
;   cmp ah,  1
;   jz  exit
;   jmp zz
 
                mov     ax, 351Ch               ; получить в ES:BX 
            int     21h                     ; адрес прерывания 1Сh
 
        cmp byte ptr cs:[PSP_Cmd],0     ; есть командная строка?
        jnz remove                  ; да, выгружаемся
 
            mov     word ptr cs:old_int1C, bx   ; запомним старый адрес 
            mov     word ptr cs:old_int1C+2, es ; прерывания 1С
                mov     ax, 251Ch               ; установим вектор на 
            mov     dx, offset _int1C           ; прерывание 1C
            int     21h
; - закоментить для TSR
    xor ax,ax
    int 16h
    jmp gtfo    
; -
        push    word ptr cs:[PSP_Env]   ; освобождаем Env segment
            pop es                      ;
            mov ah, 49h                 ;
            int 21h                     ;
            mov dx, offset main                ; смещение до последнего байта резидента
        shr dx, 4                   ; div 16. - в параграфах
        inc dx                      ; на всякий случай
        push    cs                      ; уменьшаем размер
        pop es                      ; сегмента кода, т.к.
        mov ah, 4ah                 ; int 21/ah=31
        mov bx,dx                   ; делает 
        int 21h                     ; это криво
        mov ax, 3100h               ; TERMINATE &
        int 21h         ; STAY RESIDENT
 
remove:         mov bx, offset sig                 ;
        mov eax, es:[bx]            ; получаем сигнатуру
        cmp eax, mysign             ; мы, и мы последние в цепочке прерываний?
        jnz exit                    ; нет, облом
gtfo:           mov     dx, word ptr es:old_int1C   ; возвращаем 
            mov     ds, word ptr es:old_int1C+2 ; вектор 
            mov     ax, 251Ch               ; прерывания
                int     21h                     ; на место
                mov ah, 49h                 ; освобождаем 
                int 21h                     ; сегмент резидента
exit:                                       ; выход
            int 20h
end start

@NOTBAD · 05.05.2012, 13:01 **[ТС]**

Charles Kludge, спасибо, однако тут чё-то 18 ошибок.
"need right square bracket" все такого типа

Charles Kludge · 05.05.2012, 13:24

Хм. Ошибки, командную строку и версию тасма в студию.

@programmisto · 05.05.2012, 13:48

NOTBAD, ты что. Не проходил адресацию? ТАСМ тебе говорит, что нужны квадратные скобки. Забыл что-ли, что если адресуешь при помощи регистра смещение, нужны квадратные скобки?

@NOTBAD · 05.05.2012, 15:03 **[ТС]**

Charles Kludge я использую DOSBox-0.73 как командную строку
ну и tasm с tlink внизу в архиве лежат

@NOTBAD · 05.05.2012, 15:16 **[ТС]**

programmisto что со скобками, что без них - одна и та же ошибка

Charles Kludge · 05.05.2012, 15:17

Сообщение от NOTBAD

ну и tasm с tlink

Ужас! Качайте "посвежее" отсюда и всё должно пойти.

@NOTBAD · 05.05.2012, 15:27 **[ТС]**

Charles Kludge а он второй диск требует. я должен DISK2.DSK перетащить чтоли в окно установщика?

Charles Kludge · 05.05.2012, 15:30

NOTBAD, а я знаю? Я всегда сливал всё файлы в один каталог, а уже потом пускал инсталляху.

@NOTBAD · 05.05.2012, 15:51 **[ТС]**

Charles Kludge а не подскажешь, какая здесь горячая клавиша?
а то у меня уже в глазах мельтишит

@Mikl___ · 10.05.2012, 03:29

Сообщение от NOTBAD

а то у меня уже в глазах мельтишит

Так это в поликлинику нужно, а не на форум

@Искандар · 10.05.2012, 08:09

Charles Kludge, ты стек забыл влепить, а пуш'аешь в него

Charles Kludge · 10.05.2012, 10:31

Искандар, Это ж .com-прога. Единственное, можно, конечно, pushad/popad вместо pusha/popa воткнуть....

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

@NOTBAD 0 / 0 / 0 Регистрация: 14.04.2012 Сообщений: 27

	FASM TSR: При нажатии горячей клавиши появляется прямоугольник, который бегает наискосок и отскакивает от краев экрана 03.05.2012, 19:27. Показов 6381. Ответов 46 Метки нет (Все метки) Помогите пожалуйста сделать прогу! TSR программма .При нажатии горячей клавиши появляется прямоугольник, который бегает наискосок и отскакивает от краев экрана. Это происходит до тех пор, пока не будет нажата горячая клавиша. 0

@programmisto 116 / 136 / 0 Регистрация: 15.04.2012 Сообщений: 1,031
	04.05.2012, 06:26
	Размер какой прямоугольника. И угол и формулы отскока какие? 0

@programmisto 116 / 136 / 0 Регистрация: 15.04.2012 Сообщений: 1,031
	04.05.2012, 08:01
	А... забыл. То есть он будет двигаться все время под 45 градусов. Да? 0

@NOTBAD 0 / 0 / 0 Регистрация: 14.04.2012 Сообщений: 27
	04.05.2012, 16:49 [ТС]
	Размер прямоугольника не имеет значения(не на пол экрана канеш) как и цвет И да, под углом 45 градусов 0

@NOTBAD 0 / 0 / 0 Регистрация: 14.04.2012 Сообщений: 27
	04.05.2012, 23:03 [ТС]
	А если я через tasm делую, то тут что поменять надо? Много? Через fasm просто никогда ни что не делал 0

@NOTBAD 0 / 0 / 0 Регистрация: 14.04.2012 Сообщений: 27
	05.05.2012, 13:01 [ТС]
	Charles Kludge, спасибо, однако тут чё-то 18 ошибок. "need right square bracket" все такого типа 0

Charles Kludge Клюг 7677 / 3192 / 382 Регистрация: 03.05.2011 Сообщений: 8,380
	05.05.2012, 13:24
	Хм. Ошибки, командную строку и версию тасма в студию. 0

@programmisto 116 / 136 / 0 Регистрация: 15.04.2012 Сообщений: 1,031
	05.05.2012, 13:48
	NOTBAD, ты что. Не проходил адресацию? ТАСМ тебе говорит, что нужны квадратные скобки. Забыл что-ли, что если адресуешь при помощи регистра смещение, нужны квадратные скобки? 0

@NOTBAD 0 / 0 / 0 Регистрация: 14.04.2012 Сообщений: 27
	05.05.2012, 15:16 [ТС]
	programmisto что со скобками, что без них - одна и та же ошибка 0

@NOTBAD 0 / 0 / 0 Регистрация: 14.04.2012 Сообщений: 27
	05.05.2012, 15:27 [ТС]
	Charles Kludge а он второй диск требует. я должен DISK2.DSK перетащить чтоли в окно установщика? 0

Charles Kludge Клюг 7677 / 3192 / 382 Регистрация: 03.05.2011 Сообщений: 8,380
	05.05.2012, 15:30
	NOTBAD, а я знаю? Я всегда сливал всё файлы в один каталог, а уже потом пускал инсталляху. 0

@NOTBAD 0 / 0 / 0 Регистрация: 14.04.2012 Сообщений: 27
	05.05.2012, 15:51 [ТС]
	Charles Kludge а не подскажешь, какая здесь горячая клавиша? а то у меня уже в глазах мельтишит 0

@Искандар Заблокирован
	10.05.2012, 08:09
	Charles Kludge, ты стек забыл влепить, а пуш'аешь в него 0

Charles Kludge Клюг 7677 / 3192 / 382 Регистрация: 03.05.2011 Сообщений: 8,380
	10.05.2012, 10:31
	Искандар, Это ж .com-прога. Единственное, можно, конечно, pushad/popad вместо pusha/popa воткнуть.... 0