DO LOOP EXAMPLE 1: SUM I TO N
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
000000 2 P1 START
000000 05C0 3 BALR 12,0
00002 4 USING *,12
5 * SUM:=0;
6 * FOR I=1 TO N
7 * SUM=SUM+I;
8 * YOUR PROGRAM GOES HERE
9 *
000002 1B11 10 SR 1,1 SET REGISTER ONE TO ZERO
000004 5010 C046 00048 11 ST 1,SUM
000008 5810 C03A 0003C 12 L 1,F001 REGISTER 1 WILL BE COUNTER
00000C 5010 C03E 00040 13 ST 1,I
00010 14 LOOP1 EQU *
000010 5810 C03E 00040 15 L 1,I
000014 5910 C042 00044 16 C 1,N IF REGISTER 1 HIGH, LEAVE LOOP
17 * CC=2
000018 4720 C036 00038 18 BC 2,LOOP1E
00001C 5810 C046 00048 19 L 1,SUM SUM=SUM+I
000020 5A10 C03E 00040 20 A 1,I
000024 5010 C046 00048 21 ST 1,SUM
000028 5810 C03E 00040 22 L 1,I
00002C 5A10 C03A 0003C 23 A 1,F001
000030 5010 C03E 00040 24 ST 1,I
000034 47F0 C00E 00010 25 B LOOP1
00038 26 LOOP1E EQU *
27 *
28 * END OF YOUR PROGRAM
000038 07FE 29 BR 14
30 *
00003A 0000
00003C 00000001 31 F001 DC F'1'
32 *
000040 33 I DS F
000044 00000003 34 N DC F'3'
000048 35 SUM DS F
36 END