0 Modifications

Seq #  *Modification Id* Act 
----------------------------+
02149  M01S02004.callfas +++|          LDD    PC
02150  M01S02005.callfas +++|          NJN    CBSX        IF NOT HEADER
02151  M01S02006.callfas +++|          LDM    STEC
02152  M01S02007.callfas +++|          LMN    2
02153  M01S02008.callfas +++|          NJN    CBSX        IF NOT BUSY ERROR
02154  M01S02009.callfas +++|          SOM    CBSA
02155  M01S02010.callfas +++|          NJN    CBS1        IF NOT RETRY LIMIT
02156  M01S02011.callfas +++|          LDN    1           FLAG NO RETRY
02157  M01S02012.callfas +++|          UJN    CBSX        RETURN
02158  M01S02013.callfas +++|
02159  M01S02014.callfas +++| CBS1     RJM    REL         RELEASE CHANNEL
02160  M01S02015.callfas +++|          RJM    BDL         BUSY DELAY
02161  M01S02016.callfas +++|          RJM    RES         RESERVE CHANNEL
02162  M01S02017.callfas +++|          LDN    0           FLAG RETRY
02163  M01S02018.callfas +++|          UJN    CBSX        RETURN
02164  M01S02019.callfas +++|
02165  M01S02020.callfas +++|
02166  M01S02021.callfas +++| CBSA     CON    BRTL        RETRY COUNTER
02167  M01S02022.callfas +++|          TITLE  GENERAL SUBROUTINES.
02168  M01S02023.callfas +++| CFL      SPACE  4,15
02169  M01S02024.callfas +++|**        CFL - CHECK FIELD LENGTH.
02170  M01S02025.callfas +++|*
02171  M01S02026.callfas +++|*         ENTRY  (A) = RELATIVE ADDRESS TO BE ACCESSED.
02172  M01S02027.callfas +++|*                (RA) = CURRENT REFERENCE ADDRESS.
02173  M01S02028.callfas +++|*                (FL) = CURRENT FIELD LENGTH.
02174  M01S02029.callfas +++|*
02175  M01S02030.callfas +++|*         EXIT   (A) = RELATIVE + REFERENCE ADDRESS.
02176  M01S02031.callfas +++|*
02177  M01S02032.callfas +++|*         CALLS  DFM.
02178  M01S02033.callfas +++|*
02179  M01S02034.callfas +++|*         USES   NONE
02180  M01S02035.callfas +++|
02181  M01S02036.callfas +++|
02182  M01S02037.callfas +++|
02183  M01S02038.callfas +++| CFL3     SHN    15          REPOSITION TO VALUE/100
02184  M01S02039.callfas +++|          ADD    FL          RESTORE VALUE
02185  M01S02040.callfas +++|          ADD    RA          ADD RA
02186  M01S02041.callfas +++|          SHN    6           REPOSITION VALUE
02187  M01S02042.callfas +++|
02188  M01S02043.callfas +++| CFL      SUBR               ENTRY/EXIT
02189  M01S02044.callfas +++|          SBN    2
02190  M01S02045.callfas +++|          MJN    CFL1        IF ADDRESS TOO SMALL
02191  M01S02046.callfas +++|          ADN    2
02192  M01S02047.callfas +++|          SHN    21
02193  M01S02048.callfas +++|          MJN    CFL2        IF VALUE ODD
02194  M01S02049.callfas +++|          SHN    15          POSITION TO VALUE/100B
02195  M01S02050.callfas +++|          SBD    FL
02196  M01S02051.callfas +++|          SHN    5
02197  M01S02052.callfas +++|          MJN    CFL3        IF VALUE IN RANGE
02198  M01S02053.callfas +++| CFL1     LDC    CFLA
02199  M01S02054.callfas +++|          RJM    DFM         OUTPUT MESSAGE
02200  M01S02055.callfas +++|          RJM    REL         RELEASE CHANNEL
02201  M01S02056.callfas +++|          MONITOR HNGM       HANG PPU
02202  M01S02057.callfas +++|          LJM    DPP1        DROP PP
02203  M01S02058.callfas +++|
02204  M01S02059.callfas +++| CFL2     SHN    15          POSITION TO VALUE/100B
02205  M01S02060.callfas +++|          SBD    FL
02206  M01S02061.callfas +++|          SHN    5
02207  M01S02062.callfas +++|          MJN    CFL1        IF VALUE TO BIG (OR NEGATIVE)
02208  M01S02063.callfas +++|          UJN    CFL3        SET RA
02209  M01S02064.callfas +++|
02210  M01S02065.callfas +++| CFLA     DATA   C*1SS ABT.*
02211  M01S02066.callfas +++| CFS      SPACE  4,10
02212  M01S02067.callfas +++|**        CFS - CHECK FULL STRIPE.
02213  M01S02068.callfas +++|*
02214  M01S02069.callfas +++|*         ENTRY  BUFFER POINTERS INITIALIZED.
02215  M01S02070.callfas +++|*
02216  M01S02071.callfas +++|*         EXIT   FULL STRIPE + 1 PRU OR EOI IN BUFFER.
02217  M01S02072.callfas +++|*
02218  M01S02073.callfas +++|*         CALLS  COB, DV5, RCL.
02219  M01S02074.callfas +++|*
02220  M01S02075.callfas +++|*         USES   T3, CM - CM+4, PC, WC.
02221  M01S02076.callfas +++|
02222  M01S02077.callfas +++|
02223  M01S02078.callfas +++| CFS1     LDC    **          RESTORE ORIGINAL OUT POINTER
02224  M01S02079.callfas +++| CFSA     EQU    *-1
02225  M01S02080.callfas +++|          STD    OT+1
02226  M01S02081.callfas +++|          SHN    -14
02227  M01S02082.callfas +++|          STD    OT
02228  M01S02083.callfas +++|          LDN    0
02229  M01S02084.callfas +++|          STD    PC          RESET PRU COUNT
02230  M01S02085.callfas +++|
02231  M01S02086.callfas +++| CFS      SUBR               ENTRY/EXIT
02232  M01S02087.callfas +++|          LDD    OT+1        SAVE OUT POINTER
02233  M01S02088.callfas +++|          STM    CFSA
02234  M01S02089.callfas +++|          LDM    CFSA-1
02235  M01S02090.callfas +++|          SCN    77
02236  M01S02091.callfas +++|          ADD    OT
02237  M01S02092.callfas +++|          STM    CFSA-1
02238  M01S02093.callfas +++|          LDN    0
02239  M01S02094.callfas +++|          STD    PC          INITIALIZE PRU COUNT
02240  M01S02095.callfas +++|          STD    RC          INITIALIZE RECALL COUNT
02241  M01S02096.callfas +++| CFS2     RJM    COB         CHECK OUTPUT BUFFER
02242  M01S02097.callfas +++|          NJN    CFS3        IF DATA IN BUFFER
02243  M01S02098.callfas +++|*         LDN    0           NOT READ
02244  M01S02099.callfas +++|          RJM    RCL         RECALL CPU
02245  M01S02100.callfas +++|          UJN    CFS2        CHECK AGAIN
02246  M01S02101.callfas +++|
02247  M01S02102.callfas +++| CFS3     LDCA   OT
02248  M01S02103.callfas +++|          CRD    CM          READ FIRST CONTROL WORD
02249  M01S02104.callfas +++|          LDD    CM
02250  M01S02105.callfas +++|          SHN    21-12
02251  M01S02106.callfas +++|          MJN    CFS4        IF EOI
02252  M01S02107.callfas +++|          AOD    PC          ADVANCE PRU COUNT
02253  M01S02108.callfas +++|          SBN    PRUPST+1
02254  M01S02109.callfas +++|          MJN    CFS5        IF NOT FULL STRIPE + 1 PRU
02255  M01S02110.callfas +++| CFS4     LJM    CFS1        RESTORE OUT AND RETURN
02256  M01S02111.callfas +++|
02257  M01S02112.callfas +++| CFS5     LDD    CM+4        PRU BYTE COUNT
02258  M01S02113.callfas +++|          RJM    DV5         CM WORD COUNT
02259  M01S02114.callfas +++|          ADN    2           CONTROL WORDS
02260  M01S02115.callfas +++|          STD    WC
02261  M01S02116.callfas +++|          LDD    LM
02262  M01S02117.callfas +++|          SBD    OT
02263  M01S02118.callfas +++|          SHN    14
02264  M01S02119.callfas +++|          ADD    LM+1
02265  M01S02120.callfas +++|          SBD    OT+1        WORD COUNT TO LIMIT
02266  M01S02121.callfas +++|          STD    T3
02267  M01S02122.callfas +++|          SBD    WC
02268  M01S02123.callfas +++|          MJN    CFS6        IF WRAPAROUND
02269  M01S02124.callfas +++|          ZJN    CFS6        IF WC = ROOM TO LIMIT
02270  M01S02125.callfas +++|          LDD    WC
02271  M01S02126.callfas +++|          RAD    OT+1        ADVANCE OUT
02272  M01S02127.callfas +++|          SHN    -14
02273  M01S02128.callfas +++|          RAD    OT
02274  M01S02129.callfas +++|          LJM    CFS2        CHECK FOR NEXT PRU
02275  M01S02130.callfas +++|
02276  M01S02131.callfas +++| CFS6     LDD    FT          SET OUT=FIRST+WC-REMAINDER TO LIMIT
02277  M01S02132.callfas +++|          SHN    14
02278  M01S02133.callfas +++|          ADD    FT+1
02279  M01S02134.callfas +++|          ADD    WC
02280  M01S02135.callfas +++|          SBD    T3
02281  M01S02136.callfas +++|          STD    OT+1
02282  M01S02137.callfas +++|          SHN    -14
02283  M01S02138.callfas +++|          STD    OT
02284  M01S02139.callfas +++|          LJM    CFS2        CHECK FOR NEXT PRU
02285  M01S02140.callfas +++| CIB      SPACE  4
02286  M01S02141.callfas +++|**        CIB - CHECK INPUT BUFFER.
02287  M01S02142.callfas +++|*
02288  M01S02143.callfas +++|*         ENTRY  (FE - FE+1) = FET ADDRESS.
02289  M01S02144.callfas +++|*                (FT - FT+1) = FIRST ADDRESS OF CM BUFFER.
02290  M01S02145.callfas +++|*                (IN - IN+1) = NEXT INPUT ADDRESS.
02291  M01S02146.callfas +++|*                (OT - OT+1) = NEXT OUTPUT ADDRESS.
02292  M01S02147.callfas +++|*                (LM - LM+1) = LIMIT ADDRESS OF CM BUFFER.
02293  M01S02148.callfas +++|*
02294  M01S02149.callfas +++|*         EXIT   (A) = WORD COUNT OF BUFFER.
02295  M01S02150.callfas +++|*                RESETS (OT - OT+1).
02296  M01S02151.callfas +++|*
02297  M01S02152.callfas +++|*         CALLS  CFL.
02298  M01S02153.callfas +++|*
02299  M01S02154.callfas +++|*         USES   CM - CM+4.
02300  M01S02155.callfas +++|
02301  M01S02156.callfas +++|
02302  M01S02157.callfas +++| CIB      SUBR               ENTRY/EXIT
02303  M01S02158.callfas +++|          FETA   3
02304  M01S02159.callfas +++|          CRD    CM
02305  M01S02160.callfas +++|          LDD    CM+3        SET OUT
02306  M01S02161.callfas +++|          LPN    77
02307  M01S02162.callfas +++|          STD    OT
02308  M01S02163.callfas +++|          SHN    14
02309  M01S02164.callfas +++|          LMD    CM+4
02310  M01S02165.callfas +++|          STD    OT+1
02311  M01S02166.callfas +++|          RJM    CFL         CHECK ADDRESS
02312  M01S02167.callfas +++|          LDD    OT          LENGTH = OUT - IN
02313  M01S02168.callfas +++|          SBD    IN
02314  M01S02169.callfas +++|          SHN    14
02315  M01S02170.callfas +++|          ADD    OT+1
02316  M01S02171.callfas +++|          SBD    IN+1
02317  M01S02172.callfas +++|          ZJN    CIB1        IF IN = OUT
02318  M01S02173.callfas +++|          PJN    CIB2        IF OUT .GT. IN
02319  M01S02174.callfas +++| CIB1     SHN    6           LENGTH = (LIMIT - IN) + OUT - FIRST)
02320  M01S02175.callfas +++|          ADD    LM
02321  M01S02176.callfas +++|          SBD    FT
02322  M01S02177.callfas +++|          SHN    14
02323  M01S02178.callfas +++|          ADD    LM+1
02324  M01S02179.callfas +++|          SBD    FT+1
02325  M01S02180.callfas +++| CIB2     SBN    1           LENGTH - 1
02326  M01S02181.callfas +++|          UJN    CIBX        RETURN
02327  M01S02182.callfas +++| COB      SPACE  4,10
02328  M01S02183.callfas +++|**        COB - CHECK OUTPUT BUFFER.
02329  M01S02184.callfas +++|*
02330  M01S02185.callfas +++|*         ENTRY  (FE - FE+1) = ADDRESS OF FET.
02331  M01S02186.callfas +++|*                (FT - FT+1) = FIRST ADDRESS OF CM BUFFER.
02332  M01S02187.callfas +++|*                (IN - IN+1) = NEXT INPUT ADDRESS.
02333  M01S02188.callfas +++|*                (OT - OT+1) = NEXT OUTPUT ADDRESS.
02334  M01S02189.callfas +++|*                (LM - LM+1) = LIMIT ADDRESS OF CM BUFFER.
02335  M01S02190.callfas +++|*
02336  M01S02191.callfas +++|*         EXIT   (A) = WORD COUNT OF BUFFER.
02337  M01S02192.callfas +++|*                RESETS (IN - IN+1).
02338  M01S02193.callfas +++|*
02339  M01S02194.callfas +++|*         CALLS  CFL.
02340  M01S02195.callfas +++|*
02341  M01S02196.callfas +++|*         USES   CM - CM+4.
02342  M01S02197.callfas +++|
02343  M01S02198.callfas +++|
02344  M01S02199.callfas +++| COB      SUBR               ENTRY/EXIT
02345  M01S02200.callfas +++|          FETA   2           READ IN
02346  M01S02201.callfas +++|          CRD    CM
02347  M01S02202.callfas +++|          LDD    CM+3        SET IN
02348  M01S02203.callfas +++|          LPN    77
02349  M01S02204.callfas +++|          STD    IN
02350  M01S02205.callfas +++|          SHN    14
02351  M01S02206.callfas +++|          LMD    CM+4
02352  M01S02207.callfas +++|          STD    IN+1
02353  M01S02208.callfas +++|          RJM    CFL         CHECK ADDRESS
02354  M01S02209.callfas +++|          LDD    IN          LENGTH = IN - OUT
02355  M01S02210.callfas +++|          SBD    OT
02356  M01S02211.callfas +++|          SHN    14
02357  M01S02212.callfas +++|          ADD    IN+1
02358  M01S02213.callfas +++|          SBD    OT+1
02359  M01S02214.callfas +++|          PJN    COBX        RETURN IF IN .GE. OUT
02360  M01S02215.callfas +++|          SHN    6           LENGTH = (LIMIT - OUT) + (IN - FIRST)
02361  M01S02216.callfas +++|          ADD    LM
02362  M01S02217.callfas +++|          SBD    FT
02363  M01S02218.callfas +++|          SHN    14
02364  M01S02219.callfas +++|          ADD    LM+1
02365  M01S02220.callfas +++|          SBD    FT+1
02366  M01S02221.callfas +++|          UJN    COBX        RETURN
02367  M01S02222.callfas +++| DV3      SPACE  4,10
02368  M01S02223.callfas +++|**        DV3 - DIVIDE BY 3.
02369  M01S02224.callfas +++|*
02370  M01S02225.callfas +++|*         DV3 USES THE APPROXIMATION N/3 = (85*N + 22*N/64) / 256.
02371  M01S02226.callfas +++|*         ROUNDING UP IS DONE.
02372  M01S02227.callfas +++|*
02373  M01S02228.callfas +++|*         ENTRY  (A) = NUMBER.
02374  M01S02229.callfas +++|*
02375  M01S02230.callfas +++|*         EXIT   (A) = NUMBER / 3.
02376  M01S02231.callfas +++|*
02377  M01S02232.callfas +++|*         CALLS  NONE.
02378  M01S02233.callfas +++|*
02379  M01S02234.callfas +++|*         USES   T0, T2.
02380  M01S02235.callfas +++|
02381  M01S02236.callfas +++|
02382  M01S02237.callfas +++| DV3      SUBR               ENTRY/EXIT
02383  M01S02238.callfas +++|          ADN    2           ROUND UP
02384  M01S02239.callfas +++|          STD    T2          SAVE N
02385  M01S02240.callfas +++|          SHN    2           N*4
02386  M01S02241.callfas +++|          ADD    T2          N*5
02387  M01S02242.callfas +++|          SHN    1           N*10
02388  M01S02243.callfas +++|          ADD    T2          N*11
02389  M01S02244.callfas +++|          SHN    1+14        N*22/64
02390  M01S02245.callfas +++|          STD    T0
02391  M01S02246.callfas +++|          SHN    6           N*22
02392  M01S02247.callfas +++|          SBD    T2          N*21
02393  M01S02248.callfas +++|          SHN    2           N*84
02394  M01S02249.callfas +++|          ADD    T2          N*85
02395  M01S02250.callfas +++|          ADD    T0          N*85 + N*22/64
02396  M01S02251.callfas +++|          SHN    -10         (N*85 + N*22/64) / 256
02397  M01S02252.callfas +++|          LJM    DV3X        RETURN
02398  M01S02253.callfas +++| GMT      SPACE  4,10
02399  M01S02254.callfas +++|**        GMT - GET MESSAGE TYPE.
02400  M01S02255.callfas +++|*
02401  M01S02256.callfas +++|*         ENTRY  64 BYTE MESSAGE STARTING AT BUFR.
02402  M01S02257.callfas +++|*         ENTRY  (BUFR) = START OF 64 BYTE M860 MESSAGE.
02403  M01S02258.callfas +++|*
02404  M01S02259.callfas +++|*         EXIT   (A) = MESSAGE TYPE(BYTE 4 OF MESSAGE).
02405  M01S02260.callfas +++|*
02406  M01S02261.callfas +++|*         CALLS  NONE.
02407  M01S02262.callfas +++|*
02408  M01S02263.callfas +++|*         USES   NONE.
02409  M01S02264.callfas +++|
02410  M01S02265.callfas +++|
02411  M01S02266.callfas +++| GMT      SUBR               ENTRY/EXIT
02412  M01S02267.callfas +++|          LDM    BUFR+2      UPPER 4 BITS OF TYPE
02413  M01S02268.callfas +++|          LPN    0#F
02414  M01S02269.callfas +++|          SHN    14
02415  M01S02270.callfas +++|          LMM    BUFR+3
02416  M01S02271.callfas +++|          SHN    -8D         POSITION MESSAGE TYPE
02417  M01S02272.callfas +++|          UJN    GMTX        RETURN
02418  M01S02273.callfas +++| IBP      SPACE  4,10
02419  M01S02274.callfas +++|**        IBP - INITIALIZE AND CHECK BUFFER PARAMETERS.
02420  M01S02275.callfas +++|*
02421  M01S02276.callfas +++|*         ENTRY  (FE - FE+1) = FET ADDRESS.
02422  M01S02277.callfas +++|*
02423  M01S02278.callfas +++|*         EXIT   FT, IN, OT, AND LM INITIALIZED.
02424  M01S02279.callfas +++|*
02425  M01S02280.callfas +++|*         CALLS  CFL.
02426  M01S02281.callfas +++|*
02427  M01S02282.callfas +++|*         USES   T1 - T5, CM - CM+4.
02428  M01S02283.callfas +++|
02429  M01S02284.callfas +++|
02430  M01S02285.callfas +++| IBP      SUBR               ENTRY/EXIT
02431  M01S02286.callfas +++|          FETA   1
02432  M01S02287.callfas +++|          CRD    CM          READ FIRST
02433  M01S02288.callfas +++|          ADN    1
02434  M01S02289.callfas +++|          CRD    T1          READ IN
02435  M01S02290.callfas +++|          ADN    2
02436  M01S02291.callfas +++|          CRD    LM-3        READ LIMIT
02437  M01S02292.callfas +++|          SBN    1
02438  M01S02293.callfas +++|          CRD    OT-3        READ OUT
02439  M01S02294.callfas +++|          LDD    CM+3
02440  M01S02295.callfas +++|          LPN    77
02441  M01S02296.callfas +++|          STD    FT
02442  M01S02297.callfas +++|          LDD    CM+4
02443  M01S02298.callfas +++|          STD    FT+1
02444  M01S02299.callfas +++|          LDD    LM
02445  M01S02300.callfas +++|          LPN    77
02446  M01S02301.callfas +++|          STD    LM
02447  M01S02302.callfas +++|          SHN    14
02448  M01S02303.callfas +++|          ADD    LM+1
02449  M01S02304.callfas +++|          SBN    1           ALLOW LIMIT = FL
02450  M01S02305.callfas +++|          RJM    CFL         CHECK ADDRESS
02451  M01S02306.callfas +++|          LDD    OT          CHECK OUT
02452  M01S02307.callfas +++|          SBD    LM
02453  M01S02308.callfas +++|          SHN    14
02454  M01S02309.callfas +++|          ADD    OT+1
02455  M01S02310.callfas +++|          SBD    LM+1
02456  M01S02311.callfas +++|          PJN    IBP1        IF OUT GE LIMIT
02457  M01S02312.callfas +++|          LDD    OT
02458  M01S02313.callfas +++|          SBD    FT
02459  M01S02314.callfas +++|          SHN    14
02460  M01S02315.callfas +++|          ADD    OT+1
02461  M01S02316.callfas +++|          SBD    FT+1
02462  M01S02317.callfas +++|          MJN    IBP1        IF OUT LT FIRST
02463  M01S02318.callfas +++|          LDD    T1+4
02464  M01S02319.callfas +++|          STD    IN+1
02465  M01S02320.callfas +++|          LDD    T1+3
02466  M01S02321.callfas +++|          LPN    77
02467  M01S02322.callfas +++|          STD    IN
02468  M01S02323.callfas +++|          SBD    LM          CHECK IN
02469  M01S02324.callfas +++|          SHN    14
02470  M01S02325.callfas +++|          ADD    IN+1
02471  M01S02326.callfas +++|          SBD    LM+1
02472  M01S02327.callfas +++|          PJN    IBP1        IF IN GE LIMIT
02473  M01S02328.callfas +++|          LDD    IN
02474  M01S02329.callfas +++|          SBD    FT
02475  M01S02330.callfas +++|          SHN    14
02476  M01S02331.callfas +++|          ADD    IN+1
02477  M01S02332.callfas +++|          SBD    FT+1
02478  M01S02333.callfas +++|          PJN    IBP2        IF IN GE FIRST
02479  M01S02334.callfas +++| IBP1     ERROR  RCBARG      BUFFER ARGUMENT ERROR
02480  M01S02335.callfas +++|
02481  M01S02336.callfas +++| IBP2     LJM    IBPX        RETURN
02482  M01S02337.callfas +++| RMB      SPACE  4,10
02483  M01S02338.callfas +++|**        RMB - READ MESSAGE BUFFER.
02484  M01S02339.callfas +++|*
02485  M01S02340.callfas +++|*         ENTRY  (WC) = CM WORD COUNT.
02486  M01S02341.callfas +++|*
02487  M01S02342.callfas +++|*         EXIT   OUT POINTER UPDATED IN (OT - OT+1).
02488  M01S02343.callfas +++|*
02489  M01S02344.callfas +++|*         CALLS  NONE.
02490  M01S02345.callfas +++|*
02491  M01S02346.callfas +++|*         USES   T3, OT - OT+1, WC.
02492  M01S02347.callfas +++|
02493  M01S02348.callfas +++|
02494  M01S02349.callfas +++| RMB      SUBR               ENTRY/EXIT
02495  M01S02350.callfas +++|          LDC    BUFR
02496  M01S02351.callfas +++|          STM    RMBA        PP BUFFER ADDRESS
02497  M01S02352.callfas +++|          LDD    LM
02498  M01S02353.callfas +++|          SBD    OT
02499  M01S02354.callfas +++|          SHN    14
02500  M01S02355.callfas +++|          ADD    LM+1
02501  M01S02356.callfas +++|          SBD    OT+1
02502  M01S02357.callfas +++|          STD    T3          WORD COUNT TO LIMIT
02503  M01S02358.callfas +++|          SBD    WC
02504  M01S02359.callfas +++|          MJN    RMB4        IF WRAPAROUND
02505  M01S02360.callfas +++| RMB2     LDCA   OT
02506  M01S02361.callfas +++|          CRM    **,WC
02507  M01S02362.callfas +++| RMBA     EQU    *-1
02508  M01S02363.callfas +++|          LDD    WC
02509  M01S02364.callfas +++|          RAD    OT+1
02510  M01S02365.callfas +++|          SHN    -14
02511  M01S02366.callfas +++|          RAD    OT          UPDATE OUT
02512  M01S02367.callfas +++|          LMD    LM
02513  M01S02368.callfas +++|          NJN    RMB3        IF OUT NE LIMIT
02514  M01S02369.callfas +++|          LDD    OT+1
02515  M01S02370.callfas +++|          LMD    LM+1
02516  M01S02371.callfas +++|          NJN    RMB3        IF OUT NE LIMIT
02517  M01S02372.callfas +++|          LDD    FT
02518  M01S02373.callfas +++|          STD    OT          SET OUT = FIRST
02519  M01S02374.callfas +++|          LDD    FT+1
02520  M01S02375.callfas +++|          STD    OT+1
02521  M01S02376.callfas +++| RMB3     LJM    RMBX        RETURN
02522  M01S02377.callfas +++|
02523  M01S02378.callfas +++| RMB4     LDCA   OT
02524  M01S02379.callfas +++|          CRM    BUFR,T3
02525  M01S02380.callfas +++|          LDD    FT          SET OUT = FIRST
02526  M01S02381.callfas +++|          STD    OT
02527  M01S02382.callfas +++|          LDD    FT+1
02528  M01S02383.callfas +++|          STD    OT+1
02529  M01S02384.callfas +++|          LDD    T3
02530  M01S02385.callfas +++|          SHN    2
02531  M01S02386.callfas +++|          ADD    T3          PP WORD COUNT
02532  M01S02387.callfas +++|          RAM    RMBA        UPDATE PP BUFFER ADDRESS
02533  M01S02388.callfas +++|          LDD    WC
02534  M01S02389.callfas +++|          SBD    T3
02535  M01S02390.callfas +++|          STD    WC          SET NEW WORD COUNT
02536  M01S02391.callfas +++|          LJM    RMB2        READ REMAINING DATA
02537  M01S02392.callfas +++| SCB      SPACE  4,10
02538  M01S02393.callfas +++|**        SCB - SET COMPLETE BIT.
02539  M01S02394.callfas +++|*
02540  M01S02395.callfas +++|*         ENTRY  (A) = ENDING STATUS.
02541  M01S02396.callfas +++|*                (EC) = ERROR CODE.
02542  M01S02397.callfas +++|*
02543  M01S02398.callfas +++|*         EXIT   FET UPDATED.
02544  M01S02399.callfas +++|*                (EC) = 0.
02545  M01S02400.callfas +++|*
02546  M01S02401.callfas +++|*         CALLS  REL.
02547  M01S02402.callfas +++|*
02548  M01S02403.callfas +++|*         USES   CM - CM+4, CN.
02549  M01S02404.callfas +++|
02550  M01S02405.callfas +++|
02551  M01S02406.callfas +++| SCB      SUBR               ENTRY/EXIT
02552  M01S02407.callfas +++|          STD    CN          SAVE STATUS
02553  M01S02408.callfas +++|          RJM    REL         RELEASE CHANNEL
02554  M01S02409.callfas +++|          FETA
02555  M01S02410.callfas +++|          CRD    CM          READ FET STATUS WORD
02556  M01S02411.callfas +++|          LDD    CM+3        CLEAR ANY EXISTING STATUS
02557  M01S02412.callfas +++|          SCN    77
02558  M01S02413.callfas +++|          STD    CM+3
02559  M01S02414.callfas +++|          LDD    CM+4
02560  M01S02415.callfas +++|          LPC    776
02561  M01S02416.callfas +++|          STD    CM+4
02562  M01S02417.callfas +++|          LDD    EC
02563  M01S02418.callfas +++|          SHN    12          POSITION ERROR CODE
02564  M01S02419.callfas +++|          LMD    CN          SET STATUS
02565  M01S02420.callfas +++|          LMD    CM+4        RESTORE FUNCTION CODE
02566  M01S02421.callfas +++|          LMN    1           INSURE COMPLETE STATUS
02567  M01S02422.callfas +++|          STD    CM+4
02568  M01S02423.callfas +++|          SHN    -14
02569  M01S02424.callfas +++|          RAD    CM+3        SET ERROR CODE
02570  M01S02425.callfas +++|          FETA
02571  M01S02426.callfas +++|          CWD    CM          UPDATE FET
02572  M01S02427.callfas +++|          LDN    0
02573  M01S02428.callfas +++|          STD    EC          CLEAR ERROR CODE
02574  M01S02429.callfas +++|          LJM    SCBX        RETURN
02575  M01S02430.callfas +++| UCO      SPACE  4,10
02576  M01S02431.callfas +++|**        UCO - UPDATE CENTRAL OUT.
02577  M01S02432.callfas +++|*
02578  M01S02433.callfas +++|*         ENTRY  (FE) = FET ADDRESS.
02579  M01S02434.callfas +++|*                (OT - OT+1) = OUT POINTER.
02580  M01S02435.callfas +++|*
02581  M01S02436.callfas +++|*         EXIT   OUT UPDATED IN FET.
02582  M01S02437.callfas +++|*
02583  M01S02438.callfas +++|*         CALLS  NONE.
02584  M01S02439.callfas +++|*
02585  M01S02440.callfas +++|*         USES   CM - CM+4.
02586  M01S02441.callfas +++|
02587  M01S02442.callfas +++|
02588  M01S02443.callfas +++| UCO      SUBR               ENTRY/EXIT
02589  M01S02444.callfas +++|          LDN    ZERL
02590  M01S02445.callfas +++|          CRD    CM
02591  M01S02446.callfas +++|          LDD    OT
02592  M01S02447.callfas +++|          STD    CM+3
02593  M01S02448.callfas +++|          LDD    OT+1
02594  M01S02449.callfas +++|          STD    CM+4
02595  M01S02450.callfas +++|          FETA   3
02596  M01S02451.callfas +++|          CWD    CM          UPDATE OUT
02597  M01S02452.callfas +++|          UJN    UCOX        RETURN
02598  M01S02453.callfas +++| WBB      SPACE  4,10
02599  M01S02454.callfas +++|**        WBB - WRITE BINARY BUFFER.
02600  M01S02455.callfas +++|*
02601  M01S02456.callfas +++|*         ENTRY  (WC) = CM WORD COUNT.
02602  M01S02457.callfas +++|*
02603  M01S02458.callfas +++|*         EXIT   IN POINTER UPDATER IN FET.
02604  M01S02459.callfas +++|*
02605  M01S02460.callfas +++|*         CALLS  NONE.
02606  M01S02461.callfas +++|*
02607  M01S02462.callfas +++|*         USES   T3, CM - CM+4, WC.
02608  M01S02463.callfas +++|
02609  M01S02464.callfas +++|
02610  M01S02465.callfas +++| WBB1     LDN    ZERL        UPDATE IN POINTER IN FET
02611  M01S02466.callfas +++|          CRD    CM
02612  M01S02467.callfas +++|          LDD    IN
02613  M01S02468.callfas +++|          STD    CM+3
02614  M01S02469.callfas +++|          LDD    IN+1
02615  M01S02470.callfas +++|          STD    CM+4
02616  M01S02471.callfas +++|          FETA   2
02617  M01S02472.callfas +++|          CWD    CM
02618  M01S02473.callfas +++|
02619  M01S02474.callfas +++| WBB      SUBR               ENTRY/EXIT
02620  M01S02475.callfas +++|          LDC    PBUF
02621  M01S02476.callfas +++|          STM    WBBA        PPU BUFFER ADDRESS
02622  M01S02477.callfas +++|          LDD    LM
02623  M01S02478.callfas +++|          SBD    IN
02624  M01S02479.callfas +++|          SHN    14
02625  M01S02480.callfas +++|          ADD    LM+1
02626  M01S02481.callfas +++|          SBD    IN+1
02627  M01S02482.callfas +++|          STD    T3          WORD COUNT TO LIMIT
02628  M01S02483.callfas +++|          SBD    WC
02629  M01S02484.callfas +++|          MJN    WBB4        IF WRAPAROUND
02630  M01S02485.callfas +++| WBB2     LDCA   IN
02631  M01S02486.callfas +++|          CWM    **,WC       WRITE DATA TO BUFFER
02632  M01S02487.callfas +++| WBBA     EQU    *-1
02633  M01S02488.callfas +++|          LDD    WC
02634  M01S02489.callfas +++|          RAD    IN+1
02635  M01S02490.callfas +++|          SHN    -14
02636  M01S02491.callfas +++|          RAD    IN
02637  M01S02492.callfas +++|          LMD    LM
02638  M01S02493.callfas +++|          NJN    WBB3        IF IN NE LIMIT
02639  M01S02494.callfas +++|          LDD    IN+1
02640  M01S02495.callfas +++|          LMD    LM+1
02641  M01S02496.callfas +++|          NJN    WBB3        IF IN NE LIMIT
02642  M01S02497.callfas +++|          LDD    FT          SET IN = FIRST
02643  M01S02498.callfas +++|          STD    IN
02644  M01S02499.callfas +++|          LDD    FT+1
02645  M01S02500.callfas +++|          STD    IN+1
02646  M01S02501.callfas +++| WBB3     LJM    WBB1        UPDATE CENTRAL IN
02647  M01S02502.callfas +++|
02648  M01S02503.callfas +++| WBB4     LDCA   IN
02649  M01S02504.callfas +++|          CWM    PBUF,T3
02650  M01S02505.callfas +++|          LDD    FT          SET IN = FIRST
02651  M01S02506.callfas +++|          STD    IN
02652  M01S02507.callfas +++|          LDD    FT+1
02653  M01S02508.callfas +++|          STD    IN+1
02654  M01S02509.callfas +++|          LDD    T3          UPDATE PP BUFFER ADDRESS
02655  M01S02510.callfas +++|          SHN    2
02656  M01S02511.callfas +++|          ADD    T3
02657  M01S02512.callfas +++|          RAM    WBBA
02658  M01S02513.callfas +++|          LDD    WC
02659  M01S02514.callfas +++|          SBD    T3
02660  M01S02515.callfas +++|          STD    WC          SET REMAINING WORD COUNT
02661  M01S02516.callfas +++|          LJM    WBB2        READ REMAINING DATA
02662  M01S02517.callfas +++| WMB      SPACE  4,10
02663  M01S02518.callfas +++|**        WMB - WRITE MESSAGE BUFFER.
02664  M01S02519.callfas +++|*
02665  M01S02520.callfas +++|*         ENTRY  (WC) = CM WORD COUNT.
02666  M01S02521.callfas +++|*
02667  M01S02522.callfas +++|*         EXIT   IN POINTER UPDATED IN PP.
02668  M01S02523.callfas +++|*
02669  M01S02524.callfas +++|*         CALLS  NONE.
02670  M01S02525.callfas +++|*
02671  M01S02526.callfas +++|*         USES   T3, IN - IN+1, WC.
02672  M01S02527.callfas +++|
02673  M01S02528.callfas +++|
02674  M01S02529.callfas +++| WMB      SUBR               ENTRY/EXIT
02675  M01S02530.callfas +++|          LDC    BUFR
02676  M01S02531.callfas +++|          STM    WMBA        PPU BUFFER ADDRESS
02677  M01S02532.callfas +++|          LDD    LM
02678  M01S02533.callfas +++|          SBD    IN
02679  M01S02534.callfas +++|          SHN    14
02680  M01S02535.callfas +++|          ADD    LM+1
02681  M01S02536.callfas +++|          SBD    IN+1
02682  M01S02537.callfas +++|          STD    T3          WORD COUNT TO LIMIT
02683  M01S02538.callfas +++|          SBD    WC
02684  M01S02539.callfas +++|          MJN    WMB4        IF WRAPAROUND
02685  M01S02540.callfas +++| WMB2     LDCA   IN
02686  M01S02541.callfas +++|          CWM    **,WC       WRITE DATA TO BUFFER
02687  M01S02542.callfas +++| WMBA     EQU    *-1
02688  M01S02543.callfas +++|          LDD    WC
02689  M01S02544.callfas +++|          RAD    IN+1
02690  M01S02545.callfas +++|          SHN    -14
02691  M01S02546.callfas +++|          RAD    IN
02692  M01S02547.callfas +++|          LMD    LM
02693  M01S02548.callfas +++|          NJN    WMB3        IF IN NE LIMIT
02694  M01S02549.callfas +++|          LDD    IN+1
02695  M01S02550.callfas +++|          LMD    LM+1
02696  M01S02551.callfas +++|          NJN    WMB3        IF IN NE LIMIT
02697  M01S02552.callfas +++|          LDD    FT          SET IN = FIRST
02698  M01S02553.callfas +++|          STD    IN
02699  M01S02554.callfas +++|          LDD    FT+1
02700  M01S02555.callfas +++|          STD    IN+1
02701  M01S02556.callfas +++| WMB3     LJM    WMBX        UPDATE CENTRAL IN
02702  M01S02557.callfas +++|
02703  M01S02558.callfas +++| WMB4     LDCA   IN
02704  M01S02559.callfas +++|          CWM    BUFR,T3
02705  M01S02560.callfas +++|          LDD    FT          SET IN = FIRST
02706  M01S02561.callfas +++|          STD    IN
02707  M01S02562.callfas +++|          LDD    FT+1
02708  M01S02563.callfas +++|          STD    IN+1
02709  M01S02564.callfas +++|          LDD    T3          UPDATE PP BUFFER ADDRESS
02710  M01S02565.callfas +++|          SHN    2
02711  M01S02566.callfas +++|          ADD    T3
02712  M01S02567.callfas +++|          RAM    WMBA
02713  M01S02568.callfas +++|          LDD    WC
02714  M01S02569.callfas +++|          SBD    T3
02715  M01S02570.callfas +++|          STD    WC          SET REMAINING WORD COUNT
02716  M01S02571.callfas +++|          LJM    WMB2        READ REMAINING DATA
02717  M01S02572.callfas +++|          SPACE  4,10
02718  M01S02573.callfas +++|*         COMMON DECKS.
02719  M01S02574.callfas +++|
02720  M01S02575.callfas +++|
02721  M01S02576.callfas +++| RND$     EQU    1           ROUND UP
02722  M01S02577.callfas +++|*CALL     COMPDV5
02723  M01S02578.callfas +++|          TITLE  PRESET.
02724  M01S02579.callfas +++|          USE    PRESET
02725  M01S02580.callfas +++| OVLA     EQU    *+5         OVERLAY LOAD ADDRESS
02726  M01S02581.callfas +++| BUFR     EQU    *           MESSAGE BUFFER
02727  M01S02582.callfas +++| PBUF     EQU    BUFR        PRU BUFFER
02728  M01S02583.callfas +++| HBUF     EQU    PBUF+PRUL*5     STRIPE HEADER BUFFER
02729  M01S02584.callfas +++| TBUF     EQU    HBUF+HDRL*5     STRIPE TRAILER BUFFER
02730  M01S02585.callfas +++| LBUF     EQU    TBUF+TLRL*5 LENGTH OF ALL BUFFERS
02731  M01S02586.callfas +++|          ERRNG  7776-LBUF   BUFFER OVERFLOW
02732  M01S02587.callfas +++|          ERRNG  7777-BUFR-PRUL        MESSAGE BUFFER OVERFLOW
02733  M01S02588.callfas +++| PRS      SPACE  4,10
02734  M01S02589.callfas +++|*         PRS - PRESET.
02735  M01S02590.callfas +++|
02736  M01S02591.callfas +++|
02737  M01S02592.callfas +++| PRS      SUBR               ENTRY/EXIT
02738  M01S02593.callfas +++|          LDN    0
02739  M01S02594.callfas +++|          STD    EC          CLEAR ERROR CODE
02740  M01S02595.callfas +++|          STD    MW          CLEAR MESSAGE WAITING FLAGS
02741  M01S02596.callfas +++|          LDC    IPLM
02742  M01S02597.callfas +++|          STD    IC          SET IDLE PASS LIMIT
02743  M01S02598.callfas +++|          LDD    IR+3
02744  M01S02599.callfas +++|          LPN    77
02745  M01S02600.callfas +++|          SHN    14
02746  M01S02601.callfas +++|          ADD    IR+4
02747  M01S02602.callfas +++|          RJM    CFL
02748  M01S02603.callfas +++|          CRD    CN          READ PARAMETER WORD
02749  M01S02604.callfas +++|          LDD    CN+3
02750  M01S02605.callfas +++|          STD    ES          EST ORDINAL FOR CONTROL UNIT
02751  M01S02606.callfas +++|          SFA    EST,ES      GET EST ENTRY ADDRESS
02752  M01S02607.callfas +++|          CRD    CM          READ EST ENTRY
02753  M01S02608.callfas +++|          LDD    CM+4
02754  M01S02609.callfas +++|          LPC    7000
02755  M01S02610.callfas +++|          STD    EQ          EQUIPMENT NUMBER
02756  M01S02611.callfas +++|          LDD    IR+3
02757  M01S02612.callfas +++|          SHN    -6          FUNCTION CODE
02758  M01S02613.callfas +++|          STD    T1
02759  M01S02614.callfas +++|          ZJN    PRS0        IF NO FUNCTION
02760  M01S02615.callfas +++|          SBN    TREQL
02761  M01S02616.callfas +++|          MJN    PRS2        IF VALID FUNCTION
02762  M01S02617.callfas +++| PRS0     LDC    =C*1SS - INVALID FUNCTION.*
02763  M01S02618.callfas +++|          RJM    DFM
02764  M01S02619.callfas +++| PRS1     LJM    DPP         DROP
02765  M01S02620.callfas +++|
02766  M01S02621.callfas +++| PRS2     LDM    TREQ,T1
02767  M01S02622.callfas +++|          STD    T1
02768  M01S02623.callfas +++|          LJM    0,T1        INITIALIZE FOR FUNCTION
02769  M01S02624.callfas +++|
02770  M01S02625.callfas +++|*         SCH - SET CHANNELS IN EST
02771  M01S02626.callfas +++|
02772  M01S02627.callfas +++| SCH      LDD    ES
02773  M01S02628.callfas +++|          STD    CM+1        EQUIPMENT NUMBER
02774  M01S02629.callfas +++|          LDD    IR+2
02775  M01S02630.callfas +++|          STD    CM+3        CHANNELS
02776  M01S02631.callfas +++|          LDN    2           SET CHANNELS SUBFUNCTION
02777  M01S02632.callfas +++|          STD    CM+2
02778  M01S02633.callfas +++|          MONITOR SEQM       SET CHANNELS
02779  M01S02634.callfas +++|          UJN    PRS1        DROP PP
02780  M01S02635.callfas +++|
02781  M01S02636.callfas +++|*         ETD - ENABLE TDAM REQUEST BUFFER
02782  M01S02637.callfas +++|

