WebSVN – Kolibri OS – Blame – /programs/develop/cmd/trunk/cmd.asm

Rev	Author	Line No.	Line
31	halyavin	1	; CMD - Command line interpreter
		2	; copyleft Chemist dmitry_gt@tut.by
		3	;
		4	; Compile with FASM for Menuet
		5	;
		6	;
		7
		8	use32
		9
		10	org 0x0
		11
		12	db 'MENUET01'
		13	dd 0x01
		14	dd START
		15	dd I_END
		16	dd 0x300000
		17	dd 0x7fff0
		18	dd 0x0
		19	dd 0x0
		20
		21	include "macros.inc"
135	diamond	22	include "lang.inc"
31	halyavin	23	START:
		24
		25	call cmdexist
		26	call draw
		27	call fill
		28	call clearcmd
		29	call autoexec
		30	call ppr
		31	call cursor
		32
		33	still:
		34
		35	mov eax,10
		36	int 0x40
		37
		38	cmp eax,1
		39	je re
		40	cmp eax,2
		41	je key
		42	cmp eax,3
		43	je button
		44
		45	jmp still
		46
		47	button:
		48	mov eax,17
		49	int 0x40
		50
		51	cmp ah,1
		52	jne noclose
		53
		54	jmp exit
		55
		56	noclose:
		57	jmp still
		58
		59	re:
		60	call draw
		61	call red
		62	jmp still
		63
		64	red:
		65	call cls1
		66
		67	mov dword [xpos],24
		68
		69	mov dword [linev],2000
		70
		71	mov eax,dword [ypos]
		72	push eax
		73
		74	mov dword [ypos],6
		75
		76	mov ecx,dword [lpress]
		77	loop1:
		78	push ecx
		79	mov eax,4
		80	mov ebx,[ypos]
		81	shl ebx,16
		82	add ebx,[xpos]
		83	mov ecx,0x00ddeeff
		84	mov edx,tic_table
		85	add edx,dword [linev]
		86	mov esi,81
		87	int 0x40
		88	add dword [xpos],10
		89	add dword [linev],81
		90	pop ecx
		91	loop loop1
		92
		93	sub dword [xpos],10
		94
		95	no_line:
		96	pop eax
		97	mov dword [ypos],eax
		98
		99	no_red:
		100	ret
		101
		102	key:
		103	mov eax,2
		104	int 0x40
		105
		106	cmp ah,27
		107	jne no_escape
		108
		109	mov dword [ypos],42
		110	call clearstr
		111	call ppr
		112	mov dword [count],0
		113	call cursor
		114	jmp still
		115
		116	no_escape:
		117	cmp ah,178
		118	jne no_aup
		119	cmp dword [count],0
		120	jne no_aup
		121	cmp dword [oldcount],0
		122	je no_aup
		123
		124	call clearsum
		125	sub dword [ypos],6
		126
		127	cld
		128	mov ecx,81
		129	mov edi,tic_table+600
		130	mov esi,tic_table+900
		131	rep movsb
		132
		133	cld
		134	mov ecx,dword [oldcount]
		135	mov edi,tic_table
		136	add edi,dword [linen]
		137	mov esi,tic_table+600
		138	rep movsb
		139
		140	call red
		141
		142	mov eax,dword [oldcount]
		143	mov dword [count],eax
		144
		145	add dword [linen],eax
		146	add dword [linel],eax
		147
		148	mov ebx,6
		149	imul ebx,eax
		150
		151	add dword [ypos],ebx
		152
		153	call cursor
		154
		155	jmp still
		156
		157	no_aup:
		158	cmp ah,8
		159	jne no_backspace
		160	cmp dword [count],0
		161	je still
		162
		163	cmp dword [count],0
		164	je no_backspace
		165
		166	call clearsum
		167	sub dword [ypos],12
		168	call clearsum
		169	sub dword [ypos],6
		170	call cursor
		171	dec dword [count]
		172	jmp still
		173
		174	no_backspace:
		175	cmp ah,13
		176	jne no_enter
		177
		178	cmp dword [count],0
		179	jne enter_ok
		180	call clearsum
		181	jmp ecmd2
		182
		183	enter_ok:
		184	call checkcmd
		185
		186	cmp byte [tic_table+600],'/'
		187	jne no_script
		188	cmp dword [count],1
		189	je nparam5
		190
		191	jmp command
		192
		193	no_script:
		194
		195	call oldcmd
		196
		197	call checkprg
		198
		199	jmp ecmd2
		200
		201	no_enter:
		202
		203	cmp ah,176 ; Arrow keys, HOME, END, and DEL are unsupported now
		204	je still
		205	cmp ah,179
		206	je still
		207	cmp ah,177
		208	je still
		209	cmp ah,178
		210	je still
		211	cmp ah,182
		212	je still
		213	cmp ah,180
		214	je still
		215	cmp ah,181
		216	je still
		217
		218	cmp dword [count],74
		219	je still
		220
		221	mov byte [smb],ah
		222
		223	mov edi,tic_table+600
		224	add edi,dword [count]
		225	mov esi,smb
		226	movsb
		227
		228	inc dword [count]
		229
		230	call clearsum
		231	sub dword [ypos],6
		232	call print
		233	add dword [ypos],6
		234	call cursor
		235
		236	jmp still
		237
		238	clearstr:
		239	mov dword [ypos],6
		240	mov dword [clr],480
		241	call clear
		242
		243	mov eax,dword [linel]
		244	sub dword [linen],eax
		245	mov dword [linel],0
		246
		247	mov ecx,eax
		248	push eax
		249	loop4:
		250	push ecx
		251	mov edi,tic_table
		252	add edi,dword [linen]
		253	mov esi,fill1
		254	movsb
		255
		256	inc dword [linen]
		257	pop ecx
		258	loop loop4
		259
		260	pop eax
		261	sub dword [linen],eax
		262
		263	mov dword [ypos],42
		264
		265	ret
		266
		267	clearsum:
		268	mov dword [clr],6
		269	call clear
		270
		271	dec dword [linen]
		272	dec dword [linel]
		273
		274	mov edi,tic_table
		275	add edi,dword [linen]
		276	mov esi,fill1
		277	movsb
		278
		279	ret
		280
		281	clear:
		282	mov eax,13
		283	mov ebx,[ypos]
		284	shl ebx,16
		285	add ebx,[clr]
		286	mov ecx,[xpos]
		287	shl ecx,16
		288	add ecx,9
		289	mov edx,0
		290	int 0x40
		291	add dword [ypos],6
		292	ret
		293
		294	draw:
		295
		296	mov eax,12
		297	mov ebx,1
		298	int 0x40
		299
		300	mov eax,0
		301	mov ebx,100*65536+492
		302	mov ecx,100*65536+280
135	diamond	303	mov edx,0x3000000
31	halyavin	304	mov esi,0x805080d0
		305	mov edi,0x005080d0
		306	int 0x40
		307
		308	mov eax,4
		309	mov ebx,8*65536+8
		310	mov ecx,0x10ddeeff
		311	mov edx,title
		312	mov esi,title_end-title
		313	int 0x40
		314
135	diamond	315	; mov eax,8
		316	; mov ebx,(492-19)*65536+12
		317	; mov ecx,5*65536+12
		318	; mov edx,1
		319	; mov esi,0x6688dd
		320	; int 0x40
31	halyavin	321
		322	mov eax,12
		323	mov ebx,2
		324	int 0x40
		325
		326	ret
		327
		328	print:
		329	mov eax,4
		330	mov ebx,[ypos]
		331	shl ebx,16
		332	add ebx,[xpos]
		333	mov ecx,0x00ddeeff
		334	mov edx,smb
		335	mov esi,1
		336	int 0x40
		337
		338	mov edi,tic_table
		339	add edi,dword [linen]
		340	mov esi,smb
		341	movsb
		342	inc dword [linen]
		343	inc dword [linel]
		344
		345	ret
		346
		347	cursor:
		348	mov eax,4
		349	mov ebx,[ypos]
		350	shl ebx,16
		351	add ebx,[xpos]
		352	mov ecx,0x00ddeeff
		353	mov edx,smb_cursor
		354	mov esi,1
		355	int 0x40
		356
		357	mov edi,tic_table
		358	mov esi,smb_cursor
		359	add edi,dword [linen]
		360	movsb
		361	inc dword [linen]
		362	inc dword [linel]
		363
		364	ret
		365
		366	ppr:
		367	mov eax,4
		368	mov ebx,6
		369	shl ebx,16
		370	add ebx,[xpos]
		371	mov ecx,0x00ddeeff
		372	mov edx,prompt
		373	mov esi,5
		374	int 0x40
		375	mov dword [ypos],42
		376
		377	cld
		378	mov ecx,5
		379	mov edi,tic_table
		380	add edi,dword [linen]
		381	mov esi,prompt
		382	rep movsb
		383
		384	add dword [linen],6
		385	add dword [linel],6
		386
		387	ret
		388
		389	help:
		390	cmp byte [callp],1
		391	je gonext8
		392	call clearsum
		393	gonext8:
		394	call newline
		395	call newline
		396	mov edx,h1
		397	call printf
		398	call newline
		399	mov edx,h2
		400	call printf
		401	call newline
		402	call newline
		403	mov edx,h3
		404	call printf
		405	call newline
		406	call newline
		407	mov edx,h4
		408	call printf
		409	call newline
		410	mov edx,h5
		411	call printf
		412	call newline
		413	mov edx,h6
		414	call printf
		415	call newline
		416	mov edx,h7
		417	call printf
		418	call newline
		419	call newline
		420	mov edx,h8
		421	call printf
		422	call newline
		423	mov edx,h9
		424	call printf
		425	call newline
		426	mov edx,h10
		427	call printf
		428	call newline
		429	mov edx,h11
		430	call printf
		431	call newline
		432	mov edx,h12
		433	call printf
		434	call newline
		435	mov edx,h13
		436	call printf
		437	call newline
		438	call newline
		439	mov edx,h14
		440	call printf
		441	call newline
		442	call newline
		443	mov edx,h15
		444	call printf
		445	call newline
		446	mov edx,h16
		447	call printf
		448	call newline
		449
		450	cmp byte [callp],1
		451	je go
		452
		453	jmp ecmd
		454
		455	ver:
		456	cmp byte [callp],1
		457	je gonext7
		458	call clearsum
		459	gonext7:
		460	call newline
		461	mov edx,about
		462	call printf
		463
		464	cmp byte [callp],1
		465	je go
		466
		467	jmp ecmd
		468
		469	pause1:
		470	cmp byte [callp],1
		471	je gonext1
		472	call clearsum
		473	gonext1:
		474	call pause2
		475
		476	cmp byte [callp],1
		477	je go
		478
		479	jmp ecmd
		480
		481	ls:
		482	call oldcmd
		483	call cls2
		484
		485	loopls:
		486	inc dword [blockcnt]
		487
		488	mov eax,34
		489	mov ebx,0
		490	mov ecx,0
		491	mov edx,0
		492	add edx,dword [blockcnt]
		493	mov esi,1
		494	mov edi,tic_table+7000
		495	int 0x40
		496
		497	mov ecx,16
		498	loop40:
		499	push ecx
		500
		501	cld
		502	mov ecx,8
		503	mov edi,filename
		504	mov esi,tic_table
		505	add esi,dword [lscnt]
		506	rep movsb
		507
		508	add dword [lscnt],8
		509
		510	mov edi,filename+8
		511	mov esi,ddot
		512	movsb
		513
		514	cld
		515	mov ecx,3
		516	mov edi,filename+9
		517	mov esi,tic_table
		518	add esi,dword [lscnt]
		519	rep movsb
		520
		521	cmp byte [filename+10],0
		522	jne no_fn_space1
		523
		524	mov edi,filename+10
		525	mov esi,dzero
		526	movsb
		527
		528	no_fn_space1:
		529	cmp byte [filename],0xe5 ; deleted file
		530	je no_newline
		531	cmp byte [filename],0xf ; long fat32 filename
		532	je no_newline
		533	cmp byte [filename],0x10 ; folder
		534	je no_newline
		535
		536	cmp word [filename],'AK'
		537	jne filename_ok
		538	cmp byte [filename+3],'e'
		539	jne filename_ok
		540	cmp byte [filename+5],'y'
		541	jne filename_ok
		542	cmp byte [filename+7],'a'
		543	jne filename_ok
		544	cmp byte [filename+10],'s'
		545	jne filename_ok
		546
		547	jmp no_newline
		548
		549	filename_ok:
		550	mov eax,6
		551	mov ebx,filename
		552	mov ecx,0
		553	mov edx,-1
		554	mov esi,tic_table+25000
		555	int 0x40
		556
		557	cmp eax,4294967295
		558	jne ls_print
		559
		560	jmp no_newline
		561
		562	ls_print_done:
		563	inc byte [lscntf]
		564
		565	add dword [ypos],96
		566
		567	cmp byte [lscntf],5
		568	jne no_newline
		569
		570	mov byte [lscntf],0
		571	inc byte [lscntx]
		572
		573	cmp byte [lscntx],23
		574	je pause2n
		575
		576	mov dword [ypos],6
		577	call newline
		578
		579	no_newline:
		580	add dword [lscnt],24
		581
		582	pop ecx
		583	dec ecx
		584	cmp ecx,0
		585	jne loop40
		586
		587	cmp dword [blockcnt],16
		588	je ls_end
		589
		590	jmp no_pause2
		591
		592	pause2n:
		593	mov byte [lscntx],0
		594
		595	call newline
		596	call pause2
		597	call cls2
		598	mov dword [lscnt],8024
		599	jmp loopls
		600
		601	no_pause2:
		602	mov dword [lscnt],8024
		603
		604	jmp loopls
		605
		606	ls_end:
		607	mov dword [blockcnt],0
		608	mov dword [lscnt],8024
		609	mov byte [lscntf],0
		610	mov byte [lscntx],0
		611
		612	cmp byte [callp],1
		613	je go
		614
		615	jmp ecmd2
		616
		617	ls_print:
		618	mov edi,filename+8
		619	mov esi,fill1
		620	movsb
		621
		622	mov eax,4
		623	mov ebx,[ypos]
		624	shl ebx,16
		625	add ebx,[xpos]
		626	mov edx,filename
		627	mov ecx,0x00ddeeff
		628	mov esi,12
		629	int 0x40
		630
		631	cld
		632	mov ecx,12
		633	mov edi,tic_table
		634	add edi,dword [linen]
		635	mov esi,filename
		636	rep movsb
		637
		638	add dword [linen],16
		639	add dword [linel],16
		640
		641	jmp ls_print_done
		642
		643	lscheck:
		644	cmp byte [callp],1
		645	je gonext9
		646	call clearsum
		647	gonext9:
		648	sub dword [count],3
		649
		650	cld
		651	mov ecx,dword [count]
		652	mov edi,tic_table+400
		653	mov esi,tic_table+600
		654	add esi,3
		655	rep movsb
		656
		657	mov ebx,tic_table+400
		658	push esi edi ecx eax
		659	mov esi,ebx
		660
		661	mov edi,tic_table+400
		662	mov ecx,70
		663	strup2:
		664	mov al,[esi]
		665	cmp al,'A'
		666	jb @f
		667	cmp al,'z'
		668	ja @f
		669	cmp al,'a'
		670	jb @f
		671	add al,-0x20
		672	@@:
		673	mov [edi],al
		674	inc esi
		675	inc edi
		676	dec ecx
		677	jnz strup2
		678	pop eax ecx edi esi
		679
		680	mov ecx,dword [count]
		681
		682	looplsc:
		683	cmp byte [tic_table+400+ecx],'.'
		684	je chdot
		685
		686	loop looplsc
		687
		688	jmp chnodot
		689
		690	chdot:
		691	mov ebx,dword [count]
		692
		693	cld
		694	mov ecx,5
		695	mov edi,tic_table+400
		696	add edi,ebx
		697	mov esi,dzero
		698	rep movsb
		699
		700	mov eax,6
		701	mov ebx,tic_table+400
		702	mov ecx,0
		703	mov edx,-1
		704	mov esi,tic_table+25000
		705	int 0x40
		706
		707	cmp eax,4294967295
		708	je nosuchfile
		709
		710	jmp lschok
		711
		712	chnodot:
		713	mov ebx,dword [count]
		714
		715	mov edi,tic_table+400
		716	add edi,ebx
		717	mov esi,ddot
		718	movsb
		719
		720	inc ebx
		721
		722	cld
		723	mov ecx,3
		724	mov edi,tic_table+400
		725	add edi,ebx
		726	mov esi,fill3
		727	rep movsb
		728
		729	mov eax,6
		730	mov ebx,tic_table+400
		731	mov ecx,0
		732	mov edx,-1
		733	mov esi,tic_table+25000
		734	int 0x40
		735
		736	cmp eax,4294967295
		737	je nosuchfile
		738
		739	mov edi,tic_table+400
		740	add edi,dword [count]
		741	mov esi,fill1
		742	movsb
		743
		744	lschok:
		745	call newline
		746
		747	mov eax,4
		748	mov ebx,6
		749	shl ebx,16
		750	add ebx,[xpos]
		751	mov edx,tic_table+400
		752	mov esi,12
		753	mov ecx,0x00ddeeff
		754	int 0x40
		755
		756	cld
		757	mov ecx,12
		758	mov edi,tic_table
		759	add edi,dword [linen]
		760	mov esi,tic_table+400
		761	rep movsb
		762
		763	add dword [linen],12
		764	add dword [linel],12
		765
		766	add dword [count],3
		767
		768	cmp byte [callp],1
		769	je go
		770
		771	jmp ecmd
		772
		773	ps:
		774	call oldcmd
		775	call cls2
		776	call newline
		777	mov edx,proc_head
		778	call printf
		779	call newline
		780	mov edx,proc_hd11
		781	call printf
		782	call newline
		783	call newline
		784
		785	mov eax,9
		786	mov ebx,tic_table
		787	mov ecx,1
		788	int 0x40
		789
		790	mov dword [count2],eax
		791
		792	ll1:
		793	inc dword [pn]
		794	mov eax,9
		795	mov ebx,tic_table
		796	mov ecx,[pn]
		797	int 0x40
		798
		799	mov ebx,[tic_table+30]
		800	mov dword [fnumb],4
		801	mov dword [ypos],6
		802	call decnumb
		803
		804	cld
		805	mov ecx,4
		806	mov edi,tic_table
		807	add edi,dword [linen]
		808	mov esi,tic_table+200
		809	rep movsb
		810
		811	add dword [linen],5
		812	add dword [linel],5
		813
		814	cld
		815	mov ecx,11
		816	mov esi,tic_table+10
		817	mov edi,pname
		818	rep movsb
		819
		820	mov dword [ypos],36
		821	mov edx,pname
		822	mov eax,4
		823	mov ebx,[ypos]
		824	shl ebx,16
		825	add ebx,[xpos]
		826	mov ecx,0x00ddeeff
		827	mov esi,12
		828	int 0x40
		829
		830	cld
		831	mov ecx,11
		832	mov edi,tic_table
		833	add edi,dword [linen]
		834	mov esi,pname
		835	rep movsb
		836
		837	add dword [linen],10
		838	add dword [linel],10
		839
		840	mov dword [ypos],94
		841	mov ebx,[tic_table+22]
		842	mov dword [fnumb],8
		843	call decnumb
		844
		845	cld
		846	mov ecx,8
		847	mov edi,tic_table
		848	add edi,dword [linen]
		849	mov esi,tic_table+200
		850	rep movsb
		851
		852	add dword [linen],10
		853	add dword [linel],10
		854
		855	mov dword [ypos],154
		856	mov ebx,[tic_table+26]
		857	mov dword [fnumb],8
		858	call decnumb
		859
		860	cld
		861	mov ecx,8
		862	mov edi,tic_table
		863	add edi,dword [linen]
		864	mov esi,tic_table+200
		865	rep movsb
		866
		867	add dword [linen],12
		868	add dword [linel],12
		869
		870	mov dword [ypos],228
		871	mov ebx,[pn]
		872	mov dword [fnumb],4
		873	call decnumb
		874
		875	cld
		876	mov ecx,4
		877	mov edi,tic_table
		878	add edi,dword [linen]
		879	mov esi,tic_table+200
		880	rep movsb
		881
		882	add dword [linel],4
		883	add dword [linen],4
		884
		885	call newline
		886
		887	mov dword [ypos],60
		888
		889	cmp dword [xpos],254
		890	jne nscreen
		891
		892	call pause2
		893	call cls2
		894
		895	mov dword [xpos],24
		896	call newline
		897	mov dword [ypos],60
		898
		899	mov edx,proc_head
		900	call printf
		901	call newline
		902	mov edx,proc_hd11
		903	call printf
		904	call newline
		905	call newline
		906
		907	nscreen:
		908	mov eax, dword [count2]
		909	cmp dword [pn],eax
		910	jne ll1
		911	mov dword [pn],0
		912
		913	cmp byte [callp],1
		914	je go
		915
		916	jmp ecmd2
		917
		918	printn:
		919	mov eax,47
		920	shl ebx,16
		921	mov edx,[ypos]
		922	shl edx,16
		923	add edx,[xpos]
		924	mov esi,0x00ddeeff
		925	int 0x40
		926	ret
		927
		928	pause2:
		929	call newline
		930	mov edx,mess1
		931	call printf
		932
		933	mov eax,10
		934	int 0x40
		935
		936	red3:
		937	cmp eax,2
		938	je back
		939	cmp eax,3
		940	je exit
		941
		942	call draw
		943	call red
		944
		945	mov eax,10
		946	int 0x40
		947	jmp red3
		948
		949	back:
		950	mov eax,2
		951	int 0x40
		952	cmp ah,27
		953	je checmd
		954	ret
		955
		956	exit:
		957	mov eax,-1
		958	int 0x40
		959
		960	checmd:
		961	cmp byte [callp],1
		962	je ecmd3
		963
		964	jmp ecmd
		965
		966	err:
		967	call clearsum
		968
		969	call newline
		970
		971	call ppr
		972	cmp dword [count],0
		973	je ecmd1
		974	mov edx,err1
		975	mov eax,4
		976	mov ebx,[ypos]
		977	shl ebx,16
		978	add ebx,[xpos]
		979	mov ecx,0x00ddeeff
135	diamond	980	mov esi,33
31	halyavin	981	int 0x40
		982
		983	cld
		984	mov ecx,27
		985	mov edi,tic_table
		986	add edi,dword [linen]
		987	mov esi,err1
		988	rep movsb
		989
		990	add dword [linen],27
		991	add dword [linel],27
		992
		993	call clearcmd
		994
		995	jmp cmd_ok2
		996
		997	nparam:
		998	cmp byte [callp],1
		999	je gonext4
		1000	call clearsum
		1001	gonext4:
		1002	call newline
		1003	mov edx,mess2
		1004	call printf
		1005
		1006	cmp byte [callp],1
		1007	je go
		1008
		1009	jmp ecmd
		1010
		1011	nparam2:
		1012	cmp byte [callp],1
		1013	je gonext3
		1014	call clearsum
		1015	gonext3:
		1016	call newline
		1017	mov edx,mess5
		1018	call printf
		1019
		1020	cmp byte [callp],0
		1021	je ecmd
		1022
		1023	jmp go
		1024
		1025	cp:
		1026	cmp byte [callp],1
		1027	je gonext10
		1028	call clearsum
		1029	gonext10:
		1030	sub dword [count],3
		1031
		1032	cld
		1033	mov ecx,dword [count]
		1034	mov edi,tic_table+400
		1035	mov esi,tic_table+600
		1036	add esi,3
		1037	rep movsb
		1038
		1039	mov ecx,12
		1040	loop50:
		1041	cmp byte [tic_table+400+ecx],'+'
		1042	je file2
		1043
		1044	loop loop50
		1045
		1046	add dword [count],3
		1047	jmp nparam3
		1048
		1049	file2:
		1050	mov dword [f1len],ecx
		1051
		1052	inc ecx
		1053	mov ebx,ecx
		1054	cld
		1055	mov edi,tic_table+9000
		1056	mov esi,tic_table+400
		1057	rep movsb
		1058
		1059	mov ecx,12
		1060	mov edi,tic_table+9100
		1061	mov esi,tic_table+400
		1062	add esi,ebx
		1063	rep movsb
		1064
		1065	mov ebx,tic_table+9000
		1066	push esi edi ecx eax
		1067	mov esi,ebx
		1068
		1069	mov edi,tic_table+9000
		1070	mov ecx,12
		1071	strup3:
		1072	mov al,[esi]
		1073	cmp al,'A'
		1074	jb @f
		1075	cmp al,'z'
		1076	ja @f
		1077	cmp al,'a'
		1078	jb @f
		1079	add al,-0x20
		1080	@@:
		1081	mov [edi],al
		1082	inc esi
		1083	inc edi
		1084	dec ecx
		1085	jnz strup3
		1086	pop eax ecx edi esi
		1087
		1088	mov ecx,dword [f1len]
		1089
		1090	loopcp:
		1091	cmp byte [tic_table+9000+ecx],'.'
		1092	je chdotcp
		1093
		1094	loop loopcp
		1095
		1096	jmp chnodotcp
		1097
		1098	chdotcp:
		1099	mov ebx,dword [f1len]
		1100
		1101	cld
		1102	mov ecx,4
		1103	mov edi,tic_table+9000
		1104	add edi,ebx
		1105	mov esi,dzero
		1106	rep movsb
		1107
		1108	jmp gocp1
		1109
		1110	chnodotcp:
		1111	mov ebx,dword [f1len]
		1112
		1113	mov edi,tic_table+9000
		1114	add edi,ebx
		1115	mov esi,ddot
		1116	movsb
		1117
		1118	inc ebx
		1119
		1120	cld
		1121	mov ecx,3
		1122	mov edi,tic_table+9000
		1123	add edi,ebx
		1124	mov esi,fill3
		1125	rep movsb
		1126
		1127	gocp1:
		1128	mov eax,6
		1129	mov ebx,tic_table+9000
		1130	mov ecx,0
		1131	mov edx,-1
		1132	mov esi,tic_table+25000
		1133	int 0x40
		1134
		1135	cmp eax,4294967295
		1136	je nosuchfile
		1137
		1138	mov dword [filesize],eax
		1139
		1140	mov ebx,tic_table+9100
		1141	push esi edi ecx eax
		1142	mov esi,ebx
		1143
		1144	mov edi,tic_table+9100
		1145	mov ecx,12
		1146	strup4:
		1147	mov al,[esi]
		1148	cmp al,'A'
		1149	jb @f
		1150	cmp al,'z'
		1151	ja @f
		1152	cmp al,'a'
		1153	jb @f
		1154	add al,-0x20
		1155	@@:
		1156	mov [edi],al
		1157	inc esi
		1158	inc edi
		1159	dec ecx
		1160	jnz strup4
		1161	pop eax ecx edi esi
		1162
		1163	mov ebx,dword [f1len]
		1164	mov ecx,dword [count]
		1165	sub ecx,ebx
		1166
		1167	mov dword [f2len],ecx
		1168
		1169	loopcp2:
		1170	cmp byte [tic_table+9100+ecx],'.'
		1171	je chdotcp2
		1172
		1173	loop loopcp2
		1174
		1175	jmp chnodotcp2
		1176
		1177	chdotcp2:
		1178	mov ebx,dword [f2len]
		1179
		1180	cld
		1181	mov ecx,4
		1182	mov edi,tic_table+9100
		1183	add edi,ebx
		1184	mov esi,dzero
		1185	rep movsb
		1186
		1187	jmp gocp2
		1188
		1189	chnodotcp2:
		1190	mov ebx,dword [f2len]
		1191
		1192	mov edi,tic_table+9100
		1193	add edi,ebx
		1194	mov esi,ddot
		1195	movsb
		1196
		1197	inc ebx
		1198
		1199	cld
		1200	mov ecx,3
		1201	mov edi,tic_table+9100
		1202	add edi,ebx
		1203	mov esi,fill3
		1204	rep movsb
		1205
		1206	gocp2:
		1207	mov eax,6
		1208	mov ebx,tic_table+9100
		1209	mov ecx,0
		1210	mov edx,-1
		1211	mov esi,tic_table+25000
		1212	int 0x40
		1213
		1214	cmp eax,4294967295
		1215	jne alreadyexist
		1216
		1217	mov eax,33
		1218	mov ebx,tic_table+9100
		1219	mov ecx,tic_table+25000
		1220	mov edx,dword [filesize]
		1221	mov esi,0
		1222	int 0x40
		1223
		1224	cmp eax,0
		1225	jne no_ok
		1226
		1227	mov eax,6
		1228	mov ebx,tic_table+9100
		1229	mov ecx,0
		1230	mov edx,-1
		1231	mov esi,tic_table+25000
		1232	int 0x40
		1233
		1234	cmp eax,4294967295
		1235	je no_ok
		1236
		1237	call newline
		1238	mov edx,mess11
		1239	call printf
		1240	jmp cp_end
		1241
		1242	no_ok:
		1243	call newline
		1244	mov edx,mess12
		1245	call printf
		1246
		1247	cp_end:
		1248	add dword [count],3
		1249
		1250	cmp byte [callp],1
		1251	je go
		1252
		1253	jmp ecmd
		1254
		1255	alreadyexist:
		1256	add dword [count],3
		1257	call newline
		1258	mov edx,mess13
		1259	call printf
		1260
		1261	cmp byte [callp],1
		1262	je go
		1263
		1264	jmp ecmd
		1265
		1266	rn:
		1267	cmp byte [callp],1
		1268	je gonext11
		1269	call clearsum
		1270	gonext11:
		1271	sub dword [count],3
		1272
		1273	cld
		1274	mov ecx,dword [count]
		1275	mov edi,tic_table+400
		1276	mov esi,tic_table+600
		1277	add esi,3
		1278	rep movsb
		1279
		1280	mov ecx,12
		1281	loop51:
		1282	push ecx
		1283	cmp byte [tic_table+400+ecx],'+'
		1284	je file3
		1285
		1286	pop ecx
		1287	loop loop51
		1288
		1289	add dword [count],3
		1290	jmp nparam4
		1291
		1292	file3:
		1293	mov dword [f1len],ecx
		1294
		1295	inc ecx
		1296	mov ebx,ecx
		1297	cld
		1298	mov edi,tic_table+9000
		1299	mov esi,tic_table+400
		1300	rep movsb
		1301
		1302	mov ecx,12
		1303	mov edi,tic_table+9100
		1304	mov esi,tic_table+400
		1305	add esi,ebx
		1306	rep movsb
		1307
		1308	mov ebx,tic_table+9000
		1309	push esi edi ecx eax
		1310	mov esi,ebx
		1311
		1312	mov edi,tic_table+9000
		1313	mov ecx,12
		1314	strup5:
		1315	mov al,[esi]
		1316	cmp al,'A'
		1317	jb @f
		1318	cmp al,'z'
		1319	ja @f
		1320	cmp al,'a'
		1321	jb @f
		1322	add al,-0x20
		1323	@@:
		1324	mov [edi],al
		1325	inc esi
		1326	inc edi
		1327	dec ecx
		1328	jnz strup5
		1329	pop eax ecx edi esi
		1330
		1331	mov ecx,dword [f1len]
		1332
		1333	looprn:
		1334	cmp byte [tic_table+9000+ecx],'.'
		1335	je chdotrn
		1336
		1337	loop looprn
		1338
		1339	jmp chnodotrn
		1340
		1341	chdotrn:
		1342	mov ebx,dword [f1len]
		1343
		1344	cld
		1345	mov ecx,4
		1346	mov edi,tic_table+9000
		1347	add edi,ebx
		1348	mov esi,dzero
		1349	rep movsb
		1350
		1351	jmp gorn1
		1352
		1353	chnodotrn:
		1354	mov ebx,dword [f1len]
		1355
		1356	mov edi,tic_table+9000
		1357	add edi,ebx
		1358	mov esi,ddot
		1359	movsb
		1360
		1361	inc ebx
		1362
		1363	cld
		1364	mov ecx,3
		1365	mov edi,tic_table+9000
		1366	add edi,ebx
		1367	mov esi,fill3
		1368	rep movsb
		1369
		1370	gorn1:
		1371	mov eax,6
		1372	mov ebx,tic_table+9000
		1373	mov ecx,0
		1374	mov edx,-1
		1375	mov esi,tic_table+25000
		1376	int 0x40
		1377
		1378	cmp eax,4294967295
		1379	je nosuchfile
		1380
		1381	mov ebx,tic_table+9100
		1382	push esi edi ecx eax
		1383	mov esi,ebx
		1384
		1385	mov edi,tic_table+9100
		1386	mov ecx,12
		1387	strup6:
		1388	mov al,[esi]
		1389	cmp al,'A'
		1390	jb @f
		1391	cmp al,'z'
		1392	ja @f
		1393	cmp al,'a'
		1394	jb @f
		1395	add al,-0x20
		1396	@@:
		1397	mov [edi],al
		1398	inc esi
		1399	inc edi
		1400	dec ecx
		1401	jnz strup6
		1402	pop eax ecx edi esi
		1403
		1404	mov ebx,dword [f1len]
		1405	mov ecx,dword [count]
		1406	sub ecx,ebx
		1407
		1408	mov dword [f2len],ecx
		1409
		1410	looprn2:
		1411	cmp byte [tic_table+9100+ecx],'.'
		1412	je chdotrn2
		1413
		1414	loop looprn2
		1415
		1416	jmp chnodotrn2
		1417
		1418	chdotrn2:
		1419	mov ebx,dword [f2len]
		1420
		1421	cld
		1422	mov ecx,4
		1423	mov edi,tic_table+9100
		1424	add edi,ebx
		1425	mov esi,dzero
		1426	rep movsb
		1427
		1428	jmp gorn2
		1429
		1430	chnodotrn2:
		1431	mov ebx,dword [f2len]
		1432
		1433	mov edi,tic_table+9100
		1434	add edi,ebx
		1435	mov esi,ddot
		1436	movsb
		1437
		1438	inc ebx
		1439
		1440	cld
		1441	mov ecx,3
		1442	mov edi,tic_table+9100
		1443	add edi,ebx
		1444	mov esi,fill3
		1445	rep movsb
		1446
		1447	gorn2:
		1448	mov eax,6
		1449	mov ebx,tic_table+9100
		1450	mov ecx,0
		1451	mov edx,-1
		1452	mov esi,tic_table+25000
		1453	int 0x40
		1454
		1455	cmp eax,4294967295
		1456	jne alreadyexist
		1457
		1458	mov eax,6
		1459	mov ebx,tic_table+9000
		1460	mov ecx,0
		1461	mov edx,-1
		1462	mov esi,tic_table+25000
		1463	int 0x40
		1464
		1465	mov dword [filesize],eax
		1466
		1467	mov eax,33
		1468	mov ebx,tic_table+9100
		1469	mov ecx,tic_table+25000
		1470	mov edx,dword [filesize]
		1471	mov esi,0
		1472	int 0x40
		1473
		1474	cmp eax,0
		1475	jne no_ok1
		1476
		1477	mov eax,6
		1478	mov ebx,tic_table+9100
		1479	mov ecx,0
		1480	mov edx,-1
		1481	mov esi,tic_table+25000
		1482	int 0x40
		1483
		1484	cmp eax,4294967295
		1485	je no_ok1
		1486
		1487	mov eax,32
		1488	mov ebx,tic_table+9000
		1489	int 0x40
		1490
		1491	call newline
		1492	mov edx,mess14
		1493	call printf
		1494	jmp rn_end
		1495
		1496	no_ok1:
		1497	call newline
		1498	mov edx,mess15
		1499	call printf
		1500
		1501	rn_end:
		1502	add dword [count],3
		1503
		1504	cmp byte [callp],1
		1505	je go
		1506
		1507	jmp ecmd
		1508
		1509	del:
		1510	cmp byte [callp],1
		1511	je gonext12
		1512	call clearsum
		1513	gonext12:
		1514	sub dword [count],4
		1515
		1516	cld
		1517	mov ecx,dword [count]
		1518	mov edi,tic_table+400
		1519	mov esi,tic_table+600
		1520	add esi,4
		1521	rep movsb
		1522
		1523	mov ebx,tic_table+400
		1524	push esi edi ecx eax
		1525	mov esi,ebx
		1526
		1527	mov edi,tic_table+400
		1528	mov ecx,70
		1529	strup1:
		1530	mov al,[esi]
		1531	cmp al,'A'
		1532	jb @f
		1533	cmp al,'z'
		1534	ja @f
		1535	cmp al,'a'
		1536	jb @f
		1537	add al,-0x20
		1538	@@:
		1539	mov [edi],al
		1540	inc esi
		1541	inc edi
		1542	dec ecx
		1543	jnz strup1
		1544	pop eax ecx edi esi
		1545
		1546	mov ecx,dword [count]
		1547
		1548	loopdel:
		1549	cmp byte [tic_table+400+ecx],'.'
		1550	je chdotdel
		1551
		1552	loop loopdel
		1553
		1554	jmp chnodotdel
		1555
		1556	chdotdel:
		1557	mov ebx,dword [count]
		1558
		1559	cld
		1560	mov ecx,4
		1561	mov edi,tic_table+400
		1562	add edi,ebx
		1563	mov esi,dzero
		1564	rep movsb
		1565
		1566	jmp godel
		1567
		1568	chnodotdel:
		1569	mov ebx,dword [count]
		1570
		1571	mov edi,tic_table+400
		1572	add edi,ebx
		1573	mov esi,ddot
		1574	movsb
		1575
		1576	inc ebx
		1577
		1578	cld
		1579	mov ecx,3
		1580	mov edi,tic_table+400
		1581	add edi,ebx
		1582	mov esi,fill3
		1583	rep movsb
		1584
		1585	godel:
		1586	mov eax,6
		1587	mov ebx,tic_table+400
		1588	mov ecx,0
		1589	mov edx,-1
		1590	mov esi,tic_table+25000
		1591	int 0x40
		1592
		1593	cmp eax,4294967295
		1594	je nosuchfile2
		1595
		1596	mov eax,32
		1597	mov ebx,tic_table+400
		1598	int 0x40
		1599
		1600	call newline
		1601	mov edx,mess6
		1602	call printf
		1603
		1604	add dword [count],4
		1605
		1606	del_end:
		1607	add dword [count],4
		1608
		1609	cmp byte [callp],1
		1610	je go
		1611
		1612	jmp ecmd
		1613
		1614	nosuchfile:
		1615	add dword [count],3
		1616	call newline
		1617	mov edx,mess7
		1618	call printf
		1619
		1620	cmp byte [callp],0
		1621	je ecmd
		1622
		1623	jmp go
		1624
		1625	nosuchfile2:
		1626	add dword [count],4
		1627	call newline
		1628	mov edx,mess7
		1629	call printf
		1630
		1631	cmp byte [callp],1
		1632	je go
		1633
		1634	jmp ecmd
		1635
		1636	nosuchfile3:
		1637	inc dword [count]
		1638	call newline
		1639	mov edx,mess7
		1640	call printf
		1641	jmp ecmd
		1642
		1643	autoexec:
		1644	mov eax,6
		1645	mov ebx,autoexfile
		1646	mov ecx,0
		1647	mov edx,-1
		1648	mov esi,tic_table+15000
		1649	int 0x40
		1650
		1651	cmp eax,4294967295
		1652	je noaxfile
		1653
		1654	sub dword [linen],81
		1655	sub dword [xpos],10
		1656	dec dword [lpress]
		1657
		1658	jmp autolabel
		1659
		1660	noaxfile:
		1661	ret
		1662
		1663	command:
		1664	call clearsum
		1665	dec dword [count]
		1666
		1667	cld
		1668	mov ecx,dword [count]
		1669	mov edi,filename
		1670	mov esi,tic_table+601
		1671	rep movsb
		1672
		1673	mov ebx,filename
		1674	push esi edi ecx eax
		1675	mov esi,ebx
		1676
		1677	mov edi,filename
		1678	mov ecx,12
		1679	strup7:
		1680	mov al,[esi]
		1681	cmp al,'A'
		1682	jb @f
		1683	cmp al,'z'
		1684	ja @f
		1685	cmp al,'a'
		1686	jb @f
		1687	add al,-0x20
		1688	@@:
		1689	mov [edi],al
		1690	inc esi
		1691	inc edi
		1692	dec ecx
		1693	jnz strup7
		1694	pop eax ecx edi esi
		1695
		1696	cld
		1697	mov ecx,4
		1698	mov edi,filename+8
		1699	mov esi,dcmd
		1700	rep movsb
		1701
		1702	mov eax,6
		1703	mov ebx,filename
		1704	mov ecx,0
		1705	mov edx,-1
		1706	mov esi,tic_table+15000
		1707	int 0x40
		1708
		1709	cmp eax,4294967295
		1710	je nosuchfile3
		1711
		1712	autolabel:
		1713	mov dword [filesize2],eax
		1714	mov byte [callp],1
		1715
		1716	go:
		1717	call clearcmd
		1718
		1719	gonext:
		1720	cmp dword [filesize2],0
		1721	je ecmd3
		1722
		1723	mov ebx,tic_table
		1724	add ebx,dword [readcnt]
		1725	cmp byte [ebx],13
		1726	je read
		1727
		1728	inc dword [readcnt]
		1729	inc dword [readcnt2]
		1730	dec dword [filesize2]
		1731
		1732	jmp gonext
		1733
		1734	read:
		1735	mov ecx,dword [readcnt2]
		1736	mov ebx,0
		1737	mov edx,dword [readcnt]
		1738	sub edx,dword [readcnt2]
		1739	loop60:
		1740	push ecx
		1741	mov edi,tic_table+600
		1742	add edi,ebx
		1743	mov esi,tic_table
		1744	add esi,edx
		1745	movsb
		1746
		1747	inc ebx
		1748	inc edx
		1749
		1750	pop ecx
		1751	loop loop60
		1752
		1753	mov eax,dword [readcnt2]
		1754	mov dword [count],eax
		1755
		1756	mov dword [readcnt2],0
		1757	add dword [readcnt],2
		1758
		1759	jmp checkcmd
		1760
		1761	decnumb:
		1762	cmp dword [fnumb],4
		1763	je go1
		1764
		1765	call divide
		1766	mov dword [n8],edx
		1767	mov ebx,eax
		1768	call divide
		1769	mov dword [n7],edx
		1770	mov ebx,eax
		1771	call divide
		1772	mov dword [n6],edx
		1773	mov ebx,eax
		1774	call divide
		1775	mov dword [n5],edx
		1776	mov ebx,eax
		1777
		1778	go1:
		1779	call divide
		1780	mov dword [n4],edx
		1781	mov ebx,eax
		1782	call divide
		1783	mov dword [n3],edx
		1784	mov ebx,eax
		1785	call divide
		1786	mov dword [n2],edx
		1787	mov ebx,eax
		1788	call divide
		1789	mov dword [n1],edx
		1790
		1791	add dword [n1],48
		1792	add dword [n2],48
		1793	add dword [n3],48
		1794	add dword [n4],48
		1795
		1796	cmp dword [fnumb],4
		1797	je go2
		1798
		1799	add dword [n5],48
		1800	add dword [n6],48
		1801	add dword [n7],48
		1802	add dword [n8],48
		1803
		1804	go2:
		1805	mov edi,tic_table+200
		1806	mov esi,n1
		1807	movsb
		1808	mov edi,tic_table+201
		1809	mov esi,n2
		1810	movsb
		1811	mov edi,tic_table+202
		1812	mov esi,n3
		1813	movsb
		1814	mov edi,tic_table+203
		1815	mov esi,n4
		1816	movsb
		1817
		1818	cmp dword [fnumb],4
		1819	je go4
		1820
		1821	mov edi,tic_table+204
		1822	mov esi,n5
		1823	movsb
		1824	mov edi,tic_table+205
		1825	mov esi,n6
		1826	movsb
		1827	mov edi,tic_table+206
		1828	mov esi,n7
		1829	movsb
		1830	mov edi,tic_table+207
		1831	mov esi,n8
		1832	movsb
		1833
		1834	go4:
		1835	mov eax,4
		1836	mov ebx,[ypos]
		1837	shl ebx,16
		1838	add ebx,[xpos]
		1839	mov ecx,0x00ddeeff
		1840	mov edx,tic_table+200
		1841	mov esi,dword [fnumb]
		1842	int 0x40
		1843
		1844	ret
		1845
		1846	divide:
		1847	mov eax,ebx
		1848	xor edx,edx
		1849	mov ecx,10
		1850	div ecx
		1851	ret
		1852
		1853	kill:
		1854	mov eax,0
		1855	mov ebx,0
		1856	mov ecx,0
		1857	mov edx,0
		1858
		1859	mov al, byte [tic_table+608]
		1860	mov bl, byte [tic_table+607]
		1861	mov cl, byte [tic_table+606]
		1862	mov dl, byte [tic_table+605]
		1863
		1864	sub al,48
		1865	sub bl,48
		1866	sub cl,48
		1867	sub dl,48
		1868
		1869	imul ebx,10
		1870	imul ecx,100
		1871	imul edx,1000
		1872
		1873	mov esi,0
		1874	add esi,eax
		1875	add esi,ebx
		1876	add esi,ecx
		1877	add esi,edx
		1878	mov ecx,esi
		1879
		1880	mov eax,9
		1881	mov ebx,tic_table
		1882	int 0x40
		1883
		1884	cmp eax,ecx
		1885	jb nosuchprocess
		1886
		1887	mov eax,18
		1888	mov ebx,2
		1889	mov edx,0
		1890	int 0x40
		1891
		1892	call clearsum
		1893	call newline
		1894	mov edx,mess3
		1895	call printf
		1896	call newline
		1897	mov edx,mess4
		1898	call printf
		1899
		1900	cmp byte [callp],1
		1901	je go
		1902
		1903	jmp ecmd
		1904
		1905	ecmd1:
		1906	sub dword [xpos],10
		1907	jmp ecmd
		1908
		1909	nosuchprocess:
		1910	call clearsum
		1911	call newline
		1912	mov edx,mess8
		1913	call printf
		1914
		1915	cmp byte [callp],1
		1916	je go
		1917
		1918	jmp ecmd
		1919
		1920	echoeol:
		1921	cmp byte [callp],1
		1922	je gonext15
		1923	call clearsum
		1924	gonext15:
		1925	call newline
		1926
		1927	cmp byte [callp],1
		1928	je go
		1929
		1930	jmp ecmd
		1931
		1932	echo:
		1933	cmp byte [callp],1
		1934	je gonext13
		1935	call clearsum
		1936	gonext13:
		1937	sub dword [count],5
		1938
		1939	cld
		1940	mov ecx,dword [count]
		1941	mov edi,tic_table+300
		1942	mov esi,tic_table+600
		1943	add esi,5
		1944	rep movsb
		1945
		1946	call newline
		1947
		1948	mov eax,4
		1949	mov ebx,6
		1950	shl ebx,16
		1951	add ebx,[xpos]
		1952	mov edx,tic_table+300
		1953	mov ecx,0x00ddeeff
		1954	mov esi,dword [count]
		1955	int 0x40
		1956
		1957	cld
		1958	mov ecx,dword [count]
		1959	mov edi,tic_table
		1960	add edi,dword [linen]
		1961	mov esi,tic_table+300
		1962	rep movsb
		1963
		1964	mov eax,dword [count]
		1965	add dword [linen],eax
		1966	add dword [linel],eax
		1967
		1968	add dword [count],5
		1969
		1970	cmp byte [callp],1
		1971	je go
		1972
		1973	jmp ecmd
		1974
		1975	printf:
		1976	mov eax,4
		1977	mov ebx,6
		1978	shl ebx,16
		1979	add ebx,[xpos]
		1980	mov ecx,0x00ddeeff
		1981	mov esi,45
		1982	int 0x40
		1983
		1984	cld
		1985	mov ecx,45
		1986	mov edi,tic_table
		1987	add edi,dword [linen]
		1988	mov esi,edx
		1989	rep movsb
		1990
		1991	add dword [linen],46
		1992	add dword [linel],46
		1993
		1994	add dword [ypos],6
		1995
		1996	ret
		1997
		1998	printipc:
		1999	mov eax,4
		2000	mov ebx,6
		2001	shl ebx,16
		2002	add ebx,[xpos]
		2003	mov ecx,0x00ddeeff
		2004	mov esi,79
		2005	int 0x40
		2006
		2007	cld
		2008	mov ecx,79
		2009	mov edi,tic_table
		2010	add edi,dword [linen]
		2011	mov esi,edx
		2012	rep movsb
		2013
		2014	add dword [linen],80
		2015	add dword [linel],80
		2016
		2017	mov dword [ypos],480
		2018
		2019	ret
		2020
		2021	clearcmd:
		2022	cld
		2023	mov ecx,80
		2024	mov edi,tic_table+600
		2025	mov esi,tic_table+500
		2026	rep movsb
		2027
		2028	mov ecx,80
		2029	mov edi,tic_table+400
		2030	mov esi,tic_table+500
		2031	rep movsb
		2032
		2033	mov ecx,81
		2034	mov edi,tic_table+800
		2035	mov [esi],byte 'x'
		2036	rep movsb
		2037
		2038	mov ecx,12
		2039	mov edi,filename
		2040	mov esi,pname
		2041	rep movsb
		2042
		2043	mov dword [count],0
		2044	mov dword [pn],0
		2045	mov dword [blockcnt],0
		2046	mov dword [lscnt],8024
		2047	ret
		2048
		2049	oldcmd:
		2050	mov eax,dword [count]
		2051	mov dword [oldcount],eax
		2052
		2053	cld
		2054	mov ecx,81
		2055	mov edi,tic_table+900
		2056	mov esi,tic_table+500
		2057	rep movsb
		2058
		2059	cld
		2060	mov ecx,81
		2061	mov edi,tic_table+900
		2062	mov esi,tic_table+600
		2063	rep movsb
		2064
		2065	ret
		2066
		2067	ecmd:
		2068	call oldcmd
		2069	call clearcmd
		2070	call newline
		2071
		2072	call ppr
		2073	call cursor
		2074
		2075	jmp still
		2076
		2077	ecmd2:
		2078	call clearcmd
		2079	call newline
		2080
		2081	call ppr
		2082	call cursor
		2083	jmp still
		2084
		2085	ecmd3:
		2086	call clearcmd
		2087	call newline
		2088
		2089	call ppr
		2090	call cursor
		2091
		2092	mov dword [readcnt],15000
		2093	mov dword [readcnt2],0
		2094	mov byte [callp],0
		2095	mov dword [filesize2],0
		2096
		2097	jmp still
		2098
		2099	chparam:
		2100	pop ecx
		2101	mov eax,ecx
		2102	mov edx,eax
		2103	push edx
		2104	inc eax
		2105
		2106	cld
		2107	mov edi,tic_table+400
		2108	mov esi,tic_table+600
		2109	rep movsb
		2110
		2111	mov ecx,dword [count]
		2112	sub ecx,eax
		2113
		2114	cld
		2115	mov edi,tic_table+800
		2116	mov esi,tic_table+600
		2117	add esi,eax
		2118	rep movsb
		2119
		2120	pop edx
		2121
		2122	mov dword [ipccount],edx
		2123
		2124	cld
		2125	mov ecx,11
		2126	mov edi,tic_table+400
		2127	add edi,edx
		2128	mov esi,qspace
		2129	rep movsb
		2130
		2131	mov eax,19
		2132	mov ebx,tic_table+400
		2133	mov ecx,tic_table+800
		2134	int 0x40
		2135
		2136	cmp eax,0xfffffff0
		2137	jb cmd_ok
		2138
		2139	jmp err
		2140
		2141	cls:
		2142	call oldcmd
		2143	call cls2
		2144
		2145	cmp byte [callp],0
		2146	jne needret
		2147
		2148	call clearcmd
		2149	call ppr
		2150	call cursor
		2151
		2152	jmp still
		2153
		2154	needret:
		2155	sub dword [linen],81
		2156	dec dword [lpress]
		2157	sub dword [xpos],10
		2158
		2159	jmp gonext
		2160
		2161	cls1:
		2162	mov eax,13
		2163	mov ebx,6*65536+486
		2164	mov ecx,24*65536+250
		2165	mov edx,0
		2166	int 0x40
		2167	ret
		2168
		2169	cls2:
		2170	mov dword [linen],2000
		2171	mov ecx,2025
		2172	loop2:
		2173	push ecx
		2174	mov edi,tic_table
		2175	add edi,dword [linen]
		2176	mov esi,fill1
		2177	movsb
		2178
		2179	inc dword [linen]
		2180	pop ecx
		2181	loop loop2
		2182
		2183	mov dword [linel],0
		2184	mov dword [linen],2000
		2185	mov dword [linev],2000
		2186	mov dword [xpos],24
		2187	mov dword [ypos],6
		2188	mov dword [lpress],1
		2189	mov dword [stnum],1
		2190
		2191	call cls1
		2192
		2193	ret
		2194
		2195	chscr:
		2196	cmp dword [xpos],264
		2197	jne no_scr
		2198
		2199	mov dword [cnt_loop1],4500
		2200	mov dword [cnt_loop2],2000
		2201
		2202	mov ecx,2025
		2203	loop10:
		2204	push ecx
		2205	mov edi,tic_table
		2206	add edi,dword [cnt_loop1]
		2207	mov esi,tic_table
		2208	add esi,dword [cnt_loop2]
		2209	movsb
		2210
		2211	inc dword [cnt_loop1]
		2212	inc dword [cnt_loop2]
		2213
		2214	pop ecx
		2215	loop loop10
		2216
		2217	mov dword [cnt_loop1],2000
		2218
		2219	mov ecx,2025
		2220	loop11:
		2221	push ecx
		2222	mov edi,tic_table
		2223	add edi,dword [cnt_loop1]
		2224	mov esi,fill1
		2225	movsb
		2226
		2227	inc dword [cnt_loop1]
		2228
		2229	pop ecx
		2230	loop loop11
		2231
		2232	mov dword [cnt_loop1],2000
		2233	mov dword [cnt_loop2],4581
		2234
		2235	mov ecx,1944
		2236	loop12:
		2237	push ecx
		2238	mov edi,tic_table
		2239	add edi,dword [cnt_loop1]
		2240	mov esi,tic_table
		2241	add esi,dword [cnt_loop2]
		2242	movsb
		2243
		2244	inc dword [cnt_loop1]
		2245	inc dword [cnt_loop2]
		2246
		2247	pop ecx
		2248	loop loop12
		2249
		2250	dec dword [lpress]
		2251	sub dword [linen],81
		2252
		2253	mov dword [xpos],264
		2254	mov dword [ypos],6
		2255	mov dword [clr],480
		2256	call clear
		2257
		2258	call red
		2259
		2260	no_scr:
		2261	ret
		2262
		2263	newline:
		2264	call chscr
		2265	push edx
		2266	mov edx,81
		2267	sub edx,dword [linel]
		2268	add dword [linen],edx
		2269	pop edx
		2270
		2271	inc dword [lpress]
		2272
		2273	mov dword [linel],0
		2274	add dword [xpos],10
		2275	ret
		2276
		2277	fill:
		2278	cld
		2279	mov ecx,81
		2280	mov edi,tic_table+500
		2281	mov esi,fill1
		2282	rep movsb
		2283	ret
		2284
		2285	nparam3:
		2286	cmp byte [callp],1
		2287	je gonext5
		2288	call clearsum
		2289	gonext5:
		2290	call newline
		2291	mov edx,mess9
		2292	call printf
		2293
		2294	cmp byte [callp],1
		2295	je go
		2296
		2297	jmp ecmd
		2298
		2299	nparam4:
		2300	cmp byte [callp],1
		2301	je gonext6
		2302	call clearsum
		2303	gonext6:
		2304	call newline
		2305	mov edx,mess0
		2306	call printf
		2307
		2308	cmp byte [callp],1
		2309	je go
		2310
		2311	jmp ecmd
		2312
		2313	nparam5:
		2314	cmp byte [callp],1
		2315	je gonext14
		2316	call clearsum
		2317	gonext14:
		2318	call newline
		2319	mov edx,mess16
		2320	call printf
		2321	jmp ecmd
		2322
		2323	endscr:
		2324	cmp byte [callp],1
		2325	je ecmd3
		2326	call clearsum
		2327	call newline
		2328	mov edx,mess17
		2329	call printf
		2330	jmp ecmd
		2331
		2332	checkcmd:
		2333	cmp dword [tic_table+600],'help'
		2334	jne no_help
		2335	cmp dword [count],4
		2336	jne no_help
		2337
		2338	jmp help
		2339
		2340	no_help:
		2341	cmp dword [tic_table+600],'exit'
		2342	jne no_exit
		2343	cmp dword [count],4
		2344	jne no_exit
		2345
		2346	jmp exit
		2347
		2348	no_exit:
		2349	cmp word [tic_table+600],'ve'
		2350	jne no_ver
		2351	cmp byte [tic_table+602],'r'
		2352	jne no_ver
		2353	cmp dword [count],3
		2354	jne no_ver
		2355
		2356	jmp ver
		2357
		2358	no_ver:
		2359	cmp word [tic_table+600],'cl'
		2360	jne no_cls
		2361	cmp byte [tic_table+602],'s'
		2362	jne no_cls
		2363	cmp dword [count],3
		2364	jne no_cls
		2365
		2366	jmp cls
		2367
		2368	no_cls:
		2369	cmp dword [tic_table+600],'shut'
		2370	jne no_shutdown
		2371	cmp dword [tic_table+604],'down'
		2372	jne no_shutdown
		2373	cmp dword [count],8
		2374	jne no_shutdown
		2375
		2376	mov eax,18
		2377	mov ebx,1
		2378	int 0x40
		2379
		2380	mov eax,5
		2381	mov ebx,200
		2382	int 0x40
		2383
		2384	no_shutdown:
		2385	cmp word [tic_table+600],'ps'
		2386	jne no_ps
		2387	cmp dword [count],2
		2388	je ps
		2389
		2390	no_ps:
		2391	cmp dword [tic_table+600],'kill'
		2392	jne no_kill
		2393	cmp byte [tic_table+604],' '
		2394	jne no_kill
		2395	cmp dword [count],9
		2396	je kill
		2397
		2398	jmp nparam
		2399
		2400	no_kill:
		2401	cmp dword [tic_table+600],'paus'
		2402	jne no_pause
		2403	cmp byte [tic_table+604],'e'
		2404	jne no_pause
		2405	cmp dword [count],5
		2406	je pause1
		2407
		2408	no_pause:
		2409	cmp dword [tic_table+600],'echo'
		2410	jne no_echo
		2411	cmp dword [count],4
		2412	je echoeol
		2413	cmp byte [tic_table+604],' '
		2414	je echo
		2415
		2416	no_echo:
		2417	cmp word [tic_table+600],'de'
		2418	jne no_del
		2419	cmp byte [tic_table+602],'l'
		2420	jne no_del
		2421	cmp byte [tic_table+603],' '
		2422	jne no_del
		2423	cmp dword [count],3
		2424	je nparam2
		2425	cmp dword [count],4
		2426	je nparam2
		2427
		2428	jmp del
		2429
		2430	no_del:
		2431	cmp word [tic_table+600],'ls'
		2432	jne no_ls
		2433	cmp dword [count],2
		2434	je ls
		2435	cmp dword [count],3
		2436	je ls
		2437
		2438	jmp lscheck
		2439
		2440	no_ls:
		2441	cmp word [tic_table+600],'cp'
		2442	jne no_cp
		2443	cmp dword [count],2
		2444	je nparam3
		2445	cmp dword [count],3
		2446	je nparam3
		2447	cmp dword [count],4
		2448	je nparam3
		2449	cmp dword [count],5
		2450	je nparam3
		2451	cmp byte [tic_table+602],' '
		2452	jne no_cp
		2453
		2454	jmp cp
		2455
		2456	no_cp:
		2457	cmp word [tic_table+600],'rn'
		2458	jne no_rn
		2459	cmp dword [count],2
		2460	je nparam4
		2461	cmp dword [count],3
		2462	je nparam4
		2463	cmp dword [count],4
		2464	je nparam4
		2465	cmp dword [count],5
		2466	je nparam4
		2467	cmp byte [tic_table+602],' '
		2468	jne no_rn
		2469
		2470	jmp rn
		2471
		2472	no_rn:
		2473	cmp dword [tic_table+600],'ends'
		2474	jne no_end
		2475	cmp dword [count],4
		2476	je endscr
		2477
		2478	no_end:
		2479	cmp byte [callp],1
		2480	je checkprg
		2481
		2482	ret
		2483
		2484	checkprg:
		2485	mov ebx,tic_table+600
		2486	push esi edi ecx eax
		2487	mov esi,ebx
		2488
		2489	mov edi,tic_table+600
		2490	mov ecx,74
		2491	strup:
		2492	mov al,[esi]
		2493	cmp al,'A'
		2494	jb @f
		2495	cmp al,'z'
		2496	ja @f
		2497	cmp al,'a'
		2498	jb @f
		2499	add al,-0x20
		2500	@@:
		2501	mov [edi],al
		2502	inc esi
		2503	inc edi
		2504	dec ecx
		2505	jnz strup
		2506	pop eax ecx edi esi
		2507
		2508	mov ecx,dword [count]
		2509	loop20:
		2510	push ecx
		2511	cmp byte [tic_table+600+ecx],'&'
		2512	je chparam
		2513
		2514	pop ecx
		2515	loop loop20
		2516
		2517	cld
		2518	mov ecx,11
		2519	mov edi,tic_table+600
		2520	add edi,dword [count]
		2521	mov esi,qspace
		2522	rep movsb
		2523
		2524	mov eax,19
		2525	mov ebx,tic_table+600
		2526	mov ecx,0
		2527	int 0x40
		2528
		2529	cmp eax,0xfffffff0
		2530	jb cmd_ok_1
		2531
		2532	jmp err
		2533
		2534	cmd_ok_1:
		2535	mov eax,dword [count]
		2536	mov dword [ipccount],eax
		2537
		2538	cmd_ok:
		2539	mov eax,60
		2540	mov ebx,1
		2541	mov ecx,ipcb
		2542	mov edx,118
		2543	int 0x40
		2544
		2545	call clearipc
		2546
		2547	mov eax,40
		2548	mov ebx,01000111b
		2549	int 0x40
		2550
		2551	mov eax,23
		2552	mov ebx,10
		2553	int 0x40
		2554
		2555	cmp eax,7
		2556	jne noipc
		2557
		2558	cmp byte [callp],1
		2559	je printipcprgname
		2560
		2561	call clearsum
		2562
		2563	ipccontinue:
		2564	mov eax,9
		2565	mov ebx,tic_table+100000
		2566	mov ecx,-1
		2567	int 0x40
		2568
		2569	mov ecx,eax
		2570	loopfindipc:
		2571	push ecx
		2572
		2573	mov eax,9
		2574	mov ebx,tic_table+100000
		2575	int 0x40
		2576
		2577	mov bl,[tic_table+600]
		2578	cmp byte [tic_table+100000+10],bl
		2579	jne goonipc
		2580	cmp dword [ipccount],1
		2581	je ipcfinished
		2582
		2583	mov bl,[tic_table+601]
		2584	cmp byte [tic_table+100000+11],bl
		2585	jne goonipc
		2586	cmp dword [ipccount],2
		2587	je ipcfinished
		2588
		2589	mov bl,[tic_table+602]
		2590	cmp byte [tic_table+100000+12],bl
		2591	jne goonipc
		2592	cmp dword [ipccount],3
		2593	je ipcfinished
		2594
		2595	mov bl,[tic_table+603]
		2596	cmp byte [tic_table+100000+13],bl
		2597	jne goonipc
		2598	cmp dword [ipccount],4
		2599	je ipcfinished
		2600
		2601	mov bl,[tic_table+604]
		2602	cmp byte [tic_table+100000+14],bl
		2603	jne goonipc
		2604	cmp dword [ipccount],5
		2605	je ipcfinished
		2606
		2607	mov bl,[tic_table+605]
		2608	cmp byte [tic_table+100000+15],bl
		2609	jne goonipc
		2610	cmp dword [ipccount],6
		2611	je ipcfinished
		2612
		2613	mov bl,[tic_table+606]
		2614	cmp byte [tic_table+100000+16],bl
		2615	jne goonipc
		2616	cmp dword [ipccount],7
		2617	je ipcfinished
		2618
		2619	mov bl,[tic_table+607]
		2620	cmp byte [tic_table+100000+17],bl
		2621	jne goonipc
		2622
		2623	goonipc:
		2624	pop ecx
		2625	dec ecx
		2626	jnz loopfindipc
		2627
		2628	ipcfinished:
		2629	mov ebx,[tic_table+100000+30]
		2630	mov dword [ipcpid],ebx
		2631
		2632	mov eax,60
		2633	mov ebx,2
		2634	mov ecx,dword [ipcpid]
		2635	mov edx,ddot
		2636	mov esi,1
		2637	int 0x40
		2638
		2639	call newline
		2640	call clearipc
		2641
		2642	jmp waitipc
		2643
		2644	printipcprgname:
		2645	call newline
		2646	call printcmd
		2647	jmp ipccontinue
		2648
		2649	noipc:
		2650	cmp byte [callp],1
		2651	je prtcmd
		2652
		2653	call clearsum
		2654
		2655	jmp cmd_ok2
		2656
		2657	printcmd:
		2658	mov eax,4
		2659	mov ebx,6
		2660	shl ebx,16
		2661	add ebx,[xpos]
		2662	mov edx,tic_table+600
		2663	mov ecx,0x00ddeeff
		2664	mov esi,dword [count]
		2665	int 0x40
		2666
		2667	cld
		2668	mov ecx,dword [count]
		2669	mov edi,tic_table
		2670	add edi,dword [linen]
		2671	mov esi,tic_table+600
		2672	rep movsb
		2673
		2674	mov eax,dword [count]
		2675	add dword [linen],eax
		2676	add dword [linel],eax
		2677
		2678	ret
		2679
		2680	prtcmd:
		2681	call newline
		2682	call printcmd
		2683	jmp go
		2684
		2685	cmd_ok2:
		2686	cmp byte [callp],1
		2687	je go
		2688
		2689	ret
		2690
		2691	waitipc:
		2692	mov eax,40
		2693	mov ebx,01000111b
		2694	int 0x40
		2695
		2696	mov eax,10
		2697	int 0x40
		2698
		2699	cmp eax,7
		2700	je ipcok
		2701	cmp eax,1
		2702	je reipc
		2703	cmp eax,3
		2704	je exit
		2705	cmp eax,2
		2706	je keyipc
		2707
		2708	jmp waitipc
		2709
		2710	keyipc:
		2711	mov eax,2
		2712	int 0x40
		2713
		2714	jmp waitipc
		2715
		2716	reipc:
		2717	call draw
		2718	call red
		2719
		2720	jmp waitipc
		2721
		2722	clearipc:
		2723	cld
		2724	mov ecx,118
		2725	mov edi,ipcb
		2726	mov esi,ipcc
		2727	rep movsb
		2728
		2729	ret
		2730
		2731	ipcok:
		2732	cmp dword [ipcb+16],'~ccc'
		2733	je ipccls
		2734	cmp dword [ipcb+16],'~eee'
		2735	je endipc
		2736	cmp dword [ipcb+16],'~lll'
		2737	je ipcline
		2738	cmp dword [ipcb+16],'~ppp'
		2739	je ipcprint
		2740	cmp dword [ipcb+16],'~kkk'
		2741	je ipckey
		2742
		2743	jmp waitipc
		2744
		2745	reipc2:
		2746	call draw
		2747	call red
		2748
		2749	ipckey:
		2750	mov eax,10
		2751	int 0x40
		2752
		2753	cmp eax,1
		2754	je reipc2
		2755	cmp eax,3
		2756	je exit
		2757	cmp eax,2
		2758	je ipckeypressed
		2759
		2760	jmp ipckey
		2761
		2762	ipckeypressed:
		2763	mov eax,2
		2764	int 0x40
		2765
		2766	mov byte [ipckeyvalue],ah
		2767
		2768	mov eax,60
		2769	mov ebx,2
		2770	mov ecx,dword [ipcpid]
		2771	mov edx,ipckeyvalue
		2772	mov esi,1
		2773	int 0x40
		2774
		2775	call clearipc
		2776	jmp waitipc
		2777
		2778	ipccls:
		2779	call cls2
		2780	call clearipc
		2781	jmp waitipc
		2782
		2783	ipcline:
		2784	call newline
		2785	call clearipc
		2786	jmp waitipc
		2787
		2788	ipcprint:
		2789	mov edx,ipcb+20
		2790	call printipc
		2791	call clearipc
		2792	jmp waitipc
		2793
		2794	endipc:
		2795	cmp byte [callp],1
		2796	je go
		2797
		2798	call clearsum
		2799
		2800	jmp ecmd
		2801
		2802	cmdexist:
		2803	mov eax,9
		2804	mov ebx,tic_table
		2805	mov ecx,-1
		2806	int 0x40
		2807
		2808	mov ecx,eax
		2809	loopex:
		2810	push ecx
		2811
		2812	mov eax,9
		2813	mov ebx,I_END
		2814	int 0x40
		2815
		2816	cmp word [I_END+10],'CM'
		2817	jne no_cmd
		2818	cmp byte [I_END+12],'D'
		2819	jne no_cmd
		2820
		2821	inc byte [cmd_ex]
		2822
		2823	cmp byte [cmd_ex],2
		2824	je exit
		2825
		2826	no_cmd:
		2827	pop ecx
		2828	loop loopex
		2829
		2830	ret
		2831
		2832	title:
		2833	db 'CMD - Command line interpreter'
		2834	title_end:
		2835
		2836	smb_cursor db '\|'
		2837
		2838	prompt db 'CMD>>'
