standard entry setup, save area chaining, establish base register and addressibility…

//ASMCNT JOB 1,NOTIFY=&SYSUID 00001003 //CMPLNK EXEC HLASMCLG 00005000 //C.SYSIN DD * 00009700 ADD TITLE ‘contest program’ 00010000 ADD CSECT 00020000 ADD AMODE 31 00030000 ADD RMODE 24 00040000 * 00050000 *——————————————————————–* 00060000 * * 00070000 * register equates * 00080000 * * 00090000 *——————————————————————–* 00100000 * 00110000 R0 EQU 0 register 0 00120000 BASEREG EQU 12 base register 00130000 SAVEREG EQU 13 save area register 00140000 RETREG EQU 14 caller’s return address 00150000

//ASMCNT JOB 1,NOTIFY=&SYSUID 00001003 //CMPLNK EXEC HLASMCLG 00005000 //C.SYSIN DD * 00009700 ADD TITLE ‘contest program’ 00010000 ADD CSECT 00020000 ADD AMODE 31 00030000 ADD RMODE 24 00040000 * 00050000 *——————————————————————–* 00060000 * * 00070000 * register equates * 00080000 * * 00090000 *——————————————————————–* 00100000 * 00110000 R0 EQU 0 register 0 00120000 BASEREG EQU 12 base register 00130000 SAVEREG EQU 13 save area register 00140000 RETREG EQU 14 caller’s return address 00150000 ENTRYREG EQU 15 entry address 00160000 RETCODE EQU 15 return code 00170000 EJECT 00180000 * 00190000 *——————————————————————–* 00200000 * * 00210000 * standard entry setup, save area chaining, establish * 00220000 * base register and addressibility * 00230000 * * 00240000 *——————————————————————–* 00250000 * 00260000 USING ADD,ENTRYREG establish addressibility 00270000 B SETUP branch around eyecatcher 00280000 DC CL8’ADD’ program name 00290000 DC CL8’&SYSDATE’ program assembled date 00300000 SETUP STM RETREG,BASEREG,12(SAVEREG) save caller’s registers 00310000 BALR BASEREG,R0 establish base register 00320000 DROP ENTRYREG drop initial base register 00330000 USING *,BASEREG establish addressibilty 00340000 LA ENTRYREG,SAVEAREA point to this program save area 00350000 ST SAVEREG,4(,ENTRYREG) save address of caller’s save 00360000 * area 00370000 ST ENTRYREG,8(,SAVEREG) save address of this program 00380000 * save area 00390000 LR SAVEREG,ENTRYREG point to this program savearea 00400000 EJECT 00410000 * 00420000 *——————————————————————–* 00430000 * * 00440000 * program body * 00450000 * * 00460000 *——————————————————————–* 00470000 OPEN (PRTLINE,OUTPUT) Open output file 00480000 MVC LINE(26),MSGX 00482000 PUT PRTLINE,LINE 00483000 MVC LINE,BLANK 00484000 LOOPINIT DS 0H 00490000 SR 2,2 Clear reg 2 00500000 L 2,=F’20’ Store 10 in reg 2 00510004 L 3,=F’1′ Store 1 in reg 3 00520000 * 00530000 LOOP DS 0H 00540000 * 00550000 CVD 3,PACKAREA Convert to decimal, store in packarea 00560000 UNPK OUT,PACKAREA Convert to printable, store in out 00570000 MVC LINE(8),OUT Move characters from out to line 00580000 MVZ LINE+7(1),LINE Move zone bits 00590000 PUT PRTLINE,LINE Put line in output file 00600000 A 3,=F’1′ Add 1 to current total in reg 3 00610000 * 00620000 BCT 2,LOOP Subtract 1 from reg 2, if not zero 00630000 * then go to LOOP label 00640000 CLOSE (PRTLINE) Close output file 00650000 * 00660000 *——————————————————————–* 00670000 * * 00680000 * standard exit – restore caller’s registers and * 00690000 * return to caller * 00700000 * * 00710000 *——————————————————————–* 00720000 * 00730000 EXIT DS 0H halfword boundary alignment 00740000 L SAVEREG,4(,SAVEREG) restore caller’s save area addr 00750000 L RETREG,12(,SAVEREG) restore return address register 00760000 LM R0,BASEREG,20(SAVEREG) restore all regs. except reg15 00770000 BR RETREG return to caller 00780000 EJECT 00790000 * 00800000 *——————————————————————–* 00810000 * * 00820000 * storage and constant definitions. * 00830000 * print output definition. * 00840000 * * 00850000 *——————————————————————–* 00860000 * 00870000 LINE DS 0CL80 00880000 DC C’ ‘ 00890000 DC CL79’ ‘ 00900000 PRTLINE DCB DSORG=PS,DDNAME=PRTLINE,MACRF=PM, X00910000 RECFM=FB,LRECL=80 00920000 SUM DC P’01’ 00930000 ONE DC P’01’ 00940000 TOT DS PL2 00950000 OUT DC X’4040404040404040′ 00960000 MSGX DC CL26’Hi! I can count very fast.’ 00962000 BLANK DC CL80” 00963000 PACKAREA DS CL8 00970000 SAVEAREA DC 18F’-1′ register save area 00980000 END ADD 00990000 //G.PRTLINE DD DSN=&SYSUID..OUTPUT(MYOUTPUT),DISP=SHR 01000002

Attachment.pdfAttachment.pdfHomework–4-D….pdf

Calculate the price of your order

550 words
We'll send you the first draft for approval by September 11, 2018 at 10:52 AM
Total price:
$26
The price is based on these factors:
Academic level
Number of pages
Urgency
Basic features
  • Free title page and bibliography
  • Unlimited revisions
  • Plagiarism-free guarantee
  • Money-back guarantee
  • 24/7 support
On-demand options
  • Writer’s samples
  • Part-by-part delivery
  • Overnight delivery
  • Copies of used sources
  • Expert Proofreading
Paper format
  • 275 words per page
  • 12 pt Arial/Times New Roman
  • Double line spacing
  • Any citation style (APA, MLA, Chicago/Turabian, Harvard)

Our guarantees

Delivering a high-quality product at a reasonable price is not enough anymore.
That’s why we have developed 5 beneficial guarantees that will make your experience with our service enjoyable, easy, and safe.

Money-back guarantee

You have to be 100% sure of the quality of your product to give a money-back guarantee. This describes us perfectly. Make sure that this guarantee is totally transparent.

Read more

Zero-plagiarism guarantee

Each paper is composed from scratch, according to your instructions. It is then checked by our plagiarism-detection software. There is no gap where plagiarism could squeeze in.

Read more

Free-revision policy

Thanks to our free revisions, there is no way for you to be unsatisfied. We will work on your paper until you are completely happy with the result.

Read more

Privacy policy

Your email is safe, as we store it according to international data protection rules. Your bank details are secure, as we use only reliable payment systems.

Read more

Fair-cooperation guarantee

By sending us your money, you buy the service we provide. Check out our terms and conditions if you prefer business talks to be laid out in official language.

Read more