From 3779cc8b32cac3640f42bd0400d4199ddae965a1 Mon Sep 17 00:00:00 2001 From: Keith Packard Date: Thu, 18 Dec 2008 12:17:41 -0800 Subject: [PATCH] cq Signed-off-by: Keith Packard --- blink.c | 49 ++++++++++++++++++++++++++++++++++++++++--------- 1 file changed, 40 insertions(+), 9 deletions(-) diff --git a/blink.c b/blink.c index fcbc04d0..f8cf7827 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 < 100; 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(); } } -- 2.30.2