Seq #  *Modification Id* Act 
----------------------------+
02783  M02S02638.@000002 ---| ETD      LDD    CP          ENABLE TDAM REQUEST BUFFER

Seq #  *Modification Id* Act 
----------------------------+
02784  M02S02639.@000002 ---|          ADC    ICAW

Seq #  *Modification Id* Act 
----------------------------+
02785  M02S00001.@000004 ---| ETD      NFA    IC1N
02786  M01S00001.@000004 +++| ETD      NFA    ICAN
02787  M01S02640.callfas +++|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
02788  M02S02641.@000002 ---|          LDD    CP

Seq #  *Modification Id* Act 
----------------------------+
02789  M02S02642.@000002 ---|          STD    CM          SET BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
02790  M02S02643.@000002 ---|          ADC    ICAW

Seq #  *Modification Id* Act 
----------------------------+
02791  M02S02644.@000002 ---|          CWD    CM          WRITE TO CONTROL POINT
02792  M01S00002.@000002 +++|          LDD    CM
02793  M01S00003.@000002 +++|          LPC    3777
02794  M01S00004.@000002 +++|          ADC    4000        ENABLE PP *TDAM* WRITE
02795  M01S00005.@000002 +++|          STD    CM

Seq #  *Modification Id* Act 
----------------------------+
02796  M02S00006.@000004 ---|          NFA    IC1N        UPDATE INTER-CONTROL POINT CONTROLS
02797  M01S00002.@000004 +++|          NFA    ICAN        UPDATE INTER-CONTROL POINT CONTROLS
02798  M01S00007.@000002 +++|          CWD    CM
02799  M01S02645.callfas +++|          UJN    PRS1        DROP
02800  M01S02646.callfas +++|
02801  M01S02647.callfas +++|*         MSG - INITIALIZE FOR MESSAGE I/O
02802  M01S02648.callfas +++|
02803  M01S02649.callfas +++| MSG      LDD    CN+1
02804  M01S02650.callfas +++|          SCN    77
02805  M01S02651.callfas +++|          SHN    6
02806  M01S02652.callfas +++|          LMD    CN
02807  M01S02653.callfas +++|          SHN    6
02808  M01S02654.callfas +++|          STM    SSDA        INITIALIZE MESSAGE OUTPUT ADDRESS
02809  M01S02655.callfas +++|          SHN    -14
02810  M01S02656.callfas +++|          RAM    SSDA-1
02811  M01S02657.callfas +++|          LPN    77
02812  M01S02658.callfas +++|          SHN    14
02813  M01S02659.callfas +++|          LMM    SSDA
02814  M01S02660.callfas +++|          ADN    4           LIMIT WORD
02815  M01S02661.callfas +++|          RJM    CFL         CHECK ADDRESS
02816  M01S02662.callfas +++|          CRD    T7          READ LIMIT WORD
02817  M01S02663.callfas +++|          SBN    4+1
02818  M01S02664.callfas +++|          CRD    CM          READ POINTER TO MESSAGE OUTPUT FET
02819  M01S02665.callfas +++|          LDC    TCHS        CHANNEL INSTRUCTION LIST
02820  M01S02666.callfas +++|          STD    T1
02821  M01S02667.callfas +++| PRS3     LDI    T1
02822  M01S02668.callfas +++|          ZJN    PRS4        IF END OF LIST
02823  M01S02669.callfas +++|          STD    T2
02824  M01S02670.callfas +++|          LDI    T2
02825  M01S02671.callfas +++|          SCN    37
02826  M01S02672.callfas +++|          ADD    T7          SET CHANNEL
02827  M01S02673.callfas +++|          STI    T2
02828  M01S02674.callfas +++|          AOD    T1          ADVANCE LIST
02829  M01S02675.callfas +++|          UJN    PRS3        SET NEXT ENTRY
02830  M01S02676.callfas +++|
02831  M01S02677.callfas +++| PRS4     LDD    CM+3
02832  M01S02678.callfas +++|          LPN    77
02833  M01S02679.callfas +++|          RAM    SSDB-1      INITIALIZE MESSAGE INPUT FET ADDRESS
02834  M01S02680.callfas +++|          LPN    77
02835  M01S02681.callfas +++|          SHN    14
02836  M01S02682.callfas +++|          LMD    CM+4
02837  M01S02683.callfas +++|          STM    SSDB
02838  M01S02684.callfas +++|          RJM    CFL         CHECK ADDRESS
02839  M01S02685.callfas +++|          LDD    CN+1        SET DRIVER RECALL ADDRESS
02840  M01S02686.callfas +++|          LPN    77
02841  M01S02687.callfas +++|          STD    DR
02842  M01S02688.callfas +++|          SHN    14
02843  M01S02689.callfas +++|          ADD    CN+2
02844  M01S02690.callfas +++|          STD    DR+1
02845  M01S02691.callfas +++|          RJM    CFL         CHECK FIELDLENGTH
02846  M01S02692.callfas +++|          LDD    CP
02847  M01S02693.callfas +++|          ADN    SNSW
02848  M01S02694.callfas +++|          CRD    CM          READ SENSE SWITCH WORD
02849  M01S02695.callfas +++|          LDD    CM+4
02850  M01S02696.callfas +++|          SHN    21-6
02851  M01S02697.callfas +++|          MJN    PRS5        IF TRACE MODE REQUESTED
02852  M01S02698.callfas +++|          LJM    PRSX        RETURN
02853  M01S02699.callfas +++|
02854  M01S02700.callfas +++| PRS5     AOM    TRCA
02855  M01S02701.callfas +++|          AOM    TRCB
02856  M01S02702.callfas +++|          AOM    TRCC
02857  M01S02703.callfas +++|          AOM    TRCD
02858  M01S02704.callfas +++|          AOM    TRCE
02859  M01S02705.callfas +++|          AOM    TRCF
02860  M01S02706.callfas +++|          AOM    TRCG
02861  M01S02707.callfas +++|          LJM    PRSX        RETURN
02862  M01S02708.callfas +++| TCHS     SPACE  4,10
02863  M01S02709.callfas +++|**        TCHS - CHANNEL TABLE.
02864  M01S02710.callfas +++|*         TABLE CONTAINS THE ADDRESSES OF ALL INSTRUCTIONS WHICH
02865  M01S02711.callfas +++|*         REFERENCE THE EQUIPMENT CHANNEL.
02866  M01S02712.callfas +++|
02867  M01S02713.callfas +++|
02868  M01S02714.callfas +++| TCHS     CHTB
02869  M01S02715.callfas +++|          SPACE  4,10
02870  M01S02716.callfas +++|*         TREQ - TABLE OF LEGAL FUNCTION PRESET ROUTINES.
02871  M01S02717.callfas +++|
02872  M01S02718.callfas +++|
02873  M01S02719.callfas +++| TREQ     BSS    0
02874  M01S02720.callfas +++|          LOC    0
02875  M01S02721.callfas +++|          CON    0           NULL FUNCTION
02876  M01S02722.callfas +++| IRTDAM   CON    ETD         ENABLE TDAM BUFFER
02877  M01S02723.callfas +++| IRPMSG   CON    MSG         MESSAGE I/O
02878  M01S02724.callfas +++| IRMDAT   CON    MSG         MESSAGE AND DATA I/O
02879  M01S02725.callfas +++| IRCHAN   CON    SCH         SET CHANNELS IN EST
02880  M01S02726.callfas +++|          LOC    *O
02881  M01S02727.callfas +++| TREQL    EQU    *-TREQ
02882  M01S02728.callfas +++|          TITLE  2SS - ERROR MESSAGE OVERLAY.
02883  M01S02729.callfas +++|          IDENT  2SS,EMSX
02884  M01S02730.callfas +++|*COMMENT  1SS - ERROR MESSAGE OVERLAY.

