kolibrios/programs/other/outdated/cmd/trunk/cmd.asm

; CMD - Command line interpreter
; copyleft Chemist dmitry_gt@tut.by
;
; Compile with FASM for Menuet
;
;

use32

 org 0x0

 db 'MENUET01'
 dd 0x01
 dd START
 dd I_END
 dd 0x300000
 dd 0x7fff0
 dd 0x0
 dd 0x0

include "..\..\..\..\macros.inc"
include "lang.inc" ; Language support for locales: de_DE, en_US.
START:

 call cmdexist
 call draw
 call fill
 call clearcmd
 call autoexec
 call ppr
 call cursor

still:

 mov eax,10
 mcall

 cmp eax,1
 je re
 cmp eax,2
 je key
 cmp eax,3
 je button

 jmp still

button:
 mov eax,17
 mcall

 cmp ah,1
 jne noclose

 jmp exit

noclose:
 jmp still

re:
 call draw
 call red
 jmp still

red:
 call cls1

 mov dword [xpos],24

 mov dword [linev],2000

 mov eax,dword [ypos]
 push eax

 mov dword [ypos],6

 mov ecx,dword [lpress]
loop1:
 push ecx
 mov eax,4
 mov ebx,[ypos]
 shl ebx,16
 add ebx,[xpos]
 mov ecx,0x00ddeeff
 mov edx,tic_table
 add edx,dword [linev]
 mov esi,81
 mcall
 add dword [xpos],10
 add dword [linev],81
 pop ecx
 loop loop1

 sub dword [xpos],10

no_line:
 pop eax
 mov dword [ypos],eax

no_red:
 ret

key:
 mov eax,2
 mcall

 cmp ah,27
 jne no_escape

 mov dword [ypos],42
 call clearstr
 call ppr
 mov dword [count],0
 call cursor
 jmp still

no_escape:
 cmp ah,178
 jne no_aup
 cmp dword [count],0
 jne no_aup
 cmp dword [oldcount],0
 je no_aup

 call clearsum
 sub dword [ypos],6

 cld
 mov ecx,81
 mov edi,tic_table+600
 mov esi,tic_table+900
 rep movsb

 cld
 mov ecx,dword [oldcount]
 mov edi,tic_table
 add edi,dword [linen]
 mov esi,tic_table+600
 rep movsb

 call red

 mov eax,dword [oldcount]
 mov dword [count],eax

 add dword [linen],eax
 add dword [linel],eax

 mov ebx,6
 imul ebx,eax

 add dword [ypos],ebx

 call cursor

 jmp still

no_aup:
 cmp ah,8
 jne no_backspace
 cmp dword [count],0
 je still

 cmp dword [count],0
 je no_backspace

 call clearsum
 sub dword [ypos],12
 call clearsum
 sub dword [ypos],6
 call cursor
 dec dword [count]
 jmp still

no_backspace:
 cmp ah,13
 jne no_enter

 cmp dword [count],0
 jne enter_ok
 call clearsum
 jmp ecmd2

enter_ok:
 call checkcmd

 cmp byte [tic_table+600],'/'
 jne no_script
 cmp dword [count],1
 je nparam5

 jmp command

no_script:

 call oldcmd

 call checkprg

 jmp ecmd2

no_enter:

 cmp ah,176    ; Arrow keys, HOME, END, and DEL are unsupported now
 je still
 cmp ah,179
 je still
 cmp ah,177
 je still
 cmp ah,178
 je still
 cmp ah,182
 je still
 cmp ah,180
 je still
 cmp ah,181
 je still

 cmp dword [count],74
 je still

 mov byte [smb],ah

 mov edi,tic_table+600
 add edi,dword [count]
 mov esi,smb
 movsb

 inc dword [count]

 call clearsum
 sub dword [ypos],6
 call print
 add dword [ypos],6
 call cursor

 jmp still

clearstr:
 mov dword [ypos],6
 mov dword [clr],480
 call clear

 mov eax,dword [linel]
 sub dword [linen],eax
 mov dword [linel],0

 mov ecx,eax
 push eax
loop4:
 push ecx
 mov edi,tic_table
 add edi,dword [linen]
 mov esi,fill1
 movsb

 inc dword [linen]
 pop ecx
 loop loop4

 pop eax
 sub dword [linen],eax

 mov dword [ypos],42

 ret

clearsum:
 mov dword [clr],6
 call clear

 dec dword [linen]
 dec dword [linel]

 mov edi,tic_table
 add edi,dword [linen]
 mov esi,fill1
 movsb

 ret

clear:
 mov eax,13
 mov ebx,[ypos]
 shl ebx,16
 add ebx,[clr]
 mov ecx,[xpos]
 shl ecx,16
 add ecx,9
 mov edx,0
 mcall
 add dword [ypos],6
 ret

draw:

 mov eax,12
 mov ebx,1
 mcall

 mov eax,0
 mov ebx,100*65536+492
 mov ecx,100*65536+280
 mov edx,0x13000000
 mov edi,title
 mcall

 mov eax,12
 mov ebx,2
 mcall

 ret

print:
 mov eax,4
 mov ebx,[ypos]
 shl ebx,16
 add ebx,[xpos]
 mov ecx,0x00ddeeff
 mov edx,smb
 mov esi,1
 mcall

 mov edi,tic_table
 add edi,dword [linen]
 mov esi,smb
 movsb
 inc dword [linen]
 inc dword [linel]

 ret

cursor:
 mov eax,4
 mov ebx,[ypos]
 shl ebx,16
 add ebx,[xpos]
 mov ecx,0x00ddeeff
 mov edx,smb_cursor
 mov esi,1
 mcall

 mov edi,tic_table
 mov esi,smb_cursor
 add edi,dword [linen]
 movsb
 inc dword [linen]
 inc dword [linel]

 ret

ppr:
 mov eax,4
 mov ebx,6
 shl ebx,16
 add ebx,[xpos]
 mov ecx,0x00ddeeff
 mov edx,prompt
 mov esi,5
 mcall
 mov dword [ypos],42

 cld
 mov ecx,5
 mov edi,tic_table
 add edi,dword [linen]
 mov esi,prompt
 rep movsb

 add dword [linen],6
 add dword [linel],6

 ret

help:
 cmp byte [callp],1
 je gonext8
 call clearsum
gonext8:
 call newline
 call newline
 mov edx,h1
 call printf
 call newline
 mov edx,h2
 call printf
 call newline
 call newline
 mov edx,h3
 call printf
 call newline
 call newline
 mov edx,h4
 call printf
 call newline
 mov edx,h5
 call printf
 call newline
 mov edx,h6
 call printf
 call newline
 mov edx,h7
 call printf
 call newline
 call newline
 mov edx,h8
 call printf
 call newline
 mov edx,h9
 call printf
 call newline
 mov edx,h10
 call printf
 call newline
 mov edx,h11
 call printf
 call newline
 mov edx,h12
 call printf
 call newline
 mov edx,h13
 call printf
 call newline
 call newline
 mov edx,h14
 call printf
 call newline
 call newline
 mov edx,h15
 call printf
 call newline
 mov edx,h16
 call printf
 call newline

 cmp byte [callp],1
 je go

 jmp ecmd

ver:
 cmp byte [callp],1
 je gonext7
 call clearsum
gonext7:
 call newline
 mov edx,about
 call printf

 cmp byte [callp],1
 je go

 jmp ecmd

pause1:
 cmp byte [callp],1
 je gonext1
 call clearsum
gonext1:
 call pause2

 cmp byte [callp],1
 je go

 jmp ecmd

ls:
 call oldcmd
 call cls2
	and	dword [dirinfo+4], 0
loopls:

	mov	eax, 70
	mov	ebx, dirinfo
	mcall
	inc	dword [dirinfo+4]
	cmp	ebx, 1
	jnz	ls_end
	mov	esi, direntry_buffer+32+40
	mov	edi, filename
@@:
	lodsb
	stosb
	test	al, al
	jnz	@b
@@:
	cmp	edi, filename+12
	jae	ls_print
	stosb
	jmp	@b

ls_print_done:
 inc byte [lscntf]

 add dword [ypos],96

 cmp byte [lscntf],5
 jne no_newline

 mov byte [lscntf],0
 inc byte [lscntx]

 cmp byte [lscntx],23
 je pause2n

 mov dword [ypos],6
 call newline

no_newline:
 add dword [lscnt],24
 jmp no_pause2

pause2n:
 mov byte [lscntx],0

 call newline
 call pause2
 call cls2
 mov dword [lscnt],8024
 jmp loopls

no_pause2:
 mov dword [lscnt],8024

 jmp loopls

ls_end:
 mov dword [lscnt],8024
 mov byte [lscntf],0
 mov byte [lscntx],0

 cmp byte [callp],1
 je go

 jmp ecmd2

ls_print:

 mov eax,4
 mov ebx,[ypos]
 shl ebx,16
 add ebx,[xpos]
 mov edx,filename
 mov ecx,0x00ddeeff
 mov esi,12
 mcall

 cld
 mov ecx,12
 mov edi,tic_table
 add edi,dword [linen]
 mov esi,filename
 rep movsb

 add dword [linen],16
 add dword [linel],16

 jmp ls_print_done

lscheck:
 cmp byte [callp],1
 je gonext9
 call clearsum
gonext9:
 sub dword [count],3

 cld
 mov ecx,dword [count]
 mov edi,tic_table+400
 mov esi,tic_table+600
 add esi,3
 rep movsb

 mov ebx,tic_table+400
 push esi edi ecx eax
 mov esi,ebx

 mov edi,tic_table+400
 mov ecx,70
strup2:
 mov al,[esi]
 cmp al,'A'
 jb @f
 cmp al,'z'
 ja @f
 cmp al,'a'
 jb @f
 add al,-0x20
@@:
 mov [edi],al
 inc esi
 inc edi
 dec ecx
 jnz strup2
 pop eax ecx edi esi

 mov ecx,dword [count]

looplsc:
 cmp byte [tic_table+400+ecx],'.'
 je chdot

 loop looplsc

 jmp chnodot

chdot:
 mov ebx,dword [count]

 cld
 mov ecx,5
 mov edi,tic_table+400
 add edi,ebx
 mov esi,dzero
 rep movsb

 mov eax,6
 mov ebx,tic_table+400
 mov ecx,0
 mov edx,-1
 mov esi,tic_table+25000
 mcall

 cmp eax,4294967295
 je nosuchfile

 jmp lschok

chnodot:
 mov ebx,dword [count]

 mov edi,tic_table+400
 add edi,ebx
 mov esi,ddot
 movsb

 inc ebx

 cld
 mov ecx,3
 mov edi,tic_table+400
 add edi,ebx
 mov esi,fill3
 rep movsb

 mov eax,6
 mov ebx,tic_table+400
 mov ecx,0
 mov edx,-1
 mov esi,tic_table+25000
 mcall

 cmp eax,4294967295
 je nosuchfile

 mov edi,tic_table+400
 add edi,dword [count]
 mov esi,fill1
 movsb

lschok:
 call newline

 mov eax,4
 mov ebx,6
 shl ebx,16
 add ebx,[xpos]
 mov edx,tic_table+400
 mov esi,12
 mov ecx,0x00ddeeff
 mcall

 cld
 mov ecx,12
 mov edi,tic_table
 add edi,dword [linen]
 mov esi,tic_table+400
 rep movsb

 add dword [linen],12
 add dword [linel],12

 add dword [count],3

 cmp byte [callp],1
 je go

 jmp ecmd

ps:
 call oldcmd
 call cls2
 call newline
 mov edx,proc_head
 call printf
 call newline
 mov edx,proc_hd11
 call printf
 call newline
 call newline

 mov eax,9
 mov ebx,tic_table
 mov ecx,1
 mcall

 mov dword [count2],eax

ll1:
 inc dword [pn]
 mov eax,9
 mov ebx,tic_table
 mov ecx,[pn]
 mcall

 mov ebx,[tic_table+30]
 mov dword [fnumb],4
 mov dword [ypos],6
 call decnumb

 cld
 mov ecx,4
 mov edi,tic_table
 add edi,dword [linen]
 mov esi,tic_table+200
 rep movsb

 add dword [linen],5
 add dword [linel],5

 cld
 mov ecx,11
 mov esi,tic_table+10
 mov edi,pname
 rep movsb

 mov dword [ypos],36
 mov edx,pname
 mov eax,4
 mov ebx,[ypos]
 shl ebx,16
 add ebx,[xpos]
 mov ecx,0x00ddeeff
 mov esi,12
 mcall

 cld
 mov ecx,11
 mov edi,tic_table
 add edi,dword [linen]
 mov esi,pname
 rep movsb

 add dword [linen],10
 add dword [linel],10

 mov dword [ypos],94
 mov ebx,[tic_table+22]
 mov dword [fnumb],8
 call decnumb

 cld
 mov ecx,8
 mov edi,tic_table
 add edi,dword [linen]
 mov esi,tic_table+200
 rep movsb

 add dword [linen],10
 add dword [linel],10

 mov dword [ypos],154
 mov ebx,[tic_table+26]
 mov dword [fnumb],8
 call decnumb

 cld
 mov ecx,8
 mov edi,tic_table
 add edi,dword [linen]
 mov esi,tic_table+200
 rep movsb

 add dword [linen],12
 add dword [linel],12

 mov dword [ypos],228
 mov ebx,[pn]
 mov dword [fnumb],4
 call decnumb

 cld
 mov ecx,4
 mov edi,tic_table
 add edi,dword [linen]
 mov esi,tic_table+200
 rep movsb

 add dword [linel],4
 add dword [linen],4

 call newline

 mov dword [ypos],60

 cmp dword [xpos],254
 jne nscreen

 call pause2
 call cls2

 mov dword [xpos],24
 call newline
 mov dword [ypos],60

 mov edx,proc_head
 call printf
 call newline
 mov edx,proc_hd11
 call printf
 call newline
 call newline

