Subversion Repositories Kolibri OS

Rev

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

  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;
  3. ;; Copyright (C) KolibriOS team 2004-2008. All rights reserved.
  4. ;; PROGRAMMING:
  5. ;; Ivan Poddubny
  6. ;; Marat Zakiyanov (Mario79)
  7. ;; VaStaNi
  8. ;; Trans
  9. ;; Mihail Semenyako (mike.dld)
  10. ;; Sergey Kuzmin (Wildwest)
  11. ;; Andrey Halyavin (halyavin)
  12. ;; Mihail Lisovin (Mihasik)
  13. ;; Andrey Ignatiev (andrew_programmer)
  14. ;; NoName
  15. ;; Evgeny Grechnikov (Diamond)
  16. ;; Iliya Mihailov (Ghost)
  17. ;; Sergey Semyonov (Serge)
  18. ;; Johnny_B
  19. ;; SPraid (simba)
  20. ;;
  21. ;; Data in this file was originally part of MenuetOS project which is
  22. ;; distributed under the terms of GNU GPL. It is modified and redistributed as
  23. ;; part of KolibriOS project under the terms of GNU GPL.
  24. ;;
  25. ;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa
  26. ;; PROGRAMMING:
  27. ;;
  28. ;; Ville Mikael Turjanmaa, villemt@itu.jyu.fi
  29. ;; - main os coding/design
  30. ;; Jan-Michael Brummer, BUZZ2@gmx.de
  31. ;; Felix Kaiser, info@felix-kaiser.de
  32. ;; Paolo Minazzi, paolo.minazzi@inwind.it
  33. ;; quickcode@mail.ru
  34. ;; Alexey, kgaz@crosswinds.net
  35. ;; Juan M. Caravaca, bitrider@wanadoo.es
  36. ;; kristol@nic.fi
  37. ;; Mike Hibbett, mikeh@oceanfree.net
  38. ;; Lasse Kuusijarvi, kuusijar@lut.fi
  39. ;; Jarek Pelczar, jarekp3@wp.pl
  40. ;;
  41. ;; KolibriOS is distributed in the hope that it will be useful, but WITHOUT ANY
  42. ;; WARRANTY. No author or distributor accepts responsibility to anyone for the
  43. ;; consequences of using it or for whether it serves any particular purpose or
  44. ;; works at all, unless he says so in writing. Refer to the GNU General Public
  45. ;; License (the "GPL") for full details.
  46. ;
  47. ;; Everyone is granted permission to copy, modify and redistribute KolibriOS,
  48. ;; but only under the conditions described in the GPL. A copy of this license
  49. ;; is supposed to have been given to you along with KolibriOS so you can know
  50. ;; your rights and responsibilities. It should be in a file named COPYING.
  51. ;; Among other things, the copyright notice and this notice must be preserved
  52. ;; on all copies.
  53. ;;
  54. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  55.  
  56. include 'macros.inc'
  57.  
  58. $Revision: 875 $
  59.  
  60.  
  61. USE_COM_IRQ equ 1      ;make irq 3 and irq 4 available for PCI devices
  62.  
  63. include "proc32.inc"
  64. include "kglobals.inc"
  65. include "lang.inc"
  66.  
  67. include "const.inc"
  68. max_processes    equ   255
  69. tss_step         equ   (128+8192) ; tss & i/o - 65535 ports, * 256=557056*4
  70.  
  71.  
  72. os_stack       equ  (os_data_l-gdts)    ; GDTs
  73. os_code        equ  (os_code_l-gdts)
  74. graph_data     equ  (3+graph_data_l-gdts)
  75. tss0           equ  (tss0_l-gdts)
  76. app_code       equ  (3+app_code_l-gdts)
  77. app_data       equ  (3+app_data_l-gdts)
  78. pci_code_sel   equ  (pci_code_32-gdts)
  79. pci_data_sel   equ  (pci_data_32-gdts)
  80.  
  81.  
  82. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  83. ;;
  84. ;;   Included files:
  85. ;;
  86. ;;   Kernel16.inc
  87. ;;    - Booteng.inc   English text for bootup
  88. ;;    - Bootcode.inc  Hardware setup
  89. ;;    - Pci16.inc     PCI functions
  90. ;;
  91. ;;   Kernel32.inc
  92. ;;    - Sys32.inc     Process management
  93. ;;    - Shutdown.inc  Shutdown and restart
  94. ;;    - Fat32.inc     Read / write hd
  95. ;;    - Vesa12.inc    Vesa 1.2 driver
  96. ;;    - Vesa20.inc    Vesa 2.0 driver
  97. ;;    - Vga.inc       VGA driver
  98. ;;    - Stack.inc     Network interface
  99. ;;    - Mouse.inc     Mouse pointer
  100. ;;    - Scincode.inc  Window skinning
  101. ;;    - Pci32.inc     PCI functions
  102. ;;
  103. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  104.  
  105.  
  106. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  107. ;;                                                                      ;;
  108. ;;                  16 BIT ENTRY FROM BOOTSECTOR                        ;;
  109. ;;                                                                      ;;
  110. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  111.  
  112. use16
  113.                   org   0x0
  114.                   jmp   start_of_code
  115.  
  116. version db    'Kolibri OS  version 0.7.1.0      ',13,10,13,10,0
  117.  
  118. include "boot/bootstr.inc"     ; language-independent boot messages
  119. include "boot/preboot.inc"
  120.  
  121. if lang eq en
  122. include "boot/booteng.inc"     ; english system boot messages
  123. else if lang eq ru
  124. include "boot/bootru.inc"      ; russian system boot messages
  125. include "boot/ru.inc"          ; Russian font
  126. else if lang eq et
  127. include "boot/bootet.inc"      ; estonian system boot messages
  128. include "boot/et.inc"          ; Estonian font
  129. else
  130. include "boot/bootge.inc"      ; german system boot messages
  131. end if
  132.  
  133. include "boot/bootcode.inc"    ; 16 bit system boot code
  134. include "bus/pci/pci16.inc"
  135. include "detect/biosdisk.inc"
  136.  
  137. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  138. ;;                                                                      ;;
  139. ;;                  SWITCH TO 32 BIT PROTECTED MODE                     ;;
  140. ;;                                                                      ;;
  141. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  142.  
  143.  
  144. ; CR0 Flags - Protected mode and Paging
  145.  
  146.         mov ecx, CR0_PE
  147.  
  148. ; Enabling 32 bit protected mode
  149.  
  150.         sidt    [cs:old_ints_h]
  151.  
  152.         cli                             ; disable all irqs
  153.         cld
  154.         mov     al,255                  ; mask all irqs
  155.         out     0xa1,al
  156.         out     0x21,al
  157.    l.5: in      al, 0x64                ; Enable A20
  158.         test    al, 2
  159.         jnz     l.5
  160.         mov     al, 0xD1
  161.         out     0x64, al
  162.    l.6: in      al, 0x64
  163.         test    al, 2
  164.         jnz     l.6
  165.         mov     al, 0xDF
  166.         out     0x60, al
  167.    l.7: in      al, 0x64
  168.         test    al, 2
  169.         jnz     l.7
  170.         mov     al, 0xFF
  171.         out     0x64, al
  172.  
  173.         lgdt    [cs:tmp_gdt]            ; Load GDT
  174.         mov     eax, cr0                ; protected mode
  175.         or      eax, ecx
  176.         and     eax, 10011111b *65536*256 + 0xffffff ; caching enabled
  177.         mov     cr0, eax
  178.         jmp     pword os_code:B32       ; jmp to enable 32 bit mode
  179.  
  180. align 8
  181. tmp_gdt:
  182.  
  183.         dw     23
  184.         dd     tmp_gdt+0x10000
  185.         dw     0
  186.  
  187.         dw     0xffff
  188.         dw     0x0000
  189.         db     0x00
  190.         dw     11011111b *256 +10011010b
  191.         db     0x00
  192.  
  193.         dw     0xffff
  194.         dw     0x0000
  195.         db     0x00
  196.         dw     11011111b *256 +10010010b
  197.         db     0x00
  198.  
  199. include "data16.inc"
  200.  
  201. use32
  202. org $+0x10000
  203.  
  204. align 4
  205. B32:
  206.            mov   ax,os_stack       ; Selector for os
  207.            mov   ds,ax
  208.            mov   es,ax
  209.            mov   fs,ax
  210.            mov   gs,ax
  211.            mov   ss,ax
  212.            mov   esp,0x3ec00       ; Set stack
  213.  
  214. ; CLEAR 0x280000 - HEAP_BASE
  215.  
  216.            xor   eax,eax
  217.            mov   edi,0x280000
  218.            mov   ecx,(HEAP_BASE-OS_BASE-0x280000) / 4
  219.            cld
  220.            rep   stosd
  221.  
  222.            mov   edi,0x40000
  223.            mov   ecx,(0x90000-0x40000)/4
  224.            rep   stosd
  225.  
  226. ; CLEAR KERNEL UNDEFINED GLOBALS
  227.            mov   edi, endofcode-OS_BASE
  228.            mov   ecx, (uglobals_size/4)+4
  229.            rep   stosd
  230.  
  231. ; SAVE & CLEAR 0-0xffff
  232.  
  233.            xor esi, esi
  234.            mov   edi,0x2F0000
  235.            mov   ecx,0x10000 / 4
  236.            rep   movsd
  237.            xor edi, edi
  238.            mov   ecx,0x10000 / 4
  239.            rep   stosd
  240.  
  241.            call test_cpu
  242.            bts [cpu_caps-OS_BASE], CAPS_TSC     ;force use rdtsc
  243.  
  244.            call init_BIOS32
  245. ; MEMORY MODEL
  246.            call mem_test
  247.            call init_mem
  248.            call init_page_map
  249.  
  250. ; ENABLE PAGING
  251.  
  252.            mov eax, sys_pgdir-OS_BASE
  253.            mov cr3, eax
  254.  
  255.            mov eax,cr0
  256.            or eax,CR0_PG+CR0_WP
  257.            mov cr0,eax
  258.  
  259.            lgdt [gdts]
  260.            jmp pword os_code:high_code
  261.  
  262. align 4
  263. bios32_entry    dd ?
  264. tmp_page_tabs   dd ?
  265.  
  266. use16
  267. org $-0x10000
  268. include "boot/shutdown.inc" ; shutdown or restart
  269. org $+0x10000
  270. use32
  271.  
  272. __DEBUG__ fix 1
  273. __DEBUG_LEVEL__ fix 1
  274. include 'init.inc'
  275.  
  276. org OS_BASE+$
  277.  
  278. align 4
  279. high_code:
  280.            mov ax,os_stack
  281.            mov bx,app_data
  282.            mov ss,ax
  283.            add  esp, OS_BASE
  284.  
  285.            mov ds,bx
  286.            mov es,bx
  287.            mov fs,bx
  288.            mov gs,bx
  289.  
  290.            bt [cpu_caps], CAPS_PGE
  291.            jnc @F
  292.  
  293.            or dword [sys_pgdir+(OS_BASE shr 20)], PG_GLOBAL
  294.  
  295.            mov ebx, cr4
  296.            or ebx, CR4_PGE
  297.            mov cr4, ebx
  298. @@:
  299.            xor eax, eax
  300.            mov dword [sys_pgdir], eax
  301.            mov dword [sys_pgdir+4], eax
  302.  
  303.            mov eax, cr3
  304.            mov cr3, eax           ; flush TLB
  305.  
  306. ; SAVE REAL MODE VARIABLES
  307.         mov     ax, [BOOT_VAR + 0x9031]
  308.         mov     [IDEContrRegsBaseAddr], ax
  309. ; --------------- APM ---------------------
  310.  
  311. ; init selectors
  312.     mov ebx,    [BOOT_VAR+0x9040]              ; offset of APM entry point
  313.     movzx eax, word [BOOT_VAR+0x9050] ; real-mode segment base address of
  314.                                       ; protected-mode 32-bit code segment
  315.     movzx ecx, word [BOOT_VAR+0x9052] ; real-mode segment base address of
  316.                                       ; protected-mode 16-bit code segment
  317.     movzx edx, word [BOOT_VAR+0x9054] ; real-mode segment base address of
  318.                                       ; protected-mode 16-bit data segment
  319.  
  320.     shl    eax, 4
  321.     mov    [dword apm_code_32 + 2], ax
  322.     shr    eax, 16
  323.     mov    [dword apm_code_32 + 4], al
  324.  
  325.     shl    ecx, 4
  326.     mov    [dword apm_code_16 + 2], cx
  327.     shr    ecx, 16
  328.     mov    [dword apm_code_16 + 4], cl
  329.  
  330.     shl    edx, 4
  331.     mov    [dword apm_data_16 + 2], dx
  332.     shr    edx, 16
  333.     mov    [dword apm_data_16 + 4], dl
  334.  
  335.     mov    dword[apm_entry], ebx
  336.     mov    word [apm_entry + 4], apm_code_32 - gdts
  337.  
  338.     mov    eax, [BOOT_VAR + 0x9044]    ; version & flags
  339.     mov    [apm_vf], eax
  340. ; -----------------------------------------
  341. ;        movzx eax,byte [BOOT_VAR+0x9010]  ; mouse port
  342. ;        mov   [0xF604],byte 1  ;al
  343.         mov     al, [BOOT_VAR+0x901F]   ; DMA access
  344.         mov     [allow_dma_access], al
  345.         mov   al,[BOOT_VAR+0x9000]        ; bpp
  346.         mov   [ScreenBPP],al
  347.  
  348.         movzx eax,word [BOOT_VAR+0x900A]  ; X max
  349.         dec   eax
  350.         mov   [Screen_Max_X],eax
  351.         mov   [screen_workarea.right],eax
  352.         movzx eax,word [BOOT_VAR+0x900C]  ; Y max
  353.         dec   eax
  354.         mov   [Screen_Max_Y],eax
  355.         mov   [screen_workarea.bottom],eax
  356.         movzx eax,word [BOOT_VAR+0x9008]  ; screen mode
  357.         mov   [SCR_MODE],eax
  358.         mov   eax,[BOOT_VAR+0x9014]       ; Vesa 1.2 bnk sw add
  359.         mov   [BANK_SWITCH],eax
  360.         mov   [BytesPerScanLine],word 640*4         ; Bytes PerScanLine
  361.         cmp   [SCR_MODE],word 0x13          ; 320x200
  362.         je    @f
  363.         cmp   [SCR_MODE],word 0x12          ; VGA 640x480
  364.         je    @f
  365.         mov   ax,[BOOT_VAR+0x9001]        ; for other modes
  366.         mov   [BytesPerScanLine],ax
  367. @@:
  368.         mov     esi, BOOT_VAR+0x9080
  369.         movzx   ecx, byte [esi-1]
  370.         mov     [NumBiosDisks], ecx
  371.         mov     edi, BiosDisksData
  372.         rep     movsd
  373.  
  374. ; GRAPHICS ADDRESSES
  375.  
  376.         mov     byte [BOOT_VAR+0x901e],0x0
  377.         mov     eax,[BOOT_VAR+0x9018]
  378.         mov     [LFBAddress],eax
  379.  
  380.         cmp     [SCR_MODE],word 0100000000000000b
  381.         jge     setvesa20
  382.         cmp     [SCR_MODE],word 0x13
  383.         je      v20ga32
  384.         mov     [PUTPIXEL],dword Vesa12_putpixel24  ; Vesa 1.2
  385.         mov     [GETPIXEL],dword Vesa12_getpixel24
  386.         cmp     [ScreenBPP],byte 24
  387.         jz      ga24
  388.         mov     [PUTPIXEL],dword Vesa12_putpixel32
  389.         mov     [GETPIXEL],dword Vesa12_getpixel32
  390.       ga24:
  391.         jmp     v20ga24
  392.       setvesa20:
  393.         mov     [PUTPIXEL],dword Vesa20_putpixel24  ; Vesa 2.0
  394.         mov     [GETPIXEL],dword Vesa20_getpixel24
  395.         cmp     [ScreenBPP],byte 24
  396.         jz      v20ga24
  397.       v20ga32:
  398.         mov     [PUTPIXEL],dword Vesa20_putpixel32
  399.         mov     [GETPIXEL],dword Vesa20_getpixel32
  400.       v20ga24:
  401.         cmp     [SCR_MODE],word 0x12                ; 16 C VGA 640x480
  402.         jne     no_mode_0x12
  403.         mov     [PUTPIXEL],dword VGA_putpixel
  404.         mov     [GETPIXEL],dword Vesa20_getpixel32
  405.       no_mode_0x12:
  406.  
  407. ; -------- Fast System Call init ----------
  408. ; Intel SYSENTER/SYSEXIT (AMD CPU support it too)
  409.            bt [cpu_caps], CAPS_SEP
  410.            jnc .SEnP   ; SysEnter not Present
  411.            xor edx, edx
  412.            mov ecx, MSR_SYSENTER_CS
  413.            mov eax, os_code
  414.            wrmsr
  415.            mov ecx, MSR_SYSENTER_ESP
  416. ;           mov eax, sysenter_stack ; Check it
  417.            xor     eax, eax
  418.            wrmsr
  419.            mov ecx, MSR_SYSENTER_EIP
  420.            mov eax, sysenter_entry
  421.            wrmsr
  422. .SEnP:
  423. ; AMD SYSCALL/SYSRET
  424.            cmp byte[cpu_vendor], 'A'
  425.            jne .noSYSCALL
  426.            mov eax, 0x80000001
  427.            cpuid
  428.            test edx, 0x800  ; bit_11 - SYSCALL/SYSRET support
  429.            jz .noSYSCALL
  430.            mov ecx, MSR_AMD_EFER
  431.            rdmsr
  432.            or eax, 1   ; bit_0 - System Call Extension (SCE)
  433.            wrmsr
  434.  
  435.         ; !!!! It`s dirty hack, fix it !!!
  436.         ; Bits of EDX :
  437.         ; Bit 31–16 During the SYSRET instruction, this field is copied into the CS register
  438.         ;  and the contents of this field, plus 8, are copied into the SS register.
  439.         ; Bit 15–0 During the SYSCALL instruction, this field is copied into the CS register
  440.         ;  and the contents of this field, plus 8, are copied into the SS register.
  441.  
  442.         ; mov   edx, (os_code + 16) * 65536 + os_code
  443.            mov edx, 0x1B0008
  444.  
  445.            mov eax, syscall_entry
  446.            mov ecx, MSR_AMD_STAR
  447.            wrmsr
  448. .noSYSCALL:
  449. ; -----------------------------------------
  450.  
  451. ; LOAD IDT
  452.  
  453.            call build_interrupt_table
  454.            lidt [idtreg]
  455.  
  456.            call init_kernel_heap
  457.            stdcall kernel_alloc, RING0_STACK_SIZE+512
  458.            mov [os_stack_seg], eax
  459.  
  460.            lea esp, [eax+RING0_STACK_SIZE]
  461.  
  462.            mov [tss._ss0], os_stack
  463.            mov [tss._esp0], esp
  464.            mov [tss._esp], esp
  465.            mov [tss._cs],os_code
  466.            mov [tss._ss],os_stack
  467.            mov [tss._ds],app_data
  468.            mov [tss._es],app_data
  469.            mov [tss._fs],app_data
  470.            mov [tss._gs],app_data
  471.            mov [tss._io],128
  472. ;Add IO access table - bit array of permitted ports
  473.            mov edi, tss._io_map_0
  474.            xor eax, eax
  475.            not eax
  476.            mov ecx, 8192/4
  477.            rep stosd                 ; access to 4096*8=65536 ports
  478.  
  479.            mov  ax,tss0
  480.            ltr  ax
  481.  
  482.            mov [LFBSize], 0x800000
  483.            call init_LFB
  484.            call init_fpu
  485.            call init_malloc
  486.  
  487.            stdcall alloc_kernel_space, 0x51000
  488.            mov [default_io_map], eax
  489.  
  490.            add eax, 0x2000
  491.            mov [ipc_tmp], eax
  492.            mov ebx, 0x1000
  493.  
  494.            add eax, 0x40000
  495.            mov [proc_mem_map], eax
  496.  
  497.            add eax, 0x8000
  498.            mov [proc_mem_pdir], eax
  499.  
  500.            add eax, ebx
  501.            mov [proc_mem_tab], eax
  502.  
  503.            add eax, ebx
  504.            mov [tmp_task_pdir], eax
  505.  
  506.            add eax, ebx
  507.            mov [tmp_task_ptab], eax
  508.  
  509.            add eax, ebx
  510.            mov [ipc_pdir], eax
  511.  
  512.            add eax, ebx
  513.            mov [ipc_ptab], eax
  514.  
  515.            stdcall kernel_alloc, (unpack.LZMA_BASE_SIZE+(unpack.LZMA_LIT_SIZE shl \
  516.                                  (unpack.lc+unpack.lp)))*4
  517.  
  518.            mov [unpack.p], eax
  519.  
  520.            call init_events
  521.            mov eax, srv.fd-SRV_FD_OFFSET
  522.            mov [srv.fd], eax
  523.            mov [srv.bk], eax
  524.  
  525.            mov edi, irq_tab
  526.            xor eax, eax
  527.            mov ecx, 16
  528.            rep stosd
  529.  
  530. ;Set base of graphic segment to linear address of LFB
  531.         mov     eax,[LFBAddress]          ; set for gs
  532.         mov     [graph_data_l+2],ax
  533.         shr     eax,16
  534.         mov     [graph_data_l+4],al
  535.         mov     [graph_data_l+7],ah
  536.  
  537.         mov [CURRENT_TASK],dword 1
  538.         mov [TASK_COUNT],dword 1
  539.         mov [TASK_BASE],dword TASK_DATA
  540.         mov [current_slot], SLOT_BASE+256
  541.  
  542. ; set background
  543.         xor  eax,eax
  544.         inc  eax
  545.         mov   [BgrDrawMode],eax
  546.         mov   [BgrDataWidth],eax
  547.         mov   [BgrDataHeight],eax
  548.         mov    [mem_BACKGROUND],4095
  549.         stdcall kernel_alloc, [mem_BACKGROUND]
  550.         mov [img_background], eax
  551.  
  552.         mov     [SLOT_BASE + 256 + APPDATA.dir_table], sys_pgdir - OS_BASE
  553.  
  554. ; REDIRECT ALL IRQ'S TO INT'S 0x20-0x2f
  555.  
  556.         call  rerouteirqs
  557.  
  558. ; Initialize system V86 machine
  559.         call    init_sys_v86
  560.  
  561. ; TIMER SET TO 1/100 S
  562.  
  563.         mov   al,0x34              ; set to 100Hz
  564.         out   0x43,al
  565.         mov   al,0x9b              ; lsb    1193180 / 1193
  566.         out   0x40,al
  567.         mov   al,0x2e              ; msb
  568.         out   0x40,al
  569.  
  570. ; Enable timer IRQ (IRQ0) and hard drives IRQs (IRQ14, IRQ15)
  571. ; they are used: when partitions are scanned, hd_read relies on timer
  572.         mov     al, 0xFE
  573.         out     0x21, al
  574.         mov     al, 0x3F
  575.         out     0xA1, al
  576.  
  577. ;!!!!!!!!!!!!!!!!!!!!!!!!!!
  578. include 'detect/disks.inc'
  579. ;!!!!!!!!!!!!!!!!!!!!!!!!!!
  580.  
  581.   call Parser_params
  582.  
  583. ; READ RAMDISK IMAGE FROM HD
  584.  
  585. ;!!!!!!!!!!!!!!!!!!!!!!!
  586. include 'boot/rdload.inc'
  587. ;!!!!!!!!!!!!!!!!!!!!!!!
  588. ;    mov    [dma_hdd],1
  589. ; CALCULATE FAT CHAIN FOR RAMDISK
  590.  
  591.         call  calculatefatchain
  592.  
  593. ; LOAD VMODE DRIVER
  594.  
  595. ;!!!!!!!!!!!!!!!!!!!!!!!
  596. include 'vmodeld.inc'
  597. ;!!!!!!!!!!!!!!!!!!!!!!!
  598.  
  599.   mov ax,[OS_BASE+0x10000+bx_from_load]
  600.   cmp ax,'r1'           ; if using not ram disk, then load librares and parameters {SPraid.simba}
  601.   je  no_lib_load
  602. ; LOADING LIBRARES
  603.    stdcall dll.Load,@IMPORT                 ; loading librares for kernel (.obj files)
  604.    call load_file_parse_table               ; prepare file parse table
  605.    call set_kernel_conf                     ; configure devices and gui
  606. no_lib_load:
  607.  
  608. ; LOAD FONTS I and II
  609.  
  610.         stdcall read_file, char, FONT_I, 0, 2304
  611.         stdcall read_file, char2, FONT_II, 0, 2560
  612.  
  613.         mov   esi,boot_fonts
  614.         call  boot_log
  615.  
  616. ; PRINT AMOUNT OF MEMORY
  617.         mov     esi, boot_memdetect
  618.         call    boot_log
  619.  
  620.         movzx   ecx, word [boot_y]
  621.         or      ecx, (10+29*6) shl 16 ; "Determining amount of memory"
  622.         sub     ecx, 10
  623.         mov     edx, 0xFFFFFF
  624.         mov     ebx, [MEM_AMOUNT]
  625.         shr     ebx, 20
  626.         mov     edi, 1
  627.         mov     eax, 0x00040000
  628.         call    display_number_force
  629.  
  630. ; BUILD SCHEDULER
  631.  
  632.         call   build_scheduler ; sys32.inc
  633.  
  634.         mov    esi,boot_devices
  635.         call   boot_log
  636.  
  637.         mov  [pci_access_enabled],1
  638.  
  639.  
  640. ; SET PRELIMINARY WINDOW STACK AND POSITIONS
  641.  
  642.         mov   esi,boot_windefs
  643.         call  boot_log
  644.         call  setwindowdefaults
  645.  
  646. ; SET BACKGROUND DEFAULTS
  647.  
  648.         mov   esi,boot_bgr
  649.         call  boot_log
  650.         call  init_background
  651.         call  calculatebackground
  652.  
  653. ; RESERVE SYSTEM IRQ'S JA PORT'S
  654.  
  655.         mov   esi,boot_resirqports
  656.         call  boot_log
  657.         call  reserve_irqs_ports
  658.  
  659. ; SET PORTS FOR IRQ HANDLERS
  660.  
  661.         mov  esi,boot_setrports
  662.         call boot_log
  663.         ;call setirqreadports
  664.  
  665. ; SET UP OS TASK
  666.  
  667.         mov  esi,boot_setostask
  668.         call boot_log
  669.  
  670.         xor  eax, eax
  671.         mov  dword [SLOT_BASE+APPDATA.fpu_state], fpu_data
  672.         mov  dword [SLOT_BASE+APPDATA.fpu_handler], eax
  673.         mov  dword [SLOT_BASE+APPDATA.sse_handler], eax
  674.  
  675.         ; name for OS/IDLE process
  676.  
  677.         mov dword [SLOT_BASE+256+APPDATA.app_name],   dword 'OS/I'
  678.         mov dword [SLOT_BASE+256+APPDATA.app_name+4], dword 'DLE '
  679.         mov edi, [os_stack_seg]
  680.         mov dword [SLOT_BASE+256+APPDATA.pl0_stack], edi
  681.         add edi, 0x2000-512
  682.         mov dword [SLOT_BASE+256+APPDATA.fpu_state], edi
  683.         mov dword [SLOT_BASE+256+APPDATA.saved_esp0], edi ; just for case
  684.         mov dword [SLOT_BASE+256+APPDATA.io_map],\
  685.                   (tss._io_map_0-OS_BASE+PG_MAP)
  686.         mov dword [SLOT_BASE+256+APPDATA.io_map+4],\
  687.                   (tss._io_map_1-OS_BASE+PG_MAP)
  688.  
  689.         mov esi, fpu_data
  690.         mov ecx, 512/4
  691.         cld
  692.         rep movsd
  693.  
  694.         mov dword [SLOT_BASE+256+APPDATA.fpu_handler], eax
  695.         mov dword [SLOT_BASE+256+APPDATA.sse_handler], eax
  696.  
  697.         mov ebx, SLOT_BASE+256+APP_OBJ_OFFSET
  698.         mov  dword [SLOT_BASE+256+APPDATA.fd_obj], ebx
  699.         mov  dword [SLOT_BASE+256+APPDATA.bk_obj], ebx
  700.  
  701.         mov  dword [SLOT_BASE+256+APPDATA.cur_dir], sysdir_path
  702.  
  703.         ; task list
  704.         mov  [CURRENT_TASK],dword 1
  705.         mov  [TASK_COUNT],dword 1
  706.         mov  [current_slot], SLOT_BASE+256
  707.         mov  [TASK_BASE],dword TASK_DATA
  708.         mov  [TASK_DATA+TASKDATA.wnd_number], 1 ; on screen number
  709.         mov  [TASK_DATA+TASKDATA.pid], 1        ; process id number
  710.         mov  [TASK_DATA+TASKDATA.mem_start], 0  ; process base address
  711.  
  712.         call init_cursors
  713.         mov eax, [def_cursor]
  714.         mov [SLOT_BASE+APPDATA.cursor],eax
  715.         mov [SLOT_BASE+APPDATA.cursor+256],eax
  716.  
  717.   ; READ TSC / SECOND
  718.  
  719.         mov   esi,boot_tsc
  720.         call  boot_log
  721.         cli
  722.         call  _rdtsc
  723.         mov   ecx,eax
  724.         mov   esi,250               ; wait 1/4 a second
  725.         call  delay_ms
  726.         call  _rdtsc
  727.         sti
  728.         sub   eax,ecx
  729.         shl   eax,2
  730.         mov   [CPU_FREQ],eax          ; save tsc / sec
  731.         mov ebx, 1000000
  732.         div ebx
  733.         mov [stall_mcs], eax
  734.  
  735. ; SET VARIABLES
  736.  
  737.         call  set_variables
  738.  
  739. ; SET MOUSE
  740.  
  741.         ;call   detect_devices
  742.         stdcall load_driver, szPS2MDriver
  743.         stdcall load_driver, szCOM_MDriver
  744.  
  745.         mov   esi,boot_setmouse
  746.         call  boot_log
  747.         call  setmouse
  748.  
  749.  
  750. ; STACK AND FDC
  751.  
  752.         call  stack_init
  753.         call  fdc_init
  754.  
  755. ; PALETTE FOR 320x200 and 640x480 16 col
  756.  
  757.         cmp   [SCR_MODE],word 0x12
  758.         jne   no_pal_vga
  759.         mov   esi,boot_pal_vga
  760.         call  boot_log
  761.         call  paletteVGA
  762.       no_pal_vga:
  763.  
  764.         cmp   [SCR_MODE],word 0x13
  765.         jne   no_pal_ega
  766.         mov   esi,boot_pal_ega
  767.         call  boot_log
  768.         call  palette320x200
  769.       no_pal_ega:
  770.  
  771. ; LOAD DEFAULT SKIN
  772.  
  773.         call    load_default_skin
  774.  
  775. ;protect io permission map
  776.  
  777.            mov esi, [default_io_map]
  778.            stdcall map_page,esi,(tss._io_map_0-OS_BASE), PG_MAP
  779.            add esi, 0x1000
  780.            stdcall map_page,esi,(tss._io_map_1-OS_BASE), PG_MAP
  781.  
  782.            stdcall map_page,tss._io_map_0,\
  783.                    (tss._io_map_0-OS_BASE), PG_MAP
  784.            stdcall map_page,tss._io_map_1,\
  785.                    (tss._io_map_1-OS_BASE), PG_MAP
  786.  
  787.   mov ax,[OS_BASE+0x10000+bx_from_load]
  788.   cmp ax,'r1'           ; if not rused ram disk - load network configuration from files {SPraid.simba}
  789.   je  no_st_network
  790.         call set_network_conf
  791.   no_st_network:
  792.  
  793. ; LOAD FIRST APPLICATION
  794.         cli
  795.  
  796.         cmp   byte [BOOT_VAR+0x9030],1
  797.         jne   no_load_vrr_m
  798.  
  799.         mov     ebp, vrr_m
  800.         call    fs_execute_from_sysdir
  801.  
  802.         cmp   eax,2                  ; if vrr_m app found (PID=2)
  803.         je    first_app_found
  804.  
  805. no_load_vrr_m:
  806.  
  807.         mov     ebp, firstapp
  808.         call    fs_execute_from_sysdir
  809.  
  810.         cmp   eax,2                  ; continue if a process has been loaded
  811.         je    first_app_found
  812.  
  813.         mov     esi, boot_failed
  814.         call    boot_log
  815.  
  816.         mov   eax, 0xDEADBEEF        ; otherwise halt
  817.         hlt
  818.  
  819. first_app_found:
  820.  
  821.         cli
  822.  
  823.         ;mov   [TASK_COUNT],dword 2
  824.         mov   [CURRENT_TASK],dword 1       ; set OS task fisrt
  825.  
  826. ; SET KEYBOARD PARAMETERS
  827.         mov   al, 0xf6         ; reset keyboard, scan enabled
  828.         call  kb_write
  829.  
  830.         ; wait until 8042 is ready
  831.         xor ecx,ecx
  832.       @@:
  833.         in     al,64h
  834.         and    al,00000010b
  835.         loopnz @b
  836.  
  837.        ; mov   al, 0xED       ; svetodiody - only for testing!
  838.        ; call  kb_write
  839.        ; call  kb_read
  840.        ; mov   al, 111b
  841.        ; call  kb_write
  842.        ; call  kb_read
  843.  
  844.         mov   al, 0xF3       ; set repeat rate & delay
  845.         call  kb_write
  846. ;        call  kb_read
  847.         mov   al, 0 ; 30 250 ;00100010b ; 24 500  ;00100100b  ; 20 500
  848.         call  kb_write
  849. ;        call  kb_read
  850.      ;// mike.dld [
  851.         call  set_lights
  852.      ;// mike.dld ]
  853.  
  854. ; START MULTITASKING
  855.  
  856. if preboot_blogesc
  857.         mov     esi, boot_tasking
  858.         call    boot_log
  859. .bll1:  in      al, 0x60        ; wait for ESC key press
  860.         cmp     al, 129
  861.         jne     .bll1
  862. end if
  863.  
  864. ;       mov   [ENABLE_TASKSWITCH],byte 1        ; multitasking enabled
  865.  
  866. ; UNMASK ALL IRQ'S
  867.  
  868.         mov   esi,boot_allirqs
  869.         call  boot_log
  870.  
  871.         cli                          ;guarantee forbidance of interrupts.
  872.         mov   al,0                   ; unmask all irq's
  873.         out   0xA1,al
  874.         out   0x21,al
  875.  
  876.         mov   ecx,32
  877.  
  878.      ready_for_irqs:
  879.  
  880.         mov   al,0x20                ; ready for irqs
  881.         out   0x20,al
  882.         out   0xa0,al
  883.  
  884.         loop  ready_for_irqs         ; flush the queue
  885.  
  886.         stdcall attach_int_handler, dword 1, irq1, dword 0
  887.  
  888. ;        mov    [dma_hdd],1
  889.         cmp     [IDEContrRegsBaseAddr], 0
  890.         setnz   [dma_hdd]
  891.         mov [timer_ticks_enable],1              ; for cd driver
  892.  
  893. ;        stdcall init_uart_service, DRV_ENTRY
  894.  
  895.         sti
  896.         call change_task
  897.  
  898.         jmp osloop
  899.  
  900. ;        jmp   $                      ; wait here for timer to take control
  901.  
  902.         ; Fly :)
  903.  
  904. include 'unpacker.inc'
  905. include 'fdo.inc'
  906.  
  907. align 4
  908. boot_log:
  909.          pushad
  910.  
  911.          mov   ebx,10*65536
  912.          mov   bx,word [boot_y]
  913.          add   [boot_y],dword 10
  914.          mov   ecx,0x80ffffff   ; ASCIIZ string with white color
  915.          mov   edx,esi
  916.          mov   edi,1
  917.          call  dtext
  918.  
  919.          mov   [novesachecksum],1000
  920.          call  checkVga_N13
  921.  
  922.          popad
  923.  
  924.          ret
  925.  
  926.  
  927. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  928. ;                                                                    ;
  929. ;                    MAIN OS LOOP START                              ;
  930. ;                                                                    ;
  931. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  932. align 32
  933. osloop:
  934.         call   [draw_pointer]
  935.         call   checkbuttons
  936.         call   checkwindows
  937. ;       call   check_window_move_request
  938.         call   checkmisc
  939.         call   checkVga_N13
  940.         call   stack_handler
  941.         call   checkidle
  942.         call   check_fdd_motor_status
  943.         call   check_ATAPI_device_event
  944.         jmp    osloop
  945. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  946. ;                                                                    ;
  947. ;                      MAIN OS LOOP END                              ;
  948. ;                                                                    ;
  949. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  950.  
  951. checkidle:
  952.         pushad
  953.  
  954.         cmp  [check_idle_semaphore],0
  955.         jne  no_idle_state
  956.  
  957.         call change_task
  958.         mov  eax,[idlemem]
  959.         mov  ebx,[timer_ticks] ;[0xfdf0]
  960.         cmp  eax,ebx
  961.         jnz  idle_exit
  962.         call _rdtsc
  963.         mov  ecx,eax
  964.       idle_loop:
  965.         hlt
  966.         cmp  [check_idle_semaphore],0
  967.         jne  idle_loop_exit
  968.         mov  eax,[timer_ticks] ;[0xfdf0]
  969.         cmp  ebx,eax
  970.         jz   idle_loop
  971.       idle_loop_exit:
  972.         mov  [idlemem],eax
  973.         call _rdtsc
  974.         sub  eax,ecx
  975.         mov  ebx,[idleuse]
  976.         add  ebx,eax
  977.         mov  [idleuse],ebx
  978.  
  979.         popad
  980.         ret
  981.  
  982.       idle_exit:
  983.  
  984.         mov  ebx,[timer_ticks] ;[0xfdf0]
  985.         mov  [idlemem],ebx
  986.         call change_task
  987.  
  988.         popad
  989.         ret
  990.  
  991.       no_idle_state:
  992.  
  993.         dec  [check_idle_semaphore]
  994.  
  995.         mov  ebx,[timer_ticks] ;[0xfdf0]
  996.         mov  [idlemem],ebx
  997.         call change_task
  998.  
  999.         popad
  1000.         ret
  1001.  
  1002. uglobal
  1003.   idlemem               dd   0x0
  1004.   idleuse               dd   0x0
  1005.   idleusesec            dd   0x0
  1006.   check_idle_semaphore  dd   0x0
  1007. endg
  1008.  
  1009.  
  1010.  
  1011. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1012. ;                                                                      ;
  1013. ;                   INCLUDED SYSTEM FILES                              ;
  1014. ;                                                                      ;
  1015. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1016.  
  1017.  
  1018. include "kernel32.inc"
  1019.  
  1020.  
  1021. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1022. ;                                                                      ;
  1023. ;                       KERNEL FUNCTIONS                               ;
  1024. ;                                                                      ;
  1025. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1026.  
  1027. reserve_irqs_ports:
  1028.  
  1029.         pushad
  1030.  
  1031.         mov  [irq_owner+4*0], 1    ; timer
  1032.         ;mov  [irq_owner+4*1], 1    ; keyboard
  1033.         mov  [irq_owner+4*6], 1    ; floppy diskette
  1034.         mov  [irq_owner+4*13], 1   ; math co-pros
  1035.         mov  [irq_owner+4*14], 1   ; ide I
  1036.         mov  [irq_owner+4*15], 1   ; ide II
  1037.  
  1038.         ; RESERVE PORTS
  1039.         mov   edi,1                    ; 0x00-0x2d
  1040.         mov   [RESERVED_PORTS],edi
  1041.         shl   edi,4
  1042.         mov   [RESERVED_PORTS+edi+0],dword 1
  1043.         mov   [RESERVED_PORTS+edi+4],dword 0x0
  1044.         mov   [RESERVED_PORTS+edi+8],dword 0x2d
  1045.  
  1046.         inc   dword [RESERVED_PORTS]          ; 0x30-0x4d
  1047.         mov   edi,[RESERVED_PORTS]
  1048.         shl   edi,4
  1049.         mov   [RESERVED_PORTS+edi+0],dword 1
  1050.         mov   [RESERVED_PORTS+edi+4],dword 0x30
  1051.         mov   [RESERVED_PORTS+edi+8],dword 0x4d
  1052.  
  1053.         inc   dword [RESERVED_PORTS]          ; 0x50-0xdf
  1054.         mov   edi,[RESERVED_PORTS]
  1055.         shl   edi,4
  1056.         mov   [RESERVED_PORTS+edi+0],dword 1
  1057.         mov   [RESERVED_PORTS+edi+4],dword 0x50
  1058.         mov   [RESERVED_PORTS+edi+8],dword 0xdf
  1059.  
  1060.         inc   dword [RESERVED_PORTS]          ; 0xe5-0xff
  1061.         mov   edi,[RESERVED_PORTS]
  1062.         shl   edi,4
  1063.         mov   [RESERVED_PORTS+edi+0],dword 1
  1064.         mov   [RESERVED_PORTS+edi+4],dword 0xe5
  1065.         mov   [RESERVED_PORTS+edi+8],dword 0xff
  1066.  
  1067.         popad
  1068.         ret
  1069.  
  1070. setirqreadports:
  1071.  
  1072.         mov   [irq12read+0],dword 0x60 + 0x01000000  ; read port 0x60 , byte
  1073.         mov   [irq12read+4],dword 0                  ; end of port list
  1074.         ;mov   [irq04read+0],dword 0x3f8 + 0x01000000 ; read port 0x3f8 , byte
  1075.         ;mov   [irq04read+4],dword 0                  ; end of port list
  1076.         ;mov   [irq03read+0],dword 0x2f8 + 0x01000000 ; read port 0x2f8 , byte
  1077.         ;mov   [irq03read+4],dword 0                  ; end of port list
  1078.  
  1079.         ret
  1080.  
  1081. iglobal
  1082.   process_number dd 0x1
  1083. endg
  1084.  
  1085. set_variables:
  1086.  
  1087.         mov   ecx,0x100                       ; flush port 0x60
  1088. .fl60:  in    al,0x60
  1089.         loop  .fl60
  1090.         mov   [MOUSE_BUFF_COUNT],byte 0                 ; mouse buffer
  1091.         mov   [KEY_COUNT],byte 0                 ; keyboard buffer
  1092.         mov   [BTN_COUNT],byte 0                 ; button buffer
  1093. ;        mov   [MOUSE_X],dword 100*65536+100    ; mouse x/y
  1094.  
  1095.         push  eax
  1096.         mov   ax,[BOOT_VAR+0x900c]
  1097.         shr   ax,1
  1098.         shl   eax,16
  1099.         mov   ax,[BOOT_VAR+0x900A]
  1100.         shr   ax,1
  1101.         mov   [MOUSE_X],eax
  1102.         pop   eax
  1103.  
  1104.         mov   [BTN_ADDR],dword BUTTON_INFO    ; address of button list
  1105.  
  1106.      ;!! IP 04.02.2005:
  1107.         mov   [next_usage_update], 100
  1108.         mov   byte [DONT_SWITCH], 0 ; change task if possible
  1109.  
  1110.         ret
  1111.  
  1112. ;* mouse centered - start code- Mario79
  1113. mouse_centered:
  1114.         push  eax
  1115.         mov   eax,[Screen_Max_X]
  1116.         shr   eax,1
  1117.         mov   [MOUSE_X],ax
  1118.         mov   eax,[Screen_Max_Y]
  1119.         shr   eax,1
  1120.         mov   [MOUSE_Y],ax
  1121.         pop   eax
  1122.         ret
  1123. ;* mouse centered - end code- Mario79
  1124.  
  1125. align 4
  1126.  
  1127. sys_outport:
  1128.  
  1129.     mov   edi,ebx          ; separate flag for read / write
  1130.     and   ebx,65535
  1131.  
  1132.     mov   ecx,[RESERVED_PORTS]
  1133.     test  ecx,ecx
  1134.     jne   sopl8
  1135.     mov   [esp+36],dword 1
  1136.     ret
  1137.  
  1138.   sopl8:
  1139.     mov   edx,[TASK_BASE]
  1140.     mov   edx,[edx+0x4]
  1141.     and   ebx,65535
  1142.     cld
  1143.   sopl1:
  1144.  
  1145.     mov   esi,ecx
  1146.     shl   esi,4
  1147.     add   esi,RESERVED_PORTS
  1148.     cmp   edx,[esi+0]
  1149.     jne   sopl2
  1150.     cmp   ebx,[esi+4]
  1151.     jb    sopl2
  1152.     cmp   ebx,[esi+8]
  1153.     jg    sopl2
  1154.     jmp   sopl3
  1155.  
  1156.   sopl2:
  1157.  
  1158.     dec   ecx
  1159.     jnz   sopl1
  1160.     mov   [esp+36],dword 1
  1161.     ret
  1162.  
  1163.   sopl3:
  1164.  
  1165.     test  edi,0x80000000 ; read ?
  1166.     jnz   sopl4
  1167.  
  1168.     mov   dx,bx          ; write
  1169.     out   dx,al
  1170.     mov   [esp+36],dword 0
  1171.     ret
  1172.  
  1173.   sopl4:
  1174.  
  1175.     mov   dx,bx          ; read
  1176.     in    al,dx
  1177.     and   eax,0xff
  1178.     mov   [esp+36],dword 0
  1179.     mov   [esp+24],eax
  1180.     ret
  1181.  
  1182. display_number:
  1183.  
  1184. ; eax = print type, al=0 -> ebx is number
  1185. ;                   al=1 -> ebx is pointer
  1186. ;                   ah=0 -> display decimal
  1187. ;                   ah=1 -> display hexadecimal
  1188. ;                   ah=2 -> display binary
  1189. ;                   eax bits 16-21 = number of digits to display (0-32)
  1190. ;                   eax bits 22-31 = reserved
  1191. ;
  1192. ; ebx = number or pointer
  1193. ; ecx = x shl 16 + y
  1194. ; edx = color
  1195.         xor     edi, edi
  1196. display_number_force:
  1197.      push  eax
  1198.      and   eax,0x3fffffff
  1199.      cmp   eax,0xffff            ; length > 0 ?
  1200.      pop   eax
  1201.      jge   cont_displ
  1202.      ret
  1203.    cont_displ:
  1204.      push  eax
  1205.      and   eax,0x3fffffff
  1206.      cmp   eax,61*0x10000        ; length <= 60 ?
  1207.      pop   eax
  1208.      jb    cont_displ2
  1209.      ret
  1210.    cont_displ2:
  1211.  
  1212.      pushad
  1213.  
  1214.      cmp   al,1                  ; ecx is a pointer ?
  1215.      jne   displnl1
  1216.      mov   ebp,ebx
  1217.      add   ebp,4
  1218.      mov   ebp,[ebp+std_application_base_address]
  1219.      mov   ebx,[ebx+std_application_base_address]
  1220.    displnl1:
  1221.      sub   esp,64
  1222.  
  1223.      cmp   ah,0                  ; DECIMAL
  1224.      jne   no_display_desnum
  1225.      shr   eax,16
  1226.      and   eax,0xC03f
  1227. ;     and   eax,0x3f
  1228.      push  eax
  1229.      and   eax,0x3f
  1230.      mov   edi,esp
  1231.      add   edi,4+64-1
  1232.      mov   ecx,eax
  1233.      mov   eax,ebx
  1234.      mov   ebx,10
  1235.    d_desnum:
  1236.      xor   edx,edx
  1237.      call  division_64_bits
  1238.      div   ebx
  1239.      add   dl,48
  1240.      mov   [edi],dl
  1241.      dec   edi
  1242.      loop  d_desnum
  1243.      pop   eax
  1244.      call  normalize_number
  1245.      call  draw_num_text
  1246.      add   esp,64
  1247.      popad
  1248.      ret
  1249.    no_display_desnum:
  1250.  
  1251.      cmp   ah,0x01               ; HEXADECIMAL
  1252.      jne   no_display_hexnum
  1253.      shr   eax,16
  1254.      and   eax,0xC03f
  1255. ;     and   eax,0x3f
  1256.      push  eax
  1257.      and   eax,0x3f
  1258.      mov   edi,esp
  1259.      add   edi,4+64-1
  1260.      mov   ecx,eax
  1261.      mov   eax,ebx
  1262.      mov   ebx,16
  1263.    d_hexnum:
  1264.      xor   edx,edx
  1265.      call  division_64_bits
  1266.      div   ebx
  1267.      add   edx,hexletters
  1268.      mov   dl,[edx]
  1269.      mov   [edi],dl
  1270.      dec   edi
  1271.      loop  d_hexnum
  1272.      pop   eax
  1273.      call  normalize_number
  1274.      call  draw_num_text
  1275.      add   esp,64
  1276.      popad
  1277.      ret
  1278.    no_display_hexnum:
  1279.  
  1280.      cmp   ah,0x02               ; BINARY
  1281.      jne   no_display_binnum
  1282.      shr   eax,16
  1283.      and   eax,0xC03f
  1284. ;     and   eax,0x3f
  1285.      push  eax
  1286.      and   eax,0x3f
  1287.      mov   edi,esp
  1288.      add   edi,4+64-1
  1289.      mov   ecx,eax
  1290.      mov   eax,ebx
  1291.      mov   ebx,2
  1292.    d_binnum:
  1293.      xor   edx,edx
  1294.      call  division_64_bits
  1295.      div   ebx
  1296.      add   dl,48
  1297.      mov   [edi],dl
  1298.      dec   edi
  1299.      loop  d_binnum
  1300.      pop   eax
  1301.      call  normalize_number
  1302.      call  draw_num_text
  1303.      add   esp,64
  1304.      popad
  1305.      ret
  1306.    no_display_binnum:
  1307.  
  1308.      add   esp,64
  1309.      popad
  1310.      ret
  1311.  
  1312. normalize_number:
  1313.      test  ah,0x80
  1314.      jz   .continue
  1315.      mov  ecx,48
  1316.      and   eax,0x3f
  1317. @@:
  1318.      inc   edi
  1319.      cmp   [edi],cl
  1320.      jne   .continue
  1321.      dec   eax
  1322.      cmp   eax,1
  1323.      ja    @r
  1324.      mov   al,1
  1325. .continue:
  1326.      and   eax,0x3f
  1327.      ret
  1328.  
  1329. division_64_bits:
  1330.      test  [esp+1+4],byte 0x40
  1331.      jz   .continue
  1332.      push  eax
  1333.      mov   eax,ebp
  1334.      div   ebx
  1335.      mov   ebp,eax
  1336.      pop   eax
  1337. .continue:
  1338.      ret
  1339.  
  1340. draw_num_text:
  1341.      mov   esi,eax
  1342.      mov   edx,64+4
  1343.      sub   edx,eax
  1344.      add   edx,esp
  1345.      mov   ebx,[esp+64+32-8+4]
  1346. ; add window start x & y
  1347.      mov   ecx,[TASK_BASE]
  1348.  
  1349.      mov   edi,[CURRENT_TASK]
  1350.      shl   edi,8
  1351.  
  1352.      mov   eax,[ecx-twdw+WDATA.box.left]
  1353.      add   eax,[edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
  1354.      shl   eax,16
  1355.      add   eax,[ecx-twdw+WDATA.box.top]
  1356.      add   eax,[edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
  1357.      add   ebx,eax
  1358.      mov   ecx,[esp+64+32-12+4]
  1359.         and     ecx, not 0x80000000     ; force counted string
  1360.         mov     eax, [esp+64+8]         ; background color (if given)
  1361.         mov     edi, [esp+64+4]
  1362.      jmp   dtext
  1363.  
  1364. align 4
  1365.  
  1366. sys_setup:
  1367.  
  1368. ; 1=roland mpu midi base , base io address
  1369. ; 2=keyboard   1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
  1370. ; 3=cd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
  1371. ; 5=system language, 1eng 2fi 3ger 4rus
  1372. ; 7=hd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
  1373. ; 8=fat32 partition in hd
  1374. ; 9
  1375. ; 10 = sound dma channel
  1376. ; 11 = enable lba read
  1377. ; 12 = enable pci access
  1378.  
  1379.  
  1380.      mov  [esp+36],dword 0
  1381.      cmp  eax,1                      ; MIDI
  1382.      jnz  nsyse1
  1383.      cmp  ebx,0x100
  1384.      jb   nsyse1
  1385.      mov  edx,65535
  1386.      cmp  edx,ebx
  1387.      jb   nsyse1
  1388.      mov  [midi_base],bx
  1389.      mov  word [mididp],bx
  1390.      inc  bx
  1391.      mov  word [midisp],bx
  1392.      ret
  1393.  
  1394. iglobal
  1395. midi_base dw 0
  1396. endg
  1397.  
  1398.    nsyse1:
  1399.  
  1400.      cmp  eax,2                      ; KEYBOARD
  1401.      jnz  nsyse2
  1402.      cmp  ebx,1
  1403.      jnz  kbnobase
  1404.      mov  edi,[TASK_BASE]
  1405.      add  ecx,[edi+TASKDATA.mem_start]
  1406.      mov  eax,ecx
  1407.      mov  ebx,keymap
  1408.      mov  ecx,128
  1409.      call memmove
  1410.      ret
  1411.    kbnobase:
  1412.      cmp  ebx,2
  1413.      jnz  kbnoshift
  1414.      mov  edi,[TASK_BASE]
  1415.      add  ecx,[edi+TASKDATA.mem_start]
  1416.      mov  eax,ecx
  1417.      mov  ebx,keymap_shift
  1418.      mov  ecx,128
  1419.      call memmove
  1420.      ret
  1421.    kbnoshift:
  1422.      cmp  ebx,3
  1423.      jne  kbnoalt
  1424.      mov  edi,[TASK_BASE]
  1425.      add  ecx,[edi+TASKDATA.mem_start]
  1426.      mov  eax,ecx
  1427.      mov  ebx,keymap_alt
  1428.      mov  ecx,128
  1429.      call memmove
  1430.      ret
  1431.    kbnoalt:
  1432.      cmp  ebx,9
  1433.      jnz  kbnocountry
  1434.      mov  word [keyboard],cx
  1435.      ret
  1436.    kbnocountry:
  1437.      mov  [esp+36],dword 1
  1438.      ret
  1439.    nsyse2:
  1440.      cmp  eax,3                      ; CD
  1441.      jnz  nsyse4
  1442.      test ebx,ebx
  1443.      jz   nosesl
  1444.      cmp  ebx, 4
  1445.      ja   nosesl
  1446.      mov  [cd_base],bl
  1447.      cmp  ebx,1
  1448.      jnz  noprma
  1449.      mov  [cdbase],0x1f0
  1450.      mov  [cdid],0xa0
  1451.    noprma:
  1452.      cmp  ebx,2
  1453.      jnz  noprsl
  1454.      mov  [cdbase],0x1f0
  1455.      mov  [cdid],0xb0
  1456.    noprsl:
  1457.      cmp  ebx,3
  1458.      jnz  nosema
  1459.      mov  [cdbase],0x170
  1460.      mov  [cdid],0xa0
  1461.    nosema:
  1462.      cmp  ebx,4
  1463.      jnz  nosesl
  1464.      mov  [cdbase],0x170
  1465.      mov  [cdid],0xb0
  1466.    nosesl:
  1467.      ret
  1468.  
  1469. cd_base db 0
  1470.  
  1471.    nsyse4:
  1472.  
  1473.      cmp  eax,5                      ; SYSTEM LANGUAGE
  1474.      jnz  nsyse5
  1475.      mov  [syslang],ebx
  1476.      ret
  1477.    nsyse5:
  1478.  
  1479.      cmp  eax,7                      ; HD BASE
  1480.      jne  nsyse7
  1481.      test ebx,ebx
  1482.      jz   nosethd
  1483.      cmp  ebx,4
  1484.      ja   nosethd
  1485.      mov  [hd_base],bl
  1486.      cmp  ebx,1
  1487.      jnz  noprmahd
  1488.      mov  [hdbase],0x1f0
  1489.      mov  [hdid],0x0
  1490.      mov  [hdpos],1
  1491. ;     call set_FAT32_variables
  1492.    noprmahd:
  1493.      cmp  ebx,2
  1494.      jnz  noprslhd
  1495.      mov  [hdbase],0x1f0
  1496.      mov  [hdid],0x10
  1497.      mov  [hdpos],2
  1498. ;     call set_FAT32_variables
  1499.    noprslhd:
  1500.      cmp  ebx,3
  1501.      jnz  nosemahd
  1502.      mov  [hdbase],0x170
  1503.      mov  [hdid],0x0
  1504.      mov  [hdpos],3
  1505. ;     call set_FAT32_variables
  1506.    nosemahd:
  1507.      cmp  ebx,4
  1508.      jnz  noseslhd
  1509.      mov  [hdbase],0x170
  1510.      mov  [hdid],0x10
  1511.      mov  [hdpos],4
  1512. ;     call set_FAT32_variables
  1513.    noseslhd:
  1514.     call  reserve_hd1
  1515.     call  reserve_hd_channel
  1516.     call  free_hd_channel
  1517.     mov   [hd1_status],0        ; free
  1518.    nosethd:
  1519.      ret
  1520.  
  1521. iglobal
  1522. hd_base db 0
  1523. endg
  1524.  
  1525. nsyse7:
  1526.  
  1527.      cmp  eax,8                      ; HD PARTITION
  1528.      jne  nsyse8
  1529.      mov  [fat32part],ebx
  1530. ;     call set_FAT32_variables
  1531.     call  reserve_hd1
  1532.     call  reserve_hd_channel
  1533.     call  free_hd_channel
  1534.      pusha
  1535.      call  choice_necessity_partition_1
  1536.      popa
  1537.     mov   [hd1_status],0        ; free
  1538.      ret
  1539.  
  1540. nsyse8:
  1541.      cmp  eax,11                     ; ENABLE LBA READ
  1542.      jne  no_set_lba_read
  1543.      and  ebx,1
  1544.      mov  [lba_read_enabled],ebx
  1545.      ret
  1546.  
  1547. no_set_lba_read:
  1548.      cmp  eax,12                     ; ENABLE PCI ACCESS
  1549.      jne  no_set_pci_access
  1550.      and  ebx,1
  1551.      mov  [pci_access_enabled],ebx
  1552.      ret
  1553.    no_set_pci_access:
  1554.  
  1555. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1556. include 'vmodeint.inc'
  1557. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1558.  
  1559. sys_setup_err:
  1560.      mov  [esp+36],dword -1
  1561.      ret
  1562.  
  1563. align 4
  1564.  
  1565. sys_getsetup:
  1566.  
  1567. ; 1=roland mpu midi base , base io address
  1568. ; 2=keyboard   1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
  1569. ; 3=cd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
  1570. ; 5=system language, 1eng 2fi 3ger 4rus
  1571. ; 7=hd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
  1572. ; 8=fat32 partition in hd
  1573. ; 9=get hs timer tic
  1574.  
  1575.      cmp  eax,1
  1576.      jne  ngsyse1
  1577.      movzx eax,[midi_base]
  1578.      mov  [esp+36],eax
  1579.      ret
  1580. ngsyse1:
  1581.  
  1582.      cmp  eax,2
  1583.      jne  ngsyse2
  1584.      cmp  ebx,1
  1585.      jnz  kbnobaseret
  1586.      mov  edi,[TASK_BASE]
  1587.      add  ecx,[edi+TASKDATA.mem_start]
  1588.      mov  ebx,ecx
  1589.      mov  eax,keymap
  1590.      mov  ecx,128
  1591.      call memmove
  1592.      ret
  1593. kbnobaseret:
  1594.      cmp  ebx,2
  1595.      jnz  kbnoshiftret
  1596.      mov  edi,[TASK_BASE]
  1597.      add  ecx,[edi+TASKDATA.mem_start]
  1598.      mov  ebx,ecx
  1599.      mov  eax,keymap_shift
  1600.      mov  ecx,128
  1601.      call memmove
  1602.      ret
  1603. kbnoshiftret:
  1604.      cmp  ebx,3
  1605.      jne  kbnoaltret
  1606.      mov  edi,[TASK_BASE]
  1607.      add  ecx,[edi+TASKDATA.mem_start]
  1608.      mov  ebx,ecx
  1609.      mov  eax,keymap_alt
  1610.      mov  ecx,128
  1611.      call memmove
  1612.      ret
  1613. kbnoaltret:
  1614.      cmp  ebx,9
  1615.      jnz  ngsyse2
  1616.      movzx eax,word [keyboard]
  1617.      mov  [esp+36],eax
  1618.      ret
  1619. ngsyse2:
  1620.  
  1621.          cmp  eax,3
  1622.          jnz  ngsyse3
  1623.          movzx eax,[cd_base]
  1624.          mov  [esp+36],eax
  1625.          ret
  1626. ngsyse3:
  1627.          cmp  eax,5
  1628.          jnz  ngsyse5
  1629.          mov  eax,[syslang]
  1630.          mov  [esp+36],eax
  1631.          ret
  1632. ngsyse5:
  1633.      cmp  eax,7
  1634.      jnz  ngsyse7
  1635.      movzx eax,[hd_base]
  1636.      mov  [esp+36],eax
  1637.      ret
  1638. ngsyse7:
  1639.      cmp  eax,8
  1640.      jnz  ngsyse8
  1641.      mov eax,[fat32part]
  1642.      mov  [esp+36],eax
  1643.      ret
  1644. ngsyse8:
  1645.      cmp  eax,9
  1646.      jne  ngsyse9
  1647.      mov  eax,[timer_ticks] ;[0xfdf0]
  1648.      mov  [esp+36],eax
  1649.      ret
  1650. ngsyse9:
  1651.      cmp  eax,11
  1652.      jnz  ngsyse11
  1653.      mov eax,[lba_read_enabled]
  1654.      mov  [esp+36],eax
  1655.      ret
  1656. ngsyse11:
  1657.      cmp  eax,12
  1658.      jnz  ngsyse12
  1659.      mov eax,[pci_access_enabled]
  1660.      mov  [esp+36],eax
  1661.      ret
  1662. ngsyse12:
  1663.      mov  [esp+36],dword 1
  1664.      ret
  1665.  
  1666. get_timer_ticks:
  1667.     mov eax,[timer_ticks]
  1668.     ret
  1669.  
  1670. iglobal
  1671. align 4
  1672. mousefn dd msscreen, mswin, msbutton, msset
  1673.         dd app_load_cursor
  1674.         dd app_set_cursor
  1675.         dd app_delete_cursor
  1676.         dd msz
  1677. endg
  1678.  
  1679. readmousepos:
  1680.  
  1681. ; eax=0 screen relative
  1682. ; eax=1 window relative
  1683. ; eax=2 buttons pressed
  1684. ; eax=3 set mouse pos   ; reserved
  1685. ; eax=4 load cursor
  1686. ; eax=5 set cursor
  1687. ; eax=6 delete cursor   ; reserved
  1688. ; eax=7 get mouse_z
  1689.  
  1690.            cmp eax, 7
  1691.            ja msset
  1692.            jmp [mousefn+eax*4]
  1693. msscreen:
  1694.            mov  eax,[MOUSE_X]
  1695.            shl  eax,16
  1696.            mov  ax,[MOUSE_Y]
  1697.            mov  [esp+36],eax
  1698.            ret
  1699. mswin:
  1700.            mov  eax,[MOUSE_X]
  1701.            shl  eax,16
  1702.            mov  ax,[MOUSE_Y]
  1703.            mov  esi,[TASK_BASE]
  1704.            mov  bx, word [esi-twdw+WDATA.box.left]
  1705.            shl  ebx,16
  1706.            mov  bx, word [esi-twdw+WDATA.box.top]
  1707.            sub  eax,ebx
  1708.  
  1709.            mov  edi,[CURRENT_TASK]
  1710.            shl  edi,8
  1711.            sub  ax,word[edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
  1712.            rol  eax,16
  1713.            sub  ax,word[edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
  1714.            rol  eax,16
  1715.            mov  [esp+36],eax
  1716.            ret
  1717. msbutton:
  1718.            movzx eax,byte [BTN_DOWN]
  1719.            mov  [esp+36],eax
  1720.            ret
  1721. msz:
  1722.            mov   edi, [TASK_COUNT]
  1723.            movzx edi, word [WIN_POS + edi*2]
  1724.            cmp   edi, [CURRENT_TASK]
  1725.            jne   @f
  1726.            mov   ax,[MOUSE_SCROLL_H]
  1727.            shl   eax,16
  1728.            mov   ax,[MOUSE_SCROLL_V]
  1729.            mov   [esp+36],eax
  1730.            mov   [MOUSE_SCROLL_H],word 0
  1731.            mov   [MOUSE_SCROLL_V],word 0
  1732.            ret
  1733.        @@:
  1734.            mov  [esp+36],dword 0
  1735.            ret
  1736. msset:
  1737.            ret
  1738.  
  1739. app_load_cursor:
  1740.       ;     add ebx, new_app_base
  1741.            cmp ebx, OS_BASE
  1742.            jae msset
  1743.            stdcall load_cursor, ebx, ecx
  1744.            mov [esp+36], eax
  1745.            ret
  1746.  
  1747. app_set_cursor:
  1748.            stdcall set_cursor, ebx
  1749.            mov [esp+36], eax
  1750.            ret
  1751.  
  1752. app_delete_cursor:
  1753.            stdcall delete_cursor, ebx
  1754.            mov [esp+36], eax
  1755.            ret
  1756.  
  1757. is_input:
  1758.  
  1759.    push edx
  1760.    mov  dx,word [midisp]
  1761.    in   al,dx
  1762.    and  al,0x80
  1763.    pop  edx
  1764.    ret
  1765.  
  1766. is_output:
  1767.  
  1768.    push edx
  1769.    mov  dx,word [midisp]
  1770.    in   al,dx
  1771.    and  al,0x40
  1772.    pop  edx
  1773.    ret
  1774.  
  1775.  
  1776. get_mpu_in:
  1777.  
  1778.    push edx
  1779.    mov  dx,word [mididp]
  1780.    in   al,dx
  1781.    pop  edx
  1782.    ret
  1783.  
  1784.  
  1785. put_mpu_out:
  1786.  
  1787.    push edx
  1788.    mov  dx,word [mididp]
  1789.    out  dx,al
  1790.    pop  edx
  1791.    ret
  1792.  
  1793.  
  1794. setuart:
  1795.  
  1796.  su1:
  1797.    call is_output
  1798.    cmp  al,0
  1799.    jnz  su1
  1800.    mov  dx,word [midisp]
  1801.    mov  al,0xff
  1802.    out  dx,al
  1803.  su2:
  1804.    mov  dx,word [midisp]
  1805.    mov  al,0xff
  1806.    out  dx,al
  1807.    call is_input
  1808.    cmp  al,0
  1809.    jnz  su2
  1810.    call get_mpu_in
  1811.    cmp  al,0xfe
  1812.    jnz  su2
  1813.  su3:
  1814.    call is_output
  1815.    cmp  al,0
  1816.    jnz  su3
  1817.    mov  dx,word [midisp]
  1818.    mov  al,0x3f
  1819.    out  dx,al
  1820.  
  1821.    ret
  1822.  
  1823.  
  1824. align 4
  1825.  
  1826. sys_midi:
  1827.  
  1828.      cmp  [mididp],0
  1829.      jnz  sm0
  1830.      mov  [esp+36],dword 1
  1831.      ret
  1832.    sm0:
  1833.  
  1834.      cmp  eax,1
  1835.      mov  [esp+36],dword 0
  1836.      jnz  smn1
  1837.      call setuart
  1838.      ret
  1839.    smn1:
  1840.  
  1841.      cmp  eax,2
  1842.      jnz  smn2
  1843.    sm10:
  1844.      call get_mpu_in
  1845.      call is_output
  1846.      test al,al
  1847.      jnz  sm10
  1848.      mov  al,bl
  1849.      call put_mpu_out
  1850.      ret
  1851.    smn2:
  1852.  
  1853.      ret
  1854.  
  1855.  
  1856. detect_devices:
  1857. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1858. ;include 'detect/commouse.inc'
  1859. ;include 'detect/ps2mouse.inc'
  1860. ;include 'detect/dev_fd.inc'
  1861. ;include 'detect/dev_hdcd.inc'
  1862. ;include 'detect/sear_par.inc'
  1863. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1864.     ret
  1865.  
  1866.  
  1867. sys_end:
  1868.  
  1869.      mov   eax,[TASK_BASE]
  1870.      mov   [eax+TASKDATA.state], 3  ; terminate this program
  1871.  
  1872.     waitterm:            ; wait here for termination
  1873.      mov   ebx,100
  1874.      call  delay_hs
  1875.      jmp   waitterm
  1876.  
  1877. iglobal
  1878. align 4
  1879. sys_system_table:
  1880.         dd      exit_for_anyone         ; 1 = obsolete
  1881.         dd      sysfn_terminate         ; 2 = terminate thread
  1882.         dd      sysfn_activate          ; 3 = activate window
  1883.         dd      sysfn_getidletime       ; 4 = get idle time
  1884.         dd      sysfn_getcpuclock       ; 5 = get cpu clock
  1885.         dd      sysfn_saveramdisk       ; 6 = save ramdisk
  1886.         dd      sysfn_getactive         ; 7 = get active window
  1887.         dd      sysfn_sound_flag        ; 8 = get/set sound_flag
  1888.         dd      sysfn_shutdown          ; 9 = shutdown with parameter
  1889.         dd      sysfn_minimize          ; 10 = minimize window
  1890.         dd      sysfn_getdiskinfo       ; 11 = get disk subsystem info
  1891.         dd      sysfn_lastkey           ; 12 = get last pressed key
  1892.         dd      sysfn_getversion        ; 13 = get kernel version
  1893.         dd      sysfn_waitretrace       ; 14 = wait retrace
  1894.         dd      sysfn_centermouse       ; 15 = center mouse cursor
  1895.         dd      sysfn_getfreemem        ; 16 = get free memory size
  1896.         dd      sysfn_getallmem         ; 17 = get total memory size
  1897.         dd      sysfn_terminate2        ; 18 = terminate thread using PID
  1898.                                         ;                 instead of slot
  1899.         dd      sysfn_mouse_acceleration; 19 = set/get mouse acceleration
  1900.         dd      sysfn_meminfo           ; 20 = get extended memory info
  1901.         dd      sysfn_pid_to_slot       ; 21 = get slot number for pid
  1902.         dd      sysfn_min_rest_window   ; 22 = minimize and restore any window
  1903. sysfn_num = ($ - sys_system_table)/4
  1904. endg
  1905.  
  1906. sys_system:
  1907.         dec     ebx
  1908.         cmp     ebx, sysfn_num
  1909.         jae     @f
  1910.         jmp     dword [sys_system_table + ebx*4]
  1911. @@:
  1912.         ret
  1913.  
  1914.  
  1915. sysfn_shutdown:          ; 18.9 = system shutdown
  1916.      cmp  ecx,1
  1917.      jl   exit_for_anyone
  1918.      cmp  ecx,4
  1919.      jg   exit_for_anyone
  1920.      mov  [BOOT_VAR+0x9030],cl
  1921.  
  1922.      mov  eax,[TASK_COUNT]
  1923.      mov  [SYS_SHUTDOWN],al
  1924.      mov  [shutdown_processes],eax
  1925.      and  dword [esp+32], 0
  1926.  exit_for_anyone:
  1927.      ret
  1928.   uglobal
  1929.    shutdown_processes: dd 0x0
  1930.   endg
  1931.  
  1932. sysfn_terminate:        ; 18.2 = TERMINATE
  1933.      cmp  ecx,2
  1934.      jb   noprocessterminate
  1935.      mov  edx,[TASK_COUNT]
  1936.      cmp  ecx,edx
  1937.      ja   noprocessterminate
  1938.      mov  eax,[TASK_COUNT]
  1939.      shl  ecx,5
  1940.      mov  edx,[ecx+CURRENT_TASK+TASKDATA.pid]
  1941.      add  ecx,CURRENT_TASK+TASKDATA.state
  1942.      cmp  byte [ecx], 9
  1943.      jz   noprocessterminate
  1944.  
  1945.      ;call MEM_Heap_Lock      ;guarantee that process isn't working with heap
  1946.      mov  [ecx],byte 3       ; clear possible i40's
  1947.      ;call MEM_Heap_UnLock
  1948.  
  1949.      cmp  edx,[application_table_status]    ; clear app table stat
  1950.      jne  noatsc
  1951.      mov  [application_table_status],0
  1952.    noatsc:
  1953.    noprocessterminate:
  1954.      ret
  1955.  
  1956. sysfn_terminate2:
  1957. ;lock application_table_status mutex
  1958. .table_status:
  1959.     cli
  1960.     cmp    [application_table_status],0
  1961.     je     .stf
  1962.     sti
  1963.     call   change_task
  1964.     jmp    .table_status
  1965. .stf:
  1966.     call   set_application_table_status
  1967.     mov    eax,ecx
  1968.     call   pid_to_slot
  1969.     test   eax,eax
  1970.     jz     .not_found
  1971.     mov    ecx,eax
  1972.     cli
  1973.     call   sysfn_terminate
  1974.     mov    [application_table_status],0
  1975.     sti
  1976.     and    dword [esp+32],0
  1977.     ret
  1978. .not_found:
  1979.     mov    [application_table_status],0
  1980.     or     dword [esp+32],-1
  1981.     ret
  1982.  
  1983. sysfn_activate:         ; 18.3 = ACTIVATE WINDOW
  1984.      cmp  ecx,2
  1985.      jb   .nowindowactivate
  1986.      cmp  ecx,[TASK_COUNT]
  1987.      ja   .nowindowactivate
  1988.  
  1989.      mov   [window_minimize], 2   ; restore window if minimized
  1990.  
  1991.      movzx esi, word [WIN_STACK + ecx*2]
  1992.      cmp   esi, [TASK_COUNT]
  1993.      je    .nowindowactivate ; already active
  1994.  
  1995.      mov   edi, ecx
  1996.      shl   edi, 5
  1997.      add   edi, window_data
  1998.      movzx esi, word [WIN_STACK + ecx * 2]
  1999.      lea   esi, [WIN_POS + esi * 2]
  2000.      call  waredraw
  2001. .nowindowactivate:
  2002.      ret
  2003.  
  2004. sysfn_getidletime:              ; 18.4 = GET IDLETIME
  2005.      mov  eax,[idleusesec]
  2006.      mov  [esp+32], eax
  2007.      ret
  2008.  
  2009. sysfn_getcpuclock:              ; 18.5 = GET TSC/SEC
  2010.      mov  eax,[CPU_FREQ]
  2011.      mov  [esp+32], eax
  2012.      ret
  2013.  
  2014. ;  SAVE ramdisk to /hd/1/menuet.img
  2015. ;!!!!!!!!!!!!!!!!!!!!!!!!
  2016.    include 'blkdev/rdsave.inc'
  2017. ;!!!!!!!!!!!!!!!!!!!!!!!!
  2018.  
  2019. sysfn_getactive:        ; 18.7 = get active window
  2020.      mov  eax, [TASK_COUNT]
  2021.    movzx  eax, word [WIN_POS + eax*2]
  2022.      mov  [esp+32],eax
  2023.      ret
  2024.  
  2025. sysfn_sound_flag:       ; 18.8 = get/set sound_flag
  2026.      cmp  ecx,1
  2027.      jne  nogetsoundflag
  2028.      movzx  eax,byte [sound_flag] ; get sound_flag
  2029.      mov  [esp+32],eax
  2030.      ret
  2031.  nogetsoundflag:
  2032.      cmp  ecx,2
  2033.      jnz  nosoundflag
  2034.      xor  byte [sound_flag], 1
  2035.  nosoundflag:
  2036.      ret
  2037.  
  2038. sysfn_minimize:         ; 18.10 = minimize window
  2039.      mov   [window_minimize],1
  2040.      ret
  2041.  
  2042. sysfn_getdiskinfo:      ; 18.11 = get disk info table
  2043.      cmp  ecx,1
  2044.      jnz  full_table
  2045.   small_table:
  2046.      call for_all_tables
  2047.      mov ecx,10
  2048.      cld
  2049.      rep movsb
  2050.      ret
  2051.    for_all_tables:
  2052.      mov edi,edx
  2053.      mov esi,DRIVE_DATA
  2054.      ret
  2055.   full_table:
  2056.      cmp  ecx,2
  2057.      jnz  exit_for_anyone
  2058.      call for_all_tables
  2059.      mov ecx,16384
  2060.      cld
  2061.      rep movsd
  2062.      ret
  2063.  
  2064. sysfn_lastkey:          ; 18.12 = return 0 (backward compatibility)
  2065.         and     dword [esp+32], 0
  2066.         ret
  2067.  
  2068. sysfn_getversion:       ; 18.13 = get kernel ID and version
  2069.      mov edi,ebx
  2070.      mov esi,version_inf
  2071.      mov ecx,version_end-version_inf
  2072.      rep movsb
  2073.      ret
  2074.  
  2075. sysfn_waitretrace:     ; 18.14 = sys wait retrace
  2076.      ;wait retrace functions
  2077.  sys_wait_retrace:
  2078.      mov edx,0x3da
  2079.  WaitRetrace_loop:
  2080.      in al,dx
  2081.      test al,1000b
  2082.      jz WaitRetrace_loop
  2083.      and [esp+32],dword 0
  2084.      ret
  2085.  
  2086. sysfn_centermouse:      ; 18.15 = mouse centered
  2087.      call  mouse_centered
  2088.      and [esp+32],dword 0
  2089.      ret
  2090.  
  2091. sysfn_mouse_acceleration: ; 18.19 = set/get mouse features
  2092.      cmp  ecx,0  ; get mouse speed factor
  2093.      jnz  .set_mouse_acceleration
  2094.      xor  eax,eax
  2095.      mov  ax,[mouse_speed_factor]
  2096.      mov  [esp+32],eax
  2097.      ret
  2098.  .set_mouse_acceleration:
  2099.      cmp  ecx,1  ; set mouse speed factor
  2100.      jnz  .get_mouse_delay
  2101.      mov  [mouse_speed_factor],dx
  2102.      ret
  2103.  .get_mouse_delay:
  2104.      cmp  ecx,2  ; get mouse delay
  2105.      jnz  .set_mouse_delay
  2106.      mov  eax,[mouse_delay]
  2107.      mov  [esp+32],eax
  2108.      ret
  2109.  .set_mouse_delay:
  2110.      cmp  ecx,3  ; set mouse delay
  2111.      jnz  .set_pointer_position
  2112.      mov  [mouse_delay],edx
  2113.      ret
  2114.  .set_pointer_position:
  2115.      cmp  ecx,4  ; set mouse pointer position
  2116.      jnz  .set_mouse_button
  2117.      mov   [MOUSE_Y],dx    ;y
  2118.      ror   edx,16
  2119.      mov   [MOUSE_X],dx    ;x
  2120.      rol   edx,16
  2121.      ret
  2122.  .set_mouse_button:
  2123.      cmp   ecx,5  ; set mouse button features
  2124.      jnz  .end
  2125.      mov   [BTN_DOWN],dl
  2126.      mov   [mouse_active],1
  2127.  .end:
  2128.      ret
  2129.  
  2130. sysfn_getfreemem:
  2131.      mov eax, [pg_data.pages_free]
  2132.      shl eax, 2
  2133.      mov [esp+32],eax
  2134.      ret
  2135.  
  2136. sysfn_getallmem:
  2137.      mov  eax,[MEM_AMOUNT]
  2138.      shr eax, 10
  2139.      mov  [esp+32],eax
  2140.      ret
  2141.  
  2142. ; // Alver, 2007-22-08 // {
  2143. sysfn_pid_to_slot:
  2144.      mov   eax, ecx
  2145.      call  pid_to_slot
  2146.      mov   [esp+32], eax
  2147.      ret
  2148.  
  2149. sysfn_min_rest_window:
  2150.      pushad
  2151.      mov   eax, edx      ; ebx - operating
  2152.      shr   ecx, 1
  2153.      jnc    @f
  2154.      call  pid_to_slot
  2155. @@:
  2156.      or    eax, eax      ; eax - number of slot
  2157.      jz    .error
  2158.      cmp   eax, 255         ; varify maximal slot number
  2159.      ja    .error
  2160.      movzx eax, word [WIN_STACK + eax*2]
  2161.      shr   ecx, 1
  2162.      jc    .restore
  2163.  ; .minimize:
  2164.      call  minimize_window
  2165.      jmp   .exit
  2166. .restore:
  2167.      call  restore_minimized_window
  2168. .exit:
  2169.      popad
  2170.      xor   eax, eax
  2171.      mov   [esp+32], eax
  2172.      ret
  2173. .error:
  2174.      popad
  2175.      xor   eax, eax
  2176.      dec   eax
  2177.      mov   [esp+32], eax
  2178.      ret
  2179. ; } \\ Alver, 2007-22-08 \\
  2180.  
  2181. uglobal
  2182. ;// mike.dld, 2006-29-01 [
  2183. screen_workarea RECT
  2184. ;// mike.dld, 2006-29-01 ]
  2185. window_minimize db 0
  2186. sound_flag      db 0
  2187. endg
  2188.  
  2189. iglobal
  2190. version_inf:
  2191.   db 0,7,1,0  ; version 0.7.1.0
  2192.   db UID_KOLIBRI
  2193.   dd __REV__
  2194. version_end:
  2195. endg
  2196.  
  2197. UID_NONE=0
  2198. UID_MENUETOS=1   ;official
  2199. UID_KOLIBRI=2    ;russian
  2200.  
  2201. sys_cachetodiskette:
  2202.         cmp     ebx, 1
  2203.         jne     .no_floppy_a_save
  2204.         mov     [flp_number], 1
  2205.         jmp     .save_image_on_floppy
  2206. .no_floppy_a_save:
  2207.         cmp     ebx, 2
  2208.         jne     .no_floppy_b_save
  2209.         mov     [flp_number], 2
  2210. .save_image_on_floppy:
  2211.         call    save_image
  2212.         mov     [esp + 32], dword 0
  2213.         cmp     [FDC_Status], 0
  2214.         je      .yes_floppy_save
  2215. .no_floppy_b_save:
  2216.         mov     [esp + 32], dword 1
  2217. .yes_floppy_save:
  2218.         ret
  2219.  
  2220. uglobal
  2221. ;  bgrchanged  dd  0x0
  2222. bgrlock db 0
  2223. bgrlockpid dd 0
  2224. endg
  2225.  
  2226. sys_background:
  2227.  
  2228.     cmp   ebx,1                            ; BACKGROUND SIZE
  2229.     jnz   nosb1
  2230.     cmp   ecx,0
  2231.     je    sbgrr
  2232.     cmp   edx,0
  2233.     je    sbgrr
  2234. @@:
  2235.         mov     al, 1
  2236.         xchg    [bgrlock], al
  2237.         test    al, al
  2238.         jz      @f
  2239.         call    change_task
  2240.         jmp     @b
  2241. @@:
  2242.     mov   [BgrDataWidth],ecx
  2243.     mov   [BgrDataHeight],edx
  2244. ;    mov   [bgrchanged],1
  2245.  
  2246.     pushad
  2247. ; return memory for old background
  2248.     stdcall kernel_free, [img_background]
  2249. ; calculate RAW size
  2250.     xor  eax,eax
  2251.     inc  eax
  2252.     cmp  [BgrDataWidth],eax
  2253.     jae   @f
  2254.     mov [BgrDataWidth],eax
  2255. @@:
  2256.     cmp  [BgrDataHeight],eax
  2257.     jae   @f
  2258.     mov [BgrDataHeight],eax
  2259. @@:
  2260.     mov  eax,[BgrDataWidth]
  2261.     imul eax,[BgrDataHeight]
  2262.     lea  eax,[eax*3]
  2263.     mov  [mem_BACKGROUND],eax
  2264. ; get memory for new background
  2265.     stdcall kernel_alloc, eax
  2266.     test eax, eax
  2267.     jz .exit_mem
  2268.     mov [img_background], eax
  2269. .exit_mem:
  2270.     popad
  2271.         mov     [bgrlock], 0
  2272.  
  2273.   sbgrr:
  2274.     ret
  2275.  
  2276. nosb1:
  2277.  
  2278.     cmp   ebx,2                            ; SET PIXEL
  2279.     jnz   nosb2
  2280.  
  2281.     mov ebx, [mem_BACKGROUND]
  2282.     add ebx, 4095
  2283.     and ebx, -4096
  2284.     sub ebx, 4
  2285.     cmp   ecx, ebx
  2286.     ja   @F
  2287.  
  2288.     mov   eax,[img_background]
  2289.     mov   ebx,[eax+ecx]
  2290.     and   ebx,0xFF000000 ;255*256*256*256
  2291.     and   edx,0x00FFFFFF ;255*256*256+255*256+255
  2292.     add   edx,ebx
  2293.     mov   [eax+ecx],edx
  2294. @@:
  2295.     ret
  2296. nosb2:
  2297.  
  2298.     cmp   ebx,3                            ; DRAW BACKGROUND
  2299.     jnz   nosb3
  2300. draw_background_temp:
  2301. ;    cmp   [bgrchanged],1 ;0
  2302. ;    je    nosb31
  2303. ;draw_background_temp:
  2304. ;    mov   [bgrchanged],1 ;0
  2305.     mov    [background_defined], 1
  2306.     call  force_redraw_background
  2307.     mov    [REDRAW_BACKGROUND], byte 2
  2308.    nosb31:
  2309.     ret
  2310.   nosb3:
  2311.  
  2312.     cmp   ebx,4                            ; TILED / STRETCHED
  2313.     jnz   nosb4
  2314.     cmp   ecx,[BgrDrawMode]
  2315.     je    nosb41
  2316.     mov   [BgrDrawMode],ecx
  2317. ;    mov   [bgrchanged],1
  2318.    nosb41:
  2319.     ret
  2320.   nosb4:
  2321.  
  2322.     cmp   ebx,5                            ; BLOCK MOVE TO BGR
  2323.     jnz   nosb5
  2324.   ; bughere
  2325.     mov   eax, ecx
  2326.     mov   ebx, edx
  2327.     add   ebx, [img_background]   ;IMG_BACKGROUND
  2328.     mov   ecx, esi
  2329.     call  memmove
  2330.   .fin:
  2331.     ret
  2332.   nosb5:
  2333.  
  2334.         cmp     ebx, 6
  2335.         jnz     nosb6
  2336. @@:
  2337.         mov     al, 1
  2338.         xchg    [bgrlock], al
  2339.         test    al, al
  2340.         jz      @f
  2341.         call    change_task
  2342.         jmp     @b
  2343. @@:
  2344.         mov     eax, [CURRENT_TASK]
  2345.         mov     [bgrlockpid], eax
  2346.         stdcall user_alloc, [mem_BACKGROUND]
  2347.         mov     [esp+32], eax
  2348.         test    eax, eax
  2349.         jz      .nomem
  2350.         mov     ebx, eax
  2351.         shr     ebx, 12
  2352.         or      dword [page_tabs+(ebx-1)*4], DONT_FREE_BLOCK
  2353.         mov     esi, [img_background]
  2354.         shr     esi, 12
  2355.         mov     ecx, [mem_BACKGROUND]
  2356.         add     ecx, 0xFFF
  2357.         shr     ecx, 12
  2358. .z:
  2359.         mov     eax, [page_tabs+ebx*4]
  2360.         test    al, 1
  2361.         jz      @f
  2362.         call    free_page
  2363. @@:
  2364.         mov     eax, [page_tabs+esi*4]
  2365.         or      al, PG_UW
  2366.         mov     [page_tabs+ebx*4], eax
  2367.         mov     eax, ebx
  2368.         shl     eax, 12
  2369.         invlpg  [eax]
  2370.         inc     ebx
  2371.         inc     esi
  2372.         loop    .z
  2373.         ret
  2374. .nomem:
  2375.         and     [bgrlockpid], 0
  2376.         mov     [bgrlock], 0
  2377. nosb6:
  2378.         cmp     ebx, 7
  2379.         jnz     nosb7
  2380.         cmp     [bgrlock], 0
  2381.         jz      .err
  2382.         mov     eax, [CURRENT_TASK]
  2383.         cmp     [bgrlockpid], eax
  2384.         jnz     .err
  2385.         mov     eax, ecx
  2386.         mov     ebx, ecx
  2387.         shr     eax, 12
  2388.         mov     ecx, [page_tabs+(eax-1)*4]
  2389.         test    cl, USED_BLOCK+DONT_FREE_BLOCK
  2390.         jz      .err
  2391.         jnp     .err
  2392.         push    eax
  2393.         shr     ecx, 12
  2394. @@:
  2395.         and     dword [page_tabs+eax*4], 0
  2396.         mov     edx, eax
  2397.         shl     edx, 12
  2398.         push eax
  2399.         invlpg  [edx]
  2400.         pop eax
  2401.         inc     eax
  2402.         loop    @b
  2403.         pop     eax
  2404.         and     dword [page_tabs+(eax-1)*4], not DONT_FREE_BLOCK
  2405.         stdcall user_free, ebx
  2406.         mov     [esp+32], eax
  2407.         and     [bgrlockpid], 0
  2408.         mov     [bgrlock], 0
  2409.         ret
  2410. .err:
  2411.         and     dword [esp+32], 0
  2412.         ret
  2413.  
  2414. nosb7:
  2415.     ret
  2416.  
  2417. force_redraw_background:
  2418.     mov   [draw_data+32 + RECT.left],dword 0
  2419.     mov   [draw_data+32 + RECT.top],dword 0
  2420.     push  eax ebx
  2421.     mov   eax,[Screen_Max_X]
  2422.     mov   ebx,[Screen_Max_Y]
  2423.     mov   [draw_data+32 + RECT.right],eax
  2424.     mov   [draw_data+32 + RECT.bottom],ebx
  2425.     pop   ebx eax
  2426.     mov   byte [REDRAW_BACKGROUND], 1
  2427.     ret
  2428.  
  2429. align 4
  2430.  
  2431. sys_getbackground:
  2432.  
  2433.     cmp   eax,1                                  ; SIZE
  2434.     jnz   nogb1
  2435.     mov   eax,[BgrDataWidth]
  2436.     shl   eax,16
  2437.     mov   ax,[BgrDataHeight]
  2438.     mov   [esp+36],eax
  2439.     ret
  2440.  
  2441. nogb1:
  2442.  
  2443.     cmp   eax,2                                  ; PIXEL
  2444.     jnz   nogb2
  2445.  
  2446.     mov ecx, [mem_BACKGROUND]
  2447.     add ecx, 4095
  2448.     and ecx, -4096
  2449.     sub ecx, 4
  2450.     cmp ebx, ecx
  2451.     ja  @F
  2452.  
  2453.     mov   eax,[img_background]
  2454.     mov   eax,[ebx+eax]
  2455.  
  2456.     and   eax, 0xFFFFFF
  2457.     mov   [esp+36],eax
  2458. @@:
  2459.     ret
  2460.   nogb2:
  2461.  
  2462.     cmp   eax,4                                  ; TILED / STRETCHED
  2463.     jnz   nogb4
  2464.     mov   eax,[BgrDrawMode]
  2465.   nogb4:
  2466.     mov   [esp+36],eax
  2467.     ret
  2468.  
  2469.  
  2470. align 4
  2471.  
  2472. sys_getkey:
  2473.         mov     [esp + 32],dword 1
  2474.         ; test main buffer
  2475.         mov     ebx, [CURRENT_TASK]                          ; TOP OF WINDOW STACK
  2476.         movzx   ecx, word [WIN_STACK + ebx * 2]
  2477.         mov     edx, [TASK_COUNT]
  2478.         cmp     ecx, edx
  2479.         jne     .finish
  2480.         cmp     [KEY_COUNT], byte 0
  2481.         je      .finish
  2482.         movzx   eax, byte [KEY_BUFF]
  2483.         shl     eax, 8
  2484.         push    eax
  2485.         dec     byte [KEY_COUNT]
  2486.         and     byte [KEY_COUNT], 127
  2487.         movzx   ecx, byte [KEY_COUNT]
  2488.         add     ecx, 2
  2489.         mov     eax, KEY_BUFF + 1
  2490.         mov     ebx, KEY_BUFF
  2491.         call    memmove
  2492.         pop     eax
  2493. .ret_eax:
  2494.         mov     [esp + 32], eax
  2495.         ret
  2496. .finish:
  2497. ; test hotkeys buffer
  2498.         mov     ecx, hotkey_buffer
  2499. @@:
  2500.         cmp     [ecx], ebx
  2501.         jz      .found
  2502.         add     ecx, 8
  2503.         cmp     ecx, hotkey_buffer + 120 * 8
  2504.         jb      @b
  2505.         ret
  2506. .found:
  2507.         mov     ax, [ecx + 6]
  2508.         shl     eax, 16
  2509.         mov     ah, [ecx + 4]
  2510.         mov     al, 2
  2511.         and     dword [ecx + 4], 0
  2512.         and     dword [ecx], 0
  2513.         jmp     .ret_eax
  2514.  
  2515. align 4
  2516.  
  2517. sys_getbutton:
  2518.  
  2519.         mov     ebx, [CURRENT_TASK]                         ; TOP OF WINDOW STACK
  2520.         mov     [esp + 32], dword 1
  2521.         movzx   ecx, word [WIN_STACK + ebx * 2]
  2522.         mov     edx, [TASK_COUNT] ; less than 256 processes
  2523.         cmp     ecx, edx
  2524.         jne     .exit
  2525.         movzx   eax, byte [BTN_COUNT]
  2526.         test    eax, eax
  2527.         jz      .exit
  2528.         mov     eax, [BTN_BUFF]
  2529.         shl     eax, 8
  2530. ; // Alver 22.06.2008 // {
  2531.         mov       al, byte [btn_down_determ]
  2532.         and       al,0xFE                                       ; delete left button bit
  2533. ; } \\ Alver \\
  2534.         mov     [BTN_COUNT], byte 0
  2535.         mov     [esp + 32], eax
  2536. .exit:
  2537.         ret
  2538.  
  2539.  
  2540. align 4
  2541.  
  2542. sys_cpuusage:
  2543.  
  2544. ;  RETURN:
  2545. ;
  2546. ;  +00 dword     process cpu usage
  2547. ;  +04  word     position in windowing stack
  2548. ;  +06  word     windowing stack value at current position (cpu nro)
  2549. ;  +10 12 bytes  name
  2550. ;  +22 dword     start in mem
  2551. ;  +26 dword     used mem
  2552. ;  +30 dword     PID , process idenfification number
  2553. ;
  2554.  
  2555.     cmp  ecx,-1         ; who am I ?
  2556.     jne  .no_who_am_i
  2557.     mov  ecx,[CURRENT_TASK]
  2558.   .no_who_am_i:
  2559.         cmp     ecx, max_processes
  2560.         ja      .nofillbuf
  2561.  
  2562. ; +4: word: position of the window of thread in the window stack
  2563.         mov     ax, [WIN_STACK + ecx * 2]
  2564.         mov     [ebx+4], ax
  2565. ; +6: word: number of the thread slot, which window has in the window stack
  2566. ;           position ecx (has no relation to the specific thread)
  2567.         mov     ax, [WIN_POS + ecx * 2]
  2568.         mov     [ebx+6], ax
  2569.  
  2570.         shl     ecx, 5
  2571.  
  2572. ; +0: dword: memory usage
  2573.         mov     eax, [ecx+CURRENT_TASK+TASKDATA.cpu_usage]
  2574.         mov     [ebx], eax
  2575. ; +10: 11 bytes: name of the process
  2576.         push    ecx
  2577.         lea     eax, [ecx*8+SLOT_BASE+APPDATA.app_name]
  2578.         add     ebx, 10
  2579.         mov     ecx, 11
  2580.         call    memmove
  2581.         pop     ecx
  2582.  
  2583. ; +22: address of the process in memory
  2584. ; +26: size of used memory - 1
  2585.         push    edi
  2586.         lea     edi, [ebx+12]
  2587.         xor     eax, eax
  2588.         mov     edx, 0x100000*16
  2589.         cmp     ecx, 1 shl 5
  2590.         je      .os_mem
  2591.         mov     edx, [SLOT_BASE+ecx*8+APPDATA.mem_size]
  2592.         mov     eax, std_application_base_address
  2593. .os_mem:
  2594.         stosd
  2595.         lea     eax, [edx-1]
  2596.         stosd
  2597.  
  2598. ; +30: PID/TID
  2599.         mov     eax, [ecx+CURRENT_TASK+TASKDATA.pid]
  2600.         stosd
  2601.  
  2602.     ; window position and size
  2603.         push    esi
  2604.         lea     esi, [ecx + window_data + WDATA.box]
  2605.         movsd
  2606.         movsd
  2607.         movsd
  2608.         movsd
  2609.  
  2610.     ; Process state (+50)
  2611.         mov     eax, dword [ecx+CURRENT_TASK+TASKDATA.state]
  2612.         stosd
  2613.  
  2614.     ; Window client area box
  2615.         lea     esi, [ecx*8 + SLOT_BASE + APPDATA.wnd_clientbox]
  2616.         movsd
  2617.         movsd
  2618.         movsd
  2619.         movsd
  2620.  
  2621.     ; Window state
  2622.         mov     al, [ecx+window_data+WDATA.fl_wstate]
  2623.         stosb
  2624.  
  2625.         pop     esi
  2626.         pop     edi
  2627.  
  2628. .nofillbuf:
  2629.     ; return number of processes
  2630.  
  2631.     mov    eax,[TASK_COUNT]
  2632.     mov    [esp+32],eax
  2633.     ret
  2634.  
  2635. align 4
  2636. sys_clock:
  2637.         cli
  2638.   ; Mikhail Lisovin  xx Jan 2005
  2639.   @@:   mov   al, 10
  2640.         out   0x70, al
  2641.         in    al, 0x71
  2642.         test  al, al
  2643.         jns   @f
  2644.         mov   esi, 1
  2645.         call  delay_ms
  2646.         jmp   @b
  2647.   @@:
  2648.   ; end Lisovin's fix
  2649.  
  2650.         xor   al,al           ; seconds
  2651.         out   0x70,al
  2652.         in    al,0x71
  2653.         movzx ecx,al
  2654.         mov   al,02           ; minutes
  2655.         shl   ecx,16
  2656.         out   0x70,al
  2657.         in    al,0x71
  2658.         movzx edx,al
  2659.         mov   al,04           ; hours
  2660.         shl   edx,8
  2661.         out   0x70,al
  2662.         in    al,0x71
  2663.         add   ecx,edx
  2664.         movzx edx,al
  2665.         add   ecx,edx
  2666.         sti
  2667.         mov     [esp + 32], ecx
  2668.         ret
  2669.  
  2670.  
  2671. align 4
  2672.  
  2673. sys_date:
  2674.  
  2675.         cli
  2676.   @@:   mov   al, 10
  2677.         out   0x70, al
  2678.         in    al, 0x71
  2679.         test  al, al
  2680.         jns   @f
  2681.         mov   esi, 1
  2682.         call  delay_ms
  2683.         jmp   @b
  2684.   @@:
  2685.  
  2686.         mov     ch,0
  2687.         mov     al,7            ; date
  2688.         out     0x70,al
  2689.         in      al,0x71
  2690.         mov     cl,al
  2691.         mov     al,8            ; month
  2692.         shl     ecx,16
  2693.         out     0x70,al
  2694.         in      al,0x71
  2695.         mov     ch,al
  2696.         mov     al,9            ; year
  2697.         out     0x70,al
  2698.         in      al,0x71
  2699.         mov     cl,al
  2700.         sti
  2701.         mov     [esp+32], ecx
  2702.         ret
  2703.  
  2704.  
  2705. ; redraw status
  2706.  
  2707. sys_redrawstat:
  2708.         cmp     ebx, 1
  2709.         jne     no_widgets_away
  2710.         ; buttons away
  2711.         mov     ecx,[CURRENT_TASK]
  2712.   sys_newba2:
  2713.         mov     edi,[BTN_ADDR]
  2714.         cmp     [edi], dword 0  ; empty button list ?
  2715.         je      end_of_buttons_away
  2716.         movzx   ebx, word [edi]
  2717.         inc     ebx
  2718.         mov     eax,edi
  2719.   sys_newba:
  2720.         dec     ebx
  2721.         jz      end_of_buttons_away
  2722.  
  2723.         add     eax, 0x10
  2724.         cmp     cx, [eax]
  2725.         jnz     sys_newba
  2726.  
  2727.         push    eax ebx ecx
  2728.         mov     ecx,ebx
  2729.         inc     ecx
  2730.         shl     ecx, 4
  2731.         mov     ebx, eax
  2732.         add     eax, 0x10
  2733.         call    memmove
  2734.         dec     dword [edi]
  2735.         pop     ecx ebx eax
  2736.  
  2737.         jmp     sys_newba2
  2738.  
  2739.   end_of_buttons_away:
  2740.  
  2741.         ret
  2742.  
  2743.   no_widgets_away:
  2744.  
  2745.         cmp     ebx, 2
  2746.         jnz     srl1
  2747.  
  2748.         mov     edx, [TASK_BASE]      ; return whole screen draw area for this app
  2749.         add     edx, draw_data - CURRENT_TASK
  2750.         mov     [edx + RECT.left], 0
  2751.         mov     [edx + RECT.top], 0
  2752.         mov     eax, [Screen_Max_X]
  2753.         mov     [edx + RECT.right], eax
  2754.         mov     eax, [Screen_Max_Y]
  2755.         mov     [edx + RECT.bottom], eax
  2756.  
  2757.         mov     edi, [TASK_BASE]
  2758.         or      [edi - twdw + WDATA.fl_wdrawn], 1   ; no new position & buttons from app
  2759.         call    sys_window_mouse
  2760.         ret
  2761.  
  2762.   srl1:
  2763.         ret
  2764.  
  2765.  
  2766. sys_drawwindow:
  2767.  
  2768.     mov   eax,edx
  2769.     shr   eax,16+8
  2770.     and   eax,15
  2771.  
  2772. ;    cmp   eax,0   ; type I    - original style
  2773.     jne   nosyswI
  2774.     inc   [mouse_pause]
  2775.     call  [disable_mouse]
  2776.     call  sys_set_window
  2777.     call  [disable_mouse]
  2778.     call  drawwindow_I
  2779.     ;dec   [mouse_pause]
  2780.     ;call   [draw_pointer]
  2781.     ;ret
  2782.     jmp   draw_window_caption.2
  2783.   nosyswI:
  2784.  
  2785.     cmp   al,1    ; type II   - only reserve area, no draw
  2786.     jne   nosyswII
  2787.     inc   [mouse_pause]
  2788.     call  [disable_mouse]
  2789.     call  sys_set_window
  2790.     call  [disable_mouse]
  2791.     call  sys_window_mouse
  2792.     dec   [mouse_pause]
  2793.     call   [draw_pointer]
  2794.     ret
  2795.   nosyswII:
  2796.  
  2797.     cmp   al,2    ; type III  - new style
  2798.     jne   nosyswIII
  2799.     inc   [mouse_pause]
  2800.     call  [disable_mouse]
  2801.     call  sys_set_window
  2802.     call  [disable_mouse]
  2803.     call  drawwindow_III
  2804.     ;dec   [mouse_pause]
  2805.     ;call   [draw_pointer]
  2806.     ;ret
  2807.     jmp   draw_window_caption.2
  2808.   nosyswIII:
  2809.  
  2810.     cmp   al,3    ; type IV - skinned window
  2811.     je    draw_skin_window
  2812.     cmp   al,4    ; type V - skinned window not sized! {not_sized_skin_window}
  2813.     jne   nosyswV
  2814.   draw_skin_window:
  2815.  
  2816.     inc   [mouse_pause]
  2817.     call  [disable_mouse]
  2818.     call  sys_set_window
  2819.     call  [disable_mouse]
  2820.     mov   eax, [TASK_COUNT]
  2821.     movzx eax, word [WIN_POS + eax*2]
  2822.     cmp   eax, [CURRENT_TASK]
  2823.     setz  al
  2824.     movzx eax, al
  2825.     push  eax
  2826.     call  drawwindow_IV
  2827.     ;dec   [mouse_pause]
  2828.     ;call   [draw_pointer]
  2829.     ;ret
  2830.     jmp   draw_window_caption.2
  2831.   nosyswV:
  2832.  
  2833.     ret
  2834.  
  2835.  
  2836. draw_window_caption:
  2837.         inc     [mouse_pause]
  2838.         call    [disable_mouse]
  2839.  
  2840.         xor     eax,eax
  2841.         mov     edx,[TASK_COUNT]
  2842.         movzx   edx,word[WIN_POS+edx*2]
  2843.         cmp     edx,[CURRENT_TASK]
  2844.         jne     @f
  2845.         inc     eax
  2846.     @@: mov     edx,[CURRENT_TASK]
  2847.         shl     edx,5
  2848.         add     edx,window_data
  2849.         movzx   ebx,[edx+WDATA.fl_wstyle]
  2850.         and     bl,0x0F
  2851.         cmp     bl,3
  2852.         je      .draw_caption_style_3           ;{for 3 and 4 style write caption}
  2853.         cmp     bl,4
  2854.         je      .draw_caption_style_3
  2855.  
  2856.         jmp     .not_style_3
  2857.   .draw_caption_style_3:
  2858.  
  2859.         push    edx
  2860.         call    drawwindow_IV_caption
  2861.         add     esp,4
  2862.         jmp     .2
  2863.  
  2864.   .not_style_3:
  2865.         cmp     bl,2
  2866.         jne     .not_style_2
  2867.  
  2868.         call    drawwindow_III_caption
  2869.         jmp     .2
  2870.  
  2871.   .not_style_2:
  2872.         cmp     bl,0
  2873.         jne     .2
  2874.  
  2875.         call    drawwindow_I_caption
  2876.  
  2877. ;--------------------------------------------------------------
  2878.   .2:   ;jmp     @f
  2879.         mov     edi,[CURRENT_TASK]
  2880.         shl     edi,5
  2881.         test    [edi+window_data+WDATA.fl_wstyle],WSTYLE_HASCAPTION
  2882.         jz      @f
  2883.         mov     edx,[edi*8+SLOT_BASE+APPDATA.wnd_caption]
  2884.         or      edx,edx
  2885.         jz      @f
  2886.  
  2887.         movzx   eax,[edi+window_data+WDATA.fl_wstyle]
  2888.         and     al,0x0F
  2889.         cmp     al,3
  2890.         je      .skinned
  2891.         cmp     al,4
  2892.         je      .skinned
  2893.  
  2894.         jmp     .not_skinned
  2895.   .skinned:
  2896.         mov     ebp,[edi+window_data+WDATA.box.left-2]
  2897.         mov     bp,word[edi+window_data+WDATA.box.top]
  2898.         movzx   eax,word[edi+window_data+WDATA.box.width]
  2899.         sub     ax,[_skinmargins.left]
  2900.         sub     ax,[_skinmargins.right]
  2901.         push    edx
  2902.         cwde
  2903.         cdq
  2904.         mov     ebx,6
  2905.         idiv    ebx
  2906.         pop     edx
  2907.         or      eax,eax
  2908.         js      @f
  2909.         mov     esi,eax
  2910.         mov     ebx,dword[_skinmargins.left-2]
  2911.         mov     bx,word[_skinh]
  2912.         sub     bx,[_skinmargins.bottom]
  2913.         sub     bx,[_skinmargins.top]
  2914.         sar     bx,1
  2915.         adc     bx,0
  2916.         add     bx,[_skinmargins.top]
  2917.         add     bx,-3
  2918.         add     ebx,ebp
  2919.         jmp     .dodraw
  2920.  
  2921.   .not_skinned:
  2922.         cmp     al,1
  2923.         je      @f
  2924.  
  2925.         mov     ebp,[edi+window_data+WDATA.box.left-2]
  2926.         mov     bp,word[edi+window_data+WDATA.box.top]
  2927.         movzx   eax,word[edi+window_data+WDATA.box.width]
  2928.         sub     eax,16
  2929.         push    edx
  2930.         cwde
  2931.         cdq
  2932.         mov     ebx,6
  2933.         idiv    ebx
  2934.         pop     edx
  2935.         or      eax,eax
  2936.         js      @f
  2937.         mov     esi,eax
  2938.         mov     ebx,0x00080007
  2939.         add     ebx,ebp
  2940. .dodraw:
  2941.         mov     ecx,[common_colours+16];0x00FFFFFF
  2942.         or      ecx, 0x80000000
  2943.         xor     edi,edi
  2944. ; // Alver 22.06.2008 // {
  2945. ;       call    dtext
  2946.         call dtext_asciiz_esi
  2947. ; } \\ Alver \\
  2948.  
  2949.     @@:
  2950. ;--------------------------------------------------------------
  2951.         dec     [mouse_pause]
  2952.         call    [draw_pointer]
  2953.         ret
  2954.  
  2955. iglobal
  2956. align 4
  2957. window_topleft dd \
  2958.   1, 21,\               ;type 0
  2959.   0,  0,\       ;type 1
  2960.   5, 20,\       ;type 2
  2961.   5,  ?,\       ;type 3 {set by skin}
  2962.   5,  ?         ;type 4 {set by skin}
  2963. endg
  2964.  
  2965. set_window_clientbox:
  2966.         push    eax ecx edi
  2967.  
  2968.         mov     eax,[_skinh]
  2969.         mov     [window_topleft+4*7],eax
  2970.         mov     [window_topleft+4*9],eax
  2971.  
  2972.         mov     ecx,edi
  2973.         sub     edi,window_data
  2974.         shl     edi,3
  2975.         test    [ecx+WDATA.fl_wstyle],WSTYLE_CLIENTRELATIVE
  2976.         jz      @f
  2977.  
  2978.         movzx   eax,[ecx+WDATA.fl_wstyle]
  2979.         and     eax,0x0F
  2980.         mov     eax,[eax*8+window_topleft+0]
  2981.         mov     [edi+SLOT_BASE+APPDATA.wnd_clientbox.left],eax
  2982.         shl     eax,1
  2983.         neg     eax
  2984.         add     eax,[ecx+WDATA.box.width]
  2985.         mov     [edi+SLOT_BASE+APPDATA.wnd_clientbox.width],eax
  2986.  
  2987.         movzx   eax,[ecx+WDATA.fl_wstyle]
  2988.         and     eax,0x0F
  2989.         push    [eax*8+window_topleft+0]
  2990.         mov     eax,[eax*8+window_topleft+4]
  2991.         mov     [edi+SLOT_BASE+APPDATA.wnd_clientbox.top],eax
  2992.         neg     eax
  2993.         sub     eax,[esp]
  2994.         add     eax,[ecx+WDATA.box.height]
  2995.         mov     [edi+SLOT_BASE+APPDATA.wnd_clientbox.height],eax
  2996.         add     esp,4
  2997.  
  2998.         pop     edi ecx eax
  2999.         ret
  3000.     @@:
  3001.         xor     eax,eax
  3002.         mov     [edi+SLOT_BASE+APPDATA.wnd_clientbox.left],eax
  3003.         mov     [edi+SLOT_BASE+APPDATA.wnd_clientbox.top],eax
  3004.         mov     eax,[ecx+WDATA.box.width]
  3005.         mov     [edi+SLOT_BASE+APPDATA.wnd_clientbox.width],eax
  3006.         mov     eax,[ecx+WDATA.box.height]
  3007.         mov     [edi+SLOT_BASE+APPDATA.wnd_clientbox.height],eax
  3008.  
  3009.         pop     edi ecx eax
  3010.         ret
  3011.  
  3012. sys_set_window:
  3013.  
  3014.     mov   eax,[CURRENT_TASK]
  3015.     shl   eax,5
  3016.     add   eax,window_data
  3017.  
  3018.     ; colors
  3019.     mov   [eax+WDATA.cl_workarea],edx
  3020.     mov   [eax+WDATA.cl_titlebar],esi
  3021.     mov   [eax+WDATA.cl_frames],edi
  3022.  
  3023.     mov   edi, eax
  3024.  
  3025.     ; check flag (?)
  3026.     test  [edi+WDATA.fl_wdrawn],1
  3027.     jnz   newd
  3028.  
  3029.     mov   eax,[timer_ticks] ;[0xfdf0]
  3030.     add   eax,100
  3031.     mov   [new_window_starting],eax
  3032.  
  3033.     movsx eax,bx
  3034.     mov   [edi+WDATA.box.width],eax
  3035.     movsx eax,cx
  3036.     mov   [edi+WDATA.box.height],eax
  3037.     sar   ebx,16
  3038.     sar   ecx,16
  3039.     mov   [edi+WDATA.box.left],ebx
  3040.     mov   [edi+WDATA.box.top],ecx
  3041.  
  3042.     call  check_window_position
  3043.  
  3044.     call  set_window_clientbox
  3045.  
  3046.     push  ecx esi edi               ; save for window fullscreen/resize
  3047.     ;mov   esi,edi
  3048.  
  3049.         mov     cl, [edi+WDATA.fl_wstyle]
  3050.         mov     eax, [edi+WDATA.cl_frames]
  3051.  
  3052.     sub   edi,window_data
  3053.     shl   edi,3
  3054.     add   edi,SLOT_BASE
  3055.  
  3056.         and     cl,0x0F
  3057.         mov     [edi+APPDATA.wnd_caption],0
  3058.         cmp     cl,3
  3059.         je      set_APPDATA_wnd_caption
  3060.         cmp     cl,4                                                            ; {SPraid.simba}
  3061.         je      set_APPDATA_wnd_caption
  3062.  
  3063.         jmp     @f
  3064.     set_APPDATA_wnd_caption:
  3065.         mov     [edi+APPDATA.wnd_caption],eax
  3066.     @@: mov     esi,[esp+0]
  3067.  
  3068.     add   edi, APPDATA.saved_box
  3069.         movsd
  3070.         movsd
  3071.         movsd
  3072.         movsd
  3073.     pop   edi esi ecx
  3074.  
  3075.         mov     esi, [CURRENT_TASK]
  3076.         movzx   esi, word [WIN_STACK+esi*2]
  3077.         lea     esi, [WIN_POS+esi*2]
  3078.         call    waredraw
  3079.  
  3080. ;;;    mov   ebx, 1
  3081. ;;;    call  delay_hs
  3082.     mov   eax, [edi+WDATA.box.left]
  3083.     mov   ebx, [edi+WDATA.box.top]
  3084.     mov   ecx, [edi+WDATA.box.width]
  3085.     mov   edx, [edi+WDATA.box.height]
  3086.     add   ecx, eax
  3087.     add   edx, ebx
  3088.     call  calculatescreen
  3089.  
  3090.     mov   [KEY_COUNT],byte 0           ; empty keyboard buffer
  3091.     mov   [BTN_COUNT],byte 0           ; empty button buffer
  3092.  
  3093.   newd:
  3094.     mov   [edi+WDATA.fl_redraw],byte 0   ; no redraw
  3095.     mov   edx,edi
  3096.  
  3097.     ret
  3098.  
  3099. syscall_windowsettings:
  3100.  
  3101.   .set_window_caption:
  3102.         dec     eax     ; subfunction #1 - set window caption
  3103.         jnz     .get_window_caption
  3104.  
  3105.         ; NOTE: only window owner thread can set its caption,
  3106.         ;       so there's no parameter for PID/TID
  3107.  
  3108.         mov     edi,[CURRENT_TASK]
  3109.         shl     edi,5
  3110.  
  3111.         ; have to check if caption is within application memory limit
  3112.         ; check is trivial, and if application resizes its memory,
  3113.         ;   caption still can become over bounds
  3114. ; diamond, 31.10.2006: check removed because with new memory manager
  3115. ; there can be valid data after APPDATA.mem_size bound
  3116. ;        mov     ecx,[edi*8+SLOT_BASE+APPDATA.mem_size]
  3117. ;        add     ecx,255 ; max caption length
  3118. ;        cmp     ebx,ecx
  3119. ;        ja      .exit_fail
  3120.  
  3121.         mov     [edi*8+SLOT_BASE+APPDATA.wnd_caption],ebx
  3122.         or      [edi+window_data+WDATA.fl_wstyle],WSTYLE_HASCAPTION
  3123.  
  3124.         call    draw_window_caption
  3125.  
  3126.         xor     eax,eax ; eax = 0 (success)
  3127.         ret
  3128.  
  3129.   .get_window_caption:
  3130.         dec     eax     ; subfunction #2 - get window caption
  3131.         jnz     .exit_fail
  3132.  
  3133.         ; not implemented yet
  3134.  
  3135.   .exit_fail:
  3136.         xor     eax,eax
  3137.         inc     eax     ; eax = 1 (fail)
  3138.         ret
  3139.  
  3140.  
  3141. sys_window_move:
  3142.  
  3143.         mov     edi,[CURRENT_TASK]
  3144.         shl     edi,5
  3145.         add     edi,window_data
  3146.  
  3147.         test    [edi+WDATA.fl_wstate],WSTATE_MAXIMIZED
  3148.         jnz     .window_move_return
  3149.  
  3150.         push    dword [edi + WDATA.box.left]  ; save old coordinates
  3151.         push    dword [edi + WDATA.box.top]
  3152.         push    dword [edi + WDATA.box.width]
  3153.         push    dword [edi + WDATA.box.height]
  3154.  
  3155.         cmp   eax,-1                  ; set new position and size
  3156.         je    .no_x_reposition
  3157.         mov     [edi + WDATA.box.left], eax
  3158.       .no_x_reposition:
  3159.         cmp   ebx,-1
  3160.         je    .no_y_reposition
  3161.         mov     [edi + WDATA.box.top], ebx
  3162.       .no_y_reposition:
  3163.  
  3164.         test    [edi+WDATA.fl_wstate],WSTATE_ROLLEDUP
  3165.         jnz     .no_y_resizing
  3166.  
  3167.         cmp   ecx,-1
  3168.         je    .no_x_resizing
  3169.         mov     [edi + WDATA.box.width], ecx
  3170.       .no_x_resizing:
  3171.         cmp   edx,-1
  3172.         je    .no_y_resizing
  3173.         mov     [edi + WDATA.box.height], edx
  3174.       .no_y_resizing:
  3175.  
  3176.         call  check_window_position
  3177.         call  set_window_clientbox
  3178.  
  3179.         pushad                       ; save for window fullscreen/resize
  3180.         mov   esi,edi
  3181.         sub   edi,window_data
  3182.         shr   edi,5
  3183.         shl   edi,8
  3184.         add   edi, SLOT_BASE + APPDATA.saved_box
  3185.         mov   ecx,4
  3186.         cld
  3187.         rep   movsd
  3188.         popad
  3189.  
  3190.         pushad                       ; calculcate screen at new position
  3191.         mov   eax, [edi + WDATA.box.left]
  3192.         mov   ebx, [edi + WDATA.box.top]
  3193.         mov   ecx, [edi + WDATA.box.width]
  3194.         mov   edx, [edi + WDATA.box.height]
  3195.         add   ecx,eax
  3196.         add   edx,ebx
  3197.  
  3198.         call  calculatescreen
  3199.         popad
  3200.  
  3201.         pop   edx                   ; calculcate screen at old position
  3202.         pop   ecx
  3203.         pop   ebx
  3204.         pop   eax
  3205.         add   ecx,eax
  3206.         add   edx,ebx
  3207.         mov   [dlx],eax             ; save for drawlimits
  3208.         mov   [dly],ebx
  3209.         mov   [dlxe],ecx
  3210.         mov   [dlye],edx
  3211.         call  calculatescreen
  3212.  
  3213.         mov   [edi + WDATA.fl_redraw], 1 ; flag the process as redraw
  3214.  
  3215.         mov   eax,edi               ; redraw screen at old position
  3216.         xor   esi,esi
  3217.         call  redrawscreen
  3218.  
  3219.         mov   [DONT_DRAW_MOUSE],byte 0 ; mouse pointer
  3220.         mov   [MOUSE_BACKGROUND],byte 0 ; no mouse under
  3221.         mov   [MOUSE_DOWN],byte 0 ; react to mouse up/down
  3222.  
  3223.         call  [draw_pointer]
  3224.  
  3225.         mov   [window_move_pr],0
  3226.  
  3227.       .window_move_return:
  3228.  
  3229.         ret
  3230.  
  3231. uglobal
  3232.   window_move_pr   dd  0x0
  3233.   window_move_eax  dd  0x0
  3234.   window_move_ebx  dd  0x0
  3235.   window_move_ecx  dd  0x0
  3236.   window_move_edx  dd  0x0
  3237. endg
  3238.  
  3239. ;ok - 100% work
  3240. ;nt - not tested
  3241. ;---------------------------------------------------------------------------------------------
  3242. ;eax
  3243. ;0 - task switch counter. Ret switch counter in eax. Block. ok.
  3244. ;1 - change task. Ret nothing. Block. ok.
  3245. ;2 - performance control
  3246. ; ebx
  3247. ; 0 - enable or disable (inversion) PCE flag on CR4 for rdmpc in user mode.
  3248. ; returned new cr4 in eax. Ret cr4 in eax. Block. ok.
  3249. ; 1 - is cache enabled. Ret cr0 in eax if enabled else zero in eax. Block. ok.
  3250. ; 2 - enable cache. Ret 1 in eax. Ret nothing. Block. ok.
  3251. ; 3 - disable cache. Ret 0 in eax. Ret nothing. Block. ok.
  3252. ;eax
  3253. ;3 - rdmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
  3254. ;4 - wrmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
  3255. ;---------------------------------------------------------------------------------------------
  3256. sys_sheduler: ;noname & halyavin
  3257.     cmp eax,0
  3258.     je shed_counter
  3259.     cmp eax,2
  3260.     je perf_control
  3261.     cmp eax,3
  3262.     je rdmsr_instr
  3263.     cmp eax,4
  3264.     je wrmsr_instr
  3265.     cmp eax,1
  3266.     jne not_supported
  3267.     call change_task ;delay,0
  3268. ret
  3269. shed_counter:
  3270.     mov eax,[context_counter]
  3271.     mov [esp+36],eax
  3272. not_supported:
  3273. ret
  3274. perf_control:
  3275.     inc eax ;now eax=3
  3276.     cmp ebx,eax
  3277.     je cache_disable
  3278.     dec eax
  3279.     cmp ebx,eax
  3280.     je cache_enable
  3281.     dec eax
  3282.     cmp ebx,eax
  3283.     je is_cache_enabled
  3284.     dec eax
  3285.     cmp ebx,eax
  3286.     je modify_pce
  3287. ret
  3288.  
  3289. rdmsr_instr:
  3290. ;now counter in ecx
  3291. ;(edx:eax) esi:edi => edx:esi
  3292. mov eax,esi
  3293. rdmsr
  3294. mov [esp+36],eax
  3295. mov [esp+24],edx ;ret in ebx?
  3296. ret
  3297.  
  3298. wrmsr_instr:
  3299. ;now counter in ecx
  3300. ;(edx:eax) esi:edi => edx:esi
  3301.         ; Fast Call MSR can't be destroy
  3302.         ; Íî MSR_AMD_EFER ìîæíî èçìåíÿòü, ò.ê. â ýòîì ðåãèñòðå ëèø
  3303.         ; âêëþ÷àþòñÿ/âûêëþ÷àþòñÿ ðàñøèðåííûå âîçìîæíîñòè
  3304.         cmp     ecx, MSR_SYSENTER_CS
  3305.         je      @f
  3306.         cmp     ecx, MSR_SYSENTER_ESP
  3307.         je      @f
  3308.         cmp     ecx, MSR_SYSENTER_EIP
  3309.         je      @f
  3310.         cmp     ecx, MSR_AMD_STAR
  3311.         je      @f
  3312.  
  3313.         mov     eax, esi
  3314.         wrmsr
  3315.         ; mov   [esp + 36], eax
  3316.         ; mov   [esp + 24], edx ;ret in ebx?
  3317. @@:
  3318. ret
  3319.  
  3320. cache_disable:
  3321.        mov eax,cr0
  3322.        or  eax,01100000000000000000000000000000b
  3323.        mov cr0,eax
  3324.        wbinvd ;set MESI
  3325. ret
  3326.  
  3327. cache_enable:
  3328.        mov eax,cr0
  3329.        and eax,10011111111111111111111111111111b
  3330.        mov cr0,eax
  3331. ret
  3332.  
  3333. is_cache_enabled:
  3334.        mov eax,cr0
  3335.        mov ebx,eax
  3336.        and eax,01100000000000000000000000000000b
  3337.        jz cache_disabled
  3338.        mov [esp+36],ebx
  3339. cache_disabled:
  3340.        mov dword [esp+36],eax ;0
  3341. ret
  3342.  
  3343. modify_pce:
  3344.        mov eax,cr4
  3345. ;       mov ebx,0
  3346. ;       or  bx,100000000b ;pce
  3347. ;       xor eax,ebx ;invert pce
  3348.        bts eax,8 ;pce=cr4[8]
  3349.        mov cr4,eax
  3350.        mov [esp+36],eax
  3351. ret
  3352. ;---------------------------------------------------------------------------------------------
  3353.  
  3354.  
  3355. ; check if pixel is allowed to be drawn
  3356.  
  3357. checkpixel:
  3358.         push eax edx
  3359.  
  3360.         mov  edx,[Screen_Max_X]     ; screen x size
  3361.         inc  edx
  3362.         imul edx, ebx
  3363.         mov  dl, [eax+edx+display_data] ; lea eax, [...]
  3364.  
  3365.         xor  ecx, ecx
  3366.         mov  eax, [CURRENT_TASK]
  3367.         cmp  al, dl
  3368.         setne cl
  3369.  
  3370.         pop  edx eax
  3371.         ret
  3372.  
  3373. iglobal
  3374.   cpustring db 'CPU',0
  3375. endg
  3376.  
  3377. uglobal
  3378. background_defined    db    0    ; diamond, 11.04.2006
  3379. endg
  3380.  
  3381. align 4
  3382. ; check misc
  3383.  
  3384. checkmisc:
  3385.  
  3386.     cmp   [ctrl_alt_del], 1
  3387.     jne   nocpustart
  3388.  
  3389.         mov     ebp, cpustring
  3390.         call    fs_execute_from_sysdir
  3391.  
  3392.     mov   [ctrl_alt_del], 0
  3393.  
  3394. nocpustart:
  3395.     cmp   [mouse_active], 1
  3396.     jne   mouse_not_active
  3397.     mov   [mouse_active], 0
  3398.     xor   edi, edi
  3399.     mov   ecx,  [TASK_COUNT]
  3400. set_mouse_event:
  3401.     add   edi, 256
  3402.     or    [edi+SLOT_BASE+APPDATA.event_mask], dword 100000b
  3403.     loop  set_mouse_event
  3404.  
  3405. mouse_not_active:
  3406.     cmp   [REDRAW_BACKGROUND],byte 0               ; background update ?
  3407.     jz    nobackgr
  3408.     cmp    [background_defined], 0
  3409.     jz    nobackgr
  3410.     cmp   [REDRAW_BACKGROUND], byte 2
  3411.     jnz   no_set_bgr_event
  3412.     xor   edi, edi
  3413.     mov   ecx,  [TASK_COUNT]
  3414. set_bgr_event:
  3415.     add   edi, 256
  3416.     or    [edi+SLOT_BASE+APPDATA.event_mask], 16
  3417.     loop  set_bgr_event
  3418. no_set_bgr_event:
  3419. ;    mov   [draw_data+32 + RECT.left],dword 0
  3420. ;    mov   [draw_data+32 + RECT.top],dword 0
  3421. ;    mov   eax,[Screen_Max_X]
  3422. ;    mov   ebx,[Screen_Max_Y]
  3423. ;    mov   [draw_data+32 + RECT.right],eax
  3424. ;    mov   [draw_data+32 + RECT.bottom],ebx
  3425.     call  drawbackground
  3426.     mov   [REDRAW_BACKGROUND],byte 0
  3427.     mov   [MOUSE_BACKGROUND],byte 0
  3428.  
  3429. nobackgr:
  3430.  
  3431.     ; system shutdown request
  3432.  
  3433.     cmp  [SYS_SHUTDOWN],byte 0
  3434.     je   noshutdown
  3435.  
  3436.     mov  edx,[shutdown_processes]
  3437.  
  3438.     cmp  [SYS_SHUTDOWN],dl
  3439.     jne  no_mark_system_shutdown
  3440.  
  3441.     lea   ecx,[edx-1]
  3442.     mov   edx,OS_BASE+0x3040
  3443.     jecxz @f
  3444. markz:
  3445.     mov   [edx+TASKDATA.state],byte 3
  3446.     add   edx,0x20
  3447.     loop  markz
  3448. @@:
  3449.  
  3450.   no_mark_system_shutdown:
  3451.  
  3452.     call [disable_mouse]
  3453.  
  3454.     dec  byte [SYS_SHUTDOWN]
  3455.     je   system_shutdown
  3456.  
  3457. noshutdown:
  3458.  
  3459.  
  3460.     mov   eax,[TASK_COUNT]                  ; termination
  3461.     mov   ebx,TASK_DATA+TASKDATA.state
  3462.     mov   esi,1
  3463.  
  3464. newct:
  3465.     mov   cl,[ebx]
  3466.     cmp   cl,byte 3
  3467.     jz    terminate
  3468.     cmp   cl,byte 4
  3469.     jz    terminate
  3470.  
  3471.     add   ebx,0x20
  3472.     inc   esi
  3473.     dec   eax
  3474.     jnz   newct
  3475.     ret
  3476.  
  3477. ; redraw screen
  3478.  
  3479. redrawscreen:
  3480.  
  3481. ; eax , if process window_data base is eax, do not set flag/limits
  3482.  
  3483.          pushad
  3484.          push  eax
  3485.  
  3486. ;;;         mov   ebx,2
  3487. ;;;         call  delay_hs
  3488.  
  3489.          ;mov   ecx,0               ; redraw flags for apps
  3490.          xor   ecx,ecx
  3491.        newdw2:
  3492.  
  3493.          inc   ecx
  3494.          push  ecx
  3495.  
  3496.          mov   eax,ecx
  3497.          shl   eax,5
  3498.          add   eax,window_data
  3499.  
  3500.          cmp   eax,[esp+4]
  3501.          je    not_this_task
  3502.                                    ; check if window in redraw area
  3503.          mov   edi,eax
  3504.  
  3505.          cmp   ecx,1               ; limit for background
  3506.          jz    bgli
  3507.  
  3508.          mov   eax, [edi + WDATA.box.left]
  3509.          mov   ebx, [edi + WDATA.box.top]
  3510.          mov   ecx, [edi + WDATA.box.width]
  3511.          mov   edx, [edi + WDATA.box.height]
  3512.          add   ecx,eax
  3513.          add   edx,ebx
  3514.  
  3515.          mov   ecx,[dlye]   ; ecx = area y end     ebx = window y start
  3516.          cmp   ecx,ebx
  3517.          jb    ricino
  3518.  
  3519.          mov   ecx,[dlxe]   ; ecx = area x end     eax = window x start
  3520.          cmp   ecx,eax
  3521.          jb    ricino
  3522.  
  3523.          mov   eax, [edi + WDATA.box.left]
  3524.          mov   ebx, [edi + WDATA.box.top]
  3525.          mov   ecx, [edi + WDATA.box.width]
  3526.          mov   edx, [edi + WDATA.box.height]
  3527.          add   ecx, eax
  3528.          add   edx, ebx
  3529.  
  3530.          mov   eax,[dly]    ; eax = area y start     edx = window y end
  3531.          cmp   edx,eax
  3532.          jb    ricino
  3533.  
  3534.          mov   eax,[dlx]    ; eax = area x start     ecx = window x end
  3535.          cmp   ecx,eax
  3536.          jb    ricino
  3537.  
  3538.         bgli:
  3539.  
  3540.          cmp   ecx,1
  3541.          jnz   .az
  3542.          mov   al,[REDRAW_BACKGROUND]
  3543.          cmp   al,2
  3544.          jz    newdw8
  3545.          test  al,al
  3546.          jz    .az
  3547.          lea   eax,[edi+draw_data-window_data]
  3548.          mov   ebx,[dlx]
  3549.          cmp   ebx,[eax+RECT.left]
  3550.          jae   @f
  3551.          mov   [eax+RECT.left],ebx
  3552.         @@:
  3553.          mov   ebx,[dly]
  3554.          cmp   ebx,[eax+RECT.top]
  3555.          jae   @f
  3556.          mov   [eax+RECT.top],ebx
  3557.         @@:
  3558.          mov   ebx,[dlxe]
  3559.          cmp   ebx,[eax+RECT.right]
  3560.          jbe   @f
  3561.          mov   [eax+RECT.right],ebx
  3562.         @@:
  3563.          mov   ebx,[dlye]
  3564.          cmp   ebx,[eax+RECT.bottom]
  3565.          jbe   @f
  3566.          mov   [eax+RECT.bottom],ebx
  3567.         @@:
  3568.          jmp   newdw8
  3569.         .az:
  3570.  
  3571.          mov   eax,edi
  3572.          add   eax,draw_data-window_data
  3573.  
  3574.          mov   ebx,[dlx]          ; set limits
  3575.          mov   [eax + RECT.left], ebx
  3576.          mov   ebx,[dly]
  3577.          mov   [eax + RECT.top], ebx
  3578.          mov   ebx,[dlxe]
  3579.          mov   [eax + RECT.right], ebx
  3580.          mov   ebx,[dlye]
  3581.          mov   [eax + RECT.bottom], ebx
  3582.  
  3583.          sub   eax,draw_data-window_data
  3584.  
  3585.          cmp   dword [esp],1
  3586.          jne   nobgrd
  3587.          mov   byte [REDRAW_BACKGROUND], 1
  3588.  
  3589.        newdw8:
  3590.        nobgrd:
  3591.  
  3592.          mov   [eax + WDATA.fl_redraw],byte 1    ; mark as redraw
  3593.  
  3594.        ricino:
  3595.  
  3596.        not_this_task:
  3597.  
  3598.          pop   ecx
  3599.  
  3600.          cmp   ecx,[TASK_COUNT]
  3601.          jle   newdw2
  3602.  
  3603.          pop  eax
  3604.          popad
  3605.  
  3606.          ret
  3607.  
  3608. calculatebackground:   ; background
  3609.  
  3610.         ; all black
  3611.  
  3612.         mov   edi, [img_background]  ;IMG_BACKGROUND                 ; set background to black
  3613.         xor   eax, eax
  3614.         mov   ecx, 1023    ;0x0fff00 / 4
  3615.         cld
  3616.         rep   stosd
  3617.  
  3618.         mov   edi,display_data              ; set os to use all pixels
  3619.         mov   eax,0x01010101
  3620.         mov   ecx,1280*1024 / 4
  3621.         rep   stosd
  3622.  
  3623.         mov   byte [REDRAW_BACKGROUND], 0              ; do not draw background!
  3624.  
  3625.         ret
  3626.  
  3627. uglobal
  3628.   imax    dd 0x0
  3629. endg
  3630.  
  3631.  
  3632.  
  3633. delay_ms:     ; delay in 1/1000 sec
  3634.  
  3635.  
  3636.         push  eax
  3637.         push  ecx
  3638.  
  3639.         mov   ecx,esi
  3640.         ; <CPU clock fix by Sergey Kuzmin aka Wildwest>
  3641.         imul  ecx, 33941
  3642.         shr   ecx, 9
  3643.         ; </CPU clock fix>
  3644.  
  3645.         in    al,0x61
  3646.         and   al,0x10
  3647.         mov   ah,al
  3648.         cld
  3649.  
  3650.  cnt1:  in    al,0x61
  3651.         and   al,0x10
  3652.         cmp   al,ah
  3653.         jz    cnt1
  3654.  
  3655.         mov   ah,al
  3656.         loop  cnt1
  3657.  
  3658.         pop   ecx
  3659.         pop   eax
  3660.  
  3661.         ret
  3662.  
  3663.  
  3664. set_app_param:
  3665.         mov     edi, [TASK_BASE]
  3666.         mov     [edi + TASKDATA.event_mask], ebx
  3667.         ret
  3668.  
  3669.  
  3670.  
  3671. delay_hs:     ; delay in 1/100 secs
  3672. ; ebx = delay time
  3673.         push  ecx
  3674.         push  edx
  3675.  
  3676.         mov   edx,[timer_ticks]
  3677.  
  3678.       newtic:
  3679.         mov   ecx,[timer_ticks]
  3680.         sub   ecx,edx
  3681.         cmp   ecx,ebx
  3682.         jae   zerodelay
  3683.  
  3684.         call  change_task
  3685.  
  3686.         jmp   newtic
  3687.  
  3688.       zerodelay:
  3689.         pop   edx
  3690.         pop   ecx
  3691.  
  3692.         ret
  3693.  
  3694.  
  3695. memmove:       ; memory move in bytes
  3696.  
  3697. ; eax = from
  3698. ; ebx = to
  3699. ; ecx = no of bytes
  3700.     test ecx, ecx
  3701.     jle  .ret
  3702.  
  3703.  
  3704.     push esi edi ecx
  3705.  
  3706.     mov  edi, ebx
  3707.     mov  esi, eax
  3708.  
  3709.     test ecx, not 11b
  3710.     jz   @f
  3711.  
  3712.     push ecx
  3713.     shr  ecx, 2
  3714.     rep  movsd
  3715.     pop  ecx
  3716.     and  ecx, 11b
  3717.     jz   .finish
  3718.   @@:
  3719.     rep  movsb
  3720.  
  3721.   .finish:
  3722.     pop  ecx edi esi
  3723.   .ret:
  3724.     ret
  3725.  
  3726.  
  3727. ; <diamond> Sysfunction 34, read_floppy_file, is obsolete. Use 58 or 70 function instead.
  3728. ;align 4
  3729. ;
  3730. ;read_floppy_file:
  3731. ;
  3732. ;; as input
  3733. ;;
  3734. ;; eax pointer to file
  3735. ;; ebx file lenght
  3736. ;; ecx start 512 byte block number
  3737. ;; edx number of blocks to read
  3738. ;; esi pointer to return/work area (atleast 20 000 bytes)
  3739. ;;
  3740. ;;
  3741. ;; on return
  3742. ;;
  3743. ;; eax = 0 command succesful
  3744. ;;       1 no fd base and/or partition defined
  3745. ;;       2 yet unsupported FS
  3746. ;;       3 unknown FS
  3747. ;;       4 partition not defined at hd
  3748. ;;       5 file not found
  3749. ;; ebx = size of file
  3750. ;
  3751. ;     mov   edi,[TASK_BASE]
  3752. ;     add   edi,0x10
  3753. ;     add   esi,[edi]
  3754. ;     add   eax,[edi]
  3755. ;
  3756. ;     pushad
  3757. ;     mov  edi,esi
  3758. ;     add  edi,1024
  3759. ;     mov  esi,0x100000+19*512
  3760. ;     sub  ecx,1
  3761. ;     shl  ecx,9
  3762. ;     add  esi,ecx
  3763. ;     shl  edx,9
  3764. ;     mov  ecx,edx
  3765. ;     cld
  3766. ;     rep  movsb
  3767. ;     popad
  3768. ;
  3769. ;     mov   [esp+36],eax
  3770. ;     mov   [esp+24],ebx
  3771. ;     ret
  3772.  
  3773.  
  3774.  
  3775. align 4
  3776.  
  3777. sys_programirq:
  3778.  
  3779.     mov   eax, [TASK_BASE]
  3780.     add   ebx, [eax + TASKDATA.mem_start]
  3781.  
  3782.     cmp   ecx, 16
  3783.     jae   .not_owner
  3784.     mov   edi, [eax + TASKDATA.pid]
  3785.     cmp   edi, [irq_owner + 4 * ecx]
  3786.     je    .spril1
  3787. .not_owner:
  3788.     xor   ecx, ecx
  3789.     jmp   .end
  3790.   .spril1:
  3791.  
  3792.     shl   ecx, 6
  3793.     mov   esi, ebx
  3794.     lea   edi, [irq00read + ecx]
  3795.     push  16
  3796.     pop   ecx
  3797.  
  3798.     cld
  3799.     rep   movsd
  3800.   .end:
  3801.     mov   [esp+32], ecx
  3802.     ret
  3803.  
  3804.  
  3805. align 4
  3806.  
  3807. get_irq_data:
  3808.      movzx esi, bh                       ; save number of subfunction, if bh = 1, return data size, otherwise, read data
  3809.      xor   bh, bh
  3810.      cmp   ebx, 16
  3811.      jae   .not_owner
  3812.      mov   edx, [4 * ebx + irq_owner]    ; check for irq owner
  3813.  
  3814.      mov   eax,[TASK_BASE]
  3815.  
  3816.      cmp   edx,[eax+TASKDATA.pid]
  3817.      je    gidril1
  3818. .not_owner:
  3819.      xor   edx, edx
  3820.      dec   edx
  3821.      jmp   gid1
  3822.  
  3823.   gidril1:
  3824.  
  3825.      shl   ebx, 12
  3826.      lea   eax, [ebx + IRQ_SAVE]         ; calculate address of the beginning of buffer + 0x0 - data size
  3827.      mov   edx, [eax]                    ;                                              + 0x4 - data offset
  3828.      dec   esi
  3829.      jz    gid1
  3830.      test  edx, edx                      ; check if buffer is empty
  3831.      jz    gid1
  3832.  
  3833.      mov   ebx, [eax + 0x4]
  3834.      mov   edi, ecx
  3835.  
  3836.      mov   ecx, 4000                     ; buffer size, used frequently
  3837.  
  3838.      cmp   ebx, ecx                      ; check for the end of buffer, if end of buffer, begin cycle again
  3839.      jb    @f
  3840.  
  3841.      xor   ebx, ebx
  3842.  
  3843.    @@:
  3844.  
  3845.      lea   esi, [ebx + edx]              ; calculate data size and offset
  3846.      cld
  3847.      cmp   esi, ecx                      ; if greater than the buffer size, begin cycle again
  3848.      jbe   @f
  3849.  
  3850.      sub   ecx, ebx
  3851.      sub   edx, ecx
  3852.  
  3853.      lea   esi, [eax + ebx + 0x10]
  3854.      rep   movsb
  3855.  
  3856.      xor   ebx, ebx
  3857.    @@:
  3858.      lea   esi, [eax + ebx + 0x10]
  3859.      mov   ecx, edx
  3860.      add   ebx, edx
  3861.  
  3862.      rep   movsb
  3863.      mov   edx, [eax]
  3864.      mov   [eax], ecx                    ; set data size to zero
  3865.      mov   [eax + 0x4], ebx              ; set data offset
  3866.  
  3867.    gid1:
  3868.      mov   [esp+32], edx                 ; eax
  3869.      ret
  3870.  
  3871.  
  3872. set_io_access_rights:
  3873.  
  3874.      pushad
  3875.  
  3876.      mov edi, tss._io_map_0
  3877.  
  3878. ;     mov   ecx,eax
  3879. ;     and   ecx,7    ; offset in byte
  3880.  
  3881. ;     shr   eax,3    ; number of byte
  3882. ;     add   edi,eax
  3883.  
  3884. ;     mov   ebx,1
  3885. ;     shl   ebx,cl
  3886.  
  3887.      cmp   ebp,0                ; enable access - ebp = 0
  3888.      jne   siar1
  3889.  
  3890. ;     not   ebx
  3891. ;     and   [edi],byte bl
  3892.      btr [edi], eax
  3893.  
  3894.      popad
  3895.  
  3896.      ret
  3897.  
  3898. siar1:
  3899.  
  3900.      bts [edi], eax
  3901.   ;  or    [edi],byte bl        ; disable access - ebp = 1
  3902.  
  3903.      popad
  3904.  
  3905.      ret
  3906.  
  3907. r_f_port_area:
  3908.  
  3909.      test  eax, eax
  3910.      jnz   free_port_area
  3911. ;     je    r_port_area
  3912. ;     jmp   free_port_area
  3913.  
  3914. ;   r_port_area:
  3915.  
  3916.      pushad
  3917.  
  3918.      cmp   ebx,ecx            ; beginning > end ?
  3919.      ja    rpal1
  3920.      cmp   ecx,65536
  3921.      jae   rpal1
  3922.      mov   esi,[RESERVED_PORTS]
  3923.      test  esi,esi            ; no reserved areas ?
  3924.      je    rpal2
  3925.      cmp   esi,255            ; max reserved
  3926.      jae   rpal1
  3927.  rpal3:
  3928.      mov   edi,esi
  3929.      shl   edi,4
  3930.      add   edi,RESERVED_PORTS
  3931.      cmp   ebx,[edi+8]
  3932.      ja    rpal4
  3933.      cmp   ecx,[edi+4]
  3934.      jae   rpal1
  3935. ;     jb    rpal4
  3936. ;     jmp   rpal1
  3937.  rpal4:
  3938.  
  3939.      dec   esi
  3940.      jnz   rpal3
  3941.      jmp   rpal2
  3942.    rpal1:
  3943.      popad
  3944.      mov   eax,1
  3945.      ret
  3946.  
  3947.    rpal2:
  3948.      popad
  3949.  
  3950.  
  3951.      ; enable port access at port IO map
  3952.      cli
  3953.      pushad                        ; start enable io map
  3954.  
  3955.      cmp   ecx,65536 ;16384
  3956.      jae   no_unmask_io ; jge
  3957.  
  3958.      mov   eax,ebx
  3959.  
  3960.    new_port_access:
  3961.  
  3962.      pushad
  3963.  
  3964.      xor   ebp,ebp                ; enable - eax = port
  3965.      call  set_io_access_rights
  3966.  
  3967.      popad
  3968.  
  3969.      inc   eax
  3970.      cmp   eax,ecx
  3971.      jbe   new_port_access
  3972.  
  3973.    no_unmask_io:
  3974.  
  3975.      popad                         ; end enable io map
  3976.      sti
  3977.  
  3978.      mov   edi,[RESERVED_PORTS]
  3979.      add   edi,1
  3980.      mov   [RESERVED_PORTS],edi
  3981.      shl   edi,4
  3982.      add   edi,RESERVED_PORTS
  3983.      mov   esi,[TASK_BASE]
  3984.      mov   esi,[esi+TASKDATA.pid]
  3985.      mov   [edi],esi
  3986.      mov   [edi+4],ebx
  3987.      mov   [edi+8],ecx
  3988.  
  3989.      xor   eax, eax
  3990.      ret
  3991.  
  3992. free_port_area:
  3993.  
  3994.      pushad
  3995.  
  3996.      mov   esi,[RESERVED_PORTS]     ; no reserved areas ?
  3997.      test  esi,esi
  3998.      je    frpal2
  3999.      mov   edx,[TASK_BASE]
  4000.      mov   edx,[edx+TASKDATA.pid]
  4001.    frpal3:
  4002.      mov   edi,esi
  4003.      shl   edi,4
  4004.      add   edi,RESERVED_PORTS
  4005.      cmp   edx,[edi]
  4006.      jne   frpal4
  4007.      cmp   ebx,[edi+4]
  4008.      jne   frpal4
  4009.      cmp   ecx,[edi+8]
  4010.      jne   frpal4
  4011.      jmp   frpal1
  4012.    frpal4:
  4013.      dec   esi
  4014.      jnz   frpal3
  4015.    frpal2:
  4016.      popad
  4017.      mov   eax,1
  4018.      ret
  4019.    frpal1:
  4020.      mov   ecx,256
  4021.      sub   ecx,esi
  4022.      shl   ecx,4
  4023.      mov   esi,edi
  4024.      add   esi,16
  4025.      cld
  4026.      rep   movsb
  4027.  
  4028.      dec   dword [RESERVED_PORTS]
  4029.  
  4030.      popad
  4031.  
  4032.  
  4033.      ; disable port access at port IO map
  4034.  
  4035.      pushad                        ; start disable io map
  4036.  
  4037.      cmp   ecx,65536 ;16384
  4038.      jge   no_mask_io
  4039.  
  4040.      mov   eax,ebx
  4041.  
  4042.    new_port_access_disable:
  4043.  
  4044.      pushad
  4045.  
  4046.      mov   ebp,1                  ; disable - eax = port
  4047.      call  set_io_access_rights
  4048.  
  4049.      popad
  4050.  
  4051.      inc   eax
  4052.      cmp   eax,ecx
  4053.      jbe   new_port_access_disable
  4054.  
  4055.    no_mask_io:
  4056.  
  4057.      popad                         ; end disable io map
  4058.  
  4059.      xor   eax, eax
  4060.      ret
  4061.  
  4062.  
  4063. reserve_free_irq:
  4064.  
  4065.      xor   esi, esi
  4066.      inc   esi
  4067.      cmp   ecx, 16
  4068.      jae   ril1
  4069.  
  4070.      push  ecx
  4071.      lea   ecx, [irq_owner + 4 * ecx]
  4072.      mov   edx, [ecx]
  4073.      mov   eax, [TASK_BASE]
  4074.      mov   edi, [eax + TASKDATA.pid]
  4075.      pop   eax
  4076.      dec   ebx
  4077.      jnz   reserve_irq
  4078.  
  4079.      cmp   edx, edi
  4080.      jne   ril1
  4081.      dec   esi
  4082.      mov   [ecx], esi
  4083.  
  4084.      jmp   ril1
  4085.  
  4086.   reserve_irq:
  4087.  
  4088.      cmp   dword [ecx], 0
  4089.      jne   ril1
  4090.  
  4091.      mov   ebx, [f_irqs + 4 * eax]
  4092.  
  4093.      stdcall attach_int_handler, eax, ebx, dword 0
  4094.  
  4095.      mov   [ecx], edi
  4096.  
  4097.      dec   esi
  4098.    ril1:
  4099.      mov   [esp+32], esi ; return in eax
  4100.      ret
  4101.  
  4102. iglobal
  4103. f_irqs:
  4104.      dd 0x0
  4105.      dd 0x0
  4106.      dd p_irq2
  4107.      dd p_irq3
  4108.      dd p_irq4
  4109.      dd p_irq5
  4110.      dd p_irq6
  4111.      dd p_irq7
  4112.      dd p_irq8
  4113.      dd p_irq9
  4114.      dd p_irq10
  4115.      dd p_irq11
  4116.      dd 0x0
  4117.      dd 0x0
  4118.      dd p_irq14
  4119.      dd p_irq15
  4120.  
  4121. endg
  4122.  
  4123. drawbackground:
  4124.        inc   [mouse_pause]
  4125.        cmp   [SCR_MODE],word 0x12
  4126.        je   dbrv20
  4127.      dbrv12:
  4128.        cmp  [SCR_MODE],word 0100000000000000b
  4129.        jge  dbrv20
  4130.        cmp  [SCR_MODE],word 0x13
  4131.        je   dbrv20
  4132.        call  vesa12_drawbackground
  4133.        dec   [mouse_pause]
  4134.        call   [draw_pointer]
  4135.        ret
  4136.      dbrv20:
  4137.        cmp   [BgrDrawMode],dword 1
  4138.        jne   bgrstr
  4139.        call  vesa20_drawbackground_tiled
  4140.        dec   [mouse_pause]
  4141.        call   [draw_pointer]
  4142.        ret
  4143.      bgrstr:
  4144.        call  vesa20_drawbackground_stretch
  4145.        dec   [mouse_pause]
  4146.        call   [draw_pointer]
  4147.        ret
  4148.  
  4149. align 4
  4150.  
  4151. syscall_putimage:                       ; PutImage
  4152. sys_putimage:
  4153.      test  ecx,0x80008000
  4154.      jnz   .exit
  4155.      test  ecx,0x0000FFFF
  4156.      jz    .exit
  4157.      test  ecx,0xFFFF0000
  4158.      jnz   @f
  4159.   .exit:
  4160.      ret
  4161.  @@:
  4162.         mov     edi,[current_slot]
  4163.         add     dx,word[edi+APPDATA.wnd_clientbox.top]
  4164.         rol     edx,16
  4165.         add     dx,word[edi+APPDATA.wnd_clientbox.left]
  4166.         rol     edx,16
  4167.   .forced:
  4168.         push    ebp esi 0
  4169.         mov     ebp, putimage_get24bpp
  4170.         mov     esi, putimage_init24bpp
  4171. sys_putimage_bpp:
  4172. ;        call    [disable_mouse] ; this will be done in xxx_putimage
  4173. ;        mov     eax, vga_putimage
  4174.         cmp     [SCR_MODE], word 0x12
  4175.         jz      @f   ;.doit
  4176.         mov     eax, vesa12_putimage
  4177.         cmp     [SCR_MODE], word 0100000000000000b
  4178.         jae     @f
  4179.         cmp     [SCR_MODE], word 0x13
  4180.         jnz     .doit
  4181. @@:
  4182.         mov     eax, vesa20_putimage
  4183. .doit:
  4184.         inc     [mouse_pause]
  4185.         call    eax
  4186.         dec     [mouse_pause]
  4187.         pop     ebp esi ebp
  4188.         jmp     [draw_pointer]
  4189.  
  4190. syscall_putimage_palette:
  4191.         mov     edi, esi
  4192.         mov     esi, edx
  4193.         mov     edx, ecx
  4194.         mov     ecx, ebx
  4195.         mov     ebx, eax
  4196. sys_putimage_palette:
  4197. ; ebx = pointer to image
  4198. ; ecx = [xsize]*65536 + [ysize]
  4199. ; edx = [xstart]*65536 + [ystart]
  4200. ; esi = number of bits per pixel, must be 8, 24 or 32
  4201. ; edi = pointer to palette
  4202. ; ebp = row delta
  4203.         mov     eax, [CURRENT_TASK]
  4204.         shl     eax, 8
  4205.         add     dx, word [eax+SLOT_BASE+APPDATA.wnd_clientbox.top]
  4206.         rol     edx, 16
  4207.         add     dx, word [eax+SLOT_BASE+APPDATA.wnd_clientbox.left]
  4208.         rol     edx, 16
  4209. .forced:
  4210.         push    ebp esi ebp
  4211.         cmp     esi, 8
  4212.         jnz     @f
  4213.         mov     ebp, putimage_get8bpp
  4214.         mov     esi, putimage_init8bpp
  4215.         jmp     sys_putimage_bpp
  4216. @@:
  4217.         cmp     esi, 16
  4218.         jnz     @f
  4219.         mov     ebp, putimage_get16bpp
  4220.         mov     esi, putimage_init16bpp
  4221.         jmp     sys_putimage_bpp
  4222. @@:
  4223.         cmp     esi, 24
  4224.         jnz     @f
  4225.         mov     ebp, putimage_get24bpp
  4226.         mov     esi, putimage_init24bpp
  4227.         jmp     sys_putimage_bpp
  4228. @@:
  4229.         cmp     esi, 32
  4230.         jnz     @f
  4231.         mov     ebp, putimage_get32bpp
  4232.         mov     esi, putimage_init32bpp
  4233.         jmp     sys_putimage_bpp
  4234. @@:
  4235.         pop     ebp esi ebp
  4236.         ret
  4237.  
  4238. putimage_init24bpp:
  4239.         lea     eax, [eax*3]
  4240. putimage_init8bpp:
  4241.         ret
  4242.  
  4243. putimage_get24bpp:
  4244.         mov     eax, [esi]
  4245.         add     esi, 3
  4246.         ret     4
  4247. putimage_get8bpp:
  4248.         movzx   eax, byte [esi]
  4249.         push    edx
  4250.         mov     edx, [esp+8]
  4251.         mov     eax, [edx+eax*4]
  4252.         pop     edx
  4253.         inc     esi
  4254.         ret     4
  4255.  
  4256. putimage_init32bpp:
  4257.         shl     eax, 2
  4258.         ret
  4259. putimage_get32bpp:
  4260.         lodsd
  4261.         ret     4
  4262.  
  4263. putimage_init16bpp:
  4264.         add     eax, eax
  4265.         ret
  4266. putimage_get16bpp:
  4267. ; 0RRRRRGGGGGBBBBB -> 00000000RRRRR000GGGGG000BBBBB000
  4268.         push    ecx edx
  4269.         movzx   eax, word [esi]
  4270.         add     esi, 2
  4271.         mov     ecx, eax
  4272.         mov     edx, eax
  4273.         and     eax, 0x1F
  4274.         and     ecx, 0x1F shl 5
  4275.         and     edx, 0x1F shl 10
  4276.         shl     eax, 3
  4277.         shl     ecx, 6
  4278.         shl     edx, 9
  4279.         or      eax, ecx
  4280.         or      eax, edx
  4281.         pop     edx ecx
  4282.         ret
  4283.  
  4284. ; eax x beginning
  4285. ; ebx y beginning
  4286. ; ecx x end
  4287.         ; edx y end
  4288. ; edi color
  4289.  
  4290. __sys_drawbar:
  4291.         mov     esi,[current_slot]
  4292.         add     eax,[esi+APPDATA.wnd_clientbox.left]
  4293.         add     ecx,[esi+APPDATA.wnd_clientbox.left]
  4294.         add     ebx,[esi+APPDATA.wnd_clientbox.top]
  4295.         add     edx,[esi+APPDATA.wnd_clientbox.top]
  4296.   .forced:
  4297.     inc   [mouse_pause]
  4298. ;        call    [disable_mouse]
  4299.     cmp   [SCR_MODE],word 0x12
  4300.     je   dbv20
  4301.    sdbv20:
  4302.     cmp  [SCR_MODE],word 0100000000000000b
  4303.     jge  dbv20
  4304.     cmp  [SCR_MODE],word 0x13
  4305.     je   dbv20
  4306.     call vesa12_drawbar
  4307.     dec   [mouse_pause]
  4308.     call   [draw_pointer]
  4309.     ret
  4310.   dbv20:
  4311.     call vesa20_drawbar
  4312.     dec   [mouse_pause]
  4313.     call   [draw_pointer]
  4314.     ret
  4315.  
  4316.  
  4317.  
  4318. kb_read:
  4319.  
  4320.         push    ecx edx
  4321.  
  4322.         mov     ecx,0x1ffff ; last 0xffff, new value in view of fast CPU's
  4323.       kr_loop:
  4324.         in      al,0x64
  4325.         test    al,1
  4326.         jnz     kr_ready
  4327.         loop    kr_loop
  4328.         mov     ah,1
  4329.         jmp     kr_exit
  4330.       kr_ready:
  4331.         push    ecx
  4332.         mov     ecx,32
  4333.       kr_delay:
  4334.         loop    kr_delay
  4335.         pop     ecx
  4336.         in      al,0x60
  4337.         xor     ah,ah
  4338.       kr_exit:
  4339.  
  4340.         pop     edx ecx
  4341.  
  4342.         ret
  4343.  
  4344.  
  4345. kb_write:
  4346.  
  4347.         push    ecx edx
  4348.  
  4349.         mov     dl,al
  4350. ;        mov     ecx,0x1ffff ; last 0xffff, new value in view of fast CPU's
  4351. ;      kw_loop1:
  4352. ;        in      al,0x64
  4353. ;        test    al,0x20
  4354. ;        jz      kw_ok1
  4355. ;        loop    kw_loop1
  4356. ;        mov     ah,1
  4357. ;        jmp     kw_exit
  4358. ;      kw_ok1:
  4359.         in      al,0x60
  4360.         mov     ecx,0x1ffff ; last 0xffff, new value in view of fast CPU's
  4361.       kw_loop:
  4362.         in      al,0x64
  4363.         test    al,2
  4364.         jz      kw_ok
  4365.         loop    kw_loop
  4366.         mov     ah,1
  4367.         jmp     kw_exit
  4368.       kw_ok:
  4369.         mov     al,dl
  4370.         out     0x60,al
  4371.         mov     ecx,0x1ffff ; last 0xffff, new value in view of fast CPU's
  4372.       kw_loop3:
  4373.         in      al,0x64
  4374.         test    al,2
  4375.         jz      kw_ok3
  4376.         loop    kw_loop3
  4377.         mov     ah,1
  4378.         jmp     kw_exit
  4379.       kw_ok3:
  4380.         mov     ah,8
  4381.       kw_loop4:
  4382.         mov     ecx,0x1ffff ; last 0xffff, new value in view of fast CPU's
  4383.       kw_loop5:
  4384.         in      al,0x64
  4385.         test    al,1
  4386.         jnz     kw_ok4
  4387.         loop    kw_loop5
  4388.         dec     ah
  4389.         jnz     kw_loop4
  4390.       kw_ok4:
  4391.         xor     ah,ah
  4392.       kw_exit:
  4393.  
  4394.         pop     edx ecx
  4395.  
  4396.         ret
  4397.  
  4398.  
  4399. kb_cmd:
  4400.  
  4401.         mov     ecx,0x1ffff ; last 0xffff, new value in view of fast CPU's
  4402.       c_wait:
  4403.         in      al,0x64
  4404.         test    al,2
  4405.         jz      c_send
  4406.         loop    c_wait
  4407.         jmp     c_error
  4408.       c_send:
  4409.         mov     al,bl
  4410.         out     0x64,al
  4411.         mov     ecx,0x1ffff ; last 0xffff, new value in view of fast CPU's
  4412.       c_accept:
  4413.         in      al,0x64
  4414.         test    al,2
  4415.         jz      c_ok
  4416.         loop    c_accept
  4417.       c_error:
  4418.         mov     ah,1
  4419.         jmp     c_exit
  4420.       c_ok:
  4421.         xor     ah,ah
  4422.       c_exit:
  4423.         ret
  4424.  
  4425.  
  4426. setmouse:  ; set mousepicture -pointer
  4427.            ; ps2 mouse enable
  4428.  
  4429.      mov     [MOUSE_PICTURE],dword mousepointer
  4430.  
  4431.      cli
  4432.  
  4433.      ret
  4434.  
  4435.  
  4436. _rdtsc:
  4437.      bt [cpu_caps], CAPS_TSC
  4438.      jnc ret_rdtsc
  4439.      rdtsc
  4440.      ret
  4441.    ret_rdtsc:
  4442.      mov   edx,0xffffffff
  4443.      mov   eax,0xffffffff
  4444.      ret
  4445.  
  4446. rerouteirqs:
  4447.  
  4448.         cli
  4449.  
  4450.         mov     al,0x11         ;  icw4, edge triggered
  4451.         out     0x20,al
  4452.         call    pic_delay
  4453.         out     0xA0,al
  4454.         call    pic_delay
  4455.  
  4456.         mov     al,0x20         ;  generate 0x20 +
  4457.         out     0x21,al
  4458.         call    pic_delay
  4459.         mov     al,0x28         ;  generate 0x28 +
  4460.         out     0xA1,al
  4461.         call    pic_delay
  4462.  
  4463.         mov     al,0x04         ;  slave at irq2
  4464.         out     0x21,al
  4465.         call    pic_delay
  4466.         mov     al,0x02         ;  at irq9
  4467.         out     0xA1,al
  4468.         call    pic_delay
  4469.  
  4470.         mov     al,0x01         ;  8086 mode
  4471.         out     0x21,al
  4472.         call    pic_delay
  4473.         out     0xA1,al
  4474.         call    pic_delay
  4475.  
  4476.         mov     al,255          ; mask all irq's
  4477.         out     0xA1,al
  4478.         call    pic_delay
  4479.         out     0x21,al
  4480.         call    pic_delay
  4481.  
  4482.         mov     ecx,0x1000
  4483.         cld
  4484. picl1:  call    pic_delay
  4485.         loop    picl1
  4486.  
  4487.         mov     al,255          ; mask all irq's
  4488.         out     0xA1,al
  4489.         call    pic_delay
  4490.         out     0x21,al
  4491.         call    pic_delay
  4492.  
  4493.         cli
  4494.  
  4495.         ret
  4496.  
  4497.  
  4498. pic_delay:
  4499.  
  4500.         jmp     pdl1
  4501. pdl1:   ret
  4502.  
  4503.  
  4504. sys_msg_board_str:
  4505.  
  4506.      pushad
  4507.    @@:
  4508.      cmp    [esi],byte 0
  4509.      je     @f
  4510.      mov    eax,1
  4511.      movzx  ebx,byte [esi]
  4512.      call   sys_msg_board
  4513.      inc    esi
  4514.      jmp    @b
  4515.    @@:
  4516.      popad
  4517.      ret
  4518.  
  4519. sys_msg_board_byte:
  4520. ; in: al = byte to display
  4521. ; out: nothing
  4522. ; destroys: nothing
  4523.         pushad
  4524.         mov     ecx, 2
  4525.         shl     eax, 24
  4526.         jmp     @f
  4527.  
  4528. sys_msg_board_word:
  4529. ; in: ax = word to display
  4530. ; out: nothing
  4531. ; destroys: nothing
  4532.         pushad
  4533.         mov     ecx, 4
  4534.         shl     eax, 16
  4535.         jmp     @f
  4536.  
  4537. sys_msg_board_dword:
  4538. ; in: eax = dword to display
  4539. ; out: nothing
  4540. ; destroys: nothing
  4541.         pushad
  4542.         mov     ecx, 8
  4543. @@:
  4544.         push    ecx
  4545.         rol     eax, 4
  4546.         push    eax
  4547.         and     al, 0xF
  4548.         cmp     al, 10
  4549.         sbb     al, 69h
  4550.         das
  4551.         mov     bl, al
  4552.         xor     eax, eax
  4553.         inc     eax
  4554.         call    sys_msg_board
  4555.         pop     eax
  4556.         pop     ecx
  4557.         loop    @b
  4558.         popad
  4559.         ret
  4560.  
  4561. uglobal
  4562.   msg_board_data: times 4096 db 0
  4563.   msg_board_count dd 0x0
  4564. endg
  4565.  
  4566. sys_msg_board:
  4567.  
  4568. ; eax=1 : write :  bl byte to write
  4569. ; eax=2 :  read :  ebx=0 -> no data, ebx=1 -> data in al
  4570.  
  4571.         mov     ecx, [msg_board_count]
  4572.         cmp     eax, 1
  4573.         jne     .smbl1
  4574.  
  4575.  
  4576.         mov     [msg_board_data+ecx],bl
  4577.         inc     ecx
  4578.         and     ecx, 4095
  4579.         mov     [msg_board_count], ecx
  4580.         mov     [check_idle_semaphore], 5
  4581.         ret
  4582. .smbl1:
  4583.         cmp     eax, 2
  4584.         jne     .smbl2
  4585.         test    ecx, ecx
  4586.         jz      .smbl21
  4587.         mov     eax, msg_board_data+1
  4588.         mov     ebx, msg_board_data
  4589.         movzx   edx, byte [ebx]
  4590.         call    memmove
  4591.         dec     [msg_board_count]
  4592.         mov     [esp + 36], edx ;eax
  4593.         mov     [esp + 24], dword 1
  4594.         ret
  4595. .smbl21:
  4596.         mov     [esp+36], ecx
  4597.         mov     [esp+24], ecx
  4598. .smbl2:
  4599.         ret
  4600.  
  4601.  
  4602.  
  4603. sys_process_def:
  4604.         mov     edi, [CURRENT_TASK]
  4605.  
  4606.         dec     eax             ; 1 = set keyboard mode
  4607.      jne   no_set_keyboard_setup
  4608.  
  4609.      shl   edi,8
  4610.      mov   [edi+SLOT_BASE + APPDATA.keyboard_mode],bl
  4611.  
  4612.      ret
  4613.  
  4614.    no_set_keyboard_setup:
  4615.  
  4616.         dec     eax             ; 2 = get keyboard mode
  4617.      jne   no_get_keyboard_setup
  4618.  
  4619.      shl   edi,8
  4620.      movzx eax, byte [SLOT_BASE+edi + APPDATA.keyboard_mode]
  4621.  
  4622.      mov   [esp+36],eax
  4623.  
  4624.      ret
  4625.  
  4626.    no_get_keyboard_setup:
  4627.  
  4628.         dec     eax             ; 3 = get keyboard ctrl, alt, shift
  4629.      jne   no_get_keyboard_cas
  4630.  
  4631. ;     xor   eax,eax
  4632. ;     movzx eax,byte [shift]
  4633. ;     movzx ebx,byte [ctrl]
  4634. ;     shl   ebx,2
  4635. ;     add   eax,ebx
  4636. ;     movzx ebx,byte [alt]
  4637. ;     shl   ebx,3
  4638. ;     add   eax,ebx
  4639.  
  4640.  ;// mike.dld [
  4641.      mov   eax, [kb_state]
  4642.  ;// mike.dld ]
  4643.  
  4644.      mov   [esp+36],eax
  4645.  
  4646.      ret
  4647.  
  4648.    no_get_keyboard_cas:
  4649.  
  4650.         dec     eax
  4651.         jnz     no_add_keyboard_hotkey
  4652.  
  4653.         mov     eax, hotkey_list
  4654. @@:
  4655.         cmp     dword [eax+8], 0
  4656.         jz      .found_free
  4657.         add     eax, 16
  4658.         cmp     eax, hotkey_list+16*256
  4659.         jb      @b
  4660.         mov     dword [esp+36], 1
  4661.         ret
  4662. .found_free:
  4663.         mov     [eax+8], edi
  4664.         mov     [eax+4], ecx
  4665.         movzx   ebx, bl
  4666.         lea     ebx, [hotkey_scancodes+ebx*4]
  4667.         mov     ecx, [ebx]
  4668.         mov     [eax], ecx
  4669.         mov     [ebx], eax
  4670.         mov     [eax+12], ebx
  4671.         jecxz   @f
  4672.         mov     [ecx+12], eax
  4673. @@:
  4674.         and     dword [esp+36], 0
  4675.         ret
  4676.  
  4677. no_add_keyboard_hotkey:
  4678.  
  4679.         dec     eax
  4680.         jnz     no_del_keyboard_hotkey
  4681.  
  4682.         movzx   ebx, bl
  4683.         lea     ebx, [hotkey_scancodes+ebx*4]
  4684.         mov     eax, [ebx]
  4685. .scan:
  4686.         test    eax, eax
  4687.         jz      .notfound
  4688.         cmp     [eax+8], edi
  4689.         jnz     .next
  4690.         cmp     [eax+4], ecx
  4691.         jz      .found
  4692. .next:
  4693.         mov     eax, [eax]
  4694.         jmp     .scan
  4695. .notfound:
  4696.         mov     dword [esp+36], 1
  4697.         ret
  4698. .found:
  4699.         mov     ecx, [eax]
  4700.         jecxz   @f
  4701.         mov     edx, [eax+12]
  4702.         mov     [ecx+12], edx
  4703. @@:
  4704.         mov     ecx, [eax+12]
  4705.         mov     edx, [eax]
  4706.         mov     [ecx], edx
  4707.         xor     edx, edx
  4708.         mov     [eax+4], edx
  4709.         mov     [eax+8], edx
  4710.         mov     [eax+12], edx
  4711.         mov     [eax], edx
  4712.         mov     [esp+36], edx
  4713.         ret
  4714.  
  4715. no_del_keyboard_hotkey:
  4716.      ret
  4717.  
  4718.  
  4719. align 4
  4720.  
  4721. sys_gs:                         ; direct screen access
  4722.  
  4723.      cmp  eax,1                 ; resolution
  4724.      jne  no_gs1
  4725.      mov  eax,[Screen_Max_X]
  4726.      shl  eax,16
  4727.      mov  ax,[Screen_Max_Y]
  4728.      add  eax,0x00010001
  4729.      mov  [esp+36],eax
  4730.      ret
  4731.    no_gs1:
  4732.  
  4733.      cmp   eax,2                ; bits per pixel
  4734.      jne   no_gs2
  4735.      movzx eax,byte [ScreenBPP]
  4736.      mov   [esp+36],eax
  4737.      ret
  4738.    no_gs2:
  4739.  
  4740.      cmp   eax,3                ; bytes per scanline
  4741.      jne   no_gs3
  4742.      mov   eax,[BytesPerScanLine]
  4743.      mov   [esp+36],eax
  4744.      ret
  4745.    no_gs3:
  4746.  
  4747.      mov  [esp+36],dword -1
  4748.      ret
  4749.  
  4750.  
  4751. align 4 ; PCI functions
  4752.  
  4753. sys_pci:
  4754.  
  4755.      call  pci_api
  4756.      mov   [esp+36],eax
  4757.      ret
  4758.  
  4759.  
  4760. align 4  ;  system functions
  4761.  
  4762. syscall_setpixel:                       ; SetPixel
  4763.  
  4764.         mov     eax, ebx
  4765.         mov     ebx, ecx
  4766.         mov     ecx, edx
  4767.         mov     edx, [TASK_BASE]
  4768.         add     eax, [edx-twdw+WDATA.box.left]
  4769.         add     ebx, [edx-twdw+WDATA.box.top]
  4770.         mov     edi, [current_slot]
  4771.         add     eax, [edi+APPDATA.wnd_clientbox.left]
  4772.         add     ebx, [edi+APPDATA.wnd_clientbox.top]
  4773.         xor     edi, edi ; no force
  4774. ;       mov     edi, 1
  4775.         call    [disable_mouse]
  4776.         jmp     [putpixel]
  4777.  
  4778. align 4
  4779.  
  4780. syscall_writetext:                      ; WriteText
  4781.  
  4782.         mov   eax,[TASK_BASE]
  4783.         mov   ebp,[eax-twdw+WDATA.box.left]
  4784.         push  esi
  4785.         mov   esi,[current_slot]
  4786.         add   ebp,[esi+APPDATA.wnd_clientbox.left]
  4787.         shl   ebp,16
  4788.         add   ebp,[eax-twdw+WDATA.box.top]
  4789.         add   bp,word[esi+APPDATA.wnd_clientbox.top]
  4790.         pop   esi
  4791.         add   ebx,ebp
  4792.         mov   eax,edi
  4793.         xor   edi,edi
  4794.         jmp   dtext
  4795.  
  4796. align 4
  4797.  
  4798. syscall_openramdiskfile:                ; OpenRamdiskFile
  4799.  
  4800.         mov     eax, ebx
  4801.         mov     ebx, ecx
  4802.         mov     ecx, edx
  4803.         mov     edx, esi
  4804.         mov     esi, 12
  4805.         call    fileread
  4806.         mov     [esp+32], eax
  4807.         ret
  4808.  
  4809. align 4
  4810.  
  4811. syscall_drawrect:                       ; DrawRect
  4812.  
  4813.         mov     edi, edx ; color + gradient
  4814.         and     edi, 0x80FFFFFF
  4815.         test    bx, bx  ; x.size
  4816.         je      .drectr
  4817.         test    cx, cx ; y.size
  4818.         je      .drectr
  4819.  
  4820.         mov     eax, ebx ; bad idea
  4821.         mov     ebx, ecx
  4822.  
  4823.         movzx   ecx, ax ; ecx - x.size
  4824.         shr     eax, 16 ; eax - x.coord
  4825.         movzx   edx, bx ; edx - y.size
  4826.         shr     ebx, 16 ; ebx - y.coord
  4827.         mov     esi, [current_slot]
  4828.  
  4829.         add     eax, [esi + APPDATA.wnd_clientbox.left]
  4830.         add     ebx, [esi + APPDATA.wnd_clientbox.top]
  4831.         add     ecx, eax
  4832.         add     edx, ebx
  4833.         jmp     [drawbar]
  4834. .drectr:
  4835.         ret
  4836.  
  4837. align 4
  4838. syscall_getscreensize:                  ; GetScreenSize
  4839.         mov     ax, [Screen_Max_X]
  4840.         shl     eax, 16
  4841.         mov     ax, [Screen_Max_Y]
  4842.         mov     [esp + 32], eax
  4843.         ret
  4844.  
  4845. align 4
  4846.  
  4847. syscall_cdaudio:                        ; CD
  4848.  
  4849.         cmp     eax, 4
  4850.         jb      .audio
  4851.         jz      .eject
  4852.         cmp     eax, 5
  4853.         jnz     .ret
  4854. .load:
  4855.         call    .reserve
  4856.         call    LoadMedium
  4857.         call    .free
  4858.         ret
  4859. .eject:
  4860.         call    .reserve
  4861.         call    clear_CD_cache
  4862.         call    allow_medium_removal
  4863.         call    EjectMedium
  4864.         call    .free
  4865.         ret
  4866. .audio:
  4867.      call  sys_cd_audio
  4868.      mov   [esp+36],eax
  4869. .ret:
  4870.      ret
  4871.  
  4872. .reserve:
  4873.         call    reserve_cd
  4874.         mov     eax, ebx
  4875.         shr     eax, 1
  4876.         and     eax, 1
  4877.         inc     eax
  4878.         mov     [ChannelNumber], ax
  4879.         mov     eax, ebx
  4880.         and     eax, 1
  4881.         mov     [DiskNumber], al
  4882.         call    reserve_cd_channel
  4883.         and     ebx, 3
  4884.         inc     ebx
  4885.         mov     [cdpos], ebx
  4886.         add     ebx, ebx
  4887.         mov     cl, 8
  4888.         sub     cl, bl
  4889.         mov     al, [DRIVE_DATA+1]
  4890.         shr     al, cl
  4891.         test    al, 2
  4892.         jz      .err
  4893.         ret
  4894. .free:
  4895.         call    free_cd_channel
  4896.         and     [cd_status], 0
  4897.         ret
  4898. .err:
  4899.         call    .free
  4900.         pop     eax
  4901.         ret
  4902.  
  4903. align 4
  4904.  
  4905. syscall_getpixel:                       ; GetPixel
  4906.      mov   ecx, [Screen_Max_X]
  4907.      inc   ecx
  4908.      xor   edx, edx
  4909.      mov   eax, ebx
  4910.      div   ecx
  4911.      mov   ebx, edx
  4912.      xchg  eax, ebx
  4913.      call  dword [GETPIXEL] ; eax - x, ebx - y
  4914.      mov   [esp + 32], ecx
  4915.      ret
  4916.  
  4917.  
  4918. align 4
  4919.  
  4920. syscall_drawline:                       ; DrawLine
  4921.  
  4922.         mov     edi, [TASK_BASE]
  4923.         movzx   eax, word[edi-twdw+WDATA.box.left]
  4924.         mov     ebp, eax
  4925.         mov     esi, [current_slot]
  4926.         add     ebp, [esi+APPDATA.wnd_clientbox.left]
  4927.         add     ax, word[esi+APPDATA.wnd_clientbox.left]
  4928.         add     ebp,ebx
  4929.         shl     eax, 16
  4930.         movzx   ebx, word[edi-twdw+WDATA.box.top]
  4931.         add     eax, ebp
  4932.         mov     ebp, ebx
  4933.         add     ebp, [esi+APPDATA.wnd_clientbox.top]
  4934.         add     bx, word[esi+APPDATA.wnd_clientbox.top]
  4935.         add     ebp, ecx
  4936.         shl     ebx, 16
  4937.         xor     edi, edi
  4938.         add     ebx, ebp
  4939.         mov     ecx, edx
  4940.         jmp     [draw_line]
  4941.  
  4942. align 4
  4943.  
  4944. syscall_getirqowner:                    ; GetIrqOwner
  4945.  
  4946.      cmp   ebx,16
  4947.      jae   .err
  4948.  
  4949.      cmp   [irq_rights + 4 * ebx], dword 2
  4950.      je    .err
  4951.  
  4952.      mov   eax,[4 * ebx + irq_owner]
  4953.      mov   [esp+32],eax
  4954.  
  4955.      ret
  4956. .err:
  4957.      or    dword [esp+32], -1
  4958.      ret
  4959.  
  4960. align 4
  4961.  
  4962. syscall_reserveportarea:                ; ReservePortArea and FreePortArea
  4963.  
  4964.      call  r_f_port_area
  4965.      mov   [esp+36],eax
  4966.      ret
  4967.  
  4968. align 4
  4969.  
  4970. syscall_threads:                        ; CreateThreads
  4971.  
  4972.      call  sys_threads
  4973.      mov   [esp+36],eax
  4974.      ret
  4975.  
  4976. align 4
  4977.  
  4978. stack_driver_stat:
  4979.  
  4980.      call  app_stack_handler            ; Stack status
  4981.  
  4982. ;     mov   [check_idle_semaphore],5    ; enable these for zero delay
  4983. ;     call  change_task                 ; between sent packet
  4984.  
  4985.      mov   [esp+36],eax
  4986.      ret
  4987.  
  4988. align 4
  4989.  
  4990. socket:                                 ; Socket interface
  4991.      call  app_socket_handler
  4992.  
  4993. ;     mov   [check_idle_semaphore],5    ; enable these for zero delay
  4994. ;     call  change_task                 ; between sent packet
  4995.  
  4996.      mov   [esp+36],eax
  4997.      mov   [esp+24],ebx
  4998.      ret
  4999.  
  5000. align 4
  5001.  
  5002. read_from_hd:                           ; Read from hd - fn not in use
  5003.  
  5004.      mov   edi,[TASK_BASE]
  5005.      add   edi,TASKDATA.mem_start
  5006.      add   eax,[edi]
  5007.      add   ecx,[edi]
  5008.      add   edx,[edi]
  5009.      call  file_read
  5010.  
  5011.      mov   [esp+36],eax
  5012.      mov   [esp+24],ebx
  5013.  
  5014.      ret
  5015.  
  5016. paleholder:
  5017.         ret
  5018.  
  5019. align 4
  5020. set_screen:
  5021.         cmp eax, [Screen_Max_X]
  5022.         jne .set
  5023.  
  5024.         cmp edx, [Screen_Max_Y]
  5025.         jne .set
  5026.         ret
  5027. .set:
  5028.         pushfd
  5029.         cli
  5030.  
  5031.         mov [Screen_Max_X], eax
  5032.         mov [Screen_Max_Y], edx
  5033.  
  5034.         mov [screen_workarea.right],eax
  5035.         mov [screen_workarea.bottom], edx
  5036.         inc eax
  5037.         shl eax, 2                      ;32 bpp
  5038.         mov [BytesPerScanLine], eax
  5039.         push ebx
  5040.         push esi
  5041.         push edi
  5042.         call    repos_windows
  5043.         mov     eax, 0
  5044.         mov     ebx, 0
  5045.         mov     ecx, [Screen_Max_X]
  5046.         mov     edx, [Screen_Max_Y]
  5047.         call    calculatescreen
  5048.         pop edi
  5049.         pop esi
  5050.         pop ebx
  5051.  
  5052.         popfd
  5053.         ret
  5054.  
  5055. ; --------------- APM ---------------------
  5056. apm_entry    dp    0
  5057. apm_vf        dd    0
  5058. align 4
  5059. sys_apm:
  5060.     cmp    word [apm_vf], 0    ; Check APM BIOS enable
  5061.     jne    @f
  5062.     or    [esp + 56], byte 1    ; error
  5063.     mov    [esp + 36], dword 8    ; 32-bit protected-mode interface not supported
  5064.     ret
  5065.  
  5066. @@:
  5067.     xchg    eax, ecx
  5068.     xchg    ebx, ecx
  5069.  
  5070.     cmp    al, 3
  5071.     ja    @f
  5072.     and    [esp + 56], byte 0xfe    ; emulate func 0..3 as func 0
  5073.     mov    eax, [apm_vf]
  5074.     mov    [esp + 36], eax
  5075.     shr    eax, 16
  5076.     mov    [esp + 32], eax
  5077.     ret
  5078.  
  5079. @@:
  5080.  
  5081.     mov esi, [master_tab+(OS_BASE shr 20)]
  5082.     xchg [master_tab], esi
  5083.     push esi
  5084.     mov edi, cr3
  5085.     mov cr3, edi                 ;flush TLB
  5086.  
  5087.     call    pword [apm_entry]    ; call APM BIOS
  5088.  
  5089.     xchg eax, [esp]
  5090.     mov [master_tab], eax
  5091.     mov eax, cr3
  5092.     mov cr3, eax
  5093.     pop eax
  5094.  
  5095.     mov    [esp + 8 ], edi
  5096.     mov    [esp + 12], esi
  5097.     mov    [esp + 24], ebx
  5098.     mov    [esp + 28], edx
  5099.     mov    [esp + 32], ecx
  5100.     mov    [esp + 36], eax
  5101.     setc    al
  5102.     and    [esp + 56], byte 0xfe
  5103.     or    [esp + 56], al
  5104.  
  5105.  
  5106.     ret
  5107. ; -----------------------------------------
  5108.  
  5109. align 4
  5110.  
  5111. undefined_syscall:                      ; Undefined system call
  5112.      mov   [esp + 32], dword -1
  5113.      ret
  5114.  
  5115. align 4
  5116. system_shutdown:          ; shut down the system
  5117.  
  5118.            cmp byte [BOOT_VAR+0x9030], 1
  5119.            jne @F
  5120.            ret
  5121. @@:
  5122.            call stop_all_services
  5123.            push 3                ; stop playing cd
  5124.            pop  eax
  5125.            call sys_cd_audio
  5126.  
  5127. yes_shutdown_param:
  5128.            cli
  5129.  
  5130.            mov  eax, kernel_file ; load kernel.mnt to 0x7000:0
  5131.            push 12
  5132.            pop  esi
  5133.            xor  ebx,ebx
  5134.            or   ecx,-1
  5135.            mov  edx, OS_BASE+0x70000
  5136.            call fileread
  5137.  
  5138.            mov  esi, restart_kernel_4000+OS_BASE+0x10000 ; move kernel re-starter to 0x4000:0
  5139.            mov  edi,OS_BASE+0x40000
  5140.            mov  ecx,1000
  5141.            rep  movsb
  5142.  
  5143.            mov  esi,OS_BASE+0x2F0000    ; restore 0x0 - 0xffff
  5144.            mov  edi, OS_BASE
  5145.            mov  ecx,0x10000/4
  5146.            cld
  5147.            rep movsd
  5148.  
  5149.            call restorefatchain
  5150.  
  5151.            mov al, 0xFF
  5152.            out 0x21, al
  5153.            out 0xA1, al
  5154.  
  5155. if 1
  5156.            mov  word [OS_BASE+0x467+0],pr_mode_exit
  5157.            mov  word [OS_BASE+0x467+2],0x1000
  5158.  
  5159.            mov  al,0x0F
  5160.            out  0x70,al
  5161.            mov  al,0x05
  5162.            out  0x71,al
  5163.  
  5164.            mov  al,0xFE
  5165.            out  0x64,al
  5166.  
  5167.            hlt
  5168.  
  5169. else
  5170.         cmp     byte [OS_BASE + 0x9030], 2
  5171.         jnz     no_acpi_power_off
  5172.  
  5173. ; scan for RSDP
  5174. ; 1) The first 1 Kb of the Extended BIOS Data Area (EBDA).
  5175.         movzx   eax, word [OS_BASE + 0x40E]
  5176.         shl     eax, 4
  5177.         jz      @f
  5178.         mov     ecx, 1024/16
  5179.         call    scan_rsdp
  5180.         jnc     .rsdp_found
  5181. @@:
  5182. ; 2) The BIOS read-only memory space between 0E0000h and 0FFFFFh.
  5183.         mov     eax, 0xE0000
  5184.         mov     ecx, 0x2000
  5185.         call    scan_rsdp
  5186.         jc      no_acpi_power_off
  5187. .rsdp_found:
  5188.         mov     esi, [eax+16]   ; esi contains physical address of the RSDT
  5189.         mov     ebp, [ipc_tmp]
  5190.         stdcall map_page, ebp, esi, PG_MAP
  5191.         lea     eax, [esi+1000h]
  5192.         lea     edx, [ebp+1000h]
  5193.         stdcall map_page, edx, eax, PG_MAP
  5194.         and     esi, 0xFFF
  5195.         add     esi, ebp
  5196.         cmp     dword [esi], 'RSDT'
  5197.         jnz     no_acpi_power_off
  5198.         mov     ecx, [esi+4]
  5199.         sub     ecx, 24h
  5200.         jbe     no_acpi_power_off
  5201.         shr     ecx, 2
  5202.         add     esi, 24h
  5203. .scan_fadt:
  5204.         lodsd
  5205.         mov     ebx, eax
  5206.         lea     eax, [ebp+2000h]
  5207.         stdcall map_page, eax, ebx, PG_MAP
  5208.         lea     eax, [ebp+3000h]
  5209.         add     ebx, 0x1000
  5210.         stdcall map_page, eax, ebx, PG_MAP
  5211.         and     ebx, 0xFFF
  5212.         lea     ebx, [ebx+ebp+2000h]
  5213.         cmp     dword [ebx], 'FACP'
  5214.         jz      .fadt_found
  5215.         loop    .scan_fadt
  5216.         jmp     no_acpi_power_off
  5217. .fadt_found:
  5218. ; ebx is linear address of FADT
  5219.         mov     edx, [ebx+48]
  5220.         test    edx, edx
  5221.         jz      .nosmi
  5222.         mov     al, [ebx+52]
  5223.         out     dx, al
  5224.         mov     edx, [ebx+64]
  5225. @@:
  5226.         in      ax, dx
  5227.         test    al, 1
  5228.         jz      @b
  5229. .nosmi:
  5230.         mov     edx, [ebx+64]
  5231.         in      ax, dx
  5232.         and     ax, 203h
  5233.         or      ax, 3C00h
  5234.         out     dx, ax
  5235.         mov     edx, [ebx+68]
  5236.         test    edx, edx
  5237.         jz      @f
  5238.         in      ax, dx
  5239.         and     ax, 203h
  5240.         or      ax, 3C00h
  5241.         out     dx, ax
  5242. @@:
  5243.         jmp     $
  5244.  
  5245.  
  5246. no_acpi_power_off:
  5247.            mov  word [OS_BASE+0x467+0],pr_mode_exit
  5248.            mov  word [OS_BASE+0x467+2],0x1000
  5249.  
  5250.            mov  al,0x0F
  5251.            out  0x70,al
  5252.            mov  al,0x05
  5253.            out  0x71,al
  5254.  
  5255.            mov  al,0xFE
  5256.            out  0x64,al
  5257.  
  5258.            hlt
  5259.  
  5260. scan_rsdp:
  5261.         add     eax, OS_BASE
  5262. .s:
  5263.         cmp     dword [eax], 'RSD '
  5264.         jnz     .n
  5265.         cmp     dword [eax+4], 'PTR '
  5266.         jnz     .n
  5267.         xor     edx, edx
  5268.         xor     esi, esi
  5269. @@:
  5270.         add     dl, [eax+esi]
  5271.         inc     esi
  5272.         cmp     esi, 20
  5273.         jnz     @b
  5274.         test    dl, dl
  5275.         jz      .ok
  5276. .n:
  5277.         add     eax, 10h
  5278.         loop    .s
  5279.         stc
  5280. .ok:
  5281.         ret
  5282. end if
  5283.  
  5284. include "data32.inc"
  5285.  
  5286. __REV__ = __REV
  5287.  
  5288. uglobals_size = $ - endofcode
  5289. diff16 "end of kernel code",0,$
  5290.  
  5291.