mirror of
https://github.com/open-simh/simtools.git
synced 2026-01-13 15:27:18 +00:00
0ab2a4fa16
while also adding some consistency. All listings now list . (dot) as defined so they need updating.
61 lines
3.1 KiB
Plaintext
61 lines
3.1 KiB
Plaintext
1 ;;;;;
|
|
2 ;
|
|
3 ; Test long local labels
|
|
4 ;
|
|
5
|
|
6 000000 001400 lab1: beq 1$
|
|
7 000002 001376 1$: bne lab1
|
|
8
|
|
9 ; -- new scope
|
|
10
|
|
11 000004 001400 lab2a: beq 12345$
|
|
12 000006 001376 12345$: bne lab2a
|
|
13
|
|
14 ; -- new scope
|
|
15
|
|
16 000010 001400 lab2b: beq 12345$
|
|
17 000012 001376 12345$: bne lab2b
|
|
18
|
|
19 ; -- new scope
|
|
20
|
|
21 000014 001400 lab3: beq 1$
|
|
22 000016 001000 1$: bne 2$
|
|
23 000020 001400 2$: beq 3$
|
|
24 000022 001400 3$: beq 4$
|
|
25 000024 001773 4$: beq lab3
|
|
26
|
|
27 ; -- new scope
|
|
28
|
|
29 000026 001400 lab4: beq 1$
|
|
30 000030 001000 1$: bne 2$
|
|
31 000032 001400 2$: beq 3$
|
|
32 000034 001400 3$: beq 4$
|
|
33 000036 001773 4$: beq lab4
|
|
34
|
|
35 ; -- test if next pass sets this back to default (off)
|
|
36 ; also test that normal labels don't delimit local ones
|
|
37
|
|
38 .enabl lsb
|
|
39
|
|
40 000040 001000 1$: bne 2$
|
|
41 000042 001401 2$: beq 3$
|
|
42 000044 001775 lab5: beq 1$
|
|
43 000046 001400 3$: beq 4$
|
|
44 000050 001775 4$: beq lab5
|
|
44
|
|
|
|
|
|
Symbol table
|
|
|
|
. 000052R 001 12345$1 000006R L 001 3$3 000022R L 001 4$5 000050R L 001 LAB4 000026R 001
|
|
1$0 000002R L 001 12345$2 000012R L 001 3$4 000034R L 001 LAB1 000000R 001 LAB5 000044R 001
|
|
1$3 000016R L 001 2$3 000020R L 001 3$5 000046R L 001 LAB2A 000004R 001
|
|
1$4 000030R L 001 2$4 000032R L 001 4$3 000024R L 001 LAB2B 000010R 001
|
|
1$5 000040R L 001 2$5 000042R L 001 4$4 000036R L 001 LAB3 000014R 001
|
|
|
|
|
|
Program sections:
|
|
|
|
. ABS. 000000 000 (RW,I,GBL,ABS,OVR,NOSAV)
|
|
000052 001 (RW,I,LCL,REL,CON,NOSAV)
|