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
 int 0x40
 
 cmp eax,1
 je re
 cmp eax,2
 je key
 cmp eax,3
 je button
 
 jmp still
 
button:
 mov eax,17
 int 0x40
 
 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
 int 0x40
 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
 int 0x40
 
 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
 int 0x40
 add dword [ypos],6
 ret
 
draw:
 
 mov eax,12
 mov ebx,1
 int 0x40
 
 mov eax,0
 mov ebx,100*65536+492
 mov ecx,100*65536+280
 mov edx,0x3000000
 mov esi,0x805080d0
 mov edi,0x005080d0
 int 0x40
 
 mov eax,4
 mov ebx,8*65536+8
 mov ecx,0x10ddeeff
 mov edx,title
 mov esi,title_end-title
 int 0x40
 
; mov eax,8
; mov ebx,(492-19)*65536+12
; mov ecx,5*65536+12
; mov edx,1
; mov esi,0x6688dd
; int 0x40
 
 mov eax,12
 mov ebx,2
 int 0x40
 
 ret
 
print:
 mov eax,4
 mov ebx,[ypos]
 shl ebx,16
 add ebx,[xpos]
 mov ecx,0x00ddeeff
 mov edx,smb
 mov esi,1
 int 0x40
 
 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
 int 0x40
 
 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
 int 0x40
 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
 
loopls:
 inc dword [blockcnt]
 
 mov eax,34
 mov ebx,0
 mov ecx,0
 mov edx,0
 add edx,dword [blockcnt]
 mov esi,1
 mov edi,tic_table+7000
 int 0x40
 
 mov ecx,16
loop40:
 push ecx
 
 cld
 mov ecx,8
 mov edi,filename
 mov esi,tic_table
 add esi,dword [lscnt]
 rep movsb
 
 add dword [lscnt],8
 
 mov edi,filename+8
 mov esi,ddot
 movsb
 
 cld
 mov ecx,3
 mov edi,filename+9
 mov esi,tic_table
 add esi,dword [lscnt]
 rep movsb
 
 cmp byte [filename+10],0
 jne no_fn_space1
 
 mov edi,filename+10
 mov esi,dzero
 movsb
 
no_fn_space1:
 cmp byte [filename],0xe5  ; deleted file
 je no_newline
 cmp byte [filename],0xf   ; long fat32 filename
 je no_newline
 cmp byte [filename],0x10  ; folder
 je no_newline
 
 cmp word [filename],'AK'
 jne filename_ok
 cmp byte [filename+3],'e'
 jne filename_ok
 cmp byte [filename+5],'y'
 jne filename_ok
 cmp byte [filename+7],'a'
 jne filename_ok
 cmp byte [filename+10],'s'
 jne filename_ok
 
 jmp no_newline
 
filename_ok:
 mov eax,6
 mov ebx,filename
 mov ecx,0
 mov edx,-1
 mov esi,tic_table+25000
 int 0x40
 
 cmp eax,4294967295
 jne ls_print
 
 jmp no_newline
 
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
 
 pop ecx
 dec ecx
 cmp ecx,0
 jne loop40
 
 cmp dword [blockcnt],16
 je ls_end
 
 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 [blockcnt],0
 mov dword [lscnt],8024
 mov byte [lscntf],0
 mov byte [lscntx],0
 
 cmp byte [callp],1
 je go
 
 jmp ecmd2
 
ls_print:
 mov edi,filename+8
 mov esi,fill1
 movsb
 
 mov eax,4
 mov ebx,[ypos]
 shl ebx,16
 add ebx,[xpos]
 mov edx,filename
 mov ecx,0x00ddeeff
 mov esi,12
 int 0x40
 
 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
 int 0x40
 
 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
 int 0x40
 
 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
 int 0x40
 
 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
 int 0x40
 
 mov dword [count2],eax
 
ll1:
 inc dword [pn]
 mov eax,9
 mov ebx,tic_table
 mov ecx,[pn]
 int 0x40
 
 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
 int 0x40
 
 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
 int 0x40
 ret
 
