USING ADD,ENTRYREG establish addressibility 00270000 B SETUP branch around eyecatcher 00280000 DC CL8’ADD’

//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

find the cost of your paper

At what point must the rights of the individual be protected against the power of the state, and when must they bow to the enduring value of respected tradition?

In the Sudan, an eight-year-old girl is given by her family to a priest in a neighboring village. She is told to serve him and obey all his wishes. Someone….

based on economic system and lifestyle, but where do we stop? And, if there is no place to stop, what remains?

African philosopher Kwasi Wiredu claims that throwing the colonizing power out of your country is much easier than throwing the colonizer out of your mind. The real damage to indigenous….

Can you imagine one craftsperson capable of making all these things?

Let’s consider why dramatic poetry must be banished from our republic. We must begin with the notion of imitation or representation. A carpenter who wishes to make a bed or….