Retro1.org codex

          IDENT  INTOT 
 
 
          ENTRY  INTOT.
          ENTRY  EOQ.        ENTER OUTPUT QUEUE
          ENTRY  FAR.        FILE ATTACH ROUTINE
          ENTRY  GRA.        GET REFERENCE ADDRESS
          ENTRY  RIQ.        RETURN INPUT QUEUE
 
 
          TITLE  INTOT. - INTERFACE FOR TOTAL TO TAF TABLES.
*COMMENT  INTOT. - TOTAL INTERFACE TO TAF TABLES.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
 INTOT.   SPACE  4,10
***       INTOT. - INTERFACE FOR TOTAL TO TRANEX.
*         L. A. BOELTER 75/01/20.
          SPACE  4
**        INTOT. PROVIDES FOUR ENTRY POINTS THAT ARE USED BY TOTAL
*         TO REFERENCE TABLES IN TRANEX.
*         AN ADDITIONAL ENTRY POINT IS PROVIDED FOR USE BY
*         TRANEX1 TO PASS A LIST OF ADDRESSES IN TRANEX TO
*         BE PLACED IN RETURN JUMP INSTRUCTIONS TO COMPLETE
*         THE TOTAL-TRANEX INTERFACE.
          TITLE  INITIALIZATION.
**        INTOT. - INITIALZE TOTAL/TRANEX INTERFACE.
*
*         ENTRY. (A1) - ADDRESS OF PARAMETER LIST.
*                WORD 1 = ADDRESS OF EOQ IN TRANEX.
*                     2 = ADDRESS OF FAR IN TRANEX.
*                     3 = ADDRESS OF GRA IN TRANEX.
*                     4 = ADDRESS OF RIQ IN TRANEX.
*                (X1) = ADDRESS FOR EOQ.
*
*         EXIT.  (X6) = ADDRESS OF TOTAL ENTRY POINT.
*
*         USES   X - 0, 1, 2, 6.
*                A - 1, 2, 6.
 
 
 INTOT.   PS     0           ENTRY
          MX0    18
          LX0    -12
 
*         MODIFY THE RJ FOR EOQ.
 
          SA2    EOQ1
          LX1    30
          BX6    -X0*X2
          BX6    X1+X6
          SA6    A2
 
*         MODIFY THE RJ FOR FAR.
 
          SA1    A1+1        ADDRESS FOR FAR
          SA2    FAR1
          LX1    30
          BX6    -X0*X2
          BX6    X1+X6
          SA6    A2
 
*         MODIFY THE RJ FOR GRA.
 
          SA1    A1+1        ADDRESS FOR GRA
          SA2    GRA1
          LX1    30
          BX6    -X0*X2
          BX6    X1+X6
          SA6    A2
 
*         MODIFY THE RJ FOR RIQ.
 
          SA1    A1+1        ADDRESS FOR RIQ
          SA2    RIQ1
          LX1    30
          BX6    -X0*X2
          BX6    X1+X6
          SA6    A2
          SX6    =XTOTAL     TOTAL ENTRY POINT FOR TRANEX
          EQ     INTOT.      RETURN TO TRANEX1
          TITLE  INTERFACE ROUTINES.
 EOQ.     SPACE  4,10
**        EOQ. - ENTER OUTPUT QUEUE.
*
*         PASS CALL FROM TOTAL TO EOQ IN TRANEX.
*
*         CALLS  =XEOQ.
 
 
 EOQ.     PS     0           ENTRY/EXIT
 EOQ1     RJ     EOQ1        CALL EOQ
*         RJ     =XEOQ       (CALL EOQ)
          EQ     EOQ.        RETURN
 FAR.     SPACE  4,10
**        FAR. - FILE ATTACH ROUTINE.
*         PASS CALL FROM TOTAL TO FAR IN TRANEX.
*
*         CALLS  =XFAR.
 
 
 FAR.     PS     0           ENTRY/EXIT
 FAR1     RJ     FAR1        CALL FAR
*         RJ     =XFAR       (CALL FAR)
          EQ     FAR.        RETURN
 GRA.     SPACE  4,10
**        GRA. - GET REFERENCE ADDRESS.
*         PASS CALL FROM TOTAL TO GRA IN TRANEX.
*
*         USES   X - 6.
*
*         CALLS  =XGRA.
 
 
 GRA.     PS     0           ENTRY/EXIT
          SX6    B1+         SET FLAG - CALLED BY *TOTAL*
 GRA1     RJ     GRA1        CALL GRA
*         RJ     =XGRA       (CALL GRA)
          EQ     GRA.        RETURN
 RIQ.     SPACE  4,10
**        RIQ. - RETURN INPUT QUEUE.
*         PASS CALL FROM TOTAL TO RIQ IN TRANEX.
*
*         CALLS  =XRIQ.
 
 
 RIQ.     PS     0           ENTRY/EXIT
 RIQ1     RJ     RIQ1        CALL RIQ
*         RJ     =XRIQ       (CALL RIQ)
          EQ     RIQ.        RETURN
 
 
          END    INTOT.