{"id":197,"date":"2011-11-28T17:59:14","date_gmt":"2011-11-28T23:59:14","guid":{"rendered":"http:\/\/tommysprinkle.com\/txxos\/?p=197"},"modified":"2021-04-17T18:26:54","modified_gmt":"2021-04-17T23:26:54","slug":"disk1-assembly-listing","status":"publish","type":"post","link":"https:\/\/tommysprinkle.com\/txxos\/?p=197","title":{"rendered":"DISK1 Assembly Listing"},"content":{"rendered":"<pre>  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.13 11\/25\/11\r\n\r\n000000                                1 DISK1    START 0                                                        00010000\r\n000000 0000000000000800               2 STARTPSW DC    X'0000000000',AL3(BEGIN)                                 00020000\r\n                                      3 *                                                                       00030000\r\n                                      4 *                                                                       00040000\r\n000008                      00800     5          ORG   DISK1+2048                                               00050000\r\n                                      6 *                                                                       00060000\r\n000800 05C0                           7 BEGIN    BALR  R12,0         SET BASE REGISTER                          00070000\r\n                            00802     8          USING *,R12                                                    00080000\r\n                                      9 *                                                                       00090000\r\n000802 41D0 C5A2      00DA4          10          LA    R13,SAVEA     FIRST SAVE AREA                            00100000\r\n                                     11 *                                                                       00110000\r\n                                     12 *                                                                       00120000\r\n                                     13 *                                                                       00130000\r\n000806 9201 C58D      00D8F          14          MVI   R,1                READ RECORD 1                         00140000\r\n                                     15          @PRINT '------- CC=00 HH=00 R=1 --------'                      00150000\r\n00080A 4110 C48E      00C90          16+         LA     R1,=C'------- CC=00 HH=00 R=1 --------'                 00170000\r\n00080E 4100 0020      00020          17+         LA     R0,32                                                   00200000\r\n000812 41F0 C132      00934          18+         LA     R15,@PRINT                                              00210000\r\n000816 05EF                          19+         BALR   R14,R15                                                 00220000\r\n000818 45E0 C068      0086A          20          BAL   R14,DUMPREC                                              00160000\r\n                                     21 *                                                                       00170000\r\n                                     22 *                                                                       00180000\r\n                                     23 *                                                                       00190000\r\n00081C 9202 C58D      00D8F          24          MVI   R,2                READ RECORD 2                         00200000\r\n                                     25          @PRINT '------- CC=00 HH=00 R=2 --------'                      00210000\r\n000820 4110 C4AE      00CB0          26+         LA     R1,=C'------- CC=00 HH=00 R=2 --------'                 00170000\r\n000824 4100 0020      00020          27+         LA     R0,32                                                   00200000\r\n000828 41F0 C132      00934          28+         LA     R15,@PRINT                                              00210000\r\n00082C 05EF                          29+         BALR   R14,R15                                                 00220000\r\n00082E 45E0 C068      0086A          30          BAL   R14,DUMPREC                                              00220000\r\n                                     31 *                                                                       00230000\r\n                                     32 *                                                                       00240000\r\n                                     33 *                                                                       00250000\r\n000832 9203 C58D      00D8F          34          MVI   R,3                READ RECORD 3                         00260000\r\n                                     35          @PRINT '------- CC=00 HH=00 R=2 --------'                      00270000\r\n000836 4110 C4AE      00CB0          36+         LA     R1,=C'------- CC=00 HH=00 R=2 --------'                 00170000\r\n00083A 4100 0020      00020          37+         LA     R0,32                                                   00200000\r\n00083E 41F0 C132      00934          38+         LA     R15,@PRINT                                              00210000\r\n000842 05EF                          39+         BALR   R14,R15                                                 00220000\r\n000844 45E0 C068      0086A          40          BAL   R14,DUMPREC                                              00280000\r\n                                     41 *                                                                       00290000\r\n                                     42 *                                                                       00300000\r\n                                     43 *                                                                       00310000\r\n000848 D204 C58E C609 00D90 00E0B    44          MVC   VTOCADDR,INBUF+11  SAVE VTOC ADDRESS FROM VOL RECORD     00320000\f                                                                                                               PAGE    3\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.13 11\/25\/11\r\n\r\n                                     45 *                                                                       00330000\r\n                                     46 *                                                                       00340000\r\n00084E D204 C589 C58E 00D8B 00D90    47          MVC   CCHHR(5),VTOCADDR  READ FIRST VTOC RECORD                00350000\r\n                                     48          @PRINT '------- VTOC FMT 4 DSCB --------'                      00360000\r\n000854 4110 C4CE      00CD0          49+         LA     R1,=C'------- VTOC FMT 4 DSCB --------'                 00170000\r\n000858 4100 0020      00020          50+         LA     R0,32                                                   00200000\r\n00085C 41F0 C132      00934          51+         LA     R15,@PRINT                                              00210000\r\n000860 05EF                          52+         BALR   R14,R15                                                 00220000\r\n000862 45E0 C068      0086A          53          BAL   R14,DUMPREC                                              00370000\r\n                                     54 *                                                                       00380000\r\n                                     55 *                                                                       00390000\r\n                                     56 *                                                                       00400000\r\n000866 47F0 C12E      00930          57          B     EXIT                                                     00410000\r\n                                     58 *                                                                       00420000\r\n                                     59 **********************************************************************  00430000\r\n                                     60 *                                                                       00440000\r\n                                     61 **********************************************************************  00450000\r\n                                     62 *                                                                       00460000\r\n00086A                               63 DUMPREC  DS    0H                                                       00470000\r\n00086A 50E0 C59E      00DA0          64          ST    R14,DUMPRCXT       SAVE RETURN ADDRESS                   00480000\r\n                                     65 *                                                                       00490000\r\n00086E 4110 C556      00D58          66          LA    R1,CCWSEEK         POINT TO CCW  CHAIN                   00500000\r\n000872 5010 0048      00048          67          ST    R1,72              SAVE INTO CAW                         00510000\r\n000876 4120 0345      00345          68          LA    R2,X'345'          DISK DEVICE ADDRESS                   00520000\r\n00087A 9C00 2000      00000          69          SIO   0(R2)              START I\/O                             00530000\r\n00087E 4770 C10A      0090C          70          BNZ   ERR1               BRANCH IF SIO NOT ACCEPTED            00540000\r\n                                     71 *                                                                       00550000\r\n000882 9D00 2000      00000          72 WAIT     TIO   0(R2)              WAIT FOR I\/O COMPLETION               00560000\r\n000886 4780 C090      00892          73          BZ    DUMP               GO DUMP RECORD                        00570000\r\n00088A 4710 C11C      0091E          74          BC    1,ERR2             BRANCH IF ERROR                       00580000\r\n00088E 47F0 C080      00882          75          B     WAIT               KEEP WAITING...                       00590000\r\n                                     76 *                                                                       00600000\r\n                                     77 *                                                                       00610000\r\n000892                               78 DUMP     DS     0H                                                      00620000\r\n000892 D207 C57E 0040 00D80 00040    79          MVC    CSW,64                 SAVE CSW FOR LATER               00630000\r\n                                     80 *                                                                       00640000\r\n                                     81          @PRINT '----- CSW ------'                                      00650000\r\n000898 4110 C4EE      00CF0          82+         LA     R1,=C'----- CSW ------'                                 00170000\r\n00089C 4100 0010      00010          83+         LA     R0,16                                                   00200000\r\n0008A0 41F0 C132      00934          84+         LA     R15,@PRINT                                              00210000\r\n0008A4 05EF                          85+         BALR   R14,R15                                                 00220000\r\n                                     86          @DUMP  CSW,10                                                  00660000\r\n0008A6 4110 C57E      00D80          87+         LA    R1,CSW                                                   00360000\r\n0008AA 4100 000A      0000A          88+         LA    R0,10                                                    00360000\f                                                                                                               PAGE    4\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.13 11\/25\/11\r\n\r\n0008AE 41F0 C1F8      009FA          89+         LA    R15,@DUMP                                                00080000\r\n0008B2 05EF                          90+         BALR  R14,R15                                                  00090000\r\n                                     91          @PRINT ' '                                                     00670000\r\n0008B4 4110 C4FE      00D00          92+         LA     R1,=C' '                                                00170000\r\n0008B8 4100 0001      00001          93+         LA     R0,1                                                    00200000\r\n0008BC 41F0 C132      00934          94+         LA     R15,@PRINT                                              00210000\r\n0008C0 05EF                          95+         BALR   R14,R15                                                 00220000\r\n                                     96          @PRINT '-----DATA BUFFER-----'                                 00680000\r\n0008C2 4110 C4FF      00D01          97+         LA     R1,=C'-----DATA BUFFER-----'                            00170000\r\n0008C6 4100 0015      00015          98+         LA     R0,21                                                   00200000\r\n0008CA 41F0 C132      00934          99+         LA     R15,@PRINT                                              00210000\r\n0008CE 05EF                         100+         BALR   R14,R15                                                 00220000\r\n                                    101 *                                                                       00690000\r\n0008D0 1F33                         102          SLR    R3,R3                  ZERO R3                          00700000\r\n0008D2 BF33 C574      00D76         103          ICM    R3,B'0011',CCWREAD+6   GET CCW DATA LENGTH              00710000\r\n0008D6 1F11                         104          SLR    R1,R1                  ZERO R1                          00720000\r\n0008D8 BF13 C584      00D86         105          ICM    R1,B'0011',CSW+6       GET RESIDUAL LENGTH              00730000\r\n0008DC 1B31                         106          SR     R3,R1                  CALCULATE LENGTH READ            00740000\r\n                                    107 *                                                                       00750000\r\n                                    108          @DUMP  INBUF,(R3)                                              00760000\r\n0008DE 4110 C5FE      00E00         109+         LA    R1,INBUF                                                 00360000\r\n0008E2 1803                         110+         LR    R0,R3                                                    00290000\r\n0008E4 41F0 C1F8      009FA         111+         LA    R15,@DUMP                                                00080000\r\n0008E8 05EF                         112+         BALR  R14,R15                                                  00090000\r\n                                    113 *                                                                       00770000\r\n                                    114          @PRINT ' '                                                     00780000\r\n0008EA 4110 C4FE      00D00         115+         LA     R1,=C' '                                                00170000\r\n0008EE 4100 0001      00001         116+         LA     R0,1                                                    00200000\r\n0008F2 41F0 C132      00934         117+         LA     R15,@PRINT                                              00210000\r\n0008F6 05EF                         118+         BALR   R14,R15                                                 00220000\r\n                                    119          @PRINT ' '                                                     00790000\r\n0008F8 4110 C4FE      00D00         120+         LA     R1,=C' '                                                00170000\r\n0008FC 4100 0001      00001         121+         LA     R0,1                                                    00200000\r\n000900 41F0 C132      00934         122+         LA     R15,@PRINT                                              00210000\r\n000904 05EF                         123+         BALR   R14,R15                                                 00220000\r\n                                    124 *                                                                       00800000\r\n000906 58E0 C59E      00DA0         125          L     R14,DUMPRCXT       SAVE RETURN ADDRESS                   00810000\r\n00090A 07FE                         126          BR     R14               RETURN TO CALLER                      00820000\r\n                                    127 *                                                                       00830000\r\n                                    128 *                                                                       00840000\r\n                                    129 ERR1     @PRINT '*** I\/O ERROR (SIO) ON DEVICE 345'                     00850000\r\n00090C 4110 C514      00D16         130+ERR1     LA     R1,=C'*** I\/O ERROR (SIO) ON DEVICE 345'                00170000\r\n000910 4100 0021      00021         131+         LA     R0,33                                                   00200000\r\n000914 41F0 C132      00934         132+         LA     R15,@PRINT                                              00210000\r\n\f                                                                                                               PAGE    5\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.13 11\/25\/11\r\n\r\n000918 05EF                         133+         BALR   R14,R15                                                 00220000\r\n00091A 47F0 C12E      00930         134          B     EXIT                                                     00860000\r\n                                    135 *                                                                       00870000\r\n                                    136 *                                                                       00880000\r\n                                    137 ERR2     @PRINT '*** I\/O ERROR (TIO) ON DEVICE 345'                     00890000\r\n00091E 4110 C535      00D37         138+ERR2     LA     R1,=C'*** I\/O ERROR (TIO) ON DEVICE 345'                00170000\r\n000922 4100 0021      00021         139+         LA     R0,33                                                   00200000\r\n000926 41F0 C132      00934         140+         LA     R15,@PRINT                                              00210000\r\n00092A 05EF                         141+         BALR   R14,R15                                                 00220000\r\n00092C 47F0 C12E      00930         142          B     EXIT                                                     00900000\r\n                                    143 *                                                                       00910000\r\n                                    144 **********************************************************************  00920000\r\n                                    145 *                                                                       00930000\r\n000930 8200 C596      00D98         146 EXIT     LPSW   DONE             LOAD A WAIT PSW                        00940000\r\n                                    147 *                                                                       00950000\r\n                                    148 **********************************************************************  00960000\r\n                                    149 *                                                                       00970000\r\n                                    150          PRINT  NOGEN                                                   00980000\r\n                                    151          @PRINT GEN=YES                                                 00990000\r\n                                    182          @CARD  GEN=YES                                                 01000000\r\n                                    216          @DUMP  GEN=YES                                                 01010000\r\n                                    302          @ERR  ,                                                        01020000\r\n                                    306          @REGS ,                                                        01030000\r\n                                    323          PRINT GEN                                                      01040000\r\n                                    324 *                                                                       01050000\r\n                                    325 **********************************************************************  01060000\r\n                                    326 *                                                                       01070000\r\n000C90                              327          LTORG ,                                                        01080000\r\n000C90 6060606060606040             328                =C'------- CC=00 HH=00 R=1 --------'\r\n000CB0 6060606060606040             329                =C'------- CC=00 HH=00 R=2 --------'\r\n000CD0 6060606060606040             330                =C'------- VTOC FMT 4 DSCB --------'\r\n000CF0 606060606040C3E2             331                =C'----- CSW ------'\r\n000D00 40                           332                =C' '\r\n000D01 6060606060C4C1E3             333                =C'-----DATA BUFFER-----'\r\n000D16 5C5C5C40C961D640             334                =C'*** I\/O ERROR (SIO) ON DEVICE 345'\r\n000D37 5C5C5C40C961D640             335                =C'*** I\/O ERROR (TIO) ON DEVICE 345'\r\n                                    336 *                                                                       01090000\r\n                                    337 **********************************************************************  01100000\r\n                                    338 *                                                                       01110000\r\n000D58                              339          DS    0D                                                       01120000\r\n000D58 07000D8940000006             340 CCWSEEK  DC    X'07',AL3(MBBCCHHR+1),AL1(@CCW#CC),X'00',AL2(6)          01130000\r\n000D60 31000D8B40000005             341 CCWSRCH  DC    X'31',AL3(MBBCCHHR+3),AL1(@CCW#CC),X'00',AL2(5)          01140000\r\n000D68 08000D6040000000             342          DC    X'08',AL3(CCWSRCH),AL1(@CCW#CC),X'00',AL2(0)             01150000\r\n000D70 06000E0020000800             343 CCWREAD  DC    X'06',AL3(INBUF),AL1(@CCW#SLI),X'00',AL2(2048)           01160000\f                                                                                                               PAGE    6\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.13 11\/25\/11\r\n\r\n                                    344 *                                                                       01170000\r\n                                    345 *                                                                       01180000\r\n000D78                              346          DS    XL((((*-BEGIN+16)\/16)*16)-(*-BEGIN))                     01190000\r\n000D80 0000000000000000             347 CSW      DC    D'0'                                                     01200000\r\n                                    348 *                                                                       01210000\r\n                                    349 *               +0+1+2+3+4+5+6+7                                        01220000\r\n                                    350 *                 M B B C C H H R                                       01230000\r\n                                    351 **********     X'0000000000000001'                                      01240000\r\n                                    352 *                                                                       01250000\r\n000D88                              353 MBBCCHHR DS    0X                                                       01260000\r\n000D88 000000                       354 MBB      DC    X'000000'                                                01270000\r\n000D8B                              355 CCHHR    DS    0X                                                       01280000\r\n000D8B 0000                         356 CC       DC    X'0000'                                                  01290000\r\n000D8D 0000                         357 HH       DC    X'0000'                                                  01300000\r\n000D8F 01                           358 R        DC    X'01'                                                    01310000\r\n                                    359 *                                                                       01320000\r\n                                    360 *                                                                       01330000\r\n000D90 0000000000                   361 VTOCADDR DC   XL5'00'        ADDR OF VTOC FROM VOLUME LABEL RECORD      01340000\r\n                                    362 *                                                                       01350000\r\n                                    363 *                                                                       01360000\r\n                                    364 **********************************************************************  01370000\r\n                                    365 *                                                                       01380000\r\n000D98                              366          DS    0D                                                       01390000\r\n000D98 000200000099FACE             367 DONE     DC    X'0002000000',X'99FACE'                                  01400000\r\n                                    368 *                                                                       01410000\r\n000DA0 00000000                     369 DUMPRCXT DC    F'0'                                                     01420000\r\n                                    370 *                                                                       01430000\r\n000DA4                              371 SAVEA    DS    18F                                                      01440000\r\n                                    372 *                                                                       01450000\r\n000DF0                              373          DS    0D                                                       01460000\r\n000DF0                              374          DS    XL((((*-BEGIN+256)\/256)*256)-(*-BEGIN))                  01470000\r\n000E00                              375 INBUF    DS    XL2048                                                   01480000\r\n                                    376 *                                                                       01490000\r\n                                    377          @CCW  ,                                                        01500000\r\n                            00080   378+@CCW#CD  EQU   X'80'         * CHAIN DATA                               00030000\r\n                            00040   379+@CCW#CC  EQU   X'40'         * COMMAND CHAIN                            00040000\r\n                            00020   380+@CCW#SLI EQU   X'20'         * SUPPRESS LENGTH INDICATION               00050000\r\n                            00010   381+@CCW#SKP EQU   X'10'         * SKIP                                     00060000\r\n                            00008   382+@CCW#PCI EQU   X'08'         * PROGRAM CONTROLLED INTERRUPT             00070000\r\n                            00004   383+@CCW#IDA EQU   X'04'         * INDIRECT ADDRESS                         00080000\r\n                                    384+*                                                                       00090000\r\n                                    385+*                                                                       00100000\r\n000000                              386+@CCW     DSECT ,                                                        00110000\r\n000000                              387+@CCWCMD  DS    X             - COMMAND CODE                             00120000\f                                                                                                               PAGE    7\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.13 11\/25\/11\r\n\r\n000001                              388+@CCWDATA DS    AL3           - DATA ADDRESS                             00130000\r\n000004                              389+@CCWFLAG DS    X             - FLAGS                                    00140000\r\n000005                              390+         DS    X             - RESERVED (ZERO)                          00150000\r\n000006                              391+@CCWLEN  DS    AL2 N         - LENGTH                                   00160000\r\n                                    392+*                                                                       00170000\r\n                                    393 *                                                                       01510000\r\n                                    394          END   ,                                                        01520000<\/pre>\n<p>[Next &#8211; <a title=\"DISK1 Output\" href=\"http:\/\/tommysprinkle.com\/txxos\/?p=201\">DISK1 Output<\/a>]<\/p>\n","protected":false},"excerpt":{"rendered":"<p>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&#8217;0000000000&#8242;,AL3(BEGIN) 00020000 3 * 00030000 4 * 00040000 000008 00800 5 ORG DISK1+2048 00050000 6 * 00060000 &hellip; <a href=\"https:\/\/tommysprinkle.com\/txxos\/?p=197\">Continue reading <span class=\"meta-nav\">&rarr;<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"template-page-builder-no-sidebar.php","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[1],"tags":[],"class_list":["post-197","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p1CPQT-3b","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/posts\/197","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=197"}],"version-history":[{"count":8,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/posts\/197\/revisions"}],"predecessor-version":[{"id":504,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/posts\/197\/revisions\/504"}],"wp:attachment":[{"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=197"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=197"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=197"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}