mirror of
https://github.com/wfjm/w11.git
synced 2026-02-01 14:42:47 +00:00
70 lines
2.1 KiB
Plaintext
70 lines
2.1 KiB
Plaintext
; $Id: test_0020_expr.mac 1184 2019-07-10 20:39:44Z mueller $
|
|
; SPDX-License-Identifier: GPL-3.0-or-later
|
|
; Copyright 2013- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
|
;
|
|
; 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
|
|
|
|
; combine ^c with radix prefixes and suffixes
|
|
|
|
r10 = ^c^o377 ;;!! 177400
|
|
r11 = ^c^b111 ;;!! 177770
|
|
r12 = ^c254. ;;!! 177401
|
|
|
|
; 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
|