DO LOOP EXAMPLE 2:  DUMB MULTIPLICATION
  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT
000000                                2 P1       START
000000 05C0                           3          BALR  12,0
                            00002     4          USING *,12
                                      5 *        DUMB MULTIPLICATION OF A BY B
                                      6 *        IBM MAINFRAME DOES SUPPORT MULTIPLY, BUT LET'S
                                      7 *        NOT USE IT
                                      8 *        YOUR  PROGRAM GOES HERE
000002   1B11                         9          SR    1,1     REG1 = COUNTER  (IT WILL COUNT TO B); NOW 0
000004   1B22                         10         SR    2,2     REG2 = SUM = A+A+A+...+A (B # OF A'S); NOW 0
                            00006    11 LOOP1    EQU   *
000006 5910 C026            00028    12          C     1,B
00000A 4780 C018            0001A    13          BE    LOOP2
00000E 5A20 C022            00024    14            A     2,A
000012 5A10 C01E            00020    15            A     1,F001
000016 47F0 C004            00006    16          B     LOOP1
                            0001A    17 LOOP2    EQU   *
00001A 5020 C02A            0002C    18          ST    2,SUM
                                     19 *
                                      20  *         END  OF  YOUR PROGRAM
00001E 07FE                          21          BR    14
                                     22 *
000020 00000001                      23 F001     DC    F'1'
                                     24 *
000024 00000003                      25 A        DC    F'3'
000028 00000004                      26 B        DC    F'4'
00002C                               27 SUM      DS    F
                                     28          END