Subversion Repositories Kolibri OS

Rev

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

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