Subversion Repositories Kolibri OS

;******************************************************************************

; project name:      TINYPAD

; compiler:          flat assembler 1.60

; memory to compile: 2 Mbytes +

; version:           3.78a

; last update:       13/05/2005

; maintained by:     Ivan Poddubny, Mike Semenyako (aka mike.dld)

; e-mail:            ivan-yar@bk.ru, mike.dld@tut.by

;******************************************************************************

; HISTORY:

; 3.79 (just some ideas for further releases)

;   optimize drawing (reduce flickering)

;   optimize memory usage (allocate only needed amount, not static 3 Mbytes)

;   improve keyboard handling (use 66th function)

;   introduce real selection capabilities (including block selection)

;   and of course other small speed and size optimizations ;)

; 3.78a (mike.dld)

;   fixed termination while typing in x positions higher than (line_length+10)

;   improved drawing on small heights

;     don't draw window while its height equals 0

; 3.78 (mike.dld)

;   now lines may be of ANY length;

;     optimized memory usage (less memory for internal file representation)

;       after loading file, it's internal size equals to its real size

;       plus 14 bytes for each line (4 bytes for line length

;         and 10 spaced to the end - to reduce data relocations)

;     completely rewritten keyboard handling;

;     added horizontal scrollbar;

;   all line feed formats are supported: WIN(CRLF),*NIX(LF),MAC(CR);

;   etc.

; 3.77 (mike.dld)

;   changed save_string to collapse SPACEs into TABs;

;   rewrote drawfile from scratch (speed++)

;     through some drawing improvements still needed

;     (some checkups to reduce flickering);

;   writepos (size--);

;   fixed drawing window while height < 100px, and for non-asm files;

;   several small fixes; speed/size optimizations

; 3.76 (mike.dld)

;   changed loadfile/loadhdfile to expand TABs into SPACEs;

;   changed TAB,ENTER,DELETE,BSPACE keys behaviour (rewritten from scratch);

;   vertical scrollbar;

;   extra window resizing capabilities (added a couple of constants);

;   completely new text cursor management & moving text cursor with mouse;

;   improved search function, moving cursor to beginning of text found;

;   adjustable max line width (change LINE_WIDTH & recompile) // (obsolete)

; 3.75a

;   fixed converting char to upper case in read_string

; 3.75

;   rewrote save_file from scratch; bugfix in loadfile;

; 3.74

;   optimisation

; 3.73

;   completly new load_file function

; 3.72

;   speed++

; 3.71

;   error beep

; 3.6,3.7:

;   many bugs fixed

;   simple toolbar

;   compile, run applications from TINYPAD, all fasm output is in debug board

;   TAB button

;   auto-indent

;   Ctrl+L - insert comment string

;******************************************************************************

; Memory 0x300000:

;   stack            0x00eff0 -  ����

;   stack for help   0x00fff0 -

;   load position    0x010000 +  ���� ����㧪� 䠩��

;   screen comp      0x078000 +  ᮤ�ন��� ��࠭� (obsolete)

;   edit area        0x080000 +  ���㬥��

;   copy/paste area  0x2f0000 +  ������� ��� ����஢����/��⠢��

;******************************************************************************

include 'lang.inc'

include 'macros.inc' ; useful stuff

purge mov	     ;  SPEED

macro mov op1,op2 {

 if (op1 in __regs) & (op2 eq -1)

  or  op1,-1

 else

  mov op1,op2

 end if

}

 header '01',1,@CODE,TINYPAD_END,0x300000,0xeff0,@PARAMS,0

ASEPC = '-'

RBTNW = rstr.size*6/3

LBTNW = lstr.size*6/2

ABTNH = 16

ATOPH = 24

OLEFT = 5+1

SCRLW = 16

ATABW = 8

PATHL = 260

AMINS = 8

;-----------------------------------------------------------------------------

section @CODE ;///////////////////////////////////////////////////////////////

;-----------------------------------------------------------------------------

;******************************************************************************

