Listing | Stmt # | Label | Instruction | Operands | Comment | 72 | Reference |
Active Usings: None |
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2008/11/14 22.24 |
000000 00000 001D8 | 2 | ADD | CSECT |   |   |   |   |
*** Referred in ADD ADD ADD COUNTER |
  | 3 | ADD | AMODE | 31 |   |   |   |
*** Referred in ADD ADD ADD COUNTER |
  | 4 | ADD | RMODE | 24 |   |   |   |
*** Referred in ADD ADD ADD COUNTER |
  | 5 | * |   |   |
  | 6 | *--------------------------------------------------------------------* |   |   |
  | 7 | *                                                                    * |   |   |
  | 8 | *        register equates                                            * |   |   |
  | 9 | *                                                                    * |   |   |
  | 10 | *--------------------------------------------------------------------* |   |   |
  | 11 | * |   |   |
00000 | 12 | R0 | EQU | 0 | register 0 |   |   |
*** Referred in ADD |
00001 | 13 | R1 | EQU | 1 | register 1 |   |   |
*** Referred in ADD |
00002 | 14 | R2 | EQU | 2 | register 2 |   |   |
*** Referred in ADD |
00003 | 15 | R3 | EQU | 3 | register 3 |   |   |
*** Referred in ADD |
00004 | 16 | R4 | EQU | 4 | register 4 |   |   |
*** Referred in ADD |
00005 | 17 | R5 | EQU | 5 | register 5 |   |   |
*** Referred in ADD |
00006 | 18 | R6 | EQU | 6 | register 6 |   |   |
*** Referred in ADD |
00007 | 19 | R7 | EQU | 7 | register 7 |   |   |
*** Referred in ADD |
00008 | 20 | R8 | EQU | 8 | register 8 |   |   |
*** Referred in ADD |
00009 | 21 | R9 | EQU | 9 | register 9 |   |   |
*** Referred in ADD |
0000A | 22 | R10 | EQU | 10 | register 10 |   |   |
*** Referred in ADD |
0000B | 23 | R11 | EQU | 11 | register 11 |   |   |
*** Referred in ADD |
0000C | 24 | BASEREG | EQU | 12 | base register |   |   |
*** Referred in ADD SETUP EXIT |
0000D | 25 | SAVEREG | EQU | 13 | save area register |   |   |
*** Referred in ADD SETUP EXIT |
0000E | 26 | RETREG | EQU | 14 | caller's return address |   |   |
*** Referred in ADD EXIT |
0000F | 27 | ENTRYREG | EQU | 15 | entry address |   |   |
*** Referred in ADD SETUP |
0000F | 28 | RETCODE | EQU | 15 | return 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 |   | USING | ADD,ENTRYREG | establish addressibility |   |   |
000000 47F0 F014 00014 | 39 |   | B | SETUP | branch around eyecatcher |   |   |
000004 C1C4C44040404040 | 40 |   | DC | CL8'ADD' | program name |   |   |
  | 41 |   | DC | CL8'&SYSDATE' | program assembled date |   |   |
00000C F1F161F1F461F0F8 | + |   | DC | CL8'11/14/08' | program assembled date |   |   |
000014 90EC D00C 0000C | 42 | SETUP | STM | RETREG,BASEREG,12(SAVEREG) | save caller's registers |   |   |
*** Referred in ADD |
000018 05C0 | 43 |   | BALR | BASEREG,R0 | establish base register |   |   |
  | 44 |   | DROP | ENTRYREG | drop initial base register |   |   |
R:C 0001A | 45 |   | USING | *,BASEREG | establish addressibilty |   |   |
00001A 41F0 C172 0018C | 46 |   | LA | ENTRYREG,SAVEAREA | point to this program save area |   |   |
00001E 50D0 F004 00004 | 47 |   | ST | SAVEREG,4(,ENTRYREG) | save address of caller's save |   |   |
  | 48 | *                                          area |   |   |
000022 50F0 D008 00008 | 49 |   | ST | ENTRYREG,8(,SAVEREG) | save address of this program |   |   |
  | 50 | *                                          save area |   |   |
000026 18DF | 51 |   | LR | SAVEREG,ENTRYREG | point 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 | LOOPINIT | DS | 0H |   |   |   |
*** Referred in SETUP |
  | 60 |   | OPEN | (PRTLINE,OUTPUT) |   |   |   |
000028 | 61+ |   | CNOP | 0,4 | ALIGN LIST TO FULLWORD |   | 01-OPEN |
000028 4510 C016 00030 | 62+ |   | BAL | 1,*+8 | LOAD REG1 W/LIST ADDR. @L2A |   | 01-OPEN |
00002C 8F | 63+ |   | DC | AL1(143) | OPTION BYTE |   | 01-OPEN |
00002D 000120 | 64+ |   | DC | AL3(PRTLINE) | DCB ADDRESS |   | 01-OPEN |
000030 0A13 | 65+ |   | SVC | 19 | ISSUE OPEN SVC |   | 01-OPEN |
000032 D24C C0B4 C066 000CE 00080 | 66 |   | MVC | LINE+1(77),STATLIN |   |   |   |
000038 5820 C1BA 001D4 | 67 |   | L | R2,COUNTER |   |   |   |
  | 68 | * |   |   |
00003C | 69 | LOOP | DS | 0H |   |   |   |
*** Referred in WERS(ASM010) |
  | 70 | * |   |   |
00003C DE05 C16B C168 00185 00182 | 71 |   | ED | OUT,TOT |   |   |   |
000042 D205 C100 C16B 0011A 00185 | 72 |   | MVC | LINE+77(6),OUT |   |   |   |
  | 73 |   | PUT | PRTLINE,LINE |   |   |   |
000048 4110 C106 00120 | 75+ |   | LA | 1,PRTLINE | LOAD PARAMETER REG 1 |   | 02-IHBIN |
00004C 4100 C0B3 000CD | 76+ |   | LA | 0,LINE | LOAD PARAMETER REG 0 |   | 02-IHBIN |
000050 1FFF | 77+ |   | SLR | 15,15 | CLEAR REGISTER @L1A |   | 01-PUT |
000052 BFF7 1031 00031 | 78+ |   | ICM | 15,7,49(1) | LOAD PUT ROUTINE ADDR @L1C |   | 01-PUT |
000056 05EF | 79+ |   | BALR | 14,15 | LINK TO PUT ROUTINE |   | 01-PUT |
000058 0000 0000 0000 00000 00000 | 80 |   | MVC | OUT,X'402020202020' |   |   |   |
** ASMA146E Self-defining term too | long | or | value | too | large - X'402020202020' |   |   |
*** Referred in LOOP |
** ASMA435I Record 69 in ZCON039.Z | OS.ANS | WERS(ASM010) | on | volume: | SHAR0A |   |   |
*** Referred in or |
00005E FA21 C168 C166 00182 00180 | 81 |   | AP | TOT,ONE |   |   |   |
  | 82 | * |   |   |
000064 4620 C022 0003C | 83 |   | BCT | 2,LOOP |   |   |   |
  | 84 | * |   |   |
  | 85 |   | CLOSE | (PRTLINE) |   |   |   |
000068 | 86+ |   | CNOP | 0,4 | ALIGN LIST TO FULLWORD |   | 01-CLOSE |
000068 4510 C056 00070 | 87+ |   | BAL | 1,*+8 | LOAD REG1 W/LIST ADDR. @L2A |   | 01-CLOSE |
00006C 80 | 88+ |   | DC | AL1(128) | OPTION BYTE |   | 01-CLOSE |
00006D 000120 | 89+ |   | DC | AL3(PRTLINE) | DCB ADDRESS |   | 01-CLOSE |
000070 0A14 | 90+ |   | SVC | 20 | ISSUE CLOSE SVC |   | 01-CLOSE |
  | 91 | * |   |   |
  | 92 | *--------------------------------------------------------------------* |   |   |
  | 93 | *                                                                    * |   |   |
  | 94 | *        standard exit -  restore caller's registers and             * |   |   |
  | 95 | *        return to caller                                            * |   |   |
  | 96 | *                                                                    * |   |   |
  | 97 | *--------------------------------------------------------------------* |   |   |
  | 98 | * |   |   |
000072 | 99 | EXIT | DS | 0H | halfword boundary alignment |   |   |
*** Not referred anywhere |
000072 58D0 D004 00004 | 100 |   | L | SAVEREG,4(,SAVEREG) | restore caller's save area addr |   |   |
000076 58E0 D00C 0000C | 101 |   | L | RETREG,12(,SAVEREG) | restore return address register |   |   |
00007A 980C D014 00014 | 102 |   | LM | R0,BASEREG,20(SAVEREG) | restore all regs. except reg15 |   |   |
00007E 07FE | 103 |   | BR | RETREG | return 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 | STATLIN | DS | 0CL77 |   |   |   |
*** Referred in LOOPINIT |
000080 E6C5D3C3D6D4C540 | 114 |   | DC | C'WELCOME TO THE MAINFRAME CHALLENGE!! ' |   |   |   |
0000A5 E3C8C9E240C9E240 | 115 |   | DC | C'THIS IS THE CONTENT OF YOUR TOT COUNTER ' |   |   |   |
  | 116 | * |   |   |
0000CD | 117 | LINE | DS | 0CL81 |   |   |   |
*** Referred in LOOPINIT LOOP |
0000CD 40 | 118 |   | DC | C' ' |   |   |   |
0000CE | 119 |   | DS | CL80 |   |   |   |
  | 120 | PRTLINE | DCB | DSORG=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+ | PRTLINE | DC | 0F'0' | ORIGIN ON WORD BOUNDARY |   | 01-DCB |
*** Referred in LOOPINIT LOOP WERS(ASM010) LINE PRTLINE |
  | 126+ | *                       DIRECT ACCESS DEVICE INTERFACE |   |   |
000120 0000000000000000 | 127+ |   | DC | BL16'0' | FDAD, DVTBL |   | 01-DCB |
000130 00000000 | 128+ |   | DC | A(0) | KEYLEN, DEVT, TRBAL |   | 01-DCB |
  | 129+ | *                       COMMON ACCESS METHOD INTERFACE |   |   |
000134 00 | 130+ |   | DC | AL1(0) | BUFNO, NUMBER OF BUFFERS |   | 01-DCB |
000135 000001 | 131+ |   | DC | AL3(1) | BUFCB, BUFFER POOL CONTROL BLOCK |   | 01-DCB |
000138 0000 | 132+ |   | DC | AL2(0) | BUFL, BUFFER LENGTH |   | 01-DCB |
00013A 4000 | 133+ |   | DC | BL2'0100000000000000' | DSORG, DATA SET ORGANIZATION |   | 01-DCB |
00013C 00000001 | 134+ |   | DC | A(1) | IOBAD FOR EXCP OR RESERVED |   | 01-DCB |
  | 135+ | *                       FOUNDATION EXTENSION |   |   |
000140 00 | 136+ |   | DC | BL1'00000000' | BFTEK, BFALN, DCBE INDICATORS |   | 01-DCB |
000141 000001 | 137+ |   | DC | AL3(1) | EODAD (END OF DATA ROUTINE ADDRESS) |   | 01-DCB |
000144 84 | 138+ |   | DC | BL1'10000100' | RECFM (RECORD FORMAT) |   | 01-DCB |
000145 000000 | 139+ |   | DC | AL3(0) | EXLST (EXIT LIST ADDRESS) |   | 01-DCB |
  | 140+ | *                       FOUNDATION BLOCK |   |   |
000148 D7D9E3D3C9D5C540 | 141+ |   | DC | CL8'PRTLINE' | DDNAME |   | 01-DCB |
000150 02 | 142+ |   | DC | BL1'00000010' | OFLGS (OPEN FLAGS) |   | 01-DCB |
000151 00 | 143+ |   | DC | BL1'00000000' | IFLGS (IOS FLAGS) |   | 01-DCB |
000152 0050 | 144+ |   | DC | BL2'0000000001010000' | MACR (MACRO FORMAT) |   | 01-DCB |
  | 145+ | *                       BSAM-BPAM-QSAM INTERFACE |   |   |
000154 00 | 146+ |   | DC | BL1'00000000' | OPTCD, OPTION CODES |   | 01-DCB |
000155 000001 | 147+ |   | DC | AL3(1) | CHECK OR INTERNAL QSAM SYNCHRONIZING RTN. |   | 01-DCB |
000158 00000001 | 148+ |   | DC | A(1) | SYNAD, SYNCHRONOUS ERROR RTN. (3 BYTES) |   | 01-DCB |
00015C 0000 | 149+ |   | DC | H'0' | INTERNAL ACCESS METHOD FLAGS |   | 01-DCB |
00015E 0053 | 150+ |   | DC | AL2(83) | BLKSIZE, BLOCK SIZE |   | 01-DCB |
000160 00000000 | 151+ |   | DC | F'0' | INTERNAL ACCESS METHOD FLAGS |   | 01-DCB |
000164 00000001 | 152+ |   | DC | A(1) | INTERNAL ACCESS METHOD USE |   | 01-DCB |
  | 153+ | *                            QSAM INTERFACE |   |   |
000168 00000001 | 154+ |   | DC | A(1) | EOBAD |   | 01-DCB |
00016C 00000001 | 155+ |   | DC | A(1) | RECAD |   | 01-DCB |
000170 0000 | 156+ |   | DC | H'0' | QSWS (FLAGS) AND EITHER DIRCT OR BUFOFF |   | 01-DCB |
000172 0053 | 157+ |   | DC | AL2(83) | LRECL |   | 01-DCB |
000174 00 | 158+ |   | DC | BL1'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+ |   | DC | AL3(1) | CNTRL |   | 01-DCB |
000178 00000000 | 160+ |   | DC | H'0,0' | RESERVED AND PRECL |   | 01-DCB |
00017C 00000001 | 161+ |   | DC | A(1) | EOB, INTERNAL ACCESS METHOD FIELD |   | 01-DCB |
000180 001C | 162 | ONE | DC | P'01' |   |   |   |
*** Referred in WERS(ASM010) |
000182 01000C | 163 | TOT | DC | PL3'1000' |   |   |   |
*** Referred in LOOP WERS(ASM010) |
000185 402020202020 | 164 | OUT | DC | X'402020202020' |   |   |   |
*** Referred in LOOP |
00018B 00 |   |   |   |   |   |   |   |
00018C FFFFFFFFFFFFFFFF | 165 | SAVEAREA | DC | 18F'-1' | register save area |   |   |
*** Referred in SETUP |
0001D4 00002329 | 166 | COUNTER | DC | F'9001' |   |   |   |
*** Referred in LOOPINIT |
000000 | 167 |   | END | ADD |   |   |   |
  |