DO LOOP EXAMPLE 3; NESTED DO LOOPS
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
000000 2 P1 START
000000 05C0 3 BALR 12,0
00002 4 USING *,12
5 * START OF PROGRAM
6 * FOR I = 1 TO M DO
7 * FOR J = 1 TO N DO
8 * SUM=SUM+I+J
9 * ENDDO
10 * ENDDO
11 *
000002 5810 C062 00064 12 L 1,F1
000006 5010 C066 00068 13 ST 1,I
00000A 1B33 14 SR 3,3 R3=SUM; NOW 0
00000C 5030 C076 00078 15 ST 3,SUM
00010 16 LOOP1 EQU *
000010 5810 C066 00068 17 L 1,I
000014 5910 C06E 00070 18 C 1,M BRANCH IF REG1 IS HIGH (WHEN CC=2)
000018 4720 C05E 00060 19 BC 2,LOOP1E
00001C 5810 C062 00064 20 L 1,F1
000020 5010 C06A 0006C 21 ST 1,J
00024 22 LOOP2 EQU *
000024 5820 C06A 0006C 23 L 2,J
000028 5920 C072 00074 24 C 2,N BRANCH IF REG2 IS HIGH (WHEN CC=2)
00002C 4720 C04E 00050 25 BC 2,LOOP2E
000030 5830 C076 00078 26 L 3,SUM
000034 5A30 C066 00068 27 A 3,I
000038 5A30 C06A 0006C 28 A 3,J
00003C 5030 C076 00078 29 ST 3,SUM
000040 5810 C06A 0006C 30 L 1,J
000044 5A10 C062 00064 31 A 1,F1
000048 5010 C06A 0006C 32 ST 1,J
00004C 47F0 C022 00024 33 B LOOP2
00050 34 LOOP2E EQU *
000050 5810 C066 00068 35 L 1,I
000054 5A10 C062 00064 36 A 1,F1
000058 5010 C066 00068 37 ST 1,I
00005C 47F0 C00E 00010 38 B LOOP1
00060 39 LOOP1E EQU *
40 *
41 * END OF YOUR PROGRAM
000060 07FE 42 BR 14
43 *
000062 0000
000064 00000001 44 F1 DC F'1'
45 *
000068 46 I DS F
00006C 47 J DS F
000070 00000002 48 M DC F'2'
000074 00000002 49 N DC F'2'
000078 50 SUM DS F
51 END