Subversion Repositories Kolibri OS

Rev

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

  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;
  3. ;; Copyright (C) KolibriOS team 2004-2013. All rights reserved.
  4. ;; PROGRAMMING:
  5. ;; Ivan Poddubny
  6. ;; Marat Zakiyanov (Mario79)
  7. ;; VaStaNi
  8. ;; Trans
  9. ;; Mihail Semenyako (mike.dld)
  10. ;; Sergey Kuzmin (Wildwest)
  11. ;; Andrey Halyavin (halyavin)
  12. ;; Mihail Lisovin (Mihasik)
  13. ;; Andrey Ignatiev (andrew_programmer)
  14. ;; NoName
  15. ;; Evgeny Grechnikov (Diamond)
  16. ;; Iliya Mihailov (Ghost)
  17. ;; Sergey Semyonov (Serge)
  18. ;; Johnny_B
  19. ;; SPraid (simba)
  20. ;; Hidnplayr
  21. ;; Alexey Teplov (<Lrz>)
  22. ;; Rus
  23. ;; Nable
  24. ;; shurf
  25. ;; Alver
  26. ;; Maxis
  27. ;; Galkov
  28. ;; CleverMouse
  29. ;; tsdima
  30. ;; turbanoff
  31. ;; Asper
  32. ;; art_zh
  33. ;;
  34. ;; Data in this file was originally part of MenuetOS project which is
  35. ;; distributed under the terms of GNU GPL. It is modified and redistributed as
  36. ;; part of KolibriOS project under the terms of GNU GPL.
  37. ;;
  38. ;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa
  39. ;; PROGRAMMING:
  40. ;;
  41. ;; Ville Mikael Turjanmaa, villemt@itu.jyu.fi
  42. ;; - main os coding/design
  43. ;; Jan-Michael Brummer, BUZZ2@gmx.de
  44. ;; Felix Kaiser, info@felix-kaiser.de
  45. ;; Paolo Minazzi, paolo.minazzi@inwind.it
  46. ;; quickcode@mail.ru
  47. ;; Alexey, kgaz@crosswinds.net
  48. ;; Juan M. Caravaca, bitrider@wanadoo.es
  49. ;; kristol@nic.fi
  50. ;; Mike Hibbett, mikeh@oceanfree.net
  51. ;; Lasse Kuusijarvi, kuusijar@lut.fi
  52. ;; Jarek Pelczar, jarekp3@wp.pl
  53. ;;
  54. ;; KolibriOS is distributed in the hope that it will be useful, but WITHOUT ANY
  55. ;; WARRANTY. No author or distributor accepts responsibility to anyone for the
  56. ;; consequences of using it or for whether it serves any particular purpose or
  57. ;; works at all, unless he says so in writing. Refer to the GNU General Public
  58. ;; License (the "GPL") for full details.
  59. ;
  60. ;; Everyone is granted permission to copy, modify and redistribute KolibriOS,
  61. ;; but only under the conditions described in the GPL. A copy of this license
  62. ;; is supposed to have been given to you along with KolibriOS so you can know
  63. ;; your rights and responsibilities. It should be in a file named COPYING.
  64. ;; Among other things, the copyright notice and this notice must be preserved
  65. ;; on all copies.
  66. ;;
  67. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  68.  
  69. format binary as "mnt"
  70.  
  71. include 'macros.inc'
  72. include 'struct.inc'
  73.  
  74. $Revision: 5049 $
  75.  
  76.  
  77. USE_COM_IRQ     equ 1      ; make irq 3 and irq 4 available for PCI devices
  78. VESA_1_2_VIDEO equ 0      ; enable vesa 1.2 bank switch functions
  79.  
  80. ; Enabling the next line will enable serial output console
  81. ;debug_com_base  equ 0x3f8  ; 0x3f8 is com1, 0x2f8 is com2, 0x3e8 is com3, 0x2e8 is com4, no irq's are used
  82.  
  83. include "proc32.inc"
  84. include "kglobals.inc"
  85. include "lang.inc"
  86. include "encoding.inc"
  87.  
  88. include "const.inc"
  89.  
  90. iglobal
  91. ; The following variable, if equal to 1, duplicates debug output to the screen.
  92. debug_direct_print db 0
  93. ; Start the first app (LAUNCHER) after kernel is loaded? (1=yes, 2 or 0=no)
  94. launcher_start db 1
  95. endg
  96.  
  97. max_processes   equ   255
  98. tss_step         equ   (128+8192) ; tss & i/o - 65535 ports, * 256=557056*4
  99.  
  100. os_stack       equ  (os_data_l-gdts)    ; GDTs
  101. os_code       equ  (os_code_l-gdts)
  102. graph_data     equ  (3+graph_data_l-gdts)
  103. tss0           equ  (tss0_l-gdts)
  104. app_code       equ  (3+app_code_l-gdts)
  105. app_data       equ  (3+app_data_l-gdts)
  106. app_tls       equ  (3+tls_data_l-gdts)
  107. pci_code_sel   equ  (pci_code_32-gdts)
  108. pci_data_sel   equ  (pci_data_32-gdts)
  109.  
  110.  
  111. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  112. ;;
  113. ;;   Included files:
  114. ;;
  115. ;;   Kernel16.inc
  116. ;;    - Booteng.inc   English text for bootup
  117. ;;    - Bootcode.inc  Hardware setup
  118. ;;    - Pci16.inc     PCI functions
  119. ;;
  120. ;;   Kernel32.inc
  121. ;;    - Sys32.inc     Process management
  122. ;;    - Shutdown.inc  Shutdown and restart
  123. ;;    - Fat32.inc     Read / write hd
  124. ;;    - Vesa12.inc    Vesa 1.2 driver
  125. ;;    - Vesa20.inc    Vesa 2.0 driver
  126. ;;    - Vga.inc       VGA driver
  127. ;;    - Stack.inc     Network interface
  128. ;;    - Mouse.inc     Mouse pointer
  129. ;;    - Scincode.inc  Window skinning
  130. ;;    - Pci32.inc     PCI functions
  131. ;;
  132. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  133.  
  134.  
  135. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  136. ;;                                                                      ;;
  137. ;;                  16 BIT ENTRY FROM BOOTSECTOR                        ;;
  138. ;;                                                                      ;;
  139. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  140.  
  141. use16
  142.                   org   0x0
  143.         jmp     start_of_code
  144.  
  145. if lang eq sp
  146. include "kernelsp.inc"  ; spanish kernel messages
  147. else if lang eq et
  148. version db    'Kolibri OS  versioon 0.7.7.0+    ',13,10,13,10,0
  149. else
  150. version db    'Kolibri OS  version 0.7.7.0+     ',13,10,13,10,0
  151. end if
  152.  
  153. include "boot/bootstr.inc"     ; language-independent boot messages
  154. include "boot/preboot.inc"
  155.  
  156. if lang eq ge
  157. include "boot/bootge.inc"     ; german system boot messages
  158. else if lang eq sp
  159. include "boot/bootsp.inc"     ; spanish system boot messages
  160. else if lang eq ru
  161. include "boot/bootru.inc"      ; russian system boot messages
  162. include "boot/ru.inc"          ; Russian font
  163. else if lang eq et
  164. include "boot/bootet.inc"      ; estonian system boot messages
  165. include "boot/et.inc"          ; Estonian font
  166. else
  167. include "boot/booten.inc"      ; english system boot messages
  168. end if
  169.  
  170. include "boot/bootcode.inc"    ; 16 bit system boot code
  171. include "bus/pci/pci16.inc"
  172. include "detect/biosdisk.inc"
  173.  
  174. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  175. ;;                                                                      ;;
  176. ;;                  SWITCH TO 32 BIT PROTECTED MODE                     ;;
  177. ;;                                                                      ;;
  178. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  179.  
  180.  
  181. ; CR0 Flags - Protected mode and Paging
  182.  
  183.         mov     ecx, CR0_PE
  184.  
  185. ; Enabling 32 bit protected mode
  186.  
  187.         sidt    [cs:old_ints_h]
  188.  
  189.         cli                             ; disable all irqs
  190.         cld
  191.         mov     al, 255                 ; mask all irqs
  192.         out     0xa1, al
  193.         out     0x21, al
  194.    l.5:
  195.         in      al, 0x64                ; Enable A20
  196.         test    al, 2
  197.         jnz     l.5
  198.         mov     al, 0xD1
  199.         out     0x64, al
  200.    l.6:
  201.         in      al, 0x64
  202.         test    al, 2
  203.         jnz     l.6
  204.         mov     al, 0xDF
  205.         out     0x60, al
  206.    l.7:
  207.         in      al, 0x64
  208.         test    al, 2
  209.         jnz     l.7
  210.         mov     al, 0xFF
  211.         out     0x64, al
  212.  
  213.         lgdt    [cs:tmp_gdt]            ; Load GDT
  214.         mov     eax, cr0                ; protected mode
  215.         or      eax, ecx
  216.         and     eax, 10011111b *65536*256 + 0xffffff ; caching enabled
  217.         mov     cr0, eax
  218.         jmp     pword os_code:B32       ; jmp to enable 32 bit mode
  219.  
  220. align 8
  221. tmp_gdt:
  222.  
  223.         dw     23
  224.         dd     tmp_gdt+0x10000
  225.         dw     0
  226.  
  227.         dw     0xffff
  228.         dw     0x0000
  229.         db     0x00
  230.         dw     11011111b *256 +10011010b
  231.         db     0x00
  232.  
  233.         dw     0xffff
  234.         dw     0x0000
  235.         db     0x00
  236.         dw     11011111b *256 +10010010b
  237.         db     0x00
  238.  
  239. include "data16.inc"
  240.  
  241. if ~ lang eq sp
  242. diff16 "end of bootcode",0,$+0x10000
  243. end if
  244.  
  245. use32
  246. org $+0x10000
  247.  
  248. align 4
  249. B32:
  250.         mov     ax, os_stack       ; Selector for os
  251.         mov     ds, ax
  252.         mov     es, ax
  253.         mov     fs, ax
  254.         mov     gs, ax
  255.         mov     ss, ax
  256.         mov     esp, 0x006CC00       ; Set stack
  257.  
  258. ; CLEAR 0x280000 - HEAP_BASE
  259.  
  260.         xor     eax, eax
  261.         mov     edi, CLEAN_ZONE
  262.         mov     ecx, (HEAP_BASE-OS_BASE-CLEAN_ZONE) / 4
  263.         cld
  264.         rep stosd
  265.  
  266. ; CLEAR KERNEL UNDEFINED GLOBALS
  267.         mov     edi, endofcode-OS_BASE
  268.         mov     ecx, 0x90000
  269.         sub     ecx, edi
  270.         shr     ecx, 2
  271.         rep stosd
  272.  
  273. ; SAVE & CLEAR 0-0xffff
  274.  
  275.         mov     edi, 0x1000
  276.         mov     ecx, 0x8000 / 4
  277.         rep stosd
  278.         mov     edi, 0xa000
  279.         mov     ecx, 0x6000 / 4
  280.         rep stosd
  281.  
  282.         call    test_cpu
  283.         bts     [cpu_caps-OS_BASE], CAPS_TSC    ;force use rdtsc
  284.  
  285.         call    check_acpi
  286.         call    init_BIOS32
  287. ; MEMORY MODEL
  288.         call    mem_test
  289.         call    init_mem
  290.         call    init_page_map
  291.  
  292. ; ENABLE PAGING
  293.  
  294.         mov     eax, sys_pgdir-OS_BASE
  295.         mov     cr3, eax
  296.  
  297.         mov     eax, cr0
  298.         or      eax, CR0_PG+CR0_WP
  299.         mov     cr0, eax
  300.  
  301.         lgdt    [gdts]
  302.         jmp     pword os_code:high_code
  303.  
  304. align 4
  305. bios32_entry    dd ?
  306. tmp_page_tabs   dd ?
  307.  
  308. use16
  309. org $-0x10000
  310. include "boot/shutdown.inc" ; shutdown or restart
  311. org $+0x10000
  312.  
  313. ap_init16:
  314.         cli
  315.         lgdt    [cs:gdts_ap-ap_init16]
  316.         mov     eax, [cs:cr3_ap-ap_init16]
  317.         mov     cr3, eax
  318.         mov     eax, [cs:cr4_ap-ap_init16]
  319.         mov     cr4, eax
  320.         mov     eax, CR0_PE+CR0_PG+CR0_WP
  321.         mov     cr0, eax
  322.         jmp     pword os_code:ap_init_high
  323. align 16
  324. gdts_ap:
  325.         dw     gdte-gdts-1
  326.         dd     gdts
  327.         dw     0
  328. cr3_ap  dd     ?
  329. cr4_ap  dd     ?
  330. ap_init16_size = $ - ap_init16
  331. use32
  332.  
  333. __DEBUG__ fix 1
  334. __DEBUG_LEVEL__ fix 1
  335. include 'init.inc'
  336.  
  337. org OS_BASE+$
  338.  
  339. include 'fdo.inc'
  340.  
  341. align 4
  342. high_code:
  343.         mov     ax, os_stack
  344.         mov     bx, app_data
  345.         mov     cx, app_tls
  346.         mov     ss, ax
  347.         add     esp, OS_BASE
  348.  
  349.         mov     ds, bx
  350.         mov     es, bx
  351.         mov     fs, cx
  352.         mov     gs, bx
  353.  
  354.         bt      [cpu_caps], CAPS_PGE
  355.         jnc     @F
  356.  
  357.         or      dword [sys_pgdir+(OS_BASE shr 20)], PG_GLOBAL
  358.  
  359.         mov     ebx, cr4
  360.         or      ebx, CR4_PGE
  361.         mov     cr4, ebx
  362. @@:
  363.         xor     eax, eax
  364.         mov     dword [sys_pgdir], eax
  365.         mov     dword [sys_pgdir+4], eax
  366.  
  367.         mov     eax, cr3
  368.         mov     cr3, eax          ; flush TLB
  369.  
  370.         mov     ecx, pg_data.mutex
  371.         call    mutex_init
  372.  
  373.         mov     ecx, disk_list_mutex
  374.         call    mutex_init
  375.  
  376.         mov     ecx, keyboard_list_mutex
  377.         call    mutex_init
  378.  
  379.         mov     ecx, unpack_mutex
  380.         call    mutex_init
  381.  
  382.         mov     ecx, application_table_mutex
  383.         call    mutex_init
  384.  
  385.         mov     ecx, ide_mutex
  386.         call    mutex_init
  387.         mov     ecx, ide_channel1_mutex
  388.         call    mutex_init
  389.         mov     ecx, ide_channel2_mutex
  390.         call    mutex_init
  391.         mov     ecx, ide_channel3_mutex
  392.         call    mutex_init
  393.         mov     ecx, ide_channel4_mutex
  394.         call    mutex_init
  395.         mov     ecx, ide_channel5_mutex
  396.         call    mutex_init
  397.         mov     ecx, ide_channel6_mutex
  398.         call    mutex_init
  399. ;-----------------------------------------------------------------------------
  400. ; SAVE REAL MODE VARIABLES
  401. ;-----------------------------------------------------------------------------
  402. ; --------------- APM ---------------------
  403.  
  404. ; init selectors
  405.         mov     ebx, [BOOT_VARS+BOOT_APM_ENTRY]        ; offset of APM entry point
  406.         movzx   eax, word [BOOT_VARS+BOOT_APM_CODE_32] ; real-mode segment base address of
  407.                                                                                 ; protected-mode 32-bit code segment
  408.         movzx   ecx, word [BOOT_VARS+BOOT_APM_CODE_16]; real-mode segment base address of
  409.                                                                                 ; protected-mode 16-bit code segment
  410.         movzx   edx, word [BOOT_VARS+BOOT_APM_DATA_16]; real-mode segment base address of
  411.                                                                                 ; protected-mode 16-bit data segment
  412.  
  413.         shl     eax, 4
  414.         mov     [dword apm_code_32 + 2], ax
  415.         shr     eax, 16
  416.         mov     [dword apm_code_32 + 4], al
  417.  
  418.         shl     ecx, 4
  419.         mov     [dword apm_code_16 + 2], cx
  420.         shr     ecx, 16
  421.         mov     [dword apm_code_16 + 4], cl
  422.  
  423.         shl     edx, 4
  424.         mov     [dword apm_data_16 + 2], dx
  425.         shr     edx, 16
  426.         mov     [dword apm_data_16 + 4], dl
  427.  
  428.         mov     dword[apm_entry], ebx
  429.         mov     word [apm_entry + 4], apm_code_32 - gdts
  430.  
  431.         mov     eax, [BOOT_VARS + BOOT_APM_VERSION] ; version & flags
  432.         mov     [apm_vf], eax
  433. ; -----------------------------------------
  434.         mov     al, [BOOT_VARS+BOOT_DMA]            ; DMA access
  435.         mov     [allow_dma_access], al
  436.         movzx   eax, byte [BOOT_VARS+BOOT_BPP]      ; bpp
  437.         mov     [_display.bpp], eax
  438.         mov     [_display.vrefresh], 60
  439.         mov     al, [BOOT_VARS+BOOT_DEBUG_PRINT]    ; If nonzero, duplicates debug output to the screen
  440.         mov     [debug_direct_print], al
  441.         mov     al, [BOOT_VARS+BOOT_LAUNCHER_START] ; Start the first app (LAUNCHER) after kernel is loaded?
  442.         mov     [launcher_start], al
  443.         movzx   eax, word [BOOT_VARS+BOOT_X_RES]; X max
  444.         mov     [_display.width], eax
  445.         mov     [display_width_standard], eax
  446.         dec     eax
  447.         mov     [Screen_Max_X], eax
  448.         mov     [screen_workarea.right], eax
  449.         movzx   eax, word [BOOT_VARS+BOOT_Y_RES]; Y max
  450.         mov     [_display.height], eax
  451.         mov     [display_height_standard], eax
  452.         dec     eax
  453.         mov     [Screen_Max_Y], eax
  454.         mov     [screen_workarea.bottom], eax
  455.         movzx   eax, word [BOOT_VARS+BOOT_VESA_MODE] ; screen mode
  456.         mov     dword [SCR_MODE], eax
  457. ;        mov     eax, [BOOT_VAR+0x9014]             ; Vesa 1.2 bnk sw add
  458. ;        mov     [BANK_SWITCH], eax
  459.         mov     eax, 640 *4                         ; Bytes PerScanLine
  460.         cmp     [SCR_MODE], word 0x13               ; 320x200
  461.         je      @f
  462.         cmp     [SCR_MODE], word 0x12               ; VGA 640x480
  463.         je      @f
  464.         movzx   eax, word[BOOT_VARS+BOOT_PITCH]      ; for other modes
  465. @@:
  466.         mov     [_display.pitch], eax
  467.         mov     eax, [_display.width]
  468.         mul     [_display.height]
  469.         mov     [_WinMapSize], eax
  470.  
  471.         call    calculate_fast_getting_offset_for_WinMapAddress
  472. ; for Qemu or non standart video cards
  473. ; Unfortunately [BytesPerScanLine] does not always
  474. ;                             equal to [_display.width] * [ScreenBPP] / 8
  475.         call    calculate_fast_getting_offset_for_LFB
  476.  
  477.         mov     esi, BOOT_VARS+0x9080
  478.         movzx   ecx, byte [esi-1]
  479.         mov     [NumBiosDisks], ecx
  480.         mov     edi, BiosDisksData
  481.         rep movsd
  482.  
  483. ; GRAPHICS ADDRESSES
  484.  
  485.         mov     eax, [BOOT_VARS+BOOT_LFB]
  486.         mov     [LFBAddress], eax
  487.  
  488.         cmp     [SCR_MODE], word 0100000000000000b
  489.         jge     setvesa20
  490.         cmp     [SCR_MODE], word 0x13  ; EGA 320*200 256 colors
  491.         je      v20ga32
  492.         jmp     v20ga24
  493.  
  494. setvesa20:
  495.         mov     [PUTPIXEL], dword Vesa20_putpixel24 ; Vesa 2.0
  496.         mov     [GETPIXEL], dword Vesa20_getpixel24
  497.         cmp     byte [_display.bpp], 24
  498.         jz      v20ga24
  499. v20ga32:
  500.         mov     [PUTPIXEL], dword Vesa20_putpixel32
  501.         mov     [GETPIXEL], dword Vesa20_getpixel32
  502.         jmp     no_mode_0x12
  503. v20ga24:
  504.         cmp     [SCR_MODE], word 0x12               ; 16 C VGA 640x480
  505.         jne     no_mode_0x12
  506.         mov     [PUTPIXEL], dword VGA_putpixel
  507.         mov     [GETPIXEL], dword Vesa20_getpixel32
  508. no_mode_0x12:
  509.  
  510.         mov     [MOUSE_PICTURE], dword mousepointer
  511.         mov     [_display.check_mouse], check_mouse_area_for_putpixel
  512.         mov     [_display.check_m_pixel], check_mouse_area_for_getpixel
  513.  
  514. ; -------- Fast System Call init ----------
  515. ; Intel SYSENTER/SYSEXIT (AMD CPU support it too)
  516.         bt      [cpu_caps], CAPS_SEP
  517.         jnc     .SEnP  ; SysEnter not Present
  518.         xor     edx, edx
  519.         mov     ecx, MSR_SYSENTER_CS
  520.         mov     eax, os_code
  521.         wrmsr
  522.         mov     ecx, MSR_SYSENTER_ESP
  523. ;           mov eax, sysenter_stack ; Check it
  524.         xor     eax, eax
  525.         wrmsr
  526.         mov     ecx, MSR_SYSENTER_EIP
  527.         mov     eax, sysenter_entry
  528.         wrmsr
  529. .SEnP:
  530. ; AMD SYSCALL/SYSRET
  531.         cmp     byte[cpu_vendor], 'A'
  532.         jne     .noSYSCALL
  533.         mov     eax, 0x80000001
  534.         cpuid
  535.         test    edx, 0x800  ; bit_11 - SYSCALL/SYSRET support
  536.         jz      .noSYSCALL
  537.         mov     ecx, MSR_AMD_EFER
  538.         rdmsr
  539.         or      eax, 1 ; bit_0 - System Call Extension (SCE)
  540.         wrmsr
  541.  
  542.         ; !!!! It`s dirty hack, fix it !!!
  543.         ; Bits of EDX :
  544.         ; Bit 31–16 During the SYSRET instruction, this field is copied into the CS register
  545.         ;  and the contents of this field, plus 8, are copied into the SS register.
  546.         ; Bit 15–0 During the SYSCALL instruction, this field is copied into the CS register
  547.         ;  and the contents of this field, plus 8, are copied into the SS register.
  548.  
  549.         ; mov   edx, (os_code + 16) * 65536 + os_code
  550.         mov     edx, 0x1B0008
  551.  
  552.         mov     eax, syscall_entry
  553.         mov     ecx, MSR_AMD_STAR
  554.         wrmsr
  555. .noSYSCALL:
  556. ; -----------------------------------------
  557.         stdcall alloc_page
  558.         stdcall map_page, tss-0xF80, eax, PG_SW
  559.         stdcall alloc_page
  560.         stdcall map_page, tss+0x80, eax, PG_SW
  561.         stdcall alloc_page
  562.         stdcall map_page, tss+0x1080, eax, PG_SW
  563.  
  564. ; LOAD IDT
  565.  
  566.         call    build_interrupt_table ;lidt is executed
  567.           ;lidt [idtreg]
  568.  
  569.         call    init_kernel_heap
  570.         stdcall kernel_alloc, (RING0_STACK_SIZE+512) * 2
  571.         mov     [os_stack_seg], eax
  572.  
  573.         lea     esp, [eax+RING0_STACK_SIZE]
  574.  
  575.         mov     [tss._ss0], os_stack
  576.         mov     [tss._esp0], esp
  577.         mov     [tss._esp], esp
  578.         mov     [tss._cs], os_code
  579.         mov     [tss._ss], os_stack
  580.         mov     [tss._ds], app_data
  581.         mov     [tss._es], app_data
  582.         mov     [tss._fs], app_data
  583.         mov     [tss._gs], app_data
  584.         mov     [tss._io], 128
  585. ;Add IO access table - bit array of permitted ports
  586.         mov     edi, tss._io_map_0
  587.         xor     eax, eax
  588.         not     eax
  589.         mov     ecx, 8192/4
  590.         rep stosd                    ; access to 4096*8=65536 ports
  591.  
  592.         mov     ax, tss0
  593.         ltr     ax
  594.  
  595.         mov     [LFBSize], 0xC00000
  596.         call    init_LFB
  597.         call    init_fpu
  598.         call    init_malloc
  599.  
  600.         stdcall alloc_kernel_space, 0x51000
  601.         mov     [default_io_map], eax
  602.  
  603.         add     eax, 0x2000
  604.         mov     [ipc_tmp], eax
  605.         mov     ebx, 0x1000
  606.  
  607.         add     eax, 0x40000
  608.         mov     [proc_mem_map], eax
  609.  
  610.         add     eax, 0x8000
  611.         mov     [proc_mem_pdir], eax
  612.  
  613.         add     eax, ebx
  614.         mov     [proc_mem_tab], eax
  615.  
  616.         add     eax, ebx
  617.         mov     [tmp_task_pdir], eax
  618.  
  619.         add     eax, ebx
  620.         mov     [tmp_task_ptab], eax
  621.  
  622.         add     eax, ebx
  623.         mov     [ipc_pdir], eax
  624.  
  625.         add     eax, ebx
  626.         mov     [ipc_ptab], eax
  627.  
  628.         stdcall kernel_alloc, (unpack.LZMA_BASE_SIZE+(unpack.LZMA_LIT_SIZE shl \
  629.                 (unpack.lc+unpack.lp)))*4
  630.  
  631.         mov     [unpack.p], eax
  632.  
  633.         call    init_events
  634.         mov     eax, srv.fd-SRV.fd
  635.         mov     [srv.fd], eax
  636.         mov     [srv.bk], eax
  637.  
  638. ;Set base of graphic segment to linear address of LFB
  639.         mov     eax, [LFBAddress]         ; set for gs
  640.         mov     [graph_data_l+2], ax
  641.         shr     eax, 16
  642.         mov     [graph_data_l+4], al
  643.         mov     [graph_data_l+7], ah
  644.  
  645.         stdcall kernel_alloc, [_WinMapSize]
  646.         mov     [_WinMapAddress], eax
  647.  
  648.         xor     eax, eax
  649.         inc     eax
  650.  
  651. ; set background
  652.  
  653.         mov     [BgrDrawMode], eax
  654.         mov     [BgrDataWidth], eax
  655.         mov     [BgrDataHeight], eax
  656.         mov     [mem_BACKGROUND], 4
  657.         mov     [img_background], static_background_data
  658.  
  659. ; set clipboard
  660.  
  661.         xor     eax, eax
  662.         mov     [clipboard_slots], eax
  663.         mov     [clipboard_write_lock], eax
  664.         stdcall kernel_alloc, 4096
  665.         test    eax, eax
  666.         jnz     @f
  667.  
  668.         dec     eax
  669. @@:
  670.         mov     [clipboard_main_list], eax
  671.  
  672. ; SET UP OS TASK
  673.  
  674.         mov     esi, boot_setostask
  675.         call    boot_log
  676.  
  677.         mov     edx, SLOT_BASE+256
  678.         mov     ebx, [os_stack_seg]
  679.         add     ebx, 0x2000
  680.         call    setup_os_slot
  681.         mov     dword [edx], 'IDLE'
  682.         sub     [edx+APPDATA.saved_esp], 4
  683.         mov     eax, [edx+APPDATA.saved_esp]
  684.         mov     dword [eax], idle_thread
  685.         mov     ecx, IDLE_PRIORITY
  686.         call    scheduler_add_thread
  687.  
  688.         mov     edx, SLOT_BASE+256*2
  689.         mov     ebx, [os_stack_seg]
  690.         call    setup_os_slot
  691.         mov     dword [edx], 'OS'
  692.         xor     ecx, ecx
  693.         call    scheduler_add_thread
  694.  
  695.         mov     dword [CURRENT_TASK], 2
  696.         mov     dword [TASK_COUNT], 2
  697.         mov     dword [current_slot], SLOT_BASE + 256*2
  698.         mov     dword [TASK_BASE], CURRENT_TASK + 32*2
  699.  
  700. ; Move other CPUs to deep sleep, if it is useful
  701. uglobal
  702. use_mwait_for_idle db 0
  703. endg
  704.         cmp     [cpu_vendor+8], 'ntel'
  705.         jnz     .no_wake_cpus
  706.         bt      [cpu_caps+4], CAPS_MONITOR-32
  707.         jnc     .no_wake_cpus
  708.         dbgstr 'using mwait for idle loop'
  709.         inc     [use_mwait_for_idle]
  710.         mov     ebx, [cpu_count]
  711.         cmp     ebx, 1
  712.         jbe     .no_wake_cpus
  713.         call    create_trampoline_pgmap
  714.         mov     [cr3_ap+OS_BASE], eax
  715.         mov     eax, cr4
  716.         mov     [cr4_ap+OS_BASE], eax
  717.         mov     esi, OS_BASE + ap_init16
  718.         mov     edi, OS_BASE + 8000h
  719.         mov     ecx, (ap_init16_size + 3) / 4
  720.         rep movsd
  721.         stdcall map_io_mem, [acpi_lapic_base], 0x1000, PG_SW+PG_NOCACHE
  722.         mov     [LAPIC_BASE], eax
  723.         lea     edi, [eax+300h]
  724.         mov     esi, smpt+4
  725.         dec     ebx
  726. .wake_cpus_loop:
  727.         lodsd
  728.         push    esi
  729.         xor     esi, esi
  730.         inc     esi
  731.         shl     eax, 24
  732.         mov     [edi+10h], eax
  733. ; assert INIT IPI
  734.         mov     dword [edi], 0C500h
  735.         call    delay_ms
  736. @@:
  737.         test    dword [edi], 1000h
  738.         jnz     @b
  739. ; deassert INIT IPI
  740.         mov     dword [edi], 8500h
  741.         call    delay_ms
  742. @@:
  743.         test    dword [edi], 1000h
  744.         jnz     @b
  745. ; send STARTUP IPI
  746.         mov     dword [edi], 600h + (8000h shr 12)
  747.         call    delay_ms
  748. @@:
  749.         test    dword [edi], 1000h
  750.         jnz     @b
  751.         pop     esi
  752.         dec     ebx
  753.         jnz     .wake_cpus_loop
  754.         mov     eax, [cpu_count]
  755.         dec     eax
  756. @@:
  757.         cmp     [ap_initialized], eax
  758.         jnz     @b
  759.         mov     eax, [cr3_ap+OS_BASE]
  760.         call    free_page
  761. .no_wake_cpus:
  762.  
  763.  
  764. ; REDIRECT ALL IRQ'S TO INT'S 0x20-0x2f
  765.         mov     esi, boot_initirq
  766.         call    boot_log
  767.         call    init_irqs
  768.  
  769.         mov     esi, boot_picinit
  770.         call    boot_log
  771.         call    PIC_init
  772.  
  773.         mov     esi, boot_v86machine
  774.         call    boot_log
  775. ; Initialize system V86 machine
  776.         call    init_sys_v86
  777.  
  778.         mov     esi, boot_inittimer
  779.         call    boot_log
  780. ; Initialize system timer (IRQ0)
  781.         call    PIT_init
  782.  
  783. ; Register ramdisk file system
  784.         cmp     [boot_dev+OS_BASE+0x10000], 1
  785.         je      @f
  786.  
  787.         call    register_ramdisk
  788. ;--------------------------------------
  789. @@:
  790.         mov     esi, boot_initapic
  791.         call    boot_log
  792. ; Try to Initialize APIC
  793.         call    APIC_init
  794.  
  795.         mov     esi, boot_enableirq
  796.         call    boot_log
  797. ; Enable timer IRQ (IRQ0) and co-processor IRQ (IRQ13)
  798. ; they are used: when partitions are scanned, hd_read relies on timer
  799.         call    unmask_timer
  800.         stdcall enable_irq, 2               ; @#$%! PIC
  801.         stdcall enable_irq, 13              ; co-processor
  802.  
  803. ; Setup serial output console (if enabled)
  804. if defined debug_com_base
  805.  
  806.         ; reserve port so nobody else will use it
  807.         xor     ebx, ebx
  808.         mov     ecx, debug_com_base
  809.         mov     edx, debug_com_base+7
  810.         call    r_f_port_area
  811.  
  812.         ; enable Divisor latch
  813.         mov     dx, debug_com_base+3
  814.         mov     al, 1 shl 7
  815.         out     dx, al
  816.  
  817.         ; Set speed to 115200 baud (max speed)
  818.         mov     dx, debug_com_base
  819.         mov     al, 0x01
  820.         out     dx, al
  821.  
  822.         mov     dx, debug_com_base+1
  823.         mov     al, 0x00
  824.         out     dx, al
  825.  
  826.         ; No parity, 8bits words, one stop bit, dlab bit back to 0
  827.         mov     dx, debug_com_base+3
  828.         mov     al, 3
  829.         out     dx, al
  830.  
  831.         ; disable interrupts
  832.         mov     dx, debug_com_base+1
  833.         mov     al, 0
  834.         out     dx, al
  835.  
  836.         ; clear +  enable fifo (64 bits)
  837.         mov     dx, debug_com_base+2
  838.         mov     al, 0x7 + 1 shl 5
  839.         out     dx, al
  840.  
  841. end if
  842.  
  843.  
  844. ;-----------------------------------------------------------------------------
  845. ; show SVN version of kernel on the message board
  846. ;-----------------------------------------------------------------------------
  847.         mov     eax, [version_inf.rev]
  848.         DEBUGF  1, "K : kernel SVN r%d\n", eax
  849. ;-----------------------------------------------------------------------------
  850. ; show CPU count on the message board
  851. ;-----------------------------------------------------------------------------
  852.         mov     eax, [cpu_count]
  853.         test    eax, eax
  854.         jnz     @F
  855.         mov     al, 1                             ; at least one CPU
  856. @@:
  857.         DEBUGF  1, "K : %d CPU detected\n", eax
  858. ;-----------------------------------------------------------------------------
  859. ; detect Floppy drives
  860. ;-----------------------------------------------------------------------------
  861.         mov     esi, boot_detectfloppy
  862.         call    boot_log
  863. include 'detect/dev_fd.inc'
  864. ;-----------------------------------------------------------------------------
  865. ; create pci-devices list
  866. ;-----------------------------------------------------------------------------
  867.         mov     [pci_access_enabled], 1
  868.         call    pci_enum
  869. ;-----------------------------------------------------------------------------
  870. ; initialisation IDE ATA code
  871. ;-----------------------------------------------------------------------------
  872. include 'detect/init_ata.inc'
  873. ;-----------------------------------------------------------------------------
  874. if 0
  875.         mov     ax, [OS_BASE+0x10000+bx_from_load]
  876.         cmp     ax, 'r1'; if using not ram disk, then load librares and parameters {SPraid.simba}
  877.         je      no_lib_load
  878.  
  879.         mov     esi, boot_loadlibs
  880.         call    boot_log
  881. ; LOADING LIBRARES
  882.         stdcall dll.Load, @IMPORT           ; loading librares for kernel (.obj files)
  883.         call    load_file_parse_table       ; prepare file parse table
  884.         call    set_kernel_conf             ; configure devices and gui
  885. no_lib_load:
  886. end if
  887.  
  888. ; Display APIC status
  889.         mov     esi, boot_APIC_found
  890.         cmp     [irq_mode], IRQ_APIC
  891.         je      @f
  892.         mov     esi, boot_APIC_nfound
  893. @@:
  894.         call    boot_log
  895.  
  896. ; PRINT AMOUNT OF MEMORY
  897.         mov     esi, boot_memdetect
  898.         call    boot_log
  899.  
  900.         movzx   ecx, word [boot_y]
  901.         if lang eq ru
  902.         or      ecx, (10+30*6) shl 16
  903.         else if lang eq sp
  904.         or      ecx, (10+33*6) shl 16
  905.         else
  906.         or      ecx, (10+29*6) shl 16
  907.         end if
  908.         sub     ecx, 10
  909.         mov     edx, 0xFFFFFF
  910.         mov     ebx, [MEM_AMOUNT]
  911.         shr     ebx, 20
  912.         xor     edi, edi
  913.         mov     eax, 0x00040000
  914.         inc     edi
  915.         call    display_number_force
  916.  
  917. ; BUILD SCHEDULER
  918.  
  919. ;        call    build_scheduler; sys32.inc
  920.  
  921. ;        mov     esi, boot_devices
  922. ;        call    boot_log
  923.  
  924.         call    clear_pci_ide_interrupts
  925.  
  926. include "detect/vortex86.inc"                     ; Vortex86 SoC detection code
  927.  
  928.         stdcall load_pe_driver, szVidintel, 0
  929.  
  930.         call    usb_init
  931.  
  932. ; SET PRELIMINARY WINDOW STACK AND POSITIONS
  933.  
  934.         mov     esi, boot_windefs
  935.         call    boot_log
  936.         call    set_window_defaults
  937.  
  938. ; SET BACKGROUND DEFAULTS
  939.  
  940.         mov     esi, boot_bgr
  941.         call    boot_log
  942.         call    init_background
  943.         call    calculatebackground
  944.  
  945. ; RESERVE SYSTEM IRQ'S JA PORT'S
  946.  
  947.         mov     esi, boot_resirqports
  948.         call    boot_log
  949.         call    reserve_irqs_ports
  950.  
  951.         call    init_display
  952.         mov     eax, [def_cursor]
  953.         mov     [SLOT_BASE+APPDATA.cursor+256], eax
  954.         mov     [SLOT_BASE+APPDATA.cursor+256*2], eax
  955.  
  956. ; PRINT CPU FREQUENCY
  957.  
  958.         mov     esi, boot_cpufreq
  959.         call    boot_log
  960.  
  961.         cli                         ;FIXME check IF
  962.         rdtsc
  963.         mov     ecx, eax
  964.         mov     esi, 250            ; wait 1/4 a second
  965.         call    delay_ms
  966.         rdtsc
  967.         sti
  968.  
  969.         sub     eax, ecx
  970.         xor     edx, edx
  971.         shld    edx, eax, 2
  972.         shl     eax, 2
  973.         mov     dword [cpu_freq], eax
  974.         mov     dword [cpu_freq+4], edx
  975.         mov     ebx, 1000000
  976.         div     ebx
  977.         mov     ebx, eax
  978.  
  979.         movzx   ecx, word [boot_y]
  980.         if lang eq ru
  981.         add     ecx, (10+19*6) shl 16 - 10
  982.         else if lang eq sp
  983.         add     ecx, (10+25*6) shl 16 - 10
  984.         else
  985.         add     ecx, (10+17*6) shl 16 - 10
  986.         end if
  987.  
  988.         mov     edx, 0xFFFFFF
  989.         xor     edi, edi
  990.         mov     eax, 0x00040000
  991.         inc     edi
  992.         call    display_number_force
  993.  
  994. ; SET VARIABLES
  995.  
  996.         call    set_variables
  997.  
  998. ; STACK AND FDC
  999.  
  1000.         call    stack_init
  1001.         call    fdc_init
  1002.  
  1003. ; PALETTE FOR 320x200 and 640x480 16 col
  1004.  
  1005.         cmp     [SCR_MODE], word 0x12
  1006.         jne     no_pal_vga
  1007.         mov     esi, boot_pal_vga
  1008.         call    boot_log
  1009.         call    paletteVGA
  1010.       no_pal_vga:
  1011.  
  1012.         cmp     [SCR_MODE], word 0x13
  1013.         jne     no_pal_ega
  1014.         mov     esi, boot_pal_ega
  1015.         call    boot_log
  1016.         call    palette320x200
  1017.       no_pal_ega:
  1018.  
  1019. ; LOAD DEFAULT SKIN
  1020.  
  1021.         call    load_default_skin
  1022.  
  1023. ;protect io permission map
  1024.  
  1025.         mov     esi, [default_io_map]
  1026.         stdcall map_page, esi, [SLOT_BASE+256+APPDATA.io_map], PG_MAP
  1027.         add     esi, 0x1000
  1028.         stdcall map_page, esi, [SLOT_BASE+256+APPDATA.io_map+4], PG_MAP
  1029.  
  1030.         stdcall map_page, tss._io_map_0, \
  1031.                 [SLOT_BASE+256+APPDATA.io_map], PG_MAP
  1032.         stdcall map_page, tss._io_map_1, \
  1033.                 [SLOT_BASE+256+APPDATA.io_map+4], PG_MAP
  1034.  
  1035. ; SET KEYBOARD PARAMETERS
  1036.         mov     al, 0xf6       ; reset keyboard, scan enabled
  1037.         call    kb_write_wait_ack
  1038.         test    ah, ah
  1039.         jnz     .no_keyboard
  1040.  
  1041. iglobal
  1042. align 4
  1043. ps2_keyboard_functions:
  1044.         dd      .end - $
  1045.         dd      0       ; no close
  1046.         dd      ps2_set_lights
  1047. .end:
  1048. endg
  1049.         stdcall register_keyboard, ps2_keyboard_functions, 0
  1050.        ; mov   al, 0xED       ; Keyboard LEDs - only for testing!
  1051.        ; call  kb_write_wait_ack
  1052.        ; mov   al, 111b
  1053.        ; call  kb_write_wait_ack
  1054.  
  1055.         mov     al, 0xF3     ; set repeat rate & delay
  1056.         call    kb_write_wait_ack
  1057.         mov     al, 0; 30 250 ;00100010b ; 24 500  ;00100100b  ; 20 500
  1058.         call    kb_write_wait_ack
  1059.      ;// mike.dld [
  1060.         call    set_lights
  1061.      ;// mike.dld ]
  1062.         stdcall attach_int_handler, 1, irq1, 0
  1063.         DEBUGF  1, "K : IRQ1 return code %x\n", eax
  1064. .no_keyboard:
  1065.  
  1066. ; Load PS/2 mouse driver
  1067.  
  1068.         stdcall load_pe_driver, szPS2MDriver, 0
  1069.  
  1070.         mov     esi, boot_setmouse
  1071.         call    boot_log
  1072.         call    setmouse
  1073.  
  1074. ; LOAD FIRST APPLICATION
  1075.         cmp     byte [launcher_start], 1        ; Check if starting LAUNCHER is selected on blue screen (1 = yes)
  1076.         jnz     first_app_found
  1077.  
  1078.         cli
  1079.         mov     ebp, firstapp
  1080.         call    fs_execute_from_sysdir
  1081.         test    eax, eax
  1082.         jns     first_app_found
  1083.  
  1084.         mov     esi, boot_failed
  1085.         call    boot_log
  1086.  
  1087.         mov     eax, 0xDEADBEEF      ; otherwise halt
  1088.         hlt
  1089.  
  1090. first_app_found:
  1091.  
  1092. ; START MULTITASKING
  1093.  
  1094. ; A 'All set - press ESC to start' messages if need
  1095. if preboot_blogesc
  1096.         mov     esi, boot_tasking
  1097.         call    boot_log
  1098. .bll1:
  1099.         in      al, 0x60        ; wait for ESC key press
  1100.         cmp     al, 129
  1101.         jne     .bll1
  1102. end if
  1103.  
  1104.         mov     [timer_ticks_enable], 1         ; for cd driver
  1105.  
  1106.         sti
  1107.  
  1108.         call    mtrr_validate
  1109.  
  1110.         jmp     osloop
  1111.  
  1112.  
  1113.         ; Fly :)
  1114.  
  1115. uglobal
  1116. align 4
  1117. ap_initialized  dd      0
  1118. endg
  1119.  
  1120. ap_init_high:
  1121.         mov     ax, os_stack
  1122.         mov     bx, app_data
  1123.         mov     cx, app_tls
  1124.         mov     ss, ax
  1125.         mov     ds, bx
  1126.         mov     es, bx
  1127.         mov     fs, cx
  1128.         mov     gs, bx
  1129.         xor     esp, esp
  1130.         mov     eax, sys_pgdir-OS_BASE
  1131.         mov     cr3, eax
  1132.         lock inc [ap_initialized]
  1133.         jmp     idle_loop
  1134.  
  1135.  
  1136. include 'unpacker.inc'
  1137.  
  1138. align 4
  1139. boot_log:
  1140.         pushad
  1141.  
  1142.         mov     ebx, 10*65536
  1143.         mov     bx, word [boot_y]
  1144.         add     [boot_y], dword 10
  1145.         mov     ecx, 0x80ffffff; ASCIIZ string with white color
  1146.         xor     edi, edi
  1147.         mov     edx, esi
  1148.         inc     edi
  1149.         call    dtext
  1150.  
  1151.         mov     [novesachecksum], 1000
  1152.         call    checkVga_N13
  1153.  
  1154.         popad
  1155.  
  1156.         ret
  1157.  
  1158. ; in: edx -> APPDATA for OS/IDLE slot
  1159. ; in: ebx = stack base
  1160. proc setup_os_slot
  1161.         xor     eax, eax
  1162.         mov     ecx, 256/4
  1163.         mov     edi, edx
  1164.         rep stosd
  1165.  
  1166.         mov     eax, tss+0x80
  1167.         call    get_pg_addr
  1168.         inc     eax
  1169.         mov     [edx+APPDATA.io_map], eax
  1170.         mov     eax, tss+0x1080
  1171.         call    get_pg_addr
  1172.         inc     eax
  1173.         mov     [edx+APPDATA.io_map+4], eax
  1174.  
  1175.         mov     dword [edx+APPDATA.pl0_stack], ebx
  1176.         lea     edi, [ebx+0x2000-512]
  1177.         mov     dword [edx+APPDATA.fpu_state], edi
  1178.         mov     dword [edx+APPDATA.saved_esp0], edi
  1179.         mov     dword [edx+APPDATA.saved_esp], edi
  1180.         mov     dword [edx+APPDATA.terminate_protection], 1 ; make unkillable
  1181.  
  1182.         mov     esi, fpu_data
  1183.         mov     ecx, 512/4
  1184.         cld
  1185.         rep movsd
  1186.  
  1187.         lea     eax, [edx+APP_OBJ_OFFSET]
  1188.         mov     dword [edx+APPDATA.fd_obj], eax
  1189.         mov     dword [edx+APPDATA.bk_obj], eax
  1190.  
  1191.         mov     dword [edx+APPDATA.cur_dir], sysdir_path
  1192.  
  1193.         mov     [edx + APPDATA.dir_table], sys_pgdir - OS_BASE
  1194.  
  1195.         mov     eax, edx
  1196.         shr     eax, 3
  1197.         add     eax, CURRENT_TASK - (SLOT_BASE shr 3)
  1198.         mov     [eax+TASKDATA.wnd_number], dh
  1199.         mov     byte [eax+TASKDATA.pid], dh
  1200.  
  1201.         ret
  1202. endp
  1203.  
  1204. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1205. ;                                                                    ;
  1206. ;                    MAIN OS LOOP START                              ;
  1207. ;                                                                    ;
  1208. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1209. align 32
  1210. osloop:
  1211.         mov     edx, osloop_has_work?
  1212.         xor     ecx, ecx
  1213.         call    Wait_events
  1214.         xor     eax, eax
  1215.         xchg    eax, [osloop_nonperiodic_work]
  1216.         test    eax, eax
  1217.         jz      .no_periodic
  1218.  
  1219.         call    __sys_draw_pointer
  1220.         call    window_check_events
  1221.         call    mouse_check_events
  1222.         call    checkmisc
  1223.         call    checkVga_N13
  1224. ;--------------------------------------
  1225. .no_periodic:
  1226.         call    stack_handler
  1227.         call    check_fdd_motor_status
  1228.         call    check_ATAPI_device_event
  1229.         call    check_lights_state
  1230.         call    check_timers
  1231.  
  1232.         jmp     osloop
  1233. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1234. ;                                                                    ;
  1235. ;                      MAIN OS LOOP END                              ;
  1236. ;                                                                    ;
  1237. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1238. proc osloop_has_work?
  1239.         cmp     [osloop_nonperiodic_work], 0
  1240.         jnz     .yes
  1241.         call    stack_handler_has_work?
  1242.         jnz     .yes
  1243.         call    check_fdd_motor_status_has_work?
  1244.         jnz     .yes
  1245.         call    check_ATAPI_device_event_has_work?
  1246.         jnz     .yes
  1247.         call    check_lights_state_has_work?
  1248.         jnz     .yes
  1249.         call    check_timers_has_work?
  1250.         jnz     .yes
  1251. .no:
  1252.         xor     eax, eax
  1253.         ret
  1254. .yes:
  1255.         xor     eax, eax
  1256.         inc     eax
  1257.         ret
  1258. endp
  1259.  
  1260. proc wakeup_osloop
  1261.         mov     [osloop_nonperiodic_work], 1
  1262.         ret
  1263. endp
  1264.  
  1265. uglobal
  1266. align 4
  1267. osloop_nonperiodic_work dd      ?
  1268. endg
  1269.  
  1270. uglobal
  1271. align 64
  1272. idle_addr       rb      64
  1273. endg
  1274.  
  1275. idle_thread:
  1276.         sti
  1277.  
  1278. ; The following code can be executed by all CPUs in the system.
  1279. ; All other parts of the kernel do not expect multi-CPU.
  1280. ; Also, APs don't even have a stack here.
  1281. ; Beware. Don't do anything here. Anything at all.
  1282. idle_loop:
  1283.         cmp     [use_mwait_for_idle], 0
  1284.         jnz     idle_loop_mwait
  1285.  
  1286. idle_loop_hlt:
  1287.         hlt
  1288.         jmp     idle_loop_hlt
  1289.  
  1290. idle_loop_mwait:
  1291.         mov     eax, idle_addr
  1292.         xor     ecx, ecx
  1293.         xor     edx, edx
  1294.         monitor
  1295.         xor     ecx, ecx
  1296.         mov     eax, 20h        ; or 10h
  1297.         mwait
  1298.         jmp     idle_loop_mwait
  1299.  
  1300.  
  1301. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1302. ;                                                                      ;
  1303. ;                   INCLUDED SYSTEM FILES                              ;
  1304. ;                                                                      ;
  1305. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1306.  
  1307.  
  1308. include "kernel32.inc"
  1309.  
  1310.  
  1311. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1312. ;                                                                      ;
  1313. ;                       KERNEL FUNCTIONS                               ;
  1314. ;                                                                      ;
  1315. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1316.  
  1317. reserve_irqs_ports:
  1318.  
  1319.  
  1320. ; RESERVE PORTS
  1321.         mov     eax, RESERVED_PORTS
  1322.         mov     ecx, 1
  1323.  
  1324.         mov     [eax], dword 4
  1325.  
  1326.         mov     [eax+16], ecx
  1327.         mov     [eax+16+4], dword 0
  1328.         mov     [eax+16+8], dword 0x2D
  1329.  
  1330.         mov     [eax+32], ecx
  1331.         mov     [eax+32+4], dword 0x30
  1332.         mov     [eax+32+8], dword 0x4D
  1333.  
  1334.         mov     [eax+48], ecx
  1335.         mov     [eax+48+4], dword 0x50
  1336.         mov     [eax+48+8], dword 0xDF
  1337.  
  1338.         mov     [eax+64], ecx
  1339.         mov     [eax+64+4], dword 0xE5
  1340.         mov     [eax+64+8], dword 0xFF
  1341.  
  1342.         ret
  1343.  
  1344.  
  1345. iglobal
  1346.   process_number dd 0x2
  1347. endg
  1348.  
  1349. set_variables:
  1350.  
  1351.         mov     ecx, 0x16                    ; flush port 0x60
  1352. .fl60:
  1353.         in      al, 0x60
  1354.         loop    .fl60
  1355.         push    eax
  1356.  
  1357.         mov     ax, [BOOT_VARS+BOOT_Y_RES]
  1358.         shr     ax, 1
  1359.         shl     eax, 16
  1360.         mov     ax, [BOOT_VARS+BOOT_X_RES]
  1361.         shr     ax, 1
  1362.         mov     [MOUSE_X], eax
  1363.         call    wakeup_osloop
  1364.  
  1365.         xor     eax, eax
  1366.         mov     [BTN_ADDR], dword BUTTON_INFO ; address of button list
  1367.  
  1368.         mov     byte [KEY_COUNT], al              ; keyboard buffer
  1369.         mov     byte [BTN_COUNT], al              ; button buffer
  1370. ;        mov   [MOUSE_X],dword 100*65536+100    ; mouse x/y
  1371.  
  1372.         pop     eax
  1373.         ret
  1374.  
  1375. align 4
  1376. ;input  eax=43,bl-byte of output, ecx - number of port
  1377. sys_outport:
  1378.  
  1379.         mov     edi, ecx   ; separate flag for read / write
  1380.         and     ecx, 65535
  1381.  
  1382.         mov     eax, [RESERVED_PORTS]
  1383.         test    eax, eax
  1384.         jnz     .sopl8
  1385.         inc     eax
  1386.         mov     [esp+32], eax
  1387.         ret
  1388.  
  1389.   .sopl8:
  1390.         mov     edx, [TASK_BASE]
  1391.         mov     edx, [edx+0x4]
  1392.     ;and   ecx,65535
  1393.     ;cld - set on interrupt 0x40
  1394.   .sopl1:
  1395.  
  1396.         mov     esi, eax
  1397.         shl     esi, 4
  1398.         add     esi, RESERVED_PORTS
  1399.         cmp     edx, [esi+0]
  1400.         jne     .sopl2
  1401.         cmp     ecx, [esi+4]
  1402.         jb      .sopl2
  1403.         cmp     ecx, [esi+8]
  1404.         jg      .sopl2
  1405. .sopl3:
  1406.  
  1407.         test    edi, 0x80000000; read ?
  1408.         jnz     .sopl4
  1409.  
  1410.         mov     eax, ebx
  1411.         mov     dx, cx   ; write
  1412.         out     dx, al
  1413.         and     [esp+32], dword 0
  1414.         ret
  1415.  
  1416.         .sopl2:
  1417.  
  1418.         dec     eax
  1419.         jnz     .sopl1
  1420.         inc     eax
  1421.         mov     [esp+32], eax
  1422.         ret
  1423.  
  1424.  
  1425.   .sopl4:
  1426.  
  1427.         mov     dx, cx   ; read
  1428.         in      al, dx
  1429.         and     eax, 0xff
  1430.         and     [esp+32], dword 0
  1431.         mov     [esp+20], eax
  1432.         ret
  1433.  
  1434. display_number:
  1435. ;It is not optimization
  1436.         mov     eax, ebx
  1437.         mov     ebx, ecx
  1438.         mov     ecx, edx
  1439.         mov     edx, esi
  1440.         mov     esi, edi
  1441. ; eax = print type, al=0 -> ebx is number
  1442. ;                   al=1 -> ebx is pointer
  1443. ;                   ah=0 -> display decimal
  1444. ;                   ah=1 -> display hexadecimal
  1445. ;                   ah=2 -> display binary
  1446. ;                   eax bits 16-21 = number of digits to display (0-32)
  1447. ;                   eax bits 22-31 = reserved
  1448. ;
  1449. ; ebx = number or pointer
  1450. ; ecx = x shl 16 + y
  1451. ; edx = color
  1452.         xor     edi, edi
  1453. display_number_force:
  1454.         push    eax
  1455.         and     eax, 0x3fffffff
  1456.         cmp     eax, 0xffff     ; length > 0 ?
  1457.         pop     eax
  1458.         jge     cont_displ
  1459.         ret
  1460.    cont_displ:
  1461.         push    eax
  1462.         and     eax, 0x3fffffff
  1463.         cmp     eax, 61*0x10000  ; length <= 60 ?
  1464.         pop     eax
  1465.         jb      cont_displ2
  1466.         ret
  1467.    cont_displ2:
  1468.  
  1469.         pushad
  1470.  
  1471.         cmp     al, 1            ; ecx is a pointer ?
  1472.         jne     displnl1
  1473.         mov     ebp, ebx
  1474.         add     ebp, 4
  1475.         mov     ebp, [ebp+std_application_base_address]
  1476.         mov     ebx, [ebx+std_application_base_address]
  1477.  displnl1:
  1478.         sub     esp, 64
  1479.  
  1480.         test    ah, ah            ; DECIMAL
  1481.         jnz     no_display_desnum
  1482.         shr     eax, 16
  1483.         and     eax, 0xC03f
  1484. ;     and   eax,0x3f
  1485.         push    eax
  1486.         and     eax, 0x3f
  1487.         mov     edi, esp
  1488.         add     edi, 4+64-1
  1489.         mov     ecx, eax
  1490.         mov     eax, ebx
  1491.         mov     ebx, 10
  1492.  d_desnum:
  1493.         xor     edx, edx
  1494.         call    division_64_bits
  1495.         div     ebx
  1496.         add     dl, 48
  1497.         mov     [edi], dl
  1498.         dec     edi
  1499.         loop    d_desnum
  1500.         pop     eax
  1501.         call    normalize_number
  1502.         call    draw_num_text
  1503.         add     esp, 64
  1504.         popad
  1505.         ret
  1506.    no_display_desnum:
  1507.  
  1508.         cmp     ah, 0x01         ; HEXADECIMAL
  1509.         jne     no_display_hexnum
  1510.         shr     eax, 16
  1511.         and     eax, 0xC03f
  1512. ;     and   eax,0x3f
  1513.         push    eax
  1514.         and     eax, 0x3f
  1515.         mov     edi, esp
  1516.         add     edi, 4+64-1
  1517.         mov     ecx, eax
  1518.         mov     eax, ebx
  1519.         mov     ebx, 16
  1520.    d_hexnum:
  1521.         xor     edx, edx
  1522.         call    division_64_bits
  1523.         div     ebx
  1524.    hexletters = __fdo_hexdigits
  1525.         add     edx, hexletters
  1526.         mov     dl, [edx]
  1527.         mov     [edi], dl
  1528.         dec     edi
  1529.         loop    d_hexnum
  1530.         pop     eax
  1531.         call    normalize_number
  1532.         call    draw_num_text
  1533.         add     esp, 64
  1534.         popad
  1535.         ret
  1536.    no_display_hexnum:
  1537.  
  1538.         cmp     ah, 0x02         ; BINARY
  1539.         jne     no_display_binnum
  1540.         shr     eax, 16
  1541.         and     eax, 0xC03f
  1542. ;     and   eax,0x3f
  1543.         push    eax
  1544.         and     eax, 0x3f
  1545.         mov     edi, esp
  1546.         add     edi, 4+64-1
  1547.         mov     ecx, eax
  1548.         mov     eax, ebx
  1549.         mov     ebx, 2
  1550.    d_binnum:
  1551.         xor     edx, edx
  1552.         call    division_64_bits
  1553.         div     ebx
  1554.         add     dl, 48
  1555.         mov     [edi], dl
  1556.         dec     edi
  1557.         loop    d_binnum
  1558.         pop     eax
  1559.         call    normalize_number
  1560.         call    draw_num_text
  1561.         add     esp, 64
  1562.         popad
  1563.         ret
  1564.    no_display_binnum:
  1565.  
  1566.         add     esp, 64
  1567.         popad
  1568.         ret
  1569.  
  1570. normalize_number:
  1571.         test    ah, 0x80
  1572.         jz      .continue
  1573.         mov     ecx, 48
  1574.         and     eax, 0x3f
  1575. @@:
  1576.         inc     edi
  1577.         cmp     [edi], cl
  1578.         jne     .continue
  1579.         dec     eax
  1580.         cmp     eax, 1
  1581.         ja      @r
  1582.         mov     al, 1
  1583. .continue:
  1584.         and     eax, 0x3f
  1585.         ret
  1586.  
  1587. division_64_bits:
  1588.         test    [esp+1+4], byte 0x40
  1589.         jz      .continue
  1590.         push    eax
  1591.         mov     eax, ebp
  1592.         div     ebx
  1593.         mov     ebp, eax
  1594.         pop     eax
  1595. .continue:
  1596.         ret
  1597.  
  1598. draw_num_text:
  1599.         mov     esi, eax
  1600.         mov     edx, 64+4
  1601.         sub     edx, eax
  1602.         add     edx, esp
  1603.         mov     ebx, [esp+64+32-8+4]
  1604. ; add window start x & y
  1605.         mov     ecx, [TASK_BASE]
  1606.  
  1607.         mov     edi, [CURRENT_TASK]
  1608.         shl     edi, 8
  1609.  
  1610.         mov     eax, [ecx-twdw+WDATA.box.left]
  1611.         add     eax, [edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
  1612.         shl     eax, 16
  1613.         add     eax, [ecx-twdw+WDATA.box.top]
  1614.         add     eax, [edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
  1615.         add     ebx, eax
  1616.         mov     ecx, [esp+64+32-12+4]
  1617.         and     ecx, not 0x80000000     ; force counted string
  1618.         mov     eax, [esp+64+8]         ; background color (if given)
  1619.         mov     edi, [esp+64+4]
  1620.         jmp     dtext
  1621. ;-----------------------------------------------------------------------------
  1622. iglobal
  1623. midi_base dw 0
  1624. endg
  1625. ;-----------------------------------------------------------------------------
  1626. align 4
  1627. sys_setup:
  1628. ;  1 = roland mpu midi base , base io address
  1629. ;  2 = keyboard   1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
  1630. ;  3 = not used
  1631. ;  4 = not used
  1632. ;  5 = system language, 1eng 2fi 3ger 4rus
  1633. ;  6 = not used
  1634. ;  7 = not used
  1635. ;  8 = not used
  1636. ;  9 = not used
  1637. ; 10 = not used
  1638. ; 11 = enable lba read
  1639. ; 12 = enable pci access
  1640. ;-----------------------------------------------------------------------------
  1641.         and     [esp+32], dword 0
  1642. ; F.21.1 - set MPU MIDI base port
  1643.         dec     ebx
  1644.         jnz     @f
  1645.  
  1646.         cmp     ecx, 0x100
  1647.         jb      @f
  1648.  
  1649.         mov     esi, 65535
  1650.         cmp     esi, ecx
  1651.         jb      @f
  1652.  
  1653.         mov     [midi_base], cx
  1654.         mov     word [mididp], cx
  1655.         inc     cx
  1656.         mov     word [midisp], cx
  1657.         ret
  1658. ;--------------------------------------
  1659. @@:
  1660. ; F.21.2 - set keyboard layout
  1661.         dec     ebx
  1662.         jnz     @f
  1663.  
  1664.         mov     edi, [TASK_BASE]
  1665.         mov     eax, [edi+TASKDATA.mem_start]
  1666.         add     eax, edx
  1667. ; 1 = normal layout
  1668.         dec     ecx
  1669.         jnz     .shift
  1670.  
  1671.         mov     ebx, keymap
  1672.         mov     ecx, 128
  1673.         call    memmove
  1674.         ret
  1675. ;--------------------------------------
  1676. .shift:
  1677. ; 2 = layout at pressed Shift
  1678.         dec     ecx
  1679.         jnz     .alt
  1680.  
  1681.         mov     ebx, keymap_shift
  1682.         mov     ecx, 128
  1683.         call    memmove
  1684.         ret
  1685. ;--------------------------------------
  1686. .alt:
  1687. ; 3 = layout at pressed Alt
  1688.         dec     ecx
  1689.         jnz     .country
  1690.  
  1691.         mov     ebx, keymap_alt
  1692.         mov     ecx, 128
  1693.         call    memmove
  1694.         ret
  1695. ;--------------------------------------
  1696. .country:
  1697. ; country identifier
  1698.         sub     ecx, 6
  1699.         jnz     .error
  1700.  
  1701.         mov     word [keyboard], dx
  1702.         ret
  1703. ;--------------------------------------
  1704. @@:
  1705. ; F.21.5 - set system language
  1706.         sub     ebx, 3
  1707.         jnz     @f
  1708.  
  1709.         mov     [syslang], ecx
  1710.         ret
  1711. ;--------------------------------------
  1712. @@:
  1713. ; F.21.11 - enable/disable low-level access to HD
  1714.         and     ecx, 1
  1715.         sub     ebx, 6
  1716.         jnz     @f
  1717.  
  1718.         mov     [lba_read_enabled], ecx
  1719.         ret
  1720. ;--------------------------------------
  1721. @@:
  1722. ; F.21.12 - enable/disable low-level access to PCI
  1723.         dec     ebx
  1724.         jnz     .error
  1725.  
  1726.         mov     [pci_access_enabled], ecx
  1727.         ret
  1728. ;--------------------------------------
  1729. .error:
  1730.         or      [esp+32], dword -1
  1731.         ret
  1732. ;-----------------------------------------------------------------------------
  1733. align 4
  1734. sys_getsetup:
  1735. ;  1 = roland mpu midi base , base io address
  1736. ;  2 = keyboard   1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
  1737. ;  3 = not used
  1738. ;  4 = not used
  1739. ;  5 = system language, 1eng 2fi 3ger 4rus
  1740. ;  6 = not used
  1741. ;  7 = not used
  1742. ;  8 = not used
  1743. ;  9 = get hs timer tic
  1744. ; 10 = not used
  1745. ; 11 = get the state "lba read"
  1746. ; 12 = get the state "pci access"
  1747. ;-----------------------------------------------------------------------------
  1748. ; F.26.1 - get MPU MIDI base port
  1749.         dec     ebx
  1750.         jnz     @f
  1751.  
  1752.         movzx   eax, [midi_base]
  1753.         mov     [esp+32], eax
  1754.         ret
  1755. ;--------------------------------------
  1756. @@:
  1757. ; F.26.2 - get keyboard layout
  1758.         dec     ebx
  1759.         jnz     @f
  1760.  
  1761.         mov     edi, [TASK_BASE]
  1762.         mov     ebx, [edi+TASKDATA.mem_start]
  1763.         add     ebx, edx
  1764. ; 1 = normal layout
  1765.         dec     ecx
  1766.         jnz     .shift
  1767.  
  1768.         mov     eax, keymap
  1769.         mov     ecx, 128
  1770.         call    memmove
  1771.         ret
  1772. ;--------------------------------------
  1773. .shift:
  1774. ; 2 = layout with pressed Shift
  1775.         dec     ecx
  1776.         jnz     .alt
  1777.  
  1778.         mov     eax, keymap_shift
  1779.         mov     ecx, 128
  1780.         call    memmove
  1781.         ret
  1782. ;--------------------------------------
  1783. .alt:
  1784. ; 3 = layout with pressed Alt
  1785.         dec     ecx
  1786.         jne     .country
  1787.  
  1788.         mov     eax, keymap_alt
  1789.         mov     ecx, 128
  1790.         call    memmove
  1791.         ret
  1792. ;--------------------------------------
  1793. .country:
  1794. ; 9 = country identifier
  1795.         sub     ecx, 6
  1796.         jnz     .error
  1797.  
  1798.         movzx   eax, word [keyboard]
  1799.         mov     [esp+32], eax
  1800.         ret
  1801. ;--------------------------------------
  1802. @@:
  1803. ; F.26.5 - get system language
  1804.         sub     ebx, 3
  1805.         jnz     @f
  1806.  
  1807.         mov     eax, [syslang]
  1808.         mov     [esp+32], eax
  1809.         ret
  1810. ;--------------------------------------
  1811. @@:
  1812. ; F.26.9 - get the value of the time counter
  1813.         sub     ebx, 4
  1814.         jnz     @f
  1815.  
  1816.         mov     eax, [timer_ticks]
  1817.         mov     [esp+32], eax
  1818.         ret
  1819. ;--------------------------------------
  1820. @@:
  1821. ; F.26.11 - Find out whether low-level HD access is enabled
  1822.         sub     ebx, 2
  1823.         jnz     @f
  1824.  
  1825.         mov     eax, [lba_read_enabled]
  1826.         mov     [esp+32], eax
  1827.         ret
  1828. ;--------------------------------------
  1829. @@:
  1830. ; F.26.12 - Find out whether low-level PCI access is enabled
  1831.         dec     ebx
  1832.         jnz     .error
  1833.  
  1834.         mov     eax, [pci_access_enabled]
  1835.         mov     [esp+32], eax
  1836.         ret
  1837. ;--------------------------------------
  1838. .error:
  1839.         or      [esp+32], dword -1
  1840.         ret
  1841. ;-----------------------------------------------------------------------------
  1842. get_timer_ticks:
  1843.         mov     eax, [timer_ticks]
  1844.         ret
  1845. ;-----------------------------------------------------------------------------
  1846. iglobal
  1847. align 4
  1848. mousefn dd msscreen, mswin, msbutton, msset
  1849.         dd app_load_cursor
  1850.         dd app_set_cursor
  1851.         dd app_delete_cursor
  1852.         dd msz
  1853. endg
  1854. ;-----------------------------------------------------------------------------
  1855. readmousepos:
  1856.  
  1857. ; eax=0 screen relative
  1858. ; eax=1 window relative
  1859. ; eax=2 buttons pressed
  1860. ; eax=3 set mouse pos   ; reserved
  1861. ; eax=4 load cursor
  1862. ; eax=5 set cursor
  1863. ; eax=6 delete cursor   ; reserved
  1864. ; eax=7 get mouse_z
  1865.  
  1866.         cmp     ebx, 7
  1867.         ja      msset
  1868.         jmp     [mousefn+ebx*4]
  1869. msscreen:
  1870.         mov     eax, [MOUSE_X]
  1871.         shl     eax, 16
  1872.         mov     ax, [MOUSE_Y]
  1873.         mov     [esp+36-4], eax
  1874.         ret
  1875. mswin:
  1876.         mov     eax, [MOUSE_X]
  1877.         shl     eax, 16
  1878.         mov     ax, [MOUSE_Y]
  1879.         mov     esi, [TASK_BASE]
  1880.         mov     bx, word [esi-twdw+WDATA.box.left]
  1881.         shl     ebx, 16
  1882.         mov     bx, word [esi-twdw+WDATA.box.top]
  1883.         sub     eax, ebx
  1884.  
  1885.         mov     edi, [CURRENT_TASK]
  1886.         shl     edi, 8
  1887.         sub     ax, word[edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
  1888.         rol     eax, 16
  1889.         sub     ax, word[edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
  1890.         rol     eax, 16
  1891.         mov     [esp+36-4], eax
  1892.         ret
  1893. msbutton:
  1894.         movzx   eax, byte [BTN_DOWN]
  1895.         mov     [esp+36-4], eax
  1896.         ret
  1897. msz:
  1898.         mov     edi, [TASK_COUNT]
  1899.         movzx   edi, word [WIN_POS + edi*2]
  1900.         cmp     edi, [CURRENT_TASK]
  1901.         jne     @f
  1902.         mov     ax, [MOUSE_SCROLL_H]
  1903.         shl     eax, 16
  1904.         mov     ax, [MOUSE_SCROLL_V]
  1905.         mov     [esp+36-4], eax
  1906.         and     [MOUSE_SCROLL_H], word 0
  1907.         and     [MOUSE_SCROLL_V], word 0
  1908.         ret
  1909.        @@:
  1910.         and     [esp+36-4], dword 0
  1911. ;           ret
  1912. msset:
  1913.         ret
  1914.  
  1915. app_load_cursor:
  1916.         cmp     ecx, OS_BASE
  1917.         jae     msset
  1918.         stdcall load_cursor, ecx, edx
  1919.         mov     [esp+36-4], eax
  1920.         ret
  1921.  
  1922. app_set_cursor:
  1923.         stdcall set_cursor, ecx
  1924.         mov     [esp+36-4], eax
  1925.         ret
  1926.  
  1927. app_delete_cursor:
  1928.         stdcall delete_cursor, ecx
  1929.         mov     [esp+36-4], eax
  1930.         ret
  1931.  
  1932. is_input:
  1933.  
  1934.         push    edx
  1935.         mov     dx, word [midisp]
  1936.         in      al, dx
  1937.         and     al, 0x80
  1938.         pop     edx
  1939.         ret
  1940.  
  1941. is_output:
  1942.  
  1943.         push    edx
  1944.         mov     dx, word [midisp]
  1945.         in      al, dx
  1946.         and     al, 0x40
  1947.         pop     edx
  1948.         ret
  1949.  
  1950.  
  1951. get_mpu_in:
  1952.  
  1953.         push    edx
  1954.         mov     dx, word [mididp]
  1955.         in      al, dx
  1956.         pop     edx
  1957.         ret
  1958.  
  1959.  
  1960. put_mpu_out:
  1961.  
  1962.         push    edx
  1963.         mov     dx, word [mididp]
  1964.         out     dx, al
  1965.         pop     edx
  1966.         ret
  1967.  
  1968.  
  1969.  
  1970. align 4
  1971.  
  1972. sys_midi:
  1973.         cmp     [mididp], 0
  1974.         jnz     sm0
  1975.         mov     [esp+36], dword 1
  1976.         ret
  1977. sm0:
  1978.         and     [esp+36], dword 0
  1979.         dec     ebx
  1980.         jnz     smn1
  1981.  ;    call setuart
  1982. su1:
  1983.         call    is_output
  1984.         test    al, al
  1985.         jnz     su1
  1986.         mov     dx, word [midisp]
  1987.         mov     al, 0xff
  1988.         out     dx, al
  1989. su2:
  1990.         mov     dx, word [midisp]
  1991.         mov     al, 0xff
  1992.         out     dx, al
  1993.         call    is_input
  1994.         test    al, al
  1995.         jnz     su2
  1996.         call    get_mpu_in
  1997.         cmp     al, 0xfe
  1998.         jnz     su2
  1999. su3:
  2000.         call    is_output
  2001.         test    al, al
  2002.         jnz     su3
  2003.         mov     dx, word [midisp]
  2004.         mov     al, 0x3f
  2005.         out     dx, al
  2006.         ret
  2007. smn1:
  2008.         dec     ebx
  2009.         jnz     smn2
  2010. sm10:
  2011.         call    get_mpu_in
  2012.         call    is_output
  2013.         test    al, al
  2014.         jnz     sm10
  2015.         mov     al, bl
  2016.         call    put_mpu_out
  2017.         smn2:
  2018.         ret
  2019.  
  2020. detect_devices:
  2021. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2022. ;include 'detect/commouse.inc'
  2023. ;include 'detect/ps2mouse.inc'
  2024. ;include 'detect/dev_fd.inc'
  2025. ;include 'detect/dev_hdcd.inc'
  2026. ;include 'detect/sear_par.inc'
  2027. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2028.         ret
  2029.  
  2030. sys_end:
  2031. ;--------------------------------------
  2032.         cmp     [_display.select_cursor], 0
  2033.         je      @f
  2034. ; restore default cursor before killing
  2035.         pusha
  2036.         mov     ecx, [current_slot]
  2037.         call    restore_default_cursor_before_killing
  2038.         popa
  2039. @@:
  2040. ;--------------------------------------
  2041. ; kill all sockets this process owns
  2042.         pusha
  2043.         mov     edx, [TASK_BASE]
  2044.         mov     edx, [edx+TASKDATA.pid]
  2045.         call    SOCKET_process_end
  2046.         popa
  2047. ;--------------------------------------
  2048.         mov     ecx, [current_slot]
  2049.         mov     eax, [ecx+APPDATA.tls_base]
  2050.         test    eax, eax
  2051.         jz      @F
  2052.  
  2053.         stdcall user_free, eax
  2054. @@:
  2055.  
  2056.         mov     eax, [TASK_BASE]
  2057.         mov     [eax+TASKDATA.state], 3; terminate this program
  2058.         call    wakeup_osloop
  2059.  
  2060. .waitterm:            ; wait here for termination
  2061.         call    change_task
  2062.         jmp     .waitterm
  2063. ;------------------------------------------------------------------------------
  2064. align 4
  2065. restore_default_cursor_before_killing:
  2066.         pushfd
  2067.         cli
  2068.         mov     eax, [def_cursor]
  2069.         mov     [ecx+APPDATA.cursor], eax
  2070.  
  2071.         movzx   eax, word [MOUSE_Y]
  2072.         movzx   ebx, word [MOUSE_X]
  2073. ;        mov     ecx, [Screen_Max_X]
  2074. ;        inc     ecx
  2075. ;        mul     ecx
  2076.         mov     eax, [d_width_calc_area + eax*4]
  2077.  
  2078.         add     eax, [_WinMapAddress]
  2079.         movzx   edx, byte [ebx+eax]
  2080.         shl     edx, 8
  2081.         mov     esi, [edx+SLOT_BASE+APPDATA.cursor]
  2082.  
  2083.         cmp     esi, [current_cursor]
  2084.         je      @f
  2085.  
  2086.         push    esi
  2087.         call    [_display.select_cursor]
  2088.         mov     [current_cursor], esi
  2089. @@:
  2090.         mov     [redrawmouse_unconditional], 1
  2091.         call    wakeup_osloop
  2092.         popfd
  2093.         ret
  2094. ;------------------------------------------------------------------------------
  2095. iglobal
  2096. align 4
  2097. sys_system_table:
  2098.         dd      sysfn_deactivate        ; 1 = deactivate window
  2099.         dd      sysfn_terminate         ; 2 = terminate thread
  2100.         dd      sysfn_activate          ; 3 = activate window
  2101.         dd      sysfn_getidletime       ; 4 = get idle time
  2102.         dd      sysfn_getcpuclock       ; 5 = get cpu clock
  2103.         dd      sysfn_saveramdisk       ; 6 = save ramdisk
  2104.         dd      sysfn_getactive         ; 7 = get active window
  2105.         dd      sysfn_sound_flag        ; 8 = get/set sound_flag
  2106.         dd      sysfn_shutdown          ; 9 = shutdown with parameter
  2107.         dd      sysfn_minimize          ; 10 = minimize window
  2108.         dd      sysfn_getdiskinfo       ; 11 = get disk subsystem info
  2109.         dd      sysfn_lastkey           ; 12 = get last pressed key
  2110.         dd      sysfn_getversion        ; 13 = get kernel version
  2111.         dd      sysfn_waitretrace       ; 14 = wait retrace
  2112.         dd      sysfn_centermouse       ; 15 = center mouse cursor
  2113.         dd      sysfn_getfreemem        ; 16 = get free memory size
  2114.         dd      sysfn_getallmem         ; 17 = get total memory size
  2115.         dd      sysfn_terminate2        ; 18 = terminate thread using PID
  2116.                                         ;                 instead of slot
  2117.         dd      sysfn_mouse_acceleration; 19 = set/get mouse acceleration
  2118.         dd      sysfn_meminfo           ; 20 = get extended memory info
  2119.         dd      sysfn_pid_to_slot       ; 21 = get slot number for pid
  2120.         dd      sysfn_min_rest_window   ; 22 = minimize and restore any window
  2121.         dd      sysfn_min_windows       ; 23 = minimize all windows
  2122.         dd      sysfn_set_screen_sizes  ; 24 = set screen sizes for Vesa
  2123. sysfn_num = ($ - sys_system_table)/4
  2124. endg
  2125. ;------------------------------------------------------------------------------
  2126. sys_system:
  2127.         dec     ebx
  2128.         cmp     ebx, sysfn_num
  2129.         jae     @f
  2130.         jmp     dword [sys_system_table + ebx*4]
  2131. @@:
  2132.         ret
  2133. ;------------------------------------------------------------------------------
  2134. sysfn_shutdown:          ; 18.9 = system shutdown
  2135.         cmp     ecx, 1
  2136.         jl      exit_for_anyone
  2137.         cmp     ecx, 4
  2138.         jg      exit_for_anyone
  2139.         mov     [BOOT_VARS+0x9030], cl
  2140.  
  2141.         mov     eax, [TASK_COUNT]
  2142.         mov     [SYS_SHUTDOWN], al
  2143.         mov     [shutdown_processes], eax
  2144.         call    wakeup_osloop
  2145.         and     dword [esp+32], 0
  2146.  exit_for_anyone:
  2147.         ret
  2148.   uglobal
  2149.    shutdown_processes:
  2150.                        dd 0x0
  2151.   endg
  2152. ;------------------------------------------------------------------------------
  2153. sysfn_terminate:        ; 18.2 = TERMINATE
  2154.         push    ecx
  2155.         cmp     ecx, 2
  2156.         jb      noprocessterminate
  2157.         mov     edx, [TASK_COUNT]
  2158.         cmp     ecx, edx
  2159.         ja      noprocessterminate
  2160.         mov     eax, [TASK_COUNT]
  2161.         shl     ecx, 5
  2162.         mov     edx, [ecx+CURRENT_TASK+TASKDATA.pid]
  2163.         add     ecx, CURRENT_TASK+TASKDATA.state
  2164.         cmp     byte [ecx], 9
  2165.         jz      noprocessterminate
  2166.         push    ecx edx
  2167.         lea     edx, [(ecx-(CURRENT_TASK and 1FFFFFFFh)-TASKDATA.state)*8+SLOT_BASE]
  2168.         call    request_terminate
  2169.         pop     edx ecx
  2170.         test    eax, eax
  2171.         jz      noprocessterminate
  2172. ;--------------------------------------
  2173. ; terminate all network sockets it used
  2174.         pusha
  2175.         mov     eax, edx
  2176.         call    SOCKET_process_end
  2177.         popa
  2178. ;--------------------------------------
  2179.         cmp     [_display.select_cursor], 0
  2180.         je      .restore_end
  2181. ; restore default cursor before killing
  2182.         pusha
  2183.         mov     ecx, [esp+32]
  2184.         shl     ecx, 8
  2185.         add     ecx, SLOT_BASE
  2186.         mov     eax, [def_cursor]
  2187.         cmp     [ecx+APPDATA.cursor], eax
  2188.         je      @f
  2189.         call    restore_default_cursor_before_killing
  2190. @@:
  2191.         popa
  2192. .restore_end:
  2193. ;--------------------------------------
  2194.      ;call MEM_Heap_Lock      ;guarantee that process isn't working with heap
  2195.         mov     [ecx], byte 3; clear possible i40's
  2196.         call    wakeup_osloop
  2197.      ;call MEM_Heap_UnLock
  2198.  
  2199.         cmp     edx, [application_table_owner]; clear app table stat
  2200.         jne     noatsc
  2201.         call    unlock_application_table
  2202. noatsc:
  2203. noprocessterminate:
  2204.         add     esp, 4
  2205.         ret
  2206. ;------------------------------------------------------------------------------
  2207. sysfn_terminate2:
  2208. ;lock application_table_status mutex
  2209. .table_status:
  2210.         call    lock_application_table
  2211.         mov     eax, ecx
  2212.         call    pid_to_slot
  2213.         test    eax, eax
  2214.         jz      .not_found
  2215.         mov     ecx, eax
  2216.         cli
  2217.         call    sysfn_terminate
  2218.         call    unlock_application_table
  2219.         sti
  2220.         and     dword [esp+32], 0
  2221.         ret
  2222. .not_found:
  2223.         call    unlock_application_table
  2224.         or      dword [esp+32], -1
  2225.         ret
  2226. ;------------------------------------------------------------------------------
  2227. sysfn_deactivate:         ; 18.1 = DEACTIVATE WINDOW
  2228.         cmp     ecx, 2
  2229.         jb      .nowindowdeactivate
  2230.         cmp     ecx, [TASK_COUNT]
  2231.         ja      .nowindowdeactivate
  2232.  
  2233.         movzx   esi, word [WIN_STACK + ecx*2]
  2234.         cmp     esi, 1
  2235.         je      .nowindowdeactivate ; already deactive
  2236.  
  2237.         mov     edi, ecx
  2238.         shl     edi, 5
  2239.         add     edi, window_data
  2240.         movzx   esi, word [WIN_STACK + ecx * 2]
  2241.         lea     esi, [WIN_POS + esi * 2]
  2242.         call    window._.window_deactivate
  2243.  
  2244.         call    syscall_display_settings._.calculate_whole_screen
  2245.         call    syscall_display_settings._.redraw_whole_screen
  2246. .nowindowdeactivate:
  2247.         ret
  2248. ;------------------------------------------------------------------------------
  2249. sysfn_activate:         ; 18.3 = ACTIVATE WINDOW
  2250.         cmp     ecx, 2
  2251.         jb      .nowindowactivate
  2252.         cmp     ecx, [TASK_COUNT]
  2253.         ja      .nowindowactivate
  2254. ;-------------------------------------
  2255. @@:
  2256. ; If the window is captured and moved by the user,
  2257. ; then you can't change the position in window stack!!!
  2258.         mov     al, [mouse.active_sys_window.action]
  2259.         and     al, WINDOW_MOVE_AND_RESIZE_FLAGS
  2260.         test    al, al
  2261.         jz      @f
  2262.         call    change_task
  2263.         jmp     @b
  2264. @@:
  2265. ;-------------------------------------
  2266.         mov     [window_minimize], 2; restore window if minimized
  2267.         call    wakeup_osloop
  2268.  
  2269.         movzx   esi, word [WIN_STACK + ecx*2]
  2270.         cmp     esi, [TASK_COUNT]
  2271.         je      .nowindowactivate; already active
  2272.  
  2273.         mov     edi, ecx
  2274.         shl     edi, 5
  2275.         add     edi, window_data
  2276.         movzx   esi, word [WIN_STACK + ecx * 2]
  2277.         lea     esi, [WIN_POS + esi * 2]
  2278.         call    waredraw
  2279. .nowindowactivate:
  2280.         ret
  2281. ;------------------------------------------------------------------------------
  2282. sysfn_getidletime:              ; 18.4 = GET IDLETIME
  2283.         mov     eax, [CURRENT_TASK+32+TASKDATA.cpu_usage]
  2284.         mov     [esp+32], eax
  2285.         ret
  2286. ;------------------------------------------------------------------------------
  2287. sysfn_getcpuclock:              ; 18.5 = GET TSC/SEC
  2288.         mov     eax, dword [cpu_freq]
  2289.         mov     [esp+32], eax
  2290.         ret
  2291. ;------------------------------------------------------------------------------
  2292. get_cpu_freq:
  2293.         mov     eax, dword [cpu_freq]
  2294.         mov     edx, dword [cpu_freq+4]
  2295.         ret
  2296. ;  SAVE ramdisk to /hd/1/menuet.img
  2297. ;!!!!!!!!!!!!!!!!!!!!!!!!
  2298.    include 'blkdev/rdsave.inc'
  2299. ;!!!!!!!!!!!!!!!!!!!!!!!!
  2300. ;------------------------------------------------------------------------------
  2301. align 4
  2302. sysfn_getactive:        ; 18.7 = get active window
  2303.         mov     eax, [TASK_COUNT]
  2304.         movzx   eax, word [WIN_POS + eax*2]
  2305.         mov     [esp+32], eax
  2306.         ret
  2307. ;------------------------------------------------------------------------------
  2308. sysfn_sound_flag:       ; 18.8 = get/set sound_flag
  2309. ;     cmp  ecx,1
  2310.         dec     ecx
  2311.         jnz     nogetsoundflag
  2312.         movzx   eax, byte [sound_flag]; get sound_flag
  2313.         mov     [esp+32], eax
  2314.         ret
  2315.  nogetsoundflag:
  2316. ;     cmp  ecx,2
  2317.         dec     ecx
  2318.         jnz     nosoundflag
  2319.         xor     byte [sound_flag], 1
  2320.  nosoundflag:
  2321.         ret
  2322. ;------------------------------------------------------------------------------
  2323. sysfn_minimize:         ; 18.10 = minimize window
  2324.         mov     [window_minimize], 1
  2325.         call    wakeup_osloop
  2326.         ret
  2327. ;------------------------------------------------------------------------------
  2328. align 4
  2329. sysfn_getdiskinfo:      ; 18.11 = get disk info table
  2330.         dec     ecx
  2331.         jnz     .exit
  2332. .small_table:
  2333.         mov     edi, edx
  2334.         mov     esi, DRIVE_DATA
  2335.         mov     ecx, DRIVE_DATA_SIZE ;10
  2336.         cld
  2337.         rep movsb
  2338. .exit:
  2339.         ret
  2340. ;------------------------------------------------------------------------------
  2341. sysfn_lastkey:          ; 18.12 = return 0 (backward compatibility)
  2342.         and     dword [esp+32], 0
  2343.         ret
  2344. ;------------------------------------------------------------------------------
  2345. sysfn_getversion:       ; 18.13 = get kernel ID and version
  2346.         mov     edi, ecx
  2347.         mov     esi, version_inf
  2348.         mov     ecx, version_end-version_inf
  2349.         rep movsb
  2350.         ret
  2351. ;------------------------------------------------------------------------------
  2352. sysfn_waitretrace:     ; 18.14 = sys wait retrace
  2353.      ;wait retrace functions
  2354.  sys_wait_retrace:
  2355.         mov     edx, 0x3da
  2356.  WaitRetrace_loop:
  2357.         in      al, dx
  2358.         test    al, 1000b
  2359.         jz      WaitRetrace_loop
  2360.         and     [esp+32], dword 0
  2361.         ret
  2362. ;------------------------------------------------------------------------------
  2363. align 4
  2364. sysfn_centermouse:      ; 18.15 = mouse centered
  2365. ; removed here by <Lrz>
  2366. ;     call  mouse_centered
  2367. ;* mouse centered - start code- Mario79
  2368. ;mouse_centered:
  2369. ;        push  eax
  2370.         mov     eax, [Screen_Max_X]
  2371.         shr     eax, 1
  2372.         mov     [MOUSE_X], ax
  2373.         mov     eax, [Screen_Max_Y]
  2374.         shr     eax, 1
  2375.         mov     [MOUSE_Y], ax
  2376.         call    wakeup_osloop
  2377. ;        ret
  2378. ;* mouse centered - end code- Mario79
  2379.         xor     eax, eax
  2380.         and     [esp+32], eax
  2381. ;        pop   eax
  2382.         ret
  2383. ;------------------------------------------------------------------------------
  2384. align 4
  2385. sysfn_mouse_acceleration: ; 18.19 = set/get mouse features
  2386.         test    ecx, ecx; get mouse speed factor
  2387.         jnz     .set_mouse_acceleration
  2388.         xor     eax, eax
  2389.         mov     ax, [mouse_speed_factor]
  2390.         mov     [esp+32], eax
  2391.         ret
  2392.  .set_mouse_acceleration:
  2393. ;     cmp  ecx,1  ; set mouse speed factor
  2394.         dec     ecx
  2395.         jnz     .get_mouse_delay
  2396.         mov     [mouse_speed_factor], dx
  2397.         ret
  2398.  .get_mouse_delay:
  2399. ;     cmp  ecx,2  ; get mouse delay
  2400.         dec     ecx
  2401.         jnz     .set_mouse_delay
  2402.         mov     eax, [mouse_delay]
  2403.         mov     [esp+32], eax
  2404.         ret
  2405.  .set_mouse_delay:
  2406. ;     cmp  ecx,3  ; set mouse delay
  2407.         dec     ecx
  2408.         jnz     .set_pointer_position
  2409.         mov     [mouse_delay], edx
  2410.         ret
  2411.  .set_pointer_position:
  2412. ;     cmp  ecx,4  ; set mouse pointer position
  2413.         dec     ecx
  2414.         jnz     .set_mouse_button
  2415.         cmp     dx, word[Screen_Max_Y]
  2416.         ja      .end
  2417.         rol     edx, 16
  2418.         cmp     dx, word[Screen_Max_X]
  2419.         ja      .end
  2420.         mov     [MOUSE_X], edx
  2421.         mov     [mouse_active], 1
  2422.         call    wakeup_osloop
  2423.         ret
  2424.  .set_mouse_button:
  2425. ;     cmp   ecx,5  ; set mouse button features
  2426.         dec     ecx
  2427.         jnz     .end
  2428.         mov     [BTN_DOWN], dl
  2429.         mov     [mouse_active], 1
  2430.         call    wakeup_osloop
  2431.  .end:
  2432.         ret
  2433. ;------------------------------------------------------------------------------
  2434. sysfn_getfreemem:
  2435.         mov     eax, [pg_data.pages_free]
  2436.         shl     eax, 2
  2437.         mov     [esp+32], eax
  2438.         ret
  2439. ;------------------------------------------------------------------------------
  2440. sysfn_getallmem:
  2441.         mov     eax, [MEM_AMOUNT]
  2442.         shr     eax, 10
  2443.         mov     [esp+32], eax
  2444.         ret
  2445. ;------------------------------------------------------------------------------
  2446. sysfn_pid_to_slot:
  2447.         mov     eax, ecx
  2448.         call    pid_to_slot
  2449.         mov     [esp+32], eax
  2450.         ret
  2451. ;------------------------------------------------------------------------------
  2452. sysfn_min_rest_window:
  2453.         pushad
  2454.         mov     eax, edx ; ebx - operating
  2455.         shr     ecx, 1
  2456.         jnc     @f
  2457.         call    pid_to_slot
  2458. @@:
  2459.         or      eax, eax ; eax - number of slot
  2460.         jz      .error
  2461.         cmp     eax, 255    ; varify maximal slot number
  2462.         ja      .error
  2463.         movzx   eax, word [WIN_STACK + eax*2]
  2464.         shr     ecx, 1
  2465.         jc      .restore
  2466.  ; .minimize:
  2467.         call    minimize_window
  2468.         jmp     .exit
  2469. .restore:
  2470.         call    restore_minimized_window
  2471. .exit:
  2472.         popad
  2473.         xor     eax, eax
  2474.         mov     [esp+32], eax
  2475.         ret
  2476. .error:
  2477.         popad
  2478.         xor     eax, eax
  2479.         dec     eax
  2480.         mov     [esp+32], eax
  2481.         ret
  2482. ;------------------------------------------------------------------------------
  2483. sysfn_min_windows:
  2484.         call    minimize_all_window
  2485.         mov     [esp+32], eax
  2486.         call    change_task
  2487.         ret
  2488. ;------------------------------------------------------------------------------
  2489. sysfn_set_screen_sizes:
  2490.         cmp     [SCR_MODE], word 0x13
  2491.         jbe     .exit
  2492.  
  2493.         cmp     [_display.select_cursor], select_cursor
  2494.         jne     .exit
  2495.  
  2496.         cmp     ecx, [display_width_standard]
  2497.         ja      .exit
  2498.  
  2499.         cmp     edx, [display_height_standard]
  2500.         ja      .exit
  2501.  
  2502.         pushfd
  2503.         cli
  2504.         mov     eax, ecx
  2505.         mov     ecx, [_display.pitch]
  2506.         mov     [_display.width], eax
  2507.         dec     eax
  2508.         mov     [_display.height], edx
  2509.         dec     edx
  2510. ; eax - new Screen_Max_X
  2511. ; edx - new Screen_Max_Y
  2512.         mov     [do_not_touch_winmap], 1
  2513.         call    set_screen
  2514.         mov     [do_not_touch_winmap], 0
  2515.         popfd
  2516.         call    change_task
  2517. .exit:
  2518.         ret
  2519. ;------------------------------------------------------------------------------
  2520. uglobal
  2521. screen_workarea RECT
  2522. display_width_standard dd 0
  2523. display_height_standard dd 0
  2524. do_not_touch_winmap db 0
  2525. window_minimize db 0
  2526. sound_flag      db 0
  2527.  
  2528. endg
  2529.  
  2530. UID_NONE=0
  2531. UID_MENUETOS=1   ;official
  2532. UID_KOLIBRI=2    ;russian
  2533.  
  2534. iglobal
  2535. version_inf:
  2536.         db 0,7,7,0  ; version 0.7.7.0
  2537.         db 0
  2538. .rev    dd __REV__
  2539. version_end:
  2540. endg
  2541. ;------------------------------------------------------------------------------
  2542. align 4
  2543. sys_cachetodiskette:
  2544.         cmp     ebx, 1
  2545.         jb      .no_floppy_save
  2546.         cmp     ebx, 2
  2547.         ja      .no_floppy_save
  2548.         call    save_image
  2549.         mov     [esp + 32], eax
  2550.         ret
  2551. .no_floppy_save:
  2552.         mov     [esp + 32], dword 1
  2553.         ret
  2554. ;------------------------------------------------------------------------------
  2555. uglobal
  2556. ;  bgrchanged  dd  0x0
  2557. align 4
  2558. bgrlockpid dd 0
  2559. bgrlock db 0
  2560. endg
  2561. ;------------------------------------------------------------------------------
  2562. align 4
  2563. sys_background:
  2564.         cmp     ebx, 1                     ; BACKGROUND SIZE
  2565.         jnz     nosb1
  2566.         test    ecx, ecx
  2567.         jz      sbgrr
  2568.  
  2569.         test    edx, edx
  2570.         jz      sbgrr
  2571. ;--------------------------------------
  2572. align 4
  2573. @@:
  2574. ;;Maxis use atomic bts for mutexes  4.4.2009
  2575.         bts     dword [bgrlock], 0
  2576.         jnc     @f
  2577.         call    change_task
  2578.         jmp     @b
  2579. ;--------------------------------------
  2580. align 4
  2581. @@:
  2582.         mov     [BgrDataWidth], ecx
  2583.         mov     [BgrDataHeight], edx
  2584. ;    mov   [bgrchanged],1
  2585.  
  2586.         pushad
  2587. ; return memory for old background
  2588.         mov     eax, [img_background]
  2589.         cmp     eax, static_background_data
  2590.         jz      @f
  2591.         stdcall kernel_free, eax
  2592. ;--------------------------------------
  2593. align 4
  2594. @@:
  2595. ; calculate RAW size
  2596.         xor     eax, eax
  2597.         inc     eax
  2598.         cmp     [BgrDataWidth], eax
  2599.         jae     @f
  2600.         mov     [BgrDataWidth], eax
  2601. ;--------------------------------------
  2602. align 4
  2603. @@:
  2604.         cmp     [BgrDataHeight], eax
  2605.         jae     @f
  2606.         mov     [BgrDataHeight], eax
  2607. ;--------------------------------------
  2608. align 4
  2609. @@:
  2610.         mov     eax, [BgrDataWidth]
  2611.         imul    eax, [BgrDataHeight]
  2612.         lea     eax, [eax*3]
  2613. ; it is reserved with aligned to the boundary of 4 KB pages,
  2614. ; otherwise there may be exceptions a page fault for vesa20_drawbackground_tiled
  2615. ; because the 32 bit read is used for  high performance: "mov eax,[esi]"
  2616.         shr     eax, 12
  2617.         inc     eax
  2618.         shl     eax, 12
  2619.         mov     [mem_BACKGROUND], eax
  2620. ; get memory for new background
  2621.         stdcall kernel_alloc, eax
  2622.         test    eax, eax
  2623.         jz      .memfailed
  2624.         mov     [img_background], eax
  2625.         jmp     .exit
  2626. ;--------------------------------------
  2627. align 4
  2628. .memfailed:
  2629. ; revert to static monotone data
  2630.         mov     [img_background], static_background_data
  2631.         xor     eax, eax
  2632.         inc     eax
  2633.         mov     [BgrDataWidth], eax
  2634.         mov     [BgrDataHeight], eax
  2635.         mov     [mem_BACKGROUND], 4
  2636. ;--------------------------------------
  2637. align 4
  2638. .exit:
  2639.         popad
  2640.         mov     [bgrlock], 0
  2641. ;--------------------------------------
  2642. align 4
  2643. sbgrr:
  2644.         ret
  2645. ;------------------------------------------------------------------------------
  2646. align 4
  2647. nosb1:
  2648.         cmp     ebx, 2                     ; SET PIXEL
  2649.         jnz     nosb2
  2650.  
  2651.         mov     eax, [img_background]
  2652.         test    ecx, ecx
  2653.         jz      @f
  2654.         cmp     eax, static_background_data
  2655.         jz      .ret
  2656. ;--------------------------------------
  2657. align 4
  2658. @@:
  2659.         mov     ebx, [mem_BACKGROUND]
  2660.         add     ebx, 4095
  2661.         and     ebx, -4096
  2662.         sub     ebx, 4
  2663.         cmp     ecx, ebx
  2664.         ja      .ret
  2665.  
  2666.         mov     ebx, [eax+ecx]
  2667.         and     ebx, 0xFF000000;255*256*256*256
  2668.         and     edx, 0x00FFFFFF;255*256*256+255*256+255
  2669.         add     edx, ebx
  2670.         mov     [eax+ecx], edx
  2671. ;--------------------------------------
  2672. align 4
  2673. .ret:
  2674.         ret
  2675. ;------------------------------------------------------------------------------
  2676. align 4
  2677. nosb2:
  2678.         cmp     ebx, 3                     ; DRAW BACKGROUND
  2679.         jnz     nosb3
  2680. ;--------------------------------------
  2681. align 4
  2682. draw_background_temp:
  2683.         mov     [background_defined], 1
  2684.         call    force_redraw_background
  2685. ;--------------------------------------
  2686. align 4
  2687. nosb31:
  2688.         ret
  2689. ;------------------------------------------------------------------------------
  2690. align 4
  2691. nosb3:
  2692.         cmp     ebx, 4                     ; TILED / STRETCHED
  2693.         jnz     nosb4
  2694.         cmp     ecx, [BgrDrawMode]
  2695.         je      nosb41
  2696.         mov     [BgrDrawMode], ecx
  2697. ;--------------------------------------
  2698. align 4
  2699. nosb41:
  2700.         ret
  2701. ;------------------------------------------------------------------------------
  2702. align 4
  2703. nosb4:
  2704.         cmp     ebx, 5                     ; BLOCK MOVE TO BGR
  2705.         jnz     nosb5
  2706.         cmp     [img_background], static_background_data
  2707.         jnz     @f
  2708.         test    edx, edx
  2709.         jnz     .fin
  2710.         cmp     esi, 4
  2711.         ja      .fin
  2712. ;--------------------------------------
  2713. align 4
  2714. @@:
  2715.   ; bughere
  2716.         mov     eax, ecx
  2717.         mov     ebx, edx
  2718.         add     ebx, [img_background];IMG_BACKGROUND
  2719.         mov     ecx, esi
  2720.         call    memmove
  2721. ;--------------------------------------
  2722. align 4
  2723. .fin:
  2724.         ret
  2725. ;------------------------------------------------------------------------------
  2726. align 4
  2727. nosb5:
  2728.         cmp     ebx, 6
  2729.         jnz     nosb6
  2730. ;--------------------------------------
  2731. align 4
  2732. ;;Maxis use atomic bts for mutex 4.4.2009
  2733. @@:
  2734.         bts     dword [bgrlock], 0
  2735.         jnc     @f
  2736.         call    change_task
  2737.         jmp     @b
  2738. ;--------------------------------------
  2739. align 4
  2740. @@:
  2741.         mov     eax, [CURRENT_TASK]
  2742.         mov     [bgrlockpid], eax
  2743.         cmp     [img_background], static_background_data
  2744.         jz      .nomem
  2745.         stdcall user_alloc, [mem_BACKGROUND]
  2746.         mov     [esp+32], eax
  2747.         test    eax, eax
  2748.         jz      .nomem
  2749.         mov     ebx, eax
  2750.         shr     ebx, 12
  2751.         or      dword [page_tabs+(ebx-1)*4], DONT_FREE_BLOCK
  2752.         mov     esi, [img_background]
  2753.         shr     esi, 12
  2754.         mov     ecx, [mem_BACKGROUND]
  2755.         add     ecx, 0xFFF
  2756.         shr     ecx, 12
  2757. ;--------------------------------------
  2758. align 4
  2759. .z:
  2760.         mov     eax, [page_tabs+ebx*4]
  2761.         test    al, 1
  2762.         jz      @f
  2763.         call    free_page
  2764. ;--------------------------------------
  2765. align 4
  2766. @@:
  2767.         mov     eax, [page_tabs+esi*4]
  2768.         or      al, PG_UW
  2769.         mov     [page_tabs+ebx*4], eax
  2770.         mov     eax, ebx
  2771.         shl     eax, 12
  2772.         invlpg  [eax]
  2773.         inc     ebx
  2774.         inc     esi
  2775.         loop    .z
  2776.         ret
  2777. ;--------------------------------------
  2778. align 4
  2779. .nomem:
  2780.         and     [bgrlockpid], 0
  2781.         mov     [bgrlock], 0
  2782. ;------------------------------------------------------------------------------
  2783. align 4
  2784. nosb6:
  2785.         cmp     ebx, 7
  2786.         jnz     nosb7
  2787.         cmp     [bgrlock], 0
  2788.         jz      .err
  2789.         mov     eax, [CURRENT_TASK]
  2790.         cmp     [bgrlockpid], eax
  2791.         jnz     .err
  2792.         mov     eax, ecx
  2793.         mov     ebx, ecx
  2794.         shr     eax, 12
  2795.         mov     ecx, [page_tabs+(eax-1)*4]
  2796.         test    cl, USED_BLOCK+DONT_FREE_BLOCK
  2797.         jz      .err
  2798.         jnp     .err
  2799.         push    eax
  2800.         shr     ecx, 12
  2801.         dec     ecx
  2802. ;--------------------------------------
  2803. align 4
  2804. @@:
  2805.         and     dword [page_tabs+eax*4], 0
  2806.         mov     edx, eax
  2807.         shl     edx, 12
  2808.         push    eax
  2809.         invlpg  [edx]
  2810.         pop     eax
  2811.         inc     eax
  2812.         loop    @b
  2813.         pop     eax
  2814.         and     dword [page_tabs+(eax-1)*4], not DONT_FREE_BLOCK
  2815.         stdcall user_free, ebx
  2816.         mov     [esp+32], eax
  2817.         and     [bgrlockpid], 0
  2818.         mov     [bgrlock], 0
  2819.         ret
  2820. ;--------------------------------------
  2821. align 4
  2822. .err:
  2823.         and     dword [esp+32], 0
  2824.         ret
  2825. ;------------------------------------------------------------------------------
  2826. align 4
  2827. nosb7:
  2828.         cmp     ebx, 8
  2829.         jnz     nosb8
  2830.  
  2831.         mov     ecx, [current_slot]
  2832.         xor     eax, eax
  2833.         xchg    eax, [ecx+APPDATA.draw_bgr_x]
  2834.         mov     [esp + 32], eax ; eax = [left]*65536 + [right]
  2835.         xor     eax, eax
  2836.         xchg    eax, [ecx+APPDATA.draw_bgr_y]
  2837.         mov     [esp + 20], eax ; ebx = [top]*65536 + [bottom]
  2838.         ret
  2839. ;------------------------------------------------------------------------------
  2840. align 4
  2841. nosb8:
  2842.         cmp     ebx, 9
  2843.         jnz     nosb9
  2844. ; ecx = [left]*65536 + [right]
  2845. ; edx = [top]*65536 + [bottom]
  2846.         mov     eax, [Screen_Max_X]
  2847.         mov     ebx, [Screen_Max_Y]
  2848. ; check [right]
  2849.         cmp     cx, ax
  2850.         ja      .exit
  2851. ; check [left]
  2852.         ror     ecx, 16
  2853.         cmp     cx, ax
  2854.         ja      .exit
  2855. ; check [bottom]
  2856.         cmp     dx, bx
  2857.         ja      .exit
  2858. ; check [top]
  2859.         ror     edx, 16
  2860.         cmp     dx, bx
  2861.         ja      .exit
  2862.  
  2863.         movzx   eax, cx  ; [left]
  2864.         movzx   ebx, dx  ; [top]
  2865.  
  2866.         shr     ecx, 16 ; [right]
  2867.         shr     edx, 16 ; [bottom]
  2868.  
  2869.         mov     [background_defined], 1
  2870.  
  2871.         mov     [draw_data+32 + RECT.left], eax
  2872.         mov     [draw_data+32 + RECT.top], ebx
  2873.  
  2874.         mov     [draw_data+32 + RECT.right], ecx
  2875.         mov     [draw_data+32 + RECT.bottom], edx
  2876.  
  2877.         inc     byte[REDRAW_BACKGROUND]