WebSVN – Kolibri OS – Diff – /programs/grscreen/trunk/grscreen.asm


;
;   NICE BACKGROUND
;
;   Compile with FASM for Menuet
;
 
;******************************************************************************
    use32
    org    0x0
 
    db     'MENUET01'      ; 8 byte id
    dd     0x01            ; header version
    dd     START           ; start of code
    dd     I_END           ; size of image
    dd     0x5000         ; memory for app
    dd     0x5000         ; esp
    dd     0x0 , 0x0       ; I_Param , I_Icon
 
include    "lang.inc"
include    "macros.inc"
;******************************************************************************
 
;GRADES       =    100         ; count of grades
;START_COLOR  =    0x8292B4      ;0x0078b000
;STEP         =    0x010101      ;0x00010100
;xxx          equ  sub         ; from dark to light
 
;******************************************************************************
 
db "MenuetOS RE #8",13,10
 
START:
 
 
 
 
 
 
   ; set stretch backgound
   mcall 15, 4, 2
 
   ; set wallpaper
   mcall 58, start_info
 
;jmp exit
;
;mov eax,image+3     ; generate image
;mov ecx,GRADES-1
;@@:
;mov ebx,[eax-3]
;xxx ebx,STEP
;mov [eax],ebx
;add eax,3
;dec ecx
;jnz @b
 
;mov eax,15          ; copy image to background memory
;mov ebx,5
;mov ecx,image
;xor edx,edx
;mov esi,(GRADES+1)*3
;int 0x40
 
;mov eax,15          ; set stretch backgound
;mov ebx,4
;mov ecx,2
;int 0x40
 
;mov eax,15          ; set background size
;mov ebx,1
;mov ecx,ebx
;mov edx,GRADES
;int 0x40
 
;mov eax,15          ; draw background
;mov ebx,3
;int 0x40
 
;exit:
 
; BEGIN_REDRAW_SCREEN
;   mcall 12, 1
 
;   mcall 14
;   mov   ecx, eax
;   shr   eax, 16
;   and   ecx, 0xFFFF
;   mov   ebx, eax
;   mov   edx, 0x01000000
;   mcall 0
 
;   mcall 12, 2
; END_REDRAW_SCREEN
   mcall 5,100
   mcall -1
 
;------------------------------------------------------------------------------
 
 
 
 
 
 
 
 
 
start_info:
  .mode        dd 16
               dd 0
  .params      dd boot
               dd 0
  .workarea    dd work_area
  .path        db "/rd/1/jpegview",0
 
boot           db 'BOOT',0
 
;------------------------------------------------------------------------------
 
;image:
;dd START_COLOR
 
I_END:
;rd 256
 
 
 
 
align 32
work_area:
 
; EOF

