Subversion Repositories Kolibri OS

Rev

Rev 31 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ;
  2. ;   NICE BACKGROUND
  3. ;
  4. ;   Compile with FASM for Menuet
  5. ;
  6.  
  7. ;******************************************************************************
  8.     use32
  9.     org    0x0
  10.  
  11.     db     'MENUET01'      ; 8 byte id
  12.     dd     0x01            ; header version
  13.     dd     START           ; start of code
  14.     dd     I_END           ; size of image
  15.     dd     0x5000         ; memory for app
  16.     dd     0x5000         ; esp
  17.     dd     0x0 , 0x0       ; I_Param , I_Icon
  18.  
  19. include    "lang.inc"
  20. include    "macros.inc"
  21. ;******************************************************************************
  22.  
  23. ;GRADES       =    100         ; count of grades
  24. ;START_COLOR  =    0x8292B4      ;0x0078b000
  25. ;STEP         =    0x010101      ;0x00010100
  26. ;xxx          equ  sub         ; from dark to light
  27.  
  28. ;******************************************************************************
  29.  
  30. db "MenuetOS RE #8",13,10
  31.  
  32. START:
  33.    ; set stretch backgound
  34.    mcall 15, 4, 2
  35.  
  36.    ; set wallpaper
  37.    mcall 58, start_info
  38.  
  39. ;jmp exit
  40. ;
  41. ;mov eax,image+3     ; generate image
  42. ;mov ecx,GRADES-1
  43. ;@@:
  44. ;mov ebx,[eax-3]
  45. ;xxx ebx,STEP
  46. ;mov [eax],ebx
  47. ;add eax,3
  48. ;dec ecx
  49. ;jnz @b
  50.  
  51. ;mov eax,15          ; copy image to background memory
  52. ;mov ebx,5
  53. ;mov ecx,image
  54. ;xor edx,edx
  55. ;mov esi,(GRADES+1)*3
  56. ;int 0x40
  57.  
  58. ;mov eax,15          ; set stretch backgound
  59. ;mov ebx,4
  60. ;mov ecx,2
  61. ;int 0x40
  62.  
  63. ;mov eax,15          ; set background size
  64. ;mov ebx,1
  65. ;mov ecx,ebx
  66. ;mov edx,GRADES
  67. ;int 0x40
  68.  
  69. ;mov eax,15          ; draw background
  70. ;mov ebx,3
  71. ;int 0x40
  72.  
  73. ;exit:
  74.  
  75. ; BEGIN_REDRAW_SCREEN
  76. ;   mcall 12, 1
  77.  
  78. ;   mcall 14
  79. ;   mov   ecx, eax
  80. ;   shr   eax, 16
  81. ;   and   ecx, 0xFFFF
  82. ;   mov   ebx, eax
  83. ;   mov   edx, 0x01000000
  84. ;   mcall 0
  85.  
  86. ;   mcall 12, 2
  87. ; END_REDRAW_SCREEN
  88.    mcall 5,100
  89.    mcall -1
  90.  
  91. ;------------------------------------------------------------------------------
  92.  
  93. start_info:
  94.   .mode        dd 16
  95.                dd 0
  96.   .params      dd boot
  97.                dd 0
  98.   .workarea    dd work_area
  99.   .path        db "/rd/1/jpegview",0
  100.  
  101. boot           db 'BOOT',0
  102.  
  103. ;------------------------------------------------------------------------------
  104.  
  105. ;image:
  106. ;dd START_COLOR
  107.  
  108. I_END:
  109. ;rd 256
  110.  
  111. align 32
  112. work_area:
  113.  
  114. ; EOF