Deck 1TA Part 001

9 Modifications

Seq #  *Modification Id* Act 
----------------------------+
01717  M00S01515.1ta     +++|*         REQUEST QUEUE FORMAT.
01718  M00S01516.1ta     +++|*T, IR    36/ ,12/ TN,10/ ,1/O,1/R

Figure IR

01719  M00S01517.1ta     +++|*
01720  M00S01518.1ta     +++|*         TN = TERMINAL NUMBER.
01721  M00S01519.1ta     +++|*         O = COMBINED INPUT/OUTPUT OVERFLOW FLAG.
01722  M00S01520.1ta     +++|*         R = RESOURCE TYPE.
01723  M00S01521.1ta     +++|*           = 0 IF OUTPUT.
01724  M00S01522.1ta     +++|*           = 1 IF INPUT.
01725  M00S01523.1ta     +++|*
01726  M00S01524.1ta     +++|*         EXIT   ACCOUNTING MESSAGES ISSUED.
01727  M00S01525.1ta     +++|*                TERMINAL TABLE SET TO COMPLETION STATUS.
01728  M00S01526.1ta     +++|*
01729  M00S01527.1ta     +++|*         USES   FP, PP, TN, WC, IR - IR+4, CM - CM+4, CN - CN+4,
01730  M00S01528.1ta     +++|*                DF - DF+4.
01731  M00S01529.1ta     +++|*
01732  M00S01530.1ta     +++|*         CALLS  DFM, DPT, SJN, SPA, STA, TWD, UPP.
01733  M00S01531.1ta     +++|
01734  M00S01532.1ta     +++|
01735  M00S01533.1ta     +++|          ENTRY  IAM
01736  M00S01534.1ta     +++|          RJM    STT         SET TERMINAL TABLE ADDRESS
01737  M00S01535.1ta     +++|          ADK    VROT
01738  M00S01536.1ta     +++|          CRD    CN
01739  M00S01537.1ta     +++|          LDD    CN+3        SET FIRST POT
01740  M00S01538.1ta     +++|          STD    FP
01741  M00S01539.1ta     +++|          STD    PP
01742  M00S01540.1ta     +++|          LDN    0
01743  M00S01541.1ta     +++|          STD    WC
01744  M00S01542.1ta     +++|
01745  M00S01543.1ta     +++|*         PROCESS REQUEST POT.
01746  M00S01544.1ta     +++|
01747  M00S01545.1ta     +++| IAM1     RJM    SPA         READ REQUEST WORD
01748  M00S01546.1ta     +++|          ADD    WC
01749  M00S01547.1ta     +++|          CRD    IR
01750  M00S01548.1ta     +++|          LDD    TN          CHECK TERMINAL NUMBER
01751  M00S01549.1ta     +++|          NJN    IAM2        IF NOT TERMINATOR
01752  M00S01550.1ta     +++|          LJM    IAM4        COMPLETE PROCESSING
01753  M00S01551.1ta     +++|
01754  M00S01552.1ta     +++| IAM2     RJM    STA         SET TERMINAL TABLE ADDRESS
01755  M00S01553.1ta     +++|          ADK    VUIT
01756  M00S01554.1ta     +++|          CRD    DF
01757  M00S01555.1ta     +++|          ADK    VFST-VUIT
01758  M00S01556.1ta     +++|          CRD    CM
01759  M00S01557.1ta     +++|          LDD    CM          TRANSFER JSN
01760  M00S01558.1ta     +++|          STM    MSFA
01761  M00S01559.1ta     +++|          LDD    CM+1
01762  M00S01560.1ta     +++|          STM    MSFA+1
01763  M00S01561.1ta     +++|          SFA    EJT,DF+4
01764  M00S01562.1ta     +++|          ADN    SCLE
01765  M00S01563.1ta     +++|          CRD    CM
01766  M00S01564.1ta     +++|          LDD    CM
01767  M00S01565.1ta     +++|          SHN    -6
01768  M00S01566.1ta     +++|          STM    MSFA+4      SET SERVICE CLASS
01769  M00S01567.1ta     +++|          LDD    IR+4        SET RESOURCE TYPE
01770  M00S01568.1ta     +++|          LPN    1
01771  M00S01569.1ta     +++|          STD    T1
01772  M00S01570.1ta     +++|          LDM    TRST,T1
01773  M00S01571.1ta     +++|          STM    MSFB+1
01774  M00S01572.1ta     +++|          LDD    MA          SET OVERFLOW QUANTITY
01775  M00S01573.1ta     +++|          CWM    IAMA,ON
01776  M00S01574.1ta     +++|          SBN    1
01777  M00S01575.1ta     +++|          CRM    MSFC,ON
01778  M00S01576.1ta     +++|          LDC    MSFA+AJNN   ISSUE DAYFILE MESSAGE
01779  M00S01577.1ta     +++|          RJM    DFM
01780  M00S01578.1ta     +++|          LDD    IR+4
01781  M00S01579.1ta     +++|          SHN    21-1
01782  M00S01580.1ta     +++|          PJN    IAM2.1      IF NO COMBINED OVERFLOW
01783  M00S01581.1ta     +++|          LDC    2RCT        SET COMBINED OVERFLOW
01784  M00S01582.1ta     +++|          STM    MSFB+1
01785  M00S01583.1ta     +++|          LDD    MA          SET COMBINED OVERFLOW QUANTITY
01786  M00S01584.1ta     +++|          CWM    IAMB,ON
01787  M00S01585.1ta     +++|          SBN    1
01788  M00S01586.1ta     +++|          CRM    MSFC,ON
01789  M00S01587.1ta     +++|          LDC    MSFA+AJNN   ISSUE DAYFILE MESSAGE
01790  M00S01588.1ta     +++|          RJM    DFM
01791  M00S01589.1ta     +++| IAM2.1   AOD    WC          INCREMENT POT ADDRESS
01792  M00S01590.1ta     +++|          LMN    VCPC
01793  M00S01591.1ta     +++|          NJN    IAM3        IF NOT AT END OF POT
01794  M00S01592.1ta     +++|          STD    WC          RESET TO FWA OF POT
01795  M00S01593.1ta     +++|          RJM    UPP         UPDATE POT POINTER
01796  M00S01594.1ta     +++|          ZJN    IAM4        IF POT NOT LINKED
01797  M00S01595.1ta     +++| IAM3     LJM    IAM1        CONTINUE PROCESSING
01798  M00S01596.1ta     +++|
01799  M00S01597.1ta     +++| IAM4     STD    CN+3        CLEAR POT POINTER
01800  M00S01598.1ta     +++|          LDD    FP          DROP POTS
01801  M00S01599.1ta     +++|          STD    PP
01802  M00S01600.1ta     +++|          RJM    DPT
01803  M00S01601.1ta     +++|          LDN    ACPT        RESET TERMINAL NUMBER
01804  M00S01602.1ta     +++|          STD    TN
01805  M00S01603.1ta     +++|          AOD    CN+4        SET COMPLETE
01806  M00S01604.1ta     +++|          RJM    STA
01807  M00S01605.1ta     +++|          ADK    VROT
01808  M00S01606.1ta     +++|          CWD    CN
01809  M00S01607.1ta     +++|          LJM    ITAX        EXIT
01810  M00S01608.1ta     +++|
01811  M00S01609.1ta     +++| IAMA     DATA   10H     4.096  INPUT OR OUTPUT OVERFLOW QUANTITY
01812  M00S01610.1ta     +++| IAMB     DATA   10H 16777.216  COMBINED INPUT/OUTPUT OVERFLOW QUANTITY
01813  M00S01611.1ta     +++| TRST     SPACE  4,10
01814  M00S01612.1ta     +++|**        TRST - TABLE OF RESOURCE TYPES.
01815  M00S01613.1ta     +++|
01816  M00S01614.1ta     +++|
01817  M00S01615.1ta     +++| TRST     BSS    0
01818  M00S01616.1ta     +++|          DATA   2HCO        CHARACTERS OUT
01819  M00S01617.1ta     +++|          DATA   2HCI        CHARACTERS IN
01820  M00S01618.1ta     +++| MSF      SPACE  4,10
01821  M00S01619.1ta     +++|**        MSF - MESSAGE FORMAT FOR ACCOUNTING MESSAGES.
01822  M00S01620.1ta     +++|
01823  M00S01621.1ta     +++|
01824  M00S01622.1ta     +++| MSFA     DATA   10HJSNA    SC    JOB NAME
01825  M00S01623.1ta     +++| MSFB     DATA   6HUCXX,     RESOURCE TYPE
01826  M00S01624.1ta     +++| MSFC     DATA   10H     Q.QQQ  QUANTITY
01827  M00S01625.1ta     +++|          DATA   6HKCHS.     UNITS
01828  M00S01626.1ta     +++|          CON    0           TERMINATOR
01829  M00S01627.1ta     +++|          SPACE  4,10
01830  M00S01628.1ta     +++|**        TEST FOR OVERFLOW.
01831  M00S01629.1ta     +++|
01832  M00S01630.1ta     +++|
01833  M00S01631.1ta     +++|          OVERFLOW  OVL,EPFW  OVERFLOW INTO DISK ERROR PROCESSOR
01834  M00S01632.1ta     +++| IRL      OVERLAY (INCREMENT RESOURCE LIMIT.)
01835  M00S01633.1ta     +++| IRL      SPACE  4,20
01836  M00S01634.1ta     +++|***       IRL - INCREMENT RESOURCE LIMIT.
01837  M00S01635.1ta     +++|*
01838  M00S01636.1ta     +++|*T,IR     24/ ,12/ FC,12/ TN,12/ PP.

