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 your paper price
Pages (550 words)
Approximate price: -

Why Choose Us

Quality Papers

We value our clients. For this reason, we ensure that each paper is written carefully as per the instructions provided by the client. Our editing team also checks all the papers to ensure that they have been completed as per the expectations.

Professional Academic Writers

Over the years, our Acme Homework has managed to secure the most qualified, reliable and experienced team of writers. The company has also ensured continued training and development of the team members to ensure that it keep up with the rising Academic Trends.

Affordable Prices

Our prices are fairly priced in such a way that ensures affordability. Additionally, you can get a free price quotation by clicking on the "Place Order" button.

On-Time delivery

We pay strict attention on deadlines. For this reason, we ensure that all papers are submitted earlier, even before the deadline indicated by the customer. For this reason, the client can go through the work and review everything.

100% Originality

At Custom Paper Help, all papers are plagiarism-free as they are written from scratch. We have taken strict measures to ensure that there is no similarity on all papers and that citations are included as per the standards set.

Customer Support 24/7

Our support team is readily available to provide any guidance/help on our platform at any time of the day/night. Feel free to contact us via the Chat window or support email: support@acmehomework.com.

Try it now!

Calculate the price of your order

We'll send you the first draft for approval by at
Total price:
$0.00

How it works?

Follow these simple steps to get your paper done

Place your order

Fill in the order form and provide all details of your assignment.

Proceed with the payment

Choose the payment system that suits you most.

Receive the final file

Once your paper is ready, we will email it to you.

Our Services

Custom Paper Help has stood as the world’s leading custom essay writing services providers. Once you enter all the details in the order form under the place order button, the rest is up to us.

Essays

Essay Writing Services

At Custom Paper Help, we prioritize on all aspects that bring about a good grade such as impeccable grammar, proper structure, zero-plagiarism and conformance to guidelines. Our experienced team of writers will help you completed your essays and other assignments.

Admissions

Admission and Business Papers

Be assured that you’ll definitely get accepted to the Master’s level program at any university once you enter all the details in the order form. We won’t leave you here; we will also help you secure a good position in your aspired workplace by creating an outstanding resume or portfolio once you place an order.

Editing

Editing and Proofreading

Our skilled editing and writing team will help you restructure you paper, paraphrase, correct grammar and replace plagiarized sections on your paper just on time. The service is geared toward eliminating any mistakes and rather enhancing better quality.

Coursework

Technical papers

We have writers in almost all fields including the most technical fields. You don’t have to worry about the complexity of your paper. Simply enter as much details as possible in the place order section.