[vvhitespace] / stdlib / debug.pvvs

@ (c) 2020 Aaron Taylor <ataylor at subgeniuskitty dot com>
@ See LICENSE.txt file for copyright and license details.

#ifndef VVS_STDLIB_DEBUG
#define VVS_STDLIB_DEBUG

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Some of the subroutines in this file duplicate other stdlib subroutines.
@ This is to avoid outside dependencies and allow debugging of stdlib code.
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Name:
@   dumpheap (111000)
@ Description:
@   Dumps the heap from 'startaddr' to 'endaddr'.
@   This subroutine stomps on heap[1] after printing the first heap location.
@     If you dump starting from heap[0], then heap[1] will print inaccurately.
@     Starting the dump from any other location will work without error.
@     TODO: Should I use heap[0] and DIE rather than RTS?
@           At the moment, the ability to continue is too useful to me.
@           If it's useful to me, it's probably useful to other people.
@           For now, leave dumpheap as-is.
@ Call Stack: 
@   endaddr
@   startaddr  <-- TOS
@ Return Stack:
@   <empty>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTTTSSSN              | Mark: 111000 (debug:dumpheap)

@ Prepare a numeric address and value on the stack
SNS                      | DUP
SNS                      | DUP
TTT                      | LOAD
SNT                      | SWAP

@ Print output line for this memory location
NSTTTTSTTN               | JSR > 111011 (debug:printmagnitude)
SSSTSSTN                 | PUSH ASCII '\t'
SSSTTTSTSN               | PUSH ASCII ':'
TNSS                     | PUTC
TNSS                     | PUTC
SNS                      | DUP
NSTTTTSTSN               | JSR > 111010 (debug:printsign)
NSTTTTSTTN               | JSR > 111011 (debug:printmagnitude)
SSSTSTSN                 | PUSH ASCII '\n'
TNSS                     | PUTC

@ Figure out if the loop is complete.
SSSTN                    | PUSH 1 (ptr)
SNT                      | SWAP
TTS                      | STORE
SNS                      | DUP
SSSTN                    | PUSH 1 (ptr)
TTT                      | LOAD
TSST                     | SUBTRACT
NTSSSTTTSSSSSSSSSSSN     | BRZ > 00111000 00000000
SSSTN                    | PUSH 1 (ptr)
TTT                      | LOAD
SSSTN                    | PUSH 1
TSSS                     | ADD
NSNTTTSSSN               | JMP > 111000 (dump heap)

@ Clean up and return
NSSVSSTTTSSSSSSSSSSSN    | Mark: 00111000 00000000
SNN                      | DROP
NTN                      | RTS

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Name:
@   dumpstack (111001)
@ Description:
@   Dumps 'count' entries from the stack.
@ Call Stack:
@   count <-- TOS
@ Return Stack:
@   <empty>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTTTSSTN              | Mark: 111001 (debug:dumpstack)

@ Orient the user
SSSSSSSSSN               | PUSH ASCII '\0'
SSSSSSTSTSN              | PUSH ASCII '\n'
SSSSTTTSTSN              | PUSH ASCII ':'
SSSTSTSSTTN              | PUSH ASCII 'S'
SSSTSSTTTTN              | PUSH ASCII 'O'
SSSTSTSTSSN              | PUSH ASCII 'T'
NSTTTTTSSN               | JSR > 111100 (debug:printstring)

@ Print output line for the current TOS.
NSSVSSTTTSSTSSSSSSSTN    | Mark: 00111001 00000001
SNS                      | DUP
NSTTTTSTTN               | JSR > 111011 (debug:printmagnitude)
SSSTSSTN                 | PUSH ASCII '\t'
SSSTTTSTSN               | PUSH ASCII ':'
TNSS                     | PUTC
TNSS                     | PUTC
SNT                      | SWAP
SNS                      | DUP
NSTTTTSTSN               | JSR > 111010 (debug:printsign)
NSTTTTSTTN               | JSR > 111011 (debug:printmagnitude)
SSSTSTSN                 | PUSH ASCII '\n'
TNSS                     | PUTC