Rev 31	Rev 51
1	;	1	;
2	; NICE BACKGROUND	2	; NICE BACKGROUND
3	;	3	;
4	; Compile with FASM for Menuet	4	; Compile with FASM for Menuet
5	;	5	;
6		6
7	;******************************************************************************	7	;******************************************************************************
8	use32	8	use32
9	org 0x0	9	org 0x0
10		10
11	db 'MENUET01' ; 8 byte id	11	db 'MENUET01' ; 8 byte id
12	dd 0x01 ; header version	12	dd 0x01 ; header version
13	dd START ; start of code	13	dd START ; start of code
14	dd I_END ; size of image	14	dd I_END ; size of image
15	dd 0x5000 ; memory for app	15	dd 0x5000 ; memory for app
16	dd 0x5000 ; esp	16	dd 0x5000 ; esp
17	dd 0x0 , 0x0 ; I_Param , I_Icon	17	dd 0x0 , 0x0 ; I_Param , I_Icon
18		18
19	include "lang.inc"	19	include "lang.inc"
20	include "macros.inc"	20	include "macros.inc"
21	;******************************************************************************	21	;******************************************************************************
22		22
23	;GRADES = 100 ; count of grades	23	;GRADES = 100 ; count of grades
24	;START_COLOR = 0x8292B4 ;0x0078b000	24	;START_COLOR = 0x8292B4 ;0x0078b000
25	;STEP = 0x010101 ;0x00010100	25	;STEP = 0x010101 ;0x00010100
26	;xxx equ sub ; from dark to light	26	;xxx equ sub ; from dark to light
27		27
28	;******************************************************************************	28	;******************************************************************************
29		29
30	db "MenuetOS RE #8",13,10	30	db "MenuetOS RE #8",13,10
31		31
32	START:	32	START:
33	; load system colors	-
34	mcall 58, read_info	-
35		-
36	; set system colors	-
37	mcall 48, 2, sc, sizeof.system_colors	-
38		-
39	; set stretch backgound	33	; set stretch backgound
40	mcall 15, 4, 2	34	mcall 15, 4, 2
41		35
42	; set wallpaper	36	; set wallpaper
43	mcall 58, start_info	37	mcall 58, start_info
44		38
45	;jmp exit	39	;jmp exit
46	;	40	;
47	;mov eax,image+3 ; generate image	41	;mov eax,image+3 ; generate image
48	;mov ecx,GRADES-1	42	;mov ecx,GRADES-1
49	;@@:	43	;@@:
50	;mov ebx,[eax-3]	44	;mov ebx,[eax-3]
51	;xxx ebx,STEP	45	;xxx ebx,STEP
52	;mov [eax],ebx	46	;mov [eax],ebx
53	;add eax,3	47	;add eax,3
54	;dec ecx	48	;dec ecx
55	;jnz @b	49	;jnz @b
56		50
57	;mov eax,15 ; copy image to background memory	51	;mov eax,15 ; copy image to background memory
58	;mov ebx,5	52	;mov ebx,5
59	;mov ecx,image	53	;mov ecx,image
60	;xor edx,edx	54	;xor edx,edx
61	;mov esi,(GRADES+1)*3	55	;mov esi,(GRADES+1)*3
62	;int 0x40	56	;int 0x40
63		57
64	;mov eax,15 ; set stretch backgound	58	;mov eax,15 ; set stretch backgound
65	;mov ebx,4	59	;mov ebx,4
66	;mov ecx,2	60	;mov ecx,2
67	;int 0x40	61	;int 0x40
68		62
69	;mov eax,15 ; set background size	63	;mov eax,15 ; set background size
70	;mov ebx,1	64	;mov ebx,1
71	;mov ecx,ebx	65	;mov ecx,ebx
72	;mov edx,GRADES	66	;mov edx,GRADES
73	;int 0x40	67	;int 0x40
74		68
75	;mov eax,15 ; draw background	69	;mov eax,15 ; draw background
76	;mov ebx,3	70	;mov ebx,3
77	;int 0x40	71	;int 0x40
78		72
79	;exit:	73	;exit:
80		74
81	; BEGIN_REDRAW_SCREEN	75	; BEGIN_REDRAW_SCREEN
82	; mcall 12, 1	76	; mcall 12, 1
83		77
84	; mcall 14	78	; mcall 14
85	; mov ecx, eax	79	; mov ecx, eax
86	; shr eax, 16	80	; shr eax, 16
87	; and ecx, 0xFFFF	81	; and ecx, 0xFFFF
88	; mov ebx, eax	82	; mov ebx, eax
89	; mov edx, 0x01000000	83	; mov edx, 0x01000000
90	; mcall 0	84	; mcall 0
91		85
92	; mcall 12, 2	86	; mcall 12, 2
93	; END_REDRAW_SCREEN	87	; END_REDRAW_SCREEN
94	mcall 5,100	88	mcall 5,100
95	mcall -1	89	mcall -1
96		90
97	;------------------------------------------------------------------------------	91	;------------------------------------------------------------------------------
98		-
99	read_info:	-
100	.mode dd 0	-
101	.start_block dd 0	-
102	.blocks dd 1	-
103	.address dd sc	-
104	.workarea dd work_area	-
105	.path db "/rd/1/myblue.dtp",0	-
106		92
107	start_info:	93	start_info:
108	.mode dd 16	94	.mode dd 16
109	dd 0	95	dd 0
110	.params dd boot	96	.params dd boot
111	dd 0	97	dd 0
112	.workarea dd work_area	98	.workarea dd work_area
113	.path db "/rd/1/jpegview",0	99	.path db "/rd/1/jpegview",0
114		100
115	boot db 'BOOT',0	101	boot db 'BOOT',0
116		102
117	;------------------------------------------------------------------------------	103	;------------------------------------------------------------------------------
118		104
119	;image:	105	;image:
120	;dd START_COLOR	106	;dd START_COLOR
121		107
122	I_END:	108	I_END:
123	;rd 256	109	;rd 256
124		-
125	sc system_colors	-
126	rb 512-40	-
127		110
128	align 32	111	align 32
129	work_area:	112	work_area:
130		113
131	; EOF	114	; EOF

Subversion Repositories Kolibri OS

(root)/programs/grscreen/trunk/grscreen.asm – Rev 31 → 51