git.subgeniuskitty.com - vvhitespace/.git/blame_incremental

... / ...

Commit	Line	Data
	1	#ifndef VVS_STDLIB_STDIO
	2	#define VVS_STDLIB_STDIO
	3
	4	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	5	@ Name:
	6	@ printstackstring (1000100)
	7	@ Description:
	8	@ Prints a null-terminated string from the stack.
	9	@ Call Stack:
	10	@ null-terminator (ASCII '\0')
	11	@ char n
	12	@ ...
	13	@ char 2
	14	@ char 1 <-- TOS
	15	@ Return Stack:
	16	@ <empty>
	17	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	18	NSSVTSSSTSSN \| Mark: 1000100 (print string from stack)
	19	SNS \| DUP
	20	NTSSTSSSTSSSSSSSSSTN \| BRZ > 01000100 00000001
	21	TNSS \| Print character
	22	NSNTSSSTSSN \| JMP > 1000100
	23	NSSVSTSSSTSSSSSSSSSTN \| Mark: 01000100 00000001
	24	SNN \| DROP
	25	NTN \| RTS
	26
	27	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	28	@ Name:
	29	@ printheapstring (1000101)
	30	@ Description:
	31	@ Prints a null-terminated string from the heap.
	32	@ Call Stack:
	33	@ pointer to first character <-- TOS
	34	@ Return Stack:
	35	@ <empty>
	36	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	37	NSSVTSSSTSTN \| Mark: 1000101 (print string from heap)
	38	SNS \| DUP
	39	TTT \| LOAD
	40	SNS \| DUP
	41	NTSSTSSSTSTSSSSSSSTN \| BRZ > 01000101 00000001
	42	TNSS \| Print character
	43	SSSTN \| Push +1
	44	TSSS \| ADD
	45	NSNTSSSTSTN \| JMP > 1000101
	46	NSSVSTSSSTSTSSSSSSSTN \| Mark: 01000101 00000001
	47	SNN \| DROP
	48	SNN \| DROP
	49	NTN \| RTS
	50
	51	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	52	@ Name:
	53	@ printstacknumber (1010)
	54	@ Description:
	55	@ Prints 'number' from the stack in sign-magnitude format.
	56	@ Leading zeros are suppressed.
	57	@ Call Stack:
	58	@ number <-- TOS
	59	@ Return Stack:
	60	@ <empty>
	61	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	62	NSSVTSTSN \| Mark: 1010 (print number from stack)
	63	SNS \| DUP
	64	NSTTSSSSTSN \| JSR > 1000010
	65	NSTTSSSSTTN \| JSR > 1000011
	66	NTN \| RTS
	67
	68	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	69	@ Name:
	70	@ printstacknumbersign (1000010)
	71	@ Description:
	72	@ Prints the sign of 'number' from the stack.
	73	@ Call Stack:
	74	@ number <-- TOS
	75	@ Return Stack:
	76	@ <empty>
	77	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	78	NSSVTSSSSTSN \| Mark: 1000010 (print sign of number from stack)
	79	NTTSTSSSSTSSSSSSSSTN \| BMI > 01000010 00000001
	80	SSSTSTSTTN \| PUSH ASCII '+'
	81	NSNSTSSSSTSSSSSSSTSN \| JMP > 01000010 00000010
	82	NSSVSTSSSSTSSSSSSSSTN \| Mark: 01000010 00000001
	83	SSSTSTTSTN \| PUSH ASCII '-'
	84	NSSVSTSSSSTSSSSSSSTSN \| Mark: 01000010 00000010
	85	TNSS \| PUTC
	86	NTN \| RTS
	87
	88	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	89	@ Name:
	90	@ printstacknumbermagnitude (1000011)
	91	@ Description:
	92	@ Prints the magnitude of 'number' from the stack.
	93	@ Call Stack:
	94	@ number <-- TOS
	95	@ Return Stack:
	96	@ <empty>
	97	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	98	#include <math.pvvs>
	99	NSSVTSSSSTTN \| Mark: 1000011 (print magnitude of number from stack)
	100	NSTTSSSTN \| JSR > 10001 (absolute value)
	101
	102	SSSSN \| PUSH ASCII '\0'
	103	SNT \| SWAP
	104
	105	@ Pick off one digit on each pass through this loop.
	106	NSSVSTSSSSTTSSSSSSSSN \| Mark: 01000011 00000000
	107	SNS \| DUP
	108
	109	@ Mod-off a digit, convert to ASCII, store on stack as part of the string.
	110	SSSTSTSN \| PUSH +10
	111	TSTT \| MODULO
	112	SSSTTSSSSN \| PUSH ASCII '0'
	113	TSSS \| ADD
	114	SNT \| SWAP
	115
	116	@ Divide down to next digit and keep looping if number != 0 yet.
	117	SSSTSTSN \| PUSH +10
	118	TSTS \| DIVIDE
	119	SNS \| DUP
	120	NTSSTSSSSTTSSSSSSSTN \| BRZ > 01000011 00000001
	121	NSNSTSSSSTTSSSSSSSSN \| JMP > 01000011 00000000
	122
	123	@ Print the string we have built on the stack.
	124	NSSVSTSSSSTTSSSSSSSTN \| Mark: 01000011 00000001
	125	SNN \| DROP
	126	NSTTSSSTSSN \| JSR > 1000100 (print string from stack)
	127	NTN \| RTS
	128
	129	#endif