; INITIALIZING

	cld

	mov	esi,s_example

	mov	edi,s_fname

	mov	ecx,s_example.size

	mov	[s_fname.size],ecx

	rep	movsb

	mov	esi,s_still

	mov	edi,s_search

	mov	ecx,s_still.size

	mov	[s_search.size],ecx

	rep	movsb

	cmp	byte[@PARAMS],0

	jz	no_params

    ; parameters are at @PARAMS

	mov	esi,@PARAMS

	mov	edi,s_fname

	mov	ecx,PATHL

	rep	movsb

	mov	edi,s_fname

	mov	ecx,PATHL

	xor	al,al

	repne	scasb

	sub	edi,s_fname+1

	mov	[s_fname.size],edi

  no_params:

	mcall	40,00100111b

	jmp	do_load_file

;******************************************************************************

; MAIN LOOP

still:

	call	writepos ; write current position & number of strings

  .skip_write:

	mcall	10;23,50; wait here until event

	dec	eax	; redraw ?

	jz	red

	dec	eax	; key ?

	jz	key

	dec	eax	; button ?

	jz	button

	sub	eax,3	; mouse ?

	jz	mouse

	;d

	jmp	still.skip_write

;******************************************************************************

  mouse:

	mcall	9,p_info,-1

	cmp	ax,[p_info.window_stack_position]

	jne	still

	mcall	37,2

	test	al,1

	jz	.capture_off

	mcall	37,1

	mov	ebx,eax

	and	ebx,0x0000FFFF

	shr	eax,16

	mov	ecx,[top_ofs]

	inc	ecx

	pushd	OLEFT ecx [p_info.x_size] ecx

	popd	[__rc+0xC] [__rc+0x8] [__rc+0x4] [__rc+0x0]

	sub	[__rc+0x8],SCRLW+5+3

	imul	ecx,[slines],10

	dec	ecx

	add	[__rc+0xC],ecx

	mov	ecx,__rc

	call	pt_in_rect

	jnc	.check_vscroll

	sub	eax,OLEFT

	sub	ebx,[__rc+0x4]

	push	eax

	mov	eax,ebx

	xor	edx,edx

	mov	ecx,10

	div	ecx

    @@: add	eax,[top_line]

	mov	ebx,eax

	pop	eax

	xor	edx,edx

	mov	ecx,6

	div	ecx

    @@: add	eax,[left_col]

	cmp	eax,[columns]

	jb	@f

	mov	eax,[columns]

    @@: cmp	ebx,[lines]

	jb	@f

	mov	ebx,[lines]

	dec	ebx

    @@:

	cmp	[posx],eax

	jne	.change_cur_pos

	cmp	[posy],ebx

	je	still.skip_write

  .change_cur_pos:

	mov	[posx],eax

	mov	eax,[posy]

	pushd	ebx

	popd	[posy]

	cmp	eax,ebx

	je	@f

	push	ebx

	mov	ebx,eax

	call	drawfile.ex

	pop	eax

    @@: mov	ebx,eax

	call	drawfile.ex

	jmp	still

  .check_vscroll:

	mov	ecx,[p_info.x_size]

	sub	ecx,SCRLW+5-2

	pushd	ecx [top_ofs] ecx [bot_ofs]

	popd	[__rc+0xC] [__rc+0x8] [__rc+0x4] [__rc+0x0]

	add	[__rc+0x8],SCRLW-2

	add	[__rc+0x4],SCRLW+1

	sub	[__rc+0xC],SCRLW*2+3

	mov	ecx,__rc

	call	pt_in_rect

	jnc	.check_hscroll

	sub	ebx,[__rc+0x4]

	cmp	[vscrl_capt],0

	jge	.vcaptured

	mov	eax,[vscrl_top]

	cmp	ebx,eax

	jb	.center_vcapture

	add	eax,[vscrl_size]

	cmp	ebx,eax

	jae	.center_vcapture

	mov	eax,ebx

	sub	eax,[vscrl_top]

	dec	eax

	mov	[vscrl_capt],eax

	dec	ebx

	jmp	.vcaptured

  .center_vcapture:

	mov	eax,[vscrl_size]

	shr	eax,1

	mov	[vscrl_capt],eax

  .vcaptured:

	sub	ebx,[vscrl_capt]

	jns	@f

	xor	ebx,ebx

    @@:

	mov	[vscrl_top],ebx

	mov	eax,[lines]

	sub	eax,[slines]

	mul	ebx

	mov	ebx,[bot_ofs]

	sub	ebx,[top_ofs]

	sub	ebx,SCRLW*3+2+2 	;**

	sub	ebx,[vscrl_size]

	div	ebx

	cmp	eax,[top_line]

	je	still.skip_write

	mov	[top_line],eax

	call	check_bottom_right

	call	drawfile

	jmp	still.skip_write

  .check_hscroll:

	pushd	(OLEFT+SCRLW+1) [bot_ofs] [p_info.x_size] [bot_ofs]

	popd	[__rc+0xC] [__rc+0x8] [__rc+0x4] [__rc+0x0]

	add	[__rc+0x8],-SCRLW*2-10-1

	add	[__rc+0x4],-SCRLW

	add	[__rc+0xC],-2

	mov	ecx,__rc

	call	pt_in_rect

	jnc	.capture_off

	mov	ebx,eax

	sub	ebx,[__rc+0x0]

	cmp	[hscrl_capt],0

	jge	.hcaptured

	mov	eax,[hscrl_top]

	cmp	ebx,eax

	jb	.center_hcapture

	add	eax,[hscrl_size]

	cmp	ebx,eax

	jae	.center_hcapture

	mov	eax,ebx

	sub	eax,[hscrl_top]

	dec	eax

	mov	[hscrl_capt],eax

	dec	ebx

	jmp	.hcaptured

  .center_hcapture:

	mov	eax,[hscrl_size]

	shr	eax,1

	mov	[hscrl_capt],eax

  .hcaptured:

	sub	ebx,[hscrl_capt]

	jns	@f

	xor	ebx,ebx

    @@:

	mov	[hscrl_top],ebx

	mov	eax,[columns]

	sub	eax,[scolumns]

	mul	ebx

	mov	ebx,[p_info.x_size]

	sub	ebx,SCRLW*3+10+2	;**

	sub	ebx,[hscrl_size]

	div	ebx

	cmp	eax,[left_col]

	je	still.skip_write

	mov	[left_col],eax

	call	check_bottom_right

	call	drawfile

	jmp	still.skip_write

  .capture_off:

	or	[vscrl_capt],-1

	or	[hscrl_capt],-1

	jmp	still.skip_write

