Subversion Repositories Kolibri OS

Rev

Rev 837 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 837 Rev 854
Line 3... Line 3...
3
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
3
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
4
;; Distributed under terms of the GNU General Public License    ;;
4
;; Distributed under terms of the GNU General Public License    ;;
5
;;                                                              ;;
5
;;                                                              ;;
6
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 7... Line 7...
7
 
7
 
Line 8... Line 8...
8
$Revision: 750 $
8
$Revision: 854 $
Line 9... Line 9...
9
 
9
 
Line 15... Line 15...
15
    local module,addresses,names,ordinal,count
15
    local module,addresses,names,ordinal,count
16
    count = 0
16
    count = 0
17
   forward
17
   forward
18
    count = count+1
18
    count = count+1
19
   common
19
   common
20
    dd 0,0,0, (module-OS_BASE) , 1
20
    dd 0,0,0, (module+(0x100000000-OS_BASE)) , 1
21
    dd count,count,(addresses-OS_BASE),(names-OS_BASE),(ordinal-OS_BASE)
21
    dd count,count,(addresses+(0x100000000-OS_BASE)),(names+(0x100000000-OS_BASE)),(ordinal+(0x100000000-OS_BASE))
22
    addresses:
22
    addresses:
23
   forward
23
   forward
24
    dd (label-OS_BASE)
24
    dd (label+(0x100000000-OS_BASE))
25
   common
25
   common
26
    names:
26
    names:
27
   forward
27
   forward
28
    local name
28
    local name
29
    dd (name-OS_BASE)
29
    dd (name+(0x100000000-OS_BASE))
30
   common
30
   common
31
    ordinal: count = 0
31
    ordinal: count = 0
32
   forward
32
   forward
33
    dw count
33
    dw count
34
    count = count+1
34
    count = count+1