Subversion Repositories Kolibri OS

Rev

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

  1. ;-----------------------------------------------------------------------------
  2. func vm_mike_draw_rect.16 ;///////////////////////////////////////////////////
  3. ;-----------------------------------------------------------------------------
  4. ; eax - x start
  5. ; ebx - y start
  6. ; ecx - x end
  7. ; edx - y end
  8. ; edi - color
  9. ;-----------------------------------------------------------------------------
  10. ;- eax(ebx) [x start]*65536 + [x size]
  11. ;- ebx(ecx) [y start]*65536 + [y size]
  12. ;- ecx(edx) color 0x00RRGGBB
  13. ;-----------------------------------------------------------------------------
  14. begin
  15.         pushad
  16.         cli
  17.         jif     eax,e,ecx,.exit
  18.         jif     ebx,e,edx,.exit
  19.  
  20.         call    get_cursor_rect
  21.  
  22.         mov     ebp,[TASK_BASE]
  23.         movsx   esi,word[ebp-CURRENT_TASK+0]
  24.         add     eax,esi
  25.         add     ecx,esi
  26.         movsx   esi,word[ebp-CURRENT_TASK+4]
  27.         add     ebx,esi
  28.         add     edx,esi
  29. ;       add     eax,[ebp-CURRENT_TASK+0]
  30. ;       add     ebx,[ebp-CURRENT_TASK+4]
  31. ;       add     ecx,[ebp-CURRENT_TASK+0]
  32. ;       add     edx,[ebp-CURRENT_TASK+4]
  33.  
  34.         push    eax
  35.         mov     eax,edi
  36.         shr     eax,3
  37.         shl     ax,3
  38.         shr     eax,2
  39.         shl     al,2
  40.         shr     eax,3
  41.         mov     di,ax
  42.         pop     eax
  43.  
  44.         mov     esi,[CURRENT_TASK]
  45.         mov     esi,[CLIP_RECTS+esi*4]
  46.         mov     ebp,[esi]
  47.         or      ebp,ebp
  48.         jz      .exit
  49.         add     esi,4
  50.   .nx:  jif     ecx,l,[rr.left],.skip
  51.         jif     eax,ge,[rr.right],.skip
  52.         jif     edx,l,[rr.top],.skip
  53.         jif     ebx,ge,[rr.bottom],.skip
  54.         pushad
  55.         jif     eax,ge,[rr.left],@f
  56.         mov     eax,[rr.left]
  57.     @@: jif     ebx,ge,[rr.top],@f
  58.         mov     ebx,[rr.top]
  59.     @@: jif     ecx,l,[rr.right],@f
  60.         mov     ecx,[rr.right]
  61.     @@: jif     edx,l,[rr.bottom],@f
  62.         mov     edx,[rr.bottom]
  63.     @@: call    is_intersect_rc
  64.         jc      .put
  65.         cmp     byte[MOUSE_VISIBLE],0
  66.         je      .put
  67.         call    [SF.draw_mouse_under]
  68.         mov     byte[MOUSE_VISIBLE],0
  69.   .put: mov     ebp,[BytesPerScanLine]
  70.         imul    ebp,ebx
  71.         lea     ebp,[ebp+eax*2]
  72.         add     ebp,[LFBAddress]
  73.   .xxx: push    eax ebp
  74.     @@: push    ebp
  75.         call    [set_bank]
  76.         mov     [ebp],di
  77.         pop     ebp
  78. ;       mov     [ebp],di
  79.         add     ebp,2
  80.         inc     eax
  81.         cmp     eax,ecx
  82.         jl      @b
  83.         pop     ebp eax
  84.         add     ebp,[BytesPerScanLine]
  85.         inc     ebx
  86.         cmp     ebx,edx
  87.         jl      .xxx
  88.         popad
  89.   .skip:
  90.         add     esi,SR
  91.         dec     ebp
  92.         jnz     .nx
  93.  
  94.   .exit:
  95.         sti
  96.         popad
  97.         retn
  98. endf
  99.  
  100. ;-----------------------------------------------------------------------------
  101. func vm_mike_draw_line.16 ;///////////////////////////////////////////////////
  102. ;-----------------------------------------------------------------------------
  103. ; eax(ebx)  [x start] shl 16 + [x end]
  104. ; ebx(ecx)  [y start] shl 16 + [y end]
  105. ; ecx(edx)  colour 0x00RRGGBB
  106. ; edi = 0x00000001 force
  107. ;-----------------------------------------------------------------------------
  108. begin
  109.         pushad
  110.         cli
  111.  
  112.         call    get_cursor_rect
  113.  
  114.         mov     eax,ecx
  115.         shr     ecx,3
  116.         shl     cx,3
  117.         shr     ecx,2
  118.         shl     cl,2
  119.         shr     ecx,3
  120.         and     eax,0x01000000
  121.         or      ecx,eax
  122.  
  123.         movsx   eax,word[esp+4*7]  ; x end
  124.         cmp     ax,[esp+4*7+2]     ; x start
  125.         je      dl.16.vert_line
  126.         movsx   eax,word[esp+4*4]  ; y end
  127.         cmp     ax,[esp+4*4+2]     ; y start
  128.         je      dl.16.horz_line
  129.  
  130.         sti
  131.         popad
  132.         retn
  133.  
  134.   dl.16.vert_line:
  135.         test    edi,1
  136.         jnz     .forced
  137.         mov     esi,[CURRENT_TASK]
  138.         mov     esi,[CLIP_RECTS+esi*4]
  139.         mov     edi,[esi]
  140.         or      edi,edi
  141.         jz      .exit
  142.         add     esi,4
  143.   .nx:  movsx   ebx,word[esp+4*4+2]  ; y start
  144.         movsx   edx,word[esp+4*4]    ; y end
  145.         cmp     ebx,edx
  146.         je      .exit
  147.         jl      @f
  148.         xchg    ebx,edx
  149.     @@: jif     eax,l,[rr.left],.skip
  150.         jif     eax,ge,[rr.right],.skip
  151.         jif     edx,l,[rr.top],.skip
  152.         jif     ebx,ge,[rr.bottom],.skip
  153.         jif     ebx,ge,[rr.top],@f
  154.         mov     ebx,[rr.top]
  155.     @@: jif     edx,l,[rr.bottom],@f
  156.         mov     edx,[rr.bottom]
  157.         dec     edx
  158.   .draw:
  159.     @@: call    is_intersect_vln
  160.         jc      .put
  161.         cmp     byte[MOUSE_VISIBLE],0
  162.         je      .put
  163.         call    [SF.draw_mouse_under]
  164.         mov     byte[MOUSE_VISIBLE],0
  165.   .put: mov     ebp,[BytesPerScanLine]
  166.         imul    ebp,ebx
  167.         lea     ebp,[ebp+eax*2]
  168.         add     ebp,[LFBAddress]
  169.     @@: push    ebp
  170.         call    [set_bank]
  171.         test    ecx,0x01000000
  172.         jz      .dr
  173.         mov     cx,[ebp]
  174.         not     cx
  175.   .dr:  mov     [ebp],cx
  176.         pop     ebp
  177. ;       mov     [ebp],cx
  178.         add     ebp,[BytesPerScanLine]
  179.         inc     ebx
  180.         cmp     ebx,edx
  181.         jle     @b
  182.   .skip:
  183.         add     esi,SR
  184.         dec     edi
  185.         jnz     .nx
  186.   .exit:
  187.         sti
  188.         popad
  189.         retn
  190.   .forced:
  191.         jif     eax,l,[viewport.left],.exit
  192.         jif     eax,ge,[viewport.right],.exit
  193.         movsx   ebx,word[esp+4*4+2]  ; y start
  194.         movsx   edx,word[esp+4*4]    ; y end
  195.         jif     ebx,e,edx,.exit
  196.         jl      @f
  197.         xchg    ebx,edx
  198.     @@: jif     edx,l,[viewport.top],.exit
  199.         jif     ebx,ge,[viewport.bottom],.exit
  200.         jif     ebx,ge,[viewport.top],@f
  201.         mov     ebx,[viewport.top]
  202.     @@: jif     edx,l,[viewport.bottom],@f
  203.         mov     edx,[viewport.bottom]
  204.         dec     edx
  205.     @@: mov     edi,1
  206.         jmp     .draw
  207.  
  208.   dl.16.horz_line:
  209.         test    edi,1
  210.         jnz     .forced
  211.         mov     esi,[CURRENT_TASK]
  212.         mov     esi,[CLIP_RECTS+esi*4]
  213.         mov     edi,[esi]
  214.         or      edi,edi
  215.         jz      .exit
  216.         add     esi,4
  217.   .nx:  movsx   ebx,word[esp+4*7+2]  ; x start
  218.         movsx   edx,word[esp+4*7]    ; x end
  219.         cmp     ebx,edx
  220.         je      .exit
  221.         jl      @f
  222.         xchg    ebx,edx
  223.     @@: jif     eax,l,[rr.top],.skip
  224.         jif     eax,ge,[rr.bottom],.skip
  225.         jif     edx,l,[rr.left],.skip
  226.         jif     ebx,ge,[rr.right],.skip
  227.         jif     ebx,ge,[rr.left],@f
  228.         mov     ebx,[rr.left]
  229.     @@: jif     edx,l,[rr.right],@f
  230.         mov     edx,[rr.right]
  231.         dec     edx
  232.   .draw:
  233.     @@: call    is_intersect_hln
  234.         jc      .put
  235.         cmp     byte[MOUSE_VISIBLE],0
  236.         je      .put
  237.         call    [SF.draw_mouse_under]
  238.         mov     byte[MOUSE_VISIBLE],0
  239.   .put: mov     ebp,[BytesPerScanLine]
  240.         imul    ebp,eax
  241.         lea     ebp,[ebp+ebx*2]
  242.         add     ebp,[LFBAddress]
  243.     @@: push    ebp
  244.         call    [set_bank]
  245.         test    ecx,0x01000000
  246.         jz      .dr
  247.         mov     cx,[ebp]
  248.         not     cx
  249.   .dr:  mov     [ebp],cx
  250.         pop     ebp
  251. ;       mov     [ebp],cx
  252.         add     ebp,2
  253.         inc     ebx
  254.         cmp     ebx,edx
  255.         jle     @b
  256.   .skip:
  257.         add     esi,SR
  258.         dec     edi
  259.         jnz     .nx
  260.   .exit:
  261.         sti
  262.         popad
  263.         retn
  264.   .forced:
  265.         jif     eax,l,[viewport.top],.exit
  266.         jif     eax,ge,[viewport.bottom],.exit
  267.         movsx   ebx,word[esp+4*7+2]  ; x start
  268.         movsx   edx,word[esp+4*7]    ; x end
  269.         cmp     ebx,edx
  270.         je      .exit
  271.         jl      @f
  272.         xchg    ebx,edx
  273.     @@: jif     edx,l,[viewport.left],.exit
  274.         jif     ebx,ge,[viewport.right],.exit
  275.         jif     ebx,ge,[viewport.left],@f
  276.         mov     ebx,[viewport.left]
  277.     @@: jif     edx,l,[viewport.right],@f
  278.         mov     edx,[viewport.right]
  279.         dec     edx
  280.     @@: mov     edi,1
  281.         jmp     .draw
  282. endf
  283.  
  284. ;-----------------------------------------------------------------------------
  285. func vm_mike_put_pixel.16 ;///////////////////////////////////////////////////
  286. ;-----------------------------------------------------------------------------
  287. ; eax = x coordinate
  288. ; ebx = y coordinate
  289. ; ecx = ?? RR GG BB    ; 0x01000000 negation
  290. ; edi = 0x00000001 force
  291. ;-----------------------------------------------------------------------------
  292. begin
  293.         pushad
  294.         cli
  295.         mov     edx,[BytesPerScanLine]
  296.         imul    edx,ebx
  297.         lea     edx,[edx+eax*2]
  298.         add     edx,[LFBAddress]
  299.         test    edi,1
  300.         jnz     .forced
  301.         mov     esi,[CURRENT_TASK]
  302.         mov     esi,[CLIP_RECTS+esi*4]
  303.         mov     edi,[esi]
  304.         or      edi,edi
  305.         jz      .exit
  306.         add     esi,4
  307.     @@: jif     eax,l,[rr.left],.skip
  308.         jif     eax,ge,[rr.right],.skip
  309.         jif     ebx,l,[rr.top],.skip
  310.         jif     ebx,ge,[rr.bottom],.skip
  311.         call    get_cursor_rect
  312.         call    is_intersect_pt
  313.         jc      .put
  314.         cmp     byte[MOUSE_VISIBLE],0
  315.         je      .put
  316.         call    [SF.draw_mouse_under]
  317.         mov     byte[MOUSE_VISIBLE],0
  318.   .put: push    edx
  319.         call    [set_bank]
  320.         pop     edx
  321.         test    ecx,0x01000000
  322.         jz      .lp1
  323.         not     word[ebp]
  324.         jmp     .exit
  325.   .lp1: shr     ecx,3
  326.         shl     cx,3
  327.         shr     ecx,2
  328.         shl     cl,2
  329.         shr     ecx,3
  330.         mov     [ebp],cx
  331.   .exit:
  332.         sti
  333.         popad
  334.         retn
  335.   .skip:
  336.         add     esi,SR
  337.         dec     edi
  338.         jnz     @b
  339.         jmp     .exit
  340.   .forced:
  341.         jif     eax,l,[viewport.left],.exit
  342.         jif     ebx,l,[viewport.top],.exit
  343.         jif     eax,ge,[viewport.right],.exit
  344.         jif     ebx,ge,[viewport.bottom],.exit
  345.         test    ecx,0x01000000
  346.         jz      @f
  347.         push    edx
  348.         call    [set_bank]
  349.         pop     edx
  350.         not     word[ebp]
  351.         jmp     .exit
  352.     @@: shr     ecx,3
  353.         shl     cx,3
  354.         shr     ecx,2
  355.         shl     cl,2
  356.         shr     ecx,3
  357.         push    edx
  358.         call    [set_bank]
  359.         pop     edx
  360.         mov     [ebp],cx
  361.         jmp     .exit
  362. endf
  363.  
  364. ;-----------------------------------------------------------------------------
  365. func vm_mike_get_pixel.16 ;///////////////////////////////////////////////////
  366. ;-----------------------------------------------------------------------------
  367. ; eax = x coordinate
  368. ; ebx = y coordinate
  369. ;-----------------------------------------------------------------------------
  370. begin
  371.         pushad
  372.         cli
  373.  
  374.         imul    ebx,[BytesPerScanLine]
  375.         shl     eax,1
  376.         add     eax,ebx
  377.         add     eax,[LFBAddress]
  378.         push    eax
  379.         call    [set_bank]
  380.         pop     eax
  381.         movzx   eax,word[ebp]
  382.  
  383.         shl     eax,3
  384.         shr     al,2
  385.         shl     eax,2
  386.         shr     ax,3
  387.         shl     eax,3
  388.  
  389.         and     eax,0x00FFFFFF
  390.         mov     [esp+4*6],eax
  391.  
  392.         sti
  393.         popad
  394.         retn
  395. endf
  396.  
  397. ;-----------------------------------------------------------------------------
  398. func vm_mike_put_image.16 ;///////////////////////////////////////////////////
  399. ;-----------------------------------------------------------------------------
  400. ; eax(ebx) pointer to image in memory - RRGGBBRRGGBB..
  401. ; ebx(ecx) image size [x]*65536+[y]
  402. ; ecx(edx) image position in window [x]*65536+[y]
  403. ; ret: eax 0 succesful, 1 overlapped
  404. ;-----------------------------------------------------------------------------
  405. begin
  406.         mov     eax,ebx
  407.         mov     ebx,ecx
  408.         mov     ecx,edx
  409.   .direct:
  410.         pushad
  411.         cli
  412.         jif     ebx,z,0x0000FFFF,.exit,test
  413.         jif     ebx,z,0xFFFF0000,.exit,test
  414.  
  415.         call    get_cursor_rect
  416.  
  417.         mov     ebp,eax
  418.         movsx   eax,word[esp+4*6+2]
  419.         movsx   ebx,word[esp+4*6]
  420.         movsx   ecx,word[esp+4*4+2]
  421.         movsx   edx,word[esp+4*4]
  422.         lea     edi,[ecx*3]
  423.         push    edi
  424.         add     ecx,eax
  425.         add     edx,ebx
  426.         mov     edi,[TASK_BASE]
  427.         movsx   esi,word[edi-CURRENT_TASK+0]
  428.         add     eax,esi
  429.         add     ecx,esi
  430.         movsx   esi,word[edi-CURRENT_TASK+4]
  431.         add     ebx,esi
  432.         add     edx,esi
  433. ;       add     eax,[esi-CURRENT_TASK+0]
  434. ;       add     ebx,[esi-CURRENT_TASK+4]
  435. ;       add     ecx,[esi-CURRENT_TASK+0]
  436. ;       add     edx,[esi-CURRENT_TASK+4]
  437.  
  438.         mov     esi,[CURRENT_TASK]
  439.         mov     esi,[CLIP_RECTS+esi*4]
  440.         mov     edi,[esi]
  441.         or      edi,edi
  442.         jz      .exit
  443.         add     esi,4
  444.         cld
  445.   .nx:  jif     ecx,l,[rr.left],.skip
  446.         jif     eax,ge,[rr.right],.skip
  447.         jif     edx,l,[rr.top],.skip
  448.         jif     ebx,ge,[rr.bottom],.skip
  449.         pushad
  450.         jif     eax,ge,[rr.left],@f
  451.         mov     eax,[rr.left]
  452.     @@: jif     ebx,ge,[rr.top],@f
  453.         mov     ebx,[rr.top]
  454.     @@: jif     ecx,l,[rr.right],@f
  455.         mov     ecx,[rr.right]
  456.     @@: jif     edx,l,[rr.bottom],@f
  457.         mov     edx,[rr.bottom]
  458.     @@: call    is_intersect_rc
  459.         jc      .put
  460.         cmp     byte[MOUSE_VISIBLE],0
  461.         je      .put
  462.         call    [SF.draw_mouse_under]
  463.         mov     byte[MOUSE_VISIBLE],0
  464.   .put: mov     esi,ebx
  465.         sub     esi,[esp+4*4]
  466.         imul    esi,[esp+4*8]
  467.         mov     edi,eax
  468.         sub     edi,[esp+4*7]
  469.         lea     edi,[edi*3]
  470.         add     esi,edi
  471.         add     esi,ebp
  472.         mov     edi,[BytesPerScanLine]
  473.         imul    edi,ebx
  474.         lea     edi,[edi+eax*2]
  475.         add     edi,[LFBAddress]
  476.   .xxx: push    eax esi edi eax
  477.     @@: lodsd
  478.         shr     eax,3
  479.         shl     ax,3
  480.         shr     eax,2
  481.         shl     al,2
  482.         shr     eax,3
  483.  
  484.         push    ebp edi
  485.         call    [set_bank]
  486.         mov     [ebp],ax
  487.         pop     edi ebp
  488.         add     edi,2
  489.  
  490.         dec     esi
  491.         inc     dword[esp]
  492.         cmp     [esp],ecx
  493.         jl      @b
  494.         pop     eax edi esi eax
  495.         add     esi,[esp+4*8]
  496.         add     edi,[BytesPerScanLine]
  497.         inc     ebx
  498.         cmp     ebx,edx
  499.         jl      .xxx
  500.         popad
  501.   .skip:
  502.         add     esi,SR
  503.         dec     edi
  504.         jnz     .nx
  505.  
  506.   .exit:
  507.         add     esp,4
  508.         sti
  509.         popad
  510.         xor     eax,eax
  511.         retn
  512. endf
  513.  
  514. ;-----------------------------------------------------------------------------
  515. func vm_mike_draw_bg.16 ;/////////////////////////////////////////////////////
  516. ;-----------------------------------------------------------------------------
  517. begin
  518.         pushad
  519.  
  520.         cmp     byte[bg_type],BGT_TILE
  521.         je      .tiled
  522.  
  523.         mov     eax,[bg_width]
  524.         cmp     eax,[ScreenWidth]
  525.         jne     @f
  526.         mov     eax,[bg_height]
  527.         cmp     eax,[ScreenHeight]
  528.         je      .tiled
  529.     @@:
  530.         imul    eax,[bg_width],3
  531.         mov     [bg_BytesPerScanLine],eax
  532.  
  533.         mov     eax,[viewport.left]
  534.         mov     ebx,[viewport.top]
  535.         mov     ecx,[viewport.right]
  536.         mov     edx,[viewport.bottom]
  537.  
  538.         cmp     [bg_width],1
  539.         jne     @f
  540.         cmp     [bg_height],1
  541.         je      .color
  542.     @@:
  543.         cli
  544.  
  545.         call    [SF.draw_mouse_under]
  546.         mov     byte[MOUSE_VISIBLE],0
  547.  
  548.         mov     esi,[CLIP_RECTS+4]
  549.         mov     ebp,[esi]
  550.         or      ebp,ebp
  551.         jz      .exit
  552.         add     esi,4
  553.   .nx:  jif     ecx,l,[rr.left],.skip
  554.         jif     eax,ge,[rr.right],.skip
  555.         jif     edx,l,[rr.top],.skip
  556.         jif     ebx,ge,[rr.bottom],.skip
  557.         pushad
  558.         jif     eax,ge,[rr.left],@f
  559.         mov     eax,[rr.left]
  560.     @@: jif     ebx,ge,[rr.top],@f
  561.         mov     ebx,[rr.top]
  562.     @@: jif     ecx,l,[rr.right],@f
  563.         mov     ecx,[rr.right]
  564.     @@: jif     edx,l,[rr.bottom],@f
  565.         mov     edx,[rr.bottom]
  566.     @@: ;call   is_intersect_rc
  567.         ;jc     .put
  568.         ;cmp    [mouse_invisible],0
  569.         ;jne    .put
  570.         ;call   [SF.draw_mouse_under]
  571.         ;mov    [mouse_invisible],1
  572.   .put: mov     ebp,[BytesPerScanLine]
  573.         imul    ebp,ebx
  574.         lea     ebp,[ebp+eax*2]
  575.         add     ebp,[LFBAddress]
  576.   .xxx: push    eax ebp
  577.     @@: push    ebp
  578.         call    [set_bank]
  579.         push    eax edx
  580.         mul     [bg_width]
  581.         div     dword[ScreenWidth]
  582.         lea     edi,[eax*3]
  583.         mov     eax,ebx
  584.         mul     [bg_height]
  585.         div     dword[ScreenHeight]
  586.         mul     [bg_BytesPerScanLine]
  587.         add     edi,eax
  588.         add     edi,IMG_BACKGROUND
  589.         mov     eax,[edi]
  590.         shr     eax,3
  591.         shl     ax,3
  592.         shr     eax,2
  593.         shl     al,2
  594.         shr     eax,3
  595.         mov     [ebp],ax
  596.         pop     edx eax
  597.         pop     ebp
  598.         inc     ebp
  599.         inc     ebp
  600.         inc     eax
  601.         cmp     eax,ecx
  602.         jl      @b
  603.         pop     ebp eax
  604.         add     ebp,[BytesPerScanLine]
  605.         inc     ebx
  606.         cmp     ebx,edx
  607.         jl      .xxx
  608.         popad
  609.   .skip:
  610.         add     esi,SR
  611.         dec     ebp
  612.         jnz     .nx
  613.  
  614.   .exit:
  615.         sti
  616.         popad
  617.         retn
  618.  
  619.   .tiled:
  620.         mov     eax,IMG_BACKGROUND
  621.         mov     ebx,[bg_width-2]
  622.         mov     bx,word[bg_height]
  623.         xor     ecx,ecx
  624.   .lp1: push    eax
  625.         call    vm_mike_put_image.16.direct
  626.         pop     eax
  627.         rol     ecx,16
  628.         add     cx,word[bg_width]
  629.         cmp     cx,word[ScreenWidth]
  630.         jae     @f
  631.         rol     ecx,16
  632.         jmp     .lp1
  633.     @@: shr     ecx,16
  634.         add     ecx,[bg_height]
  635.         cmp     ecx,[ScreenHeight]
  636.         jb      .lp1
  637.         popad
  638.         retn
  639.  
  640.   .color:
  641.         mov     edi,[IMG_BACKGROUND]
  642.         and     edi,0x00FFFFFF
  643.         call    vm_mike_draw_rect.16
  644.         popad
  645.         retn
  646. endf