Subversion Repositories Kolibri OS

Rev

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