Zero and add pack. ITschak
On Sat, Jul 14, 2012 at 12:05 AM, Frank Swarbrick <frank.swarbr...@yahoo.com > wrote: > COBOL code > 77 ws-num-packed pic S9(9) packed-decimal. > > add 2 to ws-num-packed > > > Generated assembler: > > > 000014 > ADD > 00036A GN=16 EQU > * > 00036A FA40 8008 A02C AP 8(5,8),44(1,10) > WS-NUM-PACKED PGMLIT AT +40 > 000370 F844 8008 8008 ZAP 8(5,8),8(5,8) > WS-NUM-PACKED WS-NUM-PACKED > > > What is the purpose of the ZAP? > > Thanks, > Frank > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN