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/fib_mike.pal | 117 --------------------------------------------------
 1 file changed, 117 deletions(-)
 delete mode 100644 programs/fib_mike.pal

(limited to 'programs/fib_mike.pal')

diff --git a/programs/fib_mike.pal b/programs/fib_mike.pal
deleted file mode 100644
index a20a843..0000000
--- a/programs/fib_mike.pal
+++ /dev/null
@@ -1,117 +0,0 @@
-	*200
-MAIN,	CLA
-	TAD (-26)
-	DCA FIBN
-	DCA FIB0
-	IAC
-	DCA FIB1
-LOOP,	CLA
-	TAD FIB0
-	JMS PUTN
-	CLA
-	TAD (012)
-	JMS PUTC
-	CLA
-	TAD FIB0
-	TAD FIB1
-	DCA FIB2
-	TAD FIB1
-	DCA FIB0
-	TAD FIB2
-	DCA FIB1
-	ISZ FIBN
-	JMP LOOP
-EXIT,   HLT
-	CLA IAC
-	DCA FIB1
-	DCA FIB0
-        JMP MAIN
-PUTN,	0
-	JMS ITOA
-	CMA IAC
-	IAC
-	CMA IAC
-	DCA 10
-PUTNL,	CLA
-	TAD I 10
-        SPA
-        JMP I PUTN
-	TAD (60)
-	JMS PUTC
-	JMP PUTNL
-PUTC,	0
-	TLS
-	TSF
-	JMP .-1
-	JMP I PUTC
-ITOA,	0
-	DCA ITOAV
-	DCA ITOAD
-	DCA ITOAD+1
-	DCA ITOAD+2
-	DCA ITOAD+3
-	TAD (-14)
-	DCA ITOAN
-ITOAL,	CLL		/ LOOP OVER BINARY INPUT BITS
-	TAD ITOAD+3
-	JMS ITOA2X
-	DCA ITOAD+3
-	TAD ITOAD+2
-	JMS ITOA2X
-	DCA ITOAD+2
-	TAD ITOAD+1
-	JMS ITOA2X
-	DCA ITOAD+1
-	TAD ITOAD
-	JMS ITOA2X
-	DCA ITOAD
-	CLL
-	TAD ITOAV	/ SHIFT MSB OUT OF INPUT VALUE
-	RAL
-	DCA ITOAV
-	RAL
-	TAD ITOAD+3	/ ADD SHIFTED-OUT MSB TO DECIMAL LSD
-	DCA ITOAD+3
-	ISZ ITOAN
-	JMP ITOAL	/ NEXT LOOP ITERATION
-	TAD (ITOAD)
-	DCA ITOAR
-ITOAJ,	TAD I ITOAR
-	SZA
-	JMP ITOAX
-	ISZ ITOAR
-	TAD I ITOAR
-	SZA
-	JMP ITOAX
-	ISZ ITOAR
-	TAD I ITOAR
-	SZA
-	JMP ITOAX
-	ISZ ITOAR
-ITOAX,	CLA
-	TAD ITOAR
-	JMP I ITOA
-ITOA2X,	0
-	RAL		/ PUTS 0 IN LINK
-	DCA ITOAT
-	TAD (-12)
-	TAD ITOAT	/ PUTS 1 IN LINK IF WRAPPED
-	SMA
-	DCA ITOAT
-	CLA
-	TAD ITOAT
-	JMP I ITOA2X
-FIB0,	0
-FIB1,	1
-FIB2,	0
-FIBN,	-27
-ITOAD,	0		/ OUTPUT DIGITS (MSD FIRST)
-	0
-	0
-	0
-	4000		/ OUTPUT SENTINEL
-ITOAN,	0		/ INPUT BITS LOOP COUNTER
-ITOAR,	0		/ POINTER TO FIRST NONZERO DIGIT
-ITOAT,	0		/ SCRATCHPAD FOR ITOA2X
-ITOAV,	0		/ VALUE BEING CONVERTED (TEMPORARY)
-$
-- 
cgit v1.2.3