DISK1 Assembly Listing

  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]

Leave a Reply

Your email address will not be published. Required fields are marked *