Subversion Repositories Kolibri OS

Rev

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

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