Subversion Repositories Kolibri OS

Rev

Rev 31 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 31 Rev 51
Line 28... Line 28...
28
;******************************************************************************
28
;******************************************************************************
Line 29... Line 29...
29
 
29
 
Line 30... Line 30...
30
db "MenuetOS RE #8",13,10
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
31
 
38
 
32
START:
Line 39... Line 33...
39
   ; set stretch backgound
33
   ; set stretch backgound
40
   mcall 15, 4, 2
34
   mcall 15, 4, 2
Line 94... Line 88...
94
   mcall 5,100
88
   mcall 5,100
95
   mcall -1
89
   mcall -1
Line 96... Line 90...
96
 
90
 
Line 97... Line -...
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
91
;------------------------------------------------------------------------------
106
 
92
 
107
start_info:
93
start_info:
108
  .mode        dd 16
94
  .mode        dd 16
109
               dd 0
95
               dd 0
Line 120... Line 106...
120
;dd START_COLOR
106
;dd START_COLOR
Line 121... Line 107...
121
 
107
 
122
I_END:
108
I_END:
Line 123... Line -...
123
;rd 256
-
 
124
 
-
 
125
sc  system_colors
-
 
126
 rb 512-40
109
;rd 256
127
 
110
 
Line 128... Line 111...
128
align 32
111
align 32
129
work_area:
112
work_area: