cdc:nos2.source:opl.opl871:deck:1ts
Deck 1TS
Library Member Format: MODIFY
Listing Sections
- Deck 1TS Start
- Deck 1TS Part 1 (Line 1933)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.1ts +++| IDENT 1TS,STM 00002 M00S00002.1ts +++| PERIPH 00003 M00S00003.1ts +++| BASE MIXED 00004 M00S00004.1ts +++| SST
| Line S00005 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00005 M01S00005.ns22000 ---|*COMMENT 1TS - INTERNAL STIMULATION DRIVER.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00001.ns22000 +++|*COMMENT 1TS - INTERNAL STIMULATION DRIVER.
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
| Line S00007 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00007.ns22000 ---| TITLE 1TS - INTERACTIVE TERMINAL STIMULATION DRIVER.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00010 M01S00002.ns22000 +++| TITLE 1TS - INTERNAL STIMULATION DRIVER. 00011 M00S00008.1ts +++| SPACE 4,10
| Line S00009 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00012 M01S00009.ns22000 ---|***** 1TS - INTERACTIVE TERMINAL STIMULATION DRIVER. 00013 M01S00010.ns22000 ---|*
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00014 M01S00003.ns22000 +++|*** 1TS - INTERNAL STIMULATION DRIVER. 00015 M00S00011.1ts +++|* G. R. MANSFIELD. 72/08/10. 00016 M00S00012.1ts +++|* R. A. JAPS. 77/12/05.
| Line S00013 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00017 M01S00013.ns22000 ---|* 00018 M01S00014.ns22000 ---|* *1TS* IS A STIMULATION DRIVER THAT IS CALLED BY *STIMULA* 00019 M01S00015.ns22000 ---|* TO STIMULATE LOW SPEED INTERATIVE TERMINALS FOR *IAF*.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00020 M01S00004.ns22000 +++| SPACE 4,10 00021 M01S00005.ns22000 +++|*** *1TS* IS A STIMULATION DRIVER WHICH IS CALLED BY *STIMULA* 00022 M01S00006.ns22000 +++|* TO STIMULATE LOW SPEED INTERACTIVE TERMINALS FOR *IAF*. 00023 M00S00016.1ts +++| SPACE 4,10 00024 M00S00017.1ts +++|*** INPUT REGISTER FORMAT. 00025 M00S00018.1ts +++|* 00026 M00S00019.1ts +++|*T IR 18/ *1TS* ,24/ 0 ,18/ADDR
Figure IR
00027 M00S00020.1ts +++|* 00028 M00S00021.1ts +++|* ADDR ADDRESS OF CONTROL TABLE ENTRY FOR STIMULATION. 00029 M00S00022.1ts +++|* ADDR IS ZERO FOR STIMULATION INITIALIZATION. 00030 M00S00023.1ts +++|* 00031 M00S00024.1ts +++|* REFER TO *STIMULA* FOR TABLE FORMATS. 00032 M00S00025.1ts +++| SPACE 4,10 00033 M00S00026.1ts +++|*** DAYFILE MESSAGES. 00034 M00S00027.1ts +++|* 00035 M00S00028.1ts +++|* * IAF ABORT.* 00036 M00S00029.1ts +++|* STIMULATION WAS ABORTED BECAUSE *IAF* WAS NOT 00037 M00S00030.1ts +++|* COMMUNICATING WITH THE STIMULATOR. 00038 M00S00031.1ts +++|* 00039 M00S00032.1ts +++|* * OUT OF SYNCH.* 00040 M00S00033.1ts +++|* THE STIMULATION WAS ABORTED BECAUSE *1TS* WAS OUT OF 00041 M00S00034.1ts +++|* SYNCH WITH *IAF*. 00042 M00S00035.1ts +++|* 00043 M00S00036.1ts +++|* * LOST STIMOUT DATA.* 00044 M00S00037.1ts +++|* *1TS* WAS NOT ABLE TO RECOVER ALL OUTPUT BECAUSE THE 00045 M00S00038.1ts +++|* CM BUFFERS WERE FULL. 00046 M00S00039.1ts +++|* 00047 M00S00040.1ts +++|* *XXXXXX.XXX SEC. 1TS CYCLE TIME.* 00048 M00S00041.1ts +++|* INFORMATIVE MESSAGE STATING THE MAXIMUM CYCLE TIME 00049 M00S00042.1ts +++|* FOR *1TS*. 00050 M00S00043.1ts +++|* 00051 M00S00044.1ts +++|* * INVALID OPTIONAL THINK TIME.* 00052 M00S00045.1ts +++|* STIMULATION WAS ABORTED BECAUSE OF AN INVALID OPTIONAL 00053 M00S00046.1ts +++|* THINK TIME SPECIFICATION IN THE SCRIPTS. CORRECT 00054 M00S00047.1ts +++|* SCRIPTS AND RETRY. 00055 M00S00048.1ts +++|* 00056 M00S00049.1ts +++|* * ERROR IN SPECIAL ACCOUNT NUMBER.* 00057 M00S00050.1ts +++|* STIMULATION WAS ABORTED BECAUSE AN ERROR IN THE 00058 M00S00051.1ts +++|* SCRIPTS WAS ENCOUNTERED WHILE PROCESSING THE SPECIAL 00059 M00S00052.1ts +++|* ACCOUNT NUMBER FLAGS. 00060 M00S00053.1ts +++|* 00061 M00S00054.1ts +++|* * STIMULATION INITIATED.* 00062 M00S00055.1ts +++|* INFORMATIVE MESSAGE STATING THAT THE STIMULATION HAS 00063 M00S00056.1ts +++|* STARTED. 00064 M00S00057.1ts +++|* 00065 M00S00058.1ts +++|* * IAF NOT ACTIVE.* 00066 M00S00059.1ts +++|* STIMULATION WAS ABORTED BECAUSE *IAF* WAS NOT AT 00067 M00S00060.1ts +++|* CONTROL POINT 1. BRING UP *IAF* AND RETRY.
| Line S00061 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00068 M01S00061.ns22000 ---|* 00069 M01S00062.ns22000 ---|* * NO STIMULATOR TERMINALS DEFINED.* 00070 M01S00063.ns22000 ---|* STIMULATION WAS ABORTED BECAUSE NO STIMULATOR 00071 M01S00064.ns22000 ---|* TERMINALS DEFINED. VERIFY CORRECT EST ENTRY IS 00072 M01S00065.ns22000 ---|* BEING USED FOR THE STIMULATION. 00073 M00S00066.1ts ---|* 00074 M00S00067.1ts ---|* * MEMORY REQUEST ERROR.* 00075 M00S00068.1ts ---|* AN INTERNAL ERROR INDICATING THAT *STIMULA* HAS NOT 00076 M00S00069.1ts ---|* REQUESTED ENOUGH FL FOR THE STIMULATION. 00077 M00S00070.1ts ---|* 00078 M00S00071.1ts ---|* * INPUT REQUESTED PAST END OF SCRIPT - NNNN.* 00079 M00S00072.1ts ---|* AN INPUT REQUEST WAS RECEIVED EVEN THOUGH END OF 00080 M00S00073.1ts ---|* SCRIPT HAD BEEN REACHED ON TERMINAL *NNNN*. THIS 00081 M00S00074.1ts ---|* IS A FATAL ERROR. 00082 M01S00075.ns22000 ---| SPACE 4,10 00083 M01S00076.ns22000 ---|*** SEE *STIMULA* DOCUMENTATION FOR CENTRAL MEMORY FORMATS. 00084 M01S00077.ns22000 ---| EJECT
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00085 M01S00007.ns22000 +++| SPACE 4,10 00086 M00S00078.1ts +++|*** INSTALLATION NOTES. 00087 M00S00079.1ts +++|* 00088 M00S00080.1ts +++|* THE STIMULATION DRIVER INTERFACES WITH *STIMULA*. 00089 M00S00081.1ts +++|* *1TS* IS A STIMULATION DRIVER THAT COMMUNICATES 00090 M00S00082.1ts +++|* WITH *1TN* VIA CHANNEL (INTERNAL STIMUALTION). 00091 M00S00083.1ts +++|* 00092 M00S00084.1ts +++|* ************** 00093 M00S00085.1ts +++|* * * 00094 M00S00086.1ts +++|* * 1TS * 00095 M00S00087.1ts +++|* * * 00096 M00S00088.1ts +++|* ************** 00097 M00S00089.1ts +++|* I 00098 M00S00090.1ts +++|* CHANNEL I 00099 M00S00091.1ts +++|* I 00100 M00S00092.1ts +++|* ************** 00101 M00S00093.1ts +++|* * * 00102 M00S00094.1ts +++|* * 1TN * 00103 M00S00095.1ts +++|* * * 00104 M00S00096.1ts +++|* ************** 00105 M00S00097.1ts +++| SPACE 4 00106 M00S00098.1ts +++|** COMMON DECKS. 00107 M00S00099.1ts +++| 00108 M00S00100.1ts +++| 00109 M00S00101.1ts +++|*CALL COMSACC 00110 M00S00102.1ts +++|*CALL COMSPIM 00111 M00S00103.1ts +++|*CALL COMPMAC 00112 M00S00104.1ts +++|*CALL COMPCHI 00113 M00S00105.1ts +++|*CALL COMSREM 00114 M01S00008.ns22000 +++|*CALL COMSSCD 00115 M00S00106.1ts +++|*CALL COMSSSD 00116 M00S00107.1ts +++| LIST X 00117 M00S00108.1ts +++|*CALL COMSSTM 00118 M00S00109.1ts +++| LIST -X
| Line S00110 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00119 M01S00110.ns22000 ---| TITLE DIRECT LOCATION ASSIGMENTS. 00120 M01S00111.ns22000 ---|**** DIRECT LOCATIONS ASSIGNMENTS.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00121 M01S00009.ns22000 +++| TITLE DIRECT CELLS AND ASSEMBLY CONSTANTS. 00122 M01S00010.ns22000 +++| DIRECT SPACE 4,10 00123 M01S00011.ns22000 +++|**** DIRECT LOCATION ASSIGNMENTS. 00124 M00S00112.1ts +++| 00125 M00S00113.1ts +++| 00126 M00S00114.1ts +++| DP EQU 20 - 24 DATA POINTER
| Line S00115 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00127 M01S00115.ns22000 ---| TT EQU DP+2 THINK TIME
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00128 M01S00012.ns22000 +++| TT EQU DP+2 THINK TIME 00129 M00S00116.1ts +++| RT EQU DP+3 DATA RATE 00130 M00S00117.1ts +++| CK EQU DP+4 CLOCK
| Line S00118 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00131 M01S00118.ns22000 ---| 00132 M00S00119.1ts ---| OC EQU 25 OUTPUT CHARACTER 00133 M00S00120.1ts ---| IC EQU 26 INPUT CHARACTER 00134 M01S00121.ns22000 ---| 00135 M00S00122.1ts ---| AT EQU 30 ACTIVE TERMINAL COUNT 00136 M00S00123.1ts ---| LS EQU 31 LAST SECOND COUNT 00137 M00S00124.1ts ---| MT EQU 32 1TS MAX CYCLE TIME 00138 M00S00125.1ts ---| LM EQU 33 LAST MILLISECOND COUNT 00139 M01S00126.ns22000 ---| MC EQU 34 MILLI-SECOND COUNT 00140 M01S00127.ns22000 ---|
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00141 M01S00013.ns22000 +++| MC EQU 34 MILLISECOND COUNT 00142 M00S00128.1ts +++| NT EQU 35 NUMBER OF TERMINALS 00143 M00S00129.1ts +++| TC EQU 36 TERMINAL COUNT 00144 M00S00130.1ts +++| LC EQU 37 NUMBER OF TERMINALS TO LOGIN
| Line S00131 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00145 M01S00131.ns22000 ---| 00146 M00S00132.1ts ---| OT EQU 40 OUTPUT TERMINAL NUMBER 00147 M00S00133.1ts ---| IT EQU 41 INPUT TERMINAL NUMBER 00148 M01S00134.ns22000 ---| 00149 M00S00135.1ts ---| TW EQU 42 - 47 WORD TWO OF *TTER* ENTRY 00150 M01S00136.ns22000 ---| LI EQU TW+0 LINE SPEED
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00151 M01S00014.ns22000 +++| LI EQU TW+0 LINE SPEED 00152 M00S00137.1ts +++| IS EQU TW+1 INPUT SPEED 00153 M00S00138.1ts +++| LD EQU TW+2 LOGOUT DELAY 00154 M00S00139.1ts +++| TI EQU TW+3 INITIAL THINK TIME 00155 M00S00140.1ts +++| TO EQU TW+4 OPTIONAL THINK TIME 00156 M00S00141.1ts +++| SC EQU 47 SECOND COUNT
| Line S00142 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00157 M01S00142.ns22000 ---| 00158 M00S00143.1ts ---| IN EQU 60 - 64 IN POINTER 00159 M00S00144.1ts ---|**** 00160 M01S00145.ns22000 ---| TITLE SYMBOL DEFINITIONS.
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00161 M01S00015.ns22000 +++| SPACE 4,10 00162 M00S00146.1ts +++|** ASSEMBLY CONSTANTS. 00163 M00S00147.1ts +++| 00164 M00S00148.1ts +++| 00165 M00S00149.1ts +++| CH EQU 15 STIMULATOR CHANNEL 00166 M00S00150.1ts +++| TITLE MACRO DEFINITIONS. 00167 M00S00151.1ts +++| RETURN SPACE 4 00168 M00S00152.1ts +++|** RETURN - RETURN TO MANAGER TO ADVANCE TERMINAL PROCESSING. 00169 M00S00153.1ts +++|* 00170 M00S00154.1ts +++|* RETURN EXIT,ADDR 00171 M00S00155.1ts +++|* 00172 M00S00156.1ts +++|* ENTRY *EXIT* = MANAGER EXIT NUMBER. 00173 M00S00157.1ts +++|* *ADDR* = MANAGER RETURN ADDRESS. 00174 M00S00158.1ts +++|* IF *ADDR* IS NULL, RETURN TO NEXT PROGRAM ADDRESS. 00175 M00S00159.1ts +++| 00176 M00S00160.1ts +++| 00177 M00S00161.1ts +++| PURGMAC RETURN 00178 M00S00162.1ts +++| 00179 M00S00163.1ts +++| RETURN MACRO N,A 00180 M00S00164.1ts +++| LDC A *+4 00181 M00S00165.1ts +++| LJM N STT 00182 M00S00166.1ts +++| ENDM 00183 M00S00167.1ts +++| TTADD SPACE 4 00184 M00S00168.1ts +++|** TTADD - GENERATE TERMINAL TABLE ADDRESS. 00185 M00S00169.1ts +++|* 00186 M00S00170.1ts +++|* TTADD TER,W 00187 M00S00171.1ts +++|* 00188 M00S00172.1ts +++|* ENTRY *TER* = DIRECT LOCATION CONTAINING TERMINAL NUMBER. 00189 M00S00173.1ts +++|* W = 0, ADDRESS OF FIRST WORD OF ENTRY. 00190 M00S00174.1ts +++|* = 1, ADDRESS OF SECOND WORD OF ENTRY. 00191 M00S00175.1ts +++|* = 2, ADDRESS OF THIRD WORD OF ENTRY. 00192 M00S00176.1ts +++|* = 3, ADDRESS OF FOURTH WORD OF ENTRY. 00193 M00S00177.1ts +++|* = 4, ADDRESS OF FIFTH WORD OF ENTRY. 00194 M00S00178.1ts +++|* 00195 M00S00179.1ts +++|* EXIT (A) = DESIRED ADDRESS. 00196 M00S00180.1ts +++| 00197 M00S00181.1ts +++| 00198 M00S00182.1ts +++| TTADD MACRO T,W 00199 M00S00183.1ts +++| LOCAL L
| Line S00184 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00200 M01S00184.ns21000 ---| LDD T
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00201 M01S00001.ns21000 +++| LDD RA 00202 M01S00002.ns21000 +++| SHN 6 00203 M01S00003.ns21000 +++| ADD T 00204 M00S00185.1ts +++| QUAL 00205 M00S00186.1ts +++|L ADC ** 00206 M00S00187.1ts +++| QUAL * 00207 M00S00188.1ts +++| IFC EQ,$W$0$ 00208 M00S00189.1ts +++| TTE0 RMT 00209 M00S00190.1ts +++| CON L 00210 M00S00191.1ts +++| TTE0 RMT 00211 M00S00192.1ts +++| ENDIF 00212 M00S00193.1ts +++| IFC EQ,$W$1$ 00213 M00S00194.1ts +++| TTE1 RMT 00214 M00S00195.1ts +++| CON L 00215 M00S00196.1ts +++| TTE1 RMT 00216 M00S00197.1ts +++| ENDIF 00217 M00S00198.1ts +++| IFC EQ,$W$2$ 00218 M00S00199.1ts +++| TTE2 RMT 00219 M00S00200.1ts +++| CON L 00220 M00S00201.1ts +++| TTE2 RMT 00221 M00S00202.1ts +++| ENDIF 00222 M00S00203.1ts +++| IFC EQ,$W$3$ 00223 M00S00204.1ts +++| TTE3 RMT 00224 M00S00205.1ts +++| CON L 00225 M00S00206.1ts +++| TTE3 RMT 00226 M00S00207.1ts +++| ENDIF 00227 M00S00208.1ts +++| IFC EQ,$W$4$ 00228 M00S00209.1ts +++| TTE4 RMT 00229 M00S00210.1ts +++| CON L 00230 M00S00211.1ts +++| TTE4 RMT 00231 M00S00212.1ts +++| ENDIF 00232 M00S00213.1ts +++| ENDM 00233 M00S00214.1ts +++| TITLE MAIN PROGRAM. 00234 M00S00215.1ts +++| STM SPACE 4 00235 M00S00216.1ts +++|** STM - MAIN PROGRAM. 00236 M00S00217.1ts +++| 00237 M00S00218.1ts +++| 00238 M00S00219.1ts +++| ORG PPFW 00239 M00S00220.1ts +++| STM RJM PRS PRESET PROGRAM 00240 M00S00221.1ts +++| ACN CH 00241 M00S00222.1ts +++| 00242 M00S00223.1ts +++|* UPDATE CLOCKS. 00243 M00S00224.1ts +++| 00244 M00S00225.1ts +++| STM1 LDC RTCL READ REAL TIME CLOCK 00245 M00S00226.1ts +++| CRD CM 00246 M00S00227.1ts +++| LDD CM+4 SET ELAPSED MILLISECOND COUNT 00247 M00S00228.1ts +++| SBM STMD 00248 M00S00229.1ts +++| PJN STM2 IF CLOCK NOT RECYCLED 00249 M00S00230.1ts +++| ADC 10000B IF CLOCK RECYCLED 00250 M00S00231.1ts +++| STM2 STD MC SET MILLISECOND COUNT SINCE LAST CYCLE 00251 M00S00232.1ts +++| SBD MT CHECK CYCLE TIME 00252 M00S00233.1ts +++| MJN STM4 IF MAXIMUM NOT EXCEEDED 00253 M00S00234.1ts +++| RAD MT SET NEW MAXIMUM 00254 M00S00235.1ts +++| STM4 LDD MC 00255 M00S00236.1ts +++| RAD LM ADD LAST MILLISECOND
| Line S00237 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00256 M01S00237.ns22000 ---| SBM STME
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00257 M01S00016.ns22000 +++| SBK 1000D 00258 M00S00238.1ts +++| PJN STM5 IF SECOND ELAPSED 00259 M00S00239.1ts +++| LDN 0 00260 M00S00240.1ts +++| UJN STM6 TOGGLE SECOND STATUS 00261 M00S00241.1ts +++| 00262 M00S00242.1ts +++| STM5 STD LM SAVE LAST MILLISECOND 00263 M00S00243.1ts +++| AOD LS UPDATE LAST SECOND 00264 M00S00244.1ts +++| LDN 1 00265 M00S00245.1ts +++| STM6 STD SC SET SECOND COUNT STATUS 00266 M00S00246.1ts +++| LDD CM+4 CURRENT TIME 00267 M00S00247.1ts +++| STM STMD 00268 M00S00248.1ts +++| LDD NT SET TERMINAL COUNT 00269 M00S00249.1ts +++| STD TC 00270 M00S00250.1ts +++| LDD MA STORE CLOCK 00271 M00S00251.1ts +++| CWD AT 00272 M00S00252.1ts +++| LDN 2 SET ON LINE CONTROL 00273 M00S00253.1ts +++| STM LCIC 00274 M00S00254.1ts +++| 00275 M00S00255.1ts +++|* CHECK FOR END OF STIMULATION. 00276 M00S00256.1ts +++|
| Line S00257 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00277 M01S00257.ns21000 ---| STM7 LDD CP READ CP STATUS 00278 M01S00258.ns21000 ---| ADN STSW 00279 M01S00259.ns21000 ---| CRD CM
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00280 M01S00004.ns21000 +++| STM7 PAUSE 00281 M00S00260.1ts +++| LDD CM+1
| Line S00261 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00282 M01S00261.ns21000 ---| NJN STM11 IF ERROR FLAG SET
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00283 M01S00005.ns21000 +++| STM STMF SAVE ERROR STATUS 00284 M01S00006.ns21000 +++| RJM SAA SET ABSOLUTE ADDRESSES 00285 M01S00007.ns21000 +++| LDC ** 00286 M01S00008.ns21000 +++| STMF EQU *-1 (ERROR STATUS) 00287 M01S00009.ns21000 +++| NJN STM11 IF ERROR FLAG SET 00288 M00S00262.1ts +++| LDN 0 00289 M00S00263.1ts +++|* LDN 1 (INTERNAL ERROR ENCOUNTERED) 00290 M00S00264.1ts +++| STMA EQU *-1 00291 M00S00265.1ts +++| NJN STM11 IF INTERNAL ERROR ENCOUNTERED 00292 M00S00266.1ts +++| IJM STM10,CH IF DRIVER ABORTED 00293 M00S00267.1ts +++| FJM STM8,CH IF DRIVER READY 00294 M00S00268.1ts +++| LDN 77 DELAY 00295 M00S00269.1ts +++| SBN 1 00296 M00S00270.1ts +++| NJN *-1 IF DELAY NOT EXPIRED 00297 M00S00271.1ts +++| UJN STM7 RETRY 00298 M00S00272.1ts +++| 00299 M00S00273.1ts +++| STM8 IAN CH+40 INPUT SYNC CODE 00300 M00S00274.1ts +++| LPC 7777 TRUNCATE TO 12 BITS 00301 M00S00275.1ts +++| LMC 7777 CHECK FOR SYNC CODE 00302 M00S00276.1ts +++| NJN STM9 IF NOT SYNC CODE 00303 M00S00277.1ts +++| RJM SSL ENTER STIMULATOR SERVICE LOOP 00304 M00S00278.1ts +++| LDD AT CHECK ACTIVE TERMINAL COUNT 00305 M00S00279.1ts +++| ZJN STM11 IF NONE ACTIVE 00306 M00S00280.1ts +++| LJM STM1 LOOP 00307 M00S00281.1ts +++| 00308 M00S00282.1ts +++|* PROCESS OUT OF SYNC CONDITION. 00309 M00S00283.1ts +++| 00310 M00S00284.1ts +++| STM9 LDC MSGB SET MESSAGE ADDRESS 00311 M00S00285.1ts +++| UJN STM12 TERMINATE STIMULATION RUN 00312 M00S00286.1ts +++| 00313 M00S00287.1ts +++|* PROCESS *IAF* ABORT. 00314 M00S00288.1ts +++| 00315 M00S00289.1ts +++| STM10 LDC MSGA * IAF ABORTED.* 00316 M00S00290.1ts +++| UJN STM12 TERMINATE STIMULATION RUN 00317 M00S00291.1ts +++| 00318 M00S00292.1ts +++|* PROCESS END OF STIMULATION. 00319 M00S00293.1ts +++| 00320 M00S00294.1ts +++| STM11 RJM TDR TERMINATE DRIVER 00321 M00S00295.1ts +++| LDC 0 00322 M00S00296.1ts +++|* LDC MSGE * INVALID OPTIONAL THINK TIME.* 00323 M00S00297.1ts +++|* LDC MSGB * OUT OF SYNCH.* 00324 M00S00298.1ts +++|* LDC MSGF * ERROR IN SPECIAL ACCOUNT NUMBER.* 00325 M00S00299.1ts +++|* LDC MSGG * INPUT REQUESTED PAST END OF SCRIPT...* 00326 M00S00300.1ts +++| STMB EQU *-1 00327 M00S00301.1ts +++| ZJN STM13 IF NO ERROR MESSAGE 00328 M00S00302.1ts +++| 00329 M00S00303.1ts +++|* TERMINATE STIMULATION RUN. 00330 M00S00304.1ts +++|* 00331 M00S00305.1ts +++|* ENTRY (A) = MESSAGE ADDRESS. 00332 M00S00306.1ts +++| 00333 M00S00307.1ts +++| STM12 RJM DFM 00334 M00S00308.1ts +++| STM13 LDN ZERL CONVERT MAXIMUM CYCLE TIME 00335 M00S00309.1ts +++| CRD CM 00336 M00S00310.1ts +++| LDD MT 00337 M00S00311.1ts +++| ZJN STM14 IF NO TIME ACCUMULATED 00338 M00S00312.1ts +++| STD CM+4 00339 M00S00313.1ts +++| LDD MA 00340 M00S00314.1ts +++| CWD CM 00341 M00S00315.1ts +++| MONITOR RDCM REQUEST DATA CONVERSION 00342 M00S00316.1ts +++| LDD MA SET UP MESSAGE 00343 M00S00317.1ts +++| CRM MSGD,ON *XXXXXX.XXX SEC. 1TS CYCLE TIME.* 00344 M00S00318.1ts +++| LDC MSGD 00345 M00S00319.1ts +++| RJM DFM 00346 M00S00320.1ts +++| STM14 RJM ESD END STIMOUT DATA 00347 M00S00321.1ts +++| LDD IR+3 SET CONTROL TABLE ENTRY COMPLETE 00348 M00S00322.1ts +++| SHN 6 00349 M00S00323.1ts +++| ADD RA 00350 M00S00324.1ts +++| SHN 6 00351 M00S00325.1ts +++| ADD IR+4 00352 M00S00326.1ts +++| CRD CM 00353 M00S00327.1ts +++| LDC 4000 00354 M00S00328.1ts +++| STD CM 00355 M00S00329.1ts +++| LDC 0 00356 M00S00330.1ts +++| STMC EQU *-1 (TOTAL TIMES IN REGULATION) 00357 M00S00331.1ts +++| STD CM+1 00358 M00S00332.1ts +++| LDD IR+3 00359 M00S00333.1ts +++| SHN 6 00360 M00S00334.1ts +++| ADD RA 00361 M00S00335.1ts +++| SHN 6 00362 M00S00336.1ts +++| ADD IR+4 00363 M00S00337.1ts +++| CWD CM
| Line S00338 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00364 M01S00338.ns22000 ---|* UJN DPP DROP PPU
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00365 M01S00017.ns22000 +++| UJN DPP DROP PPU 00366 M01S00018.ns22000 +++| 00367 M01S00019.ns22000 +++| STMD CON 0 PREVIOUS TIME 00368 M00S00339.1ts +++| DPP SPACE 4 00369 M00S00340.1ts +++|** DPP - DROP PPU. 00370 M00S00341.1ts +++| 00371 M00S00342.1ts +++| 00372 M00S00343.1ts +++| DPP MONITOR DPPM DROP PPU 00373 M00S00344.1ts +++| LJM PPR EXIT TO PP RESIDENT
| Line S00345 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00374 M01S00345.ns22000 ---| SPACE 4 00375 M01S00346.ns22000 ---| STMD CON 0 PREVIOUS TIME 00376 M01S00347.ns22000 ---| STME CON 1000D NUMBER OF MILLESECONDS PER SECOND 00377 M00S00348.1ts ---| SPACE 4,10 00378 M00S00349.1ts ---|** STIMULATION COMPLETION MESSAGES. 00379 M00S00350.1ts ---| 00380 M00S00351.1ts ---| MSGA DATA C* IAF ABORT.* 00381 M00S00352.1ts ---| MSGB DATA C* OUT OF SYNCH.* 00382 M00S00353.1ts ---| MSGC DATA C* LOST STIMOUT DATA.* 00383 M00S00354.1ts ---| MSGD DATA C*XXXXXX.XXX SEC. 1TS CYCLE TIME.* 00384 M00S00355.1ts ---| MSGE DATA C* INVALID OPTIONAL THINK TIME.* 00385 M00S00356.1ts ---| MSGF DATA C* ERROR IN SPECIAL ACCOUNT NUMBER.* 00386 M00S00357.1ts ---| MSGG DATA H* INPUT REQUESTED PAST END OF SCRIPT -* 00387 M00S00358.1ts ---| MSGH DATA C*NNNN.* 00388 M00S00359.1ts ---| SPACE 4,10 00389 M00S00360.1ts ---|** COMMON DECKS. 00390 M00S00361.1ts ---| 00391 M00S00362.1ts ---| 00392 M00S00363.1ts ---|*CALL COMPC2D 00393 M00S00364.1ts ---| TITLE TERMINATION ROUTINES. 00394 M00S00365.1ts ---| TDR SPACE 4,15 00395 M00S00366.1ts ---|** TDR - TERMINATE DRIVER. 00396 M00S00367.1ts ---|* 00397 M00S00368.1ts ---|* ENTRY STIMULATION ENDED. 00398 M00S00369.1ts ---|* (NT) = NUMBER OF TERMINALS. 00399 M00S00370.1ts ---|* 00400 M00S00371.1ts ---|* EXIT ALL TERMINALS SET OFF LINE. 00401 M00S00372.1ts ---|* TO *STM10*, IF OUT OF SYNCH OR *1TN* NOT RESPONDING. 00402 M00S00373.1ts ---|* 00403 M00S00374.1ts ---|* USES T1 - T4. 00404 M00S00375.1ts ---|* 00405 M00S00376.1ts ---|* MACROS PAUSE, TTADD. 00406 M00S00377.1ts ---| 00407 M00S00378.1ts ---| 00408 M00S00379.1ts ---| TDR SUBR ENTRY/EXIT 00409 M00S00380.1ts ---| LDN 20 00410 M00S00381.1ts ---| STD T4 00411 M00S00382.1ts ---| LDN 0 00412 M00S00383.1ts ---| STD T3 00413 M00S00384.1ts ---| TDR1 IJM STM10,CH IF DRIVER ABORTED 00414 M00S00385.1ts ---| PAUSE 00415 M00S00386.1ts ---| EJM TDR1,CH WAIT FOR DRIVER 00416 M00S00387.1ts ---| IAN CH+40 INPUT SYNC CODE 00417 M00S00388.1ts ---| LPC 7777 TRUNCATE TO 12 BITS 00418 M00S00389.1ts ---| LMC 7777 00419 M00S00390.1ts ---| ZJN TDR2 IF IN SYNCH 00420 M00S00391.1ts ---| LJM STM10 IF DRIVER ABORTED 00421 M00S00392.1ts ---| 00422 M00S00393.1ts ---| TDR2 STD T1 00423 M00S00394.1ts ---| STD T2 CLEAR ACTIVE COUNT 00424 M00S00395.1ts ---| TDR3 TTADD T1,0 READ TERMINAL TABLE ENTRY 00425 M00S00396.1ts ---| CRD DP 00426 M00S00397.1ts ---| LDD DP CHECK STATUS 00427 M00S00398.1ts ---| SHN 21-13 00428 M00S00399.1ts ---| MJN TDR5 IF OFF LINE 00429 M00S00400.1ts ---| LDD T2 00430 M00S00401.1ts ---| NJN TDR6 IF ONE ALREADY PROCESSED 00431 M00S00402.1ts ---| AOD T3 00432 M00S00403.1ts ---| SBN 20 00433 M00S00404.1ts ---| NJN TDR4 DELAY LOG OFF 00434 M00S00405.1ts ---| STD T3 00435 M00S00406.1ts ---| LDC 4000 SET OFF LINE 00436 M00S00407.1ts ---| STD DP 00437 M00S00408.1ts ---| TTADD T1,0 00438 M00S00409.1ts ---| CWD DP 00439 M00S00410.1ts ---| TDR4 LDD TH SET TERMINAL LOGGED OFF 00440 M00S00411.1ts ---| STD T2 00441 M00S00412.1ts ---| UJN TDR6 OUTPUT CHARACTER 00442 M00S00413.1ts ---| 00443 M00S00414.1ts ---| TDR5 LDN 0 SET OFF LINE 00444 M00S00415.1ts ---| TDR6 OAN CH+40 00445 M00S00416.1ts ---| FJM *,CH 00446 M00S00417.1ts ---| IAN CH+40 ACCEPT DRIVER INPUT 00447 M00S00418.1ts ---| AOD T1 ADVANCE TERMINAL NUMBER 00448 M00S00419.1ts ---| LMD NT
| Line S00420 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00449 M01S00420.ns21000 ---| NJN TDR3 IF MORE TERMINALS
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00450 M01S00010.ns21000 +++| NJP TDR3 IF MORE TERMINALS 00451 M00S00421.1ts +++| LDD T2 00452 M00S00422.1ts +++| ZJN TDR8 IF NO TERMINALS LOGGED OFF 00453 M00S00423.1ts +++| TDR7 LJM TDR1 LOOP 00454 M00S00424.1ts +++| 00455 M00S00425.1ts +++| TDR8 SOD T4 00456 M00S00426.1ts +++| NJN TDR7 IF FINAL PASS INCOMPLETE 00457 M00S00427.1ts +++| DCN CH+40 00458 M00S00428.1ts +++| LJM TDRX RETURN 00459 M00S00429.1ts +++| ESD SPACE 4,15 00460 M00S00430.1ts +++|** ESD - END STIMOUT DATA. 00461 M00S00431.1ts +++|* 00462 M00S00432.1ts +++|* ENTRY STIMULATION COMPLETE. 00463 M00S00433.1ts +++|* (NT) = NUMBER OF TERMINALS. 00464 M00S00434.1ts +++|* 00465 M00S00435.1ts +++|* EXIT DATA WORD IN *TTER* FLUSHED TO FET BUFFER. 00466 M00S00436.1ts +++|* 00467 M00S00437.1ts +++|* USES T1, T7, CM - CM+4. 00468 M00S00438.1ts +++|* 00469 M00S00439.1ts +++|* CALLS SDW. 00470 M00S00440.1ts +++|* 00471 M00S00441.1ts +++|* MACROS TTADD. 00472 M00S00442.1ts +++| 00473 M00S00443.1ts +++| 00474 M00S00444.1ts +++| ESD SUBR ENTRY/EXIT 00475 M00S00445.1ts +++| LDN 1 (NO OUTPUT RECOVERY) 00476 M00S00446.1ts +++|* LDN 0 (OUTPUT RECOVERY) 00477 M00S00447.1ts +++| ESDA EQU *-1 00478 M00S00448.1ts +++| NJN ESDX IF NO OUTPUT RECOVERY 00479 M00S00449.1ts +++| STD T1 ZERO DUMMY CHARACTER 00480 M00S00450.1ts +++| STD T7 TERMINAL NUMBER 00481 M00S00451.1ts +++| ESD1 TTADD T7,3 READ TERMINAL TABLE ENTRY 00482 M00S00452.1ts +++| CRD CM 00483 M00S00453.1ts +++| LDD CM 00484 M00S00454.1ts +++| ZJN ESD2 IF NO ENTRY IN DATA WORD 00485 M00S00455.1ts +++| RJM SDW STORE DATA WORD 00486 M00S00456.1ts +++| ESD2 AOD T7 ADVANCE TERMINAL NUMBER 00487 M00S00457.1ts +++| LMD NT 00488 M00S00458.1ts +++| NJN ESD1 IF MORE TERMINALS 00489 M00S00459.1ts +++| UJN ESDX RETURN 00490 M00S00460.1ts +++| TITLE STIMULATOR SERVICE. 00491 M00S00461.1ts +++| OFL SPACE 4,10 00492 M00S00462.1ts +++|* RETURNS FOR TERMINAL IDLE AND OFF LINE. 00493 M00S00463.1ts +++| 00494 M00S00464.1ts +++| 00495 M00S00465.1ts +++| OFL STM TOCA,OT SET ENTRY ADDRESS 00496 M00S00466.1ts +++| OFL1 LDN 0 SET OFF LINE STATUS 00497 M00S00467.1ts +++| STD OC 00498 M00S00468.1ts +++| UJN STT1 STORE TERMINAL TABLE ENTRY 00499 M00S00469.1ts +++| 00500 M00S00470.1ts +++| OFL2 LDN 0 SET OFF LINE STATUS 00501 M00S00471.1ts +++| STD OC 00502 M00S00472.1ts +++| UJN NOP RETURN FOR NO OPERATION 00503 M00S00473.1ts +++| ONL SPACE 4,10 00504 M00S00474.1ts +++|* RETURNS FOR TERMINAL IDLE AND ON LINE. 00505 M00S00475.1ts +++| 00506 M00S00476.1ts +++| 00507 M00S00477.1ts +++| ONL STM TOCA,OT SET ENTRY ADDRESS 00508 M00S00478.1ts +++| ONL1 LDD TH SET ON LINE STATUS 00509 M00S00479.1ts +++| STD OC 00510 M00S00480.1ts +++| UJN STT1 STORE TERMINAL TABLE ENTRY 00511 M00S00481.1ts +++| 00512 M00S00482.1ts +++| ONL2 LDD TH SET ON LINE STATUS 00513 M00S00483.1ts +++| ONL3 STD OC 00514 M00S00484.1ts +++| UJN NOP RETURN FOR NO OPERATION 00515 M00S00485.1ts +++| STT SPACE 4,10 00516 M00S00486.1ts +++|* RETURNS FOR STORE TERMINAL TABLE ENTRY. 00517 M00S00487.1ts +++| 00518 M00S00488.1ts +++| 00519 M00S00489.1ts +++| STT STM TOCA,OT SET ENTRY ADDRESS 00520 M00S00490.1ts +++| STT1 TTADD OT,0 STORE TERMINAL TABLE ENTRY 00521 M00S00491.1ts +++| CWD DP
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00522 M01S00020.ns22000 +++|* UJN NOP RETURN FOR NO OPERATION 00523 M00S00492.1ts +++| NOP SPACE 4,10 00524 M00S00493.1ts +++|* RETURN FOR NO OPERATION. 00525 M00S00494.1ts +++| 00526 M00S00495.1ts +++| NOP AOD OT ADVANCE OUTPUT TERMINAL 00527 M00S00496.1ts +++| LMD NT 00528 M00S00497.1ts +++| NJN SSL4 IF LIMIT NOT REACHED 00529 M00S00498.1ts +++| STD OT 00530 M00S00499.1ts +++|* UJN SSL4 PROCESS NEXT TERMINAL 00531 M00S00500.1ts +++| SSL SPACE 4,10 00532 M00S00501.1ts +++|** SSL - STIMULATOR SERVICE LOOP. 00533 M00S00502.1ts +++|* 00534 M00S00503.1ts +++|* ENTRY (NT) = NUMBER OF TERMINALS BEING STIMULATED. 00535 M00S00504.1ts +++|* (TC) = TERMINAL COUNT. 00536 M00S00505.1ts +++|* 00537 M00S00506.1ts +++|* EXIT ALL TERMINALS SERVICED. 00538 M00S00507.1ts +++|* 00539 M00S00508.1ts +++|* USES IC, IT, TC, T1. 00540 M00S00509.1ts +++|* 00541 M00S00510.1ts +++|* CALLS RTC. 00542 M00S00511.1ts +++|* 00543 M00S00512.1ts +++|* NOTES UPLINE DATA PROCESSORS RETURN TO THE SERVICE 00544 M00S00513.1ts +++|* LOOP AT *SSL4*. 00545 M00S00514.1ts +++|* 00546 M00S00515.1ts +++|* *SSL* IS RESPONSIBLE FOR SENDING AND RECEIVING 00547 M00S00516.1ts +++|* DATA FROM THE STIMULATOR CHANNEL. 00548 M00S00517.1ts +++| 00549 M00S00518.1ts +++| 00550 M00S00519.1ts +++| SSL4 IAN CH+40 INPUT CHARACTER 00551 M00S00520.1ts +++| STD IC 00552 M00S00521.1ts +++| SOD TC DECREMENT TERMINAL COUNT 00553 M00S00522.1ts +++| NJN SSL1 IF NOT END OF TERMINALS 00554 M00S00523.1ts +++|* UJN SSLX 00555 M00S00524.1ts +++| 00556 M00S00525.1ts +++| SSL SUBR ENTRY/EXIT 00557 M00S00526.1ts +++| SSL1 LDD OC OUTPUT CHARACTER 00558 M00S00527.1ts +++| OAN CH+40 00559 M00S00528.1ts +++| FJM *,CH 00560 M00S00529.1ts +++| LDD IC CHECK PREVIOUS INPUT CHARACTER 00561 M00S00530.1ts +++| SHN 6 00562 M00S00531.1ts +++| PJN SSL2 IF NO INPUT DATA 00563 M00S00532.1ts +++| RJM RTC READ TERMINAL CHARACTER 00564 M00S00533.1ts +++| SSL2 AOD IT ADVANCE INPUT TERMINAL 00565 M00S00534.1ts +++| LMD NT 00566 M00S00535.1ts +++| NJN SSL3 IF LIMIT NOT REACHED 00567 M00S00536.1ts +++| STD IT 00568 M00S00537.1ts +++| SSL3 LDM TOCA,OT 00569 M00S00538.1ts +++| STD T1 00570 M00S00539.1ts +++| LJM 0,T1 ENTER OUTPUT ROUTINE 00571 M00S00540.1ts +++| TITLE UPLINE DATA PROCESSING ROUTINES. 00572 M00S00541.1ts +++| LGI SPACE 4,20 00573 M00S00542.1ts +++|** LGI - PROCESS LOGIN. 00574 M00S00543.1ts +++|* 00575 M00S00544.1ts +++|* ENTRY (LC) = LOGIN COUNT. 00576 M00S00545.1ts +++|* (SC) = SECOND COUNT. 00577 M00S00546.1ts +++|* (OT) = OUTPUT TERMINAL. 00578 M00S00547.1ts +++|* (LCIC) = ON LINE CONTROL. 00579 M00S00548.1ts +++|* 00580 M00S00549.1ts +++|* EXIT TERMINAL SET ON LINE. 00581 M00S00550.1ts +++|* 00582 M00S00551.1ts +++|* USES LC, OC, CM - CM+4, DP - DP+4. 00583 M00S00552.1ts +++|* 00584 M00S00553.1ts +++|* MACROS RETURN, TTADD. 00585 M00S00554.1ts +++|* 00586 M00S00555.1ts +++|* NOTES *LGI* IS RESPONSIBLE FOR THE RATE AT WHICH 00587 M00S00556.1ts +++|* TERMINALS ARE BROUGHT ON LINE. 00588 M00S00557.1ts +++| 00589 M00S00558.1ts +++| 00590 M00S00559.1ts +++| LGI LDD LC CHECK LOGIN COUNT 00591 M00S00560.1ts +++| NJN LGI1 IF LOGIN ALLOWED 00592 M00S00561.1ts +++| LJM OFL2 SET OFF LINE STATUS 00593 M00S00562.1ts +++| 00594 M00S00563.1ts +++| LGI1 TTADD OT,0 READ TERMINAL TABLE ENTRY 00595 M00S00564.1ts +++| CRD DP 00596 M00S00565.1ts +++| SOD LC DECREMENT LOGIN COUNT 00597 M00S00566.1ts +++| RETURN OFL 00598 M00S00567.1ts +++| LGIA LDD SC CHECK SECOND COUNT 00599 M00S00568.1ts +++| NJN LGI2 IF SECOND ELAPSED 00600 M00S00569.1ts +++| LJM OFL2 SET OFF LINE STATUS 00601 M00S00570.1ts +++| 00602 M00S00571.1ts +++| LGI2 TTADD OT,0 READ TERMINAL TABLE ENTRY 00603 M00S00572.1ts +++| CRD DP 00604 M00S00573.1ts +++| SOD CK DECREMENT CLOCK 00605 M00S00574.1ts +++| ZJN LGI3 IF START TIME REACHED 00606 M00S00575.1ts +++| MJN LGI3 IF START TIME REACHED 00607 M00S00576.1ts +++| LJM OFL1 SET OFF LINE STATUS 00608 M00S00577.1ts +++| 00609 M00S00578.1ts +++| LGI3 AOD LC ADJUST LOGIN COUNT 00610 M00S00579.1ts +++| LDD DP CLEAR OFF LINE 00611 M00S00580.1ts +++| LPN 77 KEEP UPPER 6 BITS OF SCRIPT ADDRESS 00612 M00S00581.1ts +++| STD DP 00613 M00S00582.1ts +++| RETURN OFL 00614 M00S00583.1ts +++| LGIB LDM LCIC CHECK ON LINE CONTROL 00615 M00S00584.1ts +++| NJN LGI4 IF OKAY TO BRING ON LINE 00616 M00S00585.1ts +++| LJM OFL2 SET OFF LINE STATUS 00617 M00S00586.1ts +++| 00618 M00S00587.1ts +++| LGI4 SOM LCIC DECREMENT ON LINE CONTROL 00619 M00S00588.1ts +++| TTADD OT,0 00620 M00S00589.1ts +++| CRD DP 00621 M00S00590.1ts +++| RETURN ONL 00622 M00S00591.1ts +++| LGI5 LDC 5000 SEND LEGAL CHARACTER 00623 M00S00592.1ts +++| LJM ONL3 SET ON LINE STATUS 00624 M00S00593.1ts +++| 00625 M00S00594.1ts +++| 00626 M00S00595.1ts +++| LCIC CON 0 ON LINE CONTROL 00627 M00S00596.1ts +++| LGID CON 0 NUMBER OF ACTIVE TERMINALS 00628 M00S00597.1ts +++| REJ SPACE 4,10 00629 M00S00598.1ts +++|** REJ - REJECT CHARACTER. 00630 M00S00599.1ts +++|* 00631 M00S00600.1ts +++|* EXIT (OC) = 1400. 00632 M00S00601.1ts +++|* 00633 M00S00602.1ts +++|* USES OC, DP - DP+4. 00634 M00S00603.1ts +++|* 00635 M00S00604.1ts +++|* MACROS RETURN, TTADD. 00636 M00S00605.1ts +++| 00637 M00S00606.1ts +++| 00638 M00S00607.1ts +++| REJ BSS 0 ENTRY 00639 M00S00608.1ts +++| TTADD OT,0 READ TERMINAL TABLE ENTRY 00640 M00S00609.1ts +++| CRD DP 00641 M00S00610.1ts +++| LDD CK CHECK CLOCK 00642 M00S00611.1ts +++| SBD MC 00643 M00S00612.1ts +++| MJN REJ1 IF CHARACTER DELAY ELAPSED 00644 M00S00613.1ts +++| STD CK 00645 M00S00614.1ts +++| LDC 1400 SET OUTPUT CHARACTER REJECT 00646 M00S00615.1ts +++| STD OC 00647 M00S00616.1ts +++| LJM STT1 UPDATE TERMINAL STATUS 00648 M00S00617.1ts +++| 00649 M00S00618.1ts +++| REJ1 ADD RT RESET CLOCK 00650 M00S00619.1ts +++| PJN REJ2 00651 M00S00620.1ts +++| LDD RT 00652 M00S00621.1ts +++| REJ2 STD CK 00653 M00S00622.1ts +++| RETURN ONL,ONL2
| Line S00623 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00654 M01S00623.ns22000 ---| SPACE 4,10 00655 M01S00624.ns22000 ---| RETURN ONL,ONL2 00656 M00S00625.1ts ---| TTD SPACE 4,15 00657 M00S00626.1ts ---|** TTD - THINK TIME DELAY. 00658 M00S00627.1ts ---|* 00659 M00S00628.1ts ---|* ENTRY (OT) = OUTPUT TERMINAL NUMBER. 00660 M00S00629.1ts ---|* 00661 M00S00630.1ts ---|* EXIT THINK TIME DELAY EXPIRED. 00662 M00S00631.1ts ---|* INPUT SPEED SET FOR UPLINE DATA. 00663 M00S00632.1ts ---|* TO *WTC*. 00664 M00S00633.1ts ---|* 00665 M00S00634.1ts ---|* USES DP - DP+4, TW - TW+4. 00666 M00S00635.1ts ---|* 00667 M00S00636.1ts ---|* MACROS RETURN, TTADD. 00668 M00S00637.1ts ---|* 00669 M00S00638.1ts ---|* NOTES *TTD* IS RESPONSIBLE FOR GENERATING AND 00670 M00S00639.1ts ---|* PROCESSING A THINK TIME DELAY BEFORE SENDING 00671 M00S00640.1ts ---|* UPLINE DATA. 00672 M00S00641.1ts ---| 00673 M00S00642.1ts ---| 00674 M00S00643.1ts ---| TTD BSS 0 ENTRY 00675 M00S00644.1ts ---| TTADD OT,0 READ TERMINAL TABLE ENTRY 00676 M00S00645.1ts ---| CRD DP 00677 M00S00646.1ts ---| LDD TT SET THINK TIME 00678 M00S00647.1ts ---| LPC 177 00679 M00S00648.1ts ---| STD CK 00680 M00S00649.1ts ---| IAN. 14 SELECT RANDOM INCREMENT 00681 M00S00650.1ts ---| TTDA LPN ** 00682 M00S00651.1ts ---| RAD CK 00683 M00S00652.1ts ---| ZJN TTD2 IF NO DELAY 00684 M00S00653.1ts ---| AOD CK 00685 M00S00654.1ts ---| RETURN ONL 00686 M00S00655.1ts ---| LDD SC CHECK SECOND COUNT 00687 M00S00656.1ts ---| NJN TTD1 IF SECOND ELAPSED 00688 M00S00657.1ts ---| LJM ONL2 RETURN ON LINE STATUS 00689 M00S00658.1ts ---| 00690 M00S00659.1ts ---| TTD1 TTADD OT,0 READ TERMINAL TABLE ENTRY 00691 M00S00660.1ts ---| CRD DP 00692 M00S00661.1ts ---| SOD CK DECREMENT CLOCK 00693 M00S00662.1ts ---| ZJN TTD2 IF THINK TIME ELAPSED 00694 M00S00663.1ts ---| LJM ONL1 RETURN ON LINE STATUS 00695 M00S00664.1ts ---| 00696 M00S00665.1ts ---| TTD2 TTADD OT,1 READ TERMINAL TABLE ENTRY 00697 M00S00666.1ts ---| CRD TW 00698 M00S00667.1ts ---| LDD IS SET INPUT SPEED 00699 M00S00668.1ts ---| STD CK 00700 M00S00669.1ts ---| STD RT 00701 M00S00670.1ts ---| RETURN ONL,WTC 00702 M00S00671.1ts ---| WTC SPACE 4,25 00703 M00S00672.1ts ---|** WTC - WRITE CHARACTER. 00704 M00S00673.1ts ---|* 00705 M00S00674.1ts ---|* ENTRY INPUT SPEED SET IN *TTER*. 00706 M00S00675.1ts ---|* (OT) = OUTPUT TERMINAL. 00707 M00S00676.1ts ---|* (MC) = MILLESECOND TIME CLOCK. 00708 M00S00677.1ts ---|* 00709 M00S00678.1ts ---|* EXIT (OC) = OUTPUT CHARACTER. 00710 M00S00679.1ts ---|* TO *STT1* IF CHARACTER TO OUTPUT.
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00711 M01S00021.ns22000 +++|* TO *OTT1* TO PROCESS OPTIONAL THINK TIME. 00712 M00S00680.1ts +++|* TO *ONL1* IF OPTIONAL THINK TIME PROCESSED. 00713 M00S00681.1ts +++|* 00714 M00S00682.1ts +++|* USES T0 - T6, DP - DP+4, TW - TW+4. 00715 M00S00683.1ts +++|* 00716 M00S00684.1ts +++|* CALLS GNT, OTT, SAN, SDC. 00717 M00S00685.1ts +++|* 00718 M00S00686.1ts +++|* MACROS TTADD. 00719 M00S00687.1ts +++|* 00720 M00S00688.1ts +++|* NOTES *WTC* IS RESPONSIBLE FOR THE FOLLOWING - 00721 M00S00689.1ts +++|* 1. PROCESSING INPUT SPEED FOR UPLINE DATA. 00722 M00S00690.1ts +++|* 2. GETTING THE NEXT CHARACTER OF UPLINE DATA 00723 M00S00691.1ts +++|* FROM THE SESSION SCRIPT IN CM. 00724 M00S00692.1ts +++|* 3. PROCESS ANY SPECIAL CHARACTERS RELATED TO 00725 M00S00693.1ts +++|* TASKS, OPTIONAL THINK TIME, OR DYNAMIC 00726 M00S00694.1ts +++|* USER NUMBERS. 00727 M00S00695.1ts +++| 00728 M00S00696.1ts +++| 00729 M00S00697.1ts +++| WTC BSS 0 ENTRY 00730 M00S00698.1ts +++| TTADD OT,0 READ TERMINAL TABLE ENTRY 00731 M00S00699.1ts +++| CRD DP 00732 M00S00700.1ts +++|
| Line S00701 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00733 M01S00701.ns22000 ---|* CHECK IF INPUT SPEED EXPIRED.
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00734 M01S00022.ns22000 +++|* CHECK IF INPUT THINK TIME EXPIRED. 00735 M00S00702.1ts +++| 00736 M00S00703.1ts +++| LDD CK CHECK CLOCK 00737 M00S00704.1ts +++| SBD MC 00738 M00S00705.1ts +++| MJN WTC1 IF CHARACTER DELAY ELAPSED 00739 M00S00706.1ts +++| STD CK 00740 M00S00707.1ts +++| LJM ONL1 RETURN ON LINE STATUS 00741 M00S00708.1ts +++| 00742 M00S00709.1ts +++| WTC1 ADD RT SET NEW RATE 00743 M00S00710.1ts +++| PJN WTC2 00744 M00S00711.1ts +++| LDD RT 00745 M00S00712.1ts +++| WTC2 STD CK 00746 M00S00713.1ts +++| 00747 M00S00714.1ts +++|* SAVE CURRENT SCRIPT ADDRESS FOR POSSIBLE LINE 00748 M00S00715.1ts +++|* REGULATION PROCESSING. 00749 M00S00716.1ts +++| 00750 M00S00717.1ts +++| LDD DP 00751 M00S00718.1ts +++| SHN 21-11 00752 M00S00719.1ts +++| PJN WTC3 IF NOT BEGINNING OF LINE 00753 M00S00720.1ts +++| TTADD OT,4 SAVE CURRENT ADDRESS OF SCRIPT 00754 M00S00721.1ts +++| CRD T1 00755 M00S00722.1ts +++| LDD DP 00756 M00S00723.1ts +++| STD T1 00757 M00S00724.1ts +++| LDD DP+1 00758 M00S00725.1ts +++| STD T1+1 00759 M00S00726.1ts +++| LDN 0 00760 M00S00727.1ts +++| STD T1+2 00761 M00S00728.1ts +++| TTADD OT,4 00762 M00S00729.1ts +++| CWD T1 00763 M00S00730.1ts +++| 00764 M00S00731.1ts +++|* GET NEXT CHARACTER FROM SCRIPT SESSION. 00765 M00S00732.1ts +++| 00766 M00S00733.1ts +++| WTC3 LDD DP SET BYTE NUMBER 00767 M00S00734.1ts +++| SHN 14 00768 M00S00735.1ts +++| LPN 7 00769 M00S00736.1ts +++| STD T5 00770 M00S00737.1ts +++| LDD DP 00771 M00S00738.1ts +++| LPN 77 00772 M00S00739.1ts +++| SHN 6 00773 M00S00740.1ts +++| ADD RA 00774 M00S00741.1ts +++| SHN 6 00775 M00S00742.1ts +++| ADD DP+1 00776 M00S00743.1ts +++| CRD T0 00777 M00S00744.1ts +++| LDD HN ADVANCE BYTE 00778 M00S00745.1ts +++| RAD DP 00779 M00S00746.1ts +++| SHN -6 00780 M00S00747.1ts +++| LPN 7 00781 M00S00748.1ts +++| LMN 5 00782 M00S00749.1ts +++| NJN WTC4 IF NOT END OF WORD 00783 M00S00750.1ts +++| AOD DP+1 ADVANCE WORD 00784 M00S00751.1ts +++| SHN -14 00785 M00S00752.1ts +++| ADD DP 00786 M00S00753.1ts +++| LPC 1077 RESET BYTE 00787 M00S00754.1ts +++| STD DP 00788 M00S00755.1ts +++| WTC4 TTADD OT,0 00789 M00S00756.1ts +++| CWD DP 00790 M00S00757.1ts +++| TTADD OT,1 00791 M00S00758.1ts +++| CRD TW 00792 M00S00759.1ts +++| 00793 M00S00760.1ts +++|* CHECK CHARACTERS FOR SPECIAL PROCESSING. 00794 M00S00761.1ts +++| 00795 M00S00762.1ts +++| LDI T5 CHECK FOR SPECIAL CHARACTER 00796 M00S00763.1ts +++| SHN -11 00797 M00S00764.1ts +++| ZJN WTC7 IF NOT SPECIAL CHARACTER 00798 M00S00765.1ts +++| LDN 0 CLEAR INDEX 00799 M00S00766.1ts +++| STD T6 00800 M00S00767.1ts +++| WTC5 LDM TSCH,T6 CHECK FOR SPECIAL CHARACTER 00801 M00S00768.1ts +++| ZJN WTC7 IF END OF TABLE 00802 M00S00769.1ts +++| LMI T5 00803 M00S00770.1ts +++| ZJN WTC6 IF SPECIAL CHARACTER 00804 M00S00771.1ts +++| LDN 2 ADVANCE TABLE INDEX 00805 M00S00772.1ts +++| RAD T6 00806 M00S00773.1ts +++| UJN WTC5 LOOP 00807 M00S00774.1ts +++| 00808 M00S00775.1ts +++| WTC6 LDM TSCH+1,T6 GET PROCESSOR ADDRESS 00809 M00S00776.1ts +++| STD T6 00810 M00S00777.1ts +++| LJM 0,T6 PROCESS SPECIAL CHARACTER 00811 M00S00778.1ts +++| 00812 M00S00779.1ts +++| WTC7 LDD TO 00813 M00S00780.1ts +++| ZJN WTC8 IF NOT IN OPTIONAL THINK TIME MODE 00814 M00S00781.1ts +++| LJM OTT1 PROCESS OPTIONAL THINK TIME 00815 M00S00782.1ts +++| 00816 M00S00783.1ts +++| WTC8 LDI T5 SET CHARACTER 00817 M00S00784.1ts +++| LMD TH STORE OUTPUT CHARACTER 00818 M00S00785.1ts +++| STD OC 00819 M00S00786.1ts +++| LDD DP CLEAR FIRST OUTPUT FLAG 00820 M00S00787.1ts +++| LPC 6777 00821 M00S00788.1ts +++| STD DP 00822 M00S00789.1ts +++| LDD TO CHECK OPTIONAL THINK TIME ENTRY 00823 M00S00790.1ts +++| ZJN WTC9 IF NOT OPTIONAL THINK TIME ENTRY 00824 M00S00791.1ts +++| LDC ONL1&STT1 00825 M00S00792.1ts +++| WTC9 LMC STT1 00826 M00S00793.1ts +++| STM WTCA 00827 M00S00794.1ts +++| LDD OT SET TERMINAL NUMBER 00828 M00S00795.1ts +++| STD T7 00829 M00S00796.1ts +++| LDD OC STORE DATA CHARACTER 00830 M00S00797.1ts +++| LPC 377 00831 M00S00798.1ts +++| RJM SDC 00832 M00S00799.1ts +++| LJM *
| Line S00800 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00833 M01S00800.ns22000 ---| 00834 M00S00801.1ts ---|* LJM STT1 (NO OPTIONAL THINK TIME) 00835 M00S00802.1ts ---|* LJM ONL1 (OPTIONAL THINK TIME PRESENT) 00836 M00S00803.1ts ---| WTCA EQU *-1 00837 M00S00804.1ts ---| TSCH SPACE 4,10 00838 M00S00805.1ts ---|** TSCH - TABLE OF SPECIAL CHARACTERS. 00839 M00S00806.1ts ---|* 00840 M00S00807.1ts ---|*T 12/ CHAR
Figure
00841 M00S00808.1ts ---|*T, 12/ ADDR
Figure
00842 M00S00809.1ts ---|* 00843 M00S00810.1ts ---|* CHAR SPECIAL CHARACTER (ASCII) 00844 M00S00811.1ts ---|* ADDR ADDRESS OF PROCESSOR 00845 M00S00812.1ts ---| 00846 M00S00813.1ts ---| 00847 M00S00814.1ts ---| TSCH BSS 0 00848 M00S00815.1ts ---| CON .ELCR,EOL END OF LINE 00849 M00S00816.1ts ---| CON .ELXO,EOL END NOF LINE 00850 M00S00817.1ts ---| CON .ESC,EOL ESCAPE 00851 M00S00818.1ts ---| CON .ETX,EOL END OF TEXT 00852 M00S00819.1ts ---| CON .AUTO,WTC7 SOURCE LINE INPUT 00853 M00S00820.1ts ---| CON .BTSK,SNT BEGIN TASK 00854 M00S00821.1ts ---| CON .ETSK,PET END TASK 00855 M00S00822.1ts ---| CON .SACN,SAN DYNAMIC LOGIN 00856 M00S00823.1ts ---| CON .OPTT,OTT OPTIONAL THINK TIME 00857 M00S00824.1ts ---| CON .ESCR,EOS END OF SCRIPT 00858 M00S00825.1ts ---| CON .ESXO,EOS END OF SCRIPT 00859 M00S00826.1ts ---| CON 0,0 END OF TABLE 00860 M00S00827.1ts ---| EOL SPACE 4,20 00861 M00S00828.1ts ---|** EOL - PROCESS END OF LINE. 00862 M00S00829.1ts ---|* 00863 M00S00830.1ts ---|* ENTRY (OT) = OUTPUT TERMINAL NUMBER. 00864 M00S00831.1ts ---|* (TO) = OPTIONAL THINK TIME. 00865 M00S00832.1ts ---|* (DP - DP+4) = TERMINAL STATUS. 00866 M00S00833.1ts ---|* 00867 M00S00834.1ts ---|* EXIT TERMINAL STATUS UPDATED IN *TTER*. 00868 M00S00835.1ts ---|* (OC) = OUTPUT CHARACTER. 00869 M00S00836.1ts ---|* TO *STT1* IF NO ERROR. 00870 M00S00837.1ts ---|* TO *ONL1* IF ERROR ENCOUNTERED. 00871 M00S00838.1ts ---|* 00872 M00S00839.1ts ---|* USES CK, DP, RT, TO, TT, CM - CM+4. 00873 M00S00840.1ts ---|* 00874 M00S00841.1ts ---|* CALLS ETM, SDC. 00875 M00S00842.1ts ---|* 00876 M00S00843.1ts ---|* MACROS TTADD. 00877 M00S00844.1ts ---| 00878 M00S00845.1ts ---| 00879 M00S00846.1ts ---| EOL BSS 0 ENTRY 00880 M00S00847.1ts ---| LDD TO 00881 M00S00848.1ts ---| NJN EOL1 IF OPTIONAL THINK TIME 00882 M00S00849.1ts ---| LJM EOL5 IF NORMAL PROCESSING 00883 M00S00850.1ts ---| 00884 M00S00851.1ts ---| EOL1 LMC 6000 CHECK FLAG FOR \\ 00885 M00S00852.1ts ---| ZJN EOL3 IF RESET TO INITIAL THINK TIME 00886 M00S00853.1ts ---| LDD TO CHECK OPTIONAL THINK TIME 00887 M00S00854.1ts ---| LPC 1777 00888 M00S00855.1ts ---| STD T6 00889 M00S00856.1ts ---| ADC -200 00890 M00S00857.1ts ---| PJN EOL4 IF ENTRY TOO LARGE 00891 M00S00858.1ts ---| EOL2 LDD TT CURRENT RC,TT VALUES IN TERMINAL TABLE 00892 M00S00859.1ts ---| LPC 7600 KEEP RC VALUE 00893 M00S00860.1ts ---| ADD T6 INSERT NEW TT VALUE 00894 M00S00861.1ts ---| STD TT 00895 M00S00862.1ts ---| STD RT 00896 M00S00863.1ts ---| STD CK 00897 M00S00864.1ts ---| LDN 0 00898 M00S00865.1ts ---| STD TO CLEAR OPTIONAL THINK TIME 00899 M00S00866.1ts ---| TTADD OT,1 00900 M00S00867.1ts ---| CWD TW 00901 M00S00868.1ts ---| LJM ONL1 RETURN ON LINE 00902 M00S00869.1ts ---| 00903 M00S00870.1ts ---| EOL3 LDD TI SET INITIAL THINK TIME 00904 M00S00871.1ts ---| STD T6 00905 M00S00872.1ts ---| UJN EOL2 INSERT THINK TIME 00906 M00S00873.1ts ---| 00907 M00S00874.1ts ---| EOL4 LDC MSGE SET INTERNAL ERROR STATUS 00908 M00S00875.1ts ---| STM STMB 00909 M00S00876.1ts ---| LDC LDNI+1 00910 M00S00877.1ts ---| STM STMA 00911 M00S00878.1ts ---| LJM ONL1 RETURN ON LINE 00912 M00S00879.1ts ---| 00913 M00S00880.1ts ---|* PROCESS END OF LINE (CARRIAGE RETURN, ECS, ETX). 00914 M00S00881.1ts ---| 00915 M00S00882.1ts ---| EOL5 BSS 0 ENTRY 00916 M00S00883.1ts ---| LDC ONL2 SET ON LINE 00917 M00S00884.1ts ---| STM TOCA,OT 00918 M00S00885.1ts ---| LDD LI RESET LINE SPEED FOR OUTPUT 00919 M00S00886.1ts ---| STD RT 00920 M00S00887.1ts ---| LDI T5 STORE OUTPUT CHARACTER 00921 M00S00888.1ts ---| LPC 377 00922 M00S00889.1ts ---| LMC 5000 00923 M00S00890.1ts ---| STD OC 00924 M00S00891.1ts ---| TTADD OT,2 00925 M00S00892.1ts ---| CRD CM 00926 M00S00893.1ts ---| LDD CM+4 00927 M00S00894.1ts ---| ZJN EOL6 IF NOT SOURCE LINE INPUT 00928 M00S00895.1ts ---| LDC TTD SET THINK TIME DELAY PROCESSOR 00929 M00S00896.1ts ---| STM TOCA,OT 00930 M00S00897.1ts ---| LDD DP SET FIRST OUTPUT CHARACTER ENCOUNTERED 00931 M00S00898.1ts ---| LPC 6777 00932 M00S00899.1ts ---| LMC 1000 00933 M00S00900.1ts ---| STD DP 00934 M00S00901.1ts ---| EOL6 LDD CM+2 CLEAR USER NUMBER FLAG 00935 M00S00902.1ts ---| LPN 77 00936 M00S00903.1ts ---| STD CM+2 00937 M00S00904.1ts ---| LDN 0 00938 M00S00905.1ts ---| STD CK 00939 M00S00906.1ts ---| STD CM+4 CLEAR SOURCE LINE INPUT FLAG 00940 M00S00907.1ts ---| TTADD OT,2 00941 M00S00908.1ts ---| CWD CM 00942 M00S00909.1ts ---| LDD OT SET TERMINAL NUMBER 00943 M00S00910.1ts ---| STD T7 00944 M00S00911.1ts ---| LDD OC STORE DATA CHARACTER 00945 M00S00912.1ts ---| LPC 377 00946 M00S00913.1ts ---| RJM SDC 00947 M00S00914.1ts ---| RJM ETM ENTER TIME 00948 M00S00915.1ts ---| LJM STT1 RETURN TERMINAL STATUS 00949 M00S00916.1ts ---| EOS SPACE 4,20 00950 M00S00917.1ts ---|** EOS - PROCESS END OF SCRIPT. 00951 M00S00918.1ts ---|* 00952 M00S00919.1ts ---|* ENTRY (DP - DP+4) = TERMINAL STATUS. 00953 M00S00920.1ts ---|* (RBUF - RBUF+4) = *RA+0* WORD. 00954 M00S00921.1ts ---|* 00955 M00S00922.1ts ---|* EXIT TERMINAL STATUS AND SCRIPT ADDRESS UPDATED. 00956 M00S00923.1ts ---|* TO *EOL5* IF LAST SESSION. 00957 M00S00924.1ts ---|* TO *EOL* IF NEW SESSION TO BE STIMULATED. 00958 M00S00925.1ts ---|* 00959 M00S00926.1ts ---|* USES T6, T7, CM - CM+4, DP - DP+4. 00960 M00S00927.1ts ---| 00961 M00S00928.1ts ---| 00962 M00S00929.1ts ---| EOS BSS 0 ENTRY 00963 M00S00930.1ts ---| LDD DP+2 00964 M00S00931.1ts ---| LPC 7600 00965 M00S00932.1ts ---| NJN EOS1 REPEAT COUNT PRESENT 00966 M00S00933.1ts ---| LDD DP SET END OF SESSION 00967 M00S00934.1ts ---| LPN 77 00968 M00S00935.1ts ---| LMC 6000 00969 M00S00936.1ts ---| STD DP 00970 M00S00937.1ts ---| LJM EOL5 PROCESS END OF LINE 00971 M00S00938.1ts ---| 00972 M00S00939.1ts ---| EOS1 LDM RBUF CHECK LOOP FLAG 00973 M00S00940.1ts ---| SHN 21-13 00974 M00S00941.1ts ---| PJN EOS2 IF NEXT RECORD TO BE USED 00975 M00S00942.1ts ---| LJM EOS5 IF REPEAT ON SESSION RECORD 00976 M00S00943.1ts ---| 00977 M00S00944.1ts ---|* LOOP ON FILE - SET ADDRESS OF NEXT SESSION RECORD. 00978 M00S00945.1ts ---| 00979 M00S00946.1ts ---| EOS2 LDN 0 00980 M00S00947.1ts ---| STD T7 00981 M00S00948.1ts ---| LDD DP 00982 M00S00949.1ts ---| SHN -6 00983 M00S00950.1ts ---| ZJN EOS3 IF THE 1ST BYTE OF A NEW WORD 00984 M00S00951.1ts ---| AOD T7 00985 M00S00952.1ts ---| EOS3 AOD T7 00986 M00S00953.1ts ---| LDD DP 00987 M00S00954.1ts ---| LPN 77 00988 M00S00955.1ts ---| SHN 14 00989 M00S00956.1ts ---| ADD DP+1 00990 M00S00957.1ts ---| ADD T7 00991 M00S00958.1ts ---| STD DP+1 00992 M00S00959.1ts ---| SHN -14 00993 M00S00960.1ts ---| STD DP 00994 M00S00961.1ts ---| SBM RBUF 00995 M00S00962.1ts ---| SHN 14 00996 M00S00963.1ts ---| ADD DP+1 00997 M00S00964.1ts ---| SBM RBUF+1 00998 M00S00965.1ts ---| ZJN EOS4 IF LAST SESSION - LOOP TO FIRST SESSION 00999 M00S00966.1ts ---| LJM EOS9 IF SESSION TO CONTINUE TO NEXT SCRIPT 01000 M00S00967.1ts ---| 01001 M00S00968.1ts ---| EOS4 LDM RBUF+3 SET FWA OF FIRST SCRIPT 01002 M00S00969.1ts ---| STD DP+1 01003 M00S00970.1ts ---| LDM RBUF+2 01004 M00S00971.1ts ---| LJM EOS8 DECREMENT REPEAT COUNT 01005 M00S00972.1ts ---| 01006 M00S00973.1ts ---|* LOOP ON SESSION - SET ADDRESS OF CURRENT SESSION RECORD. 01007 M00S00974.1ts ---| 01008 M00S00975.1ts ---| EOS5 LDD DP 01009 M00S00976.1ts ---| SHN -6 01010 M00S00977.1ts ---| ZJN EOS6 IF THE FIRST BYTE OF A NEW WORD 01011 M00S00978.1ts ---| LDN 1 01012 M00S00979.1ts ---| EOS6 STD T6 ADDRESS OF NEXT SESSION RECORD 01013 M00S00980.1ts ---| LDD DP 01014 M00S00981.1ts ---| LPN 77 01015 M00S00982.1ts ---| STD DP 01016 M00S00983.1ts ---| SHN 6 01017 M00S00984.1ts ---| ADD RA 01018 M00S00985.1ts ---| SHN 6 01019 M00S00986.1ts ---| ADD DP+1 01020 M00S00987.1ts ---| ADD T6 FORM POINTER TO START OF CURRENT RECORD 01021 M00S00988.1ts ---| CRD CM 01022 M00S00989.1ts ---| LDD DP+1 BACK UP POINTER TO START OF RECORD 01023 M00S00990.1ts ---| SBD CM+4 01024 M00S00991.1ts ---| ADD T6 01025 M00S00992.1ts ---| STD DP+1 01026 M00S00993.1ts ---| PJN EOS7 IF POSITIVE 01027 M00S00994.1ts ---| ADC 10000B IF NEGATIVE, ADD THE CARRY 01028 M00S00995.1ts ---| STD DP+1 01029 M00S00996.1ts ---| SOD DP DECREMENT DUE TO THE CARRY 01030 M00S00997.1ts ---| EOS7 LDD DP 01031 M00S00998.1ts ---| SBD CM+3 01032 M00S00999.1ts ---| EOS8 STD DP 01033 M00S01000.1ts ---| 01034 M00S01001.1ts ---|* DECREMENT REPEAT COUNT. 01035 M00S01002.1ts ---| 01036 M00S01003.1ts ---| EOS9 LDD DP+2 CHECK FOR UNLIMITED REPEAT COUNT 01037 M00S01004.1ts ---| LPC 7600 MASK REPEAT COUNT 01038 M00S01005.1ts ---| LMC 7600 01039 M00S01006.1ts ---| ZJN EOS10 IF RC=31 (MAXIMUM, DO NOT DECREMENT) 01040 M00S01007.1ts ---| LDC -200 DECREMENT REPEAT COUNT BY 1 01041 M00S01008.1ts ---| RAD DP+2 01042 M00S01009.1ts ---| EOS10 LJM EOL PROCESS END OF LINE 01043 M00S01010.1ts ---| PET SPACE 4,20 01044 M00S01011.1ts ---|** PET - PROCESS END OF TASK. 01045 M00S01012.1ts ---|* 01046 M00S01013.1ts ---|* ENTRY (OT) = OUTPUT TERMINAL NUMBER. 01047 M00S01014.1ts ---|* 01048 M00S01015.1ts ---|* EXIT SCRIPT ADDRESS RESET IN *TTER*. 01049 M00S01016.1ts ---|* TASK COMPLETION COUNTER ADVANCED. 01050 M00S01017.1ts ---|* 01051 M00S01018.1ts ---|* USES CM - CM+4, DP - DP+4, T0 - T0+4. 01052 M00S01019.1ts ---|* 01053 M00S01020.1ts ---|* MACROS TTADD. 01054 M00S01021.1ts ---|* 01055 M00S01022.1ts ---|* NOTES IF NO TASK ENTRY ADDRESS IS PRESENT IN *TTER*, THEN 01056 M00S01023.1ts ---|* THE SPECIAL CHARACTER, *.ETSK*, WILL BE PROCESSED AS 01057 M00S01024.1ts ---|* A CHARACTER OF DATA. 01058 M00S01025.1ts ---|* 01059 M00S01026.1ts ---|* *END OF TASK* PROCESSING WILL RESET THE DYNAMIC 01060 M00S01027.1ts ---|* LOGIN FIELD IN *TTER*. 01061 M00S01028.1ts ---| 01062 M00S01029.1ts ---| 01063 M00S01030.1ts ---| PET BSS 0 ENTRY 01064 M00S01031.1ts ---| TTADD OT,2 READ THIRD WORD OF *TTER* ENTRY 01065 M00S01032.1ts ---| CRD CM 01066 M00S01033.1ts ---| LDD CM+2 READ SECOND WORD OF *TASK* ENTRY 01067 M00S01034.1ts ---| LPN 77 01068 M00S01035.1ts ---| STD CM+2 01069 M00S01036.1ts ---| ADD CM+3 01070 M00S01037.1ts ---| NJN PET1 IF TASK ENTRY ADDRESS PRESENT 01071 M00S01038.1ts ---| LJM WTC7 NO SPECIAL PROCESSING REQUIRED 01072 M00S01039.1ts ---| 01073 M00S01040.1ts ---| PET1 LDD CM+2 01074 M00S01041.1ts ---| SHN 6 01075 M00S01042.1ts ---| ADD RA 01076 M00S01043.1ts ---| SHN 6 01077 M00S01044.1ts ---| ADD CM+3 01078 M00S01045.1ts ---| ADN 1 01079 M00S01046.1ts ---| CRD T0 01080 M00S01047.1ts ---| AOD T3 INCREMENT TASK COMPLETED COUNTER 01081 M00S01048.1ts ---| LDD CM+2 WRITE SECOND WORD OF *TASK* ENTRY 01082 M00S01049.1ts ---| SHN 6 01083 M00S01050.1ts ---| ADD RA 01084 M00S01051.1ts ---| SHN 6 01085 M00S01052.1ts ---| ADD CM+3 01086 M00S01053.1ts ---| ADN 1 01087 M00S01054.1ts ---| CWD T0 01088 M00S01055.1ts ---| TTADD OT,0 READ TERMINAL STATUS 01089 M00S01056.1ts ---| CRD DP 01090 M00S01057.1ts ---| LDD DP SET OLD SCRIPT ADDRESS 01091 M00S01058.1ts ---| LMD CM 01092 M00S01059.1ts ---| LPC 7000 01093 M00S01060.1ts ---| LMD CM 01094 M00S01061.1ts ---| STD DP 01095 M00S01062.1ts ---| LDD CM+1 01096 M00S01063.1ts ---| STD DP+1 01097 M00S01064.1ts ---| TTADD OT,0 SET SCRIPT ADDRESS 01098 M00S01065.1ts ---| CWD DP REPLACE *TTER* WITH OLD SCRIPT ADDR 01099 M00S01066.1ts ---| LDD CM+2 CLEAR TASK ENTRY ADDRESS 01100 M00S01067.1ts ---| SCN 77 01101 M00S01068.1ts ---| STD CM+2 01102 M00S01069.1ts ---| LDN 0 01103 M00S01070.1ts ---| STD CM+3 01104 M00S01071.1ts ---| TTADD OT,2 01105 M00S01072.1ts ---| CWD CM 01106 M00S01073.1ts ---| LJM WTC3 PROCESS NEXT CHARACTER 01107 M00S01074.1ts ---| SNT SPACE 4,20 01108 M00S01075.1ts ---|** SNT - SET NEXT TASK. 01109 M00S01076.1ts ---|* 01110 M00S01077.1ts ---|* ENTRY (OT) = OUTPUT TERMINAL NUMBER. 01111 M00S01078.1ts ---|* 01112 M00S01079.1ts ---|* EXIT NEXT BEST TASK SET IN *TTER*. 01113 M00S01080.1ts ---|* TO *WTC3*. 01114 M00S01081.1ts ---|* 01115 M00S01082.1ts ---|* USES T6, T7, CM - CM+4, DP - DP+4. 01116 M00S01083.1ts ---|* 01117 M00S01084.1ts ---|* MACROS TTADD. 01118 M00S01085.1ts ---| 01119 M00S01086.1ts ---| 01120 M00S01087.1ts ---| SNT BSS 0 ENTRY 01121 M00S01088.1ts ---| TTADD OT,0 READ TERMINAL STATUS 01122 M00S01089.1ts ---| CRD CM 01123 M00S01090.1ts ---| TTADD OT,2 READ TASK ADDRESS 01124 M00S01091.1ts ---| CRD DP 01125 M00S01092.1ts ---| LDD CM SAVE CURRENT SCRIPT ADDRESS 01126 M00S01093.1ts ---| LPC 777 01127 M00S01094.1ts ---| STD DP 01128 M00S01095.1ts ---| LDD CM+1 01129 M00S01096.1ts ---| STD DP+1 01130 M00S01097.1ts ---| LDD RA GET NEXT BEST TASK 01131 M00S01098.1ts ---| SHN 6 01132 M00S01099.1ts ---| ADN RANT 01133 M00S01100.1ts ---| CRD CM 01134 M00S01101.1ts ---| LDD CM+3 01135 M00S01102.1ts ---| SHN 14 01136 M00S01103.1ts ---| ADD CM+4 01137 M00S01104.1ts ---| NJN GNT1 IF TASK SET 01138 M00S01105.1ts ---| LDD RA ADVANCE NO TASK COUNTER 01139 M00S01106.1ts ---| SHN 6 01140 M00S01107.1ts ---| ADN RASC 01141 M00S01108.1ts ---| CRD CM 01142 M00S01109.1ts ---| AOD CM+4 01143 M00S01110.1ts ---| LDD RA GET DEFAULT TASK ADDRESS 01144 M00S01111.1ts ---| SHN 6 01145 M00S01112.1ts ---| ADN RASC 01146 M00S01113.1ts ---| CWD CM 01147 M00S01114.1ts ---| ADN RATK SET DEFAULT TASK 01148 M00S01115.1ts ---| CRD CM 01149 M00S01116.1ts ---| STM GNTA SET DEFAULT TASK FLAG 01150 M00S01117.1ts ---| LDD CM+3 01151 M00S01118.1ts ---| SHN 14 01152 M00S01119.1ts ---| ADD CM+4 LOAD ADDRESS OF TASK TABLE 01153 M00S01120.1ts ---| NJN GNT1 IF TASK TABLE EXISTS 01154 M00S01121.1ts ---| LJM WTC7 CONTINUE CHARACTER PROCESSING 01155 M00S01122.1ts ---| 01156 M00S01123.1ts ---| GNT1 LDD CM+4 SAVE FWA OF TASK 01157 M00S01124.1ts ---| STD T7 01158 M00S01125.1ts ---| LDD CM+3 GET FWA OF TASK TEXT 01159 M00S01126.1ts ---| LPN 77 01160 M00S01127.1ts ---| STD T6 01161 M00S01128.1ts ---| SHN 6 01162 M00S01129.1ts ---| ADD RA 01163 M00S01130.1ts ---| SHN 6 01164 M00S01131.1ts ---| ADD CM+4 01165 M00S01132.1ts ---| CRD CM 01166 M00S01133.1ts ---| ADN 1 01167 M00S01134.1ts ---| CRD T0 READ SECOND WORD OF TASK ENTRY 01168 M00S01135.1ts ---| LDD DP+2 01169 M00S01136.1ts ---| LPC 7700 01170 M00S01137.1ts ---| ADD T6 01171 M00S01138.1ts ---| STD DP+2 01172 M00S01139.1ts ---| LDD T7 01173 M00S01140.1ts ---| STD DP+3 01174 M00S01141.1ts ---| TTADD OT,2 SAVE OLD SCRIPT ADDRESS 01175 M00S01142.1ts ---| CWD DP 01176 M00S01143.1ts ---| TTADD OT,0 READ TERMINAL STATUS 01177 M00S01144.1ts ---| CRD DP 01178 M00S01145.1ts ---| LDD DP SET TASK ADDRESS 01179 M00S01146.1ts ---| LPC 7000 01180 M00S01147.1ts ---| ADD CM+3 01181 M00S01148.1ts ---| STD DP 01182 M00S01149.1ts ---| LDD CM+4 01183 M00S01150.1ts ---| STD DP+1 01184 M00S01151.1ts ---| TTADD OT,0 01185 M00S01152.1ts ---| CWD DP 01186 M00S01153.1ts ---| LDC ** 01187 M00S01154.1ts ---| GNTA EQU *-1 (DEFAULT TASK FLAG) 01188 M00S01155.1ts ---| NJN GNT2 IF DEFAULT TASK SELECTED 01189 M00S01156.1ts ---| LDN ZERL CLEAR TASK ADDRESS 01190 M00S01157.1ts ---| CRD CM 01191 M00S01158.1ts ---| LDD RA 01192 M00S01159.1ts ---| SHN 6 01193 M00S01160.1ts ---| ADN RANT 01194 M00S01161.1ts ---| CWD CM 01195 M00S01162.1ts ---| GNT2 AOD T4 INCREMENT *TASK CALLED* 01196 M00S01163.1ts ---| LDD T6 UPDATE SECOND WORD OF *TASK* ENTRY 01197 M00S01164.1ts ---| SHN 6 01198 M00S01165.1ts ---| ADD RA 01199 M00S01166.1ts ---| SHN 6 01200 M00S01167.1ts ---| ADD T7 01201 M00S01168.1ts ---| ADN 1 01202 M00S01169.1ts ---| CWD T0 01203 M00S01170.1ts ---| LDN 0 CLEAR DEFAULT TASK FLAG 01204 M00S01171.1ts ---| STM GNTA 01205 M00S01172.1ts ---| LJM WTC3 PROCESS NEXT CHARACTER 01206 M00S01173.1ts ---| OTT SPACE 4,10 01207 M00S01174.1ts ---|** OTT - OPTIONAL THINK TIME. 01208 M00S01175.1ts ---|* 01209 M00S01176.1ts ---|* ENTRY ((T5)) = OUTPUT CHARACTER. 01210 M00S01177.1ts ---|* (TO) = OPTIONAL THINK TIME. 01211 M00S01178.1ts ---|* 01212 M00S01179.1ts ---|* EXIT (TO) = OPTIONAL THINK TIME. 01213 M00S01180.1ts ---|* TO *WTC3*. 01214 M00S01181.1ts ---|* 01215 M00S01182.1ts ---|* USES TO, T6. 01216 M00S01183.1ts ---|* 01217 M00S01184.1ts ---|* MACROS TTADD. 01218 M00S01185.1ts ---|* 01219 M00S01186.1ts ---|* NOTE OPTIONAL THINK TIME IS SET INTO *TTER* WHEN 01220 M00S01187.1ts ---|* END OF LINE IS PROCESSED. 01221 M00S01188.1ts ---| 01222 M00S01189.1ts ---| 01223 M00S01190.1ts ---| OTT BSS 0 ENTRY 01224 M00S01191.1ts ---| LDD TO 01225 M00S01192.1ts ---| ZJN OTT4 IF NOT RESET REQUEST 01226 M00S01193.1ts ---| LDC 6000 SET FLAG TO RESET INITIAL THINK TIME 01227 M00S01194.1ts ---| STD TO 01228 M00S01195.1ts ---| UJN OTT5 UPDATE *TTER* 01229 M00S01196.1ts ---| 01230 M00S01197.1ts ---| OTT1 BSS 0 ENTRY 01231 M00S01198.1ts ---| LDN 0 01232 M00S01199.1ts ---| STD T6 01233 M00S01200.1ts ---| OTT2 LDM TANV,T6 GET ASCII NUMBER FROM TABLE 01234 M00S01201.1ts ---| ZJN OTT5 IF END OF TABLE - IGNORE CHARACTER 01235 M00S01202.1ts ---| LMI T5 01236 M00S01203.1ts ---| ZJN OTT3 IF MATCH 01237 M00S01204.1ts ---| AOD T6 01238 M00S01205.1ts ---| UJN OTT2 UPDATE *TTER* 01239 M00S01206.1ts ---| 01240 M00S01207.1ts ---| OTT3 LDD TO SET OPTIONAL THINK TIME 01241 M00S01208.1ts ---| LPC 777 01242 M00S01209.1ts ---| SHN 3 01243 M00S01210.1ts ---| LMD T6 01244 M00S01211.1ts ---| OTT4 LMC 4000B SET FLAG (IN CASE OF LEADING 0 CHARS) 01245 M00S01212.1ts ---| STD TO 01246 M00S01213.1ts ---| UJN OTT5 01247 M00S01214.1ts ---| 01248 M00S01215.1ts ---| OTT5 TTADD OT,1 01249 M00S01216.1ts ---| CWD TW REPLACE *TTER-1* ENTRY 01250 M00S01217.1ts ---| LJM WTC3 PROCESS NEXT CHARACTER 01251 M00S01218.1ts ---| TANV SPACE 4,10 01252 M00S01219.1ts ---|** TANV - TABLE OF ASCII NUMERIC VALUES. 01253 M00S01220.1ts ---| 01254 M00S01221.1ts ---| 01255 M00S01222.1ts ---| TANV BSS 0 01256 M00S01223.1ts ---| LOC 0 01257 M00S01224.1ts ---| CON .ZER 0 01258 M00S01225.1ts ---| CON .ONE 1 01259 M00S01226.1ts ---| CON .TWO 2 01260 M00S01227.1ts ---| CON .THR 3 01261 M00S01228.1ts ---| CON .FOR 4 01262 M00S01229.1ts ---| CON .FIV 5 01263 M00S01230.1ts ---| CON .SIX 6 01264 M00S01231.1ts ---| CON .SEV 7 01265 M00S01232.1ts ---| CON 0 END OF TABLE 01266 M00S01233.1ts ---| LOC *O 01267 M00S01234.1ts ---| SAN SPACE 4,10 01268 M00S01235.1ts ---|** SAN - SET ACCOUNT NUMBER. 01269 M00S01236.1ts ---|* 01270 M00S01237.1ts ---|* ENTRY ((T5)) = OUTPUT CHARACTER. 01271 M00S01238.1ts ---|* (OT) = OUTPUT TERMINAL. 01272 M00S01239.1ts ---|* 01273 M00S01240.1ts ---|* EXIT ((T5)) = NEXT OUTPUT CHARACTER. 01274 M00S01241.1ts ---|* ACCOUNT FLAG IN *TTER* UPDATED. 01275 M00S01242.1ts ---|* TO *WTC3*. 01276 M00S01243.1ts ---|* 01277 M00S01244.1ts ---|* USES T5, T6, CM - CM+4. 01278 M00S01245.1ts ---|* 01279 M00S01246.1ts ---|* MACROS TTADD. 01280 M00S01247.1ts ---| 01281 M00S01248.1ts ---| 01282 M00S01249.1ts ---| SAN BSS 0 ENTRY 01283 M00S01250.1ts ---| LDM SDWA SET TERMINAL NUMBER 01284 M00S01251.1ts ---| ADD OT 01285 M00S01252.1ts ---| STD T6 01286 M00S01253.1ts ---| TTADD OT,2 READ TERMINAL TABLE ENTRY 01287 M00S01254.1ts ---| CRD CM 01288 M00S01255.1ts ---| LDD CM+2 GET ACCOUNT NUMBER POINTER 01289 M00S01256.1ts ---| SHN 14 01290 M00S01257.1ts ---| LPN 7 01291 M00S01258.1ts ---| NJN SAN1 IF FIRST CHARACTER PROCESSED 01292 M00S01259.1ts ---| LDD T6 SET FIRST CHARACTER OF TERMINAL NUMBER 01293 M00S01260.1ts ---| SHN 14 01294 M00S01261.1ts ---| UJN SAN3 REPLACE SPECIAL CHARACTER 01295 M00S01262.1ts ---| 01296 M00S01263.1ts ---| SAN1 SBN 1 01297 M00S01264.1ts ---| NJN SAN2 IF SECOND CHARACTER PROCESSED 01298 M00S01265.1ts ---| LDD T6 SET SECOND CHARACTER OF TERMINAL NUMBER 01299 M00S01266.1ts ---| SHN 17 01300 M00S01267.1ts ---| UJN SAN3 REPLACE SPECIAL CHARACTER 01301 M00S01268.1ts ---| 01302 M00S01269.1ts ---| SAN2 SBN 1 01303 M00S01270.1ts ---| NJN SAN4 IF THIRD CHARACTER PROCESSED - FLAG ERROR 01304 M00S01271.1ts ---| LDD T6 SET THIRD CHARACTER OF TERMINAL NUMBER 01305 M01S01272.ns22000 ---| 01306 M00S01273.1ts ---| SAN3 LPC 7 ISOLATE LOWER 3-BITS 01307 M00S01274.1ts ---| STD T6 01308 M00S01275.1ts ---| LDM TANV,T6 CONVERT NUMBER TO ASCII CHARACTER 01309 M00S01276.1ts ---| STI T5 SAVE OUTPUT CHARACTER 01310 M00S01277.1ts ---| LDD CM+2 01311 M00S01278.1ts ---| ADC 100 INCREMENT ACCOUNT NUMBER POINTER BY 1 01312 M00S01279.1ts ---| STD CM+2 01313 M00S01280.1ts ---| TTADD OT,2 WRITE TERMINAL TABLE ENTRY 01314 M00S01281.1ts ---| CWD CM 01315 M00S01282.1ts ---| LJM WTC7 PROCESS NEXT CHARACTER 01316 M00S01283.1ts ---| 01317 M00S01284.1ts ---| SAN4 LDC MSGF SET INTERNAL ERROR STATUS 01318 M00S01285.1ts ---| STM STM12 01319 M00S01286.1ts ---| LDC LDNI+1 01320 M00S01287.1ts ---| STM STMA 01321 M00S01288.1ts ---| LJM WTC3 PROCESS NEXT CHARACTER 01322 M00S01289.1ts ---| TITLE DOWNLINE DATA PROCESSING ROUTINES. 01323 M00S01290.1ts ---| RTC SPACE 4,25 01324 M01S01291.ns22000 ---|** RTC - READ TERMINAL CHARACTER
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01325 M01S00023.ns22000 +++|** RTC - READ TERMINAL CHARACTER. 01326 M00S01292.1ts +++|* 01327 M00S01293.1ts +++|* ENTRY (IC) = INPUT CHARACTER. 01328 M00S01294.1ts +++|* 01329 M00S01295.1ts +++|* EXIT TO *HNU* IF (IC) = 6000. 01330 M00S01296.1ts +++|* TO *INI* IF (IC) = 6400. 01331 M00S01297.1ts +++|* 01332 M00S01298.1ts +++|* USES T7, DP - DP+4. 01333 M00S01299.1ts +++|* 01334 M00S01300.1ts +++|* CALLS ETM, SDC. 01335 M00S01301.1ts +++| 01336 M00S01302.1ts +++| 01337 M00S01303.1ts +++| RTC SUBR ENTRY/EXIT 01338 M00S01304.1ts +++| LDD IC 01339 M00S01305.1ts +++| LPC 6777 01340 M00S01306.1ts +++| LMC 1000 01341 M00S01307.1ts +++| LMC 7000 01342 M00S01308.1ts +++| ZJN RTCX IF PHONE LINE ENABLE 01343 M00S01309.1ts +++| LMC .IISE&7000 01344 M00S01310.1ts +++| NJN RTC1 IF NOT HANG UP 01345 M00S01311.1ts +++| LJM HNU HANG UP 01346 M00S01312.1ts +++| 01347 M00S01313.1ts +++| RTC1 LMC .IISI&.IISE 01348 M00S01314.1ts +++| NJN RTC2 IF NOT BEGIN INPUT 01349 M00S01315.1ts +++| LJM INI INITIATE INPUT 01350 M00S01316.1ts +++| 01351 M00S01317.1ts +++| RTC2 LDM TOCA,IT CHECK ROUTINE 01352 M00S01318.1ts +++| LMC LGI5 01353 M00S01319.1ts +++| ZJN RTCX RETURN IF LOGIN IN PROCESS 01354 M00S01320.1ts +++| LDC REJ SET REJECT 01355 M00S01321.1ts +++| RTC3 STM TOCA,IT 01356 M00S01322.1ts +++| RTC4 LDD IT SET TERMINAL NUMBER 01357 M00S01323.1ts +++| STD T7 01358 M00S01324.1ts +++| TTADD IT,0 01359 M00S01325.1ts +++| CRD DP 01360 M00S01326.1ts +++| LDD DP 01361 M00S01327.1ts +++| SHN 21-11 01362 M00S01328.1ts +++| MJN RTC5 IF NOT POSSIBLY THE SECOND CHARACTER 01363 M00S01329.1ts +++| LDD IC CHARACTER 01364 M00S01330.1ts +++| LPC 4376 01365 M00S01331.1ts +++| LMC 4024 01366 M00S01332.1ts +++| ZJN RTC6 IF ECHO *LF* - DO NOT PUT OUT TIME 01367 M00S01333.1ts +++| LMC 4032&4024 01368 M00S01334.1ts +++| ZJN RTC6 IF *CR* SENT 01369 M00S01335.1ts +++| LMC 4000&4032 01370 M00S01336.1ts +++| ZJN RTC5 IF NULL CHARACTER SENT FOR CARRIAGE DELAY 01371 M00S01337.1ts +++| LMC 4376&4000 01372 M00S01338.1ts +++| ZJN RTC5 IF DELETE CHARACTER SENT IN TAPE MODE 01373 M00S01339.1ts +++| LDC 1000 01374 M00S01340.1ts +++| RAD DP 01375 M00S01341.1ts +++| TTADD IT,0 01376 M00S01342.1ts +++| CWD DP SET FIRST CHARACTER FLAG 01377 M00S01343.1ts +++| RJM ETM ENTER TIME 01378 M00S01344.1ts +++| RTC5 LDD IC STORE DATA CHARACTER 01379 M00S01345.1ts +++| LPC 377 01380 M00S01346.1ts +++| RJM SDC 01381 M00S01347.1ts +++| RTC6 LJM RTCX RETURN 01382 M00S01348.1ts +++| HNU SPACE 4,25 01383 M00S01349.1ts +++|** HNU - HANG UP. 01384 M00S01350.1ts +++|* 01385 M00S01351.1ts +++|* ENTRY (IT) = INPUT TERMINAL. 01386 M00S01352.1ts +++|* (NT) = NUMBER OF TERMINALS. 01387 M00S01353.1ts +++|* (AT) = ACTIVE TERMINAL COUNT. 01388 M00S01354.1ts +++|* 01389 M00S01355.1ts +++|* EXIT IF REPEAT COUNT NOT PRESENT, TERMINAL SET OFF LINE 01390 M00S01356.1ts +++|* (AT) = ACTIVE TERMINAL COUNT. 01391 M00S01357.1ts +++|* (LC) = LOGIN CONTROL. 01392 M00S01358.1ts +++|* 01393 M00S01359.1ts +++|* USES AT, DP - DP+4, TW - TW+4. 01394 M00S01360.1ts +++|* 01395 M00S01361.1ts +++|* MACROS TTADD. 01396 M00S01362.1ts +++|* 01397 M00S01363.1ts +++|* NOTES IF A REPEAT COUNT IS PRESENT, *HNU* WILL 01398 M00S01364.1ts +++|* INITIALIZE THE *TTER* ENTRY FOR THE NEXT SESSION 01399 M00S01365.1ts +++|* TO BE PROCESSED. THIS INCLUDES SETTING THE THINK 01400 M00S01366.1ts +++|* TIME, AND LOGIN DELAY. *PSO* HAS ALREADY SET 01401 M00S01367.1ts +++|* THE SESSION ADDRESS IN *TTER*. 01402 M00S01368.1ts +++|* IF NO REPEAT COUNT IS PRESENT, THE TERMINAL IS 01403 M00S01369.1ts +++|* SET OFF LINE. 01404 M00S01370.1ts +++| 01405 M00S01371.1ts +++| 01406 M00S01372.1ts +++| HNU BSS 0 ENTRY 01407 M00S01373.1ts +++| TTADD IT,0 READ TERMINAL TABLE ENTRY 01408 M00S01374.1ts +++| CRD DP 01409 M00S01375.1ts +++| LDD DP SET OFF LINE 01410 M00S01376.1ts +++| LPC 3777 01411 M00S01377.1ts +++| LMC 4000 01412 M00S01378.1ts +++| STD DP 01413 M00S01379.1ts +++| TTADD IT,1 01414 M00S01380.1ts +++| CRD TW 01415 M00S01381.1ts +++| LDD TT REPLACE INITIAL THINK TIME 01416 M00S01382.1ts +++| LPC 7600 01417 M00S01383.1ts +++| ADD TI 01418 M00S01384.1ts +++| STD TT 01419 M00S01385.1ts +++| TTADD IT,0 01420 M00S01386.1ts +++| CWD DP 01421 M00S01387.1ts +++| LDD DP CHECK SESSION STATUS 01422 M00S01388.1ts +++| SHN 21-12 01423 M00S01389.1ts +++| MJN HNU1 IF END OF SESSIONS 01424 M00S01390.1ts +++| LDD LD 01425 M00S01391.1ts +++| STD CK SET *LOGOUT DELAY* AS *LOGIN DELAY* 01426 M00S01392.1ts +++| TTADD IT,0 01427 M00S01393.1ts +++| CWD DP REPLACE TERMINAL TABLE ENTRY 01428 M00S01394.1ts +++| TTADD IT,2 CLEAR LINE FEED 01429 M00S01395.1ts +++| CRD CM 01430 M00S01396.1ts +++| LDD CM 01431 M00S01397.1ts +++| LPC 3777 01432 M00S01398.1ts +++| STD CM 01433 M00S01399.1ts +++| TTADD IT,2 01434 M00S01400.1ts +++| CWD CM 01435 M00S01401.1ts +++| LDC LGI SET LOGIN 01436 M00S01402.1ts +++| STM TOCA,IT 01437 M00S01403.1ts +++| LJM RTCX RETURN 01438 M00S01404.1ts +++| 01439 M00S01405.1ts +++| HNU1 SOD AT DECREMENT ACTIVE TERMINAL COUNT 01440 M00S01406.1ts +++| LDC OFL2 SET OFF LINE 01441 M00S01407.1ts +++| LJM RTC3 RETURN 01442 M00S01408.1ts +++| INI SPACE 4,25 01443 M00S01409.1ts +++|** INI - INITIATE INPUT. 01444 M00S01410.1ts +++|* 01445 M00S01411.1ts +++|* ENTRY UPLINE DATA TO BE INITIATED. 01446 M00S01412.1ts +++|* (IT) = INPUT TERMINAL. 01447 M00S01413.1ts +++|* 01448 M00S01414.1ts +++|* EXIT OUTPUT PROCESSOR SET IN *TOCA*. 01449 M00S01415.1ts +++|* INPUT TYPING SPEED SET IF LOGIN IN PROCESS. 01450 M00S01416.1ts +++|* 01451 M00S01417.1ts +++|* USES DP - DP+4. 01452 M00S01418.1ts +++|* 01453 M00S01419.1ts +++|* CALLS HNU. 01454 M00S01420.1ts +++|* 01455 M00S01421.1ts +++|* MACROS TTADD. 01456 M00S01422.1ts +++| 01457 M00S01423.1ts +++| 01458 M00S01424.1ts +++| INI BSS 0 ENTRY 01459 M00S01425.1ts +++| TTADD IT,0 01460 M00S01426.1ts +++| CRD DP 01461 M00S01427.1ts +++| LDD DP 01462 M00S01428.1ts +++| SHN -12 01463 M00S01429.1ts +++| LMN 3
| Line S01430 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01464 M01S01430.ns21000 ---| ZJN INI2 IF END OF SCRIPT HAS BEEN REACHED
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01465 M01S00011.ns21000 +++| ZJP INI2 IF END OF SCRIPT HAS BEEN REACHED 01466 M00S01431.1ts +++| LDM TOCA,IT 01467 M00S01432.1ts +++| LMC LGI5 01468 M00S01433.1ts +++| NJN INI1 IF LOGIN NOT IN PROCESS 01469 M00S01434.1ts +++| TTADD IT,1 01470 M00S01435.1ts +++| CRD TW 01471 M00S01436.1ts +++| LDD IS SET INPUT TYPING SPEED FOR DATA RATE 01472 M00S01437.1ts +++| STD RT 01473 M00S01438.1ts +++| STD CK 01474 M00S01439.1ts +++| TTADD IT,0 01475 M00S01440.1ts +++| CWD DP 01476 M00S01441.1ts +++| LDC WTC SET WRITE CHARACTER 01477 M00S01442.1ts +++| STM TOCA,IT 01478 M00S01443.1ts +++| LJM RTCX 01479 M00S01444.1ts +++| 01480 M00S01445.1ts +++| INI1 LDC TTD SET THINK TIME 01481 M00S01446.1ts +++| STM TOCA,IT 01482 M00S01447.1ts +++| LJM RTCX RETURN 01483 M00S01448.1ts +++| 01484 M00S01449.1ts +++| INI2 LDC MSGG SET INTERNAL ERROR STATUS 01485 M00S01450.1ts +++| STM STMB 01486 M00S01451.1ts +++| LDC LDNI+1 01487 M00S01452.1ts +++| STM STMA 01488 M00S01453.1ts +++| LDD IT SET TERMINAL NUMBER IN MESSAGE 01489 M00S01454.1ts +++| SHN -6 01490 M00S01455.1ts +++| RJM C2D CONVERT DIGITS 01491 M00S01456.1ts +++| STM MSGH 01492 M00S01457.1ts +++| LDD IT 01493 M00S01458.1ts +++| RJM C2D CONVERT DIGITS 01494 M00S01459.1ts +++| STM MSGH+1 01495 M00S01460.1ts +++| LJM HNU HANG UP PHONE 01496 M00S01461.1ts +++| TITLE COMMON SUBROUTINES. 01497 M00S01462.1ts +++| ETM SPACE 4,10 01498 M00S01463.1ts +++|** ETM - ENTER TIME. 01499 M00S01464.1ts +++|* 01500 M00S01465.1ts +++|* ENTRY (LS) = LAST SECOND CLOCK. 01501 M00S01466.1ts +++|* (LM) = LAST MILLESECOND CLOCK. 01502 M00S01467.1ts +++|* 01503 M00S01468.1ts +++|* EXIT TIME STAMP SET ON DATA. 01504 M00S01469.1ts +++|* 01505 M00S01470.1ts +++|* CALLS SDC. 01506 M00S01471.1ts +++| 01507 M00S01472.1ts +++| 01508 M00S01473.1ts +++| ETM SUBR ENTRY/EXIT 01509 M00S01474.1ts +++| LDD LS ENTER LAST SECOND CLOCK 01510 M00S01475.1ts +++| LPC 1777 01511 M00S01476.1ts +++| LMC 6000 SET TIME FLAG FOR *DEMUX* 01512 M00S01477.1ts +++| RJM SDC STORE TIME BYTE 01513 M00S01478.1ts +++| LDD LM ENTER MILLISECONDS 01514 M00S01479.1ts +++| LPC 1777 01515 M00S01480.1ts +++| LMC 4000 SET TIME FLAG 01516 M00S01481.1ts +++| RJM SDC STORE MS TIME BYTE 01517 M00S01482.1ts +++| UJN ETMX RETURN 01518 M01S00012.ns21000 +++| SAA SPACE 4,10 01519 M01S00013.ns21000 +++|** SAA - SET ABSOLUTE ADDRESSES. 01520 M01S00014.ns21000 +++|* 01521 M01S00015.ns21000 +++|* EXIT ABSOLUTE ADDRESSES SET IN *SDW*. 01522 M01S00016.ns21000 +++|* 01523 M01S00017.ns21000 +++|* USES T1 - T2, CM - CM+4. 01524 M01S00018.ns21000 +++| 01525 M01S00019.ns21000 +++| 01526 M01S00020.ns21000 +++| SAA SUBR ENTRY/EXIT 01527 M01S00021.ns21000 +++| LDC ** 01528 M01S00022.ns21000 +++| SAAA EQU *-1 (FET ADDRESS) 01529 M01S00023.ns21000 +++| SHN 6 01530 M01S00024.ns21000 +++| LMC ** (FET ADDRESS) 01531 M01S00025.ns21000 +++| SAAB EQU *-1 01532 M01S00026.ns21000 +++| ZJN SAAX IF NO OUTPUT RECOVERED 01533 M01S00027.ns21000 +++| ADD RA SET IN POINTER ADDRESS 01534 M01S00028.ns21000 +++| SHN 6 01535 M01S00029.ns21000 +++| ADN 2 01536 M01S00030.ns21000 +++| STD T2 01537 M01S00031.ns21000 +++| STM .INA+1 01538 M01S00032.ns21000 +++| SHN -14
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01539 M02S00033.ns22000 ---| LPN 77
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01540 M01S00034.ns21000 +++| STD T1 01541 M01S00035.ns21000 +++| ADC LDCI 01542 M01S00036.ns21000 +++| STM .INA 01543 M01S00037.ns21000 +++| LDD T1 01544 M01S00038.ns21000 +++| SHN 14 01545 M01S00039.ns21000 +++| LMD T2 01546 M01S00040.ns21000 +++| CRD IN READ IN 01547 M01S00041.ns21000 +++|* PSN (AFTER FIRST ENTRY) 01548 M01S00042.ns21000 +++| SAAC EQU *-1 01549 M01S00043.ns21000 +++| SBN 1 01550 M01S00044.ns21000 +++| CRD CM READ FIRST 01551 M01S00045.ns21000 +++| LDD CM+3 01552 M01S00046.ns21000 +++| LPN 37 01553 M01S00047.ns21000 +++| SHN 14 01554 M01S00048.ns21000 +++| ADD CM+4 01555 M01S00049.ns21000 +++| SBN 1 ADJUST FOR IN ADVANCEMENT 01556 M01S00050.ns21000 +++| STM .FT1+1 01557 M01S00051.ns21000 +++| SHN -14 01558 M01S00052.ns21000 +++| ADC LDCI 01559 M01S00053.ns21000 +++| STM .FT1 01560 M01S00054.ns21000 +++| LDD T1 READ LIMIT 01561 M01S00055.ns21000 +++| SHN 14 01562 M01S00056.ns21000 +++| LMD T2 01563 M01S00057.ns21000 +++| ADN 2 01564 M01S00058.ns21000 +++| CRD CM 01565 M01S00059.ns21000 +++| LDD CM+3 01566 M01S00060.ns21000 +++| LPN 37 01567 M01S00061.ns21000 +++| SHN 6 01568 M01S00062.ns21000 +++| ADD RA 01569 M01S00063.ns21000 +++| SHN 6 01570 M01S00064.ns21000 +++| ADD CM+4 01571 M01S00065.ns21000 +++| SBN 1 01572 M01S00066.ns21000 +++| STM .LM1+1 01573 M01S00067.ns21000 +++| SHN -14
| Line S00068 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01574 M02S00068.ns22000 ---| LPN 77
| Line S00069 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01575 M01S00069.ns21000 +++| ADC LMCI 01576 M01S00070.ns21000 +++| STM .LM1 01577 M01S00071.ns21000 +++| LDD RA SET RA 01578 M01S00072.ns21000 +++| SHN 6 01579 M01S00073.ns21000 +++| STM .RA1+1 01580 M01S00074.ns21000 +++| SHN -14
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01581 M02S00075.ns22000 ---| LPN 77
| Line S00076 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01582 M01S00076.ns21000 +++| ADC ADCI 01583 M01S00077.ns21000 +++| STM .RA1 01584 M01S00078.ns21000 +++| LDC PSNI DISABLE READ OF IN 01585 M01S00079.ns21000 +++| STM SAAC 01586 M01S00080.ns21000 +++| LJM SAAX RETURN 01587 M00S01483.1ts +++| SDC SPACE 4,20 01588 M00S01484.1ts +++|** SDC - STORE DATA CHARACTER. 01589 M00S01485.1ts +++|* 01590 M00S01486.1ts +++|* ENTRY (A) = CHARACTER. 01591 M00S01487.1ts +++|* (T7) = TERMINAL NUMBER. 01592 M00S01488.1ts +++|* 01593 M00S01489.1ts +++|* EXIT DATA WORD IN *TTER* UPDATED WITH CHARACTER. 01594 M00S01490.1ts +++|* 01595 M00S01491.1ts +++|* USES T1, CM - CM+4. 01596 M00S01492.1ts +++|* 01597 M00S01493.1ts +++|* CALLS SDW. 01598 M00S01494.1ts +++|* 01599 M00S01495.1ts +++|* NOTES *SDC* USES THE DATA WORD (FOURTH WORD OF 01600 M00S01496.1ts +++|* THE *TTER* ENTRY) AS A TEMPORARY BUFFER FOR 01601 M00S01497.1ts +++|* OUTPUT. ONCE THIS WORD IS FULL, *SDC* IS CALLED 01602 M00S01498.1ts +++|* TO ENTER IT INTO THE OUTPUT BUFFER. 01603 M00S01499.1ts +++| 01604 M00S01500.1ts +++| 01605 M00S01501.1ts +++| SDC SUBR ENTRY/EXIT 01606 M00S01502.1ts +++| STD T1 SAVE CHARACTER 01607 M00S01503.1ts +++| LDN 1 (NO OUTPUT RECOVERY) 01608 M00S01504.1ts +++|* LDN 0 (OUTPUT RECOVERY) 01609 M00S01505.1ts +++| SDCA EQU *-1 01610 M00S01506.1ts +++| NJN SDCX IF NO OUTPUT RECOVERY 01611 M00S01507.1ts +++| TTADD T7,3 READ TERMINAL TABLE ENTRY 01612 M00S01508.1ts +++| CRD CM 01613 M00S01509.1ts +++| AOD CM 01614 M00S01510.1ts +++| LMN 4 01615 M00S01511.1ts +++| ZJN SDC1 IF END OF WORD PACK 01616 M00S01512.1ts +++| LDD T1 01617 M00S01513.1ts +++| STM CM,CM 01618 M00S01514.1ts +++| TTADD T7,3 WRITE TERMINAL TABLE ENTRY 01619 M00S01515.1ts +++| CWD CM 01620 M00S01516.1ts +++| LDD T1 01621 M00S01517.1ts +++| NJN SDC2 IF NOT END OF SESSION 01622 M00S01518.1ts +++| SDC1 RJM SDW 01623 M00S01519.1ts +++| SDC2 UJN SDCX RETURN 01624 M00S01520.1ts +++| SDW SPACE 4,20 01625 M00S01521.1ts +++|** SDW - STORE DATA WORD. 01626 M00S01522.1ts +++|* 01627 M00S01523.1ts +++|* ENTRY (T7) = TERMINAL NUMBER. 01628 M00S01524.1ts +++|* (T1) = CHARACTER. 01629 M00S01525.1ts +++|* (IN - IN+4) = ADDRESS TO IN POINTER. 01630 M00S01526.1ts +++|* 01631 M00S01527.1ts +++|* EXIT DATA WORD WRITTEN TO FET BUFFER. 01632 M00S01528.1ts +++|* IN POINTER UPDATED IN FET. 01633 M00S01529.1ts +++|* 01634 M00S01530.1ts +++|* USES IN+3, IN+4, CM - CM+4. 01635 M00S01531.1ts +++|* 01636 M00S01532.1ts +++|* CALLS DFM. 01637 M00S01533.1ts +++| 01638 M00S01534.1ts +++| 01639 M00S01535.1ts +++| SDW SUBR ENTRY/EXIT 01640 M00S01536.1ts +++| LDD T7 ENTER TERMINAL NUMBER 01641 M00S01537.1ts +++| ADC ** 01642 M00S01538.1ts +++| SDWA EQU *-1 (TERMINAL BIAS)
| Line S01539 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01643 M01S01539.ns21000 ---| ADC 0 01644 M01S01540.ns21000 ---|* ADC 4000 (TRACE INFORMATION FLAG, *1TE* ONLY) 01645 M01S01541.ns21000 ---| SDWB EQU *-1 01646 M00S01542.1ts ---| STD CM 01647 M00S01543.1ts ---| LDD T1 ENTER CHARACTER 01648 M00S01544.1ts ---| STD CM+4 01649 M00S01545.1ts ---| LDD IN+3 STORE DATA WORD 01650 M00S01546.1ts ---| SHN 14 01651 M00S01547.1ts ---| ADD IN+4 01652 M00S01548.1ts ---| .RA1 ADC ** 01653 M00S01549.1ts ---| CWD CM 01654 M00S01550.1ts ---| .LM1 LMC ** CHECK IN 01655 M00S01551.1ts ---| NJN SDW1 IF IN .NE LIMIT-1 01656 M00S01552.1ts ---| .FT1 LDC ** RESET IN = FIRST 01657 M00S01553.1ts ---| STD IN+4 01658 M00S01554.1ts ---| SHN -14 01659 M00S01555.1ts ---| STD IN+3 01660 M00S01556.1ts ---| SDW1 AOD IN+4 ADVANCE IN 01661 M00S01557.1ts ---| SHN -14 01662 M00S01558.1ts ---| ZJN SDW2 01663 M00S01559.1ts ---| AOD IN+3 01664 M00S01560.1ts ---| SDW2 BSS 0 01665 M00S01561.1ts ---| .INA LDC ** UPDATE IN 01666 M00S01562.1ts ---| CWD IN 01667 M00S01563.1ts ---| ADN 1 01668 M00S01564.1ts ---| CRD CM READ OUT 01669 M00S01565.1ts ---| LDD IN+3 01670 M00S01566.1ts ---| SBD CM+3 IN-OUT 01671 M00S01567.1ts ---| SHN 14 01672 M00S01568.1ts ---| ADD IN+4 01673 M00S01569.1ts ---| SBD CM+4 01674 M00S01570.1ts ---| NJN SDW3 IF IN IS NOT EQUAL TO OUT 01675 M00S01571.1ts ---| LDC MSGC OVERFLOW MESSAGE 01676 M00S01572.1ts ---| RJM DFM 01677 M00S01573.1ts ---| SDW3 LDN ZERL 01678 M00S01574.1ts ---| CRD CM 01679 M00S01575.1ts ---| TTADD T7,3 CLEAR DATA WORD ENTRY 01680 M00S01576.1ts ---| CWD CM CLEAR ACCUMULATOR WORD 01681 M00S01577.1ts ---| LJM SDWX RETURN 01682 M00S01578.1ts ---| TITLE INITIALIZATION. 01683 M00S01579.1ts ---| PRS SPACE 4,20 01684 M00S01580.1ts ---|** PRS - PRESET PROGRAM. 01685 M00S01581.1ts ---| 01686 M00S01582.1ts ---| 01687 M00S01583.1ts ---| PRS3 LDN 0 CLEAR TERMINAL NUMBER 01688 M00S01584.1ts ---| STD T1 01689 M00S01585.1ts ---| LDD NT SET ACTIVE TERMINAL COUNT 01690 M00S01586.1ts ---| STD AT 01691 M00S01587.1ts ---| PRS4 LDC LGI ENTRY ADDRESS = LOGIN 01692 M00S01588.1ts ---| STM TOCA,T1 01693 M00S01589.1ts ---| TTADD T1,0 01694 M00S01590.1ts ---| CRD CM 01695 M00S01591.1ts ---| LDD CM CHECK DISABLED STATUS 01696 M00S01592.1ts ---| SHN 21-12 01697 M00S01593.1ts ---| PJN PRS5 IF TERMINAL ACTIVE 01698 M00S01594.1ts ---| SOD AT DECREMENT ACTIVE TERMINAL COUNT 01699 M00S01595.1ts ---| LDC OFL2 SET ENTRY ADDRESS OFF LINE 01700 M00S01596.1ts ---| STM TOCA,T1 01701 M00S01597.1ts ---| PRS5 AOD T1 ADVANCE TERMINAL NUMBER 01702 M00S01598.1ts ---| LMD NT 01703 M00S01599.1ts ---| NJN PRS4 IF NOT END OF TABLE 01704 M00S01600.1ts ---| LDC RTCL READ REAL TIME CLOCK 01705 M00S01601.1ts ---| CRD CM 01706 M00S01602.1ts ---| LDD CM+4 SET LAST MILLISECOND COUNT 01707 M00S01603.1ts ---| STM STMD SET PREVIOUS TIME 01708 M00S01604.1ts ---| LDD RA READ *RA* 01709 M00S01605.1ts ---| SHN 6 01710 M00S01606.1ts ---| CRM RBUF,ON 01711 M00S01607.1ts ---|* UJN PRSX RETURN 01712 M00S01608.1ts ---| 01713 M00S01609.1ts ---| PRS SUBR ENTRY/EXIT 01714 M00S01610.1ts ---| PAUSE NE
| Line S01611 Modification History | |
|---|---|
M01 (Removed by) | ns2715 |
Seq # *Modification Id* Act ----------------------------+ 01715 M01S01611.ns2715 ---| RJM CTS CHECK *IAF* STATUS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2715 |
Seq # *Modification Id* Act ----------------------------+ 01716 M01S00001.ns2715 +++| LDK NCPL CHECK *STIMULA* CONTROL POINT 01717 M01S00002.ns2715 +++| CRD CM 01718 M01S00003.ns2715 +++| LDD CM+1 01719 M01S00004.ns2715 +++| SHN 7 01720 M01S00005.ns2715 +++| LMD CP 01721 M01S00006.ns2715 +++| ZJN PRS0 IF *STIMULA* AT LAST CONTROL POINT 01722 M01S00007.ns2715 +++| LDC =C+ *STM* MUST BE AT LAST CP.+ 01723 M01S00008.ns2715 +++| LJM ABT ABORT 01724 M01S00009.ns2715 +++| 01725 M01S00010.ns2715 +++| PRS0 RJM CTS CHECK *IAF* STATUS 01726 M00S01612.1ts +++| LDD IR+3 01727 M00S01613.1ts +++| LPN 37 01728 M00S01614.1ts +++| STD IR+3 01729 M00S01615.1ts +++| ADD IR+4 01730 M00S01616.1ts +++| NJN PRS1 IF STIMULATION TO BE INITIATIED 01731 M00S01617.1ts +++| RJM ICT INITIALIZE CONTROL TABLE 01732 M00S01618.1ts +++| LJM DPP DROP PPU 01733 M00S01619.1ts +++| 01734 M00S01620.1ts +++| PRS1 RJM ISC INITIALIZE STIMULATOR CHANNELS 01735 M00S01621.1ts +++| LDD RA READ CONTROL WORD 01736 M00S01622.1ts +++| SHN 6 01737 M00S01623.1ts +++| ADN RACW 01738 M00S01624.1ts +++| CRD CM 01739 M00S01625.1ts +++| LDD CM SET NUMBER OF *TTER* ENTRIES 01740 M00S01626.1ts +++| STM SADA 01741 M00S01627.1ts +++| LDD CM+1 SET ACTIVATE COUNT 01742 M00S01628.1ts +++| STD LC 01743 M00S01629.1ts +++| LDD CM+2 SET THINK TIME INCREMENT MASK 01744 M00S01630.1ts +++| LPN 77 01745 M00S01631.1ts +++| RAM TTDA 01746 M00S01632.1ts +++| LDD CM+4 SAVE REQUIRED FL 01747 M00S01633.1ts +++| STM SCPA 01748 M00S01634.1ts +++| LDD IR+3 READ CONTROL TABLE ENTRY 01749 M00S01635.1ts +++| LPN 37 01750 M00S01636.1ts +++| SHN 6 01751 M00S01637.1ts +++| ADD RA 01752 M00S01638.1ts +++| SHN 6 01753 M00S01639.1ts +++| ADD IR+4 01754 M00S01640.1ts +++| CRD TW 01755 M00S01641.1ts +++| RJM SCP START CENTRAL PROGRAM 01756 M00S01642.1ts +++| RJM IOR INITIALIZE OUTPUT RECOVERY 01757 M00S01643.1ts +++| LDD TW+3 SET BASE TERMINAL TABLE ADDRESS 01758 M00S01644.1ts +++| LPN 37
| Line S01645 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01759 M01S01645.ns21000 ---| SHN 6 01760 M01S01646.ns21000 ---| ADD RA 01761 M01S01647.ns21000 ---| SHN 6 01762 M01S01648.ns21000 ---| ADD TW+4 01763 M01S01649.ns21000 ---| STD T4 01764 M01S01650.ns21000 ---| SHN -14 01765 M01S01651.ns21000 ---| LPN 77 01766 M01S01652.ns21000 ---| STD T3
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01767 M01S00081.ns21000 +++| STD T3 01768 M01S00082.ns21000 +++| LDD TW+4 01769 M01S00083.ns21000 +++| STD T4 01770 M00S01653.1ts +++| RJM SAD SET TERMINAL TABLE ADDRESSES 01771 M00S01654.1ts +++| LDN 0 CLEAR OUTPUT CHARACTER 01772 M00S01655.1ts +++| STD OC 01773 M00S01656.1ts +++| STD IC CLEAR INPUT CHARACTER 01774 M00S01657.1ts +++| STD MT MAXIMUM CYCLE TIME 01775 M00S01658.1ts +++| STD LM LAST MILLISECOND CLOCK 01776 M00S01659.1ts +++| STD LS LAST SECOND CLOCK 01777 M00S01660.1ts +++| LDD NT INPUT TERMINAL = N-1 01778 M00S01661.1ts +++| SBN 1 01779 M00S01662.1ts +++| STD IT 01780 M00S01663.1ts +++| ZJN PRS2 IF ONLY ONE TERMINAL 01781 M00S01664.1ts +++| LDN 1 01782 M00S01665.1ts +++| PRS2 STD OT SET OUTPUT TERMINAL NUMBER 01783 M00S01666.1ts +++| LJM PRS3 INITIALIZE *TOCA* 01784 M00S01667.1ts +++| TOCA SPACE 4,10 01785 M00S01668.1ts +++|** TOCA - TABLE OF OUTPUT CONTROL ADDRESSES. 01786 M00S01669.1ts +++|* 01787 M00S01670.1ts +++|* ENTRY 1 WORD. 01788 M00S01671.1ts +++|* 01789 M00S01672.1ts +++|* ADDRESS OF CURRENT OUTPUT ROUTINE. 01790 M00S01673.1ts +++| 01791 M00S01674.1ts +++| 01792 M00S01675.1ts +++| USE // 01793 M00S01676.1ts +++| RBUF EQU 6000 *RA* BUFFER 01794 M00S01677.1ts +++| TOCA EQU RBUF+5 OUTPUT PROCESSOR BUFFER 01795 M00S01678.1ts +++| IBUF EQU TOCA+100 INPUT BUFFER 01796 M00S01679.1ts +++| OBUF EQU IBUF+100 OUTPUT BUFFER 01797 M00S01680.1ts +++| TBUF EQU OBUF+100 TRACE BUFFER 01798 M00S01681.1ts +++| ERRNG 7776-TBUF-100*5 BUFFER OVERFLOW 01799 M00S01682.1ts +++| ERRNG TOCA-PRSX-2 OVERFLOW INTO BUFFER 01800 M00S01683.1ts +++| ABT SPACE 4,10 01801 M00S01684.1ts +++|** ABT - ABORT JOB. 01802 M00S01685.1ts +++|* 01803 M00S01686.1ts +++|* ENTRY (A) = ERROR MESSAGE. 01804 M00S01687.1ts +++| 01805 M00S01688.1ts +++| 01806 M00S01689.1ts +++| ABT RJM DFM ISSUE DAYFILE MESSAGE 01807 M00S01690.1ts +++| MONITOR ABTM ABORT JOB 01808 M00S01691.1ts +++| LJM PPR EXIT TO PP RESIDENT 01809 M00S01692.1ts +++| CTS SPACE 4,15 01810 M00S01693.1ts +++|** CTS - CHECK *IAF* STATUS. 01811 M00S01694.1ts +++|* 01812 M00S01695.1ts +++|* ENTRY NONE. 01813 M00S01696.1ts +++|* 01814 M00S01697.1ts +++|* EXIT (NT) = NUMBER OF TERMINALS. 01815 M00S01698.1ts +++|* (DP) = STIMULATOR CHANNEL.
| Line S01699 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01816 M01S01699.ns22000 ---|* TO *ABT* IF *IAF* NOT ACTIVE OR IF NO 01817 M01S01700.ns22000 ---|* STIMULATOR TERMINALS DEFINED.
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01818 M01S00024.ns22000 +++|* TO *ABT* IF *IAF* NOT ACTIVE. 01819 M00S01701.1ts +++|* 01820 M00S01702.1ts +++|* USES T1, T2, CM - CM+4. 01821 M01S00025.ns22000 +++|* 01822 M01S00026.ns22000 +++|* MACROS SFA. 01823 M00S01703.1ts +++| 01824 M00S01704.1ts +++| 01825 M00S01705.1ts +++| CTS5 LDC =C* IAF NOT ACTIVE.* 01826 M00S01706.1ts +++| LJM ABT 01827 M00S01707.1ts +++| 01828 M00S01708.1ts +++| CTS SUBR ENTRY/EXIT 01829 M00S01709.1ts +++| LDN PPUL SET PPU COUNT 01830 M00S01710.1ts +++| CRD CM 01831 M00S01711.1ts +++| LDD CM+2 01832 M00S01712.1ts +++| STD T1 01833 M00S01713.1ts +++| LMN 10D 01834 M00S01714.1ts +++| ZJN CTS1 IF ONLY 10 PPUS 01835 M00S01715.1ts +++| LDN 20D 01836 M00S01716.1ts +++| STD T1 SET 20 PPUS 01837 M00S01717.1ts +++| CTS1 LDN PPCP SET START OF PPU COMMUNICATIONS AREA 01838 M00S01718.1ts +++| CRD CM 01839 M00S01719.1ts +++| LDD CM+4 01840 M00S01720.1ts +++| STD T2 01841 M00S01721.1ts +++| CTS2 SOD T1 DECREMENT PPU COUNT 01842 M00S01722.1ts +++| ZJN CTS5 IF END OF PPU 01843 M00S01723.1ts +++| LDN 10 ADVANCE INPUT REGISTER ADDRESS 01844 M00S01724.1ts +++| RAD T2 01845 M00S01725.1ts +++| CRD CM READ INPUT REGISTER 01846 M00S01726.1ts +++| LDD CM+1 CHECK NAME 01847 M00S01727.1ts +++| SCN 77 01848 M00S01728.1ts +++| SHN 6 01849 M00S01729.1ts +++| LMD CM 01850 M00S01730.1ts +++| LMC 3RN1T 01851 M00S01731.1ts +++| NJN CTS2 IF NOT *1TN*
| Line S01732 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01852 M01S01732.ns21000 ---| CTS3 LDD CM+4 SET CHANNEL 01853 M01S01733.ns21000 ---| STD DP 01854 M01S01734.ns21000 ---| LDD CM+3 SET TERMINAL COUNT
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01855 M02S00084.ns22000 ---| CTS3 LDD CM+2 READ STIMULATOR EST ENTRY 01856 M02S00085.ns22000 ---| ADM ESTS
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01857 M01S00027.ns22000 +++| CTS3 SFA EST,CM+2 READ STIMULATOR EST ENTRY 01858 M01S00028.ns22000 +++| ADK EQDE
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01859 M01S00086.ns21000 +++| CRD CM 01860 M01S00087.ns21000 +++| LDD CM+1 SET CHANNEL NUMBER
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1ts2 |
Seq # *Modification Id* Act ----------------------------+ 01861 M01S00001.1ts2 +++| LPN 37
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01862 M01S00088.ns21000 +++| STD DP
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01863 M02S00089.ns22000 ---| LDD CM+2 SET TERMINAL COUNT
| Line S01735 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01864 M01S01735.ns22000 ---| STD NT 01865 M01S01736.ns22000 ---| ZJN CTS4 IF NO TERMINAL DEFINED
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01866 M01S00029.ns22000 +++| LDD CM+4 SET PORT COUNT 01867 M01S00030.ns22000 +++| LPC 777 01868 M01S00031.ns22000 +++| NJN CTS4 IF PORTS SPECIFIED 01869 M01S00032.ns22000 +++| LDD TH SET DEFAULT PORT COUNT 01870 M01S00033.ns22000 +++| CTS4 STD NT 01871 M00S01737.1ts +++| LJM CTSX RETURN
| Line S01738 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01872 M01S01738.ns22000 ---| 01873 M01S01739.ns22000 ---| CTS4 LDC =C* NO STIMULATOR TERMINALS DEFINED.* 01874 M01S01740.ns22000 ---| LJM ABT 01875 M00S01741.1ts ---| ICT SPACE 4,20 01876 M00S01742.1ts ---|** ICT - INTIALIZE CONTROL TABLE. 01877 M00S01743.1ts ---|* 01878 M00S01744.1ts ---|* ENTRY (NT) = NUMBER OF TERMINALS. 01879 M00S01745.1ts ---|* 01880 M00S01746.1ts ---|* EXIT CONTROL TABLE BUILT STARTING AT (RA+5). 01881 M00S01747.1ts ---|* 01882 M00S01748.1ts ---|* USES CM - CM+4, T1 - T5. 01883 M00S01749.1ts ---| 01884 M00S01750.1ts ---| 01885 M00S01751.1ts ---| ICT SUBR ENTRY/EXIT 01886 M00S01752.1ts ---| LDN ZERL RETURN NUMBER OF TERMINALS 01887 M00S01753.1ts ---| CRD CM 01888 M00S01754.1ts ---| CRD T1 01889 M00S01755.1ts ---| LDD NT 01890 M00S01756.1ts ---| STD CM+1 01891 M00S01757.1ts ---| LDD RA 01892 M00S01758.1ts ---| SHN 6 01893 M00S01759.1ts ---| ADN TCWD 01894 M00S01760.1ts ---| CWD CM 01895 M00S01761.1ts ---| ADN 1 SET END OF TABLE 01896 M00S01762.1ts ---| CWD T1 01897 M00S01763.1ts ---| LDN 1 SET NUMBER OF *TCWD* ENTRIES 01898 M00S01764.1ts ---| STD T1+4 01899 M00S01765.1ts ---| LDD RA 01900 M00S01766.1ts ---| SHN 6 01901 M00S01767.1ts ---| ADN RAPP 01902 M00S01768.1ts ---| CWD T1 01903 M00S01769.1ts ---| UJN ICTX RETURN 01904 M00S01770.1ts ---| IOR SPACE 4,10 01905 M00S01771.1ts ---|** IOR - INITIALIZE OUTPUT RECOVERY. 01906 M00S01772.1ts ---|* 01907 M00S01773.1ts ---|* ENTRY (TW - TW+4) = CONTROL TABLE ENTRY. 01908 M00S01774.1ts ---|*
| Line S01775 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01909 M01S01775.ns21000 ---|* USES T1, T2, CM - CM+4.
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01910 M01S00090.ns21000 +++|* EXIT FET ADDRESS SET IN *SAA* 01911 M01S00091.ns21000 +++|* 01912 M01S00092.ns21000 +++|* USES T1, T2. 01913 M00S01776.1ts +++| 01914 M00S01777.1ts +++| 01915 M00S01778.1ts +++| IOR SUBR ENTRY/EXIT 01916 M00S01779.1ts +++| LDD TW+3 SET ADDRESS OF IN 01917 M00S01780.1ts +++| SCN 77 01918 M01S00093.ns21000 +++| STM SAAA 01919 M00S01781.1ts +++| SHN 6 01920 M00S01782.1ts +++| LMD TW+2 01921 M01S00094.ns21000 +++| STM SAAB 01922 M00S01783.1ts +++| ZJN IORX IF NO OUTPUT RECOVERED
| Line S01784 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01923 M01S01784.ns21000 ---| ADD RA 01924 M01S01785.ns21000 ---| SHN 6 01925 M01S01786.ns21000 ---| ADN 2 01926 M01S01787.ns21000 ---| STD T2 01927 M01S01788.ns21000 ---| STM .INA+1 01928 M01S01789.ns21000 ---| SHN -14 01929 M01S01790.ns21000 ---| LPN 77 01930 M01S01791.ns21000 ---| STD T1 01931 M01S01792.ns21000 ---| RAM .INA 01932 M01S01793.ns21000 ---| LDD T1 SET FIRST
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1ts.txt · Last modified: (external edit)