@ Figure out if the loop is complete.
SSSTN                    | PUSH 1
TSST                     | SUBTRACT
SNS                      | DUP
NTSSSTTTSSTSSSSSSSSN     | BRZ > 00111001 00000000
NSNSSTTTSSTSSSSSSSTN     | JMP > 00111001 00000001

@ Clean up and return
NSSVSSTTTSSTSSSSSSSSN    | Mark: 00111001 00000000
SNN                      | DROP
NTN                      | RTS

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Name:
@   printsign (111010)
@ Description:
@   Prints the sign of 'number'.
@ Call Stack:
@   number <-- TOS
@ Return Stack:
@   <empty>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTTTSTSN             | Mark: 111010 (debug:printsign)
NTTSSTTTSTSSSSSSSSTN    | BMI > 00111010 00000001
SSSTSTSTTN              | PUSH ASCII '+'
NSNSSTTTSTSSSSSSSTSN    | JMP > 00111010 00000010
NSSVSSTTTSTSSSSSSSSTN   | Mark: 00111010 00000001
SSSTSTTSTN              | PUSH ASCII '-'
NSSVSSTTTSTSSSSSSSTSN   | Mark: 00111010 00000010
TNSS                    | PUTC
NTN                     | RTS

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Name:
@   printmagnitude (111011)
@ Description:
@   Prints the magnitude of 'number'.
@ Call Stack:
@   number <-- TOS
@ Return Stack:
@   <empty>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTTTSTTN             | Mark: 111011 (debug:printmagnitude)

@ Extract the magnitude of the number.
SNS                     | DUP
NTTSSTTTSTTSSSSSSSSN    | BMI > 00111011 00000000
NSNSSTTTSTTSSSSSSSTN    | JMP > 00111011 00000001
NSSVSSTTTSTTSSSSSSSSN   | Mark: 00111011 00000000
SSTTN                   | PUSH -1
TSSN                    | MULTIPLY
NSSVSSTTTSTTSSSSSSSTN   | Mark: 00111011 00000001

@ Prepare for building a string on the stack.
SSSSN                   | PUSH ASCII '\0'
SNT                     | SWAP

@ Pick off one digit on each pass through this loop.
NSSVSSTTTSTTSSSSSSTSN   | Mark: 00111011 00000010
SNS                     | DUP

@ Mod-off a digit, convert to ASCII, store on stack as part of the string.
SSSTSTSN                | PUSH +10
TSTT                    | MODULO
SSSTTSSSSN              | PUSH ASCII '0'
TSSS                    | ADD
SNT                     | SWAP

@ Divide down to next digit and keep looping if number != 0 yet.
SSSTSTSN                | PUSH +10
TSTS                    | DIVIDE
SNS                     | DUP
NTSSSTTTSTTSSSSSSTTN    | BRZ > 00111011 00000011
NSNSSTTTSTTSSSSSSTSN    | JMP > 00111011 00000010

@ Print the string we have built on the stack.
NSSVSSTTTSTTSSSSSSTTN   | Mark: 00111011 00000011
SNN                     | DROP
NSTTTTTSSN              | JSR > 111100 (debug:printstring)
NTN                     | RTS

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Name:
@   printstring (111100)
@ Description:
@   Prints a null-terminated string from the stack.
@ Call Stack:
@   null-terminator (ASCII '\0')
@   char n
@   ...
@   char 2
@   char 1 <-- TOS
@ Return Stack:
@   <empty>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTTTTSSN             | Mark: 111100 (debug:printstring)
SNS                     | DUP
NTSSSTTTTSSSSSSSSSTN    | BRZ > 00111100 00000001
TNSS                    | Print character
NSNTTTTSSN              | JMP > 111100
NSSVSSTTTTSSSSSSSSSTN   | Mark: 00111100 00000001
SNN                     | DROP
NTN                     | RTS

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Name:
@   printsignednumber (111101)
@ Description:
@   Prints 'number' from the stack in sign-magnitude format.
@   Leading zeros are suppressed.
@ Call Stack:
@   number  <-- TOS
@ Return Stack:
@   <empty>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTTTTSTN             | Mark: 111101 (debug:printsignednumber)
SNS                     | DUP
NSTTTTSTSN              | JSR > 111010 (debug:printsign)
NSTTTTSTTN              | JSR > 111011 (debug:printmagnitude)
NTN                     | RTS

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ Name:
@   stdlib_version (111110)
@ Description:
@   Returns the version of the stdlib.
@   The version number should be a monotonically increasing integer.
@ Call Stack:
@   <empty>   <-- TOS
@ Return Stack:
@   version_number  <-- TOS
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NSSVTTTTTSN             | Mark: 111110 (debug:printsignednumber)
SSSTN                   | PUSH 1 (version)
NTN                     | RTS

#endif
Commit	Line	Data
48f88489 AT	1	@ (c) 2020 Aaron Taylor <ataylor at subgeniuskitty dot com>
	2	@ See LICENSE.txt file for copyright and license details.
	3
1a56830d AT	4	#ifndef VVS_STDLIB_DEBUG
	5	#define VVS_STDLIB_DEBUG
	6
9f7f68e5 AT	7	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	8	@ Some of the subroutines in this file duplicate other stdlib subroutines.
	9	@ This is to avoid outside dependencies and allow debugging of stdlib code.
	10	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	11
1a56830d	12	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
bb21580a AT	13	@ Name:
bb21580a AT	14	@ dumpheap (111000)
1a56830d	15	@ Description:
bb21580a	16	@ Dumps the heap from 'startaddr' to 'endaddr'.
6cb31a3e AT	17	@ This subroutine stomps on heap[1] after printing the first heap location.
	18	@ If you dump starting from heap[0], then heap[1] will print inaccurately.
	19	@ Starting the dump from any other location will work without error.
	20	@ TODO: Should I use heap[0] and DIE rather than RTS?
	21	@ At the moment, the ability to continue is too useful to me.
	22	@ If it's useful to me, it's probably useful to other people.
	23	@ For now, leave dumpheap as-is.
9f7f68e5	24	@ Call Stack:
1a56830d AT	25	@ endaddr
	26	@ startaddr <-- TOS
	27	@ Return Stack:
	28	@ <empty>
	29	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
4fba07dc	30	NSSVTTTSSSN \| Mark: 111000 (debug:dumpheap)
1a56830d AT	31
	32	@ Prepare a numeric address and value on the stack
	33	SNS \| DUP
	34	SNS \| DUP
	35	TTT \| LOAD
	36	SNT \| SWAP
	37
	38	@ Print output line for this memory location
9f7f68e5	39	NSTTTTSTTN \| JSR > 111011 (debug:printmagnitude)
1a56830d	40	SSSTSSTN \| PUSH ASCII '\t'
c6e2791f	41	SSSTTTSTSN \| PUSH ASCII ':'
1a56830d AT	42	TNSS \| PUTC
1a56830d AT	43	TNSS \| PUTC
9f7f68e5 AT	44	SNS \| DUP
	45	NSTTTTSTSN \| JSR > 111010 (debug:printsign)
	46	NSTTTTSTTN \| JSR > 111011 (debug:printmagnitude)
1a56830d AT	47	SSSTSTSN \| PUSH ASCII '\n'
	48	TNSS \| PUTC
	49
	50	@ Figure out if the loop is complete.
bb21580a	51	SSSTN \| PUSH 1 (ptr)
1a56830d AT	52	SNT \| SWAP
	53	TTS \| STORE
	54	SNS \| DUP
bb21580a	55	SSSTN \| PUSH 1 (ptr)
1a56830d AT	56	TTT \| LOAD
	57	TSST \| SUBTRACT
	58	NTSSSTTTSSSSSSSSSSSN \| BRZ > 00111000 00000000
bb21580a	59	SSSTN \| PUSH 1 (ptr)
1a56830d AT	60	TTT \| LOAD
	61	SSSTN \| PUSH 1
	62	TSSS \| ADD
9f7f68e5	63	NSNTTTSSSN \| JMP > 111000 (dump heap)
1a56830d AT	64
	65	@ Clean up and return
	66	NSSVSSTTTSSSSSSSSSSSN \| Mark: 00111000 00000000
	67	SNN \| DROP
	68	NTN \| RTS
	69
ae1f85a1 AT	70	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	71	@ Name:
	72	@ dumpstack (111001)
	73	@ Description:
	74	@ Dumps 'count' entries from the stack.
	75	@ Call Stack:
	76	@ count <-- TOS
	77	@ Return Stack:
	78	@ <empty>
	79	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
4fba07dc	80	NSSVTTTSSTN \| Mark: 111001 (debug:dumpstack)
ae1f85a1	81
9f7f68e5 AT	82	@ Orient the user
	83	SSSSSSSSSN \| PUSH ASCII '\0'
	84	SSSSSSTSTSN \| PUSH ASCII '\n'
	85	SSSSTTTSTSN \| PUSH ASCII ':'
	86	SSSTSTSSTTN \| PUSH ASCII 'S'
	87	SSSTSSTTTTN \| PUSH ASCII 'O'
	88	SSSTSTSTSSN \| PUSH ASCII 'T'
	89	NSTTTTTSSN \| JSR > 111100 (debug:printstring)
	90
ae1f85a1	91	@ Print output line for the current TOS.
9f7f68e5	92	NSSVSSTTTSSTSSSSSSSTN \| Mark: 00111001 00000001
ae1f85a1	93	SNS \| DUP
9f7f68e5	94	NSTTTTSTTN \| JSR > 111011 (debug:printmagnitude)
ae1f85a1	95	SSSTSSTN \| PUSH ASCII '\t'
c6e2791f	96	SSSTTTSTSN \| PUSH ASCII ':'
ae1f85a1 AT	97	TNSS \| PUTC
	98	TNSS \| PUTC
	99	SNT \| SWAP
9f7f68e5 AT	100	SNS \| DUP
	101	NSTTTTSTSN \| JSR > 111010 (debug:printsign)
	102	NSTTTTSTTN \| JSR > 111011 (debug:printmagnitude)
ae1f85a1 AT	103	SSSTSTSN \| PUSH ASCII '\n'
	104	TNSS \| PUTC
	105
	106	@ Figure out if the loop is complete.
ae1f85a1 AT	107	SSSTN \| PUSH 1
ae1f85a1 AT	108	TSST \| SUBTRACT
63a60fe0 AT	109	SNS \| DUP
63a60fe0 AT	110	NTSSSTTTSSTSSSSSSSSN \| BRZ > 00111001 00000000
9f7f68e5	111	NSNSSTTTSSTSSSSSSSTN \| JMP > 00111001 00000001
ae1f85a1 AT	112
	113	@ Clean up and return
	114	NSSVSSTTTSSTSSSSSSSSN \| Mark: 00111001 00000000
	115	SNN \| DROP
	116	NTN \| RTS
	117
9f7f68e5 AT	118	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	119	@ Name:
	120	@ printsign (111010)
	121	@ Description:
	122	@ Prints the sign of 'number'.
	123	@ Call Stack:
	124	@ number <-- TOS
	125	@ Return Stack:
	126	@ <empty>
	127	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	128	NSSVTTTSTSN \| Mark: 111010 (debug:printsign)
	129	NTTSSTTTSTSSSSSSSSTN \| BMI > 00111010 00000001
	130	SSSTSTSTTN \| PUSH ASCII '+'
	131	NSNSSTTTSTSSSSSSSTSN \| JMP > 00111010 00000010
	132	NSSVSSTTTSTSSSSSSSSTN \| Mark: 00111010 00000001
	133	SSSTSTTSTN \| PUSH ASCII '-'
	134	NSSVSSTTTSTSSSSSSSTSN \| Mark: 00111010 00000010
	135	TNSS \| PUTC
	136	NTN \| RTS
	137
	138	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	139	@ Name:
	140	@ printmagnitude (111011)
	141	@ Description:
	142	@ Prints the magnitude of 'number'.
	143	@ Call Stack:
	144	@ number <-- TOS
	145	@ Return Stack:
	146	@ <empty>
	147	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	148	NSSVTTTSTTN \| Mark: 111011 (debug:printmagnitude)
	149
	150	@ Extract the magnitude of the number.
	151	SNS \| DUP
	152	NTTSSTTTSTTSSSSSSSSN \| BMI > 00111011 00000000
	153	NSNSSTTTSTTSSSSSSSTN \| JMP > 00111011 00000001
	154	NSSVSSTTTSTTSSSSSSSSN \| Mark: 00111011 00000000
	155	SSTTN \| PUSH -1
	156	TSSN \| MULTIPLY
	157	NSSVSSTTTSTTSSSSSSSTN \| Mark: 00111011 00000001
	158
	159	@ Prepare for building a string on the stack.
	160	SSSSN \| PUSH ASCII '\0'
	161	SNT \| SWAP
	162
	163	@ Pick off one digit on each pass through this loop.
	164	NSSVSSTTTSTTSSSSSSTSN \| Mark: 00111011 00000010
	165	SNS \| DUP
	166
	167	@ Mod-off a digit, convert to ASCII, store on stack as part of the string.
	168	SSSTSTSN \| PUSH +10
	169	TSTT \| MODULO
	170	SSSTTSSSSN \| PUSH ASCII '0'
	171	TSSS \| ADD
	172	SNT \| SWAP
	173
	174	@ Divide down to next digit and keep looping if number != 0 yet.
	175	SSSTSTSN \| PUSH +10
	176	TSTS \| DIVIDE
	177	SNS \| DUP
	178	NTSSSTTTSTTSSSSSSTTN \| BRZ > 00111011 00000011
	179	NSNSSTTTSTTSSSSSSTSN \| JMP > 00111011 00000010
	180
	181	@ Print the string we have built on the stack.
182	NSSVSSTTTSTTSSSSSSTTN \| Mark: 00111011 00000011
183	SNN \| DROP
184	NSTTTTTSSN \| JSR > 111100 (debug:printstring)
185	NTN \| RTS
186
187	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
188	@ Name:
189	@ printstring (111100)
190	@ Description:
191	@ Prints a null-terminated string from the stack.
192	@ Call Stack:
193	@ null-terminator (ASCII '\0')
194	@ char n
195	@ ...
196	@ char 2
197	@ char 1 <-- TOS
198	@ Return Stack:
199	@ <empty>
200	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
201	NSSVTTTTSSN \| Mark: 111100 (debug:printstring)
202	SNS \| DUP
203	NTSSSTTTTSSSSSSSSSTN \| BRZ > 00111100 00000001
204	TNSS \| Print character
205	NSNTTTTSSN \| JMP > 111100
206	NSSVSSTTTTSSSSSSSSSTN \| Mark: 00111100 00000001
207	SNN \| DROP
208	NTN \| RTS
209
4fba07dc AT	210	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	211	@ Name:
	212	@ printsignednumber (111101)
	213	@ Description:
	214	@ Prints 'number' from the stack in sign-magnitude format.
	215	@ Leading zeros are suppressed.
	216	@ Call Stack:
	217	@ number <-- TOS
	218	@ Return Stack:
	219	@ <empty>
	220	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	221	NSSVTTTTSTN \| Mark: 111101 (debug:printsignednumber)
	222	SNS \| DUP
	223	NSTTTTSTSN \| JSR > 111010 (debug:printsign)
	224	NSTTTTSTTN \| JSR > 111011 (debug:printmagnitude)
	225	NTN \| RTS
	226
aa1914c3 AT	227	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	228	@ Name:
	229	@ stdlib_version (111110)
	230	@ Description:
	231	@ Returns the version of the stdlib.
	232	@ The version number should be a monotonically increasing integer.
	233	@ Call Stack:
	234	@ <empty> <-- TOS
	235	@ Return Stack:
	236	@ version_number <-- TOS
	237	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	238	NSSVTTTTTSN \| Mark: 111110 (debug:printsignednumber)
	239	SSSTN \| PUSH 1 (version)
	240	NTN \| RTS
	241
1a56830d	242	#endif