1 files changed, 58 insertions, 0 deletions

diff --git a/programs/echo_int.pal b/programs/echo_int.pal
new file mode 100644
index 0000000..62886ff
--- /dev/null
+++ b/programs/echo_int.pal
@@ -0,0 +1,58 @@
+/ vim: set sw=8 noexpandtab :
+
+*000
+
+INTRET, 0
+        JMP GOTINT
+
+*010
+
+HEAD,   7777            / because preincrement
+TAIL,   7777
+
+*200
+
+        CLA IAC
+        KIE
+        ION
+        CLA
+LOOP,   TAD TAIL
+        CMA IAC
+        TAD HEAD
+        SNA
+        JMP LOOP
+        CLA
+        CDF 0010
+        TAD I TAIL
+        CDF 0000
+        IOF             / critical section
+        TLS
+BUSY,   TSF             / FIXME: remove busy wait inside IOF (see echo_optimal.pal)
+        JMP BUSY
+        TCF
+        ION
+        CLA             / end critical section
+        JMP LOOP
+
+*400
+
+SAVEA,  0
+SAVEF,  0
+
+GOTINT, DCA SAVEA
+        GTF
+        AND (7577)
+        DCA SAVEF
+        KSF
+        JMP RETINT
+        KRB
+        CDF 0010
+        DCA I HEAD
+        CDF 0000
+RETINT, CLA
+        TAD SAVEF
+        RTF
+        CLA
+        TAD SAVEA
+        ION
+        JMP I INTRET