-
-
Notifications
You must be signed in to change notification settings - Fork 0
/
b2plasma.asm
205 lines (177 loc) · 4.1 KB
/
b2plasma.asm
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
; boot2plasma
include '80386.inc'
include '80387.inc'
use16
org 0x7C00
spd1 equ 1
spd2 equ 2
spd3 equ 3
spd4 equ 4
RED equ 0
GREEN equ 1
BLUE equ 2
color1 equ GREEN
color2 equ BLUE
entrypoint:
push cs
pop ds
push cs
pop es
xor bx, bx
; palette computation
mov ax, 0x3F00
mov di, pal1
mov cx, 768 * 3
rep stosb ; in DI rests offset of waves
pal_loop:
mov [bx + pal1 + RED + 0 * 3], al
mov [bx + pal1 + RED + 64 * 3], ah
mov [bx + pal1 + GREEN + 128 * 3], al
mov [bx + pal1 + GREEN + 192 * 3], ah
mov [bx + pal2 + GREEN + 0 * 3], al
mov [bx + pal2 + GREEN + 64 * 3], ah
mov [bx + pal2 + BLUE + 128 * 3], al
mov [bx + pal2 + BLUE + 192 * 3], ah
mov [bx + pal3 + BLUE + 0 * 3], al
mov [bx + pal3 + BLUE + 64 * 3], ah
mov [bx + pal3 + RED + 128 * 3], al
mov [bx + pal3 + RED + 192 * 3], ah
dec ah
inc al
add bx, 3
cmp bx, 64 * 3
jl pal_loop
; waves computation
mov cx, 0x100 ; array size of 0x100
finit ; coprocessor init
wave_loop:
fld dword [konst]
fimul word [x] ; st0<-st0*x x*(pi/128)
fsin ; st0<-sin(x*pi/128) sin(x*pi/128)
fstp st1
fld1 ; st0<-1!
fadd st0, st1 ; st0<-st0+st1 1+sin(x*pi/128)
fimul word [THIRTY] ; st0<-st0*30 30*(1+sin(x*pi/128))
; st0<-result before conversion
; and store to memory
fistp word [di]
inc di
inc word [x]
loop wave_loop
; vga init
mov ax, 0x13
int 0x10 ; VGA mode 320x200, 8 bits per pixel
; tweek vga mode
cli
mov dx, 0x3C4 ; reprogram vga to adjust size to 80x50
mov ax, 0x604
out dx, ax
mov ax, 0xF02
out dx, ax
add dx, 0x10 ; 0x3C4 + 0x10
mov ax, 0x14
out dx, ax
mov ax, 0xE317
out dx, ax
mov al, 9
out dx, al
inc dx
in al, dx
and al, 0xE0
add al, 7
out dx, al
sti
mov cx, 0x100
mov dx, pal1
call set_palette
push word 0xA000
pop es
waitvr: mov dx, 0x3DA
w1: in al, dx
and al, 8
jnz w1
w2: in al, dx
and al, 8
jz w2
xor bp, bp
mov ax, [pos1]
mov [tpos1], ax
mov ch, 0x32
for_y: mov ax, [pos3]
mov [tpos3], ax
mov cl, 0x50
for_x: mov si, tpos1
mov bx, waves
mov ah, 0
mov dl, 4
s1: lodsb
xlatb
add ah, al
dec dl
jnz s1
mov [es:bp], ah
inc bp
inc byte [tpos3]
add byte [tpos4], 3
dec cl
jnz for_x
add byte [tpos1], 2
inc byte [tpos2]
dec ch
jnz for_y
add byte [pos1], spd1
sub byte [pos2], spd2
add byte [pos3], spd3
sub byte [pos4], spd4
in al, 0x60
dec al
jnz waitvr
push cx
push dx
mov dx, [pal_offset]
add dx, 768
cmp dx, pal3
jng next_pal
mov dx, pal1 ; reset offset
next_pal:
mov [pal_offset], dx
mov cx, 0x100
call set_palette
pop dx
pop cx
jmp waitvr
set_palette: ; cx = colors, es:dx = palette address offset
push es
push ax
push bx
push cs
pop es
mov ax, 0x1012
xor bx, bx
int 0x10 ; use bios service call to set the palette
pop bx
pop ax
pop es
ret
; the end of code section
pos1: db 0
pos2: db 0
pos3: db 0
pos4: db 0
pal_offset:
dw pal1
; pi = 355 ⁄ 113
konst: dd 355.0 / 113 / 128 ; pi / 128
THIRTY: dw 30
x: dw 0
rb 0x7C00 + 0x200 - 2 - $
db 0x55, 0xAA
; the end of boot sector
tpos1: rb 1
tpos2: rb 1
tpos3: rb 1
tpos4: rb 1
pal1: rb 768
pal2: rb 768
pal3: rb 768
waves: rb 256