From 36e7c28531ee7bade9506144f48afed4c7ccd874 Mon Sep 17 00:00:00 2001
From: Julian Blake Kongslie
Date: Sat, 5 Nov 2022 11:32:21 -0700
Subject: Rename/remove some of the example programs

---
 programs/queue.pal | 67 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)
 create mode 100644 programs/queue.pal

(limited to 'programs/queue.pal')

diff --git a/programs/queue.pal b/programs/queue.pal
new file mode 100644
index 0000000..89a1fea
--- /dev/null
+++ b/programs/queue.pal
@@ -0,0 +1,67 @@
+/ vim: set sw=8 noexpandtab :
+
+*000
+
+INTRET,	0
+	JMP GOTINT
+
+*010
+
+HEAD,	7777		/ because preincrement
+TAIL,	7777
+
+*100
+
+TTBUSY,	0
+
+*200
+
+	CLA IAC
+	KIE
+	ION
+LOOP,	CLA
+	TAD TTBUSY
+	SZA
+	JMP LOOP
+	TAD TAIL
+	CMA IAC
+	TAD HEAD
+	SNA
+	JMP LOOP
+	CLA
+	CDF 0010
+	TAD I TAIL
+	CDF 0000
+	IOF		/ critical section
+	TPC
+	CLA IAC
+	ION
+	DCA TTBUSY	/ end critical section
+	JMP LOOP
+
+*400
+
+GOTINT,	DCA SAVEA
+	GTF
+	AND (7577)
+	DCA SAVEF
+	TSF
+	JMP KBIN
+	DCA TTBUSY
+	TCF
+KBIN,	KSF
+	JMP RETINT
+	KRB
+	CDF 0010
+	DCA I HEAD
+	CDF 0000
+RETINT,	CLA
+	TAD SAVEF
+	RTF
+	CLA
+	TAD SAVEA
+	ION
+	JMP I INTRET
+
+SAVEA,	0
+SAVEF,	0
-- 
cgit v1.2.3