From 9608fc23272222a5472444514c044b736108e33d Mon Sep 17 00:00:00 2001
From: Pixel <>
Date: Mon, 16 Apr 2001 19:31:22 +0000
Subject: Bleh

---
 samples/rechcara.s | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 samples/rechcara.s

(limited to 'samples/rechcara.s')

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
-- 
cgit v1.2.3