WebSVN – Kolibri OS – Blame – /programs/demos/tube/trunk/tube.asm

Rev	Author	Line No.	Line
31	halyavin	1
		2	; �� loveC: thanks, Serzh: eat my socks dude ;] compile the
		3	; ( ) ( ) ( ) ( ) e-mail: baze@stonline.sk, web: www.3SC.sk source code
		4
		5
		6
		7
316	heavyiron	8
		9
31	halyavin	10	org 0x0
		11
		12
		13	dd 0x01
		14	dd START
		15	dd I_END
		16	dd 0x40000
		17	dd 0x40000
316	heavyiron	18	dd 0,0
31	halyavin	19
		20
		21
		22
		23
		24
		25
		26
		27
		28
		29
		30
		31
		32
		33
		34
		35
		36
		37
		38
		39	mov ebx,1
		40	int 0x40
		41
		42
		43	jne no_red
		44	call draw_window
		45	jmp still
		46	no_red:
		47
		48
		49	je still
		50
		51
316	heavyiron	52	int 0x40
31	halyavin	53
		54
		55
		56	PIXBUF equ 200h
		57	EYE equ EYE_P-2
		58
		59
		60
		61
		62
		63	mov edi,PIXBUF
		64	fadd dword [di-PIXBUF+TEXUV-4]
		65	push di
		66	mov dx,-80
		67
		68
		69
		70
		71
		72
		73
		74
		75	fild word [si-TEXUV+EYE]
		76	mov [si],bp
		77	fild word [si]
		78	mov [si],dx
		79	fild word [si]
		80	mov cl,2
		81
		82
		83
		84
		85	fsincos
		86	fld st2
		87	fmul st0,st1
		88	fld st4
		89	fmul st0,st3
		90	db 0xde,0xe9 ; fsubp st1,st0
		91	db 0xd9,0xcb ; fxch st3
		92	fmulp st2,st0
		93	fmulp st3,st0
		94	faddp st2,st0
		95	db 0xd9,0xca ; fxch st2
		96
		97
		98
		99
		100	db 0xdc,0xc8 ; fmul st0,st
		101	fld st1
		102	db 0xdc,0xc8 ; fmul st0,st
		103	faddp st1,st0
		104	fsqrt
		105	db 0xde,0xfb ; fdivp st3,st0
		106	fpatan
		107	fimul word [si-4]
		108	fistp word [si]
		109	fimul word [si-4]
		110	fistp word [si+1]
		111	mov si,[si]
		112
		113
		114	add al,ah
		115	and al,64
		116	mov al,-5
		117	jz STORE_1
		118
		119
		120	lea ax,[bx+si]
		121	sub al,ah
		122	mov al,-16
		123	jns STORE_1
		124
		125
		126	mov al,-48
		127
		128
		129
		130
		131	add [di],al
		132	inc di
		133
		134
		135	cmp bp,160
		136
		137
		138
		139
		140	inc dx
		141	cmp dx,80
		142	jnz TUBEY
		143
		144
		145
		146
		147	mov ch,SCREEN*320/256
		148
		149
		150
		151
		152	sar byte [si],2
		153	loop BLUR
		154
		155
		156
		157
		158
		159
		160
		161
		162
		163
		164	mov edi,0x10000
		165	newp:
		166	movzx edx,byte [esi]
		167	shl edx,4
		168	; mov dh,dl
		169	mov [edi],edx
		170
		171
		172	inc esi
		173
		174
		175	jbe newp
		176
		177
		178	mov ecx,320*65536+160
		179	xor edx,edx
316	heavyiron	180	mov ebx,0x10000
31	halyavin	181	int 0x40
		182
		183
		184	ret
		185
		186
		187
		188
		189
		190
		191
		192
		193	mov ebx,1
		194	int 0x40
		195
		196
316	heavyiron	197	mov ebx,100*65536+329
		198	mov ecx,100*65536+186
		199	mov edx,0x33000000
		200	mov edi,header
		201	int 0x40
31	halyavin	202
		203
		204	mov ebx,2
		205	int 0x40
		206
		207
		208	ret
		209
		210
316	heavyiron	211
31	halyavin	212
		213
		214
		215
		216
		217
		218
		219
		220
		221
		222
		223	mov ax,cx
		224	inc dx
		225	sar al,1
		226	js PAL2
		227	mul al
		228	shr ax,6
		229
		230
		231
		232
		233	jns PAL3
		234	sub al,cl
		235	shr al,1
		236	shr al,1
		237
		238
		239
		240
		241	mov [ebx+0x1000],bh
		242	loop PAL1
		243	mov ecx,256
		244
		245
		246
		247
		248	add ax,cx
		249	rol ax,cl
		250	mov dh,al
		251	sar dh,5
		252	adc dl,dh
		253	adc dl,[ebx+255+0x1000]
		254	shr dl,1
		255	mov [ebx+0x1000],dl
		256	not bh
		257	mov [ebx+0x1000],dl
		258	loop TEX
		259
		260
		261	fldz
		262
		263
		264
		265
		266
		267

Subversion Repositories Kolibri OS

(root)/programs/demos/tube/trunk/tube.asm – Rev 316