[vvhitespace] / stdlib / heap.pvvs

#ifndef VVS_STDLIB_HEAP
#define VVS_STDLIB_HEAP

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Name:
@   memset (11000)
@ Description:
@   Writes 'pattern' in memory locations 'startaddr' to 'startaddr+count'.
@ Call Stack:
@   pattern
@   startaddr
@   count  <-- TOS
@ Return Stack:
@   <empty>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTTSSSN              | Mark: 11000 (memset)
SSSTTN                  | PUSH 3
NSTTSSSSSTN             | JSR > 1000001 (spewreg)

@ Store 'pattern' into one memory location on each pass through this loop.
NSSVSSSTTSSSSSSSSSSSN   | Mark: 00011000 00000000
SSSTN                   | PUSH 1 (ptr)
TTT                     | LOAD
SSSTSN                  | PUSH 2 (ptr)
TTT                     | LOAD
TSSS                    | ADD
SSSTTN                  | PUSH 3 (ptr)
TTT                     | LOAD
TTS                     | STORE

@ Decrement and check for loop end condition 'count == 0'.
SSSTN                   | PUSH 1 (ptr)
TTT                     | LOAD
SNS                     | DUP
NTSSSSTTSSSSSSSSSSTN    | BRZ > 00011000 00000001
SSSTN                   | PUSH 1
TSST                    | SUBTRACT
SSSTN                   | PUSH 1 (ptr)
SNT                     | SWAP
TTS                     | STORE
NSNSSSTTSSSSSSSSSSSN    | JMP > 00011000 00000000

@ Clean up and return
NSSVSSSTTSSSSSSSSSSTN   | Mark: 00011000 00000001
SNN                     | DROP
NTN                     | RTS

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Name:
@   memcpy (11001)
@ Description:
@   Copies 'count+1' words from 'source' to 'destination'.
@ Call Stack:
@   source
@   destination
@   count  <-- TOS
@ Return Stack:
@   <empty>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTTSSTN              | Mark: 11001 (memcpy)
SSSTTN                  | PUSH 3
NSTTSSSSSTN             | JSR > 1000001 (spewreg)

@ Copy one word on each pass through this loop.
NSSVSSSTTSSTSSSSSSSSN   | Mark: 00011001 00000000
SSSTSN                  | PUSH 2 (ptr)
TTT                     | LOAD
SSSTN                   | PUSH 1 (ptr)
TTT                     | LOAD
TSSS                    | ADD
SSSTTN                  | PUSH 3 (ptr)
TTT                     | LOAD
SSSTN                   | PUSH 1 (ptr)
TTT                     | LOAD
TSSS                    | ADD
TTT                     | LOAD
TTS                     | STORE

@ Decrement and check for loop end conditions.
SSSTN                   | PUSH 1 (ptr)
TTT                     | LOAD
SNS                     | DUP
NTSSSSTTSSTSSSSSSSTN    | BRZ > 00011001 00000001
SSSTN                   | PUSH 1
TSST                    | SUBTRACT
SSSTN                   | PUSH 1 (ptr)
SNT                     | SWAP
TTS                     | STORE
NSNSSSTTSSTSSSSSSSSN    | JMP > 00011001 00000000

@ Clean up and return
NSSVSSSTTSSTSSSSSSSTN   | Mark: 00011001 00000001
SNN                     | DROP
NTN                     | RTS

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Name:
@   memrand (11010)
@ Description:
@   Writes random words into memory locations 'startaddr' to 'startaddr+count'.
@ Call Stack:
@   count
@   startaddr  <-- TOS
@ Return Stack:
@   <empty>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#include <math.pvvs>
NSSVTTSTSN              | Mark: 11010 (memrand)
SSSTN                   | PUSH 1
NSTTSSSSSTN             | JSR > 1000001 (spewreg)

@ Store random word into one memory location on each pass through this loop.
NSSVSSSTTSTSSSSSSSSSN   | Mark: 00011010 00000000
SNS                     | DUP
SSSTN                   | PUSH 1 (ptr)
TTT                     | LOAD
TSSS                    | ADD
NSTTSSSSN               | JSR > 10000 (random)
TTS                     | STORE

@ Decrement and check loop end conditions
SNS                     | DUP
NTSSSSTTSTSSSSSSSSTN    | BRZ > 00011010 00000001
SSSTN                   | PUSH 1
TSST                    | SUBTRACT
NSNSSSTTSTSSSSSSSSSN    | JMP > 00011010 00000000

@ Clean up and return
NSSVSSSTTSTSSSSSSSSTN   | Mark: 00011010 00000001
SNN                     | DROP
NTN                     | RTS

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Name:
@   memcmp (11011)
@ Description:
@   Compares two blocks of memory:
@     blk1ptr -> blk1ptr+count
@       -- versus --
@     blk2ptr -> blk2ptr+count
@   The return value is zero if the blocks are identical, otherwise non-zero.
@ Call Stack:
@   count
@   blk1ptr
@   blk2ptr  <-- TOS
@ Return Stack:
@   retvalue <-- TOS
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTTSTTN              | Mark: 11011 (memcmp)
SSSTSN                  | PUSH 2
NSTTSSSSSTN             | JSR > 1000001 (spewreg)

@ Compare one word on each pass through this loop.
NSSVSSSTTSTTSSSSSSSSN   | Mark: 00011011 00000000
SNS                     | DUP
SNS                     | DUP
SSSTN                   | PUSH 1 (ptr)
TTT                     | LOAD
TSSS                    | ADD
TTT                     | LOAD
SNT                     | SWAP
SSTSN                   | PUSH 2 (ptr)
TTT                     | LOAD
TSSS                    | ADD
TTT                     | LOAD
TSST                    | SUBTRACT
NTSSSSTTSTTSSSSSSTSN    | BRZ > 00011011 00000010 (jump if words match)

@ Return 'match? = false'
SNN                     | DROP
SSSTN                   | PUSH 1
NTN                     | RTS

@ Decrement and loop again if loop is not complete.
NSSVSSSTTSTTSSSSSSTSN   | Mark: 00011011 00000010
SNS                     | DUP
NTSSSSTTSTTSSSSSSSTN    | BRZ > 00011011 00000001 (jump if loop is complete)
SSSTN                   | PUSH 1
TSST                    | SUBTRACT
NSNSSSTTSTTSSSSSSSSN    | JMP > 00011011 00000000

@ Return 'match? = true'
NSSVSSSTTSTTSSSSSSSTN   | Mark: 00011011 00000001
SNN                     | DROP
SSSSN                   | PUSH 0
NTN                     | RTS

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Name:
@   memsrch (11100)
@ Description:
@   Searches the heap from 'address' to 'address+count'.
@   If 'pattern' is found, the return value is a pointer to the matching word.
@   If not found, the return value is a null pointer.
@ Call Stack:
@   pattern
@   count
@   address <-- TOS
@ Return Stack:
@   pointer <-- TOS
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTTTSSN              | Mark: 11100 (memsrch)
SSSTTN                  | PUSH 3
NSTTSSSSSTN             | JSR > 1000001 (spewreg)

@ Compare one word on each pass through this loop.
NSSVSSSTTTSSSSSSSSSSN   | Mark: 00011100 00000000
SNS                     | DUP
SSSTN                   | PUSH 1 (ptr)
TTT                     | LOAD
TSSS                    | ADD
TTT                     | LOAD
SSSTTN                  | PUSH 3 (ptr)
TTT                     | LOAD
TSST                    | SUBTRACT
NTSSSSTTTSSSSSSSSSTN    | BRZ > 00011100 00000001
SNS                     | DUP
SSSTSN                  | PUSH 2 (ptr)
TTT                     | LOAD
TSST                    | SUBTRACT
NTSSSSTTTSSSSSSSSTSN    | BRZ > 00011100 00000010
SSSTN                   | PUSH 1
TSSS                    | ADD
NSNSSSTTTSSSSSSSSSSN    | JMP > 00011100 00000000

@ Found a match. Clean up and return.
NSSVSSSTTTSSSSSSSSSTN   | Mark: 00011100 00000001
SSSTN                   | PUSH 1 (ptr)
TTT                     | LOAD
TSSS                    | ADD
NTN                     | RTS

@ No match found. Clean up and return.
NSSVSSSTTTSSSSSSSSTSN   | Mark: 00011100 00000010
SNN                     | DROP
SSSSN                   | PUSH 0
NTN                     | RTS

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Name:
@   slurpreg (1000000)
@ Description:
@   Reads 'count' values from heap to stack in complementary order to 'spewreg'.
@ Call Stack:
@   count
@ Return Stack:
@   heap[count]
@   ...
@   heap[2]
@   heap[1]      <-- TOS
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTSSSSSSN            | Mark: 1000000 (slurpreg)

@ Load one word from heap on each pass.
NSSVSTSSSSSSSSSSSSSSN   | Mark: 01000000 00000000
SNS                     | DUP
TTT                     | LOAD
SNT                     | SWAP

@ Check for loop completion.
@ As a side effect, prepare the next address.
SSSTN                   | PUSH 1
TSST                    | SUBTRACT
SNS                     | DUP
NTSSTSSSSSSSSSSSSSTN    | BRZ > 01000000 00000001
NSNSTSSSSSSSSSSSSSSN    | JMP > 01000000 00000000
NSSVSTSSSSSSSSSSSSSTN   | Mark: 01000000 00000001
SNN                     | DROP
NTN                     | RTS

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Name:
@   spewreg (1000001)
@ Description:
@   Writes 'count' values from stack to heap in this order:
@     TOS   -> heap[1]
@     TOS+1 -> heap[2]
@     ...
@     TOS+n -> heap[count]
@   This function uses heap[15] for temporary storage, thus limiting the total
@   registers to 14 since heap[0] is reserved. Since this function populates
@   the registers, encoding the value here seems a natural location to document
@   the limit. TODO: Should this be turned into a CPP define?
@ Call Stack:
@   data-words
@   ...
@   data-words
@   count  <-- TOS
@ Return Stack:
@   <empty>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTSSSSSTN            | Mark: 1000001 (spewreg)

@ Create a counter in heap[15] that doubles as a destination pointer generator.
SSSTTTTN                | PUSH 15 (ptr)
SSSTN                   | PUSH 1
TTS                     | STORE

@ Store one word to heap on each pass.
NSSVSTSSSSSTSSSSSSSSN   | Mark: 01000001 00000000
SNT                     | SWAP
SSSTTTTN                | PUSH 15 (ptr)
TTT                     | LOAD
SNT                     | SWAP
TTS                     | STORE

@ Check for loop completion.
SNS                     | DUP
SSSTTTTN                | PUSH 15 (ptr)
TTT                     | LOAD
TSST                    | SUBTRACT
NTSSTSSSSSTSSSSSSSTN    | BRZ > 01000001 00000001

@ Increment heap[15] if continuing.
SSSTTTTN                | PUSH 15 (ptr)
SNS                     | DUP
TTT                     | LOAD
SSSTN                   | PUSH 1
TSSS                    | ADD
TTS                     | STORE
NSNSTSSSSSTSSSSSSSSN    | JMP > 01000001 00000000

@ Clean up and return.
NSSVSTSSSSSTSSSSSSSTN   | Mark: 01000001 00000001
SNN                     | DROP
NTN                     | RTS

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Name:
@   slurp (11110)
@ Description:
@   Reads values from heap to stack in complementary order to 'spew'.
@ Call Stack:
@   address
@   count  <-- TOS
@ Return Stack:
@   heap[address+count]
@   ...
@   heap[address+1]
@   heap[address]  <-- TOS
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTTTTSN              | Mark: 11110 (slurp)
SSSTSN                  | PUSH 2
NSTTSSSSSTN             | JSR > 1000001 (spewreg)

@ Load one word from heap on each pass.
NSSVSSSTTTTSSSSSSSSSN   | Mark: 00011110 00000000
SSSTN                   | PUSH 1 (ptr)
TTT                     | LOAD
SSSTSN                  | PUSH 2 (ptr)
TTT                     | LOAD
TSSS                    | ADD
TTT                     | LOAD

@ Check for loop completion.
@ As a side effect, prepare the next address.
SSSTN                   | PUSH 1 (ptr)
SNS                     | DUP
TTT                     | LOAD
SNS                     | DUP
NTSSSSTTTTSSSSSSSSTN    | BRZ > 00011110 00000001
SSSTN                   | PUSH 1
TSST                    | SUBTRACT
TTS                     | STORE
NSNSSSTTTTSSSSSSSSSN    | JMP > 00011110 00000000
NSSVSSSTTTTSSSSSSSSTN   | Mark: 00011110 00000001
SNN                     | DROP
SNN                     | DROP
NTN                     | RTS

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Name:
@   spew (11111)
@ Description:
@   Writes values from stack to heap in this order:
@     TOS   -> heap[address]
@     TOS+1 -> heap[address+1]
@     ...
@     TOS+n -> heap[address+count]
@ Call Stack:
@   data-words
@   ...
@   data-words
@   address
@   count  <-- TOS
@ Return Stack:
@   <empty>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTTTTTN              | Mark: 11111 (spew)
SSSTSN                  | PUSH 2
NSTTSSSSSTN             | JSR > 1000001 (spewreg)

@ Create a counter in heap[3] that doubles as a dest. pointer offset generator.
SSSTTN                  | PUSH 3 (ptr)
SSSSN                   | PUSH 0
TTS                     | STORE

@ Store one word to heap on each pass.
NSSVSSSTTTTTSSSSSSSSN   | Mark: 00011111 00000000
SSSTSN                  | PUSH 2 (ptr)
TTT                     | LOAD
SSSTTN                  | PUSH 3 (ptr)
TTT                     | LOAD
TSSS                    | ADD
SNT                     | SWAP
TTS                     | STORE

@ Check for loop completion.
SSSTN                   | PUSH 1 (ptr)
TTT                     | LOAD
SSSTTN                  | PUSH 3 (ptr)
TTT                     | LOAD
TSST                    | SUBTRACT
NTSSSSTTTTTSSSSSSSTN    | BRZ > 00011111 00000001

@ Increment heap[3] if continuing.
SSSTTN                  | PUSH 3 (ptr)
SNS                     | DUP
TTT                     | LOAD
SSSTN                   | PUSH 1
TSSS                    | ADD
TTS                     | STORE
NSNSSSTTTTTSSSSSSSSN    | JMP > 00011111 00000000

@ Clean up and return.
NSSVSSSTTTTTSSSSSSSTN   | Mark: 00011111 00000001
NTN                     | RTS

#endif
Commit	Line	Data
3695b659 AT	1	#ifndef VVS_STDLIB_HEAP
	2	#define VVS_STDLIB_HEAP
	3
	4	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
bb21580a AT	5	@ Name:
bb21580a AT	6	@ memset (11000)
3695b659	7	@ Description:
bb21580a	8	@ Writes 'pattern' in memory locations 'startaddr' to 'startaddr+count'.
3695b659 AT	9	@ Call Stack:
	10	@ pattern
	11	@ startaddr
3d75b928	12	@ count <-- TOS
3695b659 AT	13	@ Return Stack:
	14	@ <empty>
	15	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	16	NSSVTTSSSN \| Mark: 11000 (memset)
bb21580a	17	SSSTTN \| PUSH 3
ae1f85a1	18	NSTTSSSSSTN \| JSR > 1000001 (spewreg)
3695b659	19
bb21580a	20	@ Store 'pattern' into one memory location on each pass through this loop.
3695b659	21	NSSVSSSTTSSSSSSSSSSSN \| Mark: 00011000 00000000
3695b659 AT	22	SSSTN \| PUSH 1 (ptr)
3695b659 AT	23	TTT \| LOAD
3695b659 AT	24	SSSTSN \| PUSH 2 (ptr)
3695b659 AT	25	TTT \| LOAD
bb21580a AT	26	TSSS \| ADD
	27	SSSTTN \| PUSH 3 (ptr)
	28	TTT \| LOAD
3695b659 AT	29	TTS \| STORE
3695b659 AT	30
bb21580a AT	31	@ Decrement and check for loop end condition 'count == 0'.
bb21580a AT	32	SSSTN \| PUSH 1 (ptr)
3695b659 AT	33	TTT \| LOAD
	34	SNS \| DUP
	35	NTSSSSTTSSSSSSSSSSTN \| BRZ > 00011000 00000001
	36	SSSTN \| PUSH 1
	37	TSST \| SUBTRACT
bb21580a	38	SSSTN \| PUSH 1 (ptr)
3695b659 AT	39	SNT \| SWAP
	40	TTS \| STORE
	41	NSNSSSTTSSSSSSSSSSSN \| JMP > 00011000 00000000
	42
	43	@ Clean up and return
	44	NSSVSSSTTSSSSSSSSSSTN \| Mark: 00011000 00000001
	45	SNN \| DROP
	46	NTN \| RTS
	47
