;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; RDOS operating system ; Copyright (C) 1988-2000, Leif Ekblad ; ; This program is free software; you can redistribute it and/or modify ; it under the terms of the GNU General Public License as published by ; the Free Software Foundation; either version 2 of the License, or ; (at your option) any later version. The only exception to this rule ; is for commercial usage in embedded systems. For information on ; usage in commercial embedded systems, contact embedded@rdos.net ; ; This program is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU General Public License for more details. ; ; You should have received a copy of the GNU General Public License ; along with this program; if not, write to the Free Software ; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ; ; The author of this program may be contacted at leif@rdos.net ; ; VIDEO.ASM ; Standard video interface. Hardware independent ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; INCLUDE ..\os\protseg.def INCLUDE ..\driver.def INCLUDE ..\user.def INCLUDE ..\os.def INCLUDE ..\os.inc INCLUDE ..\os\system.def INCLUDE ..\os\system.inc INCLUDE ..\user.inc INCLUDE ..\handle.inc INCLUDE bitmap.inc INCLUDE ..\video.inc INCLUDE ..\apicheck.inc video_mode_entry STRUC mode_link DW ? mode_nr DW ? mode_create DD ?,? mode_x_resol DW ? mode_y_resol DW ? mode_bpp DB ? mode_resv DB ? video_mode_entry ENDS CallVideo MACRO call_proc push ds push ax mov ax,video_local_sel mov ds,ax pop ax mov ds,ds:v_handle call ds:&call_proc pop ds ENDM video_focus_seg STRUC v_handle DW ? video_focus_seg ENDS data SEGMENT byte public 'DATA' v_list DW ? data ENDS .386p code SEGMENT byte public use16 'CODE' assume cs:code extrn init_bitmap:near extrn init_sprite:near ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: RegisterVideoMode ; ; DESCRIPTION: Register a video mode ; ; PARAMETERS: AX Mode ; BL BPP ; CX x-resolution ; DX y-resolution ; ES:EDI Mode constructor ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; register_video_mode_name DB 'Register Video Mode',0 register_video_mode PROC far push ds push es push eax ; push es push ax mov ax,SEG data mov ds,ax mov eax,SIZE video_mode_entry AllocateSmallGlobalMem pop ax mov es:mode_nr,ax mov dword ptr es:mode_create,edi pop ax mov word ptr es:mode_create+4,ax mov es:mode_bpp,bl mov es:mode_x_resol,cx mov es:mode_y_resol,dx ; mov ax,ds:v_list mov es:mode_link,ax mov ds:v_list,es ; pop eax pop es pop ds retf32 register_video_mode ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: GetVideoMode ; ; DESCRIPTION: Get video mode ; ; PARAMETERS: AX bits / pixel ; CX x-resolution ; DX y-resolution ; ; RETURNS: AX mode # or 0 ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; get_video_mode_name DB 'Get Video Mode',0 get_video_mode PROC far push ds push es push bx push si push di ; mov si,cx add si,dx xor di,di xor ah,ah ; mov bx,SEG data mov ds,bx mov bx,ds:v_list get_video_loop: or bx,bx jz get_video_done ; mov es,bx ; mov bl,es:mode_bpp or bl,bl jz get_video_next ; push ax mov ax,cx sub ax,es:mode_x_resol jnc get_video_x_ok ; neg ax get_video_x_ok: mov bx,ax ; mov ax,dx sub ax,es:mode_y_resol jnc get_video_y_ok ; neg ax get_video_y_ok: add bx,ax pop ax ; cmp bx,si ja get_video_next jne get_video_select ; cmp al,ah je get_video_next jb get_video_want_smaller get_video_want_larger: cmp ah,es:mode_bpp jc get_video_select jmp get_video_next get_video_want_smaller: cmp ah,es:mode_bpp jc get_video_next ; cmp al,es:mode_bpp jbe get_video_select jmp get_video_next get_video_select: mov ah,es:mode_bpp mov si,bx mov di,es get_video_next: mov bx,es:mode_link or bx,bx jnz get_video_loop get_video_done: xor ax,ax or di,di jz get_video_leave ; mov es,di mov ax,es:mode_nr get_video_leave: pop di pop si pop bx pop es pop ds retf32 get_video_mode Endp ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: SetVideoMode ; ; DESCRIPTION: Set video mode ; ; PARAMETERS: AX Mode ; ; RETURNS: AX bits / pixel ; BX bitmap handle ; CX x-resolution ; DX y-resolution ; SI line size ; ES:EDI user buffer ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; set_video_mode_name DB 'Set Video Mode',0 set_video_mode PROC far push ds ; mov bx,SEG data mov ds,bx mov bx,ds:v_list set_video_mode_loop: or bx,bx stc jz set_video_mode_done ; mov es,bx cmp ax,es:mode_nr jnz set_video_mode_next ; call fword ptr es:mode_create jc set_video_mode_done ; mov bx,video_local_sel mov ds,bx mov bx,ds:v_handle or bx,bx jz set_mode_no_descruct ; push ds mov ds,bx call ds:destruct_proc pop ds set_mode_no_descruct: mov ds:v_handle,ax GetFocusThread or ax,ax jz set_video_mode_ok ; push es push edx mov es,ax mov edx,es:p_cr3 GetThread mov es,ax cmp edx,es:p_cr3 pop edx pop es jne set_video_mode_ok ; push ds mov ds,ds:v_handle call ds:switch_to_proc pop ds jmp set_video_mode_ok set_video_mode_next: mov bx,es:mode_link jmp set_video_mode_loop set_video_mode_ok: mov ds,ds:v_handle mov bx,ds:v_bitmap mov cx,ds:v_width mov dx,ds:v_height mov si,ds:v_row_size mov edi,ds:v_app_base mov ax,system_data_sel mov es,ax sub edi,es:flat_base mov ax,flat_data_sel mov es,ax movzx ax,ds:v_bpp SetMouseLimit clc set_video_mode_done: pop ds retf32 set_video_mode ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: InvertMouse ; ; DESCRIPTION: Invert colors for mouse-pointer ; ; PARAMETERS: CX COL (x) ; DX ROW (y) ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; invert_mouse_name DB 'InvertMouse',0 invert_mouse PROC far push ds push ax mov ax,video_local_sel mov ds,ax pop ax mov ds,ds:v_handle call ds:read_char_proc xchg bl,bh call ds:write_char_proc pop ds retf32 invert_mouse ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: SetCursorPosition ; ; DESCRIPTION: Set cursor position ; ; PARAMETERS: CX COL (x) ; DX ROW (y) ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; set_cursor_pos_name DB 'Set Cursor Position',0 set_cursor_position PROC far CallVideo set_cursor_position_proc push ds push ax GetThread mov ds,ax mov ds:p_row,dx mov ds:p_col,cx pop ax pop ds retf32 set_cursor_position ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: GetCursorPosition ; ; DESCRIPTION: Get cursor position ; ; RETURNS: CX COL (x) ; DX Row (y) ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; get_cursor_pos_name DB 'Get Cursor Position',0 get_cursor_position PROC far push ds push ax ; GetThread mov ds,ax mov dx,ds:p_row mov cx,ds:p_col ; pop ax pop ds retf32 get_cursor_position ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: SetForeColor ; ; DESCRIPTION: Set text mode fore color ; ; PARAMETERS: AL Color ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; set_forecolor_name DB 'Set Fore Color',0 set_forecolor PROC far push ds push bx ; push ax GetThread mov ds,ax pop ax mov ds:p_forecolor,al ; pop bx pop ds retf32 set_forecolor ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: SetBackColor ; ; DESCRIPTION: Set text mode back color ; ; PARAMETERS: AL Color ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; set_backcolor_name DB 'Set Back Color',0 set_backcolor PROC far push ds push bx ; push ax GetThread mov ds,ax pop ax mov ds:p_backcolor,al ; pop bx pop ds retf32 set_backcolor ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: UpdatePos ; ; DESCRIPTION: Update cursor position ; ; PARAMETERS: AL Char ; BL Fore color ; BH Back color ; CX Column ; DX Row ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; UpdatePos Proc near cmp cx,-1 jne update_not_row_wrap ; mov cx,79 update_not_row_wrap: cmp cx,79 jbe update_video_same_row ; xor cx,cx inc dx update_video_same_row: cmp dx,25 jc update_video_end ; dec dx ; pusha mov ax,1 xor cx,cx xor dx,dx mov si,79 mov di,24 CallVideo scroll_up_proc popa update_video_end: ret UpdatePos ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: WriteNormal ; ; DESCRIPTION: Write normal char ; ; PARAMETERS: AL Char ; BL Fore color ; BH Back color ; CX Column ; DX Row ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WriteNormal PROC near CallVideo write_char_proc inc cx ret WriteNormal ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: WriteSkip ; ; DESCRIPTION: Write NUL char ; ; PARAMETERS: AL Char ; BL Fore color ; BH Back color ; CX Column ; DX Row ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WriteSkip PROC near push ax mov al,' ' CallVideo write_char_proc inc cx pop ax ret WriteSkip ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: WriteTab ; ; DESCRIPTION: Write TAB char ; ; PARAMETERS: AL Char ; BL Fore color ; BH Back color ; CX Column ; DX Row ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WriteTab PROC near push ax mov al,' ' write_tab_more: CallVideo write_char_proc inc cx test cx,3 jnz write_tab_more ; pop ax ret WriteTab ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: WriteDel ; ; DESCRIPTION: Write DEL char ; ; PARAMETERS: AL Char ; BL Fore color ; BH Back color ; CX Column ; DX Row ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WriteDel PROC near dec cx ret WriteDel ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: WriteLf ; ; DESCRIPTION: Write LF char ; ; PARAMETERS: AL Char ; BL Fore color ; BH Back color ; CX Column ; DX Row ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WriteLf PROC near inc dx ret WriteLf ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: WriteCr ; ; DESCRIPTION: Write CR char ; ; PARAMETERS: AL Char ; BL Fore color ; BH Back color ; CX Column ; DX Row ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WriteCr PROC near xor cx,cx ret WriteCr ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: WriteOne ; ; DESCRIPTION: Write one character to screen ; ; PARAMETERS: AL Char ; BL Fore color ; BH Back color ; CX Column ; DX Row ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; write_tab: wct00 DW OFFSET WriteSkip wct01 DW OFFSET WriteNormal wct02 DW OFFSET WriteNormal wct03 DW OFFSET WriteNormal wct04 DW OFFSET WriteNormal wct05 DW OFFSET WriteNormal wct06 DW OFFSET WriteNormal wct07 DW OFFSET WriteNormal wct08 DW OFFSET WriteDel wct09 DW OFFSET WriteTab wct0A DW OFFSET WriteLf wct0B DW OFFSET WriteNormal wct0C DW OFFSET WriteNormal wct0D DW OFFSET WriteCr wct0E DW OFFSET WriteNormal wct0F DW OFFSET WriteNormal WriteOne PROC near push si movzx si,al cmp si,0Fh jc write_char_doit ; mov si,0Fh write_char_doit: add si,si call word ptr cs:[si].write_tab call UpdatePos write_ansi_done: pop si ret WriteOne ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: GetCharAttrib ; ; DESCRIPTION: Get char & attribute ; ; PARAMETERS: AL Character ; BL Back color ; BH Fore color ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; get_char_attrib_name DB 'Get Character & Attribute',0 get_char_attrib PROC far push ds push cx push dx ; HideMouse push ax GetThread mov ds,ax pop ax mov dx,ds:p_row mov cx,ds:p_col CallVideo read_char_proc ShowMouse ; pop dx pop cx pop ds retf32 get_char_attrib ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: WriteChar ; ; DESCRIPTION: Write one character to screen ; ; PARAMETERS: AL Char ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; write_char_name DB 'Write Char',0 write_char PROC far push ds push bx push cx push dx ; HideMouse push ax GetThread mov ds,ax pop ax mov bl,ds:p_forecolor mov bh,ds:p_backcolor mov dx,ds:p_row mov cx,ds:p_col call WriteOne mov ds:p_row,dx mov ds:p_col,cx CallVideo set_cursor_position_proc ShowMouse ; pop dx pop cx pop bx pop ds retf32 write_char ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: WriteAsciiz ; ; DESCRIPTION: Write NULL terminated string ; ; PARAMETERS: ES:(E)DI Null terminated string ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; write_asciiz_name DB 'Write Asciiz String',0 write_asciiz16 PROC far push ds push ax push bx push cx push dx push di ; HideMouse push ax GetThread mov ds,ax pop ax mov bl,ds:p_forecolor mov bh,ds:p_backcolor mov dx,ds:p_row mov cx,ds:p_col write_asciiz_loop16: mov al,es:[di] inc di or al,al jz write_asciiz_done16 ; call WriteOne jmp write_asciiz_loop16 write_asciiz_done16: mov ds:p_row,dx mov ds:p_col,cx CallVideo set_cursor_position_proc ShowMouse ; pop di pop dx pop cx pop bx pop ax pop ds retf32 write_asciiz16 ENDP write_asciiz32 PROC far push ds push ax push bx push cx push dx push edi ; HideMouse push ax GetThread mov ds,ax pop ax mov bl,ds:p_forecolor mov bh,ds:p_backcolor mov dx,ds:p_row mov cx,ds:p_col write_asciiz_loop32: mov al,es:[edi] inc edi or al,al jz write_asciiz_done32 ; call WriteOne jmp write_asciiz_loop32 write_asciiz_done32: mov ds:p_row,dx mov ds:p_col,cx CallVideo set_cursor_position_proc ShowMouse ; pop edi pop dx pop cx pop bx pop ax pop ds retf32 write_asciiz32 ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: WriteDosString ; ; DESCRIPTION: Write '$'-terminated string ; ; PARAMETERS: ES:EDI Adress to string ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; write_dos_string_name DB 'Write Dos String',0 write_dos_string PROC far push ds push ax push bx push cx push dx push edi ; HideMouse push ax GetThread mov ds,ax pop ax mov bl,ds:p_forecolor mov bh,ds:p_backcolor mov dx,ds:p_row mov cx,ds:p_col write_dos_string_loop: mov al,es:[edi] inc edi cmp al,'$' jz write_dos_string_done ; call WriteOne jmp write_dos_string_loop write_dos_string_done: mov ds:p_row,dx mov ds:p_col,cx CallVideo set_cursor_position_proc ShowMouse ; pop edi pop dx pop cx pop bx pop ax pop ds retf32 write_dos_string ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: WriteSizeString ; ; DESCRIPTION: Write a number of characters ; ; PARAMETERS: ES:(E)DI String ; (E)CX Number of characters ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; write_size_string_name DB 'Write Size String',0 write_size_string16 PROC far push ds pusha ; HideMouse or cx,cx jz write_size_string_done16 ; mov si,cx GetThread mov ds,ax mov bl,ds:p_forecolor mov bh,ds:p_backcolor mov dx,ds:p_row mov cx,ds:p_col ; or si,si je write_size_string_done16 write_size_string_loop16: mov al,es:[di] inc di call WriteOne sub si,1 jnz write_size_string_loop16 write_size_string_done16: mov ds:p_row,dx mov ds:p_col,cx CallVideo set_cursor_position_proc ShowMouse ; popa pop ds retf32 write_size_string16 ENDP write_size_string32 PROC far push ds pushad ; HideMouse or ecx,ecx jz write_size_string_done32 ; mov esi,ecx GetThread mov ds,ax mov bl,ds:p_forecolor mov bh,ds:p_backcolor mov dx,ds:p_row mov cx,ds:p_col ; or esi,esi je write_size_string_done32 write_size_string_loop32: mov al,es:[edi] inc edi call WriteOne sub esi,1 jnz write_size_string_loop32 write_size_string_done32: mov ds:p_row,dx mov ds:p_col,cx CallVideo set_cursor_position_proc ShowMouse ; popad pop ds retf32 write_size_string32 ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: WriteAttributeString ; ; DESCRIPTION: Write a number of characters & attributes ; ; PARAMETERS: AX Col ; DX Row ; ES:(E)DI String ; (E)CX Number of characters ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; write_attr_string_name DB 'Write Attribute String',0 write_attr_string16 PROC far push ds pusha ; HideMouse or cx,cx jz write_attr_string_done16 ; mov si,cx mov cx,ax write_attr_string_loop16: mov al,es:[di] mov bl,es:[di+1] mov bh,bl shr bh,4 and bx,0F0Fh add di,2 CallVideo write_char_proc inc cx sub si,1 jnz write_attr_string_loop16 write_attr_string_done16: ShowMouse ; popa pop ds retf32 write_attr_string16 ENDP write_attr_string32 PROC far push ds pushad ; HideMouse or ecx,ecx jz write_attr_string_done32 ; mov esi,ecx mov cx,ax write_attr_string_loop32: mov al,es:[edi] mov bl,es:[edi+1] mov bh,bl shr bh,4 and bx,0F0Fh add edi,2 CallVideo write_char_proc inc cx sub esi,1 jnz write_attr_string_loop32 write_attr_string_done32: ShowMouse ; popad pop ds retf32 write_attr_string32 ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: SetClipRect ; ; DESCRIPTION: Set clipping rectangle ; ; PARAMETERS: BX Bitmap handle ; CX X min ; DX Y min ; SI X max ; DI Y max ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; set_clip_rect_name DB 'Set Clip Rect',0 set_clip_rect PROC far ApiSaveEax ApiSaveEcx ApiSaveEdx ApiSaveEsi ApiSaveEdi ; push ds push es push ebx push cx push dx push si push di ; push ax mov ax,BITMAP_HANDLE DerefHandle pop ax jc set_clip_rect_done ; mov es,[ebx].bm_sel ; test ch,80h jz set_clip_xmin_pos ; xor cx,cx set_clip_xmin_pos: test dh,80h jz set_clip_ymin_pos ; xor dx,dx set_clip_ymin_pos: test si,8000h jz set_clip_xmax_pos ; xor si,si set_clip_xmax_pos: test di,8000h jz set_clip_ymax_pos ; xor di,di set_clip_ymax_pos: cmp cx,si jc set_clip_x_ok ; xchg cx,si set_clip_x_ok: cmp dx,di jc set_clip_y_ok ; xchg dx,di set_clip_y_ok: cmp cx,es:v_width jc set_clip_xmin_noov ; mov cx,es:v_width set_clip_xmin_noov: cmp dx,es:v_height jc set_clip_ymin_noov ; mov dx,es:v_height set_clip_ymin_noov: cmp si,es:v_width jc set_clip_xmax_noov ; mov si,es:v_width set_clip_xmax_noov: cmp di,es:v_height jc set_clip_ymax_noov ; mov di,es:v_height set_clip_ymax_noov: mov [ebx].bm_x_min,cx mov [ebx].bm_y_min,dx mov [ebx].bm_x_max,si mov [ebx].bm_y_max,di set_clip_rect_done: pop di pop si pop dx pop cx pop ebx pop es pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx ApiCheckEax retf32 set_clip_rect ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: ClearClipRect ; ; DESCRIPTION: Clear clipping rectangle ; ; PARAMETERS: BX Bitmap handle ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; clear_clip_rect_name DB 'Clear Clip Rect',0 clear_clip_rect PROC far ApiSaveEax ApiSaveEcx ApiSaveEdx ApiSaveEsi ApiSaveEdi push ds push es push ax push ebx ; mov ax,BITMAP_HANDLE DerefHandle jc clear_clip_rect_done ; mov es,[ebx].bm_sel mov [ebx].bm_x_min,0 mov [ebx].bm_y_min,0 mov ax,es:v_width dec ax mov [ebx].bm_x_max,ax mov ax,es:v_height dec ax mov [ebx].bm_y_max,ax clc clear_clip_rect_done: pop ebx pop ax pop es pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx ApiCheckEax retf32 clear_clip_rect ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: SetDrawColor ; ; DESCRIPTION: Set draw color ; ; PARAMETERS: EAX RGB color ; BX Bitmap handle ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; set_draw_color_name DB 'Set Draw Color',0 set_draw_color PROC far ApiSaveEax ApiSaveEcx ApiSaveEdx ApiSaveEsi ApiSaveEdi push ds push eax push ebx ; push ax mov ax,BITMAP_HANDLE DerefHandle pop ax jc set_draw_color_done ; push ds mov ds,[ebx].bm_sel call ds:translate_color_proc pop ds mov [ebx].bm_color,eax set_draw_color_done: pop ebx pop eax pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx ApiCheckEax retf32 set_draw_color ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: SetLgop ; ; DESCRIPTION: Set LGOP ; ; PARAMETERS: AX LGOP ; BX Bitmap handle ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; set_lgop_name DB 'Set LGOP',0 set_lgop PROC far ApiSaveEax ApiSaveEcx ApiSaveEdx ApiSaveEsi ApiSaveEdi cmp ax,13 jbe set_lgop_ok mov ax,1 set_lgop_ok: push ds push ebx ; push ax mov ax,BITMAP_HANDLE DerefHandle pop ax jc set_lgop_done ; mov [ebx].bm_lgop,ax set_lgop_done: pop ebx pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx ApiCheckEax retf32 set_lgop ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: SetHollowStyle ; ; DESCRIPTION: Set hollow style ; ; PARAMETERS: BX Bitmap handle ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; set_hollow_style_name DB 'Set Hollow Style',0 set_hollow_style PROC far ApiSaveEax ApiSaveEcx ApiSaveEdx ApiSaveEsi ApiSaveEdi push ds push ebx ; push ax mov ax,BITMAP_HANDLE DerefHandle pop ax jc set_hollow_done ; mov [ebx].bm_style,STYLE_HOLLOW set_hollow_done: pop ebx pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx ApiCheckEax retf32 set_hollow_style ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: SetFilledStyle ; ; DESCRIPTION: Set filled style ; ; PARAMETERS: BX Bitmap handle ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; set_filled_style_name DB 'Set Filled Style',0 set_filled_style PROC far ApiSaveEax ApiSaveEcx ApiSaveEdx ApiSaveEsi ApiSaveEdi push ds push ebx ; push ax mov ax,BITMAP_HANDLE DerefHandle pop ax jc set_filled_done ; mov [ebx].bm_style,STYLE_FILLED set_filled_done: pop ebx pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx ApiCheckEax retf32 set_filled_style ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: SetFont ; ; DESCRIPTION: Set font ; ; PARAMETERS: BX Bitmap handle ; AX Font ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; set_font_name DB 'Set Font',0 set_font PROC far ApiSaveEax ApiSaveEcx ApiSaveEdx ApiSaveEsi ApiSaveEdi push ds push ebx ; push ax mov ax,BITMAP_HANDLE DerefHandle pop ax jc set_font_done ; mov [ebx].bm_font,ax set_font_done: pop ebx pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx ApiCheckEax retf32 set_font ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: GetPixel ; ; DESCRIPTION: Get pixel ; ; PARAMETERS: BX Bitmap handle ; CX x ; DX y ; ; RETURNS: EAX RGB color ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; get_pixel_name DB 'Get Pixel',0 get_pixel PROC far ApiSaveEax ApiSaveEcx ApiSaveEdx ApiSaveEsi ApiSaveEdi push ds push ax push ebx ; mov ax,BITMAP_HANDLE DerefHandle jc get_pixel_fail ; mov ds,[ebx].bm_sel pop bx pop ax EnterSection ds:v_section call ds:get_pixel_proc LeaveSection ds:v_section pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx ApiCheckEax retf32 get_pixel_fail: pop ebx pop ax pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx ApiCheckEax retf32 get_pixel ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: SetPixel ; ; DESCRIPTION: Set pixel ; ; PARAMETERS: BX Bitmap handle ; CX x ; DX y ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; set_pixel_name DB 'Set Pixel',0 set_pixel PROC far ApiSaveEcx ApiSaveEdx ApiSaveEsi ApiSaveEdi push ds push eax push ebx ; mov ax,BITMAP_HANDLE DerefHandle jc set_pixel_fail ; mov eax,[bx].bm_color push [ebx].bm_lgop push [ebx].bm_x_min push [ebx].bm_y_min push [ebx].bm_x_max push [ebx].bm_y_max mov ds,[ebx].bm_sel EnterSection ds:v_section pop ds:v_y_max pop ds:v_x_max pop ds:v_y_min pop ds:v_x_min pop ds:v_lgop mov ds:v_color,eax pop ebx pop eax call ds:set_pixel_proc LeaveSection ds:v_section pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx ApiCheckEax retf32 set_pixel_fail: pop ebx pop eax pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx ApiCheckEax retf32 set_pixel ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: Blit ; ; DESCRIPTION: Blit ; ; PARAMETERS: AX Source bitmap handle ; BX Dest bitmap handle ; CX Width ; DX Height ; ESI Source x + y << 16 ; EDI Dest x + y << 16 ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; blit_name DB 'Blit',0 blit_src_y EQU -2 blit_src_x EQU -4 blit_dest_y EQU -6 blit_dest_x EQU -8 blit_width EQU -10 blit_height EQU -12 blit_src_sel EQU -14 blit_dest_sel EQU -16 blit_pr PROC far push bp mov bp,sp sub sp,16 push ds push es pushad ; mov [bp].blit_src_x,esi mov [bp].blit_dest_x,edi ; or cx,cx jz blit_done ; or dx,dx jz blit_done ; mov [bp].blit_width,cx mov [bp].blit_height,dx ; mov cx,bx push ax mov bx,ax mov ax,BITMAP_HANDLE DerefHandle pop ax jc blit_failed ; mov dx,[ebx].bm_sel mov [bp].blit_src_sel,dx ; push ax mov bx,cx mov ax,BITMAP_HANDLE DerefHandle pop ax jc blit_failed ; mov dx,[ebx].bm_sel mov [bp].blit_dest_sel,dx ; push [ebx].bm_lgop push [ebx].bm_color push [ebx].bm_x_min push [ebx].bm_y_min push [ebx].bm_x_max push [ebx].bm_y_max ; mov ax,[bp].blit_src_sel cmp ax,[bp].blit_dest_sel je blit_same_bitmap ; jae blit_take_dest_first blit_take_src_first: mov ds,[bp].blit_src_sel EnterSection ds:v_section ; mov ds,[bp].blit_dest_sel EnterSection ds:v_section pop ds:v_y_max pop ds:v_x_max pop ds:v_y_min pop ds:v_x_min pop ds:v_color pop ds:v_lgop jmp blit_entered blit_take_dest_first: mov ds,[bp].blit_dest_sel EnterSection ds:v_section pop ds:v_y_max pop ds:v_x_max pop ds:v_y_min pop ds:v_x_min pop ds:v_color pop ds:v_lgop ; mov ds,[bp].blit_src_sel EnterSection ds:v_section blit_entered: mov ds,[bp].blit_src_sel mov al,ds:v_bpp cmp al,1 je blit_check1 ; mov ds,[bp].blit_dest_sel cmp al,ds:v_bpp je blit_same_bpp jmp blit_diff_bpp blit_check1: mov ds,[bp].blit_dest_sel cmp al,ds:v_bpp jne blit1 blit_diff_bpp: movzx eax,word ptr [bp].blit_width shl eax,2 AllocateGlobalMem blit_diff_loop: mov ds,[bp].blit_src_sel mov ax,[bp].blit_width mov cx,[bp].blit_src_x mov dx,[bp].blit_src_y cmp dx,0 jl blit_diff_next ; cmp dx,ds:v_height jge blit_diff_next ; mov di,cx add di,ax cmp di,ds:v_width jle blit_diff_get ; mov ax,ds:v_width sub ax,cx blit_diff_get: xor edi,edi call ds:get_rgb_row_proc ; mov ds,[bp].blit_dest_sel mov ax,[bp].blit_width mov cx,[bp].blit_dest_x mov dx,[bp].blit_dest_y xor edi,edi call ds:set_rgb_row_proc blit_diff_next: inc word ptr [bp].blit_src_y inc word ptr [bp].blit_dest_y sub word ptr [bp].blit_height,1 jnz blit_diff_loop ; FreeMem mov ds,[bp].blit_dest_sel LeaveSection ds:v_section mov ds,[bp].blit_src_sel LeaveSection ds:v_section clc jmp blit_done blit_same_bpp: mov ds,[bp].blit_src_sel mov cx,[bp].blit_src_x mov dx,[bp].blit_src_y call ds:get_line_proc ; mov ds,[bp].blit_dest_sel mov ax,[bp].blit_width mov cx,[bp].blit_dest_x mov dx,[bp].blit_dest_y call ds:set_native_row_proc ; inc word ptr [bp].blit_src_y inc word ptr [bp].blit_dest_y sub word ptr [bp].blit_height,1 jnz blit_same_bpp ; mov ds,[bp].blit_dest_sel LeaveSection ds:v_section mov ds,[bp].blit_src_sel LeaveSection ds:v_section clc jmp blit_done blit_same_bitmap: mov ds,[bp].blit_src_sel EnterSection ds:v_section pop ds:v_y_max pop ds:v_x_max pop ds:v_y_min pop ds:v_x_min pop ds:v_color pop ds:v_lgop ; mov dx,[bp].blit_src_y cmp dx,[bp].blit_dest_y je blit_same_line ja blit_forward blit_reverse: mov ax,[bp].blit_height dec ax add [bp].blit_src_y,ax add [bp].blit_dest_y,ax blit_reverse_loop: mov cx,[bp].blit_src_x mov dx,[bp].blit_src_y call ds:get_line_proc ; mov ax,[bp].blit_width mov cx,[bp].blit_dest_x mov dx,[bp].blit_dest_y call ds:set_native_row_proc ; dec word ptr [bp].blit_src_y dec word ptr [bp].blit_dest_y sub word ptr [bp].blit_height,1 jnz blit_reverse_loop ; mov ds,[bp].blit_src_sel LeaveSection ds:v_section clc jmp blit_done blit_forward: mov cx,[bp].blit_src_x mov dx,[bp].blit_src_y call ds:get_line_proc ; mov ax,[bp].blit_width mov cx,[bp].blit_dest_x mov dx,[bp].blit_dest_y call ds:set_native_row_proc ; inc word ptr [bp].blit_src_y inc word ptr [bp].blit_dest_y sub word ptr [bp].blit_height,1 jnz blit_forward ; mov ds,[bp].blit_src_sel LeaveSection ds:v_section clc jmp blit_done blit_same_line: movzx eax,word ptr [bp].blit_width shl eax,2 AllocateGlobalMem blit_same_line_loop: mov ax,[bp].blit_width mov cx,[bp].blit_src_x mov dx,[bp].blit_src_y xor edi,edi call ds:get_native_row_proc ; mov ax,[bp].blit_width mov cx,[bp].blit_dest_x mov dx,[bp].blit_dest_y xor edi,edi call ds:set_native_row_proc ; inc word ptr [bp].blit_src_y inc word ptr [bp].blit_dest_y sub word ptr [bp].blit_height,1 jnz blit_same_line_loop ; FreeMem mov ds,[bp].blit_src_sel LeaveSection ds:v_section clc jmp blit_done blit1: mov ds,[bp].blit_src_sel mov ax,flat_sel mov es,ax mov edi,ds:v_app_base mov ax,ds:v_row_size mov ecx,[bp].blit_src_x mov edx,[bp].blit_dest_x mov si,[bp].blit_width mov ds,[bp].blit_dest_sel mov ebx,ds:v_color blit1_line_loop: call ds:draw_mask_line_proc add ecx,10000h add edx,10000h sub word ptr [bp].blit_height,1 jnz blit1_line_loop ; mov ds,[bp].blit_dest_sel LeaveSection ds:v_section mov ds,[bp].blit_src_sel LeaveSection ds:v_section clc jmp blit_done blit_failed: stc blit_done: popad pop es pop ds add sp,16 pop bp retf32 blit_pr ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: DrawMask ; ; DESCRIPTION: Draw a mask line ; ; PARAMETERS: AX row size ; BX Bitmap handle ; ECX source x + y << 16 ; EDX dest x + y << 16 ; ESI width + height << 16 ; ES:EDI 1-bit mask ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; draw_mask_name DB 'Draw Mask',0 draw_mask PROC far push ecx push edx push esi push edi ; push ds push eax push ebx ; mov ax,BITMAP_HANDLE DerefHandle jc draw_mask_fail ; mov eax,[ebx].bm_color push [ebx].bm_lgop push [ebx].bm_x_min push [ebx].bm_y_min push [ebx].bm_x_max push [ebx].bm_y_max mov ds,[ebx].bm_sel EnterSection ds:v_section pop ds:v_y_max pop ds:v_x_max pop ds:v_y_min pop ds:v_x_min pop ds:v_lgop mov ds:v_color,eax pop ebx pop eax movzx eax,ax draw_mask_loop: ror esi,16 or si,si jz draw_mask_leave ; ror esi,16 call ds:draw_mask_line_proc add ecx,10000h add edx,10000h sub esi,10000h jmp draw_mask_loop draw_mask_leave: LeaveSection ds:v_section pop ds jmp draw_mask_done draw_mask_fail: pop ebx pop eax pop ds draw_mask_done: pop edi pop esi pop edx pop ecx retf32 draw_mask ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: DrawString ; ; DESCRIPTION: Draw a string ; ; PARAMETERS: BX Bitmap handle ; CX x ; DX y ; ES:EDI string ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; draw_string_name DB 'Draw String',0 draw_string16 PROC far push edi movzx edi,di ; push ds push eax push ebx ; mov ax,BITMAP_HANDLE DerefHandle jc draw_string16_fail ; mov eax,[ebx].bm_color push [ebx].bm_lgop push [ebx].bm_font push [ebx].bm_x_min push [ebx].bm_y_min push [ebx].bm_x_max push [ebx].bm_y_max mov ds,[ebx].bm_sel EnterSection ds:v_section pop ds:v_y_max pop ds:v_x_max pop ds:v_y_min pop ds:v_x_min pop ds:v_font pop ds:v_lgop mov ds:v_color,eax pop ebx pop eax call ds:draw_string_proc LeaveSection ds:v_section pop ds jmp draw_string16_done draw_string16_fail: pop ebx pop eax pop ds draw_string16_done: pop edi retf32 draw_string16 ENDP draw_string32 PROC far ApiSaveEcx ApiSaveEdx ApiSaveEsi ApiSaveEdi push ds push eax push ebx ; mov ax,BITMAP_HANDLE DerefHandle jc draw_string32_fail ; mov eax,[bx].bm_color push [ebx].bm_lgop push [ebx].bm_font push [ebx].bm_x_min push [ebx].bm_y_min push [ebx].bm_x_max push [ebx].bm_y_max mov ds,[ebx].bm_sel EnterSection ds:v_section pop ds:v_y_max pop ds:v_x_max pop ds:v_y_min pop ds:v_x_min pop ds:v_font pop ds:v_lgop mov ds:v_color,eax pop ebx pop eax call ds:draw_string_proc LeaveSection ds:v_section pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx retf32 draw_string32_fail: pop ebx pop eax pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx retf32 draw_string32 ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: DrawLine ; ; DESCRIPTION: Draw a line ; ; PARAMETERS: BX Bitmap handle ; CX x1 ; DX y1 ; SI x2 ; DI y2 ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; draw_line_name DB 'Draw Line',0 draw_line PROC far ApiSaveEcx ApiSaveEdx ApiSaveEsi ApiSaveEdi push ds push eax push ebx ; mov ax,BITMAP_HANDLE DerefHandle jc draw_line_fail ; mov eax,[bx].bm_color push [ebx].bm_lgop push [ebx].bm_x_min push [ebx].bm_y_min push [ebx].bm_x_max push [ebx].bm_y_max mov ds,[ebx].bm_sel EnterSection ds:v_section pop ds:v_y_max pop ds:v_x_max pop ds:v_y_min pop ds:v_x_min pop ds:v_lgop mov ds:v_color,eax pop ebx pop eax call ds:draw_line_proc LeaveSection ds:v_section pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx retf32 draw_line_fail: pop ebx pop eax pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx retf32 draw_line ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: DrawRect ; ; DESCRIPTION: Draw a rectangle ; ; PARAMETERS: BX Bitmap handle ; CX x ; DX y ; SI w ; DI b ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; draw_rect_name DB 'Draw Rect',0 draw_rect PROC far ApiSaveEax ApiSaveEcx ApiSaveEdx ApiSaveEsi ApiSaveEdi push ds push ax push ebx ; mov ax,BITMAP_HANDLE DerefHandle jc draw_rect_fail ; push [ebx].bm_color push [ebx].bm_lgop push [ebx].bm_x_min push [ebx].bm_y_min push [ebx].bm_x_max push [ebx].bm_y_max mov al,[ebx].bm_style mov ds,[ebx].bm_sel EnterSection ds:v_section mov ds:v_style,al pop ds:v_y_max pop ds:v_x_max pop ds:v_y_min pop ds:v_x_min pop ds:v_lgop pop ds:v_color pop ebx pop ax call ds:draw_rect_proc LeaveSection ds:v_section pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx ApiCheckEax retf32 draw_rect_fail: pop ebx pop ax pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx ApiCheckEax retf32 draw_rect ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: DrawEllipse ; ; DESCRIPTION: Draw a ellipse ; ; PARAMETERS: BX Bitmap handle ; CX x ; DX y ; SI w ; DI b ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; draw_ellipse_name DB 'Draw Ellipse',0 draw_ellipse PROC far ApiSaveEax ApiSaveEcx ApiSaveEdx ApiSaveEsi ApiSaveEdi push ds push ax push ebx ; mov ax,BITMAP_HANDLE DerefHandle jc draw_ellipse_fail ; push [ebx].bm_color push [ebx].bm_lgop push [ebx].bm_x_min push [ebx].bm_y_min push [ebx].bm_x_max push [ebx].bm_y_max mov al,[ebx].bm_style mov ds,[ebx].bm_sel EnterSection ds:v_section mov ds:v_style,al pop ds:v_y_max pop ds:v_x_max pop ds:v_y_min pop ds:v_x_min pop ds:v_lgop pop ds:v_color pop ebx pop ax call ds:draw_ellipse_proc LeaveSection ds:v_section pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx ApiCheckEax retf32 draw_ellipse_fail: pop ebx pop ax pop ds ApiCheckEdi ApiCheckEsi ApiCheckEdx ApiCheckEcx ApiCheckEax retf32 draw_ellipse ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: SetCursorPosition ; ; DESCRIPTION: Set cursor position ; ; PARAMETERS: DH ROW ; DL COL ; BH PAGE NUMBER ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; set_cursor_pos PROC far push cx push dx movzx cx,dl movzx dx,dh CallVideo set_cursor_position_proc push ds push ax GetThread mov ds,ax mov ds:p_row,dx mov ds:p_col,cx pop ax pop ds pop dx pop cx retf32 set_cursor_pos ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: ReadCursorPosition ; ; DESCRIPTION: Read cursor position ; ; PARAMETERS: DH ROW ; DL COL ; BH PAGE NUMBER ; CH START LINE ; CL END LINE ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; read_cursor_pos PROC far push ax GetThread mov ds,ax pop ax mov dh,byte ptr ds:p_row mov dl,byte ptr ds:p_col xor bh,bh mov cl,1 mov ch,8 retf32 read_cursor_pos ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: ReadLightPen ; ; DESCRIPTION: Read light pen ; ; PARAMETERS: ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; read_light_pen PROC far xor ah,ah retf32 read_light_pen ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: READ_VIDEO_ATTRIB ; ; DESCRIPTION: Read video attribute ; ; PARAMETERS: BH PAGE NUMBER ; AL ASCCI CODE ; AH ATTRIBUTE ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; read_video_attrib PROC far push bx push cx push dx HideMouse GetThread mov ds,ax mov dx,ds:p_row mov cx,ds:p_col CallVideo read_char_proc mov ah,bh shl ah,4 or ah,bl ShowMouse pop dx pop cx pop bx retf32 read_video_attrib ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: WRITE_CH_ATTR ; ; DESCRIPTION: Write char + attribute ; ; PARAMETERS: BH PAGE NUMBER ; AL ASCCI CODE ; BL ATTRIBUTE ; CX NUMBER OF COPIES ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; write_ch_attr PROC far push ds pusha ; HideMouse mov si,cx push ax GetThread mov ds,ax pop ax mov dx,ds:p_row mov cx,ds:p_col mov bx,[bp].vm_ebx mov bh,bl shr bh,4 and bl,0Fh ; or si,si jz write_ch_attr_done write_ch_attr_loop: CallVideo write_char_proc inc cx call UpdatePos sub si,1 jnz write_ch_attr_loop write_ch_attr_done: mov ds:p_row,dx mov ds:p_col,cx CallVideo set_cursor_position_proc ShowMouse ; popa pop ds retf32 write_ch_attr ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: WRITE_CH ; ; DESCRIPTION: Write char ; ; PARAMETERS: BH PAGE NUMBER ; AL ASCCI CODE ; CX NUMBER OF COPIES ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; write_ch PROC far push ds pusha ; HideMouse mov si,cx push ax GetThread mov ds,ax pop ax mov bl,ds:p_forecolor mov bh,ds:p_backcolor mov dx,ds:p_row mov cx,ds:p_col or si,si jz write_ch_done write_ch_loop: CallVideo write_char_proc inc cx call UpdatePos sub si,1 jnz write_ch_loop write_ch_done: mov ds:p_row,dx mov ds:p_col,cx CallVideo set_cursor_position_proc ShowMouse ; popa pop ds retf32 write_ch ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: SCROLL_VIDEO_UP ; ; DESCRIPTION: Scroll screen up ; ; PARAMETERS: BH PAGE NUMBER ; AL Number of lines ; BH Attribute for new lines ; CH Upper row ; CL Left columnn ; DH Bottom row ; DL Right column ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; scroll_video_up PROC far pusha ; HideMouse movzx si,dl movzx di,dh movzx dx,ch movzx cx,cl mov bh,[bp].vm_ebx+1 mov bl,bh and bl,0Fh shr bh,4 ; or al,al jnz scroll_video_up_do ; CallVideo clear_proc jmp scroll_video_up_done scroll_video_up_do: movzx ax,al CallVideo scroll_up_proc scroll_video_up_done: ShowMouse popa retf32 scroll_video_up ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: SCROLL_VIDEO_DOWN ; ; DESCRIPTION: Scroll screen down ; ; PARAMETERS: BH PAGE NUMBER ; AL Number of lines ; BH Attribute for new lines ; CH Upper row ; CL Left columnn ; DH Bottom row ; DL Right column ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; scroll_video_down PROC far pusha ; HideMouse movzx si,dl movzx di,dh movzx dx,ch movzx cx,cl mov bh,[bp].vm_ebx+1 mov bl,bh and bl,0Fh shr bh,4 ; or al,al jnz scroll_video_down_do ; CallVideo clear_proc jmp scroll_video_down_done scroll_video_down_do: movzx ax,al CallVideo scroll_down_proc scroll_video_down_done: ShowMouse popa retf32 scroll_video_down ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: WRITE_STG_ONE ; ; DESCRIPTION: Write string ; ; PARAMETERS: AX Attribute + char ; CX Column ; DX Row ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; write_stg_one PROC near push bx mov bl,ah mov bh,ah and bl,0Fh shr bh,4 ; cmp al,0Dh jne write_stg_not_cr ; xor cx,cx jmp write_stg_one_done write_stg_not_cr: cmp al,0Ah jne write_stg_not_lf ; inc dx jmp write_stg_one_done write_stg_not_lf: cmp al,8 jne write_stg_not_del ; dec cx jmp write_stg_one_done write_stg_not_del: CallVideo write_char_proc inc cx write_stg_one_done: call UpdatePos pop bx retf32 write_stg_one ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: WRITE_STG ; ; DESCRIPTION: Write string (BIOS) ; ; PARAMETERS: FS:EBX String ; CX Column ; DX Row ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; write_char_no_move PROC near write_char_nm_loop: or si,si jz write_ch_no_m_end ; dec si mov al,fs:[ebx] inc ebx mov ah,[bp].vm_ebx call write_stg_one jmp write_char_nm_loop write_ch_no_m_end: retf32 write_char_no_move ENDP write_char_move PROC near write_char_m_loop: or si,si jz write_ch_m_end ; dec si mov al,fs:[ebx] inc ebx mov ah,[bp].vm_ebx call write_stg_one jmp write_char_m_loop write_ch_m_end: mov ds:p_row,dx mov ds:p_col,cx CallVideo set_cursor_position_proc retf32 write_char_move ENDP write_attr_no_move PROC near write_attr_nm_loop: or si,si jz write_attr_no_m_end ; dec si or si,si jz write_attr_no_m_end ; dec si mov ax,fs:[ebx] add ebx,2 call write_stg_one jmp write_attr_nm_loop write_attr_no_m_end: retf32 write_attr_no_move ENDP write_attr_move PROC near write_attr_m_loop: or si,si jz write_attr_m_end ; dec si or si,si jz write_attr_m_end ; dec si mov ax,fs:[ebx] add ebx,2 call write_stg_one jmp write_attr_m_loop write_attr_m_end: mov ds:p_row,dx mov ds:p_col,cx CallVideo set_cursor_position_proc retf32 write_attr_move ENDP write_stg_tab: ws0 DW OFFSET write_char_no_move ws1 DW OFFSET write_char_move ws2 DW OFFSET write_attr_no_move ws3 DW OFFSET write_attr_move write_stg PROC far push ds push es push fs pusha ; HideMouse mov al,[bp+2].vm_eflags test al,2 jz write_stg_pm ; mov ax,flat_sel mov fs,ax xor eax,eax xor ebx,ebx mov ax,[bp].vm_es shl eax,4 mov bx,[bp].vm_bp add ebx,eax jmp write_stg_do write_stg_pm: xor ebx,ebx mov bx,[bp].vm_bp mov ax,es mov fs,ax write_stg_do: GetThread mov ds,ax mov si,cx movzx cx,dl movzx dx,dh ; movzx di,byte ptr [bp].vm_eax call cs:word ptr [di].write_stg_tab ShowMouse ; popa pop fs pop es pop ds retf32 write_stg ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: WRITE_TELETYPE ; ; DESCRIPTION: Write teletype (BIOS) ; ; PARAMETERS: AL Char ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; write_teletype PROC far WriteChar retf32 write_teletype ENDP dummy_video PROC far retf32 dummy_video ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: GET_VIDEO_STATE ; ; DESCRIPTION: Get video state ; ; PARAMETERS: ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; get_video_state PROC far mov al,3 mov ah,80 mov bh,0 retf32 get_video_state ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: FONT_INFO ; ; DESCRIPTION: Read font info ; ; PARAMETERS: ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; font_info Proc far cmp al,30h je font_info_30 retf32 font_info_30: mov dl,24 mov cx,2 retf32 font_info Endp ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: VIDEO_IO ; ; DESCRIPTION: INT 10 ; ; PARAMETERS: ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; video_tab: v0 DW OFFSET dummy_video v1 DW OFFSET dummy_video v2 DW OFFSET set_cursor_pos v3 DW OFFSET read_cursor_pos v4 DW OFFSET read_light_pen v5 DW OFFSET dummy_video v6 DW OFFSET scroll_video_up v7 DW OFFSET scroll_video_down v8 DW OFFSET read_video_attrib v9 DW OFFSET write_ch_attr v10 DW OFFSET write_ch v11 DW OFFSET dummy_video v12 DW OFFSET dummy_video v13 DW OFFSET dummy_video v14 DW OFFSET write_teletype v15 DW OFFSET get_video_state v16 DW OFFSET dummy_video v17 DW OFFSET font_info v18 DW OFFSET dummy_video v19 DW OFFSET write_stg vend DW OFFSET dummy_video int10: SimSti mov bl,ah xor bh,bh add bx,bx cmp bx,40 jc video_call_do mov bx,40 video_call_do: push word ptr cs:[bx].video_tab mov bx,[bp].vm_ebx retn ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: lost_focus_hook ; ; DESCRIPTION: Lost focus hook ; ; PARAMETERS: ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; lost_focus_hook PROC far push ds push ax mov ax,video_focus_sel mov ds,ax mov ax,ds:v_handle or ax,ax pop ax jz lost_focus_hook_switched ; mov ds,ds:v_handle call ds:switch_from_proc lost_focus_hook_switched: pop ds retf32 lost_focus_hook Endp ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: got_focus_hook ; ; DESCRIPTION: Got focus hook ; ; PARAMETERS: ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; got_focus_hook PROC far push ds push ax mov ax,video_focus_sel mov ds,ax mov ax,ds:v_handle or ax,ax pop ax jz got_focus_hook_switched ; mov ds,ds:v_handle call ds:switch_to_proc got_focus_hook_switched: pop ds retf32 got_focus_hook Endp ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: bda_get_mode ; ; DESCRIPTION: Get video mode ; ; PARAMETERS: AL Value ; BX Offset in BDA ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; bda_get_mode Proc far mov al,3 ret bda_get_mode Endp ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: bda_set_mode ; ; DESCRIPTION: Set video mode ; ; PARAMETERS: AL Value ; BX Offset in BDA ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; bda_set_mode Proc far ret bda_set_mode Endp ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: bda_get_width ; ; DESCRIPTION: Get display width ; ; PARAMETERS: AL Value ; BX Offset in BDA ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; bda_get_width Proc far mov al,80 ret bda_get_width Endp ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: bda_set_width ; ; DESCRIPTION: Set display width ; ; PARAMETERS: AL Value ; BX Offset in BDA ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; bda_set_width Proc far ret bda_set_width Endp ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: bda_get_cursor_col ; ; DESCRIPTION: Get cursor column ; ; PARAMETERS: AL Value ; BX Offset in BDA ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; bda_get_cursor_col Proc far push ds push ax GetThread mov ds,ax pop ax mov al,byte ptr ds:p_col pop ds ret bda_get_cursor_col Endp ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: bda_set_cursor_col ; ; DESCRIPTION: Set cursor column ; ; PARAMETERS: AL Value ; BX Offset in BDA ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; bda_set_cursor_col Proc far push ds push ax GetThread mov ds,ax pop ax mov byte ptr ds:p_col,al pop ds ret bda_set_cursor_col Endp ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: bda_get_cursor_row ; ; DESCRIPTION: Get cursor row ; ; PARAMETERS: AL Value ; BX Offset in BDA ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; bda_get_cursor_row Proc far push ds push ax GetThread mov ds,ax pop ax mov al,byte ptr ds:p_row pop ds ret bda_get_cursor_row Endp ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: bda_set_cursor_row ; ; DESCRIPTION: Set cursor row ; ; PARAMETERS: AL Value ; BX Offset in BDA ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; bda_set_cursor_row Proc far push ds push ax GetThread mov ds,ax pop ax mov byte ptr ds:p_row,al pop ds ret bda_set_cursor_row Endp ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: INIT_THREAD ; ; DESCRIPTION: init thread ; ; PARAMETERS: ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; init_thread PROC far push ds push ax ; GetThread mov ds,ax mov ds:p_forecolor,7 mov ds:p_backcolor,0 mov ds:p_row,0 mov ds:p_col,0 ; pop ax pop ds retf32 init_thread ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: Free_process ; ; DESCRIPTION: free process ; ; PARAMETERS: ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; free_process Proc far push ds push bx ; mov bx,video_local_sel mov ds,bx mov bx,ds:v_handle or bx,bx jz free_process_done ; mov ds,bx call ds:destruct_proc free_process_done: pop bx pop ds retf32 free_process Endp ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: init_focus ; ; DESCRIPTION: Init focus ; ; PARAMETERS: ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; init_focus PROC far mov ax,video_local_sel mov ds,ax mov ds:v_handle,0 retf32 init_focus Endp ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; NAME: INIT ; ; DESCRIPTION: Init driver ; ; PARAMETERS: ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; public init_video init_video PROC near mov bx,SEG data mov es,bx mov es:v_list,0 ; mov eax,SIZE video_focus_seg mov bx,video_local_sel mov dx,video_focus_sel AllocateFixedFocusMem ; mov ax,cs mov ds,ax mov es,ax ; mov edi,OFFSET init_thread HookCreateThread ; mov edi,OFFSET init_thread HookTerminateProcess ; mov edi,OFFSET init_focus HookEnableFocus ; mov edi,OFFSET lost_focus_hook HookLostFocus ; mov edi,OFFSET got_focus_hook HookGotFocus ; mov esi,OFFSET register_video_mode mov edi,OFFSET register_video_mode_name xor cl,cl mov ax,register_video_mode_nr RegisterOsGate ; mov esi,OFFSET invert_mouse mov edi,OFFSET invert_mouse_name xor cl,cl mov ax,invert_mouse_nr RegisterOsGate ; mov esi,OFFSET get_video_mode mov edi,OFFSET get_video_mode_name xor dx,dx mov ax,get_video_mode_nr RegisterBimodalUserGate ; mov esi,OFFSET set_video_mode mov edi,OFFSET set_video_mode_name xor dx,dx mov ax,set_video_mode_nr RegisterBimodalUserGate ; mov esi,OFFSET set_cursor_position mov edi,OFFSET set_cursor_pos_name xor dx,dx mov ax,set_cursor_position_nr RegisterBimodalUserGate ; mov esi,OFFSET get_cursor_position mov edi,OFFSET get_cursor_pos_name xor dx,dx mov ax,get_cursor_position_nr RegisterBimodalUserGate ; mov esi,OFFSET set_forecolor mov edi,OFFSET set_forecolor_name xor dx,dx mov ax,set_forecolor_nr RegisterBimodalUserGate ; mov esi,OFFSET set_backcolor mov edi,OFFSET set_backcolor_name xor dx,dx mov ax,set_backcolor_nr RegisterBimodalUserGate ; mov esi,OFFSET get_char_attrib mov edi,OFFSET get_char_attrib_name xor dx,dx mov ax,get_char_attrib_nr RegisterBimodalUserGate ; mov esi,OFFSET write_char mov edi,OFFSET write_char_name xor dx,dx mov ax,write_char_nr RegisterBimodalUserGate ; mov ebx,OFFSET write_asciiz16 mov esi,OFFSET write_asciiz32 mov edi,OFFSET write_asciiz_name mov dx,virt_es_in mov ax,write_asciiz_nr RegisterUserGate ; mov ebx,OFFSET write_size_string16 mov esi,OFFSET write_size_string32 mov edi,OFFSET write_size_string_name mov dx,virt_es_in mov ax,write_size_string_nr RegisterUserGate ; mov ebx,OFFSET write_attr_string16 mov esi,OFFSET write_attr_string32 mov edi,OFFSET write_attr_string_name mov dx,virt_es_in mov ax,write_attrib_string_nr RegisterUserGate ; mov esi,OFFSET set_clip_rect mov edi,OFFSET set_clip_rect_name xor dx,dx mov ax,set_clip_rect_nr RegisterBimodalUserGate ; mov esi,OFFSET clear_clip_rect mov edi,OFFSET clear_clip_rect_name xor dx,dx mov ax,clear_clip_rect_nr RegisterBimodalUserGate ; mov esi,OFFSET set_draw_color mov edi,OFFSET set_draw_color_name xor dx,dx mov ax,set_drawcolor_nr RegisterBimodalUserGate ; mov esi,OFFSET set_lgop mov edi,OFFSET set_lgop_name xor dx,dx mov ax,set_lgop_nr RegisterBimodalUserGate ; mov esi,OFFSET set_hollow_style mov edi,OFFSET set_hollow_style_name xor dx,dx mov ax,set_hollow_style_nr RegisterBimodalUserGate ; mov esi,OFFSET set_filled_style mov edi,OFFSET set_filled_style_name xor dx,dx mov ax,set_filled_style_nr RegisterBimodalUserGate ; mov esi,OFFSET set_font mov edi,OFFSET set_font_name xor dx,dx mov ax,set_font_nr RegisterBimodalUserGate ; mov esi,OFFSET get_pixel mov edi,OFFSET get_pixel_name xor dx,dx mov ax,get_pixel_nr RegisterBimodalUserGate ; mov esi,OFFSET set_pixel mov edi,OFFSET set_pixel_name xor dx,dx mov ax,set_pixel_nr RegisterBimodalUserGate ; mov esi,OFFSET blit_pr mov edi,OFFSET blit_name xor dx,dx mov ax,blit_nr RegisterBimodalUserGate ; mov esi,OFFSET draw_mask mov edi,OFFSET draw_mask_name xor dx,dx mov ax,draw_mask_nr RegisterBimodalUserGate ; mov ebx,OFFSET draw_string16 mov esi,OFFSET draw_string32 mov edi,OFFSET draw_string_name mov dx,virt_es_in mov ax,draw_string_nr RegisterUserGate ; mov esi,OFFSET draw_line mov edi,OFFSET draw_line_name xor dx,dx mov ax,draw_line_nr RegisterBimodalUserGate ; mov esi,OFFSET draw_rect mov edi,OFFSET draw_rect_name xor dx,dx mov ax,draw_rect_nr RegisterBimodalUserGate ; mov esi,OFFSET draw_ellipse mov edi,OFFSET draw_ellipse_name xor dx,dx mov ax,draw_ellipse_nr RegisterBimodalUserGate ; mov esi,OFFSET write_dos_string mov edi,OFFSET write_dos_string_name xor cl,cl mov ax,write_dos_string_nr RegisterOsGate ; mov ax,cs mov ds,ax mov al,10h mov edi,OFFSET int10 HookVMInt ; mov ax,cs mov es,ax ; mov bx,49h mov di,OFFSET bda_get_mode HookGetBiosData mov di,OFFSET bda_set_mode HookSetBiosData ; mov bx,4Ah mov di,OFFSET bda_get_width HookGetBiosData mov di,OFFSET bda_set_width HookSetBiosData ; mov bx,50h mov di,OFFSET bda_get_cursor_col HookGetBiosData mov di,OFFSET bda_set_cursor_col HookSetBiosData ; mov bx,51h mov di,OFFSET bda_get_cursor_row HookGetBiosData mov di,OFFSET bda_set_cursor_row HookSetBiosData ; call init_bitmap call init_sprite ret init_video ENDP code ENDS END