pause2:
 call newline
 mov edx,mess1
 call printf
 
 mov eax,10
 int 0x40
 
red3:
 cmp eax,2
 je back
 cmp eax,3
 je exit
 
 call draw
 call red
 
 mov eax,10
 int 0x40
 jmp red3
 
back:
 mov eax,2
 int 0x40
 cmp ah,27
 je checmd
 ret
 
exit:
 mov eax,-1
 int 0x40
 
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
 int 0x40
 
 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
 int 0x40
 
 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
 int 0x40
 
 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
 int 0x40
 
 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
 int 0x40
 
 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
 int 0x40
 
 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
 int 0x40
 
 cmp eax,4294967295
 jne alreadyexist
 
 mov eax,6
 mov ebx,tic_table+9000
 mov ecx,0
 mov edx,-1
 mov esi,tic_table+25000
 int 0x40
 
 mov dword [filesize],eax
 
 mov eax,33
 mov ebx,tic_table+9100
 mov ecx,tic_table+25000
 mov edx,dword [filesize]
 mov esi,0
 int 0x40
 
 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
 int 0x40
 
 cmp eax,4294967295
 je no_ok1
 
 mov eax,32
 mov ebx,tic_table+9000
 int 0x40
 
 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
 int 0x40
 
 cmp eax,4294967295
 je nosuchfile2
 
 mov eax,32
 mov ebx,tic_table+400
 int 0x40
 
 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
 int 0x40
 
 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
 int 0x40
 
 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]
 int 0x40
 
 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
 int 0x40
 
 cmp eax,ecx
 jb nosuchprocess
 
 mov eax,18
 mov ebx,2
 mov edx,0
 int 0x40
 
 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]
 int 0x40
 
 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
 int 0x40
 
 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
 int 0x40
 
 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 eax,19
 mov ebx,tic_table+400
 mov ecx,tic_table+800
 int 0x40
 
 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+486
 mov ecx,24*65536+250
 mov edx,0
 int 0x40
 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
 int 0x40
 
 mov eax,5
 mov ebx,200
 int 0x40
 
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 eax,19
 mov ebx,tic_table+600
 mov ecx,0
 int 0x40
 
 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
 int 0x40
 
 call clearipc
 
 mov eax,40
 mov ebx,01000111b
 int 0x40
 
 mov eax,23
 mov ebx,10
 int 0x40
 
 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
 int 0x40
 
 mov ecx,eax
loopfindipc:
 push ecx
 
 mov eax,9
 mov ebx,tic_table+100000
 int 0x40
 
 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
 int 0x40
 
 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]
 int 0x40
 
 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
 int 0x40
 
 mov eax,10
 int 0x40
 
 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
 int 0x40
 
 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
 int 0x40
 
 cmp eax,1
 je reipc2
 cmp eax,3
 je exit
 cmp eax,2
 je ipckeypressed
 
 jmp ipckey
 
ipckeypressed:
 mov eax,2
 int 0x40
 
 mov byte [ipckeyvalue],ah
 
 mov eax,60
 mov ebx,2
 mov ecx,dword [ipcpid]
 mov edx,ipckeyvalue
 mov esi,1
 int 0x40
 
 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
 int 0x40
 
 mov ecx,eax
loopex:
 push ecx
 
 mov eax,9
 mov ebx,I_END
 int 0x40
 
 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
 
title:
 db 'CMD - Command line interpreter'
title_end:
 
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
filename   db '            ',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
 
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:
 
tic_table:

Rev 109	Rev 135
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		-
-		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	int 0x40	36	int 0x40
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	int 0x40	49	int 0x40
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	int 0x40	87	int 0x40
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	int 0x40	104	int 0x40
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	int 0x40	290	int 0x40
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	int 0x40	298	int 0x40
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,0	303	mov edx,0x3000000
304	mov esi,0x805080d0	304	mov esi,0x805080d0
305	mov edi,0x005080d0	305	mov edi,0x005080d0
306	int 0x40	306	int 0x40
307		307
308	mov eax,4	308	mov eax,4
309	mov ebx,8*65536+8	309	mov ebx,8*65536+8
310	mov ecx,0x10ddeeff	310	mov ecx,0x10ddeeff
311	mov edx,title	311	mov edx,title
312	mov esi,title_end-title	312	mov esi,title_end-title
313	int 0x40	313	int 0x40
314		314
315	mov eax,8	315	; mov eax,8
316	mov ebx,(492-19)*65536+12	316	; mov ebx,(492-19)*65536+12
317	mov ecx,5*65536+12	317	; mov ecx,5*65536+12
318	mov edx,1	318	; mov edx,1
319	mov esi,0x6688dd	319	; mov esi,0x6688dd
320	int 0x40	320	; int 0x40
321		321
322	mov eax,12	322	mov eax,12
323	mov ebx,2	323	mov ebx,2
324	int 0x40	324	int 0x40
325		325
326	ret	326	ret
327		327
328	print:	328	print:
329	mov eax,4	329	mov eax,4
330	mov ebx,[ypos]	330	mov ebx,[ypos]
331	shl ebx,16	331	shl ebx,16
332	add ebx,[xpos]	332	add ebx,[xpos]
333	mov ecx,0x00ddeeff	333	mov ecx,0x00ddeeff
334	mov edx,smb	334	mov edx,smb
335	mov esi,1	335	mov esi,1
336	int 0x40	336	int 0x40
337		337
338	mov edi,tic_table	338	mov edi,tic_table
339	add edi,dword [linen]	339	add edi,dword [linen]
340	mov esi,smb	340	mov esi,smb
341	movsb	341	movsb
342	inc dword [linen]	342	inc dword [linen]
343	inc dword [linel]	343	inc dword [linel]
344		344
345	ret	345	ret
346		346
347	cursor:	347	cursor:
348	mov eax,4	348	mov eax,4
349	mov ebx,[ypos]	349	mov ebx,[ypos]
350	shl ebx,16	350	shl ebx,16
351	add ebx,[xpos]	351	add ebx,[xpos]
352	mov ecx,0x00ddeeff	352	mov ecx,0x00ddeeff
353	mov edx,smb_cursor	353	mov edx,smb_cursor
354	mov esi,1	354	mov esi,1
355	int 0x40	355	int 0x40
356		356
357	mov edi,tic_table	357	mov edi,tic_table
358	mov esi,smb_cursor	358	mov esi,smb_cursor
359	add edi,dword [linen]	359	add edi,dword [linen]
360	movsb	360	movsb
361	inc dword [linen]	361	inc dword [linen]
362	inc dword [linel]	362	inc dword [linel]
363		363
364	ret	364	ret
365		365
366	ppr:	366	ppr:
367	mov eax,4	367	mov eax,4
368	mov ebx,6	368	mov ebx,6
369	shl ebx,16	369	shl ebx,16
370	add ebx,[xpos]	370	add ebx,[xpos]
371	mov ecx,0x00ddeeff	371	mov ecx,0x00ddeeff
372	mov edx,prompt	372	mov edx,prompt
373	mov esi,5	373	mov esi,5
374	int 0x40	374	int 0x40
375	mov dword [ypos],42	375	mov dword [ypos],42
376		376
377	cld	377	cld
378	mov ecx,5	378	mov ecx,5
379	mov edi,tic_table	379	mov edi,tic_table
380	add edi,dword [linen]	380	add edi,dword [linen]
381	mov esi,prompt	381	mov esi,prompt
382	rep movsb	382	rep movsb
383		383
384	add dword [linen],6	384	add dword [linen],6
385	add dword [linel],6	385	add dword [linel],6
386		386
387	ret	387	ret
388		388
389	help:	389	help:
390	cmp byte [callp],1	390	cmp byte [callp],1
391	je gonext8	391	je gonext8
392	call clearsum	392	call clearsum
393	gonext8:	393	gonext8:
394	call newline	394	call newline
395	call newline	395	call newline
396	mov edx,h1	396	mov edx,h1
397	call printf	397	call printf
398	call newline	398	call newline
399	mov edx,h2	399	mov edx,h2
400	call printf	400	call printf
401	call newline	401	call newline
402	call newline	402	call newline
403	mov edx,h3	403	mov edx,h3
404	call printf	404	call printf
405	call newline	405	call newline
406	call newline	406	call newline
407	mov edx,h4	407	mov edx,h4
408	call printf	408	call printf
409	call newline	409	call newline
410	mov edx,h5	410	mov edx,h5
411	call printf	411	call printf
412	call newline	412	call newline
413	mov edx,h6	413	mov edx,h6
414	call printf	414	call printf
415	call newline	415	call newline
416	mov edx,h7	416	mov edx,h7
417	call printf	417	call printf
418	call newline	418	call newline
419	call newline	419	call newline
420	mov edx,h8	420	mov edx,h8
421	call printf	421	call printf
422	call newline	422	call newline
423	mov edx,h9	423	mov edx,h9
424	call printf	424	call printf
425	call newline	425	call newline
426	mov edx,h10	426	mov edx,h10
427	call printf	427	call printf
428	call newline	428	call newline
429	mov edx,h11	429	mov edx,h11
430	call printf	430	call printf
431	call newline	431	call newline
432	mov edx,h12	432	mov edx,h12
433	call printf	433	call printf
434	call newline	434	call newline
435	mov edx,h13	435	mov edx,h13
436	call printf	436	call printf
437	call newline	437	call newline
438	call newline	438	call newline
439	mov edx,h14	439	mov edx,h14
440	call printf	440	call printf
441	call newline	441	call newline
442	call newline	442	call newline
443	mov edx,h15	443	mov edx,h15
444	call printf	444	call printf
445	call newline	445	call newline
446	mov edx,h16	446	mov edx,h16
447	call printf	447	call printf
448	call newline	448	call newline
449		449
450	cmp byte [callp],1	450	cmp byte [callp],1
451	je go	451	je go
452		452
453	jmp ecmd	453	jmp ecmd
454		454
455	ver:	455	ver:
456	cmp byte [callp],1	456	cmp byte [callp],1
457	je gonext7	457	je gonext7
458	call clearsum	458	call clearsum
459	gonext7:	459	gonext7:
460	call newline	460	call newline
461	mov edx,about	461	mov edx,about
462	call printf	462	call printf
463		463
464	cmp byte [callp],1	464	cmp byte [callp],1
465	je go	465	je go
466		466
467	jmp ecmd	467	jmp ecmd
468		468
469	pause1:	469	pause1:
470	cmp byte [callp],1	470	cmp byte [callp],1
471	je gonext1	471	je gonext1
472	call clearsum	472	call clearsum
473	gonext1:	473	gonext1:
474	call pause2	474	call pause2
475		475
476	cmp byte [callp],1	476	cmp byte [callp],1
477	je go	477	je go
478		478
479	jmp ecmd	479	jmp ecmd
480		480
481	ls:	481	ls:
482	call oldcmd	482	call oldcmd
483	call cls2	483	call cls2
484		484
485	loopls:	485	loopls:
486	inc dword [blockcnt]	486	inc dword [blockcnt]
487		487
488	mov eax,34	488	mov eax,34
489	mov ebx,0	489	mov ebx,0
490	mov ecx,0	490	mov ecx,0
491	mov edx,0	491	mov edx,0
492	add edx,dword [blockcnt]	492	add edx,dword [blockcnt]
493	mov esi,1	493	mov esi,1
494	mov edi,tic_table+7000	494	mov edi,tic_table+7000
495	int 0x40	495	int 0x40
496		496
497	mov ecx,16	497	mov ecx,16
498	loop40:	498	loop40:
499	push ecx	499	push ecx

Subversion Repositories Kolibri OS

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