TWO DIMENSIONAL ARRAY EXAMPLE 4
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 * B: ARRAY[1..10,1..10] OF INTEGER;
8 * FOR I=1 TO 3 DO
9 * FOR J=1 TO 3 DO
10 * B[I,J]:=I+J
11 * ENDDO
12 * ENDDO
13 * R1 - I
14 * R2 - J
15 * LET R3=CURRENT ROW ADDRESS IN A BIG ARROW
16 * LET R5=CURRENT COLUMN ADDRESS LITTLE ARROW
17 *
000002 4130 C04E 00050 18 LA 3,B
000006 5810 C042 00044 19 L 1,F1
0000A 20 LOOP1 EQU *
00000A 5910 C046 00048 21 C 1,F3
00000E 4720 C03E 00040 22 BC 2,LOOP1E
000012 1853 23 LR 5,3
000014 5820 C042 00044 24 L 2,F1
00018 25 LOOP2 EQU *
000018 5920 C046 00048 26 C 2,F3
00001C 4720 C032 00034 27 BC 2,LOOP2E
000020 1841 28 LR 4,1 LET R4 = I+J
000022 1A42 29 AR 4,2
000024 5040 5000 00000 30 ST 4,0(0,5) B[I,J] = I + J
000028 5A50 C04A 0004C 31 A 5,F4
00002C 5A20 C042 00044 32 A 2,F1
000030 47F0 C016 00018 33 B LOOP2
00034 34 LOOP2E EQU *
000034 5A30 C1DE 001E0 35 A 3,=A(10*4)
000038 5A10 C042 00044 36 A 1,F1
00003C 47F0 C008 0000A 37 B LOOP1
00040 38 LOOP1E EQU *
000040 07FE 39 BR 14
40 *
000042 0000
000044 00000001 41 F1 DC F'1'
000048 00000003 42 F3 DC F'3'
00004C 00000004 43 F4 DC F'4'
44 *
000050 0000000000000000 45 B DC 100F'0'
46 END
0001E0 00000028 47 =A(10*4)