Subversion Repositories Kolibri OS

Rev

Rev 407 | Rev 425 | 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.   vrr_m      db  '/rd/1/VRR_M',0
  235.  
  236.   char          dd 0,0,0
  237.                         dd 2560
  238.                         dd  0x3F600 - std_application_base_address
  239.                         db '/RD/1/FONTS/CHAR.MT',0
  240.   char2         dd 0,0,0
  241.                         dd 2560
  242.                         dd  0x3EC00 - std_application_base_address
  243.                         db '/RD/1/FONTS/CHAR2.MT',0
  244.  
  245.   ;char       db  'FONTS/CHAR.MT',0
  246.   ;char2      db  'FONTS/CHAR2.MT',0
  247.   bootpath   db  '/KOLIBRI    '
  248.   bootpath2  db  0
  249. ;  vmode      db  'drivers/VMODE.MDR',0
  250.   vmode         dd 0,0,0
  251.                         dd 0x8000
  252.                         dd 0x760000 - std_application_base_address
  253.                         db '/RD/1/drivers/VMODE.MDR',0
  254. endg
  255.  
  256.  
  257. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  258. ;;                                                                      ;;
  259. ;;                          32 BIT ENTRY                                ;;
  260. ;;                                                                      ;;
  261. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  262.  
  263. align 4
  264.  
  265. B32:
  266. ; CLEAR 0x280000-0xF00000
  267.  
  268.         xor   eax,eax
  269.         mov   edi,0x280000
  270.         mov   ecx,(0x100000*0xF-0x280000) / 4
  271.         cld
  272.         rep   stosd
  273. ; CLEAR 0x80000-0x90000
  274. ;       xor   eax,eax
  275.  
  276.         mov   edi,0x80000
  277.         mov   ecx,(0x90000-0x80000)/4
  278. ;       cld
  279.         rep   stosd
  280.  
  281. ; CLEAR KERNEL UNDEFINED GLOBALS
  282.         mov   edi, endofcode
  283.         mov   ecx, (uglobals_size/4)+4
  284.         rep   stosd
  285.  
  286. ; SAVE & CLEAR 0-0xffff
  287.  
  288.         mov   esi,0x0000
  289.         mov   edi,0x2F0000
  290.         mov   ecx,0x10000 / 4
  291.         cld
  292.         rep   movsd
  293.         xor   eax,eax
  294.         mov   edi,0
  295.         mov   ecx,0x10000 / 4
  296.         cld
  297.         rep   stosd
  298.  
  299. ; SAVE REAL MODE VARIABLES
  300.         mov     ax, [0x2f0000 + 0x9031]
  301.         mov     [IDEContrRegsBaseAddr], ax
  302. ; --------------- APM ---------------------
  303.     mov    eax, [0x2f0000 + 0x9040]    ; entry point
  304.     mov    dword[apm_entry], eax
  305.     mov    word [apm_entry + 4], apm_code_32 - gdts
  306.  
  307.     mov    eax, [0x2f0000 + 0x9044]    ; version & flags
  308.     mov    [apm_vf], eax
  309. ; -----------------------------------------
  310. ;        movzx eax,byte [0x2f0000+0x9010]  ; mouse port
  311. ;        mov   [0xF604],byte 1  ;al
  312.         mov     al, [0x2F0000+0x901F]   ; DMA writing
  313.         mov     [allow_dma_write], al
  314.         mov   al,[0x2f0000+0x9000]        ; bpp
  315.         mov   [ScreenBPP],al
  316.         movzx eax,word [0x2f0000+0x900A]  ; X max
  317.         dec   eax
  318.         mov   [ScreenWidth],eax
  319.         mov   [screen_workarea.right],eax
  320.         movzx eax,word [0x2f0000+0x900C]  ; Y max
  321.         dec   eax
  322.         mov   [ScreenHeight],eax
  323.         mov   [screen_workarea.bottom],eax
  324.         movzx eax,word [0x2f0000+0x9008]  ; screen mode
  325.         mov   [SCR_MODE],eax
  326.         mov   eax,[0x2f0000+0x9014]       ; Vesa 1.2 bnk sw add
  327.         mov   [BANK_SWITCH],eax
  328.         mov   [BytesPerScanLine],word 640*4         ; Bytes PerScanLine
  329.         cmp   [SCR_MODE],word 0x13          ; 320x200
  330.         je    @f
  331.         cmp   [SCR_MODE],word 0x12          ; VGA 640x480
  332.         je    @f
  333.         mov   ax,[0x2f0000+0x9001]        ; for other modes
  334.         mov   [BytesPerScanLine],ax
  335.       @@:
  336.  
  337. ; GRAPHICS ADDRESSES
  338.  
  339.         ;mov     eax,0x100000*8                    ; LFB address
  340.         ;cmp     [0xfe0c],word 0x13
  341.         ;je      no_d_lfb
  342.         ;cmp     [0xfe0c],word 0x12
  343.         ;je      no_d_lfb
  344.         ;cmp     [0x2f0000+0x901e],byte 1
  345.         ;jne     no_d_lfb
  346.         mov     byte [0x2f0000+0x901e],0x0
  347.         mov     eax,[0x2f0000+0x9018]
  348.       ;no_d_lfb:
  349.         mov     [LFBAddress],eax
  350.  
  351.         cmp     [SCR_MODE],word 0100000000000000b
  352.         jge     setvesa20
  353.         cmp     [SCR_MODE],word 0x13
  354.         je      v20ga32
  355.         mov     [PUTPIXEL],dword Vesa12_putpixel24  ; Vesa 1.2
  356.         mov     [0xe024],dword Vesa12_getpixel24
  357.         cmp     [ScreenBPP],byte 24
  358.         jz      ga24
  359.         mov     [PUTPIXEL],dword Vesa12_putpixel32
  360.         mov     [0xe024],dword Vesa12_getpixel32
  361.       ga24:
  362.         jmp     v20ga24
  363.       setvesa20:
  364.         mov     [PUTPIXEL],dword Vesa20_putpixel24  ; Vesa 2.0
  365.         mov     [0xe024],dword Vesa20_getpixel24
  366.         cmp     [ScreenBPP],byte 24
  367.         jz      v20ga24
  368.       v20ga32:
  369.         mov     [PUTPIXEL],dword Vesa20_putpixel32
  370.         mov     [0xe024],dword Vesa20_getpixel32
  371.       v20ga24:
  372.         cmp     [SCR_MODE],word 0x12                ; 16 C VGA 640x480
  373.         jne     no_mode_0x12
  374.         mov     [PUTPIXEL],dword VGA_putpixel
  375.         mov     [0xe024],dword Vesa20_getpixel32
  376.       no_mode_0x12:
  377.  
  378.            call test_cpu
  379. ;           btr [cpu_caps], CAPS_SSE    ;test: dont't use sse code
  380. ;           btr [cpu_caps], CAPS_SSE2   ;test: don't use sse2
  381.  
  382. ;           btr [cpu_caps], CAPS_FXSR   ;test: disable sse support
  383.                                         ;all sse commands rise #UD exption
  384. ;           btr [cpu_caps], CAPS_PSE    ;test: don't use large pages
  385. ;           btr [cpu_caps], CAPS_PGE    ;test: don't use global pages
  386. ;           btr [cpu_caps], CAPS_MTRR   ;test: don't use MTRR
  387.            bts [cpu_caps], CAPS_TSC     ;force use rdtsc
  388.  
  389. ; -------- Fast System Call init ----------
  390. ; Intel SYSENTER/SYSEXIT (AMD CPU support it too)
  391.            bt [cpu_caps], CAPS_SEP
  392.            jnc .SEnP   ; SysEnter not Present
  393.            xor edx, edx
  394.            mov ecx, MSR_SYSENTER_CS
  395.            mov eax, os_code
  396.            wrmsr
  397.            mov ecx, MSR_SYSENTER_ESP
  398.            mov eax, sysenter_stack ; Check it
  399.            wrmsr
  400.            mov ecx, MSR_SYSENTER_EIP
  401.            mov eax, sysenter_entry
  402.            wrmsr
  403. .SEnP:
  404. ; AMD SYSCALL/SYSRET
  405.            cmp byte[cpu_vendor], 'A'
  406.            jne .noSYSCALL
  407.            mov eax, 0x80000001
  408.            cpuid
  409.            test edx, 0x800  ; bit_11 - SYSCALL/SYSRET support
  410.            jz .noSYSCALL
  411.            mov ecx, MSR_AMD_EFER
  412.            rdmsr
  413.            or eax, 1   ; bit_0 - System Call Extension (SCE)
  414.            wrmsr
  415.  
  416.         ; !!!! It`s dirty hack, fix it !!!
  417.         ; Bits of EDX :
  418.         ; Bit 31–16 During the SYSRET instruction, this field is copied into the CS register
  419.         ;  and the contents of this field, plus 8, are copied into the SS register.
  420.         ; Bit 15–0 During the SYSCALL instruction, this field is copied into the CS register
  421.         ;  and the contents of this field, plus 8, are copied into the SS register.
  422.  
  423.         ; mov   edx, (os_code + 16) * 65536 + os_code
  424.            mov edx, 0x1B0013
  425.  
  426.            mov eax, syscall_entry
  427.            mov ecx, MSR_AMD_STAR
  428.            wrmsr
  429. .noSYSCALL:
  430. ; -----------------------------------------
  431.  
  432.  
  433.  
  434. ; MEMORY MODEL
  435.            call mem_test
  436.            call init_mtrr
  437.            call init_mem
  438.            call init_page_map
  439.  
  440. ; ENABLE PAGING
  441.            mov eax, sys_pgdir
  442.            mov cr3, eax
  443.  
  444.            mov eax,cr0
  445.            or eax,CR0_PG
  446.            mov cr0,eax
  447.  
  448.            call init_kernel_heap
  449.            stdcall kernel_alloc, RING0_STACK_SIZE+512
  450.            mov [os_stack], eax
  451.  
  452.            call init_LFB
  453.            call init_fpu
  454.  
  455.            call init_malloc
  456.  
  457.            stdcall alloc_kernel_space, 0x4F000
  458.            mov [ipc_tmp], eax
  459.            mov ebx, 0x1000
  460.  
  461.            add eax, 0x40000
  462.            mov [proc_mem_map], eax
  463.  
  464.            add eax, 0x8000
  465.            mov [proc_mem_pdir], eax
  466.  
  467.            add eax, ebx
  468.            mov [proc_mem_tab], eax
  469.  
  470.            add eax, ebx
  471.            mov [tmp_task_pdir], eax
  472.  
  473.            add eax, ebx
  474.            mov [tmp_task_ptab], eax
  475.  
  476.            add eax, ebx
  477.            mov [ipc_pdir], eax
  478.  
  479.            add eax, ebx
  480.            mov [ipc_ptab], eax
  481.  
  482.            call init_events
  483.  
  484.            mov eax, srv.fd-SRV_FD_OFFSET
  485.            mov [srv.fd], eax
  486.            mov [srv.bk], eax
  487.  
  488.            mov edi, irq_tab
  489.            xor eax, eax
  490.            mov ecx, 16
  491.            rep stosd
  492.  
  493. ;Set base of graphic segment to linear address of LFB
  494.         mov     eax,[LFBAddress]          ; set for gs
  495.         mov     [graph_data_l+2],ax
  496.         shr     eax,16
  497.         mov     [graph_data_l+4],al
  498.         mov     [graph_data_l+7],ah
  499.  
  500. ;!!!!!!!!!!!!!!!!!!!!!!!!!!
  501. include 'detect/disks.inc'
  502. ;!!!!!!!!!!!!!!!!!!!!!!!!!!
  503.  
  504. ; READ RAMDISK IMAGE FROM HD
  505.  
  506. ;!!!!!!!!!!!!!!!!!!!!!!!
  507. include 'boot/rdload.inc'
  508. ;!!!!!!!!!!!!!!!!!!!!!!!
  509. ;    mov    [dma_hdd],1
  510. ; CALCULATE FAT CHAIN FOR RAMDISK
  511.  
  512.         call  calculatefatchain
  513.  
  514. ; LOAD VMODE DRIVER
  515.  
  516. ;!!!!!!!!!!!!!!!!!!!!!!!
  517. include 'vmodeld.inc'
  518. ;!!!!!!!!!!!!!!!!!!!!!!!
  519.  
  520. ; LOAD FONTS I and II
  521.  
  522.         mov   [CURRENT_TASK],dword 1
  523.         mov   [TASK_COUNT],dword 1
  524.         mov   [TASK_BASE],dword TASK_DATA
  525.  
  526.         pushad
  527.         push    eax
  528.         mov             eax,char  - std_application_base_address
  529.         call    file_system_lfn
  530.         mov             eax,char2  - std_application_base_address
  531.         call    file_system_lfn
  532.         pop     eax
  533.         popad
  534.  
  535. ;        mov   esi,char
  536. ;        xor   ebx,ebx
  537. ;        mov   ecx,2560;26000
  538. ;        mov   edx,FONT_I
  539. ;        call  fs_RamdiskRead
  540.  
  541. ;        mov   esi,char2
  542. ;        xor   ebx,ebx
  543. ;        mov   ecx,2560;26000
  544. ;        mov   edx,FONT_II
  545. ;        call  fs_RamdiskRead
  546.  
  547.         mov   esi,boot_fonts
  548.         call  boot_log
  549.  
  550. ; PRINT AMOUNT OF MEMORY
  551.         mov     esi, boot_memdetect
  552.         call    boot_log
  553.  
  554.         movzx   ecx, word [boot_y]
  555.         or      ecx, (10+29*6) shl 16 ; "Determining amount of memory"
  556.         sub     ecx, 10
  557.         mov     edx, 0xFFFFFF
  558.         mov     ebx, [MEM_AMOUNT]
  559.         shr     ebx, 20
  560.         mov     edi, 1
  561.         mov     eax, 0x00040000
  562.         call    display_number_force
  563.  
  564. ; REDIRECT ALL IRQ'S TO INT'S 0x20-0x2f
  565.  
  566.         mov   esi,boot_irqs
  567.         call  boot_log
  568.         call  rerouteirqs
  569.  
  570.         mov    esi,boot_tss
  571.         call   boot_log
  572.  
  573. ; BUILD SCHEDULER
  574.  
  575.         call   build_scheduler ; sys32.inc
  576.  
  577. ; LOAD IDT
  578.         lidt   [cs:idtreg]
  579.         cli
  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.         mov  [pci_access_enabled],1
  603.  
  604. ; SET PRELIMINARY WINDOW STACK AND POSITIONS
  605.  
  606.         mov   esi,boot_windefs
  607.         call  boot_log
  608.         call  setwindowdefaults
  609.  
  610. ; SET BACKGROUND DEFAULTS
  611.  
  612.         mov   esi,boot_bgr
  613.         call  boot_log
  614.         call  calculatebackground
  615.  
  616. ; RESERVE SYSTEM IRQ'S JA PORT'S
  617.  
  618.         mov   esi,boot_resirqports
  619.         call  boot_log
  620.         call  reserve_irqs_ports
  621.  
  622. ; SET PORTS FOR IRQ HANDLERS
  623.  
  624.         mov  esi,boot_setrports
  625.         call boot_log
  626.         call setirqreadports
  627.  
  628. ; SET UP OS TASK
  629.  
  630.         mov  esi,boot_setostask
  631.         call boot_log
  632.  
  633.         mov eax, fpu_data
  634.         mov  dword [SLOT_BASE+APPDATA.fpu_state], eax
  635.         mov  dword [SLOT_BASE+APPDATA.fpu_handler], 0
  636.         mov  dword [SLOT_BASE+APPDATA.sse_handler], 0
  637.  
  638.         ; name for OS/IDLE process
  639.  
  640.         mov dword [SLOT_BASE+256+APPDATA.app_name],   dword 'OS/I'
  641.         mov dword [SLOT_BASE+256+APPDATA.app_name+4], dword 'DLE '
  642.         mov edi, [os_stack]
  643.         mov dword [SLOT_BASE+256+APPDATA.pl0_stack], edi
  644.         add edi, RING0_STACK_SIZE
  645.         mov dword [SLOT_BASE+256+APPDATA.fpu_state], edi
  646.  
  647.         mov esi, fpu_data
  648.         mov ecx, 512/4
  649.         cld
  650.         rep movsd
  651.  
  652.         mov dword [SLOT_BASE+256+APPDATA.fpu_handler], 0
  653.         mov dword [SLOT_BASE+256+APPDATA.sse_handler], 0
  654.  
  655.         mov ebx, [def_cursor]
  656.         mov dword [SLOT_BASE+256+APPDATA.cursor], ebx
  657.  
  658.         mov ebx, SLOT_BASE+256+APP_OBJ_OFFSET
  659.         mov  dword [SLOT_BASE+256+APPDATA.fd_obj], ebx
  660.         mov  dword [SLOT_BASE+256+APPDATA.bk_obj], ebx
  661.  
  662.         ; task list
  663.         mov  [TASK_DATA+TASKDATA.wnd_number], 1 ; on screen number
  664.         mov  [TASK_DATA+TASKDATA.pid], 1        ; process id number
  665.         mov  [TASK_DATA+TASKDATA.mem_start], 0  ; process base address
  666.  
  667.         mov  edi,tss_data+tss_step
  668.         mov ecx, (tss_step)/4
  669.         xor eax, eax
  670.         cld
  671.         rep stosd
  672.  
  673.         mov  edi,tss_data+tss_step
  674.         mov  [edi+TSS._ss0], os_data
  675.         mov  eax,cr3
  676.         mov  [edi+TSS._cr3],eax
  677.         mov  [edi+TSS._eip],osloop
  678.         mov  [edi+TSS._eflags],dword 0x11202 ; sti and resume
  679.         mov eax, [os_stack]
  680.         add eax, RING0_STACK_SIZE
  681.         mov  [edi+TSS._esp], eax
  682.         mov  [edi+TSS._cs],os_code
  683.         mov  [edi+TSS._ss],os_data
  684.         mov  [edi+TSS._ds],os_data
  685.         mov  [edi+TSS._es],os_data
  686.         mov  [edi+TSS._fs],os_data
  687.         mov  [edi+TSS._gs],os_data
  688.  
  689.         mov  ax,tss0
  690.         ltr  ax
  691.  
  692.         call init_cursors
  693.  
  694.  
  695. ; READ TSC / SECOND
  696.  
  697.         mov   esi,boot_tsc
  698.         call  boot_log
  699.         call  _rdtsc
  700.         mov   ecx,eax
  701.         mov   esi,250               ; wait 1/4 a second
  702.         call  delay_ms
  703.         call  _rdtsc
  704.         sub   eax,ecx
  705.         shl   eax,2
  706.         mov   [CPU_FREQ],eax          ; save tsc / sec
  707.         mov ebx, 1000000
  708.         div ebx
  709.         mov [stall_mcs], eax
  710.  
  711. ; SET VARIABLES
  712.  
  713.         call  set_variables
  714.  
  715. ; STACK AND FDC
  716.  
  717.         call  stack_init
  718.         call  fdc_init
  719.  
  720. ; PALETTE FOR 320x200 and 640x480 16 col
  721.  
  722.         cmp   [SCR_MODE],word 0x12
  723.         jne   no_pal_vga
  724.         mov   esi,boot_pal_vga
  725.         call  boot_log
  726.         call  paletteVGA
  727.       no_pal_vga:
  728.  
  729.         cmp   [SCR_MODE],word 0x13
  730.         jne   no_pal_ega
  731.         mov   esi,boot_pal_ega
  732.         call  boot_log
  733.         call  palette320x200
  734.       no_pal_ega:
  735.  
  736. ; LOAD DEFAULT SKIN
  737.  
  738.         mov     esi,_skin_file_default
  739.         mov     edi,_skin_file
  740.         movsd
  741.         movsd
  742.         movsd
  743.         call    load_skin
  744.  
  745. ; LOAD FIRST APPLICATION
  746.         mov   [CURRENT_TASK],dword 1
  747.         mov   [TASK_COUNT],dword 1
  748.         cli
  749.         cmp   byte [0x2f0000+0x9030],1
  750.         jne   no_load_vrr_m
  751.  
  752.         mov ebp, vrr_m
  753.         xor ebx, ebx
  754.         xor edx, edx
  755.         call fs_execute
  756.         cmp   eax,2                  ; if vrr_m app found (PID=2)
  757.         je    first_app_found
  758.  
  759. no_load_vrr_m:
  760.         mov ebp, firstapp
  761.         xor ebx, ebx
  762.         xor edx, edx
  763.         call fs_execute
  764.         cmp   eax,2                  ; continue if a process has been loaded
  765.         je    first_app_found
  766.         mov   eax, 0xDEADBEEF        ; otherwise halt
  767.         hlt
  768. first_app_found:
  769.         cli
  770.  
  771.         ;mov   [TASK_COUNT],dword 2
  772.         mov   [CURRENT_TASK],dword 1       ; set OS task fisrt
  773.  
  774.  
  775. ; SET KEYBOARD PARAMETERS
  776.         mov   al, 0xf6         ; reset keyboard, scan enabled
  777.         call  kb_write
  778.  
  779.         ; wait until 8042 is ready
  780.         xor ecx,ecx
  781.       @@:
  782.         in     al,64h
  783.         and    al,00000010b
  784.         loopnz @b
  785.  
  786.        ; mov   al, 0xED       ; svetodiody - only for testing!
  787.        ; call  kb_write
  788.        ; call  kb_read
  789.        ; mov   al, 111b
  790.        ; call  kb_write
  791.        ; call  kb_read
  792.  
  793.         mov   al, 0xF3       ; set repeat rate & delay
  794.         call  kb_write
  795. ;        call  kb_read
  796.         mov   al, 0 ; 30 250 ;00100010b ; 24 500  ;00100100b  ; 20 500
  797.         call  kb_write
  798. ;        call  kb_read
  799.      ;// mike.dld [
  800.         call  set_lights
  801.      ;// mike.dld ]
  802.  
  803. ; START MULTITASKING
  804.  
  805.         mov   esi,boot_tasking
  806.         call  boot_log
  807.  
  808.  ;      mov   [ENABLE_TASKSWITCH],byte 1        ; multitasking enabled
  809.  
  810. ; UNMASK ALL IRQ'S
  811.  
  812.         mov   esi,boot_allirqs
  813.         call  boot_log
  814.  
  815.         cli                          ;guarantee forbidance of interrupts.
  816.         mov   al,0                   ; unmask all irq's
  817.         out   0xA1,al
  818.         out   0x21,al
  819.  
  820.         mov   ecx,32
  821.  
  822.      ready_for_irqs:
  823.  
  824.         mov   al,0x20                ; ready for irqs
  825.         out   0x20,al
  826.         out   0xa0,al
  827.  
  828.         loop  ready_for_irqs         ; flush the queue
  829.  
  830.         stdcall attach_int_handler, dword 1, irq1
  831.  
  832. ;        mov    [dma_hdd],1
  833.         cmp     [IDEContrRegsBaseAddr], 0
  834.         setnz   [dma_hdd]
  835.  
  836.         sti
  837.         jmp   $                      ; wait here for timer to take control
  838.  
  839.         ; Fly :)
  840.  
  841. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  842. ;                                                                    ;
  843. ;                    MAIN OS LOOP START                              ;
  844. ;                                                                    ;
  845. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  846. align 32
  847. osloop:
  848.         call   [draw_pointer]
  849.         call   checkbuttons
  850.         call   checkwindows
  851. ;       call   check_window_move_request
  852.         call   checkmisc
  853.         call   checkVga_N13
  854.         call   stack_handler
  855.         call   checkidle
  856.         call   check_fdd_motor_status
  857.         jmp    osloop
  858. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  859. ;                                                                    ;
  860. ;                      MAIN OS LOOP END                              ;
  861. ;                                                                    ;
  862. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  863.  
  864. checkidle:
  865.         pushad
  866.  
  867.         cmp  [check_idle_semaphore],0
  868.         jne  no_idle_state
  869.  
  870.         call change_task
  871.         mov  eax,[idlemem]
  872.         mov  ebx,[timer_ticks] ;[0xfdf0]
  873.         cmp  eax,ebx
  874.         jnz  idle_exit
  875.         call _rdtsc
  876.         mov  ecx,eax
  877.       idle_loop:
  878.         hlt
  879.         cmp  [check_idle_semaphore],0
  880.         jne  idle_loop_exit
  881.         mov  eax,[timer_ticks] ;[0xfdf0]
  882.         cmp  ebx,eax
  883.         jz   idle_loop
  884.       idle_loop_exit:
  885.         mov  [idlemem],eax
  886.         call _rdtsc
  887.         sub  eax,ecx
  888.         mov  ebx,[idleuse]
  889.         add  ebx,eax
  890.         mov  [idleuse],ebx
  891.  
  892.         popad
  893.         ret
  894.  
  895.       idle_exit:
  896.  
  897.         mov  ebx,[timer_ticks] ;[0xfdf0]
  898.         mov  [idlemem],ebx
  899.         call change_task
  900.  
  901.         popad
  902.         ret
  903.  
  904.       no_idle_state:
  905.  
  906.         dec  [check_idle_semaphore]
  907.  
  908.         mov  ebx,[timer_ticks] ;[0xfdf0]
  909.         mov  [idlemem],ebx
  910.         call change_task
  911.  
  912.         popad
  913.         ret
  914.  
  915. uglobal
  916.   idlemem               dd   0x0
  917.   idleuse               dd   0x0
  918.   idleusesec            dd   0x0
  919.   check_idle_semaphore  dd   0x0
  920. endg
  921.  
  922.  
  923.  
  924. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  925. ;                                                                      ;
  926. ;                   INCLUDED SYSTEM FILES                              ;
  927. ;                                                                      ;
  928. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  929.  
  930.  
  931. include "kernel32.inc"
  932.  
  933.  
  934. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  935. ;                                                                      ;
  936. ;                       KERNEL FUNCTIONS                               ;
  937. ;                                                                      ;
  938. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  939.  
  940. reserve_irqs_ports:
  941.  
  942.         pushad
  943.  
  944.         mov  [irq_owner+4*0],byte 1    ; timer
  945.         mov  [irq_owner+4*1],byte 1    ; keyboard
  946.         mov  [irq_owner+4*5],byte 1    ; sound blaster
  947.         mov  [irq_owner+4*6],byte 1    ; floppy diskette
  948.         mov  [irq_owner+4*13],byte 1   ; math co-pros
  949.         mov  [irq_owner+4*14],byte 1   ; ide I
  950.         mov  [irq_owner+4*15],byte 1   ; ide II
  951. ;        movzx eax,byte [0xf604]        ; mouse irq
  952. ;        dec   eax
  953. ;        add   eax,mouseirqtable
  954. ;        movzx eax,byte [eax]
  955. ;        shl   eax,2
  956. ;        mov   [irq_owner+eax],byte 1
  957.  
  958.  
  959.                                        ; RESERVE PORTS
  960.         mov   edi,1                    ; 0x00-0x2d
  961.         mov   [RESERVED_PORTS],edi
  962.         shl   edi,4
  963.         mov   [RESERVED_PORTS+edi+0],dword 1
  964.         mov   [RESERVED_PORTS+edi+4],dword 0x0
  965.         mov   [RESERVED_PORTS+edi+8],dword 0x2d
  966.  
  967.         inc   dword [RESERVED_PORTS]          ; 0x30-0x4d
  968.         mov   edi,[RESERVED_PORTS]
  969.         shl   edi,4
  970.         mov   [RESERVED_PORTS+edi+0],dword 1
  971.         mov   [RESERVED_PORTS+edi+4],dword 0x30
  972.         mov   [RESERVED_PORTS+edi+8],dword 0x4d
  973.  
  974.         inc   dword [RESERVED_PORTS]          ; 0x50-0xdf
  975.         mov   edi,[RESERVED_PORTS]
  976.         shl   edi,4
  977.         mov   [RESERVED_PORTS+edi+0],dword 1
  978.         mov   [RESERVED_PORTS+edi+4],dword 0x50
  979.         mov   [RESERVED_PORTS+edi+8],dword 0xdf
  980.  
  981.         inc   dword [RESERVED_PORTS]          ; 0xe5-0xff
  982.         mov   edi,[RESERVED_PORTS]
  983.         shl   edi,4
  984.         mov   [RESERVED_PORTS+edi+0],dword 1
  985.         mov   [RESERVED_PORTS+edi+4],dword 0xe5
  986.         mov   [RESERVED_PORTS+edi+8],dword 0xff
  987.  
  988.  
  989. ;        cmp   [0xf604],byte 2          ; com1 mouse -> 0x3f0-0x3ff
  990. ;        jne   ripl1
  991. ;        inc   dword [0x2d0000]
  992. ;        mov   edi,[0x2d0000]
  993. ;        shl   edi,4
  994. ;        mov   [0x2d0000+edi+0],dword 1
  995. ;        mov   [0x2d0000+edi+4],dword 0x3f0
  996. ;        mov   [0x2d0000+edi+8],dword 0x3ff
  997. ;      ripl1:
  998. ;        cmp   [0xf604],byte 3          ; com2 mouse -> 0x2f0-0x2ff
  999. ;        jne   ripl2
  1000. ;        inc   dword [0x2d0000]
  1001. ;        mov   edi,[0x2d0000]
  1002. ;        shl   edi,4
  1003. ;        mov   [0x2d0000+edi+0],dword 1
  1004. ;        mov   [0x2d0000+edi+4],dword 0x2f0
  1005. ;        mov   [0x2d0000+edi+8],dword 0x2ff
  1006. ;      ripl2:
  1007.  
  1008.         popad
  1009.         ret
  1010.  
  1011. iglobal
  1012. mouseirqtable   db  12    ; ps2
  1013.                 db  4     ; com1
  1014.                 db  3     ; com2
  1015. endg
  1016.  
  1017. setirqreadports:
  1018.  
  1019.         mov   [irq12read+0],dword 0x60 + 0x01000000  ; read port 0x60 , byte
  1020.         mov   [irq12read+4],dword 0                  ; end of port list
  1021.         mov   [irq04read+0],dword 0x3f8 + 0x01000000 ; read port 0x3f8 , byte
  1022.         mov   [irq04read+4],dword 0                  ; end of port list
  1023.         mov   [irq03read+0],dword 0x2f8 + 0x01000000 ; read port 0x2f8 , byte
  1024.         mov   [irq03read+4],dword 0                  ; end of port list
  1025.  
  1026.         ret
  1027.  
  1028. iglobal
  1029.   process_number dd 0x1
  1030. endg
  1031.  
  1032. set_variables:
  1033.  
  1034.         mov   ecx,0x100                       ; flush port 0x60
  1035. .fl60:  in    al,0x60
  1036.         loop  .fl60
  1037.         mov   [MOUSE_BUFF_COUNT],byte 0                 ; mouse buffer
  1038.         mov   [KEY_COUNT],byte 0                 ; keyboard buffer
  1039.         mov   [BTN_COUNT],byte 0                 ; button buffer
  1040. ;        mov   [MOUSE_X],dword 100*65536+100    ; mouse x/y
  1041.  
  1042.         push  eax
  1043.         mov   ax,[0x2f0000+0x900c]
  1044.         shr   ax,1
  1045.         shl   eax,16
  1046.         mov   ax,[0x2f0000+0x900A]
  1047.         shr   ax,1
  1048.         mov   [MOUSE_X],eax
  1049.         pop   eax
  1050.  
  1051.         mov   byte [SB16_Status],0            ; Minazzi Paolo
  1052.         mov   [display_data-12],dword 1       ; tiled background
  1053.         mov   [BTN_ADDR],dword BUTTON_INFO    ; address of button list
  1054.  
  1055.      ;!! IP 04.02.2005:
  1056.         mov   [next_usage_update], 100
  1057.         mov   byte [0xFFFF], 0 ; change task if possible
  1058.  
  1059.         ret
  1060.  
  1061. ;* mouse centered - start code- Mario79
  1062. mouse_centered:
  1063.         push  eax
  1064.         mov   eax,[ScreenWidth]
  1065.         shr   eax,1
  1066.         mov   [MOUSE_X],ax
  1067.         mov   eax,[ScreenHeight]
  1068.         shr   eax,1
  1069.         mov   [MOUSE_Y],ax
  1070.         pop   eax
  1071.         ret
  1072. ;* mouse centered - end code- Mario79
  1073.  
  1074. align 4
  1075.  
  1076. sys_outport:
  1077.  
  1078.     mov   edi,ebx          ; separate flag for read / write
  1079.     and   ebx,65535
  1080.  
  1081.     mov   ecx,[RESERVED_PORTS]
  1082.     test  ecx,ecx
  1083.     jne   sopl8
  1084.     mov   [esp+36],dword 1
  1085.     ret
  1086.  
  1087.   sopl8:
  1088.     mov   edx,[TASK_BASE]
  1089.     mov   edx,[edx+0x4]
  1090.     and   ebx,65535
  1091.     cld
  1092.   sopl1:
  1093.  
  1094.     mov   esi,ecx
  1095.     shl   esi,4
  1096.     add   esi,RESERVED_PORTS
  1097.     cmp   edx,[esi+0]
  1098.     jne   sopl2
  1099.     cmp   ebx,[esi+4]
  1100.     jb    sopl2
  1101.     cmp   ebx,[esi+8]
  1102.     jg    sopl2
  1103.     jmp   sopl3
  1104.  
  1105.   sopl2:
  1106.  
  1107.     dec   ecx
  1108.     jnz   sopl1
  1109.     mov   [esp+36],dword 1
  1110.     ret
  1111.  
  1112.   sopl3:
  1113.  
  1114.     test  edi,0x80000000 ; read ?
  1115.     jnz   sopl4
  1116.  
  1117.     mov   dx,bx          ; write
  1118.     out   dx,al
  1119.     mov   [esp+36],dword 0
  1120.     ret
  1121.  
  1122.   sopl4:
  1123.  
  1124.     mov   dx,bx          ; read
  1125.     in    al,dx
  1126.     and   eax,0xff
  1127.     mov   [esp+36],dword 0
  1128.     mov   [esp+24],eax
  1129.     ret
  1130.  
  1131.  
  1132.  
  1133. align 4
  1134. sys_sb16:
  1135.  
  1136.      cmp  word [sb16],word 0
  1137.      jnz  sb16l1
  1138.      mov  [esp+36],dword 1
  1139.      ret
  1140.    sb16l1:
  1141.      mov  [esp+36],dword 0
  1142.      cmp  eax,1    ; set volume - main
  1143.      jnz  sb16l2
  1144.      mov  dx,word [sb16]
  1145.      add  dx,4
  1146.      mov  al,0x22
  1147.      out  dx,al
  1148.      mov  esi,1
  1149.      call delay_ms
  1150.      mov  eax,ebx
  1151.      inc  edx
  1152.      out  dx,al
  1153.      ret
  1154.    sb16l2:
  1155.  
  1156.      cmp  eax,2    ; set volume - cd
  1157.      jnz  sb16l3
  1158.      mov  dx,word [sb16]
  1159.      add  dx,4
  1160.      mov  al,0x28
  1161.      out  dx,al
  1162.      mov  esi,1
  1163.      call delay_ms
  1164.      mov  eax,ebx
  1165.      add  edx,1
  1166.      out  dx,al
  1167.      ret
  1168.    sb16l3:
  1169.       mov  [esp+36],dword 2
  1170.       ret
  1171.  
  1172.  
  1173. align 4
  1174.  
  1175. sys_sb16II:
  1176.  
  1177.      cmp  word [sb16],word 0
  1178.      jnz  IIsb16l1
  1179.      mov  [esp+36],dword 1
  1180.      ret
  1181.    IIsb16l1:
  1182.  
  1183.      cmp  eax,1    ; set volume - main
  1184.      jnz  IIsb16l2
  1185.      ; L
  1186.      mov  dx,word [sb16]
  1187.      add  dx,4
  1188.      mov  al,0x30
  1189.      out  dx,al
  1190.      mov  eax,ebx
  1191.      inc  edx
  1192.      out  dx,al
  1193.      ; R
  1194.      mov  dx,word [sb16]
  1195.      add  dx,4
  1196.      mov  al,0x31
  1197.      out  dx,al
  1198.      mov  eax,ebx
  1199.      inc  edx
  1200.      out  dx,al
  1201.      mov  [esp+36],dword 0
  1202.      ret
  1203.    IIsb16l2:
  1204.  
  1205.      cmp  eax,2    ; set volume - cd
  1206.      jnz  IIsb16l3
  1207.      ; L
  1208.      mov  dx,word [sb16]
  1209.      add  dx,4
  1210.      mov  al,0x36
  1211.      out  dx,al
  1212.      mov  eax,ebx
  1213.      inc  edx
  1214.      out  dx,al
  1215.      ; R
  1216.      mov  dx,word [sb16]
  1217.      add  dx,4
  1218.      mov  al,0x37
  1219.      out  dx,al
  1220.      mov  eax,ebx
  1221.      inc  edx
  1222.      out  dx,al
  1223.      mov  [esp+36],dword 0
  1224.      ret
  1225.    IIsb16l3:
  1226.  
  1227.      mov  [esp+36],dword 2
  1228.      ret
  1229.  
  1230.  
  1231. display_number:
  1232.  
  1233. ; eax = print type, al=0 -> ebx is number
  1234. ;                   al=1 -> ebx is pointer
  1235. ;                   ah=0 -> display decimal
  1236. ;                   ah=1 -> display hexadecimal
  1237. ;                   ah=2 -> display binary
  1238. ;                   eax bits 16-21 = number of digits to display (0-32)
  1239. ;                   eax bits 22-31 = reserved
  1240. ;
  1241. ; ebx = number or pointer
  1242. ; ecx = x shl 16 + y
  1243. ; edx = color
  1244.         xor     edi, edi
  1245. display_number_force:
  1246.  
  1247.      cmp   eax,0xffff            ; length > 0 ?
  1248.      jge   cont_displ
  1249.      ret
  1250.    cont_displ:
  1251.  
  1252.      cmp   eax,61*0x10000        ; length <= 60 ?
  1253.      jb    cont_displ2
  1254.      ret
  1255.    cont_displ2:
  1256.  
  1257.      pushad
  1258.  
  1259.      cmp   al,1                  ; ecx is a pointer ?
  1260.      jne   displnl1
  1261.      mov   ebx,[ebx+std_application_base_address]
  1262.    displnl1:
  1263.      sub   esp,64
  1264.  
  1265.      cmp   ah,0                  ; DECIMAL
  1266.      jne   no_display_desnum
  1267.      shr   eax,16
  1268.      and   eax,0x3f
  1269.      push  eax
  1270.      mov   edi,esp
  1271.      add   edi,4+64-1
  1272.      mov   ecx,eax
  1273.      mov   eax,ebx
  1274.      mov   ebx,10
  1275.    d_desnum:
  1276.      xor   edx,edx
  1277.      div   ebx
  1278.      add   dl,48
  1279.      mov   [edi],dl
  1280.      dec   edi
  1281.      loop  d_desnum
  1282.      pop   eax
  1283.      call  draw_num_text
  1284.      add   esp,64
  1285.      popad
  1286.      ret
  1287.    no_display_desnum:
  1288.  
  1289.      cmp   ah,0x01               ; HEXADECIMAL
  1290.      jne   no_display_hexnum
  1291.      shr   eax,16
  1292.      and   eax,0x3f
  1293.      push  eax
  1294.      mov   edi,esp
  1295.      add   edi,4+64-1
  1296.      mov   ecx,eax
  1297.      mov   eax,ebx
  1298.      mov   ebx,16
  1299.    d_hexnum:
  1300.      xor   edx,edx
  1301.      div   ebx
  1302.      add   edx,hexletters
  1303.      mov   dl,[edx]
  1304.      mov   [edi],dl
  1305.      dec   edi
  1306.      loop  d_hexnum
  1307.      pop   eax
  1308.      call  draw_num_text
  1309.      add   esp,64
  1310.      popad
  1311.      ret
  1312.    no_display_hexnum:
  1313.  
  1314.      cmp   ah,0x02               ; BINARY
  1315.      jne   no_display_binnum
  1316.      shr   eax,16
  1317.      and   eax,0x3f
  1318.      push  eax
  1319.      mov   edi,esp
  1320.      add   edi,4+64-1
  1321.      mov   ecx,eax
  1322.      mov   eax,ebx
  1323.      mov   ebx,2
  1324.    d_binnum:
  1325.      xor   edx,edx
  1326.      div   ebx
  1327.      add   dl,48
  1328.      mov   [edi],dl
  1329.      dec   edi
  1330.      loop  d_binnum
  1331.      pop   eax
  1332.      call  draw_num_text
  1333.      add   esp,64
  1334.      popad
  1335.      ret
  1336.    no_display_binnum:
  1337.  
  1338.      add   esp,64
  1339.      popad
  1340.      ret
  1341.  
  1342.  
  1343. draw_num_text:
  1344.  
  1345.      ; dtext
  1346.      ;
  1347.      ; eax x & y
  1348.      ; ebx color
  1349.      ; ecx start of text
  1350.      ; edx length
  1351.      ; edi 1 force
  1352.  
  1353. ;        mov     edi,[CURRENT_TASK]
  1354. ;        shl     edi,8
  1355. ;        add     ax,word[edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
  1356. ;        rol     eax,16
  1357. ;        add     ax,word[edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
  1358. ;        rol     eax,16
  1359.  
  1360.      mov   edx,eax
  1361.      mov   ecx,64+4
  1362.      sub   ecx,eax
  1363.      add   ecx,esp
  1364.      mov   eax,[esp+64+32-8+4]
  1365.      push  edx                       ; add window start x & y
  1366.      mov   edx,[TASK_BASE]
  1367.      mov   ebx,[edx-twdw+WDATA.box.left]
  1368.      add   ebx, [(edx-CURRENT_TASK)*8+SLOT_BASE+APPDATA.wnd_clientbox.left]
  1369.      shl   ebx,16
  1370.      add   ebx,[edx-twdw+WDATA.box.top]
  1371.      add   ebx, [(edx-CURRENT_TASK)*8+SLOT_BASE+APPDATA.wnd_clientbox.top]
  1372.      add   eax,ebx
  1373.      pop   edx
  1374.      mov   ebx,[esp+64+32-12+4]
  1375.         and     ebx, not 0x80000000     ; force counted string
  1376.         mov     esi, [esp+64+4+4]
  1377.         mov     edi, [esp+64+4]
  1378.      jmp   dtext
  1379.  
  1380. read_string:
  1381.  
  1382.     ; eax  read_area
  1383.     ; ebx  color of letter
  1384.     ; ecx  color of background
  1385.     ; edx  number of letters to read
  1386.     ; esi  [x start]*65536 + [y_start]
  1387.  
  1388.     ret
  1389.  
  1390.  
  1391. align 4
  1392.  
  1393. sys_setup:
  1394.  
  1395. ; 1=roland mpu midi base , base io address
  1396. ; 2=keyboard   1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
  1397. ; 3=cd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
  1398. ; 4=sb16 base , base io address
  1399. ; 5=system language, 1eng 2fi 3ger 4rus
  1400. ; 7=hd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
  1401. ; 8=fat32 partition in hd
  1402. ; 9
  1403. ; 10 = sound dma channel
  1404. ; 11 = enable lba read
  1405. ; 12 = enable pci access
  1406.  
  1407.  
  1408.      mov  [esp+36],dword 0
  1409.      cmp  eax,1                      ; MIDI
  1410.      jnz  nsyse1
  1411.      cmp  ebx,0x100
  1412.      jb   nsyse1
  1413.      mov  edx,65535
  1414.      cmp  edx,ebx
  1415.      jb   nsyse1
  1416.      mov  [midi_base],bx
  1417.      mov  word [mididp],bx
  1418.      inc  bx
  1419.      mov  word [midisp],bx
  1420.      ret
  1421.  
  1422. iglobal
  1423. midi_base dw 0
  1424. endg
  1425.  
  1426.    nsyse1:
  1427.  
  1428.      cmp  eax,2                      ; KEYBOARD
  1429.      jnz  nsyse2
  1430.      cmp  ebx,1
  1431.      jnz  kbnobase
  1432.      mov  edi,[TASK_BASE]
  1433.      add  ecx,[edi+TASKDATA.mem_start]
  1434.      mov  eax,ecx
  1435.      mov  ebx,keymap
  1436.      mov  ecx,128
  1437.      call memmove
  1438.      ret
  1439.    kbnobase:
  1440.      cmp  ebx,2
  1441.      jnz  kbnoshift
  1442.      mov  edi,[TASK_BASE]
  1443.      add  ecx,[edi+TASKDATA.mem_start]
  1444.      mov  eax,ecx
  1445.      mov  ebx,keymap_shift
  1446.      mov  ecx,128
  1447.      call memmove
  1448.      ret
  1449.    kbnoshift:
  1450.      cmp  ebx,3
  1451.      jne  kbnoalt
  1452.      mov  edi,[TASK_BASE]
  1453.      add  ecx,[edi+TASKDATA.mem_start]
  1454.      mov  eax,ecx
  1455.      mov  ebx,keymap_alt
  1456.      mov  ecx,128
  1457.      call memmove
  1458.      ret
  1459.    kbnoalt:
  1460.      cmp  ebx,9
  1461.      jnz  kbnocountry
  1462.      mov  word [keyboard],cx
  1463.      ret
  1464.    kbnocountry:
  1465.      mov  [esp+36],dword 1
  1466.      ret
  1467.    nsyse2:
  1468.      cmp  eax,3                      ; CD
  1469.      jnz  nsyse3
  1470.      test ebx,ebx
  1471.      jz   nosesl
  1472.      cmp  ebx, 4
  1473.      ja   nosesl
  1474.      mov  [cd_base],bl
  1475.      cmp  ebx,1
  1476.      jnz  noprma
  1477.      mov  [cdbase],0x1f0
  1478.      mov  [cdid],0xa0
  1479.    noprma:
  1480.      cmp  ebx,2
  1481.      jnz  noprsl
  1482.      mov  [cdbase],0x1f0
  1483.      mov  [cdid],0xb0
  1484.    noprsl:
  1485.      cmp  ebx,3
  1486.      jnz  nosema
  1487.      mov  [cdbase],0x170
  1488.      mov  [cdid],0xa0
  1489.    nosema:
  1490.      cmp  ebx,4
  1491.      jnz  nosesl
  1492.      mov  [cdbase],0x170
  1493.      mov  [cdid],0xb0
  1494.    nosesl:
  1495.      ret
  1496.  
  1497. cd_base db 0
  1498.  
  1499.    nsyse3:
  1500.  
  1501.      cmp  eax,4                      ; SB
  1502.      jnz  nsyse4
  1503.      cmp  ebx,0x100
  1504.      jb   nsyse4
  1505.      mov  edx,65535
  1506.      cmp  edx,ebx
  1507.      jb   nsyse4
  1508.      mov  word [sb16],bx
  1509.      ret
  1510.    nsyse4:
  1511.  
  1512.      cmp  eax,5                      ; SYSTEM LANGUAGE
  1513.      jnz  nsyse5
  1514.      mov  [syslang],ebx
  1515.      ret
  1516.    nsyse5:
  1517.  
  1518.      cmp  eax,7                      ; HD BASE
  1519.      jne  nsyse7
  1520.      test ebx,ebx
  1521.      jz   nosethd
  1522.      cmp  ebx,4
  1523.      ja   nosethd
  1524.      mov  [hd_base],bl
  1525.      cmp  ebx,1
  1526.      jnz  noprmahd
  1527.      mov  [hdbase],0x1f0
  1528.      mov  [hdid],0x0
  1529.      mov  [hdpos],1
  1530. ;     call set_FAT32_variables
  1531.    noprmahd:
  1532.      cmp  ebx,2
  1533.      jnz  noprslhd
  1534.      mov  [hdbase],0x1f0
  1535.      mov  [hdid],0x10
  1536.      mov  [hdpos],2
  1537. ;     call set_FAT32_variables
  1538.    noprslhd:
  1539.      cmp  ebx,3
  1540.      jnz  nosemahd
  1541.      mov  [hdbase],0x170
  1542.      mov  [hdid],0x0
  1543.      mov  [hdpos],3
  1544. ;     call set_FAT32_variables
  1545.    nosemahd:
  1546.      cmp  ebx,4
  1547.      jnz  noseslhd
  1548.      mov  [hdbase],0x170
  1549.      mov  [hdid],0x10
  1550.      mov  [hdpos],4
  1551. ;     call set_FAT32_variables
  1552.    noseslhd:
  1553.     call  reserve_hd1
  1554.     call  reserve_hd_channel
  1555.     call  free_hd_channel
  1556.     mov   [hd1_status],0        ; free
  1557.    nosethd:
  1558.      ret
  1559.  
  1560. iglobal
  1561. hd_base db 0
  1562. endg
  1563.  
  1564.    nsyse7:
  1565.  
  1566.      cmp  eax,8                      ; HD PARTITION
  1567.      jne  nsyse8
  1568.      mov  [fat32part],ebx
  1569. ;     call set_FAT32_variables
  1570.     call  reserve_hd1
  1571.     call  reserve_hd_channel
  1572.     call  free_hd_channel
  1573.      pusha
  1574.      call  choice_necessity_partition_1
  1575.      popa
  1576.     mov   [hd1_status],0        ; free
  1577.      ret
  1578.    nsyse8:
  1579.  
  1580.      cmp  eax,10                     ; SOUND DMA CHANNEL
  1581.      jne  no_set_sound_dma
  1582.      cmp  ebx,3
  1583.      ja   sys_setup_err
  1584.      mov  [sound_dma],ebx
  1585.      ret
  1586.    no_set_sound_dma:
  1587.  
  1588.      cmp  eax,11                     ; ENABLE LBA READ
  1589.      jne  no_set_lba_read
  1590.      and  ebx,1
  1591.      mov  [lba_read_enabled],ebx
  1592.      ret
  1593.    no_set_lba_read:
  1594.  
  1595.      cmp  eax,12                     ; ENABLE PCI ACCESS
  1596.      jne  no_set_pci_access
  1597.      and  ebx,1
  1598.      mov  [pci_access_enabled],ebx
  1599.      ret
  1600.    no_set_pci_access:
  1601.  
  1602. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1603. include 'vmodeint.inc'
  1604. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1605.  
  1606. sys_setup_err:
  1607.      mov  [esp+36],dword -1
  1608.      ret
  1609.  
  1610.  
  1611. align 4
  1612.  
  1613. sys_getsetup:
  1614.  
  1615. ; 1=roland mpu midi base , base io address
  1616. ; 2=keyboard   1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
  1617. ; 3=cd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
  1618. ; 4=sb16 base , base io address
  1619. ; 5=system language, 1eng 2fi 3ger 4rus
  1620. ; 7=hd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
  1621. ; 8=fat32 partition in hd
  1622. ; 9=get hs timer tic
  1623.  
  1624.      cmp  eax,1
  1625.      jne  ngsyse1
  1626.      movzx eax,[midi_base]
  1627.      mov  [esp+36],eax
  1628.      ret
  1629.    ngsyse1:
  1630.  
  1631.      cmp  eax,2
  1632.      jne  ngsyse2
  1633.      cmp  ebx,1
  1634.      jnz  kbnobaseret
  1635.      mov  edi,[TASK_BASE]
  1636.      add  ecx,[edi+TASKDATA.mem_start]
  1637.      mov  ebx,ecx
  1638.      mov  eax,keymap
  1639.      mov  ecx,128
  1640.      call memmove
  1641.      ret
  1642.    kbnobaseret:
  1643.      cmp  ebx,2
  1644.      jnz  kbnoshiftret
  1645.      mov  edi,[TASK_BASE]
  1646.      add  ecx,[edi+TASKDATA.mem_start]
  1647.      mov  ebx,ecx
  1648.      mov  eax,keymap_shift
  1649.      mov  ecx,128
  1650.      call memmove
  1651.      ret
  1652.    kbnoshiftret:
  1653.      cmp  ebx,3
  1654.      jne  kbnoaltret
  1655.      mov  edi,[TASK_BASE]
  1656.      add  ecx,[edi+TASKDATA.mem_start]
  1657.      mov  ebx,ecx
  1658.      mov  eax,keymap_alt
  1659.      mov  ecx,128
  1660.      call memmove
  1661.      ret
  1662.    kbnoaltret:
  1663.      cmp  ebx,9
  1664.      jnz  ngsyse2
  1665.      movzx eax,word [keyboard]
  1666.      mov  [esp+36],eax
  1667.      ret
  1668.    ngsyse2:
  1669.  
  1670.      cmp  eax,3
  1671.      jnz  ngsyse3
  1672.      movzx eax,[cd_base]
  1673.      mov  [esp+36],eax
  1674.      ret
  1675.    ngsyse3:
  1676.  
  1677.      cmp  eax,4
  1678.      jne  ngsyse4
  1679.      mov  eax,[sb16]
  1680.      mov  [esp+36],eax
  1681.      ret
  1682.    ngsyse4:
  1683.  
  1684.      cmp  eax,5
  1685.      jnz  ngsyse5
  1686.      mov  eax,[syslang]
  1687.      mov  [esp+36],eax
  1688.      ret
  1689.    ngsyse5:
  1690.      cmp  eax,7
  1691.      jnz  ngsyse7
  1692.      movzx eax,[hd_base]
  1693.      mov  [esp+36],eax
  1694.      ret
  1695.    ngsyse7:
  1696.      cmp  eax,8
  1697.      jnz  ngsyse8
  1698.      mov eax,[fat32part]
  1699.      mov  [esp+36],eax
  1700.      ret
  1701.    ngsyse8:
  1702.      cmp  eax,9
  1703.      jne  ngsyse9
  1704.      mov  eax,[timer_ticks] ;[0xfdf0]
  1705.      mov  [esp+36],eax
  1706.      ret
  1707.    ngsyse9:
  1708.      cmp  eax,10
  1709.      jnz  ngsyse10
  1710.      mov eax,[sound_dma]
  1711.      mov  [esp+36],eax
  1712.      ret
  1713.    ngsyse10:
  1714.      cmp  eax,11
  1715.      jnz  ngsyse11
  1716.      mov eax,[lba_read_enabled]
  1717.      mov  [esp+36],eax
  1718.      ret
  1719.    ngsyse11:
  1720.      cmp  eax,12
  1721.      jnz  ngsyse12
  1722.      mov eax,[pci_access_enabled]
  1723.      mov  [esp+36],eax
  1724.      ret
  1725.    ngsyse12:
  1726.      mov  [esp+36],dword 1
  1727.      ret
  1728.  
  1729. iglobal
  1730. align 4
  1731. mousefn dd msscreen, mswin, msbutton, msset
  1732.         dd app_load_cursor
  1733.         dd app_set_cursor
  1734.         dd app_delete_cursor
  1735. endg
  1736.  
  1737. readmousepos:
  1738.  
  1739. ; eax=0 screen relative
  1740. ; eax=1 window relative
  1741. ; eax=2 buttons pressed
  1742. ; eax=3 set mouse pos   ; reserved
  1743. ; eax=4 load cursor
  1744. ; eax=5 set cursor
  1745. ; eax=6 delete cursor   ; reserved
  1746.  
  1747.            cmp eax, 6
  1748.            ja msset
  1749.            jmp [mousefn+eax*4]
  1750. msscreen:
  1751.            mov  eax,[MOUSE_X]
  1752.            shl  eax,16
  1753.            mov  ax,[MOUSE_Y]
  1754.            mov  [esp+36],eax
  1755.            ret
  1756. mswin:
  1757.            mov  eax,[MOUSE_X]
  1758.            shl  eax,16
  1759.            mov  ax,[MOUSE_Y]
  1760.            mov  esi,[TASK_BASE]
  1761.            mov  bx, word [esi-twdw+WDATA.box.left]
  1762.            shl  ebx,16
  1763.            mov  bx, word [esi-twdw+WDATA.box.top]
  1764.            sub  eax,ebx
  1765.  
  1766.            mov  edi,[CURRENT_TASK]
  1767.            shl  edi,8
  1768.            sub  ax,word[edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
  1769.            rol  eax,16
  1770.            sub  ax,word[edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
  1771.            rol  eax,16
  1772.            mov  [esp+36],eax
  1773.            ret
  1774. msbutton:
  1775.            movzx eax,byte [BTN_DOWN]
  1776.            mov  [esp+36],eax
  1777.            ret
  1778. msset:
  1779.            ret
  1780.  
  1781. app_load_cursor:
  1782.            add ebx, new_app_base
  1783.            cmp ebx, new_app_base
  1784.            jb msset
  1785.            stdcall load_cursor, ebx, ecx
  1786.            mov [esp+36], eax
  1787.            ret
  1788.  
  1789. app_set_cursor:
  1790.            stdcall set_cursor, ebx
  1791.            mov [esp+36], eax
  1792.            ret
  1793.  
  1794. app_delete_cursor:
  1795.            stdcall delete_cursor, ebx
  1796.            mov [esp+36], eax
  1797.            ret
  1798.  
  1799. is_input:
  1800.  
  1801.    push edx
  1802.    mov  dx,word [midisp]
  1803.    in   al,dx
  1804.    and  al,0x80
  1805.    pop  edx
  1806.    ret
  1807.  
  1808. is_output:
  1809.  
  1810.    push edx
  1811.    mov  dx,word [midisp]
  1812.    in   al,dx
  1813.    and  al,0x40
  1814.    pop  edx
  1815.    ret
  1816.  
  1817.  
  1818. get_mpu_in:
  1819.  
  1820.    push edx
  1821.    mov  dx,word [mididp]
  1822.    in   al,dx
  1823.    pop  edx
  1824.    ret
  1825.  
  1826.  
  1827. put_mpu_out:
  1828.  
  1829.    push edx
  1830.    mov  dx,word [mididp]
  1831.    out  dx,al
  1832.    pop  edx
  1833.    ret
  1834.  
  1835.  
  1836. setuart:
  1837.  
  1838.  su1:
  1839.    call is_output
  1840.    cmp  al,0
  1841.    jnz  su1
  1842.    mov  dx,word [midisp]
  1843.    mov  al,0xff
  1844.    out  dx,al
  1845.  su2:
  1846.    mov  dx,word [midisp]
  1847.    mov  al,0xff
  1848.    out  dx,al
  1849.    call is_input
  1850.    cmp  al,0
  1851.    jnz  su2
  1852.    call get_mpu_in
  1853.    cmp  al,0xfe
  1854.    jnz  su2
  1855.  su3:
  1856.    call is_output
  1857.    cmp  al,0
  1858.    jnz  su3
  1859.    mov  dx,word [midisp]
  1860.    mov  al,0x3f
  1861.    out  dx,al
  1862.  
  1863.    ret
  1864.  
  1865.  
  1866. align 4
  1867.  
  1868. sys_midi:
  1869.  
  1870.      cmp  [mididp],0
  1871.      jnz  sm0
  1872.      mov  [esp+36],dword 1
  1873.      ret
  1874.    sm0:
  1875.  
  1876.      cmp  eax,1
  1877.      mov  [esp+36],dword 0
  1878.      jnz  smn1
  1879.      call setuart
  1880.      ret
  1881.    smn1:
  1882.  
  1883.      cmp  eax,2
  1884.      jnz  smn2
  1885.    sm10:
  1886.      call get_mpu_in
  1887.      call is_output
  1888.      test al,al
  1889.      jnz  sm10
  1890.      mov  al,bl
  1891.      call put_mpu_out
  1892.      ret
  1893.    smn2:
  1894.  
  1895.      ret
  1896.  
  1897.  
  1898. detect_devices:
  1899. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1900. include 'detect/commouse.inc'
  1901. include 'detect/ps2mouse.inc'
  1902. ;include 'detect/dev_fd.inc'
  1903. ;include 'detect/dev_hdcd.inc'
  1904. ;include 'detect/sear_par.inc'
  1905. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1906.     ret
  1907.  
  1908.  
  1909. sys_end:
  1910.  
  1911.      mov   eax,[TASK_BASE]
  1912.      mov   [eax+TASKDATA.state], 3  ; terminate this program
  1913.  
  1914.     waitterm:            ; wait here for termination
  1915.      mov   eax,5
  1916.      call  delay_hs
  1917.      jmp   waitterm
  1918.  
  1919. iglobal
  1920. align 4
  1921. sys_system_table:
  1922.         dd      sysfn_shutdown          ; 1 = system shutdown
  1923.         dd      sysfn_terminate         ; 2 = terminate thread
  1924.         dd      sysfn_activate          ; 3 = activate window
  1925.         dd      sysfn_getidletime       ; 4 = get idle time
  1926.         dd      sysfn_getcpuclock       ; 5 = get cpu clock
  1927.         dd      sysfn_saveramdisk       ; 6 = save ramdisk
  1928.         dd      sysfn_getactive         ; 7 = get active window
  1929.         dd      sysfn_sound_flag        ; 8 = get/set sound_flag
  1930.         dd      sysfn_shutdown_param    ; 9 = shutdown with parameter
  1931.         dd      sysfn_minimize          ; 10 = minimize window
  1932.         dd      sysfn_getdiskinfo       ; 11 = get disk subsystem info
  1933.         dd      sysfn_lastkey           ; 12 = get last pressed key
  1934.         dd      sysfn_getversion        ; 13 = get kernel version
  1935.         dd      sysfn_waitretrace       ; 14 = wait retrace
  1936.         dd      sysfn_centermouse       ; 15 = center mouse cursor
  1937.         dd      sysfn_getfreemem        ; 16 = get free memory size
  1938.         dd      sysfn_getallmem         ; 17 = get total memory size
  1939.         dd      sysfn_terminate2        ; 18 = terminate thread using PID
  1940.                                         ;                 instead of slot
  1941.         dd      sysfn_mouse_acceleration; 19 = set/get mouse acceleration
  1942.         dd      sysfn_meminfo           ; 20 = get extended memory info
  1943. sysfn_num = ($ - sys_system_table)/4
  1944. endg
  1945.  
  1946. sys_system:
  1947.         dec     eax
  1948.         cmp     eax, sysfn_num
  1949.         jae     @f
  1950.         jmp     dword [sys_system_table + eax*4]
  1951. @@:
  1952.         ret
  1953.  
  1954. sysfn_shutdown:         ; 18.1 = BOOT
  1955.      mov  [0x2f0000+0x9030],byte 0
  1956.   for_shutdown_parameter:
  1957.  
  1958.      mov  eax,[TASK_COUNT]
  1959.      add  eax,2
  1960.      mov  [shutdown_processes],eax
  1961.      mov  [SYS_SHUTDOWN],al
  1962.      and  dword [esp+36], 0
  1963.      ret
  1964.   uglobal
  1965.    shutdown_processes: dd 0x0
  1966.   endg
  1967.  
  1968. sysfn_terminate:        ; 18.2 = TERMINATE
  1969.      cmp  ebx,2
  1970.      jb   noprocessterminate
  1971.      mov  edx,[TASK_COUNT]
  1972.      cmp  ebx,edx
  1973.      ja   noprocessterminate
  1974.      mov  eax,[TASK_COUNT]
  1975.      shl  ebx,5
  1976.      mov  edx,[ebx+CURRENT_TASK+TASKDATA.pid]
  1977.      add  ebx,CURRENT_TASK+TASKDATA.state
  1978.      cmp  byte [ebx], 9
  1979.      jz   noprocessterminate
  1980.  
  1981.      ;call MEM_Heap_Lock      ;guarantee that process isn't working with heap
  1982.      mov  [ebx],byte 3       ; clear possible i40's
  1983.      ;call MEM_Heap_UnLock
  1984.  
  1985.      cmp  edx,[application_table_status]    ; clear app table stat
  1986.      jne  noatsc
  1987.      mov  [application_table_status],0
  1988.    noatsc:
  1989.    noprocessterminate:
  1990.      ret
  1991.  
  1992. sysfn_terminate2:
  1993. ;lock application_table_status mutex
  1994. .table_status:
  1995.     cli
  1996.     cmp    [application_table_status],0
  1997.     je     .stf
  1998.     sti
  1999.     call   change_task
  2000.     jmp    .table_status
  2001. .stf:
  2002.     call   set_application_table_status
  2003.     mov    eax,ebx
  2004.     call   pid_to_slot
  2005.     test   eax,eax
  2006.     jz     .not_found
  2007.     mov    ebx,eax
  2008.     cli
  2009.     call   sysfn_terminate
  2010.     mov    [application_table_status],0
  2011.     sti
  2012.     and    dword [esp+36],0
  2013.     ret
  2014. .not_found:
  2015.     mov    [application_table_status],0
  2016.     or     dword [esp+36],-1
  2017.     ret
  2018.  
  2019. sysfn_activate:         ; 18.3 = ACTIVATE WINDOW
  2020.      cmp  ebx,2
  2021.      jb   .nowindowactivate
  2022.      cmp  ebx,[TASK_COUNT]
  2023.      ja   .nowindowactivate
  2024.  
  2025.      mov   [window_minimize], 2   ; restore window if minimized
  2026.  
  2027.      movzx esi, word [WIN_STACK + ebx*2]
  2028.      cmp   esi, [TASK_COUNT]
  2029.      je    .nowindowactivate ; already active
  2030.  
  2031.      mov   edi, ebx
  2032.      shl   edi, 5
  2033.      add   edi, window_data
  2034.      movzx esi, word [WIN_STACK + ebx * 2]
  2035.      lea   esi, [WIN_POS + esi * 2]
  2036.      call  waredraw
  2037. .nowindowactivate:
  2038.      ret
  2039.  
  2040. sysfn_getidletime:              ; 18.4 = GET IDLETIME
  2041.      mov  eax,[idleusesec]
  2042.      mov  [esp+36], eax
  2043.      ret
  2044.  
  2045. sysfn_getcpuclock:              ; 18.5 = GET TSC/SEC
  2046.      mov  eax,[CPU_FREQ]
  2047.      mov  [esp+36], eax
  2048.      ret
  2049.  
  2050. ;  SAVE ramdisk to /hd/1/menuet.img
  2051. ;!!!!!!!!!!!!!!!!!!!!!!!!
  2052.    include 'blkdev/rdsave.inc'
  2053. ;!!!!!!!!!!!!!!!!!!!!!!!!
  2054.  
  2055. sysfn_getactive:        ; 18.7 = get active window
  2056.      mov  eax, [TASK_COUNT]
  2057.    movzx  eax, word [WIN_POS + eax*2]
  2058.      mov  [esp+36],eax
  2059.      ret
  2060.  
  2061. sysfn_sound_flag:       ; 18.8 = get/set sound_flag
  2062.      cmp  ebx,1
  2063.      jne  nogetsoundflag
  2064.      movzx  eax,byte [sound_flag] ; get sound_flag
  2065.      mov  [esp+36],eax
  2066.      ret
  2067.  nogetsoundflag:
  2068.      cmp  ebx,2
  2069.      jnz  nosoundflag
  2070.      xor  byte [sound_flag], 1
  2071.  nosoundflag:
  2072.      ret
  2073.  
  2074. sysfn_shutdown_param:   ; 18.9 = system shutdown with param
  2075.      cmp  ebx,1
  2076.      jl   exit_for_anyone
  2077.      cmp  ebx,4
  2078.      jg   exit_for_anyone
  2079.      mov  [0x2f0000+0x9030],bl
  2080.      jmp  for_shutdown_parameter
  2081.  
  2082. sysfn_minimize:         ; 18.10 = minimize window
  2083.      mov   [window_minimize],1
  2084.  exit_for_anyone:
  2085.      ret
  2086.  
  2087. sysfn_getdiskinfo:      ; 18.11 = get disk info table
  2088.      cmp  ebx,1
  2089.      jnz  full_table
  2090.   small_table:
  2091.      call for_all_tables
  2092.      mov ecx,10
  2093.      cld
  2094.      rep movsb
  2095.      ret
  2096.    for_all_tables:
  2097.      mov edi,[TASK_BASE]
  2098.      mov edi,[edi+TASKDATA.mem_start]
  2099.      add edi,ecx
  2100.      mov esi,DRIVE_DATA
  2101.      ret
  2102.   full_table:
  2103.      cmp  ebx,2
  2104.      jnz  exit_for_anyone
  2105.      call for_all_tables
  2106.      mov ecx,16384
  2107.      cld
  2108.      rep movsd
  2109.      ret
  2110.  
  2111. sysfn_lastkey:          ; 18.12 = return 0 (backward compatibility)
  2112.         and     dword [esp+36], 0
  2113.         ret
  2114.  
  2115. sysfn_getversion:       ; 18.13 = get kernel ID and version
  2116.      mov edi,[TASK_BASE]
  2117.      mov edi,[edi+TASKDATA.mem_start]
  2118.      add edi,ebx
  2119.      mov esi,version_inf
  2120.      mov ecx,version_end-version_inf
  2121.      cld
  2122.      rep movsb
  2123.      ret
  2124.  
  2125. sysfn_waitretrace:     ; 18.14 = sys wait retrace
  2126.      ;wait retrace functions
  2127.  sys_wait_retrace:
  2128.      mov edx,0x3da
  2129.  WaitRetrace_loop:
  2130.      in al,dx
  2131.      test al,1000b
  2132.      jz WaitRetrace_loop
  2133.      mov [esp+36],dword 0
  2134.      ret
  2135.  
  2136. sysfn_centermouse:      ; 18.15 = mouse centered
  2137.      call  mouse_centered
  2138.      mov [esp+36],dword 0
  2139.      ret
  2140.  
  2141. sysfn_mouse_acceleration: ; 18.19 = set/get mouse features
  2142.      cmp  ebx,0  ; get mouse speed factor
  2143.      jnz  .set_mouse_acceleration
  2144.      xor  eax,eax
  2145.      mov  ax,[mouse_speed_factor]
  2146.      mov  [esp+36],eax
  2147.      ret
  2148.  .set_mouse_acceleration:
  2149.      cmp  ebx,1  ; set mouse speed factor
  2150.      jnz  .get_mouse_delay
  2151.      mov  [mouse_speed_factor],cx
  2152.      ret
  2153.  .get_mouse_delay:
  2154.      cmp  ebx,2  ; get mouse delay
  2155.      jnz  .set_mouse_delay
  2156.      mov  eax,[mouse_delay]
  2157.      mov  [esp+36],eax
  2158.      ret
  2159.  .set_mouse_delay:
  2160.      cmp  ebx,3  ; set mouse delay
  2161.      jnz  .set_pointer_position
  2162.      mov  [mouse_delay],ecx
  2163.      ret
  2164.  .set_pointer_position:
  2165.      cmp  ebx,4  ; set mouse pointer position
  2166.      jnz  .end
  2167.      mov   [MOUSE_Y],cx    ;y
  2168.      ror   ecx,16
  2169.      mov   [MOUSE_X],cx    ;x
  2170.      rol   ecx,16
  2171.  .end:
  2172.      ret
  2173.  
  2174. sysfn_getfreemem:
  2175.      mov eax, [pg_data.pages_free]
  2176.      shl eax, 2
  2177.      mov [esp+36],eax
  2178.      ret
  2179.  
  2180. sysfn_getallmem:
  2181.      mov  eax,[MEM_AMOUNT]
  2182.      shr eax, 10
  2183.      mov  [esp+36],eax
  2184.      ret
  2185.  
  2186. uglobal
  2187. ;// mike.dld, 2006-29-01 [
  2188. screen_workarea RECT
  2189. ;// mike.dld, 2006-29-01 ]
  2190. window_minimize db 0
  2191. sound_flag      db 0
  2192. endg
  2193.  
  2194. iglobal
  2195. version_inf:
  2196.   db 0,6,5,0  ; version 0.6.5.0
  2197.   db UID_KOLIBRI
  2198.   db 'Kolibri',0
  2199. version_end:
  2200. endg
  2201.  
  2202. UID_NONE=0
  2203. UID_MENUETOS=1   ;official
  2204. UID_KOLIBRI=2    ;russian
  2205.  
  2206. sys_cachetodiskette:
  2207. ;    pushad
  2208. ;    cmp  eax,1
  2209. ;    jne  no_write_all_of_ramdisk
  2210. ;    call fdc_writeramdisk
  2211. ;    popad
  2212. ;    ret
  2213. ;  no_write_all_of_ramdisk:
  2214. ;    cmp eax,2
  2215. ;    jne no_write_part_of_ramdisk
  2216. ;    call fdc_commitflush
  2217. ;    popad
  2218. ;    ret
  2219. ;  no_write_part_of_ramdisk:
  2220. ;    cmp  eax,3
  2221. ;    jne  no_set_fdc
  2222. ;    call fdc_set
  2223. ;    popad
  2224. ;    ret
  2225. ;  no_set_fdc:
  2226. ;    cmp  eax,4
  2227. ;    jne  no_get_fdc
  2228. ;    popad
  2229. ;    call fdc_get
  2230. ;    mov    [esp+36],ecx
  2231. ;    ret
  2232. ;  no_get_fdc:
  2233. ;    popad
  2234. ;    ret
  2235.     cmp eax,1
  2236.     jne no_floppy_a_save
  2237.     mov   [flp_number],1
  2238.     jmp save_image_on_floppy
  2239.   no_floppy_a_save:
  2240.     cmp eax,2
  2241.     jne no_floppy_b_save
  2242.     mov   [flp_number],2
  2243.   save_image_on_floppy:
  2244.     call save_image
  2245.     mov  [esp+36],dword 0
  2246.     cmp  [FDC_Status],0
  2247.     je   yes_floppy_save
  2248.   no_floppy_b_save:
  2249.     mov [esp+36],dword 1
  2250.   yes_floppy_save:
  2251.     ret
  2252.  
  2253. uglobal
  2254. ;  bgrchanged  dd  0x0
  2255. endg
  2256.  
  2257. sys_background:
  2258.  
  2259.     cmp   eax,1                            ; BACKGROUND SIZE
  2260.     jnz   nosb1
  2261.     cmp   ebx,0
  2262.     je    sbgrr
  2263.     cmp   ecx,0
  2264.     je    sbgrr
  2265.     mov   [display_data-8],ebx
  2266.     mov   [display_data-4],ecx
  2267. ;    mov   [bgrchanged],1
  2268.   sbgrr:
  2269.     ret
  2270.   nosb1:
  2271.  
  2272.     cmp   eax,2                            ; SET PIXEL
  2273.     jnz   nosb2
  2274.     mov   edx,0x160000-16
  2275.     cmp   edx,ebx
  2276.     jbe   nosb2
  2277.     mov   edx,[ebx]
  2278.     and   edx,0xFF000000 ;255*256*256*256
  2279.     and   ecx,0x00FFFFFF ;255*256*256+255*256+255
  2280.     add   edx,ecx
  2281.     mov   [ebx+IMG_BACKGROUND],edx
  2282. ;    mov   [bgrchanged],1
  2283.     ret
  2284.   nosb2:
  2285.  
  2286.     cmp   eax,3                            ; DRAW BACKGROUND
  2287.     jnz   nosb3
  2288. draw_background_temp:
  2289. ;    cmp   [bgrchanged],1 ;0
  2290. ;    je    nosb31
  2291. ;draw_background_temp:
  2292. ;    mov   [bgrchanged],1 ;0
  2293.     mov   [REDRAW_BACKGROUND],byte 1
  2294.     mov    [background_defined], 1
  2295.    nosb31:
  2296.     ret
  2297.   nosb3:
  2298.  
  2299.     cmp   eax,4                            ; TILED / STRETCHED
  2300.     jnz   nosb4
  2301.     cmp   ebx,[display_data-12]
  2302.     je    nosb41
  2303.     mov   [display_data-12],ebx
  2304. ;    mov   [bgrchanged],1
  2305.    nosb41:
  2306.     ret
  2307.   nosb4:
  2308.  
  2309.     cmp   eax,5                            ; BLOCK MOVE TO BGR
  2310.     jnz   nosb5
  2311.   ; bughere
  2312.     mov   edi, [TASK_BASE]
  2313.     add   ebx, [edi+TASKDATA.mem_start]
  2314.  ;   mov   esi, ebx
  2315.  ;   mov   edi, ecx
  2316.     mov   eax, ebx
  2317.     mov   ebx, ecx
  2318.     add   ecx, edx
  2319.     cmp   ecx, 0x160000-16
  2320.     ja    .fin
  2321.  ;   add   edi, 0x300000
  2322.     add   ebx, IMG_BACKGROUND
  2323.     mov   ecx, edx
  2324.     cmp   ecx, 0x160000-16
  2325.     ja    .fin
  2326. ;    mov   [bgrchanged],1
  2327.   ;  cld
  2328.   ;  rep   movsb
  2329.     call  memmove
  2330.   .fin:
  2331.     ret
  2332.   nosb5:
  2333.  
  2334.     ret
  2335.  
  2336.  
  2337. align 4
  2338.  
  2339. sys_getbackground:
  2340.  
  2341.     cmp   eax,1                                  ; SIZE
  2342.     jnz   nogb1
  2343.     mov   eax,[display_data-8]
  2344.     shl   eax,16
  2345.     mov   ax,[display_data-4]
  2346.     mov   [esp+36],eax
  2347.     ret
  2348.   nogb1:
  2349.  
  2350.     cmp   eax,2                                  ; PIXEL
  2351.     jnz   nogb2
  2352.     mov   edx,0x160000-16
  2353.     cmp   edx,ebx
  2354.     jbe   nogb2
  2355.     mov   eax, [ebx+IMG_BACKGROUND]
  2356.     and   eax, 0xFFFFFF
  2357.     mov   [esp+36],eax
  2358.     ret
  2359.   nogb2:
  2360.  
  2361.     cmp   eax,4                                  ; TILED / STRETCHED
  2362.     jnz   nogb4
  2363.     mov   eax,[display_data-12]
  2364.   nogb4:
  2365.     mov   [esp+36],eax
  2366.     ret
  2367.  
  2368.  
  2369. align 4
  2370.  
  2371. sys_getkey:
  2372.     mov   [esp+36],dword 1
  2373. ; test main buffer
  2374.     mov   ebx, [CURRENT_TASK]                          ; TOP OF WINDOW STACK
  2375.     movzx ecx,word [WIN_STACK + ebx * 2]
  2376.     mov   edx,[TASK_COUNT]
  2377.     cmp   ecx,edx
  2378.     jne   .finish
  2379.     cmp   [KEY_COUNT],byte 0
  2380.     je    .finish
  2381.     movzx eax,byte [KEY_BUFF]
  2382.     shl   eax,8
  2383.     push  eax
  2384.     dec   byte [KEY_COUNT]
  2385.     and   byte [KEY_COUNT],127
  2386.     movzx ecx,byte [KEY_COUNT]
  2387.     add   ecx,2
  2388.  ;   mov   esi,0xf402
  2389.  ;   mov   edi,0xf401
  2390.  ;   cld
  2391.  ;  rep   movsb
  2392.     mov   eax, KEY_BUFF+1
  2393.     mov   ebx, KEY_BUFF
  2394.     call  memmove
  2395.     pop   eax
  2396. .ret_eax:
  2397.     mov   [esp+36],eax
  2398.     ret
  2399.  .finish:
  2400. ; test hotkeys buffer
  2401.         mov     ecx, hotkey_buffer
  2402. @@:
  2403.         cmp     [ecx], ebx
  2404.         jz      .found
  2405.         add     ecx, 8
  2406.         cmp     ecx, hotkey_buffer+120*8
  2407.         jb      @b
  2408.         ret
  2409. .found:
  2410.         mov     ax, [ecx+6]
  2411.         shl     eax, 16
  2412.         mov     ah, [ecx+4]
  2413.         mov     al, 2
  2414.         and     dword [ecx+4], 0
  2415.         and     dword [ecx], 0
  2416.         jmp     .ret_eax
  2417.  
  2418. align 4
  2419.  
  2420. sys_getbutton:
  2421.  
  2422.     mov   ebx, [CURRENT_TASK]                         ; TOP OF WINDOW STACK
  2423.     mov   [esp+36],dword 1
  2424.     movzx ecx, word [WIN_STACK + ebx * 2]
  2425.     mov   edx, [TASK_COUNT] ; less than 256 processes
  2426.     cmp   ecx,edx
  2427.     jne   .exit
  2428.     movzx eax,byte [BTN_COUNT]
  2429.     test  eax,eax
  2430.     jz    .exit
  2431.     mov   eax,[BTN_BUFF]
  2432.     shl   eax,8
  2433.     mov   [BTN_COUNT],byte 0
  2434.     mov   [esp+36],eax
  2435.  .exit:
  2436.     ret
  2437.  
  2438.  
  2439. align 4
  2440.  
  2441. sys_cpuusage:
  2442.  
  2443. ;  RETURN:
  2444. ;
  2445. ;  +00 dword     process cpu usage
  2446. ;  +04  word     position in windowing stack
  2447. ;  +06  word     windowing stack value at current position (cpu nro)
  2448. ;  +10 12 bytes  name
  2449. ;  +22 dword     start in mem
  2450. ;  +26 dword     used mem
  2451. ;  +30 dword     PID , process idenfification number
  2452. ;
  2453.  
  2454.     mov  edi,[TASK_BASE]   ; eax = return area
  2455.     add  eax,[edi + TASKDATA.mem_start]
  2456.  
  2457.     cmp  ebx,-1         ; who am I ?
  2458.     jne  no_who_am_i
  2459.     mov  ebx,[CURRENT_TASK]
  2460.   no_who_am_i:
  2461.  
  2462.     push eax            ; return area
  2463.     push ebx            ; process number
  2464.  
  2465.     push ebx
  2466.     push ebx
  2467.     push eax
  2468.  
  2469.     ; return memory usage
  2470.  
  2471.     xor  edx,edx
  2472.     mov  eax,0x20
  2473.     mul  ebx
  2474.     add  eax,CURRENT_TASK+TASKDATA.cpu_usage
  2475.     mov  ebx,eax
  2476.     pop  eax
  2477.     mov  ecx,[ebx]
  2478.     mov  [eax],ecx
  2479.     pop  ebx
  2480.     mov  cx, [WIN_STACK + ebx * 2]
  2481.     mov  [eax+4],cx
  2482.     mov  cx, [WIN_POS + ebx * 2]
  2483.     mov  [eax+6],cx
  2484.     push eax
  2485.     mov  eax,ebx
  2486.     shl  eax,8
  2487.     add  eax,SLOT_BASE+APPDATA.app_name
  2488.     pop  ebx
  2489.     add  ebx,10
  2490.     mov  ecx,11
  2491.     call memmove
  2492.  
  2493.     ; memory usage
  2494.  
  2495.     xor    eax,eax
  2496.     mov    edx,0x100000*16
  2497.     pop    ecx                                   ; get gdt of tss
  2498.     cmp    ecx,1
  2499.     je     os_mem
  2500.     shl    ecx,8
  2501.     mov    edx,[SLOT_BASE+ecx+APPDATA.mem_size] ;0x8c
  2502.     mov    eax,std_application_base_address
  2503.     ; eax run base -> edx used memory
  2504.   os_mem:
  2505.     dec    edx
  2506.     mov    [ebx+12],eax
  2507.     mov    [ebx+16],edx
  2508.  
  2509.     ; PID (+30)
  2510.  
  2511.     mov    eax,[esp]
  2512.     shl    eax,5
  2513.     add    eax,CURRENT_TASK+TASKDATA.pid
  2514.     mov    eax,[eax]
  2515.     mov    [ebx+20],eax
  2516.  
  2517.     ; window position and size
  2518.  
  2519.     mov    esi,[esp]
  2520.     shl    esi,5
  2521.     add    esi,window_data + WDATA.box
  2522.     mov    edi,[esp+4]
  2523.     add    edi,34
  2524.     mov    ecx,4
  2525.     cld
  2526.     rep    movsd
  2527.  
  2528.     ; Process state (+50)
  2529.  
  2530.     mov    eax,[esp]
  2531.     shl    eax,5
  2532.     add    eax,CURRENT_TASK+TASKDATA.state
  2533.     mov    eax,[eax]
  2534.     mov    [ebx+40],ax
  2535.  
  2536.     ; Window client area box
  2537.  
  2538.     mov    esi,[esp]
  2539.     shl    esi,8
  2540.     add    esi,SLOT_BASE+APPDATA.wnd_clientbox
  2541.     lea    edi,[ebx+44]
  2542.     mov    ecx,4
  2543.     rep    movsd
  2544.  
  2545.     ; Window state
  2546.  
  2547.     mov    esi,[esp]
  2548.     shl    esi,5
  2549.     add    esi,window_data + WDATA.box
  2550.     mov    al,[esi+window_data+WDATA.fl_wstate]
  2551.     mov    [edi],al
  2552.  
  2553.     pop    ebx
  2554.     pop    eax
  2555.  
  2556.     ; return number of processes
  2557.  
  2558.     mov    eax,[TASK_COUNT]
  2559.     mov    [esp+36],eax
  2560.     ret
  2561.  
  2562.  
  2563.  
  2564.  
  2565. align 4
  2566. sys_clock:
  2567.         cli
  2568.   ; Mikhail Lisovin  xx Jan 2005
  2569.   @@:   mov   al, 10
  2570.         out   0x70, al
  2571.         in    al, 0x71
  2572.         test  al, al
  2573.         jns   @f
  2574.         mov   esi, 1
  2575.         call  delay_ms
  2576.         jmp   @b
  2577.   @@:
  2578.   ; end Lisovin's fix
  2579.  
  2580.         xor   al,al           ; seconds
  2581.         out   0x70,al
  2582.         in    al,0x71
  2583.         movzx ecx,al
  2584.         mov   al,02           ; minutes
  2585.         shl   ecx,16
  2586.         out   0x70,al
  2587.         in    al,0x71
  2588.         movzx edx,al
  2589.         mov   al,04           ; hours
  2590.         shl   edx,8
  2591.         out   0x70,al
  2592.         in    al,0x71
  2593.         add   ecx,edx
  2594.         movzx edx,al
  2595.         add   ecx,edx
  2596.         sti
  2597.         mov   [esp+36],ecx
  2598.         ret
  2599.  
  2600.  
  2601. align 4
  2602.  
  2603. sys_date:
  2604.  
  2605.         cli
  2606.  
  2607.   @@:   mov   al, 10
  2608.         out   0x70, al
  2609.         in    al, 0x71
  2610.         test  al, al
  2611.         jns   @f
  2612.         mov   esi, 1
  2613.         call  delay_ms
  2614.         jmp   @b
  2615.   @@:
  2616.  
  2617.         mov     ch,0
  2618.         mov     al,7            ; date
  2619.         out     0x70,al
  2620.         in      al,0x71
  2621.         mov     cl,al
  2622.         mov     al,8            ; month
  2623.         shl     ecx,16
  2624.         out     0x70,al
  2625.         in      al,0x71
  2626.         mov     ch,al
  2627.         mov     al,9            ; year
  2628.         out     0x70,al
  2629.         in      al,0x71
  2630.         mov     cl,al
  2631.         sti
  2632.         mov     [esp+36],ecx
  2633.         ret
  2634.  
  2635.  
  2636. ; redraw status
  2637.  
  2638. sys_redrawstat:
  2639.  
  2640.     cmp  eax,1
  2641.     jne  no_widgets_away
  2642.  
  2643.     ; buttons away
  2644.  
  2645.     mov   ecx,[CURRENT_TASK]
  2646.  
  2647.   sys_newba2:
  2648.  
  2649.     mov   edi,[BTN_ADDR]
  2650.     cmp   [edi],dword 0  ; empty button list ?
  2651.     je    end_of_buttons_away
  2652.  
  2653.     movzx ebx,word [edi]
  2654.     inc   ebx
  2655.  
  2656.     mov   eax,edi
  2657.  
  2658.   sys_newba:
  2659.  
  2660.     dec   ebx
  2661.     jz    end_of_buttons_away
  2662.  
  2663.     add   eax,0x10
  2664.     cmp   cx,[eax]
  2665.     jnz   sys_newba
  2666.  
  2667.     push  eax ebx ecx
  2668.     mov   ecx,ebx
  2669.     inc   ecx
  2670.     shl   ecx,4
  2671.     mov   ebx,eax
  2672.     add   eax,0x10
  2673.     call  memmove
  2674.     dec   dword [edi]
  2675.     pop   ecx ebx eax
  2676.  
  2677.     jmp   sys_newba2
  2678.  
  2679.   end_of_buttons_away:
  2680.  
  2681.     ret
  2682.  
  2683.   no_widgets_away:
  2684.  
  2685.     cmp   eax,2
  2686.     jnz   srl1
  2687.  
  2688.     mov   edx,[TASK_BASE]      ; return whole screen draw area for this app
  2689.     add   edx,draw_data-CURRENT_TASK
  2690.     mov   [edx+RECT.left], 0
  2691.     mov   [edx+RECT.top], 0
  2692.     mov   eax,[ScreenWidth]
  2693.     mov   [edx+RECT.right],eax
  2694.     mov   eax,[ScreenHeight]
  2695.     mov   [edx+RECT.bottom],eax
  2696.  
  2697.     mov   edi,[TASK_BASE]
  2698.     or    [edi-twdw+WDATA.fl_wdrawn], 1   ; no new position & buttons from app
  2699.  
  2700.     call  sys_window_mouse
  2701.  
  2702.     ret
  2703.  
  2704.   srl1:
  2705.  
  2706.     ret
  2707.  
  2708.  
  2709. sys_drawwindow:
  2710.  
  2711.     mov   edi,ecx
  2712.     shr   edi,16+8
  2713.     and   edi,15
  2714.  
  2715.     cmp   edi,0   ; type I    - original style
  2716.     jne   nosyswI
  2717.     inc   [mouse_pause]
  2718.     call  [disable_mouse]
  2719.     call  sys_set_window
  2720.     call  [disable_mouse]
  2721.     call  drawwindow_I
  2722.     ;dec   [mouse_pause]
  2723.     ;call   [draw_pointer]
  2724.     ;ret
  2725.     jmp   draw_window_caption.2
  2726.   nosyswI:
  2727.  
  2728.     cmp   edi,1   ; type II   - only reserve area, no draw
  2729.     jne   nosyswII
  2730.     inc   [mouse_pause]
  2731.     call  [disable_mouse]
  2732.     call  sys_set_window
  2733.     call  [disable_mouse]
  2734.     call  sys_window_mouse
  2735.     dec   [mouse_pause]
  2736.     call   [draw_pointer]
  2737.     ret
  2738.   nosyswII:
  2739.  
  2740.     cmp   edi,2   ; type III  - new style
  2741.     jne   nosyswIII
  2742.     inc   [mouse_pause]
  2743.     call  [disable_mouse]
  2744.     call  sys_set_window
  2745.     call  [disable_mouse]
  2746.     call  drawwindow_III
  2747.     ;dec   [mouse_pause]
  2748.     ;call   [draw_pointer]
  2749.     ;ret
  2750.     jmp   draw_window_caption.2
  2751.   nosyswIII:
  2752.  
  2753.     cmp   edi,3   ; type IV - skinned window
  2754.     jne   nosyswIV
  2755.  
  2756.     ; parameter for drawwindow_IV
  2757.     push  0
  2758.     mov   edi, [TASK_COUNT]
  2759.     movzx edi, word [WIN_POS + edi*2]
  2760.     cmp   edi, [CURRENT_TASK]
  2761.     jne   @f
  2762.     inc   dword [esp]
  2763.  @@:
  2764.  
  2765.     inc   [mouse_pause]
  2766.     call  [disable_mouse]
  2767.     call  sys_set_window
  2768.     call  [disable_mouse]
  2769.     call  drawwindow_IV
  2770.     ;dec   [mouse_pause]
  2771.     ;call   [draw_pointer]
  2772.     ;ret
  2773.     jmp   draw_window_caption.2
  2774.   nosyswIV:
  2775.  
  2776.     ret
  2777.  
  2778.  
  2779. draw_window_caption:
  2780.         inc     [mouse_pause]
  2781.         call    [disable_mouse]
  2782.  
  2783.         xor     eax,eax
  2784.         mov     edx,[TASK_COUNT]
  2785.         movzx   edx,word[WIN_POS+edx*2]
  2786.         cmp     edx,[CURRENT_TASK]
  2787.         jne     @f
  2788.         inc     eax
  2789.     @@: mov     edx,[CURRENT_TASK]
  2790.         shl     edx,5
  2791.         add     edx,window_data
  2792.         movzx   ebx,[edx+WDATA.fl_wstyle]
  2793.         and     bl,0x0F
  2794.         cmp     bl,3
  2795.         jne     .not_style_3
  2796.  
  2797.         push    edx
  2798.         call    drawwindow_IV_caption
  2799.         add     esp,4
  2800.         jmp     .2
  2801.  
  2802.   .not_style_3:
  2803.         cmp     bl,2
  2804.         jne     .not_style_2
  2805.  
  2806.         call    drawwindow_III_caption
  2807.         jmp     .2
  2808.  
  2809.   .not_style_2:
  2810.         cmp     bl,0
  2811.         jne     .2
  2812.  
  2813.         call    drawwindow_I_caption
  2814.  
  2815. ;--------------------------------------------------------------
  2816.   .2:   ;jmp     @f
  2817.         mov     edi,[CURRENT_TASK]
  2818.         shl     edi,5
  2819.         test    [edi+window_data+WDATA.fl_wstyle],WSTYLE_HASCAPTION
  2820.         jz      @f
  2821.         mov     ecx,[edi*8+SLOT_BASE+APPDATA.wnd_caption]
  2822.         or      ecx,ecx
  2823.         jz      @f
  2824.         add     ecx,[edi+twdw+TASKDATA.mem_start]
  2825.  
  2826.         movzx   eax,[edi+window_data+WDATA.fl_wstyle]
  2827.         and     al,0x0F
  2828.         cmp     al,3
  2829.         jne     .not_skinned
  2830.  
  2831.         mov     ebp,[edi+window_data+WDATA.box.left-2]
  2832.         mov     bp,word[edi+window_data+WDATA.box.top]
  2833.         movzx   eax,word[edi+window_data+WDATA.box.width]
  2834.         sub     ax,[_skinmargins.left]
  2835.         sub     ax,[_skinmargins.right]
  2836.         cwde
  2837.         cdq
  2838.         mov     ebx,6
  2839.         idiv    ebx
  2840.         or      eax,eax
  2841.         js      @f
  2842.         mov     edx,eax
  2843.         mov     eax,dword[_skinmargins.left-2]
  2844.         mov     ax,word[_skinh]
  2845.         sub     ax,[_skinmargins.bottom]
  2846.         sub     ax,[_skinmargins.top]
  2847.         sar     ax,1
  2848.         adc     ax,0
  2849.         add     ax,[_skinmargins.top]
  2850.         add     ax,-3
  2851.         add     eax,ebp
  2852.         jmp     .dodraw
  2853.  
  2854.   .not_skinned:
  2855.         cmp     al,1
  2856.         je      @f
  2857.  
  2858.         mov     ebp,[edi+window_data+WDATA.box.left-2]
  2859.         mov     bp,word[edi+window_data+WDATA.box.top]
  2860.         movzx   eax,word[edi+window_data+WDATA.box.width]
  2861.         sub     eax,16
  2862.         cwde
  2863.         cdq
  2864.         mov     ebx,6
  2865.         idiv    ebx
  2866.         or      eax,eax
  2867.         js      @f
  2868.         mov     edx,eax
  2869.         mov     eax,0x00080007
  2870.         add     eax,ebp
  2871. .dodraw:
  2872.         mov     ebx,[common_colours+16];0x00FFFFFF
  2873.         or      ebx, 0x80000000
  2874.         xor     edi,edi
  2875.         call    dtext
  2876.  
  2877.     @@:
  2878. ;--------------------------------------------------------------
  2879.         dec     [mouse_pause]
  2880.         call    [draw_pointer]
  2881.         ret
  2882.  
  2883. iglobal
  2884. align 4
  2885. window_topleft dd \
  2886.   1, 21,\
  2887.   0,  0,\
  2888.   5, 20,\
  2889.   5,  ?
  2890. endg
  2891.  
  2892. set_window_clientbox:
  2893.         push    eax ecx edi
  2894.  
  2895.         mov     eax,[_skinh]
  2896.         mov     [window_topleft+4*7],eax
  2897.  
  2898.         mov     ecx,edi
  2899.         sub     edi,window_data
  2900.         shl     edi,3
  2901.         test    [ecx+WDATA.fl_wstyle],WSTYLE_CLIENTRELATIVE
  2902.         jz      @f
  2903.  
  2904.         movzx   eax,[ecx+WDATA.fl_wstyle]
  2905.         and     eax,0x0F
  2906.         mov     eax,[eax*8+window_topleft+0]
  2907.         mov     [edi+SLOT_BASE+APPDATA.wnd_clientbox.left],eax
  2908.         shl     eax,1
  2909.         neg     eax
  2910.         add     eax,[ecx+WDATA.box.width]
  2911.         mov     [edi+SLOT_BASE+APPDATA.wnd_clientbox.width],eax
  2912.  
  2913.         movzx   eax,[ecx+WDATA.fl_wstyle]
  2914.         and     eax,0x0F
  2915.         push    [eax*8+window_topleft+0]
  2916.         mov     eax,[eax*8+window_topleft+4]
  2917.         mov     [edi+SLOT_BASE+APPDATA.wnd_clientbox.top],eax
  2918.         neg     eax
  2919.         sub     eax,[esp]
  2920.         add     eax,[ecx+WDATA.box.height]
  2921.         mov     [edi+SLOT_BASE+APPDATA.wnd_clientbox.height],eax
  2922.         add     esp,4
  2923.  
  2924.         pop     edi ecx eax
  2925.         ret
  2926.     @@:
  2927.         xor     eax,eax
  2928.         mov     [edi+SLOT_BASE+APPDATA.wnd_clientbox.left],eax
  2929.         mov     [edi+SLOT_BASE+APPDATA.wnd_clientbox.top],eax
  2930.         mov     eax,[ecx+WDATA.box.width]
  2931.         mov     [edi+SLOT_BASE+APPDATA.wnd_clientbox.width],eax
  2932.         mov     eax,[ecx+WDATA.box.height]
  2933.         mov     [edi+SLOT_BASE+APPDATA.wnd_clientbox.height],eax
  2934.  
  2935.         pop     edi ecx eax
  2936.         ret
  2937.  
  2938. sys_set_window:
  2939.  
  2940.     mov   edi,[CURRENT_TASK]
  2941.     shl   edi,5
  2942.     add   edi,window_data
  2943.  
  2944.     ; colors
  2945.     mov   [edi+WDATA.cl_workarea],ecx
  2946.     mov   [edi+WDATA.cl_titlebar],edx
  2947.     mov   [edi+WDATA.cl_frames],esi
  2948.  
  2949.     ; check flag (?)
  2950.     test  [edi+WDATA.fl_wdrawn],1
  2951.     jnz   newd
  2952.  
  2953.     push  eax
  2954.     mov   eax,[timer_ticks] ;[0xfdf0]
  2955.     add   eax,100
  2956.     mov   [new_window_starting],eax
  2957.     pop   eax
  2958.  
  2959.     mov   word[edi+WDATA.box.width],ax
  2960.     mov   word[edi+WDATA.box.height],bx
  2961.     sar   eax,16
  2962.     sar   ebx,16
  2963.     mov   word[edi+WDATA.box.left],ax
  2964.     mov   word[edi+WDATA.box.top],bx
  2965.  
  2966.     call  check_window_position
  2967.  
  2968.     call  set_window_clientbox
  2969.  
  2970.     push  ecx esi edi               ; save for window fullscreen/resize
  2971.     ;mov   esi,edi
  2972.  
  2973.         mov     cl,[edi+WDATA.fl_wstyle]
  2974.  
  2975.     sub   edi,window_data
  2976.     shl   edi,3
  2977.     add   edi,SLOT_BASE
  2978.  
  2979.         and     cl,0x0F
  2980.         mov     [edi+APPDATA.wnd_caption],0
  2981.         cmp     cl,3
  2982.         jne     @f
  2983.         mov     [edi+APPDATA.wnd_caption],esi
  2984.     @@: mov     esi,[esp+0]
  2985.  
  2986.     add   edi, APPDATA.saved_box
  2987.         movsd
  2988.         movsd
  2989.         movsd
  2990.         movsd
  2991.     pop   edi esi ecx
  2992.  
  2993.     push  eax ebx ecx edx
  2994. ;;;    mov   eax, 1
  2995. ;;;    call  delay_hs
  2996.     mov   eax, [edi+WDATA.box.left]
  2997.     mov   ebx, [edi+WDATA.box.top]
  2998.     mov   ecx, [edi+WDATA.box.width]
  2999.     mov   edx, [edi+WDATA.box.height]
  3000.     add   ecx, eax
  3001.     add   edx, ebx
  3002.     call  calculatescreen
  3003.     pop   edx ecx ebx eax
  3004.  
  3005.     mov   [KEY_COUNT],byte 0           ; empty keyboard buffer
  3006.     mov   [BTN_COUNT],byte 0           ; empty button buffer
  3007.  
  3008.   newd:
  3009.     mov   [edi+WDATA.fl_redraw],byte 0   ; no redraw
  3010.     mov   edx,edi
  3011.  
  3012.     ret
  3013.  
  3014. syscall_windowsettings:
  3015.  
  3016.   .set_window_caption:
  3017.         dec     eax     ; subfunction #1 - set window caption
  3018.         jnz     .get_window_caption
  3019.  
  3020.         ; NOTE: only window owner thread can set its caption,
  3021.         ;       so there's no parameter for PID/TID
  3022.  
  3023.         mov     edi,[CURRENT_TASK]
  3024.         shl     edi,5
  3025.  
  3026.         ; have to check if caption is within application memory limit
  3027.         ; check is trivial, and if application resizes its memory,
  3028.         ;   caption still can become over bounds
  3029. ; diamond, 31.10.2006: check removed because with new memory manager
  3030. ; there can be valid data after APPDATA.mem_size bound
  3031. ;        mov     ecx,[edi*8+SLOT_BASE+APPDATA.mem_size]
  3032. ;        add     ecx,255 ; max caption length
  3033. ;        cmp     ebx,ecx
  3034. ;        ja      .exit_fail
  3035.  
  3036.         mov     [edi*8+SLOT_BASE+APPDATA.wnd_caption],ebx
  3037.         or      [edi+window_data+WDATA.fl_wstyle],WSTYLE_HASCAPTION
  3038.  
  3039.         call    draw_window_caption
  3040.  
  3041.         xor     eax,eax ; eax = 0 (success)
  3042.         ret
  3043.  
  3044.   .get_window_caption:
  3045.         dec     eax     ; subfunction #2 - get window caption
  3046.         jnz     .exit_fail
  3047.  
  3048.         ; not implemented yet
  3049.  
  3050.   .exit_fail:
  3051.         xor     eax,eax
  3052.         inc     eax     ; eax = 1 (fail)
  3053.         ret
  3054.  
  3055.  
  3056. sys_window_move:
  3057.  
  3058.         mov     edi,[CURRENT_TASK]
  3059.         shl     edi,5
  3060.         add     edi,window_data
  3061.  
  3062.         test    [edi+WDATA.fl_wstate],WSTATE_MAXIMIZED
  3063.         jnz     .window_move_return
  3064.  
  3065.         push    dword [edi + WDATA.box.left]  ; save old coordinates
  3066.         push    dword [edi + WDATA.box.top]
  3067.         push    dword [edi + WDATA.box.width]
  3068.         push    dword [edi + WDATA.box.height]
  3069.  
  3070.         cmp   eax,-1                  ; set new position and size
  3071.         je    .no_x_reposition
  3072.         mov     [edi + WDATA.box.left], eax
  3073.       .no_x_reposition:
  3074.         cmp   ebx,-1
  3075.         je    .no_y_reposition
  3076.         mov     [edi + WDATA.box.top], ebx
  3077.       .no_y_reposition:
  3078.  
  3079.         test    [edi+WDATA.fl_wstate],WSTATE_ROLLEDUP
  3080.         jnz     .no_y_resizing
  3081.  
  3082.         cmp   ecx,-1
  3083.         je    .no_x_resizing
  3084.         mov     [edi + WDATA.box.width], ecx
  3085.       .no_x_resizing:
  3086.         cmp   edx,-1
  3087.         je    .no_y_resizing
  3088.         mov     [edi + WDATA.box.height], edx
  3089.       .no_y_resizing:
  3090.  
  3091.         call  check_window_position
  3092.         call  set_window_clientbox
  3093.  
  3094.         pushad                       ; save for window fullscreen/resize
  3095.         mov   esi,edi
  3096.         sub   edi,window_data
  3097.         shr   edi,5
  3098.         shl   edi,8
  3099.         add   edi, SLOT_BASE + APPDATA.saved_box
  3100.         mov   ecx,4
  3101.         cld
  3102.         rep   movsd
  3103.         popad
  3104.  
  3105.         pushad                       ; calculcate screen at new position
  3106.         mov   eax, [edi + WDATA.box.left]
  3107.         mov   ebx, [edi + WDATA.box.top]
  3108.         mov   ecx, [edi + WDATA.box.width]
  3109.         mov   edx, [edi + WDATA.box.height]
  3110.         add   ecx,eax
  3111.         add   edx,ebx
  3112.  
  3113.         call  calculatescreen
  3114.         popad
  3115.  
  3116.         pop   edx                   ; calculcate screen at old position
  3117.         pop   ecx
  3118.         pop   ebx
  3119.         pop   eax
  3120.         add   ecx,eax
  3121.         add   edx,ebx
  3122.         mov   [dlx],eax             ; save for drawlimits
  3123.         mov   [dly],ebx
  3124.         mov   [dlxe],ecx
  3125.         mov   [dlye],edx
  3126.         call  calculatescreen
  3127.  
  3128.         mov   [edi + WDATA.fl_redraw], 1 ; flag the process as redraw
  3129.  
  3130.         mov   eax,edi               ; redraw screen at old position
  3131.         xor   esi,esi
  3132.         call  redrawscreen
  3133.  
  3134.         mov   [DONT_DRAW_MOUSE],byte 0 ; mouse pointer
  3135.         mov   [MOUSE_BACKGROUND],byte 0 ; no mouse under
  3136.         mov   [MOUSE_DOWN],byte 0 ; react to mouse up/down
  3137.  
  3138.         mov   ecx,10          ; wait 1/10 second
  3139.       .wmrl3:
  3140.         call  [draw_pointer]
  3141.         mov   eax,1
  3142.         call  delay_hs
  3143.         loop  .wmrl3
  3144.  
  3145.         mov   [window_move_pr],0
  3146.  
  3147.       .window_move_return:
  3148.  
  3149.         ret
  3150.  
  3151. ;type_background_1:
  3152. ;    cmp   [0xfff0],byte 0               ; background update ?
  3153. ;    jz    temp_nobackgr
  3154. ;    mov   [0xfff0],byte 2
  3155. ;    call  change_task
  3156. ;    mov   [draw_data+32+0],dword 0
  3157. ;    mov   [draw_data+32+4],dword 0
  3158. ;    mov   eax,[ScreenWidth
  3159. ;    mov   ebx,[0xfe04]
  3160. ;    mov   [draw_data+32+8],eax
  3161. ;    mov   [draw_data+32+12],ebx
  3162. ;    call  drawbackground
  3163. ;    mov   [0xfff0],byte 0
  3164. ;    mov   [MOUSE_BACKGROUND],byte 0
  3165. ;temp_nobackgr:
  3166. ;    ret
  3167.  
  3168. uglobal
  3169.   window_move_pr   dd  0x0
  3170.   window_move_eax  dd  0x0
  3171.   window_move_ebx  dd  0x0
  3172.   window_move_ecx  dd  0x0
  3173.   window_move_edx  dd  0x0
  3174. endg
  3175.  
  3176. ;ok - 100% work
  3177. ;nt - not tested
  3178. ;---------------------------------------------------------------------------------------------
  3179. ;eax
  3180. ;0 - task switch counter. Ret switch counter in eax. Block. ok.
  3181. ;1 - change task. Ret nothing. Block. ok.
  3182. ;2 - performance control
  3183. ; ebx
  3184. ; 0 - enable or disable (inversion) PCE flag on CR4 for rdmpc in user mode.
  3185. ; returned new cr4 in eax. Ret cr4 in eax. Block. ok.
  3186. ; 1 - is cache enabled. Ret cr0 in eax if enabled else zero in eax. Block. ok.
  3187. ; 2 - enable cache. Ret 1 in eax. Ret nothing. Block. ok.
  3188. ; 3 - disable cache. Ret 0 in eax. Ret nothing. Block. ok.
  3189. ;eax
  3190. ;3 - rdmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
  3191. ;4 - wrmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
  3192. ;---------------------------------------------------------------------------------------------
  3193. sys_sheduler: ;noname & halyavin
  3194.     cmp eax,0
  3195.     je shed_counter
  3196.     cmp eax,2
  3197.     je perf_control
  3198.     cmp eax,3
  3199.     je rdmsr_instr
  3200.     cmp eax,4
  3201.     je wrmsr_instr
  3202.     cmp eax,1
  3203.     jne not_supported
  3204.     call change_task ;delay,0
  3205. ret
  3206. shed_counter:
  3207.     mov eax,[context_counter]
  3208.     mov [esp+36],eax
  3209. not_supported:
  3210. ret
  3211. perf_control:
  3212.     inc eax ;now eax=3
  3213.     cmp ebx,eax
  3214.     je cache_disable
  3215.     dec eax
  3216.     cmp ebx,eax
  3217.     je cache_enable
  3218.     dec eax
  3219.     cmp ebx,eax
  3220.     je is_cache_enabled
  3221.     dec eax
  3222.     cmp ebx,eax
  3223.     je modify_pce
  3224. ret
  3225.  
  3226. rdmsr_instr:
  3227. ;now counter in ecx
  3228. ;(edx:eax) esi:edi => edx:esi
  3229. mov eax,esi
  3230. rdmsr
  3231. mov [esp+36],eax
  3232. mov [esp+24],edx ;ret in ebx?
  3233. ret
  3234.  
  3235. wrmsr_instr:
  3236. ;now counter in ecx
  3237. ;(edx:eax) esi:edi => edx:esi
  3238. mov eax,esi
  3239. wrmsr
  3240. mov [esp+36],eax
  3241. mov [esp+24],edx ;ret in ebx?
  3242. ret
  3243.  
  3244. cache_disable:
  3245.        mov eax,cr0
  3246.        or  eax,01100000000000000000000000000000b
  3247.        mov cr0,eax
  3248.        wbinvd ;set MESI
  3249. ret
  3250.  
  3251. cache_enable:
  3252.        mov eax,cr0
  3253.        and eax,10011111111111111111111111111111b
  3254.        mov cr0,eax
  3255. ret
  3256.  
  3257. is_cache_enabled:
  3258.        mov eax,cr0
  3259.        mov ebx,eax
  3260.        and eax,01100000000000000000000000000000b
  3261.        jz cache_disabled
  3262.        mov [esp+36],ebx
  3263. cache_disabled:
  3264.        mov dword [esp+36],eax ;0
  3265. ret
  3266.  
  3267. modify_pce:
  3268.        mov eax,cr4
  3269. ;       mov ebx,0
  3270. ;       or  bx,100000000b ;pce
  3271. ;       xor eax,ebx ;invert pce
  3272.        bts eax,8 ;pce=cr4[8]
  3273.        mov cr4,eax
  3274.        mov [esp+36],eax
  3275. ret
  3276. ;---------------------------------------------------------------------------------------------
  3277.  
  3278.  
  3279. ; check if pixel is allowed to be drawn
  3280.  
  3281. checkpixel:
  3282.         push eax edx
  3283.  
  3284.         mov  edx,[ScreenWidth]     ; screen x size
  3285.         inc  edx
  3286.         imul edx, ebx
  3287.         mov  dl, [eax+edx+display_data] ; lea eax, [...]
  3288.  
  3289.         xor  ecx, ecx
  3290.         mov  eax, [CURRENT_TASK]
  3291.         cmp  al, dl
  3292.         setne cl
  3293.  
  3294.         pop  edx eax
  3295.         ret
  3296.  
  3297. uglobal
  3298.   mouse_active  db  0
  3299. endg
  3300. iglobal
  3301.   cpustring db '/RD/1/CPU',0
  3302. endg
  3303.  
  3304. uglobal
  3305. background_defined    db    0    ; diamond, 11.04.2006
  3306. endg
  3307.  
  3308. align 4
  3309. ; check misc
  3310.  
  3311. checkmisc:
  3312.  
  3313.     cmp   [ctrl_alt_del], 1
  3314.     jne   nocpustart
  3315.     mov   ebp, cpustring
  3316.     call   fs_execute               ; SPraid 8.03.2007
  3317.     ;lea   esi,[ebp+6]
  3318.     ;xor   ebx,ebx               ; no parameters
  3319.     ;xor   edx,edx               ; no flags
  3320.     ;call  fs_RamdiskExecute.flags
  3321.     mov   [ctrl_alt_del], 0
  3322.   nocpustart:
  3323.     cmp   [mouse_active], 1
  3324.     jne   mouse_not_active
  3325.     mov   [mouse_active], 0
  3326.     xor   edi, edi
  3327.     mov   ecx, [TASK_COUNT]
  3328.    set_mouse_event:
  3329.     add   edi, 256
  3330.     or    [edi+SLOT_BASE+APPDATA.event_mask], dword 00100000b
  3331.     loop  set_mouse_event
  3332.   mouse_not_active:
  3333.  
  3334.  
  3335.     cmp   [REDRAW_BACKGROUND],byte 0               ; background update ?
  3336.     jz    nobackgr
  3337.     cmp    [background_defined], 0
  3338.     jz    nobackgr
  3339.     mov   [REDRAW_BACKGROUND],byte 2
  3340.     call  change_task
  3341.         mov   [draw_data+32 + RECT.left],dword 0
  3342.         mov   [draw_data+32 + RECT.top],dword 0
  3343.     mov   eax,[ScreenWidth]
  3344.     mov   ebx,[ScreenHeight]
  3345.         mov   [draw_data+32 + RECT.right],eax
  3346.         mov   [draw_data+32 + RECT.bottom],ebx
  3347.     call  drawbackground
  3348.     mov   [REDRAW_BACKGROUND],byte 0
  3349.     mov   [MOUSE_BACKGROUND],byte 0
  3350.  
  3351.   nobackgr:
  3352.  
  3353.  
  3354.     ; system shutdown request
  3355.  
  3356.     cmp  [SYS_SHUTDOWN],byte 0
  3357.     je   noshutdown
  3358.  
  3359.     mov  edx,[shutdown_processes]
  3360.     sub  dl,2
  3361.  
  3362.     cmp  [SYS_SHUTDOWN],dl
  3363.     jne  no_mark_system_shutdown
  3364.  
  3365.     mov   edx,0x3040
  3366.     movzx ecx,byte [SYS_SHUTDOWN]
  3367.     add   ecx,5
  3368.   markz:
  3369.     mov   [edx+TASKDATA.state],byte 3
  3370.     add   edx,0x20
  3371.     loop  markz
  3372.  
  3373.   no_mark_system_shutdown:
  3374.  
  3375.     call [disable_mouse]
  3376.  
  3377.     dec  byte [SYS_SHUTDOWN]
  3378.  
  3379.     cmp  [SYS_SHUTDOWN],byte 0
  3380.     je   system_shutdown
  3381.  
  3382.   noshutdown:
  3383.  
  3384.  
  3385.     mov   eax,[TASK_COUNT]                  ; termination
  3386.     mov   ebx,TASK_DATA+TASKDATA.state
  3387.     mov   esi,1
  3388.  
  3389.   newct:
  3390.     mov   cl,[ebx]
  3391.     cmp   cl,byte 3
  3392.     jz    terminate
  3393.     cmp   cl,byte 4
  3394.     jz    terminate
  3395.  
  3396.     add   ebx,0x20
  3397.     inc   esi
  3398.     dec   eax
  3399.     jnz   newct
  3400.  
  3401.     ret
  3402.  
  3403.  
  3404.  
  3405.  
  3406. ; redraw screen
  3407.  
  3408. redrawscreen:
  3409.  
  3410. ; eax , if process window_data base is eax, do not set flag/limits
  3411.  
  3412.          pushad
  3413.          push  eax
  3414.  
  3415. ;;;         mov   eax,2
  3416. ;;;         call  delay_hs
  3417.  
  3418.          ;mov   ecx,0               ; redraw flags for apps
  3419.          xor   ecx,ecx
  3420.        newdw2:
  3421.  
  3422.          inc   ecx
  3423.          push  ecx
  3424.  
  3425.          mov   eax,ecx
  3426.          shl   eax,5
  3427.          add   eax,window_data
  3428.  
  3429.          cmp   eax,[esp+4]
  3430.          je    not_this_task
  3431.                                    ; check if window in redraw area
  3432.          mov   edi,eax
  3433.  
  3434.          cmp   ecx,1               ; limit for background
  3435.          jz    bgli
  3436.  
  3437.          mov   eax, [edi + WDATA.box.left]
  3438.          mov   ebx, [edi + WDATA.box.top]
  3439.          mov   ecx, [edi + WDATA.box.width]
  3440.          mov   edx, [edi + WDATA.box.height]
  3441.          add   ecx,eax
  3442.          add   edx,ebx
  3443.  
  3444.          mov   ecx,[dlye]   ; ecx = area y end     ebx = window y start
  3445.          cmp   ecx,ebx
  3446.          jb    ricino
  3447.  
  3448.          mov   ecx,[dlxe]   ; ecx = area x end     eax = window x start
  3449.          cmp   ecx,eax
  3450.          jb    ricino
  3451.  
  3452.          mov   eax, [edi + WDATA.box.left]
  3453.          mov   ebx, [edi + WDATA.box.top]
  3454.          mov   ecx, [edi + WDATA.box.width]
  3455.          mov   edx, [edi + WDATA.box.height]
  3456.          add   ecx, eax
  3457.          add   edx, ebx
  3458.  
  3459.          mov   eax,[dly]    ; eax = area y start     edx = window y end
  3460.          cmp   edx,eax
  3461.          jb    ricino
  3462.  
  3463.          mov   eax,[dlx]    ; eax = area x start     ecx = window x end
  3464.          cmp   ecx,eax
  3465.          jb    ricino
  3466.  
  3467.         bgli:
  3468.  
  3469.          cmp   edi,esi
  3470.          jz    ricino
  3471.  
  3472.          mov   eax,edi
  3473.          add   eax,draw_data-window_data
  3474.  
  3475.          mov   ebx,[dlx]          ; set limits
  3476.          mov   [eax + RECT.left], ebx
  3477.          mov   ebx,[dly]
  3478.          mov   [eax + RECT.top], ebx
  3479.          mov   ebx,[dlxe]
  3480.          mov   [eax + RECT.right], ebx
  3481.          mov   ebx,[dlye]
  3482.          mov   [eax + RECT.bottom], ebx
  3483.  
  3484.          sub   eax,draw_data-window_data
  3485.  
  3486.          cmp   ecx,1
  3487.          jne   nobgrd
  3488.          cmp   esi,1
  3489.          je    newdw8
  3490.          call  drawbackground
  3491.  
  3492.        newdw8:
  3493.        nobgrd:
  3494.  
  3495.          mov   [eax + WDATA.fl_redraw],byte 1    ; mark as redraw
  3496.  
  3497.        ricino:
  3498.  
  3499.        not_this_task:
  3500.  
  3501.          pop   ecx
  3502.  
  3503.          cmp   ecx,[TASK_COUNT]
  3504.          jle   newdw2
  3505.  
  3506.          pop  eax
  3507.          popad
  3508.  
  3509.          ret
  3510.  
  3511. calculatebackground:   ; background
  3512.  
  3513.         ; all black
  3514.  
  3515.         mov   [display_data-8],dword 4      ; size x
  3516.         mov   [display_data-4],dword 2      ; size y
  3517.  
  3518.         mov   edi, IMG_BACKGROUND                 ; set background to black
  3519.         xor   eax, eax
  3520.         mov   ecx, 0x0fff00 / 4
  3521.         cld
  3522.         rep   stosd
  3523.  
  3524.         mov   edi,display_data              ; set os to use all pixels
  3525.         mov   eax,0x01010101
  3526.         mov   ecx,0x15ff00 / 4
  3527.         rep   stosd
  3528.  
  3529.         mov   byte [REDRAW_BACKGROUND], 0              ; do not draw background!
  3530.  
  3531.         ret
  3532.  
  3533. uglobal
  3534.   imax    dd 0x0
  3535. endg
  3536.  
  3537.  
  3538.  
  3539. delay_ms:     ; delay in 1/1000 sec
  3540.  
  3541.  
  3542.         push  eax
  3543.         push  ecx
  3544.  
  3545.         mov   ecx,esi
  3546.         ; <CPU clock fix by Sergey Kuzmin aka Wildwest>
  3547.         imul  ecx, 33941
  3548.         shr   ecx, 9
  3549.         ; </CPU clock fix>
  3550.  
  3551.         in    al,0x61
  3552.         and   al,0x10
  3553.         mov   ah,al
  3554.         cld
  3555.  
  3556.  cnt1:  in    al,0x61
  3557.         and   al,0x10
  3558.         cmp   al,ah
  3559.         jz    cnt1
  3560.  
  3561.         mov   ah,al
  3562.         loop  cnt1
  3563.  
  3564.         pop   ecx
  3565.         pop   eax
  3566.  
  3567.         ret
  3568.  
  3569.  
  3570. set_app_param:
  3571.         push edi
  3572.  
  3573.         mov  edi,[TASK_BASE]
  3574.         mov  [edi+TASKDATA.event_mask],eax
  3575.  
  3576.         pop  edi
  3577.         ret
  3578.  
  3579.  
  3580.  
  3581. delay_hs:     ; delay in 1/100 secs
  3582.         push  eax
  3583.         push  ecx
  3584.         push  edx
  3585.  
  3586.         mov   edx,[timer_ticks]
  3587.         add   edx,eax
  3588.  
  3589.       newtic:
  3590.         mov   ecx,[timer_ticks]
  3591.         cmp   edx,ecx
  3592.         jbe   zerodelay
  3593.  
  3594.         call  change_task
  3595.  
  3596.         jmp   newtic
  3597.  
  3598.       zerodelay:
  3599.         pop   edx
  3600.         pop   ecx
  3601.         pop   eax
  3602.  
  3603.         ret
  3604.  
  3605.  
  3606. memmove:       ; memory move in bytes
  3607.  
  3608. ; eax = from
  3609. ; ebx = to
  3610. ; ecx = no of bytes
  3611.     test ecx, ecx
  3612.     jle  .ret
  3613.  
  3614.  
  3615.     push esi edi ecx
  3616.  
  3617.     mov  edi, ebx
  3618.     mov  esi, eax
  3619.  
  3620.     test ecx, not 11b
  3621.     jz   @f
  3622.  
  3623.     push ecx
  3624.     shr  ecx, 2
  3625.     rep  movsd
  3626.     pop  ecx
  3627.     and  ecx, 11b
  3628.     jz   .finish
  3629.   @@:
  3630.     rep  movsb
  3631.  
  3632.   .finish:
  3633.     pop  ecx edi esi
  3634.   .ret:
  3635.     ret
  3636.  
  3637.  
  3638. ; <diamond> Sysfunction 34, read_floppy_file, is obsolete. Use 58 or 70 function instead.
  3639. ;align 4
  3640. ;
  3641. ;read_floppy_file:
  3642. ;
  3643. ;; as input
  3644. ;;
  3645. ;; eax pointer to file
  3646. ;; ebx file lenght
  3647. ;; ecx start 512 byte block number
  3648. ;; edx number of blocks to read
  3649. ;; esi pointer to return/work area (atleast 20 000 bytes)
  3650. ;;
  3651. ;;
  3652. ;; on return
  3653. ;;
  3654. ;; eax = 0 command succesful
  3655. ;;       1 no fd base and/or partition defined
  3656. ;;       2 yet unsupported FS
  3657. ;;       3 unknown FS
  3658. ;;       4 partition not defined at hd
  3659. ;;       5 file not found
  3660. ;; ebx = size of file
  3661. ;
  3662. ;     mov   edi,[TASK_BASE]
  3663. ;     add   edi,0x10
  3664. ;     add   esi,[edi]
  3665. ;     add   eax,[edi]
  3666. ;
  3667. ;     pushad
  3668. ;     mov  edi,esi
  3669. ;     add  edi,1024
  3670. ;     mov  esi,0x100000+19*512
  3671. ;     sub  ecx,1
  3672. ;     shl  ecx,9
  3673. ;     add  esi,ecx
  3674. ;     shl  edx,9
  3675. ;     mov  ecx,edx
  3676. ;     cld
  3677. ;     rep  movsb
  3678. ;     popad
  3679. ;
  3680. ;     mov   [esp+36],eax
  3681. ;     mov   [esp+24],ebx
  3682. ;     ret
  3683.  
  3684.  
  3685.  
  3686. align 4
  3687.  
  3688. sys_programirq:
  3689.  
  3690.     mov   edi,[TASK_BASE]
  3691.     add   eax,[edi+TASKDATA.mem_start]
  3692.  
  3693.     cmp   ebx,16
  3694.     jae   .not_owner
  3695.     mov   edi,[TASK_BASE]
  3696.     mov   edi,[edi+TASKDATA.pid]
  3697.     cmp   edi,[irq_owner+ebx*4]
  3698.     je    spril1
  3699. .not_owner:
  3700.     mov   [esp+36],dword 1
  3701.     ret
  3702.   spril1:
  3703.  
  3704.     mov   esi,eax
  3705.     shl   ebx,6
  3706.     add   ebx,irq00read
  3707.     mov   edi,ebx
  3708.     mov   ecx,16
  3709.     cld
  3710.     rep   movsd
  3711.     mov   [esp+36],dword 0
  3712.     ret
  3713.  
  3714.  
  3715. align 4
  3716.  
  3717. get_irq_data:
  3718.      cmp   eax,16
  3719.      jae   .not_owner
  3720.      mov   edx,eax           ; check for correct owner
  3721.      shl   edx,2
  3722.      add   edx,irq_owner
  3723.      mov   edx,[edx]
  3724.      mov   edi,[TASK_BASE]
  3725.      mov   edi,[edi+TASKDATA.pid]
  3726.      cmp   edx,edi
  3727.      je    gidril1
  3728. .not_owner:
  3729.      mov   [esp+32],dword 2     ; ecx=2
  3730.      ret
  3731.  
  3732.   gidril1:
  3733.  
  3734.      mov   ebx,eax
  3735.      shl   ebx,12
  3736.      add   ebx,IRQ_SAVE
  3737.      mov   eax,[ebx]
  3738.      mov   ecx,1
  3739.      test  eax,eax
  3740.      jz    gid1
  3741.  
  3742.      dec   eax
  3743.      mov   esi,ebx
  3744.      mov   [ebx],eax
  3745.      movzx ebx,byte [ebx+0x10]
  3746.      add   esi,0x10
  3747.      mov   edi,esi
  3748.      inc   esi
  3749.      mov   ecx,4000 / 4
  3750.      cld
  3751.      rep   movsd
  3752. ;     xor   ecx,ecx     ; as result of 'rep' ecx=0
  3753.    gid1:
  3754.      mov   [esp+36],eax
  3755.      mov   [esp+32],ecx
  3756.      mov   [esp+24],ebx
  3757.      ret
  3758.  
  3759.  
  3760. set_io_access_rights:
  3761.  
  3762.      pushad
  3763.  
  3764.      mov   edi,[CURRENT_TASK]
  3765.      imul  edi,tss_step
  3766.      add   edi,tss_data+128
  3767. ;     add   edi,128
  3768.  
  3769.      mov   ecx,eax
  3770.      and   ecx,7    ; offset in byte
  3771.  
  3772.      shr   eax,3    ; number of byte
  3773.      add   edi,eax
  3774.  
  3775.      mov   ebx,1
  3776.      shl   ebx,cl
  3777.  
  3778.      cmp   ebp,0                ; enable access - ebp = 0
  3779.      jne   siar1
  3780.  
  3781.      not   ebx
  3782.      and   [edi],byte bl
  3783.  
  3784.      popad
  3785.  
  3786.      ret
  3787.  
  3788.    siar1:
  3789.  
  3790.      or    [edi],byte bl        ; disable access - ebp = 1
  3791.  
  3792.      popad
  3793.  
  3794.      ret
  3795.  
  3796. r_f_port_area:
  3797.  
  3798.      test  eax, eax
  3799.      jnz   free_port_area
  3800. ;     je    r_port_area
  3801. ;     jmp   free_port_area
  3802.  
  3803. ;   r_port_area:
  3804.  
  3805.      pushad
  3806.  
  3807.      cmp   ebx,ecx            ; beginning > end ?
  3808.      ja    rpal1
  3809.      cmp   ecx,65536
  3810.      jae   rpal1
  3811.      mov   esi,[RESERVED_PORTS]
  3812.      test  esi,esi            ; no reserved areas ?
  3813.      je    rpal2
  3814.      cmp   esi,255            ; max reserved
  3815.      jae   rpal1
  3816.    rpal3:
  3817.      mov   edi,esi
  3818.      shl   edi,4
  3819.      add   edi,RESERVED_PORTS
  3820.      cmp   ebx,[edi+8]
  3821.      ja    rpal4
  3822.      cmp   ecx,[edi+4]
  3823.      jae   rpal1
  3824. ;     jb    rpal4
  3825. ;     jmp   rpal1
  3826.    rpal4:
  3827.  
  3828.      dec   esi
  3829.      jnz   rpal3
  3830.      jmp   rpal2
  3831.    rpal1:
  3832.      popad
  3833.      mov   eax,1
  3834.      ret
  3835.  
  3836.    rpal2:
  3837.      popad
  3838.  
  3839.  
  3840.      ; enable port access at port IO map
  3841.      cli
  3842.      pushad                        ; start enable io map
  3843.  
  3844.      cmp   ecx,65536 ;16384
  3845.      jae   no_unmask_io ; jge
  3846.  
  3847.      mov   eax,ebx
  3848.  
  3849.    new_port_access:
  3850.  
  3851.      pushad
  3852.  
  3853.      xor   ebp,ebp                ; enable - eax = port
  3854.      call  set_io_access_rights
  3855.  
  3856.      popad
  3857.  
  3858.      inc   eax
  3859.      cmp   eax,ecx
  3860.      jbe   new_port_access
  3861.  
  3862.    no_unmask_io:
  3863.  
  3864.      popad                         ; end enable io map
  3865.      sti
  3866.  
  3867.      mov   edi,[RESERVED_PORTS]
  3868.      add   edi,1
  3869.      mov   [RESERVED_PORTS],edi
  3870.      shl   edi,4
  3871.      add   edi,RESERVED_PORTS
  3872.      mov   esi,[TASK_BASE]
  3873.      mov   esi,[esi+TASKDATA.pid]
  3874.      mov   [edi],esi
  3875.      mov   [edi+4],ebx
  3876.      mov   [edi+8],ecx
  3877.  
  3878.      xor   eax, eax
  3879.      ret
  3880.  
  3881. free_port_area:
  3882.  
  3883.      pushad
  3884.  
  3885.      mov   esi,[RESERVED_PORTS]     ; no reserved areas ?
  3886.      test  esi,esi
  3887.      je    frpal2
  3888.      mov   edx,[TASK_BASE]
  3889.      mov   edx,[edx+TASKDATA.pid]
  3890.    frpal3:
  3891.      mov   edi,esi
  3892.      shl   edi,4
  3893.      add   edi,RESERVED_PORTS
  3894.      cmp   edx,[edi]
  3895.      jne   frpal4
  3896.      cmp   ebx,[edi+4]
  3897.      jne   frpal4
  3898.      cmp   ecx,[edi+8]
  3899.      jne   frpal4
  3900.      jmp   frpal1
  3901.    frpal4:
  3902.      dec   esi
  3903.      jnz   frpal3
  3904.    frpal2:
  3905.      popad
  3906.      mov   eax,1
  3907.      ret
  3908.    frpal1:
  3909.      mov   ecx,256
  3910.      sub   ecx,esi
  3911.      shl   ecx,4
  3912.      mov   esi,edi
  3913.      add   esi,16
  3914.      cld
  3915.      rep   movsb
  3916.  
  3917.      dec   dword [RESERVED_PORTS]
  3918.  
  3919.      popad
  3920.  
  3921.  
  3922.      ; disable port access at port IO map
  3923.  
  3924.      pushad                        ; start disable io map
  3925.  
  3926.      cmp   ecx,65536 ;16384
  3927.      jge   no_mask_io
  3928.  
  3929.      mov   eax,ebx
  3930.  
  3931.    new_port_access_disable:
  3932.  
  3933.      pushad
  3934.  
  3935.      mov   ebp,1                  ; disable - eax = port
  3936.      call  set_io_access_rights
  3937.  
  3938.      popad
  3939.  
  3940.      inc   eax
  3941.      cmp   eax,ecx
  3942.      jbe   new_port_access_disable
  3943.  
  3944.    no_mask_io:
  3945.  
  3946.      popad                         ; end disable io map
  3947.  
  3948.      xor   eax, eax
  3949.      ret
  3950.  
  3951.  
  3952. reserve_free_irq:
  3953.  
  3954.      mov   ecx, 1
  3955.      cmp   ebx, 16
  3956.      jae   fril1
  3957.      test  eax,eax
  3958.      jz    reserve_irq
  3959.  
  3960.      lea   edi,[irq_owner+ebx*4]
  3961.      mov   edx,[edi]
  3962.      mov   eax,[TASK_BASE]
  3963.      cmp   edx,[eax+TASKDATA.pid]
  3964.      jne   fril1
  3965.      dec   ecx
  3966.      mov   [edi],ecx
  3967.    fril1:
  3968.      mov   [esp+36],ecx ; return in eax
  3969.      ret
  3970.  
  3971.   reserve_irq:
  3972.  
  3973.      lea   edi,[irq_owner+ebx*4]
  3974.      cmp   dword [edi], 0
  3975.      jnz   ril1
  3976.  
  3977.      mov   edx,[TASK_BASE]
  3978.      mov   edx,[edx+TASKDATA.pid]
  3979.      mov   [edi],edx
  3980.      dec   ecx
  3981.    ril1:
  3982.      mov   [esp+36],ecx ; return in eax
  3983.      ret
  3984.  
  3985. drawbackground:
  3986.        inc   [mouse_pause]
  3987.        cmp   [SCR_MODE],word 0x12
  3988.        je   dbrv20
  3989.      dbrv12:
  3990.        cmp  [SCR_MODE],word 0100000000000000b
  3991.        jge  dbrv20
  3992.        cmp  [SCR_MODE],word 0x13
  3993.        je   dbrv20
  3994.        call  vesa12_drawbackground
  3995.        dec   [mouse_pause]
  3996.        call   [draw_pointer]
  3997.        ret
  3998.      dbrv20:
  3999.        cmp   [display_data-12],dword 1
  4000.        jne   bgrstr
  4001.        call  vesa20_drawbackground_tiled
  4002.        dec   [mouse_pause]
  4003.        call   [draw_pointer]
  4004.        ret
  4005.      bgrstr:
  4006.        call  vesa20_drawbackground_stretch
  4007.        dec   [mouse_pause]
  4008.        call   [draw_pointer]
  4009.        ret
  4010.  
  4011. align 4
  4012.  
  4013. syscall_putimage:                       ; PutImage
  4014.  
  4015.      mov   edx,ecx
  4016.      mov   ecx,ebx
  4017.         lea     ebx, [eax+std_application_base_address]
  4018.  
  4019. sys_putimage:
  4020.      test  ecx,0x80008000
  4021.      jnz   .exit
  4022.      test  ecx,0x0000FFFF
  4023.      jz    .exit
  4024.      test  ecx,0xFFFF0000
  4025.      jnz   @f
  4026.   .exit:
  4027.      ret
  4028.  @@:
  4029.         mov     edi,[CURRENT_TASK]
  4030.         shl     edi,8
  4031.         add     dx,word[edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
  4032.         rol     edx,16
  4033.         add     dx,word[edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
  4034.         rol     edx,16
  4035.   .forced:
  4036.         push    ebp esi 0
  4037.         mov     ebp, putimage_get24bpp
  4038.         mov     esi, putimage_init24bpp
  4039. sys_putimage_bpp:
  4040. ;        call    [disable_mouse] ; this will be done in xxx_putimage
  4041. ;        mov     eax, vga_putimage
  4042.         cmp     [SCR_MODE], word 0x12
  4043.         jz      @f   ;.doit
  4044.         mov     eax, vesa12_putimage
  4045.         cmp     [SCR_MODE], word 0100000000000000b
  4046.         jae     @f
  4047.         cmp     [SCR_MODE], word 0x13
  4048.         jnz     .doit
  4049. @@:
  4050.         mov     eax, vesa20_putimage
  4051. .doit:
  4052.         inc     [mouse_pause]
  4053.         call    eax
  4054.         dec     [mouse_pause]
  4055.         pop     ebp esi ebp
  4056.         jmp     [draw_pointer]
  4057.  
  4058. syscall_putimage_palette:
  4059.         lea     edi, [esi+std_application_base_address]
  4060.         mov     esi, edx
  4061.         mov     edx, ecx
  4062.         mov     ecx, ebx
  4063.         lea     ebx, [eax+std_application_base_address]
  4064. sys_putimage_palette:
  4065. ; ebx = pointer to image
  4066. ; ecx = [xsize]*65536 + [ysize]
  4067. ; edx = [xstart]*65536 + [ystart]
  4068. ; esi = number of bits per pixel, must be 8, 24 or 32
  4069. ; edi = pointer to palette
  4070. ; ebp = row delta
  4071.         mov     eax, [CURRENT_TASK]
  4072.         shl     eax, 8
  4073.         add     dx, word [eax+SLOT_BASE+APPDATA.wnd_clientbox.top]
  4074.         rol     edx, 16
  4075.         add     dx, word [eax+SLOT_BASE+APPDATA.wnd_clientbox.left]
  4076.         rol     edx, 16
  4077. .forced:
  4078.         push    ebp esi ebp
  4079.         cmp     esi, 8
  4080.         jnz     @f
  4081.         mov     ebp, putimage_get8bpp
  4082.         mov     esi, putimage_init8bpp
  4083.         jmp     sys_putimage_bpp
  4084. @@:
  4085.         cmp     esi, 24
  4086.         jnz     @f
  4087.         mov     ebp, putimage_get24bpp
  4088.         mov     esi, putimage_init24bpp
  4089.         jmp     sys_putimage_bpp
  4090. @@:
  4091.         cmp     esi, 32
  4092.         jnz     @f
  4093.         mov     ebp, putimage_get32bpp
  4094.         mov     esi, putimage_init32bpp
  4095.         jmp     sys_putimage_bpp
  4096. @@:
  4097.         pop     ebp esi
  4098.         ret
  4099.  
  4100. putimage_init24bpp:
  4101.         lea     eax, [eax*3]
  4102. putimage_init8bpp:
  4103.         ret
  4104.  
  4105. putimage_get24bpp:
  4106.         mov     eax, [esi]
  4107.         add     esi, 3
  4108.         ret     4
  4109. putimage_get8bpp:
  4110.         movzx   eax, byte [esi]
  4111.         push    edx
  4112.         mov     edx, [esp+8]
  4113.         mov     eax, [edx+eax*4]
  4114.         pop     edx
  4115.         inc     esi
  4116.         ret     4
  4117.  
  4118. putimage_init32bpp:
  4119.         shl     eax, 2
  4120.         ret
  4121. putimage_get32bpp:
  4122.         lodsd
  4123.         ret     4
  4124.  
  4125. ; eax x beginning
  4126. ; ebx y beginning
  4127. ; ecx x end
  4128.         ; edx y end
  4129. ; edi color
  4130.  
  4131. __sys_drawbar:
  4132.         mov     esi,[CURRENT_TASK]
  4133.         shl     esi,8
  4134.         add     eax,[esi+SLOT_BASE+APPDATA.wnd_clientbox.left]
  4135.         add     ecx,[esi+SLOT_BASE+APPDATA.wnd_clientbox.left]
  4136.         add     ebx,[esi+SLOT_BASE+APPDATA.wnd_clientbox.top]
  4137.         add     edx,[esi+SLOT_BASE+APPDATA.wnd_clientbox.top]
  4138.   .forced:
  4139.     inc   [mouse_pause]
  4140. ;        call    [disable_mouse]
  4141.     cmp   [SCR_MODE],word 0x12
  4142.     je   dbv20
  4143.    sdbv20:
  4144.     cmp  [SCR_MODE],word 0100000000000000b
  4145.     jge  dbv20
  4146.     cmp  [SCR_MODE],word 0x13
  4147.     je   dbv20
  4148.     call vesa12_drawbar
  4149.     dec   [mouse_pause]
  4150.     call   [draw_pointer]
  4151.     ret
  4152.   dbv20:
  4153.     call vesa20_drawbar
  4154.     dec   [mouse_pause]
  4155.     call   [draw_pointer]
  4156.     ret
  4157.  
  4158.  
  4159.  
  4160. kb_read:
  4161.  
  4162.         push    ecx edx
  4163.  
  4164.         mov     ecx,0x1ffff ; last 0xffff, new value in view of fast CPU's
  4165.       kr_loop:
  4166.         in      al,0x64
  4167.         test    al,1
  4168.         jnz     kr_ready
  4169.         loop    kr_loop
  4170.         mov     ah,1
  4171.         jmp     kr_exit
  4172.       kr_ready:
  4173.         push    ecx
  4174.         mov     ecx,32
  4175.       kr_delay:
  4176.         loop    kr_delay
  4177.         pop     ecx
  4178.         in      al,0x60
  4179.         xor     ah,ah
  4180.       kr_exit:
  4181.  
  4182.         pop     edx ecx
  4183.  
  4184.         ret
  4185.  
  4186.  
  4187. kb_write:
  4188.  
  4189.         push    ecx edx
  4190.  
  4191.         mov     dl,al
  4192. ;        mov     ecx,0x1ffff ; last 0xffff, new value in view of fast CPU's
  4193. ;      kw_loop1:
  4194. ;        in      al,0x64
  4195. ;        test    al,0x20
  4196. ;        jz      kw_ok1
  4197. ;        loop    kw_loop1
  4198. ;        mov     ah,1
  4199. ;        jmp     kw_exit
  4200. ;      kw_ok1:
  4201.         in      al,0x60
  4202.         mov     ecx,0x1ffff ; last 0xffff, new value in view of fast CPU's
  4203.       kw_loop:
  4204.         in      al,0x64
  4205.         test    al,2
  4206.         jz      kw_ok
  4207.         loop    kw_loop
  4208.         mov     ah,1
  4209.         jmp     kw_exit
  4210.       kw_ok:
  4211.         mov     al,dl
  4212.         out     0x60,al
  4213.         mov     ecx,0x1ffff ; last 0xffff, new value in view of fast CPU's
  4214.       kw_loop3:
  4215.         in      al,0x64
  4216.         test    al,2
  4217.         jz      kw_ok3
  4218.         loop    kw_loop3
  4219.         mov     ah,1
  4220.         jmp     kw_exit
  4221.       kw_ok3:
  4222.         mov     ah,8
  4223.       kw_loop4:
  4224.         mov     ecx,0x1ffff ; last 0xffff, new value in view of fast CPU's
  4225.       kw_loop5:
  4226.         in      al,0x64
  4227.         test    al,1
  4228.         jnz     kw_ok4
  4229.         loop    kw_loop5
  4230.         dec     ah
  4231.         jnz     kw_loop4
  4232.       kw_ok4:
  4233.         xor     ah,ah
  4234.       kw_exit:
  4235.  
  4236.         pop     edx ecx
  4237.  
  4238.         ret
  4239.  
  4240.  
  4241. kb_cmd:
  4242.  
  4243.         mov     ecx,0x1ffff ; last 0xffff, new value in view of fast CPU's
  4244.       c_wait:
  4245.         in      al,0x64
  4246.         test    al,2
  4247.         jz      c_send
  4248.         loop    c_wait
  4249.         jmp     c_error
  4250.       c_send:
  4251.         mov     al,bl
  4252.         out     0x64,al
  4253.         mov     ecx,0x1ffff ; last 0xffff, new value in view of fast CPU's
  4254.       c_accept:
  4255.         in      al,0x64
  4256.         test    al,2
  4257.         jz      c_ok
  4258.         loop    c_accept
  4259.       c_error:
  4260.         mov     ah,1
  4261.         jmp     c_exit
  4262.       c_ok:
  4263.         xor     ah,ah
  4264.       c_exit:
  4265.         ret
  4266.  
  4267.  
  4268. setmouse:  ; set mousepicture -pointer
  4269.            ; ps2 mouse enable
  4270.  
  4271.      mov     [MOUSE_PICTURE],dword mousepointer
  4272.  
  4273.      cli
  4274. ;     mov     bl,0xa8                 ; enable mouse cmd
  4275. ;     call    kb_cmd
  4276. ;     call    kb_read                 ; read status
  4277. ;     mov     bl,0x20                 ; get command byte
  4278. ;     call    kb_cmd
  4279. ;     call    kb_read
  4280. ;     or      al,3                    ; enable interrupt
  4281. ;     mov     bl,0x60                 ; write command
  4282. ;     push    eax
  4283. ;     call    kb_cmd
  4284. ;     pop     eax
  4285. ;     call    kb_write
  4286. ;     mov     bl,0xd4                 ; for mouse
  4287. ;     call    kb_cmd
  4288. ;     mov     al,0xf4                 ; enable mouse device
  4289. ;     call    kb_write
  4290. ;     call    kb_read           ; read status return
  4291.  
  4292.      ; com1 mouse enable
  4293.  
  4294.      mov   bx,0x3f8 ; combase
  4295.  
  4296.      mov   dx,bx
  4297.      add   dx,3
  4298.      mov   al,0x80
  4299.      out   dx,al
  4300.  
  4301.      mov   dx,bx
  4302.      add   dx,1
  4303.      mov   al,0
  4304.      out   dx,al
  4305.  
  4306.      mov   dx,bx
  4307.      add   dx,0
  4308.      mov   al,0x30*2    ; 0x30 / 4
  4309.      out   dx,al
  4310.  
  4311.      mov   dx,bx
  4312.      add   dx,3
  4313.      mov   al,2         ; 3
  4314.      out   dx,al
  4315.  
  4316.      mov   dx,bx
  4317.      add   dx,4
  4318.      mov   al,0xb
  4319.      out   dx,al
  4320.  
  4321.      mov   dx,bx
  4322.      add   dx,1
  4323.      mov   al,1
  4324.      out   dx,al
  4325.  
  4326.  
  4327.      ; com2 mouse enable
  4328.  
  4329.      mov   bx,0x2f8 ; combase
  4330.  
  4331.      mov   dx,bx
  4332.      add   dx,3
  4333.      mov   al,0x80
  4334.      out   dx,al
  4335.  
  4336.      mov   dx,bx
  4337.      add   dx,1
  4338.      mov   al,0
  4339.      out   dx,al
  4340.  
  4341.      mov   dx,bx
  4342.      add   dx,0
  4343.      mov   al,0x30*2
  4344.      out   dx,al
  4345.  
  4346.      mov   dx,bx
  4347.      add   dx,3
  4348.      mov   al,2
  4349.      out   dx,al
  4350.  
  4351.      mov   dx,bx
  4352.      add   dx,4
  4353.      mov   al,0xb
  4354.      out   dx,al
  4355.  
  4356.      mov   dx,bx
  4357.      add   dx,1
  4358.      mov   al,1
  4359.      out   dx,al
  4360.  
  4361.      ret
  4362.  
  4363.  
  4364. _rdtsc:
  4365.      bt [cpu_caps], CAPS_TSC
  4366.      jnc ret_rdtsc
  4367.      rdtsc
  4368.      ret
  4369.    ret_rdtsc:
  4370.      mov   edx,0xffffffff
  4371.      mov   eax,0xffffffff
  4372.      ret
  4373.  
  4374. rerouteirqs:
  4375.  
  4376.         cli
  4377.  
  4378.         mov     al,0x11         ;  icw4, edge triggered
  4379.         out     0x20,al
  4380.         call    pic_delay
  4381.         out     0xA0,al
  4382.         call    pic_delay
  4383.  
  4384.         mov     al,0x20         ;  generate 0x20 +
  4385.         out     0x21,al
  4386.         call    pic_delay
  4387.         mov     al,0x28         ;  generate 0x28 +
  4388.         out     0xA1,al
  4389.         call    pic_delay
  4390.  
  4391.         mov     al,0x04         ;  slave at irq2
  4392.         out     0x21,al
  4393.         call    pic_delay
  4394.         mov     al,0x02         ;  at irq9
  4395.         out     0xA1,al
  4396.         call    pic_delay
  4397.  
  4398.         mov     al,0x01         ;  8086 mode
  4399.         out     0x21,al
  4400.         call    pic_delay
  4401.         out     0xA1,al
  4402.         call    pic_delay
  4403.  
  4404.         mov     al,255          ; mask all irq's
  4405.         out     0xA1,al
  4406.         call    pic_delay
  4407.         out     0x21,al
  4408.         call    pic_delay
  4409.  
  4410.         mov     ecx,0x1000
  4411.         cld
  4412. picl1:  call    pic_delay
  4413.         loop    picl1
  4414.  
  4415.         mov     al,255          ; mask all irq's
  4416.         out     0xA1,al
  4417.         call    pic_delay
  4418.         out     0x21,al
  4419.         call    pic_delay
  4420.  
  4421.         cli
  4422.  
  4423.         ret
  4424.  
  4425.  
  4426. pic_delay:
  4427.  
  4428.         jmp     pdl1
  4429. pdl1:   ret
  4430.  
  4431.  
  4432. sys_msg_board_str:
  4433.  
  4434.      pushad
  4435.    @@:
  4436.      cmp    [esi],byte 0
  4437.      je     @f
  4438.      mov    eax,1
  4439.      movzx  ebx,byte [esi]
  4440.      call   sys_msg_board
  4441.      inc    esi
  4442.      jmp    @b
  4443.    @@:
  4444.      popad
  4445.      ret
  4446.  
  4447. uglobal
  4448.   msg_board_data: times 4096 db 0
  4449.   msg_board_count dd 0x0
  4450. endg
  4451.  
  4452. sys_msg_board:
  4453.  
  4454. ; eax=1 : write :  bl byte to write
  4455. ; eax=2 :  read :  ebx=0 -> no data, ebx=1 -> data in al
  4456.  
  4457.      mov  ecx,[msg_board_count]
  4458.      cmp  eax, 1
  4459.      jne  smbl1
  4460.  
  4461.  
  4462.      mov  [msg_board_data+ecx],bl
  4463.      inc  ecx
  4464.      and  ecx, 4095
  4465.      mov  [msg_board_count], ecx
  4466.      mov  [check_idle_semaphore], 5
  4467.      ret
  4468.    smbl1:
  4469.  
  4470.      cmp   eax, 2
  4471.      jne   smbl2
  4472.      test  ecx, ecx
  4473.      jz    smbl21
  4474. ;     mov   edi, msg_board_data
  4475. ;     mov   esi, msg_board_data+1
  4476. ;     movzx eax, byte [edi]
  4477.      mov   eax, msg_board_data+1
  4478.      mov   ebx, msg_board_data
  4479.      movzx edx, byte [ebx]
  4480.      call  memmove
  4481. ;     push  ecx
  4482. ;     shr   ecx, 2
  4483. ;     cld
  4484. ;     rep   movsd
  4485. ;     pop   ecx
  4486. ;     and   ecx, 3
  4487. ;     rep   movsb
  4488.      dec   [msg_board_count]
  4489.      mov   [esp+36], edx ;eax
  4490.      mov   [esp+24], dword 1
  4491.      ret
  4492.    smbl21:
  4493.      mov   [esp+36], ecx
  4494.      mov   [esp+24], ecx
  4495.  
  4496.    smbl2:
  4497.      ret
  4498.  
  4499.  
  4500.  
  4501. sys_process_def:
  4502.         mov     edi, [CURRENT_TASK]
  4503.  
  4504.         dec     eax             ; 1 = set keyboard mode
  4505.      jne   no_set_keyboard_setup
  4506.  
  4507.      shl   edi,8
  4508.      mov   [edi+SLOT_BASE + APPDATA.keyboard_mode],bl
  4509.  
  4510.      ret
  4511.  
  4512.    no_set_keyboard_setup:
  4513.  
  4514.         dec     eax             ; 2 = get keyboard mode
  4515.      jne   no_get_keyboard_setup
  4516.  
  4517.      shl   edi,8
  4518.      movzx eax, byte [SLOT_BASE+edi + APPDATA.keyboard_mode]
  4519.  
  4520.      mov   [esp+36],eax
  4521.  
  4522.      ret
  4523.  
  4524.    no_get_keyboard_setup:
  4525.  
  4526.         dec     eax             ; 3 = get keyboard ctrl, alt, shift
  4527.      jne   no_get_keyboard_cas
  4528.  
  4529. ;     xor   eax,eax
  4530. ;     movzx eax,byte [shift]
  4531. ;     movzx ebx,byte [ctrl]
  4532. ;     shl   ebx,2
  4533. ;     add   eax,ebx
  4534. ;     movzx ebx,byte [alt]
  4535. ;     shl   ebx,3
  4536. ;     add   eax,ebx
  4537.  
  4538.  ;// mike.dld [
  4539.      mov   eax, [kb_state]
  4540.  ;// mike.dld ]
  4541.  
  4542.      mov   [esp+36],eax
  4543.  
  4544.      ret
  4545.  
  4546.    no_get_keyboard_cas:
  4547.  
  4548.         dec     eax
  4549.         jnz     no_add_keyboard_hotkey
  4550.  
  4551.         mov     eax, hotkey_list
  4552. @@:
  4553.         cmp     dword [eax+8], 0
  4554.         jz      .found_free
  4555.         add     eax, 16
  4556.         cmp     eax, hotkey_list+16*256
  4557.         jb      @b
  4558.         mov     dword [esp+36], 1
  4559.         ret
  4560. .found_free:
  4561.         mov     [eax+8], edi
  4562.         mov     [eax+4], ecx
  4563.         movzx   ebx, bl
  4564.         lea     ebx, [hotkey_scancodes+ebx*4]
  4565.         mov     ecx, [ebx]
  4566.         mov     [eax], ecx
  4567.         mov     [ebx], eax
  4568.         mov     [eax+12], ebx
  4569.         jecxz   @f
  4570.         mov     [ecx+12], eax
  4571. @@:
  4572.         and     dword [esp+36], 0
  4573.         ret
  4574.  
  4575. no_add_keyboard_hotkey:
  4576.  
  4577.         dec     eax
  4578.         jnz     no_del_keyboard_hotkey
  4579.  
  4580.         movzx   ebx, bl
  4581.         lea     ebx, [hotkey_scancodes+ebx*4]
  4582.         mov     eax, [ebx]
  4583. .scan:
  4584.         test    eax, eax
  4585.         jz      .notfound
  4586.         cmp     [eax+8], edi
  4587.         jnz     .next
  4588.         cmp     [eax+4], ecx
  4589.         jz      .found
  4590. .next:
  4591.         mov     eax, [eax]
  4592.         jmp     .scan
  4593. .notfound:
  4594.         mov     dword [esp+36], 1
  4595.         ret
  4596. .found:
  4597.         mov     ecx, [eax]
  4598.         jecxz   @f
  4599.         mov     edx, [eax+12]
  4600.         mov     [ecx+12], edx
  4601. @@:
  4602.         mov     ecx, [eax+12]
  4603.         mov     edx, [eax]
  4604.         mov     [ecx], edx
  4605.         xor     edx, edx
  4606.         mov     [eax+4], edx
  4607.         mov     [eax+8], edx
  4608.         mov     [eax+12], edx
  4609.         mov     [eax], edx
  4610.         mov     [esp+36], edx
  4611.         ret
  4612.  
  4613. no_del_keyboard_hotkey:
  4614.      ret
  4615.  
  4616.  
  4617. align 4
  4618.  
  4619. sys_gs:                         ; direct screen access
  4620.  
  4621.      cmp  eax,1                 ; resolution
  4622.      jne  no_gs1
  4623.      mov  eax,[ScreenWidth]
  4624.      shl  eax,16
  4625.      mov  ax,[ScreenHeight]
  4626.      add  eax,0x00010001
  4627.      mov  [esp+36],eax
  4628.      ret
  4629.    no_gs1:
  4630.  
  4631.      cmp   eax,2                ; bits per pixel
  4632.      jne   no_gs2
  4633.      movzx eax,byte [ScreenBPP]
  4634.      mov   [esp+36],eax
  4635.      ret
  4636.    no_gs2:
  4637.  
  4638.      cmp   eax,3                ; bytes per scanline
  4639.      jne   no_gs3
  4640.      mov   eax,[BytesPerScanLine]
  4641.      mov   [esp+36],eax
  4642.      ret
  4643.    no_gs3:
  4644.  
  4645.      mov  [esp+36],dword -1
  4646.      ret
  4647.  
  4648.  
  4649. align 4 ; PCI functions
  4650.  
  4651. sys_pci:
  4652.  
  4653.      call  pci_api
  4654.      mov   [esp+36],eax
  4655.      ret
  4656.  
  4657.  
  4658. align 4  ;  system functions
  4659.  
  4660. syscall_setpixel:                       ; SetPixel
  4661.  
  4662.  
  4663.      mov   edx,[TASK_BASE]
  4664.      add   eax,[edx-twdw+WDATA.box.left]
  4665.      add   ebx,[edx-twdw+WDATA.box.top]
  4666.         mov     edi,[CURRENT_TASK]
  4667.         shl     edi,8
  4668.         add     eax,[edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
  4669.         add     ebx,[edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
  4670.      xor   edi,edi ; no force
  4671. ;     mov   edi,1
  4672.      call  [disable_mouse]
  4673.      jmp   [putpixel]
  4674.  
  4675. align 4
  4676.  
  4677. syscall_writetext:                      ; WriteText
  4678.  
  4679.      mov   edi,[TASK_BASE]
  4680.      mov   ebp,[edi-twdw+WDATA.box.left]
  4681.         push    esi
  4682.         mov     esi,[CURRENT_TASK]
  4683.         shl     esi,8
  4684.         add     ebp,[esi+SLOT_BASE+APPDATA.wnd_clientbox.left]
  4685.      shl   ebp,16
  4686.      add   ebp,[edi-twdw+WDATA.box.top]
  4687.         add     bp,word[esi+SLOT_BASE+APPDATA.wnd_clientbox.top]
  4688.         pop     esi
  4689.      add   ecx,[edi+TASKDATA.mem_start]
  4690.      add   eax,ebp
  4691.      xor   edi,edi
  4692.      jmp   dtext
  4693.  
  4694. align 4
  4695.  
  4696. syscall_openramdiskfile:                ; OpenRamdiskFile
  4697.  
  4698.  
  4699.      mov   edi,[TASK_BASE]
  4700.      add   edi,TASKDATA.mem_start
  4701.      add   eax,[edi]
  4702.      add   edx,[edi]
  4703.      mov   esi,12
  4704.      call  fileread
  4705.      mov   [esp+36],ebx
  4706.      ret
  4707.  
  4708. align 4
  4709.  
  4710. syscall_drawrect:                       ; DrawRect
  4711.  
  4712.      mov   edi,ecx
  4713.      and   edi,0x80FFFFFF
  4714.      test  ax,ax
  4715.      je    drectr
  4716.      test  bx,bx
  4717.      je    drectr
  4718.      movzx ecx,ax
  4719.      shr   eax,16
  4720.      movzx edx,bx
  4721.      shr   ebx,16
  4722.         mov     esi,[CURRENT_TASK]
  4723.         shl     esi,8
  4724.         add     eax,[esi+SLOT_BASE+APPDATA.wnd_clientbox.left]
  4725.         add     ebx,[esi+SLOT_BASE+APPDATA.wnd_clientbox.top]
  4726.      add   ecx,eax
  4727.      add   edx,ebx
  4728.      jmp   [drawbar]
  4729.     drectr:
  4730.      ret
  4731.  
  4732. align 4
  4733.  
  4734. syscall_getscreensize:                  ; GetScreenSize
  4735.  
  4736.      movzx eax,word[ScreenWidth]
  4737.      shl   eax,16
  4738.      mov   ax,[ScreenHeight]
  4739.      mov   [esp+36],eax
  4740.      ret
  4741.  
  4742. align 4
  4743.  
  4744. syscall_cdaudio:                        ; CD
  4745.  
  4746.      call  sys_cd_audio
  4747.      mov   [esp+36],eax
  4748.      ret
  4749.  
  4750. align 4
  4751.  
  4752. syscall_delramdiskfile:                 ; DelRamdiskFile
  4753.  
  4754.      mov   edi,[TASK_BASE]
  4755.      add   edi,TASKDATA.mem_start
  4756.      add   eax,[edi]
  4757.      call  filedelete
  4758.      mov   [esp+36],eax
  4759.      ret
  4760.  
  4761. align 4
  4762.  
  4763. syscall_writeramdiskfile:               ; WriteRamdiskFile
  4764.  
  4765.      mov   edi,[TASK_BASE]
  4766.      add   edi,TASKDATA.mem_start
  4767.      add   eax,[edi]
  4768.      add   ebx,[edi]
  4769.      call  filesave
  4770.      mov   [esp+36],eax
  4771.      ret
  4772.  
  4773. align 4
  4774.  
  4775. syscall_getpixel:                       ; GetPixel
  4776.      mov   ecx,[ScreenWidth]
  4777.      inc   ecx
  4778.      xor   edx,edx
  4779.      div   ecx
  4780.      mov   ebx,edx
  4781.      xchg  eax,ebx
  4782.      call  dword [0xe024]
  4783.      mov   [esp+36],ecx
  4784.      ret
  4785.  
  4786. align 4
  4787.  
  4788. syscall_readstring:                     ; ReadString
  4789.  
  4790.      mov   edi,[TASK_BASE]
  4791.      add   edi,TASKDATA.mem_start
  4792.      add   eax,[edi]
  4793.      call  read_string
  4794.      mov   [esp+36],eax
  4795.      ret
  4796.  
  4797. align 4
  4798.  
  4799. syscall_drawline:                       ; DrawLine
  4800.  
  4801.      mov   edi,[TASK_BASE]
  4802.      movzx edx,word[edi-twdw+WDATA.box.left]
  4803.      mov   ebp,edx
  4804.         mov     esi,[CURRENT_TASK]
  4805.         shl     esi,8
  4806.         add     ebp,[esi+SLOT_BASE+APPDATA.wnd_clientbox.left]
  4807.         add     dx,word[esi+SLOT_BASE+APPDATA.wnd_clientbox.left]
  4808.      shl   edx,16
  4809.      add   ebp,edx
  4810.      movzx edx,word[edi-twdw+WDATA.box.top]
  4811.      add   eax,ebp
  4812.      mov   ebp,edx
  4813.         add     ebp,[esi+SLOT_BASE+APPDATA.wnd_clientbox.top]
  4814.         add     dx,word[esi+SLOT_BASE+APPDATA.wnd_clientbox.top]
  4815.      shl   edx,16
  4816.      xor   edi,edi
  4817.      add   edx,ebp
  4818.      add   ebx,edx
  4819.      jmp   [draw_line]
  4820.  
  4821. align 4
  4822.  
  4823. syscall_getirqowner:                    ; GetIrqOwner
  4824.      cmp   eax,16
  4825.      jae   .err
  4826.      shl   eax,2
  4827.      add   eax,irq_owner
  4828.      mov   eax,[eax]
  4829.      mov   [esp+36],eax
  4830.      ret
  4831. .err:
  4832.      or    dword [esp+36], -1
  4833.      ret
  4834.  
  4835. align 4
  4836.  
  4837. syscall_reserveportarea:                ; ReservePortArea and FreePortArea
  4838.  
  4839.      call  r_f_port_area
  4840.      mov   [esp+36],eax
  4841.      ret
  4842.  
  4843. align 4
  4844.  
  4845. syscall_threads:                        ; CreateThreads
  4846.  
  4847.      call  sys_threads
  4848.      mov   [esp+36],eax
  4849.      ret
  4850.  
  4851. align 4
  4852.  
  4853. stack_driver_stat:
  4854.  
  4855.      call  app_stack_handler            ; Stack status
  4856.  
  4857. ;     mov   [check_idle_semaphore],5    ; enable these for zero delay
  4858. ;     call  change_task                 ; between sent packet
  4859.  
  4860.      mov   [esp+36],eax
  4861.      ret
  4862.  
  4863. align 4
  4864.  
  4865. socket:                                 ; Socket interface
  4866.      call  app_socket_handler
  4867.  
  4868. ;     mov   [check_idle_semaphore],5    ; enable these for zero delay
  4869. ;     call  change_task                 ; between sent packet
  4870.  
  4871.      mov   [esp+36],eax
  4872.      mov   [esp+24],ebx
  4873.      ret
  4874.  
  4875. align 4
  4876.  
  4877. user_events:                            ; User event times
  4878.  
  4879.      mov   eax,0x12345678
  4880.      mov   [esp+36],eax
  4881.  
  4882.      ret
  4883.  
  4884. align 4
  4885.  
  4886. read_from_hd:                           ; Read from hd - fn not in use
  4887.  
  4888.      mov   edi,[TASK_BASE]
  4889.      add   edi,TASKDATA.mem_start
  4890.      add   eax,[edi]
  4891.      add   ecx,[edi]
  4892.      add   edx,[edi]
  4893.      call  file_read
  4894.  
  4895.      mov   [esp+36],eax
  4896.      mov   [esp+24],ebx
  4897.  
  4898.      ret
  4899.  
  4900. align 4
  4901. paleholder:
  4902.         ret
  4903.  
  4904. ; --------------- APM ---------------------
  4905. apm_entry    dp    0
  4906. apm_vf        dd    0
  4907. align 4
  4908. sys_apm:
  4909.     cmp    word [apm_vf], 0    ; Check APM BIOS enable
  4910.     jne    @f
  4911.     or    [esp + 56], byte 1    ; error
  4912.     mov    [esp + 36], dword 8    ; 32-bit protected-mode interface not supported
  4913.     ret
  4914.  
  4915. @@:    xchg    eax, ecx
  4916.     xchg    ebx, ecx
  4917.  
  4918.     cmp    al, 3
  4919.     ja    @f
  4920.     and    [esp + 56], byte 0xfe    ; emulate func 0..3 as func 0
  4921.     mov    eax, [apm_vf]
  4922.     mov    [esp + 36], eax
  4923.     shr    eax, 16
  4924.     mov    [esp + 32], eax
  4925.     ret
  4926.  
  4927. @@:    call    pword [apm_entry]    ; call APM BIOS
  4928.     mov    [esp + 8 ], edi
  4929.     mov    [esp + 12], esi
  4930.     mov    [esp + 24], ebx
  4931.     mov    [esp + 28], edx
  4932.     mov    [esp + 32], ecx
  4933.     mov    [esp + 36], eax
  4934.     setc    al
  4935.     and    [esp + 56], byte 0xfe
  4936.     or    [esp + 56], al
  4937.     ret
  4938. ; -----------------------------------------
  4939.  
  4940. align 4
  4941.  
  4942. undefined_syscall:                      ; Undefined system call
  4943.  
  4944.      mov   [esp+36],dword -1
  4945.      ret
  4946.  
  4947.  
  4948. ;clear_busy_flag_at_caller:
  4949.  
  4950. ;      push  edi
  4951.  
  4952. ;      mov   edi,[CURRENT_TASK]    ; restore processes tss pointer in gdt, busyfl?
  4953. ;      imul  edi,8
  4954. ;      mov   [edi+gdts+ tss0 +5], word 01010000b *256 +11101001b
  4955.  
  4956. ;      pop   edi
  4957.  
  4958. ;      ret
  4959.  
  4960.  
  4961. keymap:
  4962.  
  4963.      db   '6',27
  4964.      db   '1234567890-=',8,9
  4965.      db   'qwertyuiop[]',13
  4966.      db   '~asdfghjkl;',39,96,0,'\zxcvbnm,./',0,'45 '
  4967.      db   '@234567890123',180,178,184,'6',176,'7'
  4968.      db   179,'8',181,177,183,185,182
  4969.      db   'AB<D',255,'FGHIJKLMNOPQRSTUVWXYZ'
  4970.      db   'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  4971.      db   'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  4972.      db   'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  4973.  
  4974.  
  4975. keymap_shift:
  4976.  
  4977.      db   '6',27
  4978.      db   '!@#$%^&*()_+',8,9
  4979.      db   'QWERTYUIOP{}',13
  4980.      db   '~ASDFGHJKL:"~',0,'|ZXCVBNM<>?',0,'45 '
  4981.      db   '@234567890123',180,178,184,'6',176,'7'
  4982.      db   179,'8',181,177,183,185,182
  4983.      db   'AB>D',255,'FGHIJKLMNOPQRSTUVWXYZ'
  4984.      db   'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  4985.      db   'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  4986.      db   'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  4987.  
  4988.  
  4989. keymap_alt:
  4990.  
  4991.      db   ' ',27
  4992.      db   ' @ $  {[]}\ ',8,9
  4993.      db   '            ',13
  4994.      db   '             ',0,'           ',0,'4',0,' '
  4995.      db   '             ',180,178,184,'6',176,'7'
  4996.      db   179,'8',181,177,183,185,182
  4997.      db   'ABCD',255,'FGHIJKLMNOPQRSTUVWXYZ'
  4998.      db   'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  4999.      db   'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  5000.      db   'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  5001.  
  5002.  
  5003. ; device irq owners
  5004. uglobal
  5005. irq_owner:       ; process id
  5006.  
  5007.      dd   0x0
  5008.      dd   0x0
  5009.      dd   0x0
  5010.      dd   0x0
  5011.      dd   0x0
  5012.      dd   0x0
  5013.      dd   0x0
  5014.      dd   0x0
  5015.      dd   0x0
  5016.      dd   0x0
  5017.      dd   0x0
  5018.      dd   0x0
  5019.      dd   0x0
  5020.      dd   0x0
  5021.      dd   0x0
  5022.      dd   0x0
  5023. endg
  5024.  
  5025.  
  5026. ; on irq read ports
  5027. uglobal
  5028.   irq00read  dd  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  5029.   irq01read  dd  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  5030.   irq02read  dd  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  5031.   irq03read  dd  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  5032.   irq04read  dd  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  5033.   irq05read  dd  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  5034.   irq06read  dd  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  5035.   irq07read  dd  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  5036.   irq08read  dd  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  5037.   irq09read  dd  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  5038.   irq10read  dd  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  5039.   irq11read  dd  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  5040.   irq12read  dd  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  5041.   irq13read  dd  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  5042.   irq14read  dd  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  5043.   irq15read  dd  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  5044. endg
  5045.  
  5046. ; status
  5047. uglobal
  5048.   hd1_status                  dd 0x0  ; 0 - free : other - pid
  5049.   application_table_status    dd 0x0  ; 0 - free : other - pid
  5050. endg
  5051.  
  5052. ; device addresses
  5053. uglobal
  5054.   mididp     dd 0x0
  5055.   midisp     dd 0x0
  5056.  
  5057.   cdbase     dd 0x0
  5058.   cdid       dd 0x0
  5059.  
  5060.   hdbase              dd   0x0  ; for boot 0x1f0
  5061.   hdid                dd   0x0
  5062.   hdpos               dd   0x0  ; for boot 0x1
  5063.   fat32part           dd   0x0  ; for boot 0x1
  5064.  
  5065.   ;part2_ld            dd   0x0
  5066.  
  5067. ;* start code - Mario79
  5068. mouse_pause         dd   0
  5069. MouseTickCounter    dd   0
  5070. ps2_mouse_detected  db   0
  5071. com1_mouse_detected db   0
  5072. com2_mouse_detected db   0
  5073. ;* end code - Mario79
  5074.  
  5075. wraw_bacground_select db 0
  5076.   lba_read_enabled    dd   0x0  ; 0 = disabled , 1 = enabled
  5077.   pci_access_enabled  dd   0x0  ; 0 = disabled , 1 = enabled
  5078.  
  5079.   sb16       dd 0x0
  5080.  
  5081.   buttontype         dd 0x0
  5082.   windowtypechanged  dd 0x0
  5083.  
  5084. align 4
  5085.   cpu_caps    dd 4 dup(0)
  5086.   pg_data  PG_DATA
  5087.   heap_test   dd ?
  5088.   hd_entries  rd 1     ;unused ? 0xfe10
  5089. endg
  5090.  
  5091. iglobal
  5092.   keyboard   dd 0x1
  5093.   sound_dma  dd 0x1
  5094.   syslang    dd 0x1
  5095. endg
  5096.  
  5097. if __DEBUG__ eq 1
  5098.   include_debug_strings
  5099. end if
  5100.  
  5101. IncludeIGlobals
  5102. endofcode:
  5103. IncludeUGlobals
  5104. uglobals_size = $ - endofcode
  5105. diff16 "end of kernel code",0,$
  5106.  
  5107.