nscreen:
 mov eax, dword [count2]
 cmp dword [pn],eax
 jne ll1
 mov dword [pn],0

 cmp byte [callp],1
 je go

 jmp ecmd2

printn:
 mov eax,47
 shl ebx,16
 mov edx,[ypos]
 shl edx,16
 add edx,[xpos]
 mov esi,0x00ddeeff
 mcall
 ret

pause2:
 call newline
 mov edx,mess1
 call printf

 mov eax,10
 mcall

red3:
 cmp eax,2
 je back
 cmp eax,3
 je exit

 call draw
 call red

 mov eax,10
 mcall
 jmp red3

back:
 mov eax,2
 mcall
 cmp ah,27
 je checmd
 ret

exit:
 mov eax,-1
 mcall

checmd:
 cmp byte [callp],1
 je ecmd3

 jmp ecmd

errr:
 call clearsum

 call newline

 call ppr
 cmp dword [count],0
 je ecmd1
 mov edx,err1
 mov eax,4
 mov ebx,[ypos]
 shl ebx,16
 add ebx,[xpos]
 mov ecx,0x00ddeeff
 mov esi,33
 mcall

 cld
 mov ecx,27
 mov edi,tic_table
 add edi,dword [linen]
 mov esi,err1
 rep movsb

 add dword [linen],27
 add dword [linel],27

 call clearcmd

 jmp cmd_ok2

nparam:
 cmp byte [callp],1
 je gonext4
 call clearsum
gonext4:
 call newline
 mov edx,mess2
 call printf

 cmp byte [callp],1
 je go

 jmp ecmd

nparam2:
 cmp byte [callp],1
 je gonext3
 call clearsum
gonext3:
 call newline
 mov edx,mess5
 call printf

 cmp byte [callp],0
 je ecmd

 jmp go

cp:
 cmp byte [callp],1
 je gonext10
 call clearsum
gonext10:
 sub dword [count],3

 cld
 mov ecx,dword [count]
 mov edi,tic_table+400
 mov esi,tic_table+600
 add esi,3
 rep movsb

 mov ecx,12
loop50:
 cmp byte [tic_table+400+ecx],'+'
 je file2

 loop loop50

 add dword [count],3
 jmp nparam3

file2:
 mov dword [f1len],ecx

 inc ecx
 mov ebx,ecx
 cld
 mov edi,tic_table+9000
 mov esi,tic_table+400
 rep movsb

 mov ecx,12
 mov edi,tic_table+9100
 mov esi,tic_table+400
 add esi,ebx
 rep movsb

 mov ebx,tic_table+9000
 push esi edi ecx eax
 mov esi,ebx

 mov edi,tic_table+9000
 mov ecx,12
strup3:
 mov al,[esi]
 cmp al,'A'
 jb @f
 cmp al,'z'
 ja @f
 cmp al,'a'
 jb @f
 add al,-0x20
@@:
 mov [edi],al
 inc esi
 inc edi
 dec ecx
 jnz strup3
 pop eax ecx edi esi

 mov ecx,dword [f1len]

loopcp:
 cmp byte [tic_table+9000+ecx],'.'
 je chdotcp

 loop loopcp

 jmp chnodotcp

chdotcp:
 mov ebx,dword [f1len]

 cld
 mov ecx,4
 mov edi,tic_table+9000
 add edi,ebx
 mov esi,dzero
 rep movsb

 jmp gocp1

chnodotcp:
 mov ebx,dword [f1len]

 mov edi,tic_table+9000
 add edi,ebx
 mov esi,ddot
 movsb

 inc ebx

 cld
 mov ecx,3
 mov edi,tic_table+9000
 add edi,ebx
 mov esi,fill3
 rep movsb

gocp1:
 mov eax,6
 mov ebx,tic_table+9000
 mov ecx,0
 mov edx,-1
 mov esi,tic_table+25000
 mcall

 cmp eax,4294967295
 je nosuchfile

 mov dword [filesize],eax

 mov ebx,tic_table+9100
 push esi edi ecx eax
 mov esi,ebx

 mov edi,tic_table+9100
 mov ecx,12
strup4:
 mov al,[esi]
 cmp al,'A'
 jb @f
 cmp al,'z'
 ja @f
 cmp al,'a'
 jb @f
 add al,-0x20
@@:
 mov [edi],al
 inc esi
 inc edi
 dec ecx
 jnz strup4
 pop eax ecx edi esi

 mov ebx,dword [f1len]
 mov ecx,dword [count]
 sub ecx,ebx

 mov dword [f2len],ecx

loopcp2:
 cmp byte [tic_table+9100+ecx],'.'
 je chdotcp2

 loop loopcp2

 jmp chnodotcp2

chdotcp2:
 mov ebx,dword [f2len]

 cld
 mov ecx,4
 mov edi,tic_table+9100
 add edi,ebx
 mov esi,dzero
 rep movsb

 jmp gocp2

chnodotcp2:
 mov ebx,dword [f2len]

 mov edi,tic_table+9100
 add edi,ebx
 mov esi,ddot
 movsb

 inc ebx

 cld
 mov ecx,3
 mov edi,tic_table+9100
 add edi,ebx
 mov esi,fill3
 rep movsb

gocp2:
 mov eax,6
 mov ebx,tic_table+9100
 mov ecx,0
 mov edx,-1
 mov esi,tic_table+25000
 mcall

 cmp eax,4294967295
 jne alreadyexist

 mov eax,33
 mov ebx,tic_table+9100
 mov ecx,tic_table+25000
 mov edx,dword [filesize]
 mov esi,0
 mcall

 cmp eax,0
 jne no_ok

 mov eax,6
 mov ebx,tic_table+9100
 mov ecx,0
 mov edx,-1
 mov esi,tic_table+25000
 mcall

 cmp eax,4294967295
 je no_ok

 call newline
 mov edx,mess11
 call printf
 jmp cp_end

no_ok:
 call newline
 mov edx,mess12
 call printf

cp_end:
 add dword [count],3

 cmp byte [callp],1
 je go

 jmp ecmd

alreadyexist:
 add dword [count],3
 call newline
 mov edx,mess13
 call printf

 cmp byte [callp],1
 je go

 jmp ecmd

rn:
 cmp byte [callp],1
 je gonext11
 call clearsum
gonext11:
 sub dword [count],3

 cld
 mov ecx,dword [count]
 mov edi,tic_table+400
 mov esi,tic_table+600
 add esi,3
 rep movsb

 mov ecx,12
loop51:
 push ecx
 cmp byte [tic_table+400+ecx],'+'
 je file3

 pop ecx
 loop loop51

 add dword [count],3
 jmp nparam4

file3:
 mov dword [f1len],ecx

 inc ecx
 mov ebx,ecx
 cld
 mov edi,tic_table+9000
 mov esi,tic_table+400
 rep movsb

 mov ecx,12
 mov edi,tic_table+9100
 mov esi,tic_table+400
 add esi,ebx
 rep movsb

 mov ebx,tic_table+9000
 push esi edi ecx eax
 mov esi,ebx

 mov edi,tic_table+9000
 mov ecx,12
strup5:
 mov al,[esi]
 cmp al,'A'
 jb @f
 cmp al,'z'
 ja @f
 cmp al,'a'
 jb @f
 add al,-0x20
@@:
 mov [edi],al
 inc esi
 inc edi
 dec ecx
 jnz strup5
 pop eax ecx edi esi

 mov ecx,dword [f1len]

looprn:
 cmp byte [tic_table+9000+ecx],'.'
 je chdotrn

 loop looprn

 jmp chnodotrn

chdotrn:
 mov ebx,dword [f1len]

 cld
 mov ecx,4
 mov edi,tic_table+9000
 add edi,ebx
 mov esi,dzero
 rep movsb

 jmp gorn1

chnodotrn:
 mov ebx,dword [f1len]

 mov edi,tic_table+9000
 add edi,ebx
 mov esi,ddot
 movsb

 inc ebx

 cld
 mov ecx,3
 mov edi,tic_table+9000
 add edi,ebx
 mov esi,fill3
 rep movsb

gorn1:
 mov eax,6
 mov ebx,tic_table+9000
 mov ecx,0
 mov edx,-1
 mov esi,tic_table+25000
 mcall

 cmp eax,4294967295
 je nosuchfile

 mov ebx,tic_table+9100
 push esi edi ecx eax
 mov esi,ebx

 mov edi,tic_table+9100
 mov ecx,12
strup6:
 mov al,[esi]
 cmp al,'A'
 jb @f
 cmp al,'z'
 ja @f
 cmp al,'a'
 jb @f
 add al,-0x20
@@:
 mov [edi],al
 inc esi
 inc edi
 dec ecx
 jnz strup6
 pop eax ecx edi esi

 mov ebx,dword [f1len]
 mov ecx,dword [count]
 sub ecx,ebx

 mov dword [f2len],ecx

looprn2:
 cmp byte [tic_table+9100+ecx],'.'
 je chdotrn2

 loop looprn2

 jmp chnodotrn2

chdotrn2:
 mov ebx,dword [f2len]

 cld
 mov ecx,4
 mov edi,tic_table+9100
 add edi,ebx
 mov esi,dzero
 rep movsb

 jmp gorn2

chnodotrn2:
 mov ebx,dword [f2len]

 mov edi,tic_table+9100
 add edi,ebx
 mov esi,ddot
 movsb

 inc ebx

 cld
 mov ecx,3
 mov edi,tic_table+9100
 add edi,ebx
 mov esi,fill3
 rep movsb

gorn2:
 mov eax,6
 mov ebx,tic_table+9100
 mov ecx,0
 mov edx,-1
 mov esi,tic_table+25000
 mcall

 cmp eax,4294967295
 jne alreadyexist

 mov eax,6
 mov ebx,tic_table+9000
 mov ecx,0
 mov edx,-1
 mov esi,tic_table+25000
 mcall

 mov dword [filesize],eax

 mov eax,33
 mov ebx,tic_table+9100
 mov ecx,tic_table+25000
 mov edx,dword [filesize]
 mov esi,0
 mcall

 cmp eax,0
 jne no_ok1

 mov eax,6
 mov ebx,tic_table+9100
 mov ecx,0
 mov edx,-1
 mov esi,tic_table+25000
 mcall

 cmp eax,4294967295
 je no_ok1

 mov eax,32
 mov ebx,tic_table+9000
 mcall

 call newline
 mov edx,mess14
 call printf
 jmp rn_end

no_ok1:
 call newline
 mov edx,mess15
 call printf

rn_end:
 add dword [count],3

 cmp byte [callp],1
 je go

 jmp ecmd

del:
 cmp byte [callp],1
 je gonext12
 call clearsum
gonext12:
 sub dword [count],4

 cld
 mov ecx,dword [count]
 mov edi,tic_table+400
 mov esi,tic_table+600
 add esi,4
 rep movsb

 mov ebx,tic_table+400
 push esi edi ecx eax
 mov esi,ebx

 mov edi,tic_table+400
 mov ecx,70
strup1:
 mov al,[esi]
 cmp al,'A'
 jb @f
 cmp al,'z'
 ja @f
 cmp al,'a'
 jb @f
 add al,-0x20
@@:
 mov [edi],al
 inc esi
 inc edi
 dec ecx
 jnz strup1
 pop eax ecx edi esi

 mov ecx,dword [count]

loopdel:
 cmp byte [tic_table+400+ecx],'.'
 je chdotdel

 loop loopdel

 jmp chnodotdel

chdotdel:
 mov ebx,dword [count]

 cld
 mov ecx,4
 mov edi,tic_table+400
 add edi,ebx
 mov esi,dzero
 rep movsb

 jmp godel

chnodotdel:
 mov ebx,dword [count]

 mov edi,tic_table+400
 add edi,ebx
 mov esi,ddot
 movsb

 inc ebx

 cld
 mov ecx,3
 mov edi,tic_table+400
 add edi,ebx
 mov esi,fill3
 rep movsb

godel:
 mov eax,6
 mov ebx,tic_table+400
 mov ecx,0
 mov edx,-1
 mov esi,tic_table+25000
 mcall

 cmp eax,4294967295
 je nosuchfile2

 mov eax,32
 mov ebx,tic_table+400
 mcall

 call newline
 mov edx,mess6
 call printf

 add dword [count],4

del_end:
 add dword [count],4

 cmp byte [callp],1
 je go

 jmp ecmd

nosuchfile:
 add dword [count],3
 call newline
 mov edx,mess7
 call printf

 cmp byte [callp],0
 je ecmd

 jmp go

nosuchfile2:
 add dword [count],4
 call newline
 mov edx,mess7
 call printf

 cmp byte [callp],1
 je go

 jmp ecmd

nosuchfile3:
 inc dword [count]
 call newline
 mov edx,mess7
 call printf
 jmp ecmd

autoexec:
 mov eax,6
 mov ebx,autoexfile
 mov ecx,0
 mov edx,-1
 mov esi,tic_table+15000
 mcall

 cmp eax,4294967295
 je noaxfile

 sub dword [linen],81
 sub dword [xpos],10
 dec dword [lpress]

 jmp autolabel

noaxfile:
 ret

command:
 call clearsum
 dec dword [count]

 cld
 mov ecx,dword [count]
 mov edi,filename
 mov esi,tic_table+601
 rep movsb

 mov ebx,filename
 push esi edi ecx eax
 mov esi,ebx

 mov edi,filename
 mov ecx,12
strup7:
 mov al,[esi]
 cmp al,'A'
 jb @f
 cmp al,'z'
 ja @f
 cmp al,'a'
 jb @f
 add al,-0x20
@@:
 mov [edi],al
 inc esi
 inc edi
 dec ecx
 jnz strup7
 pop eax ecx edi esi

 cld
 mov ecx,4
 mov edi,filename+8
 mov esi,dcmd
 rep movsb

 mov eax,6
 mov ebx,filename
 mov ecx,0
 mov edx,-1
 mov esi,tic_table+15000
 mcall

 cmp eax,4294967295
 je nosuchfile3

autolabel:
 mov dword [filesize2],eax
 mov byte [callp],1

go:
 call clearcmd

gonext:
 cmp dword [filesize2],0
 je ecmd3

 mov ebx,tic_table
 add ebx,dword [readcnt]
 cmp byte [ebx],13
 je read

 inc dword [readcnt]
 inc dword [readcnt2]
 dec dword [filesize2]

 jmp gonext

read:
 mov ecx,dword [readcnt2]
 mov ebx,0
 mov edx,dword [readcnt]
 sub edx,dword [readcnt2]
loop60:
 push ecx
 mov edi,tic_table+600
 add edi,ebx
 mov esi,tic_table
 add esi,edx
 movsb

 inc ebx
 inc edx

 pop ecx
 loop loop60

 mov eax,dword [readcnt2]
 mov dword [count],eax

 mov dword [readcnt2],0
 add dword [readcnt],2

 jmp checkcmd

decnumb:
 cmp dword [fnumb],4
 je go1

 call divide
 mov dword [n8],edx
 mov ebx,eax
 call divide
 mov dword [n7],edx
 mov ebx,eax
 call divide
 mov dword [n6],edx
 mov ebx,eax
 call divide
 mov dword [n5],edx
 mov ebx,eax

go1:
 call divide
 mov dword [n4],edx
 mov ebx,eax
 call divide
 mov dword [n3],edx
 mov ebx,eax
 call divide
 mov dword [n2],edx
 mov ebx,eax
 call divide
 mov dword [n1],edx

 add dword [n1],48
 add dword [n2],48
 add dword [n3],48
 add dword [n4],48

 cmp dword [fnumb],4
 je go2

 add dword [n5],48
 add dword [n6],48
 add dword [n7],48
 add dword [n8],48

go2:
 mov edi,tic_table+200
 mov esi,n1
 movsb
 mov edi,tic_table+201
 mov esi,n2
 movsb
 mov edi,tic_table+202
 mov esi,n3
 movsb
 mov edi,tic_table+203
 mov esi,n4
 movsb

 cmp dword [fnumb],4
 je go4

 mov edi,tic_table+204
 mov esi,n5
 movsb
 mov edi,tic_table+205
 mov esi,n6
 movsb
 mov edi,tic_table+206
 mov esi,n7
 movsb
 mov edi,tic_table+207
 mov esi,n8
 movsb

go4:
 mov eax,4
 mov ebx,[ypos]
 shl ebx,16
 add ebx,[xpos]
 mov ecx,0x00ddeeff
 mov edx,tic_table+200
 mov esi,dword [fnumb]
 mcall

 ret

divide:
 mov eax,ebx
 xor edx,edx
 mov ecx,10
 div ecx
 ret

kill:
 mov eax,0
 mov ebx,0
 mov ecx,0
 mov edx,0

 mov al, byte [tic_table+608]
 mov bl, byte [tic_table+607]
 mov cl, byte [tic_table+606]
 mov dl, byte [tic_table+605]

 sub al,48
 sub bl,48
 sub cl,48
 sub dl,48

 imul ebx,10
 imul ecx,100
 imul edx,1000

 mov esi,0
 add esi,eax
 add esi,ebx
 add esi,ecx
 add esi,edx
 mov ecx,esi

 mov eax,9
 mov ebx,tic_table
 mcall

 cmp eax,ecx
 jb nosuchprocess

 mov eax,18
 mov ebx,2
 mov edx,0
 mcall

 call clearsum
 call newline
 mov edx,mess3
 call printf
 call newline
 mov edx,mess4
 call printf

 cmp byte [callp],1
 je go

 jmp ecmd

ecmd1:
 sub dword [xpos],10
 jmp ecmd

nosuchprocess:
 call clearsum
 call newline
 mov edx,mess8
 call printf

 cmp byte [callp],1
 je go

 jmp ecmd

echoeol:
 cmp byte [callp],1
 je gonext15
 call clearsum
gonext15:
 call newline

 cmp byte [callp],1
 je go

 jmp ecmd

echo:
 cmp byte [callp],1
 je gonext13
 call clearsum
gonext13:
 sub dword [count],5

 cld
 mov ecx,dword [count]
 mov edi,tic_table+300
 mov esi,tic_table+600
 add esi,5
 rep movsb

 call newline

 mov eax,4
 mov ebx,6
 shl ebx,16
 add ebx,[xpos]
 mov edx,tic_table+300
 mov ecx,0x00ddeeff
 mov esi,dword [count]
 mcall

 cld
 mov ecx,dword [count]
 mov edi,tic_table
 add edi,dword [linen]
 mov esi,tic_table+300
 rep movsb

 mov eax,dword [count]
 add dword [linen],eax
 add dword [linel],eax

 add dword [count],5

 cmp byte [callp],1
 je go

 jmp ecmd

printf:
 mov eax,4
 mov ebx,6
 shl ebx,16
 add ebx,[xpos]
 mov ecx,0x00ddeeff
 mov esi,45
 mcall

 cld
 mov ecx,45
 mov edi,tic_table
 add edi,dword [linen]
 mov esi,edx
 rep movsb

 add dword [linen],46
 add dword [linel],46

 add dword [ypos],6

 ret

printipc:
 mov eax,4
 mov ebx,6
 shl ebx,16
 add ebx,[xpos]
 mov ecx,0x00ddeeff
 mov esi,79
 mcall

 cld
 mov ecx,79
 mov edi,tic_table
 add edi,dword [linen]
 mov esi,edx
 rep movsb

 add dword [linen],80
 add dword [linel],80

 mov dword [ypos],480

 ret

clearcmd:
 cld
 mov ecx,80
 mov edi,tic_table+600
 mov esi,tic_table+500
 rep movsb

 mov ecx,80
 mov edi,tic_table+400
 mov esi,tic_table+500
 rep movsb

 mov ecx,81
 mov edi,tic_table+800
 mov [esi],byte 'x'
 rep movsb

 mov ecx,12
 mov edi,filename
 mov esi,pname
 rep movsb

 mov dword [count],0
 mov dword [pn],0
 mov dword [blockcnt],0
 mov dword [lscnt],8024
 ret

oldcmd:
 mov eax,dword [count]
 mov dword [oldcount],eax

 cld
 mov ecx,81
 mov edi,tic_table+900
 mov esi,tic_table+500
 rep movsb

 cld
 mov ecx,81
 mov edi,tic_table+900
 mov esi,tic_table+600
 rep movsb

 ret

ecmd:
 call oldcmd
 call clearcmd
 call newline

 call ppr
 call cursor

 jmp still

ecmd2:
 call clearcmd
 call newline

 call ppr
 call cursor
 jmp still

ecmd3:
 call clearcmd
 call newline

 call ppr
 call cursor

 mov dword [readcnt],15000
 mov dword [readcnt2],0
 mov byte [callp],0
 mov dword [filesize2],0

 jmp still

chparam:
 pop ecx
 mov eax,ecx
 mov edx,eax
 push edx
 inc eax

 cld
 mov edi,tic_table+400
 mov esi,tic_table+600
 rep movsb

 mov ecx,dword [count]
 sub ecx,eax

 cld
 mov edi,tic_table+800
 mov esi,tic_table+600
 add esi,eax
 rep movsb

 pop edx

 mov dword [ipccount],edx

 cld
 mov ecx,11
 mov edi,tic_table+400
 add edi,edx
 mov esi,qspace
 rep movsb

 mov ebx,tic_table+400
 mov ecx,tic_table+800
 call start_rd_app

 cmp eax,0xfffffff0
 jb cmd_ok

 jmp errr

cls:
 call oldcmd
 call cls2

 cmp byte [callp],0
 jne needret

 call clearcmd
 call ppr
 call cursor

 jmp still

needret:
 sub dword [linen],81
 dec dword [lpress]
 sub dword [xpos],10

 jmp gonext

cls1:
 mov eax,13
 mov ebx,6*65536+483
 mov ecx,24*65536+250
 mov edx,0
 mcall
 ret

cls2:
 mov dword [linen],2000
 mov ecx,2025
loop2:
 push ecx
 mov edi,tic_table
 add edi,dword [linen]
 mov esi,fill1
 movsb

 inc dword [linen]
 pop ecx
 loop loop2

 mov dword [linel],0
 mov dword [linen],2000
 mov dword [linev],2000
 mov dword [xpos],24
 mov dword [ypos],6
 mov dword [lpress],1
 mov dword [stnum],1

 call cls1

 ret

chscr:
 cmp dword [xpos],264
 jne no_scr

 mov dword [cnt_loop1],4500
 mov dword [cnt_loop2],2000

 mov ecx,2025
loop10:
 push ecx
 mov edi,tic_table
 add edi,dword [cnt_loop1]
 mov esi,tic_table
 add esi,dword [cnt_loop2]
 movsb

 inc dword [cnt_loop1]
 inc dword [cnt_loop2]

 pop ecx
 loop loop10

 mov dword [cnt_loop1],2000

 mov ecx,2025
loop11:
 push ecx
 mov edi,tic_table
 add edi,dword [cnt_loop1]
 mov esi,fill1
 movsb

 inc dword [cnt_loop1]

 pop ecx
 loop loop11

 mov dword [cnt_loop1],2000
 mov dword [cnt_loop2],4581

 mov ecx,1944
loop12:
 push ecx
 mov edi,tic_table
 add edi,dword [cnt_loop1]
 mov esi,tic_table
 add esi,dword [cnt_loop2]
 movsb

 inc dword [cnt_loop1]
 inc dword [cnt_loop2]

 pop ecx
 loop loop12

 dec dword [lpress]
 sub dword [linen],81

 mov dword [xpos],264
 mov dword [ypos],6
 mov dword [clr],480
 call clear

 call red

no_scr:
 ret

newline:
 call chscr
 push edx
 mov edx,81
 sub edx,dword [linel]
 add dword [linen],edx
 pop edx

 inc dword [lpress]

 mov dword [linel],0
 add dword [xpos],10
 ret

fill:
 cld
 mov ecx,81
 mov edi,tic_table+500
 mov esi,fill1
 rep movsb
 ret

nparam3:
 cmp byte [callp],1
 je gonext5
 call clearsum
gonext5:
 call newline
 mov edx,mess9
 call printf

 cmp byte [callp],1
 je go

 jmp ecmd

nparam4:
 cmp byte [callp],1
 je gonext6
 call clearsum
gonext6:
 call newline
 mov edx,mess0
 call printf

 cmp byte [callp],1
 je go

 jmp ecmd

nparam5:
 cmp byte [callp],1
 je gonext14
 call clearsum
gonext14:
 call newline
 mov edx,mess16
 call printf
 jmp ecmd

endscr:
 cmp byte [callp],1
 je ecmd3
 call clearsum
 call newline
 mov edx,mess17
 call printf
 jmp ecmd

checkcmd:
 cmp dword [tic_table+600],'help'
 jne no_help
 cmp dword [count],4
 jne no_help

 jmp help

no_help:
 cmp dword [tic_table+600],'exit'
 jne no_exit
 cmp dword [count],4
 jne no_exit

 jmp exit

no_exit:
 cmp word [tic_table+600],'ve'
 jne no_ver
 cmp byte [tic_table+602],'r'
 jne no_ver
 cmp dword [count],3
 jne no_ver

 jmp ver

no_ver:
 cmp word [tic_table+600],'cl'
 jne no_cls
 cmp byte [tic_table+602],'s'
 jne no_cls
 cmp dword [count],3
 jne no_cls

 jmp cls

no_cls:
 cmp dword [tic_table+600],'shut'
 jne no_shutdown
 cmp dword [tic_table+604],'down'
 jne no_shutdown
 cmp dword [count],8
 jne no_shutdown

 mov eax,18
 mov ebx,1
 mcall

 mov eax,5
 mov ebx,200
 mcall

no_shutdown:
 cmp word [tic_table+600],'ps'
 jne no_ps
 cmp dword [count],2
 je ps

no_ps:
 cmp dword [tic_table+600],'kill'
 jne no_kill
 cmp byte [tic_table+604],' '
 jne no_kill
 cmp dword [count],9
 je kill

 jmp nparam

no_kill:
 cmp dword [tic_table+600],'paus'
 jne no_pause
 cmp byte [tic_table+604],'e'
 jne no_pause
 cmp dword [count],5
 je pause1

no_pause:
 cmp dword [tic_table+600],'echo'
 jne no_echo
 cmp dword [count],4
 je echoeol
 cmp byte [tic_table+604],' '
 je echo

no_echo:
 cmp word [tic_table+600],'de'
 jne no_del
 cmp byte [tic_table+602],'l'
 jne no_del
 cmp byte [tic_table+603],' '
 jne no_del
 cmp dword [count],3
 je nparam2
 cmp dword [count],4
 je nparam2

 jmp del

no_del:
 cmp word [tic_table+600],'ls'
 jne no_ls
 cmp dword [count],2
 je ls
 cmp dword [count],3
 je ls

 jmp lscheck

no_ls:
 cmp word [tic_table+600],'cp'
 jne no_cp
 cmp dword [count],2
 je nparam3
 cmp dword [count],3
 je nparam3
 cmp dword [count],4
 je nparam3
 cmp dword [count],5
 je nparam3
 cmp byte [tic_table+602],' '
 jne no_cp

 jmp cp

no_cp:
 cmp word [tic_table+600],'rn'
 jne no_rn
 cmp dword [count],2
 je nparam4
 cmp dword [count],3
 je nparam4
 cmp dword [count],4
 je nparam4
 cmp dword [count],5
 je nparam4
 cmp byte [tic_table+602],' '
 jne no_rn

 jmp rn

no_rn:
 cmp dword [tic_table+600],'ends'
 jne no_end
 cmp dword [count],4
 je endscr

no_end:
 cmp byte [callp],1
 je checkprg

 ret

checkprg:
 mov ebx,tic_table+600
 push esi edi ecx eax
 mov esi,ebx

 mov edi,tic_table+600
 mov ecx,74
strup:
 mov al,[esi]
 cmp al,'A'
 jb @f
 cmp al,'z'
 ja @f
 cmp al,'a'
 jb @f
 add al,-0x20
@@:
 mov [edi],al
 inc esi
 inc edi
 dec ecx
 jnz strup
 pop eax ecx edi esi

 mov ecx,dword [count]
loop20:
 push ecx
 cmp byte [tic_table+600+ecx],'&'
 je chparam

 pop ecx
 loop loop20

 cld
 mov ecx,11
 mov edi,tic_table+600
 add edi,dword [count]
 mov esi,qspace
 rep movsb

 mov ebx,tic_table+600
 mov ecx,0
 call start_rd_app

 cmp eax,0xfffffff0
 jb cmd_ok_1

 jmp errr

cmd_ok_1:
 mov eax,dword [count]
 mov dword [ipccount],eax

cmd_ok:
 mov eax,60
 mov ebx,1
 mov ecx,ipcb
 mov edx,118
 mcall

 call clearipc

 mov eax,40
 mov ebx,01000111b
 mcall

 mov eax,23
 mov ebx,10
 mcall

 cmp eax,7
 jne noipc

 cmp byte [callp],1
 je printipcprgname

 call clearsum

ipccontinue:
 mov eax,9
 mov ebx,tic_table+100000
 mov ecx,-1
 mcall

 mov ecx,eax
loopfindipc:
 push ecx

 mov eax,9
 mov ebx,tic_table+100000
 mcall

 mov bl,[tic_table+600]
 cmp byte [tic_table+100000+10],bl
 jne goonipc
 cmp dword [ipccount],1
 je ipcfinished

 mov bl,[tic_table+601]
 cmp byte [tic_table+100000+11],bl
 jne goonipc
 cmp dword [ipccount],2
 je ipcfinished

 mov bl,[tic_table+602]
 cmp byte [tic_table+100000+12],bl
 jne goonipc
 cmp dword [ipccount],3
 je ipcfinished

 mov bl,[tic_table+603]
 cmp byte [tic_table+100000+13],bl
 jne goonipc
 cmp dword [ipccount],4
 je ipcfinished

 mov bl,[tic_table+604]
 cmp byte [tic_table+100000+14],bl
 jne goonipc
 cmp dword [ipccount],5
 je ipcfinished

 mov bl,[tic_table+605]
 cmp byte [tic_table+100000+15],bl
 jne goonipc
 cmp dword [ipccount],6
 je ipcfinished

 mov bl,[tic_table+606]
 cmp byte [tic_table+100000+16],bl
 jne goonipc
 cmp dword [ipccount],7
 je ipcfinished

 mov bl,[tic_table+607]
 cmp byte [tic_table+100000+17],bl
 jne goonipc

goonipc:
 pop ecx
 dec ecx
 jnz loopfindipc

ipcfinished:
 mov ebx,[tic_table+100000+30]
 mov dword [ipcpid],ebx

 mov eax,60
 mov ebx,2
 mov ecx,dword [ipcpid]
 mov edx,ddot
 mov esi,1
 mcall

 call newline
 call clearipc

 jmp waitipc

printipcprgname:
 call newline
 call printcmd
 jmp ipccontinue

noipc:
 cmp byte [callp],1
 je prtcmd

 call clearsum

 jmp cmd_ok2

printcmd:
 mov eax,4
 mov ebx,6
 shl ebx,16
 add ebx,[xpos]
 mov edx,tic_table+600
 mov ecx,0x00ddeeff
 mov esi,dword [count]
 mcall

 cld
 mov ecx,dword [count]
 mov edi,tic_table
 add edi,dword [linen]
 mov esi,tic_table+600
 rep movsb

 mov eax,dword [count]
 add dword [linen],eax
 add dword [linel],eax

 ret

prtcmd:
 call newline
 call printcmd
 jmp go

cmd_ok2:
 cmp byte [callp],1
 je go

 ret

waitipc:
 mov eax,40
 mov ebx,01000111b
 mcall

 mov eax,10
 mcall

 cmp eax,7
 je ipcok
 cmp eax,1
 je reipc
 cmp eax,3
 je exit
 cmp eax,2
 je keyipc

 jmp waitipc

keyipc:
 mov eax,2
 mcall

 jmp waitipc

reipc:
 call draw
 call red

 jmp waitipc

clearipc:
 cld
 mov ecx,118
 mov edi,ipcb
 mov esi,ipcc
 rep movsb

 ret

ipcok:
 cmp dword [ipcb+16],'~ccc'
 je ipccls
 cmp dword [ipcb+16],'~eee'
 je endipc
 cmp dword [ipcb+16],'~lll'
 je ipcline
 cmp dword [ipcb+16],'~ppp'
 je ipcprint
 cmp dword [ipcb+16],'~kkk'
 je ipckey

 jmp waitipc

reipc2:
 call draw
 call red

ipckey:
 mov eax,10
 mcall

 cmp eax,1
 je reipc2
 cmp eax,3
 je exit
 cmp eax,2
 je ipckeypressed

 jmp ipckey

ipckeypressed:
 mov eax,2
 mcall

 mov byte [ipckeyvalue],ah

 mov eax,60
 mov ebx,2
 mov ecx,dword [ipcpid]
 mov edx,ipckeyvalue
 mov esi,1
 mcall

 call clearipc
 jmp waitipc

ipccls:
 call cls2
 call clearipc
 jmp waitipc

ipcline:
 call newline
 call clearipc
 jmp waitipc

ipcprint:
 mov edx,ipcb+20
 call printipc
 call clearipc
 jmp waitipc

endipc:
 cmp byte [callp],1
 je go

 call clearsum

 jmp ecmd

cmdexist:
 mov eax,9
 mov ebx,tic_table
 mov ecx,-1
 mcall

 mov ecx,eax
loopex:
 push ecx

 mov eax,9
 mov ebx,I_END
 mcall

 cmp word [I_END+10],'CM'
 jne no_cmd
 cmp byte [I_END+12],'D'
 jne no_cmd

 inc byte [cmd_ex]

 cmp byte [cmd_ex],2
 je exit

