[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
NSTTTTTTN               | JSR > 11111 (spew)

@ 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
NSTTTTTTN               | JSR > 11111 (spew)

@ 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
NSTTTTTTN               | JSR > 11111 (spew)

@ 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
NSTTTTTTN               | JSR > 11111 (spew)

@ 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
NSTTTTTTN               | JSR > 11111 (spew)

@ 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:
@   slurp (11110)
@ Description:
@   Reads 'count' values from heap to stack in complementary order to 'spew'.
@ Call Stack:
@   count
@ Return Stack:
@   heap[count]
@   ...
@   heap[2]
@   heap[1]      <-- TOS
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTTTTSN              | Mark: 11110 (slurp)

@ Load one word from heap on each pass.
NSSVSSSTTTTSSSSSSSSSN   | Mark: 00011110 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
NTSSSSTTTTSSSSSSSSTN    | BRZ > 00011110 00000001
NSNSSSTTTTSSSSSSSSSN    | JMP > 00011110 00000000
NSSVSSSTTTTSSSSSSSSTN   | Mark: 00011110 00000001
SNN                     | DROP
NTN                     | RTS

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Name:
@   spew (11111)
@ Description:
@   Writes 'count' values from stack to heap in this order:
@     TOS   -> heap[1]
@     TOS+1 -> heap[2]
@     ...
@     TOS+n -> heap[count]
@   This is the only stdlib function which uses heap[0] for storage.
@ Call Stack:
@   data-words
@   ...
@   data-words
@   count  <-- TOS
@ Return Stack:
@   <empty>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTTTTTN              | Mark: 11111 (spew)

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

@ Store one word to heap on each pass.
NSSVSSSTTTTTSSSSSSSSN   | Mark: 00011111 00000000
SNT                     | SWAP
SSSSN                   | PUSH 0 (ptr)
TTT                     | LOAD
SNT                     | SWAP
TTS                     | STORE

@ Check for loop completion.
SNS                     | DUP
SSSSN                   | PUSH 0 (ptr)
TTT                     | LOAD
TSST                    | SUBTRACT
NTSSSSTTTTTSSSSSSSTN    | BRZ > 00011111 00000001

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

@ Clean up and return.
NSSVSSSTTTTTSSSSSSSTN   | Mark: 00011111 00000001
SNN                     | DROP
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 AT	17	SSSTTN \| PUSH 3
bb21580a AT	18	NSTTTTTTN \| JSR > 11111 (spew)
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 AT	61	SSSTTN \| PUSH 3
bb21580a AT	62	NSTTTTTTN \| JSR > 11111 (spew)
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 AT	109	SSSTN \| PUSH 1
bb21580a AT	110	NSTTTTTTN \| JSR > 11111 (spew)
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 AT	150	SSSTSN \| PUSH 2
bb21580a AT	151	NSTTTTTTN \| JSR > 11111 (spew)
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 AT	203	SSSTTN \| PUSH 3
bb21580a AT	204	NSTTTTTTN \| JSR > 11111 (spew)
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	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	240	@ Name:
	241	@ slurp (11110)
	242	@ Description:
	243	@ Reads 'count' values from heap to stack in complementary order to 'spew'.
	244	@ Call Stack:
	245	@ count
	246	@ Return Stack:
	247	@ heap[count]
	248	@ ...
	249	@ heap[2]
	250	@ heap[1] <-- TOS
	251	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	252	NSSVTTTTSN \| Mark: 11110 (slurp)
	253
	254	@ Load one word from heap on each pass.
	255	NSSVSSSTTTTSSSSSSSSSN \| Mark: 00011110 00000000
	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
	265	NTSSSSTTTTSSSSSSSSTN \| BRZ > 00011110 00000001
	266	NSNSSSTTTTSSSSSSSSSN \| JMP > 00011110 00000000
	267	NSSVSSSTTTTSSSSSSSSTN \| Mark: 00011110 00000001
	268	SNN \| DROP
	269	NTN \| RTS
	270
	271	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	272	@ Name:
	273	@ spew (11111)
	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]
	280	@ This is the only stdlib function which uses heap[0] for storage.
	281	@ Call Stack:
	282	@ data-words
	283	@ ...
	284	@ data-words
	285	@ count <-- TOS
	286	@ Return Stack:
	287	@ <empty>
	288	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	289	NSSVTTTTTN \| Mark: 11111 (spew)
	290
	291	@ Create a counter in heap[0] that doubles as a destination pointer generator.
	292	SSSSN \| PUSH 0 (ptr)
	293	SSSTN \| PUSH 1
	294	TTS \| STORE
	295
	296	@ Store one word to heap on each pass.
	297	NSSVSSSTTTTTSSSSSSSSN \| Mark: 00011111 00000000
	298	SNT \| SWAP
	299	SSSSN \| PUSH 0 (ptr)
	300	TTT \| LOAD
	301	SNT \| SWAP
	302	TTS \| STORE
303
304	@ Check for loop completion.
305	SNS \| DUP
306	SSSSN \| PUSH 0 (ptr)
307	TTT \| LOAD
308	TSST \| SUBTRACT
309	NTSSSSTTTTTSSSSSSSTN \| BRZ > 00011111 00000001
310
311	@ Increment heap[0] if continuing.
312	SSSSN \| PUSH 0 (ptr)
313	SNS \| DUP
314	TTT \| LOAD
315	SSSTN \| PUSH 1
316	TSSS \| ADD
317	TTS \| STORE
318	NSNSSSTTTTTSSSSSSSSN \| JMP > 00011111 00000000
319
320	@ Clean up and return.
321	NSSVSSSTTTTTSSSSSSSTN \| Mark: 00011111 00000001
322	SNN \| DROP
323	NTN \| RTS
d63de3fa	324
3695b659	325	#endif