func pt_in_rect

	cmp	eax,[ecx+0x0]

	jl	@f

	cmp	ebx,[ecx+0x4]

	jl	@f

	cmp	eax,[ecx+0x8]

	jg	@f

	cmp	ebx,[ecx+0xC]

	jg	@f

	stc

	ret

    @@: clc

	ret

endf

func check_bottom_right

	push	eax

	mov	eax,[top_line]

	add	eax,[slines]

	cmp	eax,[lines]

	jbe	.lp1

	mov	eax,[lines]

	sub	eax,[slines]

	jns	@f

	xor	eax,eax

    @@: mov	[top_line],eax

  .lp1: mov	eax,[left_col]

	add	eax,[scolumns]

	cmp	eax,[columns]

	jbe	.exit

	mov	eax,[columns]

	sub	eax,[scolumns]

	jns	@f

	xor	eax,eax

    @@: mov	[left_col],eax

  .exit:

	pop	eax

	ret

endf

; *********************************

; *         BUTTON HANDLER        *

; *********************************

  button:

	mcall	17

	shr	eax,8

	cmp	eax,'UP'

	jne	not_up

	dec	[top_line]

	jns	check_inv_all.skip_check

	mov	[top_line],0

	jmp	still.skip_write

  not_up:

	cmp	eax,'DN'

	jne	not_down

	inc	[top_line]

	mov	eax,[lines]

	sub	eax,[slines]

	cmp	eax,[top_line]

	jae	check_inv_all.skip_check

	dec	eax

	mov	[top_line],eax

	jmp	still.skip_write

  not_down:

	cmp	eax,'LT'

	jne	not_left

	dec	[left_col]

	jns	check_inv_all.skip_check

	mov	[left_col],0

	jmp	still.skip_write

  not_left:

	cmp	eax,'RT'

	jne	not_right

	inc	[left_col]

	mov	eax,[columns]

	sub	eax,[scolumns]

	cmp	eax,[left_col]

	jae	check_inv_all.skip_check

	dec	eax

	mov	[left_col],eax

	jmp	still.skip_write

  not_right:

; SEARCH {

  search:

	cmp	al,50

	jne	no_search

  .skip_check:

	cld

	mov	ecx,[posy]

	mov	edx,ecx

	call	get_line_offset

	cmp	dword[esi],0

	je	still

	call	get_real_length

	add	esi,4

	or	eax,eax

	jz	.end_line.2

	mov	ecx,eax

	sub	ecx,[posx]

	push	esi

	add	esi,[posx]

	dec	ecx

	inc	esi

	jmp	@f

  .next_line:

	push	esi

    @@:

	sub	ecx,[s_search.size]

	inc	ecx

  .next_char:

	dec	ecx

	js	.end_line

	xor	edi,edi

  .next_ok:

	movzx	eax,byte[edi+esi]

	movzx	ebx,byte[edi+s_search]

	cmp	al,$61

	jb	@f

	add	al,[eax+add_table-$61]

    @@: cmp	bl,$61

	jb	@f

	add	bl,[ebx+add_table-$61]

    @@:

	cmp	al,bl

	je	@f

	inc	esi

	jmp	.next_char

    @@:

	inc	edi

	cmp	edi,[s_search.size]

	jne	.next_ok

  .found:

	add	esp,4

	mov	[posy],edx

	mov	ecx,edx

	lea	eax,[esi-4]

	call	get_line_offset

	sub	eax,esi

	mov	[posx],eax

	jmp	check_inv_all

  .end_line:

	pop	esi

  .end_line.2:

	add	esi,[esi-4]

	inc	edx

	call	get_real_length

	mov	ecx,eax

	lodsd

	or	eax,eax

	jnz	.next_line

	jmp	still

; SEARCH }

  no_search:

; TOOLBAR {

	cmp	eax,10000

	jb	no_toolbar

	add	eax,-10000

	jnz	@f

	mov	bl,0;[run_outfile],0

	call	start_fasm

	jmp	still

    @@: dec	eax

	jnz	@f

	mov	bl,1;[run_outfile],1

	call	start_fasm

	jmp	still

    @@: dec	eax

	jnz	@f

	call	open_debug_board

	jmp	still

    @@: dec	eax

	jnz	still

	call	open_sysfuncs_txt

	jmp	still

; TOOLBAR }

  no_toolbar:

	cmp	al,4

	jne	noid4

; LOAD_FILE {

  do_load_file:

	cmp	[s_fname],'/'

	jne	@f

	call	loadhdfile

	jmp	.restorecursor

    @@: call	loadfile

    .restorecursor:

	xor	eax,eax

	mov	[top_line],eax

	mov	[posx],eax

	mov	[posy],eax

; enable color syntax for ASM and INC files:

	mov	[asm_mode],al

	mov	eax,[s_fname.size]

	add	eax,s_fname

	mov	byte[eax],0

	cmp	dword[eax-3],'ASM'

	jne	@f

	inc	[asm_mode]

	jmp	.nocol

    @@: cmp	dword[eax-3],'INC'

	jne	.nocol

	inc	[asm_mode]

    .nocol:

; if the header is the same as previous,

; just redraw the text area

; else redraw the window

	mov	ecx, [s_fname.size]

	add	ecx, 10 	    ; strlen(" - TINYPAD");

	cmp	ecx, [s_title.size]

	jne	@f

	add	ecx, -10

	mov	esi, s_fname	   ; strcmp(s_fname,header);

	mov	edi, s_title

	rep	cmpsb

	jne	@f

	call	drawfile

	jmp	still

    @@:

; set window title:

	mov	esi,s_fname

	mov	edi,s_title

	mov	ecx,[s_fname.size]

	lea	eax,[ecx+10]

	mov	[s_title.size],eax

	cld

	rep	movsb

	mov	dword[edi],' - '

	add	edi,3

	mov	esi,htext

	mov	ecx,htext.size

	rep	movsb

	call	drawwindow

	jmp	still

; LOAD_FILE }

  noid4:

	cmp	al, 2

	jz	yessave

	dec	al	 ; close if butid == 1

	jnz	nosave

; EXIT:

	mov	[main_closed],1

	mcall	-1

; SAVE_FILE {

  yessave:

	call	save_file

	jmp	still

; SAVE_FILE }

  nosave:

	inc	al

	call	read_string

	jmp	still

;**********************************

;*         REDRAW HANDLER         *

;**********************************

func red

; ����ᮢ�� ����

	call	drawwindow

	jmp	check_inv_all.skip_check

endf

;**********************************

;*          KEY HANDLER           *

;**********************************

key:

	mcall	2		; GET KEY

	cmp	al,1

	je	still

	shr	eax,8

; HELP_WND {

	cmp	al,0xD2;210  ; Ctrl + F1

	jne	no_help_text

	mcall	51,1,help_thread_start,0xfff0

	jmp	still

; HELP_WND }

  no_help_text:

; LOAD_FILE {

	cmp	al,211	     ; Ctrl + F2

	je	do_load_file

; LOAD_FILE }

; SEARCH {

	cmp	al,212	     ; Ctrl + F3

	je	search.skip_check

; SEARCH }

; SAVE_FILE {

	cmp	al,213	     ; Ctrl + F4

	je	yessave

; SAVE_FILE }

; ENTER_FILENAME {

	cmp	al,214	     ; Ctrl + F5

	jne	@f

	mov	al,5

	call	read_string

	jmp	still

    @@:

; ENTER_FILENAME }

; ENTER_SEARCH {

	cmp	al,215	     ; Ctrl + F6

	jne	@f

	mov	al,51

	call	read_string

	jmp	still

    @@:

; ENTER_SEARCH }

; CHANGE_LANG_LAYOUT {

	cmp	al,217	     ; Ctrl + F8

	jne	@f

	call	layout

	jmp	still

    @@:

; CHANGE_LANG_LAYOUT }

; 3 times english -> ���᪨�

; 2 times ���᪨� -> english

; COPY START {

	cmp	al,19

	jne	no_copy_start

	push	[posy]

	pop	[copy_start]

	jmp	still

; COPY START }

  no_copy_start:

; COPY END {

	cmp	al,5

	jne	no_copy_end

	mov	eax,[posy]

	cmp	eax,[copy_start]

	jae	@f

	xchg	eax,[copy_start]

    @@: sub	eax,[copy_start]

	inc	eax

	mov	[copy_count],eax

	mov	ecx,[copy_start]

	call	get_line_offset

	push	esi

	mov	ecx,eax

    @@: lodsd

	add	esi,eax

	loop	@b

	mov	ecx,esi

	pop	esi

	sub	ecx,esi

	mov	[copy_size],ecx

	mov	edi,0x2f0000

	cld

	rep	movsb

	jmp	still

; COPY END }

  no_copy_end:

; PASTE {

	cmp	al,16

	jne	no_copy_paste

	mov	ebx,[copy_count]

	or	ebx,ebx

	jz	still

	add	[lines],ebx

	mov	ecx,[posy]

	call	get_line_offset

	mov	ebx,esi

	mov	edi,0x2E0000

	mov	esi,edi

	mov	ecx,[copy_size]

	sub	esi,ecx

	lea	ecx,[esi+4]

	sub	ecx,ebx

	std

	rep	movsb

	mov	edi,ebx

	mov	esi,0x2F0000

	mov	ecx,[copy_size]

	cld

	rep	movsb

	jmp	check_inv_all

; PASTE }

  no_copy_paste:

; INSERT_SEPARATOR {

	cmp	al,0x0C       ; Ctrl+L

	jne	no_insert_separator

	mov	ecx,[posy]

	call	get_line_offset

	mov	ebx,esi

	mov	ecx,[lines]

	call	get_line_offset

	lea	edi,[esi+90+4]

	lea	ecx,[esi+4]

	sub	ecx,ebx

	std

	rep	movsb

	lea	edi,[ebx+5]

	mov	dword[ebx],90

	mov	al,ASEPC

	mov	ecx,79

	cld

	rep	stosb

	mov	al,' '

	mov	ecx,10

	rep	stosb

	mov	byte[ebx+4],';'

	inc	[lines]

	inc	[posy]

	jmp	check_inv_all

; INSERT_SEPARATOR }

  no_insert_separator:

; DEL_LINE {

	cmp	al,4

	jne	no_delete_line

	mov	eax,[posy]

	inc	eax

	cmp	eax,[lines]

	jge	still

	mov	ecx,[posy]

	call	get_line_offset

	mov	edi,esi

	lodsd

	add	esi,eax

	dec	[lines]

	mov	ecx,0x2e0000

	sub	ecx,esi

	shr	ecx,2		       ;// fixed (was 4)

	cld

	rep	movsd

	jmp	check_inv_all

; DEL_LINE }

  no_delete_line:

; ENTER {

	cmp	al,13

	jnz	noenter

	mov	ecx,[posy]

	call	get_line_offset

	mov	ebx,[posx]

	cmp	ebx,[esi]

	jb	@f

	mov	ebx,[esi]

	dec	ebx

	jns	@f

	xor	ebx,ebx

    @@:

	cld

	mov	edi,0x10000

	mov	ebp,esi

	mov	ecx,ebx

	inc	ecx

    @@: dec	ecx

	jz	@f

	cmp	byte[esi+ecx+4-1],' '

	je	@b

    @@: lea	eax,[ecx+10]

	stosd

	jecxz	@f

	push	esi

	add	esi,4

	rep	movsb

	pop	esi

    @@: mov	al,' '

	mov	ecx,10

	rep	stosb

	mov	ecx,[esi]

	sub	ecx,ebx;[posx]

	add	esi,ebx;[posx]

	add	esi,4

	inc	ecx

    @@: dec	ecx

	jz	@f

	cmp	byte[esi+ecx-1],' '

	je	@b

    @@: jz	.lp1

    @@: cmp	byte[esi],' '

	jne	.lp1

	inc	esi

	loop	@b

  .lp1: push	edi ecx

	mov	ecx,[ebp]

	lea	edi,[ebp+4]

	mov	al,' '

	repe	scasb

	mov	eax,ecx

	pop	ecx edi

	je	.lp2

	neg	eax

	add	eax,[ebp]

	dec	eax

	jmp	@f

  .lp2: xor	eax,eax

    @@: mov	edx,edi

	add	edi,4

	mov	[posx],eax

	jecxz	@f

	push	ecx

	mov	ecx,eax

	mov	al,' '

	rep	stosb

	pop	ecx

    @@: jecxz	@f

	rep	movsb

    @@: mov	ecx,10

	mov	al,' '

	rep	stosb

	lea	eax,[edi-4]

	sub	eax,edx

	mov	[edx],eax

	lea	ecx,[edi-0x10000]

	push	ecx

	mov	edi,0x2E0000

	lea	esi,[edi+4]

	sub	esi,ecx

	add	esi,[ebp]

	lea	ecx,[esi-4]

	sub	ecx,ebp

	std

	cmp	esi,edi

	jb	@f

	je	.lp3

	lea	esi,[ebp+4]

	mov	eax,[esp]

	lea	edi,[esi+eax-4]

	add	esi,[ebp]

	mov	ecx,0x2E0000

	sub	ecx,esi

	cld

    @@: rep	movsb

  .lp3: pop	ecx

	mov	esi,0x10000

	mov	edi,ebp

	cld

	rep	movsb

	inc	[posy]

	inc	[lines]

	jmp	check_inv_all

; ENTER }

  noenter:

