cdc:nos2.source:opl.opl871:deck:termdef
Deck TERMDEF
2 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.termdef +++| IDENT TERMDEF 00002 M01S00002.termdef +++| ENTRY TERMDEF 00003 M01S00003.termdef +++| SYSCOM B1 00004 M01S00004.termdef +++| TITLE TERMDEF - SET TERMINAL DEFINITIONS. 00005 M01S00005.termdef +++|*COMMENT TERMDEF - TERMINAL DEFINITION ROUTINE.
Line S00006 Modification History | |
---|---|
M01 (Added by) | termdef |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.termdef +++| SPACE 4 00009 M01S00008.termdef +++|***** TERMDEF - TERMINAL DEFINITION. 00010 M01S00009.termdef +++|* W.E. MARTIN. 78/01/20. 00011 M01S00010.termdef +++|* M. S. PESCHMAN. 86/03/06. 00012 M01S00011.termdef +++|* T. E. SCHULL. 86/05/20. 00013 M01S00012.termdef +++| SPACE 4,60 00014 M01S00013.termdef +++|*** TERMDEF - TERMINAL DEFINITION FOR NETWORKS. 00015 M01S00014.termdef +++|* 00016 M01S00015.termdef +++|* TERMINAL DEFINITION FOR NETWORKS ALLOWS THE USER TO DEFINE 00017 M01S00016.termdef +++|* THE ATTRIBUTES OF A TERMINAL IN THE SAME FASHION THAT A USER 00018 M01S00017.termdef +++|* MIGHT DO AT THE TERMINAL. THIS ALLOWS TASKS TO CHANGE 00019 M01S00018.termdef +++|* ATTRIBUTES OF TERMINALS WITHOUT DIRECT USER INTERACTION. 00020 M01S00019.termdef +++|* THE KEYWORDS ARE FOUND FROM A TABLE AND DEPENDING ON THE 00021 M01S00020.termdef +++|* APPROPRIATE CONTEXT, THE VALUE OF THE ARGUMENT IS COMPUTED. 00022 M01S00021.termdef +++|* THE (KEYWORD,VALUE) LIST IS MAPPED INTO THE FORMAT REQUIRED 00023 M01S00022.termdef +++|* FOR THE SUPERVISORY MESSAGE AND A *CTI* TERMDEF IS ISSUED FOR 00024 M01S00023.termdef +++|* A SUBSEQUENT TRANSMISSION OF THE MESSAGE TO THE NETWORK. 00025 M01S00024.termdef +++|* 00026 M01S00025.termdef +++|* CALL FORMAT - 00027 M01S00026.termdef +++|* 00028 M01S00027.termdef +++|* FORTRAN EXTENDED - 00029 M01S00028.termdef +++|* 00030 M01S00029.termdef +++|* CALL TERMDEF(TERMINAL,STATUS,MSG1,MSG2,...,MSGN) 00031 M01S00030.termdef +++|* 00032 M01S00031.termdef +++|* COBOL - 00033 M01S00032.termdef +++|* 00034 M01S00033.termdef +++|* ENTER TERMDEF USING TERMINAL STATUS MSG1 MSG2 ... MSGN. 00035 M01S00034.termdef +++|* 00036 M01S00035.termdef +++|* WHERE - TERMINAL = NAME OF TERMINAL TO BE OPERATED 00037 M01S00036.termdef +++|* UPON. IF THE VALUE OF TERMINAL IS 00038 M01S00037.termdef +++|* EQUAL TO ZERO, THEN THE ORIGINATING 00039 M01S00038.termdef +++|* TERMINAL IS USED. 00040 M01S00039.termdef +++|* 00041 M01S00040.termdef +++|* STATUS = LOCATION TO RETURN LOGIN STATUS. THIS VALUE 00042 M01S00041.termdef +++|* IS RETURNED TO THE TASK AS AN UNNORMALIZED 00043 M01S00042.termdef +++|* FLOATING POINT NUMBER. 00044 M01S00043.termdef +++|* 00045 M01S00044.termdef +++|* MSGN = A DATA NAME CONTAINING LEFT JUSTIFIED BINARY 00046 M01S00045.termdef +++|* ZERO OR BLANK FILLED TERMINAL ATTRIBUTE TO 00047 M01S00046.termdef +++|* CHANGE. 00048 M01S00047.termdef +++|* IN FORTRAN, MSGN MAY BE OF FORM 5LPW=40, 00049 M01S00048.termdef +++|* 5LPL=60, OR 5LCN=2A ...ETC. 00050 M01S00049.termdef +++|* 00051 M01S00050.termdef +++|* 00052 M01S00051.termdef +++|* FOR TERMINALS NOT LOGGED IN, THE VALUE OF THE STATUS WORD 00053 M01S00052.termdef +++|* WILL BE RETURNED NON-ZERO, AND HENCE THE CONSTANT ZERO 00054 M01S00053.termdef +++|* SHOULD NOT BE USED AS AN ARGUMENT. TASKS ATTEMPTING 00055 M01S00054.termdef +++|* TO SET THE ATTRIBUTES OF A TERMINAL NOT ASSIGNED TO THE 00056 M01S00055.termdef +++|* SAME DATA BASE WILL BE ABORTED. TERMDEF DOES NOT HAVE ENOUGH 00057 M01S00056.termdef +++|* INFORMATION TO DETECT ALL ERRORS, SO ERRORS MAY BE RETURNED 00058 M01S00057.termdef +++|* TO *ITASK* FOR RESOLUTION, SINCE THE TASK IS NOT PLACED ON 00059 M01S00058.termdef +++|* RECALL UNTIL THE RESPONSE IS RETURNED FROM THE NETWORK. 00060 M01S00059.termdef +++|* NOTE - A *CTI* CALL IS ISSUED FOR EACH (KEYWORD,VALUE) PAIR, 00061 M01S00060.termdef +++|* RATHER THAN ONE FOR THE ENTIRE PROGRAM LEVEL CALL. 00062 M01S00061.termdef +++| SPACE 4 00063 M01S00062.termdef +++|* COMMON DECK. 00064 M01S00063.termdef +++| 00065 M01S00064.termdef +++| 00066 M01S00065.termdef +++|*CALL COMCMAC 00067 M01S00066.termdef +++|*CALL COMKMAC 00068 M01S00067.termdef +++|*CALL COMSNCD 00069 M01S00068.termdef +++|*CALL COMSPRD 00070 M01S00069.termdef +++| 00071 M01S00070.termdef +++| TITLE MAIN ROUTINE. 00072 M01S00071.termdef +++| 00073 M01S00072.termdef +++| VFD 42/0LTERMDEF,18/TERMDEF 00074 M01S00073.termdef +++| TDF6 SA1 TDFC RESTORE (A0) 00075 M01S00074.termdef +++| SA0 X1+ 00076 M01S00075.termdef +++| 00077 M01S00076.termdef +++| TERMDEF SUBR ENTRY/EXIT 00078 M01S00077.termdef +++| SX6 A0 SAVE (A0) 00079 M01S00078.termdef +++| SB1 1 00080 M01S00079.termdef +++| SA2 A1 00081 M01S00080.termdef +++| ZR X1,TDF5 IF NO ARGUMENTS - ABORT TASK 00082 M01S00081.termdef +++| SA6 TDFC 00083 M01S00082.termdef +++| 00084 M01S00083.termdef +++|* PROCESS TERMINAL NAME AND STATUS PARAMETER. 00085 M01S00084.termdef +++| 00086 M01S00085.termdef +++| SA4 X2 SET TERMINAL NAME INTO BUFFER 00087 M01S00086.termdef +++| UX1,B2 X4 UNPACK POSSIBLE COBOL ARGUMENT 00088 M01S00087.termdef +++| ZR X1,TDF1 IF NO TERMINAL NAME 00089 M01S00088.termdef +++| MX0 42 00090 M01S00089.termdef +++| BX1 X0*X4 00091 M01S00090.termdef +++| RJ ZFN ZERO FILL NAME 00092 M01S00091.termdef +++| TDF1 BX6 X1 SET DESTINATION TERMINAL 00093 M01S00092.termdef +++| SA2 A2+B1 00094 M01S00093.termdef +++| SA6 MCBA 00095 M01S00094.termdef +++| SA1 X2 00096 M01S00095.termdef +++| ZR X2,TDF5 IF SHORT ARGUMENT LIST 00097 M01S00096.termdef +++| BX6 X2 00098 M01S00097.termdef +++| SA2 A2+B1 00099 M01S00098.termdef +++| SA6 A6+B1 STORE STATUS ADDRESS 00100 M01S00099.termdef +++| SA1 X2 00101 M01S00100.termdef +++| SX6 A2-B1 PRESET (A2) 00102 M01S00101.termdef +++| ZR X2,TDF5 IF SHORT ARGUMENT LIST 00103 M01S00102.termdef +++| SA6 TDFE 00104 M01S00103.termdef +++| 00105 M01S00104.termdef +++|* BUILD SUPERVISORY MESSAGE. 00106 M01S00105.termdef +++| 00107 M01S00106.termdef +++| TDF2 SX7 2 RESET BUFFER POINTERS 00108 M01S00107.termdef +++| SA3 TDFE RESTORE PARAMETER LIST POINTER 00109 M01S00108.termdef +++| SX6 44 00110 M01S00109.termdef +++| SA7 MCBB 00111 M01S00110.termdef +++| SA6 MCBC 00112 M01S00111.termdef +++| SA1 MCBD 00113 M01S00112.termdef +++| BX6 X1 00114 M01S00113.termdef +++| SX7 B1+B1 RESET DEFAULT COUNT OF 8-BIT VALUES 00115 M01S00114.termdef +++| SA6 MCBA+2 00116 M01S00115.termdef +++| SA7 MCBE 00117 M01S00116.termdef +++| SA7 TDFA 00118 M01S00117.termdef +++| 00119 M01S00118.termdef +++|* PROCESS KEYWORD ARGUMENT. 00120 M01S00119.termdef +++| 00121 M01S00120.termdef +++| MX0 12 00122 M01S00121.termdef +++| SA2 X3+B1 00123 M01S00122.termdef +++| SA1 X2 READ KEYWORD ARGUMENT 00124 M01S00123.termdef +++| BX1 X0*X1 00125 M01S00124.termdef +++| ZR X2,TDF6 IF END OF ARGUMENT LIST 00126 M01S00125.termdef +++| RJ FKA FIND KEYWORD ARGUMENT 00127 M01S00126.termdef +++| NG X6,TDF5 IF INCORRECT KEYWORD 00128 M01S00127.termdef +++| SX7 A2+ 00129 M01S00128.termdef +++| SA7 TDFE 00130 M01S00129.termdef +++| ZR X1,TDF3 IF KEYWORD IS *EB* OR *EL* 00131 M01S00130.termdef +++| SB7 1 NUMBER OF 8-BIT VALUES TO TRANSFER 00132 M01S00131.termdef +++| RJ MCB MERGE FIELD NUMBER FROM *TTDC* INTO BUFFER 00133 M01S00132.termdef +++| SA3 TDFE RESTORE (A2) 00134 M01S00133.termdef +++| SA2 X3+ 00135 M01S00134.termdef +++| TDF3 SA1 X2+ READ ARGUMENT 00136 M01S00135.termdef +++| MX0 -6 00137 M01S00136.termdef +++| LX1 18 00138 M01S00137.termdef +++| SX4 1R= 00139 M01S00138.termdef +++| BX2 -X0*X1 00140 M01S00139.termdef +++| BX3 X2-X4 00141 M01S00140.termdef +++| NZ X3,TDF5 IF THIRD CHARACTER IS NOT *=* 00142 M01S00141.termdef +++| SA3 FKAA 00143 M01S00142.termdef +++| SB3 X3+ 00144 M01S00143.termdef +++| JP B3 PROCESSING ROUTINE 00145 M01S00144.termdef +++| 00146 M01S00145.termdef +++|* REQUEST SUPERVISORY MESSAGE TO BE SENT TO THE NETWORK. 00147 M01S00146.termdef +++| 00148 M01S00147.termdef +++| TDF4 SA1 MCBA SET COUNT OF 8-BIT VALUES INTO BUFFER 00149 M01S00148.termdef +++| SA2 MCBE 00150 M01S00149.termdef +++| BX6 X2+X1 00151 M01S00150.termdef +++| SA6 A1 00152 M01S00151.termdef +++| TERMDEF MCBA 00153 M01S00152.termdef +++| MX0 42 RESET COUNT OF 8-BIT VALUES 00154 M01S00153.termdef +++| SA1 MCBA 00155 M01S00154.termdef +++| BX6 X0*X1 00156 M01S00155.termdef +++| SA6 MCBA 00157 M01S00156.termdef +++| EQ TDF2 PROCESS NEXT MESSAGE 00158 M01S00157.termdef +++| 00159 M01S00158.termdef +++|* ABORT TASK FOR ARGUMENT ERROR. 00160 M01S00159.termdef +++| 00161 M01S00160.termdef +++| TDF5 SA1 TERMDEF SET TRACE-BACK WORD IN BUFFER 00162 M01S00161.termdef +++| MX0 30 00163 M01S00162.termdef +++| LX1 30 00164 M01S00163.termdef +++| SA2 X1-1 READ *RJ* FROM CALLING PROGRAM 00165 M01S00164.termdef +++| BX6 -X0*X2 00166 M01S00165.termdef +++| SA6 MCBA 00167 M01S00166.termdef +++| ARGERR A6 EXIT TO EXECUTIVE 00168 M01S00167.termdef +++| 00169 M01S00168.termdef +++| 00170 M01S00169.termdef +++| TDFA CON 0 SCRATCH STORAGE FOR ARGUMENT PROCESSORS 00171 M01S00170.termdef +++| TDFB CON 0 SCRATCH STORAGE FOR ARGUMENT PROCESSORS 00172 M01S00171.termdef +++| TDFC CON 0 STORAGE LOCATION FOR (A0) 00173 M01S00172.termdef +++| TDFD CON 0 SCRATCH STORAGE FOR ARGUMENT PROCESSORS 00174 M01S00173.termdef +++| TDFE CON 0 SCRATCH STORAGE FOR ARGUMENT PROCESSORS 00175 M01S00174.termdef +++| TITLE SUBROUTINES. 00176 M01S00175.termdef +++| PDA SPACE 4,20 00177 M01S00176.termdef +++| PDH SPACE 4,20 00178 M01S00177.termdef +++|** CHB - CONVERT HEXADECIMAL TO BINARY. 00179 M01S00178.termdef +++|* 00180 M01S00179.termdef +++|* THIS ROUTINE CONVERTS TWO DISPLAY CODED HEXADECIMAL 00181 M01S00180.termdef +++|* CHARACTERS TO THEIR BINARY EQUIVALENT. 00182 M01S00181.termdef +++|* 00183 M01S00182.termdef +++|* ENTRY (X1) = TWO DISPLAY CODED HEXADECIMAL CHARACTERS, 00184 M01S00183.termdef +++|* LEFT JUSTIFIED. 00185 M01S00184.termdef +++|* 00186 M01S00185.termdef +++|* EXIT (X1) = 8-BIT FIELD VALUE, RIGHT JUSTIFIED. 00187 M01S00186.termdef +++|* 00188 M01S00187.termdef +++|* USES X - 0, 1, 3, 4, 6. 00189 M01S00188.termdef +++|* B - 3. 00190 M01S00189.termdef +++|* 00191 M01S00190.termdef +++| 00192 M01S00191.termdef +++| 00193 M01S00192.termdef +++| CHB3 IX1 X6+X1 00194 M01S00193.termdef +++| 00195 M01S00194.termdef +++| CHB SUBR ENTRY/EXIT 00196 M01S00195.termdef +++| MX0 12 00197 M01S00196.termdef +++| BX1 X0*X1 00198 M01S00197.termdef +++| MX4 -6 00199 M01S00198.termdef +++| BX0 X1 00200 M01S00199.termdef +++| SX6 16 00201 M01S00200.termdef +++| SB3 2 MAXIMUM NUMBER OF DIGITS TO PROCESS 00202 M01S00201.termdef +++| CHB1 LX0 5-59 00203 M01S00202.termdef +++| SB3 B3-1 00204 M01S00203.termdef +++| BX1 -X4*X0 EXTRACT CHARACTER 00205 M01S00204.termdef +++| SX3 X1-1R+ 00206 M01S00205.termdef +++| PL X3,TDF5 IF CHARACTER > 9 00207 M01S00206.termdef +++| SX3 X1-1R0 CONVERT NUMERIC CHARACTER TO HEX DIGIT 00208 M01S00207.termdef +++| PL X3,CHB2 IF NUMERIC CHARACTER 00209 M01S00208.termdef +++| SX3 X1-1RG 00210 M01S00209.termdef +++| PL X3,TDF5 IF CHARACTER BETWEEN G AND Z 00211 M01S00210.termdef +++| SX3 X1-1RA 00212 M01S00211.termdef +++| NG X3,TDF5 IF CHARACTER < A 00213 M01S00212.termdef +++| SX3 X1+9 CONVERT ALPHA CHARACTER TO HEX DIGIT 00214 M01S00213.termdef +++| CHB2 BX1 X3 00215 M01S00214.termdef +++| ZR B3,CHB3 IF BOTH CHARACTERS PROCESSED 00216 M01S00215.termdef +++| IX6 X6*X1 00217 M01S00216.termdef +++| EQ CHB1 PROCESS SECOND CHARACTER 00218 M01S00217.termdef +++| PDB SPACE 4,20 00219 M01S00218.termdef +++|** PDB - PROCESS DECIMAL TO BINARY. 00220 M01S00219.termdef +++|* 00221 M01S00220.termdef +++|* THIS ROUTINE CONVERTS THE DISPLAY CODED DECIMAL VALUE OF 00222 M01S00221.termdef +++|* PARAMETER *CI*, *LI*, *PL*, *PW*, OR *TC* INTO A FIELD 00223 M01S00222.termdef +++|* VALUE AND MERGES IT INTO THE TRANSMISSION BUFFER. 00224 M01S00223.termdef +++|* 00225 M01S00224.termdef +++|* ENTRY (X1) = DISPLAY CODED DECIMAL CHARACTERS, LEFT 00226 M01S00225.termdef +++|* JUSTIFIED. 00227 M01S00226.termdef +++|* LAST 8-BIT VALUE MERGED INTO TRANSMISSION BUFFER = 00228 M01S00227.termdef +++|* FIELD NUMBER FROM *CI*, *LI*, *PL*, *PW*, OR *TC* 00229 M01S00228.termdef +++|* ENTRY IN TABLE *TTDC*. 00230 M01S00229.termdef +++|* 00231 M01S00230.termdef +++|* EXIT TO *TDF4*. 00232 M01S00231.termdef +++|* TO *TDF5*, IF ERROR. 00233 M01S00232.termdef +++|* 00234 M01S00233.termdef +++|* USES X - 0, 1, 5. 00235 M01S00234.termdef +++|* B - 7. 00236 M01S00235.termdef +++|* 00237 M01S00236.termdef +++|* CALLS DXB, MCB, ZFN. 00238 M01S00237.termdef +++| 00239 M01S00238.termdef +++| 00240 M01S00239.termdef +++| PDB BSS 0 ENTRY 00241 M01S00240.termdef +++| MX0 42 00242 M01S00241.termdef +++| BX1 X0*X1 00243 M01S00242.termdef +++| RJ ZFN BINARY ZERO FILL DISPLAY CODED CHARACTERS 00244 M01S00243.termdef +++| BX5 X1 00245 M01S00244.termdef +++| SB7 B1 00246 M01S00245.termdef +++| RJ DXB CONVERT DECIMAL VALUE TO BINARY EQUIVALENT 00247 M01S00246.termdef +++| NZ X4,TDF5 IF ERROR 00248 M01S00247.termdef +++| BX1 X6 00249 M01S00248.termdef +++| LX1 59-7 00250 M01S00249.termdef +++| RJ MCB MERGE FIELD VALUE INTO BUFFER 00251 M01S00250.termdef +++| EQ TDF4 RETURN 00252 M01S00251.termdef +++| PDL SPACE 4,20 00253 M01S00252.termdef +++|** PDL - PROCESS PARAMETER *DL* OR *XL*. 00254 M01S00253.termdef +++|* 00255 M01S00254.termdef +++|* THIS ROUTINE CONVERTS THE DISPLAY CODED VALUE(S) OF *DL* OR 00256 M01S00255.termdef +++|* *XL* INTO FIELD NUMBERS/FIELD VALUES AND MERGES THEM INTO THE 00257 M01S00256.termdef +++|* TRANSMISSION BUFFER. 00258 M01S00257.termdef +++|* 00259 M01S00258.termdef +++|* ENTRY (A1) = FWA OF *DL* OR *XL* MESSAGE. 00260 M01S00259.termdef +++|* (X3) = *DL* OR *XL* ENTRY FROM TABLE *TTDC*. 00261 M01S00260.termdef +++|* LAST 8-BIT VALUE MERGED INTO TRANSMISSION BUFFER = 00262 M01S00261.termdef +++|* FIELD NUMBER FROM *DL* OR *XL* ENTRY IN TABLE *TTDC*. 00263 M01S00262.termdef +++|* 00264 M01S00263.termdef +++|* EXIT TO *TDF4*. 00265 M01S00264.termdef +++|* TO *TDF5*, IF ERROR. 00266 M01S00265.termdef +++|* 00267 M01S00266.termdef +++|* USES X - ALL. 00268 M01S00267.termdef +++|* A - 1, 2, 3, 4, 5, 6, 7. 00269 M01S00268.termdef +++|* B - 2, 3, 7. 00270 M01S00269.termdef +++|* 00271 M01S00270.termdef +++|* CALLS CHB, DXB, MCB, POP, USB, ZTB. 00272 M01S00271.termdef +++| 00273 M01S00272.termdef +++| 00274 M01S00273.termdef +++| PDL BSS 0 ENTRY 00275 M01S00274.termdef +++| SB7 1 00276 M01S00275.termdef +++| AX3 18 00277 M01S00276.termdef +++| SX1 X3 FIELD VALUE FOR *DL* OR *XL* 00278 M01S00277.termdef +++| BX6 X1 00279 M01S00278.termdef +++| SA6 PDLH INDICATE *DL* OR *XL* 00280 M01S00279.termdef +++| LX1 59-7 00281 M01S00280.termdef +++| RJ MCB MERGE FIELD VALUE INTO BUFFER 00282 M01S00281.termdef +++| SA1 A1+ 00283 M01S00282.termdef +++| RJ ZTB BLANK FILL FIRST WORD OF MESSAGE 00284 M01S00283.termdef +++| SA6 PDLC 00285 M01S00284.termdef +++| MX0 -6 00286 M01S00285.termdef +++| BX1 -X0*X6 00287 M01S00286.termdef +++| SX2 1R 00288 M01S00287.termdef +++| BX3 X1-X2 00289 M01S00288.termdef +++| SX2 1R. 00290 M01S00289.termdef +++| NZ X3,PDL1 IF LAST CHARACTER IS NOT A BLANK 00291 M01S00290.termdef +++| BX1 X0*X6 00292 M01S00291.termdef +++| BX6 X1+X2 INSERT TERMINATOR AT END OF FIRST WORD 00293 M01S00292.termdef +++| SA6 PDLC 00294 M01S00293.termdef +++| EQ PDL2 PROCESS MESSAGE 00295 M01S00294.termdef +++| 00296 M01S00295.termdef +++| PDL1 SA1 A1+1 00297 M01S00296.termdef +++| RJ ZTB BLANK FILL SECOND WORD OF MESSAGE 00298 M01S00297.termdef +++| BX1 X0*X6 00299 M01S00298.termdef +++| BX6 X1+X2 INSERT TERMINATOR AT END OF SECOND WORD 00300 M01S00299.termdef +++| SA6 PDLC+1 00301 M01S00300.termdef +++| PDL2 SB2 PDLC FIRST WORD 00302 M01S00301.termdef +++| SB3 B0+ 00303 M01S00302.termdef +++| RJ USB UNPACK MESSAGE INTO 1 CHARACTER PER WORD 00304 M01S00303.termdef +++| RJ POP SKIP *DL=* OR *XL=* 00305 M01S00304.termdef +++| PDL3 RJ POP GET NEXT PARAMETER 00306 M01S00305.termdef +++| NG B5,TDF5 IF ERROR 00307 M01S00306.termdef +++| BX7 X1 00308 M01S00307.termdef +++| MX0 6 00309 M01S00308.termdef +++| SA7 PDLA SAVE SEPARATOR 00310 M01S00309.termdef +++| SA2 =1LX 00311 M01S00310.termdef +++| BX1 X0*X6 00312 M01S00311.termdef +++| BX7 X2-X1 00313 M01S00312.termdef +++| SA5 PDLD 00314 M01S00313.termdef +++| SA2 PDLL 00315 M01S00314.termdef +++| ZR X7,PDL4 IF FIRST CHARACTER = *X* 00316 M01S00315.termdef +++| SA4 =1LY 00317 M01S00316.termdef +++| BX3 X4-X1 00318 M01S00317.termdef +++| NZ X3,PDL7 IF FIRST CHARACTER NOT EQUAL TO *Y* 00319 M01S00318.termdef +++| SA4 PDLH 00320 M01S00319.termdef +++| ZR X4,TDF5 IF *DL* MESSAGE WITH *Y* PARAMETER 00321 M01S00320.termdef +++| ZR X5,PDL6 IF NO *X* BEFORE *Y*, THEN IGNORE *Y* 00322 M01S00321.termdef +++| SA5 PDLG 00323 M01S00322.termdef +++| SA2 PDLN 00324 M01S00323.termdef +++| PDL4 NZ X5,TDF5 IF MORE THAN ONE *X* OR *Y* IN MESSAGE 00325 M01S00324.termdef +++| LX6 59-53 00326 M01S00325.termdef +++| BX1 X6 00327 M01S00326.termdef +++| RJ CHB CONVERT HEXADECIMAL TO BINARY 00328 M01S00327.termdef +++| LX1 35-7 00329 M01S00328.termdef +++| ZR X7,PDL5 IF *X* 00330 M01S00329.termdef +++| LX1 51-35 00331 M01S00330.termdef +++| PDL5 BX1 X1+X2 00332 M01S00331.termdef +++| SB7 X2 FIELD SIZE 00333 M01S00332.termdef +++| RJ MCB MERGE *X* OR *Y* FIELD NUMBERS/VALUES 00334 M01S00333.termdef +++| SX6 1 00335 M01S00334.termdef +++| SA6 A5+ SPECIFY THAT *X* OR *Y* HAS BEEN PROCESSED 00336 M01S00335.termdef +++| PDL6 SA1 PDLB 00337 M01S00336.termdef +++| SX6 X1+3 ADD NUMBER OF CHARACTERS IN *X* OR *Y* 00338 M01S00337.termdef +++| SA6 A1+ 00339 M01S00338.termdef +++| EQ PDL11 PROCESS NEXT PARAMETER 00340 M01S00339.termdef +++| 00341 M01S00340.termdef +++| PDL7 SA2 =1LC 00342 M01S00341.termdef +++| BX3 X2-X1 00343 M01S00342.termdef +++| NZ X3,PDL10 IF FIRST CHARACTER NOT EQUAL TO *C* 00344 M01S00343.termdef +++| SA2 PDLE 00345 M01S00344.termdef +++| NZ X2,TDF5 IF MORE THAN ONE *C* IN MESSAGE 00346 M01S00345.termdef +++| MX0 24 00347 M01S00346.termdef +++| LX0 -6 00348 M01S00347.termdef +++| BX5 X0*X6 EXTRACT DECIMAL COUNT 00349 M01S00348.termdef +++| ZR X5,TDF5 IF NO CHARACTER COUNT DELIMITER 00350 M01S00349.termdef +++| SB7 B1 INCLUDE *C* IN NUMBER OF CHARACTERS 00351 M01S00350.termdef +++| BX4 X5 00352 M01S00351.termdef +++| LX4 59-53 00353 M01S00352.termdef +++| MX1 6 00354 M01S00353.termdef +++| MX0 54 00355 M01S00354.termdef +++| PDL8 LX4 5-59 NEXT CHARACTER 00356 M01S00355.termdef +++| SX3 X4-1R0 00357 M01S00356.termdef +++| NG X3,PDL9 IF NOT A DECIMAL DIGIT 00358 M01S00357.termdef +++| SX3 X4-1R+ 00359 M01S00358.termdef +++| PL X3,PDL9 IF NOT A DECIMAL DIGIT 00360 M01S00359.termdef +++| SB7 B7+1 00361 M01S00360.termdef +++| AX1 6 SET UP MASK FOR CHARACTER COUNT DELIMITER 00362 M01S00361.termdef +++| BX4 X0*X4 CLEAR DIGIT JUST CHECKED 00363 M01S00362.termdef +++| NZ X4,PDL8 IF MORE CHARACTERS TO CHECK 00364 M01S00363.termdef +++| PDL9 SA2 PDLB 00365 M01S00364.termdef +++| SX6 X2+B7 ADD NUMBER OF CHARACTERS IN *C* PARAMETER 00366 M01S00365.termdef +++| SA6 A2 00367 M01S00366.termdef +++| BX5 X1*X5 EXTRACT DECIMAL COUNT 00368 M01S00367.termdef +++| LX5 59-53 00369 M01S00368.termdef +++| BX5 X0*X5 00370 M01S00369.termdef +++| SA6 PDLE INDICATE THAT *C* HAS BEEN PROCESSED 00371 M01S00370.termdef +++| RJ DXB CONVERT DECIMAL COUNT TO BINARY 00372 M01S00371.termdef +++| NZ X4,TDF5 IF ERROR 00373 M01S00372.termdef +++| MX0 -8 00374 M01S00373.termdef +++| BX1 -X0*X6 EXTRACT LOWER BYTE OF COUNT 00375 M01S00374.termdef +++| LX1 51-7 00376 M01S00375.termdef +++| LX6 7-15 00377 M01S00376.termdef +++| BX2 -X0*X6 EXTRACT UPPER BYTE OF COUNT 00378 M01S00377.termdef +++| LX2 35-7 00379 M01S00378.termdef +++| SB7 4 00380 M01S00379.termdef +++| SA3 PDLM EXTRACT FIELD NUMBERS FOR *C* PARAMETER 00381 M01S00380.termdef +++| BX1 X1+X2 00382 M01S00381.termdef +++| BX1 X1+X3 00383 M01S00382.termdef +++| RJ MCB MERGE (FN=72,FV=LOWER,FN=71,FV=UPPER) 00384 M01S00383.termdef +++| EQ PDL11 PROCESS NEXT PARAMETER 00385 M01S00384.termdef +++| 00386 M01S00385.termdef +++| PDL10 SA2 =2LTO 00387 M01S00386.termdef +++| MX0 12 00388 M01S00387.termdef +++| BX1 X0*X6 00389 M01S00388.termdef +++| BX3 X2-X1 00390 M01S00389.termdef +++| NZ X3,TDF5 IF FIRST CHARACTERS NOT EQUAL TO *TO* 00391 M01S00390.termdef +++| SB7 B1+B1 00392 M01S00391.termdef +++| SA5 PDLF 00393 M01S00392.termdef +++| NZ X5,TDF5 IF MORE THAN ONE *TO* IN MESSAGE 00394 M01S00393.termdef +++| SA1 PDLK 00395 M01S00394.termdef +++| RJ MCB MERGE (FN=74,FV=1) 00396 M01S00395.termdef +++| SA2 PDLB 00397 M01S00396.termdef +++| SX6 X2+2 ADD NUMBER OF CHARACTERS IN *TO* PARAMETER 00398 M01S00397.termdef +++| SA6 A2+ 00399 M01S00398.termdef +++| SA6 A5+ INDICATE THAT *TO* HAS BEEN PROCESSED 00400 M01S00399.termdef +++| PDL11 SA1 PDLB 00401 M01S00400.termdef +++| SX1 X1-6 00402 M01S00401.termdef +++| NZ X1,PDL12 IF PARAMETER DOES NOT END ON WORD BOUNDARY 00403 M01S00402.termdef +++| SA1 PDLC+1 SECOND WORD 00404 M01S00403.termdef +++| MX0 6 00405 M01S00404.termdef +++| BX1 X0*X1 00406 M01S00405.termdef +++| SA2 =1L, 00407 M01S00406.termdef +++| BX1 X1-X2 00408 M01S00407.termdef +++| NZ X1,PDL13 IF MESSAGE LENGTH = 1 WORD 00409 M01S00408.termdef +++| PDL12 SA1 PDLA GET SEPARATOR 00410 M01S00409.termdef +++| SX2 1R. 00411 M01S00410.termdef +++| BX1 X1-X2 00412 M01S00411.termdef +++| NZ X1,PDL3 IF MORE PARAMETERS TO PROCESS 00413 M01S00412.termdef +++| PDL13 SA2 PDLD 00414 M01S00413.termdef +++| NZ X2,PDL14 IF *X* WAS FOUND IN MESSAGE 00415 M01S00414.termdef +++| SA2 PDLG 00416 M01S00415.termdef +++| NZ X2,PDL14 IF *Y* WAS FOUND IN MESSAGE 00417 M01S00416.termdef +++| SB7 2 00418 M01S00417.termdef +++| SA1 PDLI 00419 M01S00418.termdef +++| RJ MCB MERGE (FN=70,FV=0) INTO BUFFER 00420 M01S00419.termdef +++| PDL14 SA2 PDLF 00421 M01S00420.termdef +++| NZ X2,PDL15 IF *TO* WAS FOUND IN MESSAGE 00422 M01S00421.termdef +++| SB7 2 00423 M01S00422.termdef +++| SA1 PDLJ 00424 M01S00423.termdef +++| RJ MCB MERGE (FN=74,FV=0) INTO BUFFER 00425 M01S00424.termdef +++| PDL15 SX7 B0+ CLEAR FLAGS 00426 M01S00425.termdef +++| SA7 PDLB 00427 M01S00426.termdef +++| SA7 PDLD 00428 M01S00427.termdef +++| SA7 PDLE 00429 M01S00428.termdef +++| SA7 PDLF 00430 M01S00429.termdef +++| SA7 PDLG 00431 M01S00430.termdef +++| SA7 PDLH 00432 M01S00431.termdef +++| EQ TDF4 RETURN 00433 M01S00432.termdef +++| 00434 M01S00433.termdef +++| 00435 M01S00434.termdef +++| PDLA CON 0 SEPARATOR 00436 M01S00435.termdef +++| PDLB CON 0 LENGTH OF PARAMETERS IN CHARACTERS 00437 M01S00436.termdef +++| PDLC BSSZ 2 TEMPORARY BUFFER FOR THE MESSAGE 00438 M01S00437.termdef +++| PDLD CON 0 FLAG TO INDICATE THAT *X* WAS PROCESSED 00439 M01S00438.termdef +++| PDLE CON 0 FLAG TO INDICATE THAT *C* WAS PROCESSED 00440 M01S00439.termdef +++| PDLF CON 0 FLAG TO INDICATE THAT *TO* WAS PROCESSED 00441 M01S00440.termdef +++| PDLG CON 0 FLAG TO INDICATE THAT *Y* WAS PROCESSED 00442 M01S00441.termdef +++| PDLH CON 0 FLAG TO INDICATE *DL* OR *XL* 00443 M01S00442.termdef +++| PDLI VFD 8/70B,8/0 FIELD NUMBER AND VALUE IF NO *X* AND *Y* 00444 M01S00443.termdef +++| PDLJ VFD 8/74B,8/0 FIELD NUMBER AND FIELD VALUE IF NO *TO* 00445 M01S00444.termdef +++| PDLK VFD 8/74B,8/1 FIELD NUMBER AND FIELD VALUE IF *TO* 00446 M01S00445.termdef +++| 00447 M01S00446.termdef +++|* 8/ FIELD NUMBER, 8/ FIELD VALUE, 8/ FIELD NUMBER, 8/ 0, 00448 M01S00447.termdef +++|* 10/ , 18/ FIELD SIZE. 00449 M01S00448.termdef +++| 00450 M01S00449.termdef +++| PDLL VFD 8/70B,8/1,8/73B,8/0,10/,18/4 *X* 00451 M01S00450.termdef +++| 00452 M01S00451.termdef +++|* 8/ FIELD NUMBER, 8/ 0, 8/ FIELD NUMBER, 8/ 0. 00453 M01S00452.termdef +++| 00454 M01S00453.termdef +++| PDLM VFD 8/72B,8/0,8/71B,8/0 *C* 00455 M01S00454.termdef +++| 00456 M01S00455.termdef +++|* 8/ FIELD NUMBER, 8/ 0, 26/ , 18/ FIELD SIZE. 00457 M01S00456.termdef +++| 00458 M01S00457.termdef +++| PDLN VFD 8/105B,8/0,26/,18/2 *Y* 00459 M01S00458.termdef +++| PEB SPACE 4,20 00460 M01S00459.termdef +++|** PEB - PROCESS PARAMETER *EB* OR *EL*. 00461 M01S00460.termdef +++|* 00462 M01S00461.termdef +++|* THIS ROUTINE CONVERTS THE DISPLAY CODED VALUE(S) OF *EB* OR 00463 M01S00462.termdef +++|* *EL* INTO FIELD NUMBERS/FIELD VALUES AND MERGES THEM INTO THE 00464 M01S00463.termdef +++|* TRANSMISSION BUFFER. 00465 M01S00464.termdef +++|* 00466 M01S00465.termdef +++|* ENTRY (A1) = FWA OF *EB* OR *EL* MESSAGE. 00467 M01S00466.termdef +++|* (X1) = DISPLAY CODED VALUE(S) OF *EB* OR *EL* MESSAGE, 00468 M01S00467.termdef +++|* LEFT JUSTIFIED. 00469 M01S00468.termdef +++|* (X3) = *EB* OR *EL* ENTRY FROM TABLE *TTDC*. 00470 M01S00469.termdef +++|* 00471 M01S00470.termdef +++|* EXIT TO *TDF4*. 00472 M01S00471.termdef +++|* TO *TDF5*, IF ERROR. 00473 M01S00472.termdef +++|* 00474 M01S00473.termdef +++|* USES X - 0, 1, 2, 3, 4, 5, 6. 00475 M01S00474.termdef +++|* A - 1, 2, 6. 00476 M01S00475.termdef +++|* B - 5, 6, 7. 00477 M01S00476.termdef +++|* 00478 M01S00477.termdef +++|* CALLS CHB, MCB. 00479 M01S00478.termdef +++| 00480 M01S00479.termdef +++| 00481 M01S00480.termdef +++| PEB BSS 0 ENTRY 00482 M01S00481.termdef +++| AX3 18 00483 M01S00482.termdef +++| SB5 X3 FWA OF *EB* OR *EL* TABLE 00484 M01S00483.termdef +++| SB6 B5+PEBAL LWA OF *EB* OR *EL* TABLE 00485 M01S00484.termdef +++| SX5 B1+B1 MAXIMUM NUMBER OF PARAMETERS TO PROCESS 00486 M01S00485.termdef +++| BX6 X1 SAVE (X1) 00487 M01S00486.termdef +++| SA6 PEBD 00488 M01S00487.termdef +++| PEB1 MX0 12 00489 M01S00488.termdef +++| BX3 X0*X1 GET PARAMETER VALUE 00490 M01S00489.termdef +++| LX3 11-59 00491 M01S00490.termdef +++| PEB2 SA1 B5 00492 M01S00491.termdef +++| BX2 X0*X1 PARAMETER VALUE FROM TABLE 00493 M01S00492.termdef +++| LX2 11-59 00494 M01S00493.termdef +++| IX4 X3-X2 00495 M01S00494.termdef +++| ZR X4,PEB3 IF MATCH FOUND 00496 M01S00495.termdef +++| SB5 B5+1 00497 M01S00496.termdef +++| PL X4,PEB2 IF MORE ENTRIES TO CHECK 00498 M01S00497.termdef +++| SA1 PEBD 00499 M01S00498.termdef +++| RJ CHB CONVERT HEX DIGITS TO BINARY 00500 M01S00499.termdef +++| LX1 39-7 00501 M01S00500.termdef +++| SA2 B6+ 00502 M01S00501.termdef +++| BX1 X1+X2 MERGE FIELD VALUE WITH TABLE ENTRY 00503 M01S00502.termdef +++| PEB3 SX6 X1 GET TABLE FLAG 00504 M01S00503.termdef +++| SA2 PEBC GET CURRENT FLAG 00505 M01S00504.termdef +++| BX2 X6-X2 00506 M01S00505.termdef +++| ZR X2,TDF5 IF PARAMETER HAS ALREADY BEEN PROCESSED 00507 M01S00506.termdef +++| SA6 A2+ INDICATE THAT PARAMETER HAS BEEN PROCESSED 00508 M01S00507.termdef +++| SX5 X5-1 NUMBER OF PARAMETERS LEFT TO PROCESS 00509 M01S00508.termdef +++| LX1 59-47 FIELD NUMBER AND FIELD VALUE 00510 M01S00509.termdef +++| SB7 B1+B1 00511 M01S00510.termdef +++| RJ MCB MERGE INTO BUFFER
Line S00511 Modification History | |
---|---|
M01 (Added by) | termdef |
M02 (Updated by) | termd1 |
Seq # *Modification Id* Act ----------------------------+ 00512 M02S00511.termd1 ---| ZR X5,TDF4 IF MAXIMUM NUMBER OF PARAMETERS PROCESSED 00513 M01S00001.termd1 +++| ZR X5,PEB4 IF MAXIMUM NUMBER OF PARAMETERS PROCESSED 00514 M01S00512.termdef +++| SA2 =1R, CHECK FOR SEPARATOR 00515 M01S00513.termdef +++| SA1 PEBD 00516 M01S00514.termdef +++| LX1 5-47 00517 M01S00515.termdef +++| MX0 -6 00518 M01S00516.termdef +++| BX3 -X0*X1 00519 M01S00517.termdef +++| BX4 X2-X3
Line S00518 Modification History | |
---|---|
M01 (Added by) | termdef |
M02 (Updated by) | termd1 |
Seq # *Modification Id* Act ----------------------------+ 00520 M02S00518.termd1 ---| NZ X4,TDF4 IF NO MORE PARAMETERS 00521 M01S00002.termd1 +++| NZ X4,PEB4 IF NO MORE PARAMETERS 00522 M01S00519.termdef +++| BX6 X1 00523 M01S00520.termdef +++| SA6 A1 00524 M01S00521.termdef +++| SB5 B6-PEBAL *PEBA* OR *PEBB* 00525 M01S00522.termdef +++| EQ PEB1 PROCESS SECOND PARAMETER 00526 M01S00003.termd1 +++| 00527 M01S00004.termd1 +++| PEB4 SX6 B0+ CLEAR FLAG 00528 M01S00005.termd1 +++| SA6 PEBC 00529 M01S00006.termd1 +++| EQ TDF4 RETURN 00530 M01S00523.termdef +++| 00531 M01S00524.termdef +++| 00532 M01S00525.termdef +++|* TABLE OF *EB* FIELD NUMBERS AND FIELD VALUES. 00533 M01S00526.termdef +++| 00534 M01S00527.termdef +++|* 12/ PARAMETER VALUE, 8/ FIELD NUMBER, 8/ FIELD VALUE, 00535 M01S00528.termdef +++|* 14/ , 18/ FLAG INDICATING FIRST OR SECOND PARAMETER. 00536 M01S00529.termdef +++| 00537 M01S00530.termdef +++| PEBA VFD 12/2LCL,8/102B,8/3,14/,18/2 00538 M01S00531.termdef +++| VFD 12/2LCR,8/102B,8/1,14/,18/2 00539 M01S00532.termdef +++| VFD 12/2LEB,8/101B,8/2,14/,18/1 00540 M01S00533.termdef +++| VFD 12/2LEL,8/101B,8/1,14/,18/1 00541 M01S00534.termdef +++| VFD 12/2LLF,8/102B,8/2,14/,18/2 00542 M01S00535.termdef +++| VFD 12/2LNO,8/102B,8/0,14/,18/2 00543 M01S00536.termdef +++| CON -0 TERMINATION WORD 00544 M01S00537.termdef +++| 00545 M01S00538.termdef +++|* TABLE ENTRY FOR *EB* = 2 HEXADECIMAL DIGITS. 00546 M01S00539.termdef +++| 00547 M01S00540.termdef +++|* 12/ , 8/ FIELD NUMBER, 8/ 0, 14/ , 00548 M01S00541.termdef +++|* 18/ FLAG INDICATING FIRST OR SECOND PARAMETER. 00549 M01S00542.termdef +++| 00550 M01S00543.termdef +++| VFD 12/,8/100B,8/0,14/,18/1 00551 M01S00544.termdef +++| PEBAL EQU *-PEBA-1 NUMBER OF *EB* TABLE ENTRIES 00552 M01S00545.termdef +++| 00553 M01S00546.termdef +++|* TABLE OF *EL* FIELD NUMBERS AND FIELD VALUES. 00554 M01S00547.termdef +++| 00555 M01S00548.termdef +++|* 12/ PARAMETER VALUE, 8/ FIELD NUMBER, 8/ FIELD VALUE, 00556 M01S00549.termdef +++|* 14/ , 18/ FLAG INDICATING FIRST OR SECOND PARAMETER. 00557 M01S00550.termdef +++| 00558 M01S00551.termdef +++| PEBB VFD 12/2LCL,8/77B,8/3,14/,18/2 00559 M01S00552.termdef +++| VFD 12/2LCR,8/77B,8/1,14/,18/2 00560 M01S00553.termdef +++| VFD 12/2LEB,8/76B,8/2,14/,18/1 00561 M01S00554.termdef +++| VFD 12/2LEL,8/76B,8/1,14/,18/1 00562 M01S00555.termdef +++| VFD 12/2LLF,8/77B,8/2,14/,18/2 00563 M01S00556.termdef +++| VFD 12/2LNO,8/77B,8/0,14/,18/2 00564 M01S00557.termdef +++| CON -0 00565 M01S00558.termdef +++| 00566 M01S00559.termdef +++|* TABLE ENTRY FOR *EL* = 2 HEXADECIMAL DIGITS. 00567 M01S00560.termdef +++| 00568 M01S00561.termdef +++|* 12/ , 8/ FIELD NUMBER, 8/ 0, 14/ , 00569 M01S00562.termdef +++|* 18/ FLAG INDICATING FIRST OR SECOND PARAMETER. 00570 M01S00563.termdef +++| 00571 M01S00564.termdef +++| VFD 12/,8/75B,8/0,14/,18/1 00572 M01S00565.termdef +++| PEBBL EQU *-PEBB-1 NUMBER OF *EL* TABLE ENTRIES 00573 M01S00566.termdef +++| ERRNZ PEBAL-PEBBL *EB* AND *EL* TABLE LENGTHS NOT EQUAL 00574 M01S00567.termdef +++| 00575 M01S00568.termdef +++| PEBC CON 0 FLAG INDICATING FIRST OR SECOND PARAMETER 00576 M01S00569.termdef +++| PEBD CON 0 TEMPORARY STORAGE FOR (X1) 00577 M01S00570.termdef +++| PHB SPACE 4,20 00578 M01S00571.termdef +++|** PHB - PROCESS HEXADECIMAL TO BINARY. 00579 M01S00572.termdef +++|* 00580 M01S00573.termdef +++|* THIS ROUTINE CONVERTS THE DISPLAY CODED HEXADECIMAL VALUE 00581 M01S00574.termdef +++|* OF PARAMETER *B1*, *B2*, *BS*, *CN*, OR *CT* INTO A FIELD 00582 M01S00575.termdef +++|* VALUE AND MERGES IT INTO THE TRANSMISSION BUFFER. 00583 M01S00576.termdef +++|* 00584 M01S00577.termdef +++|* ENTRY (X1) = TWO DISPLAY CODED HEXADECIMAL CHARACTERS, 00585 M01S00578.termdef +++|* LEFT JUSTIFIED. 00586 M01S00579.termdef +++|* LAST 8-BIT VALUE MERGED INTO TRANSMISSION BUFFER = 00587 M01S00580.termdef +++|* FIELD NUMBER FROM *B1*, *B2*, *BS*, *CN*, OR *CT* 00588 M01S00581.termdef +++|* ENTRY IN TABLE *TTDC*. 00589 M01S00582.termdef +++|* 00590 M01S00583.termdef +++|* EXIT TO *TDF4*. 00591 M01S00584.termdef +++|* 00592 M01S00585.termdef +++|* USES X - 1. 00593 M01S00586.termdef +++|* B - 7. 00594 M01S00587.termdef +++|* 00595 M01S00588.termdef +++|* CALLS CHB, MCB. 00596 M01S00589.termdef +++| 00597 M01S00590.termdef +++| 00598 M01S00591.termdef +++| PHB BSS 0 ENTRY 00599 M01S00592.termdef +++| RJ CHB CONVERT HEX CHARACTERS TO BINARY 00600 M01S00593.termdef +++| SB7 B1 00601 M01S00594.termdef +++| LX1 59-7 00602 M01S00595.termdef +++| RJ MCB MERGE FIELD VALUE INTO BUFFER 00603 M01S00596.termdef +++| EQ TDF4 RETURN 00604 M01S00597.termdef +++| PIN SPACE 4,20 00605 M01S00598.termdef +++|** PIN - PROCESS PARAMETER *IN*. 00606 M01S00599.termdef +++|* 00607 M01S00600.termdef +++|* THIS ROUTINE CONVERTS THE DISPLAY CODED VALUE OF *IN* INTO 00608 M01S00601.termdef +++|* ITS CORRESPONDING FIELD NUMBERS/FIELD VALUES AND MERGES 00609 M01S00602.termdef +++|* THEM INTO THE TRANSMISSION BUFFER. 00610 M01S00603.termdef +++|* 00611 M01S00604.termdef +++|* ENTRY (X1) = DISPLAY CODED VALUE OF *IN*, LEFT JUSTIFIED. 00612 M01S00605.termdef +++|* LAST 8-BIT VALUE MERGED INTO TRANSMISSION BUFFER = 00613 M01S00606.termdef +++|* FIELD NUMBER FROM *IN* ENTRY IN TABLE *TTDC*. 00614 M01S00607.termdef +++|* 00615 M01S00608.termdef +++|* EXIT TO *TDF4*. 00616 M01S00609.termdef +++|* TO *TDF5*, IF ERROR. 00617 M01S00610.termdef +++|* 00618 M01S00611.termdef +++|* USES X - 0, 1, 3, 4. 00619 M01S00612.termdef +++|* A - 1. 00620 M01S00613.termdef +++|* B - 2, 7. 00621 M01S00614.termdef +++|* 00622 M01S00615.termdef +++|* CALLS MCB. 00623 M01S00616.termdef +++| 00624 M01S00617.termdef +++| 00625 M01S00618.termdef +++| PIN BSS 0 ENTRY 00626 M01S00619.termdef +++| MX0 12 00627 M01S00620.termdef +++| BX3 X0*X1 00628 M01S00621.termdef +++| SB2 PINA 00629 M01S00622.termdef +++| LX3 11-59 00630 M01S00623.termdef +++| PIN1 SA1 B2 00631 M01S00624.termdef +++| BX4 X0*X1 00632 M01S00625.termdef +++| LX4 11-59 00633 M01S00626.termdef +++| IX4 X3-X4 00634 M01S00627.termdef +++| ZR X4,PIN2 IF *BK*, *KB*, *PT*, *XK*, OR *XP* 00635 M01S00628.termdef +++| SB2 B2+1 00636 M01S00629.termdef +++| PL X4,PIN1 IF MORE ENTRIES TO CHECK 00637 M01S00630.termdef +++| MX0 6 00638 M01S00631.termdef +++| LX3 59-11 00639 M01S00632.termdef +++| BX3 X0*X3 00640 M01S00633.termdef +++| SA1 PINB 00641 M01S00634.termdef +++| BX4 X0*X1 00642 M01S00635.termdef +++| BX4 X3-X4 00643 M01S00636.termdef +++| NZ X4,TDF5 IF NOT *X* 00644 M01S00637.termdef +++| PIN2 SB7 X1 FIELD SIZE 00645 M01S00638.termdef +++| LX1 59-47 FIELD NUMBERS/FIELD VALUES 00646 M01S00639.termdef +++| RJ MCB MERGE INTO BUFFER 00647 M01S00640.termdef +++| EQ TDF4 RETURN 00648 M01S00641.termdef +++| 00649 M01S00642.termdef +++| 00650 M01S00643.termdef +++|* 12/ FIELD NAME, 8/ FIELD VALUE, 8/ FIELD NUMBER, 00651 M01S00644.termdef +++|* 8/ FIELD VALUE, 6/, 18/ FIELD SIZE. 00652 M01S00645.termdef +++| 00653 M01S00646.termdef +++| PINA VFD 12/2LBK,8/0,8/65B,8/2,6/,18/3 *BK* 00654 M01S00647.termdef +++| VFD 12/2LKB,8/0,8/65B,8/0,6/,18/3 *KB* 00655 M01S00648.termdef +++| VFD 12/2LPT,8/0,8/65B,8/1,6/,18/3 *PT* 00656 M01S00649.termdef +++| VFD 12/2LXK,8/1,8/65B,8/0,6/,18/3 *XK* 00657 M01S00650.termdef +++| VFD 12/2LXP,8/1,8/65B,8/1,6/,18/3 *XP* 00658 M01S00651.termdef +++| CON -0 TERMINATION WORD 00659 M01S00652.termdef +++| 00660 M01S00653.termdef +++|* 6/ FIELD NAME, 6/, 8/ FIELD VALUE, 22/, 18/ FIELD SIZE. 00661 M01S00654.termdef +++| 00662 M01S00655.termdef +++| PINB VFD 6/1LX,6/,8/1,22/,18/1 *X* 00663 M01S00656.termdef +++| PPO SPACE 4,20 00664 M01S00657.termdef +++|** PPO - PROCESS PARAMETER *OP*. 00665 M01S00658.termdef +++|* 00666 M01S00659.termdef +++|* THIS ROUTINE CONVERTS THE DISPLAY CODED VALUE OF *OP* INTO 00667 M01S00660.termdef +++|* ITS CORRESPONDING FIELD VALUE AND MERGES IT INTO THE 00668 M01S00661.termdef +++|* TRANSMISSION BUFFER. 00669 M01S00662.termdef +++|* 00670 M01S00663.termdef +++|* ENTRY (X1) = DISPLAY CODED VALUE OF *OP*, LEFT JUSTIFIED. 00671 M01S00664.termdef +++|* LAST 8-BIT VALUE MERGED INTO TRANSMISSION BUFFER = 00672 M01S00665.termdef +++|* FIELD NUMBER FROM *OP* ENTRY IN TABLE *TTDC*. 00673 M01S00666.termdef +++|* 00674 M01S00667.termdef +++|* EXIT TO *TDF4*. 00675 M01S00668.termdef +++|* TO *TDF5*, IF ERROR. 00676 M01S00669.termdef +++|* 00677 M01S00670.termdef +++|* USES X - 0, 1, 2, 3, 4. 00678 M01S00671.termdef +++|* A - 2. 00679 M01S00672.termdef +++|* B - 7. 00680 M01S00673.termdef +++|* 00681 M01S00674.termdef +++|* CALLS MCB. 00682 M01S00675.termdef +++| 00683 M01S00676.termdef +++| 00684 M01S00677.termdef +++| PPO BSS 0 ENTRY 00685 M01S00678.termdef +++| SA2 =2LPT 00686 M01S00679.termdef +++| SB7 B1 00687 M01S00680.termdef +++| MX0 12 00688 M01S00681.termdef +++| BX3 X0*X1 00689 M01S00682.termdef +++| BX4 X3-X2 00690 M01S00683.termdef +++| SX1 B1+B1 00691 M01S00684.termdef +++| LX1 59-7 SET FIELD VALUE TO 2 00692 M01S00685.termdef +++| ZR X4,PPO1 IF CHARACTERS = *PT* 00693 M01S00686.termdef +++| SA2 =2LPR 00694 M01S00687.termdef +++| BX4 X3-X2 00695 M01S00688.termdef +++| SX1 1 00696 M01S00689.termdef +++| LX1 59-7 SET FIELD VALUE TO 1 00697 M01S00690.termdef +++| ZR X4,PPO1 IF CHARACTERS = *PR* 00698 M01S00691.termdef +++| SA2 =2LDI 00699 M01S00692.termdef +++| BX1 X3-X2 SET FIELD VALUE TO 0 00700 M01S00693.termdef +++| NZ X1,TDF5 IF CHARACTERS NOT EQUAL TO *DI* 00701 M01S00694.termdef +++| PPO1 RJ MCB MERGE FIELD VALUE INTO BUFFER 00702 M01S00695.termdef +++| EQ TDF4 RETURN 00703 M01S00696.termdef +++| PPA SPACE 4,20 00704 M01S00697.termdef +++|** PPA - PROCESS PARAMETER *PA*. 00705 M01S00698.termdef +++|* 00706 M01S00699.termdef +++|* THIS ROUTINE CONVERTS THE DISPLAY CODED VALUE OF *PA* INTO 00707 M01S00700.termdef +++|* ITS CORRESPONDING FIELD VALUE AND MERGES IT INTO THE 00708 M01S00701.termdef +++|* TRANSMISSION BUFFER. 00709 M01S00702.termdef +++|* 00710 M01S00703.termdef +++|* ENTRY (X1) = DISPLAY CODED VALUE OF *PA*, LEFT JUSTIFIED. 00711 M01S00704.termdef +++|* LAST 8-BIT VALUE MERGED INTO TRANSMISSION BUFFER = 00712 M01S00705.termdef +++|* FIELD NUMBER FROM *PA* ENTRY IN TABLE *TTDC*. 00713 M01S00706.termdef +++|* 00714 M01S00707.termdef +++|* EXIT TO *TDF4*. 00715 M01S00708.termdef +++|* TO *TDF5*, IF ERROR. 00716 M01S00709.termdef +++|* 00717 M01S00710.termdef +++|* USES X - 0, 1, 2, 3, 4. 00718 M01S00711.termdef +++|* A - 2. 00719 M01S00712.termdef +++|* B - 7. 00720 M01S00713.termdef +++|* 00721 M01S00714.termdef +++|* CALLS MCB. 00722 M01S00715.termdef +++| 00723 M01S00716.termdef +++| 00724 M01S00717.termdef +++| PPA BSS 0 ENTRY 00725 M01S00718.termdef +++| SA2 =1LN 00726 M01S00719.termdef +++| MX0 6 00727 M01S00720.termdef +++| BX3 X0*X1 00728 M01S00721.termdef +++| BX4 X3-X2 00729 M01S00722.termdef +++| SX1 3 00730 M01S00723.termdef +++| LX1 59-7 SET FIELD VALUE TO 3 00731 M01S00724.termdef +++| SB7 1 00732 M01S00725.termdef +++| ZR X4,PPA1 IF CHARACTER = *N* 00733 M01S00726.termdef +++| SA2 =1LE 00734 M01S00727.termdef +++| BX4 X3-X2 00735 M01S00728.termdef +++| SX1 B1+B1 00736 M01S00729.termdef +++| LX1 59-7 SET FIELD VALUE TO 2 00737 M01S00730.termdef +++| ZR X4,PPA1 IF CHARACTER = *E* 00738 M01S00731.termdef +++| SX1 B1 00739 M01S00732.termdef +++| SA2 =1LO 00740 M01S00733.termdef +++| BX4 X3-X2 00741 M01S00734.termdef +++| LX1 59-7 SET FIELD VALUE TO 1 00742 M01S00735.termdef +++| ZR X4,PPA1 IF CHARACTER = *O* 00743 M01S00736.termdef +++| SA2 =1LZ 00744 M01S00737.termdef +++| BX1 X3-X2 SET FIELD VALUE TO 0 00745 M01S00738.termdef +++| NZ X1,TDF5 IF CHARACTER NOT EQUAL TO *Z* 00746 M01S00739.termdef +++| PPA1 RJ MCB MERGE FIELD VALUE INTO BUFFER 00747 M01S00740.termdef +++| EQ TDF4 RETURN 00748 M01S00741.termdef +++| PYN SPACE 4,20 00749 M01S00742.termdef +++|** PYN - PROCESS PARAMETER *BR*, *EP*, *FA*, *IC*, *OC*, *PG*, 00750 M01S00743.termdef +++|* OR *SE*. 00751 M01S00744.termdef +++|* 00752 M01S00745.termdef +++|* THIS ROUTINE CONVERTS THE DISPLAY CODED VALUE OF *BR*, *EP*, 00753 M01S00746.termdef +++|* *FA*, *IC*, *OC*, *PG* OR *SE* INTO A FIELD VALUE AND MERGES 00754 M01S00747.termdef +++|* IT INTO THE TRANSMISSION BUFFER. 00755 M01S00748.termdef +++|* 00756 M01S00749.termdef +++|* ENTRY (X1) = DISPLAY CODED VALUE OF *BR*, *EP*, *FA*, *IC*, 00757 M01S00750.termdef +++|* *OP*, *PG*, OR *SE*, LEFT JUSTIFIED. 00758 M01S00751.termdef +++|* LAST 8-BIT VALUE MERGED INTO TRANSMISSION BUFFER = 00759 M01S00752.termdef +++|* FIELD NUMBER FROM *BR*, *EP*, *FA*, *IC*, *OP*, *PG*, 00760 M01S00753.termdef +++|* OR *SE* ENTRY IN TABLE *TTDC*. 00761 M01S00754.termdef +++|* 00762 M01S00755.termdef +++|* EXIT TO *TDF4*. 00763 M01S00756.termdef +++|* TO *TDF5*, IF ERROR. 00764 M01S00757.termdef +++|* 00765 M01S00758.termdef +++|* USES X - 0, 1, 2, 3, 4. 00766 M01S00759.termdef +++|* A - 2. 00767 M01S00760.termdef +++|* B - 7. 00768 M01S00761.termdef +++|* 00769 M01S00762.termdef +++|* CALLS MCB. 00770 M01S00763.termdef +++| 00771 M01S00764.termdef +++| 00772 M01S00765.termdef +++| PYN BSS 0 ENTRY 00773 M01S00766.termdef +++| SA2 =1LY 00774 M01S00767.termdef +++| SB7 B1 00775 M01S00768.termdef +++| MX0 6 00776 M01S00769.termdef +++| BX3 X0*X1 00777 M01S00770.termdef +++| BX4 X3-X2 00778 M01S00771.termdef +++| SX1 B1 00779 M01S00772.termdef +++| LX1 59-7 SET FIELD VALUE TO 1 00780 M01S00773.termdef +++| ZR X4,PYN1 IF CHARACTER = *Y* 00781 M01S00774.termdef +++| SA2 =1LN 00782 M01S00775.termdef +++| BX1 X3-X2 SET FIELD VALUE TO 0 00783 M01S00776.termdef +++| NZ X1,TDF5 IF CHARACTER NOT EQUAL TO *N* 00784 M01S00777.termdef +++| PYN1 RJ MCB MERGE FIELD VALUE INTO BUFFER 00785 M01S00778.termdef +++| EQ TDF4 RETURN 00786 M01S00779.termdef +++| FKA SPACE 4,15 00787 M01S00780.termdef +++|** FKA - FIND KEYWORD ARGUMENT. 00788 M01S00781.termdef +++|* 00789 M01S00782.termdef +++|* THIS ROUTINE FINDS A KEYWORD PARAMETER FROM TABLE *TTDC* AND 00790 M01S00783.termdef +++|* RETURNS THE FIELD NUMBER FOR THE KEYWORD AND ITS PROCESSING 00791 M01S00784.termdef +++|* ROUTINE. 00792 M01S00785.termdef +++|* 00793 M01S00786.termdef +++|* ENTRY (X0) = MASK FOR KEYWORD IN TABLE *TTDC*. 00794 M01S00787.termdef +++|* (X1) = KEYWORD TO BE FOUND, LEFT JUSTIFIED. 00795 M01S00788.termdef +++|* 00796 M01S00789.termdef +++|* EXIT (FKAA) = *TTDC* TABLE ENTRY IF FOUND. 00797 M01S00790.termdef +++|* (X1) = FIELD NUMBER, LEFT JUSTIFIED. 00798 M01S00791.termdef +++|* = 0, IF KEYWORD IS *EB* OR *EL*. 00799 M01S00792.termdef +++|* (X6) = NEGATIVE, IF KEYWORD NOT FOUND. 00800 M01S00793.termdef +++|* 00801 M01S00794.termdef +++|* USES X - 1, 3, 4, 5, 6, 7. 00802 M01S00795.termdef +++|* A - 3, 7. 00803 M01S00796.termdef +++|* B - 2. 00804 M01S00797.termdef +++| 00805 M01S00798.termdef +++| 00806 M01S00799.termdef +++| FKA2 BX7 X3 00807 M01S00800.termdef +++| MX4 8 00808 M01S00801.termdef +++| LX3 59-47 00809 M01S00802.termdef +++| BX1 X4*X3 FIELD NUMBER IF NOT *EB* OR *EL* 00810 M01S00803.termdef +++| SA7 FKAA *TTDC* TABLE ENTRY 00811 M01S00804.termdef +++| 00812 M01S00805.termdef +++| FKA SUBR ENTRY/EXIT 00813 M01S00806.termdef +++| SB2 TTDC 00814 M01S00807.termdef +++| LX1 11-59 00815 M01S00808.termdef +++| FKA1 SA3 B2+ CURRENT TABLE ENTRY 00816 M01S00809.termdef +++| BX5 X0*X3 00817 M01S00810.termdef +++| LX5 11-59 00818 M01S00811.termdef +++| IX6 X1-X5 00819 M01S00812.termdef +++| SB2 B2+B1 00820 M01S00813.termdef +++| ZR X6,FKA2 IF KEYWORD FOUND 00821 M01S00814.termdef +++| PL X6,FKA1 IF TABLE NOT EXHAUSTED 00822 M01S00815.termdef +++| EQ FKAX RETURN - ARGUMENT NOT VALID KEYWORD 00823 M01S00816.termdef +++| 00824 M01S00817.termdef +++| 00825 M01S00818.termdef +++| FKAA CON 0 TABLE ENTRY IF FOUND 00826 M01S00819.termdef +++| 00827 M01S00820.termdef +++| TTDC SPACE 4,10 00828 M01S00821.termdef +++|** TTDC - TABLE OF KEYWORDS. 00829 M01S00822.termdef +++|* 00830 M01S00823.termdef +++|* TABLE ENTRIES ARE CONSTRUCTED FROM THE FOLLOWING FIELDS. 00831 M01S00824.termdef +++|* DIFFERENT PORTIONS OF THE TABLE USE DIFFERENT FIELDS 00832 M01S00825.termdef +++|* DEPENDING ON THE PROCESSING ROUTINE. 00833 M01S00826.termdef +++|* 00834 M01S00827.termdef +++|* FN = FIELD NUMBER. 00835 M01S00828.termdef +++|* FV = FIELD VALUE. 00836 M01S00829.termdef +++|* FWA = FWA OF *EB* OR *EL* FIELD NUMBER AND FIELD VALUE TABLE. 00837 M01S00830.termdef +++|* KW = KEYWORD. 00838 M01S00831.termdef +++|* R = ROUTINE. 00839 M01S00832.termdef +++| 00840 M01S00833.termdef +++|* 12/ KW, 8/ FN, 22/ ,18/ R. 00841 M01S00834.termdef +++| 00842 M01S00835.termdef +++| 00843 M01S00836.termdef +++|TTDC BSS 0 TABLE OF TERMINAL DEFINITION KEYWORDS 00844 M01S00837.termdef +++| VFD 12/2LBR,8/63B,22/,18/PYN 00845 M01S00838.termdef +++| VFD 12/2LBS,8/47B,22/,18/PHB 00846 M01S00839.termdef +++| VFD 12/2LB1,8/52B,22/,18/PHB 00847 M01S00840.termdef +++| VFD 12/2LB2,8/53B,22/,18/PHB 00848 M01S00841.termdef +++| VFD 12/2LCI,8/54B,22/,18/PDB 00849 M01S00842.termdef +++| VFD 12/2LCN,8/46B,22/,18/PHB 00850 M01S00843.termdef +++| VFD 12/2LCT,8/50B,22/,18/PHB 00851 M01S00844.termdef +++| 00852 M01S00845.termdef +++|* 12/ KW, 8/ FN, 4/ , 18/ FV, 18/ R. 00853 M01S00846.termdef +++| 00854 M01S00847.termdef +++| VFD 12/2LDL,8/106B,4/,18/0,18/PDL 00855 M01S00848.termdef +++| 00856 M01S00849.termdef +++|* 12/ KW, 8/ 0, 4/ , 18/ FWA, 18/ R. 00857 M01S00850.termdef +++| 00858 M01S00851.termdef +++| VFD 12/2LEB,8/0,4/,18/PEBA,18/PEB 00859 M01S00852.termdef +++| VFD 12/2LEL,8/0,4/,18/PEBB,18/PEB 00860 M01S00853.termdef +++| 00861 M01S00854.termdef +++|* 12/ KW, 8/ FN, 22/ ,18/ R. 00862 M01S00855.termdef +++| 00863 M01S00856.termdef +++| VFD 12/2LEP,8/61B,22/,18/PYN 00864 M01S00857.termdef +++| VFD 12/2LFA,8/67B,22/,18/PYN 00865 M01S00858.termdef +++| VFD 12/2LIC,8/103B,22/,18/PYN 00866 M01S00859.termdef +++| VFD 12/2LIN,8/64B,22/,18/PIN 00867 M01S00860.termdef +++| VFD 12/2LLI,8/55B,22/,18/PDB 00868 M01S00861.termdef +++| VFD 12/2LOC,8/104B,22/,18/PYN 00869 M01S00862.termdef +++| VFD 12/2LOP,8/66B,22/,18/PPO 00870 M01S00863.termdef +++| VFD 12/2LPA,8/62B,22/,18/PPA 00871 M01S00864.termdef +++| VFD 12/2LPG,8/45B,22/,18/PYN 00872 M01S00865.termdef +++| VFD 12/2LPL,8/44B,22/,18/PDB 00873 M01S00866.termdef +++| VFD 12/2LPW,8/43B,22/,18/PDB 00874 M01S00867.termdef +++| VFD 12/2LSE,8/60B,22/,18/PYN 00875 M01S00868.termdef +++| VFD 12/2LTC,8/42B,22/,18/PDB 00876 M01S00869.termdef +++| 00877 M01S00870.termdef +++|* 12/ KW, 8/ FN, 4/ , 18/ FV, 18/ R. 00878 M01S00871.termdef +++| 00879 M01S00872.termdef +++| VFD 12/2LXL,8/106B,4/,18/1,18/PDL 00880 M01S00873.termdef +++| CON -0 TERMINATION WORD 00881 M01S00874.termdef +++| MCB SPACE 4,15 00882 M01S00875.termdef +++|** MCB - MERGE FIELD NUMBERS/FIELD VALUES INTO BUFFER. 00883 M01S00876.termdef +++|* 00884 M01S00877.termdef +++|* THIS ROUTINE ACCEPTS LEFT JUSTIFIED 8-BIT BINARY VALUES AND 00885 M01S00878.termdef +++|* MERGES THEM INTO THE BUFFER USED TO MAKE THE *CTI* REQUEST 00886 M01S00879.termdef +++|* FOR SUBSEQUENT TRANSMISSION TO THE NETWORK SUPERVISOR. THE 00887 M01S00880.termdef +++|* RESULTING BUFFER REQUIRES THAT EACH 8-BIT FIELD NUMBER BE 00888 M01S00881.termdef +++|* FOLLOWED BY A CORRESPONDING 8-BIT FIELD VALUE. 00889 M01S00882.termdef +++|* 00890 M01S00883.termdef +++|* ENTRY (X1) = ONE OR MORE LEFT JUSTIFIED 8-BIT BINARY VALUES 00891 M01S00884.termdef +++|* THAT REPRESENT FIELD NUMBERS/FIELD VALUES. 00892 M01S00885.termdef +++|* (B7) = NUMBER OF 8-BIT BINARY VALUES IN (X1). 00893 M01S00886.termdef +++|* 00894 M01S00887.termdef +++|* EXIT (MCBA) UPDATED BY (X1). 00895 M01S00888.termdef +++|* 00896 M01S00889.termdef +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 00897 M01S00890.termdef +++|* A - 2, 3, 4, 6, 7. 00898 M01S00891.termdef +++|* B - 2, 3, 4, 7. 00899 M01S00892.termdef +++| 00900 M01S00893.termdef +++| 00901 M01S00894.termdef +++| MCB4 SA6 A3+ RESTORE FINISHED WORD TO BUFFER 00902 M01S00895.termdef +++| SX7 B2 00903 M01S00896.termdef +++| SX6 B3 00904 M01S00897.termdef +++| SA7 MCBB SET NEW WORD COUNT 00905 M01S00898.termdef +++| SA6 MCBC SET NEW FIELD POINTER 00906 M01S00899.termdef +++| 00907 M01S00900.termdef +++| MCB SUBR ENTRY/EXIT 00908 M01S00901.termdef +++| SA2 MCBB BUFFER WORD POINTER 00909 M01S00902.termdef +++| SA4 MCBE UPDATE FIELD NUMBER/FIELD VALUE COUNT 00910 M01S00903.termdef +++| MX0 8 00911 M01S00904.termdef +++| SX7 B7+X4 00912 M01S00905.termdef +++| SA3 MCBC FIELD POINTER 00913 M01S00906.termdef +++| SB4 -4 (B4) = BIT POSITION INDICATING OVERLAP 00914 M01S00907.termdef +++| SA7 A4 00915 M01S00908.termdef +++| SB2 X2 00916 M01S00909.termdef +++| SB3 X3 00917 M01S00910.termdef +++| SA3 MCBA+B2 CURRENT UNFINISHED WORD IN BUFFER 00918 M01S00911.termdef +++| BX6 X3 00919 M01S00912.termdef +++| MCB1 SX4 377B 00920 M01S00913.termdef +++| SB3 B3-8 00921 M01S00914.termdef +++| SB7 B7-B1 00922 M01S00915.termdef +++| BX2 X0*X1 EXTRACT 8-BIT BINARY VALUE 00923 M01S00916.termdef +++| LX1 8 00924 M01S00917.termdef +++| LX2 8 00925 M01S00918.termdef +++| EQ B3,B4,MCB3 IF VALUE MUST BE DIVIDED 00926 M01S00919.termdef +++| LX4 B3 00927 M01S00920.termdef +++| LX2 B3 00928 M01S00921.termdef +++| BX6 -X4*X6 00929 M01S00922.termdef +++| BX6 X2+X6 MERGE 8-BIT BINARY VALUE 00930 M01S00923.termdef +++| ZR B3,MCB2 IF LAST VALUE TO BE MERGED 00931 M01S00924.termdef +++| GT B7,MCB1 IF VALUES YET TO BE MERGED 00932 M01S00925.termdef +++| EQ MCB4 PROCESSING COMPLETE 00933 M01S00926.termdef +++| 00934 M01S00927.termdef +++| MCB2 SB3 60 00935 M01S00928.termdef +++| SB2 B2+1 00936 M01S00929.termdef +++| SA6 A3 00937 M01S00930.termdef +++| SA3 A3+1 PRESET (A3) 00938 M01S00931.termdef +++| BX6 X6-X6 00939 M01S00932.termdef +++| GT B7,MCB1 IF VALUES YET TO BE MERGED 00940 M01S00933.termdef +++| EQ MCB4 STAGING REGISTER EMPTY 00941 M01S00934.termdef +++| 00942 M01S00935.termdef +++| MCB3 MX0 -4 RESTORE COMPLETED WORD TO BUFFER 00943 M01S00936.termdef +++| BX3 X2 00944 M01S00937.termdef +++| AX3 4 00945 M01S00938.termdef +++| BX6 X0*X6 00946 M01S00939.termdef +++| BX3 -X0*X3 00947 M01S00940.termdef +++| BX6 X3+X6 MERGE HALF OF VALUE 00948 M01S00941.termdef +++| SA6 A3 00949 M01S00942.termdef +++| SA3 A3+B1 00950 M01S00943.termdef +++| BX6 X6-X6 00951 M01S00944.termdef +++| MX0 4 POSITION REMAINING HALF OF VALUE 00952 M01S00945.termdef +++| SA6 A3 CLEAR NEXT WORD IN BUFFER 00953 M01S00946.termdef +++| LX2 59-3 00954 M01S00947.termdef +++| BX6 X0*X2 00955 M01S00948.termdef +++| SB3 56 00956 M01S00949.termdef +++| MX0 8 RESET HEX MASK 00957 M01S00950.termdef +++| SB2 B2+1 INCREMENT WORD COUNT 00958 M01S00951.termdef +++| GT B7,MCB1 IF VALUES YET TO BE MERGED 00959 M01S00952.termdef +++| EQ MCB4 PROCESSING COMPLETE 00960 M01S00953.termdef +++| 00961 M01S00954.termdef +++| 00962 M01S00955.termdef +++| MCBA BSS 20 SUPERVISORY MESSAGE BUFFER 00963 M01S00956.termdef +++| MCBB DATA 2 WORD POINTER INTO *MCBA* 00964 M01S00957.termdef +++| MCBC DATA 44 POINTER TO BEGINNING OF 8-BIT FIELDS. 00965 M01S00958.termdef +++| MCBD VFD 8/PFTC,1/0,1/0,6/SFDM,44/0 00966 M01S00959.termdef +++| MCBE CON 2 FIELD NUMBER/FIELD VALUE COUNT OF *MCBA* 00967 M01S00960.termdef +++| SPACE 4,10 00968 M01S00961.termdef +++| SPACE 4,10 00969 M01S00962.termdef +++|* COMMON DECKS. 00970 M01S00963.termdef +++| 00971 M01S00964.termdef +++|*CALL COMCCDD 00972 M01S00965.termdef +++|*CALL COMKZFN 00973 M01S00966.termdef +++|*CALL COMCDXB 00974 M01S00967.termdef +++|*CALL COMCPOP 00975 M01S00968.termdef +++|*CALL COMCUSB 00976 M01S00969.termdef +++|*CALL COMCZTB 00977 M01S00970.termdef +++| SPACE 4,10 00978 M01S00971.termdef +++| END
cdc/nos2.source/opl.opl871/deck/termdef.txt · Last modified: by 127.0.0.1