Subversion Repositories Kolibri OS

Rev

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

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