Figure IR

01839  M00S01637.1ta     +++|*
01840  M00S01638.1ta     +++|*         FC = FUNCTION CODE.
01841  M00S01639.1ta     +++|*         TN = TERMINAL NUMBER.
01842  M00S01640.1ta     +++|*         PP = REQUEST POT POINTER.
01843  M00S01641.1ta     +++|*
01844  M00S01642.1ta     +++|*         REQUEST POT FORMAT -
01845  M00S01643.1ta     +++|*T,       36/ 0,  6/ FC,  18/  SR.

Figure

01846  M00S01644.1ta     +++|*         FC = *1RI* FUNCTION CODE.
01847  M00S01645.1ta     +++|*         SR = RESOURCE INCREMENT.
01848  M00S01646.1ta     +++|*
01849  M00S01647.1ta     +++|*         INCREMENT SRU LIMIT.
01850  M00S01648.1ta     +++|*
01851  M00S01649.1ta     +++|*         THE REQUESTED SRU INCREMENT IS PLACED IN THE ROLLOUT
01852  M00S01650.1ta     +++|*         FILE SYSTEM SECTOR FOR PROCESSING BY *1RI*, IF NO ERROR
01853  M00S01651.1ta     +++|*         ENCOUNTERED FROM READING/UPDATING THE ROLLOUT FILE.
01854  M00S01652.1ta     +++|*         IF A MASS STORAGE ERROR WAS ENCOUNTERED, AN ERROR CODE
01855  M00S01653.1ta     +++|*         IS RETURNED TO *IAF*.
01856  M00S01654.1ta     +++|
01857  M00S01655.1ta     +++|
01858  M00S01656.1ta     +++|          ENTRY  IRL         ENTRY
01859  M00S01657.1ta     +++|          RJM    STT         SET TERMINAL TABLE ADDRESS
01860  M00S01658.1ta     +++|          ADK    VUIT
01861  M00S01659.1ta     +++|          CRD    CN
01862  M00S01660.1ta     +++|          SFA    EJT,CN+4    SET EJT ENTRY ADDRESS
01863  M00S01661.1ta     +++|          ADN    SCHE
01864  M00S01662.1ta     +++|          CRD    CN
01865  M00S01663.1ta     +++|          LDN    SYSN        SET TO READ SYSTEM SECTOR AND CPA
01866  M00S01664.1ta     +++|          RJM    RRF         READ ROLLOUT FILE
01867  M00S01665.1ta     +++|          NJN    IRL1        IF NO ERROR ON READ
01868  M00S01666.1ta     +++|          LJM    IRL6        RETURN ERROR CODE AND EXIT
01869  M00S01667.1ta     +++|
01870  M00S01668.1ta     +++| IRL1     LDD    IR+4        SET REQUEST POT POINTER
01871  M00S01669.1ta     +++|          STD    PP
01872  M00S01670.1ta     +++|          RJM    SPA         READ REQUEST POT
01873  M00S01671.1ta     +++|          CRD    CM
01874  M00S01672.1ta     +++|          LDD    CM+4        SET REQUEST IN SYSTEM SECTOR
01875  M00S01673.1ta     +++|          STM    SRSS+4
01876  M00S01674.1ta     +++|          LDD    CM+3
01877  M00S01675.1ta     +++|          STM    SRSS+3
01878  M00S01676.1ta     +++|          SHN    -6
01879  M00S01677.1ta     +++|          LMN    RLIT
01880  M00S01678.1ta     +++|          NJN    IRL3        IF NOT TIME LIMIT REQUEST
01881  M00S01679.1ta     +++|          LDM    CBUF+2+SRUW*5  CHECK FOR VALIDATION LIMIT
01882  M00S01680.1ta     +++|          LPC    5777        CLEAR TIME LIMIT EXCEEDED FLAG
01883  M00S01681.1ta     +++|          STM    CBUF+2+SRUW*5
01884  M00S01682.1ta     +++|          SHN    6
01885  M00S01683.1ta     +++|          PJN    IRL3        IF NOT VALIDATION LIMIT
01886  M00S01684.1ta     +++| IRL2     RJM    ERX         ERROR EXIT
01887  M00S01685.1ta     +++| IRL3     LDM    CBUF+2+SRUW*5  CHECK FOR SRU VALIDATION LIMIT
01888  M00S01686.1ta     +++|          LPC    7377        CLEAR SRU LIMIT FLAG
01889  M00S01687.1ta     +++|          STM    CBUF+2+SRUW*5
01890  M00S01688.1ta     +++|          SHN    10
01891  M00S01689.1ta     +++|          MJN    IRL2        IF VALIDATION LIMIT SET
01892  M00S01690.1ta     +++|          SETMS  IO,(RW),BFMS
01893  M00S01691.1ta     +++|          LDN    0           SET SECTOR
01894  M00S01692.1ta     +++|          STD    T7
01895  M00S01693.1ta     +++|          LDC    BFMS+WCSF   REWRITE SYSTEM SECTOR
01896  M00S01694.1ta     +++|          STM    WDSE
01897  M00S01695.1ta     +++|          RJM    WDS
01898  M00S01696.1ta     +++|          MJN    IRL6        IF MASS STORAGE ERROR ENCOUNTERED
01899  M00S01697.1ta     +++|          LDM    CBUF        REWRITE CONTROL POINT AREA
01900  M00S01698.1ta     +++|          SBN    1
01901  M00S01699.1ta     +++|          STD    T7
01902  M00S01700.1ta     +++|          LDC    CBUF+WLSF   WRITE CONTROL POINT AREA SECTOR
01903  M00S01701.1ta     +++|          RJM    WDS
01904  M00S01702.1ta     +++| IRL5     MJN    IRL6        IF MASS STORAGE ERROR ENCOUNTERED
01905  M00S01703.1ta     +++|          ENDMS
01906  M00S01704.1ta     +++|          RJM    STT         SET TERMINAL TABLE COMPLETE
01907  M00S01705.1ta     +++|          ADK    VROT
01908  M00S01706.1ta     +++|          CRD    CN
01909  M00S01707.1ta     +++|          AOD    CN+4
01910  M00S01708.1ta     +++|          RJM    STT
01911  M00S01709.1ta     +++|          ADK    VROT
01912  M00S01710.1ta     +++|          CWD    CN
01913  M00S01711.1ta     +++|          LJM    ITAX        EXIT
01914  M00S01712.1ta     +++|
01915  M00S01713.1ta     +++| IRL6     LDN    20          INDICATE MASS STORAGE ERROR ENCOUNTERED
01916  M00S01714.1ta     +++|          STD    CN+4
01917  M00S01715.1ta     +++|          RJM    SPA
01918  M00S01716.1ta     +++|          ADN    VUTA
01919  M00S01717.1ta     +++|          CWD    CN
01920  M00S01718.1ta     +++|          RJM    ERX         EXIT (TO *ITAX*)
01921  M00S01719.1ta     +++|          SPACE  4,10,10
01922  M00S01720.1ta     +++|**        COMMON DECKS.
01923  M00S01721.1ta     +++|
01924  M00S01722.1ta     +++| TLI$     SET    1           SELECT TIME LIMIT CONVERSION
01925  M00S01723.1ta     +++|*CALL     COMPCVI
01926  M00S01724.1ta     +++|          SPACE  4,10
01927  M00S01725.1ta     +++|**        TEST FOR OVERFLOW.
01928  M00S01726.1ta     +++|
01929  M00S01727.1ta     +++|
01930  M00S01728.1ta     +++|          OVERFLOW  OVL,EPFW  OVERFLOW INTO DISK ERROR PROCESSOR
01931  M00S01729.1ta     +++|
01932  M00S01730.1ta     +++|
01933  M00S01731.1ta     +++|          ERRMI  CBUF-*      OVERFLOW INTO BUFFER AREA
01934  M00S01732.1ta     +++|          SPACE  4,10,10
01935  M00S01733.1ta     +++| RJS      OVERLAY  (RETURN JOB STATUS.)
01936  M00S01734.1ta     +++| RJS      SPACE  4,25
01937  M00S01735.1ta     +++|***       RJS - RETURN JOB STATUS.
01938  M00S01736.1ta     +++|*
01939  M00S01737.1ta     +++|*T,IR     24/ ,12/ FC,12/ TN,12/ PP.

