cdc:nos2.source:opl.opl871:deck:demux
Deck DEMUX
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.demux +++| IDENT DEMUX,110B 00002 M00S00002.demux +++| ABS 00003 M00S00003.demux +++| SST FL,TR 00004 M00S00004.demux +++| ENTRY DEMUX 00005 M00S00005.demux +++| ENTRY RFL= 00006 M00S00006.demux +++| SYSCOM B1 00007 M00S00007.demux +++| TITLE DEMUX - PROCESS STIMULATOR OUTPUT. 00008 M00S00008.demux +++|*COMMENT DEMUX - PROCESS STIMULATOR OUTPUT.
| Line S00009 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00009.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00011 M00S00010.demux +++| SPACE 4,10 00012 M00S00011.demux +++|*** DEMUX - PROCESS STIMULATOR OUTPUT. 00013 M00S00012.demux +++|* JERRY BRANHAM. 74/05/07. 00014 M00S00013.demux +++|* R. A. JAPS 78/05/25. 00015 M00S00014.demux +++|* D. K. ELDRED. 82/01/18. 00016 M00S00015.demux +++| SPACE 4,10 00017 M00S00016.demux +++|*** DEMUX TRANSLATES THE OUTPUT FROM THE NOS STIMULATORS AND 00018 M00S00017.demux +++|* OPTIONALLY PROCESSES TIME STAMP AND/OR TRACE DATA. 00019 M00S00018.demux +++| SPACE 4,30 00020 M00S00019.demux +++|*** CONTROL STATEMENT CALL. 00021 M00S00020.demux +++|* 00022 M00S00021.demux +++|* DEMUX(P1,P2,...,PN) 00023 M00S00022.demux +++|* 00024 M00S00023.demux +++|* PN DEFAULT MEANING 00025 M00S00024.demux +++|* 00026 M00S00025.demux +++|* I *STIMOUT* FILE CONTAINING STIMULATOR DATA. 00027 M00S00026.demux +++|* 00028 M00S00027.demux +++|* NR REWIND DO NOT REWIND STIMULATOR AND OUTPUT FILES 00029 M00S00028.demux +++|* BEFORE EXECUTION. CANNOT BE EQUIVALENCED. 00030 M00S00029.demux +++|* 00031 M00S00030.demux +++|* NT 1 NUMBER OF TERMINALS TO PROCESS. RANGE IS 00032 M00S00031.demux +++|* FROM 1 TO 512 DECIMAL. IF NO POST RADIX 00033 M00S00032.demux +++|* IS SPECIFIED, OCTAL BASE IS ASSUMED. 00034 M00S00033.demux +++|* 00035 M00S00034.demux +++|* O *OUTPUT* FILE TO RECEIVE TRANSLATED SESSION OUTPUT. 00036 M00S00035.demux +++|* 00037 M00S00036.demux +++|* SL NONE SELECTED LINE TO BE PROCESSED. THIS MUST 00038 M00S00037.demux +++|* BE WITHIN THE RANGE SPECIFIED BY *NT*. IF 00039 M00S00038.demux +++|* NO POST RADIX IS SPECIFIED, OCTAL BASE IS 00040 M00S00039.demux +++|* ASSUMED. 00041 M00S00040.demux +++|* 00042 M00S00041.demux +++|* T NONE PROCESS TIME STAMP DATA. CANNOT BE 00043 M00S00042.demux +++|* EQUIVALENCED. 00044 M00S00043.demux +++|* 00045 M00S00044.demux +++|* TR NONE FILE TO RECEIVE TRACE OUTPUT. IF *TR* IS 00046 M00S00045.demux +++|* OMITTED, TRACE DATA IS IGNORED. IF *TR* 00047 M00S00046.demux +++|* IS UNEQUIVALENCED, THE FILE SPECIFIED BY 00048 M00S00047.demux +++|* *O* WILL ALSO BE USED FOR TRACE OUTPUT. 00049 M00S00048.demux +++| SPACE 4,15 00050 M00S00049.demux +++|*** DAYFILE MESSAGES. 00051 M00S00050.demux +++|* 00052 M00S00051.demux +++|* * DEMUX ARGUMENT ERROR.* = AN ILLEGAL ARGUMENT WAS USED, OR 00053 M00S00052.demux +++|* AN ARGUMENT WAS ILLEGALLY EQUIVALENCED. 00054 M00S00053.demux +++|* 00055 M00S00054.demux +++|* * DEMUX COMPLETE.* = NORMAL TERMINATION. 00056 M00S00055.demux +++|* 00057 M00S00056.demux +++|* * DEMUX MEMORY OVERFLOW.* = REQUIRED FL EXCEEDED MFL FOR JOB 00058 M00S00057.demux +++|* STEP. POSSIBLE SOLUTIONS ARE TO DECREASE THE *NT* 00059 M00S00058.demux +++|* VALUE, TO INCREASE THE JOB STEP MFL, OR TO REDUCE THE 00060 M00S00059.demux +++|* MEMORY REQUIREMENTS BY ADJUSTING ONE OR MORE DEMUX 00061 M00S00060.demux +++|* ASSEMBLY PARAMETERS - SEE *PROGRAMMING CONSIDERATIONS*. 00062 M00S00061.demux +++|* 00063 M00S00062.demux +++|* * DEMUX NUMERIC ARGUMENT CONVERSION ERROR.* = A NUMERIC 00064 M00S00063.demux +++|* ARGUMENT WAS INVALID. 00065 M00S00064.demux +++|* 00066 M00S00065.demux +++|* * DEMUX NT VALUE TOO LARGE.* = *NT* VALUE EXCEEDS 512. 00067 M00S00066.demux +++|* 00068 M00S00067.demux +++|* * DEMUX SL VALUE TOO LARGE.* = *SL* VALUE EXCEEDS *NT* VALUE. 00069 M00S00068.demux +++| SPACE 4,10 00070 M00S00069.demux +++|*** OPERATOR MESSAGES. 00071 M00S00070.demux +++|* 00072 M00S00071.demux +++|* * COPYING SESSION DATA TO OUTPUT* = DATA FROM THE SCRATCH 00073 M00S00072.demux +++|* FILE IS BEING COPIED TO THE OUTPUT FILE. 00074 M00S00073.demux +++|* 00075 M00S00074.demux +++|* * TRANSLATING STIMULATOR OUTPUT* = DATA IS BEING TRANSLATED 00076 M00S00075.demux +++|* AND COPIED TO THE SCRATCH FILE. 00077 M00S00076.demux +++| SPACE 4,10 00078 M00S00077.demux +++|*** COMMON DECKS. 00079 M00S00078.demux +++| 00080 M00S00079.demux +++| 00081 M00S00080.demux +++|*CALL COMCMAC 00082 M00S00081.demux +++| TITLE INTERNAL DOCUMENTATION. 00083 M00S00082.demux +++| SPACE 4,10 00084 M00S00083.demux +++|** STIMULATOR DATA FORMATS. 00085 M00S00084.demux +++|* 00086 M00S00085.demux +++|* TWO TYPES OF DATA ARE PRODUCED BY THE NOS STIMULATORS AND 00087 M00S00086.demux +++|* PROCESSED BY DEMUX - CHARACTER DATA AND TRACE DATA. 00088 M00S00087.demux +++| SPACE 4,20 00089 M00S00088.demux +++|** CHARACTER DATA FORMAT. 00090 M00S00089.demux +++|* 00091 M00S00090.demux +++|*T CHARDATA 1/0,11/ TERMINAL,12/ DATA,12/ DATA,12/ DATA,12/ DATA
Figure CHARDAT
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": " DATA", "bits": 12, "type": 6 }, { "name": " DATA", "bits": 12, "type": 5 }, { "name": " DATA", "bits": 12, "type": 4 }, { "name": " DATA", "bits": 12, "type": 3 }, { "name": " TERMINAL", "bits": 11, "type": 2 }, { "name": "0", "bits": A 1, "type": 1 } ] is invalid. Please check your syntax and try again.
00092 M00S00091.demux +++|* 00093 M00S00092.demux +++|* TERMINAL = TERMINAL NUMBER. 00094 M00S00093.demux +++|* 00095 M00S00094.demux +++|* EACH *DATA* BYTE HAS THREE POSSIBLE FORMATS - 00096 M00S00095.demux +++|* 00097 M00S00096.demux +++|*T NORMAL 1/0,3/,8/ ASCII
Figure NORMAL
00098 M00S00097.demux +++|* 00099 M00S00098.demux +++|*T SECOND 1/1,1/1,10/ SECONDS
Figure SECOND
00100 M00S00099.demux +++|* 00101 M00S00100.demux +++|*T MILLI 1/1,1/0,10/ MILLISEC
Figure MILLI
00102 M00S00101.demux +++|* 00103 M00S00102.demux +++|* ASCII = NORMAL CHARACTER DATA. 00104 M00S00103.demux +++|* SECONDS = SECONDS PORTION OF TIME STAMP DATA. 00105 M00S00104.demux +++|* MILLISEC = MILLISECONDS PORTION OF TIME STAMP DATA. 00106 M00S00105.demux +++| SPACE 4,20 00107 M00S00106.demux +++|** TRACE DATA FORMAT. 00108 M00S00107.demux +++|* 00109 M00S00108.demux +++|* TRACE DATA HAS THE FOLLOWING FORMAT - 00110 M00S00109.demux +++|* 00111 M00S00110.demux +++|*T TRACE1 1/1,11/ TERMINAL,24/ *1TE* STATUS,12/ SECONDS,12/ MILLISEC
Figure TRACE1
00112 M00S00111.demux +++|*T,TRACE2 1/1,11/ TERMINAL,12/ *1TE* ADDR,12/ INPCHR,12/ OUTCHR,12/ 0
Figure TRACE2
00113 M00S00112.demux +++|* 00114 M00S00113.demux +++|* TERMINAL = TERMINAL NUMBER. 00115 M00S00114.demux +++|* *1TE* STATUS = BYTES 0 AND 1 FROM *1TE* TERMINAL TABLE. 00116 M00S00115.demux +++|* SECONDS = SECOND CLOCK. 00117 M00S00116.demux +++|* MILLISEC = MILLISECOND CLOCK. 00118 M00S00117.demux +++|* *1TE* ADDR = *1TE* ADDRESS FOR NEXT OUTPUT ROUTINE (*TOCA* 00119 M00S00118.demux +++|* TABLE ENTRY FOR THE TERMINAL). 00120 M00S00119.demux +++|* INPCHR = INPUT CHARACTER TO BE PROCESSED. 00121 M00S00120.demux +++|* OUTCHR = OUTPUT CHARACTER SENT. 00122 M00S00121.demux +++| SPACE 4,25 00123 M00S00122.demux +++|** PROGRAMMING CONSIDERATIONS. 00124 M00S00123.demux +++|* 00125 M00S00124.demux +++|* IN ORDER TO EFFICIENTLY PROCESS VARIABLE AMOUNTS OF SESSION 00126 M00S00125.demux +++|* DATA FOR VARIABLE NUMBERS OF TERMINALS, DEMUX AUTOMATICALLY 00127 M00S00126.demux +++|* ALLOCATES MEMORY FOR LINE TABLES (ONE PER TERMINAL AS SET 00128 M00S00127.demux +++|* BY THE *NT* ARGUMENT). 00129 M00S00128.demux +++|* 00130 M00S00129.demux +++|* IN ORDER TO AVOID A TIME CONSUMING AND INEFFICIENT SORT OF 00131 M00S00130.demux +++|* THE STIMULATOR DATA, WHILE STILL PROVIDING OUTPUT DATA IN 00132 M00S00131.demux +++|* ASCENDING TERMINAL NUMBER ORDER, A *PRU DIRECTORY* IS KEPT 00133 M00S00132.demux +++|* WHICH ASSOCIATES THE SCRATCH FILE PRUS WITH THE RESPECTIVE 00134 M00S00133.demux +++|* TERMINALS. IN THIS MANNER, THE OUTPUT FILE IS SORTED AS 00135 M00S00134.demux +++|* REQUIRED WITHOUT EVER ACTUALLY MOVING ANY DATA - THE SCRATCH 00136 M00S00135.demux +++|* FILE IS SIMPLY READ IN RANDOM ORDER AND THE ONLY SORTING IS 00137 M00S00136.demux +++|* DONE ON THE PRU DIRECTORY ITSELF. 00138 M00S00137.demux +++|* 00139 M00S00138.demux +++|* SINCE BOTH THE LINE TABLES AND PRU DIRECTORY ARE DYNAMICALLY 00140 M00S00139.demux +++|* CREATED, AND SINCE ADDITIONAL MEMORY IS OBTAINED AS REQUIRED 00141 M00S00140.demux +++|* FOR THE PRU DIRECTORY, IT IS POSSIBLE TO REQUIRE MORE MEMORY 00142 M00S00141.demux +++|* THAN IS AVAILABLE. THIS IS MINIMIZED BY ENSURING THAT THE 00143 M00S00142.demux +++|* LINE TABLES WILL NOT EXCEED 300000B. HOWEVER, EXTREMELY 00144 M00S00143.demux +++|* LARGE SESSIONS AND EXTREMELY LARGE NUMBERS OF TERMINALS MAY 00145 M00S00144.demux +++|* REQUIRE ADJUSTMENT OF SOME ASSEMBLY PARAMETERS. IF ONLY A 00146 M00S00145.demux +++|* SMALL NUMBER OF TERMINALS WILL BE STIMULATED, DECREASING 00147 M00S00146.demux +++|* *MTN* AND INCREASING *LBUFL* WILL INCREASE SPEED SLIGHTLY. 00148 M00S00147.demux +++| EJECT 00149 M00S00148.demux +++| TITLE MACRO DEFINITIONS AND ASSEMBLY CONSTANTS. 00150 M00S00149.demux +++| INPUT SPACE 4,10 00151 M00S00150.demux +++|** INPUT - INPUT NEXT DATA WORD. 00152 M00S00151.demux +++|* 00153 M00S00152.demux +++|* INPUT 00154 M00S00153.demux +++|* 00155 M00S00154.demux +++|* EXIT (X6) = DATA WORD. 00156 M00S00155.demux +++|* 00157 M00S00156.demux +++|* CALLS INP. 00158 M00S00157.demux +++| 00159 M00S00158.demux +++| 00160 M00S00159.demux +++| PURGMAC INPUT 00161 M00S00160.demux +++| INPUT MACRO 00162 M00S00161.demux +++| RJ INP 00163 M00S00162.demux +++| ENDM 00164 M00S00163.demux +++| OUTPUT SPACE 4,10 00165 M00S00164.demux +++|** OUTPUT - OUTPUT CHARACTER FROM (X6). 00166 M00S00165.demux +++|* 00167 M00S00166.demux +++|* OUTPUT 00168 M00S00167.demux +++|* 00169 M00S00168.demux +++|* (X6) WILL BE WRITTEN TO THE OUTPUT FILE. 00170 M00S00169.demux +++|* 00171 M00S00170.demux +++|* CALLS SWB. 00172 M00S00171.demux +++| 00173 M00S00172.demux +++| 00174 M00S00173.demux +++| PURGMAC OUTPUT 00175 M00S00174.demux +++| OUTPUT MACRO 00176 M00S00175.demux +++| RJ SWB 00177 M00S00176.demux +++| ENDM 00178 M00S00177.demux +++| SPACE 4,10 00179 M00S00178.demux +++|**** ASSEMBLY PARAMETERS. 00180 M00S00179.demux +++| 00181 M00S00180.demux +++| 00182 M00S00181.demux +++| IBUFL EQU 3001B INPUT BUFFER LENGTH 00183 M00S00182.demux +++| LBUFL EQU 300B LINE BUFFER LENGTH 00184 M00S00183.demux +++| ERRNZ LBUFL-LBUFL/100B*100B MUST BE MULTIPLE OF PRU 00185 M00S00184.demux +++| 7 ERRNG 300000B-MTN*LBUFL MAY EXCEED AVAILABLE FL 00186 M00S00185.demux +++| OBUFL EQU 3001B OUTPUT BUFFER LENGTH 00187 M00S00186.demux +++| SBUFL EQU 3001B SCRATCH BUFFER LENGTH 00188 M00S00187.demux +++| WBUFL EQU 400B WORKING BUFFER LENGTH 00189 M00S00188.demux +++| MEMI EQU 1000B INITIAL / INCREMENTAL PRU DIRECTORY SIZE 00190 M00S00189.demux +++| MTN EQU 512D MAXIMUM NUMBER OF TERMINALS 00191 M00S00190.demux +++|**** 00192 M00S00191.demux +++| TABLE SPACE 4,30 00193 M00S00192.demux +++|*** LINE TABLE STRUCTURE. 00194 M00S00193.demux +++|* 00195 M00S00194.demux +++|* FOR EACH TERMINAL BEING PROCESSED, A LINE TABLE EXISTS WITH 00196 M00S00195.demux +++|* THE FOLLOWING FORMAT. 00197 M00S00196.demux +++|* 00198 M00S00197.demux +++|*T LASM 60/ TEXT ASSEMBLY BUFFER
Figure LASM
00199 M00S00198.demux +++|*T,LCNT 60/ WORD COUNT IN CURRENT LINE
Figure LCNT
00200 M00S00199.demux +++|*T,LPTR 1/F,59/ OFFSET INTO *LBUF*
Figure LPTR
00201 M00S00200.demux +++|*T,LSEC 60/ LAST SECONDS
Figure LSEC
00202 M00S00201.demux +++|*T,LSHF 60/ SHIFT COUNT FOR NEXT CHARACTER
Figure LSHF
00203 M00S00202.demux +++|*T,LTIM 60/ TIME ADDER
Figure LTIM
00204 M00S00203.demux +++|*T,LBUF 60/ *LBUFL* WORD LINE BUFFER
Figure LBUF
00205 M00S00204.demux +++|* 00206 M00S00205.demux +++|* F = 0, IF SESSION DATA FOR THIS LINE HAS BEEN ENCOUNTERED. 00207 M00S00206.demux +++|* = 1, IF NO SESSION DATA HAS BEEN ENCOUNTERED. 00208 M00S00207.demux +++| 00209 M00S00208.demux +++|
| Line S00209 Modification History | |
|---|---|
M01 (Removed by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 00210 M01S00209.ns2483 ---| LIST G 00211 M00S00210.demux +++| BEGIN BSSN 0 00212 M00S00211.demux +++| LASM BSSN 1 TEXT ASSEMBLY BUFFER 00213 M00S00212.demux +++| LCNT BSSN 1 WORD COUNT 00214 M00S00213.demux +++| LPTR BSSN 1 BUFFER POINTER 00215 M00S00214.demux +++| LSEC BSSN 1 LAST SECONDS 00216 M00S00215.demux +++| LSHF BSSN 1 SHIFT COUNT 00217 M00S00216.demux +++| LTIM BSSN 1 TIME ADDER 00218 M00S00217.demux +++| LBUF BSSN LBUFL LINE BUFFER 00219 M00S00218.demux +++| LNLG BSSN 0 LINE TABLE LENGTH 00220 M00S00219.demux +++| END BSSN
| Line S00220 Modification History | |
|---|---|
M01 (Removed by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 00221 M01S00220.ns2483 ---| LIST * 00222 M00S00221.demux +++| TITLE FETS AND WORKING STORAGE. 00223 M00S00222.demux +++| FETS SPACE 4,10 00224 M00S00223.demux +++|* FETS AND CONSTANTS. 00225 M00S00224.demux +++| 00226 M00S00225.demux +++| 00227 M00S00226.demux +++| ORG 110B 00228 M00S00227.demux +++| 00229 M00S00228.demux +++| 00230 M00S00229.demux +++| I BSS 0 00231 M00S00230.demux +++| STIMOUT FILEB IBUF,IBUFL 00232 M00S00231.demux +++| 00233 M00S00232.demux +++| O BSS 0 00234 M00S00233.demux +++| OUTPUT FILEB OBUF,OBUFL 00235 M00S00234.demux +++| 00236 M00S00235.demux +++| R BSS 0 00237 M00S00236.demux +++| TR BSS 0 00238 M00S00237.demux +++| TRACE FILEB OBUF,OBUFL 00239 M00S00238.demux +++| 00240 M00S00239.demux +++| S BSS 0 00241 M00S00240.demux +++| SCR FILEB SBUF,SBUFL,(FET=6) 00242 M00S00241.demux +++| SPACE 4,10 00243 M00S00242.demux +++|* DIRECT CELLS. 00244 M00S00243.demux +++| 00245 M00S00244.demux +++| 00246 M00S00245.demux +++| FL BSS 2 CURRENT FL / JOB STEP MFL 00247 M00S00246.demux +++| LW BSS 1 LAST WORD STORED IN LINE BUFFER 00248 M00S00247.demux +++| MR BSS 1 *MEM* REQUEST WORD 00249 M00S00248.demux +++| NR BSS 1 NO REWIND FLAG 00250 M00S00249.demux +++| NT CON 0L1 NUMBER OF TERMINALS TO PROCESS 00251 M00S00250.demux +++| PD BSS 2 FWA / NEXT PRU DIRECTORY 00252 M00S00251.demux +++| PN CON 1 NEXT PRU ON *SCR* 00253 M00S00252.demux +++| SL BSS 1 SELECTED LINE TO PROCESS - 0 = ALL LINES 00254 M00S00253.demux +++| T BSS 1 TIME STAMP FLAG 00255 M00S00254.demux +++| TITLE DEMUX MAIN LOOP. 00256 M00S00255.demux +++| 00257 M00S00256.demux +++|** DEMUX - STIMULA DATA PROCESSOR. 00258 M00S00257.demux +++| 00259 M00S00258.demux +++| DEMUX SB1 1 00260 M00S00259.demux +++| RJ PRS PRESET PROGRAM 00261 M00S00260.demux +++| READEI I INITIATE READ ON *STIMOUT* FILE 00262 M00S00261.demux +++| MESSAGE (=C* TRANSLATING STIMULATOR OUTPUT*),1 00263 M00S00262.demux +++| DEM1 RJ GNW GET NEXT WORD 00264 M00S00263.demux +++| NZ X1,DEM5 IF EOI 00265 M00S00264.demux +++| NZ B7,DEM3 IF NOT TRACE DATA 00266 M00S00265.demux +++| RJ FTD FORMAT TRACE DATA 00267 M00S00266.demux +++| EQ DEM1 PROCESS NEXT WORD 00268 M00S00267.demux +++| 00269 M00S00268.demux +++| DEM2 SB7 B7-1 DECREMENT CHARACTER COUNT 00270 M00S00269.demux +++| PL B7,DEM3 IF CHARACTERS REMAIN TO BE PROCESSED 00271 M00S00270.demux +++| SA6 B6+LASM SAVE DATA WORD 00272 M00S00271.demux +++| SX6 B3+ SAVE SHIFT COUNT 00273 M00S00272.demux +++| SA6 B6+LSHF 00274 M00S00273.demux +++| EQ DEM1 PROCESS NEXT WORD 00275 M00S00274.demux +++| 00276 M00S00275.demux +++| DEM3 NG X5,DEM4 IF TIME STAMP DATA 00277 M00S00276.demux +++| RJ FCD FORMAT CHARACTER DATA 00278 M00S00277.demux +++| EQ DEM2 PROCESS NEXT CHARACTER 00279 M00S00278.demux +++| 00280 M00S00279.demux +++| DEM4 RJ FTS FORMAT TIME STAMP 00281 M00S00280.demux +++| EQ DEM2 PROCESS NEXT CHARACTER 00282 M00S00281.demux +++| 00283 M00S00282.demux +++|* COPY SESSION DATA TO OUTPUT. 00284 M00S00283.demux +++| 00285 M00S00284.demux +++| DEM5 RJ FLB FLUSH LINE BUFFERS 00286 M00S00285.demux +++| MESSAGE (=C* COPYING SESSION DATA TO OUTPUT*),1 00287 M00S00286.demux +++| REWIND S,R 00288 M00S00287.demux +++| RJ SPD SORT PRU DIRECTORY 00289 M00S00288.demux +++| WRITEW O,(=10H1 ),1 ISSUE PAGE EJECT 00290 M00S00289.demux +++| DEM6 RJ IRR INITIATE/RESUME *RPHRLS* REQUEST 00291 M00S00290.demux +++| READW S,WBUF,WBUFL 00292 M00S00291.demux +++| NZ X1,DEM7 IF END OF DATA 00293 M00S00292.demux +++| WRITEW O,WBUF,WBUFL 00294 M00S00293.demux +++| EQ DEM6 LOOP 00295 M00S00294.demux +++| 00296 M00S00295.demux +++| DEM7 SB7 B6-WBUF CHECK FOR DATA REMAINING IN *WBUF* 00297 M00S00296.demux +++| ZR B7,DEM8 IF NO DATA LEFT IN BUFFER 00298 M00S00297.demux +++| WRITEW O,WBUF,B7 WRITE FRAGMENT TO OUTPUT FILE 00299 M00S00298.demux +++| DEM8 SA1 S+5 CHECK FOR END OF LIST 00300 M00S00299.demux +++| SA1 X1+ 00301 M00S00300.demux +++| NZ X1,DEM6 IF NOT EOI 00302 M00S00301.demux +++| WRITEW O,(=0),1 TERMINATE LAST LINE 00303 M00S00302.demux +++| WRITER X2 00304 M00S00303.demux +++| RETURN S 00305 M00S00304.demux +++| MESSAGE (=C* DEMUX COMPLETE.*) 00306 M00S00305.demux +++| ENDRUN 00307 M00S00306.demux +++| TITLE SUBROUTINES. 00308 M00S00307.demux +++| CEL SPACE 4,15 00309 M00S00308.demux +++|** CEL - CHECK FOR END OF LINE. 00310 M00S00309.demux +++|* 00311 M00S00310.demux +++|* ENTRY (B6) = LINE TABLE ADDRESS. 00312 M00S00311.demux +++|* (LW) = LAST WORD STORED IN LINE BUFFER. 00313 M00S00312.demux +++|* 00314 M00S00313.demux +++|* EXIT END OF LINE ENSURED. 00315 M00S00314.demux +++|* 00316 M00S00315.demux +++|* USES X - 0, 1, 6. 00317 M00S00316.demux +++|* A - 1. 00318 M00S00317.demux +++|* 00319 M00S00318.demux +++|* MACROS OUTPUT. 00320 M00S00319.demux +++| 00321 M00S00320.demux +++| 00322 M00S00321.demux +++| CEL SUBR ENTRY/EXIT 00323 M00S00322.demux +++| SA1 LW 00324 M00S00323.demux +++| MX0 -12 00325 M00S00324.demux +++| BX1 -X0*X1 00326 M00S00325.demux +++| ZR X1,CELX IF END OF LINE 00327 M00S00326.demux +++| SX6 B0+ 00328 M00S00327.demux +++| OUTPUT 00329 M00S00328.demux +++| EQ CELX RETURN 00330 M00S00329.demux +++| FCD SPACE 4,20 00331 M00S00330.demux +++|** FCD - FORMAT CHARACTER DATA. 00332 M00S00331.demux +++|* 00333 M00S00332.demux +++|* ENTRY (X5) = DATA WORD. 00334 M00S00333.demux +++|* (X6) = ASSEMBLY WORD. 00335 M00S00334.demux +++|* (B3) = SHIFT COUNT. 00336 M00S00335.demux +++|* (B6) = LINE TABLE ADDRESS. 00337 M00S00336.demux +++|* 00338 M00S00337.demux +++|* EXIT CHARACTER ADDED TO LINE DATA. 00339 M00S00338.demux +++|* (X5), (X6), (B3) UPDATED. 00340 M00S00339.demux +++|* 00341 M00S00340.demux +++|* USES X - 0, 1, 2, 4, 5, 6, 7. 00342 M00S00341.demux +++|* A - 1, 2, 6. 00343 M00S00342.demux +++|* B - 3. 00344 M00S00343.demux +++|* 00345 M00S00344.demux +++|* CALLS CEL. 00346 M00S00345.demux +++|* 00347 M00S00346.demux +++|* MACROS OUTPUT. 00348 M00S00347.demux +++| 00349 M00S00348.demux +++| 00350 M00S00349.demux +++| FCD SUBR ENTRY/EXIT 00351 M00S00350.demux +++| LX5 12 EXTRACT CHARACTER 00352 M00S00351.demux +++| MX0 -8 00353 M00S00352.demux +++| BX2 -X0*X5 00354 M00S00353.demux +++| AX2 1 00355 M00S00354.demux +++| SA1 ASCI+X2 TRANSLATE CHARACTER 00356 M00S00355.demux +++| NG X1,FCDX IF UNPRINTABLE CHARACTER 00357 M00S00356.demux +++| MX0 -6 00358 M00S00357.demux +++| BX4 -X0*X1 00359 M00S00358.demux +++| LX4 B3 00360 M00S00359.demux +++| BX6 X6+X4 00361 M00S00360.demux +++| SB3 B3-6 DECREMENT SHIFT COUNT 00362 M00S00361.demux +++| SA6 LW 00363 M00S00362.demux +++| NZ X1,FCD1 IF NOT CARRIAGE RETURN 00364 M00S00363.demux +++| OUTPUT 00365 M00S00364.demux +++| EQ FCD2 PROCESS END OF LINE 00366 M00S00365.demux +++| 00367 M00S00366.demux +++| FCD1 PL B3,FCDX IF DATA WORD NOT FULL 00368 M00S00367.demux +++| SA6 LW 00369 M00S00368.demux +++| OUTPUT 00370 M00S00369.demux +++| SA2 LW 00371 M00S00370.demux +++| SA1 B6+LCNT CHECK LINE SIZE 00372 M00S00371.demux +++| MX6 0 00373 M00S00372.demux +++| ZR X2,FCD3 IF END OF LINE 00374 M00S00373.demux +++| SX6 X1+B1 00375 M00S00374.demux +++| SX7 X6-12 00376 M00S00375.demux +++| NG X7,FCD3 IF LINE LIMIT NOT EXCEEDED 00377 M00S00376.demux +++| FCD2 RJ CEL CHECK FOR END OF LINE 00378 M00S00377.demux +++| SA1 =10H INDENT NEXT LINE 00379 M00S00378.demux +++| BX6 X1 00380 M00S00379.demux +++| OUTPUT 00381 M00S00380.demux +++| BX6 X6-X6 SET END OF LINE 00382 M00S00381.demux +++| FCD3 SA6 B6+LCNT UPDATE LINE WORD COUNT 00383 M00S00382.demux +++| SB3 54 RESET SHIFT COUNT 00384 M00S00383.demux +++| BX6 X6-X6 CLEAR ASSEMBLY REGISTER 00385 M00S00384.demux +++| EQ FCDX RETURN 00386 M00S00385.demux +++| FLB SPACE 4,15 00387 M00S00386.demux +++|** FLB - FLUSH LINE BUFFERS. 00388 M00S00387.demux +++|* 00389 M00S00388.demux +++|* EXIT ALL LINE BUFFERS FLUSHED TO *SCR*. 00390 M00S00389.demux +++|* * END OF THE LINE * WRITTEN TO *SCR* FOR EACH LINE. 00391 M00S00390.demux +++|* TRACE FILE FLUSHED IF USED. 00392 M00S00391.demux +++|* 00393 M00S00392.demux +++|* USES X - 0, 1, 3, 6, 7. 00394 M00S00393.demux +++|* A - 1, 6, 7. 00395 M00S00394.demux +++|* B - 5, 6. 00396 M00S00395.demux +++|* 00397 M00S00396.demux +++|* CALLS UPD. 00398 M00S00397.demux +++|* 00399 M00S00398.demux +++|* MACROS RECALL, WRITER, WRITEW. 00400 M00S00399.demux +++| 00401 M00S00400.demux +++| 00402 M00S00401.demux +++| FLB SUBR ENTRY/EXIT 00403 M00S00402.demux +++| SX0 B0+ 00404 M00S00403.demux +++| RECALL S 00405 M00S00404.demux +++| FLB1 SX1 LNLG FLUSH OUTPUT IN BUFFER, IF ANY 00406 M00S00405.demux +++| IX7 X0*X1 00407 M00S00406.demux +++| SB6 X7+AMEM 00408 M00S00407.demux +++| SA1 B6+LPTR 00409 M00S00408.demux +++| SX6 X1+ 00410 M00S00409.demux +++| SA6 FLBA 00411 M00S00410.demux +++| NG X1,FLB3 IF NO SESSION DATA 00412 M00S00411.demux +++| ZR X1,FLB2 IF NO DATA IN BUFFER 00413 M00S00412.demux +++| WRITEW S,B6+LBUF,X1 FLUSH DATA TO *SCR* 00414 M00S00413.demux +++| FLB2 SX1 X0+1 CONVERT TERMINAL NUMBER TO DISPLAY 00415 M00S00414.demux +++| RJ CDD 00416 M00S00415.demux +++| MX6 48 00417 M00S00416.demux +++| BX7 X6*X4 00418 M00S00417.demux +++| SA7 FLBB+5 ADD TERMINAL NUMBER TO SESSION TERMINATOR 00419 M00S00418.demux +++| WRITEW S,FLBB,FLBBL ISSUE SESSION TERMINATOR 00420 M00S00419.demux +++| WRITER X2,R 00421 M00S00420.demux +++| SA1 FLBA 00422 M00S00421.demux +++| SX3 X1+FLBBL+100B CALCULATE NUMBER OF PRUS REQUIRED 00423 M00S00422.demux +++| SB5 X0 SET TERMINAL NUMBER 00424 M00S00423.demux +++| AX3 6 00425 M00S00424.demux +++| RJ UPD UPDATE PRU DIRECTORY AND POINTERS 00426 M00S00425.demux +++| FLB3 SX0 X0+B1 00427 M00S00426.demux +++| SA1 NT 00428 M00S00427.demux +++| IX1 X0-X1 00429 M00S00428.demux +++| NG X1,FLB1 IF MORE TERMINALS TO PROCESS 00430 M00S00429.demux +++| SA1 FTD CHECK FOR TRACE DATA 00431 M00S00430.demux +++| ZR X1,FLBX IF NO TRACE DATA 00432 M00S00431.demux +++| WRITER R,R FLUSH TRACE FILE 00433 M00S00432.demux +++| EQ FLBX RETURN 00434 M00S00433.demux +++| 00435 M00S00434.demux +++| 00436 M00S00435.demux +++| FLBA BSS 1 WORD COUNT IN BUFFER 00437 M00S00436.demux +++| FLBB CON 0 END OF LINE 00438 M00S00437.demux +++| DATA C* END OF THE LINE ------------------------------* 00439 M00S00438.demux +++| DATA 10H1 PAGE EJECT FOR NEXT SESSION 00440 M00S00439.demux +++| FLBBL EQU *-FLBB 00441 M00S00440.demux +++| FTD SPACE 4,15 00442 M00S00441.demux +++|** FTD - FORMAT TRACE DATA. 00443 M00S00442.demux +++|* 00444 M00S00443.demux +++|* ENTRY (X6) = FIRST WORD OF TRACE DATA. 00445 M00S00444.demux +++|* (TN) = TERMINAL NUMBER. 00446 M00S00445.demux +++|* 00447 M00S00446.demux +++|* EXIT TRACE DATA PROCESSED IF SELECTED. 00448 M00S00447.demux +++|* 00449 M00S00448.demux +++|* USES X - ALL. 00450 M00S00449.demux +++|* A - 1, 3, 4, 5, 6, 7. 00451 M00S00450.demux +++|* B - NONE. 00452 M00S00451.demux +++|* 00453 M00S00452.demux +++|* CALLS CFD, WOD. 00454 M00S00453.demux +++|* 00455 M00S00454.demux +++|* MACROS INPUT, WRITEW. 00456 M00S00455.demux +++| 00457 M00S00456.demux +++| 00458 M00S00457.demux +++| FTD SUBR ENTRY/EXIT (ALSO USED AS FLAG) 00459 M00S00458.demux +++| SA6 FTDA SAVE FIRST TRACE WORD 00460 M00S00459.demux +++| INPUT 00461 M00S00460.demux +++| SA6 FTDA+1 SAVE SECOND TRACE WORD 00462 M00S00461.demux +++| SA1 TR 00463 M00S00462.demux +++| ZR X1,FTDX IF TRACE NOT SELECTED 00464 M00S00463.demux +++| 00465 M00S00464.demux +++|* TRANSLATE INPUT AND OUTPUT CHARACTERS. 00466 M00S00465.demux +++| 00467 M00S00466.demux +++| MX0 -59 00468 M00S00467.demux +++| BX1 -X0*X6 00469 M00S00468.demux +++| MX0 -7 00470 M00S00469.demux +++| AX6 12 00471 M00S00470.demux +++| BX2 -X0*X6 EXTRACT OUTPUT CHARACTER 00472 M00S00471.demux +++| AX6 12 00473 M00S00472.demux +++| SA3 TASC+X2 TRANSLATE OUTPUT CHARACTER 00474 M00S00473.demux +++| BX4 -X0*X6 EXTRACT INPUT CHARACTER 00475 M00S00474.demux +++| LX7 X3 00476 M00S00475.demux +++| SA5 TASC+X4 TRANSLATE INPUT CHARACTER 00477 M00S00476.demux +++| SA7 FTDB+5 00478 M00S00477.demux +++| BX7 X5 00479 M00S00478.demux +++| SA7 FTDB+3 00480 M00S00479.demux +++| 00481 M00S00480.demux +++|* PROCESS DATA IN SECOND TRACE WORD. 00482 M00S00481.demux +++| 00483 M00S00482.demux +++| AX1 6 POSITION DATA WORD 00484 M00S00483.demux +++| RJ WOD CONVERT SECOND TRACE WORD TO OCTAL 00485 M00S00484.demux +++| BX1 X6 SAVE UPPER OCTAL TRANSLATION 00486 M00S00485.demux +++| MX0 -24 00487 M00S00486.demux +++| SA4 =6L GET SPACE FILL 00488 M00S00487.demux +++| AX7 12 00489 M00S00488.demux +++| BX6 -X0*X7 00490 M00S00489.demux +++| BX6 X6+X4 00491 M00S00490.demux +++| LX6 18 00492 M00S00491.demux +++| SA6 A7+1 STORE OUTPUT CHARACTER OCTAL 00493 M00S00492.demux +++| AX7 24 00494 M00S00493.demux +++| BX6 -X0*X7 00495 M00S00494.demux +++| BX7 X6+X4 00496 M00S00495.demux +++| LX7 18 00497 M00S00496.demux +++| SA7 A7-B1 STORE INPUT CHARACTER OCTAL 00498 M00S00497.demux +++| BX6 -X0*X1 00499 M00S00498.demux +++| AX1 24 00500 M00S00499.demux +++| BX6 X6+X4 00501 M00S00500.demux +++| LX6 18 00502 M00S00501.demux +++| BX7 -X0*X1 00503 M00S00502.demux +++| SA6 A6+2 STORE DRIVER ADDRESS 00504 M00S00503.demux +++| BX7 X7+X4 00505 M00S00504.demux +++| LX7 18 00506 M00S00505.demux +++| SA7 A7-B1 STORE PORT NUMBER 00507 M00S00506.demux +++| 00508 M00S00507.demux +++|* PROCESS DATA IN FIRST TRACE WORD. 00509 M00S00508.demux +++| 00510 M00S00509.demux +++| SA1 FTDA 00511 M00S00510.demux +++| AX1 24 IGNORE TIME STAMP DATA 00512 M00S00511.demux +++| RJ WOD 00513 M00S00512.demux +++| BX1 X6 SAVE UPPER OCTAL TRANSLATION 00514 M00S00513.demux +++| MX0 -48 00515 M00S00514.demux +++| BX6 -X0*X7 00516 M00S00515.demux +++| LX6 12 POSITION DATA AND CREATE END OF LINE 00517 M00S00516.demux +++| SA6 A6+1 00518 M00S00517.demux +++| 00519 M00S00518.demux +++|* PROCESS TIME DATA. 00520 M00S00519.demux +++| 00521 M00S00520.demux +++| SA1 FTDA CONVERT TIME 00522 M00S00521.demux +++| MX0 -12 00523 M00S00522.demux +++| BX2 -X0*X1 EXTRACT MILLISECONDS 00524 M00S00523.demux +++| AX1 12 00525 M00S00524.demux +++| BX1 -X0*X1 EXTRACT SECONDS 00526 M00S00525.demux +++| SX6 1000 00527 M00S00526.demux +++| IX1 X6*X1 MERGE SECONDS AND MILLISECONDS 00528 M00S00527.demux +++| IX1 X1+X2 00529 M00S00528.demux +++| RJ CFD CONVERT TO F10.3 FORMAT 00530 M00S00529.demux +++| SA6 FTDB 00531 M00S00530.demux +++| 00532 M00S00531.demux +++|* WRITE COMPLETED LINE TO TRACE FILE. 00533 M00S00532.demux +++| 00534 M00S00533.demux +++| SA1 FTDC CHECK PAGE POSITION 00535 M00S00534.demux +++| SX6 X1-1 00536 M00S00535.demux +++| SA6 A1+ 00537 M00S00536.demux +++| PL X6,FTD1 IF NO PAGE HEADING REQUIRED 00538 M00S00537.demux +++| SX6 LINP-1 00539 M00S00538.demux +++| SA6 A6+ 00540 M00S00539.demux +++| WRITEW R,FTDD,FTDDL WRITE PAGE HEADING TO TRACE FILE 00541 M00S00540.demux +++| FTD1 WRITEW R,FTDB,8 00542 M00S00541.demux +++| EQ FTDX RETURN 00543 M00S00542.demux +++| 00544 M00S00543.demux +++| 00545 M00S00544.demux +++| FTDA BSS 2 00546 M00S00545.demux +++| FTDB BSS 8 TRACE LINE ASSEMBLY BUFFER 00547 M00S00546.demux +++| FTDC CON 0 LINES REMAINING ON PAGE 00548 M00S00547.demux +++| FTDD DATA C*1 TIME PORT --INPUT CHARACTER-- --OUTPUT CHA 00549 M00S00548.demux +++|,RACTER-- ADDR PARAMETERS* 00550 M00S00549.demux +++| DATA C*0 * 00551 M00S00550.demux +++| FTDDL EQU *-FTDD LENGTH OF PAGE HEADING 00552 M00S00551.demux +++| FTS SPACE 4,15 00553 M00S00552.demux +++|** FTS - FORMAT TIME STAMP. 00554 M00S00553.demux +++|* 00555 M00S00554.demux +++|* ENTRY (X5) = DATA WORD. 00556 M00S00555.demux +++|* (B3) = SHIFT COUNT. 00557 M00S00556.demux +++|* (B6) = LINE TABLE ADDRESS. 00558 M00S00557.demux +++|* 00559 M00S00558.demux +++|* EXIT TIME STAMP DATA PROCESSED IF SELECTED. 00560 M00S00559.demux +++|* 00561 M00S00560.demux +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 00562 M00S00561.demux +++|* A - 0, 1, 2, 4, 6, 7. 00563 M00S00562.demux +++|* B - 3. 00564 M00S00563.demux +++|* 00565 M00S00564.demux +++|* CALLS CDD. 00566 M00S00565.demux +++|* 00567 M00S00566.demux +++|* MACROS OUTPUT. 00568 M00S00567.demux +++| 00569 M00S00568.demux +++| 00570 M00S00569.demux +++| FTS SUBR ENTRY/EXIT 00571 M00S00570.demux +++| SX7 B0+ 00572 M00S00571.demux +++| SA7 B6+LCNT 00573 M00S00572.demux +++| SA1 T CHECK TIME STAMP OPTION 00574 M00S00573.demux +++| MX7 -10 00575 M00S00574.demux +++| LX5 12 00576 M00S00575.demux +++| ZR X1,FTSX IF TIME STAMP OPTION NOT SELECTED 00577 M00S00576.demux +++| SA6 B6+LASM SAVE ASSEMBLY REGISTER 00578 M00S00577.demux +++| SX6 B3 SAVE SHIFT COUNT 00579 M00S00578.demux +++| SA6 B6+LSHF 00580 M00S00579.demux +++| BX1 -X7*X5 00581 M00S00580.demux +++| BX2 X5 00582 M00S00581.demux +++| LX2 59-10 00583 M00S00582.demux +++| PL X2,FTS2 IF MILLISECOND TIME STAMP 00584 M00S00583.demux +++| SA2 B6+LSEC GET LAST SECONDS STAMP 00585 M00S00584.demux +++| IX3 X1-X2 00586 M00S00585.demux +++| PL X3,FTS1 IF CURRENT TIME .GE. PREVIOUS TIME 00587 M00S00586.demux +++| SA4 B6+LTIM UPDATE TIME ADDER 00588 M00S00587.demux +++| SX3 2000B 00589 M00S00588.demux +++| IX6 X3+X4 00590 M00S00589.demux +++| SA6 A4 00591 M00S00590.demux +++| FTS1 BX6 X1 00592 M00S00591.demux +++| SA2 B6+LTIM GET TIME ADDER 00593 M00S00592.demux +++| IX1 X1+X2 00594 M00S00593.demux +++| SA6 B6+LSEC SET LAST SECONDS = CURRENT TIME 00595 M00S00594.demux +++| RJ CDD CONVERT SECONDS TO DISPLAY CODE 00596 M00S00595.demux +++| SA2 FTSA 00597 M00S00596.demux +++| BX6 X6-X2 00598 M00S00597.demux +++| SA0 B0 CLEAR *INDENT* FLAG 00599 M00S00598.demux +++| EQ FTS3 OUTPUT TIME STAMP 00600 M00S00599.demux +++| 00601 M00S00600.demux +++| FTS2 RJ CDD CONVERT MILLISECONDS 00602 M00S00601.demux +++| SA1 FTSB 00603 M00S00602.demux +++| SA2 =1L. 00604 M00S00603.demux +++| SB3 B2-B1 (B2) = 6*CHAR COUNT 00605 M00S00604.demux +++| MX7 1 00606 M00S00605.demux +++| AX7 B3 FORM MASK FOR MILLISECONDS 00607 M00S00606.demux +++| LX7 B2 RIGHT JUSTIFY MASK 00608 M00S00607.demux +++| BX1 -X7*X1 00609 M00S00608.demux +++| BX6 X6-X1 00610 M00S00609.demux +++| MX7 18 FORM MASK FOR MILLISECONDS 00611 M00S00610.demux +++| LX7 54 00612 M00S00611.demux +++| LX6 36 POSITION MASK 00613 M00S00612.demux +++| BX6 X7*X6 ISOLATE 3-CHARACTERS OF MILLISECONDS 00614 M00S00613.demux +++| BX6 X2+X6 SET DECIMAL POINT 00615 M00S00614.demux +++| SA0 B1 SET *INDENT* FLAG 00616 M00S00615.demux +++| FTS3 SA6 FTSC SAVE TIME STAMP 00617 M00S00616.demux +++| SA2 B6+LASM 00618 M00S00617.demux +++| ZR X2,FTS4 IF NO DATA IN DATA WORD 00619 M00S00618.demux +++| BX6 X2 00620 M00S00619.demux +++| OUTPUT WRITE LEFT OVER DATA 00621 M00S00620.demux +++| FTS4 SA1 FTSC WRITE TIME STAMP 00622 M00S00621.demux +++| BX6 X1 00623 M00S00622.demux +++| OUTPUT 00624 M00S00623.demux +++| SB3 A0+ CHECK FOR POSSIBLE INDENTATION 00625 M00S00624.demux +++| ZR B3,FTS5 IF INDENTATION NOT REQUIRED 00626 M00S00625.demux +++| SA1 =10H INDENT NEXT LINE 00627 M00S00626.demux +++| BX6 X1 00628 M00S00627.demux +++| OUTPUT 00629 M00S00628.demux +++| FTS5 SB3 54 RESET SHIFT COUNT 00630 M00S00629.demux +++| SX6 B0+ CLEAR ASSEMBLY REGISTER 00631 M00S00630.demux +++| EQ FTSX RETURN 00632 M00S00631.demux +++| 00633 M00S00632.demux +++| 00634 M00S00633.demux +++| FTSA CON 5L*****&5L 00635 M00S00634.demux +++| FTSB CON 10H0000000000&10H 00636 M00S00635.demux +++| FTSC BSS 1 TEMPORARY 00637 M00S00636.demux +++| GNW SPACE 4,25 00638 M00S00637.demux +++|** GNW - GET NEXT WORD. 00639 M00S00638.demux +++|* 00640 M00S00639.demux +++|* EXIT (B5) = TERMINAL NUMBER. 00641 M00S00640.demux +++|* (B6) = LINE TABLE ADDRESS. 00642 M00S00641.demux +++|* (X1) .NE. 0 IF END OF RECORD. 00643 M00S00642.demux +++|* (X5) = DATA WORD SHIFTED 12 BITS. 00644 M00S00643.demux +++|* 00645 M00S00644.demux +++|* IF TRACE DATA - 00646 M00S00645.demux +++|* (B7) = 0. 00647 M00S00646.demux +++|* (X6) = DATA WORD. 00648 M00S00647.demux +++|* 00649 M00S00648.demux +++|* IF NOT TRACE DATA - 00650 M00S00649.demux +++|* (B3) = SHIFT COUNT. 00651 M00S00650.demux +++|* (B7) = CHARACTER COUNT - 1 = 3. 00652 M00S00651.demux +++|* (X3) = (X6) = ASSEMBLY WORD. 00653 M00S00652.demux +++|* 00654 M00S00653.demux +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 00655 M00S00654.demux +++|* A - 1, 2, 3. 00656 M00S00655.demux +++|* B - 3, 6, 7. 00657 M00S00656.demux +++|* 00658 M00S00657.demux +++|* MACROS INPUT. 00659 M00S00658.demux +++|* 00660 M00S00659.demux +++|* NOTE DATA FOR AN INELIGIBLE TERMINAL IS DISCARDED. 00661 M00S00660.demux +++| 00662 M00S00661.demux +++| 00663 M00S00662.demux +++| GNW SUBR ENTRY/EXIT 00664 M00S00663.demux +++| GNW1 INPUT 00665 M00S00664.demux +++| NZ X1,GNWX IF EOI 00666 M00S00665.demux +++| BX5 X6 00667 M00S00666.demux +++| MX0 -11 SET TERMINAL NUMBER 00668 M00S00667.demux +++| LX5 12 00669 M00S00668.demux +++| BX7 -X0*X5 00670 M00S00669.demux +++| SA1 NT 00671 M00S00670.demux +++| SA2 SL 00672 M00S00671.demux +++| IX1 X7-X1 00673 M00S00672.demux +++| BX3 X2-X7 00674 M00S00673.demux +++| PL X1,GNW1 IF TERMINAL NUMBER .GT. *NT* VALUE 00675 M00S00674.demux +++| ZR X2,GNW2 IF SELECTIVE LINE NOT SET 00676 M00S00675.demux +++| NZ X3,GNW1 IF TERMINAL NOT SELECTED 00677 M00S00676.demux +++| GNW2 SX1 LNLG SET LINE TABLE ADDRESS 00678 M00S00677.demux +++| SB5 X7 SET TERMINAL NUMBER 00679 M00S00678.demux +++| IX1 X1*X7 00680 M00S00679.demux +++| SB7 B0+ PRESET *TRACE DATA* FLAG 00681 M00S00680.demux +++| SB6 X1+AMEM 00682 M00S00681.demux +++| SX1 B0+ CLEAR *EOI* FLAG 00683 M00S00682.demux +++| NG X6,GNWX IF TRACE DATA 00684 M00S00683.demux +++| SB7 4-1 SET CHARACTER COUNT - 1 00685 M00S00684.demux +++| SA2 B6+LSHF SET SHIFT COUNT 00686 M00S00685.demux +++| SA3 B6+LASM SET ASSEMBLY WORD 00687 M00S00686.demux +++| BX6 X3 00688 M00S00687.demux +++| SB3 X2 00689 M00S00688.demux +++| EQ GNWX RETURN 00690 M00S00689.demux +++| INP SPACE 4,15 00691 M00S00690.demux +++|** INP - INPUT NEXT DATA WORD. 00692 M00S00691.demux +++|* 00693 M00S00692.demux +++|* ENTRY (INPA) = LWA+1 OF DATA IN *WBUF*. 00694 M00S00693.demux +++|* (INPB) = NEXT WORD IN *WBUF*. 00695 M00S00694.demux +++|* 00696 M00S00695.demux +++|* EXIT (X1) .EQ. 0 IF DATA TRANSFERED. 00697 M00S00696.demux +++|* (X1) .NE. 0 IF EOF/EOI 00698 M00S00697.demux +++|* (X6) = DATA WORD. 00699 M00S00698.demux +++|* 00700 M00S00699.demux +++|* USES X - 1, 3, 6. 00701 M00S00700.demux +++|* A - 1, 3, 6. 00702 M00S00701.demux +++|* B - 7. 00703 M00S00702.demux +++|* 00704 M00S00703.demux +++|* MACROS READW. 00705 M00S00704.demux +++| 00706 M00S00705.demux +++| 00707 M00S00706.demux +++| INP SUBR ENTRY/EXIT 00708 M00S00707.demux +++| SA1 INPA SET LWA+1 OF DATA 00709 M00S00708.demux +++| SA3 A1+B1 SET CURRENT INDEX 00710 M00S00709.demux +++| IX6 X1-X3 00711 M00S00710.demux +++| NZ X6,INP2 IF DATA REMAINS IN *WBUF* 00712 M00S00711.demux +++| READW I,WBUF,WBUFL 00713 M00S00712.demux +++| PL X1,INP1 IF NOT EOI 00714 M00S00713.demux +++| SB7 B6-WBUF 00715 M00S00714.demux +++| ZR B7,INPX IF NO DATA TRANSFERRED 00716 M00S00715.demux +++| INP1 SX3 WBUF 00717 M00S00716.demux +++| SX6 B6+ 00718 M00S00717.demux +++| SA6 INPA 00719 M00S00718.demux +++| INP2 SX6 X3+B1 INCREMENT INDEX 00720 M00S00719.demux +++| SA3 X3 00721 M00S00720.demux +++| SA6 INPB 00722 M00S00721.demux +++| SX1 B0 SET TRANSFER COMPLETE 00723 M00S00722.demux +++| BX6 X3 00724 M00S00723.demux +++| EQ INPX RETURN 00725 M00S00724.demux +++| 00726 M00S00725.demux +++| 00727 M00S00726.demux +++| INPA CON 0 LWA+1 OF DATA 00728 M00S00727.demux +++| INPB CON 0 INDEX IN BUFFER 00729 M00S00728.demux +++| IRR SPACE 4,15 00730 M00S00729.demux +++|** IRR - INITIATE/RESUME *RPHRLS* REQUEST. 00731 M00S00730.demux +++|* 00732 M00S00731.demux +++|* EXIT *RPHRLS* INITIATED IF NECESSARY. 00733 M00S00732.demux +++|* 00734 M00S00733.demux +++|* USES X - 1, 2, 3, 4, 7. 00735 M00S00734.demux +++|* A - 1, 2, 3, 4. 00736 M00S00735.demux +++|* B - NONE. 00737 M00S00736.demux +++|* 00738 M00S00737.demux +++|* MACROS RPHRLS. 00739 M00S00738.demux +++|* 00740 M00S00739.demux +++|* NOTE BECAUSE THE *CIO* CODE FOR *RPHRLS* IS 230B, THE 00741 M00S00740.demux +++|* COMMON DECKS WILL NOT RESTART THE REQUEST SHOULD *CIO* 00742 M00S00741.demux +++|* DROP OUT, SINCE THEY INTERPRET A FET STATUS WITH 2**4 00743 M00S00742.demux +++|* SET AS *EOF*. 00744 M00S00743.demux +++| 00745 M00S00744.demux +++| 00746 M00S00745.demux +++| IRR SUBR ENTRY/EXIT 00747 M00S00746.demux +++| SA2 S CHECK FET STATUS 00748 M00S00747.demux +++| LX2 59-0 00749 M00S00748.demux +++| PL X2,IRRX IF FET BUSY 00750 M00S00749.demux +++| SA2 S+5 CHECK FOR END OF LIST 00751 M00S00750.demux +++| SA2 X2+ 00752 M00S00751.demux +++| ZR X2,IRRX IF ALL PRUS PROCESSED 00753 M00S00752.demux +++| 00754 M00S00753.demux +++|* THE FOLLOWING CODE IS ADAPTED FROM *COMCRDW*. 00755 M00S00754.demux +++| 00756 M00S00755.demux +++| SA1 S+1 GET FET BUFFER POINTERS 00757 M00S00756.demux +++| SA2 A1+B1 00758 M00S00757.demux +++| SA3 A2+B1 00759 M00S00758.demux +++| SA4 A3+B1 00760 M00S00759.demux +++| SX1 X1 00761 M00S00760.demux +++| SX4 X4+ 00762 M00S00761.demux +++| IX1 X4-X1 LIMIT - FIRST 00763 M00S00762.demux +++| IX7 X2-X3 IN-OUT 00764 M00S00763.demux +++| LX3 X7,B1 2*(IN-OUT) 00765 M00S00764.demux +++| AX7 60 SIGN OF (IN-OUT) 00766 M00S00765.demux +++| BX4 X7-X1 INVERT BUFFER IF OUT \ IN 00767 M00S00766.demux +++| IX7 X4-X3 BUFFER SIZE - 2*(IN-OUT) 00768 M00S00767.demux +++| NG X7,IRRX IF BUFFER THRESHOLD NOT REACHED 00769 M00S00768.demux +++| RPHRLS S INITIATE *CIO* REQUEST 00770 M00S00769.demux +++| EQ IRRX RETURN 00771 M00S00770.demux +++| SPD SPACE 4,15 00772 M00S00771.demux +++|** SPD - SORT PRU DIRECTORY. 00773 M00S00772.demux +++|* 00774 M00S00773.demux +++|* ENTRY (PD) = FWA OF PRU DIRECTORY. 00775 M00S00774.demux +++|* (PD+1) = NEXT UNUSED ENTRY IN DIRECTORY. 00776 M00S00775.demux +++|* 00777 M00S00776.demux +++|* EXIT DIRECTORY SORTED. 00778 M00S00777.demux +++|* LIST ADDRESS SET IN *SCR* FET. 00779 M00S00778.demux +++|* 00780 M00S00779.demux +++|* CALLS SST=. 00781 M00S00780.demux +++|* 00782 M00S00781.demux +++|* USES X - 1, 2, 6. 00783 M00S00782.demux +++|* A - 1, 2, 6. 00784 M00S00783.demux +++|* B - 7. 00785 M00S00784.demux +++| 00786 M00S00785.demux +++| 00787 M00S00786.demux +++| SPD SUBR ENTRY/EXIT 00788 M00S00787.demux +++| SA1 PD SET *SST=* PARAMETERS 00789 M00S00788.demux +++| BX6 X1 00790 M00S00789.demux +++| SB7 X1 FWA OF TABLE TO BE SORTED 00791 M00S00790.demux +++| SA6 S+5 SET PRU LIST INTO *SCR* FET 00792 M00S00791.demux +++| SA2 A1+B1 00793 M00S00792.demux +++| IX1 X2-X1 00794 M00S00793.demux +++| SX1 X1-1 LENGTH OF TABLE 00795 M00S00794.demux +++| RJ SST= SORT PRU DIRECTORY 00796 M00S00795.demux +++| EQ SPDX RETURN 00797 M00S00796.demux +++| SWB SPACE 4,15 00798 M00S00797.demux +++|** SWB - STORE WRITE BUFFER DATA. 00799 M00S00798.demux +++|* 00800 M00S00799.demux +++|* ENTRY (X6) = DATA TO WRITE. 00801 M00S00800.demux +++|* (B6) = LINE TABLE ADDRESS. 00802 M00S00801.demux +++|* 00803 M00S00802.demux +++|* EXIT DATA PLACED IN LINE BUFFER. 00804 M00S00803.demux +++|* LINE BUFFER WRITTEN TO *SCR* IF NECESSARY. 00805 M00S00804.demux +++|* (B5). (B6), (B7) PRESERVED. 00806 M00S00805.demux +++|* 00807 M00S00806.demux +++|* USES X - 1, 2, 3, 4, 6, 7. 00808 M00S00807.demux +++|* A - 1, 2, 3, 4, 6, 7. 00809 M00S00808.demux +++|* B - 5, 6, 7. 00810 M00S00809.demux +++|* 00811 M00S00810.demux +++|* CALLS UPD. 00812 M00S00811.demux +++|* 00813 M00S00812.demux +++|* MACROS WRITEW. 00814 M00S00813.demux +++| 00815 M00S00814.demux +++| 00816 M00S00815.demux +++| SWB1 SA6 A1+ SET NEW INDEX 00817 M00S00816.demux +++| 00818 M00S00817.demux +++| SWB SUBR ENTRY/EXIT 00819 M00S00818.demux +++| SA1 B6+LPTR GET LINE BUFFER POINTER 00820 M00S00819.demux +++| SX7 X1+LBUF 00821 M00S00820.demux +++| SA6 X7+B6 00822 M00S00821.demux +++| SX6 X1+B1 00823 M00S00822.demux +++| SX7 X6-LBUFL 00824 M00S00823.demux +++| NZ X7,SWB1 IF OUTPUT BUFFER NOT FULL 00825 M00S00824.demux +++| SX6 B5 SAVE REGISTERS 00826 M00S00825.demux +++| SX7 B6 00827 M00S00826.demux +++| SA6 SWBA 00828 M00S00827.demux +++| SA7 A6+B1 00829 M00S00828.demux +++| SX6 B7 00830 M00S00829.demux +++| SA6 A7+1 00831 M00S00830.demux +++| WRITEW S,X7+LBUF,LBUFL 00832 M00S00831.demux +++| SA2 SWBA SET TERMINAL NUMBER 00833 M00S00832.demux +++| SX3 LBUFL/100B SET NUMBER OF PRUS 00834 M00S00833.demux +++| SB5 X2+ 00835 M00S00834.demux +++| RJ UPD UPDATE PRU DIRECTORY / POINTERS 00836 M00S00835.demux +++| SA3 SWBA+1 00837 M00S00836.demux +++| SA4 A3+B1 00838 M00S00837.demux +++| SB6 X3 00839 M00S00838.demux +++| SB7 X4 00840 M00S00839.demux +++| BX6 X6-X6 00841 M00S00840.demux +++| SA6 B6+LPTR STORE NEW BUFFER POINTER 00842 M00S00841.demux +++| EQ SWBX RETURN 00843 M00S00842.demux +++| 00844 M00S00843.demux +++| 00845 M00S00844.demux +++| SWBA BSS 3 TEMPORARY STORAGE 00846 M00S00845.demux +++| UPD SPACE 4,15 00847 M00S00846.demux +++|** UPD - UPDATE PRU DIRECTORY AND POINTERS. 00848 M00S00847.demux +++|* 00849 M00S00848.demux +++|* ENTRY (B5) = TERMINAL NUMBER. 00850 M00S00849.demux +++|* (X3) = NUMBER OF PRUS WRITTEN. 00851 M00S00850.demux +++|* (PN) = NEXT PRU TO WRITE. 00852 M00S00851.demux +++|* (PD+1) = NEXT PRU DIRECTORY ENTRY TO USE. 00853 M00S00852.demux +++|* 00854 M00S00853.demux +++|* EXIT (PN), (PD+1), ((PD+1)) UPDATED. 00855 M00S00854.demux +++|* 00856 M00S00855.demux +++|* USES X - 1, 3, 4, 6, 7. 00857 M00S00856.demux +++|* A - 1, 2, 3, 6, 7. 00858 M00S00857.demux +++|* B - 7. 00859 M00S00858.demux +++|* 00860 M00S00859.demux +++|* MACROS ABORT, MEMORY, MESSAGE. 00861 M00S00860.demux +++| 00862 M00S00861.demux +++| 00863 M00S00862.demux +++| UPD SUBR ENTRY/EXIT 00864 M00S00863.demux +++| SA1 PN 00865 M00S00864.demux +++| IX6 X1+X3 00866 M00S00865.demux +++| SA6 A1 UPDATE PRU NUMBER 00867 M00S00866.demux +++| SB7 X3 00868 M00S00867.demux +++| SA3 PD+B1 00869 M00S00868.demux +++| SX4 B1 00870 M00S00869.demux +++| PX6 X1,B5 MERGE TERMINAL NUMBER AND PRU NUMBER 00871 M00S00870.demux +++| SA6 X3 UPDATE PRU DIRECTORY 00872 M00S00871.demux +++| SX7 X3+B1 00873 M00S00872.demux +++| SA7 A3 00874 M00S00873.demux +++| UPD1 SB7 B7-1 00875 M00S00874.demux +++| ZR B7,UPD2 IF ALL PRUS PROCESSED 00876 M00S00875.demux +++| IX6 X6+X4 00877 M00S00876.demux +++| SA6 A6+B1 00878 M00S00877.demux +++| SX7 X7+B1 00879 M00S00878.demux +++| SA7 A3 00880 M00S00879.demux +++| EQ UPD1 LOOP 00881 M00S00880.demux +++| 00882 M00S00881.demux +++|* CHECK FOR POSSIBLE MEMORY INCREASE. 00883 M00S00882.demux +++| 00884 M00S00883.demux +++| UPD2 SA3 FL 00885 M00S00884.demux +++| SA1 MR 00886 M00S00885.demux +++| IX3 X3-X7 00887 M00S00886.demux +++| LX1 30 00888 M00S00887.demux +++| SX3 X3-LBUFL/100B-1 00889 M00S00888.demux +++| PL X3,UPDX IF NO MEMORY INCREASE REQUIRED 00890 M00S00889.demux +++| SX7 X1+MEMI 00891 M00S00890.demux +++| SA7 A3 UPDATE CURRENT FL 00892 M00S00891.demux +++| SA3 A3+B1 00893 M00S00892.demux +++| LX7 30 00894 M00S00893.demux +++| IX3 X3-X7 00895 M00S00894.demux +++| SA7 A1+ 00896 M00S00895.demux +++| NG X3,UPD3 IF *MEM* REQUEST EXCEEDS JOB STEP MFL 00897 M00S00896.demux +++| MEMORY CM,MR,R REQUEST ADDITIONAL MEMORY 00898 M00S00897.demux +++| EQ UPDX RETURN 00899 M00S00898.demux +++| 00900 M00S00899.demux +++| UPD3 MESSAGE (=C* DEMUX MEMORY OVERFLOW.*) 00901 M00S00900.demux +++| RETURN S RETURN SCRATCH FILE 00902 M00S00901.demux +++| ABORT 00903 M00S00902.demux +++| COMMON SPACE 4,10 00904 M00S00903.demux +++|* COMMON DECKS. 00905 M00S00904.demux +++| 00906 M00S00905.demux +++| 00907 M00S00906.demux +++|*CALL COMCCDD 00908 M00S00907.demux +++|*CALL COMCCFD 00909 M00S00908.demux +++|*CALL COMCCIO 00910 M00S00909.demux +++|*CALL COMCRDW 00911 M00S00910.demux +++|*CALL COMCSST 00912 M00S00911.demux +++|*CALL COMCSYS 00913 M00S00912.demux +++|*CALL COMCWOD 00914 M00S00913.demux +++|*CALL COMCWTW 00915 M00S00914.demux +++| TITLE DEMUX CONVERSION TABLE. 00916 M00S00915.demux +++| ASCI SPACE 4,10 00917 M00S00916.demux +++|* ASCI - ASCII TABLE. 00918 M00S00917.demux +++| 00919 M00S00918.demux +++| 00920 M00S00919.demux +++| ASCI BSS 0 00921 M00S00920.demux +++| LOC 0 00922 M00S00921.demux +++| DATA -1 UNPRINTABLE 00923 M00S00922.demux +++| DUP 7,1 00924 M00S00923.demux +++| DATA -1 UNPRINTABLE 00925 M00S00924.demux +++| DATA 70B BACKSPACE (UP-ARROW) 00926 M00S00925.demux +++| DUP 4,1 00927 M00S00926.demux +++| DATA -1 UNPRINTABLE 00928 M00S00927.demux +++| DATA 0 CARRIAGE RETURN 00929 M00S00928.demux +++| DUP 18,1 00930 M00S00929.demux +++| DATA -1 UNPRINTABLE 00931 M00S00930.demux +++| 00932 M00S00931.demux +++| DATA 55B SPACE 00933 M00S00932.demux +++| DATA -1 UNPRINTABLE 00934 M00S00933.demux +++| DATA 64B DOUBLE QUOTE 00935 M00S00934.demux +++| DATA 60B NUMBER 00936 M00S00935.demux +++| DATA 53B DOLLAR SIGN 00937 M00S00936.demux +++| DATA 63B PERCENT 00938 M00S00937.demux +++| DATA 67B AMPERSAND 00939 M00S00938.demux +++| DATA 70B APOSTROPHE 00940 M00S00939.demux +++| 00941 M00S00940.demux +++| DATA 51B ( 00942 M00S00941.demux +++| DATA 52B ) 00943 M00S00942.demux +++| DATA 47B * 00944 M00S00943.demux +++| DATA 45B + 00945 M00S00944.demux +++| DATA 56B , 00946 M00S00945.demux +++| DATA 46B - 00947 M00S00946.demux +++| DATA 57B . 00948 M00S00947.demux +++| DATA 50B / 00949 M00S00948.demux +++| 00950 M00S00949.demux +++| DATA 33B 0 00951 M00S00950.demux +++| DATA 34B 1 00952 M00S00951.demux +++| DATA 35B 2 00953 M00S00952.demux +++| DATA 36B 3 00954 M00S00953.demux +++| DATA 37B 4 00955 M00S00954.demux +++| DATA 40B 5 00956 M00S00955.demux +++| DATA 41B 6 00957 M00S00956.demux +++| DATA 42B 7 00958 M00S00957.demux +++| 00959 M00S00958.demux +++| DATA 43B 8 00960 M00S00959.demux +++| DATA 44B 9 00961 M00S00960.demux +++| DATA 400B COLON 00962 M00S00961.demux +++| DATA 77B : 00963 M00S00962.demux +++| DATA 72B < 00964 M00S00963.demux +++| DATA 54B = 00965 M00S00964.demux +++| DATA 73B > 00966 M00S00965.demux +++| DATA 71B QUESTION MARK 00967 M00S00966.demux +++| 00968 M00S00967.demux +++| DATA -1 UNPRINTABLE 00969 M00S00968.demux +++| DATA 01B A 00970 M00S00969.demux +++| DATA 02B B 00971 M00S00970.demux +++| DATA 03B C 00972 M00S00971.demux +++| DATA 04B D 00973 M00S00972.demux +++| DATA 05B E 00974 M00S00973.demux +++| DATA 06B F 00975 M00S00974.demux +++| DATA 07B G 00976 M00S00975.demux +++| 00977 M00S00976.demux +++| DATA 10B H 00978 M00S00977.demux +++| DATA 11B I 00979 M00S00978.demux +++| DATA 12B J 00980 M00S00979.demux +++| DATA 13B K 00981 M00S00980.demux +++| DATA 14B L 00982 M00S00981.demux +++| DATA 15B M 00983 M00S00982.demux +++| DATA 16B N 00984 M00S00983.demux +++| DATA 17B O 00985 M00S00984.demux +++| 00986 M00S00985.demux +++| DATA 20B P 00987 M00S00986.demux +++| DATA 21B Q 00988 M00S00987.demux +++| DATA 22B R 00989 M00S00988.demux +++| DATA 23B S 00990 M00S00989.demux +++| DATA 24B T 00991 M00S00990.demux +++| DATA 25B U 00992 M00S00991.demux +++| DATA 26B V 00993 M00S00992.demux +++| DATA 27B W 00994 M00S00993.demux +++| 00995 M00S00994.demux +++| DATA 30B X 00996 M00S00995.demux +++| DATA 31B Y 00997 M00S00996.demux +++| DATA 32B Z 00998 M00S00997.demux +++| DATA 61B ( 00999 M00S00998.demux +++| DATA 75B REVERSE SLANT 01000 M00S00999.demux +++| DATA 62B ) 01001 M00S01000.demux +++| DATA -1 UNPRINTABLE 01002 M00S01001.demux +++| DATA 65B UNDERLINE 01003 M00S01002.demux +++| 01004 M00S01003.demux +++| DATA -1 UNPRINTABLE 01005 M00S01004.demux +++| DATA 01B LOWER CASE A 01006 M00S01005.demux +++| DATA 02B B 01007 M00S01006.demux +++| DATA 03B C 01008 M00S01007.demux +++| DATA 04B D 01009 M00S01008.demux +++| DATA 05B E 01010 M00S01009.demux +++| DATA 06B F 01011 M00S01010.demux +++| DATA 07B G 01012 M00S01011.demux +++| 01013 M00S01012.demux +++| DATA 10B H 01014 M00S01013.demux +++| DATA 11B I 01015 M00S01014.demux +++| DATA 12B J 01016 M00S01015.demux +++| DATA 13B K 01017 M00S01016.demux +++| DATA 14B L 01018 M00S01017.demux +++| DATA 15B M 01019 M00S01018.demux +++| DATA 16B N 01020 M00S01019.demux +++| DATA 17B O 01021 M00S01020.demux +++| 01022 M00S01021.demux +++| DATA 20B P 01023 M00S01022.demux +++| DATA 21B Q 01024 M00S01023.demux +++| DATA 22B R 01025 M00S01024.demux +++| DATA 23B S 01026 M00S01025.demux +++| DATA 24B T 01027 M00S01026.demux +++| DATA 25B U 01028 M00S01027.demux +++| DATA 26B V 01029 M00S01028.demux +++| DATA 27B W 01030 M00S01029.demux +++| 01031 M00S01030.demux +++| DATA 30B X 01032 M00S01031.demux +++| DATA 31B Y 01033 M00S01032.demux +++| DATA 32B Z 01034 M00S01033.demux +++| DUP 5,1 01035 M00S01034.demux +++| DATA -1 UNPRINTABLE 01036 M00S01035.demux +++| LOC *O 01037 M00S01036.demux +++| TASC SPACE 4,10 01038 M00S01037.demux +++|* TASC - ASCII READABLE OUTPUT TRANSLATION TABLE. 01039 M00S01038.demux +++| 01040 M00S01039.demux +++| TASC BSS 0 01041 M00S01040.demux +++| 01042 M00S01041.demux +++| LOC 0 01043 M00S01042.demux +++| DATA 10HNULL 01044 M00S01043.demux +++| DATA 10HSOH 01045 M00S01044.demux +++| DATA 10HSTX 01046 M00S01045.demux +++| DATA 10HETX 01047 M00S01046.demux +++| DATA 10HEOT 01048 M00S01047.demux +++| DATA 10HENQ 01049 M00S01048.demux +++| DATA 10HACK 01050 M00S01049.demux +++| DATA 10HBELL 01051 M00S01050.demux +++| 01052 M00S01051.demux +++| DATA 10HBKSP 01053 M00S01052.demux +++| DATA 10HHTAB 01054 M00S01053.demux +++| DATA 10HLF 01055 M00S01054.demux +++| DATA 10HVTAB 01056 M00S01055.demux +++| DATA 10HFORM FEED 01057 M00S01056.demux +++| DATA 10HCR 01058 M00S01057.demux +++| DATA 10HSHIFT OUT 01059 M00S01058.demux +++| DATA 10HSHIFT IN 01060 M00S01059.demux +++| 01061 M00S01060.demux +++| DATA 10HDLE 01062 M00S01061.demux +++| DATA 10HDC1 01063 M00S01062.demux +++| DATA 10HDC2 01064 M00S01063.demux +++| DATA 10HDC3 01065 M00S01064.demux +++| DATA 10HDC4 01066 M00S01065.demux +++| DATA 10HNAK 01067 M00S01066.demux +++| DATA 10HSYN 01068 M00S01067.demux +++| DATA 10HETB 01069 M00S01068.demux +++| 01070 M00S01069.demux +++| DATA 10HCAN 01071 M00S01070.demux +++| DATA 10HEM 01072 M00S01071.demux +++| DATA 10HSUB 01073 M00S01072.demux +++| DATA 10HESC 01074 M00S01073.demux +++| DATA 10HFS 01075 M00S01074.demux +++| DATA 10HGS 01076 M00S01075.demux +++| DATA 10HRS 01077 M00S01076.demux +++| DATA 10HUS 01078 M00S01077.demux +++| 01079 M00S01078.demux +++| DATA 10H 01080 M00S01079.demux +++| DATA 10HEX POINT 01081 M00S01080.demux +++| DATA 10HD QUOTE 01082 M00S01081.demux +++| DATA 10HPOUND SIGN 01083 M00S01082.demux +++| DATA 10H$ 01084 M00S01083.demux +++| DATA 10H 01085 M00S01084.demux +++| DATA 10HAMPERSAND 01086 M00S01085.demux +++| DATA 10HS QUOTE 01087 M00S01086.demux +++| 01088 M00S01087.demux +++| DATA 10H( 01089 M00S01088.demux +++| DATA 10H) 01090 M00S01089.demux +++| DATA 10H* 01091 M00S01090.demux +++| DATA 10H+ 01092 M00S01091.demux +++| DATA 10H, 01093 M00S01092.demux +++| DATA 10H- 01094 M00S01093.demux +++| DATA 10H. 01095 M00S01094.demux +++| DATA 10H/ 01096 M00S01095.demux +++| 01097 M00S01096.demux +++| DATA 10H0 01098 M00S01097.demux +++| DATA 10H1 01099 M00S01098.demux +++| DATA 10H2 01100 M00S01099.demux +++| DATA 10H3 01101 M00S01100.demux +++| DATA 10H4 01102 M00S01101.demux +++| DATA 10H5 01103 M00S01102.demux +++| DATA 10H6 01104 M00S01103.demux +++| DATA 10H7 01105 M00S01104.demux +++| 01106 M00S01105.demux +++| DATA 10H8 01107 M00S01106.demux +++| DATA 10H9 01108 M00S01107.demux +++| DATA 10H% 01109 M00S01108.demux +++| DATA 10HSEMI 01110 M00S01109.demux +++| DATA 10H< 01111 M00S01110.demux +++| DATA 10H= 01112 M00S01111.demux +++| DATA 10H> 01113 M00S01112.demux +++| DATA 10HQUESTION 01114 M00S01113.demux +++| 01115 M00S01114.demux +++| DATA 10HAT SIGN 01116 M00S01115.demux +++| DATA 10HA 01117 M00S01116.demux +++| DATA 10HB 01118 M00S01117.demux +++| DATA 10HC 01119 M00S01118.demux +++| DATA 10HD 01120 M00S01119.demux +++| DATA 10HE 01121 M00S01120.demux +++| DATA 10HF 01122 M00S01121.demux +++| DATA 10HG 01123 M00S01122.demux +++| 01124 M00S01123.demux +++| DATA 10HH 01125 M00S01124.demux +++| DATA 10HI 01126 M00S01125.demux +++| DATA 10HJ 01127 M00S01126.demux +++| DATA 10HK 01128 M00S01127.demux +++| DATA 10HL 01129 M00S01128.demux +++| DATA 10HM 01130 M00S01129.demux +++| DATA 10HN 01131 M00S01130.demux +++| DATA 10HO 01132 M00S01131.demux +++| 01133 M00S01132.demux +++| DATA 10HP 01134 M00S01133.demux +++| DATA 10HQ 01135 M00S01134.demux +++| DATA 10HR 01136 M00S01135.demux +++| DATA 10HS 01137 M00S01136.demux +++| DATA 10HT 01138 M00S01137.demux +++| DATA 10HU 01139 M00S01138.demux +++| DATA 10HV 01140 M00S01139.demux +++| DATA 10HW 01141 M00S01140.demux +++| 01142 M00S01141.demux +++| DATA 10HX 01143 M00S01142.demux +++| DATA 10HY 01144 M00S01143.demux +++| DATA 10HZ 01145 M00S01144.demux +++| DATA 10HL BRACKET 01146 M00S01145.demux +++| DATA 10HREV SLANT 01147 M00S01146.demux +++| DATA 10HR BRACKET 01148 M00S01147.demux +++| DATA 10HCIRCUMFLEX 01149 M00S01148.demux +++| DATA 10HUNDERLINE 01150 M00S01149.demux +++| 01151 M00S01150.demux +++| DATA 10HGR ACCENT 01152 M00S01151.demux +++| DATA 10H?A 01153 M00S01152.demux +++| DATA 10H?B 01154 M00S01153.demux +++| DATA 10H?C 01155 M00S01154.demux +++| DATA 10H?D 01156 M00S01155.demux +++| DATA 10H?E 01157 M00S01156.demux +++| DATA 10H?F 01158 M00S01157.demux +++| DATA 10H?G 01159 M00S01158.demux +++| 01160 M00S01159.demux +++| DATA 10H?H 01161 M00S01160.demux +++| DATA 10H?I 01162 M00S01161.demux +++| DATA 10H?J 01163 M00S01162.demux +++| DATA 10H?K 01164 M00S01163.demux +++| DATA 10H?L 01165 M00S01164.demux +++| DATA 10H?M 01166 M00S01165.demux +++| DATA 10H?N 01167 M00S01166.demux +++| DATA 10H?O 01168 M00S01167.demux +++| 01169 M00S01168.demux +++| DATA 10H?P 01170 M00S01169.demux +++| DATA 10H?Q 01171 M00S01170.demux +++| DATA 10H?R 01172 M00S01171.demux +++| DATA 10H?S 01173 M00S01172.demux +++| DATA 10H?T 01174 M00S01173.demux +++| DATA 10H?U 01175 M00S01174.demux +++| DATA 10H?V 01176 M00S01175.demux +++| DATA 10H?W 01177 M00S01176.demux +++| 01178 M00S01177.demux +++| DATA 10H?X 01179 M00S01178.demux +++| DATA 10H?Y 01180 M00S01179.demux +++| DATA 10H?Z 01181 M00S01180.demux +++| DATA 10HL BRACE 01182 M00S01181.demux +++| DATA 10HVERT LINE 01183 M00S01182.demux +++| DATA 10HR BRACE 01184 M00S01183.demux +++| DATA 10HTILDE 01185 M00S01184.demux +++| DATA 10HRUBOUT 01186 M00S01185.demux +++| LOC *O 01187 M00S01186.demux +++| BUFFERS SPACE 4,20 01188 M00S01187.demux +++| USE PRESET 01189 M00S01188.demux +++| 01190 M00S01189.demux +++|* BUFFER ALLOCATION. 01191 M00S01190.demux +++|
| Line S01191 Modification History | |
|---|---|
M01 (Removed by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 01192 M01S01191.ns2483 ---| LIST G 01193 M01S01192.ns2483 ---| FWA BSS 0 FWA OF BUFFERS 01194 M01S01193.ns2483 ---| BEGIN BSSN FWA 01195 M00S01194.demux +++| IBUF BSSN IBUFL *STIMOUT* BUFFER 01196 M00S01195.demux +++| OBUF BSSN OBUFL *OUTPUT* / *TRACE* BUFFER 01197 M00S01196.demux +++| SBUF BSSN SBUFL *SCR* BUFFER 01198 M00S01197.demux +++| WBUF BSSN WBUFL WORKING BUFFER 01199 M00S01198.demux +++| 01200 M00S01199.demux +++|* ALLOCATABLE MEMORY - LINE TABLES, PRU DIRECTORY. 01201 M00S01200.demux +++| 01202 M00S01201.demux +++| AMEM BSSN 0 FWA OF ALLOCATABLE MEMORY 01203 M00S01202.demux +++| END BSSN
| Line S01203 Modification History | |
|---|---|
M01 (Removed by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 01204 M01S01203.ns2483 ---| LIST *
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 01205 M01S00001.ns2483 +++| 01206 M00S01204.demux +++| RFL= EQU AMEM STARTING FL FOR DEMUX 01207 M00S01205.demux +++| TITLE PRESET PROGRAM. 01208 M00S01206.demux +++| PRS SPACE 4,15 01209 M00S01207.demux +++|** PRS - PRESET PROGRAM. 01210 M00S01208.demux +++|* 01211 M00S01209.demux +++|* ENTRY (B1) = 1. 01212 M00S01210.demux +++|* 01213 M00S01211.demux +++|* EXIT CONTROL STATEMENT PARAMETERS PROCESSED. 01214 M00S01212.demux +++|* FILES INITIALIZED AS NECESSARY. 01215 M00S01213.demux +++|* 01216 M00S01214.demux +++|* USES X - 1, 2, 4, 5, 6, 7. 01217 M00S01215.demux +++|* A - 1, 4, 5, 6, 7. 01218 M00S01216.demux +++|* B - 2, 3, 4, 5, 6, 7. 01219 M00S01217.demux +++|* 01220 M00S01218.demux +++|* CALLS ARG, DXB. 01221 M00S01219.demux +++|* 01222 M00S01220.demux +++|* MACROS ABORT, EVICT, MEMORY, MESSAGE, REWIND. 01223 M00S01221.demux +++| 01224 M00S01222.demux +++| 01225 M00S01223.demux +++| PRS SUBR ENTRY/EXIT 01226 M00S01224.demux +++| SX6 B0+ ESTABLISH DEFAULT OF NO TRACE 01227 M00S01225.demux +++| SA6 TR 01228 M00S01226.demux +++| 01229 M00S01227.demux +++|* PROCESS CONTROL STATEMENT PARAMETERS. 01230 M00S01228.demux +++| 01231 M00S01229.demux +++| SA1 ACTR SET *COMCARG* PARAMETERS 01232 M00S01230.demux +++| SB5 PRSA 01233 M00S01231.demux +++| SA4 ARGR 01234 M00S01232.demux +++| SB4 X1+ 01235 M00S01233.demux +++| RJ ARG PROCESS ARGUMENTS 01236 M00S01234.demux +++| ZR X1,PRS1 IF NO ERROR DETECTED 01237 M00S01235.demux +++| MESSAGE (=C* DEMUX ARGUMENT ERROR.*) 01238 M00S01236.demux +++| ABORT 01239 M00S01237.demux +++| 01240 M00S01238.demux +++|* PROCESS *NT* PARAMETER. 01241 M00S01239.demux +++| 01242 M00S01240.demux +++| PRS1 SA5 NT 01243 M00S01241.demux +++| SB7 0 SET DEFAULT BASE TO OCTAL 01244 M00S01242.demux +++| RJ DXB CONVERT TO BINARY 01245 M00S01243.demux +++| SA6 NT 01246 M00S01244.demux +++| ZR X4,PRS2 IF NO CONVERSION ERROR 01247 M00S01245.demux +++| MESSAGE (=C* DEMUX NUMERIC ARGUMENT CONVERSION ERROR.*) 01248 M00S01246.demux +++| ABORT 01249 M00S01247.demux +++| 01250 M00S01248.demux +++| PRS2 SX1 MTN+1 CHECK FOR *NT* IN RANGE 01251 M00S01249.demux +++| IX2 X6-X1 01252 M00S01250.demux +++| NG X2,PRS3 IF *NT* VALUE IN RANGE 01253 M00S01251.demux +++| MESSAGE (=C* DEMUX NT VALUE TOO LARGE.*) 01254 M00S01252.demux +++| ABORT 01255 M00S01253.demux +++| 01256 M00S01254.demux +++|* PROCESS *SL* PARAMETER. 01257 M00S01255.demux +++| 01258 M00S01256.demux +++| PRS3 SA5 SL PROCESS SELECTIVE LINE 01259 M00S01257.demux +++| SB7 0 SET DEFAULT BASE TO OCTAL 01260 M00S01258.demux +++| RJ DXB CONVERT TO BINARY 01261 M00S01259.demux +++| SA6 SL 01262 M00S01260.demux +++| ZR X4,PRS4 IF NO CONVERSION ERROR 01263 M00S01261.demux +++| MESSAGE (=C* DEMUX NUMERIC ARGUMENT CONVERSION ERROR.*) 01264 M00S01262.demux +++| ABORT 01265 M00S01263.demux +++| 01266 M00S01264.demux +++| PRS4 SA1 NT 01267 M00S01265.demux +++| IX2 X1-X6 01268 M00S01266.demux +++| PL X2,PRS5 IF SL .LE. NT 01269 M00S01267.demux +++| MESSAGE (=C* DEMUX SL VALUE TOO LARGE.*) 01270 M00S01268.demux +++| ABORT 01271 M00S01269.demux +++| 01272 M00S01270.demux +++|* CHECK FOR 63-CHARACTER SYSTEM. 01273 M00S01271.demux +++| 01274 M00S01272.demux +++| PRS5 SA1 CSMR CHECK CHARACTER SET MODE OF SYSTEM 01275 M00S01273.demux +++| NG X1,PRS6 IF 64 CHARACTER SET 01276 M00S01274.demux +++| SX6 63B CHANGE COLON TO PERCENT 01277 M00S01275.demux +++| SA6 ASCI+72B 01278 M00S01276.demux +++| 01279 M00S01277.demux +++|* ALLOCATE LINE TABLES AND INITIAL PRU DIRECTORY SIZE. 01280 M00S01278.demux +++| 01281 M00S01279.demux +++| PRS6 MX6 29 GET JOB STEP MFL 01282 M00S01280.demux +++| SA6 FL+1 01283 M00S01281.demux +++| MEMORY CM,FL+1,R 01284 M00S01282.demux +++| SA1 NT 01285 M00S01283.demux +++| SB2 X1+ SAVE TERMINAL NUMBER 01286 M00S01284.demux +++| SX2 LNLG 01287 M00S01285.demux +++| IX5 X2*X1 01288 M00S01286.demux +++| SX7 X5+AMEM INITIALIZE PRU DIRECTORY POINTERS 01289 M00S01287.demux +++| SA7 PD 01290 M00S01288.demux +++| SA7 A7+B1 01291 M00S01289.demux +++| SX7 X7+MEMI+77B DETERMINE MEMORY REQUIREMENTS 01292 M00S01290.demux +++| AX7 6 01293 M00S01291.demux +++| LX7 6 01294 M00S01292.demux +++| SA7 FL SAVE CURRENT FL 01295 M00S01293.demux +++| SA1 A7+B1 01296 M00S01294.demux +++| LX7 30 01297 M00S01295.demux +++| IX1 X1-X7 01298 M00S01296.demux +++| SA7 MR 01299 M00S01297.demux +++| NG X1,PRS8 IF *MEM* REQUEST EXCEEDS JOB STEP MFL 01300 M00S01298.demux +++| MEMORY CM,MR,R REQUEST ADDITIONAL MEMORY 01301 M00S01299.demux +++| 01302 M00S01300.demux +++|* INITIALIZE LINE TABLES. 01303 M00S01301.demux +++| 01304 M00S01302.demux +++| MX6 0 01305 M00S01303.demux +++| SA6 AMEM 01306 M00S01304.demux +++| SB6 A6 01307 M00S01305.demux +++| SB3 LNLG 01308 M00S01306.demux +++| PRS7 SA6 B6+B3 01309 M00S01307.demux +++| SB3 B3-B1 01310 M00S01308.demux +++| PL B3,PRS7 IF LINE TABLE NOT COMPLETE 01311 M00S01309.demux +++| MX7 1 SET *NO SESSION DATA* FLAG 01312 M00S01310.demux +++| SA7 B6+LPTR 01313 M00S01311.demux +++| SX7 54 SET SHIFT COUNT 01314 M00S01312.demux +++| SA7 A6+LSHF 01315 M00S01313.demux +++| SB3 LNLG 01316 M00S01314.demux +++| SB6 B6+LNLG PREPARE FOR NEXT TERMINAL 01317 M00S01315.demux +++| SB2 B2-1 01318 M00S01316.demux +++| NZ B2,PRS7 IF MORE TERMINALS TO PROCESS 01319 M00S01317.demux +++| 01320 M00S01318.demux +++|* INITIALIZE FILES. 01321 M00S01319.demux +++| 01322 M00S01320.demux +++| EVICT S RETURN SCRATCH FILE 01323 M00S01321.demux +++| SA1 NR CHECK NO REWIND OPTION 01324 M00S01322.demux +++| NZ X1,PRSX IF *NR* OPTION SELECTED 01325 M00S01323.demux +++| REWIND I,R 01326 M00S01324.demux +++| REWIND O,R 01327 M00S01325.demux +++| EQ PRSX RETURN 01328 M00S01326.demux +++| 01329 M00S01327.demux +++| PRS8 MESSAGE (=C* DEMUX MEMORY OVERFLOW.*) 01330 M00S01328.demux +++| ABORT 01331 M00S01329.demux +++| 01332 M00S01330.demux +++| 01333 M00S01331.demux +++| PRSA BSS 0 01334 M00S01332.demux +++| I ARG STIMOUT,I 01335 M00S01333.demux +++| NR ARG -=1,NR 01336 M00S01334.demux +++| NT ARG =0L1,NT 01337 M00S01335.demux +++| O ARG OUTPUT,O 01338 M00S01336.demux +++| SL ARG =0,SL 01339 M00S01337.demux +++| T ARG -=1,T 01340 M00S01338.demux +++| TR ARG OUTPUT,TR 01341 M00S01339.demux +++| ARG TERMINATOR 01342 M00S01340.demux +++| COMMON SPACE 4,10 01343 M00S01341.demux +++|* COMMON DECKS (PRESET). 01344 M00S01342.demux +++| 01345 M00S01343.demux +++| 01346 M00S01344.demux +++|*CALL COMCARG 01347 M00S01345.demux +++|*CALL COMCDXB 01348 M00S01346.demux +++| END SPACE 4,10 01349 M00S01347.demux +++| END
cdc/nos2.source/opl.opl871/deck/demux.txt · Last modified: by 127.0.0.1