3d75b928	48	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
bb21580a AT	49	@ Name:
bb21580a AT	50	@ memcpy (11001)
3d75b928	51	@ Description:
bb21580a	52	@ Copies 'count+1' words from 'source' to 'destination'.
3d75b928 AT	53	@ Call Stack:
	54	@ source
	55	@ destination
	56	@ count <-- TOS
	57	@ Return Stack:
	58	@ <empty>
	59	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	60	NSSVTTSSTN \| Mark: 11001 (memcpy)
bb21580a	61	SSSTTN \| PUSH 3
ae1f85a1	62	NSTTSSSSSTN \| JSR > 1000001 (spewreg)
3d75b928 AT	63
	64	@ Copy one word on each pass through this loop.
	65	NSSVSSSTTSSTSSSSSSSSN \| Mark: 00011001 00000000
bb21580a	66	SSSTSN \| PUSH 2 (ptr)
3d75b928	67	TTT \| LOAD
bb21580a	68	SSSTN \| PUSH 1 (ptr)
3d75b928 AT	69	TTT \| LOAD
3d75b928 AT	70	TSSS \| ADD
bb21580a	71	SSSTTN \| PUSH 3 (ptr)
3d75b928	72	TTT \| LOAD
bb21580a	73	SSSTN \| PUSH 1 (ptr)
3d75b928 AT	74	TTT \| LOAD
	75	TSSS \| ADD
	76	TTT \| LOAD
	77	TTS \| STORE
	78
	79	@ Decrement and check for loop end conditions.
bb21580a	80	SSSTN \| PUSH 1 (ptr)
3d75b928 AT	81	TTT \| LOAD
	82	SNS \| DUP
	83	NTSSSSTTSSTSSSSSSSTN \| BRZ > 00011001 00000001
	84	SSSTN \| PUSH 1
	85	TSST \| SUBTRACT
bb21580a	86	SSSTN \| PUSH 1 (ptr)
3d75b928 AT	87	SNT \| SWAP
	88	TTS \| STORE
	89	NSNSSSTTSSTSSSSSSSSN \| JMP > 00011001 00000000
	90
	91	@ Clean up and return
	92	NSSVSSSTTSSTSSSSSSSTN \| Mark: 00011001 00000001
	93	SNN \| DROP
	94	NTN \| RTS
	95
d63de3fa	96	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
bb21580a AT	97	@ Name:
bb21580a AT	98	@ memrand (11010)
d63de3fa	99	@ Description:
bb21580a	100	@ Writes random words into memory locations 'startaddr' to 'startaddr+count'.
d63de3fa AT	101	@ Call Stack:
	102	@ count
	103	@ startaddr <-- TOS
	104	@ Return Stack:
	105	@ <empty>
	106	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
bb21580a	107	#include <math.pvvs>
d63de3fa	108	NSSVTTSTSN \| Mark: 11010 (memrand)
bb21580a	109	SSSTN \| PUSH 1
ae1f85a1	110	NSTTSSSSSTN \| JSR > 1000001 (spewreg)
d63de3fa AT	111
	112	@ Store random word into one memory location on each pass through this loop.
	113	NSSVSSSTTSTSSSSSSSSSN \| Mark: 00011010 00000000
	114	SNS \| DUP
bb21580a	115	SSSTN \| PUSH 1 (ptr)
d63de3fa AT	116	TTT \| LOAD
	117	TSSS \| ADD
	118	NSTTSSSSN \| JSR > 10000 (random)
	119	TTS \| STORE
	120
	121	@ Decrement and check loop end conditions
	122	SNS \| DUP
	123	NTSSSSTTSTSSSSSSSSTN \| BRZ > 00011010 00000001
	124	SSSTN \| PUSH 1
	125	TSST \| SUBTRACT
	126	NSNSSSTTSTSSSSSSSSSN \| JMP > 00011010 00000000
	127
d63de3fa AT	128	@ Clean up and return
	129	NSSVSSSTTSTSSSSSSSSTN \| Mark: 00011010 00000001
	130	SNN \| DROP
	131	NTN \| RTS
	132
87d27426	133	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
bb21580a AT	134	@ Name:
bb21580a AT	135	@ memcmp (11011)
87d27426	136	@ Description:
bb21580a	137	@ Compares two blocks of memory:
87d27426 AT	138	@ blk1ptr -> blk1ptr+count
	139	@ -- versus --
	140	@ blk2ptr -> blk2ptr+count
	141	@ The return value is zero if the blocks are identical, otherwise non-zero.
	142	@ Call Stack:
	143	@ count
	144	@ blk1ptr
	145	@ blk2ptr <-- TOS
	146	@ Return Stack:
	147	@ retvalue <-- TOS
	148	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	149	NSSVTTSTTN \| Mark: 11011 (memcmp)
bb21580a	150	SSSTSN \| PUSH 2
ae1f85a1	151	NSTTSSSSSTN \| JSR > 1000001 (spewreg)
87d27426 AT	152
	153	@ Compare one word on each pass through this loop.
	154	NSSVSSSTTSTTSSSSSSSSN \| Mark: 00011011 00000000
	155	SNS \| DUP
	156	SNS \| DUP
bb21580a	157	SSSTN \| PUSH 1 (ptr)
87d27426 AT	158	TTT \| LOAD
	159	TSSS \| ADD
	160	TTT \| LOAD
	161	SNT \| SWAP
bb21580a	162	SSTSN \| PUSH 2 (ptr)
87d27426 AT	163	TTT \| LOAD
	164	TSSS \| ADD
	165	TTT \| LOAD
	166	TSST \| SUBTRACT
	167	NTSSSSTTSTTSSSSSSTSN \| BRZ > 00011011 00000010 (jump if words match)
	168
	169	@ Return 'match? = false'
	170	SNN \| DROP
	171	SSSTN \| PUSH 1
	172	NTN \| RTS
	173
d00258fa	174	@ Decrement and loop again if loop is not complete.
87d27426 AT	175	NSSVSSSTTSTTSSSSSSTSN \| Mark: 00011011 00000010
	176	SNS \| DUP
	177	NTSSSSTTSTTSSSSSSSTN \| BRZ > 00011011 00000001 (jump if loop is complete)
	178	SSSTN \| PUSH 1
	179	TSST \| SUBTRACT
	180	NSNSSSTTSTTSSSSSSSSN \| JMP > 00011011 00000000
	181
	182	@ Return 'match? = true'
	183	NSSVSSSTTSTTSSSSSSSTN \| Mark: 00011011 00000001
	184	SNN \| DROP
	185	SSSSN \| PUSH 0
	186	NTN \| RTS
	187
fd04fb41	188	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
bb21580a AT	189	@ Name:
bb21580a AT	190	@ memsrch (11100)
fd04fb41	191	@ Description:
bb21580a AT	192	@ Searches the heap from 'address' to 'address+count'.
bb21580a AT	193	@ If 'pattern' is found, the return value is a pointer to the matching word.
fd04fb41 AT	194	@ If not found, the return value is a null pointer.
	195	@ Call Stack:
	196	@ pattern
	197	@ count
	198	@ address <-- TOS
	199	@ Return Stack:
	200	@ pointer <-- TOS
	201	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	202	NSSVTTTSSN \| Mark: 11100 (memsrch)
bb21580a	203	SSSTTN \| PUSH 3
ae1f85a1	204	NSTTSSSSSTN \| JSR > 1000001 (spewreg)
fd04fb41 AT	205
	206	@ Compare one word on each pass through this loop.
	207	NSSVSSSTTTSSSSSSSSSSN \| Mark: 00011100 00000000
	208	SNS \| DUP
bb21580a	209	SSSTN \| PUSH 1 (ptr)
fd04fb41 AT	210	TTT \| LOAD
	211	TSSS \| ADD
	212	TTT \| LOAD
bb21580a	213	SSSTTN \| PUSH 3 (ptr)
fd04fb41 AT	214	TTT \| LOAD
	215	TSST \| SUBTRACT
	216	NTSSSSTTTSSSSSSSSSTN \| BRZ > 00011100 00000001
	217	SNS \| DUP
bb21580a	218	SSSTSN \| PUSH 2 (ptr)
fd04fb41 AT	219	TTT \| LOAD
	220	TSST \| SUBTRACT
	221	NTSSSSTTTSSSSSSSSTSN \| BRZ > 00011100 00000010
	222	SSSTN \| PUSH 1
	223	TSSS \| ADD
	224	NSNSSSTTTSSSSSSSSSSN \| JMP > 00011100 00000000
	225
	226	@ Found a match. Clean up and return.
	227	NSSVSSSTTTSSSSSSSSSTN \| Mark: 00011100 00000001
bb21580a	228	SSSTN \| PUSH 1 (ptr)
fd04fb41 AT	229	TTT \| LOAD
	230	TSSS \| ADD
	231	NTN \| RTS
	232
	233	@ No match found. Clean up and return.
	234	NSSVSSSTTTSSSSSSSSTSN \| Mark: 00011100 00000010
	235	SNN \| DROP
	236	SSSSN \| PUSH 0
	237	NTN \| RTS
	238
bb21580a AT	239	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
bb21580a AT	240	@ Name:
ae1f85a1	241	@ slurpreg (1000000)
bb21580a	242	@ Description:
ae1f85a1	243	@ Reads 'count' values from heap to stack in complementary order to 'spewreg'.
bb21580a AT	244	@ Call Stack:
	245	@ count
	246	@ Return Stack:
	247	@ heap[count]
	248	@ ...
	249	@ heap[2]
	250	@ heap[1] <-- TOS
	251	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
ae1f85a1	252	NSSVTSSSSSSN \| Mark: 1000000 (slurpreg)
bb21580a AT	253
bb21580a AT	254	@ Load one word from heap on each pass.
ae1f85a1	255	NSSVSTSSSSSSSSSSSSSSN \| Mark: 01000000 00000000
bb21580a AT	256	SNS \| DUP
	257	TTT \| LOAD
	258	SNT \| SWAP
	259
	260	@ Check for loop completion.
	261	@ As a side effect, prepare the next address.
	262	SSSTN \| PUSH 1
	263	TSST \| SUBTRACT
	264	SNS \| DUP
ae1f85a1 AT	265	NTSSTSSSSSSSSSSSSSTN \| BRZ > 01000000 00000001
	266	NSNSTSSSSSSSSSSSSSSN \| JMP > 01000000 00000000
	267	NSSVSTSSSSSSSSSSSSSTN \| Mark: 01000000 00000001
bb21580a AT	268	SNN \| DROP
	269	NTN \| RTS
	270
	271	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	272	@ Name:
ae1f85a1	273	@ spewreg (1000001)
bb21580a AT	274	@ Description:
	275	@ Writes 'count' values from stack to heap in this order:
	276	@ TOS -> heap[1]
	277	@ TOS+1 -> heap[2]
	278	@ ...
	279	@ TOS+n -> heap[count]
0425a4c6 AT	280	@ This function uses heap[15] for temporary storage, thus limiting the total
	281	@ registers to 14 since heap[0] is reserved. Since this function populates
	282	@ the registers, encoding the value here seems a natural location to document
	283	@ the limit. TODO: Should this be turned into a CPP define?
bb21580a AT	284	@ Call Stack:
	285	@ data-words
	286	@ ...
	287	@ data-words
	288	@ count <-- TOS
	289	@ Return Stack:
	290	@ <empty>
	291	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
ae1f85a1	292	NSSVTSSSSSTN \| Mark: 1000001 (spewreg)
bb21580a	293
0425a4c6 AT	294	@ Create a counter in heap[15] that doubles as a destination pointer generator.
0425a4c6 AT	295	SSSTTTTN \| PUSH 15 (ptr)
bb21580a AT	296	SSSTN \| PUSH 1
	297	TTS \| STORE
	298
	299	@ Store one word to heap on each pass.
ae1f85a1	300	NSSVSTSSSSSTSSSSSSSSN \| Mark: 01000001 00000000
bb21580a	301	SNT \| SWAP
0425a4c6	302	SSSTTTTN \| PUSH 15 (ptr)
bb21580a AT	303	TTT \| LOAD
	304	SNT \| SWAP
	305	TTS \| STORE
	306
	307	@ Check for loop completion.
	308	SNS \| DUP
0425a4c6	309	SSSTTTTN \| PUSH 15 (ptr)
bb21580a AT	310	TTT \| LOAD
bb21580a AT	311	TSST \| SUBTRACT
ae1f85a1	312	NTSSTSSSSSTSSSSSSSTN \| BRZ > 01000001 00000001
bb21580a	313
0425a4c6 AT	314	@ Increment heap[15] if continuing.
0425a4c6 AT	315	SSSTTTTN \| PUSH 15 (ptr)
bb21580a AT	316	SNS \| DUP
	317	TTT \| LOAD
	318	SSSTN \| PUSH 1
	319	TSSS \| ADD
	320	TTS \| STORE
