X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=blink.c;h=1f8a5192c03b8df909b580dcae0ab5d1d973728b;hp=fcbc04d0555db3a12dfd7ec4f5a2085bf7bf2721;hb=0bc52385b8f86f9ca1c450ad106e6d8afe3bc153;hpb=dc03adc179669d41e3551d74b3c5a60db41ff217

diff --git a/blink.c b/blink.c
index fcbc04d0..1f8a5192 100644
--- a/blink.c
+++ b/blink.c
@@ -24,21 +24,52 @@ sfr at 0xF7 P2INP;
 		nop \
 		_endasm;
 
+void
+delay (int n)
+{
+	int i, j, k;
+
+	for (k = 0; k < n; k++) {
+		for (j = 0; j < 50; j++)
+			for (i = 0; i < 1000; i++)
+				nop();
+	}
+}
+
+void
+dit() {
+	P1 = 0xff;
+	delay(1);
+	P1 = 0xfd;
+	delay(1);
+}
+
+void
+dah () {
+	P1 = 0xff;
+	delay(3);
+	P1 = 0xfd;
+	delay(1);
+}
+
+void
+charspace () {
+	delay(2);
+}
+
+void
+wordspace () {
+	delay(8);
+}
+
 main ()
 {
-	int	i, j;
 	/* Set p1_1 to output */
 	P1DIR = 0x02;
 	P1INP = 0x00;
 	P2INP = 0x00;
 	for (;;) {
-		P1 = 0xff;
-		for (j = 0; j < 100; j++)
-			for (i = 0; i < 1000; i++)
-				nop();
-		P1 = 0xfd;
-		for (j = 0; j < 100; j++)
-			for (i = 0; i < 1000; i++)
-				nop();
+		dah(); dit(); dah(); dit(); charspace ();
+		dah(); dah(); dit(); dah(); wordspace();
 	}
 }