Subversion Repositories Kolibri OS

Rev

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