Subversion Repositories Kolibri OS

Rev

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

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