LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 17.13 11/25/11
000000 1 DISK1 START 0 00010000
000000 0000000000000800 2 STARTPSW DC X'0000000000',AL3(BEGIN) 00020000
3 * 00030000
4 * 00040000
000008 00800 5 ORG DISK1+2048 00050000
6 * 00060000
000800 05C0 7 BEGIN BALR R12,0 SET BASE REGISTER 00070000
00802 8 USING *,R12 00080000
9 * 00090000
000802 41D0 C5A2 00DA4 10 LA R13,SAVEA FIRST SAVE AREA 00100000
11 * 00110000
12 * 00120000
13 * 00130000
000806 9201 C58D 00D8F 14 MVI R,1 READ RECORD 1 00140000
15 @PRINT '------- CC=00 HH=00 R=1 --------' 00150000
00080A 4110 C48E 00C90 16+ LA R1,=C'------- CC=00 HH=00 R=1 --------' 00170000
00080E 4100 0020 00020 17+ LA R0,32 00200000
000812 41F0 C132 00934 18+ LA R15,@PRINT 00210000
000816 05EF 19+ BALR R14,R15 00220000
000818 45E0 C068 0086A 20 BAL R14,DUMPREC 00160000
21 * 00170000
22 * 00180000
23 * 00190000
00081C 9202 C58D 00D8F 24 MVI R,2 READ RECORD 2 00200000
25 @PRINT '------- CC=00 HH=00 R=2 --------' 00210000
000820 4110 C4AE 00CB0 26+ LA R1,=C'------- CC=00 HH=00 R=2 --------' 00170000
000824 4100 0020 00020 27+ LA R0,32 00200000
000828 41F0 C132 00934 28+ LA R15,@PRINT 00210000
00082C 05EF 29+ BALR R14,R15 00220000
00082E 45E0 C068 0086A 30 BAL R14,DUMPREC 00220000
31 * 00230000
32 * 00240000
33 * 00250000
000832 9203 C58D 00D8F 34 MVI R,3 READ RECORD 3 00260000
35 @PRINT '------- CC=00 HH=00 R=2 --------' 00270000
000836 4110 C4AE 00CB0 36+ LA R1,=C'------- CC=00 HH=00 R=2 --------' 00170000
00083A 4100 0020 00020 37+ LA R0,32 00200000
00083E 41F0 C132 00934 38+ LA R15,@PRINT 00210000
000842 05EF 39+ BALR R14,R15 00220000
000844 45E0 C068 0086A 40 BAL R14,DUMPREC 00280000
41 * 00290000
42 * 00300000
43 * 00310000
000848 D204 C58E C609 00D90 00E0B 44 MVC VTOCADDR,INBUF+11 SAVE VTOC ADDRESS FROM VOL RECORD 00320000 PAGE 3
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 17.13 11/25/11
45 * 00330000
46 * 00340000
00084E D204 C589 C58E 00D8B 00D90 47 MVC CCHHR(5),VTOCADDR READ FIRST VTOC RECORD 00350000
48 @PRINT '------- VTOC FMT 4 DSCB --------' 00360000
000854 4110 C4CE 00CD0 49+ LA R1,=C'------- VTOC FMT 4 DSCB --------' 00170000
000858 4100 0020 00020 50+ LA R0,32 00200000
00085C 41F0 C132 00934 51+ LA R15,@PRINT 00210000
000860 05EF 52+ BALR R14,R15 00220000
000862 45E0 C068 0086A 53 BAL R14,DUMPREC 00370000
54 * 00380000
55 * 00390000
56 * 00400000
000866 47F0 C12E 00930 57 B EXIT 00410000
58 * 00420000
59 ********************************************************************** 00430000
60 * 00440000
61 ********************************************************************** 00450000
62 * 00460000
00086A 63 DUMPREC DS 0H 00470000
00086A 50E0 C59E 00DA0 64 ST R14,DUMPRCXT SAVE RETURN ADDRESS 00480000
65 * 00490000
00086E 4110 C556 00D58 66 LA R1,CCWSEEK POINT TO CCW CHAIN 00500000
000872 5010 0048 00048 67 ST R1,72 SAVE INTO CAW 00510000
000876 4120 0345 00345 68 LA R2,X'345' DISK DEVICE ADDRESS 00520000
00087A 9C00 2000 00000 69 SIO 0(R2) START I/O 00530000
00087E 4770 C10A 0090C 70 BNZ ERR1 BRANCH IF SIO NOT ACCEPTED 00540000
71 * 00550000
000882 9D00 2000 00000 72 WAIT TIO 0(R2) WAIT FOR I/O COMPLETION 00560000
000886 4780 C090 00892 73 BZ DUMP GO DUMP RECORD 00570000
00088A 4710 C11C 0091E 74 BC 1,ERR2 BRANCH IF ERROR 00580000
00088E 47F0 C080 00882 75 B WAIT KEEP WAITING... 00590000
76 * 00600000
77 * 00610000
000892 78 DUMP DS 0H 00620000
000892 D207 C57E 0040 00D80 00040 79 MVC CSW,64 SAVE CSW FOR LATER 00630000
80 * 00640000
81 @PRINT '----- CSW ------' 00650000
000898 4110 C4EE 00CF0 82+ LA R1,=C'----- CSW ------' 00170000
00089C 4100 0010 00010 83+ LA R0,16 00200000
0008A0 41F0 C132 00934 84+ LA R15,@PRINT 00210000
0008A4 05EF 85+ BALR R14,R15 00220000
86 @DUMP CSW,10 00660000
0008A6 4110 C57E 00D80 87+ LA R1,CSW 00360000
0008AA 4100 000A 0000A 88+ LA R0,10 00360000 PAGE 4
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 17.13 11/25/11
0008AE 41F0 C1F8 009FA 89+ LA R15,@DUMP 00080000
0008B2 05EF 90+ BALR R14,R15 00090000
91 @PRINT ' ' 00670000
0008B4 4110 C4FE 00D00 92+ LA R1,=C' ' 00170000
0008B8 4100 0001 00001 93+ LA R0,1 00200000
0008BC 41F0 C132 00934 94+ LA R15,@PRINT 00210000
0008C0 05EF 95+ BALR R14,R15 00220000
96 @PRINT '-----DATA BUFFER-----' 00680000
0008C2 4110 C4FF 00D01 97+ LA R1,=C'-----DATA BUFFER-----' 00170000
0008C6 4100 0015 00015 98+ LA R0,21 00200000
0008CA 41F0 C132 00934 99+ LA R15,@PRINT 00210000
0008CE 05EF 100+ BALR R14,R15 00220000
101 * 00690000
0008D0 1F33 102 SLR R3,R3 ZERO R3 00700000
0008D2 BF33 C574 00D76 103 ICM R3,B'0011',CCWREAD+6 GET CCW DATA LENGTH 00710000
0008D6 1F11 104 SLR R1,R1 ZERO R1 00720000
0008D8 BF13 C584 00D86 105 ICM R1,B'0011',CSW+6 GET RESIDUAL LENGTH 00730000
0008DC 1B31 106 SR R3,R1 CALCULATE LENGTH READ 00740000
107 * 00750000
108 @DUMP INBUF,(R3) 00760000
0008DE 4110 C5FE 00E00 109+ LA R1,INBUF 00360000
0008E2 1803 110+ LR R0,R3 00290000
0008E4 41F0 C1F8 009FA 111+ LA R15,@DUMP 00080000
0008E8 05EF 112+ BALR R14,R15 00090000
113 * 00770000
114 @PRINT ' ' 00780000
0008EA 4110 C4FE 00D00 115+ LA R1,=C' ' 00170000
0008EE 4100 0001 00001 116+ LA R0,1 00200000
0008F2 41F0 C132 00934 117+ LA R15,@PRINT 00210000
0008F6 05EF 118+ BALR R14,R15 00220000
119 @PRINT ' ' 00790000
0008F8 4110 C4FE 00D00 120+ LA R1,=C' ' 00170000
0008FC 4100 0001 00001 121+ LA R0,1 00200000
000900 41F0 C132 00934 122+ LA R15,@PRINT 00210000
000904 05EF 123+ BALR R14,R15 00220000
124 * 00800000
000906 58E0 C59E 00DA0 125 L R14,DUMPRCXT SAVE RETURN ADDRESS 00810000
00090A 07FE 126 BR R14 RETURN TO CALLER 00820000
127 * 00830000
128 * 00840000
129 ERR1 @PRINT '*** I/O ERROR (SIO) ON DEVICE 345' 00850000
00090C 4110 C514 00D16 130+ERR1 LA R1,=C'*** I/O ERROR (SIO) ON DEVICE 345' 00170000
000910 4100 0021 00021 131+ LA R0,33 00200000
000914 41F0 C132 00934 132+ LA R15,@PRINT 00210000
PAGE 5
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 17.13 11/25/11
000918 05EF 133+ BALR R14,R15 00220000
00091A 47F0 C12E 00930 134 B EXIT 00860000
135 * 00870000
136 * 00880000
137 ERR2 @PRINT '*** I/O ERROR (TIO) ON DEVICE 345' 00890000
00091E 4110 C535 00D37 138+ERR2 LA R1,=C'*** I/O ERROR (TIO) ON DEVICE 345' 00170000
000922 4100 0021 00021 139+ LA R0,33 00200000
000926 41F0 C132 00934 140+ LA R15,@PRINT 00210000
00092A 05EF 141+ BALR R14,R15 00220000
00092C 47F0 C12E 00930 142 B EXIT 00900000
143 * 00910000
144 ********************************************************************** 00920000
145 * 00930000
000930 8200 C596 00D98 146 EXIT LPSW DONE LOAD A WAIT PSW 00940000
147 * 00950000
148 ********************************************************************** 00960000
149 * 00970000
150 PRINT NOGEN 00980000
151 @PRINT GEN=YES 00990000
182 @CARD GEN=YES 01000000
216 @DUMP GEN=YES 01010000
302 @ERR , 01020000
306 @REGS , 01030000
323 PRINT GEN 01040000
324 * 01050000
325 ********************************************************************** 01060000
326 * 01070000
000C90 327 LTORG , 01080000
000C90 6060606060606040 328 =C'------- CC=00 HH=00 R=1 --------'
000CB0 6060606060606040 329 =C'------- CC=00 HH=00 R=2 --------'
000CD0 6060606060606040 330 =C'------- VTOC FMT 4 DSCB --------'
000CF0 606060606040C3E2 331 =C'----- CSW ------'
000D00 40 332 =C' '
000D01 6060606060C4C1E3 333 =C'-----DATA BUFFER-----'
000D16 5C5C5C40C961D640 334 =C'*** I/O ERROR (SIO) ON DEVICE 345'
000D37 5C5C5C40C961D640 335 =C'*** I/O ERROR (TIO) ON DEVICE 345'
336 * 01090000
337 ********************************************************************** 01100000
338 * 01110000
000D58 339 DS 0D 01120000
000D58 07000D8940000006 340 CCWSEEK DC X'07',AL3(MBBCCHHR+1),AL1(@CCW#CC),X'00',AL2(6) 01130000
000D60 31000D8B40000005 341 CCWSRCH DC X'31',AL3(MBBCCHHR+3),AL1(@CCW#CC),X'00',AL2(5) 01140000
000D68 08000D6040000000 342 DC X'08',AL3(CCWSRCH),AL1(@CCW#CC),X'00',AL2(0) 01150000
000D70 06000E0020000800 343 CCWREAD DC X'06',AL3(INBUF),AL1(@CCW#SLI),X'00',AL2(2048) 01160000 PAGE 6
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 17.13 11/25/11
344 * 01170000
345 * 01180000
000D78 346 DS XL((((*-BEGIN+16)/16)*16)-(*-BEGIN)) 01190000
000D80 0000000000000000 347 CSW DC D'0' 01200000
348 * 01210000
349 * +0+1+2+3+4+5+6+7 01220000
350 * M B B C C H H R 01230000
351 ********** X'0000000000000001' 01240000
352 * 01250000
000D88 353 MBBCCHHR DS 0X 01260000
000D88 000000 354 MBB DC X'000000' 01270000
000D8B 355 CCHHR DS 0X 01280000
000D8B 0000 356 CC DC X'0000' 01290000
000D8D 0000 357 HH DC X'0000' 01300000
000D8F 01 358 R DC X'01' 01310000
359 * 01320000
360 * 01330000
000D90 0000000000 361 VTOCADDR DC XL5'00' ADDR OF VTOC FROM VOLUME LABEL RECORD 01340000
362 * 01350000
363 * 01360000
364 ********************************************************************** 01370000
365 * 01380000
000D98 366 DS 0D 01390000
000D98 000200000099FACE 367 DONE DC X'0002000000',X'99FACE' 01400000
368 * 01410000
000DA0 00000000 369 DUMPRCXT DC F'0' 01420000
370 * 01430000
000DA4 371 SAVEA DS 18F 01440000
372 * 01450000
000DF0 373 DS 0D 01460000
000DF0 374 DS XL((((*-BEGIN+256)/256)*256)-(*-BEGIN)) 01470000
000E00 375 INBUF DS XL2048 01480000
376 * 01490000
377 @CCW , 01500000
00080 378+@CCW#CD EQU X'80' * CHAIN DATA 00030000
00040 379+@CCW#CC EQU X'40' * COMMAND CHAIN 00040000
00020 380+@CCW#SLI EQU X'20' * SUPPRESS LENGTH INDICATION 00050000
00010 381+@CCW#SKP EQU X'10' * SKIP 00060000
00008 382+@CCW#PCI EQU X'08' * PROGRAM CONTROLLED INTERRUPT 00070000
00004 383+@CCW#IDA EQU X'04' * INDIRECT ADDRESS 00080000
384+* 00090000
385+* 00100000
000000 386+@CCW DSECT , 00110000
000000 387+@CCWCMD DS X - COMMAND CODE 00120000 PAGE 7
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 17.13 11/25/11
000001 388+@CCWDATA DS AL3 - DATA ADDRESS 00130000
000004 389+@CCWFLAG DS X - FLAGS 00140000
000005 390+ DS X - RESERVED (ZERO) 00150000
000006 391+@CCWLEN DS AL2 N - LENGTH 00160000
392+* 00170000
393 * 01510000
394 END , 01520000
[Next – DISK1 Output]