417 lines
7.5 KiB
NASM
417 lines
7.5 KiB
NASM
.model tiny
|
|
.486
|
|
smart
|
|
.code
|
|
|
|
org 0100h
|
|
|
|
include ..\include\fat.h
|
|
|
|
start:
|
|
push cs
|
|
push cs
|
|
push cs
|
|
push cs
|
|
pop ds
|
|
pop es
|
|
pop fs
|
|
pop gs
|
|
mov ah,21
|
|
mov cl,7
|
|
int 47h
|
|
mov ah,3
|
|
int 48h
|
|
mov ax,0002
|
|
int 47h
|
|
mov ah,2
|
|
int 47h
|
|
mov ah,6
|
|
int 47h
|
|
mov ah,6
|
|
int 47h
|
|
mov ah,42
|
|
int 47h
|
|
mov ah,13
|
|
mov si,offset msg
|
|
int 47h
|
|
xor bp,bp
|
|
mov dl,' '
|
|
call setdelimiter0
|
|
replay:
|
|
mov ah,6
|
|
int 47h
|
|
noret:
|
|
mov ah,6
|
|
int 47h
|
|
mov ah,16
|
|
mov di,offset dir
|
|
int 48h
|
|
mov si,di
|
|
mov ah,13
|
|
int 47h
|
|
mov si,offset prompt
|
|
int 47h
|
|
mov di,offset buffer
|
|
waitchar:
|
|
mov ax,0
|
|
int 16h
|
|
cmp ah,59
|
|
jne norr
|
|
cmp bp,0
|
|
je waitchar
|
|
mov ah,13
|
|
mov si,cs:[bp-8]
|
|
int 47h
|
|
push cs
|
|
pop es
|
|
call copy0
|
|
call getlength0
|
|
add di,cx
|
|
jmp waitchar
|
|
norr:
|
|
cmp al,0Dh
|
|
je entere
|
|
cmp di,offset buffer+256
|
|
je waitchar
|
|
mov [di],al
|
|
inc di
|
|
mov dl,al
|
|
mov ah,7
|
|
int 47h
|
|
jmp waitchar
|
|
entere:
|
|
mov byte ptr [di],0
|
|
mov si,offset buffer
|
|
cmp si,di
|
|
je noret
|
|
mov ah,6
|
|
int 47h
|
|
push cs
|
|
pop es
|
|
mov di,offset buffer2
|
|
xor cx,cx
|
|
call getitem0
|
|
mov si,di
|
|
call uppercase0
|
|
mov bx,offset commands
|
|
xor bp,bp
|
|
tre:
|
|
mov di,[bx]
|
|
add bx,8
|
|
cmp di,0
|
|
je error
|
|
push cs
|
|
pop es
|
|
call evalue0
|
|
cmp dx,bp
|
|
jb noadd
|
|
mov bp,dx
|
|
mov ax,bx
|
|
noadd:
|
|
call cmpstr0
|
|
jne tre
|
|
mov si,offset buffer
|
|
mov di,offset buffer2
|
|
call copy0
|
|
mov si,di
|
|
call uppercase0
|
|
xor cx,cx
|
|
inc cx
|
|
call getpointeritem0
|
|
cmp byte ptr [di-1],0
|
|
jne nopod
|
|
mov byte ptr [di],0
|
|
nopod:
|
|
mov si,di
|
|
mov di,[bx-4]
|
|
call checksyntax0
|
|
jc errorprec
|
|
mov bx,[bx-6]
|
|
call bx
|
|
jmp replay
|
|
error:
|
|
mov bp,ax
|
|
push cs
|
|
pop es
|
|
mov dl,'.'
|
|
call searchchar0
|
|
je noaddext
|
|
mov di,offset buffer
|
|
mov si,offset extcom
|
|
call concat0
|
|
noaddext:
|
|
mov si,offset buffer
|
|
mov ah,18
|
|
int 48h
|
|
jc reallyerror
|
|
xor bp,bp
|
|
jmp replay
|
|
reallyerror:
|
|
pop ax
|
|
pop ax
|
|
pop ax
|
|
pop ax
|
|
mov ah,13
|
|
mov si,offset Error_Syntax
|
|
int 47h
|
|
mov ah,13
|
|
mov si,cs:[bp-8]
|
|
int 47h
|
|
jmp replay
|
|
errorprec:
|
|
mov ah,13
|
|
mov si,offset derror
|
|
int 47h
|
|
jmp replay
|
|
|
|
Code_Exit:
|
|
pop ax
|
|
db 0CBh
|
|
|
|
Code_Version:
|
|
mov ah,13
|
|
mov si,offset Version_Text
|
|
int 47h
|
|
ret
|
|
|
|
Version_Text db 'Cos 2000 version 3.0.2Fr par Nico',0
|
|
|
|
Code_Cls:
|
|
mov ah,2
|
|
int 47h
|
|
ret
|
|
|
|
Code_Reboot:
|
|
push 0FFFFh
|
|
push 00000h
|
|
db 0CBH
|
|
|
|
Code_Command:
|
|
mov bx,offset commands
|
|
showalls:
|
|
mov si,[bx]
|
|
add bx,8
|
|
cmp si,0
|
|
je endoff
|
|
mov ah,13
|
|
int 47h
|
|
mov ah,6
|
|
int 47h
|
|
jmp showalls
|
|
endoff:
|
|
ret
|
|
|
|
Code_Mode:
|
|
mov cx,0
|
|
call gettypeditem0
|
|
mov ah,0
|
|
mov al,dl
|
|
and al,1111b
|
|
int 47h
|
|
mov ah,2
|
|
int 47h
|
|
ret
|
|
|
|
present db 'Le volume insere est nomme ',0
|
|
present2 db ', Numero de serie : ',0
|
|
nomdisque db 13 dup (0)
|
|
Code_Dir:
|
|
mov si,offset present
|
|
mov ah,13
|
|
int 47h
|
|
mov ah,11
|
|
mov di,offset nomdisque
|
|
int 48h
|
|
mov si,di
|
|
mov ah,13
|
|
int 47h
|
|
mov si,offset present2
|
|
mov ah,13
|
|
int 47h
|
|
mov ah,12
|
|
int 48h
|
|
mov ah,10
|
|
mov cx,32
|
|
int 47h
|
|
mov ah,6
|
|
int 47h
|
|
mov ah,6
|
|
int 47h
|
|
xor ebp,ebp
|
|
mov di,offset bufferentry
|
|
mov si,di
|
|
mov ah,7
|
|
int 48h
|
|
jc nofiles
|
|
go:
|
|
mov ah,46
|
|
int 47h
|
|
mov ah,05
|
|
int 47h
|
|
int 47h
|
|
int 47h
|
|
mov ah,44
|
|
mov dx,[si+Entries.FileDateCrea]
|
|
int 47h
|
|
mov ah,05
|
|
int 47h
|
|
int 47h
|
|
int 47h
|
|
mov ah,45
|
|
mov dx,[si+Entries.FileTimeCrea]
|
|
int 47h
|
|
mov ah,05
|
|
int 47h
|
|
int 47h
|
|
int 47h
|
|
mov ah,44
|
|
mov dx,[si+Entries.FileDate]
|
|
int 47h
|
|
mov ah,05
|
|
int 47h
|
|
int 47h
|
|
int 47h
|
|
mov ah,45
|
|
mov dx,[si+Entries.FileTime]
|
|
int 47h
|
|
mov ah,05
|
|
int 47h
|
|
int 47h
|
|
int 47h
|
|
mov ah,48
|
|
mov edx,[si+Entries.FileSize]
|
|
int 47h
|
|
mov ah,05
|
|
int 47h
|
|
int 47h
|
|
int 47h
|
|
mov ah,47
|
|
mov dl,[si+Entries.FileAttr]
|
|
int 47h
|
|
mov ah,6
|
|
int 47h
|
|
inc bp
|
|
mov ah,8
|
|
int 48h
|
|
jnc go
|
|
nofiles:
|
|
mov edx,ebp
|
|
mov ah,6
|
|
int 47h
|
|
mov ah,8
|
|
int 47h
|
|
mov si,offset filess
|
|
mov ah,13
|
|
int 47h
|
|
ret
|
|
bufferentry db 32 dup (0)
|
|
filess db ' Fichier(s) au total',0
|
|
|
|
changing db 'Changement de repertoire vers ',0
|
|
code_cd:
|
|
mov cx,0
|
|
call gettypeditem0
|
|
push si
|
|
mov si,offset changing
|
|
mov ah,13
|
|
int 47h
|
|
pop si
|
|
int 47h
|
|
mov ah,6
|
|
int 47h
|
|
mov si,di
|
|
mov ah,13
|
|
int 48h
|
|
jnc okchange
|
|
mov si,offset errorchanging
|
|
mov ah,13
|
|
int 47h
|
|
okchange:
|
|
ret
|
|
errorchanging db 'Impossible d''atteindre ce dossier',0
|
|
|
|
code_refresh:
|
|
mov ah,3
|
|
int 48h
|
|
jnc okrefresh
|
|
mov si,offset errorrefreshing
|
|
mov ah,13
|
|
int 47h
|
|
ret
|
|
okrefresh:
|
|
mov si,offset present
|
|
mov ah,13
|
|
int 47h
|
|
mov ah,11
|
|
mov di,offset nomdisque
|
|
int 48h
|
|
mov si,di
|
|
mov ah,13
|
|
int 47h
|
|
mov si,offset present2
|
|
mov ah,13
|
|
int 47h
|
|
mov ah,12
|
|
int 48h
|
|
mov ah,10
|
|
mov cx,32
|
|
int 47h
|
|
mov ah,6
|
|
int 47h
|
|
ret
|
|
errorrefreshing db 'Impossible de lire le support',0
|
|
|
|
extcom db '.EXE',0
|
|
|
|
commands dw Str_Exit ,Code_Exit ,Syn_Exit ,Help_Exit
|
|
dw Str_Version,Code_Version,Syn_Version,Help_Version
|
|
dw Str_Cls ,Code_Cls ,Syn_Cls ,Help_Cls
|
|
dw Str_Reboot ,Code_Reboot ,Syn_Reboot ,Help_Reboot
|
|
dw Str_Command,Code_Command,Syn_Command,Help_Command
|
|
dw Str_Mode ,Code_Mode ,Syn_Mode ,Help_Mode
|
|
dw Str_Dir ,Code_Dir ,Syn_Dir ,Help_Dir
|
|
dw Str_refresh ,Code_refresh ,Syn_refresh ,Help_refresh
|
|
dw Str_cd ,Code_cd ,Syn_cd ,Help_cd
|
|
dw 0
|
|
|
|
Str_Exit db 'QUIT',0
|
|
Str_Version db 'VERS',0
|
|
Str_Cls db 'EFFAC',0
|
|
Str_Reboot db 'REDEM',0
|
|
Str_Command db 'CMDS',0
|
|
Str_Mode db 'MODE',0
|
|
Str_Dir db 'VOIR',0
|
|
Str_refresh db 'LIRE',0
|
|
Str_cd db 'CH',0
|
|
Syn_Exit db 0
|
|
Syn_Version db 0
|
|
Syn_Cls db 0
|
|
Syn_Reboot db 0
|
|
Syn_Command db 0
|
|
Syn_Mode db 'FFH',0
|
|
Syn_Dir db 0
|
|
Syn_refresh db 0
|
|
Syn_cd db '@',0
|
|
Help_Exit db 0
|
|
Help_Version db 0
|
|
Help_Cls db 0
|
|
Help_Reboot db 0
|
|
Help_Command db 0
|
|
Help_Mode db 0
|
|
Help_Dir db 0
|
|
Help_refresh db 0
|
|
Help_cd db 0
|
|
derror db 'Erreur de Syntaxe !',0
|
|
Error_Syntax db 'La commande ou l''executable n''existe pas ! F1 pour ',0
|
|
prompt db '>',0
|
|
msg db 'Interpreteur de commande COS V1.1',0
|
|
|
|
include str0.asm
|
|
|
|
dir equ $
|
|
buffer equ $+128
|
|
buffer2 equ $+128+512
|
|
|
|
|
|
end start
|