URL https://opencores.org/ocsvn/w11/w11/trunk

Subversion Repositories w11

[/] [w11/] [tags/] [w11a_V0.6/] [tools/] [asm-11/] [tests/] [test_0020_expr.mac] - Blame information for rev 24

Line No.	Rev	Author	Line
1	19	wfjm	`; $Id: test_0020_expr.mac 501 2013-03-30 13:53:39Z mueller $`
2			`;`
3			`; test assignment and expressions`
4			`;`
5			`.asect`
6
7			`a1 = 100 ;;!! 000100`
8			`a2 == 110 ;;!! 000110`
9			`a3 =: 120 ;;!! 000120`
10			`a4 ==: 130 ;;!! 000130`
11
12			`; unary operators`
13
14			`u1 = +200 ;;!! 000200`
15			`u2 = -300 ;;!! 177500`
16			`u3 = +-300 ;;!! 177500`
17			`u4 = -+-300 ;;!! 000300`
18			`u5 = ^c300 ;;!! 177477`
19			`u6 = ^c-300 ;;!! 000277`
20
21			`; binary operators`
22
23			`b1 = 1100 + 100 ;;!! 001200`
24			`b2 = 1311 - 100 ;;!! 001211`
25			`b3 = 400 * 3 ;;!! 001400`
26			`b4 = 2000 / 4 ;;!! 000400`
27			`b5 = 1770 & 0077 ;;!! 000070`
28			`b6 = 1000 ! 100 ;;!! 001100`
29
30			`; radix prefixes and suffixes`
31
32			`r1 = 11 ;;!! 000011`
33			`r2 = 11. ;;!! 000013`
34			`r3 = ^b11 ;;!! 000003`
35			`r4 = ^o11 ;;!! 000011`
36			`r5 = ^d11 ;;!! 000013`
37			`r6 = 99. ;;!! 000143`
38			`r7 = ^d99 ;;!! 000143`
39			`;; r8 = ^x1234`
40
41			`; other prefixes`
42
43			`s1 = 'X ;;!! 000130`
44			`s2 = "XY ;;!! 054530`
45			`s3 = ^rabc ;;!! 003223`
46
47			`; long left-to-right expressions`
48
49			`e1 = 100 + 20 * 2 + 1 ;;!! 000241`
50			`e2 = 200 - 100 / 2 ;;!! 000040`
51			`e3 = 777 * 2 & 77 ;;!! 000076`
52
53			`; nested expressions`
54
55			`n1 = 400+200 ;;!! 000600`
56			`n2 = <400+200> ;;!! 000600`
57			`n3 = 400+ 2*100 ;;!! 040200`
58			`n4 = 400+<2*100> ;;!! 000600`
59			`n5 = 400+ 200-100 /2 ;;!! 000240`
60			`n6 = 400+<<200-100>/2> ;;!! 000440`
61
62			`.end`