135	diamond	2839	if lang eq de
		2840	h1 db ' CMD - Command line interpreter version 0.26 '
		2841	h2 db ' copyleft Chemist - dmitry_gt@tut.by '
		2842	h3 db ' Verfuegbare Kommandos: '
		2843	h4 db ' HELP - Zeoigt diesen Text LS - Zeigt Dateien'
		2844	h5 db ' EXIT - Programmende CP - Kopiert Datei'
		2845	h6 db ' CLS - Loescht Bildschirm PS - Processinfo '
		2846	h7 db ' KILL - Process beenden RN - File umnennen'
		2847	h8 db ' VER - Zeigt Programmversion '
		2848	h9 db ' DEL - Loescht Datei von Ramdisk '
		2849	h10 db ' SHUTDOWN - KolibriOS beenden '
		2850	h11 db ' PAUSE - Auf Taste warten '
		2851	h12 db ' ECHO - Schreibt Text auf Ausgabe '
		2852	h13 db ' ENDS - Scriptende '
		2853	h14 db ' /[filename] - Script starten '
		2854	h15 db ' Parameter mit "&" angeben: '
		2855	h16 db ' tinypad&cmd.asm - oeffnet cmd.asm '
31	halyavin	2856
135	diamond	2857	about db 'Command Line Interpreter version 0.26 '
		2858
		2859	err1 db 'Kommando oder Dateiname unbekannt'
		2860
		2861	proc_head db ' PID Name Start Laenge Proc_NUMB '
		2862	proc_hd11 db '-------------------------------------------- '
		2863
		2864	mess1 db 'Taste druecken fuer weiter (ESC - abbrechen)..'
		2865	mess2 db 'Bitte 4 Byte Prozessnummer angeben (nicht PID)'
		2866	mess3 db 'Prozess mit angegebenere Nummer erfolgreich '
		2867	mess4 db 'beendet. '
		2868	mess5 db 'Verwendung: del [Dateiname] '
		2869	mess6 db 'Angegebene Datei erfolgreich geloescht. '
		2870	mess7 db 'Datei nicht gefunden! '
		2871	mess8 db 'Prozess nicht gefunden! '
		2872	mess9 db 'Verwendung: cp [Quelle+Ziel] '
		2873	mess0 db 'Verwendung: rn [Quelle+Ziel] '
		2874
		2875	mess11 db 'Datei erfolgreich kopiert '
		2876	mess12 db 'ERROR: Kann Datei nicht kopieren! '
		2877	mess13 db 'ERROR: Datei existiert bereits! '
		2878	mess14 db 'Datei erfolgreich umbenannt '
		2879	mess15 db 'ERROR: Kann Datei nicht umbenennen! '
		2880	mess16 db 'Scriptname erwartet! '
		2881	mess17 db 'Dieses Kommando ist nur in Scripts zulaessig! '
		2882	else
