Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.intot +++| IDENT INTOT
00002 M00S00002.intot +++|
00003 M00S00003.intot +++|
00004 M00S00004.intot +++| ENTRY INTOT.
00005 M00S00005.intot +++| ENTRY EOQ. ENTER OUTPUT QUEUE
00006 M00S00006.intot +++| ENTRY FAR. FILE ATTACH ROUTINE
00007 M00S00007.intot +++| ENTRY GRA. GET REFERENCE ADDRESS
00008 M00S00008.intot +++| ENTRY RIQ. RETURN INPUT QUEUE
00009 M00S00009.intot +++|
00010 M00S00010.intot +++|
| Line S00011 Modification History |
M01 (Removed by) | ns2440 |
Seq # *Modification Id* Act
----------------------------+
00011 M01S00011.ns2440 ---| COMMENT INTOT. - INTERFACE FOR TOTAL TO TRANEX TABLES.
| Line S00001 Modification History |
M01 (Added by) | ns2440 |
Seq # *Modification Id* Act
----------------------------+
00012 M01S00001.ns2440 +++| TITLE INTOT. - INTERFACE FOR TOTAL TO TAF TABLES.
00013 M01S00002.ns2440 +++|*COMMENT INTOT. - TOTAL INTERFACE TO TAF TABLES.
| Line S00012 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00014 M01S00012.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00015 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
| Line S00013 Modification History |
M01 (Removed by) | ns2440 |
Seq # *Modification Id* Act
----------------------------+
00016 M01S00013.ns2440 ---| TITLE INTOT. - INTERFACE FOR TOTAL TO TRANEX TABLES
00017 M00S00014.intot +++| INTOT. SPACE 4,10
00018 M00S00015.intot +++|*** INTOT. - INTERFACE FOR TOTAL TO TRANEX.
00019 M00S00016.intot +++|* L. A. BOELTER 75/01/20.
00020 M00S00017.intot +++| SPACE 4
00021 M00S00018.intot +++|** INTOT. PROVIDES FOUR ENTRY POINTS THAT ARE USED BY TOTAL
00022 M00S00019.intot +++|* TO REFERENCE TABLES IN TRANEX.
00023 M00S00020.intot +++|* AN ADDITIONAL ENTRY POINT IS PROVIDED FOR USE BY
00024 M00S00021.intot +++|* TRANEX1 TO PASS A LIST OF ADDRESSES IN TRANEX TO
00025 M00S00022.intot +++|* BE PLACED IN RETURN JUMP INSTRUCTIONS TO COMPLETE
00026 M00S00023.intot +++|* THE TOTAL-TRANEX INTERFACE.
00027 M00S00024.intot +++| TITLE INITIALIZATION.
00028 M00S00025.intot +++|** INTOT. - INITIALZE TOTAL/TRANEX INTERFACE.
00029 M00S00026.intot +++|*
00030 M00S00027.intot +++|* ENTRY. (A1) - ADDRESS OF PARAMETER LIST.
00031 M00S00028.intot +++|* WORD 1 = ADDRESS OF EOQ IN TRANEX.
00032 M00S00029.intot +++|* 2 = ADDRESS OF FAR IN TRANEX.
00033 M00S00030.intot +++|* 3 = ADDRESS OF GRA IN TRANEX.
00034 M00S00031.intot +++|* 4 = ADDRESS OF RIQ IN TRANEX.
00035 M00S00032.intot +++|* (X1) = ADDRESS FOR EOQ.
00036 M00S00033.intot +++|*
00037 M00S00034.intot +++|* EXIT. (X6) = ADDRESS OF TOTAL ENTRY POINT.
00038 M00S00035.intot +++|*
00039 M00S00036.intot +++|* USES X - 0, 1, 2, 6.
00040 M00S00037.intot +++|* A - 1, 2, 6.
00041 M00S00038.intot +++|
00042 M00S00039.intot +++|
00043 M00S00040.intot +++| INTOT. PS 0 ENTRY
00044 M00S00041.intot +++| MX0 18
00045 M00S00042.intot +++| LX0 -12
00046 M00S00043.intot +++|
00047 M00S00044.intot +++|* MODIFY THE RJ FOR EOQ.
00048 M00S00045.intot +++|
00049 M00S00046.intot +++| SA2 EOQ1
00050 M00S00047.intot +++| LX1 30
00051 M00S00048.intot +++| BX6 -X0*X2
00052 M00S00049.intot +++| BX6 X1+X6
00053 M00S00050.intot +++| SA6 A2
00054 M00S00051.intot +++|
00055 M00S00052.intot +++|* MODIFY THE RJ FOR FAR.
00056 M00S00053.intot +++|
00057 M00S00054.intot +++| SA1 A1+1 ADDRESS FOR FAR
00058 M00S00055.intot +++| SA2 FAR1
00059 M00S00056.intot +++| LX1 30
00060 M00S00057.intot +++| BX6 -X0*X2
00061 M00S00058.intot +++| BX6 X1+X6
00062 M00S00059.intot +++| SA6 A2
00063 M00S00060.intot +++|
00064 M00S00061.intot +++|* MODIFY THE RJ FOR GRA.
00065 M00S00062.intot +++|
00066 M00S00063.intot +++| SA1 A1+1 ADDRESS FOR GRA
00067 M00S00064.intot +++| SA2 GRA1
00068 M00S00065.intot +++| LX1 30
00069 M00S00066.intot +++| BX6 -X0*X2
00070 M00S00067.intot +++| BX6 X1+X6
00071 M00S00068.intot +++| SA6 A2
00072 M00S00069.intot +++|
00073 M00S00070.intot +++|* MODIFY THE RJ FOR RIQ.
00074 M00S00071.intot +++|
00075 M00S00072.intot +++| SA1 A1+1 ADDRESS FOR RIQ
00076 M00S00073.intot +++| SA2 RIQ1
00077 M00S00074.intot +++| LX1 30
00078 M00S00075.intot +++| BX6 -X0*X2
00079 M00S00076.intot +++| BX6 X1+X6
00080 M00S00077.intot +++| SA6 A2
00081 M00S00078.intot +++| SX6 =XTOTAL TOTAL ENTRY POINT FOR TRANEX
00082 M00S00079.intot +++| EQ INTOT. RETURN TO TRANEX1
00083 M00S00080.intot +++| TITLE INTERFACE ROUTINES.
00084 M00S00081.intot +++| EOQ. SPACE 4,10
00085 M00S00082.intot +++|** EOQ. - ENTER OUTPUT QUEUE.
00086 M00S00083.intot +++|*
00087 M00S00084.intot +++|* PASS CALL FROM TOTAL TO EOQ IN TRANEX.
00088 M00S00085.intot +++|*
00089 M00S00086.intot +++|* CALLS =XEOQ.
00090 M00S00087.intot +++|
00091 M00S00088.intot +++|
00092 M00S00089.intot +++| EOQ. PS 0 ENTRY/EXIT
00093 M00S00090.intot +++| EOQ1 RJ EOQ1 CALL EOQ
00094 M00S00091.intot +++|* RJ =XEOQ (CALL EOQ)
00095 M00S00092.intot +++| EQ EOQ. RETURN
00096 M00S00093.intot +++| FAR. SPACE 4,10
00097 M00S00094.intot +++|** FAR. - FILE ATTACH ROUTINE.
00098 M00S00095.intot +++|* PASS CALL FROM TOTAL TO FAR IN TRANEX.
00099 M00S00096.intot +++|*
00100 M00S00097.intot +++|* CALLS =XFAR.
00101 M00S00098.intot +++|
00102 M00S00099.intot +++|
00103 M00S00100.intot +++| FAR. PS 0 ENTRY/EXIT
00104 M00S00101.intot +++| FAR1 RJ FAR1 CALL FAR
00105 M00S00102.intot +++|* RJ =XFAR (CALL FAR)
00106 M00S00103.intot +++| EQ FAR. RETURN
00107 M00S00104.intot +++| GRA. SPACE 4,10
00108 M00S00105.intot +++|** GRA. - GET REFERENCE ADDRESS.
00109 M00S00106.intot +++|* PASS CALL FROM TOTAL TO GRA IN TRANEX.
00110 M00S00107.intot +++|*
00111 M00S00108.intot +++|* USES X - 6.
00112 M00S00109.intot +++|*
00113 M00S00110.intot +++|* CALLS =XGRA.
00114 M00S00111.intot +++|
00115 M00S00112.intot +++|
00116 M00S00113.intot +++| GRA. PS 0 ENTRY/EXIT
00117 M00S00114.intot +++| SX6 B1+ SET FLAG - CALLED BY *TOTAL*
00118 M00S00115.intot +++| GRA1 RJ GRA1 CALL GRA
00119 M00S00116.intot +++|* RJ =XGRA (CALL GRA)
00120 M00S00117.intot +++| EQ GRA. RETURN
00121 M00S00118.intot +++| RIQ. SPACE 4,10
00122 M00S00119.intot +++|** RIQ. - RETURN INPUT QUEUE.
00123 M00S00120.intot +++|* PASS CALL FROM TOTAL TO RIQ IN TRANEX.
00124 M00S00121.intot +++|*
00125 M00S00122.intot +++|* CALLS =XRIQ.
00126 M00S00123.intot +++|
00127 M00S00124.intot +++|
00128 M00S00125.intot +++| RIQ. PS 0 ENTRY/EXIT
00129 M00S00126.intot +++| RIQ1 RJ RIQ1 CALL RIQ
00130 M00S00127.intot +++|* RJ =XRIQ (CALL RIQ)
00131 M00S00128.intot +++| EQ RIQ. RETURN
00132 M00S00129.intot +++|
00133 M00S00130.intot +++|
00134 M00S00131.intot +++| END INTOT.