Subversion Repositories Kolibri OS

Rev

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

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