Subversion Repositories Kolibri OS

Rev

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

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