Subversion Repositories Kolibri OS

Rev

Rev 485 | Rev 3527 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ;   à®á⮩ ¯à¨¬¥à ¯à®£à ¬¬ë ¤«ï KolibriOS
  2. ;   ®§¢ã稢 ¥â ª®¤ ­ ¦ â®© ª« ¢¨è¨
  3. ;
  4. ;   Š®¬¯¨«¨à®¢ âì FASM'®¬
  5. ;        Œ®¦­® ®âªàëâì example.asm ç¥à¥§ ¯à®£à ¬¬ã FASM (¥ñ ïà«ëª ¥áâì
  6. ;        ­  à ¡®ç¥¬ á⮫¥)
  7. ;        € ¬®¦­® ¯à®áâ® ­ ¦ âì F9 ¢ Tinypad'¥. ‹®£ ª®¬¯¨«ï樨
  8. ;        ®â®¡à ¦ ¥âáï ­  ¤®áª¥ ®â« ¤ª¨ (¯à®£à ¬¬  BOARD)
  9. ;
  10. ;   —â® ¢ ¦­® §­ âì ¯à¨ ¯à®£à ¬¬¨à®¢ ­¨¨ ¯®¤ Š®«¨¡à¨:
  11. ;        ®¬¥à ä㭪樨 ¯®¬¥é ¥âáï ¢ ॣ¨áâà eax.
  12. ;        ‚맮¢ á¨á⥬­®© ä㭪樨 ®áãé¥á⢫ï¥âáï ª®¬ ­¤®© "int 0x40".
  13. ;        ‚ᥠॣ¨áâàë, ªà®¬¥ ® 㪠§ ­­ëå ¢ ¢®§¢à é ¥¬®¬ §­ ç¥­¨¨,
  14. ;        ¢ª«îç ï ॣ¨áâà ä« £®¢ eflags, á®åà ­ïîâáï.
  15. ;
  16. ;    à¨¬¥à:
  17. ;        mov eax, 1    ;”ã­ªæ¨ï 1 - ¯®áâ ¢¨âì â®çªã ¢ ®ª­¥
  18. ;                      ;ᯨ᮪ á¨áä㭪権 á¬. ¢ DOCPACK - sysfuncr.txt
  19. ;        mov ebx, 10   ; ª®®à¤¨­ â  x=10
  20. ;        mov ecx, 20   ; ª®®à¤¨­ â  y=10
  21. ;        mov edx, 0xFFFfff ;梥â â®çª¨
  22. ;        int 0x40      ;¢ë§¢ âì äã­ªæ¨î
  23. ;
  24. ;    ’®¦¥ á ¬®¥ á ¨á¯®«ì§®¢ ­¨¥¬ ¬ ªà®á :
  25. ;        mcall 1, 10, 20, 0xFFFfff
  26. ;---------------------------------------------------------------------
  27.  
  28.   use32              ; ¢ª«îç¨âì 32-¡¨â­ë© ०¨¬  áᥬ¡«¥à 
  29.   org    0x0         ;  ¤à¥á æ¨ï á ­ã«ï
  30.  
  31.   db     'MENUET01'  ; 8-¡ ©â­ë© ¨¤¥­â¨ä¨ª â®à MenuetOS
  32.   dd     0x01        ; ¢¥àá¨ï § £®«®¢ª  (¢á¥£¤  1)
  33.   dd     START       ;  ¤à¥á ¯¥à¢®© ª®¬ ­¤ë
  34.   dd     I_END       ; à §¬¥à ¯à®£à ¬¬ë
  35.   dd     0x1000      ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
  36.   dd     0x1000      ;  ¤à¥á ¢¥à設ë áâíª 
  37.   dd     0x0         ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢
  38.   dd     0x0         ; § à¥§¥à¢¨à®¢ ­®
  39.  
  40. include 'lang.inc'
  41. include 'macros.inc' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§­ì  áᥬ¡«¥à騪®¢!
  42.  
  43. ;---------------------------------------------------------------------
  44. ;---  €—€‹Ž Žƒ€ŒŒ›  ----------------------------------------------
  45. ;---------------------------------------------------------------------
  46.  
  47. START:
  48.  
  49. red:                    ; ¯¥à¥à¨á®¢ âì ®ª­®
  50.  
  51.     call draw_window    ; ¢ë§ë¢ ¥¬ ¯à®æ¥¤ãàã ®âà¨á®¢ª¨ ®ª­ 
  52.  
  53. ;---------------------------------------------------------------------
  54. ;---  –ˆŠ‹ Ž€Ž’Šˆ ‘Ž›’ˆ‰  ----------------------------------------
  55. ;---------------------------------------------------------------------
  56.  
  57. still:
  58.     mcall 10            ; äã­ªæ¨ï 10 - ¦¤ âì ᮡëâ¨ï
  59.  
  60.     cmp  eax,1          ; ¯¥à¥à¨á®¢ âì ®ª­® ?
  61.     je   red            ; ¥á«¨ ¤  - ­  ¬¥âªã red
  62.     cmp  eax,2          ; ­ ¦ â  ª« ¢¨è  ?
  63.     je   key            ; ¥á«¨ ¤  - ­  key
  64.     cmp  eax,3          ; ­ ¦ â  ª­®¯ª  ?
  65.     je   button         ; ¥á«¨ ¤  - ­  button
  66.  
  67.     jmp  still          ; ¥á«¨ ¤à㣮¥ ᮡë⨥ - ¢ ­ ç «® 横« 
  68.  
  69.  
  70. ;---------------------------------------------------------------------
  71.  
  72.  
  73.   key:                  ; ­ ¦ â  ª« ¢¨è  ­  ª« ¢¨ âãà¥
  74.     mcall 2             ; äã­ªæ¨ï 2 - áç¨â âì ª®¤ ᨬ¢®«  (¢ ah)
  75.  
  76.     mov  [Music+1], ah  ; § ¯¨á âì ª®¤ ᨬ¢®«  ª ª ª®¤ ­®âë
  77.  
  78.     ; äã­ªæ¨ï 55-55: á¨á⥬­ë© ¤¨­ ¬¨ª ("PlayNote")
  79.     ;   esi -  ¤à¥á ¬¥«®¤¨¨
  80.  
  81.     ;   mov  eax,55
  82.     ;   mov  ebx,eax
  83.     ;   mov  esi,Music
  84.     ;   int  0x40
  85.  
  86.     ; ¨«¨ ª®à®âª®:
  87.     mcall 55, eax, , , Music
  88.  
  89.     jmp  still          ; ¢¥à­ãâìáï ª ­ ç «ã 横« 
  90.  
  91. ;---------------------------------------------------------------------
  92.  
  93.   button:
  94.     mcall 17            ; 17 - ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
  95.  
  96.     cmp   ah, 1         ; ¥á«¨ … ­ ¦ â  ª­®¯ª  á ­®¬¥à®¬ 1,
  97.     jne   still         ;  ¢¥à­ãâìáï
  98.  
  99.   .exit:
  100.     mcall -1            ; ¨­ ç¥ ª®­¥æ ¯à®£à ¬¬ë
  101.  
  102.  
  103.  
  104. ;---------------------------------------------------------------------
  105. ;---  Ž…„…‹…ˆ… ˆ Ž’ˆ‘Ž‚Š€ ŽŠ€  ----------------------------------
  106. ;---------------------------------------------------------------------
  107.  
  108. draw_window:
  109.  
  110.     mcall 12, 1                    ; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
  111.                                    ; 1 - ­ ç¨­ ¥¬ à¨á®¢ âì
  112.  
  113.     ; ¤ «¥¥: á­ ç «  ¤«¨­­ë© ¢ à¨ ­â (§ ª®¬¬¥­â¨à®¢ ­­ë©)
  114.     ;        § â¥¬ ª®à®âª¨©  ­ «®£ á ¨á¯®«ì§®¢ ­¨¥¬ ¬ ªà®á®¢
  115.  
  116.  
  117.                                    ; ‘Ž‡„€ðŒ ŽŠŽ
  118. ;   mov  eax,0                     ; äã­ªæ¨ï 0 : ®¯à¥¤¥«¨âì ¨ ®âà¨á®¢ âì ®ª­®
  119. ;   mov  ebx,200*65536+200         ; [x áâ àâ] *65536 + [x à §¬¥à]
  120. ;   mov  ecx,200*65536+50          ; [y áâ àâ] *65536 + [y à §¬¥à]
  121. ;   mov  edx,0x33aabbcc            ; 梥â à ¡®ç¥© ®¡« á⨠ RRGGBB,8->color gl
  122. ;   mov  edi,header                ; ‡€ƒŽ‹Ž‚ŽŠ ŽŠ€
  123. ;   int  0x40
  124.  
  125.     mcall 0, <200,200>, <200,50>, 0x33AABBCC,,title
  126.  
  127.                                    
  128.  
  129. ;   mov  eax,4
  130. ;   mov  ebx,3 shl 16 + 8
  131. ;   mov  ecx,0
  132. ;   mov  edx,message
  133. ;   mov  esi,message.size
  134. ;   int  0x40
  135.  
  136.     mcall 4, <3, 8>, 0, message, message.size
  137.  
  138.     mcall 12, 2                    ; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
  139.                                    ; 2, § ª®­ç¨«¨ à¨á®¢ âì
  140.  
  141.     ret                            ; ¢ë室¨¬ ¨§ ¯à®æ¥¤ãàë
  142.  
  143.  
  144. ;---------------------------------------------------------------------
  145. ;---  „€›… Žƒ€ŒŒ›  ----------------------------------------------
  146. ;---------------------------------------------------------------------
  147.  
  148. ; ‚®â â ª ï ¢®â ª®à®âª ï "¬¥«®¤¨ï".
  149. ; ‚â®à®© ¡ ©â ¨§¬¥­ï¥âáï ­ ¦ â¨¥¬ ª« ¢¨èë
  150.  
  151. Music:
  152.   db  0x90, 0x30, 0
  153.  
  154.  
  155. ;---------------------------------------------------------------------
  156.  
  157. ; ¨­â¥àä¥©á ¯à®£à ¬¬ë ¬­®£®ï§ëç­ë©
  158. ;  ‚ë ¬®¦¥â¥ § ¤ âì ï§ëª ¢ MACROS.INC (lang fix ï§ëª)
  159.  
  160. lsz message,\
  161.   ru,' ¦¬¨â¥ «î¡ãî ª« ¢¨èã...',\
  162.   en,'Press any key...',\
  163.   fr,'Pressez une touche...'
  164.  
  165. lsz title,\
  166.   ru,'ˆŒ… Žƒ€ŒŒ›',\
  167.   en,'EXAMPLE APPLICATION',\
  168.   fr,"L'exemplaire programme"
  169.  
  170. ;---------------------------------------------------------------------
  171.  
  172. I_END:                             ; ¬¥âª  ª®­æ  ¯à®£à ¬¬ë
  173.