User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:tafrec.002

Deck TAFREC Part 002

13 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
03061  M01S00058.ns22000 +++|          SETPFP PFPA        SET PERMANENT FILE PARAMETERS
03062  M01S00059.ns22000 +++|          ATTACH N           ATTACH NETWORK FILE
03063  M01S02683.tafrec  +++|          SA1    N
03064  M01S02684.tafrec  +++|          MX2    8
03065  M01S02685.tafrec  +++|          LX1    59-17
03066  M01S02686.tafrec  +++|          BX2    X2*X1
03067  M01S02687.tafrec  +++|          SA1    ANFF        GET NETWORK FILE NAME
03068  M01S02688.tafrec  +++|          ZR     X2,ANFX     IF FILE AVAILABLE
Line S02689 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03069  M02S02689.ns22000 ---| ANF4     SB2    1RX
03070  M01S00060.ns22000 +++|          SB2    1RX
03071  M01S02690.tafrec  +++|          SB5    ANFE        * NETWORK FILE NOT FOUND.*
03072  M01S02691.tafrec  +++|          RJ     SNM         SET NAME IN MESSAGE
03073  M01S02692.tafrec  +++|          EQ     ERR         PROCESS ERROR
03074  M01S02693.tafrec  +++|
03075  M01S02694.tafrec  +++| ANFA     VFD    42/0LNCTF,18/0
03076  M01S02695.tafrec  +++| ANFD     CON    0           MACHINE ID
03077  M01S02696.tafrec  +++| ANFE     DATA   C* NETWORK FILE NOT FOUND - XXXXXXX.*
03078  M01S02697.tafrec  +++| ANFF     BSS    1           NETWORK FILE BEING PROCESSED
03079  M01S02698.tafrec  +++| ANFG     BSS    1           FAMILY NAME OF CURRENT NETWORK FILE
03080  M01S02699.tafrec  +++| RKD      SPACE  4,15
03081  M01S02700.tafrec  +++|**        RKD - RESTART *K-DISPLAY*.
03082  M01S02701.tafrec  +++|*
03083  M01S02702.tafrec  +++|*         RECOVER PARAMETERS ENTERED FROM THE *K-DISPLAY* AT
03084  M01S02703.tafrec  +++|*         *TAF* INITIALIZATION AND STORE THEM IN THE *K-DISPLAY*
03085  M01S02704.tafrec  +++|*         BUFFER AND REPORT FILE BUFFER.
03086  M01S02705.tafrec  +++|*
03087  M01S02706.tafrec  +++|*         ENTRY  LOW CM POINTERS AVAILABLE.
03088  M01S02707.tafrec  +++|*
03089  M01S02708.tafrec  +++|*         USES   X - ALL.
03090  M01S02709.tafrec  +++|*                A - 1, 6, 7.
03091  M01S02710.tafrec  +++|*                B - 2.
03092  M01S02711.tafrec  +++|*
03093  M01S02712.tafrec  +++|*         CALLS  CDD, COD, SFN.
03094  M01S02713.tafrec  +++|
03095  M01S02714.tafrec  +++|
03096  M01S02715.tafrec  +++| RKD      SUBR               ENTRY/EXIT
03097  M01S02716.tafrec  +++|          SA1    VNSCP       SUB CONTROL POINTS
03098  M01S02717.tafrec  +++|          LX1    -24
03099  M01S02718.tafrec  +++|          RJ     CDD         CONVERT TO DISPLAY
03100  M01S02719.tafrec  +++|          MX0    18
03101  M01S02720.tafrec  +++|          LX4    -18
03102  M01S02721.tafrec  +++|          SA1    RKDA
03103  M01S02722.tafrec  +++|          BX6    -X0*X4
03104  M01S02723.tafrec  +++|          BX6    X1+X6
03105  M01S02724.tafrec  +++|          SA6    KSCP+B1
03106  M01S02725.tafrec  +++|          SA6    DIS1+B1
03107  M01S02726.tafrec  +++|          SA1    VNCMB       COMMUNICATION BLOCKS
03108  M01S02727.tafrec  +++|          LX1    -24
03109  M01S02728.tafrec  +++|          RJ     CDD
03110  M01S02729.tafrec  +++|          LX4    -18
03111  M01S02730.tafrec  +++|          BX6    -X0*X4
03112  M01S02731.tafrec  +++|          SA1    RKDA
03113  M01S02732.tafrec  +++|          BX6    X1+X6
03114  M01S02733.tafrec  +++|          SA6    KCMB+B1
03115  M01S02734.tafrec  +++|          SA6    DIS2+B1
03116  M01S02735.tafrec  +++|          SA1    VREC        USER RECOVERY
03117  M01S02736.tafrec  +++|          LX1    -24
03118  M01S02737.tafrec  +++|          SA1    RKDB+X1
03119  M01S02738.tafrec  +++|          BX6    X1
03120  M01S02739.tafrec  +++|          SA6    KREC+B1
03121  M01S02740.tafrec  +++|          SA6    DIS4+B1
03122  M01S02741.tafrec  +++|          SA1    VMFL        MAXIMUM FL
03123  M01S02742.tafrec  +++|          RJ     COD         CONVERT TO OCTAL DISPLAY
03124  M01S02743.tafrec  +++|          MX3    -6
03125  M01S02744.tafrec  +++|          SB2    60
03126  M01S02745.tafrec  +++|          SX2    1R
03127  M01S02746.tafrec  +++|          SX1    1RB         ADD -B- TO NUMBER
03128  M01S02747.tafrec  +++| RKD1     LX4    6
03129  M01S02748.tafrec  +++|          SB2    B2-6
03130  M01S02749.tafrec  +++|          BX5    -X3*X4
03131  M01S02750.tafrec  +++|          IX5    X5-X2
03132  M01S02751.tafrec  +++|          NZ     X5,RKD1     IF NOT BLANK
03133  M01S02752.tafrec  +++|          BX4    X3*X4
03134  M01S02753.tafrec  +++|          BX4    X4+X1       MERGE IN -B-
03135  M01S02754.tafrec  +++|          LX4    B2          REPOSITION
03136  M01S02755.tafrec  +++|          LX4    -18
03137  M01S02756.tafrec  +++|          BX6    -X0*X4
03138  M01S02757.tafrec  +++|          SA1    RKDA
03139  M01S02758.tafrec  +++|          BX6    X1+X6
03140  M01S02759.tafrec  +++|          SA6    KMFL+B1
03141  M01S02760.tafrec  +++|          SA6    DIS5+B1
Line S02761 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03142  M02S02761.v23l617 ---|          SA1    VECS        MAXIMUM ECS
03143  M01S00035.v23l617 +++|          SA1    VECS        MAXIMUM EXTENDED MEMORY
03144  M01S02762.tafrec  +++|          LX1    -9
03145  M01S02763.tafrec  +++|          RJ     COD         CONVERT TO OCTAL DISPLAY
03146  M01S02764.tafrec  +++|          MX3    -6
03147  M01S02765.tafrec  +++|          SB2    60
03148  M01S02766.tafrec  +++|          SX2    1R
03149  M01S02767.tafrec  +++|          SX1    1RK         ADD -K- TO NUMBER
03150  M01S02768.tafrec  +++| RKD2     LX4    6
03151  M01S02769.tafrec  +++|          SB2    B2-6
03152  M01S02770.tafrec  +++|          BX5    -X3*X4
03153  M01S02771.tafrec  +++|          IX5    X5-X2
03154  M01S02772.tafrec  +++|          NZ     X5,RKD2     IF NOT BLANK
03155  M01S02773.tafrec  +++|          BX4    X3*X4
03156  M01S02774.tafrec  +++|          BX4    X4+X1       MERGE IN -K-
03157  M01S02775.tafrec  +++|          LX4    B2          REPOSITION
03158  M01S02776.tafrec  +++|          LX4    -18
03159  M01S02777.tafrec  +++|          SA1    RKDA
03160  M01S02778.tafrec  +++|          BX6    -X0*X4
03161  M01S02779.tafrec  +++|          BX6    X1+X6
03162  M01S02780.tafrec  +++|          SA6    KECS+B1
03163  M01S02781.tafrec  +++|          SA6    DIS6+B1
03164  M01S02782.tafrec  +++|          SA1    VTFL        TASK LIBRARY FILE
03165  M01S02783.tafrec  +++|          MX2    -1
03166  M01S02784.tafrec  +++|          BX1    X2*X1
03167  M01S02785.tafrec  +++|          RJ     SFN         SPACE FILL NAME
03168  M01S02786.tafrec  +++|          LX6    -18
03169  M01S02787.tafrec  +++|          BX6    -X0*X6
03170  M01S02788.tafrec  +++|          SA1    RKDA
03171  M01S02789.tafrec  +++|          BX6    X1+X6
03172  M01S02790.tafrec  +++|          SA6    KTLF+B1
03173  M01S02791.tafrec  +++|          SA6    DIS7+B1
03174  M01S02792.tafrec  +++|          SA1    BLNK        UPDATE REPORT FILE HEADER
03175  M01S02793.tafrec  +++|          SA2    RKDC
03176  M01S02794.tafrec  +++|          BX6    X1
03177  M01S02795.tafrec  +++|          BX7    X2
03178  M01S02796.tafrec  +++|          SA6    SKDE+1
03179  M01S02797.tafrec  +++|          SA7    A6+1
03180  M01S02798.tafrec  +++|          EQ     RKDX        RETURN
03181  M01S02799.tafrec  +++|
03182  M01S02800.tafrec  +++| RKDA     VFD    60/3L =
03183  M01S02801.tafrec  +++| RKDB     DATA   10H = NO
03184  M01S02802.tafrec  +++|          DATA   10H = YES
03185  M01S02803.tafrec  +++| RKDC     DATA   10H  RESTART
03186  M01S02804.tafrec  +++| SRS      SPACE  4,25
03187  M01S02805.tafrec  +++|**        SRS - SET RECOVERY STATUS.
03188  M01S02806.tafrec  +++|*
Line S02807 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03189  M02S02807.ns2023  ---|*         ATTACH OR CREATE THE TRF-S FOR *TAFREC*.  *SRS* WILL
Line S02808 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03190  M02S02808.ns2023  ---|*         ATTEMPT TO ATTACH THE TRF FROM THE FAMILY/USERNAME SPECIFIED
Line S02809 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03191  M02S02809.ns2023  ---|*         ON THE NETWORK DIRECTIVE.  IF NOT FOUND, ATTEMPT TO ATTACH
Line S02810 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03192  M02S02810.ns2023  ---|*         THE ALTERNATE TRF (TRFAI).  IF *TRFA1* FOUND, CHANGE ITS
Line S02811 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03193  M02S02811.ns2023  ---|*         NAME TO *TRFI*.  IF NEITHER *TRFI* OR *TRFAI* ARE FOUND BUT
Line S02812 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03194  M02S02812.ns2023  ---|*         INITIALIZE STATUS WAS SET VIA THE *K.INT* COMMAND, THEN
Line S02813 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03195  M02S02813.ns2023  ---|*         DEFINE *TRFI*.
03196  M01S00158.ns2023  +++|*         ATTEMPT TO ATTACH THE *CRF* FROM THE FAMILY/USERNAME
03197  M01S00159.ns2023  +++|*         SPECIFIED ON THE NETWORK DIRECTIVE.  IF NOT FOUND, ATTEMPT
03198  M01S00160.ns2023  +++|*         TO ATTACH THE ALTERNATE *CRF* (CRFAI).  IF *CRFAI* FOUND,
03199  M01S00161.ns2023  +++|*         CHANGE ITS NAME TO *CRFI*.  IF NEITHER *CRFI* OR *CRFAI* ARE
03200  M01S00162.ns2023  +++|*         FOUND BUT INITIALIZE STATUS WAS SET VIA THE *K.INT* COMMAND,
03201  M01S00163.ns2023  +++|*         THEN DEFINE *CRFI*.
03202  M01S02814.tafrec  +++|*
03203  M01S02815.tafrec  +++|*         ENTRY  (CUID) = CURRENT ID.
03204  M01S02816.tafrec  +++|*
Line S02817 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03205  M02S02817.ns2023  ---|*         EXIT   TRF LOCAL.
03206  M01S00164.ns2023  +++|*         EXIT   *CRF* LOCAL.
03207  M01S02818.tafrec  +++|*                (B5) = FWA OF ERROR MESSAGE.
Line S02819 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03208  M02S02819.ns2023  ---|*                TO *ERR* IF TRF NOT FOUND AND INITIALIZE FLAG NOT SET.
03209  M01S00165.ns2023  +++|*                TO *ERR* IF CRF NOT FOUND AND INITIALIZE FLAG NOT SET.
03210  M01S02820.tafrec  +++|*
03211  M01S02821.tafrec  +++|*         USES   X - 1, 2, 5, 6.
03212  M01S02822.tafrec  +++|*                A - 1, 6.
03213  M01S02823.tafrec  +++|*                B - 2, 5.
03214  M01S02824.tafrec  +++|*
03215  M01S02825.tafrec  +++|*         CALLS  SNM.
03216  M01S02826.tafrec  +++|*
03217  M01S02827.tafrec  +++|*         MACROS ATTACH, CHANGE, DEFINE.
03218  M01S02828.tafrec  +++|
03219  M01S02829.tafrec  +++|
03220  M01S02830.tafrec  +++| SRS      SUBR               ENTRY/EXIT
03221  M01S02831.tafrec  +++|          SA1    CUID        CURRENT ID
03222  M01S02832.tafrec  +++|          SX2    1R0
03223  M01S02833.tafrec  +++|          IX5    X2+X1       BINARY TO DISPLAY
03224  M01S02834.tafrec  +++|          LX5    29-5
03225  M01S02835.tafrec  +++|          SA1    RFN
03226  M01S02836.tafrec  +++|          SX2    B1
Line S02837 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03227  M02S02837.ns2023  ---|          BX6    X1+X5       *TRFI*
Line S02838 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03228  M02S02838.ns2023  ---|          SA6    TRF+CFPN
Line S02839 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03229  M02S02839.ns2023  ---|          SA6    TRF+CFNF
03230  M01S00166.ns2023  +++|          BX6    X1+X5       *CRFI*
03231  M01S00167.ns2023  +++|          SA6    CRF+CFPN
03232  M01S00168.ns2023  +++|          SA6    CRF+CFNF
03233  M01S02840.tafrec  +++|          BX6    X6+X2       COMPLETE BIT
Line S02841 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03234  M02S02841.ns2023  ---|          SA6    TRF         STORE IN FET
Line S02842 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03235  M02S02842.ns2023  ---|          ATTACH TRF         ATTACH TRF
Line S02843 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03236  M02S02843.ns2023  ---|          SA1    TRF
03237  M01S00169.ns2023  +++|          SA6    CRF         STORE IN FET
03238  M01S00170.ns2023  +++|          ATTACH CRF         ATTACH *CRF*
03239  M01S00171.ns2023  +++|          SA1    CRF
03240  M01S02844.tafrec  +++|          MX2    8
03241  M01S02845.tafrec  +++|          LX1    59-17
03242  M01S02846.tafrec  +++|          BX2    X2*X1
03243  M01S02847.tafrec  +++|          ZR     X2,SRSX     IF FILE FOUND
03244  M01S02848.tafrec  +++|          SA1    RFNA
03245  M01S02849.tafrec  +++|          LX5    35-41
Line S02850 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03246  M02S02850.ns2023  ---|          BX6    X1+X5       *TRFAI*
Line S02851 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03247  M02S02851.ns2023  ---|          SA6    TRF+CFPN
Line S02852 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03248  M02S02852.ns2023  ---|          ATTACH TRF         ATTACH ALTERNATE TRF
03249  M01S00172.ns2023  +++|          BX6    X1+X5       *CRFAI*
03250  M01S00173.ns2023  +++|          SA6    CRF+CFPN
03251  M01S00174.ns2023  +++|          ATTACH CRF         ATTACH ALTERNATE *CRF*
03252  M01S02853.tafrec  +++|          MX2    8
Line S02854 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03253  M02S02854.ns2023  ---|          SA1    TRF
03254  M01S00175.ns2023  +++|          SA1    CRF
03255  M01S02855.tafrec  +++|          LX1    59-17
03256  M01S02856.tafrec  +++|          BX2    X2*X1
03257  M01S02857.tafrec  +++|          NZ     X2,SRS1     IF FILE NOT FOUND
Line S02858 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03258  M02S02858.ns2023  ---|          CHANGE TRF         CHANGE NAME TO *TRFI*
03259  M01S00176.ns2023  +++|          CHANGE CRF         CHANGE NAME TO *CRFI*
03260  M01S02859.tafrec  +++|          EQ     SRSX        RETURN
03261  M01S02860.tafrec  +++|
03262  M01S02861.tafrec  +++|*         RECOVERY FILE WAS NOT FOUND.  IF INITIALIZE WAS SPECIFIED
03263  M01S02862.tafrec  +++|*         DEFINE THE RECOVERY FILE.
03264  M01S02863.tafrec  +++|
03265  M01S02864.tafrec  +++| SRS1     SA1    CUID
03266  M01S02865.tafrec  +++|          SA1    TREC+X1
03267  M01S02866.tafrec  +++|          MX6    -3
03268  M01S02867.tafrec  +++|          BX6    -X6*X1      STATUS
03269  M01S02868.tafrec  +++|          SX6    X6-IST
03270  M01S02869.tafrec  +++|          NZ     X6,SRS2     IF NOT INITIALIZE
Line S02870 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03271  M02S02870.ns2023  ---|          SA1    TRF+CFNF
03272  M01S00177.ns2023  +++|          SA1    CRF+CFNF
03273  M01S02871.tafrec  +++|          BX6    X1          CORRECT FILE NAME
Line S02872 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03274  M02S02872.ns2023  ---|          SA6    TRF+CFPN
Line S02873 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03275  M02S02873.ns2023  ---|          DEFINE TRF
03276  M01S00178.ns2023  +++|          SA6    CRF+CFPN
03277  M01S00179.ns2023  +++|          DEFINE CRF
03278  M01S02874.tafrec  +++|          EQ     SRSX        RETURN
03279  M01S02875.tafrec  +++|
03280  M01S02876.tafrec  +++|*         ABORT *TAFREC* WHEN THE RECOVERY FILE NOT FOUND AND
03281  M01S02877.tafrec  +++|*         INITIALIZATION NOT SPECIFIED.
03282  M01S02878.tafrec  +++|
Line S02879 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03283  M02S02879.ns2023  ---| SRS2     SA1    TRF
03284  M01S00180.ns2023  +++| SRS2     SA1    CRF
03285  M01S02880.tafrec  +++|          MX2    42
03286  M01S02881.tafrec  +++|          BX1    X2*X1
03287  M01S02882.tafrec  +++|          SB2    1RX
Line S02883 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03288  M02S02883.ns2023  ---|          SB5    SRSA        * TAF RECOVERY FILE NOT FOUND.*
03289  M01S00181.ns2023  +++|          SB5    SRSA        * COMMUNICATIONS RECOVERY FILE NOT FOUND.*
03290  M01S02884.tafrec  +++|          RJ     SNM         SET NAME IN MESSAGE
03291  M01S02885.tafrec  +++|          EQ     ERR         PROCESS ERROR
03292  M01S02886.tafrec  +++|
03293  M01S02887.tafrec  +++| SRSA     DATA   C* TAF COMM. RECOVERY FILE NOT FOUND - XXXXXXX.*
03294  M01S02888.tafrec  +++| PKC      SPACE 4,20
03295  M01S02889.tafrec  +++| SKD      SPACE  4,25
03296  M01S02890.tafrec  +++|**        SKD - SET *K-DISPLAY*.
03297  M01S02891.tafrec  +++|*
03298  M01S02892.tafrec  +++|*         FORMAT AND DIPLAY THE INITIAL *K-DISPLAY* AND ACCEPT
03299  M01S02893.tafrec  +++|*         OPERATOR ENTERED CHANGES AND/OR COMMANDS AND *K.COMMANDS*
03300  M01S02894.tafrec  +++|*         FROM THE *TCF* FILE.
03301  M01S02895.tafrec  +++|*
03302  M01S02896.tafrec  +++|*         COMMANDS ARE OF THE FORM -
03303  M01S02897.tafrec  +++|*                K.CMD = PARAMETERS.
03304  M01S02898.tafrec  +++|*
03305  M01S02899.tafrec  +++|*         WHERE  CMD = A THREE CHARACTER COMMAND.
03306  M01S02900.tafrec  +++|*                PARAMETERS = 1-15 CHARACTERS  ( A-Z  0-9  , )
03307  M01S02901.tafrec  +++|*                             TERMINATED BY A PERIOD.
03308  M01S02902.tafrec  +++|*
03309  M01S02903.tafrec  +++|*         IF A VALID COMMAND IS ENTERED, *SKD* JUMPS TO THE
03310  M01S02904.tafrec  +++|*         COMMAND PROCESSOR.
03311  M01S02905.tafrec  +++|*
Line S02906 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03312  M02S02906.241l630 ---|*         ENTRY  (A1) = FWA OF STATEMENT BUFFER
03313  M01S00009.241l630 +++|*         ENTRY  (A1) = FWA OF STATEMENT BUFFER, IF (KCOF) .NE. 0.
03314  M01S02907.tafrec  +++|*
03315  M01S02908.tafrec  +++|*         EXIT   TO *PTF17*  IF CONSOLE COMMAND.
03316  M01S02909.tafrec  +++|*                TO *PTF5* IF UNPACK ERRORS ON TCF FILE DATA.
03317  M01S02910.tafrec  +++|*
03318  M01S02911.tafrec  +++|*         USES   X - ALL.
03319  M01S02912.tafrec  +++|*                A - 0, 1, 2, 3, 5, 6, 7.
03320  M01S02913.tafrec  +++|*                B - 2, 3, 4, 5, 6, 7.
03321  M01S02914.tafrec  +++|*
03322  M01S00010.241l630 +++|*         CALLS  UPC, ZTB.
03323  M01S00011.241l630 +++|*
03324  M01S02915.tafrec  +++|*         MACROS CONSOLE, RECALL, WRITEW.
03325  M01S02916.tafrec  +++|
03326  M01S02917.tafrec  +++|
03327  M01S02918.tafrec  +++| SKD      SUBR               ENTRY/EXIT
03328  M01S02919.tafrec  +++|          SA2    KCOF        CHECK COMMAND ORIGIN
03329  M01S02920.tafrec  +++|          NZ     X2,SKD4     IF NOT CONSOLE MODE
03330  M01S02921.tafrec  +++|          SX6    SKDE
03331  M01S02922.tafrec  +++|          SX7    SKDEL
03332  M01S02923.tafrec  +++|          SA6    SBHD        SUB HEADING ADDRESS
03333  M01S02924.tafrec  +++|          SA7    A6+B1       LENGTH
03334  M01S02925.tafrec  +++|          SX6    B1+B1       SUBHEADING LINE COUNT
03335  M01S02926.tafrec  +++|          SA6    A7+B1
03336  M01S02927.tafrec  +++|          SX6    LINP
03337  M01S02928.tafrec  +++|          SA6    LCNT        FORCE NEW PAGE
03338  M01S02929.tafrec  +++|          SB7    5           ASSUME DECIMAL BASE FOR DXB,ALSO CNSTNT 5
03339  M01S02930.tafrec  +++|          CONSOLE  KCTRL     SET *K-DISPLAY* REQUEST
03340  M01S02931.tafrec  +++| SKD1     SA1    KCOF        COMMAND ORIGIN
03341  M01S02932.tafrec  +++|          SX2    B0+
03342  M01S02933.tafrec  +++|          NZ     X1,PTF17    IF NOT CONSOLE COMMAND
03343  M01S02934.tafrec  +++|          SX6    B0+
03344  M01S02935.tafrec  +++|          SA6    KBUF        SET INPUT PROCESSED INDICATOR
03345  M01S02936.tafrec  +++|          SA6    KILL        TURN OFF ERROR MESSAGE
03346  M01S02937.tafrec  +++|          SA6    KILL1
Line S00012 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03347  M02S00012.241l630 ---|          SA6    KILL3
Line S00013 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03348  M02S00013.241l630 ---|          SA6    KILL4
03349  M01S02938.tafrec  +++|          SA6    SKDD
03350  M01S02939.tafrec  +++| SKD2     SA1    KBUF
03351  M01S02940.tafrec  +++|          NZ     X1,SKD3     IF INPUT TO PROCESS
03352  M01S02941.tafrec  +++|          RECALL
03353  M01S02942.tafrec  +++|          EQ     SKD2        LOOP
03354  M01S02943.tafrec  +++|
03355  M01S02944.tafrec  +++|*         PROCESS CONSOLE INPUT.
03356  M01S02945.tafrec  +++|
Line S02946 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03357  M02S02946.241l630 ---| SKD3     SA5    KBUF        UNPACK STATEMENT
03358  M01S00012.241l630 +++| SKD3     SB2    B0+
03359  M01S00013.241l630 +++|          SB3    5
03360  M01S00014.241l630 +++| SKD3.1   SA1    KBUF+B2
03361  M01S00015.241l630 +++|          RJ     ZTB         CONVERT TRAILING ZEROES TO BLANKS
03362  M01S00016.241l630 +++|          SB2    B2+B1
03363  M01S00017.241l630 +++|          SA6    A1          ALLOW MISSING TERMINATOR TO BE LEGAL
03364  M01S00018.241l630 +++|          SA6    KBUF1+B2    ECHO DSD INPUT TO K-DISPLAY
03365  M01S00019.241l630 +++|          LT     B2,B3,SKD3.1  IF NOT END OF INPUT BUFFER
03366  M01S00020.241l630 +++|          SA5    KBUF        UNPACK STATEMENT
03367  M01S02947.tafrec  +++|          SB7    PTFC
03368  M01S02948.tafrec  +++|          RJ     UPC         UNPACK
03369  M01S02949.tafrec  +++|          SA1    PTFC-1
03370  M01S02950.tafrec  +++|          ZR     X6,SKD8     IF NO UNPACK ERRORS
03371  M01S02951.tafrec  +++|          EQ     SKD14       UNPACK ERRORS
03372  M01S02952.tafrec  +++|
03373  M01S02953.tafrec  +++|*         PROCESS *TCF* *K.COMMANDS*
03374  M01S02954.tafrec  +++|
03375  M01S02955.tafrec  +++| SKD4     MX4    6
03376  M01S02956.tafrec  +++|          SB3    B0
03377  M01S02957.tafrec  +++|          SX2    1R.         SET *.* AS SEARCH CHARACTER
03378  M01S02958.tafrec  +++|          LX2    59-5
Line S02959 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03379  M02S02959.v23l617 ---|          SA0    PTFF        *INVALID TCF ENTRIES.*
03380  M01S00036.v23l617 +++|          SA0    PTFF        *INCORRECT TCF ENTRIES.*
03381  M01S02960.tafrec  +++| SKD5     SA1    A1+B3       FETCH BUFFER BLOCK
03382  M01S02961.tafrec  +++|          SB3    B3+B1       INCREMENT WORD COUNT
03383  M01S02962.tafrec  +++|          SB4    B3-16
03384  M01S02963.tafrec  +++|          ZR     B4,PTF5     IF NO PERIOD IN STATEMENT
03385  M01S02964.tafrec  +++|          SB5    B0+         CLEAR SHIFT COUNT
03386  M01S02965.tafrec  +++| SKD6     BX3    X4*X1       CHECK FOR *.*
03387  M01S02966.tafrec  +++|          IX3    X3-X2
03388  M01S02967.tafrec  +++|          ZR     X3,SKD7     IF FOUND
03389  M01S02968.tafrec  +++|          SB5    B5+6        SHIFT COUNT
03390  M01S02969.tafrec  +++|          SB4    B5-60
03391  M01S02970.tafrec  +++|          ZR     B4,SKD5     IF NOT FOUND
03392  M01S02971.tafrec  +++|          LX1    6
03393  M01S02972.tafrec  +++|          EQ     SKD6        CHECK NEXT CHARACTER
03394  M01S02973.tafrec  +++|
03395  M01S02974.tafrec  +++| SKD7     MX0    -54         MASK OUT THE *.*
03396  M01S02975.tafrec  +++|          BX1    -X0*X1
03397  M01S02976.tafrec  +++|          SX2    1R,         *,* TO INSERT FOR UPC CALL
03398  M01S02977.tafrec  +++|          LX2    59-5
03399  M01S02978.tafrec  +++|          BX1    X1+X2
03400  M01S02979.tafrec  +++|          SB3    60
03401  M01S02980.tafrec  +++|          SB5    B3-B5
03402  M01S02981.tafrec  +++|          LX6    X1,B5       SHIFT BACK TO ORIGINAL POSITION
03403  M01S02982.tafrec  +++|          SA6    A1+         RESTORE WORD IN BUFFER
03404  M01S02983.tafrec  +++|          SA5    PTFB        FIRST WORD TO UNPACK
03405  M01S02984.tafrec  +++|          SB7    PTFC        FWA TO UNPACK INTO
03406  M01S02985.tafrec  +++|          RJ     UPC         UNPACK
03407  M01S02986.tafrec  +++|          SA1    PTFC
03408  M01S02987.tafrec  +++|          ZR     X6,SKD8     IF NO UNPACK ERRORS
Line S02988 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03409  M02S02988.v23l617 ---|          SA0    PTFF        *INVALID TCF ENTRIES*
03410  M01S00037.v23l617 +++|          SA0    PTFF        *INCORRECT TCF ENTRIES*
03411  M01S02989.tafrec  +++|          EQ     PTF5        REPORT ERROR
03412  M01S02990.tafrec  +++|
Line S02991 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2157
Seq #  *Modification Id* Act 
----------------------------+
03413  M02S02991.ns2157  ---| SKD8     MX0    42          MASK FOR PARAMETERS
Line S02992 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2157
Seq #  *Modification Id* Act 
----------------------------+
03414  M02S02992.ns2157  ---|          SA1    A1+1
03415  M01S00014.ns2157  +++| SKD8     SA1    A1+B1
Line S00015 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03416  M02S00015.241l630 ---|          SA2    SKDF        CHECK FOR PAGING
Line S00016 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03417  M02S00016.241l630 ---|          BX2    X1-X2
Line S00017 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03418  M02S00017.241l630 ---|          MX0    -18         MASK FOR PARAMETERS
Line S00018 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03419  M02S00018.241l630 ---|          BX2    -X0*X2
Line S00019 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03420  M02S00019.241l630 ---|          ZR     X2,PAG      IF NEXT PAGE REQUESTED
03421  M01S00021.241l630 +++|          MX0    42
03422  M01S02993.tafrec  +++|          BX1    X0*X1       MASK OUT THE SEPERATOR
03423  M01S02994.tafrec  +++|          SA2    SKDC-1      VALID COMMAND TABLE
03424  M01S02995.tafrec  +++| SKD9     SA2    A2+B1       GET NEXT *K.COMMAND*
03425  M01S02996.tafrec  +++|          ZR     X2,SKD14    IF END OF TABLE
03426  M01S02997.tafrec  +++|          BX3    X0*X2
03427  M01S02998.tafrec  +++|          IX4    X1-X3
03428  M01S02999.tafrec  +++|          NZ     X4,SKD9     IF NO MATCH
03429  M01S03000.tafrec  +++|          SA3    A1+B1       GET SECOND PARAMETER
03430  M01S03001.tafrec  +++|          BX3    X0*X3
03431  M01S03002.tafrec  +++|          BX7    X3
03432  M01S03003.tafrec  +++|          ZR     X3,SKD13    IF SECOND PARAMETER ZERO
03433  M01S03004.tafrec  +++|          SA1    A3+B1       GET THIRD PARAMETER
03434  M01S03005.tafrec  +++|          BX1    X0*X1
03435  M01S03006.tafrec  +++|          BX6    X1
03436  M01S03007.tafrec  +++|          MX0    6
03437  M01S03008.tafrec  +++|          ZR     X6,SKD13    IF NEXT PARAMETER ZERO
03438  M01S03009.tafrec  +++|          SB2    B0
03439  M01S03010.tafrec  +++|          BX4    X7
03440  M01S03011.tafrec  +++| SKD10    SB2    B2+6        COUNT CHARACTERS IN SECOND PARAMETER
03441  M01S03012.tafrec  +++|          ZR     X4,SKD11    IF NEXT CHARACTER IS ZERO
03442  M01S03013.tafrec  +++|          LX7    6
03443  M01S03014.tafrec  +++|          BX4    X0*X7
03444  M01S03015.tafrec  +++|          EQ     SKD10       CHECK NEXT CHARACTER
03445  M01S03016.tafrec  +++|
03446  M01S03017.tafrec  +++| SKD11    AX6    B2,X6
03447  M01S03018.tafrec  +++|          MX4    1           REMOVE SIGN EXTENSION
03448  M01S03019.tafrec  +++|          SB3    B2-1
03449  M01S03020.tafrec  +++|          AX4    X4,B3       VARIABLE MASK
03450  M01S03021.tafrec  +++|          PL     X6,SKD12    IF SIGN EXTEND IS ZEROS
03451  M01S03022.tafrec  +++|          BX6    -X4*X6
03452  M01S03023.tafrec  +++| SKD12    BX7    X6+X3
03453  M01S03024.tafrec  +++|          SB3    60
03454  M01S03025.tafrec  +++|          SB3    B3-B2
03455  M01S03026.tafrec  +++|          LX6    X1,B3
03456  M01S03027.tafrec  +++|          BX6    X4*X6
03457  M01S03028.tafrec  +++|          SX1    1R,         ADD A *,* FOR RECEIVING ROUTINES
03458  M01S03029.tafrec  +++|          LX1    53-5
03459  M01S03030.tafrec  +++|          SB2    B2-12
03460  M01S03031.tafrec  +++|          AX1    X1,B2
03461  M01S03032.tafrec  +++|          IX7    X7+X1
03462  M01S03033.tafrec  +++| SKD13    SB3    X2
03463  M01S03034.tafrec  +++|          JP     B3          PROCESS THE *K.COMMAND*
03464  M01S03035.tafrec  +++|
Line S03036 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03465  M02S03036.v23l617 ---|*         SET ILLEGAL INPUT MESSAGE ON SCREEN.
03466  M01S00038.v23l617 +++|*         SET INCORRECT INPUT MESSAGE ON SCREEN.
03467  M01S03037.tafrec  +++|
03468  M01S03038.tafrec  +++| SKD14    SA2    KCOF
03469  M01S03039.tafrec  +++|          SA0    KCNV        * K.COMMAND NOT VALID.*
03470  M01S03040.tafrec  +++|          NZ     X2,PTF17    IF NOT CONSOLE COMMAND
03471  M01S03041.tafrec  +++|          SA1    KILL2       FIRST LINE OF ERROR MESSAGE
03472  M01S03042.tafrec  +++|          MX7    0
03473  M01S03043.tafrec  +++|          BX6    X1
03474  M01S03044.tafrec  +++|          SA6    KILL        SET INTO ERROR LINE POSITION
Line S00020 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03475  M02S00020.241l630 ---|          SA6    KILL3
03476  M01S03045.tafrec  +++|          SA7    KBUF
03477  M01S03046.tafrec  +++|          SA7    SKDD
03478  M01S03047.tafrec  +++|          EQ     SKD2        WAIT FOR NEXT INPUT
03479  M01S03048.tafrec  +++|
03480  M01S03049.tafrec  +++|*         IF END OF *K-DISPLAY* WRITE IT TO REPORT FILE.
03481  M01S03050.tafrec  +++|
03482  M01S03051.tafrec  +++| SKD15    SA1    KCOF
03483  M01S03052.tafrec  +++|          ZR     X1,SKD16    IF  CONSOLE ORIGIN
03484  M01S03053.tafrec  +++|          SX2    B0+         CLEAR ERROR FLAG
03485  M01S03054.tafrec  +++|          EQ     SKDX        RETURN
03486  M01S03055.tafrec  +++|
03487  M01S03056.tafrec  +++| SKD16    CONSOLE  SKDB      TURN OFF *K-DISPLAY*
03488  M01S03057.tafrec  +++|          SB2    30
03489  M01S03058.tafrec  +++|          RJ     ALC         ADVANCE LINE COUNT
03490  M01S03059.tafrec  +++|          WRITEW R,DISP,DISPL  WRITE *K-DISPLAY* TO REPORT FILE
03491  M01S03060.tafrec  +++|          EQ     SKDX        RETURN
03492  M01S03061.tafrec  +++|
03493  M01S03062.tafrec  +++|
03494  M01S03063.tafrec  +++| SKDA     VFD    6/1R0,54/0  UPPER DISPLAY CODE LIMIT FOR COMMAND CHARS
03495  M01S03064.tafrec  +++|
03496  M01S03065.tafrec  +++| SKDB     CON    0           ZERO WORD TO TURN OFF *K-DISPLAY*
03497  M01S03066.tafrec  +++|
03498  M01S03067.tafrec  +++|*         TABLE OF VALID *K-DISPLAY* COMMANDS.
03499  M01S03068.tafrec  +++|
03500  M01S03069.tafrec  +++| SKDC     VFD    42/0LSCP,18/SCP
03501  M01S03070.tafrec  +++|          VFD    42/0LCMB,18/CMB
03502  M01S03071.tafrec  +++|          VFD    42/0LREC,18/REC
03503  M01S03072.tafrec  +++|          VFD    42/0LMFL,18/MFL
03504  M01S03073.tafrec  +++|          VFD    42/0LECS,18/ECS
03505  M01S03074.tafrec  +++|          VFD    42/0LTLF,18/TLF
03506  M01S03075.tafrec  +++|          VFD    42/0LINT,18/INT
03507  M01S03076.tafrec  +++|          VFD    42/0LERO,18/ERO
03508  M01S03077.tafrec  +++|          VFD    42/0LBFL,18/BFL
03509  M01S03078.tafrec  +++|          VFD    42/0LEFL,18/EFL
03510  M01S00021.ns2157  +++|          VFD    42/0LTFL,18/TFL
03511  M01S03079.tafrec  +++|          VFD    42/0LSTOP,18/STP
03512  M01S03080.tafrec  +++|          VFD    42/0LEND,18/SKD15
03513  M01S03081.tafrec  +++|          VFD    42/0LGO,18/SKD15
03514  M01S03082.tafrec  +++|          CON    0           TABLE TERMINATOR
03515  M01S03083.tafrec  +++|
03516  M01S03084.tafrec  +++| SKDD     BSSZ   1           FIRST 10 CHARACTERS OF PARAMETER
03517  M01S03085.tafrec  +++|
03518  M01S03086.tafrec  +++| SKDE     DATA   10H
03519  M01S03087.tafrec  +++|          DATA   C*     INITIALIZATION K-DISPLAY*
03520  M01S03088.tafrec  +++|          DATA   1L
03521  M01S03089.tafrec  +++| SKDEL    EQU    *-SKDE
Line S00022 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03522  M02S00022.241l630 ---| SKDF     VFD    60/1R+      PAGING COMMAND
03523  M01S03090.tafrec  +++|          SPACE  4,10
03524  M01S03091.tafrec  +++|**        INITIALIZATION *K-DISPLAY* COMMANDS.
03525  M01S03092.tafrec  +++|*
03526  M01S03093.tafrec  +++|*         THE FOLLOWING COMMANDS CAN BE USED TO CHANGE PARAMETERS
03527  M01S03094.tafrec  +++|*         USED BY *TAF* AND THE DATA MANAGER FOR INITIALIZATION, AND
03528  M01S03095.tafrec  +++|*         TO INITIALIZE VARIOUS FILES USED BY *TAF*.
03529  M01S03096.tafrec  +++| SCP      SPACE  4,20
03530  M01S03097.tafrec  +++|**        K.SCP=N.
03531  M01S03098.tafrec  +++|*
03532  M01S03099.tafrec  +++|*         CHANGE THE NUMBER OF SUBCONTROL POINTS.
03533  M01S03100.tafrec  +++|*
03534  M01S03101.tafrec  +++|*         ENTRY  (X7) = NUMBER OF SUBCONTROL POINTS IN DISPLAY CODE.
03535  M01S03102.tafrec  +++|*
03536  M01S03103.tafrec  +++|*         EXIT   TO *SKD1*.  *K-DISPLAY* AND REPORT UPDATED.
03537  M01S03104.tafrec  +++|*                TO *SKD14* IF ERROR IN PARAMETER.
03538  M01S03105.tafrec  +++|*
03539  M01S03106.tafrec  +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
03540  M01S03107.tafrec  +++|*                A - 2, 6, 7.
03541  M01S03108.tafrec  +++|*                B - 2.
03542  M01S03109.tafrec  +++|*
03543  M01S03110.tafrec  +++|*         CALLS  CDD, DXB, UKD.
03544  M01S03111.tafrec  +++|
03545  M01S03112.tafrec  +++|
03546  M01S03113.tafrec  +++| SCP      BSS    0           ENTRY
03547  M01S03114.tafrec  +++|          BX5    X7
03548  M01S03115.tafrec  +++|          RJ     DXB         CONVERT EQUIVALENCED FIELD TO NUMBER
03549  M01S03116.tafrec  +++|          NZ     X5,SKD14    IF ERROR IN NUMBER
03550  M01S03117.tafrec  +++|          SX2    X6-MINSCP
Line S03118 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03551  M02S03118.v23l617 ---|          NG     X2,SKD14    IF ILLEGAL SUBCP COUNT
03552  M01S00039.v23l617 +++|          NG     X2,SKD14    IF INCORRECT SUBCP COUNT
03553  M01S03119.tafrec  +++|          SB2    X6-MAXSCP
Line S03120 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03554  M02S03120.v23l617 ---|          GT     B2,SKD14    IF ILLEGAL SUBCP
03555  M01S00040.v23l617 +++|          GT     B2,SKD14    IF INCORRECT SUBCP
03556  M01S03121.tafrec  +++|          BX1    X6
03557  M01S03122.tafrec  +++|          LX6    24
03558  M01S03123.tafrec  +++|          SA6    VNSCP       RESET SUBCP COUNT FOR INITIALIZATION
03559  M01S03124.tafrec  +++|          RJ     CDD         CONVERT DECIMAL TO DISPLAY CODE
03560  M01S03125.tafrec  +++|          SA2    KSCP+1      *SCP* WORD IN DISPLAY
03561  M01S03126.tafrec  +++|          SB5    DIS1+1      UPDATE REPORT
03562  M01S03127.tafrec  +++|          SB6    B1
03563  M01S03128.tafrec  +++|          RJ     UKD         UPDATE THE *K-DISPLAY* AND REPORT
03564  M01S03129.tafrec  +++|          EQ     SKD1        PROCESS NEXT INPUT
03565  M01S03130.tafrec  +++| CMB      SPACE  4,20
03566  M01S03131.tafrec  +++|**        K.CMB=N.
03567  M01S03132.tafrec  +++|*
03568  M01S03133.tafrec  +++|*         CHANGE THE NUMBER OF COMMUNICATION BLOCKS.
03569  M01S03134.tafrec  +++|*
03570  M01S03135.tafrec  +++|*         ENTRY  (X7) = NUMBER OF COMMUNICATION BLOCKS IN DISPLAY
03571  M01S03136.tafrec  +++|*                      CODE.
03572  M01S03137.tafrec  +++|*
03573  M01S03138.tafrec  +++|*         EXIT   TO *SKD1*.  *K-DISPLAY* AND REPORT UPDATED.
03574  M01S03139.tafrec  +++|*                TO *SKD14* IF ERROR IN PARAMETER.
03575  M01S03140.tafrec  +++|*
03576  M01S03141.tafrec  +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
03577  M01S03142.tafrec  +++|*                A - 2, 6, 7.
03578  M01S03143.tafrec  +++|*                B - 2.
03579  M01S03144.tafrec  +++|*
03580  M01S03145.tafrec  +++|*         CALLS  CDD, DXB, UKD.
03581  M01S03146.tafrec  +++|
03582  M01S03147.tafrec  +++|
03583  M01S03148.tafrec  +++| CMB      BSS    0           ENTRY
03584  M01S03149.tafrec  +++|          BX5    X7
03585  M01S03150.tafrec  +++|          RJ     DXB         CONVERT DISPLAY CODE TO BINARY
03586  M01S03151.tafrec  +++|          NZ     X4,SKD14    IF ERROR IN NUMBER
03587  M01S03152.tafrec  +++|          SX2    X6-MINCMB
Line S03153 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03588  M02S03153.v23l617 ---|          NG     X2,SKD14    IF ILLEGAL C.B. COUNT
03589  M01S00041.v23l617 +++|          NG     X2,SKD14    IF INCORRECT C.B. COUNT
03590  M01S03154.tafrec  +++|          SB2    X6-MAXCMB
Line S03155 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03591  M02S03155.v23l617 ---|          GT     B2,SKD14    IF ILLEGAL C.B. COUNT
03592  M01S00042.v23l617 +++|          GT     B2,SKD14    IF INCORRECT C.B. COUNT
03593  M01S03156.tafrec  +++|          BX1    X6
03594  M01S03157.tafrec  +++|          LX6    24
03595  M01S03158.tafrec  +++|          SA6    VNCMB       RESET C.B. COUNT
03596  M01S03159.tafrec  +++|          RJ     CDD         LEFT JUSTIFY NUMBER
03597  M01S03160.tafrec  +++|          SA2    KCMB+1      *CMB* WORD IN DISPLAY
03598  M01S03161.tafrec  +++|          SB5    DIS2+1      UPDATE REPORT
03599  M01S03162.tafrec  +++|          SB6    B1
03600  M01S03163.tafrec  +++|          RJ     UKD         UPDATE THE *K-DISPLAY* AND REPORT
03601  M01S03164.tafrec  +++|          EQ     SKD1        PROCESS NEXT INPUT
03602  M01S03165.tafrec  +++| REC      SPACE  4,15
03603  M01S03166.tafrec  +++|**        K.REC=AA.
03604  M01S03167.tafrec  +++|*
03605  M01S03168.tafrec  +++|*         SET USER RECOVERY, *CRM* RECOVERY, OR BOTH.
03606  M01S03169.tafrec  +++|*
03607  M01S03170.tafrec  +++|*         ENTRY  (X7) = USER RECOVERY OPTION.
03608  M01S03171.tafrec  +++|*
03609  M01S03172.tafrec  +++|*         EXIT   TO *SKD1*.  *K-DISPLAY* AND REPORT UPDATED.
03610  M01S03173.tafrec  +++|*                TO *SKD14* IR ERROR IN PARAMETER.
03611  M01S03174.tafrec  +++|*
Line S03175 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03612  M02S03175.241l630 ---|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
Line S03176 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03613  M02S03176.241l630 ---|*                A - 1, 2, 5, 6, 7.
03614  M01S00022.241l630 +++|*         USES   X - 1, 2, 3, 7.
03615  M01S00023.241l630 +++|*                A - 1, 2, 6, 7.
03616  M01S03177.tafrec  +++|*
03617  M01S03178.tafrec  +++|*         CALLS  SFN.
03618  M01S03179.tafrec  +++|
03619  M01S03180.tafrec  +++|
03620  M01S03181.tafrec  +++| REC      BSS    0           ENTRY
03621  M01S03182.tafrec  +++|          BX1    X7
03622  M01S03183.tafrec  +++|          RJ     SFN         SPACE FILL ANSWER
03623  M01S03184.tafrec  +++|          SA1    RECA        *YES*
03624  M01S03185.tafrec  +++|          SA2    A1+B1       *NO*
03625  M01S03186.tafrec  +++|          BX3    X1-X6
Line S03187 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03626  M02S03187.241l630 ---|          SA1    RECD        *CRM*
Line S03188 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03627  M02S03188.241l630 ---|          MX4    -42
Line S03189 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03628  M02S03189.241l630 ---|          LX6    -18
Line S03190 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03629  M02S03190.241l630 ---|          SA5    RECC
Line S03191 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03630  M02S03191.241l630 ---|          BX6    -X4*X6      MASK OFF 3 CHARACTERS
Line S03192 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03631  M02S03192.241l630 ---|          BX6    X6+X5       ADD  =  FOR DISPLAY PURPOSES
03632  M01S00024.241l630 +++|          SA1    RECB        *CRM*
03633  M01S03193.tafrec  +++|          SX7    1           SET USER RECOVERY FLAG
03634  M01S03194.tafrec  +++|          ZR     X3,REC1     IF *YES*
03635  M01S03195.tafrec  +++|          BX3    X2-X6
03636  M01S03196.tafrec  +++|          SX7    B0          TURN OFF USER RECOVERY FLAG
03637  M01S03197.tafrec  +++|          ZR     X3,REC2     IF *NO*
03638  M01S03198.tafrec  +++|          BX3    X1-X6
Line S03199 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03639  M02S03199.v23l617 ---|          NZ     X3,SKD14    IF ILLEGAL INPUT
03640  M01S00043.v23l617 +++|          NZ     X3,SKD14    IF INCORRECT INPUT
03641  M01S03200.tafrec  +++|          EQ     SKD1        PROCESS NEXT INPUT
03642  M01S03201.tafrec  +++|
03643  M01S03202.tafrec  +++| REC1     SA1    VREC
03644  M01S03203.tafrec  +++|          BX7    X7+X1
03645  M01S03204.tafrec  +++| REC2     SA6    KREC+1
03646  M01S03205.tafrec  +++|          SA7    VREC        SET USER RECOVERY FLAG
03647  M01S03206.tafrec  +++|          SA6    DIS4+1      UPDATE REPORT
03648  M01S03207.tafrec  +++|          EQ     SKD1        PROCESS NEXT INPUT
03649  M01S03208.tafrec  +++|
03650  M01S03209.tafrec  +++| RECA     DATA   10HYES
Line S03210 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03651  M02S03210.241l630 ---| RECB     DATA   10H = NO
Line S03211 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03652  M02S03211.241l630 ---| RECC     VFD    60/3L =
Line S03212 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03653  M02S03212.241l630 ---| RECD     DATA   10H = CRM
03654  M01S00025.241l630 +++|          DATA   10HNO
03655  M01S00026.241l630 +++| RECB     DATA   10HCRM
03656  M01S03213.tafrec  +++| MFL      SPACE  4,20
03657  M01S03214.tafrec  +++|**        K.MFL=NNNNNN.
03658  M01S03215.tafrec  +++|*
03659  M01S03216.tafrec  +++|*         CHANGE THE MAXIMUM FIELD LENGTH THAT *TAF* IS TO USE.  THIS
03660  M01S03217.tafrec  +++|*         PARAMETER IS ALSO DYNAMICALLY CHANGEABLE WHILE *TAF* IS
03661  M01S03218.tafrec  +++|*         RUNNING.
03662  M01S03219.tafrec  +++|*
03663  M01S03220.tafrec  +++|*         ENTRY  (X7) = FIELD LENGTH IN DISPLAY CODE.
03664  M01S03221.tafrec  +++|*
03665  M01S03222.tafrec  +++|*         EXIT   TO *SKD1*.  *K-DISPLAY* AND REPORT UPDATED.
03666  M01S03223.tafrec  +++|*                TO *SKD14* IF ERROR IN PARAMETER.
03667  M01S03224.tafrec  +++|*
03668  M01S03225.tafrec  +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
03669  M01S03226.tafrec  +++|*                A - 2, 6, 7.
03670  M01S03227.tafrec  +++|*                B - 2, 3, 4, 7.
03671  M01S03228.tafrec  +++|*
03672  M01S03229.tafrec  +++|*         CALLS  COD, DXB, UKD.
03673  M01S03230.tafrec  +++|
03674  M01S03231.tafrec  +++|
03675  M01S03232.tafrec  +++| MFL      BSS    0           ENTRY
03676  M01S03233.tafrec  +++|          BX5    X7
03677  M01S03234.tafrec  +++|          SB7    B0          ASSUME OCTAL CONVERSION
03678  M01S03235.tafrec  +++|          RJ     DXB         CONVERT DISPLAY CODE TO BINARY
03679  M01S03236.tafrec  +++|          SB7    5
03680  M01S03237.tafrec  +++|          NZ     X4,SKD14    IF ERROR IN NUMBER
03681  M01S03238.tafrec  +++|          SX3    MAXMFL+1    MAXIMUM FIELD LENGTH ALLOWED
03682  M01S03239.tafrec  +++|          NO
03683  M01S03240.tafrec  +++|          IX4    X6-X3
Line S03241 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03684  M02S03241.v23l617 ---|          PL     X4,SKD14    IF ILLEGAL FILED LENGTH COUNT
03685  M01S00044.v23l617 +++|          PL     X4,SKD14    IF INCORRECT FILED LENGTH COUNT
03686  M01S03242.tafrec  +++|          SX2    X6-MINMFL
Line S03243 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03687  M02S03243.v23l617 ---|          NG     X2,SKD14    IF ILLEGAL FIELD LENGTH COUNT
03688  M01S00045.v23l617 +++|          NG     X2,SKD14    IF INCORRECT FIELD LENGTH COUNT
03689  M01S03244.tafrec  +++|          SA6    VMFL        RESET FIELD LENGTH VALUE
03690  M01S03245.tafrec  +++|          BX1    X6
03691  M01S03246.tafrec  +++|          RJ     COD         LEFT JUSTIFY NUMBER
03692  M01S03247.tafrec  +++|          SA2    KMFL+1      *MFL* WORD IN DISPLAY
03693  M01S03248.tafrec  +++|          SX3    1RB         ADD *B*
03694  M01S03249.tafrec  +++|          SB5    DIS5+1      UPDATE REPORT
03695  M01S03250.tafrec  +++|          SB6    B0
03696  M01S03251.tafrec  +++|          RJ     UKD         UPDATE THE *K-DISPLAY* AND REPORT
03697  M01S03252.tafrec  +++|          EQ     SKD1        PROCESS NEXT INPUT
03698  M01S03253.tafrec  +++| ECS      SPACE  4,15
03699  M01S03254.tafrec  +++|**        K.ECS=NNNNN.
03700  M01S03255.tafrec  +++|*
Line S03256 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03701  M02S03256.v23l617 ---|*         CHANGE THE ECS MEMORY LENGTH REQUIRED FOR *TAF*.
03702  M01S00046.v23l617 +++|*         CHANGE THE EXTENDED MEMORY LENGTH REQUIRED FOR *TAF*.
03703  M01S03257.tafrec  +++|*
Line S03258 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03704  M02S03258.v23l617 ---|*         ENTRY  (X7) = ECS FIELD LENGTH IN DISPLAY CODE.
03705  M01S00047.v23l617 +++|*         ENTRY  (X7) = EXTENDED MEMORY FIELD LENGTH IN DISPLAY CODE.
03706  M01S03259.tafrec  +++|*
03707  M01S03260.tafrec  +++|*         EXIT   TO *SKD1*.  *K-DISPLAY* AND REPORT UPDATED.
03708  M01S03261.tafrec  +++|*                TO *SKD14* IF ERROR IN PARAMETER.
03709  M01S03262.tafrec  +++|*
03710  M01S03263.tafrec  +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
03711  M01S03264.tafrec  +++|*                A - 2, 6, 7.
03712  M01S03265.tafrec  +++|*                B - 2, 3, 4, 7.
03713  M01S03266.tafrec  +++|*
03714  M01S03267.tafrec  +++|*         CALLS  COD, DXB, UKD.
03715  M01S03268.tafrec  +++|
03716  M01S03269.tafrec  +++|
03717  M01S03270.tafrec  +++| ECS      BSS    0           ENTRY
03718  M01S03271.tafrec  +++|          BX5    X7
03719  M01S03272.tafrec  +++|          SB7    B0          ASSUME OCTAL CONVERSION
03720  M01S03273.tafrec  +++|          RJ     DXB         CONVERT DISPLAY TO BINARY
03721  M01S03274.tafrec  +++|          SB7    5
03722  M01S03275.tafrec  +++|          NZ     X4,SKD14    IF ERROR IN NUMBER
03723  M01S03276.tafrec  +++|          SX3    MAXECS+1    MAXIMUM ECS FIELD LENGTH ALLOWED
03724  M01S03277.tafrec  +++|          IX4    X6-X3
03725  M01S03278.tafrec  +++|          PL     X4,SKD14    IF MORE THAN MAXIMUM REQUESTED
03726  M01S03279.tafrec  +++|          SX2    X6-MINECS
03727  M01S03280.tafrec  +++|          NG     X2,SKD14    IF LESS THAN MINIMUM REQUESTED
03728  M01S03281.tafrec  +++|          LX6    9
Line S03282 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03729  M02S03282.v23l617 ---|          SA6    VECS        SET ECS FIELD LENGTH
03730  M01S00048.v23l617 +++|          SA6    VECS        SET EXTENDED MEMORY FIELD LENGTH
03731  M01S03283.tafrec  +++|          LX6    -9
03732  M01S03284.tafrec  +++|          BX1    X6
03733  M01S03285.tafrec  +++|          RJ     COD         CONVERT OCTAL TO DISPLAY
Line S03286 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03734  M02S03286.v23l617 ---|          SA2    KECS+1      *ECS* WORD IN DISPLAY
03735  M01S00049.v23l617 +++|          SA2    KECS+1      *EXTENDED MEMORY* WORD IN DISPLAY
03736  M01S03287.tafrec  +++|          SX3    1RK         ADD *K*
03737  M01S03288.tafrec  +++|          SB5    DIS6+1      UPDATE REPORT
03738  M01S03289.tafrec  +++|          SB6    B0
03739  M01S03290.tafrec  +++|          RJ     UKD         UPDATE THE *K-DISPLAY* AND REPORT
03740  M01S03291.tafrec  +++|          EQ     SKD1        PROCESS NEXT INPUT
03741  M01S03292.tafrec  +++| TLF      SPACE  4,15
03742  M01S03293.tafrec  +++|**        K.TLF=FILE NAME.
03743  M01S03294.tafrec  +++|*
03744  M01S03295.tafrec  +++|*         CHANGE THE NAME OF THE TASK LIBRARY FILE.
03745  M01S03296.tafrec  +++|*
03746  M01S03297.tafrec  +++|*         ENTRY  (X7) = TASK LIBRARY FILE NAME.
03747  M01S03298.tafrec  +++|*
03748  M01S03299.tafrec  +++|*         EXIT   TO *SKD1*.  *K-DISPLAY* AND REPORT UPDATED.
03749  M01S03300.tafrec  +++|*
03750  M01S03301.tafrec  +++|*         USES   X - 1, 2, 3, 6, 7.
03751  M01S03302.tafrec  +++|*                A - 2, 6, 7.
03752  M01S03303.tafrec  +++|*
03753  M01S03304.tafrec  +++|*         CALLS  SFN, UKD.
03754  M01S03305.tafrec  +++|
03755  M01S03306.tafrec  +++|
03756  M01S03307.tafrec  +++| TLF      BSS    0
03757  M01S03308.tafrec  +++|          SX6    B1
03758  M01S03309.tafrec  +++|          BX6    X6+X7       SET STATUS OF ONE
03759  M01S03310.tafrec  +++|          SA6    VTFL
03760  M01S03311.tafrec  +++|          BX1    X7
03761  M01S03312.tafrec  +++|          RJ     SFN         SPACE FILL NAME
03762  M01S03313.tafrec  +++|          SA2    KTLF+1      FILE NAME IN DISPLAY
03763  M01S03314.tafrec  +++|          BX4    X6
03764  M01S03315.tafrec  +++|          SB5    DIS7+1      UPDATE REPORT
03765  M01S03316.tafrec  +++|          SB6    1
03766  M01S03317.tafrec  +++|          RJ     UKD         UPDATE THE *K-DISPLAY* AND REPORT
03767  M01S03318.tafrec  +++|          EQ     SKD1        PROCESS NEXT INPUT
03768  M01S03319.tafrec  +++| INT      SPACE  4,30
03769  M01S03320.tafrec  +++|**        K.INT=P1,P2.
03770  M01S03321.tafrec  +++|*
03771  M01S03322.tafrec  +++|*         INITIALIZE FILE COMMAND.
03772  M01S03323.tafrec  +++|*
Line S03324 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03773  M02S03324.ns2023  ---|*         P1 = TRF      - *TAF* RECOVERY FILE.
03774  M01S00182.ns2023  +++|*         P1 = CRF      - COMMUNICATIONS RECOVERY FILE.
03775  M01S03325.tafrec  +++|*              CRM      - *CRM* RECOVERY FILES.
03776  M01S03326.tafrec  +++|*
03777  M01S03327.tafrec  +++|*         P2 = ALL      - INITIALIZE ALL.
03778  M01S03328.tafrec  +++|*              NONE     - INITIALIZE NONE (RECOVER).
03779  M01S03329.tafrec  +++|*              IJKLMNO  - INITIALIZE THOSE DEFINED BY THE
03780  M01S03330.tafrec  +++|*                         OCTAL DIGITS IN *IJKLMNO*.
03781  M01S03331.tafrec  +++|*                         THIS OPTION NOT VALID FOR P1=CRM.
03782  M01S03332.tafrec  +++|*                         REPEATED USE OF THIS OPTION HAS
03783  M01S03333.tafrec  +++|*                         CUMULATIVE AFFECT IF DIFFERENT
03784  M01S03334.tafrec  +++|*                         DIGITS ARE USED.
03785  M01S03335.tafrec  +++|*
03786  M01S03336.tafrec  +++|*         ENTRY  (X7) = FIRST TEN CHARACTERS.
03787  M01S03337.tafrec  +++|*                (X6) = LAST CHARACTER.
03788  M01S03338.tafrec  +++|*
03789  M01S03339.tafrec  +++|*         EXIT   TO *SKD1*.  *K-DISPLAY* AND REPORT UPDATED.
03790  M01S03340.tafrec  +++|*                TO *SKD14* IF ERROR IN PARAMETER.
03791  M01S03341.tafrec  +++|*
03792  M01S03342.tafrec  +++|*         USES   X - ALL.
03793  M01S03343.tafrec  +++|*                A - 1, 2, 3, 4, 6, 7.
03794  M01S00027.241l630 +++|*                B - 2, 3, 5, 6.
03795  M01S03344.tafrec  +++|*
03796  M01S03345.tafrec  +++|*         CALLS  SFN.
03797  M01S03346.tafrec  +++|
03798  M01S03347.tafrec  +++|
03799  M01S03348.tafrec  +++| INT      BSS    0           ENTRY
03800  M01S03349.tafrec  +++|          SA7    INTD        SAVE PARAMETERS
03801  M01S03350.tafrec  +++|          SA6    INTE
03802  M01S03351.tafrec  +++|          MX0    24
03803  M01S03352.tafrec  +++|          BX4    X0*X7       EXTRACT FILE TYPE
03804  M01S03353.tafrec  +++|          SA1    INTA-1
03805  M01S03354.tafrec  +++| INT1     SA1    A1+B1
Line S03355 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03806  M02S03355.v23l617 ---|          ZR     X1,SKD14    IF INVALID FILE TYPE
03807  M01S00050.v23l617 +++|          ZR     X1,SKD14    IF INCORRECT FILE TYPE
03808  M01S03356.tafrec  +++|          BX2    X0*X1
03809  M01S03357.tafrec  +++|          BX2    X4-X2
03810  M01S03358.tafrec  +++|          NZ     X2,INT1     IF NO MATCH
03811  M01S03359.tafrec  +++|          SB3    X1
03812  M01S03360.tafrec  +++|          JP     B3          JUMP TO PROCESSOR
03813  M01S03361.tafrec  +++|
Line S03362 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03814  M02S03362.ns2023  ---|*         PROCESS TRF.
03815  M01S00183.ns2023  +++|*         PROCESS *CRF*.
03816  M01S03363.tafrec  +++|
03817  M01S03364.tafrec  +++| INT2     SX2    IPTAR
03818  M01S03365.tafrec  +++|          SB2    MAXRC-1
03819  M01S03366.tafrec  +++|          SB3    INTH
03820  M01S03367.tafrec  +++|          NZ     X2,INT3     IF AUTOMATIC RECOVERY DEFINED
03821  M01S03368.tafrec  +++|          SA1    INTF
03822  M01S03369.tafrec  +++|          SA2    A1+B1
03823  M01S03370.tafrec  +++|          BX6    X1
03824  M01S03371.tafrec  +++|          BX7    X2
03825  M01S03372.tafrec  +++|          SA6    KILL1       ADD SPECIFIC ERROR MESSAGE
03826  M01S03373.tafrec  +++|          SA7    A6+B1
Line S00023 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03827  M02S00023.241l630 ---|          SA6    KILL4       ADD ERROR MESSAGE
Line S00024 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03828  M02S00024.241l630 ---|          SA7    A6+1
03829  M01S03374.tafrec  +++|          EQ     SKD14       DISPLAY ERROR MESSAGE
03830  M01S03375.tafrec  +++|
03831  M01S03376.tafrec  +++| INT3     LT     B2,INT4     IF ALL ID-S DONE
03832  M01S03377.tafrec  +++|          SA4    TREC+B2
03833  M01S03378.tafrec  +++|          MX3    59
03834  M01S03379.tafrec  +++|          BX6    X3*X4       CLEAR RECOVERY BIT
03835  M01S03380.tafrec  +++|          SA6    B3+B2
03836  M01S03381.tafrec  +++|          SB2    B2-B1
03837  M01S03382.tafrec  +++|          EQ     INT3        NEXT ID
03838  M01S03383.tafrec  +++|
03839  M01S03384.tafrec  +++| INT4     SA4    INTE
03840  M01S03385.tafrec  +++|          BX6    X4
03841  M01S03386.tafrec  +++|          BX4    -X0*X7      FIRST WORD OF PARAMETER
03842  M01S03387.tafrec  +++|          LX4    24
03843  M01S03388.tafrec  +++|          LX6    24
03844  M01S03389.tafrec  +++|          LX0    24
03845  M01S03390.tafrec  +++|          BX5    X0*X6
03846  M01S03391.tafrec  +++|          BX5    X4+X5       NEXT TWO CHARACTERS
03847  M01S03392.tafrec  +++|          SA1    INTB-1
03848  M01S03393.tafrec  +++|          BX6    X5          SAVE FOR DAYFILE MESSAGE
03849  M01S03394.tafrec  +++|          SA6    INTG
03850  M01S03395.tafrec  +++|          MX0    42
03851  M01S03396.tafrec  +++|          SB5    KINT+1      DISPLAY BUFFER ADDRESS TO ALTER
03852  M01S03397.tafrec  +++|          SB6    DIS8+1      REPORT FILE BUFFER ADDRESS TO ALTER
03853  M01S03398.tafrec  +++| INT5     SA1    A1+B1
03854  M01S03399.tafrec  +++|          ZR     X1,INT10    IF END OF LIST
03855  M01S03400.tafrec  +++|          BX2    X0*X1
03856  M01S03401.tafrec  +++|          BX2    X5-X2
03857  M01S03402.tafrec  +++|          NZ     X2,INT5     IF NO MATCH
03858  M01S03403.tafrec  +++|          SX2    X1          STATUS  (INITIALIZE OR RECOVER)
03859  M01S03404.tafrec  +++|          SB2    MAXRC-1
03860  M01S03405.tafrec  +++| INT6     LT     B2,INT7     IF ALL ID-S DONE
03861  M01S03406.tafrec  +++|          SA1    B3+B2
03862  M01S03407.tafrec  +++|          SB2    B2-B1
Line S03408 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03863  M02S03408.ns2023  ---|          ZR     X1,INT6     IF NO TRF THIS ID
03864  M01S00184.ns2023  +++|          ZR     X1,INT6     IF NO *CRF* THIS ID
03865  M01S03409.tafrec  +++|          BX6    X1+X2       SET STATUS
03866  M01S03410.tafrec  +++|          SA6    A1
03867  M01S03411.tafrec  +++|          EQ     INT6        NEXT ID
03868  M01S03412.tafrec  +++|
03869  M01S03413.tafrec  +++| INT7     SB2    MAXRC-1
03870  M01S03414.tafrec  +++| INT8     LT     B2,INT9     IF END OF LIST
03871  M01S03415.tafrec  +++|          SA3    INTH+B2
03872  M01S03416.tafrec  +++|          BX6    X3
03873  M01S03417.tafrec  +++|          SA6    TREC+B2
03874  M01S03418.tafrec  +++|          SB2    B2-B1
03875  M01S03419.tafrec  +++|          EQ     INT8        NEXT ENTRY
03876  M01S03420.tafrec  +++|
Line S03421 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03877  M02S03421.241l630 ---| INT9     SA1    INTC
Line S03422 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03878  M02S03422.241l630 ---|          BX6    X1
Line S03423 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03879  M02S03423.241l630 ---|          SA4    INTD
Line S03424 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03880  M02S03424.241l630 ---|          SA2    INTE
Line S03425 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03881  M02S03425.241l630 ---|          LX4    -18
Line S03426 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03882  M02S03426.241l630 ---|          MX0    18
Line S03427 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03883  M02S03427.241l630 ---|          BX5    -X0*X4
Line S03428 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03884  M02S03428.241l630 ---|          BX1    X1+X5
03885  M01S00028.241l630 +++| INT9     SA1    INTD
03886  M01S03429.tafrec  +++|          RJ     SFN         SPACE FILL NAME
03887  M01S03430.tafrec  +++|          SA6    B5          UPDATE *K-DISPLAY*
03888  M01S03431.tafrec  +++|          SA6    B6          UPDATE REPORT
Line S03432 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03889  M02S03432.241l630 ---|          BX5    X0*X4
Line S03433 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03890  M02S03433.241l630 ---|          LX2    -18
Line S03434 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03891  M02S03434.241l630 ---|          BX6    -X0*X2
Line S03435 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03892  M02S03435.241l630 ---|          BX1    X5+X6
Line S03436 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03893  M02S03436.241l630 ---|          RJ     SFN         SPACE FILL NAME
Line S03437 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03894  M02S03437.241l630 ---|          SA6    B6+B1
03895  M01S00029.241l630 +++|          SA1    INTE        SEVENTH CHARACTER OF PARAMETER STRING
03896  M01S00030.241l630 +++|          ZR     X1,INT9.1   IF STRING IS LESS THAN 7 CHARACTERS
03897  M01S00031.241l630 +++|          SA2    B6+B1       *DIS8*+2
03898  M01S00032.241l630 +++|          MX0    -54
03899  M01S00033.241l630 +++|          BX2    -X0*X2
03900  M01S00034.241l630 +++|          BX6    X1+X2
03901  M01S00035.241l630 +++|          SA6    A2+
03902  M01S00036.241l630 +++| INT9.1   RJ     SFN         SPACE FILL FILE NAME
03903  M01S03438.tafrec  +++|          SA6    B5+B1
03904  M01S03439.tafrec  +++|          EQ     SKD1        PROCESS NEXT COMMAND
03905  M01S03440.tafrec  +++|
03906  M01S03441.tafrec  +++| INT10    MX0    -6
03907  M01S03442.tafrec  +++|          SB2    7           MAXIMUM DIGITS IN STRING
03908  M01S03443.tafrec  +++| INT11    EQ     B2,INT12    IF MAXIMUM DIGITS PROCESSED
03909  M01S03444.tafrec  +++|          LX5    6
03910  M01S03445.tafrec  +++|          BX2    -X0*X5      EXTRACT DIGIT
03911  M01S03446.tafrec  +++|          ZR     X2,INT7     IF ALL DIGITS PROCESSED
03912  M01S03447.tafrec  +++|          SX3    X2-1R0
03913  M01S03448.tafrec  +++|          NG     X3,SKD14    IF NOT NUMERIC
03914  M01S03449.tafrec  +++|          SX3    X2-1R8
03915  M01S03450.tafrec  +++|          PL     X3,SKD14    IF NOT OCTAL OR NUMERIC
03916  M01S03451.tafrec  +++|          SX2    X2-1R0      DISPLAY TO BINARY
03917  M01S03452.tafrec  +++|          SB2    B2-B1
03918  M01S03453.tafrec  +++|          SA3    TREC+X2
Line S03454 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03919  M02S03454.ns2023  ---|          ZR     X3,INT11    IF NO TRF FOR THIS ID
03920  M01S00185.ns2023  +++|          ZR     X3,INT11    IF NO *CRF* FOR THIS ID
03921  M01S03455.tafrec  +++|          SX4    IST         INITIALIZE STATUS
03922  M01S03456.tafrec  +++|          BX6    X3+X4
03923  M01S03457.tafrec  +++|          SA6    INTH+X2
03924  M01S03458.tafrec  +++|          EQ     INT11       NEXT DIGIT
03925  M01S03459.tafrec  +++|
03926  M01S03460.tafrec  +++| INT12    LX5    6
03927  M01S03461.tafrec  +++|          BX2    -X0*X5
03928  M01S03462.tafrec  +++|          NZ     X2,SKD14    IF GREATER THAN SEVEN DIGITS
03929  M01S03463.tafrec  +++|          EQ     INT7        MOVE DATA TO BUFFER
03930  M01S03464.tafrec  +++|
03931  M01S03465.tafrec  +++|*         PROCESS CRM.
03932  M01S03466.tafrec  +++|
03933  M01S03467.tafrec  +++| INT13    BX4    -X0*X7
03934  M01S03468.tafrec  +++|          LX4    24          NEXT PARAMETER
03935  M01S03469.tafrec  +++|          SA1    INTB-1
03936  M01S03470.tafrec  +++|          MX0    42
03937  M01S03471.tafrec  +++| INT14    SA1    A1+B1
03938  M01S03472.tafrec  +++|          ZR     X1,SKD14    IF END OF LIST
03939  M01S03473.tafrec  +++|          BX2    X0*X1
03940  M01S03474.tafrec  +++|          BX2    X4-X2
03941  M01S03475.tafrec  +++|          NZ     X2,INT14    IF NO MATCH
03942  M01S03476.tafrec  +++|          SA2    PRSA        FLAG WORD
03943  M01S03477.tafrec  +++|          SX1    X1
03944  M01S03478.tafrec  +++|          LX1    TICRS
03945  M01S03479.tafrec  +++|          MX3    59
03946  M01S03480.tafrec  +++|          LX3    TICRS
03947  M01S03481.tafrec  +++|          BX6    X3*X2       CLEAR CRM RECOVERY BIT
03948  M01S03482.tafrec  +++|          BX6    X6+X1       ADD NEW *CRM* RECOVERY STATUS
03949  M01S03483.tafrec  +++|          SA6    A2
03950  M01S03484.tafrec  +++|          SB5    KINC+1      *K-DISPLAY* BUFFER TO ALTER
03951  M01S03485.tafrec  +++|          SB6    DIS9+1      REPORT BUFFER ADDRESS TO ALTER
03952  M01S03486.tafrec  +++|          EQ     INT9        UPDATE *K-DISPLAY* AND REPORT
03953  M01S03487.tafrec  +++|
03954  M01S03488.tafrec  +++|*         TABLE OF VALID FIRST PARAMETERS.
03955  M01S03489.tafrec  +++|
03956  M01S03490.tafrec  +++| INTA     VFD    42/4LCRF,,18/INT2
03957  M01S03491.tafrec  +++|          VFD    42/4LCRM,,18/INT13
03958  M01S03492.tafrec  +++|          CON    0           TABLE TERMINATOR
03959  M01S03493.tafrec  +++|
03960  M01S03494.tafrec  +++|*         TABLE OF VALID STATIC SECOND PARAMETERS.
03961  M01S03495.tafrec  +++|
03962  M01S03496.tafrec  +++| INTB     VFD    42/0LALL,18/IST
03963  M01S03497.tafrec  +++|          VFD    42/0LNONE,18/RST
03964  M01S03498.tafrec  +++|          CON    0           TABLE TERMINATOR
03965  M01S03499.tafrec  +++|
Line S03500 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03966  M02S03500.241l630 ---| INTC     VFD    60/3L =
03967  M01S03501.tafrec  +++| INTD     CON    0           FIRST TEN CHARACTERS OF PARAMETER
Line S03502 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03968  M02S03502.241l630 ---| INTE     CON    0           NEXT TWO CHARACTERS OF PARAMETER
03969  M01S00037.241l630 +++| INTE     CON    0           LAST CHARACTER OF PARAMETER STRING
03970  M01S03503.tafrec  +++| INTF     DATA   20HRECOVERY DISABLED.
Line S03504 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03971  M02S03504.ns2023  ---| INTG     DATA   4LNONE      P2 FOR P1=*TRF*
03972  M01S00186.ns2023  +++| INTG     DATA   4LNONE      P2 FOR P1 = *CRF*
03973  M01S03505.tafrec  +++| INTH     BSSZ   MAXRC       TEMPORARY BUFFER
03974  M01S03506.tafrec  +++| ERO      SPACE  4,20
03975  M01S03507.tafrec  +++|**        K.ERO=P1,P2.
03976  M01S03508.tafrec  +++|*
Line S03509 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03977  M02S03509.ns2023  ---|*         WHERE  P1 = TRF    COMMAND RELATES TO *TAF* RECOVERY FILE.
03978  M01S00187.ns2023  +++|*         WHERE  P1 = CRF    COMMAND RELATES TO COMMUNICATIONS RECOVERY
03979  M01S03510.tafrec  +++|*                P2 = YES    OVERRIDE FILE ERRORS.
03980  M01S03511.tafrec  +++|*                   = NO     DO NOT OVERRIDE FILE ERRORS.
03981  M01S03512.tafrec  +++|*
03982  M01S03513.tafrec  +++|*         THIS COMMAND PROVIDES THE CAPABILITY TO OVERRIDE I/O OR
Line S03514 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
03983  M02S03514.ns2023  ---|*         LOGICAL ERRORS IN THE TRF RECOVERY UNITS.
03984  M01S00188.ns2023  +++|*         LOGICAL ERRORS IN THE *CRF* RECOVERY UNITS.
03985  M01S03515.tafrec  +++|*
03986  M01S03516.tafrec  +++|*         ENTRY  (X7) = OVERRIDE OPTION.
03987  M01S03517.tafrec  +++|*
03988  M01S03518.tafrec  +++|*         EXIT   TO *SKD1*.  *K-DISPLAY* AND REPORT UPDATED.
03989  M01S03519.tafrec  +++|*                TO *SKD14* IF ERROR IN PARAMETER.
03990  M01S03520.tafrec  +++|*
03991  M01S03521.tafrec  +++|*         USES   X - 0, 1, 2, 4, 6, 7.
03992  M01S03522.tafrec  +++|*                A - 1, 2, 6, 7.
03993  M01S03523.tafrec  +++|*                B - 3, 5, 6.
03994  M01S03524.tafrec  +++|
03995  M01S03525.tafrec  +++|
03996  M01S03526.tafrec  +++| ERO      BSS    0           ENTRY
03997  M01S03527.tafrec  +++|          SA7    EROA        SAVE COMMAND PARAMETERS
03998  M01S03528.tafrec  +++|          MX0    24
03999  M01S03529.tafrec  +++|          BX4    X0*X7       EXTRACT P1
04000  M01S03530.tafrec  +++|          SA1    EROB-1
04001  M01S03531.tafrec  +++| ERO1     SA1    A1+B1       NEXT FILE TYPE
04002  M01S03532.tafrec  +++|          ZR     X1,SKD14    IF END OF LIST
04003  M01S03533.tafrec  +++|          BX2    X0*X1
04004  M01S03534.tafrec  +++|          BX2    X4-X2
04005  M01S03535.tafrec  +++|          NZ     X2,ERO1     IF NO MATCH
04006  M01S03536.tafrec  +++|          SB3    X1
04007  M01S03537.tafrec  +++|          JP     B3          JUMP TO PROCESSOR
04008  M01S03538.tafrec  +++|
Line S03539 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
04009  M02S03539.ns2023  ---|*         PROCESS TRF.
04010  M01S00189.ns2023  +++|*         PROCESS *CRF*.
04011  M01S03540.tafrec  +++|
04012  M01S03541.tafrec  +++| ERO2     SX2    IPTAR
04013  M01S03542.tafrec  +++|          NZ     X2,ERO3     IF AUTOMATIC RECOVERY ENABLED
Line S03543 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04014  M02S03543.241l630 ---|          SA1    EROE
04015  M01S00038.241l630 +++|          SA1    EROD
04016  M01S03544.tafrec  +++|          SA2    A1+B1
04017  M01S03545.tafrec  +++|          BX6    X1
04018  M01S03546.tafrec  +++|          BX7    X2
04019  M01S03547.tafrec  +++|          SA6    KILL1       ADD SPECIFIC ERROR MESSAGE
04020  M01S03548.tafrec  +++|          SA7    A6+B1
Line S00025 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04021  M02S00025.241l630 ---|          SA6    KILL4       ADD ERROR MESSAGE
Line S00026 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04022  M02S00026.241l630 ---|          SA7    A6+1
04023  M01S03549.tafrec  +++|          EQ     SKD14       DISPLAY SPECIFIC ERROR MESSAGE
04024  M01S03550.tafrec  +++|
04025  M01S03551.tafrec  +++| ERO3     BX4    -X0*X7      EXTRACT P2
04026  M01S03552.tafrec  +++|          LX4    24
04027  M01S03553.tafrec  +++|          SA1    EROC-1
04028  M01S03554.tafrec  +++| ERO4     SA1    A1+B1       NEXT OPTION
04029  M01S03555.tafrec  +++|          ZR     X1,SKD14    IF END OF LIST
04030  M01S03556.tafrec  +++|          BX2    X0*X1
04031  M01S03557.tafrec  +++|          BX2    X4-X2
04032  M01S03558.tafrec  +++|          NZ     X2,ERO4     IF NO MATCH
04033  M01S03559.tafrec  +++|          SX6    X1
04034  M01S03560.tafrec  +++|          SA6    OVRD        SET OVERRIDE FLAG
04035  M01S03561.tafrec  +++|          SB5    KERO+1      *K-DISPLAY* BUFFER ADDRESS TO ALTER
04036  M01S03562.tafrec  +++|          SB6    DIS10+1     REPORT FILE BUFFER ADDRESS TO ALTER
04037  M01S03563.tafrec  +++|          SA1    EROA        GET COMMAND PARAMETERS
Line S03564 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04038  M02S03564.241l630 ---|          LX1    -18
Line S03565 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04039  M02S03565.241l630 ---|          SA2    EROD
Line S03566 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04040  M02S03566.241l630 ---|          BX6    X2+X1
Line S03567 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04041  M02S03567.241l630 ---|          SA6    B5          UPDATE *K-DISPLAY*
04042  M01S00039.241l630 +++|          BX6    X1
04043  M01S00040.241l630 +++|          SA6    B5+         UPDATE *K-DISPLAY*
04044  M01S03568.tafrec  +++|          SA6    B6          UPDATE REPORT
04045  M01S03569.tafrec  +++|          EQ     SKD1        PROCESS NEXT COMMAND
04046  M01S03570.tafrec  +++|
04047  M01S03571.tafrec  +++| EROA     CON    0           COMMAND PARAMETERS
04048  M01S03572.tafrec  +++|
04049  M01S03573.tafrec  +++|*         TABLE OF VALID FIRST PARAMETERS.
04050  M01S03574.tafrec  +++|
04051  M01S03575.tafrec  +++| EROB     VFD    42/4LCRF,,18/ERO2
04052  M01S03576.tafrec  +++|          CON    0           TABLE TERMINATOR
04053  M01S03577.tafrec  +++|
Line S03578 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
04054  M02S03578.ns2023  ---|*         TABLE OF VALID SECOND PARAMETERS FOR P1=TRF.
04055  M01S00190.ns2023  +++|*         TABLE OF VALID SECOND PARAMETERS FOR P1 = *CRF*.
04056  M01S03579.tafrec  +++|
04057  M01S03580.tafrec  +++| EROC     VFD    42/0LYES,18/1
04058  M01S03581.tafrec  +++|          VFD    42/0LNO,18/0
04059  M01S03582.tafrec  +++|          CON    0           TABLE TERMINATOR
04060  M01S03583.tafrec  +++|
Line S03584 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04061  M02S03584.241l630 ---| EROD     VFD    60/3L =
Line S03585 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04062  M02S03585.241l630 ---| EROE     DATA   20HRECOVERY DISABLED.
04063  M01S00041.241l630 +++| EROD     DATA   20HRECOVERY DISABLED.
04064  M01S03586.tafrec  +++|          TITLE  DISPLAY FORMATS.
04065  M01S03587.tafrec  +++| BFL      SPACE  4,15
04066  M01S03588.tafrec  +++|***       K.BFL=N.
04067  M01S03589.tafrec  +++|*
04068  M01S03590.tafrec  +++|*         CHANGE THE BASE FL FOR CMM.
04069  M01S03591.tafrec  +++|*
Line S03592 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2157
Seq #  *Modification Id* Act 
----------------------------+
04070  M02S03592.ns2157  ---|*         EXIT   (VCMM) = 24/0,18/CMM EFL,18/CMM BASE FL.
04071  M01S00027.ns2157  +++|*         EXIT   (VCMM) = 6/0,18/CMMTFL,18/CMMEFL,18/CMMBFL.
04072  M01S00028.ns2157  +++|*                TO *SKD1* TO PROCESS NEXT INPUT.
04073  M01S03593.tafrec  +++|*
04074  M01S03594.tafrec  +++|*         USES   A - 1, 2, 6, 7.
04075  M01S03595.tafrec  +++|*                B - 2, 3, 7.
04076  M01S03596.tafrec  +++|*                X - ALL.
04077  M01S03597.tafrec  +++|*
04078  M01S03598.tafrec  +++|*         CALLS  COD, DXB, UKD.
04079  M01S03599.tafrec  +++|
04080  M01S03600.tafrec  +++|
04081  M01S03601.tafrec  +++| BFL      BSS    0           ENTRY
04082  M01S03602.tafrec  +++|          BX5    X7
04083  M01S03603.tafrec  +++|          SB7    B0          ASSUME OCTAL CONVERSION
04084  M01S03604.tafrec  +++|          RJ     DXB         CONVERT TO BINARY
04085  M01S03605.tafrec  +++|          SB7    5
04086  M01S03606.tafrec  +++|          NZ     X4,SKD14    IF ERROR IN NUMBER
04087  M01S03607.tafrec  +++|          SX2    X6-MINCMM
04088  M01S03608.tafrec  +++|          NG     X2,SKD14    IF LESS THAN MINIMUM
04089  M01S03609.tafrec  +++|          SX4    MAXCMM
04090  M01S03610.tafrec  +++|          IX2    X4-X6
04091  M01S03611.tafrec  +++|          BX1    X6
04092  M01S03612.tafrec  +++|          NG     X2,SKD14    IF GREATER THAN MAXIMUM
04093  M01S03613.tafrec  +++|          SA2    VCMM        UPDATE BASE CMM FL
04094  M01S03614.tafrec  +++|          MX0    42
04095  M01S03615.tafrec  +++|          BX2    X0*X2
04096  M01S03616.tafrec  +++|          BX6    X2+X6       ADD NEW BASE CMM FL
04097  M01S03617.tafrec  +++|          SA6    A2
04098  M01S03618.tafrec  +++|          RJ     COD         CONVERT OCTAL TO DISPLAY
04099  M01S03619.tafrec  +++|          SA2    KBFL+1      *BFL* WORD IN DISPLAY
04100  M01S03620.tafrec  +++|          SB5    DIS11+1     UPDATE REPORT
04101  M01S03621.tafrec  +++|          SX3    1RB         ADD *B*
04102  M01S03622.tafrec  +++|          SB6    B0
04103  M01S03623.tafrec  +++|          RJ     UKD         UPDATE THE *K-DISPLAY* AND REPORT
04104  M01S03624.tafrec  +++|          EQ     SKD1        PROCESS NEXT INPUT
04105  M01S03625.tafrec  +++| EFL      SPACE  4,15
04106  M01S03626.tafrec  +++|***       K.EFL=N.
04107  M01S03627.tafrec  +++|*
04108  M01S03628.tafrec  +++|*         CHANGE THE EXPANDABLE FL FOR CMM.
04109  M01S03629.tafrec  +++|*
Line S03630 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2157
Seq #  *Modification Id* Act 
----------------------------+
04110  M02S03630.ns2157  ---|*         EXIT   (VCMM) = 24/0,18/CMM EFL,18/CMM BASE FL.
04111  M01S00029.ns2157  +++|*         EXIT   (VCMM) = 6/0,18/CMMTFL,18/CMMEFL,18/CMMBFL.
04112  M01S00030.ns2157  +++|*                TO *SKD1* TO PROCESS NEXT INPUT.
04113  M01S03631.tafrec  +++|*
04114  M01S03632.tafrec  +++|*         USES   A - 1, 2, 6, 7.
04115  M01S03633.tafrec  +++|*                B - 2, 3, 7.
04116  M01S03634.tafrec  +++|*                X - ALL.
04117  M01S03635.tafrec  +++|*
04118  M01S03636.tafrec  +++|*         CALLS  COD, DXB, UKD.
04119  M01S03637.tafrec  +++|
04120  M01S03638.tafrec  +++|
04121  M01S03639.tafrec  +++| EFL      BSS    0           ENTRY
04122  M01S03640.tafrec  +++|          BX5    X7
04123  M01S03641.tafrec  +++|          SB7    B0          ASSUME OCTAL CONVERSION
04124  M01S03642.tafrec  +++|          RJ     DXB         CONVERT TO BINARY
04125  M01S03643.tafrec  +++|          SB7    5
04126  M01S03644.tafrec  +++|          NZ     X4,SKD14    IF ERROR IN NUMBER
04127  M01S03645.tafrec  +++|          NG     X2,SKD14    IF LESS THAN MINIMUM
04128  M01S03646.tafrec  +++|          SX4    MAXCME
04129  M01S03647.tafrec  +++|          IX2    X4-X6
04130  M01S03648.tafrec  +++|          BX1    X6
04131  M01S03649.tafrec  +++|          NG     X2,SKD14    IF GREATER THAN MAXIMUM
04132  M01S03650.tafrec  +++|          SA2    VCMM        UPDATE BASE CMM FL
Line S03651 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2157
Seq #  *Modification Id* Act 
----------------------------+
04133  M02S03651.ns2157  ---|          SX0    X2
04134  M01S00031.ns2157  +++|          MX0    42
04135  M01S00032.ns2157  +++|          LX0    18
04136  M01S00033.ns2157  +++|          BX0    X0*X2
04137  M01S03652.tafrec  +++|          LX6    18
04138  M01S03653.tafrec  +++|          BX6    X0+X6       ADD NEW EXPANDABLE CMM FL
04139  M01S03654.tafrec  +++|          SA6    A2
04140  M01S03655.tafrec  +++|          RJ     COD         CONVERT OCTAL TO DISPLAY
04141  M01S03656.tafrec  +++|          SA2    KEFL+1      *EFL* WORD IN DISPLAY
04142  M01S03657.tafrec  +++|          SX3    1RB         ADD *B*
04143  M01S03658.tafrec  +++|          SB5    DIS12+1     UPDATE  REPORT
04144  M01S03659.tafrec  +++|          SB6    B0
04145  M01S03660.tafrec  +++|          RJ     UKD         UPDATE THE *K-DISPLAY* AND REPORT
04146  M01S03661.tafrec  +++|          EQ     SKD1        PROCESS NEXT INPUT
04147  M01S00034.ns2157  +++| TFL      SPACE  4,15
04148  M01S00035.ns2157  +++|***       K.TFL=N.
04149  M01S00036.ns2157  +++|*
04150  M01S00037.ns2157  +++|*         CHANGE THE TARGET FL FOR CMM.
04151  M01S00038.ns2157  +++|*
04152  M01S00039.ns2157  +++|*         EXIT   (VCMM) = 6/0,18/CMMTFL,18/CMMEFL,18/CMMBFL.
04153  M01S00040.ns2157  +++|*                TO *SKD1* TO PROCESS NEXT INPUT.
04154  M01S00041.ns2157  +++|*
04155  M01S00042.ns2157  +++|*         USES   X - ALL.
04156  M01S00043.ns2157  +++|*                A - 1, 2, 6, 7.
04157  M01S00044.ns2157  +++|*                B - 2, 3, 7.
04158  M01S00045.ns2157  +++|*
04159  M01S00046.ns2157  +++|*         CALLS  COD, DXB, UKD.
04160  M01S00047.ns2157  +++|
04161  M01S00048.ns2157  +++|
04162  M01S00049.ns2157  +++| TFL      BSS    0           ENTRY
04163  M01S00050.ns2157  +++|          BX5    X7
04164  M01S00051.ns2157  +++|          SB7    B0          ASSUME OCTAL CONVERSION
04165  M01S00052.ns2157  +++|          RJ     DXB         CONVERT TO BINARY
04166  M01S00053.ns2157  +++|          SB7    5
04167  M01S00054.ns2157  +++|          NZ     X4,SKD14    IF ERROR IN NUMBER
04168  M01S00055.ns2157  +++|          SX4    MINCMT
04169  M01S00056.ns2157  +++|          IX2    X6-X4
04170  M01S00057.ns2157  +++|          NG     X2,SKD14    IF LESS THAN MINIMUM
04171  M01S00058.ns2157  +++|          SX4    MAXCMT
04172  M01S00059.ns2157  +++|          IX2    X4-X6
04173  M01S00060.ns2157  +++|          BX1    X6
04174  M01S00061.ns2157  +++|          NG     X2,SKD14    IF GREATER THAN MAXIMUM
04175  M01S00062.ns2157  +++|          SA2    VCMM        UPDATE TARGET CMM FL
04176  M01S00063.ns2157  +++|          MX0    -36
04177  M01S00064.ns2157  +++|          LX6    36
04178  M01S00065.ns2157  +++|          BX0    -X0*X2
04179  M01S00066.ns2157  +++|          BX6    X0+X6
04180  M01S00067.ns2157  +++|          SA6    A2
04181  M01S00068.ns2157  +++|          RJ     COD         CONVERT OCTAL TO DISPLAY
04182  M01S00069.ns2157  +++|          SA2    KTFL+1      *TFL* WORD IN DISPLAY
04183  M01S00070.ns2157  +++|          SX3    1RB         ADD *B*
04184  M01S00071.ns2157  +++|          SB5    DIS13+1     UPDATE REPORT
04185  M01S00072.ns2157  +++|          SB6    B0
04186  M01S00073.ns2157  +++|          RJ     UKD         UPDATE THE *K-DISPLAY* AND REPORT
04187  M01S00074.ns2157  +++|          EQ     SKD1        PROCESS NEXT INPUT
04188  M01S03662.tafrec  +++| STP      SPACE  4,10
04189  M01S03663.tafrec  +++|***       K.STOP.
04190  M01S03664.tafrec  +++|*
04191  M01S03665.tafrec  +++|*         PROCESS *K.STOP* COMMAND.
04192  M01S03666.tafrec  +++|*
04193  M01S03667.tafrec  +++|*         EXIT   (B5) = ADDRESS OF MESSAGE.
04194  M01S03668.tafrec  +++|*                EXIT TO ERR SUBROUTINE TO ABORT *TAFREC*.
04195  M01S03669.tafrec  +++|*
04196  M01S03670.tafrec  +++|*         USES   B - 5.
04197  M01S03671.tafrec  +++|
04198  M01S03672.tafrec  +++|
04199  M01S03673.tafrec  +++| STP      BSS    0           ENTRY
04200  M01S03674.tafrec  +++|          SA2    KCOF        COMMAND ORIGIN
04201  M01S03675.tafrec  +++|          NZ     X2,STP1     IF NOT CONSOLE ORIGIN
04202  M01S03676.tafrec  +++|          CONSOLE  SKDB      TURN OFF *K-DISPLAY*
04203  M01S03677.tafrec  +++| STP1     SB5    STPA        *OPERATOR TERMINATION.*
04204  M01S03678.tafrec  +++|          EQ     ERR         ABORT
04205  M01S03679.tafrec  +++|
04206  M01S03680.tafrec  +++| STPA     DATA   C* OPERATOR TERMINATION.*
Line S00075 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04207  M02S00075.241l630 ---| PAG      SPACE  4,10
Line S00076 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04208  M02S00076.241l630 ---|***       K.+.
Line S00077 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04209  M02S00077.241l630 ---|*
Line S00078 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04210  M02S00078.241l630 ---|*         PAGE THE K-DISPLAY.
Line S00079 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04211  M02S00079.241l630 ---|*
Line S00080 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04212  M02S00080.241l630 ---|*         EXIT - *K-DISPLAY* ADVANCED TO NEXT PAGE.
Line S00081 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04213  M02S00081.241l630 ---|*
Line S00082 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04214  M02S00082.241l630 ---|*         USES   X - 0, 1, 3, 6.
Line S00083 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04215  M02S00083.241l630 ---|*                A - 1, 3, 6.
Line S00084 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04216  M02S00084.241l630 ---|*
Line S00085 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04217  M02S00085.241l630 ---|*         MACRO  CONSOLE.
Line S00086 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04218  M02S00086.241l630 ---|
Line S00087 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04219  M02S00087.241l630 ---|
Line S00088 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04220  M02S00088.241l630 ---| PAG      BSS    0           ENTRY
Line S00089 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04221  M02S00089.241l630 ---|          SA1    KCOF        COMMAND ORIGIN
Line S00090 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04222  M02S00090.241l630 ---|          NZ     X1,SKD1     IF NOT CONSOLE ORIGIN, RETURN
Line S00091 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04223  M02S00091.241l630 ---|          MX0    42
Line S00092 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04224  M02S00092.241l630 ---|          SA3    KCTRL
Line S00093 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04225  M02S00093.241l630 ---|          BX6    X0*X3
Line S00094 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04226  M02S00094.241l630 ---|          BX0    -X0*X3      CURRENT PAGE
Line S00095 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04227  M02S00095.241l630 ---|          SA1    PAGA
Line S00096 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04228  M02S00096.241l630 ---|          BX3    X1-X0
Line S00097 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04229  M02S00097.241l630 ---|          NZ     X3,PAG1     IF NOT INITIAL PAGE
Line S00098 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04230  M02S00098.241l630 ---|          SA1    A1+1
Line S00099 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04231  M02S00099.241l630 ---| PAG1     BX6    X6+X1
Line S00100 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04232  M02S00100.241l630 ---|          SA6    A3
Line S00101 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04233  M02S00101.241l630 ---|          CONSOLE  KCTRL     PAGE K-DISPLAY
Line S00102 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04234  M02S00102.241l630 ---|          EQ     SKD1        RETURN
Line S00103 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04235  M02S00103.241l630 ---|
Line S00104 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04236  M02S00104.241l630 ---|
Line S00105 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04237  M02S00105.241l630 ---| PAGA     CON    KDIS        PAGE 1
Line S00106 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04238  M02S00106.241l630 ---|          CON    SDIS        PAGE 2
04239  M01S03681.tafrec  +++| UKD      SPACE 4,15
04240  M01S03682.tafrec  +++|**        UKD    UPDATE THE *K-DISPLAY* AND REPORT.
04241  M01S03683.tafrec  +++|*
04242  M01S03684.tafrec  +++|*         ENTRY  (X2) = DISPLAY WORD.
04243  M01S03685.tafrec  +++|*                (X3) = INSERT CHARACTER, IF (B6).EQ.0.
04244  M01S03686.tafrec  +++|*                (X4) = DISPLAY CODE CONVERSION LEFT JUSTIFIED.
04245  M01S03687.tafrec  +++|*                (A2) = ADDRESS OF WORD IN DISPLAY.
04246  M01S03688.tafrec  +++|*                (B2) = 6*COUNT OF DIGITS CONVERTED.
04247  M01S03689.tafrec  +++|*                (B5) = ADDRESS OF THE DISPLAY WORD.
04248  M01S03690.tafrec  +++|*                (B6) = 1 IF WORD ALREADY PARTIALLY FORMATTED.
04249  M01S03691.tafrec  +++|*                     = 0 IF WORD NOT FORMATTED.
04250  M01S03692.tafrec  +++|*
04251  M01S03693.tafrec  +++|*         EXIT   *K-DISPLAY* AND REPORT UPDATED.
04252  M01S03694.tafrec  +++|*
04253  M01S03695.tafrec  +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
Line S03696 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04254  M02S03696.241l630 ---|*                A - 2, 7.
04255  M01S00042.241l630 +++|*                A - 7.
04256  M01S03697.tafrec  +++|*                B - 2, 3, 4.
04257  M01S03698.tafrec  +++|
04258  M01S03699.tafrec  +++|
04259  M01S03700.tafrec  +++| UKD      SUBR
04260  M01S03701.tafrec  +++|          NZ     B6,UKD1     IF PARTIALLY FORMATTED
04261  M01S03702.tafrec  +++|          MX5    1
04262  M01S03703.tafrec  +++|          SB3    B2-B1
04263  M01S03704.tafrec  +++|          SB4    B3+6
04264  M01S03705.tafrec  +++|          AX6    X5,B3       MASK FOR NUMBER
04265  M01S03706.tafrec  +++|          AX5    X5,B4       MASK FOR BLANKS LESS ONE
04266  M01S03707.tafrec  +++|          SB2    -B2
04267  M01S03708.tafrec  +++|          SB4    54+B2       SHIFT COUNT TO POSITION THE CHARACTER
04268  M01S03709.tafrec  +++|          LX3    X3,B4
04269  M01S03710.tafrec  +++|          BX1    X6*X4       NUMBER
04270  M01S03711.tafrec  +++|          IX1    X1+X3       ADD CHARACTER
04271  M01S03712.tafrec  +++|          BX2    -X5*X4
04272  M01S03713.tafrec  +++|          BX4    X1+X2       ADD IN BLANKS
Line S03714 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04273  M02S03714.241l630 ---| UKD1     MX3    18
Line S03715 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04274  M02S03715.241l630 ---|          SA2    A2
Line S03716 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04275  M02S03716.241l630 ---|          BX2    X3*X2
Line S03717 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04276  M02S03717.241l630 ---|          LX4    -18         POSITION NUMBER THREE RIGHT
Line S03718 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04277  M02S03718.241l630 ---|          BX7    -X3*X4      MASK OUT UPPER THREE CHARACTERS
Line S03719 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04278  M02S03719.241l630 ---|          IX7    X7+X2
04279  M01S00043.241l630 +++| UKD1     BX7    X4
04280  M01S03720.tafrec  +++|          SA7    A2          UPDATE *K-DISPLAY*
Line S03721 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04281  M02S03721.241l630 ---|          SA7    B5          UPDATE REPORT
04282  M01S00044.241l630 +++|          SA7    B5+         UPDATE REPORT
04283  M01S03722.tafrec  +++|          EQ     UKDX        RETURN
04284  M01S03723.tafrec  +++|          SPACE  4,10
04285  M01S03724.tafrec  +++|*         DEFINE INITIAL *K-DISPLAY* BY MICROS.
04286  M01S03725.tafrec  +++|
04287  M01S03726.tafrec  +++|
04288  M01S03727.tafrec  +++| HHED     MICRO  1,,*TRANSACTION EXECUTIVE INITIALIZATION OPTIONS*
Line S00107 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04289  M02S00107.241l630 ---| HHEC     MICRO  1,,*TAF INITIALIZATION OPTIONS.          PAGE 1 OF 2.*
Line S03728 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04290  M02S03728.241l630 ---| HSCP     MICRO  1,,*SUB CONTROL POINTS         RANGE IS "MINSCPM" - "MA
Line S03729 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04291  M02S03729.241l630 ---|,XSCPM"*
Line S03730 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04292  M02S03730.241l630 ---| MSCP     MICRO  1,,*   SCP = "NSCPM"     *
Line S03731 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04293  M02S03731.241l630 ---| HCMB     MICRO  1,,*COMMUNICATION BLOCKS       RANGE IS "MINCMBM" - "MA
Line S03732 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04294  M02S03732.241l630 ---|,XCMBM"*
Line S03733 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04295  M02S03733.241l630 ---| MCMB     MICRO  1,,*   CMB = "NCMBM"     *
Line S03734 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04296  M02S03734.241l630 ---| HREC     MICRO  1,,*RECOVERY MODE              VALUE IS YES OR NO*
Line S03735 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04297  M02S03735.241l630 ---| MREC     MICRO  1,,*   REC = NO     *
Line S03736 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04298  M02S03736.241l630 ---| HMFL     MICRO  1,,*MAXIMUM FIELD LENGTH       RANGE IS "MINMFLM"B - "M
Line S03737 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04299  M02S03737.241l630 ---|,AXMFLM"B*
Line S03738 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04300  M02S03738.241l630 ---| MMFL     MICRO  1,,*   MFL = "SCMFLM"B *
Line S03739 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04301  M02S03739.241l630 ---| HECS     MICRO  1,,*ECS FIELD LENGTH           RANGE IS "MINECSM"K - "M
Line S03740 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04302  M02S03740.241l630 ---|,AXECSM"K*
Line S03741 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04303  M02S03741.241l630 ---| MECS     MICRO  1,,*   ECS = "ECSFLM"K     *
Line S03742 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04304  M02S03742.241l630 ---| HTLF     MICRO  1,,*TASK LIBRARY FILE          ANY LEGAL FILE NAME*
Line S03743 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04305  M02S03743.241l630 ---| MTLF     MICRO  1,,*   TLF = "TLFM"*
Line S03744 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04306  M02S03744.241l630 ---| HINT     MICRO  1,,*INITIALIZE FILE            VALUE IS NONE,ALL OR 1-7
Line S03745 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04307  M02S03745.241l630 ---|, DIGITS*
Line S03746 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04308  M02S03746.241l630 ---| MINT     MICRO  1,,*   INT = CRF,NONE        *
Line S03747 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04309  M02S03747.241l630 ---| MINC     MICRO  1,,*       = CRM,NONE        *
Line S03748 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04310  M02S03748.241l630 ---| HERO     MICRO  1,,*ERROR OVERRIDE             VALUE IS YES OR NO*
Line S03749 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04311  M02S03749.241l630 ---| MERO     MICRO  1,,*   ERO = CRF,NO *
Line S00108 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04312  M02S00108.241l630 ---| HHEF     MICRO  1,,*TAF INITIALIZATION OPTIONS.          PAGE 2 OF 2.*
Line S03750 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04313  M02S03750.241l630 ---| HBFL     MICRO  1,,*CMM BASE FL                RANGE IS "MINCMMM"B
Line S03751 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04314  M02S03751.241l630 ---|,-  "MAXCMMM"B*
Line S03752 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04315  M02S03752.241l630 ---| MBFL     MICRO  1,,*   BFL = "CMMBFLM"B*
Line S03753 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04316  M02S03753.241l630 ---| HEFL     MICRO  1,,*CMM EXPANDABLE FL          RANGE IS 0 - "MAXCMEM"B*
Line S03754 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04317  M02S03754.241l630 ---| MEFL     MICRO  1,,*   EFL = "CMMEFLM"B*
Line S00109 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04318  M02S00109.241l630 ---| HTFL     MICRO  1,,*CMM TARGET FL              RANGE IS "MINTMEM" - "MA
Line S00110 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04319  M02S00110.241l630 ---|,XTMEM"B*
Line S00111 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04320  M02S00111.241l630 ---| MTFL     MICRO  1,,*   TFL = "CMMTFLM"B*
04321  M01S00045.241l630 +++| HHEC     MICRO  1,,*TAF INITIALIZATION OPTIONS*
04322  M01S00046.241l630 +++| HOPD     MICRO  1,,*OPTION                         DESCRIPTION*
04323  M01S00047.241l630 +++| MSCP     MICRO  1,17,*SCP = "NSCPM"          *
04324  M01S00048.241l630 +++| HSCP     MICRO  1,,*SUB CONTROL POINTS ("MINSCPM" - "MAXSCPM").*
04325  M01S00049.241l630 +++| MCMB     MICRO  1,17,*CMB = "NCMBM"         *
04326  M01S00050.241l630 +++| HCMB     MICRO  1,,*COMMUNICATION BLOCKS ("MINCMBM" - "MAXCMBM").*
04327  M01S00051.241l630 +++| MREC     MICRO  1,,*REC = NO         *
04328  M01S00052.241l630 +++| HREC     MICRO  1,,*RECOVERY MODE (YES OR NO).*
04329  M01S00053.241l630 +++| MMFL     MICRO  1,17,*MFL = "SCMFLM"B     *
04330  M01S00054.241l630 +++| HMFL     MICRO  1,,*MAXIMUM FIELD LENGTH ("MINMFLM"B - "MAXMFLM"B).*
04331  M01S00055.241l630 +++| MECS     MICRO  1,17,*ECS = "ECSFLM"K         *
04332  M01S00056.241l630 +++| HECS     MICRO  1,,*EXTENDED MEMORY FIELD LENGTH ("MINECSM"K - "MAXECSM
04333  M01S00057.241l630 +++|,"K).*
04334  M01S00058.241l630 +++| MTLF     MICRO  1,17,*TLF = "TLFM"          *
04335  M01S00059.241l630 +++| HTLF     MICRO  1,,*TASK LIBRARY FILE (1-7 CHARACTERS).*
04336  M01S00060.241l630 +++| MINT     MICRO  1,,*INT = CRF,NONE   *
04337  M01S00061.241l630 +++| HINT     MICRO  1,,*INITIALIZE CRF RECOVERY FILES [NONE,ALL OR*
04338  M01S00062.241l630 +++| AINT     MICRO  1,,*1-7 DIGITS].*
04339  M01S00063.241l630 +++| MINC     MICRO  1,,*INT = CRM,NONE   *
04340  M01S00064.241l630 +++| HINC     MICRO  1,,*INITIALIZE CRM RECOVERY FILES (NONE OR ALL).*
04341  M01S00065.241l630 +++| MERO     MICRO  1,,*ERO = CRF,NO     *
04342  M01S00066.241l630 +++| HERO     MICRO  1,,*ERROR OVERRIDE (YES OR NO).*
04343  M01S00067.241l630 +++| MBFL     MICRO  1,17,*BFL = "CMMBFLM"B     *
04344  M01S00068.241l630 +++| HBFL     MICRO  1,,*CMM BASE FL ("MINCMMM"B - "MAXCMMM"B).*
04345  M01S00069.241l630 +++| MEFL     MICRO  1,17,*EFL = "CMMEFLM"B         *
04346  M01S00070.241l630 +++| HEFL     MICRO  1,,*CMM EXPANDABLE FL (0 - "MAXCMEM"B).*
04347  M01S00071.241l630 +++| MTFL     MICRO  1,17,*TFL = "CMMTFLM"B     *
04348  M01S00072.241l630 +++| HTFL     MICRO  1,,*CMM TARGET FL ("MINTMEM"B - "MAXTMEM"B).*
04349  M01S03755.tafrec  +++|          SPACE  4,10
04350  M01S03756.tafrec  +++|*         *K-DISPLAY* BUFFER FOR THE OPERATOR CONSOLE.
04351  M01S03757.tafrec  +++|
04352  M01S03758.tafrec  +++|
04353  M01S03759.tafrec  +++| KCTRL    VFD    24/KBUF,18/0,18/KDIS
Line S03760 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04354  M02S03760.241l630 ---| KBUF     BSS    8           KEYBOARD BUFFER
04355  M01S00073.241l630 +++| KBUF     BSS    5           KEYBOARD BUFFER
04356  M01S00074.241l630 +++|          DATA   1L.         ALLOW COMMANDS WITHOUT TERMINATOR
04357  M01S03761.tafrec  +++| KDIS     VFD    12/0,36/0,12/2
Line S03762 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2157
Seq #  *Modification Id* Act 
----------------------------+
04358  M02S03762.ns2157  ---|          DSL    5,6,("HHED")
Line S00112 Modification History
M01 (Added by) ns2157
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04359  M02S00112.241l630 ---|          DSL    5,6,("HHEC")
Line S03763 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04360  M02S03763.241l630 ---|          DSL    0,10,("HSCP")
Line S03764 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04361  M02S03764.241l630 ---| KSCP     DSL    0,11,("MSCP")
Line S03765 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04362  M02S03765.241l630 ---|          DSL    0,13,("HCMB")
Line S03766 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04363  M02S03766.241l630 ---| KCMB     DSL    0,14,("MCMB")
Line S03767 Modification History
M01 (Added by) tafrec
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04364  M02S03767.241l630 ---|          DSL    0,16,("HREC")
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/tafrec.002.txt ยท Last modified: by 127.0.0.1