URL
https://opencores.org/ocsvn/w11/w11/trunk
Subversion Repositories w11
[/] [w11/] [tags/] [w11a_V0.61/] [tools/] [asm-11/] [tests/] [test_0020_expr.mac] - Rev 26
Compare with Previous | Blame | View Log
; $Id: test_0020_expr.mac 501 2013-03-30 13:53:39Z mueller $
;
; test assignment and expressions
;
.asect
a1 = 100 ;;!! 000100
a2 == 110 ;;!! 000110
a3 =: 120 ;;!! 000120
a4 ==: 130 ;;!! 000130
; unary operators
u1 = +200 ;;!! 000200
u2 = -300 ;;!! 177500
u3 = +-300 ;;!! 177500
u4 = -+-300 ;;!! 000300
u5 = ^c300 ;;!! 177477
u6 = ^c-300 ;;!! 000277
; binary operators
b1 = 1100 + 100 ;;!! 001200
b2 = 1311 - 100 ;;!! 001211
b3 = 400 * 3 ;;!! 001400
b4 = 2000 / 4 ;;!! 000400
b5 = 1770 & 0077 ;;!! 000070
b6 = 1000 ! 100 ;;!! 001100
; radix prefixes and suffixes
r1 = 11 ;;!! 000011
r2 = 11. ;;!! 000013
r3 = ^b11 ;;!! 000003
r4 = ^o11 ;;!! 000011
r5 = ^d11 ;;!! 000013
r6 = 99. ;;!! 000143
r7 = ^d99 ;;!! 000143
;; r8 = ^x1234
; other prefixes
s1 = 'X ;;!! 000130
s2 = "XY ;;!! 054530
s3 = ^rabc ;;!! 003223
; long left-to-right expressions
e1 = 100 + 20 * 2 + 1 ;;!! 000241
e2 = 200 - 100 / 2 ;;!! 000040
e3 = 777 * 2 & 77 ;;!! 000076
; nested expressions
n1 = 400+200 ;;!! 000600
n2 = <400+200> ;;!! 000600
n3 = 400+ 2*100 ;;!! 040200
n4 = 400+<2*100> ;;!! 000600
n5 = 400+ 200-100 /2 ;;!! 000240
n6 = 400+<<200-100>/2> ;;!! 000440
.end