Please Help Need ASAP Assembly Language Upload the sample to your PDS IBM dataset JCL – as member name ASMPGM in your J

[answerhappygod]

Please Help Need ASAP
Assembly Language

Upload the sample to your PDS IBM dataset JCL – as member name
ASMPGM in your JCL dataset.
2. SUBMIT it so that it will execute correctly (return code 0).
It will create a member called MYOUTPUT in your OUTPUT dataset.
Screen print the member ASMPGM in your JCL PDS. Also print out the
member MYOUTPUT in your OUTPUT dataset. The expected result in
MYOUTPUT will be:
Hi! I can count very fast.
00000001
00000002
00000003
00000004
00000005
00000006
00000007
00000008
00000009
00000010
00000011
00000012
00000013
00000014
00000015
00000016
00000017
00000018
00000019
00000020
3. Now modify your program to reduce the count to 12, after each
number on the next line print “IS THERE MORE?” and print out a
message at the end in caps – “THIS IS MY FINAL ASSIGNMENT”.
4. Screen print the modified source program ASMPGM in your JCL
dataset and the MYOUTPUT member in your OUTPUT dataset.
Your final output should look like this:
Hi! I can count very fast.
00000001
IS THERE MORE?
00000002
IS THERE MORE?
00000003
IS THERE MORE?
00000004
IS THERE MORE?
00000005
IS THERE MORE?
00000006
IS THERE MORE?
00000007
IS THERE MORE?
00000008
IS THERE MORE?
00000009
IS THERE MORE?
00000010
IS THERE MORE?
00000011
IS THERE MORE?
00000012
IS THERE MORE?

Please Help Need Asap Assembly Language Upload The Sample To Your Pds Ibm Dataset Jcl As Member Name Asmpgm In Your J 1 (80.85 KiB) Viewed 44 times

//ASMCNT JOB 1, NOTIFY=&SYSUID //CMPLNK EXEC HLASMCLG //C.SYSIN DD * ADD TITLE 'contest program' ADD CSECT ADD AMODE 31 ADD RMODE 24 * 00001003 00005000 00009700 00010000 00020000 00030000 00040000 00050000 00060000 00070000 00080000 00090000 00100000 00110000 00120000 00130000 00140000 00150000 00160000 ** register equates RO EQU 0 BASEREG EQU 12 SAVEREG EQU 13 RETREG EQU 14 ENTRYREG EQU 15 RETCODE EQU 15 EJECT register 0 base register save area register caller's return address entry address return code 00170000 00180000 standard entry setup, save area chaining, establish base register and addressibility ** 00190000 00200000 00210000 00220000 00230000 00240000 00250000 00260000 00270000 00280000 00290000 00300000 SETUP 00310000 USING ADD, ENTRYREG establish addressibility B SETUP branch around eyecatcher DC CLS'ADD' program name DC CL8'&SYSDATE' program assembled date STM RETREG, BASEREG, 12(SAVEREG) save caller's registers BALR BASEREG, RO establish base register DROP ENTRYREG drop initial base register USING * , BASEREG establish addressibilty LA ENTRYREG, SAVEAREA point to this program save area ST SAVEREG,4G, ENTRYREG) save address of caller's save area ST ENTRYREG, 8( SAVEREG) save address of this program save area LR SAVEREG, ENTRYREG point to this program savearea EJECT 00320000 00330000 00340000 00350000 00360000 00370000 00380000 00390000 00400000 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 ОН. 00490000 SR 2, 2 Clear reg 2 00500000 L 2,=F'12' Store 10 in reg 2 00510004 L 3,=F'1' Store 1 in reg 3 00520000 00530000 LOOP DS OH 00540000 00550000 CVD 3, PACKAREA Convert to decimal, store in packarea 00560000 UNPK OUT, PACKAREA Convert to printable, store in out 00570000 MVC LINE ( 35),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'l' 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 OH halfword boundary alignment 00740000 L SAVEREG,4G, SAVEREG) restore caller's save area addr 00750000 L RETREG, 12( ,SAVEREG) restore return address register 00760000 LM RO, 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 00880000 LINE DS OCL80 DC C' DC CL79' PRTLINE DCB DSORGEPS,DDNAME=PRTLINE,MACRE=PM, RECEM=FB, LRECL=80 SUM DC P'01' ONE DC P'01' TOT DS PL2 OUT DC X'4040404040404040' MSGX DC CL26'Hi! I can count very fast.' MSGX DC CL27'Hi! I can count very fasti.' BLANK DC CL80" PACKAREA DS CL8 SAVEAREA DC 18F'-1' register save area END ADD //G.PRTLINE DD DSN=&SYSUID..OUTPUT (MYOUTPUT),DISP=SHR 00890000 00900000 X00910000 00920000 00930000 00940000 00950000 00960000 00962000 00963000 00970000 00980000 00990000 01000002