Subversion Repositories Kolibri OS

Rev

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