TSR программа - подобие пинг-понга
25.02.2018, 22:52. Показов 2230. Ответов 3
Написать TSR-программу, реализующую следующую игру. Из случайного места в центре экрана вылетает шарик (буква О, можно все делать в псевдографике) и движется в случайном направлении. Шарик отражается от верхней, левой и правой границы экрана. Пользователь управляет ракеткой (несколько горизонтальных символов тире или равно, ширина ракетки задается при запуске программы). Если пользователь успел подставить ракетку, то шарик отражается по законам физики (угол падения = углу отражения), если пропустил, тог гол. Ракетка управляется стрелками влево, вправо. Скорость движения шарика задается в обработчике 1Ch. Обработка клавиш через 09h. TASM
Ракетка есть (@Catstail), также есть отдельный кусок полёта элемента на экране.
| 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
.CODE
ORG 100h
Start:
jmp main
;организация данных перед кодом
PtrS dw 160*24
Place db " "
Attan db '==========='
i db 0
k db 0
s db 23
;отсюда начинается код программы
main:
; rnd1 proc
; push dx
; mov ax, Seed
; add ax, 7
; mov dx, 13
; mul dx
; mov Seed, ax
; pop dx
; ret
; rnd1 endp
video:
mov ah,06h ;ф-ция инициализации окна
mov al,0 ;не прокручивать
mov bh,70h ;бирюзовый фон
mov ch,0 ;у-левый верхний
mov cl,0 ;х-левый верхний
mov dh,24 ;у-правый нижний
mov dl,79 ;х-правый нижний
int 10h
;------------------------------
;begin-------------------------
mov ax,0B800h
mov es,ax
@main:
call saveScr
call PutStr
@Ink:
xor ax,ax
int 16h
cmp al,27
je @Stop
; cmp ah,48h
; je @Up
; cmp ah,50h
; je @Down
cmp ah,4bh
je @Left
cmp ah,4dh
je @Right
jmp @Ink
@Up:
call RestScr
mov ax,PtrS
sub ax,160
jl @main
mov PtrS,ax
jmp @main
@Down:
call RestScr
mov ax,PtrS
add ax,160
cmp ax,4000
jg @main
mov PtrS,ax
jmp @main
@Left:
call RestScr
mov ax,PtrS
sub ax,2
mov PtrS,ax
jmp @main
@Right:
call RestScr
mov ax,PtrS
add ax,2
mov PtrS,ax
jmp @main
@Stop:
int 20h
SaveScr:
push ax
push cx
push di
push si
mov cx,18
lea si,Place
mov di,PtrS
@0:
mov al,es:[di]
mov ds:[si],al
inc si
inc di
loop @0
pop si
pop di
pop cx
pop ax
ret
RestScr:
push ax
push cx
push di
push si
mov cx,18
lea si,Place
mov di,PtrS
@1:
mov al,ds:[si]
mov es:[di],al
inc si
inc di
loop @1
pop si
pop di
pop cx
pop ax
ret
PutStr:
push ax
push cx
push di
push si
mov cx,9
lea si,Attan
mov di,PtrS
@2:
mov al,ds:[si]
mov es:[di],al
inc si
inc di
mov es:[di],byte ptr 3Eh
inc di
loop @2
pop si
pop di
pop cx
pop ax
ret
;эпилог
int 20h ; Выход
END Start |
|
Хромой "полёт" элемента
| 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
| .MODEL Tiny
.CODE
ORG 100h
Start:
jmp main
;организация данных перед кодом
i db 0
k db 0
s db 23
;отсюда начинается код программы
main:
; rnd1 proc
; push dx
; mov ax, Seed
; add ax, 7
; mov dx, 13
; mul dx
; mov Seed, ax
; pop dx
; ret
; rnd1 endp
video:
mov ah,06h ;ф-ция инициализации окна
mov al,0 ;не прокручивать
mov bh,70h ;бирюзовый фон
mov ch,0 ;у-левый верхний
mov cl,0 ;х-левый верхний
mov dh,24 ;у-правый нижний
mov dl,79 ;х-правый нижний
int 10h
;------------------------------
; ; Задаем начальный символ * с координатами (1.1)
mov dh, 8
mov dl, 8 ; 1-я строка , 1-й столбец.
mov bh,0
mov ah,2
int 10h
mov ah,9 ; вывод символа
mov bh,0 ; видеостраница 0
mov bl,00010111b ; черным по белому
mov al,'O'
mov cx,1 ; Количество символов(в нашем случае 1)
int 10h
; ; Цикл задержки
mov bx,003ffh; Цикл задержки
m100:
mov cx,003ffh
m200:
loop m200
dec bx
jnz m100
; Стирает символ
mov dh, dh
mov dl, dl ; 1-я строка , 1-й столбец.
mov bh,0
mov ah,2
int 10h
mov ah,9 ; вывод символа
mov bh,0 ; видеостраница 0
mov bl,01110111b ; черным по белому
mov al,' '
mov cx,1 ; Количество символов(в нашем случае 1)
int 10h
m1:
cmp dh,23
jz m2
m5:
inc dh
inc i
cmp dl,79
jz m3
inc dl
inc k
;Рисует символ
mov dh, dh
mov dl, dl ; 1-я строка , 1-й столбец.
mov bh,0
mov ah,2
int 10h
mov ah,9 ; вывод символа
mov bh,0 ; видеостраница 0
mov bl,00010111b ; черным по белому
mov al,'O'
mov cx,1 ; Количество символов(в нашем случае 1)
int 10h
; Цикл задержки
mov bx,003ffh; Цикл задержки
m101:
mov cx,003ffh
m201:
loop m200
dec bx
jnz m100
; Стирает символ
mov dh, dh
mov dl, dl ; 1-я строка , 1-й столбец.
mov bh,0
mov ah,2
int 10h
mov ah,9 ; вывод символа
mov bh,0 ; видеостраница 0
mov bl,01000111b ; черным по белому
mov al,' '
mov cx,1 ; Количество символов(в нашем случае 1)
int 10h
cmp k,78
jz m4
cmp i,22
jnz m5
;Выход из программы, нажатием клавиши Esc
mov ah,7
int 21h
cmp al,1bh ; сравнение полученного кода с кодом esc (при нажатии - выход из программы)
je m99
jmp m1
;mov ah,7
;int 21h
m2:
m3:
m4:
m99:
mov ah,4ch ; выход в NORTON
int 21h
;эпилог
int 20h ; Выход
END Start |
|
0
|
(
Сообщение от GazzaRhino
