DEMONSTRATE NESTED ROUTINES
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
000000 2 P1 START
000000 90EC D00C 0000C 3 STM 14,12,12(13)
000004 05C0 4 BALR 12,0
00006 5 USING *,12
000006 50D0 C022 00028 6 ST 13,SAVEMAIN+4
00000A 41D0 C01E 00024 7 LA 13,SAVEMAIN
8 * YOUR PROGRAM GOES HERE
9 * ILLUSTRATE A SIMPLE SUBROUTINE WHICH DOES USE IBM-STANDARD
10 * CONVENTIONS
00000E 41D0 C01E 00024 11 LA 13,SAVEMAIN
000012 41F0 C06A 00070 12 LA 15,INC1000
000016 05EF 13 BALR 14,15
14 *
15 * RETURN TO THE OPERATING SYSTEM--IBM STANDARD STYLE
000018 58D0 C022 00028 16 L 13,SAVEMAIN+4
00001C 98EC D00C 0000C 17 LM 14,12,12(13)
000020 07FE 18 BR 14 BLAH ENDS
000024 19 SAVEMAIN DS 18F
i00006C 00000000 20 GLOBAL DC F'0'
DEMONSTRATE NESTED ROUTINES
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
00070 22 INC1000 EQU *
000070 90EC D00C 0000C 23 STM 14,12,12(13)
000074 50D0 C09A 000A0 24 ST 13,SAVESUB+4
000078 41D0 C096 0009C 25 LA 13,SAVESUB
00007C 5800 C066 0006C 26 L 0,GLOBAL
000080 5A00 C232 00238 27 A 0,=F'1000'
000084 5000 C066 0006C 28 ST 0,GLOBAL
000088 41D0 C096 0009C 29 LA 13,SAVESUB
00008C 41F0 C0DE 000E4 30 LA 15,INC200
000090 05EF 31 BALR 14,15
000092 58D0 C09A 000A0 32 L 13,SAVESUB+4
000096 98EC D00C 0000C 33 LM 14,12,12(13)
00009A 07FE 34 BR 14
00009C 35 SAVESUB DS 18F
36 *
000E4 37 INC200 EQU *
0000E4 90EC D00C 0000C 38 STM 14,12,12(13)
0000E8 50D0 C10E 00114 39 ST 13,SAVESUB1+4
0000EC 41D0 C10A 00110 40 LA 13,SAVESUB1
0000F0 5800 C066 0006C 41 L 0,GLOBAL
0000F4 5A00 C236 0023C 42 A 0,=F'200'
0000F8 5000 C066 0006C 43 ST 0,GLOBAL
0000FC 41D0 C10A 00110 44 LA 13,SAVESUB1
000100 41F0 C152 00158 45 LA 15,INC30
000104 05EF 46 BALR 14,15
000106 58D0 C10E 00114 47 L 13,SAVESUB1+4
00010A 98EC D00C 0000C 48 LM
14,12,12(13)
00010E 07FE 49 BR 14
000110 50 SAVESUB1 DS 18F
51 *
00158 52 INC30 EQU *
000158 90EC D00C 0000C 53 STM 14,12,12(13)
00015C 50D0 C182 00188 54 ST 13,SAVESUB2+4
000160 41D0 C17E 00184 55 LA 13,SAVESUB2
000164 5800 C066 0006C 56 L 0,GLOBAL
000168 5A00 C23A 00240 57 A 0,=F'30'
00016C 5000 C066 0006C 58 ST 0,GLOBAL
000170 41D0 C17E 00184 59 LA 13,SAVESUB2
000174 41F0 C1C6 001CC 60 LA 15,INC4
000178 05EF 61 BALR 14,15
00017A 58D0 C182 00188 62 L 13,SAVESUB2+4
00017E 98EC D00C 0000C 63 LM 14,12,12(13)
000182 07FE 64 BR 14
000184 65 SAVESUB2 DS 18F
66 *
001CC 67 INC4 EQU *
0001CC 90EC D00C 0000C 68 STM 14,12,12(13)
0001D0 50D0 C1EE 001F4 69 ST 13,SAVESUB3+4
0001D4 41D0 C1EA 001F0 70 LA 13,SAVESUB3
0001D8 5800 C066 0006C 71 L 0,GLOBAL
0001DC 5A00 C23E 00244 72 A 0,=F'4'
0001E0 5000 C066 0006C 73 ST 0,GLOBAL
0001E4 58D0 C1EE 001F4 74 L 13,SAVESUB3+4
0001E8 98EC D00C 0000C 75 LM 14,12,12(13)
i0001EC 07FE 76 BR 14
DEMONSTRATE NESTED ROUTINES
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
0001F0 77 SAVESUB3 DS 18F
78 * END OF YOUR PROGRAM
79 END
000238 000003E8 80 =F'1000'
00023C 000000C8 81 =F'200'
000240 0000001E 82 =F'30'
000244 00000004 83 =F'4'