2 files changed, 147 insertions, 0 deletions
diff --git a/mem/fib.pal b/mem/fib.pal
new file mode 100644
index 0000000..6f56109
--- /dev/null
+++ b/mem/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/mem/hello.pal b/mem/hello.pal
new file mode 100644
index 0000000..437ccf9
--- /dev/null
+++ b/mem/hello.pal
@@ -0,0 +1,30 @@
+        *200
+START,  CLA CLL
+        TAD HELLO
+        DCA 10
+LOOP,   TAD I 10
+        SNA
+        JMP EXIT
+        TLS
+        TSF
+        JMP .-1
+        CLA
+        JMP LOOP
+EXIT,   HLT
+        JMP START
+HELLO,  .
+        "H
+        "e
+        "l
+        "l
+        "o
+        ",
+        " 
+        "w
+        "o
+        "r
+        "l
+        "d
+        "!
+        0
+$

diff --git a/mem/fib.pal b/mem/fib.pal new file mode 100644 index 0000000..6f56109 --- /dev/null +++ b/mem/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	$


diff --git a/mem/hello.pal b/mem/hello.pal new file mode 100644 index 0000000..437ccf9 --- /dev/null +++ b/mem/hello.pal
@@ -0,0 +1,30 @@
	1	*200
	2	START, CLA CLL
	3	TAD HELLO
	4	DCA 10
	5	LOOP, TAD I 10
	6	SNA
	7	JMP EXIT
	8	TLS
	9	TSF
	10	JMP .-1
	11	CLA
	12	JMP LOOP
	13	EXIT, HLT
	14	JMP START
	15	HELLO, .
	16	"H
	17	"e
	18	"l
	19	"l
	20	"o
	21	",
	22	"
	23	"w
	24	"o
	25	"r
	26	"l
	27	"d
	28	"!
	29	0
	30	$