TWO DIMENSIONAL ARRAY EXAMPLE 3
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
000000 2 P1 START
000000 05C0 3 BALR 12,0
00002 4 USING *,12
5 * OBJECTIVE TO SEE AN EXAMPLE OF GOING THROUGH A TWO DIMENSIONAL
6 * ARRAY WITH A DO LOOP
7 * A: ARRAY[1..3,1..3] OF INTEGER;
8 * FOR I:=1 TO 3 DO
9 * FOR J:=1 TO 3 DO
10 * A[I,J]:=I+J
11 * ENDDO
12 * ENDDO
13 * LET R1 CONTAIN I
14 * R2 CONTAIN J
15 * R3 CONTAIN CURRENT ADDRESS IN A
16 *
000002 4130 C046 00048 17 LA 3,A
000006 5810 C03A 0003C 18 L 1,F1
0000A 19 LOOP1 EQU *
00000A 5910 C03E 00040 20 C 1,F3
00000E 4720 C038 0003A 21 BC 2,LOOP1E
000012 5820 C03A 0003C 22 L 2,F1
00016 23 LOOP2 EQU *
000016 5920 C03E 00040 24 C 2,F3
00001A 4720 C030 00032 25 BC 2,LOOP2E
00001E 1841 26 LR 4,1 LET R4 = I+J
000020 1A42 27 AR 4,2
000022 5040 3000 00000 28 ST 4,0(0,3) A(I,J) = I + J
000026 5A30 C042 00044 29 A 3,F4
00002A 5A20 C03A 0003C 30 A 2,F1
00002E 47F0 C014 00016 31 B LOOP2
00032 32 LOOP2E EQU *
000032 5A10 C03A 0003C 33 A 1,F1
000036 47F0 C008 0000A 34 B LOOP1
0003A 35 LOOP1E EQU *
36 *
00003A 07FE 37 BR 14
38 *
00003C 00000001 39 F1 DC F'1'
000040 00000003 40 F3 DC F'3'
000044 00000004 41 F4 DC F'4'
42 *
000048 0000000000000000 43 A DC 9F'0'
44 END