* GO INDIRECT                                           HEADER  C:GOI   0001.000
*                                                                       0002.000
*              GO INDIRECT                                              0003.000
*                                                                       0004.000
         M.PGM     C:GOI,MPX-32,3.6.1,00                                0005.000
         DEF   C:GOI                                                    0006.000
*                                                                       0007.000
* GO TO THRU JET                                                        0008.000
*    ARG1 - ADDRESS OF JET                                              0009.000
*                                                                       0010.000
         EXT   CR.GOSG                                                  0011.000
         M.REQS                                                         0012.000
         COBOLDAT                                                       0013.000
C:SGCOM  COMMON    NMCURSEG,NMROOTSG,RTSEGLOC,SGDELTA,SGJETLOC          0014.000
*                                                                       0015.000
* LET R3 = JET ADDRESS, R1 = BASE, R2 = SIT OFFSET/DISPLACEMENT         0016.000
C:GOI    EQU       $                                                    0017.000
         TRR       R0,R1                                                0018.000
         ABR       R0,29                                                0019.000
         LW        R3,0,X1                                              0020.000
         LW        R1,0W,X3                                             0021.000
         LW        R2,1W,X3                                             0022.000
*                                                                       0023.000
* RETURN IF BASE=0 AND DISPLACEMENT=0                                   0024.000
         BNZ       JUMP                                                 0025.000
         TRR       R1,R1                                                0026.000
         BNZ       JUMP                                                 0027.000
         TRSW      R0                                                   0028.000
*                                                                       0029.000
* JUMP TO DISPLACEMENT IF BASE=X'0000FFFF' INDICATING CURRENT SEGMENT   0030.000
JUMP     EQU       $                                                    0031.000
         CAMW      R1,=X'0000FFFF'                                      0032.000
         BEQ       0,X2                                                 0033.000
         CI        R1,-1                                                0034.000
         BEQ       0,X2                                                 0035.000
*                                                                       0036.000
* JUMP TO C:GOSG IF NORMAL SEGMENTED JUMP                               0037.000
         TRR       R1,R1                                                0038.000
         BP        CR.GOSG                                              0039.000
*                                                                       0040.000
* CLEAR INDICATOR, INDICATE NO INITIALIZATION ON NEXT ENTRANCE          0041.000
         ZBR       R1,0                                                 0042.000
         ZBM       0,0,X3                                               0043.000
         LH        R4,4H,X1                                             0044.000
         CI        R4,50                                                0045.000
         BLT       CR.GOSG                                              0046.000
         LW        R3,SGJETLOC                                          0047.000
         LI        R4,3                                                 0048.000
         STW       R4,-1W,X3                                            0049.000
         BU        CR.GOSG                                              0050.000
         END                                                            0051.000
