COPY A TO B WITH COPY SUBROUTINE
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
000000 2 P1 START
000000 05C0 3 BALR 12,0
00002 4 USING *,12
000002 4110 C05E 00060 5 LA 1,A
000006 5010 C052 00054 6 ST 1,CCB
00000A 4120 C072 00074 7 LA 2,B
00000E 5020 C056 00058 8 ST 2,CCB+4
000012 5830 C09E 000A0 9 L 3,=A(ALEN)
000016 5030 C05A 0005C 10 ST 3,CCB+8
00001A 4110 C052 00054 11 LA 1,CCB
00001E 4550 C022 00024 12 BAL 5,COPY
i000022 07FE 13 BR 14
COPY A TO B WITH COPY SUBROUTINE
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
00024 15 COPY EQU *
16 * CCB CONTAINS FIRST ADDR, SECOND ADDR, NO. OF FULLWORDS
17 * +0 +4 +8
18 * R1 = CCB ON ENTRY
000024 5820 1000 00000 19 L 2,0(0,1) R2=FIRST ADDR
000028 5830 1004 00004 20 L 3,4(0,1) R3=SECOND ADDR
00002C 5840 1008 00008 21 L 4,8(0,1) R4=# OF EACH
000030 1B99 22 SR 9,9
00032 23 COPY1 EQU *
000032 1994 24 CR 9,4
000034 4780 C04E 00050 25 BE COPY2
000038 5860 2000 00000 26 L 6,0(0,2)
00003C 5060 3000 00000 27 ST 6,0(0,3)
000040 5A20 C0A2 000A4 28 A 2,=F'4'
000044 5A30 C0A2 000A4 29 A 3,=F'4'
000048 5A90 C0A6 000A8 30 A 9,=F'1'
00004C 47F0 C030 00032 31 B COPY1
00050 32 COPY2 EQU *
000050 07F5 33 BR 5 COPY ENDS
34 *
000054 35 CCB DS 3F
000060 0000000100000002 36 A DC F'1',F'2',F'3',F'4'
00004 37 ALEN EQU (*-A)/4
000070 FFFFFFFF 38 DC F'-1'
000074 39 B DS 10F
40 END
0000A0 00000004 41 =A(ALEN)
0000A4 00000004 42 =F'4'
0000A8 00000001 43 =F'1'