1 files changed, 158 insertions, 0 deletions
diff --git a/ldmicro/sample/pic-adc.ld b/ldmicro/sample/pic-adc.ld
new file mode 100644
index 0000000..760475a
--- /dev/null
+++ b/ldmicro/sample/pic-adc.ld
@@ -0,0 +1,158 @@
+LDmicro0.1
+MICRO=Microchip PIC16F877 40-PDIP
+CYCLE=10000
+CRYSTAL=4000000
+BAUD=2400
+COMPILED=c:\temp\asd.hex
+
+IO LIST
+    Xlimit at 2
+    Yled at 22
+    Ain at 3
+END
+
+PROGRAM
+RUNG
+    COMMENT Serial/ADC test program for PIC16F877: read an ADC input, convert from integer to string\r\n(three ASCII chars), then send it out over the serial port. Display a message at startup:
+END
+RUNG
+    PARALLEL
+        SERIES
+            EQU Cinit 2
+            MOVE initc 'a'
+        END
+        SERIES
+            EQU Cinit 3
+            MOVE initc 'd'
+        END
+        SERIES
+            EQU Cinit 4
+            MOVE initc 'c'
+        END
+        SERIES
+            PARALLEL
+                EQU Cinit 0
+                EQU Cinit 5
+            END
+            MOVE initc 13
+        END
+        SERIES
+            PARALLEL
+                EQU Cinit 1
+                EQU Cinit 6
+            END
+            MOVE initc 10
+        END
+    END
+END
+RUNG
+    TON Ttod 500000
+    CONTACTS Rinitdone 1
+    CONTACTS Rtxbusy 1
+    UART_SEND initc
+    COIL Rtxbusy 0 0 0
+END
+RUNG
+    CONTACTS Rtxbusy 0
+    CTU Cinit 7
+    COIL Rinitdone 0 0 0
+END
+RUNG
+    COMMENT Clock for the ADC read and a circular counter that sequences it. Just block the\r\noscillator until the init sequence completes.
+END
+RUNG
+    CONTACTS Rinitdone 0
+    CONTACTS Rosc 1
+    TOF Tct1 50000
+    TON Tct2 50000
+    COIL Rosc 0 0 0
+END
+RUNG
+    CONTACTS Rosc 0
+    CTC Cchar 4
+END
+RUNG
+    OSR
+    MOVE Cchar 3
+END
+RUNG
+    COMMENT Read the A/D input, then saturate the input so that we only have to display three digits.
+END
+RUNG
+    PARALLEL
+        READ_ADC Ain
+        SERIES
+            LEQ Ain 999
+            MOVE intval Ain
+        END
+        SERIES
+            GEQ Ain 1000
+            MOVE intval 999
+        END
+    END
+END
+RUNG
+    COMMENT Split the integer into the ones, tens, and hundreds digits. This is just cumbersome, but\r\nit does not waste much memory (the multiply and divide are subroutines in the PIC code).
+END
+RUNG
+    PARALLEL
+        DIV hundreds intval 100
+        MUL hundredsv hundreds 100
+        SUB wohundreds intval hundredsv
+        DIV tens wohundreds 10
+        MUL tensv tens 10
+        SUB ones wohundreds tensv
+    END
+END
+RUNG
+    COMMENT Now convert the ones, tens, and hundreds digits to ASCII characters by adding\r\nASCII character '0' (since the ASCII digits are contiguous in order).
+END
+RUNG
+    PARALLEL
+        ADD hunc hundreds '0'
+        ADD tensc tens '0'
+        ADD onesc ones '0'
+    END
+END
+RUNG
+    COMMENT Then send out the characters. For each line we must send out five characters:\r\nhundreds, tens, ones, ones, carriage return, newline; use a CTC to sequence.
+END
+RUNG
+    PARALLEL
+        SERIES
+            EQU Cchar 0
+            MOVE outch hunc
+        END
+        SERIES
+            EQU Cchar 1
+            MOVE outch tensc
+        END
+        SERIES
+            EQU Cchar 2
+            MOVE outch onesc
+        END
+        SERIES
+            EQU Cchar 3
+            MOVE outch 13
+        END
+        SERIES
+            EQU Cchar 4
+            MOVE outch 10
+        END
+    END
+END
+RUNG
+    COMMENT Time it off Rosc (10 characters/s) which is slow so ignore the busy out.
+END
+RUNG
+    CONTACTS Rosc 0
+    OSR
+    UART_SEND outch
+END
+RUNG
+    PARALLEL
+        CONTACTS Rosc 0
+        CONTACTS Xlimit 1
+    END
+    COIL Yled 0 0 0
+END