[vvhitespace] / stdlib / heap.pvvs

#ifndef VVS_STDLIB_HEAP
#define VVS_STDLIB_HEAP

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Description:
@   This function writes pattern into the memory locations:
@     startaddr -> startaddr+count
@ Call Stack:
@   pattern
@   startaddr
@   count  <-- TOS
@ Return Stack:
@   <empty>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTTSSSN              | Mark: 11000 (memset)

@ Prepare the stack for computation.
@ Addr | Contents
@    0 | count
@    1 | startaddr
@    2 | pattern

SSSSN                   | PUSH 0 (ptr)
SNT                     | SWAP
TTS                     | STORE
SSSTN                   | PUSH 1 (ptr)
SNT                     | SWAP
TTS                     | STORE
SSSTSN                  | PUSH 2 (ptr)
SNT                     | SWAP
TTS                     | STORE

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

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

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

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Description:
@   This function copies count+1 words from source to destination.
@ Call Stack:
@   source
@   destination
@   count  <-- TOS
@ Return Stack:
@   <empty>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTTSSTN              | Mark: 11001 (memcpy)

@ Prepare the stack for computation.
@ Addr | Contents
@    0 | count
@    1 | destination
@    2 | source

SSSSN                   | PUSH 0 (ptr)
SNT                     | SWAP
TTS                     | STORE
SSSTN                   | PUSH 1 (ptr)
SNT                     | SWAP
TTS                     | STORE
SSSTSN                  | PUSH 2 (ptr)
SNT                     | SWAP
TTS                     | STORE

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

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

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

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Description:
@   This function writes random words into the memory locations:
@     startaddr -> startaddr+count
@ Call Stack:
@   count
@   startaddr  <-- TOS
@ Return Stack:
@   <empty>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTTSTSN              | Mark: 11010 (memrand)
SSSSN                   | PUSH 0 (ptr)
SNT                     | SWAP
TTS                     | STORE

