EXTERNAL SYMBOL DICTIONARY PAGE 1 SYMBOL TYPE ID ADDR LENGTH LDID ASM 0201 14.36 11/21/11 ABSTEST2 SD 0001 000000 000CC9 PAGE 2 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.36 11/21/11 000000 1 ABSTEST2 START 0 00010000 000000 0000000000000800 2 WAITPSW DC X'0000000000',AL3(BEGIN) 00020000 3 * 00030000 4 * 00040000 000008 00800 5 ORG ABSTEST2+2048 00050000 6 * 00060000 000800 05C0 7 BEGIN BALR R12,0 SET BASE REGISTER 00070000 00802 8 USING *,R12 00080000 9 * 00090000 000802 41D0 C41E 00C20 10 LA R13,SAVEA FIRST SAVE AREA 00100000 11 * 00110000 12 @PRINT 'HELLO, WORLD' PRINT "HELLO WORLD" 00120000 000806 4110 C4B6 00CB8 13+ LA R1,=C'HELLO, WORLD' 00170000 00080A 4100 000C 0000C 14+ LA R0,12 00200000 00080E 41F0 C080 00882 15+ LA R15,@PRINT 00210000 000812 05EF 16+ BALR R14,R15 00220000 17 @PRINT DASH,LEN=L'DASH PRINT A LINE OF DASHES 00130000 000814 4110 C3DE 00BE0 18+ LA R1,DASH 00360000 000818 4100 0032 00032 19+ LA R0,L'DASH 00360000 00081C 41F0 C080 00882 20+ LA R15,@PRINT 00110000 000820 05EF 21+ BALR R14,R15 00120000 22 * 00140000 000822 23 LOOP DS 0H 00150000 24 @CARD INBUF READ A CARD 00160000 000822 4110 C466 00C68 25+ LA R1,INBUF 00360000 000826 41F0 C0DE 008E0 26+ LA R15,@CARD 00080000 00082A 05EF 27+ BALR R14,R15 00090000 00082C 12FF 28 LTR R15,R15 CHECK FOR GOOD READ 00170000 00082E 4770 C042 00844 29 BNZ LOOPEND 00180000 30 @PRINT INBUF,LEN=L'INBUF PRINT THE CARD 00190000 000832 4110 C466 00C68 31+ LA R1,INBUF 00360000 000836 4100 0050 00050 32+ LA R0,L'INBUF 00360000 00083A 41F0 C080 00882 33+ LA R15,@PRINT 00110000 00083E 05EF 34+ BALR R14,R15 00120000 000840 47F0 C020 00822 35 B LOOP LOOP BACK FOR ANOTHER CARD 00200000 36 * 00210000 37 * 00220000 000844 38 LOOPEND DS 0H 00230000 39 @PRINT DASH,LEN=L'DASH PRINT A LINE OF DASHES 00240000 000844 4110 C3DE 00BE0 40+ LA R1,DASH 00360000 000848 4100 0032 00032 41+ LA R0,L'DASH 00360000 00084C 41F0 C080 00882 42+ LA R15,@PRINT 00110000 000850 05EF 43+ BALR R14,R15 00120000 44 @PRINT ' ' PRINT BLANK 00250000 PAGE 3 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.36 11/21/11 000852 4110 C4C6 00CC8 45+ LA R1,=C' ' 00170000 000856 4100 0001 00001 46+ LA R0,1 00200000 00085A 41F0 C080 00882 47+ LA R15,@PRINT 00210000 00085E 05EF 48+ BALR R14,R15 00220000 49 @PRINT ' ' LINES 00260000 000860 4110 C4C6 00CC8 50+ LA R1,=C' ' 00170000 000864 4100 0001 00001 51+ LA R0,1 00200000 000868 41F0 C080 00882 52+ LA R15,@PRINT 00210000 00086C 05EF 53+ BALR R14,R15 00220000 54 * 00270000 55 * 00280000 00086E 5850 C4C2 00CC4 56 L R5,=A(BEGIN) 00290000 57 @DUMP (R5),128 DUMP SOME STORAGE 00300000 000872 1815 58+ LR R1,R5 00290000 000874 4100 0080 00080 59+ LA R0,128 00360000 000878 41F0 C148 0094A 60+ LA R15,@DUMP 00080000 00087C 05EF 61+ BALR R14,R15 00090000 62 * 00310000 63 * 00320000 00087E 8200 C416 00C18 64 LPSW DONE LOAD A WAIT PSW 00330000 65 * 00340000 66 ********************************************************************** 00350000 67 * 00360000 68 @PRINT GEN=YES 00370000 000882 90EC D00C 0000C 69+@PRINT STM R14,R12,12(R13) SAVE CALLERS REGISTERS 00270000 000886 1821 70+ LR R2,R1 POINT TO DATA TO PRINT 00280000 000888 1830 71+ LR R3,R0 LENGTH OF DATA TO PRINT 00290000 00088A 4110 0084 00084 72+ LA R1,132 MAX LENGTH WE CAN PRINT 00300000 00088E 1931 73+ CR R3,R1 TOO BIG 00310000 000890 47D0 C094 00896 74+ BNH @001801 NO - BRANCH 00320000 000894 1831 75+ LR R3,R1 SET TO MAX 00330000 000896 76+@001801 DS 0H 00340000 000896 5020 C0D6 008D8 77+ ST R2,@001890 SAVE DATA ADDR INTO CCW 00350000 00089A 9209 C0D6 008D8 78+ MVI @001890,X'09' PRINT: SINGLE SPACE 00360000 00089E 5030 C0DA 008DC 79+ ST R3,@001890+4 SAVE LENGTH INTO CCW 00370000 0008A2 4110 C0D6 008D8 80+ LA R1,@001890 POINT TO CCW 00380000 0008A6 5010 0048 00048 81+ ST R1,72 SAVE INTO CAW 00390000 0008AA 4120 000E 0000E 82+ LA R2,X'00E' GET PRINT DEVICE ADDRESS 00400000 0008AE 9C00 2000 00000 83+ SIO 0(R2) 00410000 0008B2 4770 C0CA 008CC 84+ BNZ @001881 BRANCH IF ERROR 00420000 0008B6 85+@001802 DS 0H 00430000 0008B6 9D00 2000 00000 86+ TIO 0(R2) WAIT FOR I/O TO COMPLETE 00440000 0008BA 4780 C0C4 008C6 87+ BZ @001803 COMPLETE 00450000 0008BE 4710 C0CE 008D0 88+ BC 1,@001882 BRANCH IF ERROR 00460000 PAGE 4 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.36 11/21/11 0008C2 47F0 C0B4 008B6 89+ B @001802 LOOP BACK AND WAIT 00470000 90+* 00480000 0008C6 91+@001803 DS 0H 00490000 0008C6 98EC D00C 0000C 92+ LM R14,R12,12(R13) RESTORE REGISTERS 00500000 0008CA 07FE 93+ BR R14 00510000 94+* 00520000 0008CC 8200 C3CE 00BD0 95+@001881 LPSW @ERRPRT1 LOAD WAIT PSW 00530000 0008D0 8200 C3D6 00BD8 96+@001882 LPSW @ERRPRT2 LOAD WAIT PSW 00540000 0008D8 97+ DS 0D 00550000 0008D8 0000000000000000 98+@001890 DC X'00',AL3(0),X'00',X'00',AL2(0) CCW 00560000 99 @CARD GEN=YES 00380000 0008E0 90EC D00C 0000C 100+@CARD STM R14,R12,12(R13) SAVE CALLERS REGISTERS 00140000 0008E4 5010 C13E 00940 101+ ST R1,@001990 SAVE BUFFER ADDR INTO CCW 00150000 0008E8 9202 C13E 00940 102+ MVI @001990,X'02' READ CARD 00160000 0008EC 4120 0050 00050 103+ LA R2,80 DATA LENGTH 00170000 0008F0 5020 C142 00944 104+ ST R2,@001990+4 SAVE INTO CCW 00180000 0008F4 4120 C13E 00940 105+ LA R2,@001990 POINT TO CCW 00190000 0008F8 5020 0048 00048 106+ ST R2,72 SAVE INTO CAW 00200000 0008FC 4120 000C 0000C 107+ LA R2,X'00C' 00360000 000900 9C00 2000 00000 108+ SIO 0(R2) START I/O 00220000 000904 4770 C12C 0092E 109+ BNZ @001903 BRANCH IF ERROR 00230000 000908 110+@001901 DS 0H 00240000 000908 9D00 2000 00000 111+ TIO 0(R2) WAIT FOR I/O TO COMPLETE 00250000 00090C 4780 C116 00918 112+ BZ @001902 COMPLETE 00260000 000910 4710 C12C 0092E 113+ BC 1,@001903 ERROR 00270000 000914 47F0 C106 00908 114+ B @001901 00280000 115+* 00290000 000918 116+@001902 DS 0H 00300000 000918 41F0 0000 00000 117+ LA R15,0 SET RC 00310000 00091C D501 C146 0044 00948 00044 118+ CLC @001991,68 CHANNEL END + DEVICE END ? 00320000 000922 4780 C130 00932 119+ BE @001904 YES - RC=0 00330000 000926 41F0 0008 00008 120+ LA R15,8 RC =8 00340000 00092A 47F0 C130 00932 121+ B @001904 00350000 122+* 00360000 00092E 123+@001903 DS 0H 00370000 00092E 41F0 0008 00008 124+ LA R15,8 00380000 000932 125+@001904 DS 0H 00390000 000932 58E0 D00C 0000C 126+ L R14,12(,R13) RESTORE R14 00400000 000936 980C D014 00014 127+ LM R0,R12,20(R13) RESTORE R0-R12 00410000 00093A 07FE 128+ BR R14 RETURN TO CALLER 00420000 129+* 00430000 000940 130+ DS 0D 00440000 000940 0000000000000000 131+@001990 DC X'00',AL3(0),X'00',X'00',AL2(0) CCW 00450000 000948 0C00 132+@001991 DC X'0C00' CHANNEL END - DEVICE END 00460000 PAGE 5 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.36 11/21/11 133 @DUMP GEN=YES 00390000 00094A 90EC D00C 0000C 134+@DUMP STM R14,R12,12(R13) 00140000 00094E 41F0 C25E 00A60 135+ LA R15,@002180 NEW SAVE AREA 00150000 000952 50F0 D008 00008 136+ ST R15,8(,R13) 00160000 000956 50D0 F004 00004 137+ ST R13,4(,R15) 00170000 00095A 18DF 138+ LR R13,R15 00180000 139+* 00190000 00095C 18A1 140+ LR R10,R1 DATA ADDRESS 00200000 00095E 18B0 141+ LR R11,R0 LENGTH 00210000 000960 1ABA 142+ AR R11,R10 END ADDRESS 00220000 143+* 00230000 000962 54A0 C2B6 00AB8 144+ N R10,@002183 ALIGN 00240000 000966 145+@002101 DS 0H 00250000 000966 9240 C1DA 009DC 146+ MVI @002170,C' ' CLEAR PRINT BUFFER 00260000 00096A D282 C1DB C1DA 009DD 009DC 147+ MVC @002170+1(L'@002170-1),@002170 00270000 000970 50A0 C2A6 00AA8 148+ ST R10,@002181 ADDRESS 00280000 000974 F384 C2AA C2A6 00AAC 00AA8 149+ UNPK @002182(9),@002181(5) 00290000 00097A DC07 C2AA C2CA 00AAC 00ACC 150+ TR @002182(8),@002199-C'0' 00300000 000980 D207 C1DA C2AA 009DC 00AAC 151+ MVC @002171,@002182 00310000 152+* 00320000 000986 D20F C209 A000 00A0B 00000 153+ MVC @002174,0(R10) 00330000 00098C DC0F C209 C2BA 00A0B 00ABC 154+ TR @002174,@002198 KEEP ONLY PRINTABLE 00340000 155+* 00350000 000992 4120 C1E4 009E6 156+ LA R2,@002172 FIRST DATA AREA 00360000 000996 4130 0004 00004 157+ LA R3,4 00370000 00099A 158+@002102 DS 0H 00380000 00099A D203 C2A6 A000 00AA8 00000 159+ MVC @002181(4),0(R10) 00390000 0009A0 F384 C2AA C2A6 00AAC 00AA8 160+ UNPK @002182(9),@002181(5) 00400000 0009A6 DC07 C2AA C2CA 00AAC 00ACC 161+ TR @002182(8),@002199-C'0' 00410000 0009AC D207 2000 C2AA 00000 00AAC 162+ MVC 0(8,R2),@002182 00420000 0009B2 41A0 A004 00004 163+ LA R10,4(,R10) 00430000 0009B6 4120 2009 00009 164+ LA R2,9(,R2) 00440000 0009BA 4630 C198 0099A 165+ BCT R3,@002102 00450000 166+* 00460000 167+* 00470000 0009BE 4110 C1DA 009DC 168+ LA R1,@002170 00360000 0009C2 4100 0084 00084 169+ LA R0,132 00360000 0009C6 41F0 C080 00882 170+ LA R15,@PRINT 00110000 0009CA 05EF 171+ BALR R14,R15 00120000 172+* 00490000 173+* 00500000 0009CC 19AB 174+ CR R10,R11 STILL MORE TO DO 00510000 0009CE 4740 C164 00966 175+ BL @002101 YES - LOOP BACK 00520000 176+* 00530000 PAGE 6 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.36 11/21/11 177+* 00540000 0009D2 58D0 D004 00004 178+ L R13,4(,R13) 00550000 0009D6 98EC D00C 0000C 179+ LM R14,R12,12(R13) 00560000 0009DA 07FE 180+ BR R14 00570000 181+* 00580000 182+* 00590000 0009DC 4040404040404040 183+@002170 DC CL132' ' 00600000 000A60 009DC 184+ ORG @002170 00610000 0009DC 185+@002171 DS CL8 00620000 0009E4 186+ DS CL2 00630000 0009E6 187+@002172 DS CL8,CL1,CL8,CL1,CL8,CL1,CL8,CL2 00640000 000A0B 188+@002174 DS CL16 00650000 000A1B 00A60 189+ ORG , 00660000 190+* 00670000 000A60 0000000000000000 191+@002180 DC 18F'0' 00680000 000AA8 00000000 192+@002181 DC F'0' 00690000 000AAC F040404040404040 193+@002182 DC CL9'0' 00700000 000AB8 194+ DS 0F 00710000 000AB8 00FFFFF0 195+@002183 DC X'00FFFFF0' 00720000 196+* 00730000 197+* 00740000 000ABC 198+@002198 DS 0C 00750000 199+* 0 1 2 3 4 5 6 7 8 9 A B C D E F 00760000 000ABC 4B4B4B4B4B4B4B4B 200+ DC X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B' 00 00770000 000ACC 4B4B4B4B4B4B4B4B 201+ DC X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B' 10 00780000 000ADC 4B4B4B4B4B4B4B4B 202+ DC X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B' 20 00790000 000AEC 4B4B4B4B4B4B4B4B 203+ DC X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B' 30 00800000 000AFC 4B4B4B4B4B4B4B4B 204+ DC X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B' 40 00810000 000B0C 504B4B4B4B4B4B4B 205+ DC X'504B4B4B4B4B4B4B4B4B5A5B5C5D5E5F' 50 00820000 000B1C 60614B4B4B4B4B4B 206+ DC X'60614B4B4B4B4B4B4B4B6A6B6C6D6E6F' 60 00830000 000B2C 4B4B4B4B4B4B4B4B 207+ DC X'4B4B4B4B4B4B4B4B4B4B7A7B7C7D7E7F' 70 00840000 000B3C 4BC1C2C3C4C5C6C7 208+ DC X'4BC1C2C3C4C5C6C7C8C94B4B4B4B4B4B' 80 00850000 000B4C 4BD1D2D3D4D5D6D7 209+ DC X'4BD1D2D3D4D5D6D7D8D94B4B4B4B4B4B' 90 00860000 000B5C 4B4BE2E3E4E5E6E7 210+ DC X'4B4BE2E3E4E5E6E7E8E94B4B4B4B4B4B' A0 00870000 000B6C 4B4B4B4B4B4B4B4B 211+ DC X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B' B0 00880000 000B7C 4BC1C2C3C4C5C6C7 212+ DC X'4BC1C2C3C4C5C6C7C8C94B4B4B4B4B4B' C0 00890000 000B8C 4BD1D2D3D4D5D6D7 213+ DC X'4BD1D2D3D4D5D6D7D8D94B4B4B4B4B4B' D0 00900000 000B9C 4B4BE2E3E4E5E6E7 214+ DC X'4B4BE2E3E4E5E6E7E8E94B4B4B4B4B4B' E0 00910000 000BAC F0F1F2F3F4F5F6F7 215+ DC X'F0F1F2F3F4F5F6F7F8F94B4B4B4B4B4B' F0 00920000 216+* 00930000 217+* 00940000 000BBC F0F1F2F3F4F5F6F7 218+@002199 DC C'0123456789ABCDEF' 00950000 219 @ERR , 00400000 000BD0 220+ DS 0D 00030000 PAGE 7 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.36 11/21/11 000BD0 0002000000BE0001 221+@ERRPRT1 DC X'0002000000',X'BE0001' 00040000 000BD8 0002000000BE0002 222+@ERRPRT2 DC X'0002000000',X'BE0002' 00050000 223 @REGS , 00410000 00000 224+R0 EQU 0 00030000 00001 225+R1 EQU 1 00040000 00002 226+R2 EQU 2 00050000 00003 227+R3 EQU 3 00060000 00004 228+R4 EQU 4 00070000 00005 229+R5 EQU 5 00080000 00006 230+R6 EQU 6 00090000 00007 231+R7 EQU 7 00100000 00008 232+R8 EQU 8 00110000 00009 233+R9 EQU 9 00120000 0000A 234+R10 EQU 10 00130000 0000B 235+R11 EQU 11 00140000 0000C 236+R12 EQU 12 00150000 0000D 237+R13 EQU 13 00160000 0000E 238+R14 EQU 14 00170000 0000F 239+R15 EQU 15 00180000 240 * 00420000 241 ********************************************************************** 00430000 242 * 00440000 000BE0 6060606060606060 243 DASH DC C'--------------------------------------------------' 00450000 244 * 00460000 245 * 00470000 000C18 246 DS 0D 00480000 000C18 000200000099FACE 247 DONE DC X'0002000000',X'99FACE' 00490000 248 * 00500000 000C20 249 SAVEA DS 18F 00510000 250 * 00520000 000C68 251 INBUF DS CL80 00530000 252 * 00540000 253 END , 00550000 000CB8 C8C5D3D3D66B40E6 254 =C'HELLO, WORLD' 000CC4 00000800 255 =A(BEGIN) 000CC8 40 256 =C' ' RELOCATION DICTIONARY PAGE 8 POS.ID REL.ID FLAGS ADDRESS ASM 0201 14.36 11/21/11 0001 0001 08 000005 0001 0001 0C 000CC4 CROSS-REFERENCE PAGE 9 SYMBOL LEN VALUE DEFN REFERENCES ASM 0201 14.36 11/21/11 @CARD 00004 000008E0 00100 00026 @DUMP 00004 0000094A 00134 00060 @ERRPRT1 00005 00000BD0 00221 00095 @ERRPRT2 00005 00000BD8 00222 00096 @PRINT 00004 00000882 00069 00015 00020 00033 00042 00047 00052 00170 @001801 00002 00000896 00076 00074 @001802 00002 000008B6 00085 00089 @001803 00002 000008C6 00091 00087 @001881 00004 000008CC 00095 00084 @001882 00004 000008D0 00096 00088 @001890 00001 000008D8 00098 00077 00078 00079 00080 @001901 00002 00000908 00110 00114 @001902 00002 00000918 00116 00112 @001903 00002 0000092E 00123 00109 00113 @001904 00002 00000932 00125 00119 00121 @001990 00001 00000940 00131 00101 00102 00104 00105 @001991 00002 00000948 00132 00118 @002101 00002 00000966 00145 00175 @002102 00002 0000099A 00158 00165 @002170 00132 000009DC 00183 00146 00147 00147 00147 00168 00184 @002171 00008 000009DC 00185 00151 @002172 00008 000009E6 00187 00156 @002174 00016 00000A0B 00188 00153 00154 @002180 00004 00000A60 00191 00135 @002181 00004 00000AA8 00192 00148 00149 00159 00160 @002182 00009 00000AAC 00193 00149 00150 00151 00160 00161 00162 @002183 00004 00000AB8 00195 00144 @002198 00001 00000ABC 00198 00154 @002199 00016 00000BBC 00218 00150 00161 ABSTEST2 00001 00000000 00001 00005 BEGIN 00002 00000800 00007 00002 00255 DASH 00050 00000BE0 00243 00018 00019 00040 00041 DONE 00005 00000C18 00247 00064 INBUF 00080 00000C68 00251 00025 00031 00032 LOOP 00002 00000822 00023 00035 LOOPEND 00002 00000844 00038 00029 R0 00001 00000000 00224 00014 00019 00032 00041 00046 00051 00059 00071 00127 00141 00169 R1 00001 00000001 00225 00013 00018 00025 00031 00040 00045 00050 00058 00070 00072 00073 00075 00080 00081 00101 00140 00168 R10 00001 0000000A 00234 00140 00142 00144 00148 00153 00159 00163 00163 00174 R11 00001 0000000B 00235 00141 00142 00174 R12 00001 0000000C 00236 00007 00008 00069 00092 00100 00127 00134 00179 R13 00001 0000000D 00237 00010 00069 00092 00100 00126 00127 00134 00136 00137 00138 00178 00178 00179 R14 00001 0000000E 00238 00016 00021 00027 00034 00043 00048 00053 00061 00069 00092 00093 00100 00126 00128 00134 CROSS-REFERENCE PAGE 10 SYMBOL LEN VALUE DEFN REFERENCES ASM 0201 14.36 11/21/11 00171 00179 00180 R15 00001 0000000F 00239 00015 00016 00020 00021 00026 00027 00028 00028 00033 00034 00042 00043 00047 00048 00052 00053 00060 00061 00117 00120 00124 00135 00136 00137 00138 00170 00171 R2 00001 00000002 00226 00070 00077 00082 00083 00086 00103 00104 00105 00106 00107 00108 00111 00156 00162 00164 00164 R3 00001 00000003 00227 00071 00073 00075 00079 00157 00165 R5 00001 00000005 00229 00056 00058 SAVEA 00004 00000C20 00249 00010 LITERAL CROSS-REFERENCE PAGE 11 SYMBOL LEN VALUE DEFN REFERENCES ASM 0201 14.36 11/21/11 =C'HELLO, WORLD' 00012 00000CB8 00254 00013 =A(BEGIN) 00004 00000CC4 00255 00056 =C' ' 00001 00000CC8 00256 00045 00050 ASSEMBLER DIAGNOSTICS AND STATISTICS PAGE 12 ASM 0201 14.36 11/21/11 NO STATEMENTS FLAGGED IN THIS ASSEMBLY HIGHEST SEVERITY WAS 0 OPTIONS FOR THIS ASSEMBLY ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(44), LIST, NOMCALL, YFLAG, WORKSIZE(2097152) NOMLOGIC, NONUMBER, NOOBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT) SYSPARM() WORK FILE BUFFER SIZE/NUMBER =19066/ 1 TOTAL RECORDS READ FROM SYSTEM INPUT 55 TOTAL RECORDS READ FROM SYSTEM LIBRARY 271 TOTAL RECORDS PUNCHED 26 TOTAL RECORDS PRINTED 352
[Next – ABSTEST2 JCL]