cos2000v1/commande/commande.asm

1192 lines
33 KiB
NASM
Raw Normal View History

model tiny,stdcall
p586N
locals
jumps
codeseg
option procalign:byte
include "..\include\fat.h"
include "..\include\mem.h"
include "..\include\divers.h"
include "..\include\pci.h"
include "..\include\cpu.h"
org 0h
start:
header exe <,1,0,,,offset imports,,offset realstart>
realstart:
call [cs:print],offset msginit
xor bp,bp
replay:
call [cs:addline]
noret:
call [cs:addline]
mov di,offset dir
call [cs:getdir],di
call [cs:print],di
call [cs:print],offset prompt
mov di,offset buffer
waitchar:
xor ax,ax
int 16h
call convertfr
cmp ah,59
jne norr
cmp bp,0
je waitchar
call [print],[word ptr cs: bp]
call [copy],[word ptr cs: bp],di
call [getlength],di
add di,ax
jmp waitchar
norr:
cmp al,0dh ;entr<74>e
je entere
cmp al,08h ;backspace
je backspace
cmp al,27 ;echap
je escape
cmp al,' '
jb waitchar
cmp di,offset buffer+256
je waitchar
mov [di],al
inc di
call [cs:showchar],ax
jmp waitchar
escape:
cmp di,offset buffer
je waitchar
call [cs:getxy]
mov dx,offset buffer
mov cx,di
sub cx,dx
js waitchar
je waitchar
sub ah,cl
mov cl,ah
xor ah,ah
xor ch,ch
call [cs:setxy],cx,ax
mov di,offset buffer
mov [byte ptr di],0
jmp waitchar
backspace:
cmp di,offset buffer
je waitchar
call [cs:getxy]
dec ah
mov cl,ah
xor ah,ah
xor ch,ch
call [cs:setxy],cx,ax
call [cs:showchar],' '
call [cs:setxy],cx,ax
dec di
mov [byte ptr di],0
jmp waitchar
entere:
mov [byte ptr di],0
cmp di,offset buffer
je noret
mov si,offset temp
call [cs:addline]
call [cs:getitem],offset buffer,si,0,' '
call [cs:uppercase],si
mov bx,offset commands
xor bp,bp
xor dx,dx
tre:
mov di,[bx]
cmp di,0
je error
call [cs:evalue],si,di
cmp ax,dx
jb noadd
mov dx,ax
mov bp,bx
noadd:
call [cs:cmpstr],si,di
je strisok
add bx,8
jmp tre
strisok:
mov di,offset temp
call [cs:copy],offset buffer,di
call [cs:uppercase],di
xor cx,cx
inc cx
call [cs:getpointeritem],di,cx,' '
mov di,ax
cmp [byte ptr di-1],0
jne nopod
mov [byte ptr di],0
nopod:
call [cs:checksyntax],di,[word ptr bx+4],' '
jc errorprec
mov bx,[bx+2]
call bx
jmp replay
error:
mov di,offset buffer
call [cs:searchchar],di,'.'
je noaddext
call [cs:concat],offset extcom,di
noaddext:
call [cs:execfile],di
jc reallyerror
xor bp,bp
jmp replay
reallyerror:
push [word ptr cs: bp]
push offset error_syntax
call [cs:print]
jmp replay
errorprec:
push offset derror
call [cs:print]
jmp replay
code_exit:
pop ax
retf
code_version:
call [cs:print],offset version_text
ret
version_text db 'Cos 2000 version 1.4Fr par \c04MrNop\c07',0
code_cls:
call [cs:clearscreen]
ret
code_reboot:
push 0ffffh
push 00000h
retf
code_command:
call [cs:print],offset def
mov bx,offset commands
showalls:
push [word ptr bx+4]
push [word ptr bx+6]
push [word ptr bx]
call [cs:print],offset commandes
add bx,8
cmp [word ptr bx],0
jne showalls
endoff:
ret
def db '\c02Liste des commandes internes\l\l\c07',0
commandes db '%0 \h10:\h12%0 \h70%0\l',0
code_detect:
call [cs:print],offset msg_cpu_detect
call [cs:cpuinfo],offset thecpu
call [cs:setinfo],offset thecpu,offset temp
call [cs:print],offset msg_ok2
push offset temp
xor eax,eax
mov al,[thecpu.family]
push eax
mov al,[thecpu.models]
push eax
mov al,[thecpu.stepping]
push eax
push offset thecpu.names
push offset thecpu.vendor
call [cs:print],offset msg_cpu_detect_inf
call [cs:print],offset msg_pci
call [cs:pciinfo],offset thepci
jc nopci
call [cs:print],offset msg_ok2
xor eax,eax
mov al,[thepci.maxbus]
push eax
mov al,[thepci.version_minor]
push eax
mov al,[thepci.version_major]
push eax
call [cs:print],offset msg_pci_info
call [cs:print],offset msg_pci_enum
xor bx,bx
xor cx,cx
xor si,si
searchpci:
call [cs:getcardinfo],bx,cx,si,offset temp
jc stopthis
mov al,[(pcidata offset temp).subclass]
push ax
mov al,[(pcidata offset temp).class]
push ax
call [cs:getpcisubclass]
push dx
push ax
mov al,[(pcidata offset temp).class]
xor ah,ah
push ax
call [cs:getpciclass]
push dx
push ax
push 4
push esi
push 4
push ecx
push 4
push ebx
mov ax,[(pcidata offset temp).device]
push eax
mov ax,[(pcidata offset temp).vendor]
push eax
call [cs:print],offset msg_pci_card
inc si
cmp si,7
jbe searchpci
stopthis:
xor si,si
inc cx
cmp cx,31
jbe searchpci
xor cx,cx
inc bx
cmp bx,16
jbe searchpci
jmp next
nopci:
call [cs:print],offset msg_echec2
next:
call [cs:detectvmware]
jne novirtual
call [cs:print],offset msg_vmware
novirtual:
ret
thepci pciinf <>
thecpu cpu <>
msg_ok2 db "\h70 [\c02 Ok \c07]\l",0
msg_echec2 db "\h70 [\c0CPasser\c07]\l",0
msg_cpu_detect db "Dectection du processeur",0
msg_cpu_detect_inf db " -Fondeur : %0\l -Modele : %0\l -Revision : %u\l -Version : %u\l -Famille : %u\l -Technologies: %0\l",0
msg_pci db "Detection des systemes PCI",0
msg_pci_info db " -Version : %yB.%yB\l -Numero bus max: %u\l",0
msg_pci_enum db " -Enumeration des peripheriques PCI:\l"
db " |Vendeur|Modele|Bus |Dev.|Func|Classe.Sous-classe\l",0
msg_pci_card db " | %hW | %hW |%w|%w|%w|%0P.%0P\l",0
msg_vmware db "\c04 VMWare a ete detecte !!!\c07\l",0
code_mode:
call [cs:gettypeditem],di,0,' '
and al,1111b
call [cs:setvideomode],ax
call [cs:clearscreen]
ret
code_dir:
call [cs:getserial]
push eax
mov si,offset nomdisque
call [cs:getname],si
push si
push offset present
call [cs:print]
xor ecx,ecx
mov di,offset bufferentry
call [cs:findfirstfile],di
jc nofiles
go:
push [word ptr (find di).result.fileattr]
push [(find di).result.filesize]
push [(find di).result.filetime]
push [(find di).result.filedate]
push [(find di).result.filetimecrea]
push [(find di).result.filedatecrea]
lea bx,[(find di).result.filename]
push bx
push offset line
call [cs:print]
inc ecx
call [cs:findnextfile],di
jnc go
nofiles:
push ecx
push offset filess
call [cs:print]
ret
nomdisque db 13 dup (0)
bufferentry db 512 dup (0)
present db '\c02Le volume insere est nomme %0, Numero de serie : %hD\l\l',0
line db '\c07%n %d %t %d %t %z %a\l',0
filess db '\l\l\c02%u Fichier(s) au total\l\c07',0
code_cd:
call [cs:gettypeditem],di,0,' '
push ax
push offset changing
call [cs:print]
call [cs:changedir],ax
jnc okchange
push offset errorchanging
call [cs:print]
okchange:
ret
changing db 'Changement de repertoire vers %0\l',0
errorchanging db '\c04Impossible d''atteindre ce dossier\c07',0
code_kill:
call [cs:gettypeditem],di,0,' '
push ax
push offset killing
call [cs:print]
call [cs:mbfind],ax
jc nochanged
call [cs:mbfree],ax
jnc okchanged
nochanged:
call [cs:print],offset errorkilling
okchanged:
ret
killing db 'Fermeture du processus %0\l',0
errorkilling db '\c04Impossible de fermer ce processus\c07',0
code_stack:
push ebp
push esp
push ss
push ss
call [cs:print],offset stackshow
mov cx,12 ;12 derniers <20>l<EFBFBD>ments
xor esi,esi
mov si,sp
sub si,2*12
showloop:
push [dword ptr ss:si]
push esi
push ss
push ss
call [cs:print],offset itemshow
inc si
inc si
cmp si,sp
jne notspshow
call [cs:print],offset stresp
notspshow:
cmp si,bp
jne nextshow
call [cs:print],offset strebp
nextshow:
dec cx
jnz showloop
ret
stackshow db '\l\c02Vidage de la pile systeme\l\l\c07'
db 'Segment SS : 0x%hW\l'
db 'Pointeur ESP : 0x%hD\l'
db 'Pointeur EBP : 0x%hD\l'
db 'Seg :Adr | Donnees',0
itemshow db '\l0x%hW:0x%hW | 0x%hW',0
strebp db '<-- BP',0
stresp db '<-- SP',0
code_dump:
call [cs:gettypeditem],di,0,' '
call [cs:mbfind],di
jc notmbfind
mov fs,ax
dec ax
dec ax
mov gs,ax
cmp [word ptr fs:0x0],'EC'
jne notace2
push offset oui ;CE? str0 2
jmp suitelikeace2
notace2:
push offset non
suitelikeace2:
cmp [word ptr gs:mb.isnotlast],true
je notlast2
push offset oui ;CE? str0 2
jmp suitelikelast2
notlast2:
push offset non
suitelikelast2:
mov dx,gs
push edx ;Emplacement memoire hex 2
;parent
cmp [gs:mb.reference],0
jne nextdetect2
push cs
push offset none ;parent lstr0 2x2
add bx,[gs:mb.sizes]
jmp suitemn2
nextdetect2:
mov dx,[gs:mb.reference]
dec dx
dec dx
push dx ;parent lstr0 2x2
push offset (mb).names
suitemn2:
cmp [gs: mb.isresident],true
jne notresident2
push offset oui ;resident str0 2
jmp suitelistmcb2
notresident2:
push offset non ;resident str0 2
suitelistmcb2:
xor edx,edx
mov dx,[gs: mb.sizes]
shl edx,4
push edx
push gs ;nom lstr0 2x2
push offset (mb).names
push offset dumpshow ;ligne
call [cs:print]
cmp [word ptr fs:0x0],'EC'
jne endofdumpformoment
push [dword ptr fs:exe.starting]
push fs
push fs
push [dword ptr fs:exe.sections]
push fs
push fs
push [dword ptr fs:exe.imports]
push fs
push fs
push [dword ptr fs:exe.exports]
push fs
push fs
cmp [fs: exe.compressed],true
jne notcompressed
push offset oui
jmp suiteiscompressed
notcompressed:
push offset non
suiteiscompressed:
push [dword ptr fs:exe.checksum]
push [dword ptr fs:exe.major]
call [cs:print],offset dumpshowce
endofdumpformoment:
ret
notmbfind:
call [cs:print],offset errornotmbfind
ret
errornotmbfind db '\c04Impossible de trouver le bloc specifie\l\l\c07',0
dumpshow db '\l\c02Dump du bloc de memoire nomme %0P\l\l'
db '\c02-----------------------------\l'
db '\c02Informations du bloc memoire\c07\l'
db 'Taille du bloc reserve : %u\l'
db 'Bloc resident en memoire : %0\l'
db 'Parent du bloc : %0P\l'
db 'Adresse du bloc memoire : 0x%hW:0x0000\l'
db 'Dernier bloc en memoire : %0\l'
db 'Heberge un format CE : %0\l',0
dumpshowce db '\c02-----------------------------\l'
db 'Informations du bloc executable\c07\l'
db 'Version de l''executable : %u\l'
db 'Somme de controle : %hD\l'
db 'Compression du code : %0\l'
db 'Exportation de fonctions : 0x%hW:0x%hW\l'
db 'Importation de fonctions : 0x%hW:0x%hW\l'
db 'Sections de donnees : 0x%hW:0x%hW\l'
db 'Point d''entree du code : 0x%hW:0x%hW\l',0
code_sections:
call [cs:gettypeditem],di,0,' '
call [cs:mbfind],di
jc notmbfindssections
jmp haveatargetsections
notmbfindssections:
call [cs:searchfile],di
jc notmbfindall
call [cs:projfile],di
jc notmbfindall
call [cs:mbfind],di
jc notmbfindall
haveatargetsections:
mov fs,ax
cmp [word ptr fs:0x0],'EC'
jne errornotace2
mov si,[fs:exe.sections]
cmp si,0
je errornosections
xor edx,edx
call [cs:print],offset rets
showallsections:
add si,4
push fs
push si
call [cs:print],offset functions
inc edx
findnextsections:
inc si
cmp [byte ptr fs:si],0
jne findnextsections
cmp [dword ptr fs:si],0
je finishsections
inc si
jmp showallsections
finishsections:
push edx
call [cs:print],offset allsections
ret
errornosections:
call [cs:print],offset errornosection
ret
allsections db '\c02\lIl y avait %u sections dans le bloc ou fichier\l\c07',0
errornosection db '\c02Aucune section dans le bloc ou fichier\l\c07',0
code_exports:
call [cs:gettypeditem],di,0,' '
call [cs:mbfind],di
jc notmbfindsimports
jmp haveatargetexports
notmbfindsexports:
call [cs:searchfile],di
jc notmbfindall
call [cs:projfile],di
jc notmbfindall
call [cs:mbfind],di
jc notmbfindall
haveatargetexports:
mov fs,ax
cmp [word ptr fs:0x0],'EC'
jne errornotace2
mov si,[fs:exe.exports]
cmp si,0
je errornoexports
xor edx,edx
call [cs:print],offset rets
showallexports:
push fs
push si
call [cs:print],offset functions
inc edx
findnextexports:
inc si
cmp [byte ptr fs:si],0
jne findnextexports
add si,3
cmp [dword ptr fs:si],0
je finishexports
jmp showallexports
finishexports:
push edx
call [cs:print],offset allexports
ret
errornoexports:
call [cs:print],offset errornoexport
ret
allexports db '\c02\lIl y avait %u exportations dans le bloc ou fichier\l\c07',0
errornoexport db '\c02Aucune exportation dans le bloc ou fichier\l\c07',0
code_imports:
call [cs:gettypeditem],di,0,' '
call [cs:mbfind],di
jc notmbfindsimports
jmp haveatargetimports
notmbfindsimports:
call [cs:searchfile],di
jc notmbfindall
call [cs:projfile],di
jc notmbfindall
call [cs:mbfind],di
jc notmbfindall
haveatargetimports:
mov fs,ax
cmp [word ptr fs:0x0],'EC'
jne errornotace2
mov si,[fs:exe.imports]
cmp si,0
je errornoimports
xor edx,edx
call [cs:print],offset rets
showallimports:
push fs
push si
call [cs:print],offset functions
inc edx
findnextimports:
inc si
cmp [byte ptr fs:si],0
jne findnextimports
add si,5
cmp [dword ptr fs:si],0
je finishimports
jmp showallimports
finishimports:
push edx
call [cs:print],offset allimports
ret
errornoimports:
call [cs:print],offset errornoimport
ret
notmbfindall:
call [cs:print],offset errornotmborfilefind
ret
errornotace2:
call [cs:print],offset errornotcefind
ret
functions db '%0P\l',0
rets db '\l\l',0
allimports db '\c02\lIl y avait %u importations dans le bloc ou fichier\l\c07',0
errornoimport db '\c02Aucune importation dans le bloc ou fichier\l\c07',0
errornotcefind db '\c04Le bloc ou le fichier sp<73>cifi<66> n''est pas CE\l\c07',0
errornotmborfilefind db '\c04Impossible de trouver le bloc ou le fichier specifie\l\c07',0
code_regs:
call [cs:savecontext],offset allregs
push 6
push eax
push eax
mov ax,[word ptr allregs.sss]
push 6
push eax
push eax
mov ax,[word ptr allregs.sgs]
push 6
push eax
push eax
mov ax,[word ptr allregs.sfs]
push 6
push eax
push eax
mov ax,[word ptr allregs.ses]
push 6
push eax
push eax
mov ax,[word ptr allregs.sds]
push 6
push eax
push eax
mov ax,[word ptr allregs.scs]
xor eax,eax
push 10
pushd [dword ptr allregs.seip]
pushd [dword ptr allregs.seip]
push 10
pushd [dword ptr allregs.sesp]
pushd [dword ptr allregs.sesp]
push 10
pushd [dword ptr allregs.sebp]
pushd [dword ptr allregs.sebp]
push 10
pushd [dword ptr allregs.sedi]
pushd [dword ptr allregs.sedi]
push 10
pushd [dword ptr allregs.sesi]
pushd [dword ptr allregs.sesi]
push 10
pushd [dword ptr allregs.sedx]
pushd [dword ptr allregs.sedx]
push 10
pushd [dword ptr allregs.secx]
pushd [dword ptr allregs.secx]
push 10
pushd [dword ptr allregs.sebx]
pushd [dword ptr allregs.sebx]
push 10
pushd [dword ptr allregs.seax]
pushd [dword ptr allregs.seax]
push 10
pushd [dword ptr allregs.seflags]
pushd [dword ptr allregs.seflags]
call [cs:print],offset registershow
ret
registershow db '\l\c02Liste des registres du Microprocesseur\l\l\c07'
db '\c04CPU\h30FPU\c07\l'
db 'EFGS: 0x%hD : %w |\h32ST(0): ??\l'
db 'EAX : 0x%hD : %w |\h32ST(1): ??\l'
db 'EBX : 0x%hD : %w |\h32ST(2): ??\l'
db 'ECX : 0x%hD : %w |\h32ST(3): ??\l'
db 'EDX : 0x%hD : %w |\h32ST(4): ??\l'
db 'ESI : 0x%hD : %w |\h32ST(5): ??\l'
db 'EDI : 0x%hD : %w |\h32ST(6): ??\l'
db 'EBP : 0x%hD : %w |\h32ST(7): ??\l'
db 'ESP : 0x%hD : %w |\h32\l'
db 'EIP : 0x%hD : %w |\h32\l'
db 'CS : 0x%hW : %w |\h32\l'
db 'DS : 0x%hW : %w |\h32\l'
db 'ES : 0x%hW : %w |\h32\l'
db 'FS : 0x%hW : %w |\h32\l'
db 'GS : 0x%hW : %w |\h32\l'
db 'SS : 0x%hW : %w |\h32\l',0
allregs regs <>
code_irqs:
call [cs:mbfind],offset interruptionbloc
jc erroronint
call [cs:print],offset irqmsg1
mov es,ax
xor ebx,ebx
intoirq:
xor eax,eax
mov al,[bx+offset irqmap]
mov dx,size ints
mul dx
mov si,ax
pushd [dword ptr es:(ints si).vector1.data.off]
pushd [dword ptr es:(ints si).vector1.data.seg]
call [cs:isrequestirq],bx
jc requested
push ' '
jmp suiterequested
requested:
push 'X'
suiterequested:
call [cs:isinserviceirq],bx
jc inservice
push ' '
jmp suiteinservice
inservice:
push 'X'
suiteinservice:
call [cs:isenableirq],bx
jc activatemat
push ' '
jmp suiteactivatemat
activatemat:
push 'X'
suiteactivatemat:
cmp [es:(ints si).activated],1
je activate2
push ' '
jmp suiteactivate2
activate2:
push 'X'
suiteactivate2:
cmp [es:(ints si).locked],1
je verrouille2
push ' '
jmp suiteverrouille2
verrouille2:
push 'X'
suiteverrouille2:
pushd [dword ptr es:(ints si).calledlow]
pushd [dword ptr es:(ints si).calledhigh]
pushd [dword ptr es:(ints si).launchedlow]
pushd [dword ptr es:(ints si).launchedhigh]
push 3
xor eax,eax
mov al,[bx+offset irqmap]
push eax
push 3
push ebx
call [cs:print],offset irqmsg2
inc bl
cmp bl,16
jb intoirq
ret
irqmap db 8,9,10,11,12,13,14,15,0x70,0x71,0x72,0x73,0x74,0x75,0x76,0x77
irqmsg1 db '\l\c02Listes des IRQs\c07\l\l'
db 'IRQ | Int | Appels | Executions |Ver|Act|IMR|ISR|IRR| Vecteur 1 \l',0
irqmsg2 db '%w | %w | 0x%hW%hD | 0x%hW%hD | %c | %c | %c | %c | %c | 0x%hW:0x%hW\l',0
code_int:
call [cs:mbfind],offset interruptionbloc
jc erroronint
mov es,ax
call [cs:gettypeditem],di,0,' '
xor edi,edi
mov di,ax
mov cx,size ints
mul cx
mov si,ax
pushd [dword ptr es:(ints si).vector8.data.off]
pushd [dword ptr es:(ints si).vector8.data.seg]
pushd [dword ptr es:(ints si).vector7.data.off]
pushd [dword ptr es:(ints si).vector7.data.seg]
pushd [dword ptr es:(ints si).vector6.data.off]
pushd [dword ptr es:(ints si).vector6.data.seg]
pushd [dword ptr es:(ints si).vector5.data.off]
pushd [dword ptr es:(ints si).vector5.data.seg]
pushd [dword ptr es:(ints si).vector4.data.off]
pushd [dword ptr es:(ints si).vector4.data.seg]
pushd [dword ptr es:(ints si).vector3.data.off]
pushd [dword ptr es:(ints si).vector3.data.seg]
pushd [dword ptr es:(ints si).vector2.data.off]
pushd [dword ptr es:(ints si).vector2.data.seg]
pushd [dword ptr es:(ints si).vector1.data.off]
pushd [dword ptr es:(ints si).vector1.data.seg]
pushd [dword ptr es:(ints si).calledlow]
pushd [dword ptr es:(ints si).calledhigh]
pushd [dword ptr es:(ints si).launchedlow]
pushd [dword ptr es:(ints si).launchedhigh]
cmp [es:(ints si).activated],1
je activate
push offset oui
jmp suiteactivate
activate:
push offset non
suiteactivate:
cmp [es:(ints si).locked],1
je verrouille
push offset oui
jmp suiteverrouille
verrouille:
push offset non
suiteverrouille:
push esi
push es
push es
push edi
call [cs:print],offset infosint
ret
erroronint:
call [cs:print],offset errorint
okint:
ret
interruptionbloc db '/interrupts',0
errorint db '\c04Le gestionnaire d''interruption n''est pas actif\l\c07',0
infosint db '\c07Le bloc d''interruption est charge en memoire et le gestionnaire est actif\l\l'
db 'Interruption %u\l'
db 'Pointeur : 0x%hW:0x%hW\l\c07'
db 'Active : %0\l'
db 'Verrouillage : %0\l'
db 'Nombre d''appels : 0x%hD%hD\l'
db 'Nombre de lancements : 0x%hD%hD\l'
db '\c02Vecteur 1 : 0x%hW:0x%hW\l'
db 'Vecteur 2 : 0x%hW:0x%hW\l'
db 'Vecteur 3 : 0x%hW:0x%hW\l'
db 'Vecteur 4 : 0x%hW:0x%hW\l'
db 'Vecteur 5 : 0x%hW:0x%hW\l'
db 'Vecteur 6 : 0x%hW:0x%hW\l'
db 'Vecteur 7 : 0x%hW:0x%hW\l'
db 'Vecteur 8 : 0x%hW:0x%hW\l\c07',0
code_refresh:
call [cs:initdrive]
jnc okrefresh
call [cs:print],offset errorrefreshing
ret
okrefresh:
call [cs:getserial]
push eax
mov si,offset nomdisque
call [cs:getname],si
push si
push offset present
call [cs:print]
ret
errorrefreshing db '\c04Impossible de lire le support',0
extcom db '.CE',0
code_mem:
call [cs:print],offset msg
xor edx,edx
xor ebx,ebx
xor cx,cx
listmcb:
call [cs:mbget],cx
jc fino
mov fs,ax
dec ax
dec ax
mov gs,ax
inc cx
cmp [word ptr fs:0x0],'EC'
jne notace
push offset oui ;CE? str0 2
jmp suitelikeace
notace:
push offset non
suitelikeace:
mov dx,fs
push edx ;Emplacement memoire hex 2
;parent
cmp [gs:mb.reference],0
jne nextdetect
push cs
push offset none ;parent lstr0 2x2
add bx,[gs:mb.sizes]
jmp suitemn
nextdetect:
mov dx,[gs:mb.reference]
dec dx
dec dx
push dx ;parent lstr0 2x2
push offset (mb).names
suitemn:
cmp [gs: mb.isresident],true
jne notresident
push offset oui ;resident str0 2
jmp suitelistmcb
notresident:
push offset non ;resident str0 2
suitelistmcb:
xor edx,edx
mov dx,[gs: mb.sizes]
shl edx,4
push 6 ;decimal 4 + type 2
push edx
push gs ;nom lstr0 2x2
push offset (mb).names
push offset line2 ;ligne
call [cs:print]
jmp listmcb
fino:
shl ebx,4
push ebx
push offset fin
call [cs:print]
ret
oui db "oui",0
non db "non",0
line2 db "%0P\h15| %w\h24| %0\h30| %0P\h47| 0x%hW\h56| %0\l",0
fin db "\l\l\c02%u octets de memoire disponible\l\c07",0
msg db "\l\c02Plan de la memoire\c07\l\lNom | Taille | Res | Parent | Mem | CE \l",0
none db "?????",0
;converti le jeux scancode/ascii en fr ax->ax
convertfr:
push dx si
mov si,offset fr
searchtouch:
mov dx,[cs: si]
cmp dx,0
je endofconv
add si,4
cmp dx,ax
jne searchtouch
mov ax,[cs: si-2]
endofconv:
pop dx si
ret
fr: db '1', 02, '&', 02
db '!', 02, '1', 02
db '2', 03, '<27>', 03
db '@', 03, '2', 03
db '3', 04, '"', 04
db '#', 04, '3', 04
db '4', 05, 39, 05
db '$', 05, '4', 05
db '5', 06, '(', 06
db '%', 06, '5', 06
db '6', 07, '-', 07
db '^', 07, '6', 07
db '7', 08, '<27>', 08
db '&', 08, '7', 08
db '8', 09, '_', 09
db '*', 09, '8', 09
db '9', 10, '<27>', 10
db '(', 10, '9', 10
db '0', 11, '<27>', 11
db ')', 11, '0', 11
db '-', 12, ')', 12
db '_', 12, '<27>', 12
db 'Q', 16, 'A', 16
db 'q', 16, 'a', 16
db 'W', 17, 'Z', 17
db 'w', 17, 'z', 17
db '{', 26, '<27>', 26
db '[', 26, '<27>', 26
db ']', 27, '$', 27
db '}', 27, '<27>', 27
db 'A', 30, 'Q', 30
db 'a', 30, 'q', 30
db ':', 39, 'M', 39
db ';', 39, 'm', 39
db 39, 40, '<27>', 40
db '"', 40, '%', 40
db 00, 40, '%', 40
db '\', 43, '*', 43
db '|', 43, '<27>', 43
db 'Z', 44, 'W', 44
db 'z', 44, 'w', 44
db 'm', 50, ',', 50
db 'M', 50, '?', 50
db ',', 51, ';', 51
db '<', 51, '.', 51
db '.', 52, ':', 52
db '>', 52, '/', 52
db '?', 53, '<27>', 53
db '/', 53, '!', 53
db '\', 86, '<', 86
db '|', 86, '>', 86
db 00, 79h, '~', 03
db 00, 7ah, '#', 04
db 00, 7bh, '{', 05
db 00, 7ch, '[', 06
db 00, 7dh, '|', 07
db 00, 7eh, '`', 08
db 00, 7fh, '\', 09
db 00, 80h, '^', 10
db 00, 81h, '@', 11
db 00, 82h, ']', 12
db 00, 83h, '}', 13
db 00, 00, 00, 00
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 str_mem ,code_mem ,syn_mem ,help_mem
dw str_kill ,code_kill ,syn_kill ,help_kill
dw str_int ,code_int ,syn_int ,help_int
dw str_irqs ,code_irqs,syn_irqs ,help_irqs
dw str_regs ,code_regs,syn_regs ,help_regs
dw str_stack,code_stack,syn_stack,help_stack
dw str_dump,code_dump,syn_dump,help_dump
dw str_detect,code_detect,syn_detect,help_detect
dw str_exports,code_exports,syn_exports,help_exports
dw str_imports,code_imports,syn_imports,help_imports
dw str_sections,code_sections,syn_sections,help_sections
dw 0
str_exit db 'QUIT',0
str_version db 'VERS',0
str_cls db 'CLEAR',0
str_reboot db 'REBOOT',0
str_command db 'CMDS',0
str_mode db 'MODE',0
str_dir db 'DIR',0
str_refresh db 'DISK',0
str_cd db 'CD',0
str_mem db 'MEM',0
str_kill db 'KILL',0
str_int db 'INT',0
str_irqs db 'IRQS',0
str_regs db 'REGS',0
str_stack db 'STACK',0
str_dump db 'DUMP',0
str_detect db 'DETECT',0
str_exports db 'EXPORTS',0
str_imports db 'IMPORTS',0
str_sections db 'SECTIONS',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
syn_mem db 0
syn_kill db '?',0
syn_int db 'FFh',0
syn_irqs db 0
syn_regs db 0
syn_stack db 0
syn_dump db '?',0
syn_detect db 0
syn_exports db '?',0
syn_imports db '?',0
syn_sections db '?',0
help_exit db 'Permet de quitter l''interpreteur',0
help_version db 'Affiche la version de COS',0
help_cls db 'Efface l''ecran',0
help_reboot db 'Redemarre l''ordinateur',0
help_command db 'Affiche le detail des commandes',0
help_mode db 'Modifie le mode video en cours',0
help_dir db 'Affiche le contenu du repertoire courant',0
help_refresh db 'Lit le support disquette insere',0
help_cd db 'Change le repertoire courant',0
help_mem db 'Affiche le plan de la memoire',0
help_kill db 'Termine le processus cible',0
help_int db 'Affiche des informations sur l''interruption',0
help_irqs db 'Affiche des informations sur les IRQs',0
help_regs db 'Affiche les registres du microprocesseur',0
help_stack db 'Affiche la pile systeme',0
help_dump db 'Affiche le contenu de la memoire',0
help_detect db 'Detecte et Affiche les peripheriques PCI et le CPU',0
help_exports db 'Affiche toutes les exportations du fichier specifie',0
help_imports db 'Affiche toutes les importations du fichier specifie',0
help_sections db 'Affiche toutes les sections du fichier specifie',0
derror db '\c04Erreur de Syntaxe !',0
error_syntax db '\c04La commande ou l''executable n''existe pas ! F1 pour %0',0
prompt db '\c07>',0
msginit db '\m02\e\c07\l\lInterpreteur de commande COS V1.9\lSous license \c05GPL\c07 - Ecrit par \c04MrNop\l\c07Utilisez la commande CMDS pour connaitres les commandes disponibles\l',0
dir db 32 dup (0)
buffer db 256 dup (0)
temp db 256 dup (0)
importing
use DETECT.LIB,cpuinfo
use DETECT.LIB,setinfo
use DETECT.LIB,pciinfo
use DETECT.LIB,getcardinfo
use DETECT.LIB,getpcisubclass
use DETECT.LIB,getpciclass
use DETECT.LIB,detectvmware
use VIDEO,clearscreen
use VIDEO,setvideomode
use VIDEO,getxy
use VIDEO,setxy
use VIDEO,addline
use VIDEO.LIB,showhex
use VIDEO.LIB,print
use VIDEO.LIB,showchar
use DISQUE,getdir
use DISQUE,getserial
use DISQUE,getname
use DISQUE,findfirstfile
use DISQUE,findnextfile
use DISQUE,execfile
use DISQUE,initdrive
use DISQUE,changedir
use DISQUE,searchfile
use DISQUE,projfile
use SYSTEME,mbget
use SYSTEME,mbfind
use SYSTEME,mbfindsb
use SYSTEME,mbfree
use SYSTEME,isenableirq
use SYSTEME,isinserviceirq
use SYSTEME,isrequestirq
use SYSTEME,savecontext
use STR0.LIB,uppercase
use STR0.LIB,evalue
use STR0.LIB,copy
use STR0.LIB,checksyntax
use STR0.LIB,searchchar
use STR0.LIB,concat
use STR0.LIB,getitem
use STR0.LIB,cmpstr
use STR0.LIB,getpointeritem
use STR0.LIB,getlength
use STR0.LIB,gettypeditem
endi