Figure IR

01940  M00S01738.1ta     +++|*
01941  M00S01739.1ta     +++|*         FC = FUNCTION CODE.
01942  M00S01740.1ta     +++|*         TN = TERMINAL NUMBER.
01943  M00S01741.1ta     +++|*         PP = POT POINTER.
01944  M00S01742.1ta     +++|*
01945  M00S01743.1ta     +++|*         RETURN JOB STATUS.
01946  M00S01744.1ta     +++|*
01947  M00S01745.1ta     +++|*                CALLED TO RETURN THE CURRENT JOB STATUS FOR
01948  M00S01746.1ta     +++|*                THE *ENQUIRE* COMMAND.
01949  M00S01747.1ta     +++|*
01950  M00S01748.1ta     +++|*                IF POSSIBLE THE CONTENTS OF THE CONTROL
01951  M00S01749.1ta     +++|*                POINT MESSAGE BUFFER (MS1W) IS RETURNED.  IF MS2W
01952  M00S01750.1ta     +++|*                IS AVAILABLE, IT IS RETURNED INSTEAD OF MS1W.
01953  M00S01751.1ta     +++|*
01954  M00S01752.1ta     +++|*                IF THE MESSAGE CANNOT BE READ BECAUSE THE
01955  M00S01753.1ta     +++|*                FNT INTERLOCK IS SET AN ERROR STATUS IS
01956  M00S01754.1ta     +++|*                RETURNED.
01957  M00S01755.1ta     +++|*
01958  M00S01756.1ta     +++|*                *VROT* COMPLETION BIT NOT USED.
01959  M00S01757.1ta     +++|*
01960  M00S01758.1ta     +++|*         ENTRY  (CN - CN+4) = TERMINAL TABLE WORD VROT.
01961  M00S01759.1ta     +++|
01962  M00S01760.1ta     +++|
01963  M00S01761.1ta     +++|          ENTRY  RJS
01964  M00S01762.1ta     +++|          LDN    0           CLEAR MESSAGE FLAG
01965  M00S01763.1ta     +++|          STD    MF
01966  M00S01764.1ta     +++|          LDD    IR+4
01967  M00S01765.1ta     +++|          STD    PP

