File: stack.4th

package info (click to toggle)
pfe 0.9.14-5
  • links: PTS
  • area: main
  • in suites: potato
  • size: 1,436 kB
  • ctags: 2,439
  • sloc: ansic: 14,095; sh: 438; asm: 113; makefile: 70; perl: 13
file content (23 lines) | stat: -rw-r--r-- 576 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
\
\ test/stack.4th ---	test stack and return stack operators
\ (duz 05Aug93)
\

CR .( stack operators) CR .(    )

N1 N2		DROP	=N1		D SPACE
N1 N2		DUP	=N2 =N2 =N1	D SPACE
N1 N2		?DUP	=N2 =N2 =N1	D SPACE
N1 0		?DUP	0= Y =N1	D SPACE
N1 N2		SWAP	=N1 =N2		D SPACE
N1 N2		OVER	=N1 =N2 =N1	D SPACE
N1 N2 N3	ROT	=N1 =N3 =N2	D SPACE
N1 N2		NIP	=N2		D SPACE
N1 N2		TUCK	=N2 =N1 =N2	D SPACE
N1 N2 N3	-ROT	=N2 =N1 =N3	D CR .(    )

D1 D2		2DROP	=D1		D SPACE
D1 D2		2DUP	=D2 =D2 =D1	D SPACE
D1 D2		2SWAP	=D1 =D2		D SPACE
D1 D2		2OVER	=D1 =D2 =D1	D SPACE
D1 D2 D3	2ROT	=D1 =D3 =D2	D SPACE