[vvhitespace] / stdlib_tests / 5001_abs.pvvs

@ +1 should remain +1
SSSTN           | PUSH +1
NSTTSSSTN       | JSR > 10001 (abs)
NSTTTTTSTN      | JSR > 111101 (debug:printsignednumber)

@ -1 should become +1
SSTTN           | PUSH -1
NSTTSSSTN       | JSR > 10001 (abs)
NSTTTTTSTN      | JSR > 111101 (debug:printsignednumber)

@ 0 should remain 0
SSSSN           | PUSH 0
NSTTSSSTN       | JSR > 10001 (abs)
NSTTTTTSTN      | JSR > 111101 (debug:printsignednumber)

@ Test the most negative number.
@ It is impossible to return the true absolute value but should return zero.
SSSTN           | PUSH +1
SSSTTTTTTN      | PUSH +63
NSTTSTTSTN      | JSR > 101101 (lshift)
NSTTSSSTN       | JSR > 10001 (abs)
NSTTTTTSTN      | JSR > 111101 (debug:printsignednumber)
NNN             | DIE

#include <math.pvvs>
#include <logic.pvvs>
#include <debug.pvvs>
Commit	Line	Data
7359501c AT	1	@ +1 should remain +1
	2	SSSTN \| PUSH +1
	3	NSTTSSSTN \| JSR > 10001 (abs)
4fba07dc	4	NSTTTTTSTN \| JSR > 111101 (debug:printsignednumber)
7359501c AT	5
	6	@ -1 should become +1
	7	SSTTN \| PUSH -1
	8	NSTTSSSTN \| JSR > 10001 (abs)
4fba07dc	9	NSTTTTTSTN \| JSR > 111101 (debug:printsignednumber)
7359501c AT	10
	11	@ 0 should remain 0
	12	SSSSN \| PUSH 0
	13	NSTTSSSTN \| JSR > 10001 (abs)
4fba07dc	14	NSTTTTTSTN \| JSR > 111101 (debug:printsignednumber)
7359501c AT	15
	16	@ Test the most negative number.
	17	@ It is impossible to return the true absolute value but should return zero.
	18	SSSTN \| PUSH +1
	19	SSSTTTTTTN \| PUSH +63
	20	NSTTSTTSTN \| JSR > 101101 (lshift)
	21	NSTTSSSTN \| JSR > 10001 (abs)
4fba07dc	22	NSTTTTTSTN \| JSR > 111101 (debug:printsignednumber)
7359501c AT	23	NNN \| DIE
7359501c AT	24
4fba07dc	25	#include <math.pvvs>
7359501c	26	#include <logic.pvvs>
4fba07dc	27	#include <debug.pvvs>