Subversion Repositories Kolibri OS

Rev

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