Subversion Repositories Kolibri OS

Rev

Rev 1260 | Rev 1271 | 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: 1267 $
  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.         xor  eax,eax
  544.         inc  eax
  545.         mov [CURRENT_TASK],eax          ;dword 1
  546.         mov [TASK_COUNT],eax            ;dword 1
  547.         mov [TASK_BASE],dword TASK_DATA
  548.         mov [current_slot], SLOT_BASE+256
  549.  
  550. ; set background
  551. ;        xor  eax,eax
  552. ;        inc  eax
  553.         mov   [BgrDrawMode],eax
  554.         mov   [BgrDataWidth],eax
  555.         mov   [BgrDataHeight],eax
  556.         mov    [mem_BACKGROUND], 4
  557.         mov [img_background], static_background_data
  558.  
  559.         mov     [SLOT_BASE + 256 + APPDATA.dir_table], sys_pgdir - OS_BASE
  560.  
  561.         stdcall kernel_alloc, 0x10000/8
  562.         mov     edi, eax
  563.         mov     [network_free_ports], eax
  564.         or      eax, -1
  565.         mov     ecx, 0x10000/32
  566.         rep     stosd
  567.  
  568. ; REDIRECT ALL IRQ'S TO INT'S 0x20-0x2f
  569.  
  570.         call  rerouteirqs
  571.  
  572. ; Initialize system V86 machine
  573.         call    init_sys_v86
  574.  
  575. ; TIMER SET TO 1/100 S
  576.  
  577.         mov   al,0x34              ; set to 100Hz
  578.         out   0x43,al
  579.         mov   al,0x9b              ; lsb    1193180 / 1193
  580.         out   0x40,al
  581.         mov   al,0x2e              ; msb
  582.         out   0x40,al
  583.  
  584. ; Enable timer IRQ (IRQ0) and hard drives IRQs (IRQ14, IRQ15)
  585. ; they are used: when partitions are scanned, hd_read relies on timer
  586. ; Also enable IRQ2, because in some configurations
  587. ; IRQs from slave controller are not delivered until IRQ2 on master is enabled
  588.         mov     al, 0xFA
  589.         out     0x21, al
  590.         mov     al, 0x3F
  591.         out     0xA1, al
  592.  
  593. ;!!!!!!!!!!!!!!!!!!!!!!!!!!
  594. include 'detect/disks.inc'
  595. ;!!!!!!!!!!!!!!!!!!!!!!!!!!
  596.  
  597.   call Parser_params
  598.  
  599. ; READ RAMDISK IMAGE FROM HD
  600.  
  601. ;!!!!!!!!!!!!!!!!!!!!!!!
  602. include 'boot/rdload.inc'
  603. ;!!!!!!!!!!!!!!!!!!!!!!!
  604. ;    mov    [dma_hdd],1
  605. ; CALCULATE FAT CHAIN FOR RAMDISK
  606.  
  607.         call  calculatefatchain
  608.  
  609. ; LOAD VMODE DRIVER
  610.  
  611. ;!!!!!!!!!!!!!!!!!!!!!!!
  612. include 'vmodeld.inc'
  613. ;!!!!!!!!!!!!!!!!!!!!!!!
  614.  
  615.   mov ax,[OS_BASE+0x10000+bx_from_load]
  616.   cmp ax,'r1'           ; if using not ram disk, then load librares and parameters {SPraid.simba}
  617.   je  no_lib_load
  618. ; LOADING LIBRARES
  619.    stdcall dll.Load,@IMPORT                 ; loading librares for kernel (.obj files)
  620.    call load_file_parse_table               ; prepare file parse table
  621.    call set_kernel_conf                     ; configure devices and gui
  622. no_lib_load:
  623.  
  624. ; LOAD FONTS I and II
  625.  
  626.         stdcall read_file, char, FONT_I, 0, 2304
  627.         stdcall read_file, char2, FONT_II, 0, 2560
  628.  
  629.         mov   esi,boot_fonts
  630.         call  boot_log
  631.  
  632. ; PRINT AMOUNT OF MEMORY
  633.         mov     esi, boot_memdetect
  634.         call    boot_log
  635.  
  636.         movzx   ecx, word [boot_y]
  637.         or      ecx, (10+29*6) shl 16 ; "Determining amount of memory"
  638.         sub     ecx, 10
  639.         mov     edx, 0xFFFFFF
  640.         mov     ebx, [MEM_AMOUNT]
  641.         shr     ebx, 20
  642.         mov     edi, 1
  643.         mov     eax, 0x00040000
  644.         call    display_number_force
  645.  
  646. ; BUILD SCHEDULER
  647.  
  648.         call   build_scheduler ; sys32.inc
  649.  
  650.         mov    esi,boot_devices
  651.         call   boot_log
  652.  
  653.         mov  [pci_access_enabled],1
  654.  
  655.  
  656. ; SET PRELIMINARY WINDOW STACK AND POSITIONS
  657.  
  658.         mov   esi,boot_windefs
  659.         call  boot_log
  660.         call  setwindowdefaults
  661.  
  662. ; SET BACKGROUND DEFAULTS
  663.  
  664.         mov   esi,boot_bgr
  665.         call  boot_log
  666.         call  init_background
  667.         call  calculatebackground
  668.  
  669. ; RESERVE SYSTEM IRQ'S JA PORT'S
  670.  
  671.         mov   esi,boot_resirqports
  672.         call  boot_log
  673.         call  reserve_irqs_ports
  674.  
  675. ; SET PORTS FOR IRQ HANDLERS
  676.  
  677.         mov  esi,boot_setrports
  678.         call boot_log
  679.         ;call setirqreadports
  680.  
  681. ; SET UP OS TASK
  682.  
  683.         mov  esi,boot_setostask
  684.         call boot_log
  685.  
  686.         xor  eax, eax
  687.         mov  dword [SLOT_BASE+APPDATA.fpu_state], fpu_data
  688.         mov  dword [SLOT_BASE+APPDATA.exc_handler], eax
  689.         mov  dword [SLOT_BASE+APPDATA.except_mask], eax
  690.  
  691.         ; name for OS/IDLE process
  692.  
  693.         mov dword [SLOT_BASE+256+APPDATA.app_name],   dword 'OS/I'
  694.         mov dword [SLOT_BASE+256+APPDATA.app_name+4], dword 'DLE '
  695.         mov edi, [os_stack_seg]
  696.         mov dword [SLOT_BASE+256+APPDATA.pl0_stack], edi
  697.         add edi, 0x2000-512
  698.         mov dword [SLOT_BASE+256+APPDATA.fpu_state], edi
  699.         mov dword [SLOT_BASE+256+APPDATA.saved_esp0], edi ; just for case
  700.         mov dword [SLOT_BASE+256+APPDATA.io_map],\
  701.                   (tss._io_map_0-OS_BASE+PG_MAP)
  702.         mov dword [SLOT_BASE+256+APPDATA.io_map+4],\
  703.                   (tss._io_map_1-OS_BASE+PG_MAP)
  704.  
  705.         mov esi, fpu_data
  706.         mov ecx, 512/4
  707.         cld
  708.         rep movsd
  709.  
  710.         mov dword [SLOT_BASE+256+APPDATA.exc_handler], eax
  711.         mov dword [SLOT_BASE+256+APPDATA.except_mask], eax
  712.  
  713.         mov ebx, SLOT_BASE+256+APP_OBJ_OFFSET
  714.         mov  dword [SLOT_BASE+256+APPDATA.fd_obj], ebx
  715.         mov  dword [SLOT_BASE+256+APPDATA.bk_obj], ebx
  716.  
  717.         mov  dword [SLOT_BASE+256+APPDATA.cur_dir], sysdir_path
  718.         mov dword [SLOT_BASE+256+APPDATA.tls_base], eax
  719.  
  720.         ; task list
  721.         mov  [CURRENT_TASK],dword 1
  722.         mov  [TASK_COUNT],dword 1
  723.         mov  [current_slot], SLOT_BASE+256
  724.         mov  [TASK_BASE],dword TASK_DATA
  725.         mov  [TASK_DATA+TASKDATA.wnd_number], 1 ; on screen number
  726.         mov  [TASK_DATA+TASKDATA.pid], 1        ; process id number
  727.         mov  [TASK_DATA+TASKDATA.mem_start], 0  ; process base address
  728.  
  729.         call init_cursors
  730.         mov eax, [def_cursor]
  731.         mov [SLOT_BASE+APPDATA.cursor],eax
  732.         mov [SLOT_BASE+APPDATA.cursor+256],eax
  733.  
  734.   ; READ TSC / SECOND
  735.  
  736.         mov   esi,boot_tsc
  737.         call  boot_log
  738.         cli
  739.         rdtsc ;call  _rdtsc
  740.         mov   ecx,eax
  741.         mov   esi,250               ; wait 1/4 a second
  742.         call  delay_ms
  743.         rdtsc ;call  _rdtsc
  744.         sti
  745.         sub   eax,ecx
  746.         shl   eax,2
  747.         mov   [CPU_FREQ],eax          ; save tsc / sec
  748. ;       mov ebx, 1000000
  749. ;       div ebx
  750. ; вообще-то производительность в данном конкретном месте
  751. ; совершенно некритична, но чтобы заткнуть любителей
  752. ; оптимизирующих компиляторов ЯВУ...
  753.         mov     edx, 2251799814
  754.         mul     edx
  755.         shr     edx, 19
  756.         mov [stall_mcs], edx
  757. ; PRINT CPU FREQUENCY
  758.         mov     esi, boot_cpufreq
  759.         call    boot_log
  760.  
  761.         mov     ebx, edx
  762.         movzx   ecx, word [boot_y]
  763.         add     ecx, (10+17*6) shl 16 - 10 ; 'CPU frequency is '
  764.         mov     edx, 0xFFFFFF
  765.         mov     edi, 1
  766.         mov     eax, 0x00040000
  767.         call    display_number_force
  768.  
  769. ; SET VARIABLES
  770.  
  771.         call  set_variables
  772.  
  773. ; SET MOUSE
  774.  
  775.         ;call   detect_devices
  776.         stdcall load_driver, szPS2MDriver
  777. ;        stdcall load_driver, szCOM_MDriver
  778.  
  779.         mov   esi,boot_setmouse
  780.         call  boot_log
  781.         call  setmouse
  782.  
  783.  
  784. ; STACK AND FDC
  785.  
  786.         call  stack_init
  787.         call  fdc_init
  788.  
  789. ; PALETTE FOR 320x200 and 640x480 16 col
  790.  
  791.         cmp   [SCR_MODE],word 0x12
  792.         jne   no_pal_vga
  793.         mov   esi,boot_pal_vga
  794.         call  boot_log
  795.         call  paletteVGA
  796.       no_pal_vga:
  797.  
  798.         cmp   [SCR_MODE],word 0x13
  799.         jne   no_pal_ega
  800.         mov   esi,boot_pal_ega
  801.         call  boot_log
  802.         call  palette320x200
  803.       no_pal_ega:
  804.  
  805. ; LOAD DEFAULT SKIN
  806.  
  807.         call    load_default_skin
  808.  
  809. ;protect io permission map
  810.  
  811.            mov esi, [default_io_map]
  812.            stdcall map_page,esi,(tss._io_map_0-OS_BASE), PG_MAP
  813.            add esi, 0x1000
  814.            stdcall map_page,esi,(tss._io_map_1-OS_BASE), PG_MAP
  815.  
  816.            stdcall map_page,tss._io_map_0,\
  817.                    (tss._io_map_0-OS_BASE), PG_MAP
  818.            stdcall map_page,tss._io_map_1,\
  819.                    (tss._io_map_1-OS_BASE), PG_MAP
  820.  
  821.   mov ax,[OS_BASE+0x10000+bx_from_load]
  822.   cmp ax,'r1'           ; if not rused ram disk - load network configuration from files {SPraid.simba}
  823.   je  no_st_network
  824.         call set_network_conf
  825.   no_st_network:
  826.  
  827. ; LOAD FIRST APPLICATION
  828.         cli
  829.  
  830.         cmp   byte [BOOT_VAR+0x9030],1
  831.         jne   no_load_vrr_m
  832.  
  833.         mov     ebp, vrr_m
  834.         call    fs_execute_from_sysdir
  835.  
  836. ;        cmp   eax,2                  ; if vrr_m app found (PID=2)
  837.         sub   eax,2
  838.         jz    first_app_found
  839.  
  840. no_load_vrr_m:
  841.  
  842.         mov     ebp, firstapp
  843.         call    fs_execute_from_sysdir
  844.  
  845. ;        cmp   eax,2                  ; continue if a process has been loaded
  846.         sub   eax,2
  847.         jz    first_app_found
  848.  
  849.         mov     esi, boot_failed
  850.         call    boot_log
  851.  
  852.         mov   eax, 0xDEADBEEF        ; otherwise halt
  853.         hlt
  854.  
  855. first_app_found:
  856.  
  857.         cli
  858.  
  859.         ;mov   [TASK_COUNT],dword 2
  860.         mov   [CURRENT_TASK],dword 1       ; set OS task fisrt
  861.  
  862. ; SET KEYBOARD PARAMETERS
  863.         mov   al, 0xf6         ; reset keyboard, scan enabled
  864.         call  kb_write
  865.  
  866.         ; wait until 8042 is ready
  867.         xor ecx,ecx
  868.       @@:
  869.         in     al,64h
  870.         and    al,00000010b
  871.         loopnz @b
  872.  
  873.        ; mov   al, 0xED       ; svetodiody - only for testing!
  874.        ; call  kb_write
  875.        ; call  kb_read
  876.        ; mov   al, 111b
  877.        ; call  kb_write
  878.        ; call  kb_read
  879.  
  880.         mov   al, 0xF3       ; set repeat rate & delay
  881.         call  kb_write
  882. ;        call  kb_read
  883.         mov   al, 0 ; 30 250 ;00100010b ; 24 500  ;00100100b  ; 20 500
  884.         call  kb_write
  885. ;        call  kb_read
  886.      ;// mike.dld [
  887.         call  set_lights
  888.      ;// mike.dld ]
  889.  
  890.  
  891. ; Setup serial output console (if enabled)
  892.  
  893. if defined debug_com_base
  894.  
  895.         ; enable Divisor latch
  896.  
  897.         mov     dx, debug_com_base+3
  898.         mov     al, 1 shl 7
  899.         out     dx, al
  900.  
  901.         ; Set speed to 115200 baud (max speed)
  902.  
  903.         mov     dx, debug_com_base
  904.         mov     al, 0x01
  905.         out     dx, al
  906.  
  907.         mov     dx, debug_com_base+1
  908.         mov     al, 0x00
  909.         out     dx, al
  910.  
  911.         ; No parity, 8bits words, one stop bit, dlab bit back to 0
  912.  
  913.         mov     dx, debug_com_base+3
  914.         mov     al, 3
  915.         out     dx, al
  916.  
  917.         ; disable interrupts
  918.  
  919.         mov     dx, debug_com_base+1
  920.         mov     al, 0
  921.         out     dx, al
  922.  
  923.         ; clear +  enable fifo (64 bits)
  924.  
  925.         mov     dx, debug_com_base+2
  926.         mov     al, 0x7 + 1 shl 5
  927.         out     dx, al
  928.  
  929.  
  930. end if
  931.  
  932. ; START MULTITASKING
  933.  
  934. if preboot_blogesc
  935.         mov     esi, boot_tasking
  936.         call    boot_log
  937. .bll1:  in      al, 0x60        ; wait for ESC key press
  938.         cmp     al, 129
  939.         jne     .bll1
  940. end if
  941.  
  942. ;       mov   [ENABLE_TASKSWITCH],byte 1        ; multitasking enabled
  943.  
  944. ; UNMASK ALL IRQ'S
  945.  
  946.         mov   esi,boot_allirqs
  947.         call  boot_log
  948.  
  949.         cli                          ;guarantee forbidance of interrupts.
  950.         mov   al,0                   ; unmask all irq's
  951.         out   0xA1,al
  952.         out   0x21,al
  953.  
  954.         mov   ecx,32
  955.  
  956.      ready_for_irqs:
  957.  
  958.         mov   al,0x20                ; ready for irqs
  959.         out   0x20,al
  960.         out   0xa0,al
  961.  
  962.         loop  ready_for_irqs         ; flush the queue
  963.  
  964.         stdcall attach_int_handler, dword 1, irq1, dword 0
  965.  
  966. ;        mov    [dma_hdd],1
  967.         cmp     [IDEContrRegsBaseAddr], 0
  968.         setnz   [dma_hdd]
  969.         mov [timer_ticks_enable],1              ; for cd driver
  970.  
  971.         sti
  972.         call change_task
  973.  
  974.         jmp osloop
  975.  
  976. ;        jmp   $                      ; wait here for timer to take control
  977.  
  978.         ; Fly :)
  979.  
  980. include 'unpacker.inc'
  981. include 'fdo.inc'
  982.  
  983. align 4
  984. boot_log:
  985.          pushad
  986.  
  987.          mov   ebx,10*65536
  988.          mov   bx,word [boot_y]
  989.          add   [boot_y],dword 10
  990.          mov   ecx,0x80ffffff   ; ASCIIZ string with white color
  991.          mov   edx,esi
  992.          mov   edi,1
  993.          call  dtext
  994.  
  995.          mov   [novesachecksum],1000
  996.          call  checkVga_N13
  997.  
  998.          popad
  999.  
  1000.          ret
  1001.  
  1002.  
  1003. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1004. ;                                                                    ;
  1005. ;                    MAIN OS LOOP START                              ;
  1006. ;                                                                    ;
  1007. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1008. align 32
  1009. osloop:
  1010.         call   [draw_pointer]
  1011.         call   checkbuttons
  1012.         call   checkwindows
  1013. ;       call   check_window_move_request
  1014.         call   checkmisc
  1015.         call   checkVga_N13
  1016.         call   stack_handler
  1017.         call   checkidle
  1018.         call   check_fdd_motor_status
  1019.         call   check_ATAPI_device_event
  1020.         jmp    osloop
  1021. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1022. ;                                                                    ;
  1023. ;                      MAIN OS LOOP END                              ;
  1024. ;                                                                    ;
  1025. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1026. align 4
  1027. checkidle:
  1028.         pushad
  1029.         call    change_task
  1030.         jmp     idle_loop_entry
  1031.   idle_loop:
  1032.         cmp     eax,[idlemem]     ; eax == [timer_ticks]
  1033.         jne     idle_exit
  1034.         rdtsc   ;call _rdtsc
  1035.         mov     ecx,eax
  1036.         hlt
  1037.         rdtsc   ;call _rdtsc
  1038.         sub     eax,ecx
  1039.         add     [idleuse],eax
  1040.   idle_loop_entry:
  1041.         mov     eax,[timer_ticks] ; eax =  [timer_ticks]
  1042.         cmp     [check_idle_semaphore],0
  1043.         je      idle_loop
  1044.         dec     [check_idle_semaphore]
  1045.   idle_exit:
  1046.         mov     [idlemem],eax     ; eax == [timer_ticks]
  1047.         popad
  1048.         ret
  1049.  
  1050. uglobal
  1051.   idlemem               dd   0x0
  1052.   idleuse               dd   0x0
  1053.   idleusesec            dd   0x0
  1054.   check_idle_semaphore  dd   0x0
  1055. endg
  1056.  
  1057.  
  1058.  
  1059. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1060. ;                                                                      ;
  1061. ;                   INCLUDED SYSTEM FILES                              ;
  1062. ;                                                                      ;
  1063. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1064.  
  1065.  
  1066. include "kernel32.inc"
  1067.  
  1068.  
  1069. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1070. ;                                                                      ;
  1071. ;                       KERNEL FUNCTIONS                               ;
  1072. ;                                                                      ;
  1073. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1074.  
  1075. reserve_irqs_ports:
  1076.  
  1077.         push eax
  1078.         xor     eax,eax
  1079.         inc     eax
  1080.         mov  byte [irq_owner+4*0],al            ;1    ; timer
  1081.         ;mov  [irq_owner+4*1], 1    ; keyboard
  1082.         mov  byte [irq_owner+4*6],al            ;1    ; floppy diskette
  1083.         mov  byte [irq_owner+4*13],al   ;1   ; math co-pros
  1084.         mov  byte [irq_owner+4*14],al   ;1   ; ide I
  1085.         mov  byte [irq_owner+4*15],al   ;1   ; ide II
  1086.         pop  eax
  1087.         ; RESERVE PORTS
  1088. ;        mov   edi,1                    ; 0x00-0x2d
  1089.         push  dword 4
  1090.         pop   dword [RESERVED_PORTS]    ;,edi
  1091. ;        shl   edi,4
  1092.         push  dword 1
  1093.         pop   dword [RESERVED_PORTS+16+0]       ;,dword 1
  1094.         push  dword 0
  1095.         pop   dword [RESERVED_PORTS+16+4]       ;,dword 0x0
  1096.         push  dword 0x2d                        
  1097.         pop   dword [RESERVED_PORTS+16+8]       ;,dword 0x2d
  1098.  
  1099. ;        inc   dword [RESERVED_PORTS]           ; 0x30-0x4d
  1100. ;        mov   edi,[RESERVED_PORTS]
  1101. ;        shl   edi,4
  1102.         push  dword 1
  1103.         pop   dword [RESERVED_PORTS+32+0]       ;,dword 1
  1104.         push  dword 0x30
  1105.         pop   dword [RESERVED_PORTS+32+4]       ;,dword 0x30
  1106.         push  dword 0x4d
  1107.         pop   dword [RESERVED_PORTS+32+8]       ;,dword 0x4d
  1108.  
  1109. ;        inc   dword [RESERVED_PORTS]          ; 0x50-0xdf
  1110. ;        mov   edi,[RESERVED_PORTS]
  1111. ;        shl   edi,4
  1112.         push  dword 1
  1113.         pop   dword [RESERVED_PORTS+48+0]       ;,dword 1
  1114.         push  dword 0x50
  1115.         pop   dword [RESERVED_PORTS+48+4]       ;,dword 0x50
  1116.         push  dword 0xdf
  1117.         pop   dword [RESERVED_PORTS+48+8]       ;,dword 0xdf
  1118.  
  1119. ;        inc   dword [RESERVED_PORTS]          ; 0xe5-0xff
  1120. ;        mov   edi,[RESERVED_PORTS]
  1121. ;        shl   edi,4
  1122.         push  dword 1
  1123.         pop   dword [RESERVED_PORTS+64+0]       ;,dword 1
  1124.         push  dword 0xe5
  1125.         pop   dword [RESERVED_PORTS+64+4]       ;,dword 0xe5
  1126.         push  0xff
  1127.         pop   dword [RESERVED_PORTS+64+8]       ;,dword 0xff
  1128.  
  1129. ;        popad
  1130.         ret
  1131.  
  1132. setirqreadports:
  1133.  
  1134.         mov   [irq12read+0],dword 0x60 + 0x01000000  ; read port 0x60 , byte
  1135.         mov   [irq12read+4],dword 0                  ; end of port list
  1136.         ;mov   [irq04read+0],dword 0x3f8 + 0x01000000 ; read port 0x3f8 , byte
  1137.         ;mov   [irq04read+4],dword 0                  ; end of port list
  1138.         ;mov   [irq03read+0],dword 0x2f8 + 0x01000000 ; read port 0x2f8 , byte
  1139.         ;mov   [irq03read+4],dword 0                  ; end of port list
  1140.  
  1141.         ret
  1142.  
  1143. iglobal
  1144.   process_number dd 0x1
  1145. endg
  1146.  
  1147. set_variables:
  1148.  
  1149.         mov   ecx,0x100                       ; flush port 0x60
  1150. .fl60:  in    al,0x60
  1151.         loop  .fl60
  1152.         push  eax
  1153.  
  1154.         mov   ax,[BOOT_VAR+0x900c]
  1155.         shr   ax,1
  1156.         shl   eax,16
  1157.         mov   ax,[BOOT_VAR+0x900A]
  1158.         shr   ax,1
  1159.         mov   [MOUSE_X],eax
  1160.  
  1161.         xor   eax,eax
  1162.         mov   [BTN_ADDR],dword BUTTON_INFO    ; address of button list
  1163.  
  1164.         mov   byte [MOUSE_BUFF_COUNT],al                 ; mouse buffer
  1165.         mov   byte [KEY_COUNT],al                 ; keyboard buffer
  1166.         mov   byte [BTN_COUNT],al                 ; button buffer
  1167. ;        mov   [MOUSE_X],dword 100*65536+100    ; mouse x/y
  1168.  
  1169.      ;!! IP 04.02.2005:
  1170.         mov   byte [DONT_SWITCH],al ; change task if possible
  1171.         pop   eax
  1172.         ret
  1173.  
  1174. align 4
  1175.  
  1176. sys_outport:
  1177.  
  1178.     mov   edi,ebx          ; separate flag for read / write
  1179.     and   ebx,65535
  1180.  
  1181.     mov   ecx,[RESERVED_PORTS]
  1182.     test  ecx,ecx
  1183.     jne   sopl8
  1184.     mov   [esp+36],dword 1
  1185.     ret
  1186.  
  1187.   sopl8:
  1188.     mov   edx,[TASK_BASE]
  1189.     mov   edx,[edx+0x4]
  1190.     and   ebx,65535
  1191.     cld
  1192.   sopl1:
  1193.  
  1194.     mov   esi,ecx
  1195.     shl   esi,4
  1196.     add   esi,RESERVED_PORTS
  1197.     cmp   edx,[esi+0]
  1198.     jne   sopl2
  1199.     cmp   ebx,[esi+4]
  1200.     jb    sopl2
  1201.     cmp   ebx,[esi+8]
  1202.     jg    sopl2
  1203.     jmp   sopl3
  1204.  
  1205.   sopl2:
  1206.  
  1207.     dec   ecx
  1208.     jnz   sopl1
  1209.     mov   [esp+36],dword 1
  1210.     ret
  1211.  
  1212.   sopl3:
  1213.  
  1214.     test  edi,0x80000000 ; read ?
  1215.     jnz   sopl4
  1216.  
  1217.     mov   dx,bx          ; write
  1218.     out   dx,al
  1219.     mov   [esp+36],dword 0
  1220.     ret
  1221.  
  1222.   sopl4:
  1223.  
  1224.     mov   dx,bx          ; read
  1225.     in    al,dx
  1226.     and   eax,0xff
  1227.     mov   [esp+36],dword 0
  1228.     mov   [esp+24],eax
  1229.     ret
  1230.  
  1231. display_number:
  1232.  
  1233. ; eax = print type, al=0 -> ebx is number
  1234. ;                   al=1 -> ebx is pointer
  1235. ;                   ah=0 -> display decimal
  1236. ;                   ah=1 -> display hexadecimal
  1237. ;                   ah=2 -> display binary
  1238. ;                   eax bits 16-21 = number of digits to display (0-32)
  1239. ;                   eax bits 22-31 = reserved
  1240. ;
  1241. ; ebx = number or pointer
  1242. ; ecx = x shl 16 + y
  1243. ; edx = color
  1244.         xor     edi, edi
  1245. display_number_force:
  1246.      push  eax
  1247.      and   eax,0x3fffffff
  1248.      cmp   eax,0xffff            ; length > 0 ?
  1249.      pop   eax
  1250.      jge   cont_displ
  1251.      ret
  1252.    cont_displ:
  1253.      push  eax
  1254.      and   eax,0x3fffffff
  1255.      cmp   eax,61*0x10000        ; length <= 60 ?
  1256.      pop   eax
  1257.      jb    cont_displ2
  1258.      ret
  1259.    cont_displ2:
  1260.  
  1261.      pushad
  1262.  
  1263.      cmp   al,1                  ; ecx is a pointer ?
  1264.      jne   displnl1
  1265.      mov   ebp,ebx
  1266.      add   ebp,4
  1267.      mov   ebp,[ebp+std_application_base_address]
  1268.      mov   ebx,[ebx+std_application_base_address]
  1269.    displnl1:
  1270.      sub   esp,64
  1271.  
  1272.      cmp   ah,0                  ; DECIMAL
  1273.      jne   no_display_desnum
  1274.      shr   eax,16
  1275.      and   eax,0xC03f
  1276. ;     and   eax,0x3f
  1277.      push  eax
  1278.      and   eax,0x3f
  1279.      mov   edi,esp
  1280.      add   edi,4+64-1
  1281.      mov   ecx,eax
  1282.      mov   eax,ebx
  1283.      mov   ebx,10
  1284.    d_desnum:
  1285.      xor   edx,edx
  1286.      call  division_64_bits
  1287.      div   ebx
  1288.      add   dl,48
  1289.      mov   [edi],dl
  1290.      dec   edi
  1291.      loop  d_desnum
  1292.      pop   eax
  1293.      call  normalize_number
  1294.      call  draw_num_text
  1295.      add   esp,64
  1296.      popad
  1297.      ret
  1298.    no_display_desnum:
  1299.  
  1300.      cmp   ah,0x01               ; HEXADECIMAL
  1301.      jne   no_display_hexnum
  1302.      shr   eax,16
  1303.      and   eax,0xC03f
  1304. ;     and   eax,0x3f
  1305.      push  eax
  1306.      and   eax,0x3f
  1307.      mov   edi,esp
  1308.      add   edi,4+64-1
  1309.      mov   ecx,eax
  1310.      mov   eax,ebx
  1311.      mov   ebx,16
  1312.    d_hexnum:
  1313.      xor   edx,edx
  1314.      call  division_64_bits
  1315.      div   ebx
  1316.    hexletters = __fdo_hexdigits
  1317.      add   edx,hexletters
  1318.      mov   dl,[edx]
  1319.      mov   [edi],dl
  1320.      dec   edi
  1321.      loop  d_hexnum
  1322.      pop   eax
  1323.      call  normalize_number
  1324.      call  draw_num_text
  1325.      add   esp,64
  1326.      popad
  1327.      ret
  1328.    no_display_hexnum:
  1329.  
  1330.      cmp   ah,0x02               ; BINARY
  1331.      jne   no_display_binnum
  1332.      shr   eax,16
  1333.      and   eax,0xC03f
  1334. ;     and   eax,0x3f
  1335.      push  eax
  1336.      and   eax,0x3f
  1337.      mov   edi,esp
  1338.      add   edi,4+64-1
  1339.      mov   ecx,eax
  1340.      mov   eax,ebx
  1341.      mov   ebx,2
  1342.    d_binnum:
  1343.      xor   edx,edx
  1344.      call  division_64_bits
  1345.      div   ebx
  1346.      add   dl,48
  1347.      mov   [edi],dl
  1348.      dec   edi
  1349.      loop  d_binnum
  1350.      pop   eax
  1351.      call  normalize_number
  1352.      call  draw_num_text
  1353.      add   esp,64
  1354.      popad
  1355.      ret
  1356.    no_display_binnum:
  1357.  
  1358.      add   esp,64
  1359.      popad
  1360.      ret
  1361.  
  1362. normalize_number:
  1363.      test  ah,0x80
  1364.      jz   .continue
  1365.      mov  ecx,48
  1366.      and   eax,0x3f
  1367. @@:
  1368.      inc   edi
  1369.      cmp   [edi],cl
  1370.      jne   .continue
  1371.      dec   eax
  1372.      cmp   eax,1
  1373.      ja    @r
  1374.      mov   al,1
  1375. .continue:
  1376.      and   eax,0x3f
  1377.      ret
  1378.  
  1379. division_64_bits:
  1380.      test  [esp+1+4],byte 0x40
  1381.      jz   .continue
  1382.      push  eax
  1383.      mov   eax,ebp
  1384.      div   ebx
  1385.      mov   ebp,eax
  1386.      pop   eax
  1387. .continue:
  1388.      ret
  1389.  
  1390. draw_num_text:
  1391.      mov   esi,eax
  1392.      mov   edx,64+4
  1393.      sub   edx,eax
  1394.      add   edx,esp
  1395.      mov   ebx,[esp+64+32-8+4]
  1396. ; add window start x & y
  1397.      mov   ecx,[TASK_BASE]
  1398.  
  1399.      mov   edi,[CURRENT_TASK]
  1400.      shl   edi,8
  1401.  
  1402.      mov   eax,[ecx-twdw+WDATA.box.left]
  1403.      add   eax,[edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
  1404.      shl   eax,16
  1405.      add   eax,[ecx-twdw+WDATA.box.top]
  1406.      add   eax,[edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
  1407.      add   ebx,eax
  1408.      mov   ecx,[esp+64+32-12+4]
  1409.         and     ecx, not 0x80000000     ; force counted string
  1410.         mov     eax, [esp+64+8]         ; background color (if given)
  1411.         mov     edi, [esp+64+4]
  1412.      jmp   dtext
  1413.  
  1414. align 4
  1415.  
  1416. sys_setup:
  1417.  
  1418. ; 1=roland mpu midi base , base io address
  1419. ; 2=keyboard   1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
  1420. ; 3=cd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
  1421. ; 5=system language, 1eng 2fi 3ger 4rus
  1422. ; 7=hd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
  1423. ; 8=fat32 partition in hd
  1424. ; 9
  1425. ; 10 = sound dma channel
  1426. ; 11 = enable lba read
  1427. ; 12 = enable pci access
  1428.  
  1429.  
  1430.      mov  [esp+36],dword 0
  1431.      cmp  eax,1                      ; MIDI
  1432.      jnz  nsyse1
  1433.      cmp  ebx,0x100
  1434.      jb   nsyse1
  1435.      mov  edx,65535
  1436.      cmp  edx,ebx
  1437.      jb   nsyse1
  1438.      mov  [midi_base],bx
  1439.      mov  word [mididp],bx
  1440.      inc  bx
  1441.      mov  word [midisp],bx
  1442.      ret
  1443.  
  1444. iglobal
  1445. midi_base dw 0
  1446. endg
  1447.  
  1448.    nsyse1:
  1449.  
  1450. ;     cmp  eax,2                      ; KEYBOARD
  1451.      sub  eax,2
  1452.      jnz  nsyse2
  1453. ;     cmp  ebx,1
  1454.      dec  ebx
  1455.      jnz  kbnobase
  1456.      mov  edi,[TASK_BASE]
  1457.      add  ecx,[edi+TASKDATA.mem_start]
  1458.      mov  eax,ecx
  1459.      mov  ebx,keymap
  1460.      mov  ecx,128
  1461.      call memmove
  1462.      ret
  1463.    kbnobase:
  1464. ;     cmp  ebx,2
  1465.      dec  ebx
  1466.      jnz  kbnoshift
  1467.      mov  edi,[TASK_BASE]
  1468.      add  ecx,[edi+TASKDATA.mem_start]
  1469.      mov  eax,ecx
  1470.      mov  ebx,keymap_shift
  1471.      mov  ecx,128
  1472.      call memmove
  1473.      ret
  1474.    kbnoshift:
  1475. ;     cmp  ebx,3
  1476.      dec  ebx
  1477.      jnz  kbnoalt
  1478.      mov  edi,[TASK_BASE]
  1479.      add  ecx,[edi+TASKDATA.mem_start]
  1480.      mov  eax,ecx
  1481.      mov  ebx,keymap_alt
  1482.      mov  ecx,128
  1483.      call memmove
  1484.      ret
  1485.    kbnoalt:
  1486. ;     cmp  ebx,9
  1487.      sub  ebx,6
  1488.      jnz  kbnocountry
  1489.      mov  word [keyboard],cx
  1490.      ret
  1491.    kbnocountry:
  1492.      mov  [esp+36],dword 1
  1493.      ret
  1494.    nsyse2:
  1495. ;     cmp  eax,3                      ; CD
  1496.      dec  eax
  1497.      jnz  nsyse4
  1498.      test ebx,ebx
  1499.      jz   nosesl
  1500.      cmp  ebx, 4
  1501.      ja   nosesl
  1502.      mov  [cd_base],bl
  1503.      cmp  ebx,1
  1504.      jnz  noprma
  1505.      mov  [cdbase],0x1f0
  1506.      mov  [cdid],0xa0
  1507.    noprma:
  1508.      cmp  ebx,2
  1509.      jnz  noprsl
  1510.      mov  [cdbase],0x1f0
  1511.      mov  [cdid],0xb0
  1512.    noprsl:
  1513.      cmp  ebx,3
  1514.      jnz  nosema
  1515.      mov  [cdbase],0x170
  1516.      mov  [cdid],0xa0
  1517.    nosema:
  1518.      cmp  ebx,4
  1519.      jnz  nosesl
  1520.      mov  [cdbase],0x170
  1521.      mov  [cdid],0xb0
  1522.    nosesl:
  1523.      ret
  1524.  
  1525. cd_base db 0
  1526.  
  1527.    nsyse4:
  1528.  
  1529. ;     cmp  eax,5                      ; SYSTEM LANGUAGE
  1530.      sub  eax,2
  1531.      jnz  nsyse5
  1532.      mov  [syslang],ebx
  1533.      ret
  1534.    nsyse5:
  1535.  
  1536. ;     cmp  eax,7                      ; HD BASE
  1537.      sub  eax,2
  1538.      jnz  nsyse7
  1539.      test ebx,ebx
  1540.      jz   nosethd
  1541.      cmp  ebx,4
  1542.      ja   nosethd
  1543.      mov  [hd_base],bl
  1544.      cmp  ebx,1
  1545.      jnz  noprmahd
  1546.      mov  [hdbase],0x1f0
  1547.      mov  [hdid],0x0
  1548.      mov  [hdpos],1
  1549. ;     call set_FAT32_variables
  1550.    noprmahd:
  1551.      cmp  ebx,2
  1552.      jnz  noprslhd
  1553.      mov  [hdbase],0x1f0
  1554.      mov  [hdid],0x10
  1555.      mov  [hdpos],2
  1556. ;     call set_FAT32_variables
  1557.    noprslhd:
  1558.      cmp  ebx,3
  1559.      jnz  nosemahd
  1560.      mov  [hdbase],0x170
  1561.      mov  [hdid],0x0
  1562.      mov  [hdpos],3
  1563. ;     call set_FAT32_variables
  1564.    nosemahd:
  1565.      cmp  ebx,4
  1566.      jnz  noseslhd
  1567.      mov  [hdbase],0x170
  1568.      mov  [hdid],0x10
  1569.      mov  [hdpos],4
  1570. ;     call set_FAT32_variables
  1571.    noseslhd:
  1572.     call  reserve_hd1
  1573.     call  reserve_hd_channel
  1574.     call  free_hd_channel
  1575.     mov   [hd1_status],0        ; free
  1576.    nosethd:
  1577.      ret
  1578.  
  1579. iglobal
  1580. hd_base db 0
  1581. endg
  1582.  
  1583. nsyse7:
  1584.  
  1585. ;     cmp  eax,8                      ; HD PARTITION
  1586.      dec  eax
  1587.      jnz  nsyse8
  1588.      mov  [fat32part],ebx
  1589. ;     call set_FAT32_variables
  1590.     call  reserve_hd1
  1591.     call  reserve_hd_channel
  1592.     call  free_hd_channel
  1593.      pusha
  1594.      call  choice_necessity_partition_1
  1595.      popa
  1596.     mov   [hd1_status],0        ; free
  1597.      ret
  1598.  
  1599. nsyse8:
  1600. ;     cmp  eax,11                     ; ENABLE LBA READ
  1601.      sub  eax,3
  1602.      jnz  no_set_lba_read
  1603.      and  ebx,1
  1604.      mov  [lba_read_enabled],ebx
  1605.      ret
  1606.  
  1607. no_set_lba_read:
  1608. ;     cmp  eax,12                     ; ENABLE PCI ACCESS
  1609.      dec  eax
  1610.      jnz  no_set_pci_access
  1611.      and  ebx,1
  1612.      mov  [pci_access_enabled],ebx
  1613.      ret
  1614.    no_set_pci_access:
  1615.  
  1616. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1617. include 'vmodeint.inc'
  1618. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1619.  
  1620. sys_setup_err:
  1621.      mov  [esp+36],dword -1
  1622.      ret
  1623.  
  1624. align 4
  1625.  
  1626. sys_getsetup:
  1627.  
  1628. ; 1=roland mpu midi base , base io address
  1629. ; 2=keyboard   1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
  1630. ; 3=cd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
  1631. ; 5=system language, 1eng 2fi 3ger 4rus
  1632. ; 7=hd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
  1633. ; 8=fat32 partition in hd
  1634. ; 9=get hs timer tic
  1635.  
  1636.      cmp  eax,1
  1637.      jne  ngsyse1
  1638.      movzx eax,[midi_base]
  1639.      mov  [esp+36],eax
  1640.      ret
  1641. ngsyse1:
  1642.  
  1643.      cmp  eax,2
  1644.      jne  ngsyse2
  1645.      cmp  ebx,1
  1646.      jnz  kbnobaseret
  1647.      mov  edi,[TASK_BASE]
  1648.      add  ecx,[edi+TASKDATA.mem_start]
  1649.      mov  ebx,ecx
  1650.      mov  eax,keymap
  1651.      mov  ecx,128
  1652.      call memmove
  1653.      ret
  1654. kbnobaseret:
  1655.      cmp  ebx,2
  1656.      jnz  kbnoshiftret
  1657.      mov  edi,[TASK_BASE]
  1658.      add  ecx,[edi+TASKDATA.mem_start]
  1659.      mov  ebx,ecx
  1660.      mov  eax,keymap_shift
  1661.      mov  ecx,128
  1662.      call memmove
  1663.      ret
  1664. kbnoshiftret:
  1665.      cmp  ebx,3
  1666.      jne  kbnoaltret
  1667.      mov  edi,[TASK_BASE]
  1668.      add  ecx,[edi+TASKDATA.mem_start]
  1669.      mov  ebx,ecx
  1670.      mov  eax,keymap_alt
  1671.      mov  ecx,128
  1672.      call memmove
  1673.      ret
  1674. kbnoaltret:
  1675.      cmp  ebx,9
  1676.      jnz  ngsyse2
  1677.      movzx eax,word [keyboard]
  1678.      mov  [esp+36],eax
  1679.      ret
  1680. ngsyse2:
  1681.  
  1682.          cmp  eax,3
  1683.          jnz  ngsyse3
  1684.          movzx eax,[cd_base]
  1685.          mov  [esp+36],eax
  1686.          ret
  1687. ngsyse3:
  1688.          cmp  eax,5
  1689.          jnz  ngsyse5
  1690.          mov  eax,[syslang]
  1691.          mov  [esp+36],eax
  1692.          ret
  1693. ngsyse5:
  1694.      cmp  eax,7
  1695.      jnz  ngsyse7
  1696.      movzx eax,[hd_base]
  1697.      mov  [esp+36],eax
  1698.      ret
  1699. ngsyse7:
  1700.      cmp  eax,8
  1701.      jnz  ngsyse8
  1702.      mov eax,[fat32part]
  1703.      mov  [esp+36],eax
  1704.      ret
  1705. ngsyse8:
  1706.      cmp  eax,9
  1707.      jne  ngsyse9
  1708.      mov  eax,[timer_ticks] ;[0xfdf0]
  1709.      mov  [esp+36],eax
  1710.      ret
  1711. ngsyse9:
  1712.      cmp  eax,11
  1713.      jnz  ngsyse11
  1714.      mov eax,[lba_read_enabled]
  1715.      mov  [esp+36],eax
  1716.      ret
  1717. ngsyse11:
  1718.      cmp  eax,12
  1719.      jnz  ngsyse12
  1720.      mov eax,[pci_access_enabled]
  1721.      mov  [esp+36],eax
  1722.      ret
  1723. ngsyse12:
  1724.      mov  [esp+36],dword 1
  1725.      ret
  1726.  
  1727. get_timer_ticks:
  1728.     mov eax,[timer_ticks]
  1729.     ret
  1730.  
  1731. iglobal
  1732. align 4
  1733. mousefn dd msscreen, mswin, msbutton, msset
  1734.         dd app_load_cursor
  1735.         dd app_set_cursor
  1736.         dd app_delete_cursor
  1737.         dd msz
  1738. endg
  1739.  
  1740. readmousepos:
  1741.  
  1742. ; eax=0 screen relative
  1743. ; eax=1 window relative
  1744. ; eax=2 buttons pressed
  1745. ; eax=3 set mouse pos   ; reserved
  1746. ; eax=4 load cursor
  1747. ; eax=5 set cursor
  1748. ; eax=6 delete cursor   ; reserved
  1749. ; eax=7 get mouse_z
  1750.  
  1751.            cmp eax, 7
  1752.            ja msset
  1753.            jmp [mousefn+eax*4]
  1754. msscreen:
  1755.            mov  eax,[MOUSE_X]
  1756.            shl  eax,16
  1757.            mov  ax,[MOUSE_Y]
  1758.            mov  [esp+36],eax
  1759.            ret
  1760. mswin:
  1761.            mov  eax,[MOUSE_X]
  1762.            shl  eax,16
  1763.            mov  ax,[MOUSE_Y]
  1764.            mov  esi,[TASK_BASE]
  1765.            mov  bx, word [esi-twdw+WDATA.box.left]
  1766.            shl  ebx,16
  1767.            mov  bx, word [esi-twdw+WDATA.box.top]
  1768.            sub  eax,ebx
  1769.  
  1770.            mov  edi,[CURRENT_TASK]
  1771.            shl  edi,8
  1772.            sub  ax,word[edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
  1773.            rol  eax,16
  1774.            sub  ax,word[edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
  1775.            rol  eax,16
  1776.            mov  [esp+36],eax
  1777.            ret
  1778. msbutton:
  1779.            movzx eax,byte [BTN_DOWN]
  1780.            mov  [esp+36],eax
  1781.            ret
  1782. msz:
  1783.            mov   edi, [TASK_COUNT]
  1784.            movzx edi, word [WIN_POS + edi*2]
  1785.            cmp   edi, [CURRENT_TASK]
  1786.            jne   @f
  1787.            mov   ax,[MOUSE_SCROLL_H]
  1788.            shl   eax,16
  1789.            mov   ax,[MOUSE_SCROLL_V]
  1790.            mov   [esp+36],eax
  1791.            mov   [MOUSE_SCROLL_H],word 0
  1792.            mov   [MOUSE_SCROLL_V],word 0
  1793.            ret
  1794.        @@:
  1795.            mov  [esp+36],dword 0
  1796.            ret
  1797. msset:
  1798.            ret
  1799.  
  1800. app_load_cursor:
  1801.       ;     add ebx, new_app_base
  1802.            cmp ebx, OS_BASE
  1803.            jae msset
  1804.            stdcall load_cursor, ebx, ecx
  1805.            mov [esp+36], eax
  1806.            ret
  1807.  
  1808. app_set_cursor:
  1809.            stdcall set_cursor, ebx
  1810.            mov [esp+36], eax
  1811.            ret
  1812.  
  1813. app_delete_cursor:
  1814.            stdcall delete_cursor, ebx
  1815.            mov [esp+36], eax
  1816.            ret
  1817.  
  1818. is_input:
  1819.  
  1820.    push edx
  1821.    mov  dx,word [midisp]
  1822.    in   al,dx
  1823.    and  al,0x80
  1824.    pop  edx
  1825.    ret
  1826.  
  1827. is_output:
  1828.  
  1829.    push edx
  1830.    mov  dx,word [midisp]
  1831.    in   al,dx
  1832.    and  al,0x40
  1833.    pop  edx
  1834.    ret
  1835.  
  1836.  
  1837. get_mpu_in:
  1838.  
  1839.    push edx
  1840.    mov  dx,word [mididp]
  1841.    in   al,dx
  1842.    pop  edx
  1843.    ret
  1844.  
  1845.  
  1846. put_mpu_out:
  1847.  
  1848.    push edx
  1849.    mov  dx,word [mididp]
  1850.    out  dx,al
  1851.    pop  edx
  1852.    ret
  1853.  
  1854.  
  1855. setuart:
  1856.  
  1857.  su1:
  1858.    call is_output
  1859.    cmp  al,0
  1860.    jnz  su1
  1861.    mov  dx,word [midisp]
  1862.    mov  al,0xff
  1863.    out  dx,al
  1864.  su2:
  1865.    mov  dx,word [midisp]
  1866.    mov  al,0xff
  1867.    out  dx,al
  1868.    call is_input
  1869.    cmp  al,0
  1870.    jnz  su2
  1871.    call get_mpu_in
  1872.    cmp  al,0xfe
  1873.    jnz  su2
  1874.  su3:
  1875.    call is_output
  1876.    cmp  al,0
  1877.    jnz  su3
  1878.    mov  dx,word [midisp]
  1879.    mov  al,0x3f
  1880.    out  dx,al
  1881.  
  1882.    ret
  1883.  
  1884.  
  1885. align 4
  1886.  
  1887. sys_midi:
  1888.  
  1889.      cmp  [mididp],0
  1890.      jnz  sm0
  1891.      mov  [esp+36],dword 1
  1892.      ret
  1893.    sm0:
  1894.  
  1895.      cmp  eax,1
  1896.      mov  [esp+36],dword 0
  1897.      jnz  smn1
  1898.      call setuart
  1899.      ret
  1900.    smn1:
  1901.  
  1902.      cmp  eax,2
  1903.      jnz  smn2
  1904.    sm10:
  1905.      call get_mpu_in
  1906.      call is_output
  1907.      test al,al
  1908.      jnz  sm10
  1909.      mov  al,bl
  1910.      call put_mpu_out
  1911.      ret
  1912.    smn2:
  1913.  
  1914.      ret
  1915.  
  1916.  
  1917. detect_devices:
  1918. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1919. ;include 'detect/commouse.inc'
  1920. ;include 'detect/ps2mouse.inc'
  1921. ;include 'detect/dev_fd.inc'
  1922. ;include 'detect/dev_hdcd.inc'
  1923. ;include 'detect/sear_par.inc'
  1924. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1925.     ret
  1926.  
  1927.  
  1928. sys_end:
  1929.  
  1930.      mov ecx, [current_slot]
  1931.      mov eax, [ecx+APPDATA.tls_base]
  1932.      test eax, eax
  1933.      jz @F
  1934.  
  1935.      stdcall user_free, eax
  1936. @@:
  1937.  
  1938.      mov   eax,[TASK_BASE]
  1939.      mov   [eax+TASKDATA.state], 3  ; terminate this program
  1940.  
  1941.     waitterm:            ; wait here for termination
  1942.      mov   ebx,100
  1943.      call  delay_hs
  1944.      jmp   waitterm
  1945.  
  1946. iglobal
  1947. align 4
  1948. sys_system_table:
  1949.         dd      exit_for_anyone         ; 1 = obsolete
  1950.         dd      sysfn_terminate         ; 2 = terminate thread
  1951.         dd      sysfn_activate          ; 3 = activate window
  1952.         dd      sysfn_getidletime       ; 4 = get idle time
  1953.         dd      sysfn_getcpuclock       ; 5 = get cpu clock
  1954.         dd      sysfn_saveramdisk       ; 6 = save ramdisk
  1955.         dd      sysfn_getactive         ; 7 = get active window
  1956.         dd      sysfn_sound_flag        ; 8 = get/set sound_flag
  1957.         dd      sysfn_shutdown          ; 9 = shutdown with parameter
  1958.         dd      sysfn_minimize          ; 10 = minimize window
  1959.         dd      sysfn_getdiskinfo       ; 11 = get disk subsystem info
  1960.         dd      sysfn_lastkey           ; 12 = get last pressed key
  1961.         dd      sysfn_getversion        ; 13 = get kernel version
  1962.         dd      sysfn_waitretrace       ; 14 = wait retrace
  1963.         dd      sysfn_centermouse       ; 15 = center mouse cursor
  1964.         dd      sysfn_getfreemem        ; 16 = get free memory size
  1965.         dd      sysfn_getallmem         ; 17 = get total memory size
  1966.         dd      sysfn_terminate2        ; 18 = terminate thread using PID
  1967.                                         ;                 instead of slot
  1968.         dd      sysfn_mouse_acceleration; 19 = set/get mouse acceleration
  1969.         dd      sysfn_meminfo           ; 20 = get extended memory info
  1970.         dd      sysfn_pid_to_slot       ; 21 = get slot number for pid
  1971.         dd      sysfn_min_rest_window   ; 22 = minimize and restore any window
  1972. sysfn_num = ($ - sys_system_table)/4
  1973. endg
  1974.  
  1975. sys_system:
  1976.         dec     ebx
  1977.         cmp     ebx, sysfn_num
  1978.         jae     @f
  1979.         jmp     dword [sys_system_table + ebx*4]
  1980. @@:
  1981.         ret
  1982.  
  1983.  
  1984. sysfn_shutdown:          ; 18.9 = system shutdown
  1985.      cmp  ecx,1
  1986.      jl   exit_for_anyone
  1987.      cmp  ecx,4
  1988.      jg   exit_for_anyone
  1989.      mov  [BOOT_VAR+0x9030],cl
  1990.  
  1991.      mov  eax,[TASK_COUNT]
  1992.      mov  [SYS_SHUTDOWN],al
  1993.      mov  [shutdown_processes],eax
  1994.      and  dword [esp+32], 0
  1995.  exit_for_anyone:
  1996.      ret
  1997.   uglobal
  1998.    shutdown_processes: dd 0x0
  1999.   endg
  2000.  
  2001. sysfn_terminate:        ; 18.2 = TERMINATE
  2002.      cmp  ecx,2
  2003.      jb   noprocessterminate
  2004.      mov  edx,[TASK_COUNT]
  2005.      cmp  ecx,edx
  2006.      ja   noprocessterminate
  2007.      mov  eax,[TASK_COUNT]
  2008.      shl  ecx,5
  2009.      mov  edx,[ecx+CURRENT_TASK+TASKDATA.pid]
  2010.      add  ecx,CURRENT_TASK+TASKDATA.state
  2011.      cmp  byte [ecx], 9
  2012.      jz   noprocessterminate
  2013.  
  2014.      ;call MEM_Heap_Lock      ;guarantee that process isn't working with heap
  2015.      mov  [ecx],byte 3       ; clear possible i40's
  2016.      ;call MEM_Heap_UnLock
  2017.  
  2018.      cmp  edx,[application_table_status]    ; clear app table stat
  2019.      jne  noatsc
  2020.      mov  [application_table_status],0
  2021.    noatsc:
  2022.    noprocessterminate:
  2023.      ret
  2024.  
  2025. sysfn_terminate2:
  2026. ;lock application_table_status mutex
  2027. .table_status:
  2028.     cli
  2029.     cmp    [application_table_status],0
  2030.     je     .stf
  2031.     sti
  2032.     call   change_task
  2033.     jmp    .table_status
  2034. .stf:
  2035.     call   set_application_table_status
  2036.     mov    eax,ecx
  2037.     call   pid_to_slot
  2038.     test   eax,eax
  2039.     jz     .not_found
  2040.     mov    ecx,eax
  2041.     cli
  2042.     call   sysfn_terminate
  2043.     mov    [application_table_status],0
  2044.     sti
  2045.     and    dword [esp+32],0
  2046.     ret
  2047. .not_found:
  2048.     mov    [application_table_status],0
  2049.     or     dword [esp+32],-1
  2050.     ret
  2051.  
  2052. sysfn_activate:         ; 18.3 = ACTIVATE WINDOW
  2053.      cmp  ecx,2
  2054.      jb   .nowindowactivate
  2055.      cmp  ecx,[TASK_COUNT]
  2056.      ja   .nowindowactivate
  2057.  
  2058.      mov   [window_minimize], 2   ; restore window if minimized
  2059.  
  2060.      movzx esi, word [WIN_STACK + ecx*2]
  2061.      cmp   esi, [TASK_COUNT]
  2062.      je    .nowindowactivate ; already active
  2063.  
  2064.      mov   edi, ecx
  2065.      shl   edi, 5
  2066.      add   edi, window_data
  2067.      movzx esi, word [WIN_STACK + ecx * 2]
  2068.      lea   esi, [WIN_POS + esi * 2]
  2069.      call  waredraw
  2070. .nowindowactivate:
  2071.      ret
  2072.  
  2073. sysfn_getidletime:              ; 18.4 = GET IDLETIME
  2074.      mov  eax,[idleusesec]
  2075.      mov  [esp+32], eax
  2076.      ret
  2077.  
  2078. sysfn_getcpuclock:              ; 18.5 = GET TSC/SEC
  2079.      mov  eax,[CPU_FREQ]
  2080.      mov  [esp+32], eax
  2081.      ret
  2082.  
  2083. ;  SAVE ramdisk to /hd/1/menuet.img
  2084. ;!!!!!!!!!!!!!!!!!!!!!!!!
  2085.    include 'blkdev/rdsave.inc'
  2086. ;!!!!!!!!!!!!!!!!!!!!!!!!
  2087. align 4
  2088. sysfn_getactive:        ; 18.7 = get active window
  2089.      mov  eax, [TASK_COUNT]
  2090.    movzx  eax, word [WIN_POS + eax*2]
  2091.      mov  [esp+32],eax
  2092.      ret
  2093.  
  2094. sysfn_sound_flag:       ; 18.8 = get/set sound_flag
  2095. ;     cmp  ecx,1
  2096.      dec  ecx
  2097.      jnz  nogetsoundflag
  2098.      movzx  eax,byte [sound_flag] ; get sound_flag
  2099.      mov  [esp+32],eax
  2100.      ret
  2101.  nogetsoundflag:
  2102. ;     cmp  ecx,2
  2103.      dec  ecx
  2104.      jnz  nosoundflag
  2105.      xor  byte [sound_flag], 1
  2106.  nosoundflag:
  2107.      ret
  2108.  
  2109. sysfn_minimize:         ; 18.10 = minimize window
  2110.      mov   [window_minimize],1
  2111.      ret
  2112. align 4
  2113. sysfn_getdiskinfo:      ; 18.11 = get disk info table
  2114. ;     cmp  ecx,1
  2115.      dec  ecx
  2116.      jnz  full_table
  2117.   small_table:
  2118.      call for_all_tables
  2119.      mov ecx,10
  2120.      cld
  2121.      rep movsb
  2122.      ret
  2123.    for_all_tables:
  2124.      mov edi,edx
  2125.      mov esi,DRIVE_DATA
  2126.      ret
  2127.   full_table:
  2128. ;     cmp  ecx,2
  2129.      dec  ecx
  2130.      jnz  exit_for_anyone
  2131.      call for_all_tables
  2132.      mov ecx,16384
  2133.      cld
  2134.      rep movsd
  2135.      ret
  2136.  
  2137. sysfn_lastkey:          ; 18.12 = return 0 (backward compatibility)
  2138.         and     dword [esp+32], 0
  2139.         ret
  2140.  
  2141. sysfn_getversion:       ; 18.13 = get kernel ID and version
  2142.      mov edi,ebx
  2143.      mov esi,version_inf
  2144.      mov ecx,version_end-version_inf
  2145.      rep movsb
  2146.      ret
  2147.  
  2148. sysfn_waitretrace:     ; 18.14 = sys wait retrace
  2149.      ;wait retrace functions
  2150.  sys_wait_retrace:
  2151.      mov edx,0x3da
  2152.  WaitRetrace_loop:
  2153.      in al,dx
  2154.      test al,1000b
  2155.      jz WaitRetrace_loop
  2156.      and [esp+32],dword 0
  2157.      ret
  2158.  
  2159. align 4
  2160. sysfn_centermouse:      ; 18.15 = mouse centered
  2161. ; removed here by <Lrz>
  2162. ;     call  mouse_centered
  2163. ;* mouse centered - start code- Mario79
  2164. ;mouse_centered:
  2165. ;        push  eax
  2166.         mov   eax,[Screen_Max_X]
  2167.         shr   eax,1
  2168.         mov   [MOUSE_X],ax
  2169.         mov   eax,[Screen_Max_Y]
  2170.         shr   eax,1
  2171.         mov   [MOUSE_Y],ax
  2172. ;        ret
  2173. ;* mouse centered - end code- Mario79
  2174.         xor   eax,eax
  2175.         and   [esp+32],eax
  2176. ;        pop   eax
  2177.  
  2178.      ret
  2179. align 4
  2180. sysfn_mouse_acceleration: ; 18.19 = set/get mouse features
  2181.      test ecx,ecx  ; get mouse speed factor
  2182.      jnz  .set_mouse_acceleration
  2183.      xor  eax,eax
  2184.      mov  ax,[mouse_speed_factor]
  2185.      mov  [esp+32],eax
  2186.      ret
  2187.  .set_mouse_acceleration:
  2188. ;     cmp  ecx,1  ; set mouse speed factor
  2189.      dec  ecx
  2190.      jnz  .get_mouse_delay
  2191.      mov  [mouse_speed_factor],dx
  2192.      ret
  2193.  .get_mouse_delay:
  2194. ;     cmp  ecx,2  ; get mouse delay
  2195.      dec  ecx
  2196.      jnz  .set_mouse_delay
  2197.      mov  eax,[mouse_delay]
  2198.      mov  [esp+32],eax
  2199.      ret
  2200.  .set_mouse_delay:
  2201. ;     cmp  ecx,3  ; set mouse delay
  2202.      dec  ecx
  2203.      jnz  .set_pointer_position
  2204.      mov  [mouse_delay],edx
  2205.      ret
  2206.  .set_pointer_position:
  2207. ;     cmp  ecx,4  ; set mouse pointer position
  2208.      dec   ecx
  2209.      jnz  .set_mouse_button
  2210.      mov   [MOUSE_Y],dx    ;y
  2211.      ror   edx,16
  2212.      mov   [MOUSE_X],dx    ;x
  2213.      rol   edx,16
  2214.      ret
  2215.  .set_mouse_button:
  2216. ;     cmp   ecx,5  ; set mouse button features
  2217.      dec   ecx
  2218.      jnz  .end
  2219.      mov   [BTN_DOWN],dl
  2220.      mov   [mouse_active],1
  2221.  .end:
  2222.      ret
  2223.  
  2224. sysfn_getfreemem:
  2225.      mov eax, [pg_data.pages_free]
  2226.      shl eax, 2
  2227.      mov [esp+32],eax
  2228.      ret
  2229.  
  2230. sysfn_getallmem:
  2231.      mov  eax,[MEM_AMOUNT]
  2232.      shr eax, 10
  2233.      mov  [esp+32],eax
  2234.      ret
  2235.  
  2236. ; // Alver, 2007-22-08 // {
  2237. sysfn_pid_to_slot:
  2238.      mov   eax, ecx
  2239.      call  pid_to_slot
  2240.      mov   [esp+32], eax
  2241.      ret
  2242.  
  2243. sysfn_min_rest_window:
  2244.      pushad
  2245.      mov   eax, edx      ; ebx - operating
  2246.      shr   ecx, 1
  2247.      jnc    @f
  2248.      call  pid_to_slot
  2249. @@:
  2250.      or    eax, eax      ; eax - number of slot
  2251.      jz    .error
  2252.      cmp   eax, 255         ; varify maximal slot number
  2253.      ja    .error
  2254.      movzx eax, word [WIN_STACK + eax*2]
  2255.      shr   ecx, 1
  2256.      jc    .restore
  2257.  ; .minimize:
  2258.      call  minimize_window
  2259.      jmp   .exit
  2260. .restore:
  2261.      call  restore_minimized_window
  2262. .exit:
  2263.      popad
  2264.      xor   eax, eax
  2265.      mov   [esp+32], eax
  2266.      ret
  2267. .error:
  2268.      popad
  2269.      xor   eax, eax
  2270.      dec   eax
  2271.      mov   [esp+32], eax
  2272.      ret
  2273. ; } \\ Alver, 2007-22-08 \\
  2274.  
  2275. uglobal
  2276. ;// mike.dld, 2006-29-01 [
  2277. screen_workarea RECT
  2278. ;// mike.dld, 2006-29-01 ]
  2279. window_minimize db 0
  2280. sound_flag      db 0
  2281. endg
  2282.  
  2283. iglobal
  2284. version_inf:
  2285.   db 0,7,5,0  ; version 0.7.5.0
  2286.   db UID_KOLIBRI
  2287.   dd __REV__
  2288. version_end:
  2289. endg
  2290.  
  2291. UID_NONE=0
  2292. UID_MENUETOS=1   ;official
  2293. UID_KOLIBRI=2    ;russian
  2294.  
  2295. sys_cachetodiskette:
  2296.         cmp     ebx, 1
  2297.         jne     .no_floppy_a_save
  2298.         mov     [flp_number], 1
  2299.         jmp     .save_image_on_floppy
  2300. .no_floppy_a_save:
  2301.         cmp     ebx, 2
  2302.         jne     .no_floppy_b_save
  2303.         mov     [flp_number], 2
  2304. .save_image_on_floppy:
  2305.         call    save_image
  2306.         mov     [esp + 32], dword 0
  2307.         cmp     [FDC_Status], 0
  2308.         je      .yes_floppy_save
  2309. .no_floppy_b_save:
  2310.         mov     [esp + 32], dword 1
  2311. .yes_floppy_save:
  2312.         ret
  2313.  
  2314. uglobal
  2315. ;  bgrchanged  dd  0x0
  2316. align 4
  2317. bgrlockpid dd 0
  2318. bgrlock db 0
  2319. endg
  2320.  
  2321. sys_background:
  2322.  
  2323.     cmp   ebx,1                            ; BACKGROUND SIZE
  2324.     jnz   nosb1
  2325.     test  ecx,ecx
  2326. ;    cmp   ecx,0
  2327.     jz    sbgrr
  2328.     test  edx,edx
  2329. ;    cmp   edx,0
  2330.     jz    sbgrr
  2331. @@:
  2332. ;;Maxis use atomic bts for mutexes  4.4.2009
  2333.         bts     dword [bgrlock], 0
  2334.         jnc     @f
  2335.         call    change_task
  2336.         jmp     @b
  2337. @@:
  2338.     mov   [BgrDataWidth],ecx
  2339.     mov   [BgrDataHeight],edx
  2340. ;    mov   [bgrchanged],1
  2341.  
  2342.     pushad
  2343. ; return memory for old background
  2344.         mov     eax, [img_background]
  2345.         cmp     eax, static_background_data
  2346.         jz      @f
  2347.         stdcall kernel_free, eax
  2348. @@:
  2349. ; calculate RAW size
  2350.     xor  eax,eax
  2351.     inc  eax
  2352.     cmp  [BgrDataWidth],eax
  2353.     jae   @f
  2354.     mov [BgrDataWidth],eax
  2355. @@:
  2356.     cmp  [BgrDataHeight],eax
  2357.     jae   @f
  2358.     mov [BgrDataHeight],eax
  2359. @@:
  2360.     mov  eax,[BgrDataWidth]
  2361.     imul eax,[BgrDataHeight]
  2362.     lea  eax,[eax*3]
  2363.     mov  [mem_BACKGROUND],eax
  2364. ; get memory for new background
  2365.     stdcall kernel_alloc, eax
  2366.     test eax, eax
  2367.     jz .memfailed
  2368.     mov [img_background], eax
  2369.     jmp .exit
  2370. .memfailed:
  2371. ; revert to static monotone data
  2372.         mov     [img_background], static_background_data
  2373.         xor     eax, eax
  2374.         inc     eax
  2375.         mov     [BgrDataWidth], eax
  2376.         mov     [BgrDataHeight], eax
  2377.         mov     [mem_BACKGROUND], 4
  2378. .exit:
  2379.     popad
  2380.         mov     [bgrlock], 0
  2381.  
  2382.   sbgrr:
  2383.     ret
  2384.  
  2385. nosb1:
  2386.  
  2387.     cmp   ebx,2                            ; SET PIXEL
  2388.     jnz   nosb2
  2389.  
  2390.     mov   eax, [img_background]
  2391.     test  ecx, ecx
  2392.     jz    @f
  2393.     cmp   eax, static_background_data
  2394.     jz    .ret
  2395. @@:
  2396.     mov ebx, [mem_BACKGROUND]
  2397.     add ebx, 4095
  2398.     and ebx, -4096
  2399.     sub ebx, 4
  2400.     cmp   ecx, ebx
  2401.     ja   .ret
  2402.  
  2403.     mov   ebx,[eax+ecx]
  2404.     and   ebx,0xFF000000 ;255*256*256*256
  2405.     and   edx,0x00FFFFFF ;255*256*256+255*256+255
  2406.     add   edx,ebx
  2407.     mov   [eax+ecx],edx
  2408. .ret:
  2409.     ret
  2410. nosb2:
  2411.  
  2412.     cmp   ebx,3                            ; DRAW BACKGROUND
  2413.     jnz   nosb3
  2414. draw_background_temp:
  2415. ;    cmp   [bgrchanged],1 ;0
  2416. ;    je    nosb31
  2417. ;draw_background_temp:
  2418. ;    mov   [bgrchanged],1 ;0
  2419.     mov    [background_defined], 1
  2420.     call  force_redraw_background
  2421.     mov    [REDRAW_BACKGROUND], byte 2
  2422.    nosb31:
  2423.     ret
  2424.   nosb3:
  2425.  
  2426.     cmp   ebx,4                            ; TILED / STRETCHED
  2427.     jnz   nosb4
  2428.     cmp   ecx,[BgrDrawMode]
  2429.     je    nosb41
  2430.     mov   [BgrDrawMode],ecx
  2431. ;    mov   [bgrchanged],1
  2432.    nosb41:
  2433.     ret
  2434.   nosb4:
  2435.  
  2436.     cmp   ebx,5                            ; BLOCK MOVE TO BGR
  2437.     jnz   nosb5
  2438.     cmp   [img_background], static_background_data
  2439.     jnz   @f
  2440.     test  edx, edx
  2441.     jnz   .fin
  2442.     cmp   esi, 4
  2443.     ja    .fin
  2444.   @@:
  2445.   ; bughere
  2446.     mov   eax, ecx
  2447.     mov   ebx, edx
  2448.     add   ebx, [img_background]   ;IMG_BACKGROUND
  2449.     mov   ecx, esi
  2450.     call  memmove
  2451.   .fin:
  2452.     ret
  2453.   nosb5:
  2454.  
  2455.         cmp     ebx, 6
  2456.         jnz     nosb6
  2457. ;;Maxis use atomic bts for mutex 4.4.2009
  2458. @@:
  2459.         bts     dword [bgrlock], 0
  2460.         jnc     @f
  2461.         call    change_task
  2462.         jmp     @b
  2463. @@:
  2464.         mov     eax, [CURRENT_TASK]
  2465.         mov     [bgrlockpid], eax
  2466.         cmp     [img_background], static_background_data
  2467.         jz      .nomem
  2468.         stdcall user_alloc, [mem_BACKGROUND]
  2469.         mov     [esp+32], eax
  2470.         test    eax, eax
  2471.         jz      .nomem
  2472.         mov     ebx, eax
  2473.         shr     ebx, 12
  2474.         or      dword [page_tabs+(ebx-1)*4], DONT_FREE_BLOCK
  2475.         mov     esi, [img_background]
  2476.         shr     esi, 12
  2477.         mov     ecx, [mem_BACKGROUND]
  2478.         add     ecx, 0xFFF
  2479.         shr     ecx, 12
  2480. .z:
  2481.         mov     eax, [page_tabs+ebx*4]
  2482.         test    al, 1
  2483.         jz      @f
  2484.         call    free_page
  2485. @@:
  2486.         mov     eax, [page_tabs+esi*4]
  2487.         or      al, PG_UW
  2488.         mov     [page_tabs+ebx*4], eax
  2489.         mov     eax, ebx
  2490.         shl     eax, 12
  2491.         invlpg  [eax]
  2492.         inc     ebx
  2493.         inc     esi
  2494.         loop    .z
  2495.         ret
  2496. .nomem:
  2497.         and     [bgrlockpid], 0
  2498.         mov     [bgrlock], 0
  2499. nosb6:
  2500.         cmp     ebx, 7
  2501.         jnz     nosb7
  2502.         cmp     [bgrlock], 0
  2503.         jz      .err
  2504.         mov     eax, [CURRENT_TASK]
  2505.         cmp     [bgrlockpid], eax
  2506.         jnz     .err
  2507.         mov     eax, ecx
  2508.         mov     ebx, ecx
  2509.         shr     eax, 12
  2510.         mov     ecx, [page_tabs+(eax-1)*4]
  2511.         test    cl, USED_BLOCK+DONT_FREE_BLOCK
  2512.         jz      .err
  2513.         jnp     .err
  2514.         push    eax
  2515.         shr     ecx, 12
  2516. @@:
  2517.         and     dword [page_tabs+eax*4], 0
  2518.         mov     edx, eax
  2519.         shl     edx, 12
  2520.         push eax
  2521.         invlpg  [edx]
  2522.         pop eax
  2523.         inc     eax
  2524.         loop    @b
  2525.         pop     eax
  2526.         and     dword [page_tabs+(eax-1)*4], not DONT_FREE_BLOCK
  2527.         stdcall user_free, ebx
  2528.         mov     [esp+32], eax
  2529.         and     [bgrlockpid], 0
  2530.         mov     [bgrlock], 0
  2531.         ret
  2532. .err:
  2533.         and     dword [esp+32], 0
  2534.         ret
  2535.  
  2536. nosb7:
  2537.     ret
  2538.  
  2539. force_redraw_background:
  2540.     mov   [draw_data+32 + RECT.left],dword 0
  2541.     mov   [draw_data+32 + RECT.top],dword 0
  2542.     push  eax ebx
  2543.     mov   eax,[Screen_Max_X]
  2544.     mov   ebx,[Screen_Max_Y]
  2545.     mov   [draw_data+32 + RECT.right],eax
  2546.     mov   [draw_data+32 + RECT.bottom],ebx
  2547.     pop   ebx eax
  2548.     mov   byte [REDRAW_BACKGROUND], 1
  2549.     ret
  2550.  
  2551. align 4
  2552.  
  2553. sys_getbackground:
  2554.  
  2555.     cmp   eax,1                                  ; SIZE
  2556.     jnz   nogb1
  2557.     mov   eax,[BgrDataWidth]
  2558.     shl   eax,16
  2559.     mov   ax,[BgrDataHeight]
  2560.     mov   [esp+36],eax
  2561.     ret
  2562.  
  2563. nogb1:
  2564.  
  2565.     cmp   eax,2                                  ; PIXEL
  2566.     jnz   nogb2
  2567.  
  2568.         mov     eax, [img_background]
  2569.         test    ebx, ebx
  2570.         jz      @f
  2571.         cmp     eax, static_background_data
  2572.         jz      .ret
  2573. @@:
  2574.     mov ecx, [mem_BACKGROUND]
  2575.     add ecx, 4095
  2576.     and ecx, -4096
  2577.     sub ecx, 4
  2578.     cmp ebx, ecx
  2579.     ja  .ret
  2580.  
  2581.     mov   eax,[ebx+eax]
  2582.  
  2583.     and   eax, 0xFFFFFF
  2584.     mov   [esp+36],eax
  2585. .ret:
  2586.     ret
  2587.   nogb2:
  2588.  
  2589.     cmp   eax,4                                  ; TILED / STRETCHED
  2590.     jnz   nogb4
  2591.     mov   eax,[BgrDrawMode]
  2592.   nogb4:
  2593.     mov   [esp+36],eax
  2594.     ret
  2595.  
  2596.  
  2597. align 4
  2598.  
  2599. sys_getkey:
  2600.         mov     [esp + 32],dword 1
  2601.         ; test main buffer
  2602.         mov     ebx, [CURRENT_TASK]                          ; TOP OF WINDOW STACK
  2603.         movzx   ecx, word [WIN_STACK + ebx * 2]
  2604.         mov     edx, [TASK_COUNT]
  2605.         cmp     ecx, edx
  2606.         jne     .finish
  2607.         cmp     [KEY_COUNT], byte 0
  2608.         je      .finish
  2609.         movzx   eax, byte [KEY_BUFF]
  2610.         shl     eax, 8
  2611.         push    eax
  2612.         dec     byte [KEY_COUNT]
  2613.         and     byte [KEY_COUNT], 127
  2614.         movzx   ecx, byte [KEY_COUNT]
  2615.         add     ecx, 2
  2616.         mov     eax, KEY_BUFF + 1
  2617.         mov     ebx, KEY_BUFF
  2618.         call    memmove
  2619.         pop     eax
  2620. .ret_eax:
  2621.         mov     [esp + 32], eax
  2622.         ret
  2623. .finish:
  2624. ; test hotkeys buffer
  2625.         mov     ecx, hotkey_buffer
  2626. @@:
  2627.         cmp     [ecx], ebx
  2628.         jz      .found
  2629.         add     ecx, 8
  2630.         cmp     ecx, hotkey_buffer + 120 * 8
  2631.         jb      @b
  2632.         ret
  2633. .found:
  2634.         mov     ax, [ecx + 6]
  2635.         shl     eax, 16
  2636.         mov     ah, [ecx + 4]
  2637.         mov     al, 2
  2638.         and     dword [ecx + 4], 0
  2639.         and     dword [ecx], 0
  2640.         jmp     .ret_eax
  2641.  
  2642. align 4
  2643.  
  2644. sys_getbutton:
  2645.  
  2646.         mov     ebx, [CURRENT_TASK]                         ; TOP OF WINDOW STACK
  2647.         mov     [esp + 32], dword 1
  2648.         movzx   ecx, word [WIN_STACK + ebx * 2]
  2649.         mov     edx, [TASK_COUNT] ; less than 256 processes
  2650.         cmp     ecx, edx
  2651.         jne     .exit
  2652.         movzx   eax, byte [BTN_COUNT]
  2653.         test    eax, eax
  2654.         jz      .exit
  2655.         mov     eax, [BTN_BUFF]
  2656.         shl     eax, 8
  2657. ; // Alver 22.06.2008 // {
  2658.         mov       al, byte [btn_down_determ]
  2659.         and       al,0xFE                                       ; delete left button bit
  2660. ; } \\ Alver \\
  2661.         mov     [BTN_COUNT], byte 0
  2662.         mov     [esp + 32], eax
  2663. .exit:
  2664.         ret
  2665.  
  2666.  
  2667. align 4
  2668.  
  2669. sys_cpuusage:
  2670.  
  2671. ;  RETURN:
  2672. ;
  2673. ;  +00 dword     process cpu usage
  2674. ;  +04  word     position in windowing stack
  2675. ;  +06  word     windowing stack value at current position (cpu nro)
  2676. ;  +10 12 bytes  name
  2677. ;  +22 dword     start in mem
  2678. ;  +26 dword     used mem
  2679. ;  +30 dword     PID , process idenfification number
  2680. ;
  2681.  
  2682.     cmp  ecx,-1         ; who am I ?
  2683.     jne  .no_who_am_i
  2684.     mov  ecx,[CURRENT_TASK]
  2685.   .no_who_am_i:
  2686.         cmp     ecx, max_processes
  2687.         ja      .nofillbuf
  2688.  
  2689. ; +4: word: position of the window of thread in the window stack
  2690.         mov     ax, [WIN_STACK + ecx * 2]
  2691.         mov     [ebx+4], ax
  2692. ; +6: word: number of the thread slot, which window has in the window stack
  2693. ;           position ecx (has no relation to the specific thread)
  2694.         mov     ax, [WIN_POS + ecx * 2]
  2695.         mov     [ebx+6], ax
  2696.  
  2697.         shl     ecx, 5
  2698.  
  2699. ; +0: dword: memory usage
  2700.         mov     eax, [ecx+CURRENT_TASK+TASKDATA.cpu_usage]
  2701.         mov     [ebx], eax
  2702. ; +10: 11 bytes: name of the process
  2703.         push    ecx
  2704.         lea     eax, [ecx*8+SLOT_BASE+APPDATA.app_name]
  2705.         add     ebx, 10
  2706.         mov     ecx, 11
  2707.         call    memmove
  2708.         pop     ecx
  2709.  
  2710. ; +22: address of the process in memory
  2711. ; +26: size of used memory - 1
  2712.         push    edi
  2713.         lea     edi, [ebx+12]
  2714.         xor     eax, eax
  2715.         mov     edx, 0x100000*16
  2716.         cmp     ecx, 1 shl 5
  2717.         je      .os_mem
  2718.         mov     edx, [SLOT_BASE+ecx*8+APPDATA.mem_size]
  2719.         mov     eax, std_application_base_address
  2720. .os_mem:
  2721.         stosd
  2722.         lea     eax, [edx-1]
  2723.         stosd
  2724.  
  2725. ; +30: PID/TID
  2726.         mov     eax, [ecx+CURRENT_TASK+TASKDATA.pid]
  2727.         stosd
  2728.  
  2729.     ; window position and size
  2730.         push    esi
  2731.         lea     esi, [ecx + window_data + WDATA.box]
  2732.         movsd
  2733.         movsd
  2734.         movsd
  2735.         movsd
  2736.  
  2737.     ; Process state (+50)
  2738.         mov     eax, dword [ecx+CURRENT_TASK+TASKDATA.state]
  2739.         stosd
  2740.  
  2741.     ; Window client area box
  2742.         lea     esi, [ecx*8 + SLOT_BASE + APPDATA.wnd_clientbox]
  2743.         movsd
  2744.         movsd
  2745.         movsd
  2746.         movsd
  2747.  
  2748.     ; Window state
  2749.         mov     al, [ecx+window_data+WDATA.fl_wstate]
  2750.         stosb
  2751.  
  2752.         pop     esi
  2753.         pop     edi
  2754.  
  2755. .nofillbuf:
  2756.     ; return number of processes
  2757.  
  2758.     mov    eax,[TASK_COUNT]
  2759.     mov    [esp+32],eax
  2760.     ret
  2761.  
  2762. align 4
  2763. sys_clock:
  2764.         cli
  2765.   ; Mikhail Lisovin  xx Jan 2005
  2766.   @@:   mov   al, 10
  2767.         out   0x70, al
  2768.         in    al, 0x71
  2769.         test  al, al
  2770.         jns   @f
  2771.         mov   esi, 1
  2772.         call  delay_ms
  2773.         jmp   @b
  2774.   @@:
  2775.   ; end Lisovin's fix
  2776.  
  2777.         xor   al,al           ; seconds
  2778.         out   0x70,al
  2779.         in    al,0x71
  2780.         movzx ecx,al
  2781.         mov   al,02           ; minutes
  2782.         shl   ecx,16
  2783.         out   0x70,al
  2784.         in    al,0x71
  2785.         movzx edx,al
  2786.         mov   al,04           ; hours
  2787.         shl   edx,8
  2788.         out   0x70,al
  2789.         in    al,0x71
  2790.         add   ecx,edx
  2791.         movzx edx,al
  2792.         add   ecx,edx
  2793.         sti
  2794.         mov     [esp + 32], ecx
  2795.         ret
  2796.  
  2797.  
  2798. align 4
  2799.  
  2800. sys_date:
  2801.  
  2802.         cli
  2803.   @@:   mov   al, 10
  2804.         out   0x70, al
  2805.         in    al, 0x71
  2806.         test  al, al
  2807.         jns   @f
  2808.         mov   esi, 1
  2809.         call  delay_ms
  2810.         jmp   @b
  2811.   @@:
  2812.  
  2813.         mov     ch,0
  2814.         mov     al,7            ; date
  2815.         out     0x70,al
  2816.         in      al,0x71
  2817.         mov     cl,al
  2818.         mov     al,8            ; month
  2819.         shl     ecx,16
  2820.         out     0x70,al
  2821.         in      al,0x71
  2822.         mov     ch,al
  2823.         mov     al,9            ; year
  2824.         out     0x70,al
  2825.         in      al,0x71
  2826.         mov     cl,al
  2827.         sti
  2828.         mov     [esp+32], ecx
  2829.         ret
  2830.  
  2831.  
  2832. ; redraw status
  2833.  
  2834. sys_redrawstat:
  2835.         cmp     ebx, 1
  2836.         jne     no_widgets_away
  2837.         ; buttons away
  2838.         mov     ecx,[CURRENT_TASK]
  2839.   sys_newba2:
  2840.         mov     edi,[BTN_ADDR]
  2841.         cmp     [edi], dword 0  ; empty button list ?
  2842.         je      end_of_buttons_away
  2843.         movzx   ebx, word [edi]
  2844.         inc     ebx
  2845.         mov     eax,edi
  2846.   sys_newba:
  2847.         dec     ebx
  2848.         jz      end_of_buttons_away
  2849.  
  2850.         add     eax, 0x10
  2851.         cmp     cx, [eax]
  2852.         jnz     sys_newba
  2853.  
  2854.         push    eax ebx ecx
  2855.         mov     ecx,ebx
  2856.         inc     ecx
  2857.         shl     ecx, 4
  2858.         mov     ebx, eax
  2859.         add     eax, 0x10
  2860.         call    memmove
  2861.         dec     dword [edi]
  2862.         pop     ecx ebx eax
  2863.  
  2864.         jmp     sys_newba2
  2865.  
  2866.   end_of_buttons_away:
  2867.  
  2868.         ret
  2869.  
  2870.   no_widgets_away:
  2871.  
  2872.         cmp     ebx, 2
  2873.         jnz     srl1
  2874.  
  2875.         mov     edx, [TASK_BASE]      ; return whole screen draw area for this app
  2876.         add     edx, draw_data - CURRENT_TASK
  2877.         mov     [edx + RECT.left], 0
  2878.         mov     [edx + RECT.top], 0
  2879.         mov     eax, [Screen_Max_X]
  2880.         mov     [edx + RECT.right], eax
  2881.         mov     eax, [Screen_Max_Y]
  2882.         mov     [edx + RECT.bottom], eax
  2883.  
  2884.         mov     edi, [TASK_BASE]
  2885.         or      [edi - twdw + WDATA.fl_wdrawn], 1   ; no new position & buttons from app
  2886.         call    sys_window_mouse
  2887.         ret
  2888.  
  2889.   srl1:
  2890.         ret
  2891.  
  2892.  
  2893. sys_drawwindow:
  2894.  
  2895.     mov   eax,edx
  2896.     shr   eax,16+8
  2897.     and   eax,15
  2898.