Seq #  *Modification Id* Act 
----------------------------+
01968  M01S01766.271l716 ---|          LDN    MS2W-MS1W+IN0W-MS2W  SET MS1W + MS2W LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01969  M01S00030.271l716 +++|          LDN    MS2W-MS1W+IN0W-MS2W  SET *MS1W* + *MS2W* LENGTH
01970  M00S01767.1ta     +++|          STD    PW
01971  M00S01768.1ta     +++|          RJM    STT         SET TERMINAL TABLE ADDRESS
01972  M00S01769.1ta     +++|          ADK    VUIT
01973  M00S01770.1ta     +++|          CRD    CN
01974  M00S01771.1ta     +++|          SFA    EJT,CN+4
01975  M00S01772.1ta     +++|          STM    RJSD+1
01976  M00S01773.1ta     +++|          STD    CM+4
01977  M00S01774.1ta     +++|          SHN    -14
01978  M00S01775.1ta     +++|          STD    CM+3
01979  M00S01776.1ta     +++|          ADK    LDCI
01980  M00S01777.1ta     +++|          STM    RJSD
01981  M00S01778.1ta     +++|          LDN    0           SET INTERLOCK ON EJT
01982  M00S01779.1ta     +++|          STD    CM+1
01983  M00S01780.1ta     +++|          STD    CM+2
01984  M00S01781.1ta     +++|          MONITOR  UTEM
01985  M00S01782.1ta     +++|          LDD    CM+1
01986  M00S01783.1ta     +++|          ZJN    RJS1        IF INTERLOCKED
01987  M00S01784.1ta     +++|          LDN    0
01988  M00S01785.1ta     +++|          STD    CM+1
01989  M00S01786.1ta     +++|          LJM    RJS10       RETURN ERROR STATUS
01990  M00S01787.1ta     +++|
01991  M00S01788.1ta     +++| RJS1     LDM    RJSD
01992  M00S01789.1ta     +++|          LPN    77
01993  M00S01790.1ta     +++|          SHN    14
01994  M00S01791.1ta     +++|          ADM    RJSD+1
01995  M00S01792.1ta     +++|          ADK    JSNE
01996  M00S01793.1ta     +++|          CRD    CM           READ EJT ENTRY
01997  M00S01794.1ta     +++|          ADN    SCHE-JSNE
01998  M00S01795.1ta     +++|          CRD    CN
01999  M00S01796.1ta     +++|          LDD    CM+4
02000  M00S01797.1ta     +++|          LPN    76
02001  M00S01798.1ta     +++|          LMN    EXJS*2

Seq #  *Modification Id* Act 
----------------------------+
02002  M01S01799.271l716 ---|          NJN    RJS2        IF NOT AT A CONTROL POINT

Seq #  *Modification Id* Act 
----------------------------+
02003  M01S00031.271l716 +++|          NJN    RJS1.2      IF NOT AT A CONTROL POINT
02004  M00S01800.1ta     +++|          LDD    CN+3        CP NUMBER
02005  M00S01801.1ta     +++|          SHN    7           SET CP ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
02006  M01S01802.271l716 ---|          ADN    MS1W        READ MS1W AND MS2W

Seq #  *Modification Id* Act 
----------------------------+
02007  M01S00032.271l716 +++| RJS1.1   ADN    MS1W        READ *MS1W* AND *MS2W*
02008  M00S01803.1ta     +++|          CRM    CBUF+2+MS1W*5,PW

Seq #  *Modification Id* Act 
----------------------------+
02009  M01S01804.271l716 ---|          ADN    SRUW-IN0W   GET CPA

Seq #  *Modification Id* Act 
----------------------------+
02010  M01S00033.271l716 +++|          ADN    SRUW-IN0W   READ *SRUW*
02011  M00S01805.1ta     +++|          CRM    CBUF+2+SRUW*5,ON

Seq #  *Modification Id* Act 
----------------------------+
02012  M01S01806.271l716 ---|          UJN    RJS3        SET MESSAGE IN POT

Seq #  *Modification Id* Act 
----------------------------+
02013  M01S00034.271l716 +++|          LJM    RJS3        SET MESSAGE IN POT
02014  M00S01807.1ta     +++|

Seq #  *Modification Id* Act 
----------------------------+
02015  M01S01808.271l716 ---| RJS2     LMN    SWJS*2&EXJS*2

Seq #  *Modification Id* Act 
----------------------------+
02016  M01S00035.271l716 +++| RJS1.2   LMN    PCJS*2&EXJS*2
02017  M01S00036.271l716 +++|          NJN    RJS2        IF NOT AT A PSEUDO CONTROL POINT

Seq #  *Modification Id* Act 
----------------------------+
02018  M02S00037.273l780 ---|          LCPA   0,CN+1

Seq #  *Modification Id* Act 
----------------------------+
02019  M01S00030.273l780 +++|          LDD    CN+1        SET PCP ADDRESS
02020  M01S00031.273l780 +++|          RJM    CCA

Seq #  *Modification Id* Act 
----------------------------+
02021  M01S00038.271l716 +++|          UJN    RJS1.1      READ PCPA FIELDS
02022  M01S00039.271l716 +++|
02023  M01S00040.271l716 +++| RJS2     LMN    SWJS*2&PCJS*2
02024  M00S01809.1ta     +++|          NJN    RJS2.1      IF NOT SERVICE WAIT STATUS
02025  M00S01810.1ta     +++|          STM    RJSG
02026  M00S01811.1ta     +++| RJS2.1   LDC    CPSN        READ CP AREA
02027  M00S01812.1ta     +++|          RJM    RRF         READ ROLLOUT FILE
02028  M00S01813.1ta     +++|          NJN    RJS3        IF NO ERROR
02029  M00S01814.1ta     +++|          LDC    CBUF+2+MS2W*5  RETURN ERROR MESSAGE IN *MS2W*
02030  M00S01815.1ta     +++|          STM    RJSC
02031  M00S01816.1ta     +++|          LDN    IN0W-MS2W+1  SET *MS2W* MESSAGE LENGTH
02032  M00S01817.1ta     +++|          STD    PW
02033  M00S01818.1ta     +++|          LDD    MA
02034  M00S01819.1ta     +++|          CWM    RJSF,PW
02035  M00S01820.1ta     +++|          SBD    PW
02036  M00S01821.1ta     +++|          CRM    CBUF+2+MS2W*5,PW  *WAITING - DEVICE INACCESSIBLE.*
02037  M00S01822.1ta     +++|          LDN    ZERL        CLEAR *SRUW* WORD
02038  M00S01823.1ta     +++|          CRM    CBUF+2+SRUW*5,ON
02039  M00S01824.1ta     +++|          LDN    VCPC-1      *SRUW* OFFSET
02040  M00S01825.1ta     +++|          SBD    PW
02041  M00S01826.1ta     +++|          STD    T7
02042  M00S01827.1ta     +++|          LJM    RJS9        PUT MESSAGE IN *MS2W* AND RETURN
02043  M00S01828.1ta     +++|
02044  M00S01829.1ta     +++| RJS3     LDC    *
02045  M00S01830.1ta     +++| RJSG     EQU    *-1
02046  M00S01831.1ta     +++|          NJN    RJS3.1      IF NOT SERVICE WAIT STATUS
02047  M00S01832.1ta     +++|          LDN    IN0W-MS2W+1 SET *MS2W* MESSAGE LENGTH
02048  M00S01833.1ta     +++|          STD    PW
02049  M00S01834.1ta     +++|          LDD    MA
02050  M00S01835.1ta     +++|          CWM    RJSH,PW
02051  M00S01836.1ta     +++|          SBD    PW
02052  M00S01837.1ta     +++|          CRM    CBUF+2+MS2W*5,PW  *WAITING - SERVICE LIMIT.*
02053  M00S01838.1ta     +++|          UJN    RJS3.2      CONTINUE
02054  M00S01839.1ta     +++|
02055  M00S01840.1ta     +++| RJS3.1   LDM    CBUF+2+MS2W*5

Seq #  *Modification Id* Act 
----------------------------+
02056  M01S01841.271l716 ---|          ZJN    RJS4        IF NO MS2W MESSAGE
02057  M01S01842.271l716 ---| RJS3.2   LDC    CBUF+2+MS2W*5  USE MS2W MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
02058  M01S00041.271l716 +++|          ZJN    RJS4        IF NO *MS2W* MESSAGE
02059  M01S00042.271l716 +++| RJS3.2   LDC    CBUF+2+MS2W*5  USE *MS2W* MESSAGE
02060  M00S01843.1ta     +++|          STM    RJSC
02061  M00S01844.1ta     +++|          SBN    1
02062  M00S01845.1ta     +++|          STM    RJSA
02063  M00S01846.1ta     +++|          LDC    CBUF+2+IN0W*5-1
02064  M00S01847.1ta     +++|          STM    RJSB
02065  M00S01848.1ta     +++|          ADN    1
02066  M00S01849.1ta     +++|          STM    RJSE
02067  M00S01850.1ta     +++|          LDN    IN0W-MS2W+1

Seq #  *Modification Id* Act 
----------------------------+
02068  M01S01851.271l716 ---|          UJN    RJS5        SET MS2W MESSAGE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
02069  M01S00043.271l716 +++|          UJN    RJS5        SET *MS2W* MESSAGE LENGTH
02070  M00S01852.1ta     +++|

Seq #  *Modification Id* Act 
----------------------------+
02071  M01S01853.271l716 ---| RJS4     LDK    MS2W-MS1W+1  SET MS1W MESSAGE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
02072  M01S00044.271l716 +++| RJS4     LDK    MS2W-MS1W+1  SET *MS1W* MESSAGE LENGTH
02073  M00S01854.1ta     +++| RJS5     STD    PW
02074  M00S01855.1ta     +++|          LDN    VCPC-1
02075  M00S01856.1ta     +++|          SBD    PW
02076  M00S01857.1ta     +++|          STD    T7
02077  M00S01858.1ta     +++|          LDK    ZERL        ASSURE EOL IN AREA TO WRITE TO POT
02078  M00S01859.1ta     +++|          CRM    CBUF+2+MS2W*5,ON
02079  M00S01860.1ta     +++| RJSE     EQU    *-1
02080  M00S01861.1ta     +++|*         CRM    CBUF+2+IN0W*5,ON
02081  M00S01862.1ta     +++|          LDC    CBUF+2+MS1W*5-1  SET MESSAGE POINTER
02082  M00S01863.1ta     +++| RJSA     EQU    *-1
02083  M00S01864.1ta     +++|*         LDC    CBUF+2+MS2W*5-1
02084  M00S01865.1ta     +++|          STD    CM
02085  M00S01866.1ta     +++| RJS6     AOD    CM
02086  M00S01867.1ta     +++| RJS7     LDC    CBUF+2+MS2W*5-1
02087  M00S01868.1ta     +++| RJSB     EQU    *-1
02088  M00S01869.1ta     +++|*         LDC    CBUF+2+IN0W*5-1
02089  M00S01870.1ta     +++|          SBD    CM
02090  M00S01871.1ta     +++|          ZJN    RJS8        IF END OF MESSAGE
02091  M00S01872.1ta     +++|          LDI    CM
02092  M00S01873.1ta     +++|          NJN    RJS6        IF NOT TERMINATOR
02093  M00S01874.1ta     +++|          AOD    CM
02094  M00S01875.1ta     +++|          LDN    0
02095  M00S01876.1ta     +++|          STI    CM          CLEAR MESSAGE BUFFER
02096  M00S01877.1ta     +++|          UJN    RJS7        LOOP
02097  M00S01878.1ta     +++|
02098  M00S01879.1ta     +++| RJS8     STM    CBUF+2+SRUW*5  CLEAR NON-ACCUMULATOR BITS
02099  M00S01880.1ta     +++|          LDM    CBUF+2+SRUW*5+1
02100  M00S01881.1ta     +++|          LPN    77
02101  M00S01882.1ta     +++|          STM    CBUF+2+SRUW*5+1
02102  M00S01883.1ta     +++| RJS9     RJM    SPA         SET POT ADDRESS
02103  M00S01884.1ta     +++|          CWM    CBUF+2+MS1W*5,PW  WRITE MESSAGE TO POT
02104  M00S01885.1ta     +++| RJSC     EQU    *-1
02105  M00S01886.1ta     +++|*         CWM    CBUF+2+MS2W*5,PW
02106  M00S01887.1ta     +++|          ADD    T7          WRITE SRU-S TO POT
02107  M00S01888.1ta     +++|          CWM    CBUF+2+SRUW*5,ON
02108  M00S01889.1ta     +++|          AOD    MF          SET MESSAGE FLAG
02109  M00S01890.1ta     +++|          LDN    ZERL
02110  M00S01891.1ta     +++|          CRD    CM
02111  M00S01892.1ta     +++|          LDC    *           CLEAR EJT INTERLOCK
02112  M00S01893.1ta     +++| RJSD     EQU    *-2         (EJT ENTRY ADDRESS)
02113  M00S01894.1ta     +++|          STD    CM+4
02114  M00S01895.1ta     +++|          SHN    -14
02115  M00S01896.1ta     +++|          STD    CM+3
02116  M00S01897.1ta     +++|          LDN    60
02117  M00S01898.1ta     +++|          STD    CM+1
02118  M00S01899.1ta     +++|          MONITOR  UTEM
02119  M00S01900.1ta     +++|          LDD    CM+1
02120  M00S01901.1ta     +++|          ZJN    RJS10       IF INTERLOCK CLEARED
02121  M00S01902.1ta     +++|          LDN    0           SET NO ERROR FLAG
02122  M00S01903.1ta     +++|          RJM    CHG         CONDITIONALLY HANG PP
02123  M00S01904.1ta     +++| RJS10    LDC    VSJS
02124  M00S01905.1ta     +++|          STD    CM
02125  M00S01906.1ta     +++|          LDD    MF          SET MESSAGE FLAG
02126  M00S01907.1ta     +++|          STD    CM+2
02127  M00S01908.1ta     +++|          LDD    PP          SET POT POINTER
02128  M00S01909.1ta     +++|          STD    CM+3
02129  M00S01910.1ta     +++|          LDD    TN          SET TERMINAL NUMBER
02130  M00S01911.1ta     +++|          STD    CM+4
02131  M00S01912.1ta     +++|          LDD    MA
02132  M00S01913.1ta     +++|          CWD    CM

