ARRAY EXAMPLE 6
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
000000 2 P1 START
000000 05C0 3 BALR 12,0
00002 4 USING *,12
5 * OBJECTIVE TO SEE ANOTHER EXAMPLE OF USING ONE-DIMENSIONAL
6 * ARRAYS WITH A SHORT CUT USING REGISTERS FOR ADDRESSING
7 * ALSO, SEE US OF EQU TO GENERATE LENGTH OF STORAGE LIST
8 *
9 * PROGRAM COPIES ARRAY AX TO ARRAY B, THEN AX TO ARRAY C
10 *
000002 4120 C06E 00070 11 LA 2,B R2=ADDRESS IN B TO RECEIVE WORD
000006 4110 C05A 0005C 12 LA 1,AX R1=ADDRESS IN A TO GET WORD FROM
0000A 13 LOOP1 EQU *
00000A 5910 C0BE 000C0 14 C 1,=A(AXEND)
00000E 4780 C024 00026 15 BE LOOP1E
000012 5830 1000 00000 16 L 3,0(0,1)
000016 5030 2000 00000 17 ST 3,0(0,2)
00001A 5A10 C056 00058 18 A 1,F4
00001E 5A20 C056 00058 19 A 2,F4
000022 47F0 C008 0000A 20 B LOOP1
00026 21 LOOP1E EQU *
000026 4120 C096 00098 22 LA 2,C R2=ADDRESS IN C TO RECEIVE WORD
00002A 4110 C05A 0005C 23 LA 1,AX R1=ADDRESS IN A TO GET WORD FROM
00002E 1B44 24 SR 4,4 R4=COUNT OF NUMBER OF WORDS MOVED
00030 25 LOOP2 EQU *
000030 5940 C0C2 000C4 26 C 4,=A(AXLENGTH)
000034 4780 C04E 00050 27 BE LOOP2E
000038 5830 1000 00000 28 L 3,0(0,1)
00003C 5030 2000 00000 29 ST 3,0(0,2)
000040 5A10 C056 00058 30 A 1,F4
000044 5A20 C056 00058 31 A 2,F4
000048 5A40 C052 00054 32 A 4,F1
00004C 47F0 C02E 00030 33 B LOOP2
00050 34 LOOP2E EQU *
000050 07FE 35 BR 14
36 *
000052 0000
000054 00000001 37 F1 DC F'1'
000058 00000004 38 F4 DC F'4'
39 *
0005C 40 AX EQU *
00005C 00000001 41 DC F'1'
000060 00000002 42 DC F'2'
000064 00000003 43 DC F'3'
000068 00000004 44 DC F'4'
00004 45 AXLENGTH EQU (*-AX)/4
0006C 46 AXEND EQU *
00006C FFFFFFFF 47 DUMMY DC F'-1'
000070 48 B DS 10F
000098 49 C DS 10F
50 END
0000C0 0000006C 51 =A(AXEND)
0000C4 00000004 52 =A(AXLENGTH)