Seq #  *Modification Id* Act 
----------------------------+
02885  M02S02731.@000003 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
02886  M01S00002.@000003 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02887  M01S02732.callfas +++|***       2SS - ERROR MESSAGE OVERLAY.
02888  M01S02733.callfas +++|*
02889  M01S02734.callfas +++|*         2SS IS CALLED BY 1SS TO ISSUE ERROR MESSAGES
02890  M01S02735.callfas +++|*         TO THE MSAS SUBSYSTEM LOCAL DAYFILE WHEN AN
02891  M01S02736.callfas +++|*         ERROR IS DETECTED.
02892  M01S02737.callfas +++|*
02893  M01S02738.callfas +++|*         ENTRY
02894  M01S02739.callfas +++|*
02895  M01S02740.callfas +++|*         (ERR) = PP ADDRESS WHERE ERROR DETECTED.
02896  M01S02741.callfas +++|*         (GSTS) = START OF HAEDWARE STATUS BUFFER(25 WORDS).
02897  M01S02742.callfas +++|*
02898  M01S02743.callfas +++|*         EXIT
02899  M01S02744.callfas +++|*         MESSAGES ISSUED.
02900  M01S02745.callfas +++|*
02901  M01S02746.callfas +++|*
02902  M01S02747.callfas +++|*         MESSAGE FOR ALL ERRORS.
02903  M01S02748.callfas +++|*
02904  M01S02749.callfas +++|*         ERR = XX, ADR YYYY.
02905  M01S02750.callfas +++|*
02906  M01S02751.callfas +++|*         XX     ERROR CODE (SEE COMBCDD).
02907  M01S02752.callfas +++|*         YYYY   PP ADDRESS WHERE ERROR DETECTED.
02908  M01S02753.callfas +++|*
02909  M01S02754.callfas +++|*         HARDWARE ERROR MESSAGES.
02910  M01S02755.callfas +++|*
02911  M01S02756.callfas +++|*         SS,CXX,GSSSSSSSSSSSS.
02912  M01S02757.callfas +++|*         SS,CXX,FYYYYYYYYYYYYYYYYYYYY.
02913  M01S02758.callfas +++|*         SS,CXX,DZZZZ. MESSAGE.
02914  M01S02759.callfas +++|*
02915  M01S02760.callfas +++|*         WHERE.
02916  M01S02761.callfas +++|*         XX = CHANNEL.
02917  M01S02762.callfas +++|*         SS...S = GENERAL STATUS.
02918  M01S02763.callfas +++|*         YY...Y = FSC STATUS.
02919  M01S02764.callfas +++|*         ZZZZ = DIAGNOSTIC STATUS.
02920  M01S02765.callfas +++|*         MESSAGE = ONE OF THE FOLLOWING.
02921  M01S02766.callfas +++|*         STATUS ERROR. = ALERT STATUS AND NONE OF THE FOLLOWING.
02922  M01S02767.callfas +++|*         INPUT HANG. = CHANNEL HUNG ON INPUT OPERATION.
02923  M01S02768.callfas +++|*         OUTPUT HANG. = CHANNEL HUNG ON OUTPUT OPERATION.
02924  M01S02769.callfas +++|*         FUNCTION TIMEOUT. = NO RESPONSE TO FUNCTION IN 2 SECONDS.
02925  M01S02770.callfas +++|*         NO EOP. = NO ENDING STATUS FROM M860 IN 6 SECONDS.
02926  M01S02771.callfas +++|*         CHAN. MALF. = NO RESPONSE TO DIAGNOSTIC STATUS FUNCTION.
02927  M01S02772.callfas +++|*         CHAN. PE. = FSC DETECTED CHANNEL A CHANNEL PARITY ERROR.
02928  M01S02773.callfas +++|*         FSC MEM. PE. = FSC HAD A MEMORY PARITY ERROR.
02929  M01S02774.callfas +++|*         FSC NOT RUNNING. = FSC PROCESSOR WAS NOT RUNNING.
02930  M01S02775.callfas +++|*         FSC ABNORMAL. = FSC ABNORMAL STATUS.
02931  M01S02776.callfas +++|          EJECT
02932  M01S02777.callfas +++| EMS      SPACE  0
02933  M01S02778.callfas +++|**        EMS - ERROR MESSAGE PROCESSOR
02934  M01S02779.callfas +++|*
02935  M01S02780.callfas +++|*         ENTRY  (EC) = ERROR CODE.
02936  M01S02781.callfas +++|*                (GSTS) = STATUS BUFFER.
02937  M01S02782.callfas +++|*
02938  M01S02783.callfas +++|*         EXIT   MESSAGES ISSUED.
02939  M01S02784.callfas +++|*
02940  M01S02785.callfas +++|*         USES   T1, T2, CN, IN, OT, LM.
02941  M01S02786.callfas +++|*
02942  M01S02787.callfas +++|*         CALLS  C2D.
02943  M01S02788.callfas +++|
02944  M01S02789.callfas +++|
02945  M01S02790.callfas +++|          ORG    OVLA
02946  M01S02791.callfas +++| EMS      SUBR               ENTRY/EXIT
02947  M01S02792.callfas +++|          LDD    CP
02948  M01S02793.callfas +++|          ADN    SNSW
02949  M01S02794.callfas +++|          CRD    CM          READ SENSE SWITCH WORD
02950  M01S02795.callfas +++|          LDD    CM+4
02951  M01S02796.callfas +++|          SHN    21-6
02952  M01S02797.callfas +++|          MJN    EMS00       IF TRACE MODE
02953  M01S02798.callfas +++|          LDD    EC
02954  M01S02799.callfas +++|          SBN    RCHWET
02955  M01S02800.callfas +++|          MJN    EMSX        IF NOT HARDWARE ERROR
02956  M01S02801.callfas +++|          LJM    EMS0        MUST BE HARDWARE ERROR
02957  M01S02802.callfas +++|
02958  M01S02803.callfas +++| EMS00    LDM    ERRT-1,EC
02959  M01S02804.callfas +++|          STD    T1          GET ERROR TYPE MESSAGE
02960  M01S02805.callfas +++|          LDI    T1
02961  M01S02806.callfas +++|          STM    EMSE
02962  M01S02807.callfas +++|          LDM    1,T1
02963  M01S02808.callfas +++|          STM    EMSE+1
02964  M01S02809.callfas +++|          LDM    2,T1
02965  M01S02810.callfas +++|          STM    EMSE+2
02966  M01S02811.callfas +++|          LDM    ERR         GET ADDRESS WHERE DETECTED
02967  M01S02812.callfas +++|          SBN    3
02968  M01S02813.callfas +++|          SHN    -6
02969  M01S02814.callfas +++|          RJM    C2D         UPPER DIGITS
02970  M01S02815.callfas +++|          STM    EMSE+6
02971  M01S02816.callfas +++|          LDM    ERR
02972  M01S02817.callfas +++|          SBN    3
02973  M01S02818.callfas +++|          RJM    C2D         LOWRE DIGITS
02974  M01S02819.callfas +++|          STM    EMSE+7
02975  M01S02820.callfas +++|          LDC    EMSE+CPON
02976  M01S02821.callfas +++|          RJM    DFM         ISSUE MESSAGE
02977  M01S02822.callfas +++|          LDD    EC
02978  M01S02823.callfas +++|          SBN    RCHWET
02979  M01S02824.callfas +++|          PJN    EMS0        IF HARDWARE ERROR
02980  M01S02825.callfas +++|          LJM    EMSX        RETURN
02981  M01S02826.callfas +++|
02982  M01S02827.callfas +++| EMS0     LDM    CHAN        GET CHANNEL USED
02983  M01S02828.callfas +++|          RJM    C2D         CONVERT TO DISPLAY
02984  M01S02829.callfas +++|          STM    EMSA+2      STORE IN MESSAGES
02985  M01S02830.callfas +++|          STM    EMSB+2
02986  M01S02831.callfas +++|          STM    EMSC+2
02987  M01S02832.callfas +++|          LDC    GSTS        GENERAL STATUS BUFFER
02988  M01S02833.callfas +++|          STD    IN
02989  M01S02834.callfas +++|          LDC    EMSA+4
02990  M01S02835.callfas +++|          STD    OT
02991  M01S02836.callfas +++| EMS1     LDI    IN
02992  M01S02837.callfas +++|          SHN    -6
02993  M01S02838.callfas +++|          RJM    C2D         CONVERT UPPER 2 DIGITS
02994  M01S02839.callfas +++|          STI    OT
02995  M01S02840.callfas +++|          AOD    OT
02996  M01S02841.callfas +++|          LDI    IN
02997  M01S02842.callfas +++|          RJM    C2D         CONVERT LOWER 2 DIGITS
02998  M01S02843.callfas +++|          STI    OT
02999  M01S02844.callfas +++|          AOD    OT
03000  M01S02845.callfas +++|          AOD    IN
03001  M01S02846.callfas +++|          LMC    FSTS
03002  M01S02847.callfas +++|          NJN    EMS1        IF NOT AT FSC STATUS
03003  M01S02848.callfas +++|          LDC    EMSA+CPON
03004  M01S02849.callfas +++|          RJM    DFM         ISSUE MESSAGE TO CONTROL POINT DAYFILE
03005  M01S02850.callfas +++|          LDN    4           SET UP FOR 4 MESSAGES OF 5 BUTES EACH
03006  M01S02851.callfas +++|          STD    CN
03007  M01S02852.callfas +++| EMS2     LDD    IN
03008  M01S02853.callfas +++|          ADN    5
03009  M01S02854.callfas +++|          STD    LM
03010  M01S02855.callfas +++|          LDC    EMSB+4
03011  M01S02856.callfas +++|          STD    OT
03012  M01S02857.callfas +++| EMS3     LDI    IN
03013  M01S02858.callfas +++|          SHN    -6
03014  M01S02859.callfas +++|          RJM    C2D         CONVERT LOWER 2 DIGITS
03015  M01S02860.callfas +++|          STI    OT
03016  M01S02861.callfas +++|          AOD    OT
03017  M01S02862.callfas +++|          LDI    IN
03018  M01S02863.callfas +++|          RJM    C2D         CONVERT LOWER 2 DIGITS
03019  M01S02864.callfas +++|          STI    OT
03020  M01S02865.callfas +++|          AOD    OT
03021  M01S02866.callfas +++|          AOD    IN
03022  M01S02867.callfas +++|          LMD    LM
03023  M01S02868.callfas +++|          NJN    EMS3        IF NOT 5 BYTES MOVED
03024  M01S02869.callfas +++|          LDC    EMSB+CPON
03025  M01S02870.callfas +++|          RJM    DFM         ISSUE MESSAGE TO CONTROL POINT DAYFILE
03026  M01S02871.callfas +++|          SOD    CN
03027  M01S02872.callfas +++|          NJN    EMS2        IF NOT 4 MESSAGES
03028  M01S02873.callfas +++|          LDM    DSTS        GET DIAGNOSTIC STATUS
03029  M01S02874.callfas +++|          SHN    -6
03030  M01S02875.callfas +++|          RJM    C2D         CONVERT UPPER 2 DIGITS
03031  M01S02876.callfas +++|          STM    EMSC+4
03032  M01S02877.callfas +++|          LDM    DSTS
03033  M01S02878.callfas +++|          RJM    C2D         CONVERT LOWER 2 DIGITS
03034  M01S02879.callfas +++|          STM    EMSC+5
03035  M01S02880.callfas +++|          LDC    EMSD        MOVE MESSAGE
03036  M01S02881.callfas +++|          STD    OT
03037  M01S02882.callfas +++|          LDD    EC          ERROR CODE TO SSEXEC
03038  M01S02883.callfas +++|          SBN    RCHWET      REMOVE HARDWARE ERROR BIAS
03039  M01S02884.callfas +++|          STD    T1
03040  M01S02885.callfas +++|          LDM    EMST,T1     ADDRESS OF SPECIFIC MESSAGE
03041  M01S02886.callfas +++|          STD    IN
03042  M01S02887.callfas +++| EMS4     LDI    IN
03043  M01S02888.callfas +++|          STI    OT          MOVE MESSAGE
03044  M01S02889.callfas +++|          ZJN    EMS5        IF END OF MESSAGE
03045  M01S02890.callfas +++|          AOD    IN
03046  M01S02891.callfas +++|          AOD    OT
03047  M01S02892.callfas +++|          UJN    EMS4        FINISH MOVE
03048  M01S02893.callfas +++|
03049  M01S02894.callfas +++| EMS5     LDC    EMSC+CPON
03050  M01S02895.callfas +++|          RJM    DFM         ISSUE MESSAGE TO CONTROL POINT DAYFILE
03051  M01S02896.callfas +++|          LJM    EMSX        RETURN
03052  M01S02897.callfas +++|
03053  M01S02898.callfas +++|
03054  M01S02899.callfas +++| EMSA     DIS    ,*SS,CXX,GSSSSSSSSSSSS.*
03055  M01S02900.callfas +++| EMSB     DIS    ,*SS,CXX,FXXXXXXXXXXXXXXXXXXXX.*
03056  M01S02901.callfas +++| EMSC     DATA   14HSS,CXX,DZZZZ,
03057  M01S02902.callfas +++| EMSD     BSS    30          SPECIFIC ERROR MESSAGE
03058  M01S02903.callfas +++| EMSE     DIS    ,*RCXXXX, ADR YYYY.*
03059  M01S02904.callfas +++|          SPACE  4,10
03060  M01S02905.callfas +++|*         EMST - TABLE OF SPECIFIC ERROR MESSAGES.
03061  M01S02906.callfas +++|
03062  M01S02907.callfas +++|
03063  M01S02908.callfas +++| EMST     BSS    0
03064  M01S02909.callfas +++|          CON    =C*STATUS ERROR.*
03065  M01S02910.callfas +++|          CON    =C*INPUT HANG.*
03066  M01S02911.callfas +++|          CON    =C*OUTPUT HANG.*
03067  M01S02912.callfas +++|          CON    =C*FUNCTION TIMEOUT.*
03068  M01S02913.callfas +++|          CON    =C*NO EOP.*
03069  M01S02914.callfas +++|          CON    =C*CHAN. MALF.*
03070  M01S02915.callfas +++|          CON    =C*CHAN. PE.*

