Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

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