Subversion Repositories Kolibri OS

Rev

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

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