@ Store random word into one memory location on each pass through this loop.
NSSVSSSTTSTSSSSSSSSSN   | Mark: 00011010 00000000
SNS                     | DUP
SSSSN                   | PUSH 0 (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

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

#include <math.pvvs>

#endif
Commit	Line	Data
3695b659 AT	1	#ifndef VVS_STDLIB_HEAP
	2	#define VVS_STDLIB_HEAP
	3
	4	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	5	@ Description:
	6	@ This function writes pattern into the memory locations:
3d75b928	7	@ startaddr -> startaddr+count
3695b659 AT	8	@ Call Stack:
	9	@ pattern
	10	@ startaddr
3d75b928	11	@ count <-- TOS
3695b659 AT	12	@ Return Stack:
	13	@ <empty>
	14	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	15	NSSVTTSSSN \| Mark: 11000 (memset)
	16
	17	@ Prepare the stack for computation.
	18	@ Addr \| Contents
3d75b928	19	@ 0 \| count
3695b659 AT	20	@ 1 \| startaddr
	21	@ 2 \| pattern
	22
	23	SSSSN \| PUSH 0 (ptr)
	24	SNT \| SWAP
	25	TTS \| STORE
	26	SSSTN \| PUSH 1 (ptr)
	27	SNT \| SWAP
	28	TTS \| STORE
	29	SSSTSN \| PUSH 2 (ptr)
	30	SNT \| SWAP
	31	TTS \| STORE
	32
	33	@ Store pattern into one memory location on each pass through this loop.
	34	NSSVSSSTTSSSSSSSSSSSN \| Mark: 00011000 00000000
	35	SSSSN \| PUSH 0 (ptr)
	36	TTT \| LOAD
	37	SSSTN \| PUSH 1 (ptr)
	38	TTT \| LOAD
	39	TSSS \| ADD
	40	SSSTSN \| PUSH 2 (ptr)
	41	TTT \| LOAD
	42	TTS \| STORE
	43
3d75b928	44	@ Decrement and check for loop end condition count == 0.
3695b659 AT	45	SSSSN \| PUSH 0 (ptr)
	46	TTT \| LOAD
	47	SNS \| DUP
	48	NTSSSSTTSSSSSSSSSSTN \| BRZ > 00011000 00000001
	49	SSSTN \| PUSH 1
	50	TSST \| SUBTRACT
	51	SSSSN \| PUSH 0 (ptr)
	52	SNT \| SWAP
	53	TTS \| STORE
	54	NSNSSSTTSSSSSSSSSSSN \| JMP > 00011000 00000000
	55
	56	@ Clean up and return
	57	NSSVSSSTTSSSSSSSSSSTN \| Mark: 00011000 00000001
	58	SNN \| DROP
	59	NTN \| RTS
	60
3d75b928 AT	61	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	62	@ Description:
	63	@ This function copies count+1 words from source to destination.
	64	@ Call Stack:
	65	@ source
	66	@ destination
	67	@ count <-- TOS
	68	@ Return Stack:
	69	@ <empty>
	70	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	71	NSSVTTSSTN \| Mark: 11001 (memcpy)
	72
	73	@ Prepare the stack for computation.
	74	@ Addr \| Contents
	75	@ 0 \| count
	76	@ 1 \| destination
	77	@ 2 \| source
	78
	79	SSSSN \| PUSH 0 (ptr)
	80	SNT \| SWAP
	81	TTS \| STORE
	82	SSSTN \| PUSH 1 (ptr)
	83	SNT \| SWAP
	84	TTS \| STORE
	85	SSSTSN \| PUSH 2 (ptr)
	86	SNT \| SWAP
	87	TTS \| STORE
	88
	89	@ Copy one word on each pass through this loop.
	90	NSSVSSSTTSSTSSSSSSSSN \| Mark: 00011001 00000000
	91	SSSTN \| PUSH 1 (ptr)
	92	TTT \| LOAD
	93	SSSSN \| PUSH 0 (ptr)
	94	TTT \| LOAD
	95	TSSS \| ADD
	96	SSSTSN \| PUSH 2 (ptr)
	97	TTT \| LOAD
	98	SSSSN \| PUSH 0 (ptr)
	99	TTT \| LOAD
	100	TSSS \| ADD
	101	TTT \| LOAD
	102	TTS \| STORE
	103
	104	@ Decrement and check for loop end conditions.
	105	SSSSN \| PUSH 0 (ptr)
	106	TTT \| LOAD
	107	SNS \| DUP
	108	NTSSSSTTSSTSSSSSSSTN \| BRZ > 00011001 00000001
	109	SSSTN \| PUSH 1
	110	TSST \| SUBTRACT
	111	SSSSN \| PUSH 0 (ptr)
	112	SNT \| SWAP
	113	TTS \| STORE
	114	NSNSSSTTSSTSSSSSSSSN \| JMP > 00011001 00000000
	115
	116	@ Clean up and return
	117	NSSVSSSTTSSTSSSSSSSTN \| Mark: 00011001 00000001
	118	SNN \| DROP
	119	NTN \| RTS
	120
d63de3fa AT	121	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	122	@ Description:
	123	@ This function writes random words into the memory locations:
	124	@ startaddr -> startaddr+count
	125	@ Call Stack:
	126	@ count
	127	@ startaddr <-- TOS
	128	@ Return Stack:
	129	@ <empty>
	130	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	131	NSSVTTSTSN \| Mark: 11010 (memrand)
	132	SSSSN \| PUSH 0 (ptr)
	133	SNT \| SWAP
	134	TTS \| STORE
	135
	136	@ Store random word into one memory location on each pass through this loop.
	137	NSSVSSSTTSTSSSSSSSSSN \| Mark: 00011010 00000000
	138	SNS \| DUP
	139	SSSSN \| PUSH 0 (ptr)
	140	TTT \| LOAD
	141	TSSS \| ADD
	142	NSTTSSSSN \| JSR > 10000 (random)
	143	TTS \| STORE
	144
	145	@ Decrement and check loop end conditions
	146	SNS \| DUP
	147	NTSSSSTTSTSSSSSSSSTN \| BRZ > 00011010 00000001
	148	SSSTN \| PUSH 1
	149	TSST \| SUBTRACT
	150	NSNSSSTTSTSSSSSSSSSN \| JMP > 00011010 00000000
	151
	152	NNN
	153	@ Clean up and return
	154	NSSVSSSTTSTSSSSSSSSTN \| Mark: 00011010 00000001
	155	SNN \| DROP
	156	NTN \| RTS
	157
	158	#include <math.pvvs>
	159
3695b659	160	#endif