ListingStmt #LabelInstructionOperandsComment72Reference
Active Usings: None
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2008/11/14 22.24
000000 00000 001D8 2 ADDCSECT    
*** Referred in ADD ADD ADD COUNTER
  3 ADDAMODE31   
*** Referred in ADD ADD ADD COUNTER
  4 ADDRMODE24   
*** Referred in ADD ADD ADD COUNTER
  5 *  
  6 *--------------------------------------------------------------------*  
  7 *                                                                    *  
  8 *        register equates                                            *  
  9 *                                                                    *  
  10 *--------------------------------------------------------------------*  
  11 *  
00000 12 R0EQU0register 0  
*** Referred in ADD
00001 13 R1EQU1register 1  
*** Referred in ADD
00002 14 R2EQU2register 2  
*** Referred in ADD
00003 15 R3EQU3register 3  
*** Referred in ADD
00004 16 R4EQU4register 4  
*** Referred in ADD
00005 17 R5EQU5register 5  
*** Referred in ADD
00006 18 R6EQU6register 6  
*** Referred in ADD
00007 19 R7EQU7register 7  
*** Referred in ADD
00008 20 R8EQU8register 8  
*** Referred in ADD
00009 21 R9EQU9register 9  
*** Referred in ADD
0000A 22 R10EQU10register 10  
*** Referred in ADD
0000B 23 R11EQU11register 11  
*** Referred in ADD
0000C 24 BASEREGEQU12base register  
*** Referred in ADD SETUP EXIT
0000D 25 SAVEREGEQU13save area register  
*** Referred in ADD SETUP EXIT
0000E 26 RETREGEQU14caller's return address  
*** Referred in ADD EXIT
0000F 27 ENTRYREGEQU15entry address  
*** Referred in ADD SETUP
0000F 28 RETCODEEQU15return code  
*** Referred in ADD
ADD contest program Page 4
Active Usings: None
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2008/11/14 22.24
  30 *  
  31 *--------------------------------------------------------------------*  
  32 *                                                                    *  
  33 *        standard entry setup, save area chaining, establish         *  
  34 *        base register and addressibility                            *  
  35 *                                                                    *  
  36 *--------------------------------------------------------------------*  
  37 *  
R:F 00000 38  USINGADD,ENTRYREGestablish addressibility  
000000 47F0 F014 00014 39  BSETUPbranch around eyecatcher  
000004 C1C4C44040404040 40  DCCL8'ADD'program name  
  41  DCCL8'&SYSDATE'program assembled date  
00000C F1F161F1F461F0F8 + DCCL8'11/14/08'program assembled date  
000014 90EC D00C 0000C 42 SETUPSTMRETREG,BASEREG,12(SAVEREG)save caller's registers  
*** Referred in ADD
000018 05C0 43  BALRBASEREG,R0establish base register  
  44  DROPENTRYREGdrop initial base register  
R:C 0001A 45  USING*,BASEREGestablish addressibilty  
00001A 41F0 C172 0018C 46  LAENTRYREG,SAVEAREApoint to this program save area  
00001E 50D0 F004 00004 47  STSAVEREG,4(,ENTRYREG)save address of caller's save  
  48 *                                          area  
000022 50F0 D008 00008 49  STENTRYREG,8(,SAVEREG)save address of this program  
  50 *                                          save area  
000026 18DF 51  LRSAVEREG,ENTRYREGpoint to this program savearea  
ADD contest program Page 5
Active Usings: ADD+X'1A',R12
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2008/11/14 22.24
  53 *  
  54 *--------------------------------------------------------------------*  
  55 *                                                                    *  
  56 *        program body                                                *  
  57 *                                                                    *  
  58 *--------------------------------------------------------------------*  
000028 59 LOOPINITDS0H   
*** Referred in SETUP
  60  OPEN(PRTLINE,OUTPUT)   
000028 61+ CNOP0,4ALIGN LIST TO FULLWORD 01-OPEN
000028 4510 C016 00030 62+ BAL1,*+8LOAD REG1 W/LIST ADDR. @L2A 01-OPEN
00002C 8F 63+ DCAL1(143)OPTION BYTE 01-OPEN
00002D 000120 64+ DCAL3(PRTLINE)DCB ADDRESS 01-OPEN
000030 0A13 65+ SVC19ISSUE OPEN SVC 01-OPEN
000032 D24C C0B4 C066 000CE 00080 66  MVCLINE+1(77),STATLIN   
000038 5820 C1BA 001D4 67  LR2,COUNTER   
  68 *  
