blob: d08c83488090a4dee620351c3fcdc442c9538c99 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
* .struct
* .union
* .tag
REAL_REC .struct ; stag = REAL_REC
NUM .int ; NUM = 0
DEN .int ; DEN = 1
REAL_LEN .endstruct ; REAL_LEN = 2
add REAL + REAL_REC.DEN, a ; 000000 0001
.bss REAL, REAL_LEN ; 000000 0000 (len = 2)
CPLX_REC .struct
REALI .tag REAL_REC
IMAGI .tag REAL_REC
CPLX_LEN .endstruct
; apply the CPLX_REC structure format to .bss var COMPLEX
.bss COMPLEX, CPLX_LEN ; 000002 0000 (len = 4)
COMPLEX .tag CPLX_REC
add COMPLEX.REALI, a ; 000001 0002
stl a, COMPLEX.REALI ; 000002 8002
add COMPLEX.IMAGI, b ; 000003 0104
; anonymous struct; symbols become global
.struct
X .int
Y .int
Z .int
.endstruct
BIT_REC .struct
STREAM .string 64 ;
BIT7 .field 7 ; bit7 = 64
BIT9 .field 9 ; bit9 = 64
BIT10 .field 10 ; bit10 = 65
X_INT .int ; x_int = 66
BIT_LEN .endstruct ; bit_len = 67
.bss BITS, BIT_LEN ; 000006 0000 (len = 67)
BITS .tag BIT_REC
add BITS.BIT7,a ; 000004 0046
and #007Fh, a ; 000005 f030
; 000006 007f
.end
|