no_cmd:
 pop ecx
 loop loopex

 ret

start_rd_app:
        push    edi
        mov     edi, fileinfo_buffer
        mov     eax, '/rd/'
        stosd
        mov     ax, '1/'
        stosw
        push    esi
        mov     esi, ebx
        movsd
        movsd
        pop     esi
@@:
        dec     edi
        cmp     byte [edi], ' '
        jz      @b
        mov     byte [edi+1], 0
        pop     edi
        mov     eax, 70
        mov     ebx, fileinfo_start
        mov     [ebx+8], ecx
        mcall
        ret
fileinfo_start:
        dd      7
        dd      0
        dd      ?
        dd      0
        dd      0
        db      0
        dd      fileinfo_buffer

title   db 'CMD - Command line interpreter',0

smb_cursor db '|'

prompt db 'CMD>>'

if lang eq de_DE
h1  db '  CMD - Command line interpreter version 0.26 '
h2  db '        copyleft Chemist - dmitry_gt@tut.by   '
h3  db '  Verfuegbare Kommandos:                      '
h4  db '  HELP - Zeoigt diesen Text LS - Zeigt Dateien'
h5  db '  EXIT - Programmende       CP - Kopiert Datei'
h6  db '  CLS  - Loescht Bildschirm PS - Processinfo  '
h7  db '  KILL - Process beenden    RN - File umnennen'
h8  db '        VER  - Zeigt Programmversion          '
h9  db '        DEL  - Loescht Datei von Ramdisk      '
h10 db '        SHUTDOWN - KolibriOS beenden          '
h11 db '        PAUSE    - Auf Taste warten           '
h12 db '        ECHO     - Schreibt Text auf Ausgabe  '
h13 db '        ENDS     - Scriptende                 '
h14 db '        /[filename] - Script starten          '
h15 db '        Parameter mit "&" angeben:            '
h16 db '        tinypad&cmd.asm - oeffnet cmd.asm     '

about db 'Command Line Interpreter version 0.26         '

err1 db 'Kommando oder Dateiname unbekannt'

proc_head db  ' PID Name      Start     Laenge   Proc_NUMB  '
proc_hd11 db  '-------------------------------------------- '

mess1 db 'Taste druecken fuer weiter (ESC - abbrechen)..'
mess2 db 'Bitte 4 Byte Prozessnummer angeben (nicht PID)'
mess3 db 'Prozess mit angegebenere Nummer erfolgreich   '
mess4 db 'beendet.                                      '
mess5 db 'Verwendung: del [Dateiname]                   '
mess6 db 'Angegebene Datei erfolgreich geloescht.       '
mess7 db 'Datei nicht gefunden!                         '
mess8 db 'Prozess nicht gefunden!                       '
mess9 db 'Verwendung: cp [Quelle+Ziel]                  '
mess0 db 'Verwendung: rn [Quelle+Ziel]                  '

mess11 db 'Datei erfolgreich kopiert                     '
mess12 db 'ERROR: Kann Datei nicht kopieren!             '
mess13 db 'ERROR: Datei existiert bereits!               '
mess14 db 'Datei erfolgreich umbenannt                   '
mess15 db 'ERROR: Kann Datei nicht umbenennen!           '
mess16 db 'Scriptname erwartet!                          '
mess17 db 'Dieses Kommando ist nur in Scripts zulaessig! '

else ; Default to en_US

h1  db '  CMD - Command line interpreter version 0.26 '
h2  db '        copyleft Chemist - dmitry_gt@tut.by   '
h3  db '  Available commands:                         '
h4  db '  HELP - Display this text  LS - List files   '
h5  db '  EXIT - Exit Programm      CP - Copy file    '
h6  db '  CLS  - Clear Screen       PS - Process info '
h7  db '  KILL - Kill Process       RN - Rename File  '
h8  db '        VER  - Display program version        '
h9  db '        DEL  - Delete file from ramdisk       '
h10 db '        SHUTDOWN - Quit Menuet                '
h11 db '        PAUSE    - Wait for keypress          '
h12 db '        ECHO     - Print text to screen       '
h13 db '        ENDS     - End script                 '
h14 db '        /[filename] - Execute script          '
h15 db '        Use & symbol to enter params:         '
h16 db '        tinypad&cmd.asm - open cmd.asm        '

about db 'Command Line Interpreter version 0.26         '

err1 db 'Unknown command or filename      '

proc_head db  ' PID Name      Start     Length   Proc_NUMB  '
proc_hd11 db  '-------------------------------------------- '

mess1 db 'Press any key to continue (ESC - Cancel)...   '
mess2 db 'Specify a 4 byte process number (not PID)     '
mess3 db 'Process with number you specified has been    '
mess4 db 'terminated.                                   '
mess5 db 'Usage: del [filename]                         '
mess6 db 'Filename you specified has been deleted.      '
mess7 db 'No such file!                                 '
mess8 db 'No such process!                              '
mess9 db 'Usage: cp [source_file+destination_file]      '
mess0 db 'Usage: rn [source_file+destination_file]      '

mess11 db 'File successfully copied                      '
mess12 db 'ERROR: Can not copy file!                     '
mess13 db 'ERROR: Output file alredy exist!              '
mess14 db 'File successfully renamed                     '
mess15 db 'ERROR: Can not rename file!                   '
mess16 db 'You must specify a command script filename!   '
mess17 db 'This command is available only in scripts!    '
end if

linen dd 2000
lpress dd 1
linel dd 0
linev dd 2000
stnum dd 1
rdstat dd 0

ypos   dd 6
xpos   dd 24
count  dd 0
clr    dd 0
smb    db 0
pn     dd 0
count2  dd 0
count3  dd 9
oldcount dd 0
oldcount1 dd 0

fnumb dd 0
n1 dd 0
n2 dd 0
n3 dd 0
n4 dd 0
n5 dd 0
n6 dd 0
n7 dd 0
n8 dd 0

ddot db '.'
dcmd db '.CMD',0

cnt_loop1 dd 0
cnt_loop2 dd 0

lscnt dd 8024
blockcnt dd 0
lscntf db 0
lscntx db 0

filesize dd 0
filesize2 dd 0

readcnt dd 15000
readcnt2 dd 0

callp db 0
callp2 db 0

fill1 db ' '
fill3 db '   ',0

pname      db '            ',0
autoexfile db 'AUTOEXEC.CMD',0

dzero db 0,0,0,0
qspace db '           '

f1len dd 0
f2len dd 0

ipcpid dd 0

ipckeyvalue db 0

ipccount dd 0

cmd_ex db 0

dirinfo:
	dd	1
	dd	0
	dd	0
	dd	1
	dd	direntry_buffer
	db	'/sys',0

ipcb:
 db 0
 db 0,0,0
 dd 8
times 110 db 0

ipcc:
 db 0
 db 0,0,0
 dd 8
times 110 db 0

I_END:
fileinfo_buffer rb 64
direntry_buffer rb 32+304
filename rb 260
tic_table: