Subversion Repositories Kolibri OS

Rev

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

  1. ;
  2. ;   Save Ramdisk to HD
  3. ;
  4. ;   Compile with FASM for Menuet
  5. ;
  6.  
  7. include 'lang.inc'
  8. include 'macros.inc'
  9.  
  10.   use32
  11.   org    0x0
  12.  
  13.   db     'MENUET01'             ; 8 byte id
  14.   dd     0x01                   ; header version
  15.   dd     START                  ; start of code
  16.   dd     I_END                  ; size of image
  17.   dd     0x1000                 ; memory for app
  18.   dd     0x1000                 ; esp
  19.   dd     0x0 ; , 0x0            ; I_Param , I_Icon
  20.  
  21.  
  22. ;******************************************************************************
  23.  
  24.  
  25. START:                          ; start of execution
  26.     xor  eax,eax
  27.     mov  edi,bootpath
  28.     mov  ecx,128
  29.     rep  stosd
  30.  
  31.     mcall 6,filename,0,-1,bootpath
  32.  
  33.     mov esi,bootpath+1
  34.     mov cx,512
  35.   start_search:
  36.     lodsb
  37.     cmp al,"'"
  38.     jz  set_end_path
  39.     dec cx
  40.     cmp cx,0
  41.     ja  start_search
  42.   set_end_path:
  43.     mov [esi-1],byte 0
  44.  
  45.     mov  eax,40
  46.     mov  ebx,101b
  47.     int  0x40
  48.  
  49. red:
  50.     call draw_window
  51.  
  52. still:
  53.     mov  eax, 10                 ; wait here for event
  54.     int  0x40
  55.  
  56.     dec  eax                  ; redraw request ?
  57.     je   red
  58. ;    dec  eax
  59. ;    dec  eax                  ; button in buffer ?
  60. ;    je   button
  61.  
  62.  
  63.   button:                      ; button
  64.     mov  eax,17                ; get id
  65.     int  0x40
  66.     cmp  ah,2
  67.     jne  ah_3
  68.     mcall 18,6,1
  69.     jmp  red
  70.   ah_3:
  71.     cmp  ah,3
  72.     jne  ah_4
  73.     mcall 18,6,2
  74.     jmp  red
  75.   ah_4:
  76.     cmp  ah,4
  77.     jne  ah_1
  78.     mcall 18,6,3,bootpath+1
  79.     jmp  red
  80.   ah_1:
  81.     cmp  ah,1
  82.     je   exit
  83.     jmp  still
  84.  
  85.   exit:
  86.     or   eax,-1                    ; close this program
  87.     int  0x40
  88.  
  89.  
  90. ;   *********************************************
  91. ;   *******  WINDOW DEFINITIONS AND DRAW ********
  92. ;   *********************************************
  93.  
  94. draw_window:
  95.  
  96.     mov  eax, 12                ; function 12:tell os about windowdraw
  97.     mov  ebx, 1                 ; 1, start of draw
  98.     int  0x40
  99.                                 ; DRAW WINDOW
  100.     mov  eax, 0                 ; function 0 : define and draw window
  101.     mov  ebx, 200*65536+220     ; [x start] *65536 + [x size]
  102.     mov  ecx, 200*65536+150      ; [y start] *65536 + [y size]
  103.     mov  edx, 0x03ccddee       ; color of work area RRGGBB,8->color gl
  104.     int  0x40
  105.                                 ; WINDOW LABEL
  106.     mov  eax, 4                 ; function 4 : write text to window
  107.     mov  ebx, 8*65536+8         ; [x start] *65536 + [y start]
  108.     mov  ecx, 0x10ffffff        ; font 1 & color ( 0xF0RRGGBB )
  109.     mov  edx, header            ; pointer to text beginning
  110.     mov  esi, header.size       ; text length
  111.     int  0x40
  112.  
  113.     xor  edx,edx
  114.     mcall 13,<15,20>,<30,20>
  115.     mcall 13, ,<60,20>
  116.     mcall 13, ,<90,20>
  117.  
  118.     mcall 8,<16,17>,<31,17>,2,0xdd7700
  119.     inc  edx
  120.     mcall 8, ,<61,17>, ,0xbb00
  121.     inc  edx
  122.     mcall 8, ,<91,17>, ,0xcc5555
  123.  
  124.     mcall 4,<22,36>,0x10ffffff,text_123,1
  125.     add bx,30
  126.     add edx,1
  127.     mcall 4
  128.     add bx,30
  129.     add edx,1
  130.     mcall 4
  131.  
  132.     mcall 4,<45,36>,0,text_1,text_1.size
  133.     add  bx,30
  134.     mcall 4, ,0,text_2,text_2.size
  135.     add  bx,30
  136.     mcall 4, ,0,text_3,text_3.size
  137.     mcall 4,<20,120>,0,text_4,text_4.size
  138.     mcall 4,<40,130>,0,text_5,text_5.size
  139.  
  140.     mcall 4,<40,46>,0,text_6,text_6.size
  141.     mcall 4,<40,106>,0,text_6,text_6.size
  142.  
  143.     mov  eax,12                 ; function 12:tell os about windowdraw
  144.     mov  ebx,2                  ; 2, end of draw
  145.     int  0x40
  146. ret
  147.  
  148.  
  149.  
  150.  
  151. sz  header, "RD2HD á®åà ­¨âì IMG>HD"
  152. text_123 db '123'
  153. sz text_1, '‚ ¯ ¯ªã /KOLIBRI'
  154. sz text_2, '‚ ª®à¥­ì ¤¨áª '
  155. sz text_3, 'ãâì ¢ ä ©«¥ RD2HD.TXT'
  156. sz text_4, '¯.3 ¤«ï १¥à¢­®£® á®åà ­¥­¨ï,'
  157. sz text_5, 'â.ª. ¢ ï¤à¥ ¥£® ­¥â.'
  158. sz text_6, '(¯ ¯ª  ¤®«¦­  ¯à¨áãâá⢮¢ âì)'
  159. filename db 'RD2HD   TXT'
  160. I_END:
  161. bootpath: