ADDITION SUBROUTINE, NO PARAMETERS
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
000000 2 P1 START
000000 05C0 3 BALR 12,0
00002 4 USING *,12
5 * ILLUSTRATE A SIMPLE SUBROUTINE WHICH DOES NOT USE IBM-STANDARD
6 * CONVENTIONS
7 * A:=1
8 * B:=2
9 * CALL BLAH ; C:=A+B
10 *
11 * A:=3
12 * B:=4
13 * CALL BLAH ; C:=A+B
14 *
15 * A:=5
16 * B:=6
17 * CALL BLAH ; C:=A+B
18 *
19 * BLAH: PROCEDURE
20 * C:=A+B
21 * END BLAH
22 * YOUR PROGRAM GOES HERE
23 *
000002 5810 C05A 0005C 24 L 1,F1
000006 5010 C04E 00050 25 ST 1,A
00000A 5820 C05E 00060 26 L 2,F2
00000E 5020 C052 00054 27 ST 2,B
000012 4550 C03E 00040 28 BAL 5,BLAH
29 *
000016 5810 C062 00064 30 L 1,F3
00001A 5010 C04E 00050 31 ST 1,A
00001E 5820 C066 00068 32 L 2,F4
000022 5020 C052 00054 33 ST 2,B
000026 4550 C03E 00040 34 BAL 5,BLAH
35 *
00002A 5810 C06A 0006C 36 L 1,F5
00002E 5010 C04E 00050 37 ST 1,A
000032 5820 C06E 00070 38 L 2,F6
000036 5020 C052 00054 39 ST 2,B
00003A 4550 C03E 00040 40 BAL 5,BLAH
i00003E 07FE 41 BR 14
ADDITION SUBROUTINE, NO PARAMETERS
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
00040 43 BLAH EQU *
000040 5810 C04E 00050 44 L 1,A
000044 5A10 C052 00054 45 A 1,B
000048 5010 C056 00058 46 ST 1,C
00004C 07F5 47 BR 5
48 *
49 * END OF YOUR PROGRAM
50 *
00004E 0000
000050 00000003 51 A DC F'3'
000054 00000004 52 B DC F'4'
000058 53 C DS F
54 *
55 * CONSTANTS
56 *
00005C 00000001 57 F1 DC F'1'
000060 00000002 58 F2 DC F'2'
000064 00000003 59 F3 DC F'3'
000068 00000004 60 F4 DC F'4'
00006C 00000005 61 F5 DC F'5'
000070 00000006 62 F6 DC F'6'
63 END