2 files changed, 118 insertions, 1 deletions
diff --git a/programs/count.pal b/programs/count.pal
index 2e96759..aa34be6 100644
--- a/programs/count.pal
+++ b/programs/count.pal
@@ -2,5 +2,5 @@
 *200
-LOOP,   TAD [1]
+LOOP,   TAD (1)
        JMP LOOP
diff --git a/programs/mike_fib.pal b/programs/mike_fib.pal
new file mode 100644
index 0000000..6f56109
--- /dev/null
+++ b/programs/mike_fib.pal
@@ -0,0 +1,117 @@
+        *200
+MAIN,   CLA
+        TAD (-26)
+        DCA FIBN
+        DCA FIB0
+        IAC
+        DCA FIB1
+LOOP,   CLA
+        TAD FIB0
+        JMS PUTN
+        CLA
+        TAD (054)
+        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)
+$

diff --git a/programs/count.pal b/programs/count.pal index 2e96759..aa34be6 100644 --- a/programs/count.pal +++ b/programs/count.pal
@@ -2,5 +2,5 @@
2		2
3	*200	3	*200
4		4
5	LOOP, TAD [1]	5	LOOP, TAD (1)
6	JMP LOOP	6	JMP LOOP


diff --git a/programs/mike_fib.pal b/programs/mike_fib.pal new file mode 100644 index 0000000..6f56109 --- /dev/null +++ b/programs/mike_fib.pal
@@ -0,0 +1,117 @@
		1	*200
		2	MAIN, CLA
		3	TAD (-26)
		4	DCA FIBN
		5	DCA FIB0
		6	IAC
		7	DCA FIB1
		8	LOOP, CLA
		9	TAD FIB0
		10	JMS PUTN
		11	CLA
		12	TAD (054)
		13	JMS PUTC
		14	CLA
		15	TAD FIB0
		16	TAD FIB1
		17	DCA FIB2
		18	TAD FIB1
		19	DCA FIB0
		20	TAD FIB2
		21	DCA FIB1
		22	ISZ FIBN
		23	JMP LOOP
		24	EXIT, HLT
		25	CLA IAC
		26	DCA FIB1
		27	DCA FIB0
		28	JMP MAIN
		29	PUTN, 0
		30	JMS ITOA
		31	CMA IAC
		32	IAC
		33	CMA IAC
		34	DCA 10
		35	PUTNL, CLA
		36	TAD I 10
		37	SPA
		38	JMP I PUTN
		39	TAD (60)
		40	JMS PUTC
		41	JMP PUTNL
		42	PUTC, 0
		43	TLS
		44	TSF
		45	JMP .-1
		46	JMP I PUTC
		47	ITOA, 0
		48	DCA ITOAV
		49	DCA ITOAD
		50	DCA ITOAD+1
		51	DCA ITOAD+2
		52	DCA ITOAD+3
		53	TAD (-14)
		54	DCA ITOAN
		55	ITOAL, CLL / LOOP OVER BINARY INPUT BITS
		56	TAD ITOAD+3
		57	JMS ITOA2X
		58	DCA ITOAD+3
		59	TAD ITOAD+2
		60	JMS ITOA2X
		61	DCA ITOAD+2
		62	TAD ITOAD+1
		63	JMS ITOA2X
		64	DCA ITOAD+1
		65	TAD ITOAD
		66	JMS ITOA2X
		67	DCA ITOAD
		68	CLL
		69	TAD ITOAV / SHIFT MSB OUT OF INPUT VALUE
		70	RAL
		71	DCA ITOAV
		72	RAL
		73	TAD ITOAD+3 / ADD SHIFTED-OUT MSB TO DECIMAL LSD
		74	DCA ITOAD+3
		75	ISZ ITOAN
		76	JMP ITOAL / NEXT LOOP ITERATION
		77	TAD (ITOAD)
		78	DCA ITOAR
		79	ITOAJ, TAD I ITOAR
		80	SZA
		81	JMP ITOAX
		82	ISZ ITOAR
		83	TAD I ITOAR
		84	SZA
		85	JMP ITOAX
		86	ISZ ITOAR
		87	TAD I ITOAR
		88	SZA
		89	JMP ITOAX
		90	ISZ ITOAR
		91	ITOAX, CLA
		92	TAD ITOAR
		93	JMP I ITOA
		94	ITOA2X, 0
		95	RAL / PUTS 0 IN LINK
		96	DCA ITOAT
		97	TAD (-12)
		98	TAD ITOAT / PUTS 1 IN LINK IF WRAPPED
		99	SMA
		100	DCA ITOAT
		101	CLA
		102	TAD ITOAT
		103	JMP I ITOA2X
		104	FIB0, 0
		105	FIB1, 1
		106	FIB2, 0
		107	FIBN, -27
		108	ITOAD, 0 / OUTPUT DIGITS (MSD FIRST)
		109	0
		110	0
		111	0
		112	4000 / OUTPUT SENTINEL
		113	ITOAN, 0 / INPUT BITS LOOP COUNTER
		114	ITOAR, 0 / POINTER TO FIRST NONZERO DIGIT
		115	ITOAT, 0 / SCRATCHPAD FOR ITOA2X
		116	ITOAV, 0 / VALUE BEING CONVERTED (TEMPORARY)
		117	$