LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
000000 1 P1 START
000000 05C0 2 BALR 12,0
00002 3 USING *,12
4 * SET UP ADDRESSABILITY FOR B AND C
000002 41D0 C032 00034 5 LA 13,A
000006 5AD0 C026 00028 6 A 13,=A(ALENGTH)
01034 7 USING B,13
8 * STORETHE CONSTANT 1 INTO A[3] AND B
00000A 5810 C02A 0002C 9 L 1,=F'1'
00000E 5010 C03E 00040 10 ST 1,A+3*4
000012 5010 D000 01034 11 ST 1,B
12 * ESTABLISH ADDRESSABILITY FOR C
000016 41B0 D004 01038 13 LA 11,B1
00001A 5AB0 C02E 00030 14 A 11,=A(BLENGTH)
03038 15 USING C,11
16 * NOW STORE THE CONSTANT ONE INTO C1 AND C2[3]
00001E 5010 B004 0303C 17 ST 1,C1
000022 5010 B014 0304C 18 ST 1,C2+3*4
000026 07FE 19 BR 14
000028 20 LTORG
000028 00001000 21 =A(ALENGTH)
00002C 00000001 22 =F'1'
000030 00002000 23 =A(BLENGTH)
000034 24 A DS 1024F ARRAY GOES FROM 0 TO 2999
01000 25 ALENGTH EQU *-A
26 *
001034 27 B DS F
001038 28 B1 DS 2048F ARRAY GOES FROM 0 TO 3999
02000 29 BLENGTH EQU *-B1
30 *
003038 31 C DS F
00303C 32 C1 DS F
003040 33 C2 DS 4000F ARRAY GOES FROM 0 TO 3999
03E80 34 CLENGTH EQU *-C2 NOT USED
35 END