;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;; ;; Distributed under terms of the GNU General Public License ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $Revision$ LOAD_FROM_FILE equ 0 LOAD_FROM_MEM equ 1 LOAD_INDIRECT equ 2 LOAD_SYSTEM equ 3 struct BITMAPINFOHEADER Size dd ? Width dd ? Height dd ? Planes dw ? BitCount dw ? Compression dd ? SizeImage dd ? XPelsPerMeter dd ? YPelsPerMeter dd ? ClrUsed dd ? ClrImportant dd ? ends ;------------------------------------------------------------------------------ align 4 proc init_cursor stdcall, dst:dword, src:dword locals rBase dd ? pQuad dd ? pBits dd ? pAnd dd ? width dd ? height dd ? counter dd ? endl mov esi, [src] add esi, [esi+18] mov eax, esi cmp [esi+BITMAPINFOHEADER.BitCount], 24 je .img_24 cmp [esi+BITMAPINFOHEADER.BitCount], 8 je .img_8 cmp [esi+BITMAPINFOHEADER.BitCount], 4 je .img_4 ;-------------------------------------- align 4 .img_2: add eax, [esi] mov [pQuad], eax add eax, 8 mov [pBits], eax add eax, 128 mov [pAnd], eax mov eax, [esi+4] mov [width], eax mov ebx, [esi+8] shr ebx, 1 mov [height], ebx mov edi, [dst] add edi, 32*31*4 mov [rBase], edi mov esi, [pQuad] ;-------------------------------------- align 4 .l21: mov ebx, [pBits] mov ebx, [ebx] bswap ebx mov eax, [pAnd] mov eax, [eax] bswap eax mov [counter], 32 ;-------------------------------------- align 4 @@: xor edx, edx shl eax, 1 setc dl dec edx xor ecx, ecx shl ebx, 1 setc cl mov ecx, [esi+ecx*4] and ecx, edx and edx, 0xFF000000 or edx, ecx mov [edi], edx add edi, 4 dec [counter] jnz @B add [pBits], 4 add [pAnd], 4 mov edi, [rBase] sub edi, 128 mov [rBase], edi sub [height], 1 jnz .l21 ret ;-------------------------------------- align 4 .img_4: add eax, [esi] mov [pQuad], eax add eax, 64 mov [pBits], eax add eax, 0x200 mov [pAnd], eax mov eax, [esi+4] mov [width], eax mov ebx, [esi+8] shr ebx, 1 mov [height], ebx mov edi, [dst] add edi, 32*31*4 mov [rBase], edi mov esi, [pQuad] mov ebx, [pBits] ;-------------------------------------- align 4 .l4: mov eax, [pAnd] mov eax, [eax] bswap eax mov [counter], 16 ;-------------------------------------- align 4 @@: xor edx, edx shl eax, 1 setc dl dec edx movzx ecx, byte [ebx] and cl, 0xF0 shr ecx, 2 mov ecx, [esi+ecx] and ecx, edx and edx, 0xFF000000 or edx, ecx mov [edi], edx xor edx, edx shl eax, 1 setc dl dec edx movzx ecx, byte [ebx] and cl, 0x0F mov ecx, [esi+ecx*4] and ecx, edx and edx, 0xFF000000 or edx, ecx mov [edi+4], edx inc ebx add edi, 8 dec [counter] jnz @B add [pAnd], 4 mov edi, [rBase] sub edi, 128 mov [rBase], edi sub [height], 1 jnz .l4 ret ;-------------------------------------- align 4 .img_8: add eax, [esi] mov [pQuad], eax add eax, 1024 mov [pBits], eax add eax, 1024 mov [pAnd], eax mov eax, [esi+4] mov [width], eax mov ebx, [esi+8] shr ebx, 1 mov [height], ebx mov edi, [dst] add edi, 32*31*4 mov [rBase], edi mov esi, [pQuad] mov ebx, [pBits] ;-------------------------------------- align 4 .l81: mov eax, [pAnd] mov eax, [eax] bswap eax mov [counter], 32 ;-------------------------------------- align 4 @@: xor edx, edx shl eax, 1 setc dl dec edx movzx ecx, byte [ebx] mov ecx, [esi+ecx*4] and ecx, edx and edx, 0xFF000000 or edx, ecx mov [edi], edx inc ebx add edi, 4 dec [counter] jnz @B add [pAnd], 4 mov edi, [rBase] sub edi, 128 mov [rBase], edi sub [height], 1 jnz .l81 ret ;-------------------------------------- align 4 .img_24: add eax, [esi] mov [pQuad], eax add eax, 0xC00 mov [pAnd], eax mov eax, [esi+BITMAPINFOHEADER.Width] mov [width], eax mov ebx, [esi+BITMAPINFOHEADER.Height] shr ebx, 1 mov [height], ebx mov edi, [dst] add edi, 32*31*4 mov [rBase], edi mov esi, [pAnd] mov ebx, [pQuad] ;-------------------------------------- align 4 .row_24: mov eax, [esi] bswap eax mov [counter], 32 ;-------------------------------------- align 4 @@: xor edx, edx shl eax, 1 setc dl dec edx mov ecx, [ebx] and ecx, 0x00FFFFFF and ecx, edx and edx, 0xFF000000 or edx, ecx mov [edi], edx add ebx, 3 add edi, 4 dec [counter] jnz @B add esi, 4 mov edi, [rBase] sub edi, 128 mov [rBase], edi sub [height], 1 jnz .row_24 ret endp ;------------------------------------------------------------------------------ align 4 proc set_cursor stdcall, hcursor:dword mov eax, [hcursor] cmp [eax+CURSOR.magic], 'CURS' jne .fail ; cmp [eax+CURSOR.size], CURSOR_SIZE ; jne .fail mov ebx, [current_slot] xchg eax, [ebx+APPDATA.cursor] jmp .end ;-------------------------------------- align 4 .fail: mov eax, [def_cursor] mov ebx, [current_slot] xchg eax, [ebx+APPDATA.cursor] align 4 .end: mov [redrawmouse_unconditional], 1 call __sys_draw_pointer ret endp ;------------------------------------------------------------------------------ align 4 ; param ; eax= pid ; ebx= src ; ecx= flags create_cursor: .src equ esp .flags equ esp+4 .hcursor equ esp+8 sub esp, 4 ;space for .hcursor push ecx push ebx mov ebx, eax mov eax, sizeof.CURSOR call create_kernel_object test eax, eax jz .fail mov [.hcursor], eax xor ebx, ebx mov [eax+CURSOR.magic], 'CURS' mov [eax+CURSOR.destroy], destroy_cursor mov [eax+CURSOR.hot_x], ebx mov [eax+CURSOR.hot_y], ebx stdcall kernel_alloc, 0x1000 test eax, eax jz .fail mov edi, [.hcursor] mov [edi+CURSOR.base], eax mov esi, [.src] mov ebx, [.flags] cmp bx, LOAD_INDIRECT je .indirect movzx ecx, word [esi+10] movzx edx, word [esi+12] mov [edi+CURSOR.hot_x], ecx mov [edi+CURSOR.hot_y], edx stdcall init_cursor, eax, esi align 4 .add_cursor: mov ecx, [.hcursor] lea ecx, [ecx+CURSOR.list_next] lea edx, [_display.cr_list.next] pushfd cli list_add ecx, edx ;list_add_tail(new, head) popfd mov eax, [.hcursor] cmp [_display.init_cursor], 0 je .fail push eax call [_display.init_cursor] add esp, 4 mov eax, [.hcursor] ;-------------------------------------- align 4 .fail: add esp, 12 ret ;-------------------------------------- align 4 .indirect: shr ebx, 16 movzx ecx, bh movzx edx, bl mov [edi+CURSOR.hot_x], ecx mov [edi+CURSOR.hot_y], edx xchg edi, eax mov ecx, 1024 cld rep movsd jmp .add_cursor ;------------------------------------------------------------------------------ align 4 proc load_cursor stdcall, src:dword, flags:dword locals handle dd ? endl xor eax, eax cmp [create_cursor], eax je .fail2 mov [handle], eax cmp word [flags], LOAD_FROM_FILE jne @F stdcall load_file, [src] test eax, eax jz .fail mov [src], eax ;-------------------------------------- align 4 @@: push ebx push esi push edi mov eax, [CURRENT_TASK] shl eax, 5 mov eax, [CURRENT_TASK+eax+4] mov ebx, [src] mov ecx, [flags] call create_cursor ;eax, ebx, ecx mov [handle], eax cmp word [flags], LOAD_FROM_FILE jne .exit stdcall kernel_free, [src] ;-------------------------------------- align 4 .exit: pop edi pop esi pop ebx ;-------------------------------------- align 4 .fail: mov eax, [handle] ;-------------------------------------- align 4 .fail2: ret endp ;------------------------------------------------------------------------------ align 4 proc delete_cursor stdcall, hcursor:dword ; DEBUGF 1,'K : delete_cursor %x\n', [hcursor] mov esi, [hcursor] cmp [esi+CURSOR.magic], 'CURS' jne .fail mov ebx, [CURRENT_TASK] shl ebx, 5 mov ebx, [CURRENT_TASK+ebx+4] cmp ebx, [esi+CURSOR.pid] jne .fail mov ebx, [current_slot] cmp esi, [ebx+APPDATA.cursor] jne @F mov eax, [def_cursor] mov [ebx+APPDATA.cursor], eax ;-------------------------------------- align 4 @@: mov eax, [hcursor] call [eax+APPOBJ.destroy] ;-------------------------------------- align 4 .fail: ret endp ;------------------------------------------------------------------------------ align 4 ; param ; eax= cursor destroy_cursor: push eax stdcall kernel_free, [eax+CURSOR.base] mov eax, [esp] lea eax, [eax+CURSOR.list_next] pushfd cli list_del eax popfd pop eax call destroy_kernel_object ret ;------------------------------------------------------------------------------ align 4 select_cursor: mov eax, [esp+4] mov [_display.cursor], eax ret 4 ;------------------------------------------------------------------------------ align 4 proc restore_24 stdcall, x:dword, y:dword push ebx mov ebx, [cur_saved_base] mov edx, [cur.h] test edx, edx jz .ret push esi push edi mov esi, cur_saved_data mov ecx, [cur.w] lea ecx, [ecx+ecx*2] push ecx ;-------------------------------------- align 4 @@: mov edi, ebx add ebx, [_display.lfb_pitch] mov ecx, [esp] rep movsb dec edx jnz @B pop ecx pop edi pop esi ;-------------------------------------- align 4 .ret: pop ebx ret endp ;------------------------------------------------------------------------------ align 4 proc restore_32 stdcall, x:dword, y:dword push ebx mov ebx, [cur_saved_base] mov edx, [cur.h] test edx, edx jz .ret push esi push edi mov esi, cur_saved_data ;-------------------------------------- align 4 @@: mov edi, ebx add ebx, [_display.lfb_pitch] mov ecx, [cur.w] rep movsd dec edx jnz @B pop edi pop esi ;-------------------------------------- align 4 .ret: pop ebx ret endp ;------------------------------------------------------------------------------ align 4 proc restore_16 stdcall, x:dword, y:dword push ebx mov ebx, [cur_saved_base] mov edx, [cur.h] test edx, edx jz .ret push esi push edi mov esi, cur_saved_data ;-------------------------------------- align 4 @@: mov edi, ebx add ebx, [_display.lfb_pitch] mov ecx, [cur.w] rep movsw dec edx jnz @B pop edi pop esi ;-------------------------------------- align 4 .ret: pop ebx ret endp ;------------------------------------------------------------------------------ align 4 proc move_cursor_24 stdcall, hcursor:dword, x:dword, y:dword locals h dd ? _dx dd ? _dy dd ? endl mov esi, [hcursor] mov ecx, [x] mov eax, [y] ; mov ebx, [BytesPerScanLine] xor edx, edx sub ecx, [esi+CURSOR.hot_x] lea ebx, [ecx+32-1] mov [x], ecx sets dl dec edx and ecx, edx ;clip x to 0<=x mov [cur.left], ecx mov edi, ecx sub edi, [x] mov [_dx], edi xor edx, edx sub eax, [esi+CURSOR.hot_y] lea edi, [eax+32-1] mov [y], eax sets dl dec edx and eax, edx ;clip y to 0<=y mov [cur.top], eax mov edx, eax sub edx, [y] mov [_dy], edx ; mul dword [BytesPerScanLine] mov eax, [BPSLine_calc_area+eax*4] lea edx, [LFB_BASE+ecx*3] add edx, eax mov [cur_saved_base], edx cmp ebx, [_display.width] jb @F mov ebx, [_display.width] ;-------------------------------------- align 4 @@: cmp edi, [_display.height] jb @F mov edi, [_display.height] ;-------------------------------------- align 4 @@: sub ebx, [x] sub edi, [y] sub ebx, [_dx] sub edi, [_dy] mov [cur.w], ebx mov [cur.h], edi mov [h], edi mov eax, edi mov edi, cur_saved_data ;-------------------------------------- align 4 @@: mov esi, edx add edx, [_display.lfb_pitch] mov ecx, [cur.w] lea ecx, [ecx+ecx*2] rep movsb dec eax jnz @B ;draw cursor mov ebx, [cur_saved_base] mov eax, [_dy] shl eax, 5 add eax, [_dx] mov esi, [hcursor] mov esi, [esi+CURSOR.base] lea edx, [esi+eax*4] ;-------------------------------------- align 4 .row: mov ecx, [cur.w] mov esi, edx mov edi, ebx add edx, 32*4 add ebx, [_display.lfb_pitch] ;-------------------------------------- align 4 .pix: lodsd test eax, 0xFF000000 jz @F mov [edi], ax shr eax, 16 mov [edi+2], al ;-------------------------------------- align 4 @@: add edi, 3 dec ecx jnz .pix dec [h] jnz .row ret endp ;------------------------------------------------------------------------------ align 4 proc move_cursor_32 stdcall, hcursor:dword, x:dword, y:dword locals h dd ? _dx dd ? _dy dd ? endl mov esi, [hcursor] mov ecx, [x] mov eax, [y] xor edx, edx sub ecx, [esi+CURSOR.hot_x] lea ebx, [ecx+32-1] mov [x], ecx sets dl dec edx and ecx, edx ;clip x to 0<=x mov [cur.left], ecx mov edi, ecx sub edi, [x] mov [_dx], edi xor edx, edx sub eax, [esi+CURSOR.hot_y] lea edi, [eax+32-1] mov [y], eax sets dl dec edx and eax, edx ;clip y to 0<=y mov [cur.top], eax mov edx, eax sub edx, [y] mov [_dy], edx ; mul dword [BytesPerScanLine] mov eax, [BPSLine_calc_area+eax*4] lea edx, [LFB_BASE+eax+ecx*4] mov [cur_saved_base], edx cmp ebx, [_display.width] jb @F mov ebx, [_display.width] ;-------------------------------------- align 4 @@: cmp edi, [_display.height] jb @F mov edi, [_display.height] ;-------------------------------------- align 4 @@: sub ebx, [x] sub edi, [y] sub ebx, [_dx] sub edi, [_dy] mov [cur.w], ebx mov [cur.h], edi mov [h], edi mov eax, edi mov edi, cur_saved_data ;-------------------------------------- align 4 @@: mov esi, edx add edx, [_display.lfb_pitch] mov ecx, [cur.w] rep movsd dec eax jnz @B ;draw cursor mov ebx, [cur_saved_base] mov eax, [_dy] shl eax, 5 add eax, [_dx] mov esi, [hcursor] mov esi, [esi+CURSOR.base] lea edx, [esi+eax*4] ;-------------------------------------- align 4 .row: mov ecx, [cur.w] mov esi, edx mov edi, ebx add edx, 32*4 add ebx, [_display.lfb_pitch] ;-------------------------------------- align 4 .pix: lodsd test eax, 0xFF000000 jz @F mov [edi], eax ;-------------------------------------- align 4 @@: add edi, 4 dec ecx jnz .pix dec [h] jnz .row ret endp ;------------------------------------------------------------------------------ align 4 proc move_cursor_16 stdcall, hcursor:dword, x:dword, y:dword locals h dd ? _dx dd ? _dy dd ? endl mov esi, [hcursor] mov ecx, [x] mov eax, [y] xor edx, edx sub ecx, [esi+CURSOR.hot_x] lea ebx, [ecx+32-1] mov [x], ecx sets dl dec edx and ecx, edx ;clip x to 0<=x mov [cur.left], ecx mov edi, ecx sub edi, [x] mov [_dx], edi xor edx, edx sub eax, [esi+CURSOR.hot_y] lea edi, [eax+32-1] mov [y], eax sets dl dec edx and eax, edx ;clip y to 0<=y mov [cur.top], eax mov edx, eax sub edx, [y] mov [_dy], edx ; mul dword [BytesPerScanLine] mov eax, [BPSLine_calc_area+eax*4] lea edx, [LFB_BASE+eax+ecx*2] mov [cur_saved_base], edx cmp ebx, [_display.width] jb @F mov ebx, [_display.width] ;-------------------------------------- align 4 @@: cmp edi, [_display.height] jb @F mov edi, [_display.height] ;-------------------------------------- align 4 @@: sub ebx, [x] sub edi, [y] sub ebx, [_dx] sub edi, [_dy] mov [cur.w], ebx mov [cur.h], edi mov [h], edi mov eax, edi mov edi, cur_saved_data ;-------------------------------------- align 4 @@: mov esi, edx add edx, [_display.lfb_pitch] mov ecx, [cur.w] rep movsw dec eax jnz @B ;draw cursor mov ebx, [cur_saved_base] mov eax, [_dy] shl eax, 5 add eax, [_dx] mov esi, [hcursor] mov esi, [esi+CURSOR.base] lea edx, [esi+eax*4] ;-------------------------------------- align 4 .row: mov ecx, [cur.w] mov esi, edx mov edi, ebx add edx, 32*4 add ebx, [_display.lfb_pitch] ;-------------------------------------- align 4 .pix: lodsd test eax, 0xFF000000 jz @F ; convert to 16 bpp and store to real LFB and eax, 00000000111110001111110011111000b shr ah, 2 shr ax, 3 ror eax, 8 add al, ah rol eax, 8 mov [edi], ax ;-------------------------------------- align 4 @@: add edi, 2 dec ecx jnz .pix dec [h] jnz .row ret endp ;------------------------------------------------------------------------------ align 4 check_mouse_area_for_getpixel_new: ; in: ; eax = x ; ebx = y ; out: ; ecx = new color ;-------------------------------------- ; check for Y cmp bx, [Y_UNDER_subtraction_CUR_hot_y] jb .no_mouse_area cmp bx, [Y_UNDER_sub_CUR_hot_y_add_curh] jae .no_mouse_area ;-------------------------------------- ; check for X cmp ax, [X_UNDER_subtraction_CUR_hot_x] jb .no_mouse_area cmp ax, [X_UNDER_sub_CUR_hot_x_add_curh] jae .no_mouse_area ;-------------------------------------- push eax ebx ; offset X movzx ecx, word [X_UNDER_subtraction_CUR_hot_x] sub eax, ecx ; x1 ; offset Y movzx ecx, word [Y_UNDER_subtraction_CUR_hot_y] sub ebx, ecx ; y1 ;-------------------------------------- ; ebx = offset y ; eax = offset x imul ebx, [cur.w] ;y add eax, ebx mov ebx, eax shl eax, 2 cmp byte [_display.bits_per_pixel], 32 je @f sub eax, ebx cmp byte [_display.bits_per_pixel], 24 je @f sub eax, ebx ;-------------------------------------- align 4 @@: add eax, cur_saved_data mov ecx, [eax] and ecx, 0xffffff add ecx, 0xff000000 pop ebx eax ret ;-------------------------------------- align 4 .no_mouse_area: xor ecx, ecx ret ;----------------------------------------------------------------------------- align 4 check_mouse_area_for_putpixel_new: ; in: ; ecx = x shl 16 + y ; eax = color ; out: ; eax = new color ;-------------------------------------- ; check for Y cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh] jae .no_mouse_area sub cx, [Y_UNDER_subtraction_CUR_hot_y] jb .no_mouse_area rol ecx, 16 ;-------------------------------------- ; check for X cmp cx, [X_UNDER_sub_CUR_hot_x_add_curh] jae .no_mouse_area sub cx, [X_UNDER_subtraction_CUR_hot_x] jb .no_mouse_area ror ecx, 16 ;-------------------------------------- align 4 .1: push eax ;-------------------------------------- ; ecx = (offset x) shl 16 + (offset y) push ebx mov ebx, ecx shr ebx, 16 ; x and ecx, 0xffff ; y cmp ecx, [cur.h] jae @f cmp ebx, [cur.w] jb .ok ;-------------------------------------- align 4 @@: ; DEBUGF 1, "K : SHIT HAPPENS: %x %x \n", ecx,ebx pop ebx jmp .sh ; SORRY! SHIT HAPPENS! ;-------------------------------------- align 4 .ok: ; ecx = offset y ; ebx = offset x push ebx ecx imul ecx, [cur.w] ;y add ecx, ebx mov ebx, ecx shl ecx, 2 cmp byte [_display.bits_per_pixel], 16 je .16 cmp byte [_display.bits_per_pixel], 24 je .24 and eax, 0xFFFFFF mov [ecx + cur_saved_data], eax ;store new color to jmp @f ;-------------------------------------- align 4 .16: sub ecx, ebx sub ecx, ebx ; convert to 16 bpp and store to real LFB and eax, 00000000111110001111110011111000b shr ah, 2 shr ax, 3 ror eax, 8 add al, ah rol eax, 8 mov [ecx + cur_saved_data], ax ;store new color to jmp @f ;-------------------------------------- align 4 .24: sub ecx, ebx mov [ecx + cur_saved_data], ax ;store new color to shr eax, 16 mov [ecx + cur_saved_data + 2], al ;store new color to ;-------------------------------------- align 4 @@: pop ecx ebx shl ecx, 5 add ecx, ebx mov eax, [current_cursor] mov eax, [eax+CURSOR.base] lea eax, [eax+ecx*4] mov eax, [eax] pop ebx test eax, 0xFF000000 jz @f add esp, 4 ret ;-------------------------------------- align 4 .sh: mov ecx, -1 ;-------------------------------------- align 4 @@: pop eax ;-------------------------------------- align 4 .no_mouse_area: ret ;------------------------------------------------------------------------------ align 4 get_display: mov eax, _display ret ;------------------------------------------------------------------------------ align 4 init_display: xor eax, eax mov edi, _display mov [edi+display_t.init_cursor], eax mov [edi+display_t.select_cursor], eax mov [edi+display_t.show_cursor], eax mov [edi+display_t.move_cursor], eax mov [edi+display_t.restore_cursor], eax lea ecx, [edi+display_t.cr_list.next] mov [edi+display_t.cr_list.next], ecx mov [edi+display_t.cr_list.prev], ecx cmp [SCR_MODE], word 0x13 jbe .fail test word [SCR_MODE], 0x4000 jz .fail mov ebx, restore_32 mov ecx, move_cursor_32 mov edx, Vesa20_putpixel32_new mov eax, [_display.bits_per_pixel] cmp al, 32 jne .not_32bpp .set: mov [_display.select_cursor], select_cursor mov [_display.move_cursor], ecx mov [_display.restore_cursor], ebx mov [_display.check_mouse], check_mouse_area_for_putpixel_new mov [_display.check_m_pixel], check_mouse_area_for_getpixel_new cmp [PUTPIXEL], dword VGA_putpixel je @f mov [PUTPIXEL], edx @@: stdcall load_cursor, clock_arrow, dword LOAD_FROM_MEM mov [def_cursor_clock], eax stdcall load_cursor, def_arrow, dword LOAD_FROM_MEM mov [def_cursor], eax ret .not_32bpp: cmp al, 24 jne .not_24bpp mov ebx, restore_24 mov ecx, move_cursor_24 mov edx, Vesa20_putpixel24_new jmp .set .not_24bpp: cmp al, 16 jne .not_16bpp mov ebx, restore_16 mov ecx, move_cursor_16 mov edx, Vesa20_putpixel16_new jmp .set .not_16bpp: ; cmp al, 15 ; jne .fail ; mov ebx, restore_15 ; mov ecx, move_cursor_15 ; mov edx, Vesa20_putpixel15_new ; jmp .set .fail: xor eax, eax mov [_display.select_cursor], eax mov [_display.move_cursor], eax ret ;------------------------------------------------------------------------------ align 4 def_arrow: file 'arrow.cur' ;------------------------------------------------------------------------------ align 4 clock_arrow: file 'arrow_clock.cur' ;------------------------------------------------------------------------------