Seq #  *Modification Id* Act 
----------------------------+
03071  M02S02916.@000000 ---|          CON    =C*FSC MEM. PE.*

Seq #  *Modification Id* Act 
----------------------------+
03072  M02S02917.@000000 ---|          CON    =C*FSC NOT RUNNING.*

Seq #  *Modification Id* Act 
----------------------------+
03073  M02S02918.@000000 ---|          CON    =C*FSC ABNORMAL.*
03074  M01S00002.@000000 +++|          CON    =C*CCC MEM. PE.*
03075  M01S00003.@000000 +++|          CON    =C*CCC NOT RUNNING.*
03076  M01S00004.@000000 +++|          CON    =C*CCC ABNORMAL.*
03077  M01S02919.callfas +++|          CON    =C*DIAGNOSTIC FAILURE.*
03078  M01S02920.callfas +++|          CON    0           CPU ONLY ERROR CODE
03079  M01S02921.callfas +++|          CON    =C*OPERATOR IMPL REQUIRED.*
03080  M01S02922.callfas +++|          CON    =C*CHANNEL INTERFACE OFF LINE.*
03081  M01S02923.callfas +++| ERRT     SPACE  4,10
03082  M01S02924.callfas +++|**        ERRT - TABLE OF ERROR RETURN CODES.
03083  M01S02925.callfas +++|
03084  M01S02926.callfas +++|
03085  M01S02927.callfas +++| ERRT     BSS    0
03086  M01S02928.callfas +++|          CON    =6HRCILLF   ILLEGAL FUNCTION
03087  M01S02929.callfas +++|          CON    =6HRCDLER   DATA LENGTH ERROR
03088  M01S02930.callfas +++|          CON    =6HRCCWER   CONTROL WORD ERROR
03089  M01S02931.callfas +++|          CON    =6HRCBARG   BUFFER ARGUMENT ERROR
03090  M01S02932.callfas +++|          CON    =6HRCHDER   HEADER/TRAILER ERROR
03091  M01S02933.callfas +++|          CON    =6HRCENDV   END OF VOLUME
03092  M01S02934.callfas +++|          CON    =6HRCILLU   ILLEGAL UNIT NUMBER
03093  M01S02935.callfas +++|          CON    =6HRCBFTO   BUFFER TIMEOUT ERROR
03094  M01S02936.callfas +++|          CON    =6HRCTBRT   TAPE BOTTOM RIGHT
03095  M01S02937.callfas +++|          CON    =6HRCTERF   TERMINATE FLAG DETECTED
03096  M01S02938.callfas +++|          CON    =6HNO ERR
03097  M01S02939.callfas +++|          CON    =6HNO ERR
03098  M01S02940.callfas +++|          CON    =6HNO ERR
03099  M01S02941.callfas +++|          CON    =6HNO ERR
03100  M01S02942.callfas +++|          CON    =6HNO ERR
03101  M01S02943.callfas +++|          CON    =6HRCSTER   STATUS ERROR
03102  M01S02944.callfas +++|          CON    =6HRCCHIN   CHANNEL HUNG ON INPUT
03103  M01S02945.callfas +++|          CON    =6HRCCHOT   CHANNEL HUNG ON OUTPUT
03104  M01S02946.callfas +++|          CON    =6HRCFCTO   FUNCTION TIMEOUT
03105  M01S02947.callfas +++|          CON    =6HRCNEOP   NO END OF OPERATION
03106  M01S02948.callfas +++|          CON    =6HRCCHMF   CHANNEL MALFUNCTION
03107  M01S02949.callfas +++|          CON    =6HRCCHPE   CHANNEL PARITY ERROR
03108  M01S02950.callfas +++|          CON    =6HRCFSPE   FSC MEMORY PARITY ERR
03109  M01S02951.callfas +++|          CON    =6HRCFSNR   FSC NOT RUNNING
03110  M01S02952.callfas +++|          CON    =6HRCFSAB   FSC ABNORMAL
03111  M01S02953.callfas +++|          CON    =6HRCFSDF   FSC DIAGNOSTIC FAILURE
03112  M01S02954.callfas +++|          CON    =6HRCXSUM   XSUM ERROR (CM DRIVER)
03113  M01S02955.callfas +++|          CON    =6HRCIMPL   OPERATOR IMPL REQUIRED
03114  M01S02956.callfas +++|          CON    =6HRCCIFO   M860 CHANNEL OFFLINE
03115  M01S02957.callfas +++|          SPACE  4,10
03116  M01S02958.callfas +++|*         COMMON DECKS.
03117  M01S02959.callfas +++|
03118  M01S02960.callfas +++|
03119  M01S02961.callfas +++|*CALL     COMPC2D
03120  M01S02962.callfas +++|          SPACE  4,10
03121  M01S02963.callfas +++|          END