00003C 69 LOOPDS0H   
*** Referred in WERS(ASM010)
  70 *  
00003C DE05 C16B C168 00185 00182 71  EDOUT,TOT   
000042 D205 C100 C16B 0011A 00185 72  MVCLINE+77(6),OUT   
  73  PUTPRTLINE,LINE   
000048 4110 C106 00120 75+ LA1,PRTLINELOAD PARAMETER REG 1 02-IHBIN
00004C 4100 C0B3 000CD 76+ LA0,LINELOAD PARAMETER REG 0 02-IHBIN
000050 1FFF 77+ SLR15,15CLEAR REGISTER @L1A 01-PUT
000052 BFF7 1031 00031 78+ ICM15,7,49(1)LOAD PUT ROUTINE ADDR @L1C 01-PUT
000056 05EF 79+ BALR14,15LINK TO PUT ROUTINE 01-PUT
000058 0000 0000 0000 00000 00000 80  MVCOUT,X'402020202020'   
** ASMA146E Self-defining term too long orvaluetoolarge - X'402020202020'  
*** Referred in LOOP
** ASMA435I Record 69 in ZCON039.ZOS.ANSWERS(ASM010)onvolume:SHAR0A  
*** Referred in or
00005E FA21 C168 C166 00182 00180 81  APTOT,ONE   
  82 *  
000064 4620 C022 0003C 83  BCT2,LOOP   
  84 *  
  85  CLOSE(PRTLINE)   
000068 86+ CNOP0,4ALIGN LIST TO FULLWORD 01-CLOSE
000068 4510 C056 00070 87+ BAL1,*+8LOAD REG1 W/LIST ADDR. @L2A 01-CLOSE
00006C 80 88+ DCAL1(128)OPTION BYTE 01-CLOSE
00006D 000120 89+ DCAL3(PRTLINE)DCB ADDRESS 01-CLOSE
000070 0A14 90+ SVC20ISSUE CLOSE SVC 01-CLOSE
  91 *  
  92 *--------------------------------------------------------------------*  
  93 *                                                                    *  
  94 *        standard exit -  restore caller's registers and             *  
  95 *        return to caller                                            *  
  96 *                                                                    *  
  97 *--------------------------------------------------------------------*  
  98 *  
000072 99 EXITDS0Hhalfword boundary alignment  
*** Not referred anywhere
000072 58D0 D004 00004 100  LSAVEREG,4(,SAVEREG)restore caller's save area addr  
000076 58E0 D00C 0000C 101  LRETREG,12(,SAVEREG)restore return address register  
00007A 980C D014 00014 102  LMR0,BASEREG,20(SAVEREG)restore all regs. except reg15  
00007E 07FE 103  BRRETREGreturn to caller  
ADD contest program Page 6
Active Usings: ADD+X'1A',R12
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2008/11/14 22.24
  105 *  
  106 *--------------------------------------------------------------------*  
  107 *                                                                    *  
  108 *        storage and constant definitions.                           *  
  109 *        print output definition.                                    *  
  110 *                                                                    *  
  111 *--------------------------------------------------------------------*  
  112 *  
000080 113 STATLINDS0CL77   
*** Referred in LOOPINIT
000080 E6C5D3C3D6D4C540 114  DCC'WELCOME TO THE MAINFRAME CHALLENGE!! '   
0000A5 E3C8C9E240C9E240 115  DCC'THIS IS THE CONTENT OF YOUR TOT COUNTER '   
  116 *  
0000CD 117 LINEDS0CL81   
*** Referred in LOOPINIT LOOP
0000CD 40 118  DCC' '   
0000CE 119  DSCL80   
  120 PRTLINEDCBDSORG=PS,DDNAME=PRTLINE,MACRF=PM, X 
*** Referred in LOOPINIT LOOP WERS(ASM010) LINE PRTLINE
   RECFM=FA,LRECL=83,BLKSIZE=83    
  123+*                       DATA CONTROL BLOCK  
  124+*  
