Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | 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.    ; load system colors
  34.    mcall 58, read_info
  35.  
  36.    ; set system colors
  37.    mcall 48, 2, sc, sizeof.system_colors
  38.  
  39.    ; set stretch backgound
  40.    mcall 15, 4, 2
  41.  
  42.    ; set wallpaper
  43.    mcall 58, start_info
  44.  
  45. ;jmp exit
  46. ;
  47. ;mov eax,image+3     ; generate image
  48. ;mov ecx,GRADES-1
  49. ;@@:
  50. ;mov ebx,[eax-3]
  51. ;xxx ebx,STEP
  52. ;mov [eax],ebx
  53. ;add eax,3
  54. ;dec ecx
  55. ;jnz @b
  56.  
  57. ;mov eax,15          ; copy image to background memory
  58. ;mov ebx,5
  59. ;mov ecx,image
  60. ;xor edx,edx
  61. ;mov esi,(GRADES+1)*3
  62. ;int 0x40
  63.  
  64. ;mov eax,15          ; set stretch backgound
  65. ;mov ebx,4
  66. ;mov ecx,2
  67. ;int 0x40
  68.  
  69. ;mov eax,15          ; set background size
  70. ;mov ebx,1
  71. ;mov ecx,ebx
  72. ;mov edx,GRADES
  73. ;int 0x40
  74.  
  75. ;mov eax,15          ; draw background
  76. ;mov ebx,3
  77. ;int 0x40
  78.  
  79. ;exit:
  80.  
  81. ; BEGIN_REDRAW_SCREEN
  82. ;   mcall 12, 1
  83.  
  84. ;   mcall 14
  85. ;   mov   ecx, eax
  86. ;   shr   eax, 16
  87. ;   and   ecx, 0xFFFF
  88. ;   mov   ebx, eax
  89. ;   mov   edx, 0x01000000
  90. ;   mcall 0
  91.  
  92. ;   mcall 12, 2
  93. ; END_REDRAW_SCREEN
  94.    mcall 5,100
  95.    mcall -1
  96.  
  97. ;------------------------------------------------------------------------------
  98.  
  99. read_info:
  100.   .mode        dd 0
  101.   .start_block dd 0
  102.   .blocks      dd 1
  103.   .address     dd sc
  104.   .workarea    dd work_area
  105.   .path        db "/rd/1/myblue.dtp",0
  106.  
  107. start_info:
  108.   .mode        dd 16
  109.                dd 0
  110.   .params      dd boot
  111.                dd 0
  112.   .workarea    dd work_area
  113.   .path        db "/rd/1/jpegview",0
  114.  
  115. boot           db 'BOOT',0
  116.  
  117. ;------------------------------------------------------------------------------
  118.  
  119. ;image:
  120. ;dd START_COLOR
  121.  
  122. I_END:
  123. ;rd 256
  124.  
  125. sc  system_colors
  126.  rb 512-40
  127.  
  128. align 32
  129. work_area:
  130.  
  131. ; EOF