ARRAY EXAMPLE 5
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 SOME SIMPLE DO LOOPS WITH ONE-DIMENSIONAL
6 * WITH A SHORT CUT USING REGISTERS AND ADDRESSING
7 * A: ARRAY[1..10] OF INTEGER
8 * FOR I= 1 TO 4 DO
9 * A[I] := I
10 * ENDDO
11 * SUM:=0
12 * FOR I := 1 TO 4
13 * SUM: = SUM + A[I]
14 * ENDDO
15 *
000002 5810 C04A 0004C 16 L 1,F1
000006 4120 C052 00054 17 LA 2,A REGISTER TWO CONTAINS CURRENT ADDR IN A
0000A 18 LOOP1 EQU *
00000A 5910 C04E 00050 19 C 1,F4
00000E 4720 C020 00022 20 BC 2,LOOP1E
000012 5010 2000 00000 21 ST 1,0(0,2)
000016 5A20 C04E 00050 22 A 2,F4
00001A 5A10 C04A 0004C 23 A 1,F1
00001E 47F0 C008 0000A 24 B LOOP1
00022 25 LOOP1E EQU *
000022 1B44 26 SR 4,4 R4 = SUM
000024 5810 C04A 0004C 27 L 1,F1 R1 IS THE COUNTER
000028 4120 C052 00054 28 LA 2,A
0002C 29 LOOP2 EQU *
00002C 5910 C04E 00050 30 C 1,F4
000030 4720 C042 00044 31 BC 2,LOOP2E
000034 5A40 2000 00000 32 A 4,0(0,2)
000038 5A20 C04E 00050 33 A 2,F4
00003C 5A10 C04A 0004C 34 A 1,F1
000040 47F0 C02A 0002C 35 B LOOP2
00044 36 LOOP2E EQU *
000044 5040 C07A 0007C 37 ST 4,SUM
38 *
000048 07FE 39 BR 14
40 *
00004A 0000
00004C 00000001 41 F1 DC F'1'
000050 00000004 42 F4 DC F'4'
43 *
000054 0000000000000000 44 A DC 10F'0' LAST SUBSCRIPT IS TEN
00007C 45 SUM DS F
46 END