00011E 0000       
000120 125+PRTLINEDC0F'0'ORIGIN ON WORD BOUNDARY 01-DCB
*** Referred in LOOPINIT LOOP WERS(ASM010) LINE PRTLINE
  126+*                       DIRECT ACCESS DEVICE INTERFACE  
000120 0000000000000000 127+ DCBL16'0'FDAD, DVTBL 01-DCB
000130 00000000 128+ DCA(0)KEYLEN, DEVT, TRBAL 01-DCB
  129+*                       COMMON ACCESS METHOD INTERFACE  
000134 00 130+ DCAL1(0)BUFNO, NUMBER OF BUFFERS 01-DCB
000135 000001 131+ DCAL3(1)BUFCB, BUFFER POOL CONTROL BLOCK 01-DCB
000138 0000 132+ DCAL2(0)BUFL, BUFFER LENGTH 01-DCB
00013A 4000 133+ DCBL2'0100000000000000'DSORG, DATA SET ORGANIZATION 01-DCB
00013C 00000001 134+ DCA(1)IOBAD FOR EXCP OR RESERVED 01-DCB
  135+*                       FOUNDATION EXTENSION  
000140 00 136+ DCBL1'00000000'BFTEK, BFALN, DCBE INDICATORS 01-DCB
000141 000001 137+ DCAL3(1)EODAD (END OF DATA ROUTINE ADDRESS) 01-DCB
000144 84 138+ DCBL1'10000100'RECFM (RECORD FORMAT) 01-DCB
000145 000000 139+ DCAL3(0)EXLST (EXIT LIST ADDRESS) 01-DCB
  140+*                       FOUNDATION BLOCK  
000148 D7D9E3D3C9D5C540 141+ DCCL8'PRTLINE'DDNAME 01-DCB
000150 02 142+ DCBL1'00000010'OFLGS (OPEN FLAGS) 01-DCB
000151 00 143+ DCBL1'00000000'IFLGS (IOS FLAGS) 01-DCB
000152 0050 144+ DCBL2'0000000001010000'MACR (MACRO FORMAT) 01-DCB
  145+*                       BSAM-BPAM-QSAM INTERFACE  
000154 00 146+ DCBL1'00000000'OPTCD, OPTION CODES 01-DCB
000155 000001 147+ DCAL3(1)CHECK OR INTERNAL QSAM SYNCHRONIZING RTN. 01-DCB
000158 00000001 148+ DCA(1)SYNAD, SYNCHRONOUS ERROR RTN. (3 BYTES) 01-DCB
00015C 0000 149+ DCH'0'INTERNAL ACCESS METHOD FLAGS 01-DCB
00015E 0053 150+ DCAL2(83)BLKSIZE, BLOCK SIZE 01-DCB
000160 00000000 151+ DCF'0'INTERNAL ACCESS METHOD FLAGS 01-DCB
000164 00000001 152+ DCA(1)INTERNAL ACCESS METHOD USE 01-DCB
  153+*                            QSAM INTERFACE  
000168 00000001 154+ DCA(1)EOBAD 01-DCB
00016C 00000001 155+ DCA(1)RECAD 01-DCB
000170 0000 156+ DCH'0'QSWS (FLAGS) AND EITHER DIRCT OR BUFOFF 01-DCB
000172 0053 157+ DCAL2(83)LRECL 01-DCB
000174 00 158+ DCBL1'00000000'EROPT, ERROR OPTION 01-DCB
ADD contest program Page 7
Active Usings: ADD+X'1A',R12
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2008/11/14 22.24
000175 000001 159+ DCAL3(1)CNTRL 01-DCB
000178 00000000 160+ DCH'0,0'RESERVED AND PRECL 01-DCB
00017C 00000001 161+ DCA(1)EOB, INTERNAL ACCESS METHOD FIELD 01-DCB
000180 001C 162 ONEDCP'01'   
*** Referred in WERS(ASM010)
000182 01000C 163 TOTDCPL3'1000'   
*** Referred in LOOP WERS(ASM010)
000185 402020202020 164 OUTDCX'402020202020'   
*** Referred in LOOP
00018B 00       
00018C FFFFFFFFFFFFFFFF 165 SAVEAREADC18F'-1'register save area  
*** Referred in SETUP
0001D4 00002329 166 COUNTERDCF'9001'   
*** Referred in LOOPINIT
000000 167  ENDADD