model tiny,stdcall p586N locals jumps codeseg option procalign:byte include "..\include\fat.h" include "..\include\mem.h" include "..\include\divers.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้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',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 'Liste des commandes internes\l\l',0 commandes db '%0 \h10:\h12%0 \h70%0\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',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',0 code_stack: code_dump: 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 resident jmp suiteactivate activate: push offset nonresident suiteactivate: cmp [es:(ints si).locked],1 je verrouille push offset resident jmp suiteverrouille verrouille: push offset nonresident 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 ebx,ebx xor cx,cx listmcb: call [cs:mbget],cx jc fino dec ax dec ax mov gs,ax inc cx mov dx,gs push edx ;Emplacement memoire hex 2 ;parent cmp [gs:mb.reference],0 jne next push cs push offset none ;parent lstr0 2x2 add bx,[gs:mb.sizes] jmp suitemn next: 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 resident ;resident str0 2 jmp suitelistmcb notresident: push offset nonresident ;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 resident db "oui",0 nonresident db "non",0 line2 db "%0P\h15|%w\h25|%0\h30|%0P\h46|%hW\l",0 fin db "\l\l\c02%u octets de memoire disponible\l\c07",0 msg db "Plan de la memoire\l\lNom | Taille |Res |Parent |Mem\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, '‚', 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, 'Š', 08 db '&', 08, '7', 08 db '8', 09, '_', 09 db '*', 09, '8', 09 db '9', 10, '‡', 10 db '(', 10, '9', 10 db '0', 11, '…', 11 db ')', 11, '0', 11 db '-', 12, ')', 12 db '_', 12, '๘', 12 db 'Q', 16, 'A', 16 db 'q', 16, 'a', 16 db 'W', 17, 'Z', 17 db 'w', 17, 'z', 17 db '{', 26, '‰', 26 db '[', 26, 'ˆ', 26 db ']', 27, '$', 27 db '}', 27, 'œ', 27 db 'A', 30, 'Q', 30 db 'a', 30, 'q', 30 db ':', 39, 'M', 39 db ';', 39, 'm', 39 db 39, 40, '—', 40 db '"', 40, '%', 40 db 00, 40, '%', 40 db '\', 43, '*', 43 db '|', 43, 'ๆ', 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, '๕', 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 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 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 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 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 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 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