;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 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
;
; EWLCD.ASM
; EW LCD driver
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
						
		NAME ewlcd

GateSize = 16

INCLUDE ..\..\kernel\driver.def
INCLUDE ..\..\kernel\user.def
INCLUDE ..\..\kernel\os.def
INCLUDE ..\..\kernel\user.inc
INCLUDE ..\..\kernel\os.inc
INCLUDE ..\..\kernel\video.inc

	.386p

    LCD_WIDTH = 240
    LCD_HEIGHT = 128

video_object	STRUC

v_base		        video_api_struc <>
vl_set_proc         DD ?
vl_slab_proc        DD ?
vl_copy_proc        DD ?
vl_mask_set_proc    DD ?
vl_mask_copy_proc   DD ?
vl_has_focus        DB ?

video_object	ENDS

WriteControl    Macro
    local wait
    
    push ax
    mov dx,3B1h

wait:
    in al,dx
    and al,3
    cmp al,3
    jne wait    
;
    pop ax
    out dx,al
                Endm

                
WriteData    Macro
    local wait

    push ax
    mov dx,3B1h

wait:
    in al,dx
    and al,3
    cmp al,3
    jne wait
;
    pop ax        
    dec dx
    out dx,al
                Endm

code	SEGMENT byte public use16 'CODE'

	assume cs:code

PAGE

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;	
;
;		NAME:			ReverseTab
;
;		DESCRIPTION:	Reverse bits in a byte
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ReverseTab:
r00	DB 00000000b, 10000000b, 01000000b, 11000000b, 00100000b, 10100000b, 01100000b, 11100000b
r08	DB 00010000b, 10010000b, 01010000b, 11010000b, 00110000b, 10110000b, 01110000b, 11110000b
r10	DB 00001000b, 10001000b, 01001000b, 11001000b, 00101000b, 10101000b, 01101000b, 11101000b
r18	DB 00011000b, 10011000b, 01011000b, 11011000b, 00111000b, 10111000b, 01111000b, 11111000b
r20	DB 00000100b, 10000100b, 01000100b, 11000100b, 00100100b, 10100100b, 01100100b, 11100100b
r28	DB 00010100b, 10010100b, 01010100b, 11010100b, 00110100b, 10110100b, 01110100b, 11110100b
r30	DB 00001100b, 10001100b, 01001100b, 11001100b, 00101100b, 10101100b, 01101100b, 11101100b
r38	DB 00011100b, 10011100b, 01011100b, 11011100b, 00111100b, 10111100b, 01111100b, 11111100b
r40	DB 00000010b, 10000010b, 01000010b, 11000010b, 00100010b, 10100010b, 01100010b, 11100010b
r48	DB 00010010b, 10010010b, 01010010b, 11010010b, 00110010b, 10110010b, 01110010b, 11110010b
r50	DB 00001010b, 10001010b, 01001010b, 11001010b, 00101010b, 10101010b, 01101010b, 11101010b
r58	DB 00011010b, 10011010b, 01011010b, 11011010b, 00111010b, 10111010b, 01111010b, 11111010b
r60	DB 00000110b, 10000110b, 01000110b, 11000110b, 00100110b, 10100110b, 01100110b, 11100110b
r68	DB 00010110b, 10010110b, 01010110b, 11010110b, 00110110b, 10110110b, 01110110b, 11110110b
r70	DB 00001110b, 10001110b, 01001110b, 11001110b, 00101110b, 10101110b, 01101110b, 11101110b
r78	DB 00011110b, 10011110b, 01011110b, 11011110b, 00111110b, 10111110b, 01111110b, 11111110b
r80	DB 00000001b, 10000001b, 01000001b, 11000001b, 00100001b, 10100001b, 01100001b, 11100001b
r88	DB 00010001b, 10010001b, 01010001b, 11010001b, 00110001b, 10110001b, 01110001b, 11110001b
r90	DB 00001001b, 10001001b, 01001001b, 11001001b, 00101001b, 10101001b, 01101001b, 11101001b
r98	DB 00011001b, 10011001b, 01011001b, 11011001b, 00111001b, 10111001b, 01111001b, 11111001b
rA0	DB 00000101b, 10000101b, 01000101b, 11000101b, 00100101b, 10100101b, 01100101b, 11100101b
rA8	DB 00010101b, 10010101b, 01010101b, 11010101b, 00110101b, 10110101b, 01110101b, 11110101b
rB0	DB 00001101b, 10001101b, 01001101b, 11001101b, 00101101b, 10101101b, 01101101b, 11101101b
rB8	DB 00011101b, 10011101b, 01011101b, 11011101b, 00111101b, 10111101b, 01111101b, 11111101b
rC0	DB 00000011b, 10000011b, 01000011b, 11000011b, 00100011b, 10100011b, 01100011b, 11100011b
rC8	DB 00010011b, 10010011b, 01010011b, 11010011b, 00110011b, 10110011b, 01110011b, 11110011b
rD0	DB 00001011b, 10001011b, 01001011b, 11001011b, 00101011b, 10101011b, 01101011b, 11101011b
rD8	DB 00011011b, 10011011b, 01011011b, 11011011b, 00111011b, 10111011b, 01111011b, 11111011b
rE0	DB 00000111b, 10000111b, 01000111b, 11000111b, 00100111b, 10100111b, 01100111b, 11100111b
rE8	DB 00010111b, 10010111b, 01010111b, 11010111b, 00110111b, 10110111b, 01110111b, 11110111b
rF0	DB 00001111b, 10001111b, 01001111b, 11001111b, 00101111b, 10101111b, 01101111b, 11101111b
rF8	DB 00011111b, 10011111b, 01011111b, 11011111b, 00111111b, 10111111b, 01111111b, 11111111b