ae1f85a1 AT	321	NSNSTSSSSSTSSSSSSSSN \| JMP > 01000001 00000000
	322
	323	@ Clean up and return.
	324	NSSVSTSSSSSTSSSSSSSTN \| Mark: 01000001 00000001
	325	SNN \| DROP
	326	NTN \| RTS
	327
	328	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	329	@ Name:
	330	@ slurp (11110)
	331	@ Description:
	332	@ Reads values from heap to stack in complementary order to 'spew'.
	333	@ Call Stack:
	334	@ address
	335	@ count <-- TOS
	336	@ Return Stack:
	337	@ heap[address+count]
	338	@ ...
	339	@ heap[address+1]
	340	@ heap[address] <-- TOS
	341	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	342	NSSVTTTTSN \| Mark: 11110 (slurp)
	343	SSSTSN \| PUSH 2
	344	NSTTSSSSSTN \| JSR > 1000001 (spewreg)
	345
	346	@ Load one word from heap on each pass.
	347	NSSVSSSTTTTSSSSSSSSSN \| Mark: 00011110 00000000
	348	SSSTN \| PUSH 1 (ptr)
	349	TTT \| LOAD
	350	SSSTSN \| PUSH 2 (ptr)
	351	TTT \| LOAD
	352	TSSS \| ADD
	353	TTT \| LOAD
	354
	355	@ Check for loop completion.
	356	@ As a side effect, prepare the next address.
	357	SSSTN \| PUSH 1 (ptr)
	358	SNS \| DUP
	359	TTT \| LOAD
	360	SNS \| DUP
	361	NTSSSSTTTTSSSSSSSSTN \| BRZ > 00011110 00000001
	362	SSSTN \| PUSH 1
	363	TSST \| SUBTRACT
	364	TTS \| STORE
	365	NSNSSSTTTTSSSSSSSSSN \| JMP > 00011110 00000000
	366	NSSVSSSTTTTSSSSSSSSTN \| Mark: 00011110 00000001
	367	SNN \| DROP
	368	SNN \| DROP
	369	NTN \| RTS
	370
	371	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	372	@ Name:
	373	@ spew (11111)
	374	@ Description:
	375	@ Writes values from stack to heap in this order:
	376	@ TOS -> heap[address]
	377	@ TOS+1 -> heap[address+1]
	378	@ ...
	379	@ TOS+n -> heap[address+count]
	380	@ Call Stack:
	381	@ data-words
	382	@ ...
	383	@ data-words
	384	@ address
385	@ count <-- TOS
386	@ Return Stack:
387	@ <empty>
388	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
389	NSSVTTTTTN \| Mark: 11111 (spew)
390	SSSTSN \| PUSH 2
391	NSTTSSSSSTN \| JSR > 1000001 (spewreg)
392
393	@ Create a counter in heap[3] that doubles as a dest. pointer offset generator.
394	SSSTTN \| PUSH 3 (ptr)
395	SSSSN \| PUSH 0
396	TTS \| STORE
397
398	@ Store one word to heap on each pass.
399	NSSVSSSTTTTTSSSSSSSSN \| Mark: 00011111 00000000
400	SSSTSN \| PUSH 2 (ptr)
401	TTT \| LOAD
402	SSSTTN \| PUSH 3 (ptr)
403	TTT \| LOAD
404	TSSS \| ADD
405	SNT \| SWAP
406	TTS \| STORE
407
408	@ Check for loop completion.
409	SSSTN \| PUSH 1 (ptr)
410	TTT \| LOAD
411	SSSTTN \| PUSH 3 (ptr)
412	TTT \| LOAD
413	TSST \| SUBTRACT
414	NTSSSSTTTTTSSSSSSSTN \| BRZ > 00011111 00000001
415
416	@ Increment heap[3] if continuing.
417	SSSTTN \| PUSH 3 (ptr)
418	SNS \| DUP
419	TTT \| LOAD
420	SSSTN \| PUSH 1
421	TSSS \| ADD
422	TTS \| STORE
bb21580a AT	423	NSNSSSTTTTTSSSSSSSSN \| JMP > 00011111 00000000
	424
	425	@ Clean up and return.
	426	NSSVSSSTTTTTSSSSSSSTN \| Mark: 00011111 00000001
bb21580a	427	NTN \| RTS
d63de3fa	428
3695b659	429	#endif