31	halyavin	2883	h1 db ' CMD - Command line interpreter version 0.26 '
		2884	h2 db ' copyleft Chemist - dmitry_gt@tut.by '
		2885	h3 db ' Available commands: '
		2886	h4 db ' HELP - Display this text LS - List files '
		2887	h5 db ' EXIT - Exit Programm CP - Copy file '
		2888	h6 db ' CLS - Clear Screen PS - Process info '
		2889	h7 db ' KILL - Kill Process RN - Rename File '
		2890	h8 db ' VER - Display programm version '
		2891	h9 db ' DEL - Delete file from ramdisk '
		2892	h10 db ' SHUTDOWN - Quit Menuet '
		2893	h11 db ' PAUSE - Wait for keypress '
		2894	h12 db ' ECHO - Print text to screen '
		2895	h13 db ' ENDS - End script '
		2896	h14 db ' /[filename] - Execute script '
		2897	h15 db ' Use & symbol to enter params: '
		2898	h16 db ' tinypad&cmd.asm - open cmd.asm '
		2899
		2900	about db 'Command Line Interpreter version 0.26 '
		2901
135	diamond	2902	err1 db 'Unknown command or filename '
31	halyavin	2903
		2904	proc_head db ' PID Name Start Length Proc_NUMB '
		2905	proc_hd11 db '-------------------------------------------- '
		2906
		2907	mess1 db 'Press any key to continue (ESC - Cancel)... '
		2908	mess2 db 'Plz specify a 4 byte process number (not PID) '
		2909	mess3 db 'Process with number you specified has been '
		2910	mess4 db 'terminated. '
		2911	mess5 db 'Usage: del [filename] '
		2912	mess6 db 'Filename you specified has been deleted. '
		2913	mess7 db 'No such file! '
		2914	mess8 db 'No such process! '
		2915	mess9 db 'Usage: cp [source_file+destination_file] '
		2916	mess0 db 'Usage: rn [source_file+destination_file] '
		2917
		2918	mess11 db 'File successfully copied '
		2919	mess12 db 'ERROR: Can not copy file! '
		2920	mess13 db 'ERROR: Output file alredy exist! '
		2921	mess14 db 'File successfully renamed '
		2922	mess15 db 'ERROR: Can not rename file! '
		2923	mess16 db 'You must specify a command script filename! '
		2924	mess17 db 'This command is available only in scripts! '