PAGE

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;	
;
;		NAME:			switch_to
;
;		DESCRIPTION:	Enter focus
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

switch_to	Proc far
    push es
	pushad
;
;	EnterSection ds:v_section
	mov ds:vl_has_focus,1
;
    mov ax,flat_sel
    mov es,ax
;
    xor al,al
    WriteData
    xor al,al
    WriteData
    mov al,24h
    WriteControl
;
    mov al,0B0h
    WriteControl
;
	mov cx,(LCD_WIDTH / 8) * LCD_HEIGHT
    mov esi,ds:v_app_base
	mov bx,OFFSET ReverseTab

switch_to_loop:
    mov al,es:[esi]
	xlat byte ptr cs:ReverseTab 
    WriteData
    inc esi
    loop switch_to_loop
;    
    mov al,0B2h
    WriteControl
;
;	LeaveSection ds:v_section
;
	popad
	pop es
	ret
switch_to	Endp

PAGE

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;	
;
;		NAME:			SwitchFrom
;
;		DESCRIPTION:	Leave focus
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

switch_from	Proc far
	mov ds:vl_has_focus,0
	ret
switch_from	Endp

PAGE

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;	
;
;		NAME:			SetBase
;
;		DESCRIPTION:	Basic set pixel
;
;		PARAMETER:		EAX         Color
;						EDI         Position
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

set_base	Proc far
    push ax
	push bx
    push edx
;
    call ds:vl_set_proc
    mov al,ds:vl_has_focus
    or al,al
    jz set_base_done
;
    mov edx,edi
    shr edx,3
;
    mov al,dl
	push dx
    WriteData
	pop dx
;
    mov al,dh
	push dx
    WriteData
	pop dx
;
    mov al,24h
	push dx
    WriteControl
	pop dx
;
    mov al,0B0h
	push dx
    WriteControl
	pop dx
;
    add edx,ds:v_app_base
	mov bx,OFFSET ReverseTab
    mov al,es:[edx]
	xlat byte ptr cs:ReverseTab 
    WriteData
;
    mov al,0B2h
    WriteControl

set_base_done:
    pop edx
	pop bx
    pop ax
    ret
set_base    Endp

PAGE

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;	
;
;		NAME:			Slab
;
;		DESCRIPTION:	Fill line
;
;		PARAMETERS:		AX			Color
;					    EDI		    position
;						CX			number of pixels
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

slab	Proc far
    push ax
	push bx
    push ecx
    push edx
	push esi
;
    call ds:vl_slab_proc
    mov al,ds:vl_has_focus
    or al,al
    jz slab_done
;
    mov edx,edi
    shr edx,3
;
    movzx ecx,cx
    add ecx,edi
    dec ecx
    shr ecx,3
    inc ecx
    sub ecx,edx
;    
    mov al,dl
	push dx
    WriteData
	pop dx
;
    mov al,dh
	push dx
    WriteData
	pop dx
;
    mov al,24h
	push dx
    WriteControl
	pop dx
;
    mov al,0B0h
	push dx
    WriteControl
	pop dx
;
	mov bx,OFFSET ReverseTab
    add edx,ds:v_app_base
	mov esi,edx

slab_loop:
    mov al,es:[esi]
	xlat byte ptr cs:ReverseTab 
    WriteData
    inc esi
    loop slab_loop
;    
    mov al,0B2h
    WriteControl

slab_done:
	pop esi
    pop edx
    pop ecx
	pop bx
    pop ax
	ret
slab	Endp

