*DECK C$GTERR 
          IDENT C$GTERR 
          TITLE  C$GTERR - UNALTERED GO TO ERROR
          MACHINE  ANY,I
          COMMENT UNALTERED GO TO ERROR 
          SST 
          B1=1
 C$GTERR  SPACE  4
**        C$GTERR - UNALTERED GO TO ERROR 
* 
*         CALLING SEQUENCE
*                RJ  =XC.GTERR
* 
*         DOES  CALL C.MSG
* 
*         SAVES NO REGISTERS
          ENTRY  C.GTERR
 C.GTERR  DATA    0 
          SX1    #GOTOERR 
          MX2    0
          SA3    C.GTERR
          LX3    30 
          SX3   X3-1
          MX6    0
          RJ    =XC.MSG 
          EQ     C.GTERR
          END 