135	diamond	2925	end if
31	halyavin	2926
		2927	linen dd 2000
		2928	lpress dd 1
		2929	linel dd 0
		2930	linev dd 2000
		2931	stnum dd 1
		2932	rdstat dd 0
		2933
		2934	ypos dd 6
		2935	xpos dd 24
		2936	count dd 0
		2937	clr dd 0
		2938	smb db 0
		2939	pn dd 0
		2940	count2 dd 0
		2941	count3 dd 9
		2942	oldcount dd 0
		2943	oldcount1 dd 0
		2944
		2945	fnumb dd 0
		2946	n1 dd 0
		2947	n2 dd 0
		2948	n3 dd 0
		2949	n4 dd 0
		2950	n5 dd 0
		2951	n6 dd 0
		2952	n7 dd 0
		2953	n8 dd 0
		2954
		2955	ddot db '.'
		2956	dcmd db '.CMD',0
		2957
		2958	cnt_loop1 dd 0
		2959	cnt_loop2 dd 0
		2960
		2961	lscnt dd 8024
		2962	blockcnt dd 0
		2963	lscntf db 0
		2964	lscntx db 0
		2965
		2966	filesize dd 0
		2967	filesize2 dd 0
		2968
		2969	readcnt dd 15000
		2970	readcnt2 dd 0
		2971
		2972	callp db 0
		2973	callp2 db 0
		2974
		2975	fill1 db ' '
		2976	fill3 db ' ',0
		2977
		2978	pname db ' ',0
		2979	autoexfile db 'AUTOEXEC.CMD',0
		2980	filename db ' ',0
		2981
		2982	dzero db 0,0,0,0
		2983	qspace db ' '
		2984
		2985	f1len dd 0
		2986	f2len dd 0
		2987
		2988	ipcpid dd 0
		2989
		2990	ipckeyvalue db 0
		2991
		2992	ipccount dd 0
		2993
		2994	cmd_ex db 0
		2995
		2996	ipcb:
		2997	db 0
		2998	db 0,0,0
		2999	dd 8
		3000	times 110 db 0
		3001
		3002	ipcc:
		3003	db 0
		3004	db 0,0,0
		3005	dd 8
		3006	times 110 db 0
		3007
		3008	I_END:
		3009
		3010	tic_table:

Subversion Repositories Kolibri OS

(root)/programs/develop/cmd/trunk/cmd.asm – Rev 135