PAGE

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;	
;
;		NAME:			Copy
;
;		DESCRIPTION:	Copy line
;
;		PARAMETERS:		EAX         Source base
;                       FS:ESI      Source position
;					    EDI		    Dest position
;						CX			number of pixels
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

copy	Proc far
    push ax
	push bx
    push ecx
    push edx
	push esi
;
    call ds:vl_copy_proc
    mov al,ds:vl_has_focus
    or al,al
    jz copy_done
;
    mov edx,edi
    shr edx,3
;
    movzx ecx,cx
    add ecx,edi
    dec ecx
    shr ecx,3
    inc ecx
    sub ecx,edx
;    
    mov al,dl
	push dx
    WriteData
	pop dx
;
    mov al,dh
	push dx
    WriteData
	pop dx
;
    mov al,24h
	push dx
    WriteControl
	pop dx
;
    mov al,0B0h
	push dx
    WriteControl
	pop dx
;
	mov bx,OFFSET ReverseTab
    add edx,ds:v_app_base
	mov esi,edx

copy_loop:
    mov al,es:[esi]
	xlat byte ptr cs:ReverseTab 
    WriteData
    inc esi
    loop copy_loop
;    
    mov al,0B2h
    WriteControl

copy_done:
	pop esi
    pop edx
    pop ecx
	pop bx
    pop ax
    ret
copy    Endp

PAGE

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;	
;
;		NAME:			MaskSet
;
;		DESCRIPTION:	Set mask line
;
;		PARAMETERS:		EAX         Color
;						CX			number of pixels
;                       DL          Start bit number
;                       GS:EBX      Mask bits
;						ES:EDI		Dest buffer
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

mask_set	Proc far
    push ax
	push bx
    push ecx
    push edx
	push esi
;
    call ds:vl_mask_set_proc
    mov al,ds:vl_has_focus
    or al,al
    jz mask_set_done
;
    mov edx,edi
    shr edx,3
;
    movzx ecx,cx
    add ecx,edi
    dec ecx
    shr ecx,3
    inc ecx
    sub ecx,edx
;    
    mov al,dl
	push dx
    WriteData
	pop dx
;
    mov al,dh
	push dx
    WriteData
	pop dx
;
    mov al,24h
	push dx
    WriteControl
	pop dx
;
    mov al,0B0h
	push dx
    WriteControl
	pop dx
;
	mov bx,OFFSET ReverseTab
    add edx,ds:v_app_base
	mov esi,edx

mask_set_loop:
    mov al,es:[esi]
	xlat byte ptr cs:ReverseTab 
    WriteData
    inc esi
    loop mask_set_loop
;    
    mov al,0B2h
    WriteControl

mask_set_done:
	pop esi
    pop edx
    pop ecx
	pop bx
    pop ax
    ret
mask_set    Endp

PAGE

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;	
;
;		NAME:			MaskCopy
;
;		DESCRIPTION:	Copy mask line
;
;		PARAMETERS:		CX			number of pixels
;                       DL          Start bit number
;                       FS:ESI      Source pixels
;                       GS:EBX      Mask bits 
;						ES:EDI		Dest buffer
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

mask_copy	Proc far
    push ax
	push bx
    push ecx
    push edx
	push esi
;
    call ds:vl_mask_copy_proc
    mov al,ds:vl_has_focus
    or al,al
    jz mask_copy_done
;
    mov edx,edi
    shr edx,3
;
    movzx ecx,cx
    add ecx,edi
    dec ecx
    shr ecx,3
    inc ecx
    sub ecx,edx
;    
    mov al,dl
	push dx
    WriteData
	pop dx
;
    mov al,dh
	push dx
    WriteData
	pop dx
;
    mov al,24h
	push dx
    WriteControl
	pop dx
;
    mov al,0B0h
	push dx
    WriteControl
	pop dx
;
	mov bx,OFFSET ReverseTab
    add edx,ds:v_app_base
	mov esi,edx

mask_copy_loop:
    mov al,es:[esi]
	xlat byte ptr cs:ReverseTab 
    WriteData
    inc esi
    loop mask_copy_loop
;    
    mov al,0B2h
    WriteControl

mask_copy_done:
	pop esi
    pop edx
    pop ecx
	pop bx
    pop ax
    ret
mask_copy    Endp

PAGE

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;	
;
;		NAME:			init_mode
;
;		DESCRIPTION:	Init video-mode
;
;		RETURNS:		AX		Handle
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

init_mode	Proc far
	push ds
	push es
	push ecx
	push dx
	push si
	push edi
;
	mov ax,es
	mov ds,ax
	mov ax,128
	shl ax,2
	add ax,SIZE video_object
	movzx eax,ax
	AllocateSmallGlobalMem
    mov es:v_sprite_lines,SIZE video_object
;
	mov al,1
	mov cx,LCD_WIDTH
	mov dx,LCD_HEIGHT
	InitVideoBitmap
;
	mov es:v_mode,3
	mov es:vl_has_focus,0
;
	mov eax,LCD_WIDTH / 8
	mov es:v_row_size,ax
;
	mov edx,LCD_HEIGHT
	mul edx
	dec eax
	and ax,0F000h
	add eax,1000h
	mov es:v_app_size,eax
	AllocateSmallLinear
	mov es:v_app_base,edx
;
	push es
	mov edi,edx
	mov ecx,eax
	mov ax,flat_sel
	mov es,ax
	xor al,al
	rep stos byte ptr es:[edi]
	pop es
;
    mov bx,cs
    shl ebx,16
;
	mov eax,es:set_proc
	mov es:vl_set_proc,eax
	mov bx,OFFSET set_base
	mov es:set_proc,ebx
;
	mov eax,es:slab_proc
	mov es:vl_slab_proc,eax
	mov bx,OFFSET slab
	mov es:slab_proc,ebx
;
	mov eax,es:copy_proc
	mov es:vl_copy_proc,eax
	mov bx,OFFSET copy
	mov es:copy_proc,ebx
;
	mov eax,es:mask_set_proc
	mov es:vl_mask_set_proc,eax
	mov bx,OFFSET mask_set
	mov es:mask_set_proc,ebx
;
	mov eax,es:mask_copy_proc
	mov es:vl_mask_copy_proc,eax
	mov bx,OFFSET mask_copy
	mov es:mask_copy_proc,ebx
;
    mov bx,OFFSET switch_to
    mov es:switch_to_proc,ebx
;
    mov bx,OFFSET switch_from
    mov es:switch_from_proc,ebx
	mov ax,es
	clc
;
	pop edi
	pop si
	pop dx
	pop ecx
	pop es
	pop ds
	ret
init_mode	Endp

PAGE

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;	
;
;		NAME:			InitLCD
;
;		DESCRIPTION:	Init LCD module
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

InitLCD Proc near
    mov al,81h      ; CGROM mode, OR mode
    WriteControl
;
    xor al,al
    WriteData
    xor al,al
    WriteData
    mov al,42h
    WriteControl    ; set graphics home = 0000
;
    mov al,LCD_WIDTH / 8
    WriteData
    xor al,al
    WriteData
    mov al,43h
    WriteControl    ; set graphics area = 001E
;
    xor al,al
    WriteData
    mov al,20h
    WriteData
    mov al,40h
    WriteControl    ; set text home = 2000
;
    mov al,LCD_WIDTH / 8
    WriteData
    xor al,al
    WriteData
    mov al,41h
    WriteControl    ; set text area = 0028
;
    mov al,3
    WriteData
    xor al,al
    WriteData
    mov al,22h
    WriteControl    ; set CGRAM offset = 03
;
    mov al,9Ah
    WriteControl    ; graphics on, text on, cursor off
;
    xor al,al
    WriteData
    xor al,al
    WriteData
    mov al,24h
    WriteControl
;
    mov al,0B0h
    WriteControl
;
	mov cx,(LCD_WIDTH / 8) * LCD_HEIGHT

zero_lcd_loop:
	xor al,al
	WriteData
	loop zero_lcd_loop
;    
    mov al,0B2h
    WriteControl
;
	ret
InitLCD Endp

PAGE

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;	
;
;		NAME:			init_focus
;
;		DESCRIPTION:	Init focus
;
;		PARAMETERS:		
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
			
init_focus	PROC far
    push es
	pusha
;    
	mov ax,3
	SetVideoMode
;
	popa
	pop es
	ret
init_focus	Endp

PAGE

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;	
;
;		NAME:			INIT
;
;		DESCRIPTION:	Init device
;
;		PARAMETERS:		
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
			
init	PROC far
	push ds
	pusha
;
	mov bx,pc_video_code_sel
	InitDevice
;
	mov ax,cs
	mov ds,ax
	mov es,ax
;
	mov di,OFFSET init_focus
	HookEnableFocus
;
	mov dx,3B3h
	xor al,al
	out dx,al
;
	mov ax,cs
	mov es,ax	
	mov ax,3
	mov bl,1
	mov cx,LCD_WIDTH
    mov dx,LCD_HEIGHT
	mov di,OFFSET init_mode
	RegisterVideoMode
;
    call InitLCD
;
	popa
	pop ds
	ret
init	ENDP

code	ENDS

	END init