Seq #  *Modification Id* Act 
----------------------------+
02133  M01S01914.271l716 ---| RJS11    MONITOR  TSEM

Seq #  *Modification Id* Act 
----------------------------+
02134  M01S00045.271l716 +++| RJS11    LDK    ZERL
02135  M01S00046.271l716 +++|          CRD    CM
02136  M01S00047.271l716 +++|          MONITOR  TSEM
02137  M00S01915.1ta     +++|          LDD    CM+1
02138  M00S01916.1ta     +++|          ZJN    RJS13       IF *IAF* INACCESSIBLE OR ERROR
02139  M00S01917.1ta     +++|          LMC    7777
02140  M00S01918.1ta     +++|          NJN    RJS13       IF REQUEST COMPLETE
02141  M00S01919.1ta     +++|          PAUSE  ST
02142  M00S01920.1ta     +++|          LDC    3600        *TSEM* QUEUE FULL - DELAY AND RETRY
02143  M00S01921.1ta     +++|          STD    T1
02144  M00S01922.1ta     +++| RJS12    DELAY
02145  M00S01923.1ta     +++|          SOD    T1
02146  M00S01924.1ta     +++|          ZJN    RJS11       IF TIME TO REISSUE REQUEST
02147  M00S01925.1ta     +++|          UJN    RJS12       CONTINUE TO DELAY
02148  M00S01926.1ta     +++|
02149  M00S01927.1ta     +++| RJS13    LJM    ITAX        EXIT
02150  M00S01928.1ta     +++|
02151  M00S01929.1ta     +++| RJSF     DATA   C*WAITING - INACCESSIBLE DEVICE.*
02152  M00S01930.1ta     +++|          CON    0,0,0,0     TERMINATING EOL BYTE
02153  M00S01931.1ta     +++| RJSH     DATA   C*WAITING - SERVICE LIMIT.      *
02154  M00S01932.1ta     +++|          CON    0,0,0,0     TERMINATING EOL BYTE
02155  M00S01933.1ta     +++|          SPACE  4
02156  M00S01934.1ta     +++|**        TEST FOR OVERFLOW.
02157  M00S01935.1ta     +++|
02158  M00S01936.1ta     +++|          OVERFLOW  OVL,EPFW  OVERFLOW INTO DISK ERROR PROCESSOR
02159  M00S01937.1ta     +++|          END    1TA         TIMESHARING AUXILIARY PROCESSOR.