Subversion Repositories Kolibri OS

Rev

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

Rev 7649 Rev 9568
Line 1... Line 1...
1 
use32                ; âà ­á«ïâ®à, ¨á¯®«ì§ãî騩 32 à §à來ëå ª®¬ ­¤ë
 1 
use32                ; âà ­á«ïâ®à, ¨á¯®«ì§ãî騩 32 à §à來ëå ª®¬ ­¤ë
2 
    org 0x0                ; ¡ §®¢ë©  ¤à¥á ª®¤ , ¢á¥£¤  0x0
 2 
    org 0                ; ¡ §®¢ë©  ¤à¥á ª®¤ , ¢á¥£¤  0x0
3 
    db 'MENUET01'        ; ¨¤¥­â¨ä¨ª â®à ¨á¯®«­ï¥¬®£® ä ©«  (8 ¡ ©â)
 3 
    db 'MENUET01'        ; ¨¤¥­â¨ä¨ª â®à ¨á¯®«­ï¥¬®£® ä ©«  (8 ¡ ©â)
4 
    dd 0x1                ; ¢¥àá¨ï ä®à¬ â  § £®«®¢ª  ¨á¯®«­ï¥¬®£® ä ©« 
 4 
    dd 1                 ; ¢¥àá¨ï ä®à¬ â  § £®«®¢ª  ¨á¯®«­ï¥¬®£® ä ©« 
5 
    dd start                ;  ¤à¥á, ­  ª®â®àë© á¨á⥬  ¯¥à¥¤ ñâ ã¯à ¢«¥­¨¥
 5 
    dd start             ;  ¤à¥á, ­  ª®â®àë© á¨á⥬  ¯¥à¥¤ ñâ ã¯à ¢«¥­¨¥
6 
                        ; ¯®á«¥ § £à㧪¨ ¯à¨«®¦¥­¨ï ¢ ¯ ¬ïâì
 6 
                         ; ¯®á«¥ § £à㧪¨ ¯à¨«®¦¥­¨ï ¢ ¯ ¬ïâì
7 
    dd i_end                ; à §¬¥à ¯à¨«®¦¥­¨ï
 7 
    dd i_end             ; à §¬¥à ¯à¨«®¦¥­¨ï
8 
    dd mem                  ; Ž¡ê¥¬ ¨á¯®«ì§ã¥¬®© ¯ ¬ïâ¨, ¤«ï á⥪  ®â¢¥¤¥¬ 0å100 ¡ ©â ¨ ¢ë஢­¨¬ ­  £à­¨æã 4 ¡ ©â 
 8 
    dd mem               ; Ž¡ê¥¬ ¨á¯®«ì§ã¥¬®© ¯ ¬ïâ¨, ¤«ï á⥪  ®â¢¥¤¥¬ 0å100 ¡ ©â ¨ ¢ë஢­¨¬ ­  £à­¨æã 4 ¡ ©â 
9 
    dd mem                  ; à á¯®«®¦¨¬ ¯®§¨æ¨î á⥪  ¢ ®¡« á⨠¯ ¬ïâ¨, áࠧ㠧  ⥫®¬ ¯à®£à ¬¬ë. ‚¥à設  á⥪  ¢ ¤¨ ¯ §®­¥ ¯ ¬ïâ¨, 㪠§ ­­®¬ ¢ëè¥
 9 
    dd mem               ; à á¯®«®¦¨¬ ¯®§¨æ¨î á⥪  ¢ ®¡« á⨠¯ ¬ïâ¨, áࠧ㠧  ⥫®¬ ¯à®£à ¬¬ë. ‚¥à設  á⥪  ¢ ¤¨ ¯ §®­¥ ¯ ¬ïâ¨, 㪠§ ­­®¬ ¢ëè¥
10 
    dd 0x0              ; 㪠§ â¥«ì ­  áâபã á ¯ à ¬¥âà ¬¨.
 10 
    dd 0                ; 㪠§ â¥«ì ­  áâபã á ¯ à ¬¥âà ¬¨.
11 
    dd 0;pathprog       ;¯ãâì ¨ ¨¬ï ¯à®£¨
 11 
    dd 0;pathprog       ;¯ãâì ¨ ¨¬ï ¯à®£¨
Line 12... Line 12...
12 
 
 12 
 
13 
include "../../../macros.inc"
 13 
include "../../../macros.inc"
14 
include "../../../proc32.inc"
 14 
include "../../../proc32.inc"
15 
include "API.INC"
 15 
include "API.INC"
16 
include "../../../dll.inc"
 16 
include "../../../dll.inc"
- 
 
 17 
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
17 
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
 18 
;include '../../../KOSfuncs.inc'
Line 18... Line 19...
18 
include '../../../develop/libraries/box_lib/load_lib.mac'
 19 
;include '../../../load_lib.mac'
19 
 
 20 
 
20 
start:
 21 
start:
21 
        mcall 68,11      ;¨­¨æ¨ «¨§¨à㥬 ªãçã
 22 
        mcall 68,11      ;¨­¨æ¨ «¨§¨à㥬 ªãçã
Line 377... Line 378...
377 
;-------------------------------------------------------------------------------
 378 
;-------------------------------------------------------------------------------
378 
@IMPORT:
 379 
@IMPORT:
379 
library box_lib,'box_lib.obj',msgbox,'msgbox.obj'
 380 
library box_lib,'box_lib.obj',msgbox,'msgbox.obj'
380 
import  box_lib,\
 381 
import  box_lib,\
381 
        edit_box_draw,'edit_box',\
 382 
        edit_box_draw,'edit_box_draw',\
382 
        edit_box_key,'edit_box_key';,\
 383 
        edit_box_key,'edit_box_key';,\
383 
        ;edit_box_mouse,'edit_box_mouse'
 384 
        ;edit_box_mouse,'edit_box_mouse'
384 
import  msgbox,\
 385 
import  msgbox,\
385 
        mb_create,'mb_create'
 386 
        mb_create,'mb_create'