From 9608fc23272222a5472444514c044b736108e33d Mon Sep 17 00:00:00 2001 From: Pixel <> Date: Mon, 16 Apr 2001 19:31:22 +0000 Subject: Bleh --- samples/Makefile.am | 2 +- samples/Makefile.samples | 12 +++++ samples/instructions.txt | 120 +++++++++++++++++++++++++++++++++++++++++++++++ samples/rechcara.asm | 26 ---------- samples/rechcara.s | 26 ++++++++++ samples/recherche.asm | 26 ---------- samples/recherche.s | 26 ++++++++++ samples/sommeentiers.asm | 28 ----------- samples/sommeentiers.s | 28 +++++++++++ 9 files changed, 213 insertions(+), 81 deletions(-) create mode 100644 samples/Makefile.samples create mode 100644 samples/instructions.txt delete mode 100644 samples/rechcara.asm create mode 100644 samples/rechcara.s delete mode 100644 samples/recherche.asm create mode 100644 samples/recherche.s delete mode 100644 samples/sommeentiers.asm create mode 100644 samples/sommeentiers.s (limited to 'samples') diff --git a/samples/Makefile.am b/samples/Makefile.am index 8235c60..1883279 100644 --- a/samples/Makefile.am +++ b/samples/Makefile.am @@ -1 +1 @@ -EXTRA_DIST = rechcara.asm recherche.asm sommeentiers.asm +EXTRA_DIST = rechcara.asm recherche.asm sommeentiers.asm Makefile.samples instructions.txt diff --git a/samples/Makefile.samples b/samples/Makefile.samples new file mode 100644 index 0000000..ead9b38 --- /dev/null +++ b/samples/Makefile.samples @@ -0,0 +1,12 @@ +.o: + ../src/linker $< $@ + +.s.o: + ../src/compilo $< $@ + +.s: + ../src/compilo $< tmp.o + ../src/linker tmp.o $@ + rm tmp.o + +all: recherche rechcara sommeentiers diff --git a/samples/instructions.txt b/samples/instructions.txt new file mode 100644 index 0000000..9b70685 --- /dev/null +++ b/samples/instructions.txt @@ -0,0 +1,120 @@ +# Champ d'instructions général +FI:c3,6;c2,6;c1,6;e,6;op,8 + +# Champ d'adressage +Fa:reserved,4;rm,2 + +# Pattern des registres +Pr:R0;R1;R2;R3;R4;R5;R6;R7;R8;R9;R10;R11;R12;R13;R14;R15;R16;R17;R18;R19;R20;R21;R22;R23;R24;R25;R26;R27;R28;R29;R30;R31;Rg;Rd;IP;Fl + +# Pattern des adressages +# .O = Adresse absolue (relogée) +# .O = Adresse relative à l'instruction en cours (ex: Label, Label + 2, __current__ + 4) +Pm:regop=.Pr;.I=.O;[regop=.Pr;.I=.O[regop=.Pr + +# bits 3 - 2 +# ~~~~~~~~~~ +# 00 overflow +# 01 zero +# 10 sign +# 11 parity + +# bits 5 - 4 +# ~~~~~~~~~~ +# 00 test1 +# 01 test1 || test2 +# 10 test1 && !test2 +# 11 test1 || !test2 + + +# Arithmetique + +I:ADD c1=.Pr,c2=.Pr,c3=.Pr;op=0x0;e=0x0 +I:ADD c1=.Pr,c2=.Pr,.I=.C;op=0x0;e=0x1 +I:ADU c1=.Pr,c2=.Pr,c3=.Pr;op=0x0;e=0x2 +I:ADU c1=.Pr,c2=.Pr,.I=.C;op=0x0;e=0x3 + +p:ADS=ADD + +I:SUB c1=.Pr,c2=.Pr,c3=.Pr;op=0x1;e=0x0 +I:SUB c1=.Pr,c2=.Pr,.I=.C;op=0x1;e=0x1 +I:SBU c1=.Pr,c2=.Pr,c3=.Pr;op=0x1;e=0x2 +I:SBU c1=.Pr,c2=.Pr,.I=.C;op=0x1;e=0x3 + +p:SBS=SUB + +I:MUL c2=.Pr,c3=.Pr;op=0x2;e=0x0 +I:MUL c2=.Pr,.I=.C;op=0x2;e=0x1 + +I:DIV c2=.Pr,c3=.Pr;op=0x3;e=0x0 +I:DIV c2=.Pr,.I=.C;op=0x3;e=0x1 + +I:AND c1=.Pr,c2=.Pr,c3=.Pr;op=0x4;e=0x0 +I:AND c1=.Pr,c2=.Pr,.I=.C;op=0x4;e=0x1 + +I:OR c1=.Pr,c2=.Pr,c3=.Pr;op=0x5;e=0x0 +I:OR c1=.Pr,c2=.Pr,.I=.C;op=0x5;e=0x1 + +I:SHL c1=.Pr,c2=.Pr,c3=.Pr;op=0x6;e=0x0 +I:SHL c1=.Pr,c2=.Pr,I=.C;op=0x6;e=0x1 + +I:SHR c1=.Pr,c2=.Pr,c3=.Pr;op=0x7;e=0x0 +I:SHR c1=.Pr,c2=.Pr,.I=.C;op=0x7;e=0x1 + + +# Transferts + +I:MOV c1=.Pr,rm=.Pm;op=8;e=0;c2=.Fa;c3=regop +I:MOV c1=.Pr,c3=.Pr;op=8;e=0;c2=0 +I:MOV c1=.Pr,.I=.C;op=8;e=1 +I:MOV rm=.Pm,c2=.Pr;op=8;e=2;c1=.Fa;c3=regop +I:MOV rm=.Pm,.I=.C;op=8;e=3;c1=.Fa;c3=regop + +p:MV=MOV + + +# Misc1 + +I:NOP;op=0x9 + + +# Branchements + +# bits 3 - 2 +# ~~~~~~~~~~ +# 00 overflow +# 01 zero +# 10 sign +# 11 parity + +# bits 5 - 4 +# ~~~~~~~~~~ +# 00 test1 +# 01 test1 || test2 == !(!test1 && !test2) +# 10 test1 && !test2 == !(!test1 || test2) +# 11 test1 || !test2 == !(!test1 && test2) + +I:JE c1=.Pr,c2=.Pr,.I=.O;op=0xa;e=0x0 +I:JNE c1=.Pr,c2=.Pr,.I=.O;op=0xa;e=0x1 +I:JL c1=.Pr,c2=.Pr,.I=.O;op=0xa;e=0x2 +I:JLE c1=.Pr,c2=.Pr,.I=.O;op=0xa;e=0x3 +I:JG c2=.Pr,c1=.Pr,.I=.O;op=0xa;e=0x2 +I:JGE c2=.Pr,c1=.Pr,.I=.O;op=0xa;e=0x3 + +I:JO .I=.O;op=0xa;e=0x10 +I:JZ .I=.O;op=0xa;e=0x14 +I:JS .I=.O;op=0xa;e=0x18 +I:JP .I=.O;op=0xa;e=0x1c + +I:JNO .I=.O;op=0xa;e=0x30 +I:JNZ .I=.O;op=0xa;e=0x34 +I:JNS .I=.O;op=0xa;e=0x38 +I:JNP .I=.O;op=0xa;e=0x3c + +I:JMP .I=.O;op=0x0c;e=0x2 + +I:HALT;op=0x7f +I:RESET;op=0x7f;e=1 + +I:RET;op=0xc +I:RET c1=.C;op=0xc diff --git a/samples/rechcara.asm b/samples/rechcara.asm deleted file mode 100644 index c4747c3..0000000 --- a/samples/rechcara.asm +++ /dev/null @@ -1,26 +0,0 @@ -;Recherche du caractere 0DH dans une chaine de caracteres - -.DATA -CHAINE DS "ceci est un test de chaine de caractere de quatre vingt caracteres akdijhgffddss" -MSGPASTROUVE DS "Le caractere 0DH n'a pas été trouvé dans la chaine" -MSGTROUVE DS "Le caractere 0DH a été trouvé dans la chaine" -ZERO DB 0 - -.TEXT - -.START - - MOV R1,ZERO; - MOV R3,80; - MOV R2,0x0D; - MOV R5,ZERO; -BOUCLE: MOV R4,CHAINE[R1]; - JE R4,R2,TROUVE; - ADD R1,R1,1; - SUB R3,R3,1; - JNE R3 R5 BOUCLE; - MOV, [0xffffff04],MSGPASTROUVE; - JMP FIN; -TROUVE: MOV, [0xffffff04],MSGTROUVE; -FIN: HALT - \ No newline at end of file diff --git a/samples/rechcara.s b/samples/rechcara.s new file mode 100644 index 0000000..c4747c3 --- /dev/null +++ b/samples/rechcara.s @@ -0,0 +1,26 @@ +;Recherche du caractere 0DH dans une chaine de caracteres + +.DATA +CHAINE DS "ceci est un test de chaine de caractere de quatre vingt caracteres akdijhgffddss" +MSGPASTROUVE DS "Le caractere 0DH n'a pas été trouvé dans la chaine" +MSGTROUVE DS "Le caractere 0DH a été trouvé dans la chaine" +ZERO DB 0 + +.TEXT + +.START + + MOV R1,ZERO; + MOV R3,80; + MOV R2,0x0D; + MOV R5,ZERO; +BOUCLE: MOV R4,CHAINE[R1]; + JE R4,R2,TROUVE; + ADD R1,R1,1; + SUB R3,R3,1; + JNE R3 R5 BOUCLE; + MOV, [0xffffff04],MSGPASTROUVE; + JMP FIN; +TROUVE: MOV, [0xffffff04],MSGTROUVE; +FIN: HALT + \ No newline at end of file diff --git a/samples/recherche.asm b/samples/recherche.asm deleted file mode 100644 index 46b979e..0000000 --- a/samples/recherche.asm +++ /dev/null @@ -1,26 +0,0 @@ -.DATA -TAB1 DS "efghijklynoparstuvzxywqbcdefghijklynoparstuvzxywqbcdefghijklynoparstuvzxywqbcdefghijklynoparstuvzxywNNEX" -TAB2 DS "aafghijklynoparstuvzxywqbcdefghijklynoparstuvzxywqbcdefghijklynoparstuvzxywqbcdefghijklynoparstuvzxy" -MSGTROUVE DS "TAB1 et TAB2 ont un élément en commun" -MSGPASTROUVE DS "TAB1 et TAB2 n'ont pas d'élément en commun" -ZERO DB 0 - -.TEXT -.START - MOV R5, 101 ;R5 est le compteur - MOV R1, TAB1 ;TAB1 est un tableau de 100 octets de type char - MOV R2, TAB2 ;TAB2 est un tableau de 100 octets de type char -BOUCLE: SUB R5 R5 1 - MOV R6, [R1] - MOV R7, [R2] ;decrementation du compteur - JE R6 R7 TROUVE ;test si TAB1[i]=TAB2[i] =>jmp trouvé - ADD R1 R1 1 ;incrementation de R1 (element suivant du tableau TAB1) - ADD R2 R1 1 - MOV R8, ZERO ;incrementation de R2 (element suivant du tableau TAB2) - JNE R5 R8 BOUCLE ;si compteur !=0 on refait la boucle - MOV, [0xffffff04], MSGPASTROUVE ;il n'y a pas de d'éléments identiques a une position i => on place dans R3 le msg a afficher - JMP FIN ;jmp a l'affichage -TROUVE: MOV, [0xffffff04], MSGTROUVE ;il y a une paire d'éléments identiques => on place dans R3 le msg a afficher -FIN: HALT - RET 4 - \ No newline at end of file diff --git a/samples/recherche.s b/samples/recherche.s new file mode 100644 index 0000000..46b979e --- /dev/null +++ b/samples/recherche.s @@ -0,0 +1,26 @@ +.DATA +TAB1 DS "efghijklynoparstuvzxywqbcdefghijklynoparstuvzxywqbcdefghijklynoparstuvzxywqbcdefghijklynoparstuvzxywNNEX" +TAB2 DS "aafghijklynoparstuvzxywqbcdefghijklynoparstuvzxywqbcdefghijklynoparstuvzxywqbcdefghijklynoparstuvzxy" +MSGTROUVE DS "TAB1 et TAB2 ont un élément en commun" +MSGPASTROUVE DS "TAB1 et TAB2 n'ont pas d'élément en commun" +ZERO DB 0 + +.TEXT +.START + MOV R5, 101 ;R5 est le compteur + MOV R1, TAB1 ;TAB1 est un tableau de 100 octets de type char + MOV R2, TAB2 ;TAB2 est un tableau de 100 octets de type char +BOUCLE: SUB R5 R5 1 + MOV R6, [R1] + MOV R7, [R2] ;decrementation du compteur + JE R6 R7 TROUVE ;test si TAB1[i]=TAB2[i] =>jmp trouvé + ADD R1 R1 1 ;incrementation de R1 (element suivant du tableau TAB1) + ADD R2 R1 1 + MOV R8, ZERO ;incrementation de R2 (element suivant du tableau TAB2) + JNE R5 R8 BOUCLE ;si compteur !=0 on refait la boucle + MOV, [0xffffff04], MSGPASTROUVE ;il n'y a pas de d'éléments identiques a une position i => on place dans R3 le msg a afficher + JMP FIN ;jmp a l'affichage +TROUVE: MOV, [0xffffff04], MSGTROUVE ;il y a une paire d'éléments identiques => on place dans R3 le msg a afficher +FIN: HALT + RET 4 + \ No newline at end of file diff --git a/samples/sommeentiers.asm b/samples/sommeentiers.asm deleted file mode 100644 index 2e533a7..0000000 --- a/samples/sommeentiers.asm +++ /dev/null @@ -1,28 +0,0 @@ -;Ce programme va calculer la somme des 97 premiers entiers -.DATA -MSG DS "La somme des " -MSG2 DS " premiers entiers est égale à" -N DB 97 -ZERO DB 0 -SOMME DB 4 - -.TEXT - -.START - MOV R5,[N] ;init du compteur - MOV R1,0 ;init de R1 - MOV R2,0 ;init de R2 - -BOUCLE: ADD R1,R1,R5 ; R1=R1+R5 - AND R3,Fl,0x00000001 ; - ADD R2,R2,R3 ; R2=R2+CF - SUB R5,R5,1 ; DEC R5 - MOV R6,ZERO ; - JNE R5,R6,BOUCLE ; si R5!=0 on refait la boucle - MOV, [SOMME], R1 ; ; - MOV, [SOMME+2], R2 ;on place la valeur de la somme - MOV, [0xffffff04], MSG ;on affiche le msg et la somme - MOV, [0xffffff06], SOMME ; - MOV, [0xffffff06], SOMME+2 ; - MOV, [0xffffff04], MSG2 ; - HALT \ No newline at end of file diff --git a/samples/sommeentiers.s b/samples/sommeentiers.s new file mode 100644 index 0000000..2e533a7 --- /dev/null +++ b/samples/sommeentiers.s @@ -0,0 +1,28 @@ +;Ce programme va calculer la somme des 97 premiers entiers +.DATA +MSG DS "La somme des " +MSG2 DS " premiers entiers est égale à" +N DB 97 +ZERO DB 0 +SOMME DB 4 + +.TEXT + +.START + MOV R5,[N] ;init du compteur + MOV R1,0 ;init de R1 + MOV R2,0 ;init de R2 + +BOUCLE: ADD R1,R1,R5 ; R1=R1+R5 + AND R3,Fl,0x00000001 ; + ADD R2,R2,R3 ; R2=R2+CF + SUB R5,R5,1 ; DEC R5 + MOV R6,ZERO ; + JNE R5,R6,BOUCLE ; si R5!=0 on refait la boucle + MOV, [SOMME], R1 ; ; + MOV, [SOMME+2], R2 ;on place la valeur de la somme + MOV, [0xffffff04], MSG ;on affiche le msg et la somme + MOV, [0xffffff06], SOMME ; + MOV, [0xffffff06], SOMME+2 ; + MOV, [0xffffff04], MSG2 ; + HALT \ No newline at end of file -- cgit v1.2.3