ILLUSTRATE TWO-DIMENSIONAL ARRAYS BY COLUMN
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
000000 2 P1 START
000000 05C0 3 BALR 12,0
00002 4 USING *,12
5 * FOR I:=1 TO NOCOL DO BEGIN
6 * SUM:=0
7 * FOR J:=1 TO NOROWS DO BEGIN
8 * SUM:=SUM+ARRAY[J,I]
9 * END
10 * B[I]:=SUM
11 * END
12 *
13 * THIS PROGRAM WILL CONTAIN AN ARRAY BEGINNING AT ADDRESS, "ARRAY"
14 * NOCOLS CONTAINS NUMBER OF COLUMNS
15 * NOROWS CONTAINS NUMBER OF ROWS
16 * R1 - POINTER TO TOP OF COLUMN "REGA" "BIG ARROW
17 * R2 - OFFSET OF A[J+1,I] FROM A[J,I] IN BYTES "REGC"
18 * R4- CURRENT POSITION IN ARRAY "REGB" "LITTLE
19 * ARROW"
20 * R5 - OFFSET OF POSITION IN B ARRAY "B ARROW"
21 * R6 - CURRENT SUM
22 * R7 - CURRENT COLUMN (I)
23 * R8 - CURRENT ROW (J)
24 *
25 * YOUR PROGRAM GOES HERE
26 *
000002 4110 C05A 0005C 27 LA 1,ARRAY
000006 5820 C09E 000A0 28 L 2,NOCOLS
00000A 1A22 29 AR 2,2
00000C 1A22 30 AR 2,2
00000E 4150 C0A2 000A4 31 LA 5,B
000012 5870 C052 00054 32 L 7,F1
00016 33 LOOP1 EQU *
000016 5970 C09E 000A0 34 C 7,NOCOLS
00001A 4720 C04E 00050 35 BC 2,LOOP1E
00001E 1B66 36 SR 6,6
000020 1841 37 LR 4,1
000022 5880 C052 00054 38 L 8,F1
00026 39 LOOP2 EQU *
000026 5980 C09A 0009C 40 C 8,NOROWS
00002A 4720 C03A 0003C 41 BC 2,LOOP2E
00002E 5A60 4000 00000 42 A 6,0(0,4)
000032 1A42 43 AR 4,2
000034 5A80 C052 00054 44 A 8,F1
000038 47F0 C024 00026 45 B LOOP2
0003C 46 LOOP2E EQU *
00003C 5060 5000 00000 47 ST 6,0(0,5)
000040 5A50 C056 00058 48 A 5,F4
000044 5A10 C056 00058 49 A 1,F4
000048 5A70 C052 00054 50 A 7,F1
00004C 47F0 C014 00016 51 B LOOP1
00050 52 LOOP1E EQU *
000050 07FE 53 BR 14
54 *
000052 0000
i000054 00000001 55 F1 DC F'1'
ILLUSTRATE TWO-DIMENSIONAL ARRAYS BY COLUMN
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
000058 00000004 56 F4 DC F'4'
57 *
00005C 0000000100000002 58 ARRAY DC F'1',F'2',F'3',F'4'
00006C 0000000500000006 59 DC F'5',F'6',F'7',F'8'
00007C 000000090000000A 60 DC F'9',F'10',F'11',F'12'
00008C 0000000D0000000E 61 DC F'13',F'14',F'15',F'16'
00009C 00000004 62 NOROWS DC F'4'
0000A0 00000004 63 NOCOLS DC F'4'
0000A4 64 B DS 10F
65 * END OF YOUR PROGRAM
66 END