Хранитель экрана(Screensaver)Реализация через драйвер

@Soulj_boy · Регистрация: 13.01.2010

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

Проверить правильность написания кода програмы.

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
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
.model tiny
.286
JUMPS
.code
org 100h
start: 
        mov ax,0013h
        int 10h
        in al,21h  - Отримуємо маску IRQ;                         
        mov [irqsaver],al – Зберігаємо її;                   
        mov al,11111101b                    
        out 21h,al – Набір нової маски IRQ;                    
        in  al,0a1h – Отримуємо маску NMI
        mov [nmisaver],al - Зберігаємо її;                  
        mov al,11111111b                    
        out 0a1h,al - Набір нової маски NMI; 
        mov dx,03c8h
        mov al,01h
        out dx,al
        xor al,al
        inc dx
        out dx,al
        out dx,al
        out dx,al
        push 0a000h
        pop es
        xor di,di
        mov ax,0101h
        mov cx,32000
        cld
        rep stosw
        push ds
        pop es
        mov bx,offset screenline
startscreen:
       cli – Не робити опрос клавіатури;                                   
       mov si,offset palette – Встановка вказівника;
       mov bp,01h – Цифрова частина = 1;                         
screensetup:
        push bp
        mov di,[bx]
          mov al,sintable[di] – Вища лінія полоси
        mov dx,03dah – Встановити на вході 1;            
VRetrace: 
        in al,dx
        test al,00001000b – Пер-ка 3-го біта; верт.          
          jnz VRetrace – Якщо актив. пов. назад;          
VNoRetrace:
        in al,dx
        test al,00001000b - Пер-ка 3-го біта; верт.         
        jz VNoRetrace - Якщо актив. пов. назад;              
paldump:
        mov al,01h
        mov dx,03c8h
        out dx,al
        inc dx
        outsb – Це з дампу;
        outsb
         mov dx,03dah 
puck1:
        in al,dx
        test al,00000001b
        jz puck1
        mov dx,03c9h
        outsb
        mov dx,03dah - Встановити на вході 1;               
HRetrace:      
        in al,dx
        test al,00000001b - Пер-ка 1-го біта      
        mov di,offset screenpal
        dec al – dec для 0-го індексного ел.;                            
        xor ah,ah – Очистити найбільший байт;                         
        mov cx,ax
        shl ax,1
        add ax,cx
        add di,ax
        add di,ax
        mov bp,offset screenpriority           
        add bp,cx – Набір до ячейки в пріорітеті;                          
        mov cx,[screenheight]
checkline:
;       cmp byte ptr [bp],00h – Чи пуста лінія?             
        jne nodrawline                      
          mov byte ptr [bp],01h – Тепер заповнена;
      movsw
        movsb
        sub si,3
        movsw
        movsb
        jmp nextpriority
nodrawline:
        add si,3 – Прирощення палітри;                          
           add di,6 – Прирощення палітри полоси;                           
nextpriority: 
        inc bp – Наступна пріорітетна лінія;             
       loop checkline
screenspot:
           add word ptr [bx],03h – Прир табл.. індексу;               
      cmp word ptr [bx],359 – Кінець таблиці?
        jle nextscreen
resetbarspot:
    mov word ptr [bx],00h – Зброс табл. індекс;
nextscreen:
       pop bp – Востановити цифрову частину;                         
        inc bx – Наступна адреса частини лінії;                          
        inc bx – + 2 к розміру слова;                         
        inc bp – Прирощ. частини лічильника;                         
       cmp bp,[screencount] – Макс. обл. індекса?                
         jle screensetup – Повернення назад;                     
        mov si,offset screenpal
        mov cx,400
 
      jnz HRetrace -  Якщо не актив. пов. назад;             
        loop paldump
        mov di,offset screenpriority
        mov cx,100 – 100 на розмір слова;                          
        xor ax,ax - AH = 0, AL = 0;                           
        rep stosw                          
        mov di,offset screenpal
        mov cx,600
        xor ax,ax
        rep stosw
        sub bx,[screencount]                  
        sub bx,[screencount]                  
        sti                
        mov ah,01h
        int 16h
        jnz exit
        jmp startscreen
exit:
         mov al,[irqsaver]                    
         out 021h,al                         
         mov al,[nmisaver]                    
         out 0a1h,al                         
         mov ax,0003h
         int 10h
         mov ax,4c00h
         int 21h
sintable        
       db      1,1,1,1,1,1,1,1,1,2,2,2
                db      3,3,3,4,4,5,5,6,6,7,7,8
                db      8,9,10,11,11,12,13,14,14,15,16,17
                db      18,19,20,21,22,23,24,25,26,27,29,30
                db      31,32,33,35,36,37,38,40,41,42,44,45
                db      46,48,49,51,52,54,55,57,58,60,61,63
                db      64,66,67,69,70,72,73,75,77,78,80,81
                db      83,84,86,88,89,91,93,94,96,97,99,101
                db      102,104,105,107,108,110,112,113,115,116,118,119
                db      121,122,124,125,127,128,130,131,133,134,136,137
                db      138,140,141,143,144,145,147,148,149,150,152,153
                db      154,155,156,158,159,160,161,162,163,164,165,166
                db      167,168,169,170,171,171,172,173,174,174,175,176
                db      177,177,178,178,179,179,180,180,181,181,182,182
                db      182,183,183,183,184,184,184,184,184,184,184,184         
                db      184,184,184,184,184,184,184,184,184,183,183,183
                db      182,182,182,181,181,180,180,179,179,178,178,177
                db      177,176,175,174,174,173,172,171,171,170,169,168
                db      167,166,165,164,163,162,161,160,159,158,156,155
                db      154,153,152,150,149,148,147,145,144,143,141,140
                db      139,137,136,134,133,131,130,128,127,125,124,122
                db      121,119,118,116,115,113,112,110,108,107,105,104
                db      102,101,99,97,96,94,93,91,89,88,86,84
                db      83,81,80,78,77,75,73,72,70,69,67,66
                db      64,63,61,60,58,57,55,54,52,51,49,48
                db      47,45,44,42,41,40,38,37,36,35,33,32
                db      31,30,29,27,26,25,24,23,22,21,20,19
                db      18,17,16,15,14,14,13,12,11,11,10,9
                db      8,8,7,7,6,6,5,5,4,4,3,3
                db      3,2,2,2,1,1,1,1,1,1,1,1                                 
 
palette         db       7, 7, 7                        
                db      10,10,10
                db      13,13,13
                db      16,16,16
                db      19,19,19
                db      22,22,22
                db      25,25,25
                db      28,28,28
                db      31,31,31                        
                db      28,28,28
                db      25,25,25
                db      22,22,22
                db      19,19,19
                db      16,16,16
                db      13,13,13
                db      10,10,10
                db       7, 7, 7                        
                db       7, 0, 0                        
                db      10, 0, 0
                db      13, 0, 0
                db      16, 0, 0
                db      19, 0, 0
                db      22, 0, 0
                db      25, 0, 0
                db      28, 0, 0
                db      31, 0, 0                       
                db      28, 0, 0
                db      25, 0, 0
                db      22, 0, 0
                db      19, 0, 0
                db      16, 0, 0
                db      13, 0, 0
                db      10, 0, 0
                db       7, 0, 0                       
                db       0, 7, 0                       
                db       0,10, 0
                db       0,13, 0
                db       0,16, 0
                db       0,19, 0
                db       0,22, 0
                db       0,25, 0
                db       0,28, 0
                db       0,31, 0                       
                db       0,28, 0
                db       0,25, 0
                db       0,22, 0
                db       0,19, 0
                db       0,16, 0
                db       0,13, 0
                db       0,10, 0
                db       0, 7, 0                       
                db       0, 0, 7                       
                db       0, 0,10
                db       0, 0,13
                db       0, 0,16
                db       0, 0,19
                db       0, 0,22
                db       0, 0,25
                db       0, 0,28
                db       0, 0,31                       
                db       0, 0,28
                db       0, 0,25
                db       0, 0,22
                db       0, 0,19
                db       0, 0,16
                db       0, 0,13
                db       0, 0,10
                db       0, 0, 7                       
                db       7, 7, 0                       
                db      10,10, 0
                db      13,13, 0
                db      16,16, 0
                db      19,19, 0
                db      22,22, 0
                db      25,25, 0
                db      28,28, 0
                db      31,31, 0                       
                db      28,28, 0
                db      25,25, 0
                db      22,22, 0
                db      19,19, 0
                db      16,16, 0
                db      13,13, 0
                db      10,10, 0
                db       7, 7, 0                        
                db       7, 0, 7                        
                db      10, 0,10
                db      13, 0,13
                db      16, 0,16
                db      19, 0,19
                db      22, 0,22
                db      25, 0,25
                db      28, 0,28
                db      31, 0,31                        
                db      28, 0,28
                db      25, 0,25
                db      22, 0,22
                db      19, 0,19
                db      16, 0,16
                db      13, 0,13
                db      10, 0,10
                db       7, 0, 7                        
                db       0, 7, 7                        
                db       0,10,10
                db       0,13,13
                db       0,16,16
                db       0,19,19
                db       0,22,22
                db       0,25,25
                db       0,28,28
                db       0,31,31                        
                db       0,28,28
                db       0,25,25
                db       0,22,22
                db       0,19,19
                db       0,16,16
                db       0,13,13
                db       0,10,10
                db       0, 7, 7                        
                db      18, 8, 1                        
                db      23,13, 5
                db      28,18, 9
                db      33,23,13
                db      38,28,17
                db      43,33,21
                db      48,38,25
                db      53,43,29
                db      58,48,33                 
                db      53,43,29
                db      48,38,25
                db      43,33,21
                db      38,28,17
                db      33,23,13
                db      28,18, 9
                db      23,13, 5
                db      18, 8, 1                 
 
screenline      dw      175,150,125,100,75,50,25,0
screenpriority  db      200 dup(0)
screenheight    dw      17
screencount     dw      8
screenpal       db      400*3 dup(0)
irqsaver        db      ?
nmisaver        db      ?
 
end     start

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .