WebSVN – Kolibri OS – Diff – /programs/develop/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"
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
 
err:
 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 err
 
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 err
 
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
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
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 programm 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 'Plz 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:

Rev 485	Rev 539
1	; CMD - Command line interpreter	1	; CMD - Command line interpreter
2	; copyleft Chemist dmitry_gt@tut.by	2	; copyleft Chemist dmitry_gt@tut.by
3	;	3	;
4	; Compile with FASM for Menuet	4	; Compile with FASM for Menuet
5	;	5	;
6	;	6	;
7		7
8	use32	8	use32
9		9
10	org 0x0	10	org 0x0
11		11
12	db 'MENUET01'	12	db 'MENUET01'
13	dd 0x01	13	dd 0x01
14	dd START	14	dd START
15	dd I_END	15	dd I_END
16	dd 0x300000	16	dd 0x300000
17	dd 0x7fff0	17	dd 0x7fff0
18	dd 0x0	18	dd 0x0
19	dd 0x0	19	dd 0x0
20		20
21	include "..\..\..\macros.inc"	21	include "..\..\..\macros.inc"
22	include "lang.inc"	22	include "lang.inc"
23	START:	23	START:
24		24
25	call cmdexist	25	call cmdexist
26	call draw	26	call draw
27	call fill	27	call fill
28	call clearcmd	28	call clearcmd
29	call autoexec	29	call autoexec
30	call ppr	30	call ppr
31	call cursor	31	call cursor
32		32
33	still:	33	still:
34		34
35	mov eax,10	35	mov eax,10
36	mcall	36	mcall
37		37
38	cmp eax,1	38	cmp eax,1
39	je re	39	je re
40	cmp eax,2	40	cmp eax,2
41	je key	41	je key
42	cmp eax,3	42	cmp eax,3
43	je button	43	je button
44		44
45	jmp still	45	jmp still
46		46
47	button:	47	button:
48	mov eax,17	48	mov eax,17
49	mcall	49	mcall
50		50
51	cmp ah,1	51	cmp ah,1
52	jne noclose	52	jne noclose
53		53
54	jmp exit	54	jmp exit
55		55
56	noclose:	56	noclose:
57	jmp still	57	jmp still
58		58
59	re:	59	re:
60	call draw	60	call draw
61	call red	61	call red
62	jmp still	62	jmp still
63		63
64	red:	64	red:
65	call cls1	65	call cls1
66		66
67	mov dword [xpos],24	67	mov dword [xpos],24
68		68
69	mov dword [linev],2000	69	mov dword [linev],2000
70		70
71	mov eax,dword [ypos]	71	mov eax,dword [ypos]
72	push eax	72	push eax
73		73
74	mov dword [ypos],6	74	mov dword [ypos],6
75		75
76	mov ecx,dword [lpress]	76	mov ecx,dword [lpress]
77	loop1:	77	loop1:
78	push ecx	78	push ecx
79	mov eax,4	79	mov eax,4
80	mov ebx,[ypos]	80	mov ebx,[ypos]
81	shl ebx,16	81	shl ebx,16
82	add ebx,[xpos]	82	add ebx,[xpos]
83	mov ecx,0x00ddeeff	83	mov ecx,0x00ddeeff
84	mov edx,tic_table	84	mov edx,tic_table
85	add edx,dword [linev]	85	add edx,dword [linev]
86	mov esi,81	86	mov esi,81
87	mcall	87	mcall
88	add dword [xpos],10	88	add dword [xpos],10
89	add dword [linev],81	89	add dword [linev],81
90	pop ecx	90	pop ecx
91	loop loop1	91	loop loop1
92		92
93	sub dword [xpos],10	93	sub dword [xpos],10
94		94
95	no_line:	95	no_line:
96	pop eax	96	pop eax
97	mov dword [ypos],eax	97	mov dword [ypos],eax
98		98
99	no_red:	99	no_red:
100	ret	100	ret
101		101
102	key:	102	key:
103	mov eax,2	103	mov eax,2
104	mcall	104	mcall
105		105
106	cmp ah,27	106	cmp ah,27
107	jne no_escape	107	jne no_escape
108		108
109	mov dword [ypos],42	109	mov dword [ypos],42
110	call clearstr	110	call clearstr
111	call ppr	111	call ppr
112	mov dword [count],0	112	mov dword [count],0
113	call cursor	113	call cursor
114	jmp still	114	jmp still
115		115
116	no_escape:	116	no_escape:
117	cmp ah,178	117	cmp ah,178
118	jne no_aup	118	jne no_aup
119	cmp dword [count],0	119	cmp dword [count],0
120	jne no_aup	120	jne no_aup
121	cmp dword [oldcount],0	121	cmp dword [oldcount],0
122	je no_aup	122	je no_aup
123		123
124	call clearsum	124	call clearsum
125	sub dword [ypos],6	125	sub dword [ypos],6
126		126
127	cld	127	cld
128	mov ecx,81	128	mov ecx,81
129	mov edi,tic_table+600	129	mov edi,tic_table+600
130	mov esi,tic_table+900	130	mov esi,tic_table+900
131	rep movsb	131	rep movsb
132		132
133	cld	133	cld
134	mov ecx,dword [oldcount]	134	mov ecx,dword [oldcount]
135	mov edi,tic_table	135	mov edi,tic_table
136	add edi,dword [linen]	136	add edi,dword [linen]
137	mov esi,tic_table+600	137	mov esi,tic_table+600
138	rep movsb	138	rep movsb
139		139
140	call red	140	call red
141		141
142	mov eax,dword [oldcount]	142	mov eax,dword [oldcount]
143	mov dword [count],eax	143	mov dword [count],eax
144		144
145	add dword [linen],eax	145	add dword [linen],eax
146	add dword [linel],eax	146	add dword [linel],eax
147		147
148	mov ebx,6	148	mov ebx,6
149	imul ebx,eax	149	imul ebx,eax
150		150
151	add dword [ypos],ebx	151	add dword [ypos],ebx
152		152
153	call cursor	153	call cursor
154		154
155	jmp still	155	jmp still
156		156
157	no_aup:	157	no_aup:
158	cmp ah,8	158	cmp ah,8
159	jne no_backspace	159	jne no_backspace
160	cmp dword [count],0	160	cmp dword [count],0
161	je still	161	je still
162		162
163	cmp dword [count],0	163	cmp dword [count],0
164	je no_backspace	164	je no_backspace
165		165
166	call clearsum	166	call clearsum
167	sub dword [ypos],12	167	sub dword [ypos],12
168	call clearsum	168	call clearsum
169	sub dword [ypos],6	169	sub dword [ypos],6
170	call cursor	170	call cursor
171	dec dword [count]	171	dec dword [count]
172	jmp still	172	jmp still
173		173
174	no_backspace:	174	no_backspace:
175	cmp ah,13	175	cmp ah,13
176	jne no_enter	176	jne no_enter
177		177
178	cmp dword [count],0	178	cmp dword [count],0
179	jne enter_ok	179	jne enter_ok
180	call clearsum	180	call clearsum
181	jmp ecmd2	181	jmp ecmd2
182		182
183	enter_ok:	183	enter_ok:
184	call checkcmd	184	call checkcmd
185		185
186	cmp byte [tic_table+600],'/'	186	cmp byte [tic_table+600],'/'
187	jne no_script	187	jne no_script
188	cmp dword [count],1	188	cmp dword [count],1
189	je nparam5	189	je nparam5
190		190
191	jmp command	191	jmp command
192		192
193	no_script:	193	no_script:
194		194
195	call oldcmd	195	call oldcmd
196		196
197	call checkprg	197	call checkprg
198		198
199	jmp ecmd2	199	jmp ecmd2
200		200
201	no_enter:	201	no_enter:
202		202
203	cmp ah,176 ; Arrow keys, HOME, END, and DEL are unsupported now	203	cmp ah,176 ; Arrow keys, HOME, END, and DEL are unsupported now
204	je still	204	je still
205	cmp ah,179	205	cmp ah,179
206	je still	206	je still
207	cmp ah,177	207	cmp ah,177
208	je still	208	je still
209	cmp ah,178	209	cmp ah,178
210	je still	210	je still
211	cmp ah,182	211	cmp ah,182
212	je still	212	je still
213	cmp ah,180	213	cmp ah,180
214	je still	214	je still
215	cmp ah,181	215	cmp ah,181
216	je still	216	je still
217		217
218	cmp dword [count],74	218	cmp dword [count],74
219	je still	219	je still
220		220
221	mov byte [smb],ah	221	mov byte [smb],ah
222		222
223	mov edi,tic_table+600	223	mov edi,tic_table+600
224	add edi,dword [count]	224	add edi,dword [count]
225	mov esi,smb	225	mov esi,smb
226	movsb	226	movsb
227		227
228	inc dword [count]	228	inc dword [count]
229		229
230	call clearsum	230	call clearsum
231	sub dword [ypos],6	231	sub dword [ypos],6
232	call print	232	call print
233	add dword [ypos],6	233	add dword [ypos],6
234	call cursor	234	call cursor
235		235
236	jmp still	236	jmp still
237		237
238	clearstr:	238	clearstr:
239	mov dword [ypos],6	239	mov dword [ypos],6
240	mov dword [clr],480	240	mov dword [clr],480
241	call clear	241	call clear
242		242
243	mov eax,dword [linel]	243	mov eax,dword [linel]
244	sub dword [linen],eax	244	sub dword [linen],eax
245	mov dword [linel],0	245	mov dword [linel],0
246		246
247	mov ecx,eax	247	mov ecx,eax
248	push eax	248	push eax
249	loop4:	249	loop4:
250	push ecx	250	push ecx
251	mov edi,tic_table	251	mov edi,tic_table
252	add edi,dword [linen]	252	add edi,dword [linen]
253	mov esi,fill1	253	mov esi,fill1
254	movsb	254	movsb
255		255
256	inc dword [linen]	256	inc dword [linen]
257	pop ecx	257	pop ecx
258	loop loop4	258	loop loop4
259		259
260	pop eax	260	pop eax
261	sub dword [linen],eax	261	sub dword [linen],eax
262		262
263	mov dword [ypos],42	263	mov dword [ypos],42
264		264
265	ret	265	ret
266		266
267	clearsum:	267	clearsum:
268	mov dword [clr],6	268	mov dword [clr],6
269	call clear	269	call clear
270		270
271	dec dword [linen]	271	dec dword [linen]
272	dec dword [linel]	272	dec dword [linel]
273		273
274	mov edi,tic_table	274	mov edi,tic_table
275	add edi,dword [linen]	275	add edi,dword [linen]
276	mov esi,fill1	276	mov esi,fill1
277	movsb	277	movsb
278		278
279	ret	279	ret
280		280
281	clear:	281	clear:
282	mov eax,13	282	mov eax,13
283	mov ebx,[ypos]	283	mov ebx,[ypos]
284	shl ebx,16	284	shl ebx,16
285	add ebx,[clr]	285	add ebx,[clr]
286	mov ecx,[xpos]	286	mov ecx,[xpos]
287	shl ecx,16	287	shl ecx,16
288	add ecx,9	288	add ecx,9
289	mov edx,0	289	mov edx,0
290	mcall	290	mcall
291	add dword [ypos],6	291	add dword [ypos],6
292	ret	292	ret
293		293
294	draw:	294	draw:
295		295
296	mov eax,12	296	mov eax,12
297	mov ebx,1	297	mov ebx,1
298	mcall	298	mcall
299		299
300	mov eax,0	300	mov eax,0
301	mov ebx,100*65536+492	301	mov ebx,100*65536+492
302	mov ecx,100*65536+280	302	mov ecx,100*65536+280
303	mov edx,0x13000000	303	mov edx,0x13000000
304	mov edi,title	304	mov edi,title
305	mcall	305	mcall
306		306
307	mov eax,12	307	mov eax,12
308	mov ebx,2	308	mov ebx,2
309	mcall	309	mcall
310		310
311	ret	311	ret
312		312
313	print:	313	print:
314	mov eax,4	314	mov eax,4
315	mov ebx,[ypos]	315	mov ebx,[ypos]
316	shl ebx,16	316	shl ebx,16
317	add ebx,[xpos]	317	add ebx,[xpos]
318	mov ecx,0x00ddeeff	318	mov ecx,0x00ddeeff
319	mov edx,smb	319	mov edx,smb
320	mov esi,1	320	mov esi,1
321	mcall	321	mcall
322		322
323	mov edi,tic_table	323	mov edi,tic_table
324	add edi,dword [linen]	324	add edi,dword [linen]
325	mov esi,smb	325	mov esi,smb
326	movsb	326	movsb
327	inc dword [linen]	327	inc dword [linen]
328	inc dword [linel]	328	inc dword [linel]
329		329
330	ret	330	ret
331		331
332	cursor:	332	cursor:
333	mov eax,4	333	mov eax,4
334	mov ebx,[ypos]	334	mov ebx,[ypos]
335	shl ebx,16	335	shl ebx,16
336	add ebx,[xpos]	336	add ebx,[xpos]
337	mov ecx,0x00ddeeff	337	mov ecx,0x00ddeeff
338	mov edx,smb_cursor	338	mov edx,smb_cursor
339	mov esi,1	339	mov esi,1
340	mcall	340	mcall
341		341
342	mov edi,tic_table	342	mov edi,tic_table
343	mov esi,smb_cursor	343	mov esi,smb_cursor
344	add edi,dword [linen]	344	add edi,dword [linen]
345	movsb	345	movsb
346	inc dword [linen]	346	inc dword [linen]
347	inc dword [linel]	347	inc dword [linel]
348		348
349	ret	349	ret
350		350
351	ppr:	351	ppr:
352	mov eax,4	352	mov eax,4
353	mov ebx,6	353	mov ebx,6
354	shl ebx,16	354	shl ebx,16
355	add ebx,[xpos]	355	add ebx,[xpos]
356	mov ecx,0x00ddeeff	356	mov ecx,0x00ddeeff
357	mov edx,prompt	357	mov edx,prompt
358	mov esi,5	358	mov esi,5
359	mcall	359	mcall
360	mov dword [ypos],42	360	mov dword [ypos],42
361		361
362	cld	362	cld
363	mov ecx,5	363	mov ecx,5
364	mov edi,tic_table	364	mov edi,tic_table
365	add edi,dword [linen]	365	add edi,dword [linen]
366	mov esi,prompt	366	mov esi,prompt
367	rep movsb	367	rep movsb
368		368
369	add dword [linen],6	369	add dword [linen],6
370	add dword [linel],6	370	add dword [linel],6
371		371
372	ret	372	ret
373		373
374	help:	374	help:
375	cmp byte [callp],1	375	cmp byte [callp],1
376	je gonext8	376	je gonext8
377	call clearsum	377	call clearsum
378	gonext8:	378	gonext8:
379	call newline	379	call newline
380	call newline	380	call newline
381	mov edx,h1	381	mov edx,h1
382	call printf	382	call printf
383	call newline	383	call newline
384	mov edx,h2	384	mov edx,h2
385	call printf	385	call printf
386	call newline	386	call newline
387	call newline	387	call newline
388	mov edx,h3	388	mov edx,h3
389	call printf	389	call printf
390	call newline	390	call newline
391	call newline	391	call newline
392	mov edx,h4	392	mov edx,h4
393	call printf	393	call printf
394	call newline	394	call newline
395	mov edx,h5	395	mov edx,h5
396	call printf	396	call printf
397	call newline	397	call newline
398	mov edx,h6	398	mov edx,h6
399	call printf	399	call printf
400	call newline	400	call newline
401	mov edx,h7	401	mov edx,h7
402	call printf	402	call printf
403	call newline	403	call newline
404	call newline	404	call newline
405	mov edx,h8	405	mov edx,h8
406	call printf	406	call printf
407	call newline	407	call newline
408	mov edx,h9	408	mov edx,h9
409	call printf	409	call printf
410	call newline	410	call newline
411	mov edx,h10	411	mov edx,h10
412	call printf	412	call printf
413	call newline	413	call newline
414	mov edx,h11	414	mov edx,h11
415	call printf	415	call printf
416	call newline	416	call newline
417	mov edx,h12	417	mov edx,h12
418	call printf	418	call printf
419	call newline	419	call newline
420	mov edx,h13	420	mov edx,h13
421	call printf	421	call printf
422	call newline	422	call newline
423	call newline	423	call newline
424	mov edx,h14	424	mov edx,h14
425	call printf	425	call printf
426	call newline	426	call newline
427	call newline	427	call newline
428	mov edx,h15	428	mov edx,h15
429	call printf	429	call printf
430	call newline	430	call newline
431	mov edx,h16	431	mov edx,h16
432	call printf	432	call printf
433	call newline	433	call newline
434		434
435	cmp byte [callp],1	435	cmp byte [callp],1
436	je go	436	je go
437		437
438	jmp ecmd	438	jmp ecmd
439		439
440	ver:	440	ver:
441	cmp byte [callp],1	441	cmp byte [callp],1
442	je gonext7	442	je gonext7
443	call clearsum	443	call clearsum
444	gonext7:	444	gonext7:
445	call newline	445	call newline
446	mov edx,about	446	mov edx,about
447	call printf	447	call printf
448		448
449	cmp byte [callp],1	449	cmp byte [callp],1
450	je go	450	je go
451		451
452	jmp ecmd	452	jmp ecmd
453		453
454	pause1:	454	pause1:
455	cmp byte [callp],1	455	cmp byte [callp],1
456	je gonext1	456	je gonext1
457	call clearsum	457	call clearsum
458	gonext1:	458	gonext1:
459	call pause2	459	call pause2
460		460
461	cmp byte [callp],1	461	cmp byte [callp],1
462	je go	462	je go
463		463
464	jmp ecmd	464	jmp ecmd
465		465
466	ls:	466	ls:
467	call oldcmd	467	call oldcmd
468	call cls2	468	call cls2
469	and dword [dirinfo+4], 0	469	and dword [dirinfo+4], 0
470	loopls:	470	loopls:
471		471
472	mov eax, 70	472	mov eax, 70
473	mov ebx, dirinfo	473	mov ebx, dirinfo
474	mcall	474	mcall
475	inc dword [dirinfo+4]	475	inc dword [dirinfo+4]
476	cmp ebx, 1	476	cmp ebx, 1
477	jnz ls_end	477	jnz ls_end
478	mov esi, direntry_buffer+32+40	478	mov esi, direntry_buffer+32+40
479	mov edi, filename	479	mov edi, filename
480	@@:	480	@@:
481	lodsb	481	lodsb
482	stosb	482	stosb
483	test al, al	483	test al, al
484	jnz @b	484	jnz @b
485	@@:	485	@@:
486	cmp edi, filename+12	486	cmp edi, filename+12
487	jae ls_print	487	jae ls_print
488	stosb	488	stosb
489	jmp @b	489	jmp @b
490		490
491	ls_print_done:	491	ls_print_done:
492	inc byte [lscntf]	492	inc byte [lscntf]
493		493
494	add dword [ypos],96	494	add dword [ypos],96
495		495
496	cmp byte [lscntf],5	496	cmp byte [lscntf],5
497	jne no_newline	497	jne no_newline
498		498
499	mov byte [lscntf],0	499	mov byte [lscntf],0
500	inc byte [lscntx]	500	inc byte [lscntx]

Subversion Repositories Kolibri OS

(root)/programs/develop/cmd/trunk/cmd.asm – Rev 485 → 539