cdc:nos2.source:opl.opl871:deck:intot
Deck INTOT
Library Member Format: MODIFY
Source
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.
cdc/nos2.source/opl.opl871/deck/intot.txt · Last modified: by 127.0.0.1