; UP {

	cmp	al,130+48

	jnz	noup

	mov	eax,[posy]

	dec	eax

	jns	@f

	xor	eax,eax

    @@: mov	ecx,[top_line]

	cmp	eax,ecx

	jae	@f

	dec	ecx

	jns	@f

	xor	ecx,ecx

    @@: jmp	check_inv_all.skip_init

; UP }

  noup:

; DOWN {

	cmp	al,129+48

	jnz	nodown

	mov	eax,[posy]

	inc	eax

	cmp	eax,[lines]

	jb	@f

	dec	eax

    @@: mov	ecx,[top_line]

	mov	edx,eax

	sub	edx,ecx

	cmp	edx,[slines]

	jb	@f

	inc	ecx

    @@: jmp	check_inv_all.skip_init

; DOWN }

  nodown:

; LEFT {

	cmp	al,128+48

	jnz	noleft

	mov	eax,[posx]

	dec	eax

	jns	@f

	inc	eax

    @@: mov	[posx],eax

	jmp	check_inv_all

; LEFT }

  noleft:

; RIGHT {

	cmp	al,131+48

	jnz	noright

	mov	eax,[posx]

	inc	eax

	cmp	eax,[columns]

	jbe	@f

	dec	eax

    @@: mov	[posx],eax

	jmp	check_inv_all

; RIGHT }

  noright:

; PAGE_UP {

  page_up:

	cmp	al,136+48

	jnz	nopu

	mov	edx,[slines]

	dec	edx

	mov	eax,[posy]

	mov	ecx,[top_line]

	sub	eax,edx

	jns	@f

	xor	eax,eax

    @@: sub	ecx,edx

	jns	@f

	xor	ecx,ecx

    @@: jmp	check_inv_all.skip_init

; PAGE_UP }

  nopu:

; PAGE_DOWN {

  page_down:

	cmp	al,135+48

	jnz	nopd

	mov	edx,[slines]

	dec	edx

	mov	eax,[posy]

	mov	ecx,[top_line]

	add	eax,edx

	add	ecx,edx

	cmp	eax,[lines]

	jb	@f

	mov	eax,[lines]

	dec	eax

    @@: jmp  check_inv_all.skip_init

; PAGE_DOWN }

  nopd:

; HOME {

	cmp	al,132+48

	jnz	nohome

	mov	[posx],0

	jmp	check_inv_all

; HOME }

  nohome:

; END {

  end_key:

	cmp	al,133+48

	jnz	noend

	mov	ecx,[posy]

	call	get_line_offset

	call	get_real_length

	mov	[posx],eax

	jmp	check_inv_all

; END }

  noend:

; GO_START {

	cmp	al,251	       ; Ctrl + [

	jnz	no_go_to_start

	xor	eax,eax

	mov	[top_line],eax

	mov	[posy],eax

	jmp	check_inv_all.skip_check

; GO_START }

  no_go_to_start:

; GO_END {

	cmp	al,253	       ; Ctrl + ]

	jnz	no_go_to_end

	mov	eax,[lines]    ; eax = lines in the file

	mov	[posy],eax

	sub	eax,[slines]   ; eax -= lines on the screen

	jns	@f

	xor	eax,eax

    @@: mov	[top_line],eax

	dec	[posy]

	jmp	check_inv_all.skip_check

; GO_END }

  no_go_to_end:

; DELETE {

  __key_delete:

	cmp	al,134+48

	jne	nodel

	mov	ecx,[posy]

	call	get_line_offset

	lea	ebx,[esi+4]

	mov	ebp,esi

	call	get_real_length

	or	eax,eax

	je	.line_up

	mov	ecx,[posx]

	cmp	ecx,eax

	jae	.line_up

	lea	edi,[ebx+ecx]

	neg	ecx

	add	ecx,[ebp]

	repe	scasb

	je	.line_up

	mov	edi,ebx

	mov	ecx,[posx]

	add	edi,ecx

	lea	esi,[edi+1]

	neg	ecx

	add	ecx,[ebp]

	dec	ecx