Rename/remove some of the example programs

author: Julian Blake Kongslie 2022-11-05 11:32:21 -0700
committer: Julian Blake Kongslie 2022-11-05 11:32:21 -0700
commit: 36e7c28531ee7bade9506144f48afed4c7ccd874 (patch)
tree: 2713b89afed0c225516057721b3e95763f062adf /programs/fib.pal
parent: Avoid rereading the FLAGS register; use FLAGS_SAVED for GTF. (diff)
download: biggolf-36e7c28531ee7bade9506144f48afed4c7ccd874.tar.xz
1 files changed, 116 insertions, 15 deletions
diff --git a/programs/fib.pal b/programs/fib.pal
index fb68dc1..a20a843 100644
--- a/programs/fib.pal
+++ b/programs/fib.pal
@@ -1,16 +1,117 @@
-/ vim: set sw=8 noexpandtab :
+        *200
+MAIN,   CLA
-*200
+        TAD (-26)
+        DCA FIBN
-LOOP,   TAD NPLUS1
+        DCA FIB0
-        MQL
+        IAC
-        TAD N
+        DCA FIB1
-        DCA NPLUS1
+LOOP,   CLA
-        MQA
+        TAD FIB0
-        DCA N
+        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
-*300
+        CLA IAC
+        DCA FIB1
-N,      0
+        DCA FIB0
-NPLUS1, 1
+        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)
+$
author	Julian Blake Kongslie	2022-11-05 11:32:21 -0700
committer	Julian Blake Kongslie	2022-11-05 11:32:21 -0700
commit	36e7c28531ee7bade9506144f48afed4c7ccd874 (patch)
tree	2713b89afed0c225516057721b3e95763f062adf /programs/fib.pal
parent	Avoid rereading the FLAGS register; use FLAGS_SAVED for GTF. (diff)
download	biggolf-36e7c28531ee7bade9506144f48afed4c7ccd874.tar.xz

diff --git a/programs/fib.pal b/programs/fib.pal index fb68dc1..a20a843 100644 --- a/programs/fib.pal +++ b/programs/fib.pal
@@ -1,16 +1,117 @@
1	/ vim: set sw=8 noexpandtab :	1	*200
2		2	MAIN, CLA
3	*200	3	TAD (-26)
4		4	DCA FIBN
5	LOOP, TAD NPLUS1	5	DCA FIB0
6	MQL	6	IAC
7	TAD N	7	DCA FIB1
8	DCA NPLUS1	8	LOOP, CLA
9	MQA	9	TAD FIB0
10	DCA N	10	JMS PUTN
		11	CLA
		12	TAD (012)
		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
11	JMP LOOP	23	JMP LOOP
12		24	EXIT, HLT
13	*300	25	CLA IAC
14		26	DCA FIB1
15	N, 0	27	DCA FIB0
16	NPLUS1, 1	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	$