Subversion Repositories Kolibri OS

Rev

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

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