User Tools

Site Tools


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