User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1ss.001

Deck 1SS Part 001

5 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
02157  M00S02153.1ss     +++|*
02158  M00S02154.1ss     +++|*         USES   CM - CM+4.
02159  M00S02155.1ss     +++|
02160  M00S02156.1ss     +++|
02161  M00S02157.1ss     +++| CIB      SUBR               ENTRY/EXIT
02162  M00S02158.1ss     +++|          FETA   3
02163  M00S02159.1ss     +++|          CRD    CM
02164  M00S02160.1ss     +++|          LDD    CM+3        SET OUT
02165  M00S02161.1ss     +++|          LPN    77
02166  M00S02162.1ss     +++|          STD    OT
02167  M00S02163.1ss     +++|          SHN    14
02168  M00S02164.1ss     +++|          LMD    CM+4
02169  M00S02165.1ss     +++|          STD    OT+1
02170  M00S02166.1ss     +++|          RJM    CFL         CHECK ADDRESS
02171  M00S02167.1ss     +++|          LDD    OT          LENGTH = OUT - IN
02172  M00S02168.1ss     +++|          SBD    IN
02173  M00S02169.1ss     +++|          SHN    14
02174  M00S02170.1ss     +++|          ADD    OT+1
02175  M00S02171.1ss     +++|          SBD    IN+1
02176  M00S02172.1ss     +++|          ZJN    CIB1        IF IN = OUT
02177  M00S02173.1ss     +++|          PJN    CIB2        IF OUT .GT. IN
02178  M00S02174.1ss     +++| CIB1     SHN    6           LENGTH = (LIMIT - IN) + OUT - FIRST)
02179  M00S02175.1ss     +++|          ADD    LM
02180  M00S02176.1ss     +++|          SBD    FT
02181  M00S02177.1ss     +++|          SHN    14
02182  M00S02178.1ss     +++|          ADD    LM+1
02183  M00S02179.1ss     +++|          SBD    FT+1
02184  M00S02180.1ss     +++| CIB2     SBN    1           LENGTH - 1
02185  M00S02181.1ss     +++|          UJN    CIBX        RETURN
02186  M00S02182.1ss     +++| COB      SPACE  4,10
02187  M00S02183.1ss     +++|**        COB - CHECK OUTPUT BUFFER.
02188  M00S02184.1ss     +++|*
02189  M00S02185.1ss     +++|*         ENTRY  (FE - FE+1) = ADDRESS OF FET.
02190  M00S02186.1ss     +++|*                (FT - FT+1) = FIRST ADDRESS OF CM BUFFER.
02191  M00S02187.1ss     +++|*                (IN - IN+1) = NEXT INPUT ADDRESS.
02192  M00S02188.1ss     +++|*                (OT - OT+1) = NEXT OUTPUT ADDRESS.
02193  M00S02189.1ss     +++|*                (LM - LM+1) = LIMIT ADDRESS OF CM BUFFER.
02194  M00S02190.1ss     +++|*
02195  M00S02191.1ss     +++|*         EXIT   (A) = WORD COUNT OF BUFFER.
02196  M00S02192.1ss     +++|*                RESETS (IN - IN+1).
02197  M00S02193.1ss     +++|*
02198  M00S02194.1ss     +++|*         CALLS  CFL.
02199  M00S02195.1ss     +++|*
02200  M00S02196.1ss     +++|*         USES   CM - CM+4.
02201  M00S02197.1ss     +++|
02202  M00S02198.1ss     +++|
02203  M00S02199.1ss     +++| COB      SUBR               ENTRY/EXIT
02204  M00S02200.1ss     +++|          FETA   2           READ IN
02205  M00S02201.1ss     +++|          CRD    CM
02206  M00S02202.1ss     +++|          LDD    CM+3        SET IN
02207  M00S02203.1ss     +++|          LPN    77
02208  M00S02204.1ss     +++|          STD    IN
02209  M00S02205.1ss     +++|          SHN    14
02210  M00S02206.1ss     +++|          LMD    CM+4
02211  M00S02207.1ss     +++|          STD    IN+1
02212  M00S02208.1ss     +++|          RJM    CFL         CHECK ADDRESS
02213  M00S02209.1ss     +++|          LDD    IN          LENGTH = IN - OUT
02214  M00S02210.1ss     +++|          SBD    OT
02215  M00S02211.1ss     +++|          SHN    14
02216  M00S02212.1ss     +++|          ADD    IN+1
02217  M00S02213.1ss     +++|          SBD    OT+1
02218  M00S02214.1ss     +++|          PJN    COBX        RETURN IF IN .GE. OUT
02219  M00S02215.1ss     +++|          SHN    6           LENGTH = (LIMIT - OUT) + (IN - FIRST)
02220  M00S02216.1ss     +++|          ADD    LM
02221  M00S02217.1ss     +++|          SBD    FT
02222  M00S02218.1ss     +++|          SHN    14
02223  M00S02219.1ss     +++|          ADD    LM+1
02224  M00S02220.1ss     +++|          SBD    FT+1
02225  M00S02221.1ss     +++|          UJN    COBX        RETURN
02226  M00S02222.1ss     +++| DV3      SPACE  4,10
02227  M00S02223.1ss     +++|**        DV3 - DIVIDE BY 3.
02228  M00S02224.1ss     +++|*
02229  M00S02225.1ss     +++|*         DV3 USES THE APPROXIMATION N/3 = (85*N + 22*N/64) / 256.
02230  M00S02226.1ss     +++|*         ROUNDING UP IS DONE.
02231  M00S02227.1ss     +++|*
02232  M00S02228.1ss     +++|*         ENTRY  (A) = NUMBER.
02233  M00S02229.1ss     +++|*
02234  M00S02230.1ss     +++|*         EXIT   (A) = NUMBER / 3.
02235  M00S02231.1ss     +++|*
02236  M00S02232.1ss     +++|*         CALLS  NONE.
02237  M00S02233.1ss     +++|*
02238  M00S02234.1ss     +++|*         USES   T0, T2.
02239  M00S02235.1ss     +++|
02240  M00S02236.1ss     +++|
02241  M00S02237.1ss     +++| DV3      SUBR               ENTRY/EXIT
02242  M00S02238.1ss     +++|          ADN    2           ROUND UP
02243  M00S02239.1ss     +++|          STD    T2          SAVE N
02244  M00S02240.1ss     +++|          SHN    2           N*4
02245  M00S02241.1ss     +++|          ADD    T2          N*5
02246  M00S02242.1ss     +++|          SHN    1           N*10
02247  M00S02243.1ss     +++|          ADD    T2          N*11
02248  M00S02244.1ss     +++|          SHN    1+14        N*22/64
02249  M00S02245.1ss     +++|          STD    T0
02250  M00S02246.1ss     +++|          SHN    6           N*22
02251  M00S02247.1ss     +++|          SBD    T2          N*21
02252  M00S02248.1ss     +++|          SHN    2           N*84
02253  M00S02249.1ss     +++|          ADD    T2          N*85
02254  M00S02250.1ss     +++|          ADD    T0          N*85 + N*22/64
02255  M00S02251.1ss     +++|          SHN    -10         (N*85 + N*22/64) / 256
02256  M00S02252.1ss     +++|          LJM    DV3X        RETURN
02257  M00S02253.1ss     +++| GMT      SPACE  4,10
02258  M00S02254.1ss     +++|**        GMT - GET MESSAGE TYPE.
02259  M00S02255.1ss     +++|*
02260  M00S02256.1ss     +++|*         ENTRY  64 BYTE MESSAGE STARTING AT BUFR.
02261  M00S02257.1ss     +++|*         ENTRY  (BUFR) = START OF 64 BYTE M860 MESSAGE.
02262  M00S02258.1ss     +++|*
02263  M00S02259.1ss     +++|*         EXIT   (A) = MESSAGE TYPE(BYTE 4 OF MESSAGE).
02264  M00S02260.1ss     +++|*
02265  M00S02261.1ss     +++|*         CALLS  NONE.
02266  M00S02262.1ss     +++|*
02267  M00S02263.1ss     +++|*         USES   NONE.
02268  M00S02264.1ss     +++|
02269  M00S02265.1ss     +++|
02270  M00S02266.1ss     +++| GMT      SUBR               ENTRY/EXIT
02271  M00S02267.1ss     +++|          LDM    BUFR+2      UPPER 4 BITS OF TYPE
02272  M00S02268.1ss     +++|          LPN    0#F
02273  M00S02269.1ss     +++|          SHN    14
02274  M00S02270.1ss     +++|          LMM    BUFR+3
02275  M00S02271.1ss     +++|          SHN    -8D         POSITION MESSAGE TYPE
02276  M00S02272.1ss     +++|          UJN    GMTX        RETURN
02277  M00S02273.1ss     +++| IBP      SPACE  4,10
02278  M00S02274.1ss     +++|**        IBP - INITIALIZE AND CHECK BUFFER PARAMETERS.
02279  M00S02275.1ss     +++|*
02280  M00S02276.1ss     +++|*         ENTRY  (FE - FE+1) = FET ADDRESS.
02281  M00S02277.1ss     +++|*
02282  M00S02278.1ss     +++|*         EXIT   FT, IN, OT, AND LM INITIALIZED.
02283  M00S02279.1ss     +++|*
02284  M00S02280.1ss     +++|*         CALLS  CFL.
02285  M00S02281.1ss     +++|*
02286  M00S02282.1ss     +++|*         USES   T1 - T5, CM - CM+4.
02287  M00S02283.1ss     +++|
02288  M00S02284.1ss     +++|
02289  M00S02285.1ss     +++| IBP      SUBR               ENTRY/EXIT
02290  M00S02286.1ss     +++|          FETA   1
02291  M00S02287.1ss     +++|          CRD    CM          READ FIRST
02292  M00S02288.1ss     +++|          ADN    1
02293  M00S02289.1ss     +++|          CRD    T1          READ IN
02294  M00S02290.1ss     +++|          ADN    2
02295  M00S02291.1ss     +++|          CRD    LM-3        READ LIMIT
02296  M00S02292.1ss     +++|          SBN    1
02297  M00S02293.1ss     +++|          CRD    OT-3        READ OUT
02298  M00S02294.1ss     +++|          LDD    CM+3
02299  M00S02295.1ss     +++|          LPN    77
02300  M00S02296.1ss     +++|          STD    FT
02301  M00S02297.1ss     +++|          LDD    CM+4
02302  M00S02298.1ss     +++|          STD    FT+1
02303  M00S02299.1ss     +++|          LDD    LM
02304  M00S02300.1ss     +++|          LPN    77
02305  M00S02301.1ss     +++|          STD    LM
02306  M00S02302.1ss     +++|          SHN    14
02307  M00S02303.1ss     +++|          ADD    LM+1
02308  M00S02304.1ss     +++|          SBN    1           ALLOW LIMIT = FL
02309  M00S02305.1ss     +++|          RJM    CFL         CHECK ADDRESS
02310  M00S02306.1ss     +++|          LDD    OT          CHECK OUT
02311  M00S02307.1ss     +++|          SBD    LM
02312  M00S02308.1ss     +++|          SHN    14
02313  M00S02309.1ss     +++|          ADD    OT+1
02314  M00S02310.1ss     +++|          SBD    LM+1
02315  M00S02311.1ss     +++|          PJN    IBP1        IF OUT GE LIMIT
02316  M00S02312.1ss     +++|          LDD    OT
02317  M00S02313.1ss     +++|          SBD    FT
02318  M00S02314.1ss     +++|          SHN    14
02319  M00S02315.1ss     +++|          ADD    OT+1
02320  M00S02316.1ss     +++|          SBD    FT+1
02321  M00S02317.1ss     +++|          MJN    IBP1        IF OUT LT FIRST
02322  M00S02318.1ss     +++|          LDD    T1+4
02323  M00S02319.1ss     +++|          STD    IN+1
02324  M00S02320.1ss     +++|          LDD    T1+3
02325  M00S02321.1ss     +++|          LPN    77
02326  M00S02322.1ss     +++|          STD    IN
02327  M00S02323.1ss     +++|          SBD    LM          CHECK IN
02328  M00S02324.1ss     +++|          SHN    14
02329  M00S02325.1ss     +++|          ADD    IN+1
02330  M00S02326.1ss     +++|          SBD    LM+1
02331  M00S02327.1ss     +++|          PJN    IBP1        IF IN GE LIMIT
02332  M00S02328.1ss     +++|          LDD    IN
02333  M00S02329.1ss     +++|          SBD    FT
02334  M00S02330.1ss     +++|          SHN    14
02335  M00S02331.1ss     +++|          ADD    IN+1
02336  M00S02332.1ss     +++|          SBD    FT+1
02337  M00S02333.1ss     +++|          PJN    IBP2        IF IN GE FIRST
02338  M00S02334.1ss     +++| IBP1     ERROR  RCBARG      BUFFER ARGUMENT ERROR
02339  M00S02335.1ss     +++|
02340  M00S02336.1ss     +++| IBP2     LJM    IBPX        RETURN
02341  M00S02337.1ss     +++| RMB      SPACE  4,10
02342  M00S02338.1ss     +++|**        RMB - READ MESSAGE BUFFER.
02343  M00S02339.1ss     +++|*
02344  M00S02340.1ss     +++|*         ENTRY  (WC) = CM WORD COUNT.
02345  M00S02341.1ss     +++|*
02346  M00S02342.1ss     +++|*         EXIT   OUT POINTER UPDATED IN (OT - OT+1).
02347  M00S02343.1ss     +++|*
02348  M00S02344.1ss     +++|*         CALLS  NONE.
02349  M00S02345.1ss     +++|*
02350  M00S02346.1ss     +++|*         USES   T3, OT - OT+1, WC.
02351  M00S02347.1ss     +++|
02352  M00S02348.1ss     +++|
02353  M00S02349.1ss     +++| RMB      SUBR               ENTRY/EXIT
02354  M00S02350.1ss     +++|          LDC    BUFR
02355  M00S02351.1ss     +++|          STM    RMBA        PP BUFFER ADDRESS
02356  M00S02352.1ss     +++|          LDD    LM
02357  M00S02353.1ss     +++|          SBD    OT
02358  M00S02354.1ss     +++|          SHN    14
02359  M00S02355.1ss     +++|          ADD    LM+1
02360  M00S02356.1ss     +++|          SBD    OT+1
02361  M00S02357.1ss     +++|          STD    T3          WORD COUNT TO LIMIT
02362  M00S02358.1ss     +++|          SBD    WC
02363  M00S02359.1ss     +++|          MJN    RMB4        IF WRAPAROUND
02364  M00S02360.1ss     +++| RMB2     LDCA   OT
02365  M00S02361.1ss     +++|          CRM    **,WC
02366  M00S02362.1ss     +++| RMBA     EQU    *-1
02367  M00S02363.1ss     +++|          LDD    WC
02368  M00S02364.1ss     +++|          RAD    OT+1
02369  M00S02365.1ss     +++|          SHN    -14
02370  M00S02366.1ss     +++|          RAD    OT          UPDATE OUT
02371  M00S02367.1ss     +++|          LMD    LM
02372  M00S02368.1ss     +++|          NJN    RMB3        IF OUT NE LIMIT
02373  M00S02369.1ss     +++|          LDD    OT+1
02374  M00S02370.1ss     +++|          LMD    LM+1
02375  M00S02371.1ss     +++|          NJN    RMB3        IF OUT NE LIMIT
02376  M00S02372.1ss     +++|          LDD    FT
02377  M00S02373.1ss     +++|          STD    OT          SET OUT = FIRST
02378  M00S02374.1ss     +++|          LDD    FT+1
02379  M00S02375.1ss     +++|          STD    OT+1
02380  M00S02376.1ss     +++| RMB3     LJM    RMBX        RETURN
02381  M00S02377.1ss     +++|
02382  M00S02378.1ss     +++| RMB4     LDCA   OT
02383  M00S02379.1ss     +++|          CRM    BUFR,T3
02384  M00S02380.1ss     +++|          LDD    FT          SET OUT = FIRST
02385  M00S02381.1ss     +++|          STD    OT
02386  M00S02382.1ss     +++|          LDD    FT+1
02387  M00S02383.1ss     +++|          STD    OT+1
02388  M00S02384.1ss     +++|          LDD    T3
02389  M00S02385.1ss     +++|          SHN    2
02390  M00S02386.1ss     +++|          ADD    T3          PP WORD COUNT
02391  M00S02387.1ss     +++|          RAM    RMBA        UPDATE PP BUFFER ADDRESS
02392  M00S02388.1ss     +++|          LDD    WC
02393  M00S02389.1ss     +++|          SBD    T3
02394  M00S02390.1ss     +++|          STD    WC          SET NEW WORD COUNT
02395  M00S02391.1ss     +++|          LJM    RMB2        READ REMAINING DATA
02396  M00S02392.1ss     +++| SCB      SPACE  4,10
02397  M00S02393.1ss     +++|**        SCB - SET COMPLETE BIT.
02398  M00S02394.1ss     +++|*
02399  M00S02395.1ss     +++|*         ENTRY  (A) = ENDING STATUS.
02400  M00S02396.1ss     +++|*                (EC) = ERROR CODE.
02401  M00S02397.1ss     +++|*
02402  M00S02398.1ss     +++|*         EXIT   FET UPDATED.
02403  M00S02399.1ss     +++|*                (EC) = 0.
02404  M00S02400.1ss     +++|*
02405  M00S02401.1ss     +++|*         CALLS  REL.
02406  M00S02402.1ss     +++|*
02407  M00S02403.1ss     +++|*         USES   CM - CM+4, CN.
02408  M00S02404.1ss     +++|
02409  M00S02405.1ss     +++|
02410  M00S02406.1ss     +++| SCB      SUBR               ENTRY/EXIT
02411  M00S02407.1ss     +++|          STD    CN          SAVE STATUS
02412  M00S02408.1ss     +++|          RJM    REL         RELEASE CHANNEL
02413  M00S02409.1ss     +++|          FETA
02414  M00S02410.1ss     +++|          CRD    CM          READ FET STATUS WORD
02415  M00S02411.1ss     +++|          LDD    CM+3        CLEAR ANY EXISTING STATUS
02416  M00S02412.1ss     +++|          SCN    77
02417  M00S02413.1ss     +++|          STD    CM+3
02418  M00S02414.1ss     +++|          LDD    CM+4
02419  M00S02415.1ss     +++|          LPC    776
02420  M00S02416.1ss     +++|          STD    CM+4
02421  M00S02417.1ss     +++|          LDD    EC
02422  M00S02418.1ss     +++|          SHN    12          POSITION ERROR CODE
02423  M00S02419.1ss     +++|          LMD    CN          SET STATUS
02424  M00S02420.1ss     +++|          LMD    CM+4        RESTORE FUNCTION CODE
02425  M00S02421.1ss     +++|          LMN    1           INSURE COMPLETE STATUS
02426  M00S02422.1ss     +++|          STD    CM+4
02427  M00S02423.1ss     +++|          SHN    -14
02428  M00S02424.1ss     +++|          RAD    CM+3        SET ERROR CODE
02429  M00S02425.1ss     +++|          FETA
02430  M00S02426.1ss     +++|          CWD    CM          UPDATE FET
02431  M00S02427.1ss     +++|          LDN    0
02432  M00S02428.1ss     +++|          STD    EC          CLEAR ERROR CODE
02433  M00S02429.1ss     +++|          LJM    SCBX        RETURN
02434  M00S02430.1ss     +++| UCO      SPACE  4,10
02435  M00S02431.1ss     +++|**        UCO - UPDATE CENTRAL OUT.
02436  M00S02432.1ss     +++|*
02437  M00S02433.1ss     +++|*         ENTRY  (FE) = FET ADDRESS.
02438  M00S02434.1ss     +++|*                (OT - OT+1) = OUT POINTER.
02439  M00S02435.1ss     +++|*
02440  M00S02436.1ss     +++|*         EXIT   OUT UPDATED IN FET.
02441  M00S02437.1ss     +++|*
02442  M00S02438.1ss     +++|*         CALLS  NONE.
02443  M00S02439.1ss     +++|*
02444  M00S02440.1ss     +++|*         USES   CM - CM+4.
02445  M00S02441.1ss     +++|
02446  M00S02442.1ss     +++|
02447  M00S02443.1ss     +++| UCO      SUBR               ENTRY/EXIT
02448  M00S02444.1ss     +++|          LDN    ZERL
02449  M00S02445.1ss     +++|          CRD    CM
02450  M00S02446.1ss     +++|          LDD    OT
02451  M00S02447.1ss     +++|          STD    CM+3
02452  M00S02448.1ss     +++|          LDD    OT+1
02453  M00S02449.1ss     +++|          STD    CM+4
02454  M00S02450.1ss     +++|          FETA   3
02455  M00S02451.1ss     +++|          CWD    CM          UPDATE OUT
02456  M00S02452.1ss     +++|          UJN    UCOX        RETURN
02457  M00S02453.1ss     +++| WBB      SPACE  4,10
02458  M00S02454.1ss     +++|**        WBB - WRITE BINARY BUFFER.
02459  M00S02455.1ss     +++|*
02460  M00S02456.1ss     +++|*         ENTRY  (WC) = CM WORD COUNT.
02461  M00S02457.1ss     +++|*
02462  M00S02458.1ss     +++|*         EXIT   IN POINTER UPDATER IN FET.
02463  M00S02459.1ss     +++|*
02464  M00S02460.1ss     +++|*         CALLS  NONE.
02465  M00S02461.1ss     +++|*
02466  M00S02462.1ss     +++|*         USES   T3, CM - CM+4, WC.
02467  M00S02463.1ss     +++|
02468  M00S02464.1ss     +++|
02469  M00S02465.1ss     +++| WBB1     LDN    ZERL        UPDATE IN POINTER IN FET
02470  M00S02466.1ss     +++|          CRD    CM
02471  M00S02467.1ss     +++|          LDD    IN
02472  M00S02468.1ss     +++|          STD    CM+3
02473  M00S02469.1ss     +++|          LDD    IN+1
02474  M00S02470.1ss     +++|          STD    CM+4
02475  M00S02471.1ss     +++|          FETA   2
02476  M00S02472.1ss     +++|          CWD    CM
02477  M00S02473.1ss     +++|
02478  M00S02474.1ss     +++| WBB      SUBR               ENTRY/EXIT
02479  M00S02475.1ss     +++|          LDC    PBUF
02480  M00S02476.1ss     +++|          STM    WBBA        PPU BUFFER ADDRESS
02481  M00S02477.1ss     +++|          LDD    LM
02482  M00S02478.1ss     +++|          SBD    IN
02483  M00S02479.1ss     +++|          SHN    14
02484  M00S02480.1ss     +++|          ADD    LM+1
02485  M00S02481.1ss     +++|          SBD    IN+1
02486  M00S02482.1ss     +++|          STD    T3          WORD COUNT TO LIMIT
02487  M00S02483.1ss     +++|          SBD    WC
02488  M00S02484.1ss     +++|          MJN    WBB4        IF WRAPAROUND
02489  M00S02485.1ss     +++| WBB2     LDCA   IN
02490  M00S02486.1ss     +++|          CWM    **,WC       WRITE DATA TO BUFFER
02491  M00S02487.1ss     +++| WBBA     EQU    *-1
02492  M00S02488.1ss     +++|          LDD    WC
02493  M00S02489.1ss     +++|          RAD    IN+1
02494  M00S02490.1ss     +++|          SHN    -14
02495  M00S02491.1ss     +++|          RAD    IN
02496  M00S02492.1ss     +++|          LMD    LM
02497  M00S02493.1ss     +++|          NJN    WBB3        IF IN NE LIMIT
02498  M00S02494.1ss     +++|          LDD    IN+1
02499  M00S02495.1ss     +++|          LMD    LM+1
02500  M00S02496.1ss     +++|          NJN    WBB3        IF IN NE LIMIT
02501  M00S02497.1ss     +++|          LDD    FT          SET IN = FIRST
02502  M00S02498.1ss     +++|          STD    IN
02503  M00S02499.1ss     +++|          LDD    FT+1
02504  M00S02500.1ss     +++|          STD    IN+1
02505  M00S02501.1ss     +++| WBB3     LJM    WBB1        UPDATE CENTRAL IN
02506  M00S02502.1ss     +++|
02507  M00S02503.1ss     +++| WBB4     LDCA   IN
02508  M00S02504.1ss     +++|          CWM    PBUF,T3
02509  M00S02505.1ss     +++|          LDD    FT          SET IN = FIRST
02510  M00S02506.1ss     +++|          STD    IN
02511  M00S02507.1ss     +++|          LDD    FT+1
02512  M00S02508.1ss     +++|          STD    IN+1
02513  M00S02509.1ss     +++|          LDD    T3          UPDATE PP BUFFER ADDRESS
02514  M00S02510.1ss     +++|          SHN    2
02515  M00S02511.1ss     +++|          ADD    T3
02516  M00S02512.1ss     +++|          RAM    WBBA
02517  M00S02513.1ss     +++|          LDD    WC
02518  M00S02514.1ss     +++|          SBD    T3
02519  M00S02515.1ss     +++|          STD    WC          SET REMAINING WORD COUNT
02520  M00S02516.1ss     +++|          LJM    WBB2        READ REMAINING DATA
02521  M00S02517.1ss     +++| WMB      SPACE  4,10
02522  M00S02518.1ss     +++|**        WMB - WRITE MESSAGE BUFFER.
02523  M00S02519.1ss     +++|*
02524  M00S02520.1ss     +++|*         ENTRY  (WC) = CM WORD COUNT.
02525  M00S02521.1ss     +++|*
02526  M00S02522.1ss     +++|*         EXIT   IN POINTER UPDATED IN PP.
02527  M00S02523.1ss     +++|*
02528  M00S02524.1ss     +++|*         CALLS  NONE.
02529  M00S02525.1ss     +++|*
02530  M00S02526.1ss     +++|*         USES   T3, IN - IN+1, WC.
02531  M00S02527.1ss     +++|
02532  M00S02528.1ss     +++|
02533  M00S02529.1ss     +++| WMB      SUBR               ENTRY/EXIT
02534  M00S02530.1ss     +++|          LDC    BUFR
02535  M00S02531.1ss     +++|          STM    WMBA        PPU BUFFER ADDRESS
02536  M00S02532.1ss     +++|          LDD    LM
02537  M00S02533.1ss     +++|          SBD    IN
02538  M00S02534.1ss     +++|          SHN    14
02539  M00S02535.1ss     +++|          ADD    LM+1
02540  M00S02536.1ss     +++|          SBD    IN+1
02541  M00S02537.1ss     +++|          STD    T3          WORD COUNT TO LIMIT
02542  M00S02538.1ss     +++|          SBD    WC
02543  M00S02539.1ss     +++|          MJN    WMB4        IF WRAPAROUND
02544  M00S02540.1ss     +++| WMB2     LDCA   IN
02545  M00S02541.1ss     +++|          CWM    **,WC       WRITE DATA TO BUFFER
02546  M00S02542.1ss     +++| WMBA     EQU    *-1
02547  M00S02543.1ss     +++|          LDD    WC
02548  M00S02544.1ss     +++|          RAD    IN+1
02549  M00S02545.1ss     +++|          SHN    -14
02550  M00S02546.1ss     +++|          RAD    IN
02551  M00S02547.1ss     +++|          LMD    LM
02552  M00S02548.1ss     +++|          NJN    WMB3        IF IN NE LIMIT
02553  M00S02549.1ss     +++|          LDD    IN+1
02554  M00S02550.1ss     +++|          LMD    LM+1
02555  M00S02551.1ss     +++|          NJN    WMB3        IF IN NE LIMIT
02556  M00S02552.1ss     +++|          LDD    FT          SET IN = FIRST
02557  M00S02553.1ss     +++|          STD    IN
02558  M00S02554.1ss     +++|          LDD    FT+1
02559  M00S02555.1ss     +++|          STD    IN+1
02560  M00S02556.1ss     +++| WMB3     LJM    WMBX        UPDATE CENTRAL IN
02561  M00S02557.1ss     +++|
02562  M00S02558.1ss     +++| WMB4     LDCA   IN
02563  M00S02559.1ss     +++|          CWM    BUFR,T3
02564  M00S02560.1ss     +++|          LDD    FT          SET IN = FIRST
02565  M00S02561.1ss     +++|          STD    IN
02566  M00S02562.1ss     +++|          LDD    FT+1
02567  M00S02563.1ss     +++|          STD    IN+1
02568  M00S02564.1ss     +++|          LDD    T3          UPDATE PP BUFFER ADDRESS
02569  M00S02565.1ss     +++|          SHN    2
02570  M00S02566.1ss     +++|          ADD    T3
02571  M00S02567.1ss     +++|          RAM    WMBA
02572  M00S02568.1ss     +++|          LDD    WC
02573  M00S02569.1ss     +++|          SBD    T3
02574  M00S02570.1ss     +++|          STD    WC          SET REMAINING WORD COUNT
02575  M00S02571.1ss     +++|          LJM    WMB2        READ REMAINING DATA
02576  M00S02572.1ss     +++|          SPACE  4,10
02577  M00S02573.1ss     +++|*         COMMON DECKS.
02578  M00S02574.1ss     +++|
02579  M00S02575.1ss     +++|
02580  M00S02576.1ss     +++| RND$     EQU    1           ROUND UP
02581  M00S02577.1ss     +++|*CALL     COMPDV5
02582  M00S02578.1ss     +++|          TITLE  PRESET.
02583  M00S02579.1ss     +++|          USE    PRESET
02584  M00S02580.1ss     +++| OVLA     EQU    *+5         OVERLAY LOAD ADDRESS
02585  M00S02581.1ss     +++| BUFR     EQU    *           MESSAGE BUFFER
02586  M00S02582.1ss     +++| PBUF     EQU    BUFR        PRU BUFFER
02587  M00S02583.1ss     +++| HBUF     EQU    PBUF+PRUL*5     STRIPE HEADER BUFFER
02588  M00S02584.1ss     +++| TBUF     EQU    HBUF+HDRL*5     STRIPE TRAILER BUFFER
02589  M00S02585.1ss     +++| LBUF     EQU    TBUF+TLRL*5 LENGTH OF ALL BUFFERS
02590  M00S02586.1ss     +++|          ERRNG  7776-LBUF   BUFFER OVERFLOW
02591  M00S02587.1ss     +++|          ERRNG  7777-BUFR-PRUL        MESSAGE BUFFER OVERFLOW
02592  M00S02588.1ss     +++| PRS      SPACE  4,10
02593  M00S02589.1ss     +++|*         PRS - PRESET.
02594  M00S02590.1ss     +++|
02595  M00S02591.1ss     +++|
02596  M00S02592.1ss     +++| PRS      SUBR               ENTRY/EXIT
02597  M00S02593.1ss     +++|          LDN    0
02598  M00S02594.1ss     +++|          STD    EC          CLEAR ERROR CODE
02599  M00S02595.1ss     +++|          STD    MW          CLEAR MESSAGE WAITING FLAGS
02600  M00S02596.1ss     +++|          LDC    IPLM
02601  M00S02597.1ss     +++|          STD    IC          SET IDLE PASS LIMIT
02602  M00S02598.1ss     +++|          LDD    IR+3
02603  M00S02599.1ss     +++|          LPN    77
02604  M00S02600.1ss     +++|          SHN    14
02605  M00S02601.1ss     +++|          ADD    IR+4
02606  M00S02602.1ss     +++|          RJM    CFL
02607  M00S02603.1ss     +++|          CRD    CN          READ PARAMETER WORD
02608  M00S02604.1ss     +++|          LDD    CN+3
02609  M00S02605.1ss     +++|          STD    ES          EST ORDINAL FOR CONTROL UNIT
02610  M00S02606.1ss     +++|          SFA    EST,ES      GET EST ENTRY ADDRESS
02611  M00S02607.1ss     +++|          CRD    CM          READ EST ENTRY
02612  M00S02608.1ss     +++|          LDD    CM+4
02613  M00S02609.1ss     +++|          LPC    7000
02614  M00S02610.1ss     +++|          STD    EQ          EQUIPMENT NUMBER
02615  M00S02611.1ss     +++|          LDD    IR+3
02616  M00S02612.1ss     +++|          SHN    -6          FUNCTION CODE
02617  M00S02613.1ss     +++|          STD    T1
02618  M00S02614.1ss     +++|          ZJN    PRS0        IF NO FUNCTION
02619  M00S02615.1ss     +++|          SBN    TREQL
02620  M00S02616.1ss     +++|          MJN    PRS2        IF VALID FUNCTION
02621  M00S02617.1ss     +++| PRS0     LDC    =C*1SS - INVALID FUNCTION.*
02622  M00S02618.1ss     +++|          RJM    DFM
02623  M00S02619.1ss     +++| PRS1     LJM    DPP         DROP
02624  M00S02620.1ss     +++|
02625  M00S02621.1ss     +++| PRS2     LDM    TREQ,T1
02626  M00S02622.1ss     +++|          STD    T1
02627  M00S02623.1ss     +++|          LJM    0,T1        INITIALIZE FOR FUNCTION
02628  M00S02624.1ss     +++|
02629  M00S02625.1ss     +++|*         SCH - SET CHANNELS IN EST
02630  M00S02626.1ss     +++|
02631  M00S02627.1ss     +++| SCH      LDD    ES
02632  M00S02628.1ss     +++|          STD    CM+1        EQUIPMENT NUMBER
02633  M00S02629.1ss     +++|          LDD    IR+2
02634  M00S02630.1ss     +++|          STD    CM+3        CHANNELS
02635  M00S02631.1ss     +++|          LDN    2           SET CHANNELS SUBFUNCTION
02636  M00S02632.1ss     +++|          STD    CM+2
02637  M00S02633.1ss     +++|          MONITOR SEQM       SET CHANNELS
02638  M00S02634.1ss     +++|          UJN    PRS1        DROP PP
02639  M00S02635.1ss     +++|
02640  M00S02636.1ss     +++|*         ETD - ENABLE TDAM REQUEST BUFFER
02641  M00S02637.1ss     +++|
Line S02638 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02642  M01S02638.274l797 ---| ETD      LDD    CP          ENABLE TDAM REQUEST BUFFER
02643  M01S02639.274l797 ---|          ADC    ICAW
Line S00001 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02644  M02S00001.282l826 ---| ETD      NFA    IC1N
Line S00001 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02645  M01S00001.282l826 +++| ETD      NFA    ICAN
02646  M00S02640.1ss     +++|          CRD    CM
Line S02641 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02647  M01S02641.274l797 ---|          LDD    CP
02648  M01S02642.274l797 ---|          STD    CM          SET BUFFER LENGTH
02649  M01S02643.274l797 ---|          ADC    ICAW
02650  M01S02644.274l797 ---|          CWD    CM          WRITE TO CONTROL POINT
Line S00002 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02651  M01S00002.274l797 +++|          LDD    CM
02652  M01S00003.274l797 +++|          LPC    3777
02653  M01S00004.274l797 +++|          ADC    4000        ENABLE PP *TDAM* WRITE
02654  M01S00005.274l797 +++|          STD    CM
Line S00006 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02655  M02S00006.282l826 ---|          NFA    IC1N        UPDATE INTER-CONTROL POINT CONTROLS
Line S00002 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02656  M01S00002.282l826 +++|          NFA    ICAN        UPDATE INTER-CONTROL POINT CONTROLS
Line S00007 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02657  M01S00007.274l797 +++|          CWD    CM
02658  M00S02645.1ss     +++|          UJN    PRS1        DROP
02659  M00S02646.1ss     +++|
02660  M00S02647.1ss     +++|*         MSG - INITIALIZE FOR MESSAGE I/O
02661  M00S02648.1ss     +++|
02662  M00S02649.1ss     +++| MSG      LDD    CN+1
02663  M00S02650.1ss     +++|          SCN    77
02664  M00S02651.1ss     +++|          SHN    6
02665  M00S02652.1ss     +++|          LMD    CN
02666  M00S02653.1ss     +++|          SHN    6
02667  M00S02654.1ss     +++|          STM    SSDA        INITIALIZE MESSAGE OUTPUT ADDRESS
02668  M00S02655.1ss     +++|          SHN    -14
02669  M00S02656.1ss     +++|          RAM    SSDA-1
02670  M00S02657.1ss     +++|          LPN    77
02671  M00S02658.1ss     +++|          SHN    14
02672  M00S02659.1ss     +++|          LMM    SSDA
02673  M00S02660.1ss     +++|          ADN    4           LIMIT WORD
02674  M00S02661.1ss     +++|          RJM    CFL         CHECK ADDRESS
02675  M00S02662.1ss     +++|          CRD    T7          READ LIMIT WORD
02676  M00S02663.1ss     +++|          SBN    4+1
02677  M00S02664.1ss     +++|          CRD    CM          READ POINTER TO MESSAGE OUTPUT FET
02678  M00S02665.1ss     +++|          LDC    TCHS        CHANNEL INSTRUCTION LIST
02679  M00S02666.1ss     +++|          STD    T1
02680  M00S02667.1ss     +++| PRS3     LDI    T1
02681  M00S02668.1ss     +++|          ZJN    PRS4        IF END OF LIST
02682  M00S02669.1ss     +++|          STD    T2
02683  M00S02670.1ss     +++|          LDI    T2
02684  M00S02671.1ss     +++|          SCN    37
02685  M00S02672.1ss     +++|          ADD    T7          SET CHANNEL
02686  M00S02673.1ss     +++|          STI    T2
02687  M00S02674.1ss     +++|          AOD    T1          ADVANCE LIST
02688  M00S02675.1ss     +++|          UJN    PRS3        SET NEXT ENTRY
02689  M00S02676.1ss     +++|
02690  M00S02677.1ss     +++| PRS4     LDD    CM+3
02691  M00S02678.1ss     +++|          LPN    77
02692  M00S02679.1ss     +++|          RAM    SSDB-1      INITIALIZE MESSAGE INPUT FET ADDRESS
02693  M00S02680.1ss     +++|          LPN    77
02694  M00S02681.1ss     +++|          SHN    14
02695  M00S02682.1ss     +++|          LMD    CM+4
02696  M00S02683.1ss     +++|          STM    SSDB
02697  M00S02684.1ss     +++|          RJM    CFL         CHECK ADDRESS
02698  M00S02685.1ss     +++|          LDD    CN+1        SET DRIVER RECALL ADDRESS
02699  M00S02686.1ss     +++|          LPN    77
02700  M00S02687.1ss     +++|          STD    DR
02701  M00S02688.1ss     +++|          SHN    14
02702  M00S02689.1ss     +++|          ADD    CN+2
02703  M00S02690.1ss     +++|          STD    DR+1
02704  M00S02691.1ss     +++|          RJM    CFL         CHECK FIELDLENGTH
02705  M00S02692.1ss     +++|          LDD    CP
02706  M00S02693.1ss     +++|          ADN    SNSW
02707  M00S02694.1ss     +++|          CRD    CM          READ SENSE SWITCH WORD
02708  M00S02695.1ss     +++|          LDD    CM+4
02709  M00S02696.1ss     +++|          SHN    21-6
02710  M00S02697.1ss     +++|          MJN    PRS5        IF TRACE MODE REQUESTED
02711  M00S02698.1ss     +++|          LJM    PRSX        RETURN
02712  M00S02699.1ss     +++|
02713  M00S02700.1ss     +++| PRS5     AOM    TRCA
02714  M00S02701.1ss     +++|          AOM    TRCB
02715  M00S02702.1ss     +++|          AOM    TRCC
02716  M00S02703.1ss     +++|          AOM    TRCD
02717  M00S02704.1ss     +++|          AOM    TRCE
02718  M00S02705.1ss     +++|          AOM    TRCF
02719  M00S02706.1ss     +++|          AOM    TRCG
02720  M00S02707.1ss     +++|          LJM    PRSX        RETURN
02721  M00S02708.1ss     +++| TCHS     SPACE  4,10
02722  M00S02709.1ss     +++|**        TCHS - CHANNEL TABLE.
02723  M00S02710.1ss     +++|*         TABLE CONTAINS THE ADDRESSES OF ALL INSTRUCTIONS WHICH
02724  M00S02711.1ss     +++|*         REFERENCE THE EQUIPMENT CHANNEL.
02725  M00S02712.1ss     +++|
02726  M00S02713.1ss     +++|
02727  M00S02714.1ss     +++| TCHS     CHTB
02728  M00S02715.1ss     +++|          SPACE  4,10
02729  M00S02716.1ss     +++|*         TREQ - TABLE OF LEGAL FUNCTION PRESET ROUTINES.
02730  M00S02717.1ss     +++|
02731  M00S02718.1ss     +++|
02732  M00S02719.1ss     +++| TREQ     BSS    0
02733  M00S02720.1ss     +++|          LOC    0
02734  M00S02721.1ss     +++|          CON    0           NULL FUNCTION
02735  M00S02722.1ss     +++| IRTDAM   CON    ETD         ENABLE TDAM BUFFER
02736  M00S02723.1ss     +++| IRPMSG   CON    MSG         MESSAGE I/O
02737  M00S02724.1ss     +++| IRMDAT   CON    MSG         MESSAGE AND DATA I/O
02738  M00S02725.1ss     +++| IRCHAN   CON    SCH         SET CHANNELS IN EST
02739  M00S02726.1ss     +++|          LOC    *O
02740  M00S02727.1ss     +++| TREQL    EQU    *-TREQ
02741  M00S02728.1ss     +++|          TITLE  2SS - ERROR MESSAGE OVERLAY.
02742  M00S02729.1ss     +++|          IDENT  2SS,EMSX
02743  M00S02730.1ss     +++|*COMMENT  1SS - ERROR MESSAGE OVERLAY.
Line S02731 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
02744  M01S02731.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
Line S00002 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
02745  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02746  M00S02732.1ss     +++|***       2SS - ERROR MESSAGE OVERLAY.
02747  M00S02733.1ss     +++|*
02748  M00S02734.1ss     +++|*         2SS IS CALLED BY 1SS TO ISSUE ERROR MESSAGES
02749  M00S02735.1ss     +++|*         TO THE MSAS SUBSYSTEM LOCAL DAYFILE WHEN AN
02750  M00S02736.1ss     +++|*         ERROR IS DETECTED.
02751  M00S02737.1ss     +++|*
02752  M00S02738.1ss     +++|*         ENTRY
02753  M00S02739.1ss     +++|*
02754  M00S02740.1ss     +++|*         (ERR) = PP ADDRESS WHERE ERROR DETECTED.
02755  M00S02741.1ss     +++|*         (GSTS) = START OF HAEDWARE STATUS BUFFER(25 WORDS).
02756  M00S02742.1ss     +++|*
02757  M00S02743.1ss     +++|*         EXIT
02758  M00S02744.1ss     +++|*         MESSAGES ISSUED.
02759  M00S02745.1ss     +++|*
02760  M00S02746.1ss     +++|*
02761  M00S02747.1ss     +++|*         MESSAGE FOR ALL ERRORS.
02762  M00S02748.1ss     +++|*
02763  M00S02749.1ss     +++|*         ERR = XX, ADR YYYY.
02764  M00S02750.1ss     +++|*
02765  M00S02751.1ss     +++|*         XX     ERROR CODE (SEE COMBCDD).
02766  M00S02752.1ss     +++|*         YYYY   PP ADDRESS WHERE ERROR DETECTED.
02767  M00S02753.1ss     +++|*
02768  M00S02754.1ss     +++|*         HARDWARE ERROR MESSAGES.
02769  M00S02755.1ss     +++|*
02770  M00S02756.1ss     +++|*         SS,CXX,GSSSSSSSSSSSS.
02771  M00S02757.1ss     +++|*         SS,CXX,FYYYYYYYYYYYYYYYYYYYY.
02772  M00S02758.1ss     +++|*         SS,CXX,DZZZZ. MESSAGE.
02773  M00S02759.1ss     +++|*
02774  M00S02760.1ss     +++|*         WHERE.
02775  M00S02761.1ss     +++|*         XX = CHANNEL.
02776  M00S02762.1ss     +++|*         SS...S = GENERAL STATUS.
02777  M00S02763.1ss     +++|*         YY...Y = FSC STATUS.
02778  M00S02764.1ss     +++|*         ZZZZ = DIAGNOSTIC STATUS.
02779  M00S02765.1ss     +++|*         MESSAGE = ONE OF THE FOLLOWING.
02780  M00S02766.1ss     +++|*         STATUS ERROR. = ALERT STATUS AND NONE OF THE FOLLOWING.
02781  M00S02767.1ss     +++|*         INPUT HANG. = CHANNEL HUNG ON INPUT OPERATION.
02782  M00S02768.1ss     +++|*         OUTPUT HANG. = CHANNEL HUNG ON OUTPUT OPERATION.
02783  M00S02769.1ss     +++|*         FUNCTION TIMEOUT. = NO RESPONSE TO FUNCTION IN 2 SECONDS.
02784  M00S02770.1ss     +++|*         NO EOP. = NO ENDING STATUS FROM M860 IN 6 SECONDS.
02785  M00S02771.1ss     +++|*         CHAN. MALF. = NO RESPONSE TO DIAGNOSTIC STATUS FUNCTION.
02786  M00S02772.1ss     +++|*         CHAN. PE. = FSC DETECTED CHANNEL A CHANNEL PARITY ERROR.
02787  M00S02773.1ss     +++|*         FSC MEM. PE. = FSC HAD A MEMORY PARITY ERROR.
02788  M00S02774.1ss     +++|*         FSC NOT RUNNING. = FSC PROCESSOR WAS NOT RUNNING.
02789  M00S02775.1ss     +++|*         FSC ABNORMAL. = FSC ABNORMAL STATUS.
02790  M00S02776.1ss     +++|          EJECT
02791  M00S02777.1ss     +++| EMS      SPACE  0
02792  M00S02778.1ss     +++|**        EMS - ERROR MESSAGE PROCESSOR
02793  M00S02779.1ss     +++|*
02794  M00S02780.1ss     +++|*         ENTRY  (EC) = ERROR CODE.
02795  M00S02781.1ss     +++|*                (GSTS) = STATUS BUFFER.
02796  M00S02782.1ss     +++|*
02797  M00S02783.1ss     +++|*         EXIT   MESSAGES ISSUED.
02798  M00S02784.1ss     +++|*
02799  M00S02785.1ss     +++|*         USES   T1, T2, CN, IN, OT, LM.
02800  M00S02786.1ss     +++|*
02801  M00S02787.1ss     +++|*         CALLS  C2D.
02802  M00S02788.1ss     +++|
02803  M00S02789.1ss     +++|
02804  M00S02790.1ss     +++|          ORG    OVLA
02805  M00S02791.1ss     +++| EMS      SUBR               ENTRY/EXIT
02806  M00S02792.1ss     +++|          LDD    CP
02807  M00S02793.1ss     +++|          ADN    SNSW
02808  M00S02794.1ss     +++|          CRD    CM          READ SENSE SWITCH WORD
02809  M00S02795.1ss     +++|          LDD    CM+4
02810  M00S02796.1ss     +++|          SHN    21-6
02811  M00S02797.1ss     +++|          MJN    EMS00       IF TRACE MODE
02812  M00S02798.1ss     +++|          LDD    EC
02813  M00S02799.1ss     +++|          SBN    RCHWET
02814  M00S02800.1ss     +++|          MJN    EMSX        IF NOT HARDWARE ERROR
02815  M00S02801.1ss     +++|          LJM    EMS0        MUST BE HARDWARE ERROR
02816  M00S02802.1ss     +++|
02817  M00S02803.1ss     +++| EMS00    LDM    ERRT-1,EC
02818  M00S02804.1ss     +++|          STD    T1          GET ERROR TYPE MESSAGE
02819  M00S02805.1ss     +++|          LDI    T1
02820  M00S02806.1ss     +++|          STM    EMSE
02821  M00S02807.1ss     +++|          LDM    1,T1
02822  M00S02808.1ss     +++|          STM    EMSE+1
02823  M00S02809.1ss     +++|          LDM    2,T1
02824  M00S02810.1ss     +++|          STM    EMSE+2
02825  M00S02811.1ss     +++|          LDM    ERR         GET ADDRESS WHERE DETECTED
02826  M00S02812.1ss     +++|          SBN    3
02827  M00S02813.1ss     +++|          SHN    -6
02828  M00S02814.1ss     +++|          RJM    C2D         UPPER DIGITS
02829  M00S02815.1ss     +++|          STM    EMSE+6
02830  M00S02816.1ss     +++|          LDM    ERR
02831  M00S02817.1ss     +++|          SBN    3
02832  M00S02818.1ss     +++|          RJM    C2D         LOWRE DIGITS
02833  M00S02819.1ss     +++|          STM    EMSE+7
02834  M00S02820.1ss     +++|          LDC    EMSE+CPON
02835  M00S02821.1ss     +++|          RJM    DFM         ISSUE MESSAGE
02836  M00S02822.1ss     +++|          LDD    EC
02837  M00S02823.1ss     +++|          SBN    RCHWET
02838  M00S02824.1ss     +++|          PJN    EMS0        IF HARDWARE ERROR
02839  M00S02825.1ss     +++|          LJM    EMSX        RETURN
02840  M00S02826.1ss     +++|
02841  M00S02827.1ss     +++| EMS0     LDM    CHAN        GET CHANNEL USED
02842  M00S02828.1ss     +++|          RJM    C2D         CONVERT TO DISPLAY
02843  M00S02829.1ss     +++|          STM    EMSA+2      STORE IN MESSAGES
02844  M00S02830.1ss     +++|          STM    EMSB+2
02845  M00S02831.1ss     +++|          STM    EMSC+2
02846  M00S02832.1ss     +++|          LDC    GSTS        GENERAL STATUS BUFFER
02847  M00S02833.1ss     +++|          STD    IN
02848  M00S02834.1ss     +++|          LDC    EMSA+4
02849  M00S02835.1ss     +++|          STD    OT
02850  M00S02836.1ss     +++| EMS1     LDI    IN
02851  M00S02837.1ss     +++|          SHN    -6
02852  M00S02838.1ss     +++|          RJM    C2D         CONVERT UPPER 2 DIGITS
02853  M00S02839.1ss     +++|          STI    OT
02854  M00S02840.1ss     +++|          AOD    OT
02855  M00S02841.1ss     +++|          LDI    IN
02856  M00S02842.1ss     +++|          RJM    C2D         CONVERT LOWER 2 DIGITS
02857  M00S02843.1ss     +++|          STI    OT
02858  M00S02844.1ss     +++|          AOD    OT
02859  M00S02845.1ss     +++|          AOD    IN
02860  M00S02846.1ss     +++|          LMC    FSTS
02861  M00S02847.1ss     +++|          NJN    EMS1        IF NOT AT FSC STATUS
02862  M00S02848.1ss     +++|          LDC    EMSA+CPON
02863  M00S02849.1ss     +++|          RJM    DFM         ISSUE MESSAGE TO CONTROL POINT DAYFILE
02864  M00S02850.1ss     +++|          LDN    4           SET UP FOR 4 MESSAGES OF 5 BUTES EACH
02865  M00S02851.1ss     +++|          STD    CN
02866  M00S02852.1ss     +++| EMS2     LDD    IN
02867  M00S02853.1ss     +++|          ADN    5
02868  M00S02854.1ss     +++|          STD    LM
02869  M00S02855.1ss     +++|          LDC    EMSB+4
02870  M00S02856.1ss     +++|          STD    OT
02871  M00S02857.1ss     +++| EMS3     LDI    IN
02872  M00S02858.1ss     +++|          SHN    -6
02873  M00S02859.1ss     +++|          RJM    C2D         CONVERT LOWER 2 DIGITS
02874  M00S02860.1ss     +++|          STI    OT
02875  M00S02861.1ss     +++|          AOD    OT
02876  M00S02862.1ss     +++|          LDI    IN
02877  M00S02863.1ss     +++|          RJM    C2D         CONVERT LOWER 2 DIGITS
02878  M00S02864.1ss     +++|          STI    OT
02879  M00S02865.1ss     +++|          AOD    OT
02880  M00S02866.1ss     +++|          AOD    IN
02881  M00S02867.1ss     +++|          LMD    LM
02882  M00S02868.1ss     +++|          NJN    EMS3        IF NOT 5 BYTES MOVED
02883  M00S02869.1ss     +++|          LDC    EMSB+CPON
02884  M00S02870.1ss     +++|          RJM    DFM         ISSUE MESSAGE TO CONTROL POINT DAYFILE
02885  M00S02871.1ss     +++|          SOD    CN
02886  M00S02872.1ss     +++|          NJN    EMS2        IF NOT 4 MESSAGES
02887  M00S02873.1ss     +++|          LDM    DSTS        GET DIAGNOSTIC STATUS
02888  M00S02874.1ss     +++|          SHN    -6
02889  M00S02875.1ss     +++|          RJM    C2D         CONVERT UPPER 2 DIGITS
02890  M00S02876.1ss     +++|          STM    EMSC+4
02891  M00S02877.1ss     +++|          LDM    DSTS
02892  M00S02878.1ss     +++|          RJM    C2D         CONVERT LOWER 2 DIGITS
02893  M00S02879.1ss     +++|          STM    EMSC+5
02894  M00S02880.1ss     +++|          LDC    EMSD        MOVE MESSAGE
02895  M00S02881.1ss     +++|          STD    OT
02896  M00S02882.1ss     +++|          LDD    EC          ERROR CODE TO SSEXEC
02897  M00S02883.1ss     +++|          SBN    RCHWET      REMOVE HARDWARE ERROR BIAS
02898  M00S02884.1ss     +++|          STD    T1
02899  M00S02885.1ss     +++|          LDM    EMST,T1     ADDRESS OF SPECIFIC MESSAGE
02900  M00S02886.1ss     +++|          STD    IN
02901  M00S02887.1ss     +++| EMS4     LDI    IN
02902  M00S02888.1ss     +++|          STI    OT          MOVE MESSAGE
02903  M00S02889.1ss     +++|          ZJN    EMS5        IF END OF MESSAGE
02904  M00S02890.1ss     +++|          AOD    IN
02905  M00S02891.1ss     +++|          AOD    OT
02906  M00S02892.1ss     +++|          UJN    EMS4        FINISH MOVE
02907  M00S02893.1ss     +++|
02908  M00S02894.1ss     +++| EMS5     LDC    EMSC+CPON
02909  M00S02895.1ss     +++|          RJM    DFM         ISSUE MESSAGE TO CONTROL POINT DAYFILE
02910  M00S02896.1ss     +++|          LJM    EMSX        RETURN
02911  M00S02897.1ss     +++|
02912  M00S02898.1ss     +++|
02913  M00S02899.1ss     +++| EMSA     DIS    ,*SS,CXX,GSSSSSSSSSSSS.*
02914  M00S02900.1ss     +++| EMSB     DIS    ,*SS,CXX,FXXXXXXXXXXXXXXXXXXXX.*
02915  M00S02901.1ss     +++| EMSC     DATA   14HSS,CXX,DZZZZ,
02916  M00S02902.1ss     +++| EMSD     BSS    30          SPECIFIC ERROR MESSAGE
02917  M00S02903.1ss     +++| EMSE     DIS    ,*RCXXXX, ADR YYYY.*
02918  M00S02904.1ss     +++|          SPACE  4,10
02919  M00S02905.1ss     +++|*         EMST - TABLE OF SPECIFIC ERROR MESSAGES.
02920  M00S02906.1ss     +++|
02921  M00S02907.1ss     +++|
02922  M00S02908.1ss     +++| EMST     BSS    0
02923  M00S02909.1ss     +++|          CON    =C*STATUS ERROR.*
02924  M00S02910.1ss     +++|          CON    =C*INPUT HANG.*
02925  M00S02911.1ss     +++|          CON    =C*OUTPUT HANG.*
02926  M00S02912.1ss     +++|          CON    =C*FUNCTION TIMEOUT.*
02927  M00S02913.1ss     +++|          CON    =C*NO EOP.*
02928  M00S02914.1ss     +++|          CON    =C*CHAN. MALF.*
02929  M00S02915.1ss     +++|          CON    =C*CHAN. PE.*
Line S02916 Modification History
M01 (Removed by) 1ss1
Seq #  *Modification Id* Act 
----------------------------+
02930  M01S02916.1ss1    ---|          CON    =C*FSC MEM. PE.*
02931  M01S02917.1ss1    ---|          CON    =C*FSC NOT RUNNING.*
02932  M01S02918.1ss1    ---|          CON    =C*FSC ABNORMAL.*
Line S00002 Modification History
M01 (Added by) 1ss1
Seq #  *Modification Id* Act 
----------------------------+
02933  M01S00002.1ss1    +++|          CON    =C*CCC MEM. PE.*
02934  M01S00003.1ss1    +++|          CON    =C*CCC NOT RUNNING.*
02935  M01S00004.1ss1    +++|          CON    =C*CCC ABNORMAL.*
02936  M00S02919.1ss     +++|          CON    =C*DIAGNOSTIC FAILURE.*
02937  M00S02920.1ss     +++|          CON    0           CPU ONLY ERROR CODE
02938  M00S02921.1ss     +++|          CON    =C*OPERATOR IMPL REQUIRED.*
02939  M00S02922.1ss     +++|          CON    =C*CHANNEL INTERFACE OFF LINE.*
02940  M00S02923.1ss     +++| ERRT     SPACE  4,10
02941  M00S02924.1ss     +++|**        ERRT - TABLE OF ERROR RETURN CODES.
02942  M00S02925.1ss     +++|
02943  M00S02926.1ss     +++|
02944  M00S02927.1ss     +++| ERRT     BSS    0
02945  M00S02928.1ss     +++|          CON    =6HRCILLF   ILLEGAL FUNCTION
02946  M00S02929.1ss     +++|          CON    =6HRCDLER   DATA LENGTH ERROR
02947  M00S02930.1ss     +++|          CON    =6HRCCWER   CONTROL WORD ERROR
02948  M00S02931.1ss     +++|          CON    =6HRCBARG   BUFFER ARGUMENT ERROR
02949  M00S02932.1ss     +++|          CON    =6HRCHDER   HEADER/TRAILER ERROR
02950  M00S02933.1ss     +++|          CON    =6HRCENDV   END OF VOLUME
02951  M00S02934.1ss     +++|          CON    =6HRCILLU   ILLEGAL UNIT NUMBER
02952  M00S02935.1ss     +++|          CON    =6HRCBFTO   BUFFER TIMEOUT ERROR
02953  M00S02936.1ss     +++|          CON    =6HRCTBRT   TAPE BOTTOM RIGHT
02954  M00S02937.1ss     +++|          CON    =6HRCTERF   TERMINATE FLAG DETECTED
02955  M00S02938.1ss     +++|          CON    =6HNO ERR
02956  M00S02939.1ss     +++|          CON    =6HNO ERR
02957  M00S02940.1ss     +++|          CON    =6HNO ERR
02958  M00S02941.1ss     +++|          CON    =6HNO ERR
02959  M00S02942.1ss     +++|          CON    =6HNO ERR
02960  M00S02943.1ss     +++|          CON    =6HRCSTER   STATUS ERROR
02961  M00S02944.1ss     +++|          CON    =6HRCCHIN   CHANNEL HUNG ON INPUT
02962  M00S02945.1ss     +++|          CON    =6HRCCHOT   CHANNEL HUNG ON OUTPUT
02963  M00S02946.1ss     +++|          CON    =6HRCFCTO   FUNCTION TIMEOUT
02964  M00S02947.1ss     +++|          CON    =6HRCNEOP   NO END OF OPERATION
02965  M00S02948.1ss     +++|          CON    =6HRCCHMF   CHANNEL MALFUNCTION
02966  M00S02949.1ss     +++|          CON    =6HRCCHPE   CHANNEL PARITY ERROR
02967  M00S02950.1ss     +++|          CON    =6HRCFSPE   FSC MEMORY PARITY ERR
02968  M00S02951.1ss     +++|          CON    =6HRCFSNR   FSC NOT RUNNING
02969  M00S02952.1ss     +++|          CON    =6HRCFSAB   FSC ABNORMAL
02970  M00S02953.1ss     +++|          CON    =6HRCFSDF   FSC DIAGNOSTIC FAILURE
02971  M00S02954.1ss     +++|          CON    =6HRCXSUM   XSUM ERROR (CM DRIVER)
02972  M00S02955.1ss     +++|          CON    =6HRCIMPL   OPERATOR IMPL REQUIRED
02973  M00S02956.1ss     +++|          CON    =6HRCCIFO   M860 CHANNEL OFFLINE
02974  M00S02957.1ss     +++|          SPACE  4,10
02975  M00S02958.1ss     +++|*         COMMON DECKS.
02976  M00S02959.1ss     +++|
02977  M00S02960.1ss     +++|
02978  M00S02961.1ss     +++|*CALL     COMPC2D
02979  M00S02962.1ss     +++|          SPACE  4,10
02980  M00S02963.1ss     +++|          END
cdc/nos2.source/opl.opl871/deck/1ss.001.txt ยท Last modified: by 127.0.0.1