On 2/27/2013 12:58 PM, Crabtree, Anne D wrote:
Here's what I get:

0000FC 5110 B698            00698 20546         $DEST   
DEST=$WORK16,LEN=L'$WORK16,CONV=SBINARY
000136 4160 B698            00698 20599          LA     R6,$WORK16
00013A D503 C210 6000 00260 00000 20600          CLC    =CL4'VPRT',0(R6)

Dump shows:
Registers 0-7
GR: 00000000 000004D2 9855D2D2 185A8810  00000000 105A81FC 00007698 00000001
AR: 00000000 00000000 00000000 00000000  00000000 00000000 00000000 00000000
Registers 8-15
GR: 000B42B0 185A8869 1807B000 00007000  185F4D88 7F50F6A4 185F4E64 00000000
AR: 00000000 00000000 00000000 00000000  00000000 00000000 00000000 00000000

Note that the assembled CLC uses register 12, which has an instruction in it. About half the registers look questionable. Some macros have special restrictions, and may require registers to be saved; I don't know whether the $DEST is responsible, or something earlier.

Gerhard Postpischil
Bradford, Vermont

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to