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)