Subversion Repositories Kolibri OS

Rev

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

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